1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17\writestatus{loading}{ConTeXt Publication Support Tracing}
18
19\registerctxluafile{publtra}{}
20
21\unprotect
22
23\permanent\protected\gdef\showbtxdatasetfields {\publ_show_dataset_whatever{showbtxdatasetfields}}
24\permanent\protected\gdef\showbtxdatasetcompleteness{\publ_show_dataset_whatever{showbtxdatasetcompleteness}}
25\permanent\protected\gdef\showbtxdatasetauthors {\publ_show_dataset_whatever{showbtxdatasetauthors}}
26
27\tolerant\gdef\publ_show_dataset_whatever#1[#2]
28 {\begingroup
29 \letdummyparameter\c!specification\currentbtxspecification
30 \setdummyparameter\c!dataset {\currentbtxdataset}
31 \letdummyparameter\c!field \empty
32 \ifparameter#2\or
33 \ifhastok={#2}
34 \getdummyparameters[#2]
35 \else
36 \setdummyparameter\c!dataset{#2}
37 \fi
38 \fi
39 \ctxcommand{#1{
40 dataset = "\dummyparameter\c!dataset",
41 specification = "\dummyparameter\c!specification",
42 field = "\dummyparameter\c!field",
43 }}
44 \endgroup}
45
46\permanent\tolerant\protected\gdef\showbtxfields[#1]
47 {\begingroup
48 \setdummyparameter\c!rotation{90}
49 \ifparameter#1\or
50 \ifhastok={#1}
51 \letdummyparameter\c!specification\currentbtxspecification
52 \getdummyparameters[#1]
53 \else
54 \setdummyparameter\c!specification{#1}
55 \fi
56 \else
57 \letdummyparameter\c!specification\currentbtxspecification
58 \fi
59 \ctxcommand{showbtxfields{
60 rotation = "\dummyparameter\c!rotation",
61 specification = "\dummyparameter\c!specification"
62 }}
63 \endgroup}
64
65\permanent\tolerant\protected\gdef\showbtxtables[#1]
66 {\begingroup
67 \ctxcommand{showbtxtables{}}
68 \endgroup}
69
70\permanent\tolerant\protected\gdef\showbtxhashedauthors[#1]
71 {\ctxcommand{showbtxhashedauthors{}}}
72
73\protect
74
75\continueifinputfile{publtra.mkiv}
76
77\starttext
78
79 \showbtxfields[rotation=85] \page
80 \showbtxfields[rotation=90] \page
81
82 \showbtxtables \page
83
84\stoptext
85 |