Re: [Groff] _Unix Text Processing_ Fails to Build.

[Ralph Corderoy]

Hi,

Werner wrote:
> But `@' works:
> 
>   mv ch09.t ch09.t.orig
>   sed 's/`/@/g' < ch09.t.orig > ch09.t
> 
> and it seems that after this fix UTP compiles just fine.

Agreed.  I get some warnings from awk too.

Larry, attached are two patches:  the first is Werner's sed, though I
read through the diffs to look for unintended changes;  the second stops
awk warning about toc.awk's undefined string escapes.

BTW, is page.awk used?

Cheers, Ralph.

===================================================================
RCS file: RCS/ch09.t,v
retrieving revision 1.1
diff -u -r1.1 ch09.t
--- ch09.t      2013/01/06 19:04:15     1.1
+++ ch09.t      2013/01/06 19:12:58
@@ -7,7 +7,7 @@
 .so utp.mac
 .utp
 .EQ
-delim ``
+delim @@
 .EN
 .Se 9 "Typesetting Equations with \f[CB]eqn\fP" "Chapter" 1
 .LP
@@ -23,7 +23,7 @@
 sum from i=0 to {inf} c sup i = lim from {m -> inf} {sum
 from i=0 to {m} c sup i}
 .EN
-requires three special characters (`sum`, `inf`, and `->`)
+requires three special characters (@sum@, @inf@, and @->@)
 and roman and italic characters in two different sizes.
 Expressions also may require horizontal and vertical
 printing motions (as in subscripts and superscripts).
@@ -86,10 +86,10 @@
 .ix Greek characters
 .ix [eqn] preprocessor, Greek~alphabet %key eqn preprocessor, Greek alphabet
 .Li
-special symbols, such as summations (`size 8 sum`),
+special symbols, such as summations (@size 8 sum@),
 .ix [eqn] preprocessor, special character~names %key eqn preprocessor, special 
character names
-products (`size 8 prod`),integrals (`size 8 int`),
-and square roots (`sqrt ""`)
+products (@size 8 prod@),integrals (@size 8 int@),
+and square roots (@sqrt ""@)
 .Li
 positional notation, such as subscripts and
 superscripts, fractions, matrices, and vertical piles
@@ -394,7 +394,7 @@
 ..
 .Ps
 \f[R]The possible prices of an ice cream cone in cents are
-`y sub 1 = 75`, `y sub 2 = 85`, and `y sub 3 = 95`.\fP
address@hidden sub 1 = 75@, @y sub 2 = 85@, and @y sub 3 = address@hidden
 .Pe
 The
 .CW eqn
@@ -526,8 +526,8 @@
 ..
 .ne 2
 .Ps
-`x sub 1`          `+x sub 2`     `+s sub 1`     `=10`
-`-2x sub 1`                `+s sub 1`     `=42`
address@hidden sub 1@          @+x sub 2@     @+s sub 1@     @=10@
address@hidden sub 1@                @+s sub 1@     @=42@
 .Pe
 (Note that each equation must have its own pair of
 .CW .EQ /\c
@@ -738,10 +738,10 @@
 .ix [eqn] preprocessor, Greek~alphabet %key eqn preprocessor, Greek alphabet
 For example,
 .CW delta
-produces `delta`, and
+produces @delta@, and
 .CW DELTA
-gives `DELTA`.
-Thus, you only need to spell out the character `pi`, as in:
+gives @address@hidden
+Thus, you only need to spell out the character @pi@, as in:
 .Ps
 #pi r sup 2#
 .Pe
@@ -765,160 +765,160 @@
 T{
 DELTA
 T}     T{
-`DELTA`
address@hidden@
 T}     T{
 iota
 T}     T{
-`iota`
address@hidden@
 T}
 T{
 GAMMA
 T}     T{
-`GAMMA`
address@hidden@
 T}     T{
 kappa
 T}     T{
-`kappa`
address@hidden@
 T}
 T{
 LAMBDA
 T}     T{
-`LAMBDA`
address@hidden@
 T}     T{
 lambda
 T}     T{
-`lambda`
address@hidden@
 T}
 T{
 OMEGA
 T}     T{
-`OMEGA`
address@hidden@
 T}     T{
 mu
 T}     T{
-`mu`
address@hidden@
 T}
 T{
 PHI
 T}     T{
-`PHI`
address@hidden@
 T}     T{
 nu
 T}     T{
-`nu`
address@hidden@
 T}
 T{
 PI
 T}     T{
-`PI`
address@hidden@
 T}     T{
 omega
 T}     T{
-`omega`
address@hidden@
 T}
 T{
 PSI
 T}     T{
-`PSI`
address@hidden@
 T}     T{
 omicron
 T}     T{
-`omicron`
address@hidden@
 T}
 T{
 SIGMA
 T}     T{
-`SIGMA`
address@hidden@
 T}     T{
 phi
 T}     T{
-`phi`
address@hidden@
 T}
 T{
 THETA
 T}     T{
-`THETA`
address@hidden@
 T}     T{
 pi
 T}     T{
-`pi`
address@hidden@
 T}
 T{
 UPSILON
 T}     T{
-`UPSILON`
address@hidden@
 T}     T{
 psi
 T}     T{
-`psi`
address@hidden@
 T}
 T{
 XI
 T}     T{
-`XI`
address@hidden@
 T}     T{
 rho
 T}     T{
-`rho`
address@hidden@
 T}
 T{
 alpha
 T}     T{
-`alpha`
address@hidden@
 T}     T{
 sigma
 T}     T{
-`sigma`
address@hidden@
 T}
 T{
 beta
 T}     T{
-`beta`
address@hidden@
 T}     T{
 tau
 T}     T{
-`tau`
address@hidden@
 T}
 T{
 chi
 T}     T{
-`chi`
address@hidden@
 T}     T{
 theta
 T}     T{
-`theta`
address@hidden@
 T}
 T{
 delta
 T}     T{
-`delta`
address@hidden@
 T}     T{
 upsilon
 T}     T{
-`upsilon`
address@hidden@
 T}
 T{
 epsilon
 T}     T{
-`epsilon`
address@hidden@
 T}     T{
 xi
 T}     T{
-`xi`
address@hidden@
 T}
 T{
 eta
 T}     T{
-`eta`
address@hidden@
 T}     T{
 zeta
 T}     T{
-`zeta`
address@hidden@
 T}
 T{
 gamma
 T}     T{
-`gamma`
address@hidden@
 T}     T{
 T}
 .TE
@@ -970,16 +970,16 @@
 T{
 >=
 T}     T{
-`>=`
+@>=@
 T}     T{
 approx
 T}     T{
-`approx`
address@hidden@
 T}
 T{
 <=
 T}     T{
-`<=`
+@<=@
 T}     T{
 nothing
 T}     T{
@@ -987,101 +987,101 @@
 T{
 ==
 T}     T{
-`==`
address@hidden@
 T}     T{
 cdot
 T}     T{
-`cdot`
address@hidden@
 T}
 T{
 !=
 T}     T{
-`!=`
address@hidden@
 T}     T{
 times
 T}     T{
-`times`
address@hidden@
 T}
 T{
 +-
 T}     T{
-`+-`
address@hidden@
 T}     T{
 del
 T}     T{
-`del`
address@hidden@
 T}
 T{
 ->
 T}     T{
-`->`
address@hidden>@
 T}     T{
 grad
 T}     T{
-`grad`
address@hidden@
 T}
 T{
 <-
 T}     T{
-`<-`
+@<-@
 T}     T{
 \&...
 T}     T{
-`...`
address@hidden@
 T}
 T{
 <<
 T}     T{
-`<<`
+@<<@
 T}     T{
 ,...,
 T}     T{
-`,...,`
+@,...,@
 T}
 T{
 >>
 T}     T{
-`>>`
+@>>@
 T}     T{
 sum
 T}     T{
-`sum`
address@hidden@
 T}
 T{
 inf
 T}     T{
-`inf`
address@hidden@
 T}     T{
 int
 T}     T{
-`int`
address@hidden@
 T}
 T{
 partial
 T}     T{
-`partial`
address@hidden@
 T}     T{
 prod
 T}     T{
-`prod`
address@hidden@
 T}
 T{
 half
 T}     T{
-`half`
address@hidden@
 T}     T{
 union
 T}     T{
-`union`
address@hidden@
 T}
 T{
 prime
 T}     T{
-`prime`
address@hidden@
 T}     T{
 inter
 T}     T{
-`inter`
address@hidden@
 T}
 .TE
 .Te
@@ -1401,14 +1401,14 @@
 .RS
 .TS
 lf(CW)7 l.
-bar    `x bar`
-under  `x under`
-dot    `x dot`
-dotdot `x dotdot`
-hat    `x hat`
-tilde  `x tilde`
-vec    `x vec`
-dyad   `x dyad`
+bar    @x bar@
+under  @x under@
+dot    @x dot@
+dotdot @x dotdot@
+hat    @x hat@
+tilde  @x tilde@
+vec    @x vec@
+dyad   @x dyad@
 .TE
 .RE
 The following examples show how these keywords are used:
@@ -1649,25 +1649,25 @@
 .TS
 lw (1i) l l.
 T{
-`a sub 1 + a sub 2`
address@hidden sub 1 + a sub 2@
 T}     T{
-`+ x sub 1 + x sub 2`
address@hidden x sub 1 + x sub 2@
 T}     T{
-`=34`
address@hidden@
 T}
 T{
-`2a sub 1`
address@hidden sub 1@
 T}     T{
-`+ 4a sub 2`
address@hidden 4a sub 2@
 T}     T{
-`=28`
address@hidden@
 T}
 T{
-`3a sub 1`
address@hidden sub 1@
 T}     T{
-`+ 4x sub 2`
address@hidden 4x sub 2@
 T}     T{
-`=56`
address@hidden@
 T}
 .TE
 .RE
@@ -1763,11 +1763,11 @@
 .RS
 .TS
 lf(CW)p9 7 l.
-#bold qP#      `bold qP`
-#roman alpha\(apbeta#  `roman alpha~beta`
-#fat half#     `fat half`
-#size +3 x =y# `size +3 x =y`
-#size 8 {A + B}#       `size 8 {A + B}`
+#bold qP#      @bold qP@
+#roman alpha\(apbeta#  @roman alpha~beta@
+#fat half#     @fat half@
+#size +3 x =y# @size +3 x =y@
+#size 8 {A + B}#       @size 8 {A + B}@
 .TE
 .RE
 If the entire paper is to be typeset in a nonstandard size or

===================================================================
RCS file: RCS/toc.awk,v
retrieving revision 1.1
diff -u -r1.1 toc.awk
--- toc.awk     2013/01/06 19:13:08     1.1
+++ toc.awk     2013/01/06 19:14:18
@@ -14,16 +14,16 @@
 /^Se:/ {
                        if ( $4 == "Contents" )
                                next;
-                       gsub(/\\f\(CW/, "\\f\(CB" );
-                       gsub(/\\f\[CW\]/, "\\f\[CB\]" );
-                       gsub(/\\fC/, "\\f\[CB\]" );
+                       gsub(/\\f\(CW/, "\\f(CB" );
+                       gsub(/\\f\[CW\]/, "\\f[CB]" );
+                       gsub(/\\fC/, "\\f[CB]" );
                        print ".ps 12\n.sp";
                        print $3"\\h'|.25i'\\fB"$4"\\fR "$2;
                        print ".ps 10\n.sp";
                }
 /^Ah:/ {
-                       gsub(/\\f\(CB/, "\\f\(CW" );
-                       gsub(/\\f\[CB\]/, "\\f\[CW\]" );
+                       gsub(/\\f\(CB/, "\\f(CW" );
+                       gsub(/\\f\[CB\]/, "\\f[CW]" );
                        print "\\h'|.25i'"$3"
"$2;
                }
 # default (skip index entries)