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