1 files changed, 130 insertions, 0 deletions
diff --git a/doc/tedoc.tes.in b/doc/tedoc.tes.in
new file mode 100755
index 0000000..cc4f726
--- /dev/null
+++ b/doc/tedoc.tes.in
@@ -0,0 +1,130 @@
+#!/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