188 lines
4.5 KiB
Plaintext
188 lines
4.5 KiB
Plaintext
! 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
|
||
|
||
|