tmac/trace.tmac

   1 .\" trace.tmac
   2 .\"
   3 .\" Load this before a macro package that you want to trace.
   4 .
   5 .eo
   6 .
   7 .rn de !!de
   8 .
   9 .!!de de
  10 .  ecs
  11 .  ec
  12 .  !!de \$1
  13 .    ie "\$1"\\$0" .tm *** trace enter: \\$0 \\$@
  14 .    el .tm *** trace enter \$1: \\$0 \\$@
  15 .    nop \\*[!!\$1]\\
  16 .    ie "\$1"\\$0" .tm *** trace exit: \\$0 \\$@
  17 .    el .tm *** trace exit \$1: \\$0 \\$@
  18 \..
  19 .
  20 .  ds !!d1 !!\$1
  21 .  ds !!d2 \$2
  22 .
  23 .  ecr
  24 .  dei !!d1 !!d2
  25 ..
  26 .
  27 .ec
  28 .
  29 .\" EOF