EX13: This example is used to generate typeset documentation which is discussed in the tutorial in the FunnelWeb user's manual. @A@ @t table_of_contents @A@ The following macro contain comments that provide moral support in the output code. @$@@M==@{ -- Shift to the left! -- Shift to the right! -- Pop up, push down! -- Byte! Byte! Byte! -- (From "The New Hacker's Dictionary"). @} The next macro is similar but is distributed throughout the program. @$@+=@{@+-- Pointer to the left@+@} @A@ @B@ @$@+=@{-- Pointer to the right@+@} @$@@Z==@{type stack = record ... end;@} @B@ @$@+=@{-- Hack that code@+@} @$@@Z==@{@- procedure push(var b:stack; v:value); @ {...}@} @B@ @$@+=@{-- Tight! Tight! Tight!@+@} @$@@Z==@{@- procedure pop(var b:stack); @ {...}@} @B@ @$@+=@{-- (RNW, 04-Jan-1991).@+@} @$@@Z==@{@- procedure rough(var b:stack); @ {...}@} @O@==@{dummy@+@}