home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume28 / hp2pbm / patch02 next >
Text File  |  1992-03-15  |  39KB  |  1,461 lines
  1. Newsgroups: comp.sources.misc
  2. From: clewis@ferret.ocunix.on.ca (Chris Lewis)
  3. Subject:  REPOST: v28i081:  hp2pbm - HP PCL to Portable Bit Map converter, Patch02
  4. Message-ID: <1992Mar9.003812.26658@sparky.imd.sterling.com>
  5. X-Md4-Signature: b3c93d36766a06631346ea38936dc3a0
  6. Date: Mon, 9 Mar 1992 00:38:12 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: clewis@ferret.ocunix.on.ca (Chris Lewis)
  10. Posting-number: Volume 28, Issue 81
  11. Archive-name: hp2pbm/patch02
  12. Environment: UNIX
  13. Patch-To: hp2pbm: Volume 26, Issue 102-104
  14.  
  15. [ I'm not sure how but somehow the patch instructions were not 
  16. [ included in the first posting.  This is being reposted to assure 
  17. [ the instructions are available.             -Kent+
  18.  
  19. This is official patch 02 for Hp2pbm.
  20.     Please apply it by:
  21.     cd <hp2pbm source directory>
  22.     touch g3.h g3.c (some versions of patch don't need this)
  23.     patch -N -p < <this file>
  24.     
  25.     The initial release of hp2pbm was in volume 26 of
  26.     comp.sources.misc.
  27.  
  28. This patch introduces direct built-in support for G3 FAX modems.
  29. Plus performance improvements on the order of 10 to 25%.
  30. The G3 code was borrowed from Jef Poskanzer's PBMPLUS
  31. package, written by Paul Haeberli, and integrated
  32. by Roberto Biancardi.  Roberto also did the performance
  33. improvements.  The G3 personality is relatively slow, but
  34. apparently a lot faster than going through a separate
  35. pbm2g3 step.
  36.  
  37. ./hp2pbm.S
  38. ./Makefile
  39. ./hpfntwrite.c
  40. ./hpp.c
  41. ./hptopbm.h
  42. ./g3.h
  43. ./g3.c
  44.  
  45. Patchwrapped: 920305022036
  46.  
  47. Index: ./hp2pbm.S
  48. *** /tmp/PATCHold/./hp2pbm.S    Thu Mar  5 02:18:57 1992
  49. --- ./hp2pbm.S    Thu Mar  5 02:18:58 1992
  50. ***************
  51. *** 1,7 ****
  52. ! .\"Copyright 1989, 1990, 1991 by Chris Lewis 1.2 92/01/05
  53.   .TH HP2PBM %%MANEXT%% "standalone"
  54.   .SH NAME
  55. ! hp2pbm,hp2hifax,hp2lofax,hp2sun,hp2e24 \- Translate HPLJ codes to to Postscript or PBM
  56.   .SH SYNOPSIS
  57.   .B hp2pbm
  58.   .B "[\-v]"
  59. --- 1,7 ----
  60. ! .\"Copyright 1989, 1990, 1991 by Chris Lewis 1.3 92/03/05
  61.   .TH HP2PBM %%MANEXT%% "standalone"
  62.   .SH NAME
  63. ! hp2pbm,hp2hifax,hp2lofax,hp2sun,hp2e24,hp2hig3,hp2log3 \- Translate HPLJ codes to PostScript or PBM or G3
  64.   .SH SYNOPSIS
  65.   .B hp2pbm
  66.   .B "[\-v]"
  67. ***************
  68. *** 18,25 ****
  69.   (Hewlett Packard Printer Control Language - the language of HP Laserjets)
  70.   escape code sequences.
  71.   .B Hp2pbm
  72.   can then generate an english description of the codes, translate the input
  73. ! into Postscript, or generate PBM files (Jef Poskanzer's Portable Bitmap Format).
  74.   .P
  75.   .B "hp2pbm -V"
  76.   prints the version string.
  77. --- 18,30 ----
  78.   (Hewlett Packard Printer Control Language - the language of HP Laserjets)
  79.   escape code sequences.
  80.   .B Hp2pbm
  81. + is intended to be fully compliant with HP's ``PCL4''-level language.
  82. + Which means it should fully emulate any of HP's printers except for
  83. + some features of the HP Laserjet III.
  84. + .B Hp2pbm
  85.   can then generate an english description of the codes, translate the input
  86. ! into PostScript, or generate PBM files (Jef Poskanzer's Portable Bitmap Format),
  87. ! or generate G3 format files for G3 FAX modems.
  88.   .P
  89.   .B "hp2pbm -V"
  90.   prints the version string.
  91. ***************
  92. *** 49,60 ****
  93.   including (some) built in and all downloaded fonts (except
  94.   compressed ones) and including built in and downloaded graphics and rasters.
  95.   .B Hp2pbm
  96.   can be used to drive a number of different configurations, such as
  97. ! Postscript printers, Klaus Schallhorn's
  98.   .B faxpak
  99.   (to transmit faxes using a fax modem),
  100.   or other devices using PBM converters, such as Epson 24 pin printers,
  101.   Sun displays, 3b1 consoles etc.
  102.   .P
  103.   If the
  104.   .B \-v
  105. --- 54,73 ----
  106.   including (some) built in and all downloaded fonts (except
  107.   compressed ones) and including built in and downloaded graphics and rasters.
  108.   .B Hp2pbm
  109. + does not support PCL5 features such as scalable fonts and HPGL.
  110. + .B Hp2pbm
  111.   can be used to drive a number of different configurations, such as
  112. ! PostScript printers, Klaus Schallhorn's
  113.   .B faxpak
  114.   (to transmit faxes using a fax modem),
  115.   or other devices using PBM converters, such as Epson 24 pin printers,
  116.   Sun displays, 3b1 consoles etc.
  117. + With the G3 variants, such as
  118. + .B hp2hig3
  119. + or
  120. + .BR hp2log3 ,
  121. + G3 format files can be generated directly without going through an
  122. + additional PBM step.
  123.   .P
  124.   If the
  125.   .B \-v
  126. ***************
  127. *** 68,74 ****
  128.   .B \-p
  129.   option tells
  130.   .B hp2pbm
  131. ! to emit Postscript to standard output.
  132.   Specifying both \-v and \-p at the same time is rather confusing.
  133.   Note: unless
  134.   .B hp2pbm
  135. --- 81,87 ----
  136.   .B \-p
  137.   option tells
  138.   .B hp2pbm
  139. ! to emit PostScript to standard output.
  140.   Specifying both \-v and \-p at the same time is rather confusing.
  141.   Note: unless
  142.   .B hp2pbm
  143. ***************
  144. *** 106,113 ****
  145.   If the
  146.   .BI \-r value
  147.   option is specified,
  148. ! .B hp2pbm
  149. ! (hp2??fax and hp2e24) creates PBM files.
  150.   The associated argument is the basename for the generated files.
  151.   The first page is named ``value.0'', second ``value.1'' etc.
  152.   If
  153. --- 119,126 ----
  154.   If the
  155.   .BI \-r value
  156.   option is specified,
  157. ! hp2??fax and hp2e24 create PBM files.
  158. ! hp2??g3 creates G3 files.
  159.   The associated argument is the basename for the generated files.
  160.   The first page is named ``value.0'', second ``value.1'' etc.
  161.   If
  162. ***************
  163. *** 146,153 ****
  164.   .B Hp2pbm
  165.   is also linked to several different names as a convenience
  166.   for supplying the dots per inch.
  167. ! The names are: hp2hifax (high resolution FAX), hp2lofax (low resolution FAX)
  168. ! hp2sun (Sun mono display) and hp2e24 (Epson 24 pin printer at 180 dpi).
  169.   .SH FILES
  170.   .if t .ta 2.5i
  171.   .if n .ta 3.5i
  172. --- 159,168 ----
  173.   .B Hp2pbm
  174.   is also linked to several different names as a convenience
  175.   for supplying the dots per inch.
  176. ! The names are: hp2hifax (high resolution PBM FAX), hp2lofax
  177. ! (low resolution PBM FAX)
  178. ! hp2sun (Sun mono display), hp2e24 (Epson 24 pin printer at 180 dpi),
  179. ! hp2log3 (low resolution G3 FAX), and hp2hig3 (high resolution G3 FAX).
  180.   .SH FILES
  181.   .if t .ta 2.5i
  182.   .if n .ta 3.5i
  183. ***************
  184. *** 158,164 ****
  185.   %%LIBDIR%%/BITMAPS    rasters, patterns and builtin font clones.
  186.   .SH "SEE ALSO"
  187.   Hewlett Packard Laserjet documentation.
  188. ! Adobe Systems Postscript documentation.
  189.   .SH WARNINGS
  190.   .P
  191.   .B "Hp2pbm output can be huge!"
  192. --- 173,179 ----
  193.   %%LIBDIR%%/BITMAPS    rasters, patterns and builtin font clones.
  194.   .SH "SEE ALSO"
  195.   Hewlett Packard Laserjet documentation.
  196. ! Adobe Systems PostScript documentation.
  197.   .SH WARNINGS
  198.   .P
  199.   .B "Hp2pbm output can be huge!"
  200. ***************
  201. *** 168,178 ****
  202.   .P
  203.   .B "Hp2pbm's"
  204.   handling of downloaded macros is not fully tested.
  205. ! Compressed fonts (Laserjet II) and scalable built in fonts (Laserjet
  206. ! III) are not supported.
  207.   Except for these limitations
  208.   .B Hp2pbm
  209. ! should be fully compatible with Laserjet II printers.
  210.   .P
  211.   The
  212.   .B \-p
  213. --- 183,193 ----
  214.   .P
  215.   .B "Hp2pbm's"
  216.   handling of downloaded macros is not fully tested.
  217. ! Compressed fonts, scalable built in fonts, and HPGL mode
  218. ! personalities in PCL5 are not supported.
  219.   Except for these limitations
  220.   .B Hp2pbm
  221. ! should be fully compatible with all HP Laserjet printers.
  222.   .P
  223.   The
  224.   .B \-p
  225. ***************
  226. *** 180,186 ****
  227.   option of
  228.   .B "psroff \-Tlj"
  229.   without having a laserjet printer.
  230. ! The Postscript generating code isn't complete, but this will
  231.   probably be rectified in future.
  232.   .P
  233.   .B Hp2pbm
  234. --- 195,201 ----
  235.   option of
  236.   .B "psroff \-Tlj"
  237.   without having a laserjet printer.
  238. ! The PostScript generating code isn't complete, but this will
  239.   probably be rectified in future.
  240.   .P
  241.   .B Hp2pbm
  242. ***************
  243. *** 193,203 ****
  244.   to be radically different from a LJ's), so the widths may be different and
  245.   the mappings of non-ASCII characters certainly will be.
  246.   .PP
  247. ! Most Postscript printers have relatively little memory for additional
  248.   bitmapped fonts.
  249. ! Do not be surprised by VMerrors from your Postscript printer if you've
  250.   selected more than a few fonts in your Laserjet output.
  251.   .SH AUTHORS
  252.   This manual page and the HP PCL parsing code was written by Chris Lewis,
  253.   as was psroff.
  254.   The PBM generation code was written by Klaus Schallhorn.
  255. --- 208,220 ----
  256.   to be radically different from a LJ's), so the widths may be different and
  257.   the mappings of non-ASCII characters certainly will be.
  258.   .PP
  259. ! Most PostScript printers have relatively little memory for additional
  260.   bitmapped fonts.
  261. ! Do not be surprised by VMerrors from your PostScript printer if you've
  262.   selected more than a few fonts in your Laserjet output.
  263.   .SH AUTHORS
  264.   This manual page and the HP PCL parsing code was written by Chris Lewis,
  265.   as was psroff.
  266.   The PBM generation code was written by Klaus Schallhorn.
  267. + The G3 code was written by Paul Haeberli and Jef Poskanzer and
  268. + appears in PBMPLUS, and was integrated into hp2pbm by Roberto Biancardi.
  269. Index: ./Makefile
  270. *** /tmp/PATCHold/./Makefile    Thu Mar  5 02:19:16 1992
  271. --- ./Makefile    Thu Mar  5 02:19:17 1992
  272. ***************
  273. *** 1,4 ****
  274. ! # Makefile for hptopbm standalone release 1.3 92/01/05
  275.   
  276.   #    Configuration:
  277.   
  278. --- 1,4 ----
  279. ! # Makefile for hptopbm standalone release 1.6 92/03/05
  280.   
  281.   #    Configuration:
  282.   
  283. ***************
  284. *** 11,16 ****
  285. --- 11,19 ----
  286.   #    Compilation flags.  Including strip (-s) if desired
  287.   #    Add -DBSD if BSD or V7.
  288.   #    Add -DNOMEM if you don't have memcpy and memset.
  289. + #    Add -DZYXFAX if you generate g3 fax files to be sent with zyxel mdms.
  290. + #    Add -DVERBOSE to include dbprint() code.
  291. + #    Add -fcombine-regs -fpcc-struct-return -finline-functions for gcc
  292.   CCFLAGS    = -O
  293.   #    Page size (LETTER, LEGAL, B5, A4)
  294.   PAGE    = A4
  295. ***************
  296. *** 24,36 ****
  297.   #    Dinna touch from here on.
  298.   
  299.   SHELL =        /bin/sh
  300. ! CFLAGS    =    $(CCFLAGS) -D'LIBDIR="$(LIBDIR)"' -D$(PAGE) -DPS
  301.   
  302.   LIBFILES =    cour.sfp lp.sfp \
  303.           hppat1 hppat2 hppat3 hppat4 hppat5 hppat6 \
  304.           hprast1 hprast2 hprast3 hprast4 hprast5 hprast6 hprast7 hprast8
  305.   
  306. ! ALTNAMES    = p2hifax hp2lofax hp2sun hp2e24
  307.   
  308.   .SUFFIXES:    .S~ .S
  309.   
  310. --- 27,40 ----
  311.   #    Dinna touch from here on.
  312.   
  313.   SHELL =        /bin/sh
  314. ! CFLAGS    =    $(CCFLAGS) -D'LIBDIR="$(LIBDIR)"' -D$(PAGE) -DPS -DG3
  315.   
  316.   LIBFILES =    cour.sfp lp.sfp \
  317.           hppat1 hppat2 hppat3 hppat4 hppat5 hppat6 \
  318.           hprast1 hprast2 hprast3 hprast4 hprast5 hprast6 hprast7 hprast8
  319.   
  320. ! ALTNAMES    = hp2hifax hp2lofax hp2sun hp2e24 hp2hig3 hp2hig3r hp2log3 hp2log3r
  321. ! HP2OBJ        = hpp.o hpfntwrite.o g3.o mem.o
  322.   
  323.   .SUFFIXES:    .S~ .S
  324.   
  325. ***************
  326. *** 37,44 ****
  327.   all:    README hp2pbm pbm2e24 hp2pbm.m $(LIBFILES)
  328.   
  329.   # programs
  330. ! hp2pbm:    hpp.o hpfntwrite.o mem.o
  331. !         $(CC) $(CFLAGS) -o hp2pbm hpp.o hpfntwrite.o mem.o $(LIBFLAGS)
  332.   
  333.   hp2pbm.m:    hp2pbm.S Makefile
  334.           sed -e 's;%%LIBDIR%%;$(LIBDIR);' \
  335. --- 41,48 ----
  336.   all:    README hp2pbm pbm2e24 hp2pbm.m $(LIBFILES)
  337.   
  338.   # programs
  339. ! hp2pbm:        $(HP2OBJ)
  340. !         $(CC) $(CFLAGS) -o hp2pbm $(HP2OBJ) $(LIBFLAGS)
  341.   
  342.   hp2pbm.m:    hp2pbm.S Makefile
  343.           sed -e 's;%%LIBDIR%%;$(LIBDIR);' \
  344. ***************
  345. *** 60,75 ****
  346.           cat $@.S > $@
  347.           @chmod 444 $@
  348.   
  349. ! # components
  350. ! #mem.o:        mem.c
  351. ! #        $(CC) -c $(CFLAGS) mem.c
  352.   
  353. ! hpp.o:        hptopbm.h # hpp.c
  354. ! #        $(CC) -c $(CFLAGS) hpp.c
  355.   
  356. - hpfntwrite.o:    hptopbm.h hpfntwrite.c
  357. - #        $(CC) -c $(CFLAGS) hpfntwrite.c
  358. - 
  359.   pbm2e24:    pbm2e24.o mem.o
  360.           $(CC) $(CFLAGS) -o pbm2e24 pbm2e24.o mem.o $(LIBFLAGS)
  361.   
  362. --- 64,73 ----
  363.           cat $@.S > $@
  364.           @chmod 444 $@
  365.   
  366. ! hpp.o hpfntwrite.o hpp.o g3.o:    hptopbm.h
  367.   
  368. ! g3.o:        g3.h
  369.   
  370.   pbm2e24:    pbm2e24.o mem.o
  371.           $(CC) $(CFLAGS) -o pbm2e24 pbm2e24.o mem.o $(LIBFLAGS)
  372.   
  373. ***************
  374. *** 87,95 ****
  375.   
  376.   regression:    hp2pbm
  377.           psroff -t -Tlj testdoc > /tmp/testdoc.lj
  378. !         ./hp2pbm -r/tmp/new -d80,80 < /tmp/testdoc.lj
  379. !         $(BINDIR)/hp2pbm -r/tmp/old -d80,80 < /tmp/testdoc.lj
  380. !         ./hp2pbm '-r|pbm2e24' -d80,80 > /tmp/pipe < /tmp/testdoc.lj
  381.   
  382.   install:    hp2pbm myuid
  383.           test "`./myuid`" = 0 || \
  384. --- 85,97 ----
  385.   
  386.   regression:    hp2pbm
  387.           psroff -t -Tlj testdoc > /tmp/testdoc.lj
  388. !         time $(BINDIR)/hp2pbm -r/tmp/old -d80,80 < /tmp/testdoc.lj 2> /tmp/old.t
  389. !         time ./hp2pbm -r/tmp/new -d80,80 < /tmp/testdoc.lj 2> /tmp/new.t
  390. !         time $(BINDIR)/hp2pbm '-r|pbm2e24' -d80,80 > /tmp/old.pipe < /tmp/testdoc.lj 2> /tmp/old.pipe.t
  391. !         time ./hp2pbm '-r|pbm2e24' -d80,80 > /tmp/new.pipe < /tmp/testdoc.lj 2> /tmp/new.pipe.t
  392. ! 
  393. ! g3test:
  394. !         time ./hp2hig3 -r/tmp/FOO < /tmp/testdoc.lj > /tmp/g3 2> /tmp/g3.t
  395.   
  396.   install:    hp2pbm myuid
  397.           test "`./myuid`" = 0 || \
  398. ***************
  399. *** 99,104 ****
  400. --- 101,107 ----
  401.           test -d $(LIBDIR)/BITMAPS || mkdir $(LIBDIR)/BITMAPS
  402.           cd $(BINDIR) ; rm -f hp2pbm $(ALTNAMES)
  403.           cp hp2pbm $(BINDIR)/hp2pbm
  404. +         cp pbm2e24 $(BINDIR)/pbm2e24
  405.           $(IGNORESH) cd $(BINDIR) ; \
  406.           for i in $(ALTNAMES) ; \
  407.           do \
  408. Index: ./hpfntwrite.c
  409. *** /tmp/PATCHold/./hpfntwrite.c    Thu Mar  5 02:19:28 1992
  410. --- ./hpfntwrite.c    Thu Mar  5 02:19:32 1992
  411. ***************
  412. *** 17,24 ****
  413.   
  414.   #include "hptopbm.h"
  415.   
  416.   #ifndef    lint
  417. ! char SCCSid[] = "@(#)hpfntwrite.c: 1.3 92/01/05 23:16:27";
  418.   #endif
  419.   
  420.   #ifdef    FAXPAK
  421. --- 17,30 ----
  422.   
  423.   #include "hptopbm.h"
  424.   
  425. + #ifndef    G3
  426. + g3start() {}
  427. + g3write() {}
  428. + g3stop() {}
  429. + #endif
  430. + 
  431.   #ifndef    lint
  432. ! char SCCSid[] = "@(#)hpfntwrite.c: 1.4 92/03/01 02:04:25";
  433.   #endif
  434.   
  435.   #ifdef    FAXPAK
  436. ***************
  437. *** 38,43 ****
  438. --- 44,52 ----
  439.   
  440.   #define    ESC        '\033'
  441.   #define    setpix(y,x)    (block[y][x>>3] |= bit[x&7])
  442. + static unsigned char *pforsetxpix;
  443. + #define    setyforsetxpix(y)    (pforsetxpix=block[y])
  444. + #define    setxpix(x)        (pforsetxpix[x>>3]|=bit[x&7])
  445.   
  446.   #ifndef    min
  447.   #define    min(a,b)    ((a<b)?a:b)
  448. ***************
  449. *** 421,439 ****
  450.   char *tname;
  451.   {
  452.       int i, j, xmax, pipe;
  453. !     FILE *fp;
  454.   
  455. !     if (tname[0] == '|') {
  456. !         fp = popen(tname+1, "w");
  457. !         pipe = 1;
  458. !     } else {
  459. !         fp = fopen(tname, "w");
  460. !         pipe = 0;
  461.       }
  462.   
  463. -     if (fp == NULL)
  464. -         die("cannot create pbm file `%s'\n",tname);
  465. - 
  466.       ymax_used = yscale[max_ln-1];
  467.   #ifdef    FAXPAK
  468.       xmax = min(216, xscale[(max_col+7)/8]);        /* max 1728 pels */
  469. --- 430,453 ----
  470.   char *tname;
  471.   {
  472.       int i, j, xmax, pipe;
  473. !     static FILE *fp;
  474. !     static int g3mode = -1;
  475. !     static int zyxelm = 0;
  476. !     extern char *PGM;
  477.   
  478. !     if ( g3mode == -1 )
  479. !     {
  480. !         if ( !strcmp(PGM,"hp2hig3") || !strcmp(PGM,"hp2log3") )
  481. !             g3mode = 1;
  482. !         else if ( !strcmp(PGM,"hp2hig3r") || !strcmp(PGM,"hp2log3r") )
  483. !             g3mode = 2;
  484. !         else
  485. !             g3mode = 0;
  486. ! #ifdef    ZYXFAX
  487. !         zyxelm = 1;
  488. ! #endif
  489.       }
  490.   
  491.       ymax_used = yscale[max_ln-1];
  492.   #ifdef    FAXPAK
  493.       xmax = min(216, xscale[(max_col+7)/8]);        /* max 1728 pels */
  494. ***************
  495. *** 440,460 ****
  496.   #else
  497.       xmax = xscale[(max_col+7)/8];
  498.   #endif
  499. !     if (fprintf(fp,"P4\n%d %d\n",xmax*8,ymax_used) == EOF)
  500. !         die("can't init pbmfile %s\n",tname);
  501.   
  502.       for (i=0; i<ymax_used; i++)
  503.       {
  504. !         if ((j = fwrite((char*)block[i], 1, xmax, fp)) != xmax)
  505.               die("premature EOF after %d bytes of %d, line %d of %d\n",
  506.                   j,xmax,i,ymax_used);
  507.           (void)memset((char*)block[i], '\0', xmax);
  508.       }
  509. !     if (pipe) {
  510. !         if (pclose(fp))
  511. !         die("Pipe failure in `%s'\n", tname);
  512. !     } else
  513. !         fclose(fp);
  514.   
  515.       ymax_used = xmax_used = 0;
  516.       orgenv.top_margin = new_topmargin;
  517. --- 454,501 ----
  518.   #else
  519.       xmax = xscale[(max_col+7)/8];
  520.   #endif
  521. ! 
  522. !     if ( zyxelm == 0 || fp == NULL )
  523. !     {
  524. !         if (tname[0] == '|') {
  525. !             fp = popen(tname+1, "w");
  526. !             pipe = 1;
  527. !         } else {
  528. !             fp = fopen(tname, "w");
  529. !             pipe = 0;
  530. !         }
  531. !         if (fp == NULL)
  532. !             die("cannot create pbm file `%s'\n",tname);
  533. !         if ( g3mode )
  534. !             g3start(fp,xmax*8,g3mode==2?1:0);
  535. !         else
  536. !             if (fprintf(fp,"P4\n%d %d\n",xmax*8,ymax_used) == EOF)
  537. !             die("can't init pbmfile %s\n",tname);
  538. !     }
  539.   
  540.       for (i=0; i<ymax_used; i++)
  541.       {
  542. !         if ( g3mode ) {
  543. !             if ( !g3write((char*)block[i]) )
  544. !             {
  545. !                 die("premature EOF at line %d of %d\n",
  546. !                     i,ymax_used);
  547. !             }
  548. !         } else if ((j = fwrite((char*)block[i], 1, xmax, fp)) != xmax)
  549.               die("premature EOF after %d bytes of %d, line %d of %d\n",
  550.                   j,xmax,i,ymax_used);
  551.           (void)memset((char*)block[i], '\0', xmax);
  552.       }
  553. !     if ( !zyxelm )
  554. !     {
  555. !         if ( g3mode )
  556. !             g3stop();
  557. !         if (pipe) {
  558. !             if (pclose(fp))
  559. !             die("Pipe failure in `%s'\n", tname);
  560. !         } else
  561. !             fclose(fp);
  562. !     }
  563.   
  564.       ymax_used = xmax_used = 0;
  565.       orgenv.top_margin = new_topmargin;
  566. ***************
  567. *** 1103,1109 ****
  568.   uchar *pels;
  569.   int len;
  570.   {
  571. !     int i, k, localy, inc, graphx, graphy;
  572.   
  573.       if (see_thru)
  574.           return;
  575. --- 1144,1150 ----
  576.   uchar *pels;
  577.   int len;
  578.   {
  579. !     register int i, k, localy, inc, graphx, graphy;
  580.   
  581.       if (see_thru)
  582.           return;
  583. ***************
  584. *** 1116,1122 ****
  585.       graphx = (int)(GRAPHX + .5);
  586.       if (graphy < 0 || inc+graphy >= max_ln)
  587.           return;
  588. !     localy = yscale[graphy];
  589.   
  590.       if (graphx + (inc*len*8) > max_col)
  591.           len = ((max_col-graphx)/8)/inc;
  592. --- 1157,1163 ----
  593.       graphx = (int)(GRAPHX + .5);
  594.       if (graphy < 0 || inc+graphy >= max_ln)
  595.           return;
  596. !     setyforsetxpix(localy = yscale[graphy]);
  597.   
  598.       if (graphx + (inc*len*8) > max_col)
  599.           len = ((max_col-graphx)/8)/inc;
  600. ***************
  601. *** 1123,1139 ****
  602.   
  603.       switch(curenv->dpi)    /* hey, who says we're trying to be efficient? */
  604.       {
  605. !     case 300:    for (i=0; i<len; i++, pels++)
  606. !                 for (k=0; k<8; k++, graphx++)
  607. !                     if (*pels & bit[k])
  608. !                         setpix(localy, xscale[graphx]);
  609.               break;
  610.       case 150:    for (i=0; i<len; i++, pels++)
  611.                   for (k=0; k<8; k++, graphx += inc)
  612.                       if (*pels & bit[k])
  613.                       {
  614. !                         setpix(localy, xscale[graphx]);
  615. !                         setpix(localy, xscale[graphx+1]);
  616.   
  617.                           setpix(localy+1, xscale[graphx]);
  618.                           setpix(localy+1, xscale[graphx+1]);
  619. --- 1164,1190 ----
  620.   
  621.       switch(curenv->dpi)    /* hey, who says we're trying to be efficient? */
  622.       {
  623. !     case 300:    for (i=len; i-- > 0; )
  624. !             {
  625. !                 register unsigned ch = *pels++;
  626. ! 
  627. !                 if ( ch == 0 ) {graphx+=8;continue;}
  628. !                 if ( ch&0x80 ) setxpix(xscale[graphx]);graphx++;
  629. !                 if ( ch&0x40 ) setxpix(xscale[graphx]);graphx++;
  630. !                 if ( ch&0x20 ) setxpix(xscale[graphx]);graphx++;
  631. !                 if ( ch&0x10 ) setxpix(xscale[graphx]);graphx++;
  632. !                 if ( ch&0x08 ) setxpix(xscale[graphx]);graphx++;
  633. !                 if ( ch&0x04 ) setxpix(xscale[graphx]);graphx++;
  634. !                 if ( ch&0x02 ) setxpix(xscale[graphx]);graphx++;
  635. !                 if ( ch&0x01 ) setxpix(xscale[graphx]);graphx++;
  636. !             }
  637.               break;
  638.       case 150:    for (i=0; i<len; i++, pels++)
  639.                   for (k=0; k<8; k++, graphx += inc)
  640.                       if (*pels & bit[k])
  641.                       {
  642. !                         setxpix(xscale[graphx]);
  643. !                         setxpix(xscale[graphx+1]);
  644.   
  645.                           setpix(localy+1, xscale[graphx]);
  646.                           setpix(localy+1, xscale[graphx+1]);
  647. ***************
  648. *** 1143,1151 ****
  649.                   for (k=0; k<8; k++, graphx += inc)
  650.                       if (*pels & bit[k])
  651.                       {
  652. !                         setpix(localy, xscale[graphx]);
  653. !                         setpix(localy, xscale[graphx+1]);
  654. !                         setpix(localy, xscale[graphx+2]);
  655.   
  656.                           setpix(localy+1, xscale[graphx]);
  657.                           setpix(localy+1, xscale[graphx+1]);
  658. --- 1194,1202 ----
  659.                   for (k=0; k<8; k++, graphx += inc)
  660.                       if (*pels & bit[k])
  661.                       {
  662. !                         setxpix(xscale[graphx]);
  663. !                         setxpix(xscale[graphx+1]);
  664. !                         setxpix(xscale[graphx+2]);
  665.   
  666.                           setpix(localy+1, xscale[graphx]);
  667.                           setpix(localy+1, xscale[graphx+1]);
  668. ***************
  669. *** 1160,1169 ****
  670.                   for (k=0; k<8; k++, graphx += inc)
  671.                       if (*pels & bit[k])
  672.                       {
  673. !                         setpix(localy, xscale[graphx]);
  674. !                         setpix(localy, xscale[graphx+1]);
  675. !                         setpix(localy, xscale[graphx+2]);
  676. !                         setpix(localy, xscale[graphx+3]);
  677.   
  678.                           setpix(localy+1, xscale[graphx]);
  679.                           setpix(localy+1, xscale[graphx+1]);
  680. --- 1211,1220 ----
  681.                   for (k=0; k<8; k++, graphx += inc)
  682.                       if (*pels & bit[k])
  683.                       {
  684. !                         setxpix(xscale[graphx]);
  685. !                         setxpix(xscale[graphx+1]);
  686. !                         setxpix(xscale[graphx+2]);
  687. !                         setxpix(xscale[graphx+3]);
  688.   
  689.                           setpix(localy+1, xscale[graphx]);
  690.                           setpix(localy+1, xscale[graphx+1]);
  691. ***************
  692. *** 1285,1291 ****
  693.   int c;
  694.   {
  695.       struct CHAR_BITMAP *cbm, *ubm;
  696. !     int i, j, k, curx, cury, localy, before,startx,endx,curcol,newcol;
  697.       double clen;
  698.   
  699.       if (see_thru)
  700. --- 1336,1342 ----
  701.   int c;
  702.   {
  703.       struct CHAR_BITMAP *cbm, *ubm;
  704. !     int i, j, curx, cury, localy, before,startx,endx,curcol,newcol;
  705.       double clen;
  706.   
  707.       if (see_thru)
  708. ***************
  709. *** 1336,1348 ****
  710.       if (c != ' ' && c != '\b')
  711.           for (i=0; i<cbm->hite; i++)
  712.           {
  713.               curx = before;
  714. !             localy = yscale[cury+i];
  715.   
  716. !             for (j=0; j<cbm->len; j++)
  717. !                 for (k=0; k<8; k++,curx++)
  718. !                     if (cbm->CH[i][j] & bit[k])
  719. !                         setpix(localy, xscale[curx]);
  720.           }
  721.   
  722.       if (c > ' ')
  723. --- 1387,1411 ----
  724.       if (c != ' ' && c != '\b')
  725.           for (i=0; i<cbm->hite; i++)
  726.           {
  727. +             register unsigned char *chptr = cbm->CH[i];
  728. + 
  729.               curx = before;
  730. !             setyforsetxpix(localy = yscale[cury+i]);
  731.   
  732. !             for (j=cbm->len; j-- > 0; )
  733. !             {
  734. !                 register unsigned char ch = *chptr++;
  735. ! 
  736. !                 if ( ch == 0 )    {curx+=8;continue;}
  737. !                 if ( ch&0x80 )    setxpix(xscale[curx]);curx++;
  738. !                 if ( ch&0x40 )    setxpix(xscale[curx]);curx++;
  739. !                 if ( ch&0x20 )    setxpix(xscale[curx]);curx++;
  740. !                 if ( ch&0x10 )    setxpix(xscale[curx]);curx++;
  741. !                 if ( ch&0x08 )    setxpix(xscale[curx]);curx++;
  742. !                 if ( ch&0x04 )    setxpix(xscale[curx]);curx++;
  743. !                 if ( ch&0x02 )    setxpix(xscale[curx]);curx++;
  744. !                 if ( ch&0x01 )    setxpix(xscale[curx]);curx++;
  745. !             }
  746.           }
  747.   
  748.       if (c > ' ')
  749. ***************
  750. *** 1365,1373 ****
  751.           for (i = 5; i < 8 ; i++)        /* fixed underlining */
  752.           {
  753.               curx = startx;
  754. !             localy = yscale[bmy+i];
  755.               for (j=0; curx<endx ; curx++)
  756. !                 setpix(localy,xscale[curx]);
  757.           }
  758.       }
  759.       dotted = TRUE;
  760. --- 1428,1436 ----
  761.           for (i = 5; i < 8 ; i++)        /* fixed underlining */
  762.           {
  763.               curx = startx;
  764. !             setyforsetxpix(localy = yscale[bmy+i]);
  765.               for (j=0; curx<endx ; curx++)
  766. !                 setxpix(xscale[curx]);
  767.           }
  768.       }
  769.       dotted = TRUE;
  770. Index: ./hpp.c
  771. *** /tmp/PATCHold/./hpp.c    Thu Mar  5 02:19:51 1992
  772. --- ./hpp.c    Thu Mar  5 02:19:54 1992
  773. ***************
  774. *** 21,27 ****
  775.   
  776.   #ifndef    lint
  777.   static char SCCSID[] =
  778. !     "@(#)hpp.c 1.4 92/01/05 23:16:48";
  779.   #endif
  780.   
  781.   #include "hptopbm.h"
  782. --- 21,27 ----
  783.   
  784.   #ifndef    lint
  785.   static char SCCSID[] =
  786. !     "@(#)hpp.c 1.5 92/03/01 02:04:54";
  787.   #endif
  788.   
  789.   #include "hptopbm.h"
  790. ***************
  791. *** 29,35 ****
  792.   #define    XSIZE        (RITE_MARGIN+8)*30
  793.   #define    YSIZE        (PAGE_LEN*50)+50
  794.   
  795. ! #define    dbprintf(x)    if (verbose) printf x
  796.   #define    ESCAPE    0x1b
  797.   
  798.   #define    TRANSFER    1
  799. --- 29,40 ----
  800.   #define    XSIZE        (RITE_MARGIN+8)*30
  801.   #define    YSIZE        (PAGE_LEN*50)+50
  802.   
  803. ! #ifdef    VERBOSE
  804. ! #define    dbprintf(x)    
  805. ! #else
  806. ! #define    dbprintf(x)    
  807. ! #endif
  808. ! 
  809.   #define    ESCAPE    0x1b
  810.   
  811.   #define    TRANSFER    1
  812. ***************
  813. *** 172,177 ****
  814. --- 177,187 ----
  815.   
  816.   /*    code    name            parnam    exec    rastfunc   */
  817.   
  818. +     {"*pX",    "Horizontal cursor (dots)",NULL,movex },
  819. +     {"*pY",    "Vertical cursor (dots)",NULL,    movey },
  820. +     {"*cD",    "Font ID" },
  821. +     {"*cE",    "Character Code" },
  822. +     {"*cF",    "Font/Char control",    fchcont,NULL,    rs_fc_ctl },
  823.       {"&lO",    "Orientation"    /* don't want to go into landscaping */ },
  824.       {"(sP",    "Primary Spacing",    spcont, spset },
  825.       {"(sH",    "Primary Pitch",    NULL,    NULL,    rs_pitch },
  826. ***************
  827. *** 185,198 ****
  828.       {")sS",    "Secondary Style",    stcont },
  829.       {")sB",    "Secondary Stroke" },
  830.       {")sT",    "Secondary Typeface" },
  831. -     {"&lP",    "Page Length",        NULL,    NULL,    rs_plen },
  832. -     {"&lE",    "Top Margin",        NULL,    NULL,    rs_mtop },
  833. -     {"&lF",    "Text Length",        NULL,    NULL,    rs_tlen },
  834. -     {"&aL",    "Left Margin",        NULL,    NULL,    rs_mleft },
  835. -     {"&aM",    "Right Margin",        NULL,    NULL,    rs_mright },
  836. -     {"&lC",    "Motion Index",        NULL,    NULL,    rs_vmi },
  837. -     {"&lD",    "Lines/Inch",        NULL,    NULL,    rs_lpi },
  838. -     {"*tR",    "Resolution",        NULL,    NULL,    rs_dpi },
  839.       {"*rA",    "Start Graphics",    sgcont,    NULL,    rs_graphxy },
  840.       {"*bW",    "Transfer" },
  841.       {"*rB",    "End Graphics" },
  842. --- 195,200 ----
  843. ***************
  844. *** 202,207 ****
  845. --- 204,217 ----
  846.       {"&aV",    "Move to Row (Decipoints)",NULL,movedy },
  847.       {"&dD",    "Underline on",        NULL,    NULL,    rs_ul },
  848.       {"&d@",    "Underline off",    NULL,    NULL,    rs_ul_off },
  849. +     {"&lP",    "Page Length",        NULL,    NULL,    rs_plen },
  850. +     {"&lE",    "Top Margin",        NULL,    NULL,    rs_mtop },
  851. +     {"&lF",    "Text Length",        NULL,    NULL,    rs_tlen },
  852. +     {"&aL",    "Left Margin",        NULL,    NULL,    rs_mleft },
  853. +     {"&aM",    "Right Margin",        NULL,    NULL,    rs_mright },
  854. +     {"&lC",    "Motion Index",        NULL,    NULL,    rs_vmi },
  855. +     {"&lD",    "Lines/Inch",        NULL,    NULL,    rs_lpi },
  856. +     {"*tR",    "Resolution",        NULL,    NULL,    rs_dpi },
  857.       {"&pX",    "Transparent Print",    NULL,    NULL,    rs_thru },
  858.       {"&lL",    "Perf Skip",         pscont },
  859.       {"&kH",    "HMI",            NULL,    NULL,    rs_hmi },
  860. ***************
  861. *** 210,220 ****
  862.       {"&sC",    "Line Wrap" },
  863.       {"&lX",    "Number of Copies" },
  864.       {"&lH",    "Paper Input Control",    NULL,    papinctrl },
  865. -     {"*pX",    "Horizontal cursor (dots)",NULL,movex },
  866. -     {"*pY",    "Vertical cursor (dots)",NULL,    movey },
  867. -     {"*cD",    "Font ID" },
  868. -     {"*cE",    "Character Code" },
  869. -     {"*cF",    "Font/Char control",    fchcont,NULL,    rs_fc_ctl },
  870.       {")sW",    "Create Font Header" },
  871.       {"(sW",    "Download Character" },
  872.       {"&fY",    "Macro ID",        NULL,    NULL,    macro_id },
  873. --- 220,225 ----
  874. ***************
  875. *** 769,783 ****
  876.           strcpy(pbmname, optarg);
  877.           break;
  878.           case '?':
  879. !         fprintf(stderr, "usage: hpinterp [-dx[,y]][-p][-v][-c][-rpbm]< file\n");
  880.           exit(1);
  881.       }
  882.       
  883.       if (!resdone) {
  884.   
  885. !     if (!strcmp(PGM,    "hp2hifax"))
  886.           rs_rastsize(    204.15, 195.58);
  887. !     else if (!strcmp(PGM,    "hp2lofax"))
  888.           rs_rastsize(    204.15, 97.79);
  889.       else if (!strcmp(PGM,    "hp2sun"))
  890.           rs_rastsize(     84.0,  84.0);
  891. --- 774,792 ----
  892.           strcpy(pbmname, optarg);
  893.           break;
  894.           case '?':
  895. !         fprintf(stderr, "usage: %s [-dx[,y]][-p][-v][-c][-rpbm]< file\n",PGM);
  896.           exit(1);
  897.       }
  898.       
  899.       if (!resdone) {
  900.   
  901. !     if (     !strcmp(PGM,    "hp2hifax")
  902. !         ||   !strcmp(PGM,    "hp2hig3")
  903. !         ||   !strcmp(PGM,    "hp2hig3r"))
  904.           rs_rastsize(    204.15, 195.58);
  905. !     else if (!strcmp(PGM,    "hp2lofax")
  906. !         ||   !strcmp(PGM,    "hp2log3")
  907. !         ||   !strcmp(PGM,    "hp2log3r"))
  908.           rs_rastsize(    204.15, 97.79);
  909.       else if (!strcmp(PGM,    "hp2sun"))
  910.           rs_rastsize(     84.0,  84.0);
  911. ***************
  912. *** 805,816 ****
  913.       pbmeject(FALSE);
  914.       if (genps)
  915.       ps_endemit();
  916.       exit(0);
  917.   /*NOTREACHED*/
  918.   }
  919.   
  920.   hptoany() {
  921. !     int c;
  922.   
  923.       while ((c = (*getchar_func)()) != EOF) {
  924.       if (c == ESCAPE)
  925. --- 814,833 ----
  926.       pbmeject(FALSE);
  927.       if (genps)
  928.       ps_endemit();
  929. + 
  930. + #ifdef    ZYXFAX
  931. +     if (  !strcmp(PGM,    "hp2hig3")
  932. +         ||!strcmp(PGM,    "hp2hig3r")
  933. +         ||!strcmp(PGM,    "hp2log3")
  934. +         ||!strcmp(PGM,    "hp2log3r"))
  935. +     g3stop();
  936. + #endif
  937.       exit(0);
  938.   /*NOTREACHED*/
  939.   }
  940.   
  941.   hptoany() {
  942. !     register int c;
  943.   
  944.       while ((c = (*getchar_func)()) != EOF) {
  945.       if (c == ESCAPE)
  946. Index: ./hptopbm.h
  947. *** /tmp/PATCHold/./hptopbm.h    Thu Mar  5 02:20:13 1992
  948. --- ./hptopbm.h    Thu Mar  5 02:20:14 1992
  949. ***************
  950. *** 16,25 ****
  951.       Canada K0A 1T0
  952.       (613) 832-0541
  953.   
  954. !     Function: Header file for hp2pbm.  1.3 92/01/05 23:17:02
  955.    */
  956.   
  957. ! #define    VERSION    "hp2pbm V1.01"
  958.   
  959.   #include <stdio.h>
  960.   #include <ctype.h>
  961. --- 16,25 ----
  962.       Canada K0A 1T0
  963.       (613) 832-0541
  964.   
  965. !     Function: Header file for hp2pbm.  1.4 92/03/01 02:05:16
  966.    */
  967.   
  968. ! #define    VERSION    "hp2pbm V1.02"
  969.   
  970.   #include <stdio.h>
  971.   #include <ctype.h>
  972. Index: ./g3.h
  973. *** /tmp/PATCHold/./g3.h    Thu Mar  5 02:20:20 1992
  974. --- ./g3.h    Thu Mar  5 02:20:23 1992
  975. ***************
  976. *** 0 ****
  977. --- 1,242 ----
  978. + /*
  979. +  * g3.h - G3 definitions
  980. +  * 
  981. +  * Copyright (C) 1989 by Paul Haeberli <paul@manray.sgi.com>. *
  982. +  * 
  983. +  * Permission to use, copy, modify, and distribute this software and its *
  984. +  * documentation for any purpose and without fee is hereby granted, provided *
  985. +  * that the above copyright notice appear in all copies and that both that *
  986. +  * copyright notice and this permission notice appear in supporting *
  987. +  * documentation.  This software is provided "as is" without express or *
  988. +  * implied warranty.
  989. +  * 1.1 92/03/05 from Jef Poskanzer's PBMPLUS
  990. +  */
  991. + 
  992. + #ifndef _G3_H_
  993. + #define _G3_H_
  994. + 
  995. + typedef struct tableentry {
  996. +     int tabid;
  997. +     int code;
  998. +     int length;
  999. +     int count;
  1000. +     } tableentry;
  1001. + 
  1002. + #define TWTABLE        23
  1003. + #define MWTABLE        24
  1004. + #define TBTABLE        25
  1005. + #define MBTABLE        26
  1006. + #define EXTABLE        27
  1007. + #define VRTABLE        28
  1008. + 
  1009. + static struct tableentry twtable[] = {
  1010. +     { TWTABLE, 0x35, 8, 0 },
  1011. +     { TWTABLE, 0x7, 6, 1 },
  1012. +     { TWTABLE, 0x7, 4, 2 },
  1013. +     { TWTABLE, 0x8, 4, 3 },
  1014. +     { TWTABLE, 0xb, 4, 4 },
  1015. +     { TWTABLE, 0xc, 4, 5 },
  1016. +     { TWTABLE, 0xe, 4, 6 },
  1017. +     { TWTABLE, 0xf, 4, 7 },
  1018. +     { TWTABLE, 0x13, 5, 8 },
  1019. +     { TWTABLE, 0x14, 5, 9 },
  1020. +     { TWTABLE, 0x7, 5, 10 },
  1021. +     { TWTABLE, 0x8, 5, 11 },
  1022. +     { TWTABLE, 0x8, 6, 12 },
  1023. +     { TWTABLE, 0x3, 6, 13 },
  1024. +     { TWTABLE, 0x34, 6, 14 },
  1025. +     { TWTABLE, 0x35, 6, 15 },
  1026. +     { TWTABLE, 0x2a, 6, 16 },
  1027. +     { TWTABLE, 0x2b, 6, 17 },
  1028. +     { TWTABLE, 0x27, 7, 18 },
  1029. +     { TWTABLE, 0xc, 7, 19 },
  1030. +     { TWTABLE, 0x8, 7, 20 },
  1031. +     { TWTABLE, 0x17, 7, 21 },
  1032. +     { TWTABLE, 0x3, 7, 22 },
  1033. +     { TWTABLE, 0x4, 7, 23 },
  1034. +     { TWTABLE, 0x28, 7, 24 },
  1035. +     { TWTABLE, 0x2b, 7, 25 },
  1036. +     { TWTABLE, 0x13, 7, 26 },
  1037. +     { TWTABLE, 0x24, 7, 27 },
  1038. +     { TWTABLE, 0x18, 7, 28 },
  1039. +     { TWTABLE, 0x2, 8, 29 },
  1040. +     { TWTABLE, 0x3, 8, 30 },
  1041. +     { TWTABLE, 0x1a, 8, 31 },
  1042. +     { TWTABLE, 0x1b, 8, 32 },
  1043. +     { TWTABLE, 0x12, 8, 33 },
  1044. +     { TWTABLE, 0x13, 8, 34 },
  1045. +     { TWTABLE, 0x14, 8, 35 },
  1046. +     { TWTABLE, 0x15, 8, 36 },
  1047. +     { TWTABLE, 0x16, 8, 37 },
  1048. +     { TWTABLE, 0x17, 8, 38 },
  1049. +     { TWTABLE, 0x28, 8, 39 },
  1050. +     { TWTABLE, 0x29, 8, 40 },
  1051. +     { TWTABLE, 0x2a, 8, 41 },
  1052. +     { TWTABLE, 0x2b, 8, 42 },
  1053. +     { TWTABLE, 0x2c, 8, 43 },
  1054. +     { TWTABLE, 0x2d, 8, 44 },
  1055. +     { TWTABLE, 0x4, 8, 45 },
  1056. +     { TWTABLE, 0x5, 8, 46 },
  1057. +     { TWTABLE, 0xa, 8, 47 },
  1058. +     { TWTABLE, 0xb, 8, 48 },
  1059. +     { TWTABLE, 0x52, 8, 49 },
  1060. +     { TWTABLE, 0x53, 8, 50 },
  1061. +     { TWTABLE, 0x54, 8, 51 },
  1062. +     { TWTABLE, 0x55, 8, 52 },
  1063. +     { TWTABLE, 0x24, 8, 53 },
  1064. +     { TWTABLE, 0x25, 8, 54 },
  1065. +     { TWTABLE, 0x58, 8, 55 },
  1066. +     { TWTABLE, 0x59, 8, 56 },
  1067. +     { TWTABLE, 0x5a, 8, 57 },
  1068. +     { TWTABLE, 0x5b, 8, 58 },
  1069. +     { TWTABLE, 0x4a, 8, 59 },
  1070. +     { TWTABLE, 0x4b, 8, 60 },
  1071. +     { TWTABLE, 0x32, 8, 61 },
  1072. +     { TWTABLE, 0x33, 8, 62 },
  1073. +     { TWTABLE, 0x34, 8, 63 },
  1074. +     };
  1075. + 
  1076. + static struct tableentry mwtable[] = {
  1077. +     { MWTABLE, 0x1b, 5, 64 },
  1078. +     { MWTABLE, 0x12, 5, 128 },
  1079. +     { MWTABLE, 0x17, 6, 192 },
  1080. +     { MWTABLE, 0x37, 7, 256 },
  1081. +     { MWTABLE, 0x36, 8, 320 },
  1082. +     { MWTABLE, 0x37, 8, 384 },
  1083. +     { MWTABLE, 0x64, 8, 448 },
  1084. +     { MWTABLE, 0x65, 8, 512 },
  1085. +     { MWTABLE, 0x68, 8, 576 },
  1086. +     { MWTABLE, 0x67, 8, 640 },
  1087. +     { MWTABLE, 0xcc, 9, 704 },
  1088. +     { MWTABLE, 0xcd, 9, 768 },
  1089. +     { MWTABLE, 0xd2, 9, 832 },
  1090. +     { MWTABLE, 0xd3, 9, 896 },
  1091. +     { MWTABLE, 0xd4, 9, 960 },
  1092. +     { MWTABLE, 0xd5, 9, 1024 },
  1093. +     { MWTABLE, 0xd6, 9, 1088 },
  1094. +     { MWTABLE, 0xd7, 9, 1152 },
  1095. +     { MWTABLE, 0xd8, 9, 1216 },
  1096. +     { MWTABLE, 0xd9, 9, 1280 },
  1097. +     { MWTABLE, 0xda, 9, 1344 },
  1098. +     { MWTABLE, 0xdb, 9, 1408 },
  1099. +     { MWTABLE, 0x98, 9, 1472 },
  1100. +     { MWTABLE, 0x99, 9, 1536 },
  1101. +     { MWTABLE, 0x9a, 9, 1600 },
  1102. +     { MWTABLE, 0x18, 6, 1664 },
  1103. +     { MWTABLE, 0x9b, 9, 1728 },
  1104. +     };
  1105. + 
  1106. + static struct tableentry tbtable[] = {
  1107. +     { TBTABLE, 0x37, 10, 0 },
  1108. +     { TBTABLE, 0x2, 3, 1 },
  1109. +     { TBTABLE, 0x3, 2, 2 },
  1110. +     { TBTABLE, 0x2, 2, 3 },
  1111. +     { TBTABLE, 0x3, 3, 4 },
  1112. +     { TBTABLE, 0x3, 4, 5 },
  1113. +     { TBTABLE, 0x2, 4, 6 },
  1114. +     { TBTABLE, 0x3, 5, 7 },
  1115. +     { TBTABLE, 0x5, 6, 8 },
  1116. +     { TBTABLE, 0x4, 6, 9 },
  1117. +     { TBTABLE, 0x4, 7, 10 },
  1118. +     { TBTABLE, 0x5, 7, 11 },
  1119. +     { TBTABLE, 0x7, 7, 12 },
  1120. +     { TBTABLE, 0x4, 8, 13 },
  1121. +     { TBTABLE, 0x7, 8, 14 },
  1122. +     { TBTABLE, 0x18, 9, 15 },
  1123. +     { TBTABLE, 0x17, 10, 16 },
  1124. +     { TBTABLE, 0x18, 10, 17 },
  1125. +     { TBTABLE, 0x8, 10, 18 },
  1126. +     { TBTABLE, 0x67, 11, 19 },
  1127. +     { TBTABLE, 0x68, 11, 20 },
  1128. +     { TBTABLE, 0x6c, 11, 21 },
  1129. +     { TBTABLE, 0x37, 11, 22 },
  1130. +     { TBTABLE, 0x28, 11, 23 },
  1131. +     { TBTABLE, 0x17, 11, 24 },
  1132. +     { TBTABLE, 0x18, 11, 25 },
  1133. +     { TBTABLE, 0xca, 12, 26 },
  1134. +     { TBTABLE, 0xcb, 12, 27 },
  1135. +     { TBTABLE, 0xcc, 12, 28 },
  1136. +     { TBTABLE, 0xcd, 12, 29 },
  1137. +     { TBTABLE, 0x68, 12, 30 },
  1138. +     { TBTABLE, 0x69, 12, 31 },
  1139. +     { TBTABLE, 0x6a, 12, 32 },
  1140. +     { TBTABLE, 0x6b, 12, 33 },
  1141. +     { TBTABLE, 0xd2, 12, 34 },
  1142. +     { TBTABLE, 0xd3, 12, 35 },
  1143. +     { TBTABLE, 0xd4, 12, 36 },
  1144. +     { TBTABLE, 0xd5, 12, 37 },
  1145. +     { TBTABLE, 0xd6, 12, 38 },
  1146. +     { TBTABLE, 0xd7, 12, 39 },
  1147. +     { TBTABLE, 0x6c, 12, 40 },
  1148. +     { TBTABLE, 0x6d, 12, 41 },
  1149. +     { TBTABLE, 0xda, 12, 42 },
  1150. +     { TBTABLE, 0xdb, 12, 43 },
  1151. +     { TBTABLE, 0x54, 12, 44 },
  1152. +     { TBTABLE, 0x55, 12, 45 },
  1153. +     { TBTABLE, 0x56, 12, 46 },
  1154. +     { TBTABLE, 0x57, 12, 47 },
  1155. +     { TBTABLE, 0x64, 12, 48 },
  1156. +     { TBTABLE, 0x65, 12, 49 },
  1157. +     { TBTABLE, 0x52, 12, 50 },
  1158. +     { TBTABLE, 0x53, 12, 51 },
  1159. +     { TBTABLE, 0x24, 12, 52 },
  1160. +     { TBTABLE, 0x37, 12, 53 },
  1161. +     { TBTABLE, 0x38, 12, 54 },
  1162. +     { TBTABLE, 0x27, 12, 55 },
  1163. +     { TBTABLE, 0x28, 12, 56 },
  1164. +     { TBTABLE, 0x58, 12, 57 },
  1165. +     { TBTABLE, 0x59, 12, 58 },
  1166. +     { TBTABLE, 0x2b, 12, 59 },
  1167. +     { TBTABLE, 0x2c, 12, 60 },
  1168. +     { TBTABLE, 0x5a, 12, 61 },
  1169. +     { TBTABLE, 0x66, 12, 62 },
  1170. +     { TBTABLE, 0x67, 12, 63 },
  1171. +     };
  1172. + 
  1173. + static struct tableentry mbtable[] = {
  1174. +     { MBTABLE, 0xf, 10, 64 },
  1175. +     { MBTABLE, 0xc8, 12, 128 },
  1176. +     { MBTABLE, 0xc9, 12, 192 },
  1177. +     { MBTABLE, 0x5b, 12, 256 },
  1178. +     { MBTABLE, 0x33, 12, 320 },
  1179. +     { MBTABLE, 0x34, 12, 384 },
  1180. +     { MBTABLE, 0x35, 12, 448 },
  1181. +     { MBTABLE, 0x6c, 13, 512 },
  1182. +     { MBTABLE, 0x6d, 13, 576 },
  1183. +     { MBTABLE, 0x4a, 13, 640 },
  1184. +     { MBTABLE, 0x4b, 13, 704 },
  1185. +     { MBTABLE, 0x4c, 13, 768 },
  1186. +     { MBTABLE, 0x4d, 13, 832 },
  1187. +     { MBTABLE, 0x72, 13, 896 },
  1188. +     { MBTABLE, 0x73, 13, 960 },
  1189. +     { MBTABLE, 0x74, 13, 1024 },
  1190. +     { MBTABLE, 0x75, 13, 1088 },
  1191. +     { MBTABLE, 0x76, 13, 1152 },
  1192. +     { MBTABLE, 0x77, 13, 1216 },
  1193. +     { MBTABLE, 0x52, 13, 1280 },
  1194. +     { MBTABLE, 0x53, 13, 1344 },
  1195. +     { MBTABLE, 0x54, 13, 1408 },
  1196. +     { MBTABLE, 0x55, 13, 1472 },
  1197. +     { MBTABLE, 0x5a, 13, 1536 },
  1198. +     { MBTABLE, 0x5b, 13, 1600 },
  1199. +     { MBTABLE, 0x64, 13, 1664 },
  1200. +     { MBTABLE, 0x65, 13, 1728 },
  1201. +     };
  1202. + 
  1203. + static struct tableentry extable[] = {
  1204. +     { EXTABLE, 0x8, 11, 1792 },
  1205. +     { EXTABLE, 0xc, 11, 1856 },
  1206. +     { EXTABLE, 0xd, 11, 1920 },
  1207. +     { EXTABLE, 0x12, 12, 1984 },
  1208. +     { EXTABLE, 0x13, 12, 2048 },
  1209. +     { EXTABLE, 0x14, 12, 2112 },
  1210. +     { EXTABLE, 0x15, 12, 2176 },
  1211. +     { EXTABLE, 0x16, 12, 2240 },
  1212. +     { EXTABLE, 0x17, 12, 2304 },
  1213. +     { EXTABLE, 0x1c, 12, 2368 },
  1214. +     { EXTABLE, 0x1d, 12, 2432 },
  1215. +     { EXTABLE, 0x1e, 12, 2496 },
  1216. +     { EXTABLE, 0x1f, 12, 2560 },
  1217. +     };
  1218. + 
  1219. + #endif /*_G3_H_*/
  1220. Index: ./g3.c
  1221. *** /tmp/PATCHold/./g3.c    Thu Mar  5 02:20:29 1992
  1222. --- ./g3.c    Thu Mar  5 02:20:32 1992
  1223. ***************
  1224. *** 0 ****
  1225. --- 1,228 ----
  1226. + /*
  1227. +  * g3 output routines for hp2pbm - bob@usixth.sublink.org. Mon Jan 20
  1228. +  * 20:44:06 EST 1992
  1229. +  * 
  1230. +  * From: 1.1 92/03/05
  1231. +  */
  1232. + /*
  1233. +  * pbmtog3.c - read a portable bitmap and produce a Group 3 FAX file *
  1234. +  * 
  1235. +  * Copyright (C) 1989 by Paul Haeberli <paul@manray.sgi.com>. *
  1236. +  * 
  1237. +  * Permission to use, copy, modify, and distribute this software and its *
  1238. +  * documentation for any purpose and without fee is hereby granted, provided *
  1239. +  * that the above copyright notice appear in all copies and that both that *
  1240. +  * copyright notice and this permission notice appear in supporting *
  1241. +  * documentation.  This software is provided "as is" without express or *
  1242. +  * implied warranty.
  1243. +  */
  1244. + 
  1245. + #include <stdio.h>
  1246. + #include "g3.h"
  1247. + 
  1248. + #ifdef    __STDC_
  1249. + #define    ARGS(a)    a
  1250. + #else
  1251. + #define    ARGS(a)    ()
  1252. + #endif
  1253. + 
  1254. + static void putwhitespan ARGS((int c));
  1255. + static void putblackspan ARGS((int c));
  1256. + static void putcode ARGS((tableentry * te));
  1257. + static void puteol ARGS((void));
  1258. + static void putinit ARGS((void));
  1259. + static void putbit ARGS((int d));
  1260. + static void flushbits ARGS((void));
  1261. + 
  1262. + static int      reversebits;
  1263. + static FILE     *fp;
  1264. + static int      bigcols;
  1265. + 
  1266. + static int      shdata;
  1267. + static int      shbit;
  1268. + 
  1269. + static
  1270. + #ifdef    __GNUC__
  1271. + inline
  1272. + #endif
  1273. + void
  1274. + putbit(d)
  1275. +     int             d;
  1276. + {
  1277. +     if (d)
  1278. +         shdata = shdata | shbit;
  1279. +     if (reversebits)
  1280. +         shbit = shbit << 1;
  1281. +     else
  1282. +         shbit = shbit >> 1;
  1283. +     if ((shbit & 0xff) == 0) {
  1284. +         putc(shdata,fp);
  1285. +         shdata = 0;
  1286. +         shbit = reversebits ? 0x01 : 0x80;
  1287. +     }
  1288. + }
  1289. + 
  1290. + g3start(filep, xmax, rev)
  1291. +     FILE            *filep;
  1292. + {
  1293. +     char            bitrow[1728 / 8];
  1294. + 
  1295. +     fp = filep;
  1296. +     reversebits = rev;
  1297. +     bigcols = xmax;
  1298. +     if (bigcols > 1728)
  1299. +         bigcols = 1728;
  1300. + 
  1301. +     shdata = 0;
  1302. +     shbit = reversebits ? 0x01 : 0x80;
  1303. + 
  1304. +     memset(bitrow, 0, sizeof(bitrow));
  1305. +     g3write(bitrow);
  1306. +     g3write(bitrow);
  1307. +     g3write(bitrow);
  1308. +     g3write(bitrow);
  1309. + }
  1310. + 
  1311. + g3stop()
  1312. + {
  1313. +     puteol();
  1314. +     puteol();
  1315. +     puteol();
  1316. +     puteol();
  1317. +     puteol();
  1318. +     puteol();
  1319. +     flushbits();
  1320. + }
  1321. + 
  1322. + g3write(bitrow)
  1323. +     register unsigned char *bitrow;
  1324. + {
  1325. +     register int             n = bigcols;
  1326. +     register int             c;
  1327. +     register unsigned char    mask, byte;
  1328. + 
  1329. +     byte = *bitrow++;
  1330. +     mask = 0x80;
  1331. +     while (n > 0) {
  1332. +         for ( c=0; (byte&mask) == 0 && n > 0; c++, n-- )
  1333. +         {
  1334. +             mask >>= 1;
  1335. +             if ( mask == 0 )
  1336. +             {
  1337. +                 mask = 0x80;
  1338. +                 byte = *bitrow++;
  1339. +                 while ( n >= 8 && byte == 0 )
  1340. +                 {
  1341. +                     c += 8;
  1342. +                     n -= 8;
  1343. +                     byte = *bitrow++;
  1344. +                 }
  1345. +             }
  1346. +         }
  1347. +         putwhitespan(c);
  1348. +         if (n == 0)
  1349. +             break;
  1350. +         for ( c=0; (byte&mask) && n > 0; c++, n-- )
  1351. +         {
  1352. +             mask >>= 1;
  1353. +             if ( mask == 0 )
  1354. +             {
  1355. +                 mask = 0x80;
  1356. +                 byte = *bitrow++;
  1357. +                 while ( n >= 8 && byte == 0xff )
  1358. +                 {
  1359. +                     c += 8;
  1360. +                     n -= 8;
  1361. +                     byte = *bitrow++;
  1362. +                 }
  1363. +             }
  1364. +         }
  1365. +         putblackspan(c);
  1366. +     }
  1367. +     puteol();
  1368. +     return 1;
  1369. + }
  1370. + 
  1371. + static
  1372. + #ifdef    __GNUC__
  1373. + inline
  1374. + #endif
  1375. + void
  1376. + putwhitespan(c)
  1377. +     int             c;
  1378. + {
  1379. +     int             tpos;
  1380. +     tableentry      *te;
  1381. + 
  1382. +     if (c >= 64) {
  1383. +         tpos = (c / 64) - 1;
  1384. +         te = mwtable + tpos;
  1385. +         c -= te->count;
  1386. +         putcode(te);
  1387. +     }
  1388. +     tpos = c;
  1389. +     te = twtable + tpos;
  1390. +     putcode(te);
  1391. + }
  1392. + 
  1393. + static
  1394. + #ifdef    __GNUC__
  1395. + inline
  1396. + #endif
  1397. + void
  1398. + putblackspan(c)
  1399. +     int             c;
  1400. + {
  1401. +     int             tpos;
  1402. +     tableentry      *te;
  1403. + 
  1404. +     if (c >= 64) {
  1405. +         tpos = (c / 64) - 1;
  1406. +         te = mbtable + tpos;
  1407. +         c -= te->count;
  1408. +         putcode(te);
  1409. +     }
  1410. +     tpos = c;
  1411. +     te = tbtable + tpos;
  1412. +     putcode(te);
  1413. + }
  1414. + 
  1415. + static void
  1416. + putcode(te)
  1417. +     register tableentry      *te;
  1418. + {
  1419. +     register unsigned int    mask;
  1420. +     register int             code;
  1421. + 
  1422. +     mask = 1 << (te->length - 1);
  1423. +     code = te->code;
  1424. +     while (mask) {
  1425. +         if (code & mask)
  1426. +             putbit(1);
  1427. +         else
  1428. +             putbit(0);
  1429. +         mask >>= 1;
  1430. +     }
  1431. + 
  1432. + }
  1433. + 
  1434. + static void
  1435. + puteol()
  1436. + {
  1437. +     int             i;
  1438. + 
  1439. +     for (i = 0; i < 11; ++i)
  1440. +         putbit(0);
  1441. +     putbit(1);
  1442. + }
  1443. + 
  1444. + static void
  1445. + flushbits()
  1446. + {
  1447. +     if ((reversebits && shbit != 0x01) ||
  1448. +         (!reversebits && shbit != 0x80)) {
  1449. +         putc(shdata,fp);
  1450. +         shdata = 0;
  1451. +         shbit = reversebits ? 0x01 : 0x80;
  1452. +     }
  1453. + }
  1454.  
  1455. -- 
  1456. Chris Lewis; clewis@ferret.ocunix.on.ca; Phone: Canada 613 832-0541
  1457. Psroff 3.0 info: psroff-request@ferret.ocunix.on.ca
  1458. Ferret list: ferret-request@ferret.ocunix.on.ca
  1459.  
  1460. exit 0 # Just in case...
  1461.