diff options
author | wl <wl> | 2007-03-15 20:29:43 +0000 |
---|---|---|
committer | wl <wl> | 2007-03-15 20:29:43 +0000 |
commit | b96938fd3a41bb07e0307ed2f839e7cfa5a7f86b (patch) | |
tree | 74b4fb7092091aa1b497dacebc6ac7aad2b804e9 /tmac/trace.tmac | |
parent | 8691d3804e1f44b74fd45761cd7c33be464e742c (diff) | |
download | groff-b96938fd3a41bb07e0307ed2f839e7cfa5a7f86b.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 e783b676..b4ec424a 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 |