1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
#!/usr/local/bin/sciteco -m
!* tedoc.tes [-C] [--] <output> <input> <sources> *!
:EMQ[$SCITECOPATH]/getopt.tes
@[format_header]{
FD--S .U.f :L"S.|Z'U.t Q.f,Q.tXa Q.f,Q.tD I^J
EBQ#tm
I\# GENERATED FROM Q.#sc (\.#sc):^J
I.SS Ga -A-10"N I^J '
:Q.[topics]">
I.SCITECO_TOPIC G.[topics]
'
EQ.[header]
J <FR^J^J.br^J;>
J <
SMA; .U.t
1Ua <."=1;' -A"A|1;' -A"V -1Ua 1;' R>
Qa"S
Q.tJ
|
.,Q.tXa .,Q.tD
I^J.B Qa^J
'
>
J <
S[MC]; .U.t -S[ .,Q.t-1Xa .-1,Q.tD
I^J.RI [ Qa ]^J
>
J <FR->\(->;>
J <
SMCM[|MC];
.U.t <-A"C|-A- |"N1;'' R>
.,Q.tXa .,Q.tD EQa
<FR| | ;>
EQ.[header]
I^J.IR Qa^J
>
J <FRS^J^J;>
J <FR^JS^J;>
J <FR^J^J^J;>
J 0A-10"=D'
ZJ -A-10"=-D'
EBQ#tm
G.[header]
I^J.^J
}
@[format_body]{
I.LP^J
<FR^J^J^J.^J.LP^J;>
J <FS^J-S^J.IP \(bu 4^J;>
J <S^JMD.S; 0L I.IP FSS 4^J>
!* set margin for list paragraphs *!
J 0U.n <
Z-.-3"<1;'
.,.+3:S.LP"S
Q.n">
0L I.RE^J 0U.n
'
|
.,.+3:S.IP"S
Q.n"=0L I.RS^J %.n '
'
'
:L;
>
Q.n"> ZJ I^J.RE '
J <S<MC>; -D I^J -S< -D I^J.I >
J <FRS^J^J;>
J <FR^JS^J;>
EBN#tm
G.c I^J.^J.^J
}
!* process command-line options *!
[optstring]C M[getopt]"F (0/0) '
:Q[getopt.C]"<
[comment.start]!* [comment.end]*!
|
[comment.start]/* [comment.end]*/
'
LR 0X#ou
2LR 0X#tm EBN#tm EB L
[.f
<:L;R 0X.f EBQ.f EB L>
].f
-EF
I\#
\# AUTOGENERATED FROM Q#tm
\# DO NOT EDIT MANUALLY!!!
\#^J
!* find insertion point *!
FS^J.TEDOC^J^J
EJ-1<
<
2U* EU.#scQ*
!* extract comment *!
SQ[comment.start]$;
.-:Q[comment.start]-1U.#sc
SQ[comment.end]
Q.#sc+:Q[comment.start]+1,.-:Q[comment.end]X.c
EQ.c
<FS^J^J ^J ;>
J <FS^J[S,]*[M[ , ],]^J;>
J 0A-10"N X.[topics] K '
<0A-10"N 0A- "N 0A-9"N 1; ' ' ' D>
ZJ <-A-10"N -A- "N -A-9"N 1; ' ' ' -D>
!* extract header *!
H:FD^J^J"F ZJ '
0,.X.[header] 0,.D
EQ.[header]
:M[format_header]
EQ.c
:M[format_body]
>
EF
>
EWQ#ou
EX
|
