diff options
Diffstat (limited to 'doc/tedoc.tes')
| -rwxr-xr-x | doc/tedoc.tes | 130 |
1 files changed, 0 insertions, 130 deletions
diff --git a/doc/tedoc.tes b/doc/tedoc.tes deleted file mode 100755 index cc4f726..0000000 --- a/doc/tedoc.tes +++ /dev/null @@ -1,130 +0,0 @@ -#!/usr/local/bin/sciteco -m -!* tedoc.tes [-C] [--] <output> <input> <sources> *! - -0,2EJ !* FIXME: Memory limiting is too slow *! - -:EIQ[$SCITECOPATH]/getopt.tes - -@[format_header]{ - FD--S .,(:L"S.|Z')@Xa I^J - - EBN[\#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.t@Xa - I^J.B Qa^J - ' - > - J < - S[[MC]]; 1Xa D - I^J.RI [ Qa ]^J - > - J <FR->\(->;> - J < - SMCM[|MC]; - .U.t <-A"C|-A-|"N1;'' R> - .,Q.t@Xa 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' - EBN[\#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]U#ou Q#ou"< Invalid command-line^J 1 ' -:Q[getopt.C]"< - [comment.start]!* [comment.end]*! -| - [comment.start]/* [comment.end]*/ -' -Q#ou+1U#tm Q#tmU.i <:Q[\.i]:; EBN[\.i] %.i> - -!* switch to the main troff template (#tm) *! -EB EF - -I\# -\# AUTOGENERATED FROM Q[\#tm] -\# DO NOT EDIT MANUALLY!!! -\#^J - -!* find insertion point *! -:FS^J.TEDOC^J^J"F Missing .TEDOC call^J 1 ' - -EJ-1< - < - 2U* [*].#sc - - !* 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] ' - <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] - - EQ.[header] - :M[format_header] - EQ.c - :M[format_body] - > - EF -> - -2EL EWQ[\#ou] -EX |
