Source Browser ?

1
%D \module
2
%D   [       file=publ-tra,
3
%D        version=2013.12.24,
4
%D          title=\CONTEXT\ Publication Support,
5
%D       subtitle=Tracing,
6
%D         author=Hans Hagen,
7
%D           date=\currentdate,
8
%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9
%C
10
%C This module is part of the \CONTEXT\ macro||package and is
11
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12
%C details.
13
14
% todo: make this a runtime module
15
% todo: use the module interface
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