contrib/tzcode/workman.sh

   1 #! /bin/sh
   2
   3 # This file is in the public domain, so clarified as of
   4 # 2009-05-17 by Arthur David Olson.
   5
   6 # Tell groff not to emit SGR escape sequences (ANSI color escapes).
   7 GROFF_NO_SGR=1
   8 export GROFF_NO_SGR
   9
  10 echo ".am TH
  11 .hy 0
  12 .na
  13 ..
  14 .rm }H
  15 .rm }F" | nroff -man - ${1+"$@"} | perl -ne '
  16         binmode STDIN, '\'':encoding(utf8)'\'';
  17         binmode STDOUT, '\'':encoding(utf8)'\'';
  18         chomp;
  19         s/.\010//g;
  20         s/\s*$//;
  21         if (/^$/) {
  22                 $sawblank = 1;
  23                 next;
  24         } else {
  25                 if ($sawblank && $didprint) {
  26                         print "\n";
  27                         $sawblank = 0;
  28                 }
  29                 print "$_\n";
  30                 $didprint = 1;
  31         }
  32 '