tmac/trace.tmac

   1 .\" trace.tmac
   2 .\"
   3 .\" Load this before a macro package that you want to trace.
   4 .
   5 .nr _C \n(.C
   6 .cp 0
   7 .
   8 .eo
   9 .
  10 .rn de !!de
  11 .
  12 .!!de de
  13 .  do ecs
  14 .  ec
  15 .  do !!de \$1
  16 .    ie "\$1"\\$0" .tm *** de trace enter: \\$0 \\$@
  17 .    el .tm *** de trace enter \$1: \\$0 \\$@
  18 .    do nop \\*[!!\$1]\\
  19 .    ie "\$1"\\$0" .tm *** trace exit: \\$0 \\$@
  20 .    el .tm *** trace exit \$1: \\$0 \\$@
  21 \..
  22 .
  23 .  do ds !!d1 !!\$1
  24 .  do ds !!d2 \$2
  25 .
  26 .  do ecr
  27 .  do dei !!d1 !!d2
  28 ..
  29 .
  30 .rn am !!am
  31 .
  32 .!!am am
  33 .  do ecs
  34 .  ec
  35 .  do !!am \$1
  36 .    ie "\$1"\\$0" .tm *** am trace enter: \\$0 \\$@
  37 .    el .tm *** am trace enter \$1: \\$0 \\$@
  38 .    do nop \\*[!!\$1]\\
  39 .    ie "\$1"\\$0" .tm *** trace exit: \\$0 \\$@
  40 .    el .tm *** trace exit \$1: \\$0 \\$@
  41 \..
  42 .
  43 .  do ds !!a1 !!\$1
  44 .  do ds !!a2 \$2
  45 .
  46 .  do ecr
  47 .  do ami !!a1 !!a2
  48 ..
  49 .
  50 .ec
  51 .
  52 .cp \n(_C
  53 .
  54 .\" EOF