freebsd-dev/contrib/groff/tmac/trace.tmac

62 lines
1.0 KiB
Plaintext
Raw Normal View History

2001-04-17 12:12:05 +00:00
.\" trace.tmac
.\"
.\" Load this before a macro package that you want to trace.
.
2002-10-11 08:52:17 +00:00
.nr _C \n(.C
.cp 0
.
.do ds !!sp " \"
.
2001-04-17 12:12:05 +00:00
.eo
.
.rn de !!de
.
2002-10-11 08:52:17 +00:00
.
2001-04-17 12:12:05 +00:00
.!!de de
2002-10-11 08:52:17 +00:00
. do ecs
2001-04-17 12:12:05 +00:00
. ec
2002-10-11 08:52:17 +00:00
. do !!de \$1
. ie "\$1"\\$0" .do tm1 "\\*[!!sp]*** de trace enter: \\$0 \\$@
. el .do tm1 "\*[!!sp]*** trace enter \$1: \\$0 \\$@
. do as !!sp " \"
. do nop \\*[!!\$1]\\
. do substring !!sp 1
. ie "\$1"\\$0" .do tm1 "\\*[!!sp]*** trace exit: \\$0 \\$@
. el .do tm1 "\*[!!sp]*** trace exit \$1: \\$0 \\$@
2001-04-17 12:12:05 +00:00
\..
.
2002-10-11 08:52:17 +00:00
. do ds !!d1 !!\$1
. do ds !!d2 \$2
2001-04-17 12:12:05 +00:00
.
2002-10-11 08:52:17 +00:00
. do ecr
. do dei !!d1 !!d2
..
.
.rn am !!am
.
.!!am am
. do ecs
. ec
. do !!am \$1
. ie "\$1"\\$0" .do tm1 "\\*[!!sp]*** am trace enter: \\$0 \\$@
. el .do tm1 "\*[!!sp]*** am trace enter \$1: \\$0 \\$@
. as !!sp " \"
. do nop \\*[!!\$1]\\
. substring !!sp 1
. ie "\$1"\\$0" .do tm1 "\\*[!!sp]*** trace exit: \\$0 \\$@
. el .do tm1 "\*[!!sp]*** trace exit \$1: \\$0 \\$@
\..
.
. do ds !!a1 !!\$1
. do ds !!a2 \$2
.
. do ecr
. do ami !!a1 !!a2
2001-04-17 12:12:05 +00:00
..
.
.ec
.
2002-10-11 08:52:17 +00:00
.cp \n(_C
.
2001-04-17 12:12:05 +00:00
.\" EOF