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
{
publ
tra
}{}
20
21\unprotect
22
23\unexpanded
\gdef
\showbtxdatasetfields
{
\dosingleempty
\publ_show_dataset_fields
}
24\unexpanded
\gdef
\showbtxdatasetcompleteness
{
\dosingleempty
\publ_show_dataset_completeness
}
25\unexpanded
\gdef
\showbtxdatasetauthors
{
\dosingleempty
\publ_show_dataset_authors
}
26\unexpanded
\gdef
\showbtxhashedauthors
{
\dosingleempty
\publ_show_hashed_authors
}
27\unexpanded
\gdef
\showbtxfields
{
\dosingleempty
\publ_show_fields
}
28\unexpanded
\gdef
\showbtxtables
{
\dosingleempty
\publ_show_tables
}
29
30\gdef
\publ_show_dataset_whatever
#
1
[#
2
]
31 {
\begingroup
32 \letdummyparameter
\c!specification
\currentbtxspecification
33 \setdummyparameter
\c!dataset
{
\currentbtxdataset
}
34 \letdummyparameter
\c!field
\empty
35 \iffirstargument
36 \doifelseassignment
{
#
2
}
37 {
\getdummyparameters
[#
2
]
}
38 {
\setdummyparameter
\c!dataset
{
#
2
}}
39 \else
40 \getdummyparameters
[#
2
]
41 \fi
42 \ctxcommand{
#
1
{
43 dataset
=
"
\dummyparameter\c!dataset
"
,
44 specification
=
"
\dummyparameter\c!specification
"
,
45 field
=
"
\dummyparameter\c!field
"
,
46 }
}
47 \endgroup
}
48
49\gdef
\publ_show_dataset_fields
{
\publ_show_dataset_whatever
{
showbtxdatasetfields
}}
50\gdef
\publ_show_dataset_completeness
{
\publ_show_dataset_whatever
{
showbtxdatasetcompleteness
}}
51\gdef
\publ_show_dataset_authors
{
\publ_show_dataset_whatever
{
showbtxdatasetauthors
}}
52
53\gdef
\publ_show_fields
[#
1
]
54 {
\begingroup
55 \setdummyparameter
\c!rotation
{
9
0
}
56 \doifelseassignment
{
#
1
}
57 {
\letdummyparameter
\c!specification
\currentbtxspecification
58 \getdummyparameters
[#
1
]
}
59 {
\doifelsenothing
{
#
1
}
60 {
\letdummyparameter
\c!specification
\currentbtxspecification
}
61 {
\setdummyparameter
\c!specification
{
#
1
}}}
62 \ctxcommand{
showbtxfields
{
63 rotation
=
"
\dummyparameter\c!rotation
"
,
64 specification
=
"
\dummyparameter\c!specification
"
65 }
}
66 \endgroup
}
67
68\gdef
\publ_show_tables
[#
1
]
69 {
\begingroup
70 \ctxcommand{
showbtxtables
{
}
}
71 \endgroup
}
72
73\gdef
\publ_show_hashed_authors
[#
1
]
74 {
\ctxcommand{
showbtxhashedauthors
{
}
}
}
75
76\protect
77
78\continueifinputfile
{
publ
tra
.
mkiv
}
79
80\starttext
81
82 \showbtxfields
[
rotation
=
8
5
]
\page
83 \showbtxfields
[
rotation
=
9
0
]
\page
84
85 \showbtxtables
\page
86
87\stoptext
88