home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2022 / i2ps
Encoding:
Text File  |  1990-12-28  |  17.6 KB  |  545 lines
  1. #!/local/boeygen/bin/perl
  2. 'di';
  3. 'ig00';
  4.  
  5. # "i2ps" text to PostScript filter written in perl by Gisle Aas, NCC 1990
  6. # $Id: i2ps,v 1.7 90/10/30 16:54:46 aas Exp $
  7. #
  8. # Whish list:  (this may become a feature some time)
  9. #     Marking (by some funny char) truncation and wrapping of lines
  10. #     Faster execution (rewrite the hole thing in C?)
  11. #     Parsing of backspace to produce bold and underlined fonts.
  12.  
  13. #
  14. # $Log:    i2ps,v $
  15. # Revision 1.7  90/10/30  16:54:46  aas
  16. # Options can be specified with the environment variable I2PS.
  17. # New option -w.  Fixed bug which made -n option act like the -f
  18. # option.
  19. # 
  20. # Revision 1.6  90/10/24  12:00:43  aas
  21. # Applied patch from Tor Lillqvist. I2ps now supports finnish/swedish
  22. # ISO-646.
  23. # 
  24. # Revision 1.5  90/10/18  10:26:45  aas
  25. # Changed the name from a2ps to i2ps. Merged the manual-page with the
  26. # program. I2ps now rejects garbage files. I2ps was confused about what
  27. # to put in the header when some of the specified files did not exist.
  28. # Some minor spelling corrections.
  29. # 
  30. # Revision 1.4  90/10/01  15:57:46  aas
  31. # Simplify reencoding to ISO-Latin1. (newencode)
  32. # Fixed problem with showpage after page level restore. Graphic state
  33. # initialized on each page. Included the ISOLatin1Encoding-vector
  34. # in the script. Linenumber on last line when the -l option is used.
  35. # Linenumbers are moved to the left margin.
  36. # 
  37. # Revision 1.3  90/09/27  14:05:31  aas
  38. # Cleaned up the use of A4 variables.
  39. # 
  40. # Revision 1.2  90/09/27  13:18:31  aas
  41. # Removed sccs-stuff, replaced it with rcs-stuff.
  42. # 
  43.  
  44. # Some configuration constants, meassured in points (1/72 inch)
  45. sub page_top        { 841; }    # A4 = 297mm x 210mm = 841pt x 595pt
  46. sub page_right_edge { 595; }
  47. # Uncomment next line if your printer doesn't have iso encoding builtin.
  48. #$isoencoding_not_builtin = 1; #true
  49.  
  50. # The next few entries are from the AFM file for Adobe's font Courier
  51. sub cour_char_width     { 600; }   # The width of each char in 1000x1000 square
  52. #sub underline_position  { -82; }   # Where underline goes relative to baseline
  53. #sub underline_thickness {  40; }   # and it's thickness
  54.  
  55. # Parse command line for options and flags
  56. $prog_name = substr($0,rindex($0,"/")+1);
  57. ($upcase_name = $prog_name) =~ tr/a-z/A-Z/;
  58. unshift(@ARGV,$ENV{$upcase_name}) if defined($ENV{$upcase_name});
  59. require 'getopts.pl';
  60. unless (&Getopts('nfrth123s:b:lgw:')) {
  61.    print STDERR
  62.         "Usage: $prog_name [-<options>] [file]...\n" .
  63.         "Options: -l        print with line numbers\n" .
  64.         "         -r        rotated, landscape orientation\n" .
  65.         "         -t        truncate long lines, default is to wrap lines\n" .
  66.         "         -b\"text\"  replaces the text in the page header\n" .
  67.         "         -h        no page headers\n" .
  68.         "         -2        set text in two columns format\n" .
  69.         "         -3        set text in three columns format\n" .
  70.         "         -s<size>  select new text fontsize, default 10pt\n" .
  71.         "         -w<width> char positions per column\n" .
  72.         "         -g        don't reject garbage files\n" .
  73.         "         -n        norwegian 7bit-ascii encoding\n" .
  74.         "         -f        finnish/swedish 7bit-ascii encoding\n";
  75.    exit(1);
  76. }
  77.  
  78. if (defined($opt_s) && $opt_s <= 0) {
  79.    printf STDERR "Illegal argument \"$opt_s\" to -s option\n";
  80.    exit(1);
  81. }
  82. if (defined($opt_w) && $opt_w <= 0) {
  83.    printf STDERR "Illegal argument \"$opt_w\" to -w option\n";
  84.    exit(1);
  85. }
  86.  
  87. # Set default values, some based on command line options
  88. $left_margin  = 80;
  89. $right_margin = 40;
  90. $tb_margin    = 45;
  91. $font         = "Courier";
  92. $header_font  = "Helvetica-Bold";
  93. $header_font_size = 12;
  94. $line_number_font = "Helvetica";
  95. $line_number_size = 5;
  96.  
  97. $no_columns = defined($opt_2) ? 2 : defined($opt_3) ? 3 : 1;
  98. $col_separation = 30;
  99. $sep_bars = 0;  # false
  100. $landscape = defined($opt_r);
  101. $header_height = 30;
  102. $show_header = !defined($opt_h);
  103. $wrap_lines = !defined($opt_t);
  104. $truncate_lines = !$wrap_lines; # don't change this
  105. $norsk_ascii = defined($opt_n);
  106. $sw_fi_ascii = defined($opt_f);
  107.  
  108. # Some initial values
  109. $opt_b = &ps_string($opt_b) if ($opt_b);
  110. $form_feed = 0; # false;
  111. $page_no  = 0;
  112. $line_no = 0;
  113. if ($landscape) {
  114.     $top = &page_right_edge;
  115.     $right_edge = &page_top;
  116.     $left_margin = $right_margin; # this is a dirty one
  117. } else {
  118.     $top = &page_top;
  119.     $right_edge = &page_right_edge;
  120. }
  121. $home_pos = $top - $tb_margin - ($show_header ? $header_height : 0);
  122. $col_width = ($right_edge - $left_margin - $right_margin
  123.               - ($no_columns - 1) * $col_separation) / $no_columns;
  124. $font_size    = $opt_s || 10;
  125. if (defined($opt_w)) {
  126.     $font_size = ($col_width / $opt_w) / (&cour_char_width / 1000);
  127.     printf STDERR "New font size is %.2g points\n", $font_size;
  128. }
  129. $line_height = $font_size * 1.08;
  130. $char_width = &cour_char_width * $font_size / 1000;
  131. $chars_per_line = int ($col_width / $char_width + 1);
  132.  
  133. &prolog;
  134.  
  135. unshift(@ARGV,'-') if $#ARGV < $[;
  136. FILE:
  137. while ($FILEHAND = shift) {
  138.     unless (open(FILEHAND)) {
  139.         print STDERR "Can't open \"$FILEHAND\"\n";
  140.         next FILE;
  141.     }
  142.     if (!defined($opt_g) && -B FILEHAND) {
  143.         print STDERR "Skipping binary file \"$FILEHAND\"\n";
  144.         close(FILEHAND);
  145.         next FILE;
  146.     }
  147.     $file_name = ($FILEHAND eq '-') ? '' : &ps_string($FILEHAND);
  148.     $cur_pos = -1;     # this will force a new column next time
  149.     $cur_col = 100;    # this will force a new page next time
  150.     $line_no = 0;
  151.     LINE:
  152.     while (<FILEHAND>) {
  153.         chop;
  154.         $line_no++;
  155.         if (ord == 014) {        # form feed
  156.             s/.//;    # chop off first char
  157.             $cur_pos = -1; 
  158.             next LINE if (length == 0);
  159.         }
  160.         while (s/\t/' ' x (8 - length($`) % 8)/e) {}   # expand tabs
  161.         do {
  162.             if ($cur_pos < $tb_margin) {
  163.                 $cur_pos = $home_pos;
  164.                 if ($cur_col < $no_columns) {
  165.                      $cur_col++;
  166.                 } else {
  167.                      $cur_col = 1;
  168.                      &new_page;
  169.                 }
  170.             }
  171.             $text = substr($_,0,$chars_per_line);
  172.             $_ = $truncate_lines ? '' : substr($_,$chars_per_line,10000);
  173.             if ($text =~ s/^ +//) {        # suppress leading blanks
  174.                 $indent = $char_width * length($&);
  175.             } else {
  176.                 $indent = 0;
  177.             }
  178.             # Make suitable as a postscript string, same as calling
  179.             # "ps_string", but the overhead of calling a function is
  180.             # not acceptable here.
  181.             $text =~ s/[\\\(\)]/\\$&/g;
  182.             $text =~ s/[\000-\037\177-\377]/sprintf("\\%03o",ord($&))/ge;
  183.             # Calculate position
  184.             $x = $left_margin +
  185.          ($cur_col - 1) * ($col_width + $col_separation);
  186.             $cur_pos -= $line_height;
  187.             printf "(%s)%.1f %.1f S\n", $text, $x + $indent, $cur_pos 
  188.                 if (length($text));
  189.             if ($opt_l && (($line_no % 5) == 0 || eof)) { # print line numbers
  190.                  printf "F2 SF($line_no)%.1f %.1f S F1 SF\n",
  191.                         $x + $col_width + 5, $cur_pos;
  192.             }
  193.         } while (length($_));
  194.     } # while (each line)
  195. } # while (each file)
  196. &end_page;
  197. print "%%Trailer\n";
  198. print "%%Pages: $page_no\n";
  199. # printf "($prog_name: $page_no page%s for $user\n) print\n",
  200. #     $page_no != 1 ? "s" : "";
  201.  
  202. #--end of main-------------------------------------------------------
  203.  
  204.  
  205. sub prolog {
  206.    $user = getlogin || "(unknown)";
  207.    local($sec,$min,$hour,$mday,$mon,$year) = localtime;
  208.    $date = sprintf("(%s %d, %d) (%2d:%02d)",
  209.                     ('January','February','March','April','May','June',
  210.                      'July','August','October','November','Desember')[$mon],
  211.                      $mday, $year+1900, $hour,$min);
  212.    print "%!PS-Adobe-2.0\n";
  213.    print "%%Title: @ARGV\n" if (@ARGV);
  214.    print <<"EOT";
  215. %%Creator: $prog_name, Text to PostScript filter in perl, (C) 1990 Gisle Aas, NCC
  216. %%CreationDate: $date
  217. %%For: $user
  218. %%Pages: (atend)
  219. EOT
  220.    print "%%DocumentFonts: $font";
  221.    print " $line_number_font" if ($opt_l);
  222.    print " $header_font" if ($show_header);
  223.    print "\n";
  224.    print <<"EOT";
  225. %%EndComments
  226. /S{moveto show}bind def
  227. /M/moveto load def
  228. /L/lineto load def
  229. /SF/setfont load def
  230. EOT
  231.     print <<"EOT" if ($isoencoding_not_builtin && !($norsk_ascii || $sw_fi_ascii));
  232. ISOLatin1Encoding where { pop } { ISOLatin1Encoding
  233. [/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  234. /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  235. /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  236. /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/space
  237. /exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright
  238. /parenleft/parenright/asterisk/plus/comma/minus/period/slash/zero/one
  239. /two/three/four/five/six/seven/eight/nine/colon/semicolon/less/equal
  240. /greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S
  241. /T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright/asciicircum
  242. /underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s
  243. /t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde/.notdef/.notdef
  244. /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  245. /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/dotlessi/grave
  246. /acute/circumflex/tilde/macron/breve/dotaccent/dieresis/.notdef/ring
  247. /cedilla/.notdef/hungarumlaut/ogonek/caron/space/exclamdown/cent
  248. /sterling/currency/yen/brokenbar/section/dieresis/copyright/ordfeminine
  249. /guillemotleft/logicalnot/hyphen/registered/macron/degree/plusminus
  250. /twosuperior/threesuperior/acute/mu/paragraph/periodcentered/cedilla
  251. /onesuperior/ordmasculine/guillemotright/onequarter/onehalf/threequarters
  252. /questiondown/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE
  253. /Ccedilla/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex
  254. /Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis
  255. /multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn
  256. /germandbls/agrave/aacute/acircumflex/atilde/adieresis/aring/ae
  257. /ccedilla/egrave/eacute/ecircumflex/edieresis/igrave/iacute/icircumflex
  258. /idieresis/eth/ntilde/ograve/oacute/ocircumflex/otilde/odieresis/divide
  259. /oslash/ugrave/uacute/ucircumflex/udieresis/yacute/thorn/ydieresis]
  260. def %ISOLatin1Encoding
  261. } ifelse
  262. EOT
  263.     print <<"EOT" if ($norsk_ascii || $sw_fi_ascii);
  264. %%BeginProcSet: reencode 1.0 0
  265. /RE { %def
  266.    findfont begin
  267.    currentdict dup length dict begin
  268.       { %forall
  269.          1 index/FID ne {def} {pop pop} ifelse
  270.       } forall
  271.       /FontName exch def
  272.       dup length 0 ne { %if
  273.          /Encoding Encoding 256 array copy def
  274.          0 exch { %forall
  275.             dup type /nametype eq { %ifelse
  276.                Encoding 2 index 2 index put
  277.                pop 1 add
  278.             }{%else
  279.                exch pop
  280.             } ifelse
  281.          } forall
  282.       } if pop
  283.       currentdict dup
  284.    end
  285.    end
  286.    /FontName get exch definefont pop
  287. } bind def
  288. %%EndProcSet: reencode 1.0 0
  289. EOT
  290.    print <<"EOT" if (!($norsk_ascii || $sw_fi_ascii));
  291. %%BeginProcSet: newencode 1.0 0
  292. /NE { %def
  293.    findfont begin
  294.       currentdict dup length dict begin
  295.          { %forall
  296.             1 index/FID ne {def} {pop pop} ifelse
  297.          } forall
  298.          /FontName exch def
  299.          /Encoding exch def
  300.          currentdict dup
  301.       end
  302.    end
  303.    /FontName get exch definefont pop
  304. } bind def
  305. %%EndProcSet: newencode 1.0 0
  306. EOT
  307.    print "%%EndProlog\n%%BeginSetup\n";
  308.    if ($norsk_ascii || $sw_fi_ascii) {
  309.       print "[8#133 /AE/Oslash/Aring 8#173 /ae/oslash/aring] dup\n"
  310.     if ($norsk_ascii);
  311.       print "[8#133 /Adieresis/Odieresis/Aring" .
  312.             " 8#173 /adieresis/odieresis/aring] dup\n"
  313.     if ($sw_fi_ascii);
  314.       print "/$font-ISO/$font RE\n";
  315.       print "/$header_font-ISO/$header_font RE\n" if ($show_header);
  316.    } else {
  317.       print "ISOLatin1Encoding /$font-ISO/$font NE\n";
  318.       print "ISOLatin1Encoding /$header_font-ISO/$header_font NE\n"
  319.          if ($show_header);
  320.    }
  321.    printf "/F1/$font-ISO findfont %.2g scalefont def\n", $font_size;
  322.    print "/F2/$line_number_font findfont $line_number_size scalefont def\n"
  323.         if ($opt_l);
  324.    print "/F3/$header_font-ISO findfont $header_font_size scalefont def\n"
  325.         if ($show_header);
  326.    print "F1 SF\n";
  327.    print "%%EndSetup\n";
  328. }
  329.  
  330.  
  331.  
  332. sub new_page {
  333.    &end_page unless ($page_no == 0);
  334.    $page_no++;
  335.    print "%%Page: $page_no $page_no\n";
  336.    print "%%BeginPageSetup\n";
  337.    print "/page_save save def\n";
  338.    printf "90 rotate 0 -%d translate %% landscape mode\n",&page_right_edge
  339.       if ($landscape);
  340.    print "0.15 setlinewidth\n" if ($show_header);
  341.    print "%%EndPageSetup\n";
  342.    if ($show_header) {
  343.       # First print a box
  344.       local($llx,$lly,$urx,$ury) = ($left_margin - 10,
  345.             $top - $tb_margin - $header_font_size * 1.3,
  346.             $right_edge - $right_margin + 10, $top - $tb_margin);
  347.       printf "%.1f %.1f M %.1f %.1f L %.1f %.1f L ",
  348.              $llx,$lly, $urx,$lly, $urx, $ury;
  349.       printf "%.1f %.1f L closepath \n",$llx,$ury;
  350.       print  "gsave .95 setgray fill grestore stroke\n";
  351.       # Then the banner or the filename
  352.       print "F3 SF\n";
  353.       if ($opt_b) {
  354.          printf "($opt_b)%.1f %.1f S\n",
  355.                 $left_margin,$top - $tb_margin - $header_font_size;
  356.       }
  357.       elsif ($file_name) {
  358.          printf "(%s)%.1f %.1f S\n", $file_name, 
  359.                       $left_margin,
  360.                       $top - $tb_margin - $header_font_size;
  361.       }
  362.       # Then print page number
  363.       printf "%.1f %.1f M($page_no)dup stringwidth pop neg 0 rmoveto show\n",
  364.                  $right_edge - $right_margin, 
  365.                  $top - $tb_margin - $header_font_size;
  366.       print  "F1 SF\n";
  367.    }
  368.    if ($sep_bars) {
  369.       print "% Some postscript code to draw horizontal bars.\n";
  370.       print "% Not implemented yet\n";
  371.    }
  372. }
  373.  
  374. sub end_page {
  375.    unless ($page_no == 0) {
  376.       print "page_save restore\n";
  377.       print "showpage\n";
  378.    }
  379. }
  380.  
  381. sub ps_string
  382. {
  383.    # Prepare text for printing
  384.    local($_) = shift;
  385.    s/[\\\(\)]/\\$&/g;
  386.    s/[\001-\037\177-\377]/sprintf("\\%03o",ord($&))/ge;
  387.    $_;    # return string
  388. }
  389.  
  390.  
  391. ###########################################################################
  392.     # These next few lines are legal in both Perl and nroff.
  393.  
  394. .00;            # finish .ig
  395.  
  396. 'di            \" finish diversion--previous line must be blank
  397. .nr nl 0-1        \" fake up transition to first page again
  398. .nr % 0            \" start at page 1
  399. ';<<'.ex'; #__END__ #### From here on it's a standard manual page #########
  400. .TH I2PS 1 "October 1990"
  401. .SH NAME
  402. i2ps \- convert ISO Latin1 text to PostScript
  403. .SH SYNOPSIS
  404. .B i2ps
  405. [
  406. .B \-nflrth23g
  407. ] [
  408. .B \-b
  409. .I "text"
  410. ] [
  411. .B \-s
  412. .I size
  413. ] [
  414. .B \-w
  415. .I width
  416. ] [
  417. .I filename
  418. \&.\|.\|.
  419. ]
  420. .SH DESCRIPTION
  421. The
  422. .B i2ps
  423. program is used to print simple
  424. text files (e.g. program listings) on a PostScript\*R device. 
  425. The name
  426. .B i2ps
  427. stands for iso-to-postscript.  The program handles the whole
  428. ISO Latin1 (ISO 8859/1) character set. 
  429. Efforts have been made to ensure that 
  430. .B i2ps
  431. produces good looking and effective PostScript code.
  432. The output conforms to Adobe's
  433. document structuring conventions (version 2.1). The 
  434. .B i2ps 
  435. program
  436. assumes that the page format on the output device is A4. 
  437. (Change the definitions of &page_top and &page_right_edge if you
  438. want something else.)
  439. The meaning of form feed (^L) characters in the input stream is understood.
  440. .PP
  441. The
  442. .B i2ps
  443. program is written in
  444. .I perl.
  445. So if there is something you don't like about how
  446. .B i2ps
  447. works, you can "easily" fix it yourself.
  448. .SH OPTIONS
  449. .TP 5
  450. .B \-n
  451. use the norwegian version of ISO 646 (7-bit ascii) to encode the text.
  452. Norwegian letters will replace the left/right braces, left/right
  453. brackets, backslash and horizontal bar characters.
  454. .TP 5
  455. .B \-f
  456. use the finnish/swedish version of ISO 646.  Like
  457. .BR \-n ,
  458. but instead of the AE ligature and slashed-O you get a and o with two dots.
  459. .TP 5
  460. .B \-l
  461. produces line numbers on each 5'th and the last line.
  462. Nice for program listings.
  463. .TP 5
  464. .B \-t
  465. truncate lines that are to long. The default is to wrap
  466. long lines so that they continue on the next line on the printed output.
  467. .TP 5
  468. .B \-r
  469. rotate the output page 90 degrees. This is called
  470. .I landscape
  471. mode by some people.
  472. .TP 5
  473. .B \-h
  474. suppress generation of page headers.
  475. .TP 5
  476. .B \-2
  477. use two column format.
  478. .TP 5
  479. .B \-3
  480. use three column format.
  481. .TP 5
  482. .BI \-b " text"
  483. the 
  484. .I text
  485. parameter replaces the default text in the header of the pages.
  486. The default text is the filename of the file to be printed. There is no
  487. default if the text comes from standard input.
  488. .TP 5
  489. .BI \-s " size"
  490. specifies a new font size for the body text. The default is 10 point.
  491. .TP 5
  492. .BI \-w " width"
  493. specifies the number of characters per line. This is just another way
  494. of specifying the font size for the body text.  
  495. The w-option takes precedence over the
  496. s-option if both are present.
  497. .TP 5
  498. .B \-g
  499. eat garbage.  The
  500. .B i2ps 
  501. program normally skips binary files. This option means "print it anyway".
  502. .SH ENVIRONMENT
  503. .IP \fBI2PS\fP 10
  504. Options may also be specified with the environment variable "I2PS".
  505. The environment variable is parsed before the command line, so
  506. command line options override the environment variable.
  507. .SH EXAMPLES
  508. To print files on a PostScript printer:
  509. .nf
  510.     i2ps -l *.[ch] | lpr
  511. .fi
  512. .PP
  513. To find out how many pages i2ps will produce for a given file:
  514. .nf
  515.     i2ps file.txt | tail -1
  516. .fi
  517. .PP
  518. Our printer stacks the pages the wrong way. To fix it try:
  519. .nf
  520.     i2ps -2r -w80 file.txt | psrev | lpr
  521. .fi
  522. .SH SEE ALSO
  523. .BR perl (1),
  524. .BR enscript (1),
  525. .BR psrev (1),
  526. .BR ISO8859 (7),
  527. .BR PostScript (7)
  528. .SH BUGS
  529. There is no easy way to change the margins or the fonts that
  530. .B i2ps
  531. insists on using.
  532. The
  533. .B i2ps
  534. filter ought to understand the meaning of the backspace character. It is used
  535. to produce boldfaced and underlined text by programs like 
  536. .BR nroff (1).
  537. .PP
  538. If the you change the name of the file where
  539. .B i2ps
  540. lives, then you must change the name of the I2PS environment variable likewise.
  541. .SH AUTHOR
  542. Gisle Aas, Norwegian Computing Center (NR), Oslo, Norway.
  543. <Gisle.Aas@nr.no>
  544. .ex
  545.