diff options
author | Werner LEMBERG <wl@gnu.org> | 2007-03-15 20:29:44 +0000 |
---|---|---|
committer | Werner LEMBERG <wl@gnu.org> | 2007-03-15 20:29:44 +0000 |
commit | 181803024b3cc4a25f31054e37f5539c3d7da0ad (patch) | |
tree | 493a38f558aabff2bc310599d06149f5a436c25c /tmac/trace.tmac | |
parent | 489872952877ac3596cf7af6911476d38bbc9631 (diff) | |
download | groff-git-181803024b3cc4a25f31054e37f5539c3d7da0ad.tar.gz |
* tmac/trace.tmac (als): Added.
(de, de1, am, am1): Make traced macros aliased with .als work.
Diffstat (limited to 'tmac/trace.tmac')
-rw-r--r-- | tmac/trace.tmac | 25 |
1 files changed, 17 insertions, 8 deletions
diff --git a/tmac/trace.tmac b/tmac/trace.tmac index e783b676d..b4ec424a5 100644 --- a/tmac/trace.tmac +++ b/tmac/trace.tmac @@ -57,8 +57,8 @@ . ie "\$1"\\$0" .do tm1 "\\*[!!!sp]*** de trace enter: \\*[!!!br]\\$0 \\$@ . el .do tm1 "\\*[!!!sp]*** de trace enter \$1: \\*[!!!br]\\$0 \\$@ . do !!as !!!sp " \" -. do ie \\n[.br] .do !!\$1 \\$@ -. el 'do !!\$1 \\$@ +. do ie \\n[.br] .do !!\\$0 \\$@ +. el 'do !!\\$0 \\$@ . do !!substring !!!sp 1 . do ie \\n[.br] .!!ds !!!br .\" . el .do !!ds !!!br '\" @@ -82,8 +82,8 @@ . ie "\$1"\\$0" .do tm1 "\\*[!!!sp]*** de1 trace enter: \\*[!!!br]\\$0 \\$@ . el .do tm1 "\\*[!!!sp]*** de1 trace enter \$1: \\*[!!!br]\\$0 \\$@ . do !!as !!!sp " \" -. do ie \\n[.br] .do !!\$1 \\$@ -. el 'do !!\$1 \\$@ +. do ie \\n[.br] .do !!\\$0 \\$@ +. el 'do !!\\$0 \\$@ . do !!substring !!!sp 1 . do ie \\n[.br] .!!ds !!!br .\" . el .do !!ds !!!br '\" @@ -110,8 +110,8 @@ . ie "\$1"\\$0" .do tm1 "\\*[!!!sp]*** am trace enter: \\*[!!!br]\\$0 \\$@ . el .do tm1 "\\*[!!!sp]*** am trace enter \$1: \\*[!!!br]\\$0 \\$@ . do !!as !!!sp " \" -. do ie \\n[.br] .do !!\$1 \\$@ -. el 'do !!\$1 \\$@ +. do ie \\n[.br] .do !!\\$0 \\$@ +. el 'do !!\\$0 \\$@ . do !!substring !!!sp 1 . do ie \\n[.br] .!!ds !!!br .\" . el .do !!ds !!!br '\" @@ -135,8 +135,8 @@ . ie "\$1"\\$0" .do tm1 "\\*[!!!sp]*** am1 trace enter: \\*[!!!br]\\$0 \\$@ . el .do tm1 "\\*[!!!sp]*** am1 trace enter \$1: \\*[!!!br]\\$0 \\$@ . do !!as !!!sp " \" -. do ie \\n[.br] .do !!\$1 \\$@ -. el 'do !!\$1 \\$@ +. do ie \\n[.br] .do !!\\$0 \\$@ +. el 'do !!\\$0 \\$@ . do !!substring !!!sp 1 . do ie \\n[.br] .!!ds !!!br .\" . el .do !!ds !!!br '\" @@ -165,6 +165,15 @@ . tm1 "\*[!!!sp]*** .substring \$* (-> `\*[\$1]') .. . +.rn als !!als +. +.!!de1 als +. !!als \$1 \$2 +. if d !!\$2 \ +. !!als !!\$1 !!\$2 +. tm1 "\*[!!!sp]*** .als \$1 \$2 +.. +. .ec . .cp \n(_C |