home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / unix / volume26 / ltroff / patch01 < prev    next >
Encoding:
Text File  |  1993-07-15  |  3.2 KB  |  147 lines
  1. Newsgroups: comp.sources.unix
  2. From: ado@elsie.nci.nih.gov (Arthur David Olson)
  3. Subject: v26i297: ltroff - troff-classic to laserjet 4 filter (incl scalable fonts), Patch01
  4. Sender: unix-sources-moderator@gw.home.vix.com
  5. Approved: vixie@gw.home.vix.com
  6.  
  7. Submitted-By: ado@elsie.nci.nih.gov (Arthur David Olson)
  8. Posting-Number: Volume 26, Issue 297
  9. Archive-Name: ltroff/patch01
  10.  
  11. [ I changed the diffs a bit to make it apply using "patch". --vix ]
  12.  
  13. Am I abashed!  Of all the files to be missing from the distribution,
  14. it was "ltroff.sh", the driver script.  The right stuff, along with
  15. an updated Makefile, is attached.
  16.  
  17. My apologies.
  18.  
  19.                 --ado
  20.  
  21. SCCS/s.Makefile: 4.1 vs. 4.2
  22. *** Makefile    Fri Jul 16 12:27:39 1993
  23. --- Makefile    Fri Jul 16 12:27:39 1993
  24. ***************
  25. *** 1,4 ****
  26. ! # @(#)Makefile    4.1
  27.   
  28.   #    XXX--correct "or" character
  29.   #    XXX--better width tables
  30. --- 1,4 ----
  31. ! # @(#)Makefile    4.2
  32.   
  33.   #    XXX--correct "or" character
  34.   #    XXX--better width tables
  35. ***************
  36. *** 106,111 ****
  37. --- 106,112 ----
  38.               $(MANS) \
  39.               testfile \
  40.               Makefile \
  41. +             ltroff.sh \
  42.               $(HEADERS) \
  43.               $(SOURCES) \
  44.               $(COMMON) \
  45. SCCS/s.ltroff.sh: 4.1 vs. 4.2
  46. *** /dev/null    Fri Jul 16 12:27:40 1993
  47. --- ltroff.sh    Fri Jul 16 12:27:40 1993
  48. ***************
  49. *** 0 ****
  50. --- 1,96 ----
  51. + #! /bin/sh
  52. + 
  53. + : '@(#)ltroff.sh    4.2'
  54. + 
  55. + : To match the behavior of old troff, we must not use getopt.
  56. + 
  57. + libdir=LIBDIR
  58. + datadir=DATADIR
  59. + 
  60. + cart=default
  61. + tflag=0
  62. + mx=
  63. + 
  64. + if [ -r $libdir/troffflags ]
  65. + then
  66. +     troffflags=`cat $libdir/troffflags`" $troffflags"
  67. + else
  68. +     troffflags=
  69. + fi
  70. + 
  71. + while :
  72. + do
  73. +     case $# in
  74. +         0)    break ;;
  75. +     esac
  76. +     case $1 in
  77. +         --)    shift ; break ;;
  78. +         -)    break ;;
  79. +         -t)    tflag=1 ; shift ;;
  80. +         -c?*)    cart=`expr "$1" : '..\(.*\)'` ; shift ;;
  81. +         -c)    O=`basename $0`
  82. +             echo "$O: wild cartridgeless -c option" >&2
  83. +             exit 1 ;;
  84. +         -m*)    maybe=$libdir/tmac/tmac.`expr "$1" : '..\(.*\)'`
  85. +             if [ -f "$maybe" ]
  86. +             then
  87. +                 mx="$maybe"
  88. +             else
  89. +                 troffflags="$troffflags $1"
  90. +             fi
  91. +             shift ;;
  92. +         -*)    troffflags="$troffflags $1" ; shift ;;
  93. +         *)    break ;;
  94. +     esac
  95. + done
  96. + 
  97. + case $#$1 in
  98. +     0)  set x - ; shift ;;
  99. +     1=) O=`basename $0`
  100. +         echo "$O: usage is $O [-ccartridge] [troff flag...] [file...]" >&2
  101. +         exit 1 ;;
  102. + esac
  103. + 
  104. + case $cart in
  105. +     /*)    ;;
  106. +     *)    cart=$datadir/$cart ;;
  107. + esac
  108. + 
  109. + : The ftXX is a workaround for a 4.3BSD troff bug;
  110. + : the -rv1 avoids cut marks being spit out when using -ms.
  111. + 
  112. + front='/usr/bin/troff -f -t -rv1 -F$cart/ftXX $troffflags $mx $datadir/tmac "$@"'
  113. + 
  114. + case $tflag in
  115. +     1)    eval $front ;;        # So "lpr -t" will work later.
  116. +     0)    if [ ! -f $libdir/lj4kermhosts ]
  117. +         then
  118. +             eval $front |
  119. +                 lpr -t -1 $cart/R -2 $cart/I \
  120. +                     -3 $cart/B -4 $cart/S
  121. +             break
  122. +         fi
  123. +         case $REMOTE in
  124. +             "")    REMOTE=`who am i |
  125. +                     sed -n 's/.*(\([^.)]*\).*/\1/p'` ;;
  126. +         esac
  127. +         if fgrep -s -x -e "$REMOTE" $libdir/lj4kermhosts
  128. +         then
  129. +             eval $front | (
  130. +                 awk 'BEGIN {
  131. +                     printf "%cE%c[5i",27,27
  132. +                     exit
  133. +                 }'
  134. +                 tlc $cart
  135. +                 awk 'BEGIN {
  136. +                     printf "%cE%c[4i",27,27
  137. +                     exit
  138. +                 }'
  139. +             )
  140. +         else
  141. +             eval $front |
  142. +                 lpr -t -1 $cart/R -2 $cart/I \
  143. +                     -3 $cart/B -4 $cart/S
  144. +         fi
  145. +         ;;
  146. + esac
  147.