Source Browser ?

1
%D \module
2
%D   [       file=mtx-context-listing,
3
%D        version=2008.11.10, % about that time i started playing with this
4
%D          title=\CONTEXT\ Extra Trickry,
5
%D       subtitle=Listing Files,
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
%D This is a \TEXEXEC\ feature that has been moved to \MKIV.
15
16
% begin help
17
%
18
% usage: context --extra=listing [options] list-of-files
19
%
20
% --sort                : sort filenames first
21
% --topspace=dimension  : distance above first line
22
% --backspace=dimension : distance before left margin
23
% --pretty              : pretty print comform suffix
24
% --scite               : pretty print comform suffix using scite lexer
25
% --bodyfont=list       : additional bodyfont settings
26
% --paperformat=spec    : paper*print or paperxprint
27
% --compact             : small margins, 8pt font
28
% --verycompact         : small margins, 7pt font
29
%
30
% end help
31
32
\input
 
mtx
-
context
-
common
.
tex
33
34
\doifdocumentargument
 
{
compact
}
 
{
35    
\setdocumentargument
{
topspace
}
 
{
5
mm
}
36    
\setdocumentargument
{
backspace
}{
5
mm
}
37    
\setdocumentargument
{
bodyfont
}
 
{
8
pt
}
38
}
39
40
\doifdocumentargument
 
{
verycompact
}
 
{
41    
\setdocumentargument
{
topspace
}
 
{
5
mm
}
42    
\setdocumentargument
{
backspace
}{
5
mm
}
43    
\setdocumentargument
{
bodyfont
}
 
{
7
pt
}
44
}
45
46
\setupbodyfont
47  
[
dejavu
,
9
pt
,
tt
,
\getdocumentargument
{
bodyfont
}
]
 
% dejavu is more complete
48
49
\setuptyping
50  
[
lines
=
yes
]
51
52
\setuplayout
53  
[
header
=
0
cm
,
54   
footer
=
1
.
5
cm
,
55   
topspace
=
\getdocumentargumentdefault
{
topspace
}{
1
.
5
cm
}
,
56   
backspace
=
\getdocumentargumentdefault
{
backspace
}{
1
.
5
cm
}
,
57   
width
=
middle
,
58   
height
=
middle
]
59
\setuppapersize
61  
[
\getdocumentargument
{
paperformat
_
paper
}
]
62  
[
\getdocumentargument
{
paperformat
_
print
}
]
63
64
% \startluacode
65
%     -- syntax check
66
%     local topspace  = dimen(document.arguments.topspace  or 0)
67
%     local backspace = dimen(document.arguments.backspace or 0)
68
%     local zeropoint = dimen(0)
69
%     if topspace > zeropoint then
70
%         context.setuplayout { topspace = tostring(topspace) }
71
%     end
72
%     if backspace > zeropoint then
73
%         context.setuplayout { backspace = tostring(backspace) }
74
%     end
75
% \stopluacode
76
77
\starttext
78
79
\startluacode
80    
local
 
types
 
=
 
{
81        
mkiv
 
=
 
"
tex
"
,
82        
mkii
 
=
 
"
tex
"
,
83        
cld
  
=
 
"
lua
"
,
84        
lfg
  
=
 
"
lua
"
,
85        
mpiv
 
=
 
"
mp
"
,
86        
mpii
 
=
 
"
mp
"
,
87    
}
88
89    
local
 
pattern
 
=
 
document
.
arguments
.
pattern
90    
local
 
scite
   
=
 
document
.
arguments
.
scite
91
92    
if
 
pattern
 
then
93        
document
.
files
 
=
 
dir
.
glob
(
pattern
)
94    
end
95
96    
if
 
scite
 
then
97        
context
.
usemodule
 
{
 
"
scite
"
 
}
98    
end
99
100    
local
 
done
  
=
 
false
101    
local
 
files
 
=
 
document
.
files
102
103    
if
 
#
files
 
>
 
0
 
then
104        
if
 
document
.
arguments
.
sort
 
then
105            
table
.
sort
(
files
)
106        
end
107        
for
 
i
=
1
,
#
files
 
do
108            
local
 
filename
 
=
 
files
[
i
]
109            
if
 
not
 
string
.
find
(
filename
,
"
^mtx%-context%-
"
)
 
then
110                
local
 
pretty
 
=
 
document
.
arguments
.
pretty
111                
if
 
pretty
 
=
=
 
true
 
then
112                    
pretty
 
=
 
file
.
extname
(
filename
)
 
or
 
"
"
113                
elseif
 
pretty
 
=
=
 
false
 
then
114                    
pretty
 
=
 
"
"
115                
else
116                    
-- forced
117                
end
118                
context
.
page
(
)
119                
context
.
setupfootertexts
(
 
-- return true: we need to keep this entry
120                    
{
 
function
(
)
 
context
.
detokenize
(
pattern
 
and
 
filename
 
or
 
file
.
basename
(
filename
)
)
 
return
 
true
 
end
 
}
,
121                    
{
 
function
(
)
 
context
.
pagenumber
(
)
 
return
 
true
 
end
 
}
122                
)
123                
if
 
scite
 
then
124                    
context
.
scitefile
 
{
 
filename
 
}
 
-- here { }
125                
elseif
 
pretty
 
then
126                    
if
 
type
(
pretty
)
 
~
=
 
"
string
"
 
or
 
pretty
 
=
=
 
"
"
 
then
127                        
context
.
setuptyping
 
{
 
option
 
=
 
"
color
"
 
}
128                    
else
129                        
context
.
setuptyping
 
{
 
option
 
=
 
types
[
pretty
]
 
or
 
pretty
 
}
130                    
end
131                    
context
.
typefile
(
filename
)
132                
else
133                    
context
.
typefile
(
filename
)
134                
end
135                
done
 
=
 
true
136            
end
137        
end
138    
end
139
140    
if
 
not
 
done
 
then
141        
context
(
"
no files given
"
)
142    
end
143
144
\stopluacode
145
146
\stoptext
147