BSD 4_4_Lite1 development

Work on file usr/src/contrib/dipress/doc/ditroff

Synthesized-from: CSRG/cd2/4.4BSD-Lite1

diff --git a/usr/src/contrib/dipress/doc/ditroff b/usr/src/contrib/dipress/doc/ditroff
new file mode 100644 (file)
index 0000000..f6290c4
--- /dev/null
+++ b/usr/src/contrib/dipress/doc/ditroff
@@ -0,0 +1,144 @@
+#! /bin/csh -f
+set troff = /usr/local/troff_p
+set dterm = (/usr/local/dterm -m -c)
+#! /bin/csh -f                 These three lines come from Makefile
+# set troff = /usr/local/troff_p
+# set dterm = (/usr/local/dterm -m -c)
+set typesetter = -Pip
+set lineprinter = -Pvx
+set type = -Tip
+if ($?PRINTER) then
+       set typesetter = -P$PRINTER
+       set lineprinter = -P$PRINTER
+       set type = -T$PRINTER
+endif
+if ($?TYPESETTER) then
+       set typesetter = -P$TYPESETTER
+       set type = -T$TYPESETTER
+endif
+set lpr = /usr/ucb/lpr
+umask 0
+set flags=() noglob files=() rv1=-rv1
+unset t
+top:
+       if ($#argv > 0) then
+               switch ($argv[1])
+               case -z:
+               case -a:
+                       set flags = ($flags $argv[1])
+               case -t:
+                       set t
+                       shift argv
+                       goto top
+               case -Pversatec:
+               case -Pvp:
+               case -W:
+                       set typesetter = -Pvp
+                       set type = -Tvp
+                       shift argv
+                       goto top
+               case -Pxerox:
+               case -Ppress:
+               case -Pdp:
+                       set typesetter = -Pdp
+                       set type = -Tdp
+                       shift argv
+                       goto top
+               case -Pipress2:
+               case -Pop:
+                       set typesetter = -Pop
+                       set type = -Tdp
+                       shift argv
+                       goto top
+               case -Pimagen:
+               case -Pip:
+               case -I:
+                       set typesetter = -Pip
+                       set type = -Tip
+                       shift argv
+                       goto top
+               case -Pimagen-cx:
+               case -P300:
+               case -Pcx:
+                       set typesetter = -Pcx
+                       set type = -Tcx
+                       shift argv
+                       goto top
+               case -Papple-lz:
+               case -Plazy:
+               case -Plz:
+                       set typesetter = -Plz
+                       set type = -Tpsc
+                       shift argv
+                       goto top
+               case -Paps:
+                       set typesetter = -Paps
+                       set type = -Taps
+                       shift argv
+                       goto top
+               case -Pter:
+                       set typesetter = -Pter
+                       set type = -Tter
+                       shift argv
+                       goto top
+               case -P*: 
+                       set typesetter = $argv[1]
+                       if ($?gottype) set type = $argv[1]
+                       shift argv
+                       goto top
+               case -T*: 
+                       set type = $argv[1]
+                       set gottype
+                       shift argv
+                       goto top
+               case -F*:
+                       set flags = ($flags $argv[1])
+                       shift argv
+                       goto top
+               case -:
+                       set files = ($files -)
+                       shift argv
+                       goto top
+               case -*:
+                       set flags = ($flags $argv[1])
+                       shift argv
+                       goto top
+               default:
+                       set files = ($files $argv[1])
+                       shift argv
+                       goto top
+               endsw
+       endif
+
+switch ($type)
+case -Tvp:
+       set rv1=""
+       breaksw
+case -Tlz:
+       set type = -Tpsc
+       breaksw
+case -Taps:
+       set troff=/usr/old/ditroff
+       set rv1="-rv2"
+       # incomplete, need to replace lpr
+       set t
+       breaksw
+endsw
+
+if ($#files > 0) then
+       set name = $files[1]
+else
+       set name = ditroff
+endif
+
+if ($?t) then
+    if ($typesetter == ter) then
+       $troff -Tter $rv1 $flags $files | $dterm
+    else
+       $troff $type $rv1 $flags $files
+    endif
+else if ($typesetter == ter) then
+    $troff -Tter $rv1 $flags $files | $dterm -L | $lpr $lineprinter -J$name
+else
+    $troff $type $rv1 $flags $files | $lpr $typesetter -n -J$name
+endif