TEACL is a fork of TECOC created for the purpose of describing diffs in a document being collaboratively edited
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

187 lines
4.5 KiB

! This TECO macro indents TECO code to help make it readable
It does NOT handle @-modified commands correctly or caret-preceeded commands.
Q-REGISTERS USED:
q-register usage
.a true if @-sign modified
.c (text) insert carriage return/line feed
.d true if numeric argument
.i (text) insert indenting spaces
i indenting level
!
[i
@^U.c/i
/27:^U.c
@^U.i/qi<i >/27:^U.i
27u.e
0ui
<
z-."e1;'
0u.a
0u.d
0u.s
!c!
0a"ecf<'
0a-^^^A"ecs^Am.cm.if<'
0a-^^^B"ec-1u.doc'
0a-^^^C"ecm.cm.if<'
0a-^^^D"ecm.cm.if<'
0a-^^^E"ec-1u.doc'
0a-^^^G"e2cm.cm.if<'
0a-8"ec-1u.doc'
0a-9"es^Eu.em.cm.if<'
0a-^^^N"ec-1u.doc'
0a-^^^O"ecm.cm.if<'
0a-^^^Q"ec-1u.doc'
0a-^^^R"ecq.d"tm.cm.if<|-1u.doc''
0a-^^^S"ec-1u.doc'
0a-^^^T"ecq.d"tm.cm.if<|-1u.doc''
0a-^^^U"es^Eu.em.cm.if<'
0a-^^^V"ecm.cm.if<'
0a-^^^W"ecm.cm.if<'
0a-^^^X"ecq.d"tm.cm.if<|-1u.doc''
0a-^^^Z"ec-1u.doc'
0a-27"ecm.cm.if<'
0a-^^!"ecs!m.cm.if<'
0a-^^""e2cm.c%im.if<'
0a-^^%"e2c-1u.doc'
0a-^^'"e-4dc-1%im.cm.if<'
0a-^^@"ec-1q.aoc'
0a-^^|"e-4dcm.cm.if<'
0a-^^."ec-1u.doc'
0a-^^;"ecm.cm.if<'
0a-^^<"e2cm.c%im.if<'
0a-^^>"ec-1%im.cm.if<'
0a-^^["e2cm.cm.if<'
0a-^^]"e2cm.cm.if<'
0a-47"g0a-58"lc-1u.doc'
0a-^^a"ecm.cm.if<'
0a-^^A"ecm.cm.if<'
0a-^^b"ec-1u.doc'
0a-^^B"ec-1u.doc'
0a-^^c"ecm.cm.if<'
0a-^^C"ecm.cm.if<'
0a-^^d"ecm.cm.if<'
0a-^^D"ecm.cm.if<'
0a-^^e"eoe'
0a-^^E"eoe'
0a-^^f"eof'
0a-^^F"eof'
0a-^^g"e2cm.cm.if<'
0a-^^G"e2cm.cm.if<'
0a-^^h"ecf<'
0a-^^H"ecf<'
0a-^^i"es^Eu.em.cm.if<'
0a-^^I"es^Eu.em.cm.if<'
0a-^^j"ecm.cm.if<'
0a-^^J"ecm.cm.if<'
0a-^^k"ecm.cm.if<'
0a-^^K"ecm.cm.if<'
0a-^^l"ecm.cm.if<'
0a-^^L"ecm.cm.if<'
0a-^^m"e2cm.cm.if<'
0a-^^M"e2cm.cm.if<'
0a-^^n"es^Eu.em.cm.if<'
0a-^^N"es^Eu.em.cm.if<'
0a-^^o"es^Eu.em.cm.if<'
0a-^^O"es^Eu.em.cm.if<'
0a-^^q"e2c-1u.doc'
0a-^^Q"e2c-1u.doc'
0a-^^r"ecm.cm.if<'
0a-^^R"ecm.cm.if<'
0a-^^s"es^Eu.em.cm.if<'
0a-^^S"es^Eu.em.cm.if<'
0a-^^t"ecm.cm.if<'
0a-^^T"ecm.cm.if<'
0a-^^u"e2cm.cm.if<'
0a-^^U"e2cm.cm.if<'
0a-^^v"ecm.cm.if<'
0a-^^V"ecm.cm.if<'
0a-^^w"ecm.cm.if<'
0a-^^W"ecm.cm.if<'
0a-^^x"e2cm.cm.if<'
0a-^^X"e2cm.cm.if<'
0a-^^y"ecm.cm.if<'
0a-^^Y"ecm.cm.if<'
0a-^^z"ec-1u.doc'
0a-^^Z"ec-1u.doc'
c
f<
!e!
c
0a-^^a"ecm.cm.if<'
0A-^^a"ecm.cm.if<'
0a-^^b"es^Eu.em.cm.if<'
0a-^^B"es^Eu.em.cm.if<'
0a-^^c"ecm.cm.if<'
0a-^^C"ecm.cm.if<'
0a-^^d"ecq.d"tm.cm.if<|-1u.doc''
0a-^^D"ecq.d"tm.cm.if<|-1u.doc''
0a-^^f"ecm.cm.if<'
0a-^^F"ecm.cm.if<'
0a-^^g"es^Eu.em.cm.if<'
0a-^^G"es^Eu.em.cm.if<'
0a-^^h"ecq.d"tm.cm.if<|-1u.doc''
0a-^^H"ecq.d"tm.cm.if<|-1u.doc''
0a-^^i"es^Eu.em.cm.if<'
0a-^^I"es^Eu.em.cm.if<'
0a-^^j"ec-1u.doc''
0a-^^J"ec-1u.doc''
0a-^^k"ecm.cm.if<'
0a-^^K"ecm.cm.if<'
0a-^^n"es^Eu.em.cm.if<'
0a-^^N"es^Eu.em.cm.if<'
0a-^^o"ec-1u.doc''
0a-^^O"ec-1u.doc''
0a-^^p"ecm.cm.if<'
0a-^^P"ecm.cm.if<'
0a-^^q"ecm.cm.if<'
0a-^^Q"ecm.cm.if<'
0a-^^r"es^Eu.em.cm.if<'
0a-^^R"es^Eu.em.cm.if<'
0a-^^s"ecq.d"tm.cm.if<|-1u.doc''
0a-^^S"ecq.d"tm.cm.if<|-1u.doc''
0a-^^t"ecq.d"tm.cm.if<|-1u.doc''
0a-^^T"ecq.d"tm.cm.if<|-1u.doc''
0a-^^u"ecq.d"tm.cm.if<|-1u.doc''
0a-^^U"ecq.d"tm.cm.if<|-1u.doc''
0a-^^v"ecq.d"tm.cm.if<|-1u.doc''
0a-^^V"ecq.d"tm.cm.if<|-1u.doc''
0a-^^w"es^Eu.em.cm.if<'
0a-^^W"es^Eu.em.cm.if<'
0a-^^x"ecm.cm.if<'
0a-^^X"ecm.cm.if<'
c
f<
!f!
c
0a-^^'"ecm.cm.if<'
0a-^^<"ecm.cm.if<'
0a-^^>"ecm.cm.if<'
0a-^^|"ecm.cm.if<'
0a-^^b"es^Eu.em.cm.if<'
0a-^^B"es^Eu.em.cm.if<'
0a-^^c"es^Eu.es^Eu.em.cm.if<'
0a-^^C"es^Eu.es^Eu.em.cm.if<'
0a-^^d"es^Eu.em.cm.if<'
0a-^^D"es^Eu.em.cm.if<'
0a-^^n"es^Eu.es^Eu.em.cm.if<'
0a-^^N"es^Eu.es^Eu.em.cm.if<'
0a-^^r"es^Eu.em.cm.if<'
0a-^^R"es^Eu.em.cm.if<'
0a-^^s"es^Eu.es^Eu.em.cm.if<'
0a-^^S"es^Eu.es^Eu.em.cm.if<'
0a-^^_"es^Eu.es^Eu.em.cm.if<'
c
>
[i