gnu/dist/groff/tmac/troffrc

   1 .\" Startup file for troff.
   2 .
   3 .\" This is tested by pic.
   4 .nr 0p 0
   5 .
   6 .\" Load composite mappings.
   7 .do mso composite.tmac
   8 .
   9 .\" Use .do here, so that it works with -C.
  10 .\" The groff command defines the .X string if the -X option was given.
  11 .ie r.X .do ds troffrc!ps Xps.tmac
  12 .el .do ds troffrc!ps ps.tmac
  13 .do ds troffrc!dvi dvi.tmac
  14 .do ds troffrc!X75 X.tmac
  15 .do ds troffrc!X75-12 X.tmac
  16 .do ds troffrc!X100 X.tmac
  17 .do ds troffrc!X100-12 X.tmac
  18 .do ds troffrc!ascii tty.tmac
  19 .do ds troffrc!latin1 tty.tmac
  20 .do ds troffrc!utf8 tty.tmac
  21 .do ds troffrc!cp1047 tty.tmac
  22 .do ds troffrc!lj4 lj4.tmac
  23 .do ds troffrc!lbp lbp.tmac
  24 .do ds troffrc!html html.tmac
  25 .do if d troffrc!\*[.T] \
  26 .       do mso \*[troffrc!\*[.T]]
  27 .do rm troffrc!ps troffrc!Xps troffrc!dvi troffrc!X75 troffrc!X75-12 \
  28 troffrc!X100 troffrc!X100-12 troffrc!lj4 troff!lbp troffrc!html
  29 .
  30 .\" test whether we work under EBCDIC
  31 .do ie '\[char97]'a' \
  32 .       do tr \[char160]\~
  33 .el \
  34 .       do tr \[char65]\~
  35 .
  36 .\" Set the hyphenation language to `us'.
  37 .do hla us
  38 .
  39 .\" Load hyphenation patterns and exceptions.
  40 .do hpf hyphen.us
  41 .do hpfa hyphenex.us
  42 .
  43 .\" Handle paper formats
  44 .do mso papersize.tmac
  45 .
  46 .if n \{\
  47 .  nr _C \n(.C
  48 .  cp 0
  49 .
  50 .  \" The following code sets a top-of-page trap to disable grotty's TTY
  51 .  \" mode.  Since neither \X nor .output can be used before the first
  52 .  \" page has started, we must use a trap.  To make it work with troff's
  53 .  \" -o option, we wait until the first printed page.
  54 .
  55 .  de sgr@dummy
  56 .  .
  57 .
  58 .  rn wh wh@old
  59 .
  60 .  \" The stand-alone version.  If no other trap is set, we can safely
  61 .  \" insert the truncated vertical space caused by the trap (if any).
  62 .  \" Otherwise we assume that the document's main macro package takes
  63 .  \" care of that.  As soon as the trap has been executed, it is removed.
  64 .  de1 no@sgr
  65 .    if \\n[.P] \{\
  66 .      if (\\n[.t] == \\n[.p]) \{\
  67 .        rn wh@old wh
  68 .        rm no@sgr
  69 .        wh 0
  70 .        sp \\n[.trunc]
  71 .        nop \X'tty: sgr 0'
  72 .        sp -1
  73 .    \}\}
  74 .  .
  75 .
  76 .  wh@old 0 no@sgr
  77 .
  78 .  \" The piggyback version to be appended to macros planted with the
  79 .  \" modified `wh' request.
  80 .  de1 no@sgr1
  81 .    if \\n[.P] \{\
  82 .      rn wh@old wh
  83 .      ds no@sgr1
  84 .      nop \X'tty: sgr 0'
  85 .      sp -1
  86 .    \}
  87 .  .
  88 .
  89 .  \" We redefine the `wh' request so that `no@sgr1' is appended to
  90 .  \" the trap macro.
  91 .  de1 wh
  92 .    am1 \\$2 sgr@dummy
  93 .      no@sgr1
  94 .    sgr@dummy
  95 .    wh@old \\$1 \\$2
  96 .  .
  97 .
  98 .  cp \n[_C]
  99 .\}
 100 .
 101 .\" Don't let blank lines creep in here.