home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / AP / GHOSTSCR / GHOSTSCR.6 / ghostscript-2.6.1.fix-03
Encoding:
Text File  |  1993-07-19  |  87.1 KB  |  2,703 lines
  1.             Ghostscript 2.6.1 Patch #3
  2.  
  3.  
  4. To apply this patch:
  5.  
  6. cd to the directory containing the ghostscript source and do:
  7.     patch -s < ThisFile
  8. Patch will work silently unless an error occurs.
  9. If you want to watch patch do its thing, leave out the "-s" argument to patch.
  10.  
  11. See the readme.fix file for a summary of the fixes.
  12.  
  13. Prereq: 6/28/93
  14.  
  15. *** 1.2    1993/06/29 02:58:13
  16. --- readme.fix    1993/07/18 15:51:58
  17. ***************
  18. *** 7,13 ****
  19.   Fixes for Ghostscript 2.6.1
  20.   ---------------------------
  21.   
  22. ! (last update: 6/28/93)
  23.   
  24.   This file summarizes a number of important quality fixes for Ghostscript
  25.   2.6.1.  The fixes are supplied in the form of replacements for
  26. --- 7,13 ----
  27.   Fixes for Ghostscript 2.6.1
  28.   ---------------------------
  29.   
  30. ! (last update: 7/18/93)
  31.   
  32.   This file summarizes a number of important quality fixes for Ghostscript
  33.   2.6.1.  The fixes are supplied in the form of replacements for
  34. ***************
  35. *** 117,122 ****
  36. --- 117,124 ----
  37.   Files affected:
  38.       gxrefct.h
  39.   
  40. + ---------------- Fixes up to here distributed 6/23/93 ----------------
  41. + 
  42.   6/28/93
  43.   -------
  44.   
  45. ***************
  46. *** 125,127 ****
  47. --- 127,331 ----
  48.       file type1enc.ps.
  49.   Files affected:
  50.       unixtail.mak (and unix-*.mak, built from it using tar_cat)
  51. + 
  52. + Problem:
  53. +     X driver didn't free dynamic colors at the start of each page.
  54. + Files affected:
  55. +     gdevx.h
  56. +     gdevx.c
  57. + 
  58. + Problems:
  59. +     X driver didn't bind foreground/background defaults tightly.
  60. +     X driver didn't check for GHOSTVIEW_COLORS properly.
  61. +     X driver freed too many colors if an allocation request failed.
  62. +     X driver didn't check return value of gs_malloc for being NULL.
  63. + Files affected:
  64. +     gdevxini.c
  65. + 
  66. + Problem:
  67. +     There was no LaserJet 4 driver that could use the 600 dpi mode.
  68. + Fix:
  69. +     Implement one.
  70. + Files affected:
  71. +     devs.mak
  72. +     gdevdjet.c
  73. + 
  74. + Problem:
  75. +     The DeskJet and LaserJet drivers used \033&l0H (page eject)
  76. +     instead of \f (end of page), which prevented duplex printing.
  77. +     The DeskJet and LaserJet drivers reset the printer at the
  78. +     start of each page, which prevented manually initiated duplex
  79. +     printing.
  80. + Files affected:
  81. +     gdevdjet.c
  82. + 
  83. + 7/8/93
  84. + ------
  85. + 
  86. + Problem:
  87. +     kshow returned an incorrect (random, 32-bit) character code
  88. +     for the second character.
  89. + Fix:
  90. +     Make sure the character code is stored properly on all control paths.
  91. + Files affected:
  92. +     gschar.c
  93. + 
  94. + Problem:
  95. +     Color halftones "flipped over" at the 50% point, inverting
  96. +     foreground and background.
  97. + Fix:
  98. +     Correct a numerical error in the octant flip test.
  99. + Files affected:
  100. +     gxdither.c
  101. + 
  102. + Problem:
  103. +     setbbox didn't round the coordinates properly, which could cause
  104. +     erroneous rangecheck errors with coordinates on the edge of the box.
  105. + Files affected:
  106. +     gsdps1.c
  107. + 
  108. + Problem:
  109. +     The PCX driver put an old version number in the header, and
  110. +     didn't pad scan lines to an even number of bytes.
  111. + Files affected:
  112. +     gdevpcx.c
  113. + 
  114. + Problem:
  115. +     The TIFF driver didn't handle A4 or B4 size paper correctly.
  116. + Fix:
  117. +     Make the driver handle variable page sizes properly.
  118. + Files affected:
  119. +     gdevtiff.c
  120. + 
  121. + Problem:
  122. +     The VMS script files referenced IBSCAN instead of ISCAN2,
  123. +     and omitted GDEVXXF.
  124. + Files affected:
  125. +     vms-cc.mak
  126. +     vms-gcc.mak
  127. + 
  128. + Problem:
  129. +     zht2.c didn't include alloc.h.
  130. + Files affected:
  131. +     zht2.c
  132. + 
  133. + Problem:
  134. +     gdevx.h was inadvertently omitted from an earlier batch of fixes.
  135. + Files affected:
  136. +     gdevx.h
  137. + 
  138. + Problem:
  139. +     The UUENCODEd icons for the MS Windows platform were omitted
  140. +     from the fileset.
  141. + Files added:
  142. +     gsgraph.uue
  143. +     gstext.uue
  144. + 
  145. + 7/9/93
  146. + ------
  147. + 
  148. + Problem:
  149. +     exitserver didn't check the password, and always succeeded.
  150. + Fix:
  151. +     Make exitserver do a minimal password check.
  152. + Files affected:
  153. +     gs_statd.ps
  154. + 
  155. + Problem:
  156. +     Ghostscript only knew about a limited set of paper sizes.
  157. + Fix:
  158. +     Add many new paper sizes to gs_statd.ps.  It now includes ISO
  159. +     a0-a10 and b0-b10, and CAD sizes archA-archE.
  160. + Files affected:
  161. +     gs_statd.ps
  162. + 
  163. + 7/17/93
  164. + -------
  165. + 
  166. + Problem:
  167. +     The ESCP/2 driver was incorrectly named gdevescp2 in devs.mak.
  168. + Files affected:
  169. +     devs.mak
  170. + 
  171. + Problem:
  172. +     The X11 driver incorrectly demanded the Xmu library, which was
  173. +     not needed and which caused link errors on some versions of SunOS.
  174. + Solution:
  175. +     Remove Xmu from the list of X libraries.
  176. + Files affected:
  177. +     devs.mak
  178. + 
  179. + Problem:
  180. +     X11 font matching scheme was too loose, causing overlaps and
  181. +     other problems.
  182. + Solution:
  183. +     X11 font must be within 1/2 pixel of desired height to be used.
  184. + Files affected:
  185. +     gdevx.c, gdevx.h, gdevxini.c, gdevxxf.c
  186. + 
  187. + Problem:
  188. +     X11 Font Extensions (rotated and mirrored fonts) did not work
  189. +     properly on NCD terminals.
  190. + Solution:
  191. +     Add an X resource to be able to selectively turn off the use
  192. +     of Font Extensions.  It is called useFontExtensions.
  193. + Files affected:
  194. +     gdevx.c, gdevx.h, gdevxini.c, gdevxxf.c
  195. + 
  196. + Problem:
  197. +     When the X11 driver freed the rgb cube/gray ramp, the parameters
  198. +     to gs_free() did not exactly match the parameters to gs_malloc().
  199. + Solution:
  200. +     Make them match.
  201. + Files affected:
  202. +     gdevx.c
  203. + 
  204. + Problem:
  205. +     The X11 driver failed to warn the user when it could not allocate
  206. +     the original color cube/gray ramp and dropped back to a smaller
  207. +     cube/ramp, or from color to mono.
  208. + Solution:
  209. +     Warn the user when color allocation fails during initialization.
  210. + Files:
  211. +     gdevxini.c
  212. + 
  213. + Problem:
  214. +     x_release could cause Ghostscript to fail if a font was freed
  215. +     after the device was closed.
  216. + Solution:
  217. +     Don't free the font in x_release.  The font will be freed when
  218. +     the connection to the X server is closed.
  219. + Files affected:
  220. +     gdevx.c
  221. + 
  222. + 7/18/93
  223. + -------
  224. + 
  225. + Problem:
  226. +     On MS-DOS systems, filenameforall didn't interpret * alone
  227. +     as a pattern matching all files.
  228. + Fix:
  229. +     Recognize a trailing * in a pattern as a special case.
  230. + Files affected:
  231. +     gp_msdos.c
  232. + 
  233. + Problem:
  234. +     The FontName in the font file had be the same as the name in
  235. +     Fontmap.  (This requirement led to the need for aliases, and
  236. +     was extremely confusing to users.)
  237. + Fix:
  238. +     If loading a font file doesn't define the font with the
  239. +     requested name, parse the file to find the FontName, and make
  240. +     the requested name an alias for it.
  241. + Files affected:
  242. +     gs_fonts.ps
  243. + 
  244. + Problem:
  245. +     Users had to remember to edit the Fontmap file whenever they
  246. +     installed a new font.
  247. + Fix:
  248. +     Add a GS_FONTPATH environment variable containing a list of
  249. +     directories that should be scanned automatically for fonts at
  250. +     startup time.
  251. + Files affected:
  252. +     gs_fonts.ps, fonts.doc, use.doc
  253. *** 1.2    1993/06/29 02:22:52
  254. --- devs.mak    1993/07/17 17:40:16
  255. ***************
  256. *** 51,57 ****
  257.   # *    att3b1    AT&T 3b1/Unixpc monochrome display   [3b1 only]
  258.   # *    sonyfb    Sony Microsystems monochrome display   [Sony only]
  259.   # *    sunview  SunView window system   [SunOS only]
  260. ! #    x11    X Windows version 11, release >=3   [Unix and VMS only]
  261.   # Printers:
  262.   # *    appledmp  Apple Dot Matrix Printer (should also work with Imagewriter)
  263.   #    bj10e    Canon BubbleJet BJ10e
  264. --- 51,57 ----
  265.   # *    att3b1    AT&T 3b1/Unixpc monochrome display   [3b1 only]
  266.   # *    sonyfb    Sony Microsystems monochrome display   [Sony only]
  267.   # *    sunview  SunView window system   [SunOS only]
  268. ! #    x11    X Windows version 11, release >=4   [Unix and VMS only]
  269.   # Printers:
  270.   # *    appledmp  Apple Dot Matrix Printer (should also work with Imagewriter)
  271.   #    bj10e    Canon BubbleJet BJ10e
  272. ***************
  273. *** 83,88 ****
  274. --- 83,89 ----
  275.   # *    lj250    DEC LJ250 Companion color printer
  276.   # +    ljet2p    H-P LaserJet IId/IIp/III* with TIFF compression
  277.   # +    ljet3    H-P LaserJet III* with Delta Row compression
  278. + # +    ljet4    H-P LaserJet 4 (defaults to 600 dpi)
  279.   # +    ljetplus  H-P LaserJet Plus
  280.   # *    m8510    C.Itoh M8510 printer
  281.   # *    necp6    NEC P6/P6+/P60 printers at 360 x 360 DPI resolution
  282. ***************
  283. *** 410,415 ****
  284. --- 411,421 ----
  285.   ljet3.dev: $(HPMONO)
  286.       $(SHP)gssetdev ljet3 $(HPMONO)
  287.   
  288. + ### Selecting ljet4 also provides Delta Row compression on LaserJet IV series.
  289. + 
  290. + ljet4.dev: $(HPMONO)
  291. +     $(SHP)gssetdev ljet4 $(HPMONO)
  292. + 
  293.   ###- The H-P DeskJet 500C/550C and PaintJet family color printer devices -###
  294.   ### Note: there are two different 500C drivers, both contributed by users.###
  295.   ###   If you have questions about the djet500c driver,                    ###
  296. ***************
  297. *** 491,501 ****
  298.   ### Note: this driver was contributed by a user: if you have questions,  ###
  299.   ###       please contact Richard Brown (rab@tauon.ph.unimelb.edu.au).    ###
  300.   
  301. ! escp2_=gdevescp2.$(OBJ) gdevprn.$(OBJ)
  302.   escp2.dev: $(escp2_)
  303.       $(SHP)gssetdev escp2 $(escp2_)
  304.   
  305. ! gdevescp2.$(OBJ): gdevescp2.c $(PDEVH)
  306.   
  307.   ### ------------ The H-P PaintJet color printer device ----------------- ###
  308.   ### Note: this driver also supports the DEC LJ250 color printer, which   ###
  309. --- 497,507 ----
  310.   ### Note: this driver was contributed by a user: if you have questions,  ###
  311.   ###       please contact Richard Brown (rab@tauon.ph.unimelb.edu.au).    ###
  312.   
  313. ! escp2_=gdevescp.$(OBJ) gdevprn.$(OBJ)
  314.   escp2.dev: $(escp2_)
  315.       $(SHP)gssetdev escp2 $(escp2_)
  316.   
  317. ! gdevescp.$(OBJ): gdevescp.c $(PDEVH)
  318.   
  319.   ### ------------ The H-P PaintJet color printer device ----------------- ###
  320.   ### Note: this driver also supports the DEC LJ250 color printer, which   ###
  321. ***************
  322. *** 690,703 ****
  323.   # Aladdin Enterprises does not support Ghostview.  For more information
  324.   # about Ghostview, please contact Tim Theisen (ghostview@cs.wisc.edu).
  325.   
  326. - # NOTE: Xmu and Xext are here to keep Sun's dynamic linker happy.  No
  327. - #       routines are used from either of these two libraries.  If you
  328. - #       do not have libXmu.a or libXext.a, simply remove these two lines
  329. - #       from the Makefile.
  330.   x11_=gdevx.$(OBJ) gdevxini.$(OBJ) gdevxxf.$(OBJ) gdevemap.$(OBJ)
  331.   x11.dev: $(x11_)
  332.       $(SHP)gssetdev x11 $(x11_)
  333. !     $(SHP)gsaddmod x11 -lib Xt Xmu X11 Xext
  334.   
  335.   # See the main makefile for the definition of XINCLUDE.
  336.   GDEVX=$(GDEV) x_.h gdevx.h $(MAKEFILE)
  337. --- 696,705 ----
  338.   # Aladdin Enterprises does not support Ghostview.  For more information
  339.   # about Ghostview, please contact Tim Theisen (ghostview@cs.wisc.edu).
  340.   
  341.   x11_=gdevx.$(OBJ) gdevxini.$(OBJ) gdevxxf.$(OBJ) gdevemap.$(OBJ)
  342.   x11.dev: $(x11_)
  343.       $(SHP)gssetdev x11 $(x11_)
  344. !     $(SHP)gsaddmod x11 -lib Xt X11 Xext
  345.   
  346.   # See the main makefile for the definition of XINCLUDE.
  347.   GDEVX=$(GDEV) x_.h gdevx.h $(MAKEFILE)
  348. *** 1.1    1993/07/19 15:43:44
  349. --- fonts.doc    1993/07/17 19:27:38
  350. ***************
  351. *** 129,145 ****
  352.   entry for your new font at the end.  The format for entries is documented
  353.   in the Fontmap file.  Since later entries in Fontmap override earlier
  354.   entries, any fonts you add will supersede the corresponding fonts supplied
  355. ! with Ghostscript.  Note that the font name in the Fontmap entry must be
  356. ! the same as the FontName in the font itself.
  357.   
  358.   In the PC world, Type 1 fonts are customarily given names ending in .PFA
  359.   or .PFB.  Ghostscript can use these directly; you just need to make the
  360.   entry in Fontmap.  If you are going to use a commercial Type 1 font (such
  361.   as fonts obtained in conjunction with Adobe Type Manager) with
  362.   Ghostscript, please read carefully the license that accompanies the font;
  363. ! Aladdin Enterprises and the Free Software Foundation take no
  364. ! responsibility for any possible violations of such licenses.
  365.   
  366.   If you want to convert a BDF file to a scalable outline, use the program
  367.   bdftops.ps (and invoking shell script bdftops.bat or bdftops).  Run the
  368.   shell command
  369. --- 129,147 ----
  370.   entry for your new font at the end.  The format for entries is documented
  371.   in the Fontmap file.  Since later entries in Fontmap override earlier
  372.   entries, any fonts you add will supersede the corresponding fonts supplied
  373. ! with Ghostscript.
  374.   
  375.   In the PC world, Type 1 fonts are customarily given names ending in .PFA
  376.   or .PFB.  Ghostscript can use these directly; you just need to make the
  377.   entry in Fontmap.  If you are going to use a commercial Type 1 font (such
  378.   as fonts obtained in conjunction with Adobe Type Manager) with
  379.   Ghostscript, please read carefully the license that accompanies the font;
  380. ! Aladdin Enterprises takes no responsibility for any possible violations of
  381. ! such licenses.
  382.   
  383. + Converting BDF fonts
  384. + --------------------
  385. + 
  386.   If you want to convert a BDF file to a scalable outline, use the program
  387.   bdftops.ps (and invoking shell script bdftops.bat or bdftops).  Run the
  388.   shell command
  389. ***************
  390. *** 170,176 ****
  391.   The utility for precompiling fonts is called font2c.  Note that font2c is
  392.   a PostScript language program, so you must have Ghostscript already
  393.   running to be able to run font2c; you must also have entries in the
  394. ! Fontmap for the fonts you want to compile.)  For example, to precompile
  395.   the Times-Italic font,
  396.       font2c Times-Italic ptmri.c
  397.   where the first argument is the font name and the second is the name of
  398. --- 172,178 ----
  399.   The utility for precompiling fonts is called font2c.  Note that font2c is
  400.   a PostScript language program, so you must have Ghostscript already
  401.   running to be able to run font2c; you must also have entries in the
  402. ! Fontmap for the fonts you want to compile.  For example, to precompile
  403.   the Times-Italic font,
  404.       font2c Times-Italic ptmri.c
  405.   where the first argument is the font name and the second is the name of
  406. *** 1.2    1993/06/29 02:22:52
  407. --- gdevpcx.c    1993/07/09 14:47:28
  408. ***************
  409. *** 109,120 ****
  410.       ushort    hres;        /* horz. resolution */
  411.       ushort    vres;        /* vert. resolution */
  412.       byte    palette[16*3];    /* color palette */
  413. !     byte    vmode;        /* video mode for graphics board */
  414.       byte    nplanes;    /* number of color planes */
  415. !     ushort    bpl;        /* number of bytes per line (uncompresses) */
  416.       ushort    palinfo;    /* palette info 1=color, 2=grey */
  417. -     ushort    shres;        /* scanner horz. resolution */
  418. -     ushort    svres;        /* scanner vert. resolution */
  419.       byte    xtra[58];    /* fill out header to 128 bytes */
  420.   } pcx_header;
  421.   
  422. --- 109,118 ----
  423.       ushort    hres;        /* horz. resolution */
  424.       ushort    vres;        /* vert. resolution */
  425.       byte    palette[16*3];    /* color palette */
  426. !     byte    reserved;
  427.       byte    nplanes;    /* number of color planes */
  428. !     ushort    bpl;        /* number of bytes per line (uncompressed) */
  429.       ushort    palinfo;    /* palette info 1=color, 2=grey */
  430.       byte    xtra[58];    /* fill out header to 128 bytes */
  431.   } pcx_header;
  432.   
  433. ***************
  434. *** 124,130 ****
  435.   ** 0 == 2.5
  436.   ** 2 == 2.8 w/palette info
  437.   ** 3 == 2.8 without palette info
  438. ! ** 5 == 3.0
  439.   **
  440.   */
  441.   
  442. --- 122,128 ----
  443.   ** 0 == 2.5
  444.   ** 2 == 2.8 w/palette info
  445.   ** 3 == 2.8 without palette info
  446. ! ** 5 == 3.0 (includes palette)
  447.   **
  448.   */
  449.   
  450. ***************
  451. *** 136,146 ****
  452.   private int
  453.   pcxmono_print_page(gx_device_printer *pdev, FILE *file)
  454.   {    pcx_header header;
  455. -     header.version = 2;
  456.       header.bpp = 1;
  457.       header.nplanes = 1;
  458. !     /* Clear the EGA palette */
  459. !     memset((byte *)header.palette, 0, sizeof(header.palette));
  460.       return pcx_write_page(pdev, file, &header, 0);
  461.   }
  462.   
  463. --- 134,143 ----
  464.   private int
  465.   pcxmono_print_page(gx_device_printer *pdev, FILE *file)
  466.   {    pcx_header header;
  467.       header.bpp = 1;
  468.       header.nplanes = 1;
  469. !     /* Set the first two entries of the short palette. */
  470. !     memcpy((byte *)header.palette, "\377\377\377\000\000\000", 6);
  471.       return pcx_write_page(pdev, file, &header, 0);
  472.   }
  473.   
  474. ***************
  475. *** 154,160 ****
  476.   private int
  477.   pcx16_print_page(gx_device_printer *pdev, FILE *file)
  478.   {    pcx_header header;
  479. -     header.version = 2;
  480.       header.bpp = 1;
  481.       header.nplanes = 4;
  482.       /* Fill the EGA palette appropriately. */
  483. --- 151,156 ----
  484. ***************
  485. *** 167,173 ****
  486.   pcx256_print_page(gx_device_printer *pdev, FILE *file)
  487.   {    pcx_header header;
  488.       int code;
  489. -     header.version = 5;
  490.       header.bpp = 8;
  491.       header.nplanes = 1;
  492.       /* Clear the EGA palette */
  493. --- 163,168 ----
  494. ***************
  495. *** 187,216 ****
  496.   private int
  497.   pcx_write_page(gx_device_printer *pdev, FILE *file, pcx_header _ss *phdr,
  498.     int planar)
  499. ! {    int raster = gdev_prn_raster(pdev);
  500.       int height = pdev->height;
  501.       int depth = pdev->color_info.depth;
  502. !     uint rsize = (pdev->width + 7) >> 3;
  503. !     byte *row = (byte *)gs_malloc(raster + rsize, 1, "pcx file buffer");
  504. !     byte *end = row + raster;
  505. !     byte *plane = end;
  506.       int y;
  507.       int code = 0;            /* return code */
  508. !     if ( row == 0 )            /* can't allocate row buffer */
  509.           return_error(gs_error_VMerror);
  510.   
  511. !     /* setup the header struct */
  512.   
  513.       phdr->manuf = 10;
  514. !     /* version and bpp were set by the caller */
  515.       phdr->encoding = 1;    /* 1 for rle 8-bit encoding */
  516.       phdr->x1 = 0;
  517.       phdr->y1 = 0;
  518.       assign_ushort(phdr->x2, pdev->width-1);
  519.       assign_ushort(phdr->y2, height-1);
  520.       assign_ushort(phdr->hres, (int)pdev->x_pixels_per_inch);
  521.       assign_ushort(phdr->vres, (int)pdev->y_pixels_per_inch);
  522. !     phdr->vmode = 0;
  523.       /* nplanes was set by the caller */
  524.       assign_ushort(phdr->bpl, (planar && depth > 1 ? rsize : raster));
  525.       assign_ushort(phdr->palinfo, (gx_device_has_color(pdev) ? 1 : 2));
  526. --- 182,212 ----
  527.   private int
  528.   pcx_write_page(gx_device_printer *pdev, FILE *file, pcx_header _ss *phdr,
  529.     int planar)
  530. ! {    int orig_raster = gdev_prn_raster(pdev);
  531. !     int raster = round_up(orig_raster, 2);    /* PCX format requires even */
  532. !     uint rsize = round_up((pdev->width + 7) >> 3, 2);    /* ditto */
  533.       int height = pdev->height;
  534.       int depth = pdev->color_info.depth;
  535. !     byte *line = (byte *)gs_malloc(raster + rsize, 1, "pcx file buffer");
  536. !     byte *plane = line + raster;
  537.       int y;
  538.       int code = 0;            /* return code */
  539. !     if ( line == 0 )        /* can't allocate line buffer */
  540.           return_error(gs_error_VMerror);
  541.   
  542. !     /* Set up the header struct. */
  543.   
  544.       phdr->manuf = 10;
  545. !     phdr->version = 5;
  546.       phdr->encoding = 1;    /* 1 for rle 8-bit encoding */
  547. +     /* bpp was set by the caller */
  548.       phdr->x1 = 0;
  549.       phdr->y1 = 0;
  550.       assign_ushort(phdr->x2, pdev->width-1);
  551.       assign_ushort(phdr->y2, height-1);
  552.       assign_ushort(phdr->hres, (int)pdev->x_pixels_per_inch);
  553.       assign_ushort(phdr->vres, (int)pdev->y_pixels_per_inch);
  554. !     phdr->reserved = 0;
  555.       /* nplanes was set by the caller */
  556.       assign_ushort(phdr->bpl, (planar && depth > 1 ? rsize : raster));
  557.       assign_ushort(phdr->palinfo, (gx_device_has_color(pdev) ? 1 : 2));
  558. ***************
  559. *** 224,230 ****
  560.   
  561.       /* Dump the contents of the image. */
  562.       for ( y = 0; y < height; y++ )
  563. !        {    gdev_prn_copy_scan_lines(pdev, y, row, raster);
  564.           switch ( depth )
  565.              {
  566.           case 1:
  567. --- 220,233 ----
  568.   
  569.       /* Dump the contents of the image. */
  570.       for ( y = 0; y < height; y++ )
  571. !     {    byte *row;
  572. !         byte *end;
  573. !         int code = gdev_prn_get_bits(pdev, y, line, &row);
  574. !         if ( code < 0 ) break;
  575. !         end = row + raster;
  576. !         /* Clear an odd trailing byte. */
  577. !         if ( orig_raster & 1 )
  578. !             end[-1] = 0;
  579.           switch ( depth )
  580.              {
  581.           case 1:
  582. ***************
  583. *** 267,273 ****
  584.                          (((uint)from[7] & bmask)))
  585.                         >> shift;
  586.                   }
  587. !                 pcx_write_rle(plane, to, file);
  588.               }
  589.              }
  590.               break;
  591. --- 270,276 ----
  592.                          (((uint)from[7] & bmask)))
  593.                         >> shift;
  594.                   }
  595. !                 pcx_write_rle(plane, plane + rsize, file);
  596.               }
  597.              }
  598.               break;
  599. ***************
  600. *** 277,286 ****
  601.                 goto pcx_done;
  602.   
  603.              }
  604. !        }
  605.   
  606.   pcx_done:
  607. !     gs_free((char *)row, raster + rsize, 1, "pcx file buffer");
  608.   
  609.       return code;
  610.   }
  611. --- 280,289 ----
  612.                 goto pcx_done;
  613.   
  614.              }
  615. !     }
  616.   
  617.   pcx_done:
  618. !     gs_free((char *)line, raster + rsize, 1, "pcx file buffer");
  619.   
  620.       return code;
  621.   }
  622. *** 1.1    1993/07/19 15:43:44
  623. --- gdevtiff.c    1993/07/08 11:46:26
  624. ***************
  625. *** 47,52 ****
  626. --- 47,53 ----
  627.       long    prevdir;    /* file offset of previous directory offset */
  628.       long    diroff;        /* file offset of next write */
  629.       int        bigendian;    /* 1 if machine is big-endian, 0 otherwise */
  630. +     unsigned long iwidth;    /* width of image data in pixels */
  631.       int        fax_byte;
  632.       int        fax_weight;
  633.   } TIFFOUT;
  634. ***************
  635. *** 77,83 ****
  636.   /* The device descriptor */
  637.   #define X_DPI 204
  638.   #define Y_DPI 196
  639. ! #define LINE_SIZE ((X_DPI * 98 / 10 + 7) / 8)    /* bytes per line */
  640.   
  641.   private dev_proc_open_device(tiff_prn_open);
  642.   private dev_proc_print_page(tiff_print_page);
  643. --- 78,84 ----
  644.   /* The device descriptor */
  645.   #define X_DPI 204
  646.   #define Y_DPI 196
  647. ! #define LINE_SIZE ((X_DPI * 101 / 10 + 7) / 8)    /* bytes per line */
  648.   
  649.   private dev_proc_open_device(tiff_prn_open);
  650.   private dev_proc_print_page(tiff_print_page);
  651. ***************
  652. *** 108,116 ****
  653.   #define    PAPER_SIZE_LETTER    0
  654.       { 85,  110, 1728 },
  655.   #define    PAPER_SIZE_A4        1
  656. !     { 83,  117, 1728 },
  657.   #define    PAPER_SIZE_B4        2
  658. !     { 98, 1391, 2048 }
  659.   };
  660.   #define    NPAGEINFO (sizeof (pageinfo) / sizeof (pageinfo[0]))
  661.   
  662. --- 109,117 ----
  663.   #define    PAPER_SIZE_LETTER    0
  664.       { 85,  110, 1728 },
  665.   #define    PAPER_SIZE_A4        1
  666. !     { 85,  117, 1728 },
  667.   #define    PAPER_SIZE_B4        2
  668. !     { 101, 143, 2048 }
  669.   };
  670.   #define    NPAGEINFO (sizeof (pageinfo) / sizeof (pageinfo[0]))
  671.   
  672. ***************
  673. *** 143,148 ****
  674. --- 144,150 ----
  675.       if (rc == 0) {
  676.       gx_device_tiff* ddev = (gx_device_tiff*) pdev;
  677.       faxout_open_fp(ddev->file, &ddev->fax);
  678. +     ddev->fax.iwidth = pi->iw;
  679.       }
  680.       return (rc);
  681.   }
  682. ***************
  683. *** 654,660 ****
  684.       register int    run;
  685.       register int    rl;
  686.   
  687. !     ep = p + 1728/8;
  688.       bit = 7;
  689.       for (;;) {
  690.       find_white_run();
  691. --- 656,662 ----
  692.       register int    run;
  693.       register int    rl;
  694.   
  695. !     ep = p + faxp->iwidth/8;
  696.       bit = 7;
  697.       for (;;) {
  698.       find_white_run();
  699. ***************
  700. *** 689,695 ****
  701.   
  702.       if(c>=64) {
  703.       tpos = (c/64)-1;
  704. !     te = mwtable+tpos;
  705.       c -= te->count;
  706.       putcode(faxp, te);
  707.       }
  708. --- 691,697 ----
  709.   
  710.       if(c>=64) {
  711.       tpos = (c/64)-1;
  712. !     te = tpos < 27 ? mwtable+tpos : extable+tpos-27;
  713.       c -= te->count;
  714.       putcode(faxp, te);
  715.       }
  716. ***************
  717. *** 706,712 ****
  718.   
  719.       if(c>=64) {
  720.       tpos = (c/64)-1;
  721. !     te = mbtable+tpos;
  722.       c -= te->count;
  723.       putcode(faxp, te);
  724.       }
  725. --- 708,714 ----
  726.   
  727.       if(c>=64) {
  728.       tpos = (c/64)-1;
  729. !     te = tpos < 27 ? mbtable+tpos : extable+tpos-27;
  730.       c -= te->count;
  731.       putcode(faxp, te);
  732.       }
  733. *** 1.2    1993/06/29 02:22:52
  734. --- gdevx.c    1993/07/17 17:36:10
  735. ***************
  736. *** 157,164 ****
  737.       NULL,            /* palette */
  738.       NULL, NULL, NULL,    /* regularFonts, symbolFonts, dingbatFonts */
  739.       NULL, NULL, NULL,    /* regular_fonts, symbol_fonts, dingbat_fonts */
  740. !     1, 1, 0,        /* useXFonts, useScalableFonts, logXFonts */
  741. !     10.0,            /* xFontTolerance */
  742.       0.0, 0.0,        /* xResolution, yResolution */
  743.       1,            /* useBackingPixmap */
  744.       1, 1,            /* useXPutImage, useXSetTile */
  745. --- 157,164 ----
  746.       NULL,            /* palette */
  747.       NULL, NULL, NULL,    /* regularFonts, symbolFonts, dingbatFonts */
  748.       NULL, NULL, NULL,    /* regular_fonts, symbol_fonts, dingbat_fonts */
  749. !     1, 1,            /* useXFonts, useFontExtensions */
  750. !     1, 0,            /* useScalableFonts, logXFonts */
  751.       0.0, 0.0,        /* xResolution, yResolution */
  752.       1,            /* useBackingPixmap */
  753.       1, 1,            /* useXPutImage, useXSetTile */
  754. ***************
  755. *** 196,206 ****
  756.       }
  757.       if (xdev->dither_colors) {
  758.       if (gx_device_has_color(xdev))
  759.           gs_free((char *)xdev->dither_colors, sizeof(x_pixel),
  760. !             xdev->color_info.dither_gray, "gdev_x_gray_ramp");
  761.       else
  762.           gs_free((char *)xdev->dither_colors, sizeof(x_pixel),
  763. !             xdev->color_info.dither_rgb, "gdev_x_rgb_cube");
  764.       xdev->dither_colors = NULL;
  765.       }
  766.       if (xdev->dynamic_colors) {
  767. --- 196,208 ----
  768.       }
  769.       if (xdev->dither_colors) {
  770.       if (gx_device_has_color(xdev))
  771. + #define cube(r) (r*r*r)
  772.           gs_free((char *)xdev->dither_colors, sizeof(x_pixel),
  773. !             cube(xdev->color_info.dither_rgb), "gdev_x_rgb_cube");
  774. ! #undef cube
  775.       else
  776.           gs_free((char *)xdev->dither_colors, sizeof(x_pixel),
  777. !             xdev->color_info.dither_gray, "gdev_x_gray_ramp");
  778.       xdev->dither_colors = NULL;
  779.       }
  780.       if (xdev->dynamic_colors) {
  781. ***************
  782. *** 470,475 ****
  783. --- 472,488 ----
  784.       /* on every operation, but there's no separate driver routine */
  785.       /* for erasepage (yet). */
  786.       if (x == 0 && y == 0 && w == xdev->width && h == xdev->height) {
  787. +     if (color == xdev->foreground || color == xdev->background) {
  788. +         int i;
  789. +         XErrorHandler oldhandler = XSetErrorHandler(x_catch_free_colors);
  790. +         for (i = 0; i < xdev->dynamic_number; i++) {
  791. +         XFreeColors(xdev->dpy, xdev->cmap,
  792. +                 &xdev->dynamic_colors[i].pixel, 1, 0);
  793. +         }
  794. +         XSync(xdev->dpy, False);    /* Force any errors */
  795. +         oldhandler = XSetErrorHandler(oldhandler);
  796. +         xdev->dynamic_number = 0;
  797. +     }
  798.       xdev->colors_or = xdev->colors_and = color;
  799.       }
  800.       if (xdev->bpixmap != (Pixmap) 0) {
  801. *** 1.1    1993/07/19 15:43:44
  802. --- gdevx.h    1993/07/17 17:36:10
  803. ***************
  804. *** 145,152 ****
  805.       x11fontmap *regular_fonts;
  806.       x11fontmap *symbol_fonts;
  807.       x11fontmap *dingbat_fonts;
  808. !     Boolean useXFonts, useScalableFonts, logXFonts;
  809. !     float xFontTolerance;
  810.       float xResolution, yResolution;
  811.   
  812.       /* Flags work around various X server problems. */
  813. --- 145,151 ----
  814.       x11fontmap *regular_fonts;
  815.       x11fontmap *symbol_fonts;
  816.       x11fontmap *dingbat_fonts;
  817. !     Boolean useXFonts, useFontExtensions, useScalableFonts, logXFonts;
  818.       float xResolution, yResolution;
  819.   
  820.       /* Flags work around various X server problems. */
  821. ***************
  822. *** 159,164 ****
  823. --- 158,164 ----
  824.   /* function to keep track of screen updates */
  825.   void x_update_add(P5(gx_device *, int, int, int, int));
  826.   void gdev_x_clear_window(P1(gx_device_X *));
  827. + int x_catch_free_colors(P2(Display *, XErrorEvent *));
  828.   
  829.   /* Number used to distinguish when resoultion was set from the command line */
  830.   #define FAKE_RES (16*72)
  831. *** 1.2    1993/06/29 02:22:52
  832. --- gdevxini.c    1993/07/17 17:36:10
  833. ***************
  834. *** 40,48 ****
  835.       {"dingbatFonts", "DingbatFonts", XtRString, sizeof(String), 
  836.        XtOffsetOf(gx_device_X, dingbatFonts),
  837.        XtRString, "ZapfDingbats: -Adobe-ITC Zapf Dingbats-Medium-R-Normal--"},
  838. -     {"externalFontTolerance", "ExternalFontTolerance", XtRFloat, sizeof(float),
  839. -      XtOffsetOf(gx_device_X, xFontTolerance),
  840. -      XtRString, (XtPointer)"10.0"},
  841.       {XtNforeground, XtCForeground, XtRPixel, sizeof(Pixel),
  842.        XtOffsetOf(gx_device_X, foreground),
  843.        XtRString, (XtPointer)"XtDefaultForeground"},
  844. --- 40,45 ----
  845. ***************
  846. *** 110,115 ****
  847. --- 107,115 ----
  848.       {"useExternalFonts", "UseExternalFonts", XtRBoolean, sizeof(Boolean), 
  849.        XtOffsetOf(gx_device_X, useXFonts),
  850.        XtRImmediate, (XtPointer)True},
  851. +     {"useFontExtensions", "UseFontExtensions", XtRBoolean, sizeof(Boolean), 
  852. +      XtOffsetOf(gx_device_X, useFontExtensions),
  853. +      XtRImmediate, (XtPointer)True},
  854.       {"useScalableFonts", "UseScalableFonts", XtRBoolean, sizeof(Boolean), 
  855.        XtOffsetOf(gx_device_X, useScalableFonts),
  856.        XtRImmediate, (XtPointer)True},
  857. ***************
  858. *** 127,132 ****
  859. --- 127,139 ----
  860.        XtRString, (XtPointer)"0.0"},
  861.   };
  862.   
  863. + private String
  864. + fallback_resources[] = {
  865. +     "Ghostscript*Background: white",
  866. +     "Ghostscript*Foreground: black",
  867. +     NULL
  868. + };
  869. + 
  870.   /* Define constants for orientation from ghostview */
  871.   /* Number represents clockwise rotation of the paper in degrees */
  872.   typedef enum {
  873. ***************
  874. *** 157,163 ****
  875.       return oldhandler(dpy, err);
  876.   }
  877.   
  878. ! private int
  879.   x_catch_free_colors(Display *dpy, XErrorEvent *err)
  880.   {
  881.       if (err->request_code == X_FreeColors) return 0;
  882. --- 164,170 ----
  883.       return oldhandler(dpy, err);
  884.   }
  885.   
  886. ! int
  887.   x_catch_free_colors(Display *dpy, XErrorEvent *err)
  888.   {
  889.       if (err->request_code == X_FreeColors) return 0;
  890. ***************
  891. *** 329,334 ****
  892. --- 336,342 ----
  893.   #endif
  894.       XtToolkitInitialize();
  895.       app_con = XtCreateApplicationContext();
  896. +     XtAppSetFallbackResources(app_con, fallback_resources);
  897.       dpy = XtOpenDisplay(app_con, NULL, "ghostscript", "Ghostscript",
  898.               NULL, 0, &zero, NULL);
  899.       toplevel = XtAppCreateShell(NULL, "Ghostscript",
  900. ***************
  901. *** 576,582 ****
  902.           type == XA_STRING) {
  903.           nitems = sscanf(buf, "%*s %d %d", &(xdev->foreground),
  904.                                 &(xdev->background));
  905. !         if (nitems != 2 || *buf != 'M' || *buf != 'G' || *buf != 'C') {
  906.           eprintf("gs: Malformed ghostview color property.\n");
  907.           exit(1);
  908.           }
  909. --- 584,590 ----
  910.           type == XA_STRING) {
  911.           nitems = sscanf(buf, "%*s %d %d", &(xdev->foreground),
  912.                                 &(xdev->background));
  913. !         if (nitems != 2 || *buf != 'M' && *buf != 'G' && *buf != 'C') {
  914.           eprintf("gs: Malformed ghostview color property.\n");
  915.           exit(1);
  916.           }
  917. ***************
  918. *** 599,611 ****
  919.   #endif
  920.       xdev->dither_colors = NULL;
  921.       xdev->dynamic_colors = NULL;
  922.       xdev->color_info.depth = xdev->vinfo->depth;
  923.   
  924.       if (palette == 'C') {
  925.       xdev->color_info.num_components = 3;
  926.       xdev->color_info.max_gray =
  927.           xdev->color_info.max_rgb = num_rgb - 1;
  928. -     xdev->dither_colors = NULL;
  929.   #if HaveStdCMap
  930.       /* Get a standard color map if available */
  931.       if (xdev->vinfo->visual == DefaultVisualOfScreen(xdev->scr)) {
  932. --- 607,620 ----
  933.   #endif
  934.       xdev->dither_colors = NULL;
  935.       xdev->dynamic_colors = NULL;
  936. +     xdev->dynamic_size = 0;
  937. +     xdev->dynamic_number = 0;
  938.       xdev->color_info.depth = xdev->vinfo->depth;
  939.   
  940.       if (palette == 'C') {
  941.       xdev->color_info.num_components = 3;
  942.       xdev->color_info.max_gray =
  943.           xdev->color_info.max_rgb = num_rgb - 1;
  944.   #if HaveStdCMap
  945.       /* Get a standard color map if available */
  946.       if (xdev->vinfo->visual == DefaultVisualOfScreen(xdev->scr)) {
  947. ***************
  948. *** 641,646 ****
  949. --- 650,659 ----
  950.           xdev->dither_colors =
  951.               (x_pixel *) gs_malloc(sizeof(x_pixel), cube(ramp_size),
  952.                         "gdev_x_rgb_cube");
  953. +         if (xdev->dither_colors == NULL) {
  954. +             ramp_size--;
  955. +             goto no_cube;
  956. +         }
  957.           for (r = 0; r < ramp_size; r++) {
  958.               for (g = 0; g < ramp_size; g++) {
  959.               for (b = 0; b < ramp_size; b++) {
  960. ***************
  961. *** 663,681 ****
  962.                       xdev->dither_colors[cube_index(r, g, b)] =
  963.                       xc.pixel;
  964.                   } else {
  965. !                     int i;
  966. ! 
  967.                       ramp_size--;
  968. !                     oldhandler =
  969. !                     XSetErrorHandler(x_catch_free_colors);
  970. !                     for (i = 1; i < cube_index(r, g, b); i++) {
  971.                       XFreeColors(xdev->dpy, xdev->cmap,
  972. !                             &(xdev->dither_colors[i]),
  973. !                             1, 0);
  974.                       }
  975. -                     /* Force any errors */
  976. -                     XSync(xdev->dpy, False);
  977. -                     oldhandler = XSetErrorHandler(oldhandler);
  978.                       gs_free((char *)xdev->dither_colors,
  979.                           sizeof(x_pixel), cube(ramp_size),
  980.                           "gdev_x_rgb_cube");
  981. --- 676,695 ----
  982.                       xdev->dither_colors[cube_index(r, g, b)] =
  983.                       xc.pixel;
  984.                   } else {
  985. !                     eprintf3("Warning: failed to allocate %dx%dx%d RGB cube.\n",
  986. !                          ramp_size, ramp_size, ramp_size);
  987.                       ramp_size--;
  988. !                     if (cube_index(r, g, b) - 1 > 0) {
  989. !                     oldhandler =
  990. !                       XSetErrorHandler(x_catch_free_colors);
  991.                       XFreeColors(xdev->dpy, xdev->cmap,
  992. !                             xdev->dither_colors + 1,
  993. !                             cube_index(r, g, b) - 1, 0);
  994. !                     /* Force any errors */
  995. !                     XSync(xdev->dpy, False);
  996. !                     oldhandler =
  997. !                         XSetErrorHandler(oldhandler);
  998.                       }
  999.                       gs_free((char *)xdev->dither_colors,
  1000.                           sizeof(x_pixel), cube(ramp_size),
  1001.                           "gdev_x_rgb_cube");
  1002. ***************
  1003. *** 696,717 ****
  1004.   
  1005.       /* Allocate space for dynamic colors, do at most 256 */
  1006.       /* If there are more avaiaible, we ask the X server */
  1007. -     xdev->dynamic_number = 0;
  1008.       xdev->dynamic_size = min(256, xdev->vinfo->colormap_size -
  1009.                         cube(xdev->color_info.dither_rgb));
  1010.       if (xdev->dynamic_size) {
  1011.           xdev->dynamic_colors =
  1012.           (XColor *) gs_malloc(sizeof(XColor), xdev->dynamic_size,
  1013.                        "gdev_x_dynamic_colors");
  1014. !     } else {
  1015. !         xdev->dynamic_colors = NULL;
  1016.       }
  1017.   #undef cube
  1018.       } else if (palette == 'G') {
  1019.   grayscale:
  1020.       xdev->color_info.num_components = 1;
  1021.       xdev->color_info.max_gray = num_rgb - 1;
  1022. -     xdev->dither_colors = NULL;
  1023.   #if HaveStdCMap
  1024.       /* Get a standard color map if available */
  1025.       if (xdev->std_cmap = x_get_std_cmap(xdev, XA_RGB_GRAY_MAP)) {
  1026. --- 710,730 ----
  1027.   
  1028.       /* Allocate space for dynamic colors, do at most 256 */
  1029.       /* If there are more avaiaible, we ask the X server */
  1030.       xdev->dynamic_size = min(256, xdev->vinfo->colormap_size -
  1031.                         cube(xdev->color_info.dither_rgb));
  1032.       if (xdev->dynamic_size) {
  1033.           xdev->dynamic_colors =
  1034.           (XColor *) gs_malloc(sizeof(XColor), xdev->dynamic_size,
  1035.                        "gdev_x_dynamic_colors");
  1036. !         if (xdev->dynamic_colors == NULL) {
  1037. !         xdev->dynamic_size = 0;
  1038. !         }
  1039.       }
  1040.   #undef cube
  1041.       } else if (palette == 'G') {
  1042.   grayscale:
  1043.       xdev->color_info.num_components = 1;
  1044.       xdev->color_info.max_gray = num_rgb - 1;
  1045.   #if HaveStdCMap
  1046.       /* Get a standard color map if available */
  1047.       if (xdev->std_cmap = x_get_std_cmap(xdev, XA_RGB_GRAY_MAP)) {
  1048. ***************
  1049. *** 736,741 ****
  1050. --- 749,758 ----
  1051.           xdev->dither_colors =
  1052.               (x_pixel *) gs_malloc(sizeof(x_pixel), ramp_size,
  1053.                         "gdev_x_gray_ramp");
  1054. +         if (xdev->dither_colors == NULL) {
  1055. +             ramp_size--;
  1056. +             goto no_ramp;
  1057. +         }
  1058.           for (i = 0; i < ramp_size; i++) {
  1059.               XColor xc;
  1060.   
  1061. ***************
  1062. *** 749,763 ****
  1063.               if (XAllocColor(xdev->dpy, xdev->cmap, &xc)) {
  1064.                   xdev->dither_colors[i] = xc.pixel;
  1065.               } else {
  1066. !                 int j = i;
  1067.                   ramp_size /= 2;
  1068. !                 oldhandler = XSetErrorHandler(x_catch_free_colors);
  1069. !                 for (i = 1; i < j; i++) {
  1070.                   XFreeColors(xdev->dpy, xdev->cmap,
  1071. !                         &(xdev->dither_colors[i]), 1, 0);
  1072.                   }
  1073. -                 XSync(xdev->dpy, False); /* Force any errors */
  1074. -                 oldhandler = XSetErrorHandler(oldhandler);
  1075.                   gs_free((char *)xdev->dither_colors,
  1076.                       sizeof(x_pixel), ramp_size,
  1077.                       "gdev_x_gray_ramp");
  1078. --- 766,782 ----
  1079.               if (XAllocColor(xdev->dpy, xdev->cmap, &xc)) {
  1080.                   xdev->dither_colors[i] = xc.pixel;
  1081.               } else {
  1082. !                 eprintf1("Warning: failed to allocate %d level gray ramp.\n",
  1083. !                      ramp_size);
  1084.                   ramp_size /= 2;
  1085. !                 if (i - 1 > 0) {
  1086. !                 oldhandler =
  1087. !                     XSetErrorHandler(x_catch_free_colors);
  1088.                   XFreeColors(xdev->dpy, xdev->cmap,
  1089. !                         xdev->dither_colors + 1, i - 1, 0);
  1090. !                 XSync(xdev->dpy, False); /* Force any errors */
  1091. !                 oldhandler = XSetErrorHandler(oldhandler);
  1092.                   }
  1093.                   gs_free((char *)xdev->dither_colors,
  1094.                       sizeof(x_pixel), ramp_size,
  1095.                       "gdev_x_gray_ramp");
  1096. ***************
  1097. *** 775,789 ****
  1098.   
  1099.       /* Allocate space for dynamic colors, do at most 256 */
  1100.       /* If there are more avaiaible, we ask the X server */
  1101. -     xdev->dynamic_number = 0;
  1102.       xdev->dynamic_size = min(256, xdev->vinfo->colormap_size -
  1103.                         xdev->color_info.dither_gray);
  1104.       if (xdev->dynamic_size) {
  1105.           xdev->dynamic_colors =
  1106.           (XColor *) gs_malloc(sizeof(XColor), xdev->dynamic_size,
  1107.                        "gdev_x_dynamic_colors");
  1108. !     } else {
  1109. !         xdev->dynamic_colors = NULL;
  1110.       }
  1111.       } else if (palette == 'M') {
  1112.   monochrome:
  1113. --- 794,808 ----
  1114.   
  1115.       /* Allocate space for dynamic colors, do at most 256 */
  1116.       /* If there are more avaiaible, we ask the X server */
  1117.       xdev->dynamic_size = min(256, xdev->vinfo->colormap_size -
  1118.                         xdev->color_info.dither_gray);
  1119.       if (xdev->dynamic_size) {
  1120.           xdev->dynamic_colors =
  1121.           (XColor *) gs_malloc(sizeof(XColor), xdev->dynamic_size,
  1122.                        "gdev_x_dynamic_colors");
  1123. !         if (xdev->dynamic_colors == NULL) {
  1124. !         xdev->dynamic_size = 0;
  1125. !         }
  1126.       }
  1127.       } else if (palette == 'M') {
  1128.   monochrome:
  1129. ***************
  1130. *** 866,877 ****
  1131. --- 885,907 ----
  1132.       if (x11_name = get_x11_name(&cp, &x11_name_len)) {
  1133.           font = (x11fontmap *)gs_malloc(sizeof(x11fontmap), 1,
  1134.                          "gdev_x_setup_fontmap");
  1135. +         if (font == NULL) continue;
  1136.           font->ps_name = (char *)gs_malloc(sizeof(char), ps_name_len+1,
  1137.                             "gdev_x_setup_fontmap");
  1138. +         if (font->ps_name == NULL) {
  1139. +         gs_free((char *)font, sizeof(x11fontmap), 1, "gdev_x_fontmap");
  1140. +         continue;
  1141. +         }
  1142.           strncpy(font->ps_name, ps_name, ps_name_len);
  1143.           font->ps_name[ps_name_len] = '\0';
  1144.           font->x11_name = (char *)gs_malloc(sizeof(char), x11_name_len,
  1145.                              "gdev_x_setup_fontmap");
  1146. +         if (font->x11_name == NULL) {
  1147. +         gs_free(font->ps_name, sizeof(char), strlen(font->ps_name)+1,
  1148. +             "gdev_x_font_psname");
  1149. +         gs_free((char *)font, sizeof(x11fontmap), 1, "gdev_x_fontmap");
  1150. +         continue;
  1151. +         }
  1152.           strncpy(font->x11_name, x11_name, x11_name_len-1);
  1153.           font->x11_name[x11_name_len-1] = '\0';
  1154.           font->std_names = NULL;
  1155. ***************
  1156. *** 888,899 ****
  1157. --- 918,940 ----
  1158.       if (x11_name = get_x11_name(&cp, &x11_name_len)) {
  1159.           font = (x11fontmap *)gs_malloc(sizeof(x11fontmap), 1,
  1160.                          "gdev_x_setup_fontmap");
  1161. +         if (font == NULL) continue;
  1162.           font->ps_name = (char *)gs_malloc(sizeof(char), ps_name_len+1,
  1163.                             "gdev_x_setup_fontmap");
  1164. +         if (font->ps_name == NULL) {
  1165. +         gs_free((char *)font, sizeof(x11fontmap), 1, "gdev_x_fontmap");
  1166. +         continue;
  1167. +         }
  1168.           strncpy(font->ps_name, ps_name, ps_name_len);
  1169.           font->ps_name[ps_name_len] = '\0';
  1170.           font->x11_name = (char *)gs_malloc(sizeof(char), x11_name_len,
  1171.                              "gdev_x_setup_fontmap");
  1172. +         if (font->x11_name == NULL) {
  1173. +         gs_free(font->ps_name, sizeof(char), strlen(font->ps_name)+1,
  1174. +             "gdev_x_font_psname");
  1175. +         gs_free((char *)font, sizeof(x11fontmap), 1, "gdev_x_fontmap");
  1176. +         continue;
  1177. +         }
  1178.           strncpy(font->x11_name, x11_name, x11_name_len-1);
  1179.           font->x11_name[x11_name_len-1] = '\0';
  1180.           font->std_names = NULL;
  1181. ***************
  1182. *** 910,921 ****
  1183. --- 951,973 ----
  1184.       if (x11_name = get_x11_name(&cp, &x11_name_len)) {
  1185.           font = (x11fontmap *)gs_malloc(sizeof(x11fontmap), 1,
  1186.                          "gdev_x_setup_fontmap");
  1187. +         if (font == NULL) continue;
  1188.           font->ps_name = (char *)gs_malloc(sizeof(char), ps_name_len+1,
  1189.                             "gdev_x_setup_fontmap");
  1190. +         if (font->ps_name == NULL) {
  1191. +         gs_free((char *)font, sizeof(x11fontmap), 1, "gdev_x_fontmap");
  1192. +         continue;
  1193. +         }
  1194.           strncpy(font->ps_name, ps_name, ps_name_len);
  1195.           font->ps_name[ps_name_len] = '\0';
  1196.           font->x11_name = (char *)gs_malloc(sizeof(char), x11_name_len,
  1197.                              "gdev_x_setup_fontmap");
  1198. +         if (font->x11_name == NULL) {
  1199. +         gs_free(font->ps_name, sizeof(char), strlen(font->ps_name)+1,
  1200. +             "gdev_x_font_psname");
  1201. +         gs_free((char *)font, sizeof(x11fontmap), 1, "gdev_x_fontmap");
  1202. +         continue;
  1203. +         }
  1204.           strncpy(font->x11_name, x11_name, x11_name_len-1);
  1205.           font->x11_name[x11_name_len-1] = '\0';
  1206.           font->std_names = NULL;
  1207. *** 1.2    1993/06/29 02:22:52
  1208. --- gdevxxf.c    1993/07/17 17:36:10
  1209. ***************
  1210. *** 74,89 ****
  1211.       gx_device_X *xdev = (gx_device_X *) dev;
  1212.       x_xfont *xxf;
  1213.       char x11template[256];
  1214. !     char *x11fontname;
  1215.       XFontStruct *x11font;
  1216.       x11fontmap *fmp;
  1217.       int i;
  1218. -     double diff, d;
  1219.       double height;
  1220.       int size;
  1221.       int xwidth, xheight, angle;
  1222.       Boolean My;
  1223. !     Boolean scalable_font;
  1224.   
  1225.       if (!xdev->useXFonts) return NULL;
  1226.   
  1227. --- 74,88 ----
  1228.       gx_device_X *xdev = (gx_device_X *) dev;
  1229.       x_xfont *xxf;
  1230.       char x11template[256];
  1231. !     char *x11fontname = NULL;
  1232.       XFontStruct *x11font;
  1233.       x11fontmap *fmp;
  1234.       int i;
  1235.       double height;
  1236.       int size;
  1237.       int xwidth, xheight, angle;
  1238.       Boolean My;
  1239. !     Boolean scalable_font = False;
  1240.   
  1241.       if (!xdev->useXFonts) return NULL;
  1242.   
  1243. ***************
  1244. *** 108,113 ****
  1245. --- 107,114 ----
  1246.       /* Don't do very small fonts.  Font metrics are way off due to rounding */
  1247.       if (xwidth <= 4 || xheight <= 4) return NULL;
  1248.   
  1249. +     if (!xdev->useFontExtensions && (My || angle != 0)) return NULL;
  1250. + 
  1251.       if (encoding_index == 0 || encoding_index == 1) {
  1252.       int tried_other_encoding = 0;
  1253.   
  1254. ***************
  1255. *** 120,126 ****
  1256.       if (fmp == NULL) return NULL;
  1257.       while (True) {
  1258.           if (encoding_index == 0) {
  1259. -         scalable_font = False;
  1260.           if (fmp->std_count == -1) {
  1261.               sprintf(x11template, "%s%s", fmp->x11_name,
  1262.                   "-*-*-*-*-*-*-Adobe-fontspecific");
  1263. --- 121,126 ----
  1264. ***************
  1265. *** 128,134 ****
  1266.                               &fmp->std_count);
  1267.           }
  1268.           if (fmp->std_count) {
  1269. -             diff = 999.9;
  1270.               for (i = 0; i < fmp->std_count; i++) {
  1271.               char *szp = fmp->std_names[i] + strlen(fmp->x11_name)+1;
  1272.   
  1273. --- 128,133 ----
  1274. ***************
  1275. *** 139,166 ****
  1276.                   scalable_font = True;
  1277.                   continue;
  1278.               }
  1279. !             d = fabs(height - size) / height;
  1280. !             if (d < diff) {
  1281.                   x11fontname = fmp->std_names[i];
  1282. !                 diff = d;
  1283.               }
  1284.               }
  1285. !             if (xdev->useScalableFonts && scalable_font) {
  1286. !             d = fabs(height - xheight) / height;
  1287. !             if (d < diff) {
  1288. !                 sprintf(x11template, "%s-%d%s", fmp->x11_name,
  1289. !                     xheight, "-0-0-0-*-0-Adobe-fontspecific");
  1290. !                 x11fontname = x11template;
  1291. !                 diff = 0;    /* Always use scalable font if closer */
  1292. !             }
  1293.               }
  1294. !             if (diff*100 <= xdev->xFontTolerance) break;
  1295.           }
  1296.           if (tried_other_encoding) return NULL;
  1297.           encoding_index = 1;
  1298.           tried_other_encoding = 1;
  1299.           } else if (encoding_index == 1) {
  1300. -         scalable_font = False;
  1301.           if (fmp->iso_count == -1) {
  1302.               sprintf(x11template, "%s%s", fmp->x11_name,
  1303.                   "-*-*-*-*-*-*-ISO8859-1");
  1304. --- 138,160 ----
  1305.                   scalable_font = True;
  1306.                   continue;
  1307.               }
  1308. !             if (size == xheight) {
  1309.                   x11fontname = fmp->std_names[i];
  1310. !                 break;
  1311.               }
  1312.               }
  1313. !             if (!x11fontname && scalable_font &&
  1314. !             xdev->useScalableFonts) {
  1315. !             sprintf(x11template, "%s-%d%s", fmp->x11_name,
  1316. !                 xheight, "-0-0-0-*-0-Adobe-fontspecific");
  1317. !             x11fontname = x11template;
  1318.               }
  1319. !             if (x11fontname) break;
  1320.           }
  1321.           if (tried_other_encoding) return NULL;
  1322.           encoding_index = 1;
  1323.           tried_other_encoding = 1;
  1324.           } else if (encoding_index == 1) {
  1325.           if (fmp->iso_count == -1) {
  1326.               sprintf(x11template, "%s%s", fmp->x11_name,
  1327.                   "-*-*-*-*-*-*-ISO8859-1");
  1328. ***************
  1329. *** 168,174 ****
  1330.                               &fmp->iso_count);
  1331.           }
  1332.           if (fmp->iso_count) {
  1333. -             diff = 999.9;
  1334.               for (i = 0; i < fmp->iso_count; i++) {
  1335.               char *szp = fmp->iso_names[i] + strlen(fmp->x11_name)+1;
  1336.   
  1337. --- 162,167 ----
  1338. ***************
  1339. *** 179,200 ****
  1340.                   scalable_font = True;
  1341.                   continue;
  1342.               }
  1343. !             d = fabs(height - size) / height;
  1344. !             if (d < diff) {
  1345.                   x11fontname = fmp->iso_names[i];
  1346. !                 diff = d;
  1347.               }
  1348.               }
  1349. !             if (xdev->useScalableFonts && scalable_font) {
  1350. !             d = fabs(height - xheight) / height;
  1351. !             if (d < diff) {
  1352. !                 sprintf(x11template, "%s-%d%s", fmp->x11_name,
  1353. !                     xheight, "-0-0-0-*-0-ISO8859-1");
  1354. !                 x11fontname = x11template;
  1355. !                 diff = 0;    /* Always use scalable font if closer */
  1356. !             }
  1357.               }
  1358. !             if (diff*100 <= xdev->xFontTolerance) break;
  1359.           }
  1360.           if (tried_other_encoding) return NULL;
  1361.           encoding_index = 0;
  1362. --- 172,189 ----
  1363.                   scalable_font = True;
  1364.                   continue;
  1365.               }
  1366. !             if (size == xheight) {
  1367.                   x11fontname = fmp->iso_names[i];
  1368. !                 break;
  1369.               }
  1370.               }
  1371. !             if (!x11fontname && scalable_font &&
  1372. !             xdev->useScalableFonts) {
  1373. !             sprintf(x11template, "%s-%d%s", fmp->x11_name,
  1374. !                 xheight, "-0-0-0-*-0-ISO8859-1");
  1375. !             x11fontname = x11template;
  1376.               }
  1377. !             if (x11fontname) break;
  1378.           }
  1379.           if (tried_other_encoding) return NULL;
  1380.           encoding_index = 0;
  1381. ***************
  1382. *** 202,208 ****
  1383.           }
  1384.       }
  1385.       } else if (encoding_index == 2 || encoding_index == 3) {
  1386. -     scalable_font = False;
  1387.       if (encoding_index == 2) fmp = xdev->symbol_fonts;
  1388.       if (encoding_index == 3) fmp = xdev->dingbat_fonts;
  1389.       while (fmp) {
  1390. --- 191,196 ----
  1391. ***************
  1392. *** 219,225 ****
  1393.                           &fmp->std_count);
  1394.       }
  1395.       if (fmp->std_count) {
  1396. -         diff = 999.9;
  1397.           for (i = 0; i < fmp->std_count; i++) {
  1398.           char *szp = fmp->std_names[i] + strlen(fmp->x11_name)+1;
  1399.   
  1400. --- 207,212 ----
  1401. ***************
  1402. *** 230,251 ****
  1403.               scalable_font = True;
  1404.               continue;
  1405.           }
  1406. !         d = fabs(height - size) / height;
  1407. !         if (d < diff) {
  1408.               x11fontname = fmp->std_names[i];
  1409. !             diff = d;
  1410.           }
  1411.           }
  1412. !         if (xdev->useScalableFonts && scalable_font) {
  1413. !         d = fabs(height - xheight) / height;
  1414. !         if (d < diff) {
  1415. !             sprintf(x11template, "%s-%d%s", fmp->x11_name, xheight,
  1416. !                 "-0-0-0-*-0-Adobe-fontspecific");
  1417. !             x11fontname = x11template;
  1418. !             diff = 0;    /* Always use scalable font if closer */
  1419. !         }
  1420.           }
  1421. !         if (diff*100 > xdev->xFontTolerance) return NULL;
  1422.       } else {
  1423.           return NULL;
  1424.       }
  1425. --- 217,233 ----
  1426.               scalable_font = True;
  1427.               continue;
  1428.           }
  1429. !         if (size == xheight) {
  1430.               x11fontname = fmp->std_names[i];
  1431. !             break;
  1432.           }
  1433.           }
  1434. !         if (!x11fontname && scalable_font && xdev->useScalableFonts) {
  1435. !         sprintf(x11template, "%s-%d%s", fmp->x11_name, xheight,
  1436. !             "-0-0-0-*-0-Adobe-fontspecific");
  1437. !         x11fontname = x11template;
  1438.           }
  1439. !         if (!x11fontname) return NULL;
  1440.       } else {
  1441.           return NULL;
  1442.       }
  1443. ***************
  1444. *** 458,466 ****
  1445.   x_release(gx_xfont *xf, const gs_memory_procs *mprocs)
  1446.   {
  1447.       x_xfont *xxf = (x_xfont *) xf;
  1448. -     gx_device_X *xdev = xxf->xdev;
  1449.   
  1450. !     XFreeFont(xxf->xdev->dpy, xxf->font);
  1451.       if (mprocs != NULL)
  1452.       (*mprocs->free) ((char *)xf, 1, sizeof(x_xfont),
  1453.                "x_release");
  1454. --- 440,448 ----
  1455.   x_release(gx_xfont *xf, const gs_memory_procs *mprocs)
  1456.   {
  1457.       x_xfont *xxf = (x_xfont *) xf;
  1458.   
  1459. !     /* The device may not be open.  Cannot reliably free the font. */
  1460. !     /* XFreeFont(xxf->xdev->dpy, xxf->font); */
  1461.       if (mprocs != NULL)
  1462.       (*mprocs->free) ((char *)xf, 1, sizeof(x_xfont),
  1463.                "x_release");
  1464. *** 1.1    1993/07/19 15:43:44
  1465. --- gp_msdos.c    1993/07/18 09:55:36
  1466. ***************
  1467. *** 161,166 ****
  1468. --- 161,167 ----
  1469.       char *p;
  1470.       int hsize = 0;
  1471.       int i;
  1472. +     int dot = 0;
  1473.       if ( pfen == 0 )
  1474.           return 0;
  1475.       pattern = (*mprocs->alloc)(pat_size, 1,
  1476. ***************
  1477. *** 176,183 ****
  1478. --- 177,193 ----
  1479.               /* Skip to . or end of string so DOS can do it. */
  1480.               *p++ = '*';
  1481.               while ( i < patlen && pat[i] != '.' ) i++;
  1482. +             if ( i == patlen && !dot )
  1483. +             {    /* DOS doesn't interpret * alone as */
  1484. +                 /* matching all files; we need *.*. */
  1485. +                 *p++ = '.';
  1486. +                 *p++ = '*';
  1487. +             }
  1488.               i--;
  1489.               continue;
  1490. +         case '.':
  1491. +             dot = 1;
  1492. +             break;
  1493.           case '\\':
  1494.               if ( i + 1 < patlen && pat[i + 1] == '\\' )
  1495.                   i++;
  1496. ***************
  1497. *** 185,190 ****
  1498. --- 195,201 ----
  1499.           case ':':
  1500.           case '/':
  1501.               hsize = p + 1 - (pattern + patlen);
  1502. +             dot = 0;
  1503.           }
  1504.           *p++ = pat[i];
  1505.       }
  1506. *** 1.1    1993/07/19 15:43:44
  1507. --- gs_fonts.ps    1993/07/18 11:40:58
  1508. ***************
  1509. *** 16,36 ****
  1510.   % things, the copyright notice and this notice must be preserved on all
  1511.   % copies.
  1512.   
  1513. ! % Font initialization for Ghostscript.
  1514.   
  1515.   % The standard representation for PostScript compatible fonts is described
  1516.   % in the book "Adobe Type 1 Font Format", published by Adobe Systems Inc.
  1517. - % We don't attempt to document this representation here.
  1518. - % Ghostscript uses Type 1 fonts, except that the external form doesn't use
  1519. - % eexec encryption and may not even use CharString encryption.
  1520.   
  1521. - 
  1522.   % Define the default font.
  1523.   /defaultfontname /Ugly def
  1524.   
  1525.   % Load the font name -> font file name map.
  1526.   userdict /Fontmap FontDirectory maxlength dict put
  1527. ! /.loadFontmap        % <filename>
  1528.    { 2 dict begin
  1529.        mark Fontmap
  1530.        /;
  1531. --- 16,32 ----
  1532.   % things, the copyright notice and this notice must be preserved on all
  1533.   % copies.
  1534.   
  1535. ! % Font initialization and management code.
  1536.   
  1537.   % The standard representation for PostScript compatible fonts is described
  1538.   % in the book "Adobe Type 1 Font Format", published by Adobe Systems Inc.
  1539.   
  1540.   % Define the default font.
  1541.   /defaultfontname /Ugly def
  1542.   
  1543.   % Load the font name -> font file name map.
  1544.   userdict /Fontmap FontDirectory maxlength dict put
  1545. ! /.loadFontmap        % <filename> .loadFontmap -
  1546.    { 2 dict begin
  1547.        mark Fontmap
  1548.        /;
  1549. ***************
  1550. *** 46,56 ****
  1551.    } bind def
  1552.   (Fontmap) .loadFontmap
  1553.   
  1554. ! % Ghostscript optionally can load individual CharStrings as they are needed.
  1555.   % (This is intended primarily for machines with very small memories.)
  1556. ! % This happens if DISKFONTS is true.  In this case, we define another
  1557. ! % dictionary parallel to FontDirectory that retains an open file
  1558. ! % for every font loaded.
  1559.   /FontFileDirectory 10 dict def
  1560.   
  1561.   % Define an augmented version of .buildfont1 that inserts UnderlinePosition
  1562. --- 42,186 ----
  1563.    } bind def
  1564.   (Fontmap) .loadFontmap
  1565.   
  1566. ! % Parse a font file just enough to find the FontName.
  1567. ! /.findfontname        % <file> .findfontname <name> true
  1568. !             % <file> .findfontname false
  1569. !             % Closes the file in either case.
  1570. !  {  { dup token not { false exit } if        % end of file
  1571. !       dup /eexec eq { pop false exit } if    % reached eexec section
  1572. !       dup /FontName eq
  1573. !        { xcheck not { dup token exit } if }    % found /FontName
  1574. !        { pop }
  1575. !       ifelse
  1576. !     } loop
  1577. !    dup { 3 } { 2 } ifelse -1 roll closefile
  1578. !  } bind def
  1579. ! 
  1580. ! (GS_FONTPATH) getenv not { (%END GS_FONTPATH) .skipeof } if
  1581. ! pop
  1582. ! 
  1583. ! % Scan directories looking for plausible fonts.  "Plausible" means that
  1584. ! % the file begins either with %!PS-AdobeFont-, or with \200\001
  1585. ! % followed by four arbitrary bytes and then "%!PS-AdobeFont-".
  1586. ! % To speed up the search, we skip any file whose name appears in
  1587. ! % the Fontmap (with any extension and upper/lower case variation) already.
  1588. ! %
  1589. ! % NOTE: The current implementation of this procedure is Unix/DOS-
  1590. ! % specific.  It assumes that '/' and '\' are directory separators; that
  1591. ! % the part of a file name following the last '.' is the extension;
  1592. ! % that ';' cannot appear in a file name; and that ':' can appear in a
  1593. ! % file name only if the file name doesn't begin with '/', '\', or '.'.
  1594. ! % (this is so that Unix systems can use ':' as the separator).
  1595. ! %
  1596. ! /.lowerstring        % <string> .lowerstring <lowerstring>
  1597. !  { 0 1 2 index length 1 sub
  1598. !     { 2 copy get dup 65 ge exch 90 le and
  1599. !        { 2 copy 2 copy get 32 add put }
  1600. !      if pop
  1601. !     }
  1602. !    for
  1603. !  } bind def
  1604. ! /.splitfilename        % <dir.../base.extn> .basename <base> <extn>
  1605. !  {  { (/) search { true } { (\\) search } ifelse
  1606. !        { pop pop }
  1607. !        { exit }
  1608. !       ifelse
  1609. !     }
  1610. !    loop
  1611. !    dup { (.) search { pop pop } { exit } ifelse } loop
  1612. !    2 copy eq
  1613. !     { pop () }
  1614. !     { exch dup length 2 index length 1 add sub 0 exch getinterval exch }
  1615. !    ifelse
  1616. !  } bind def
  1617. ! /.scanfontdict Fontmap maxlength dict def
  1618. ! /.scanfontbegin
  1619. !  {    % Construct the table of all file names already in Fontmap.
  1620. !    Fontmap
  1621. !     { exch pop dup type /stringtype eq
  1622. !        { .splitfilename pop =string copy .lowerstring cvn
  1623. !          .scanfontdict exch true .growput
  1624. !        }
  1625. !        { pop
  1626. !        }
  1627. !       ifelse
  1628. !     }
  1629. !    forall
  1630. !  } bind def
  1631. ! /.scanfontskip 4 dict dup begin
  1632. !   (afm) true def
  1633. !   (pfm) true def
  1634. ! end def
  1635. ! /.scan1fontstring 128 string def
  1636. ! /.fontheader (\200\001????%!PS-AdobeFont-*) def
  1637. ! /.scan1fontfirst .fontheader length string def
  1638. ! /.scan1fontdir        % <dirname> .scan1fontdir -
  1639. !  { QUIET not { (Scanning ) print dup print ( for fonts... ) print flush } if
  1640. !    0 exch (/*) concatstrings
  1641. !     { dup .splitfilename
  1642. !       .scanfontskip exch known exch .scanfontdict exch known or
  1643. !        { pop
  1644. !        }
  1645. !        { dup (r) file
  1646. !          dup .scan1fontfirst readstring pop
  1647. !      dup .fontheader 6 16 getinterval .stringmatch
  1648. !       { pop true }
  1649. !       { .fontheader .stringmatch }
  1650. !      ifelse
  1651. !       { dup 0 setfileposition .findfontname
  1652. !          { dup Fontmap exch known
  1653. !             { pop pop
  1654. !         }
  1655. !         { exch copystring exch
  1656. !           Fontmap exch 2 index .growput
  1657. !           .splitfilename pop true .scanfontdict 3 1 roll .growput
  1658. !           1 add
  1659. !         }
  1660. !            ifelse
  1661. !          }
  1662. !         if
  1663. !       }
  1664. !       { closefile pop
  1665. !       }
  1666. !      ifelse
  1667. !        }
  1668. !       ifelse
  1669. !     }
  1670. !    .scan1fontstring filenameforall
  1671. !    QUIET { pop } { =only ( found.\n) print flush } ifelse
  1672. !  } bind def
  1673. ! % Scan all the directories mentioned in GS_FONTPATH.
  1674. ! (GS_FONTPATH) getenv
  1675. !  { .scanfontbegin
  1676. !     % Parsing the list of dictionaries is messy, since we have to
  1677. !     % handle both the Unix : and the other-system ; as separators.
  1678. !     % See the earlier comment for the restrictions that make this work.
  1679. !     { dup length 0 eq { pop exit } if
  1680. !       (;) search
  1681. !        { exch pop
  1682. !        }
  1683. !        { dup 0 1 getinterval (/\\.) exch search
  1684. !           { pop pop pop (:) search
  1685. !          { exch pop }
  1686. !          { () exch }
  1687. !         ifelse
  1688. !       }
  1689. !       { pop () exch
  1690. !       }
  1691. !      ifelse
  1692. !        }
  1693. !       ifelse .scan1fontdir
  1694. !     }
  1695. !    loop
  1696. !  }
  1697. ! if
  1698. ! 
  1699. ! %END GS_FONTPATH
  1700. ! 
  1701. ! % If DISKFONTS is true, we load individual CharStrings as they are needed.
  1702.   % (This is intended primarily for machines with very small memories.)
  1703. ! % In this case, we define another dictionary, parallel to FontDirectory,
  1704. ! % that retains an open file for every font loaded.
  1705.   /FontFileDirectory 10 dict def
  1706.   
  1707.   % Define an augmented version of .buildfont1 that inserts UnderlinePosition
  1708. ***************
  1709. *** 124,130 ****
  1710.    } odef
  1711.   
  1712.   
  1713. ! % Ghostscript optionally can load individual CharStrings as they are needed.
  1714.   % (This is intended primarily for machines with very small memories.)
  1715.   % Initially, the character definition is the file position of the definition;
  1716.   % this gets replaced with the actual CharString.
  1717. --- 254,260 ----
  1718.    } odef
  1719.   
  1720.   
  1721. ! % If DISKFONTS is true, we load individual CharStrings as they are needed.
  1722.   % (This is intended primarily for machines with very small memories.)
  1723.   % Initially, the character definition is the file position of the definition;
  1724.   % this gets replaced with the actual CharString.
  1725. ***************
  1726. *** 175,181 ****
  1727.   
  1728.   % Type1BuildGlyph calls load_C to actually load the character definition.
  1729.   
  1730. ! /load_C        % <charname> <fileposandlength> -> -
  1731.    { dup abs 1000 idiv FontFile exch setfileposition
  1732.      CharStrings 3 1 roll
  1733.      dup 0 lt
  1734. --- 305,311 ----
  1735.   
  1736.   % Type1BuildGlyph calls load_C to actually load the character definition.
  1737.   
  1738. ! /load_C        % <charname> <fileposandlength> load_C -
  1739.    { dup abs 1000 idiv FontFile exch setfileposition
  1740.      CharStrings 3 1 roll
  1741.      dup 0 lt
  1742. ***************
  1743. *** 195,201 ****
  1744.      pop        % the mark
  1745.    } bind def
  1746.   
  1747. ! /seac_C        % charstring -> achar bchar ..or nothing..
  1748.    { dup length _Cstring length le
  1749.       { 4330 exch _Cstring .type1decrypt exch pop
  1750.         dup dup length 2 sub 2 getinterval <0c06> eq    % seac
  1751. --- 325,331 ----
  1752.      pop        % the mark
  1753.    } bind def
  1754.   
  1755. ! /seac_C        % <charstring> seac_C <achar> <bchar> ..or nothing..
  1756.    { dup length _Cstring length le
  1757.       { 4330 exch _Cstring .type1decrypt exch pop
  1758.         dup dup length 2 sub 2 getinterval <0c06> eq    % seac
  1759. ***************
  1760. *** 294,341 ****
  1761.       ifelse
  1762.     } bind def
  1763.   currentdict end readonly /.loadfontdict exch def
  1764. ! /.loadfont        % <file> .loadfont ->
  1765.    { mark exch systemdict begin
  1766.      DISKFONTS { .loadfontdict begin } if
  1767.      % We really would just like systemdict on the stack,
  1768.      % but fonts produced by Fontographer require a writable dictionary....
  1769.      8 dict begin        % garbage
  1770. !     % We can't just use `run', because we want to check for
  1771. !     % .PFB files.  We can't save the packing status anywhere,
  1772. !     % so we need two separate control paths.
  1773. !     % Also, we would like to use `false /PFBDecode filter',
  1774.       % but this occasionally produces a whitespace character as
  1775.       % the first of an eexec section, so we can't do it.
  1776. !     % Finally, since the interpreter doesn't currently automatically
  1777.       % close an input file when the file reaches EOF (unless it's
  1778.       % the interpreter's current input file), we must explicitly
  1779.       % close the real file if we used a PFB filter.
  1780. !    currentpacking
  1781. !     { false setpacking
  1782. !        { dup read not { -1 } if
  1783. !          2 copy unread 16#80 eq
  1784. !       { dup true /PFBDecode filter cvx exec closefile }
  1785. !       { cvx exec }
  1786. !      ifelse
  1787. !        } stopped    % split up `execute'
  1788. !       true setpacking
  1789. !       $error /newerror get and {handleerror} if
  1790. !     }
  1791. !     {  { dup read not { -1 } if
  1792. !          2 copy unread 16#80 eq
  1793. !       { dup true /PFBDecode filter cvx exec closefile }
  1794. !       { cvx exec }
  1795. !      ifelse
  1796. !        } execute
  1797. !     }
  1798. !    ifelse
  1799. !    DISKFONTS { end } if
  1800. !    end end cleartomark
  1801.    } bind def
  1802.   
  1803.   % Define a procedure for defining aliased fonts.
  1804.   % We just copy the original font, changing the FontName.
  1805. ! /.aliasfont        % <name> <font> -> <newFont>
  1806.    { dup length 2 add dict
  1807.      dup 3 -1 roll { 1 index /FID eq { pop pop } { put dup } ifelse } forall
  1808.      /FontName 3 index put
  1809. --- 424,465 ----
  1810.       ifelse
  1811.     } bind def
  1812.   currentdict end readonly /.loadfontdict exch def
  1813. ! /.loadfont        % <file> .loadfont -
  1814.    { mark exch systemdict begin
  1815.      DISKFONTS { .loadfontdict begin } if
  1816.      % We really would just like systemdict on the stack,
  1817.      % but fonts produced by Fontographer require a writable dictionary....
  1818.      8 dict begin        % garbage
  1819. !     % We can't just use `run', because we want to check for .PFB files.
  1820. !    currentpacking
  1821. !     { false setpacking .loadfont1 true setpacking }
  1822. !     { .loadfont1 }
  1823. !    ifelse
  1824. !     { handleerror } if
  1825. !    end
  1826. !    DISKFONTS { end } if
  1827. !    end cleartomark
  1828. !  } bind def
  1829. ! /.loadfont1        % <file> .loadfont1 <errorflag>
  1830. !  {    % We would like to use `false /PFBDecode filter',
  1831.       % but this occasionally produces a whitespace character as
  1832.       % the first of an eexec section, so we can't do it.
  1833. !     % Also, since the interpreter doesn't currently automatically
  1834.       % close an input file when the file reaches EOF (unless it's
  1835.       % the interpreter's current input file), we must explicitly
  1836.       % close the real file if we used a PFB filter.
  1837. !     { dup read not { -1 } if
  1838. !       2 copy unread 16#80 eq
  1839. !        { dup true /PFBDecode filter cvx exec closefile }
  1840. !        { cvx exec }
  1841. !       ifelse
  1842. !     } stopped
  1843. !    $error /newerror get and
  1844.    } bind def
  1845.   
  1846.   % Define a procedure for defining aliased fonts.
  1847.   % We just copy the original font, changing the FontName.
  1848. ! /.aliasfont        % <name> <font> .aliasfont <newFont>
  1849.    { dup length 2 add dict
  1850.      dup 3 -1 roll { 1 index /FID eq { pop pop } { put dup } ifelse } forall
  1851.      /FontName 3 index put
  1852. ***************
  1853. *** 392,417 ****
  1854.           { vmstatus 3 { =only ( ) print } repeat
  1855.             (done.\n) print flush
  1856.           } if
  1857.          % Check to make sure the font was actually loaded.
  1858.          dup FontDirectory exch known { findfont exit } if
  1859.   
  1860. !        (Loading ) print dup cvx =only
  1861. !        ( font failed, substituting ) print defaultfontname cvx =only
  1862. !        (.\n) print flush
  1863.          defaultfontname findfont .aliasfont exit
  1864.        }
  1865.       if
  1866.   
  1867.       % findlibfile failed, substitute the default font.
  1868.       % Stack: fontname fontfilename
  1869. !     (Can't find \(or can't open\) font file ) print print
  1870. !     dup defaultfontname eq
  1871. !      { ( for default font \() print cvx =only
  1872.          (\)!  Giving up.\n) print flush 1 .quit
  1873.        }
  1874. !      { ( for font ) print dup cvx =only
  1875. !        (, substituting ) print defaultfontname cvx =only
  1876. !        (.\n) print flush
  1877.          defaultfontname findfont .aliasfont
  1878.        }
  1879.       ifelse
  1880. --- 516,574 ----
  1881.           { vmstatus 3 { =only ( ) print } repeat
  1882.             (done.\n) print flush
  1883.           } if
  1884. + 
  1885.          % Check to make sure the font was actually loaded.
  1886.          dup FontDirectory exch known { findfont exit } if
  1887.   
  1888. !        % Maybe the file had a different FontName.
  1889. !        % See if we can get a FontName from the file, and if so,
  1890. !        % whether a font by that name exists now.
  1891. !        dup Fontmap exch get findlibfile
  1892. !         { exch pop .findfontname
  1893. !            { dup FontDirectory exch .knownget
  1894. !               {    % Yes.  Stack: origfontname filefontname fontdir
  1895. !             exch
  1896. !             QUIET
  1897. !              { pop
  1898. !              }
  1899. !              { (Using ) print cvx =only
  1900. !                ( font for ) print 1 index cvx =only
  1901. !                (.\n) print flush
  1902. !              }
  1903. !             ifelse
  1904. !             .aliasfont exit
  1905. !           }
  1906. !          if pop
  1907. !            }
  1908. !           if
  1909. !         }
  1910. !        if
  1911. ! 
  1912. !        % The font definitely did not load correctly.
  1913. !        QUIET not
  1914. !         { (Loading ) print dup cvx =only
  1915. !           ( font failed, substituting ) print defaultfontname cvx =only
  1916. !           (.\n) print flush
  1917. !         } if
  1918.          defaultfontname findfont .aliasfont exit
  1919.        }
  1920.       if
  1921.   
  1922.       % findlibfile failed, substitute the default font.
  1923.       % Stack: fontname fontfilename
  1924. !     (Can't find \(or can't open\) font file )
  1925. !     1 index defaultfontname eq
  1926. !      { print print ( for default font \() print cvx =only
  1927.          (\)!  Giving up.\n) print flush 1 .quit
  1928.        }
  1929. !      { QUIET
  1930. !         { pop
  1931. !         }
  1932. !         { print print ( for font ) print dup cvx =only
  1933. !           (, substituting ) print defaultfontname cvx =only
  1934. !           (.\n) print flush
  1935. !         }
  1936. !        ifelse
  1937.          defaultfontname findfont .aliasfont
  1938.        }
  1939.       ifelse
  1940. ***************
  1941. *** 469,475 ****
  1942.   % because that would bind it into outline_C.)
  1943.   /setcachedevice_C { setcachedevice } bind def
  1944.   
  1945. ! /outline_C        % <charname> <charstring> -> -
  1946.    { currentdict /Metrics .knownget
  1947.       { 2 index .knownget
  1948.          { dup type dup /integertype eq exch /realtype eq or
  1949. --- 626,632 ----
  1950.   % because that would bind it into outline_C.)
  1951.   /setcachedevice_C { setcachedevice } bind def
  1952.   
  1953. ! /outline_C        % <charname> <charstring> outline_C -
  1954.    { currentdict /Metrics .knownget
  1955.       { 2 index .knownget
  1956.          { dup type dup /integertype eq exch /realtype eq or
  1957. *** 1.1    1993/07/19 15:43:44
  1958. --- gs_statd.ps    1993/07/09 07:51:16
  1959. ***************
  1960. *** 33,43 ****
  1961.    /letter {612 792 //statusdict begin .setpagesize end} bind def
  1962.    /note {540 720 //statusdict begin .setpagesize end} bind def
  1963.    /legal {612 1008 //statusdict begin .setpagesize end} bind def
  1964. !  /a3 {842 1190 //statusdict begin .setpagesize end} bind def
  1965. !  /a4 {595 842 //statusdict begin .setpagesize end} bind def
  1966. !  /a5 {421 595 //statusdict begin .setpagesize end} bind def
  1967. !  /a6 {297 421 //statusdict begin .setpagesize end} bind def
  1968. !  /b4 {709 1002 //statusdict begin .setpagesize end} bind def
  1969.    /flsa {612 936 //statusdict begin .setpagesize end} bind def  % U.S. foolscap
  1970.    /flse {612 936 //statusdict begin .setpagesize end} bind def  % European foolscap
  1971.    /halfletter {396 612 //statusdict begin .setpagesize end} bind def
  1972. --- 33,60 ----
  1973.    /letter {612 792 //statusdict begin .setpagesize end} bind def
  1974.    /note {540 720 //statusdict begin .setpagesize end} bind def
  1975.    /legal {612 1008 //statusdict begin .setpagesize end} bind def
  1976. !  /a0 {2380 3368 //statusdict begin .setpagesize end} bind def  % ISO standard
  1977. !  /a1 {1684 2380 //statusdict begin .setpagesize end} bind def  % ISO standard
  1978. !  /a2 {1190 1684 //statusdict begin .setpagesize end} bind def  % ISO standard
  1979. !  /a3 {842 1190 //statusdict begin .setpagesize end} bind def  % ISO standard
  1980. !  /a4 {595 842 //statusdict begin .setpagesize end} bind def  % ISO standard
  1981. !  /a5 {421 595 //statusdict begin .setpagesize end} bind def  % ISO standard
  1982. !  /a6 {297 421 //statusdict begin .setpagesize end} bind def  % ISO standard
  1983. !  /a7 {210 297 //statusdict begin .setpagesize end} bind def  % ISO standard
  1984. !  /a8 {148 210 //statusdict begin .setpagesize end} bind def  % ISO standard
  1985. !  /a9 {105 148 //statusdict begin .setpagesize end} bind def  % ISO standard
  1986. !  /a10 {74 105 //statusdict begin .setpagesize end} bind def  % ISO standard
  1987. !  /b0 {2836 4008 //statusdict begin .setpagesize end} bind def  % ISO standard
  1988. !  /b1 {2004 2836 //statusdict begin .setpagesize end} bind def  % ISO standard
  1989. !  /b2 {1418 2004 //statusdict begin .setpagesize end} bind def  % ISO standard
  1990. !  /b3 {1002 1418 //statusdict begin .setpagesize end} bind def  % ISO standard
  1991. !  /b4 {709 1002 //statusdict begin .setpagesize end} bind def  % ISO standard
  1992. !  /b5 {501 709 //statusdict begin .setpagesize end} bind def  % ISO standard
  1993. !  /archE {2592 3456 //statusdict begin .setpagesize end} bind def % U.S. CAD std
  1994. !  /archD {1728 2592 //statusdict begin .setpagesize end} bind def % U.S. CAD std
  1995. !  /archC {1296 1728 //statusdict begin .setpagesize end} bind def % U.S. CAD std
  1996. !  /archB {864 1296 //statusdict begin .setpagesize end} bind def  % U.S. CAD std
  1997. !  /archA {648 864 //statusdict begin .setpagesize end} bind def  % U.S. CAD std
  1998.    /flsa {612 936 //statusdict begin .setpagesize end} bind def  % U.S. foolscap
  1999.    /flse {612 936 //statusdict begin .setpagesize end} bind def  % European foolscap
  2000.    /halfletter {396 612 //statusdict begin .setpagesize end} bind def
  2001. ***************
  2002. *** 51,57 ****
  2003.   % Define the pagetype values for the known page formats.
  2004.   % The values for all but letter and note are arbitrary.
  2005.   /.pagetypenames
  2006. !  { /letter /note /legal /a3 /a4 /a5 /a6 /b4
  2007.      /flsa /flse /halfletter /11x17 /ledger
  2008.    } cvlit readonly def
  2009.   
  2010. --- 68,76 ----
  2011.   % Define the pagetype values for the known page formats.
  2012.   % The values for all but letter and note are arbitrary.
  2013.   /.pagetypenames
  2014. !  { /letter /note /legal 
  2015. !    /a0 /a1 /a2 /a3 /a4 /a5 /a6 /a7 /a8 /a9 /a10
  2016. !    /b0 /b1 /b2 /b3 /b4 /b5 /archE /archD /archC /archB /archA
  2017.      /flsa /flse /halfletter /11x17 /ledger
  2018.    } cvlit readonly def
  2019.   
  2020. ***************
  2021. *** 176,182 ****
  2022.    /exitserver { clear stop } bind def
  2023.   % However, this interacts badly with our standard error handler,
  2024.   % so we override it with the following less appropriate definition.
  2025. !  /exitserver { clear cleardictstack } bind def
  2026.    /setrealdevice { } bind def
  2027.   
  2028.   end    % serverdict
  2029. --- 195,201 ----
  2030.    /exitserver { clear stop } bind def
  2031.   % However, this interacts badly with our standard error handler,
  2032.   % so we override it with the following less appropriate definition.
  2033. !  /exitserver { 0 ne { clear cleardictstack } if } bind def
  2034.    /setrealdevice { } bind def
  2035.   
  2036.   end    % serverdict
  2037. *** 1.1    1993/07/19 15:43:44
  2038. --- gschar.c    1993/07/08 16:50:00
  2039. ***************
  2040. *** 547,553 ****
  2041.               }
  2042.               else
  2043.                   code = show_fast_move(cc->wxy, pgs);
  2044. !             if ( code ) return code;
  2045.           }
  2046.           /* All done. */
  2047.           return show_finish(penum);
  2048. --- 547,558 ----
  2049.               }
  2050.               else
  2051.                   code = show_fast_move(cc->wxy, pgs);
  2052. !             if ( code )
  2053. !             {    /* Might be kshow, so store the state. */
  2054. !                 penum->current_char = chr;
  2055. !                 penum->current_glyph = glyph;
  2056. !                 return code;
  2057. !             }
  2058.           }
  2059.           /* All done. */
  2060.           return show_finish(penum);
  2061. *** 1.2    1993/06/29 02:22:52
  2062. --- gsdps1.c    1993/06/28 17:46:38
  2063. ***************
  2064. *** 18,23 ****
  2065. --- 18,24 ----
  2066.   
  2067.   /* gsdps1.c */
  2068.   /* Display PostScript graphics additions for Ghostscript library */
  2069. + #include "math_.h"
  2070.   #include "gx.h"
  2071.   #include "gserrors.h"
  2072.   #include "gxfixed.h"
  2073. ***************
  2074. *** 31,37 ****
  2075.   int
  2076.   gs_setbbox(gs_state *pgs, floatp llx, floatp lly, floatp urx, floatp ury)
  2077.   {    gs_rect ubox, dbox;
  2078. !     gs_fixed_rect bbox;
  2079.       gx_path *ppath = pgs->path;
  2080.       int code;
  2081.       if ( llx > urx || lly > ury )
  2082. --- 32,38 ----
  2083.   int
  2084.   gs_setbbox(gs_state *pgs, floatp llx, floatp lly, floatp urx, floatp ury)
  2085.   {    gs_rect ubox, dbox;
  2086. !     gs_fixed_rect obox, bbox;
  2087.       gx_path *ppath = pgs->path;
  2088.       int code;
  2089.       if ( llx > urx || lly > ury )
  2090. ***************
  2091. *** 43,61 ****
  2092.       ubox.q.y = ury;
  2093.       if ( (code = gs_bbox_transform(&ubox, &ctm_only(pgs), &dbox)) < 0 )
  2094.           return code;
  2095. !     if ( gx_path_bbox(ppath, &bbox) >= 0 )
  2096.       {    /* Take the union of the bboxes. */
  2097. !         ppath->bbox.p.x = min(bbox.p.x, float2fixed(dbox.p.x));
  2098. !         ppath->bbox.p.y = min(bbox.p.y, float2fixed(dbox.p.y));
  2099. !         ppath->bbox.q.x = max(bbox.q.x, float2fixed(dbox.q.x));
  2100. !         ppath->bbox.q.y = max(bbox.q.y, float2fixed(dbox.q.y));
  2101.       }
  2102.       else        /* empty path */
  2103.       {    /* Just set the bbox. */
  2104. !         ppath->bbox.p.x = float2fixed(dbox.p.x);
  2105. !         ppath->bbox.p.y = float2fixed(dbox.p.y);
  2106. !         ppath->bbox.q.x = float2fixed(dbox.q.x);
  2107. !         ppath->bbox.q.y = float2fixed(dbox.q.y);
  2108.           ppath->bbox_set = 1;
  2109.       }
  2110.       return 0;
  2111. --- 44,67 ----
  2112.       ubox.q.y = ury;
  2113.       if ( (code = gs_bbox_transform(&ubox, &ctm_only(pgs), &dbox)) < 0 )
  2114.           return code;
  2115. !     /* Round the corners in opposite directions. */
  2116. !     bbox.p.x = (fixed)floor(dbox.p.x * _fixed_scale);
  2117. !     bbox.p.y = (fixed)floor(dbox.p.y * _fixed_scale);
  2118. !     bbox.q.x = (fixed)ceil(dbox.q.x * _fixed_scale);
  2119. !     bbox.q.y = (fixed)ceil(dbox.q.y * _fixed_scale);
  2120. !     if ( gx_path_bbox(ppath, &obox) >= 0 )
  2121.       {    /* Take the union of the bboxes. */
  2122. !         ppath->bbox.p.x = min(obox.p.x, bbox.p.x);
  2123. !         ppath->bbox.p.y = min(obox.p.y, bbox.p.y);
  2124. !         ppath->bbox.q.x = max(obox.q.x, bbox.q.x);
  2125. !         ppath->bbox.q.y = max(obox.q.y, bbox.q.y);
  2126.       }
  2127.       else        /* empty path */
  2128.       {    /* Just set the bbox. */
  2129. !         ppath->bbox.p.x = bbox.p.x;
  2130. !         ppath->bbox.p.y = bbox.p.y;
  2131. !         ppath->bbox.q.x = bbox.q.x;
  2132. !         ppath->bbox.q.y = bbox.q.y;
  2133.           ppath->bbox_set = 1;
  2134.       }
  2135.       return 0;
  2136. *** /dev/null    1993/07/19 15:46:30
  2137. --- gsgraph.uue    1993/07/08 08:07:50
  2138. ***************
  2139. *** 0 ****
  2140. --- 1,21 ----
  2141. + begin 644 gsgraph.ico
  2142. + M   !  $ (" 0      #H @  %@   "@    @    0     $ !       @ ( 
  2143. + M                              "   "     @(  @    (  @ " @   
  2144. + M@("  $! 0    /\  /\   #__P#_    _P#_ /__  #___\ S,S,S,S,S,S,
  2145. + MS,S,S,S,S,S,S,S,S,S,S+N[S,S,S,S,O+S+S+S+N[S,S+S+N\S,S+R\R\R\
  2146. + MO,R\R[N\O,S,S,R\O,O,O,N[O+S,O+N[O,S,O+S+S+S,S+R\S+R\S+S,S+R[
  2147. + MO+O,R[O,R[N\R[O,S,S,S,S,S,S,S,S,S,S,S,S,O,S,S,S,S,S,S,S,S,S,
  2148. + MS,S,S,S,S,S,S,S,S,S,S    /__________\          /_______P\   
  2149. + M         /_______P             /_______P   /    _P /\/______
  2150. + M\ ____    ___P_______P_____P  _____P______________   /______
  2151. + M_______P /\  /_P /__________\  /\ #P  #__________P          
  2152. + M#_______\/             /_P_P#_\             #_#_\ __        
  2153. + M        _____P               /____\               #_#P_P    
  2154. + M            #___                  __\                 #__P  
  2155. + M               /__                   /\                     
  2156. + M                                                            
  2157. + M    ^   __P  ?_^  ?OS  "!X    .    !     (    &    PA@  >=\ 
  2158. + M /__@ '__\ !___@ ?__^ '___@#___X!____ ____@?___P/___^'____S_
  2159. + !____
  2160. +  
  2161. + end
  2162. *** /dev/null    1993/07/19 15:46:30
  2163. --- gstext.uue    1993/07/08 08:07:50
  2164. ***************
  2165. *** 0 ****
  2166. --- 1,21 ----
  2167. + begin 644 gstext.ico
  2168. + M   !  $ (" 0      #H @  %@   "@    @    0     $ !       @ ( 
  2169. + M                              "   "     @(  @    (  @ " @   
  2170. + M@("  $! 0    /\  /\   #__P#_    _P#_ /__  #___\ $1$1$1$1$1$1
  2171. + M$1$1$1$1$1$1$1$1$1$1$1$1$1$1$1$1$1N[L1&[L1&[L1$1L1$1$1$;$1L;
  2172. + M$1L;$1L1$1$1$1$1&Q$;&Q$;&Q$;$1&Q$1$1$1L1&QL1&QL1&Q$1L1$1$1$;
  2173. + MN[$1N[$1N[$1$;$1$1$1&Q$1$1$1$1$1$1&Q$1$1$1L1$1$1$1$1$1$1L1$1
  2174. + M$1$1$1$1$1$1$1$1$1$1$0   /__________\          /_______P\   
  2175. + M         /_______P             /_______P   /    _P /\/______
  2176. + M\ ____    ___P_______P_____P  _____P______________   /______
  2177. + M_______P /\  /_P /__________\  /\ #P  #__________P          
  2178. + M#_______\/             /_P_P#_\             #_#_\ __        
  2179. + M        _____P               /____\               #_#P_P    
  2180. + M            #___                  __\                 #__P  
  2181. + M               /__                   /\                     
  2182. + M                                                            
  2183. + M    ^   __P  ?_^  ?OS  "!X    .    !     (    &    PA@  >=\ 
  2184. + M /__@ '__\ !___@ ?__^ '___@#___X!____ ____@?___P/___^'____S_
  2185. + !____
  2186. +  
  2187. + end
  2188. *** 1.1    1993/07/19 15:43:44
  2189. --- gxdither.c    1993/07/08 17:00:44
  2190. ***************
  2191. *** 234,250 ****
  2192.   #define half (frac_1/2)
  2193.       if ( rem_r > half )
  2194.           rem_r = frac_1 - rem_r,
  2195. !           adjust_r = -1, r++, lum_invert += lum_red_weight;
  2196.       else
  2197.           adjust_r = 1;
  2198.       if ( rem_g > half )
  2199.           rem_g = frac_1 - rem_g,
  2200. !           adjust_g = -1, g++, lum_invert += lum_green_weight;
  2201.       else
  2202.           adjust_g = 1;
  2203.       if ( rem_b > half )
  2204.           rem_b = frac_1 - rem_b,
  2205. !           adjust_b = -1, b++, lum_invert += lum_blue_weight;
  2206.       else
  2207.           adjust_b = 1;
  2208.       pdevc->color1 = (*map_rgb_color)(dev, fractional_color(r, max_value),
  2209. --- 234,250 ----
  2210.   #define half (frac_1/2)
  2211.       if ( rem_r > half )
  2212.           rem_r = frac_1 - rem_r,
  2213. !           adjust_r = -1, r++, lum_invert += lum_red_weight * 2;
  2214.       else
  2215.           adjust_r = 1;
  2216.       if ( rem_g > half )
  2217.           rem_g = frac_1 - rem_g,
  2218. !           adjust_g = -1, g++, lum_invert += lum_green_weight * 2;
  2219.       else
  2220.           adjust_g = 1;
  2221.       if ( rem_b > half )
  2222.           rem_b = frac_1 - rem_b,
  2223. !           adjust_b = -1, b++, lum_invert += lum_blue_weight * 2;
  2224.       else
  2225.           adjust_b = 1;
  2226.       pdevc->color1 = (*map_rgb_color)(dev, fractional_color(r, max_value),
  2227. ***************
  2228. *** 311,325 ****
  2229.           color2 = (*map_rgb_color)(dev, fractional_color(r, max_value),
  2230.                         fractional_color(g, max_value),
  2231.                         fractional_color(b, max_value));
  2232. - /****** THIS IS A BAD IDEA ******/
  2233. - #if 0
  2234.           if ( lum_w[diagc] < lum_invert )
  2235.              {    pdevc->color2 = pdevc->color1;
  2236.               pdevc->color1 = color2;
  2237.               pdevc->halftone_level = level = hsize - level;
  2238.              }
  2239.           else
  2240. - #endif
  2241.               pdevc->color2 = color2;
  2242.           gx_color_load(pdevc, pgs);
  2243.          }
  2244. --- 311,322 ----
  2245. *** 1.3    1993/06/29 02:58:13
  2246. --- unix-ansi.mak    1993/07/19 15:50:09
  2247. ***************
  2248. *** 1077,1083 ****
  2249.   # *    att3b1    AT&T 3b1/Unixpc monochrome display   [3b1 only]
  2250.   # *    sonyfb    Sony Microsystems monochrome display   [Sony only]
  2251.   # *    sunview  SunView window system   [SunOS only]
  2252. ! #    x11    X Windows version 11, release >=3   [Unix and VMS only]
  2253.   # Printers:
  2254.   # *    appledmp  Apple Dot Matrix Printer (should also work with Imagewriter)
  2255.   #    bj10e    Canon BubbleJet BJ10e
  2256. --- 1077,1083 ----
  2257.   # *    att3b1    AT&T 3b1/Unixpc monochrome display   [3b1 only]
  2258.   # *    sonyfb    Sony Microsystems monochrome display   [Sony only]
  2259.   # *    sunview  SunView window system   [SunOS only]
  2260. ! #    x11    X Windows version 11, release >=4   [Unix and VMS only]
  2261.   # Printers:
  2262.   # *    appledmp  Apple Dot Matrix Printer (should also work with Imagewriter)
  2263.   #    bj10e    Canon BubbleJet BJ10e
  2264. ***************
  2265. *** 1109,1114 ****
  2266. --- 1109,1115 ----
  2267.   # *    lj250    DEC LJ250 Companion color printer
  2268.   # +    ljet2p    H-P LaserJet IId/IIp/III* with TIFF compression
  2269.   # +    ljet3    H-P LaserJet III* with Delta Row compression
  2270. + # +    ljet4    H-P LaserJet 4 (defaults to 600 dpi)
  2271.   # +    ljetplus  H-P LaserJet Plus
  2272.   # *    m8510    C.Itoh M8510 printer
  2273.   # *    necp6    NEC P6/P6+/P60 printers at 360 x 360 DPI resolution
  2274. ***************
  2275. *** 1436,1441 ****
  2276. --- 1437,1447 ----
  2277.   ljet3.dev: $(HPMONO)
  2278.       $(SHP)gssetdev ljet3 $(HPMONO)
  2279.   
  2280. + ### Selecting ljet4 also provides Delta Row compression on LaserJet IV series.
  2281. + 
  2282. + ljet4.dev: $(HPMONO)
  2283. +     $(SHP)gssetdev ljet4 $(HPMONO)
  2284. + 
  2285.   ###- The H-P DeskJet 500C/550C and PaintJet family color printer devices -###
  2286.   ### Note: there are two different 500C drivers, both contributed by users.###
  2287.   ###   If you have questions about the djet500c driver,                    ###
  2288. ***************
  2289. *** 1517,1527 ****
  2290.   ### Note: this driver was contributed by a user: if you have questions,  ###
  2291.   ###       please contact Richard Brown (rab@tauon.ph.unimelb.edu.au).    ###
  2292.   
  2293. ! escp2_=gdevescp2.$(OBJ) gdevprn.$(OBJ)
  2294.   escp2.dev: $(escp2_)
  2295.       $(SHP)gssetdev escp2 $(escp2_)
  2296.   
  2297. ! gdevescp2.$(OBJ): gdevescp2.c $(PDEVH)
  2298.   
  2299.   ### ------------ The H-P PaintJet color printer device ----------------- ###
  2300.   ### Note: this driver also supports the DEC LJ250 color printer, which   ###
  2301. --- 1523,1533 ----
  2302.   ### Note: this driver was contributed by a user: if you have questions,  ###
  2303.   ###       please contact Richard Brown (rab@tauon.ph.unimelb.edu.au).    ###
  2304.   
  2305. ! escp2_=gdevescp.$(OBJ) gdevprn.$(OBJ)
  2306.   escp2.dev: $(escp2_)
  2307.       $(SHP)gssetdev escp2 $(escp2_)
  2308.   
  2309. ! gdevescp.$(OBJ): gdevescp.c $(PDEVH)
  2310.   
  2311.   ### ------------ The H-P PaintJet color printer device ----------------- ###
  2312.   ### Note: this driver also supports the DEC LJ250 color printer, which   ###
  2313. ***************
  2314. *** 1716,1729 ****
  2315.   # Aladdin Enterprises does not support Ghostview.  For more information
  2316.   # about Ghostview, please contact Tim Theisen (ghostview@cs.wisc.edu).
  2317.   
  2318. - # NOTE: Xmu and Xext are here to keep Sun's dynamic linker happy.  No
  2319. - #       routines are used from either of these two libraries.  If you
  2320. - #       do not have libXmu.a or libXext.a, simply remove these two lines
  2321. - #       from the Makefile.
  2322.   x11_=gdevx.$(OBJ) gdevxini.$(OBJ) gdevxxf.$(OBJ) gdevemap.$(OBJ)
  2323.   x11.dev: $(x11_)
  2324.       $(SHP)gssetdev x11 $(x11_)
  2325. !     $(SHP)gsaddmod x11 -lib Xt Xmu X11 Xext
  2326.   
  2327.   # See the main makefile for the definition of XINCLUDE.
  2328.   GDEVX=$(GDEV) x_.h gdevx.h $(MAKEFILE)
  2329. --- 1722,1731 ----
  2330.   # Aladdin Enterprises does not support Ghostview.  For more information
  2331.   # about Ghostview, please contact Tim Theisen (ghostview@cs.wisc.edu).
  2332.   
  2333.   x11_=gdevx.$(OBJ) gdevxini.$(OBJ) gdevxxf.$(OBJ) gdevemap.$(OBJ)
  2334.   x11.dev: $(x11_)
  2335.       $(SHP)gssetdev x11 $(x11_)
  2336. !     $(SHP)gsaddmod x11 -lib Xt X11 Xext
  2337.   
  2338.   # See the main makefile for the definition of XINCLUDE.
  2339.   GDEVX=$(GDEV) x_.h gdevx.h $(MAKEFILE)
  2340. *** 1.3    1993/06/29 02:58:13
  2341. --- unix-cc.mak    1993/07/19 15:50:10
  2342. ***************
  2343. *** 1072,1078 ****
  2344.   # *    att3b1    AT&T 3b1/Unixpc monochrome display   [3b1 only]
  2345.   # *    sonyfb    Sony Microsystems monochrome display   [Sony only]
  2346.   # *    sunview  SunView window system   [SunOS only]
  2347. ! #    x11    X Windows version 11, release >=3   [Unix and VMS only]
  2348.   # Printers:
  2349.   # *    appledmp  Apple Dot Matrix Printer (should also work with Imagewriter)
  2350.   #    bj10e    Canon BubbleJet BJ10e
  2351. --- 1072,1078 ----
  2352.   # *    att3b1    AT&T 3b1/Unixpc monochrome display   [3b1 only]
  2353.   # *    sonyfb    Sony Microsystems monochrome display   [Sony only]
  2354.   # *    sunview  SunView window system   [SunOS only]
  2355. ! #    x11    X Windows version 11, release >=4   [Unix and VMS only]
  2356.   # Printers:
  2357.   # *    appledmp  Apple Dot Matrix Printer (should also work with Imagewriter)
  2358.   #    bj10e    Canon BubbleJet BJ10e
  2359. ***************
  2360. *** 1104,1109 ****
  2361. --- 1104,1110 ----
  2362.   # *    lj250    DEC LJ250 Companion color printer
  2363.   # +    ljet2p    H-P LaserJet IId/IIp/III* with TIFF compression
  2364.   # +    ljet3    H-P LaserJet III* with Delta Row compression
  2365. + # +    ljet4    H-P LaserJet 4 (defaults to 600 dpi)
  2366.   # +    ljetplus  H-P LaserJet Plus
  2367.   # *    m8510    C.Itoh M8510 printer
  2368.   # *    necp6    NEC P6/P6+/P60 printers at 360 x 360 DPI resolution
  2369. ***************
  2370. *** 1431,1436 ****
  2371. --- 1432,1442 ----
  2372.   ljet3.dev: $(HPMONO)
  2373.       $(SHP)gssetdev ljet3 $(HPMONO)
  2374.   
  2375. + ### Selecting ljet4 also provides Delta Row compression on LaserJet IV series.
  2376. + 
  2377. + ljet4.dev: $(HPMONO)
  2378. +     $(SHP)gssetdev ljet4 $(HPMONO)
  2379. + 
  2380.   ###- The H-P DeskJet 500C/550C and PaintJet family color printer devices -###
  2381.   ### Note: there are two different 500C drivers, both contributed by users.###
  2382.   ###   If you have questions about the djet500c driver,                    ###
  2383. ***************
  2384. *** 1512,1522 ****
  2385.   ### Note: this driver was contributed by a user: if you have questions,  ###
  2386.   ###       please contact Richard Brown (rab@tauon.ph.unimelb.edu.au).    ###
  2387.   
  2388. ! escp2_=gdevescp2.$(OBJ) gdevprn.$(OBJ)
  2389.   escp2.dev: $(escp2_)
  2390.       $(SHP)gssetdev escp2 $(escp2_)
  2391.   
  2392. ! gdevescp2.$(OBJ): gdevescp2.c $(PDEVH)
  2393.   
  2394.   ### ------------ The H-P PaintJet color printer device ----------------- ###
  2395.   ### Note: this driver also supports the DEC LJ250 color printer, which   ###
  2396. --- 1518,1528 ----
  2397.   ### Note: this driver was contributed by a user: if you have questions,  ###
  2398.   ###       please contact Richard Brown (rab@tauon.ph.unimelb.edu.au).    ###
  2399.   
  2400. ! escp2_=gdevescp.$(OBJ) gdevprn.$(OBJ)
  2401.   escp2.dev: $(escp2_)
  2402.       $(SHP)gssetdev escp2 $(escp2_)
  2403.   
  2404. ! gdevescp.$(OBJ): gdevescp.c $(PDEVH)
  2405.   
  2406.   ### ------------ The H-P PaintJet color printer device ----------------- ###
  2407.   ### Note: this driver also supports the DEC LJ250 color printer, which   ###
  2408. ***************
  2409. *** 1711,1724 ****
  2410.   # Aladdin Enterprises does not support Ghostview.  For more information
  2411.   # about Ghostview, please contact Tim Theisen (ghostview@cs.wisc.edu).
  2412.   
  2413. - # NOTE: Xmu and Xext are here to keep Sun's dynamic linker happy.  No
  2414. - #       routines are used from either of these two libraries.  If you
  2415. - #       do not have libXmu.a or libXext.a, simply remove these two lines
  2416. - #       from the Makefile.
  2417.   x11_=gdevx.$(OBJ) gdevxini.$(OBJ) gdevxxf.$(OBJ) gdevemap.$(OBJ)
  2418.   x11.dev: $(x11_)
  2419.       $(SHP)gssetdev x11 $(x11_)
  2420. !     $(SHP)gsaddmod x11 -lib Xt Xmu X11 Xext
  2421.   
  2422.   # See the main makefile for the definition of XINCLUDE.
  2423.   GDEVX=$(GDEV) x_.h gdevx.h $(MAKEFILE)
  2424. --- 1717,1726 ----
  2425.   # Aladdin Enterprises does not support Ghostview.  For more information
  2426.   # about Ghostview, please contact Tim Theisen (ghostview@cs.wisc.edu).
  2427.   
  2428.   x11_=gdevx.$(OBJ) gdevxini.$(OBJ) gdevxxf.$(OBJ) gdevemap.$(OBJ)
  2429.   x11.dev: $(x11_)
  2430.       $(SHP)gssetdev x11 $(x11_)
  2431. !     $(SHP)gsaddmod x11 -lib Xt X11 Xext
  2432.   
  2433.   # See the main makefile for the definition of XINCLUDE.
  2434.   GDEVX=$(GDEV) x_.h gdevx.h $(MAKEFILE)
  2435. *** 1.3    1993/06/29 02:58:13
  2436. --- unix-gcc.mak    1993/07/19 15:50:12
  2437. ***************
  2438. *** 1079,1085 ****
  2439.   # *    att3b1    AT&T 3b1/Unixpc monochrome display   [3b1 only]
  2440.   # *    sonyfb    Sony Microsystems monochrome display   [Sony only]
  2441.   # *    sunview  SunView window system   [SunOS only]
  2442. ! #    x11    X Windows version 11, release >=3   [Unix and VMS only]
  2443.   # Printers:
  2444.   # *    appledmp  Apple Dot Matrix Printer (should also work with Imagewriter)
  2445.   #    bj10e    Canon BubbleJet BJ10e
  2446. --- 1079,1085 ----
  2447.   # *    att3b1    AT&T 3b1/Unixpc monochrome display   [3b1 only]
  2448.   # *    sonyfb    Sony Microsystems monochrome display   [Sony only]
  2449.   # *    sunview  SunView window system   [SunOS only]
  2450. ! #    x11    X Windows version 11, release >=4   [Unix and VMS only]
  2451.   # Printers:
  2452.   # *    appledmp  Apple Dot Matrix Printer (should also work with Imagewriter)
  2453.   #    bj10e    Canon BubbleJet BJ10e
  2454. ***************
  2455. *** 1111,1116 ****
  2456. --- 1111,1117 ----
  2457.   # *    lj250    DEC LJ250 Companion color printer
  2458.   # +    ljet2p    H-P LaserJet IId/IIp/III* with TIFF compression
  2459.   # +    ljet3    H-P LaserJet III* with Delta Row compression
  2460. + # +    ljet4    H-P LaserJet 4 (defaults to 600 dpi)
  2461.   # +    ljetplus  H-P LaserJet Plus
  2462.   # *    m8510    C.Itoh M8510 printer
  2463.   # *    necp6    NEC P6/P6+/P60 printers at 360 x 360 DPI resolution
  2464. ***************
  2465. *** 1438,1443 ****
  2466. --- 1439,1449 ----
  2467.   ljet3.dev: $(HPMONO)
  2468.       $(SHP)gssetdev ljet3 $(HPMONO)
  2469.   
  2470. + ### Selecting ljet4 also provides Delta Row compression on LaserJet IV series.
  2471. + 
  2472. + ljet4.dev: $(HPMONO)
  2473. +     $(SHP)gssetdev ljet4 $(HPMONO)
  2474. + 
  2475.   ###- The H-P DeskJet 500C/550C and PaintJet family color printer devices -###
  2476.   ### Note: there are two different 500C drivers, both contributed by users.###
  2477.   ###   If you have questions about the djet500c driver,                    ###
  2478. ***************
  2479. *** 1519,1529 ****
  2480.   ### Note: this driver was contributed by a user: if you have questions,  ###
  2481.   ###       please contact Richard Brown (rab@tauon.ph.unimelb.edu.au).    ###
  2482.   
  2483. ! escp2_=gdevescp2.$(OBJ) gdevprn.$(OBJ)
  2484.   escp2.dev: $(escp2_)
  2485.       $(SHP)gssetdev escp2 $(escp2_)
  2486.   
  2487. ! gdevescp2.$(OBJ): gdevescp2.c $(PDEVH)
  2488.   
  2489.   ### ------------ The H-P PaintJet color printer device ----------------- ###
  2490.   ### Note: this driver also supports the DEC LJ250 color printer, which   ###
  2491. --- 1525,1535 ----
  2492.   ### Note: this driver was contributed by a user: if you have questions,  ###
  2493.   ###       please contact Richard Brown (rab@tauon.ph.unimelb.edu.au).    ###
  2494.   
  2495. ! escp2_=gdevescp.$(OBJ) gdevprn.$(OBJ)
  2496.   escp2.dev: $(escp2_)
  2497.       $(SHP)gssetdev escp2 $(escp2_)
  2498.   
  2499. ! gdevescp.$(OBJ): gdevescp.c $(PDEVH)
  2500.   
  2501.   ### ------------ The H-P PaintJet color printer device ----------------- ###
  2502.   ### Note: this driver also supports the DEC LJ250 color printer, which   ###
  2503. ***************
  2504. *** 1718,1731 ****
  2505.   # Aladdin Enterprises does not support Ghostview.  For more information
  2506.   # about Ghostview, please contact Tim Theisen (ghostview@cs.wisc.edu).
  2507.   
  2508. - # NOTE: Xmu and Xext are here to keep Sun's dynamic linker happy.  No
  2509. - #       routines are used from either of these two libraries.  If you
  2510. - #       do not have libXmu.a or libXext.a, simply remove these two lines
  2511. - #       from the Makefile.
  2512.   x11_=gdevx.$(OBJ) gdevxini.$(OBJ) gdevxxf.$(OBJ) gdevemap.$(OBJ)
  2513.   x11.dev: $(x11_)
  2514.       $(SHP)gssetdev x11 $(x11_)
  2515. !     $(SHP)gsaddmod x11 -lib Xt Xmu X11 Xext
  2516.   
  2517.   # See the main makefile for the definition of XINCLUDE.
  2518.   GDEVX=$(GDEV) x_.h gdevx.h $(MAKEFILE)
  2519. --- 1724,1733 ----
  2520.   # Aladdin Enterprises does not support Ghostview.  For more information
  2521.   # about Ghostview, please contact Tim Theisen (ghostview@cs.wisc.edu).
  2522.   
  2523.   x11_=gdevx.$(OBJ) gdevxini.$(OBJ) gdevxxf.$(OBJ) gdevemap.$(OBJ)
  2524.   x11.dev: $(x11_)
  2525.       $(SHP)gssetdev x11 $(x11_)
  2526. !     $(SHP)gsaddmod x11 -lib Xt X11 Xext
  2527.   
  2528.   # See the main makefile for the definition of XINCLUDE.
  2529.   GDEVX=$(GDEV) x_.h gdevx.h $(MAKEFILE)
  2530. *** 1.1    1993/07/19 15:43:44
  2531. --- use.doc    1993/07/18 15:52:50
  2532. ***************
  2533. *** 1,4 ****
  2534. !    Copyright (C) 1989, 1992 Aladdin Enterprises.  All rights reserved.
  2535.   
  2536.   This file is part of Ghostscript.
  2537.   
  2538. --- 1,4 ----
  2539. !    Copyright (C) 1989, 1992, 1993 Aladdin Enterprises.  All rights reserved.
  2540.   
  2541.   This file is part of Ghostscript.
  2542.   
  2543. ***************
  2544. *** 286,291 ****
  2545. --- 286,298 ----
  2546.   single directory, or a list of directories separated by a character
  2547.   appropriate for the operating system (':' on Unix systems, ';' on VMS
  2548.   systems, ';' on MS-DOS systems).
  2549. + 
  2550. + When Ghostscript starts up, it also looks at the GS_FONTPATH environment
  2551. + variable, which is also a list of directories.  It goes to those
  2552. + directories and looks for all files that appear to contain PostScript
  2553. + fonts; it then effectively adds all those files and fonts to its internal
  2554. + copy of the Fontmap (the catalog of fonts and the files that contain
  2555. + them).
  2556.   
  2557.   Temporary files
  2558.   ---------------
  2559. *** 1.1    1993/07/19 15:43:44
  2560. --- vms-cc.mak    1993/07/08 16:55:20
  2561. ***************
  2562. *** 151,157 ****
  2563.   GXSTROKE
  2564.   IALLOC
  2565.   IBNUM
  2566. - IBSCAN
  2567.   ICCFONT
  2568.   IDEBUG
  2569.   IDICT
  2570. --- 151,156 ----
  2571. ***************
  2572. *** 161,166 ****
  2573. --- 160,166 ----
  2574.   INTERP
  2575.   ISAVE
  2576.   ISCAN
  2577. + ISCAN2
  2578.   IUTIL
  2579.   SBITS
  2580.   SCFD
  2581. ***************
  2582. *** 263,272 ****
  2583.   $ !
  2584.   $ CC'CDEF/NOLIST/OBJECT=GDEVX.OBJ GDEVX.C
  2585.   $ !
  2586.   $ CC'CDEF/NOLIST/OBJECT=GSMAIN.OBJ GSMAIN.C
  2587.   $ !
  2588.   $ CC'CDEF/NOLIST/OBJECT=GS.OBJ GS.C
  2589. ! $ LINK'LDEF/NOMAP/EXE=GS.EXE GS,GSMAIN,GDEVX,GDEVXINI,GCONFIG,-
  2590.     GS/LIB/INCLUDE=(GDEVMEM1,GDEVMEM2,GDEVMEM3,GXCLIST,GXCLREAD,-
  2591.     ZARITH,ZARRAY,ZBSEQ,ZCHAR,ZCOLOR,ZCOLOR2,ZCONTROL,ZDEVICE,ZDPS1,-
  2592.     ZDICT,ZFILE,ZFILEDEV,ZFILEIO,ZFILTER,ZFILTER2,ZFONT,ZFONT0,ZFONT1,ZFONT2,-
  2593. --- 263,274 ----
  2594.   $ !
  2595.   $ CC'CDEF/NOLIST/OBJECT=GDEVX.OBJ GDEVX.C
  2596.   $ !
  2597. + $ CC'CDEF/NOLIST/OBJECT=GDEVXXF.OBJ GDEVXXF.C
  2598. + $ !
  2599.   $ CC'CDEF/NOLIST/OBJECT=GSMAIN.OBJ GSMAIN.C
  2600.   $ !
  2601.   $ CC'CDEF/NOLIST/OBJECT=GS.OBJ GS.C
  2602. ! $ LINK'LDEF/NOMAP/EXE=GS.EXE GS,GSMAIN,GDEVX,GDEVXINI,GDEVXXF,GCONFIG,-
  2603.     GS/LIB/INCLUDE=(GDEVMEM1,GDEVMEM2,GDEVMEM3,GXCLIST,GXCLREAD,-
  2604.     ZARITH,ZARRAY,ZBSEQ,ZCHAR,ZCOLOR,ZCOLOR2,ZCONTROL,ZDEVICE,ZDPS1,-
  2605.     ZDICT,ZFILE,ZFILEDEV,ZFILEIO,ZFILTER,ZFILTER2,ZFONT,ZFONT0,ZFONT1,ZFONT2,-
  2606. ***************
  2607. *** 275,281 ****
  2608.     ZPROPS,ZRELBIT,ZSTACK,ZSTRING,ZTYPE,ZUPATH,ZVMEM),SYS$INPUT/OPT
  2609.   SYS$SHARE:DECW$DWTLIBSHR/SHARE,SYS$SHARE:DECW$XLIBSHR.EXE/SHARE
  2610.   $ !
  2611. ! $ DELETE GDEVX.OBJ.*,GDEVXINI.OBJ.*,GSMAIN.OBJ.*,GS.OBJ.*,-
  2612.            GCONFIG.OBJ.*
  2613.   $ !
  2614.   $ DEASSIGN X11
  2615. --- 277,283 ----
  2616.     ZPROPS,ZRELBIT,ZSTACK,ZSTRING,ZTYPE,ZUPATH,ZVMEM),SYS$INPUT/OPT
  2617.   SYS$SHARE:DECW$DWTLIBSHR/SHARE,SYS$SHARE:DECW$XLIBSHR.EXE/SHARE
  2618.   $ !
  2619. ! $ DELETE GDEVX.OBJ.*,GDEVXINI.OBJ.*,GDEVXXF.OBJ.*,GSMAIN.OBJ.*,GS.OBJ.*,-
  2620.            GCONFIG.OBJ.*
  2621.   $ !
  2622.   $ DEASSIGN X11
  2623. *** 1.1    1993/07/19 15:43:44
  2624. --- vms-gcc.mak    1993/07/08 16:55:32
  2625. ***************
  2626. *** 157,163 ****
  2627.   GXSTROKE
  2628.   IALLOC
  2629.   IBNUM
  2630. - IBSCAN
  2631.   ICCFONT
  2632.   IDEBUG
  2633.   IDICT
  2634. --- 157,162 ----
  2635. ***************
  2636. *** 167,172 ****
  2637. --- 166,172 ----
  2638.   INTERP
  2639.   ISAVE
  2640.   ISCAN
  2641. + ISCAN2
  2642.   IUTIL
  2643.   SBITS
  2644.   SCFD
  2645. ***************
  2646. *** 263,274 ****
  2647.   $ GCC'CDEF/NOLIST/DEFINE=('LIBDEF','INIDEF')/OBJECT=GCONFIG.OBJ GCONFIG.C
  2648.   $ GCC'CDEF/NOLIST/INCLUDE_DIRECTORY='F$TRNLNM("SYS$COMMON") -
  2649.       /OBJECT=GDEVXINI.OBJ GDEVXINI.C
  2650. ! $ GCC'CDEF/NOLIST/INCLUDE_DIRECTORY='F$TRNLNM("SYS$COMMON")/OBJECT=GDEVX.OBJ -
  2651. !     GDEVX.C
  2652.   $ GCC'CDEF/NOLIST/OBJECT=GSMAIN.OBJ GSMAIN.C
  2653.   $ !
  2654.   $ GCC'CDEF/NOLIST/OBJECT=GS.OBJ GS.C
  2655. ! $ LINK'LDEF/NOMAP/EXE=GS.EXE GS,GSMAIN,GDEVX,GDEVXINI,GCONFIG,-
  2656.     GS/LIB/INCLUDE=(GDEVMEM1,GDEVMEM2,GDEVMEM3,GXCLIST,GXCLREAD,-
  2657.     ZARITH,ZARRAY,ZBSEQ,ZCHAR,ZCOLOR,ZCOLOR2,ZCONTROL,ZDEVICE,ZDPS1,-
  2658.     ZDICT,ZFILE,ZFILEDEV,ZFILEIO,ZFILTER,ZFILTER2,ZFONT,ZFONT0,ZFONT1,ZFONT2,-
  2659. --- 263,276 ----
  2660.   $ GCC'CDEF/NOLIST/DEFINE=('LIBDEF','INIDEF')/OBJECT=GCONFIG.OBJ GCONFIG.C
  2661.   $ GCC'CDEF/NOLIST/INCLUDE_DIRECTORY='F$TRNLNM("SYS$COMMON") -
  2662.       /OBJECT=GDEVXINI.OBJ GDEVXINI.C
  2663. ! $ GCC'CDEF/NOLIST/INCLUDE_DIRECTORY='F$TRNLNM("SYS$COMMON") -
  2664. !     /OBJECT=GDEVX.OBJ GDEVX.C
  2665. ! $ GCC'CDEF/NOLIST/INCLUDE_DIRECTORY='F$TRNLNM("SYS$COMMON") -
  2666. !     /OBJECT=GDEVXXF.OBJ GDEVXXF.C
  2667.   $ GCC'CDEF/NOLIST/OBJECT=GSMAIN.OBJ GSMAIN.C
  2668.   $ !
  2669.   $ GCC'CDEF/NOLIST/OBJECT=GS.OBJ GS.C
  2670. ! $ LINK'LDEF/NOMAP/EXE=GS.EXE GS,GSMAIN,GDEVX,GDEVXINI,GDEVXXF,GCONFIG,-
  2671.     GS/LIB/INCLUDE=(GDEVMEM1,GDEVMEM2,GDEVMEM3,GXCLIST,GXCLREAD,-
  2672.     ZARITH,ZARRAY,ZBSEQ,ZCHAR,ZCOLOR,ZCOLOR2,ZCONTROL,ZDEVICE,ZDPS1,-
  2673.     ZDICT,ZFILE,ZFILEDEV,ZFILEIO,ZFILTER,ZFILTER2,ZFONT,ZFONT0,ZFONT1,ZFONT2,-
  2674. ***************
  2675. *** 277,283 ****
  2676.     ZPROPS,ZRELBIT,ZSTACK,ZSTRING,ZTYPE,ZUPATH,ZVMEM),SYS$INPUT/OPT
  2677.   SYS$SHARE:DECW$DWTLIBSHR/SHARE,SYS$SHARE:DECW$XLIBSHR.EXE/SHARE
  2678.   $ !
  2679. ! $ DELETE GDEVX.OBJ.*,GDEVXINI.OBJ.*,GSMAIN.OBJ.*,GS.OBJ.*,-
  2680.            GCONFIG.OBJ.*
  2681.   $ !
  2682.   $ DONE:
  2683. --- 279,285 ----
  2684.     ZPROPS,ZRELBIT,ZSTACK,ZSTRING,ZTYPE,ZUPATH,ZVMEM),SYS$INPUT/OPT
  2685.   SYS$SHARE:DECW$DWTLIBSHR/SHARE,SYS$SHARE:DECW$XLIBSHR.EXE/SHARE
  2686.   $ !
  2687. ! $ DELETE GDEVX.OBJ.*,GDEVXINI.OBJ.*,GDEVXXF.OBJ.*,GSMAIN.OBJ.*,GS.OBJ.*,-
  2688.            GCONFIG.OBJ.*
  2689.   $ !
  2690.   $ DONE:
  2691. *** 1.1    1993/07/19 15:43:44
  2692. --- zht2.c    1993/07/08 16:58:14
  2693. ***************
  2694. *** 21,26 ****
  2695. --- 21,27 ----
  2696.   #include "ghost.h"
  2697.   #include "errors.h"
  2698.   #include "oper.h"
  2699. + #include "alloc.h"
  2700.   #include "dict.h"
  2701.   #include "dparam.h"
  2702.   #include "iname.h"        /* for name_eq */
  2703.