diff options
author | wl <wl> | 2007-03-21 13:30:59 +0000 |
---|---|---|
committer | wl <wl> | 2007-03-21 13:30:59 +0000 |
commit | 2aa7033410e3da6e02fe5ce9d0a7ca08fe591a70 (patch) | |
tree | 760e2442fbbd148fafffc6bf5f7c955030162d5a /tmac/trace.tmac | |
parent | af7595efd5cd5806cf6696502a436fc73833da24 (diff) | |
download | groff-2aa7033410e3da6e02fe5ce9d0a7ca08fe591a70.tar.gz |
* tmac/trace.tmac (rn): Added.
(nr, ds, ds1, as, as1, substring): Restore escape character while
executing the macro.
(nr): Remove dead code.
* src/preproc/eqn/box.cpp (box::top_level): Use \E in string
definitions to make them traceable.
Diffstat (limited to 'tmac/trace.tmac')
-rw-r--r-- | tmac/trace.tmac | 29 |
1 files changed, 27 insertions, 2 deletions
diff --git a/tmac/trace.tmac b/tmac/trace.tmac index b4ec424a..69220255 100644 --- a/tmac/trace.tmac +++ b/tmac/trace.tmac @@ -14,10 +14,11 @@ .rn nr !!nr . .de nr -. do !!ds !!!inc \$2 -. do !!substring !!!inc 0 0 +. do ecs +. ec . do !!nr \$* . do tm1 "\*[!!!sp]*** .nr \$* (-> \n[\$1]) +. do ecr .. . .rn ds !!ds @@ -26,23 +27,35 @@ .rn as1 !!as1 . .de ds +. do ecs +. ec . do tm1 "\*[!!!sp]*** .ds \$^ . do !!ds \$^\" +. do ecr .. . .de ds1 +. do ecs +. ec . do tm1 "\*[!!!sp]*** .ds1 \$^ . do !!ds1 \$^\" +. do ecr .. . .de as +. do ecs +. ec . do tm1 "\*[!!!sp]*** .as \$^ . do !!as \$^\" +. do ecr .. . .de as1 +. do ecs +. ec . do tm1 "\*[!!!sp]*** .as1 \$^ . do !!as1 \$^\" +. do ecr .. . .rn de !!de @@ -161,8 +174,11 @@ .rn substring !!substring . .!!de1 substring +. do ecs +. ec . !!substring \$* . tm1 "\*[!!!sp]*** .substring \$* (-> `\*[\$1]') +. do ecr .. . .rn als !!als @@ -174,6 +190,15 @@ . tm1 "\*[!!!sp]*** .als \$1 \$2 .. . +.rn rn !!rn +. +.!!de1 rn +. !!rn \$1 \$2 +. if d !!\$1 \ +. !!rn !!\$1 !!\$2 +. tm1 "\*[!!!sp]*** .rn \$1 \$2 +.. +. .ec . .cp \n(_C |