From 0ae0a650c2ef82dc9f9c26c58ce8fbb5be89da07 Mon Sep 17 00:00:00 2001 From: wlemb Date: Tue, 3 Jul 2001 10:08:06 +0000 Subject: * tmac/doc-common, tmac/doc.tmac (doc-display-ft-stack, doc-display-ps-stack): Implement font and font size stack for displays. --- ChangeLog | 8 +++++++- tmac/doc-common | 2 ++ tmac/doc.tmac | 32 ++++++++++++++++++++++++++++---- 3 files changed, 37 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index e77d20a6..aef91186 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2001-04-18 Ruslan Ermilov + + * tmac/doc-common, tmac/doc.tmac (doc-display-ft-stack, + doc-display-ps-stack): Implement font and font size stack for + displays. + 2001-07-02 Werner LEMBERG * REVISION: Increased to 2. @@ -7,7 +13,7 @@ beginning of a line. * src/groff/grog/grog.sh: Ditto. -2001-06-29 Peter Marquardt +2001-06-29 Peter Marquardt * src/preproc/eqn/neqn.sh: Put `export' keyword in a new line to make it portable. diff --git a/tmac/doc-common b/tmac/doc-common index 8e788ebd..d19a795f 100644 --- a/tmac/doc-common +++ b/tmac/doc-common @@ -918,6 +918,8 @@ . tm doc-display-indent-stack\n[doc-reg-Rd] == \n[doc-display-indent-stack\n[doc-reg-Rd]] . tm doc-display-ad-stack\n[doc-reg-Rd] == \n[doc-display-ad-stack\n[doc-reg-Rd]] . tm doc-display-fi-stack\n[doc-reg-Rd] == \n[doc-display-fi-stack\n[doc-reg-Rd]] +. tm doc-display-ft-stack\n[doc-reg-Rd] == \n[doc-display-ft-stack\n[doc-reg-Rd]] +. tm doc-display-ps-stack\n[doc-reg-Rd] == \n[doc-display-ps-stack\n[doc-reg-Rd]] . nr doc-reg-Rd +1 . \} . diff --git a/tmac/doc.tmac b/tmac/doc.tmac index 74661939..9b61bdc4 100644 --- a/tmac/doc.tmac +++ b/tmac/doc.tmac @@ -2583,6 +2583,24 @@ .nr doc-display-fi-stack0 0 . . +.\" NS doc-display-ft-stackXXX global register +.\" NS stack of saved fonts +.\" NS +.\" NS limit: +.\" NS doc-display-depth +. +.nr doc-display-ft-stack0 0 +. +. +.\" NS doc-display-ps-stackXXX global register +.\" NS stack of saved font sizes +.\" NS +.\" NS limit: +.\" NS doc-display-depth +. +.nr doc-display-ps-stack0 0 +. +. .\" NS Bd user macro .\" NS begin display .\" NS @@ -2594,6 +2612,8 @@ .\" NS doc-display-depth .\" NS doc-display-ad-stackXXX .\" NS doc-display-fi-stackXXX +.\" NS doc-display-ft-stackXXX +.\" NS doc-display-ps-stackXXX .\" NS doc-display-file .\" NS doc-display-indent-stackXXX .\" NS doc-display-type-stackXXX @@ -2623,8 +2643,8 @@ . . ie "\$1"-literal" \{\ . ds doc-display-type-stack\n[doc-display-depth] literal -. nr doc-curr-font \n[.f] -. nr doc-curr-size \n[.ps] +. nr doc-display-ft-stack\n[doc-display-depth] \n[.f] +. nr doc-display-ps-stack\n[doc-display-depth] \n[.ps] . . ie t \{\ . nop \*[doc-Li-font]\c @@ -2816,8 +2836,8 @@ . \} . . if "\*[doc-display-type-stack\n[doc-display-depth]]"literal" \{\ -. ft \n[doc-curr-font] -. ps \n[doc-curr-size]u +. ft \n[doc-display-ft-stack\n[doc-display-depth]] +. ps \n[doc-display-ps-stack\n[doc-display-depth]]u . \} . . in -\n[doc-display-indent-stack\n[doc-display-depth]]u @@ -3231,6 +3251,8 @@ . nr doc-display-indent-stack\n[doc-reg-dsgv]-saved \n[doc-display-indent-stack\n[doc-reg-dsgv]] . nr doc-display-ad-stack\n[doc-reg-dsgv]-saved \n[doc-display-ad-stack\n[doc-reg-dsgv]] . nr doc-display-fi-stack\n[doc-reg-dsgv]-saved \n[doc-display-fi-stack\n[doc-reg-dsgv]] +. nr doc-display-ft-stack\n[doc-reg-dsgv]-saved \n[doc-display-ft-stack\n[doc-reg-dsgv]] +. nr doc-display-ps-stack\n[doc-reg-dsgv]-saved \n[doc-display-ps-stack\n[doc-reg-dsgv]] . nr doc-reg-dsgv +1 . \} . @@ -3368,6 +3390,8 @@ . nr doc-display-indent-stack\n[doc-reg-drgv] \n[doc-display-indent-stack\n[doc-reg-drgv]-saved] . nr doc-display-ad-stack\n[doc-reg-drgv] \n[doc-display-ad-stack\n[doc-reg-drgv]-saved] . nr doc-display-fi-stack\n[doc-reg-drgv] \n[doc-display-fi-stack\n[doc-reg-drgv]-saved] +. nr doc-display-ft-stack\n[doc-reg-drgv] \n[doc-display-ft-stack\n[doc-reg-drgv]-saved] +. nr doc-display-ps-stack\n[doc-reg-drgv] \n[doc-display-ps-stack\n[doc-reg-drgv]-saved] . nr doc-reg-drgv +1 . \} . -- cgit v1.2.1