home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.2J / os42j.iso / usr / bin / psroff < prev    next >
Text File  |  1997-04-25  |  2KB  |  74 lines
  1. #! /bin/sh
  2. # sh/psroff.bsd
  3. # Copyright 1985,1987 Adobe Systems Incorporated. All rights reserved.
  4. # GOVERNMENT END USERS: See notice of rights in Notice file in TranScript
  5. # library directory -- probably /usr/lib/ps/Notice
  6. # RCSID: $Header: /disks/hobo/vp6/snichols/rel3.0/transcript/sh/RCS/psroff.bsd,v 3.0 1991/06/17 17:29:09 snichols Exp $
  7. #
  8. # run ditroff in an environment to print on a PostScript printer
  9. #
  10. # psroff - ditroff | psdit [| lpr]
  11. #
  12. PATH=/bin:/usr/bin:$PATH       # Make sure we get system programs.
  13. export PATH
  14.  
  15. ditroff=ditroff
  16. psdit=psdit
  17.  
  18. # NeXT: Since it is so common not to have ditroff, we check first.
  19. if test x`which $ditroff | sed -e "s%^no .*%%"` = x; then
  20. echo ditroff is not present.
  21. echo It is not a standard part of the NeXT software distribution.
  22. echo You might try using ptroff.
  23. exit 1
  24. fi
  25.  
  26. nospool= dopt= fil= spool= dit=
  27. printer=-P${PRINTER-PostScript}
  28. family=Times
  29. fontdir=/Net/mamiya/BinCache3/transcript/Roots/transcript-15.root~40/RC_m68k/usr/lib/transcript/ditroff.font
  30. while test $# != 0
  31. do    case "$1" in
  32.     -t)    nospool=1 ;;
  33.     -Tpsc)    ;;
  34.     -T*)    echo only -Tpsc is valid 1>&2 ; exit 2 ;;
  35.     -F)    if test "$#" -lt 2 ; then
  36.             echo '-F takes following font family name' 1>&2
  37.             exit 1 
  38.         fi
  39.         family=$2 ; shift ;;
  40.     -F*)    echo 'use -F familyname' 1>&2 ;
  41.         exit 1 ;;
  42.     -D)    if test "$#" -lt 2 ; then
  43.             echo '-D takes following font directory' 1>&2
  44.             exit 1 
  45.         fi
  46.         fontdir=$2 ; shift ;;
  47.     -D*)    echo 'use -D fontdirectory' 1>&2 ;
  48.         exit 1 ;;
  49.     -#*|-h|-m)    spool="$spool $1" ;;
  50.     -P*)    printer=$1 ;;
  51.     -C)    spool="$spool $1 $2" ; shift ;;
  52.     -J)    spool="$spool $1 $2" ; jobname=$2 ; shift ;;
  53.     -)    fil="$fil $1" ;;
  54.     -*)    dopt="$dopt $1" ;;
  55.     *)    fil="$fil $1" ; jobname=${jobname-$1} ;;
  56.     esac
  57.     shift
  58. done
  59. if test "$jobname" = "" ; then
  60.     spool="-J Ditroff $spool"
  61. fi
  62. spool="lpr $printer $spool"
  63. if test "$fil" = "" ; then
  64.     fil="-"
  65. fi
  66. dit="$ditroff -Tpsc -t -F$fontdir/$family $dopt $fil "
  67. psdit="$psdit -F$fontdir/$family"
  68.  
  69. if test "$nospool" = "1" ; then
  70.     $dit | $psdit
  71. else
  72.     $dit | $psdit | $spool
  73. fi
  74.