home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / gnu / gs-2.6.1.4-src.lha / src / diffs / ghostscript-2.6.1.diffs
Encoding:
Text File  |  1994-02-22  |  230.9 KB  |  8,521 lines
  1. diff -rc --new-file ghostscript-2.6.1-fsf/NEWS ghostscript-2.6.1-amiga/NEWS
  2. *** ghostscript-2.6.1-fsf/NEWS    Sat May 29 07:40:14 1993
  3. --- ghostscript-2.6.1-amiga/NEWS    Tue Feb 22 13:48:22 1994
  4. ***************
  5. *** 1062,1068 ****
  6.   
  7.   For Unix systems, changes the directories in GS_LIB_DEFAULT from
  8.   `pwd` to $(gsdatadir), i.e., normally $(datadir)/ghostscript, where
  9. ! datadir is normally /usr/local/lib.
  10.   
  11.   Adds a note in the header file to the effect that the X Windows
  12.   driver expects to find header files in $(XINCLUDE)/X11, not in
  13. --- 1062,1068 ----
  14.   
  15.   For Unix systems, changes the directories in GS_LIB_DEFAULT from
  16.   `pwd` to $(gsdatadir), i.e., normally $(datadir)/ghostscript, where
  17. ! datadir is normally /gnu/lib.
  18.   
  19.   Adds a note in the header file to the effect that the X Windows
  20.   driver expects to find header files in $(XINCLUDE)/X11, not in
  21. diff -rc --new-file ghostscript-2.6.1-fsf/amiga-gcc.mak ghostscript-2.6.1-amiga/amiga-gcc.mak
  22. *** ghostscript-2.6.1-fsf/amiga-gcc.mak    Thu Jan  1 00:00:00 1970
  23. --- ghostscript-2.6.1-amiga/amiga-gcc.mak    Tue Feb 22 14:57:45 1994
  24. ***************
  25. *** 0 ****
  26. --- 1,2010 ----
  27. + #    Copyright (C) 1989, 1992, 1993 Aladdin Enterprises.  All rights reserved.
  28. + #
  29. + # This file is part of Ghostscript.
  30. + #
  31. + # Ghostscript is distributed in the hope that it will be useful, but
  32. + # WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  33. + # to anyone for the consequences of using it or for whether it serves any
  34. + # particular purpose or works at all, unless he says so in writing.  Refer
  35. + # to the Ghostscript General Public License for full details.
  36. + #
  37. + # Everyone is granted permission to copy, modify and redistribute
  38. + # Ghostscript, but only under the conditions described in the Ghostscript
  39. + # General Public License.  A copy of this license is supposed to have been
  40. + # given to you along with Ghostscript so you can know your rights and
  41. + # responsibilities.  It should be in a file named COPYING.  Among other
  42. + # things, the copyright notice and this notice must be preserved on all
  43. + # copies.
  44. + 
  45. + # makefile for Ghostscript, Unix/gcc/X11 configuration.
  46. + # Note: this makefile assumes you are using gcc in ANSI mode.
  47. + 
  48. + # ------------------------------- Options ------------------------------- #
  49. + 
  50. + ####### The following are the only parts of the file you should need to edit.
  51. + 
  52. + # ------ Generic options ------ #
  53. + 
  54. + # Define the installation commands and target directories for
  55. + # executables and files.  Only relevant to `make install'.
  56. + 
  57. + INSTALL = install -c
  58. + INSTALL_PROGRAM = $(INSTALL) -m 775
  59. + INSTALL_DATA = $(INSTALL) -m 664
  60. + 
  61. + prefix = /gnu
  62. + exec_prefix = $(prefix)
  63. + bindir = $(exec_prefix)/bin
  64. + datadir = $(prefix)/lib
  65. + gsdatadir = $(datadir)/ghostscript
  66. + 
  67. + # Define the default directory/ies for the runtime
  68. + # initialization and font files.  Separate multiple directories with a ','.
  69. + 
  70. + GS_LIB_DEFAULT=$(gsdatadir),$(gsdatadir)/fonts
  71. + 
  72. + # Define the name of the Ghostscript initialization file.
  73. + # (There is no reason to change this.)
  74. + 
  75. + GS_INIT=gs_init.ps
  76. + 
  77. + # Choose generic configuration options.
  78. + 
  79. + # -DDEBUG
  80. + #    includes debugging features (-Z switch) in the code.
  81. + #      Code runs substantially slower even if no debugging switches
  82. + #      are set.
  83. + # -DNOPRIVATE
  84. + #    makes private (static) procedures and variables public,
  85. + #      so they are visible to the debugger and profiler.
  86. + #      No execution time or space penalty.
  87. + 
  88. + GENOPT=
  89. + 
  90. + # Define the name of the executable file.
  91. + 
  92. + GS=gs
  93. + 
  94. + # ------ Platform-specific options ------ #
  95. + 
  96. + # Define the name of the C compiler.
  97. + 
  98. + CC=gcc
  99. + 
  100. + # Define the other compilation flags.
  101. + # Add -DBSD4_2 for 4.2bsd systems.
  102. + # Add -DUSG (GNU convention) or -DSYSV for System V or DG/UX.
  103. + # Add -DSYSV -D__SVR3 for SCO ODT, ISC Unix 2.2 or before,
  104. + #   or any System III Unix, or System V release 3-or-older Unix.
  105. + # Add -DSVR4 (not -DSYSV) for System V release 4.
  106. + # XCFLAGS can be set from the command line.
  107. + # We don't include -ansi, because this gets in the way of the platform-
  108. + #   specific stuff that <math.h> typically needs; nevertheless, we expect
  109. + #   gcc to accept ANSI-style function prototypes and function definitions.
  110. + 
  111. + #FPU_FLAG =-Dm68881
  112. + #CPU_FLAG =-Dm68030
  113. + XCFLAGS = -O6 $(FPU_FLAG) $(CPU_FLAG)
  114. + CFLAGS=-DUSG $(XCFLAGS)
  115. + 
  116. + # Define platform flags for ld.
  117. + # SunOS and some others want -X; Ultrix wants -x.
  118. + # SunOS 4.n may need -Bstatic.
  119. + # XLDFLAGS can be set from the command line.
  120. + 
  121. + LDFLAGS=$(XLDFLAGS)
  122. + 
  123. + # Define any extra libraries to link into the executable.
  124. + # ISC Unix 2.2 wants -linet.
  125. + # SCO Unix needs -lsocket if you aren't including the X11 driver.
  126. + # (Libraries required by individual drivers are handled automatically.)
  127. + 
  128. + EXTRALIBS=
  129. + 
  130. + # Define the include switch(es) for the X11 header files.
  131. + # This can be null if handled in some other way (e.g., the files are
  132. + # in /gnu/include, or the directory is supplied by an environment variable).
  133. + # Note that x_.h expects to find the header files in $(XINCLUDE)/X11,
  134. + # not in $(XINCLUDE).
  135. + 
  136. + #XINCLUDE=-I/gnu/X/include
  137. + 
  138. + # Define the directory/ies for the X11 library files.
  139. + # This can be null if these files are in the default linker search path.
  140. + 
  141. + #XLIBDIRS=-L/gnu/X/lib
  142. + 
  143. + # ------ Devices and features ------ #
  144. + 
  145. + # Choose the language feature(s) to include.  See gs.mak for details.
  146. + 
  147. + FEATURE_DEVS=filter.dev dps.dev level2.dev
  148. + 
  149. + # Choose the device(s) to include.  See devs.mak for details.
  150. + 
  151. + DEVICE_DEVS=amiga_.dev amiga.dev amiga_low.dev amiga_high.dev amiga_super.dev
  152. + DEVICE_DEVS1=amiga_a2024.dev amiga_picassoii.dev amiga_printer.dev
  153. + DEVICE_DEVS2=amiga_ilbm.dev amiga_custom.dev
  154. + 
  155. + # ---------------------------- End of options --------------------------- #
  156. + 
  157. + # Define the name of the makefile -- used in dependencies.
  158. + 
  159. + MAKEFILE=amiga-gcc.mak
  160. + 
  161. + # Define the ANSI-to-K&R dependency.  (gcc accepts ANSI syntax.)
  162. + 
  163. + AK=
  164. + 
  165. + # Define the compilation rules and flags.
  166. + 
  167. + CCC=$(CC) $(CCFLAGS) -c
  168. + 
  169. + # --------------------------- Generic makefile ---------------------------- #
  170. + 
  171. + # The remainder of the makefile (unixhead.mak, gs.mak, devs.mak, unixtail.mak)
  172. + # is generic.  tar_cat concatenates all these together.
  173. + #    Copyright (C) 1990, 1991, 1993 Aladdin Enterprises.  All rights reserved.
  174. + #
  175. + # This file is part of Ghostscript.
  176. + #
  177. + # Ghostscript is distributed in the hope that it will be useful, but
  178. + # WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  179. + # to anyone for the consequences of using it or for whether it serves any
  180. + # particular purpose or works at all, unless he says so in writing.  Refer
  181. + # to the Ghostscript General Public License for full details.
  182. + #
  183. + # Everyone is granted permission to copy, modify and redistribute
  184. + # Ghostscript, but only under the conditions described in the Ghostscript
  185. + # General Public License.  A copy of this license is supposed to have been
  186. + # given to you along with Ghostscript so you can know your rights and
  187. + # responsibilities.  It should be in a file named COPYING.  Among other
  188. + # things, the copyright notice and this notice must be preserved on all
  189. + # copies.
  190. + 
  191. + # Partial makefile for Ghostscript, common to all Unix configurations.
  192. + 
  193. + # This part of the makefile gets inserted after the compiler-specific part
  194. + # (xxx-head.mak) and before gs.mak and devs.mak.
  195. + 
  196. + # ----------------------------- Generic stuff ----------------------------- #
  197. + 
  198. + # Define the platform name.  For a "stock" System V platform,
  199. + # use sysv_ instead of unix_.
  200. + 
  201. + PLATFORM=amiga
  202. + 
  203. + # Define the extensions for the object and executable files.
  204. + 
  205. + OBJ=o
  206. + XE=
  207. + 
  208. + # Define the current directory prefix, shell quote string, and shell names.
  209. + 
  210. + EXP=
  211. + QQ=\"
  212. + SHELL=/bin/sh
  213. + SH=$(SHELL)
  214. + SHP=$(SH) $(EXP)
  215. + 
  216. + # Define the compilation rules and flags.
  217. + 
  218. + CCFLAGS=$(GENOPT) $(CFLAGS)
  219. + 
  220. + .c.o: $(AK)
  221. +     $(CCC) $*.c
  222. + 
  223. + CCCF=$(CCC)
  224. + CCD=$(CCC)
  225. + CCINT=$(CCC)
  226. + #    Copyright (C) 1989, 1992, 1993 Aladdin Enterprises.  All rights reserved.
  227. + #
  228. + # This file is part of Ghostscript.
  229. + #
  230. + # Ghostscript is distributed in the hope that it will be useful, but
  231. + # WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  232. + # to anyone for the consequences of using it or for whether it serves any
  233. + # particular purpose or works at all, unless he says so in writing.  Refer
  234. + # to the Ghostscript General Public License for full details.
  235. + #
  236. + # Everyone is granted permission to copy, modify and redistribute
  237. + # Ghostscript, but only under the conditions described in the Ghostscript
  238. + # General Public License.  A copy of this license is supposed to have been
  239. + # given to you along with Ghostscript so you can know your rights and
  240. + # responsibilities.  It should be in a file named COPYING.  Among other
  241. + # things, the copyright notice and this notice must be preserved on all
  242. + # copies.
  243. + 
  244. + # Generic makefile for Ghostscript.
  245. + # The platform-specific makefiles `include' this file.
  246. + # They define the following symbols:
  247. + #    GS - the name of the executable (without the extension, if any).
  248. + #    GS_LIB_DEFAULT - the default directory/ies for searching for the
  249. + #        initialization and font files at run time.
  250. + #    DEVICE_DEVS - the devices to include in the executable.
  251. + #        See devs.mak for details.
  252. + #    DEVICE_DEVS1...DEVICE_DEVS9 - additional devices, if the definition of
  253. + #        DEVICE_DEVS doesn't fit on one line.
  254. + #        See devs.mak for details.
  255. + #    FEATURE_DEVS - the optional features to include in the
  256. + #        executable.  Current features are:
  257. + #            dps - (partial) support for Display PostScript extensions:
  258. + #            see language.doc for details.
  259. + #            level2 - (partial) support for PostScript Level 2
  260. + #            extensions: see language.doc for details.
  261. + #            compfont - support for composite (type 0) fonts.
  262. + #            *** NOT IMPLEMENTED YET. ***
  263. + #            filter - support for Level 2 filters (other than eexec,
  264. + #            ASCIIHexEncode/Decode, NullEncode, PFBDecode,
  265. + #            and SubFileDecode, which are always included).
  266. + #            ccfonts - precompile fonts into C, and link them
  267. + #            with the executable.  In the standard makefiles,
  268. + #            this is only implemented for a very few fonts:
  269. + #            see fonts.doc for details.
  270. + # It is very unlikely that anyone would want to edit the remaining
  271. + #   symbols, but we describe them here for completeness:
  272. + #    GS_INIT - the name of the initialization file for Ghostscript,
  273. + #        normally gs_init.ps.
  274. + #    PLATFORM - a "device" name for the platform, so that platforms can
  275. + #        add various kinds of resources like devices and features.
  276. + #    QQ - a " preceded by whatever escape characters are needed to
  277. + #        persuade the shell to pass a " to a program (" on MS-DOS,
  278. + #        \" on Unix).
  279. + #    XE - the extension for executable files (e.g., null or .exe).
  280. + #    OBJ - the extension for relocatable object files (e.g., o or obj).
  281. + #    BEGINFILES - the list of files that `make begin' should delete.
  282. + #    CCBEGIN - the compilation command for `make begin', normally
  283. + #        $(CCC) *.c.
  284. + #    CCC - the C invocation for normal compilation.
  285. + #    CCD - the C invocation for files that store into frame buffers or
  286. + #        device registers.  Needed because some optimizing compilers
  287. + #        will eliminate necessary stores.
  288. + #    CCCF - the C invocation for compiled fonts and other large,
  289. + #        self-contained data modules.  Needed because MS-DOS
  290. + #        requires using the 'huge' memory model for these.
  291. + #    CCINT - the C invocation for compiling the main interpreter module,
  292. + #        normally the same as CCC: this is needed because the
  293. + #        Borland compiler generates *worse* code for this module
  294. + #        (but only this module) when optimization (-O) is turned on.
  295. + #    AK - if source files must be converted from ANSI to K&R syntax,
  296. + #        this is ansi2knr$(XE); if not, it is null.
  297. + #        If a particular platform requires other utility programs
  298. + #        to be built, AK must include them too.
  299. + #    SHP - the prefix for invoking a shell script in the current directory
  300. + #        (null for MS-DOS, $(SH) ./ for Unix).
  301. + #    EXPP, EXP - the prefix for invoking an executable program in the
  302. + #        current directory (null for MS-DOS, ./ for Unix).
  303. + #    SH - the shell for scripts (null on MS-DOS, sh on Unix).
  304. + # The platform-specific makefiles must also include rules for creating
  305. + #   ansi2knr$(XE), genarch$(XE), and genconf$(XE) from the corresponding
  306. + #   .c files -- this is needed because Turbo C and Unix C treat the -o
  307. + #   switch slightly differently (Turbo C requires no following space,
  308. + #   Unix C requires a following space), and I haven't found a way to capture
  309. + #   the difference in a macro.
  310. + 
  311. + all default: $(GS)$(XE)
  312. + 
  313. + distclean realclean: clean
  314. +     rm -f makefile
  315. + 
  316. + clean mostlyclean:
  317. +     rm -f *.$(OBJ) *.a core gmon.out
  318. +     rm -f *.dev *.d_* arch.h gconfig*.h o*.tr l*.tr
  319. +     rm -f t _temp_* _temp_*.* *.map *.sym
  320. +     rm -f ansi2knr$(XE) echogs$(XE) genarch$(XE) genconf$(XE)
  321. +     rm -f $(GS)$(XE) $(BEGINFILES)
  322. + 
  323. + # A rule to do a quick and dirty compilation attempt when first installing
  324. + # Ghostscript.  Many of the compilations will fail: follow this with 'make'.
  325. + 
  326. + begin:
  327. +     rm -f arch.h genarch$(XE) $(GS)$(XE) $(BEGINFILES)
  328. +     make arch.h
  329. +     - $(CCBEGIN)
  330. +     rm -f gconfig.$(OBJ) gdev*.$(OBJ) gp_*.$(OBJ) gsmisc.$(OBJ)
  331. +     rm -f iccfont.$(OBJ) iinit.$(OBJ) interp.$(OBJ) zfiledev.$(OBJ)
  332. + 
  333. + # Auxiliary programs
  334. + 
  335. + arch.h: genarch$(XE)
  336. +     $(EXPP) $(EXP)genarch arch.h
  337. + 
  338. + # -------------------------------- Library -------------------------------- #
  339. + 
  340. + # Define the inter-dependencies of the .h files.
  341. + # Since not all versions of `make' defer expansion of macros,
  342. + # we must list these in bottom-to-top order.
  343. + 
  344. + # Generic files
  345. + 
  346. + arch_h=arch.h
  347. + std_h=std.h $(arch_h)
  348. + 
  349. + # Platform interfaces
  350. + 
  351. + gp_h=gp.h
  352. + gpcheck_h=gpcheck.h
  353. + 
  354. + # C library interfaces
  355. + 
  356. + # Because of variations in the "standard" header files between systems, and
  357. + # because we must include std.h before any file that includes sys/types.h,
  358. + # we define local include files named *_.h to substitute for <*.h>.
  359. + 
  360. + vmsmath_h=vmsmath.h
  361. + 
  362. + dos__h=dos_.h
  363. + ctype__h=ctype_.h $(std_h)
  364. + errno__h=errno_.h
  365. + malloc__h=malloc_.h $(std_h)
  366. + math__h=math_.h $(std_h) $(vmsmath_h)
  367. + memory__h=memory_.h $(std_h)
  368. + stat__h=stat_.h $(std_h)
  369. + stdio__h=stdio_.h $(std_h)
  370. + string__h=string_.h $(std_h)
  371. + time__h=time_.h $(std_h)
  372. + windows__h=windows_.h
  373. + 
  374. + # Miscellaneous
  375. + 
  376. + gdebug_h=gdebug.h
  377. + gsio_h=gsio.h
  378. + gstypes_h=gstypes.h
  379. + gs_h=gs.h $(stdio__h) $(gsio_h) $(gstypes_h)
  380. + gx_h=gx.h $(gs_h) $(gdebug_h)
  381. + gconfig_h=gconfig.h gsconfig.h
  382. + gserrors_h=gserrors.h
  383. + 
  384. + GX=$(AK) $(gx_h)
  385. + GXERR=$(GX) $(gserrors_h)
  386. + 
  387. + ###### Low-level facilities and utilities
  388. + 
  389. + ### Include files
  390. + 
  391. + gsccode_h=gsccode.h
  392. + gschar_h=gschar.h $(gsccode_h)
  393. + gscie_h=gscie.h
  394. + gscolor_h=gscolor.h
  395. + gscolor2_h=gscolor2.h
  396. + gscoord_h=gscoord.h
  397. + gscrypt1_h=gscrypt1.h
  398. + gscspace_h=gscspace.h
  399. + gsfont_h=gsfont.h
  400. + gsimage_h=gsimage.h
  401. + gsmatrix_h=gsmatrix.h
  402. + gspaint_h=gspaint.h
  403. + gspath_h=gspath.h
  404. + gsprops_h=gsprops.h
  405. + gsstate_h=gsstate.h $(gscolor_h)
  406. + gstype1_h=gstype1.h
  407. + gsuid_h=gsuid.h
  408. + gsutil_h=gsutil.h
  409. + gsxfont_h=gsxfont.h
  410. + 
  411. + gxarith_h=gxarith.h
  412. + gxbitmap_h=gxbitmap.h
  413. + gxcache_h=gxcache.h $(gsuid_h) $(gsxfont_h)
  414. + gxcdir_h=gxcdir.h
  415. + gxchar_h=gxchar.h $(gschar_h)
  416. + gxclist_h=gxclist.h
  417. + # gxcldev is out of order because it include gxclist.
  418. + gxcldev_h=gxcldev.h $(gxclist_h)
  419. + gxcpath_h=gxcpath.h
  420. + gxdevice_h=gxdevice.h $(gsmatrix_h) $(gsxfont_h) $(gxbitmap_h)
  421. + gxdevmem_h=gxdevmem.h
  422. + gxfdir_h=gxfdir.h $(gxcdir_h)
  423. + gxfixed_h=gxfixed.h
  424. + gxfont_h=gxfont.h $(gsfont_h) $(gsuid_h)
  425. + gxfrac_h=gxfrac.h
  426. + gximage_h=gximage.h $(gscspace_h) $(gsimage_h)
  427. + gxlum_h=gxlum.h
  428. + gxmatrix_h=gxmatrix.h $(gsmatrix_h)
  429. + gxop1_h=gxop1.h
  430. + gxpath_h=gxpath.h
  431. + gxrefct_h=gxrefct.h
  432. + gxtype1_h=gxtype1.h $(gscrypt1_h) $(gstype1_h)
  433. + gxxfont_h=gxxfont.h $(gsccode_h) $(gsmatrix_h) $(gsuid_h) $(gsxfont_h)
  434. + # gxcolor and gxfmap are out of order because they include other files.
  435. + gxcolor_h=gxcolor.h $(gxfrac_h) $(gsuid_h)
  436. + gxfmap_h=gxfmap.h $(gxfrac_h) $(gxrefct_h)
  437. + 
  438. + gzcolor_h=gzcolor.h $(gscolor_h) $(gxfmap_h) $(gxlum_h)
  439. + gzdevice_h=gzdevice.h $(gxdevice_h)
  440. + gzht_h=gzht.h
  441. + gzline_h=gzline.h
  442. + gzpath_h=gzpath.h $(gxpath_h)
  443. + gzstate_h=gzstate.h $(gsstate_h) $(gxfixed_h) $(gxmatrix_h)
  444. + 
  445. + ### Executable code
  446. + 
  447. + gp_nofb.$(OBJ): gp_nofb.c $(AK) \
  448. +   $(gx_h) $(gp_h) $(gxdevice_h)
  449. + 
  450. + gsutil.$(OBJ): gsutil.c $(AK) \
  451. +   $(std_h) $(gsprops_h) $(gsutil_h)
  452. + 
  453. + gxccache.$(OBJ): gxccache.c $(GXERR) $(gpcheck_h) \
  454. +   $(gxfixed_h) $(gxmatrix_h) $(gzdevice_h) $(gzcolor_h) \
  455. +   $(gxcpath_h) $(gxdevmem_h) $(gxfont_h) $(gxfdir_h) $(gxchar_h) \
  456. +   $(gxcache_h) $(gxxfont_h) $(gzstate_h) $(gzpath_h) \
  457. +   $(gscspace_h) $(gsimage_h)
  458. + 
  459. + gxccman.$(OBJ): gxccman.c $(GXERR) $(gpcheck_h) \
  460. +   $(gxfixed_h) $(gxmatrix_h) $(gzdevice_h) $(gzcolor_h) \
  461. +   $(gxcpath_h) $(gxdevmem_h) $(gxfont_h) $(gxfdir_h) $(gxchar_h) \
  462. +   $(gxcache_h) $(gxxfont_h) $(gzstate_h) $(gzpath_h)
  463. + 
  464. + gxclist.$(OBJ): gxclist.c $(GXERR) $(gpcheck_h) \
  465. +   $(gsmatrix_h) $(gxbitmap_h) $(gxcldev_h) $(gxdevice_h) $(gxdevmem_h)
  466. + 
  467. + gxclread.$(OBJ): gxclread.c $(GXERR) $(gpcheck_h) \
  468. +   $(gsmatrix_h) $(gxbitmap_h) $(gxcldev_h) $(gxdevice_h) $(gxdevmem_h)
  469. + 
  470. + gxcmap.$(OBJ): gxcmap.c $(GXERR) \
  471. +   $(gscspace_h) \
  472. +   $(gxcolor_h) $(gxdevice_h) $(gxfrac_h) $(gxlum_h) \
  473. +   $(gzcolor_h) $(gzstate_h)
  474. + 
  475. + gxcpath.$(OBJ): gxcpath.c $(GXERR) \
  476. +   $(gxdevice_h) $(gxfixed_h) $(gzcolor_h) $(gzpath_h) $(gxcpath_h)
  477. + 
  478. + gxdither.$(OBJ): gxdither.c $(GX) \
  479. +   $(gxfixed_h) $(gxlum_h) $(gxmatrix_h) $(gzstate_h) $(gzdevice_h) $(gzcolor_h) $(gzht_h)
  480. + 
  481. + gxdraw.$(OBJ): gxdraw.c $(GXERR) $(gpcheck_h) \
  482. +   $(gxfixed_h) $(gxmatrix_h) $(gxbitmap_h) $(gzcolor_h) $(gzdevice_h) $(gzstate_h)
  483. + 
  484. + gxfill.$(OBJ): gxfill.c $(GXERR) \
  485. +   $(gxfixed_h) $(gxmatrix_h) $(gxdevice_h) $(gzcolor_h) $(gzpath_h) $(gzstate_h) $(gxcpath_h)
  486. + 
  487. + gxhint1.$(OBJ): gxhint1.c $(GXERR) \
  488. +   $(gxarith_h) $(gxfixed_h) $(gxmatrix_h) $(gxdevmem_h) $(gxchar_h) $(gxfont_h) $(gxtype1_h) \
  489. +   $(gzdevice_h) $(gzstate_h)
  490. + 
  491. + gxhint2.$(OBJ): gxhint2.c $(GXERR) \
  492. +   $(gxarith_h) $(gxfixed_h) $(gxmatrix_h) $(gxdevmem_h) $(gxchar_h) $(gxfont_h) $(gxtype1_h) $(gxop1_h) \
  493. +   $(gzdevice_h) $(gzstate_h)
  494. + 
  495. + gxht.$(OBJ): gxht.c $(GXERR) \
  496. +   $(gxfixed_h) $(gxmatrix_h) $(gxbitmap_h) $(gzstate_h) $(gzcolor_h) $(gzdevice_h) $(gzht_h)
  497. + 
  498. + gxpath.$(OBJ): gxpath.c $(GXERR) \
  499. +   $(gxfixed_h) $(gzpath_h)
  500. + 
  501. + gxpath2.$(OBJ): gxpath2.c $(GXERR) \
  502. +   $(gxfixed_h) $(gxarith_h) $(gzpath_h)
  503. + 
  504. + gxpcopy.$(OBJ): gxpcopy.c $(GXERR) \
  505. +   $(gxfixed_h) $(gxarith_h) $(gzpath_h)
  506. + 
  507. + gxstroke.$(OBJ): gxstroke.c $(GXERR) $(gpcheck_h) \
  508. +   $(gscoord_h) $(gxfixed_h) $(gxarith_h) $(gxmatrix_h) \
  509. +   $(gzstate_h) $(gzcolor_h) $(gzdevice_h) $(gzline_h) $(gzpath_h)
  510. + 
  511. + ###### High-level facilities
  512. + 
  513. + gschar.$(OBJ): gschar.c $(GXERR) \
  514. +   $(gxfixed_h) $(gxarith_h) $(gxmatrix_h) $(gzdevice_h) $(gxdevmem_h) $(gxfont_h) $(gxchar_h) $(gxcache_h) $(gstype1_h) $(gspath_h) $(gzpath_h) $(gzcolor_h) $(gzstate_h)
  515. + 
  516. + gscolor.$(OBJ): gscolor.c $(GXERR) \
  517. +   $(gscspace_h) $(gxcolor_h) $(gxdevice_h) $(gxrefct_h) \
  518. +   $(gzstate_h) $(gzcolor_h)
  519. + 
  520. + gscoord.$(OBJ): gscoord.c $(GXERR) \
  521. +   $(gsccode_h) $(gxarith_h) $(gxfixed_h) $(gxfont_h) $(gxmatrix_h) \
  522. +   $(gzdevice_h) $(gzstate_h) $(gscoord_h)
  523. + 
  524. + gsdevice.$(OBJ): gsdevice.c $(GXERR) \
  525. +   $(gxarith_h) $(gsprops_h) $(gsutil_h) $(gxbitmap_h) $(gxdevmem_h) \
  526. +   $(gzstate_h) $(gzdevice_h)
  527. + 
  528. + gsfile.$(OBJ): gsfile.c $(GXERR) \
  529. +   $(gsmatrix_h) $(gxdevice_h) $(gxdevmem_h)
  530. + 
  531. + gsfont.$(OBJ): gsfont.c $(GXERR) \
  532. +   $(gxdevice_h) $(gxfixed_h) $(gxmatrix_h) $(gxfont_h) $(gxfdir_h) \
  533. +   $(gzstate_h)
  534. + 
  535. + gsht.$(OBJ): gsht.c $(GXERR) \
  536. +   $(gzht_h) $(gzstate_h)
  537. + 
  538. + gsimage.$(OBJ): gsimage.c $(GXERR) $(gpcheck_h) \
  539. +   $(gxfixed_h) $(gxarith_h) $(gxmatrix_h) $(gspaint_h) \
  540. +   $(gzcolor_h) $(gzdevice_h) $(gzpath_h) $(gzstate_h) \
  541. +   $(gxcolor_h) $(gxcpath_h) $(gxdevmem_h) $(gximage_h)
  542. + 
  543. + gsimage1.$(OBJ): gsimage1.c $(GXERR) $(gpcheck_h) \
  544. +   $(gxfixed_h) $(gxarith_h) $(gxmatrix_h) $(gscspace_h) $(gspaint_h) \
  545. +   $(gzcolor_h) $(gzdevice_h) $(gzpath_h) $(gzstate_h) \
  546. +   $(gxcolor_h) $(gxcpath_h) $(gxdevmem_h) $(gximage_h)
  547. + 
  548. + gsimage2.$(OBJ): gsimage2.c $(GXERR) $(gpcheck_h) \
  549. +   $(gxfixed_h) $(gxarith_h) $(gxmatrix_h) $(gscspace_h) $(gspaint_h) \
  550. +   $(gzcolor_h) $(gzdevice_h) $(gzpath_h) $(gzstate_h) \
  551. +   $(gxcolor_h) $(gxcpath_h) $(gxdevmem_h) $(gximage_h)
  552. + 
  553. + gsimpath.$(OBJ): gsimpath.c $(GXERR) \
  554. +   $(gsmatrix_h) $(gsstate_h) $(gspath_h)
  555. + 
  556. + gsline.$(OBJ): gsline.c $(GXERR) \
  557. +   $(gxfixed_h) $(gxmatrix_h) $(gzstate_h) $(gzline_h)
  558. + 
  559. + gsmatrix.$(OBJ): gsmatrix.c $(GXERR) \
  560. +   $(gxfixed_h) $(gxarith_h) $(gxmatrix_h)
  561. + 
  562. + gsmisc.$(OBJ): gsmisc.c $(GX) $(errno__h) $(malloc__h) $(memory__h) $(MAKEFILE)
  563. +     $(CCC) -DUSE_ASM=0$(USE_ASM) gsmisc.c
  564. + 
  565. + gspaint.$(OBJ): gspaint.c $(GXERR) $(gpcheck_h) \
  566. +   $(gxfixed_h) $(gxmatrix_h) $(gspaint_h) $(gzpath_h) $(gzstate_h) $(gzdevice_h) $(gxcpath_h) $(gxdevmem_h) $(gximage_h)
  567. + 
  568. + gspath.$(OBJ): gspath.c $(GXERR) \
  569. +   $(gxfixed_h) $(gxmatrix_h) $(gxpath_h) $(gzstate_h)
  570. + 
  571. + gspath2.$(OBJ): gspath2.c $(GXERR) \
  572. +   $(gspath_h) $(gxfixed_h) $(gxmatrix_h) $(gzstate_h) $(gzpath_h) $(gzdevice_h)
  573. + 
  574. + gsstate.$(OBJ): gsstate.c $(GXERR) \
  575. +   $(gscie_h) $(gscolor2_h) $(gscspace_h) $(gxcolor_h) $(gxrefct_h) \
  576. +   $(gzstate_h) $(gzcolor_h) $(gzdevice_h) $(gzht_h) $(gzline_h) $(gzpath_h)
  577. + 
  578. + gstdev.$(OBJ): gstdev.c $(GXERR) \
  579. +   $(gxbitmap_h) $(gxdevice_h) $(gxfixed_h) $(gxmatrix_h)
  580. + 
  581. + gstype1.$(OBJ): gstype1.c $(GXERR) \
  582. +   $(gxarith_h) $(gxfixed_h) $(gxmatrix_h) $(gxchar_h) $(gxdevmem_h) $(gxop1_h) $(gxtype1_h) \
  583. +   $(gzstate_h) $(gzdevice_h) $(gzpath_h)
  584. + 
  585. + ###### The internal devices
  586. + 
  587. + gdevmem_h=gdevmem.h
  588. + 
  589. + gdevemap.$(OBJ): gdevemap.c $(AK) $(std_h)
  590. + 
  591. + gdevmem1.$(OBJ): gdevmem1.c $(AK) \
  592. +   $(gx_h) $(gserrors_h) $(gxdevice_h) $(gxdevmem_h) $(gdevmem_h)
  593. + 
  594. + gdevmem2.$(OBJ): gdevmem2.c $(AK) \
  595. +   $(gx_h) $(gxdevice_h) $(gxdevmem_h) $(gdevmem_h)
  596. + 
  597. + gdevmem3.$(OBJ): gdevmem3.c $(AK) \
  598. +   $(gx_h) $(gxdevice_h) $(gxdevmem_h) $(gdevmem_h)
  599. + 
  600. + ###### Files dependent on the installed devices, features, and platform.
  601. + # Generating gconfig.h also generates o*.tr and l*.tr.
  602. + 
  603. + # gconfig.h shouldn't have to depend on ALL_DEVS, but that would
  604. + # involve rewriting gsconfig to only save the device name, not the
  605. + # contents of the <device>.D_# files.
  606. + 
  607. + ALL_DEVS=$(FEATURE_DEVS) $(PLATFORM).dev \
  608. +   $(DEVICE_DEVS) $(DEVICE_DEVS1) \
  609. +   $(DEVICE_DEVS2) $(DEVICE_DEVS3) $(DEVICE_DEVS4) $(DEVICE_DEVS5)\
  610. +   $(DEVICE_DEVS6) $(DEVICE_DEVS7) $(DEVICE_DEVS8) $(DEVICE_DEVS9)
  611. + 
  612. + gconfig.h obj.tr objw.tr ld.tr lib.tr: \
  613. +   devs.mak $(MAKEFILE) echogs$(XE) genconf$(XE) $(ALL_DEVS)
  614. +     $(EXP)echogs -w t.cfg - $(FEATURE_DEVS) $(PLATFORM).dev
  615. +     $(EXP)echogs -a t.cfg - $(DEVICE_DEVS)
  616. +     $(EXP)echogs -a t.cfg - $(DEVICE_DEVS1)
  617. +     $(EXP)echogs -a t.cfg - $(DEVICE_DEVS2)
  618. +     $(EXP)echogs -a t.cfg - $(DEVICE_DEVS3)
  619. +     $(EXP)echogs -a t.cfg - $(DEVICE_DEVS4)
  620. +     $(EXP)echogs -a t.cfg - $(DEVICE_DEVS5)
  621. +     $(EXP)echogs -a t.cfg - $(DEVICE_DEVS6)
  622. +     $(EXP)echogs -a t.cfg - $(DEVICE_DEVS7)
  623. +     $(EXP)echogs -a t.cfg - $(DEVICE_DEVS8)
  624. +     $(EXP)echogs -a t.cfg - $(DEVICE_DEVS9)
  625. +     $(EXP)genconf @t.cfg -h gconfig.h -l lib.tr -o obj.tr -u ld.tr -w objw.tr
  626. +     rm t.cfg
  627. +     $(EXP)echogs -a gconfig.h -x 23 define GS_LIB_DEFAULT -x 2022 $(GS_LIB_DEFAULT) -x 22
  628. +     $(EXP)echogs -a gconfig.h -x 23 define GS_INIT -x 2022 $(GS_INIT) -x 22
  629. + 
  630. + gconfig.$(OBJ): gconfig.c $(AK) $(gconfig_h) $(MAKEFILE)
  631. + 
  632. + ###### On Unix, we pre-link all of the library except the back end.
  633. + ###### On MS-DOS, we have to do the whole thing at once.
  634. + 
  635. + LIBGS=gschar.$(OBJ) gscolor.$(OBJ) gscoord.$(OBJ) \
  636. +  gsdevice.$(OBJ) gsfile.$(OBJ) gsfont.$(OBJ) gsht.$(OBJ) \
  637. +  gsimage.$(OBJ) gsimage1.$(OBJ) gsimage2.$(OBJ) \
  638. +  gsimpath.$(OBJ) gsline.$(OBJ) gsmatrix.$(OBJ) gsmisc.$(OBJ) \
  639. +  gspaint.$(OBJ) gspath.$(OBJ) gspath2.$(OBJ) \
  640. +  gsstate.$(OBJ) gstdev.$(OBJ) gstype1.$(OBJ) gsutil.$(OBJ) \
  641. +  gxccache.$(OBJ) gxccman.$(OBJ) gxclist.$(OBJ) gxclread.$(OBJ) \
  642. +  gxcmap.$(OBJ) gxcpath.$(OBJ) \
  643. +  gxdither.$(OBJ) gxdraw.$(OBJ) gxfill.$(OBJ) \
  644. +  gxhint1.$(OBJ) gxhint2.$(OBJ) gxht.$(OBJ) \
  645. +  gxpath.$(OBJ) gxpath2.$(OBJ) gxpcopy.$(OBJ) gxstroke.$(OBJ) \
  646. +  gdevmem1.$(OBJ) gdevmem2.$(OBJ) gdevmem3.$(OBJ) gconfig.$(OBJ)
  647. + 
  648. + # ------------------------------ Interpreter ------------------------------ #
  649. + 
  650. + ###### Include files
  651. + 
  652. + alloc_h=alloc.h
  653. + astate_h=astate.h
  654. + ccfont_h=ccfont.h
  655. + dict_h=dict.h
  656. + dparam_h=dparam.h
  657. + dstack_h=dstack.h
  658. + errors_h=errors.h
  659. + estack_h=estack.h
  660. + filedev_h=filedev.h
  661. + files_h=files.h
  662. + font_h=font.h
  663. + ilevel_h=ilevel.h
  664. + iname_h=iname.h
  665. + iref_h=iref.h
  666. + iscan_h=iscan.h
  667. + ivmspace_h=ivmspace.h
  668. + iutil_h=iutil.h
  669. + main_h=main.h
  670. + opdef_h=opdef.h
  671. + ostack_h=ostack.h
  672. + overlay_h=overlay.h
  673. + packed_h=packed.h
  674. + save_h=save.h
  675. + scanchar_h=scanchar.h
  676. + sbits_h=sbits.h
  677. + shc_h=shc.h
  678. + state_h=state.h
  679. + store_h=store.h
  680. + stream_h=stream.h
  681. + # Nested include files
  682. + bfont_h=bfont.h $(font_h)
  683. + ghost_h=ghost.h $(gx_h) $(iref_h)
  684. + oper_h=oper.h $(gsutil_h) $(iutil_h) $(opdef_h) $(ostack_h)
  685. + scf_h=scf.h $(shc_h)
  686. + sdct_h=sdct.h $(shc_h)
  687. + # Include files for optional features
  688. + bnum_h=bnum.h
  689. + bseq_h=bseq.h
  690. + btoken_h=btoken.h
  691. + 
  692. + comp1_h=comp1.h $(ghost_h) $(oper_h) $(gserrors_h) $(gxfixed_h) $(gxop1_h)
  693. + 
  694. + gdevprn_h=gdevprn.h $(memory__h) $(string__h) $(gx_h) \
  695. +   $(gserrors_h) $(gsmatrix_h) $(gxdevice_h) $(gxdevmem_h) $(gxclist_h)
  696. + 
  697. + ###### Utilities
  698. + 
  699. + GH=$(AK) $(ghost_h)
  700. + 
  701. + ialloc.$(OBJ): ialloc.c $(AK) $(gx_h) $(alloc_h) $(astate_h) $(ivmspace_h)
  702. + 
  703. + iccfont.$(OBJ): iccfont.c $(GH) gconfigf.h \
  704. +   $(ghost_h) $(alloc_h) $(ccfont_h) $(dict_h) $(dstack_h) $(errors_h) \
  705. +   $(font_h) $(iutil_h) $(iname_h) $(oper_h) $(save_h) $(store_h)
  706. + 
  707. + idebug.$(OBJ): idebug.c $(GH) \
  708. +   $(iutil_h) $(dict_h) $(iname_h) $(ostack_h) $(opdef_h) $(packed_h) $(store_h)
  709. + 
  710. + idict.$(OBJ): idict.c $(GH) \
  711. +   $(alloc_h) $(errors_h) $(ivmspace_h) $(iname_h) $(packed_h) \
  712. +   $(save_h) $(store_h) $(iutil_h) $(dict_h) $(dstack_h)
  713. + 
  714. + idparam.$(OBJ): idparam.c $(GH) \
  715. +   $(gsmatrix_h) $(dict_h) $(dparam_h) $(errors_h) $(iutil_h)
  716. + 
  717. + iinit.$(OBJ): iinit.c $(GH) $(gconfig_h) \
  718. +   $(alloc_h) $(dict_h) $(dstack_h) $(errors_h) $(ilevel_h) $(iname_h) $(oper_h) $(store_h)
  719. + 
  720. + iname.$(OBJ): iname.c $(GH) $(alloc_h) $(errors_h) $(ivmspace_h) $(iname_h) $(store_h)
  721. + 
  722. + isave.$(OBJ): isave.c $(GH) $(alloc_h) $(astate_h) $(errors_h) $(iname_h) $(packed_h) $(save_h) $(store_h)
  723. + 
  724. + iscan.$(OBJ): iscan.c $(GH) $(ctype__h) \
  725. +   $(alloc_h) $(dict_h) $(dstack_h) $(errors_h) \
  726. +   $(ilevel_h) $(iutil_h) $(iscan_h) $(ivmspace_h) \
  727. +   $(iname_h) $(ostack_h) $(packed_h) $(store_h) $(stream_h) $(scanchar_h)
  728. + 
  729. + iutil.$(OBJ): iutil.c $(GH) \
  730. +   $(errors_h) $(alloc_h) $(dict_h) $(iutil_h) $(ivmspace_h) \
  731. +   $(iname_h) $(ostack_h) $(opdef_h) $(packed_h) $(store_h) \
  732. +   $(gsmatrix_h) $(gxdevice_h) $(gzcolor_h)
  733. + 
  734. + sfilter.$(OBJ): sfilter.c $(AK) $(stdio__h) \
  735. +   $(scanchar_h) $(stream_h) $(gscrypt1_h)
  736. + 
  737. + stream.$(OBJ): stream.c $(AK) $(stdio__h) $(memory__h) \
  738. +   $(gpcheck_h) $(scanchar_h) $(stream_h)
  739. + 
  740. + ###### Operators
  741. + 
  742. + OP=$(GH) $(errors_h) $(oper_h)
  743. + 
  744. + ### Non-graphics operators
  745. + 
  746. + zarith.$(OBJ): zarith.c $(OP) $(store_h)
  747. + 
  748. + zarray.$(OBJ): zarray.c $(OP) $(alloc_h) $(packed_h) $(store_h)
  749. + 
  750. + zcontrol.$(OBJ): zcontrol.c $(OP) $(estack_h) $(iutil_h) $(store_h)
  751. + 
  752. + zdict.$(OBJ): zdict.c $(OP) $(dict_h) $(dstack_h) $(iname_h) $(store_h)
  753. + 
  754. + zfile.$(OBJ): zfile.c $(OP) $(gp_h) \
  755. +   $(alloc_h) $(estack_h) $(filedev_h) $(files_h) $(ilevel_h) $(iutil_h) \
  756. +   $(save_h) $(stream_h) $(store_h)
  757. + 
  758. + zfiledev.$(OBJ): zfiledev.c $(OP) $(string__h) $(gp_h) $(gconfig_h) \
  759. +   $(filedev_h) $(files_h) $(stream_h)
  760. + 
  761. + zfileio.$(OBJ): zfileio.c $(OP) $(gp_h) \
  762. +   $(estack_h) $(files_h) $(iscan_h) $(store_h) $(stream_h) \
  763. +   $(gsmatrix_h) $(gxdevice_h) $(gxdevmem_h)
  764. + 
  765. + zfilter.$(OBJ): zfilter.c $(OP) $(alloc_h) $(stream_h)
  766. + 
  767. + zgeneric.$(OBJ): zgeneric.c $(OP) \
  768. +   $(dict_h) $(estack_h) $(ivmspace_h) $(iname_h) $(packed_h) $(store_h)
  769. + 
  770. + zmath.$(OBJ): zmath.c $(OP) $(store_h)
  771. + 
  772. + zmisc.$(OBJ): zmisc.c $(OP) $(gp_h) $(errno__h) $(memory__h) $(string__h) \
  773. +   $(alloc_h) $(dict_h) $(dstack_h) $(iname_h) $(ivmspace_h) $(packed_h) $(store_h) \
  774. +   $(gscrypt1_h)
  775. + 
  776. + zpacked.$(OBJ): zpacked.c $(OP) \
  777. +   $(alloc_h) $(dict_h) $(ivmspace_h) $(iname_h) $(packed_h) $(save_h) $(store_h)
  778. + 
  779. + zprops.$(OBJ): zprops.c $(OP) \
  780. +   $(alloc_h) $(dict_h) $(iname_h) $(state_h) $(store_h) \
  781. +   $(gsprops_h) $(gsmatrix_h) $(gxdevice_h) $(gsstate_h)
  782. + 
  783. + zrelbit.$(OBJ): zrelbit.c $(OP) $(store_h) $(dict_h)
  784. + 
  785. + zstack.$(OBJ): zstack.c $(OP) $(store_h)
  786. + 
  787. + zstring.$(OBJ): zstring.c $(OP) \
  788. +   $(alloc_h) $(iscan_h) $(iutil_h) $(iname_h) $(store_h) $(stream_h)
  789. + 
  790. + ztype.$(OBJ): ztype.c $(OP) \
  791. +   $(dict_h) $(iscan_h) $(iutil_h) $(iname_h) $(stream_h) $(store_h)
  792. + 
  793. + zvmem.$(OBJ): zvmem.c $(OP) $(alloc_h) $(dict_h) $(dstack_h) $(estack_h) $(save_h) $(state_h) $(store_h) \
  794. +   $(gsmatrix_h) $(gsstate_h)
  795. + 
  796. + ###### Graphics operators
  797. + 
  798. + zchar.$(OBJ): zchar.c $(OP) $(gxarith_h) $(gxfixed_h) $(gxmatrix_h) \
  799. +   $(gschar_h) $(gxtype1_h) $(gxdevice_h) $(gxfont_h) $(gzpath_h) $(gzstate_h) \
  800. +   $(alloc_h) $(dict_h) $(font_h) $(estack_h) $(ilevel_h) $(iname_h) $(state_h) $(store_h)
  801. + 
  802. + zcolor.$(OBJ): zcolor.c $(OP) $(alloc_h) $(estack_h) $(gxfixed_h) $(gxmatrix_h) $(gzstate_h) $(gxdevice_h) $(gzcolor_h) $(iutil_h) $(state_h) $(store_h)
  803. + 
  804. + zdevice.$(OBJ): zdevice.c $(OP) $(alloc_h) $(state_h) $(gsmatrix_h) $(gsstate_h) $(gxdevice_h) $(store_h)
  805. + 
  806. + zfont.$(OBJ): zfont.c $(OP) \
  807. +   $(gsmatrix_h) $(gxdevice_h) $(gxfont_h) $(gxfdir_h) $(gxcache_h) \
  808. +   $(alloc_h) $(bfont_h) $(dict_h) $(iname_h) $(packed_h) $(save_h) $(state_h) $(store_h)
  809. + 
  810. + zfont1.$(OBJ): zfont1.c $(OP) $(gsmatrix_h) $(gxdevice_h) $(gschar_h) $(gxfixed_h) $(gxfont_h) \
  811. +   $(bfont_h) $(dict_h) $(dparam_h) $(iname_h) $(store_h)
  812. + 
  813. + zfont2.$(OBJ): zfont2.c $(OP) $(gsmatrix_h) $(gxdevice_h) $(gschar_h) $(gxfixed_h) $(gxfont_h) \
  814. +   $(alloc_h) $(bfont_h) $(dict_h) $(dparam_h) $(ilevel_h) $(iname_h) \
  815. +   $(packed_h) $(save_h) $(store_h)
  816. + 
  817. + zgstate.$(OBJ): zgstate.c $(OP) $(alloc_h) $(gsmatrix_h) $(gsstate_h) $(state_h) $(store_h)
  818. + 
  819. + zht.$(OBJ): zht.c $(OP) $(alloc_h) $(estack_h) $(gsmatrix_h) $(gsstate_h) $(state_h) $(store_h)
  820. + 
  821. + zmatrix.$(OBJ): zmatrix.c $(OP) $(gsmatrix_h) $(state_h) $(gscoord_h) $(store_h)
  822. + 
  823. + zpaint.$(OBJ): zpaint.c $(OP) \
  824. +   $(alloc_h) $(estack_h) $(ilevel_h) $(state_h) $(store_h) $(stream_h) \
  825. +   $(gsimage_h) $(gsmatrix_h) $(gspaint_h)
  826. + 
  827. + zpath.$(OBJ): zpath.c $(OP) $(gsmatrix_h) $(gspath_h) $(state_h) $(store_h)
  828. + 
  829. + zpath2.$(OBJ): zpath2.c $(OP) $(alloc_h) $(estack_h) $(gspath_h) $(state_h) $(store_h)
  830. + 
  831. + ###### Linking
  832. + 
  833. + INT=ialloc.$(OBJ) idebug.$(OBJ) idict.$(OBJ) idparam.$(OBJ) \
  834. +  iinit.$(OBJ) iname.$(OBJ) \
  835. +  interp.$(OBJ) isave.$(OBJ) iscan.$(OBJ) iutil.$(OBJ) \
  836. +  sfilter.$(OBJ) stream.$(OBJ) \
  837. +  zarith.$(OBJ) zarray.$(OBJ) zcontrol.$(OBJ) zdict.$(OBJ) \
  838. +  zfile.$(OBJ) zfiledev.$(OBJ) zfileio.$(OBJ) zfilter.$(OBJ) zgeneric.$(OBJ) \
  839. +  zmath.$(OBJ) zmisc.$(OBJ) zpacked.$(OBJ) zprops.$(OBJ) zrelbit.$(OBJ) \
  840. +  zstack.$(OBJ) zstring.$(OBJ) ztype.$(OBJ) zvmem.$(OBJ) \
  841. +  zchar.$(OBJ) zcolor.$(OBJ) zfont.$(OBJ) zfont1.$(OBJ) zfont2.$(OBJ) \
  842. +  zdevice.$(OBJ) zgstate.$(OBJ) zht.$(OBJ) zmatrix.$(OBJ) \
  843. +  zpaint.$(OBJ) zpath.$(OBJ) zpath2.$(OBJ)
  844. + 
  845. + # -------------------------- Optional features ---------------------------- #
  846. + 
  847. + ### Additions common to Display PostScript and Level 2
  848. + 
  849. + # We have to split up the module list because of limitations
  850. + # on the number of arguments to a DOS batch file.
  851. + dpsand2a_=gsdps1.$(OBJ) ibnum.$(OBJ) iscan2.$(OBJ)
  852. + dpsand2b_=zbseq.$(OBJ) zchar2.$(OBJ) zdps1.$(OBJ) zupath.$(OBJ) zvmem2.$(OBJ)
  853. + dpsand2_=$(dpsand2a_) $(dpsand2b_)
  854. + dpsand2.dev: $(dpsand2_) gssetmod gsaddmod
  855. +     $(SHP)gssetmod dpsand2 $(dpsand2a_)
  856. +     $(SHP)gsaddmod dpsand2 -obj $(dpsand2b_)
  857. +     $(SHP)gsaddmod dpsand2 -oper2 zbseq zchar2 zdps1 zupath zvmem2
  858. +     $(SHP)gsaddmod dpsand2 -ps gs_dps1
  859. + 
  860. + gsdps1.$(OBJ): gsdps1.c $(GXERR) $(gxfixed_h) $(gxmatrix_h) $(gzpath_h) $(gzstate_h)
  861. + 
  862. + ibnum.$(OBJ): ibnum.c $(GH) $(errors_h) $(stream_h) $(bnum_h) $(btoken_h)
  863. + 
  864. + iscan2.$(OBJ): iscan2.c $(GH) $(errors_h) \
  865. +   $(alloc_h) $(dict_h) $(dstack_h) $(iscan_h) $(iutil_h) $(ivmspace_h) \
  866. +   $(iname_h) $(ostack_h) $(save_h) $(store_h) $(stream_h) \
  867. +   $(bseq_h) $(btoken_h) $(bnum_h)
  868. + 
  869. + zbseq.$(OBJ): zbseq.c $(OP) $(save_h) $(store_h) $(stream_h) $(files_h) $(iname_h) $(bnum_h) $(btoken_h) $(bseq_h)
  870. + 
  871. + zchar2.$(OBJ): zchar2.c $(OP) $(gschar_h) $(gsmatrix_h) $(gxfixed_h) $(gxfont_h) \
  872. +   $(alloc_h) $(estack_h) $(font_h) $(iname_h) $(state_h) $(store_h) $(stream_h) $(bnum_h)
  873. + 
  874. + zdps1.$(OBJ): zdps1.c $(OP) $(gsmatrix_h) $(gspath_h) $(gsstate_h) \
  875. +   $(alloc_h) $(ivmspace_h) $(state_h) $(store_h) $(stream_h) $(bnum_h)
  876. + 
  877. + zupath.$(OBJ): zupath.c $(OP) \
  878. +   $(dict_h) $(dstack_h) $(iutil_h) $(state_h) $(store_h) $(stream_h) $(bnum_h) \
  879. +   $(gscoord_h) $(gsmatrix_h) $(gspaint_h) $(gspath_h) $(gsstate_h) \
  880. +   $(gxfixed_h) $(gxdevice_h) $(gxpath_h)
  881. + 
  882. + zvmem2.$(OBJ): zvmem2.c $(OP) \
  883. +   $(ivmspace_h) $(store_h)
  884. + 
  885. + ### Display PostScript
  886. + # We should include zcontext, but it isn't in good enough shape yet:
  887. + #    $(SHP)gsaddmod dps -oper2 zcontext
  888. + 
  889. + dps_=
  890. + dps.dev: dpsand2.dev $(dps_) gssetmod gsaddmod
  891. +     $(SHP)gssetmod dps $(dps_)
  892. +     $(SHP)gsaddmod dps -include dpsand2
  893. + 
  894. + zcontext.$(OBJ): zcontext.c $(OP) \
  895. +   $(alloc_h) $(dict_h) $(dstack_h) $(estack_h) $(state_h) $(store_h)
  896. + 
  897. + ### Composite font support
  898. + 
  899. + gschar0.$(OBJ): gschar0.c $(GXERR) \
  900. +   $(gxfixed_h) $(gxmatrix_h) $(gzdevice_h) $(gxdevmem_h) $(gxfont_h) $(gxchar_h) $(gzstate_h)
  901. + 
  902. + zfont0.$(OBJ): zfont0.c $(OP) $(gsmatrix_h) $(gxdevice_h) $(gxfont_h) \
  903. +   $(alloc_h) $(bfont_h) $(dict_h) $(iname_h) $(state_h) $(store_h)
  904. + 
  905. + compfont_=zchar2.$(OBJ) zfont0.$(OBJ) gschar0.$(OBJ)
  906. + compfont.dev: $(compfont_) gssetmod gsaddmod
  907. +     $(SHP)gssetmod compfont $(compfont_)
  908. +     $(SHP)gsaddmod compfont -oper zfont0 zchar2
  909. +     $(SHP)gsaddmod compfont -ps gs_type0
  910. + 
  911. + ### Level 2 additions
  912. + 
  913. + # We have to split up the module list because of limitations
  914. + # on the number of arguments to a DOS batch file.
  915. + level2a_=gscie.$(OBJ) gscolor2.$(OBJ) zcie.$(OBJ) zcolor2.$(OBJ)
  916. + level2b_=zcspace2.$(OBJ) zht2.$(OBJ) zimage2.$(OBJ) zmisc2.$(OBJ)
  917. + level2_=$(level2a_) $(level2b_)
  918. + level2.dev: compfont.dev dpsand2.dev filter.dev $(level2_) gssetmod gsaddmod
  919. +     $(SHP)gssetmod level2 $(level2a_)
  920. +     $(SHP)gsaddmod level2 -obj $(level2b_)
  921. +     $(SHP)gsaddmod level2 -include compfont dpsand2 filter
  922. +     $(SHP)gsaddmod level2 -oper zmisc2_level
  923. +     $(SHP)gsaddmod level2 -oper2 zcie zcolor2 zcspace2
  924. +     $(SHP)gsaddmod level2 -oper2 zht2 zimage2 zmisc2
  925. +     $(SHP)gsaddmod level2 -ps gs_lev2
  926. + 
  927. + gscie.$(OBJ): gscie.c $(GXERR) \
  928. +   $(gscspace_h) $(gscie_h) $(gscolor2_h) \
  929. +   $(gxarith_h) $(gxcolor_h) $(gxdevice_h) $(gxrefct_h) \
  930. +   $(gzcolor_h) $(gzstate_h)
  931. + 
  932. + gscolor2.$(OBJ): gscolor2.c $(GXERR) \
  933. +   $(gscie_h) $(gscolor2_h) $(gscspace_h) \
  934. +   $(gxcolor_h) $(gxdevice_h) $(gxfixed_h) $(gxmatrix_h) $(gxrefct_h) \
  935. +   $(gzcolor_h) $(gzstate_h)
  936. + 
  937. + zcie.$(OBJ): zcie.c $(OP) \
  938. +   $(gscspace_h) $(gscolor2_h) $(gscie_h) $(gxcolor_h) $(gxrefct_h) \
  939. +   $(alloc_h) $(dict_h) $(dparam_h) $(estack_h) $(save_h) $(state_h) $(store_h)
  940. + 
  941. + zcolor2.$(OBJ): zcolor2.c $(OP) \
  942. +   $(gscolor_h) $(gxcolor_h) $(gscolor2_h) $(gscspace_h) $(gsmatrix_h) \
  943. +   $(dict_h) $(dparam_h) $(iname_h) $(state_h) $(store_h)
  944. + 
  945. + zcspace2.$(OBJ): zcspace2.c $(OP) \
  946. +   $(gscolor_h) $(gxcolor_h) $(gscolor2_h) $(gscspace_h) $(gsmatrix_h) \
  947. +   $(dict_h) $(dparam_h) $(estack_h) $(iname_h) $(state_h) $(store_h)
  948. + 
  949. + zht2.$(OBJ): zht2.c $(OP) \
  950. +   $(dict_h) $(dparam_h) $(iname_h) $(state_h) $(store_h)
  951. + 
  952. + zimage2.$(OBJ): zimage2.c $(OP) \
  953. +   $(gscolor_h) $(gscolor2_h) $(gscspace_h) $(gsmatrix_h) $(gxcolor_h) \
  954. +   $(dict_h) $(dparam_h) $(ilevel_h) $(state_h)
  955. + 
  956. + zmisc2.$(OBJ): zmisc2.c $(OP) \
  957. +   $(gsfont_h) \
  958. +   $(dict_h) $(dparam_h) $(dstack_h) $(estack_h) $(ilevel_h) $(iname_h) $(store_h)
  959. + 
  960. + ### Filters other than the ones in sfilter.c
  961. + 
  962. + sbits.$(OBJ): sbits.c $(AK) $(stdio__h) $(sbits_h) $(stream_h)
  963. + 
  964. + scftab.$(OBJ): scftab.c $(AK) $(std_h) $(scf_h)
  965. + 
  966. + scfdtab.$(OBJ): scfdtab.c $(AK) $(std_h) $(scf_h)
  967. + 
  968. + scfd.$(OBJ): scfd.c $(AK) $(stdio__h) $(gdebug_h)\
  969. +   $(sbits_h) $(scf_h) $(stream_h)
  970. + 
  971. + scfe.$(OBJ): scfe.c $(AK) $(stdio__h) $(gdebug_h)\
  972. +   $(sbits_h) $(scf_h) $(stream_h)
  973. + 
  974. + sdctd.$(OBJ): sdctd.c $(AK) $(stdio__h) $(gdebug_h) $(stream_h)
  975. + 
  976. + sdcte.$(OBJ): sdcte.c $(AK) $(stdio__h) $(gdebug_h) $(stream_h)
  977. + 
  978. + sfilter2.$(OBJ): sfilter2.c $(AK) $(stdio__h) $(scanchar_h) $(stream_h)
  979. + 
  980. + slzwd.$(OBJ): slzwd.c $(AK) $(stdio__h) $(gdebug_h) $(stream_h)
  981. + 
  982. + slzwe.$(OBJ): slzwe.c $(AK) $(stdio__h) $(gdebug_h) $(stream_h)
  983. + 
  984. + zfilter2.$(OBJ): zfilter2.c $(OP) $(alloc_h) $(dict_h) $(dparam_h) $(sdct_h) $(stream_h)
  985. + 
  986. + # Because of size limits on the DOS command line,
  987. + # we have to break this up into two parts.
  988. + filter_1=zfilter2.$(OBJ) sfilter2.$(OBJ) sbits.$(OBJ)
  989. + filter_2=scfdtab.$(OBJ) scftab.$(OBJ) scfd.$(OBJ) scfe.$(OBJ) 
  990. + filter_3=sdctd.$(OBJ) sdcte.$(OBJ) slzwd.$(OBJ) slzwe.$(OBJ)
  991. + filter.dev: $(filter_1) $(filter_2) $(filter_3) gssetmod gsaddmod
  992. +     $(SHP)gssetmod filter $(filter_1)
  993. +     $(SHP)gsaddmod filter -obj $(filter_2)
  994. +     $(SHP)gsaddmod filter -obj $(filter_3)
  995. +     $(SHP)gsaddmod filter -oper zfilter2
  996. + 
  997. + ### Precompiled fonts.  See fonts.doc for more information.
  998. + 
  999. + CCFONT=$(OP) $(ccfont_h)
  1000. + 
  1001. + # List the fonts we are going to compile.
  1002. + # Because of intrinsic limitations in `make', we have to list
  1003. + # the object file names and the font names separately.
  1004. + ccfonts1_=uglyr.$(OBJ)
  1005. + ccfonts1=uglyr
  1006. + 
  1007. + ccfonts.dev: $(MAKEFILE) gs.mak iccfont.$(OBJ) gssetmod gsaddmod \
  1008. +   $(ccfonts1_) $(ccfonts2_) $(ccfonts3_) $(ccfonts4_) $(ccfonts5_)
  1009. +     $(SHP)gssetmod ccfonts iccfont.$(OBJ)
  1010. +     $(SHP)gsaddmod ccfonts -obj $(ccfonts1_)
  1011. +     $(SHP)gsaddmod ccfonts -obj $(ccfonts2_)
  1012. +     $(SHP)gsaddmod ccfonts -obj $(ccfonts3_)
  1013. +     $(SHP)gsaddmod ccfonts -obj $(ccfonts4_)
  1014. +     $(SHP)gsaddmod ccfonts -obj $(ccfonts5_)
  1015. +     $(SHP)gsaddmod ccfonts -oper ccfonts
  1016. + 
  1017. + gconfigf.h: $(MAKEFILE) gs.mak genconf$(XE) gssetmod gsaddmod
  1018. +     $(SHP)gssetmod ccfonts_
  1019. +     $(SHP)gsaddmod ccfonts_ -font $(ccfonts1)
  1020. +     $(SHP)gsaddmod ccfonts_ -font $(ccfonts2)
  1021. +     $(SHP)gsaddmod ccfonts_ -font $(ccfonts3)
  1022. +     $(SHP)gsaddmod ccfonts_ -font $(ccfonts4)
  1023. +     $(SHP)gsaddmod ccfonts_ -font $(ccfonts5)
  1024. +     $(EXP)genconf ccfonts_.dev -f gconfigf.h
  1025. + 
  1026. + uglyr.$(OBJ): uglyr.c $(CCFONT)
  1027. +     $(CCCF) uglyr.c
  1028. + 
  1029. + ncrr.$(OBJ): ncrr.c $(CCFONT)
  1030. +     $(CCCF) ncrr.c
  1031. + 
  1032. + pagk.$(OBJ): pagk.c $(CCFONT)
  1033. +     $(CCCF) pagk.c
  1034. + 
  1035. + psyr.$(OBJ): psyr.c $(CCFONT)
  1036. +     $(CCCF) psyr.c
  1037. + 
  1038. + ptmr.$(OBJ): ptmr.c $(CCFONT)
  1039. +     $(CCCF) ptmr.c
  1040. + 
  1041. + pzdr.$(OBJ): pzdr.c $(CCFONT)
  1042. +     $(CCCF) pzdr.c
  1043. + 
  1044. + # ----------------------------- Main program ------------------------------ #
  1045. + 
  1046. + # Interpreter main program
  1047. + 
  1048. + gs.$(OBJ): gs.c $(GH) $(ctype__h) \
  1049. +   $(gxdevice_h) $(gxdevmem_h) \
  1050. +   $(alloc_h) $(errors_h) $(estack_h) $(files_h) $(iscan_h) $(main_h) $(ostack_h) $(store_h) $(stream_h)
  1051. + 
  1052. + gsmain.$(OBJ): gsmain.c $(GH) \
  1053. +   $(gp_h) $(gsmatrix_h) $(gxdevice_h) $(gserrors_h) \
  1054. +   $(estack_h) $(files_h) $(iscan_h) $(main_h) $(ostack_h) $(store_h)
  1055. + 
  1056. + interp.$(OBJ): interp.c $(GH) \
  1057. +   $(errors_h) $(estack_h) $(iname_h) $(dict_h) $(dstack_h) $(iscan_h) $(oper_h) $(ostack_h) $(packed_h) $(save_h) $(store_h) $(stream_h)
  1058. +     $(CCINT) interp.c
  1059. + #    Copyright (C) 1989, 1992, 1993 Aladdin Enterprises.  All rights reserved.
  1060. + #
  1061. + # This file is part of Ghostscript.
  1062. + #
  1063. + # Ghostscript is distributed in the hope that it will be useful, but
  1064. + # WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  1065. + # to anyone for the consequences of using it or for whether it serves any
  1066. + # particular purpose or works at all, unless he says so in writing.  Refer
  1067. + # to the Ghostscript General Public License for full details.
  1068. + #
  1069. + # Everyone is granted permission to copy, modify and redistribute
  1070. + # Ghostscript, but only under the conditions described in the Ghostscript
  1071. + # General Public License.  A copy of this license is supposed to have been
  1072. + # given to you along with Ghostscript so you can know your rights and
  1073. + # responsibilities.  It should be in a file named COPYING.  Among other
  1074. + # things, the copyright notice and this notice must be preserved on all
  1075. + # copies.
  1076. + 
  1077. + # makefile for Ghostscript device drivers.
  1078. + 
  1079. + # -------------------------------- Catalog ------------------------------- #
  1080. + 
  1081. + # It is possible to build Ghostscript with an arbitrary collection of
  1082. + # device drivers, although some drivers are supported only on a subset
  1083. + # of the target platforms.  The currently available drivers are:
  1084. + 
  1085. + # Displays:
  1086. + #   MS-DOS EGA and VGA:
  1087. + #    ega    EGA (640x350, 16-color)
  1088. + #    vga    VGA (640x480, 16-color)
  1089. + #   MS-DOS SuperVGA:
  1090. + # +    atiw    ATI Wonder SuperVGA, 256-color modes
  1091. + # +     atiw16  ATI Wonder SuperVGA in 800x600, 16-color mode
  1092. + #    s3vga    SuperVGA with S3 86C911 chip (e.g., Diamond Stealth board)
  1093. + #    tseng    SuperVGA using Tseng Labs ET3000/4000 chips, 256-color modes
  1094. + #    tseng16  Tseng Labs SuperVGA in 800x600, 16-color mode (256K memory)
  1095. + # +    tvga    Trident SuperVGA, 256-color modes
  1096. + # +    tvga16    Trident SuperVGA in 800x600, 16-color mode (256K memory)
  1097. + #   ****** NOTE: The vesa device does not work with the Watcom (32-bit MS-DOS)
  1098. + #   ****** compiler or executable.
  1099. + #    vesa    SuperVGA with VESA standard API driver
  1100. + #   MS-DOS other:
  1101. + #    bgi    Borland Graphics Interface (CGA)  [MS-DOS only]
  1102. + # *    herc    Hercules Graphics display   [MS-DOS only]
  1103. + #    mswin    Microsoft Windows 3.0, 3.1  [MS Windows only]
  1104. + #    mswinprn  Microsoft Windows 3.0, 3.1 printer  [MS Windows only]
  1105. + # *    pe    Private Eye display
  1106. + #   Unix and VMS:
  1107. + #   ****** NOTE: For direct frame buffer addressing under SCO Unix or Xenix,
  1108. + #   ****** edit the definition of EGAVGA below.
  1109. + # *    att3b1    AT&T 3b1/Unixpc monochrome display   [3b1 only]
  1110. + # *    sonyfb    Sony Microsystems monochrome display   [Sony only]
  1111. + # *    sunview  SunView window system   [SunOS only]
  1112. + #    x11    X Windows version 11, release >=4   [Unix and VMS only]
  1113. + # Printers:
  1114. + # *    appledmp  Apple Dot Matrix Printer (should also work with Imagewriter)
  1115. + #    bj10e    Canon BubbleJet BJ10e
  1116. + # *    bj200    Canon BubbleJet BJ200
  1117. + # *    cdeskjet  H-P DeskJet 500C with 1 bit/pixel color
  1118. + # *    cdjcolor  H-P DeskJet 500C with 24 bit/pixel color and
  1119. + #        high-quality color (Floyd-Steinberg) dithering
  1120. + # *    cdjmono  H-P DeskJet 500C printing black only
  1121. + # *    cdj500    H-P DeskJet 500C (same as cdjcolor)
  1122. + # *    cdj550    H-P DeskJet 550C
  1123. + # *    declj250  alternate DEC LJ250 driver
  1124. + # +    deskjet  H-P DeskJet and DeskJet Plus
  1125. + # *    dfaxhigh  DigiBoard, Inc.'s DigiFAX software format (high resolution)
  1126. + # *    dfaxlow  DigiFAX low (normal) resolution
  1127. + #    djet500  H-P DeskJet 500
  1128. + # *    djet500c  H-P DeskJet 500C
  1129. + #    epson    Epson-compatible dot matrix printers (9- or 24-pin)
  1130. + # +    eps9high  Epson-compatible 9-pin, interleaved lines
  1131. + #        (triple resolution)
  1132. + # *    epsonc    Epson LQ-2550 and Fujitsu 3400/2400/1200 color printers
  1133. + # *    escp2    Epson ESC/P 2 language printers, including Stylus 800
  1134. + # +     ibmpro  IBM 9-pin Proprinter
  1135. + # *    jetp3852  IBM Jetprinter ink-jet color printer (Model #3852)
  1136. + # +    laserjet  H-P LaserJet
  1137. + # *    la50    DEC LA50 printer
  1138. + # *    la75    DEC LA75 printer
  1139. + # *    lbp8    Canon LBP-8II laser printer
  1140. + # *    ln03    DEC LN03 printer
  1141. + # *    lj250    DEC LJ250 Companion color printer
  1142. + # +    ljet2p    H-P LaserJet IId/IIp/III* with TIFF compression
  1143. + # +    ljet3    H-P LaserJet III* with Delta Row compression
  1144. + # +    ljet4    H-P LaserJet 4 (defaults to 600 dpi)
  1145. + # +    ljetplus  H-P LaserJet Plus
  1146. + # *    m8510    C.Itoh M8510 printer
  1147. + # *    necp6    NEC P6/P6+/P60 printers at 360 x 360 DPI resolution
  1148. + # *    nwp533  Sony Microsystems NWP533 laser printer   [Sony only]
  1149. + # *    oki182    Okidata MicroLine 182
  1150. + #    paintjet  H-P PaintJet color printer
  1151. + # *    pj    alternate PaintJet XL driver 
  1152. + # *    pjxl    H-P PaintJet XL color printer
  1153. + # *    pjxl300  H-P PaintJet XL300 color printer
  1154. + # *    r4081    Ricoh 4081 laser printer
  1155. + # *    sparc    SPARCprinter
  1156. + # *    t4693d2  Tektronix 4693d color printer, 2 bits per R/G/B component
  1157. + # *    t4693d4  Tektronix 4693d color printer, 4 bits per R/G/B component
  1158. + # *    t4693d8  Tektronix 4693d color printer, 8 bits per R/G/B component
  1159. + # *    tek4696  Tektronix 4695/4696 inkjet plotter
  1160. + # *    trufax    TruFax facsimile driver  [Unix only]
  1161. + # File formats and others:
  1162. + #    bit    A plain "bit bucket" device
  1163. + #    bmpmono    Monochrome MS Windows .BMP file format
  1164. + #    bmp16    4-bit (EGA/VGA) .BMP file format
  1165. + #    bmp256    8-bit (256-color) .BMP file format
  1166. + #    bmp16m    24-bit .BMP file format
  1167. + #    gifmono    Monochrome GIF file format
  1168. + #    gif8    8-bit color GIF file format
  1169. + #    pcxmono    Monochrome PCX file format
  1170. + #    pcxgray    8-bit gray scale PCX file format
  1171. + #    pcx16    Older color PCX file format (EGA/VGA, 16-color)
  1172. + #    pcx256    Newer color PCX file format (256-color)
  1173. + #    pbm    Portable Bitmap (plain format)
  1174. + #    pbmraw    Portable Bitmap (raw format)
  1175. + #    pgm    Portable Graymap (plain format)
  1176. + #    pgmraw    Portable Graymap (raw format)
  1177. + #    ppm    Portable Pixmap (plain format)
  1178. + #    ppmraw    Portable Pixmap (raw format)
  1179. + # *    tiffg3    TIFF/F (G3 fax)
  1180. + 
  1181. + # User-contributed drivers marked with * require hardware or software
  1182. + # that is not available to Aladdin Enterprises.  Please contact the
  1183. + # original contributors, not Aladdin Enterprises, if you have questions.
  1184. + # Contact information appears in the driver entry below.
  1185. + #
  1186. + # Drivers marked with a + are maintained by Aladdin Enterprises with
  1187. + # the assistance of users, since Aladdin Enterprises doesn't have access to
  1188. + # the hardware for these either.
  1189. + 
  1190. + # If you add drivers, it would be nice if you kept each list
  1191. + # in alphabetical order.
  1192. + 
  1193. + # Each platform-specific makefile contains a line of the form
  1194. + #    DEVICE_DEVS=<dev1>.dev ... <devn>.dev
  1195. + # where dev1 ... devn are the devices to be included in the build.
  1196. + # You may edit this line to select any desired set of devices.
  1197. + # dev1 will be used as the default device (unless overridden from
  1198. + # the command line with -sDEVICE=xxx, of course.)  If you can't fit all the
  1199. + # devices on a single line, you may add lines defining
  1200. + #    DEVICE_DEVS2=<dev21>.dev ... <dev2n>.dev
  1201. + #    DEVICE_DEVS3=<dev31>.dev ... <dev3n>.dev
  1202. + # etc. up to DEVICE_DEVS9.
  1203. + # Don't use continuation lines, since this may break the MS-DOS command
  1204. + # processor.
  1205. + 
  1206. + # ---------------------------- End of catalog ---------------------------- #
  1207. + 
  1208. + # If you want to add a new device driver, the examples below should be
  1209. + # enough of a guide to the correct form for the makefile rules.
  1210. + 
  1211. + # All device drivers depend on the following:
  1212. + GDEV=$(AK) echogs$(XE) $(gserrors_h) $(gx_h) $(gxdevice_h)
  1213. + 
  1214. + # Define the header files for device drivers.  Every header file used by
  1215. + # more than one device driver must be listed here.
  1216. + gdevpccm_h=gdevpccm.h
  1217. + gdevpcfb_h=gdevpcfb.h $(dos__h)
  1218. + gdevpcl_h=gdevpcl.h
  1219. + gdevsvga_h=gdevsvga.h
  1220. + gdevx_h=gdevx.h
  1221. + 
  1222. + ###### ------------------- MS-DOS display devices ------------------- ######
  1223. + 
  1224. + # There are really only three drivers: an EGA/VGA driver (4 bit-planes,
  1225. + # plane-addressed), a SuperVGA driver (8 bit-planes, byte addressed),
  1226. + # and a special driver for the S3 chip.
  1227. + # To make A4 paper the default, change the compilation line from
  1228. + #    $(CCD) ...
  1229. + # to
  1230. + #    $(CCD) -DA4
  1231. + 
  1232. + ### ----------------------- EGA and VGA displays ----------------------- ###
  1233. + 
  1234. + gdevegaa.$(OBJ): gdevegaa.asm
  1235. + 
  1236. + ETEST=ega.$(OBJ) $(ega_) gdevpcfb.$(OBJ) gdevegaa.$(OBJ)
  1237. + ega.exe: $(ETEST) libc$(MM).tr
  1238. +     $(COMPDIR)\tlink $(LCT) $(LO) $(LIBDIR)\c0$(MM) @ega.tr @libc$(MM).tr
  1239. + 
  1240. + ega.$(OBJ): ega.c $(GDEV)
  1241. +     $(CCC) -v ega.c
  1242. + 
  1243. + # The shared MS-DOS makefile defines PCFBASM as either gdevegaa.$(OBJ)
  1244. + # or an empty string.
  1245. + 
  1246. + # NOTE: for direct frame buffer addressing under SCO Unix or Xenix,
  1247. + # change gdevevga to gdevsco in the following line.
  1248. + EGAVGA=gdevevga.$(OBJ) gdevpcfb.$(OBJ) $(PCFBASM)
  1249. + 
  1250. + gdevevga.$(OBJ): gdevevga.c $(GDEV) $(gdevpcfb_h)
  1251. +     $(CCD) gdevevga.c
  1252. + 
  1253. + gdevsco.$(OBJ): gdevsco.c $(GDEV) $(gdevpcfb_h)
  1254. +     $(CCD) gdevsco.c
  1255. + 
  1256. + # Common code for MS-DOS and SCO.
  1257. + gdevpcfb.$(OBJ): gdevpcfb.c $(GDEV) $(MAKEFILE) $(gdevpcfb_h)
  1258. +     $(CCD) -DUSE_ASM=0$(USE_ASM) gdevpcfb.c
  1259. + 
  1260. + # The EGA/VGA family includes: EGA, VGA, and
  1261. + # the ATI Wonder, Tseng ET3000/4000, and Trident SuperVGA in 16-color mode.
  1262. + 
  1263. + ega.dev: $(EGAVGA) gssetdev
  1264. +     $(SHP)gssetdev ega $(EGAVGA)
  1265. + 
  1266. + vga.dev: $(EGAVGA) gssetdev
  1267. +     $(SHP)gssetdev vga $(EGAVGA)
  1268. + 
  1269. + atiw16.dev: $(EGAVGA) gssetdev
  1270. +     $(SHP)gssetdev atiw16 $(EGAVGA)
  1271. + 
  1272. + tseng16.dev: $(EGAVGA) gssetdev
  1273. +     $(SHP)gssetdev tseng16 $(EGAVGA)
  1274. + 
  1275. + tvga16.dev: $(EGAVGA) gssetdev
  1276. +     $(SHP)gssetdev tvga16 $(EGAVGA)
  1277. + 
  1278. + ### ------------------------- SuperVGA displays ------------------------ ###
  1279. + 
  1280. + SVGA=gdevsvga.$(OBJ) $(PCFBASM)
  1281. + 
  1282. + gdevsvga.$(OBJ): gdevsvga.c $(GDEV) $(MAKEFILE) \
  1283. +   $(gdevpcfb_h) $(gdevsvga_h)
  1284. +     $(CCD) -DUSE_ASM=0$(USE_ASM) gdevsvga.c
  1285. + 
  1286. + # The SuperVGA family includes: ATI Wonder, S3, Trident, Tseng ET3000/4000,
  1287. + # and VESA.
  1288. + 
  1289. + atiw.dev: $(SVGA) gssetdev
  1290. +     $(SHP)gssetdev atiw $(SVGA)
  1291. + 
  1292. + tseng.dev: $(SVGA) gssetdev
  1293. +     $(SHP)gssetdev tseng $(SVGA)
  1294. + 
  1295. + tvga.dev: $(SVGA) gssetdev
  1296. +     $(SHP)gssetdev tvga $(SVGA)
  1297. + 
  1298. + vesa.dev: $(SVGA) gssetdev
  1299. +     $(SHP)gssetdev vesa $(SVGA)
  1300. + 
  1301. + # The S3 driver doesn't share much code with the others.
  1302. + 
  1303. + s3vga_=$(SVGA) gdevs3ga.$(OBJ)
  1304. + s3vga.dev: $(s3vga_) gssetdev
  1305. +     $(SHP)gssetdev s3vga $(s3vga_)
  1306. + 
  1307. + gdevs3ga.$(OBJ): gdevs3ga.c $(GDEV) $(MAKEFILE) $(gdevpcfb_h) $(gdevsvga_h)
  1308. +     $(CCD) gdevs3ga.c
  1309. + 
  1310. + ### ------------ The BGI (Borland Graphics Interface) device ----------- ###
  1311. + 
  1312. + cgaf.$(OBJ): $(BGIDIR)\cga.bgi
  1313. +     $(BGIDIR)\bgiobj /F $(BGIDIR)\cga
  1314. + 
  1315. + egavgaf.$(OBJ): $(BGIDIR)\egavga.bgi
  1316. +     $(BGIDIR)\bgiobj /F $(BGIDIR)\egavga
  1317. + 
  1318. + # Include egavgaf.$(OBJ) for debugging only.
  1319. + bgi_=gdevbgi.$(OBJ) cgaf.$(OBJ)
  1320. + bgi.dev: $(bgi_) gssetdev gsaddmod
  1321. +     $(SHP)gssetdev bgi $(bgi_)
  1322. +     $(SHP)gsaddmod bgi -lib $(LIBDIR)\graphics
  1323. + 
  1324. + gdevbgi.$(OBJ): gdevbgi.c $(GDEV) $(MAKEFILE) $(gxxfont_h)
  1325. +     $(CCC) -DBGI_LIB=$(QQ)$(BGIDIRSTR)$(QQ) gdevbgi.c
  1326. + 
  1327. + ### ------------------- The Hercules Graphics display ------------------- ###
  1328. + 
  1329. + herc_=gdevherc.$(OBJ)
  1330. + herc.dev: $(herc_) gssetdev
  1331. +     $(SHP)gssetdev herc $(herc_)
  1332. + 
  1333. + gdevherc.$(OBJ): gdevherc.c $(GDEV)
  1334. +     $(CCC) gdevherc.c
  1335. + 
  1336. + ###### ------------------- The Private Eye display ------------------- ######
  1337. + ### Note: this driver was contributed by a user:                          ###
  1338. + ###   please contact narf@media-lab.media.mit.edu if you have questions.  ###
  1339. + 
  1340. + pe_=gdevpe.$(OBJ)
  1341. + pe.dev: $(pe_) gssetdev
  1342. +     $(SHP)gssetdev pe $(pe_)
  1343. + 
  1344. + gdevpe.$(OBJ): gdevpe.c $(GDEV)
  1345. + 
  1346. + ###### ----------------- The MS-Windows 3.n display ------------------ ######
  1347. + 
  1348. + gdevmswn_h=gdevmswn.h $(GDEV) gp_mswin.h
  1349. + 
  1350. + # Choose one of gdevwddb or gdevwdib here.
  1351. + mswin_=gdevmswn.$(OBJ) gdevmsxf.$(OBJ) gdevwdib.$(OBJ) \
  1352. +   gdevemap.$(OBJ) gdevpccm.$(OBJ)
  1353. + mswin.dev: $(mswin_) gssetdev
  1354. +     $(SHP)gssetdev mswin $(mswin_)
  1355. + 
  1356. + gdevmswn.$(OBJ): gdevmswn.c $(gdevmswn_h) $(gp_h) $(gpcheck_h) \
  1357. +   $(gsprops_h) $(gdevpccm_h)
  1358. + 
  1359. + gdevmsxf.$(OBJ): gdevmsxf.c $(ctype__h) $(math__h) $(memory__h) \
  1360. +   $(gdevmswn_h) $(gsutil_h) $(gxxfont_h)
  1361. + 
  1362. + # An implementation using a device-dependent bitmap.
  1363. + gdevwddb.$(OBJ): gdevwddb.c $(gdevmswn_h)
  1364. + 
  1365. + # An implementation using a DIB filled by an image device.
  1366. + gdevwdib.$(OBJ): gdevwdib.c $(dos__h) $(gdevmswn_h)
  1367. + 
  1368. + ###### ----------------- The MS-Windows 3.n printer ------------------ ######
  1369. + 
  1370. + mswinprn_=gdevwprn.$(OBJ) gdevmsxf.$(OBJ)
  1371. + mswinprn.dev: $(mswinprn_) gssetdev
  1372. +     $(SHP)gssetdev mswinprn $(mswinprn_)
  1373. + 
  1374. + gdevwprn.$(OBJ): gdevwprn.c $(gdevmswn_h) $(gp_h) $(gpcheck_h) \
  1375. +   $(gsprops_h) $(gdevpccm_h)
  1376. + 
  1377. + ### ---------------- Amiga display/printer/file devices ---------------- ###
  1378. + ### Note: this driver was contributed by a user: please contact          ###
  1379. + ###       Olaf Barthel (olsen@sourcery.han.de) if you have questions.    ###
  1380. + ###       He would also like to hear from anyone using the driver.       ###
  1381. + ### Please consult the source code for additional documentation.         ###
  1382. + 
  1383. + amiga_=gdevamiga.$(OBJ)
  1384. + 
  1385. + amiga.dev: $(amiga_) gssetdev
  1386. +     $(SHP)gssetdev amiga $(amiga_)
  1387. + 
  1388. + amiga_low.dev: $(amiga_) gssetdev
  1389. +     $(SHP)gssetdev amiga_low $(amiga_)
  1390. + 
  1391. + amiga_high.dev: $(amiga_) gssetdev
  1392. +     $(SHP)gssetdev amiga_high $(amiga_)
  1393. + 
  1394. + amiga_super.dev: $(amiga_) gssetdev
  1395. +     $(SHP)gssetdev amiga_super $(amiga_)
  1396. + 
  1397. + amiga_a2024.dev: $(amiga_) gssetdev
  1398. +     $(SHP)gssetdev amiga_a2024 $(amiga_)
  1399. + 
  1400. + amiga_picassoii.dev: $(amiga_) gssetdev
  1401. +     $(SHP)gssetdev amiga_picassoii $(amiga_)
  1402. + 
  1403. + amiga_custom.dev: $(amiga_) gssetdev
  1404. +     $(SHP)gssetdev amiga_custom $(amiga_)
  1405. + 
  1406. + amiga_printer.dev: $(amiga_) gssetdev
  1407. +     $(SHP)gssetdev amiga_printer $(amiga_)
  1408. + 
  1409. + amiga_ilbm.dev: $(amiga_) gssetdev
  1410. +     $(SHP)gssetdev amiga_ilbm $(amiga_)
  1411. + 
  1412. + gdevamiga.$(OBJ): gdevamiga.c $(GDEV) $(arch_h)
  1413. + 
  1414. + ###### ----------- The AT&T 3b1 Unixpc monochrome display ------------ ######
  1415. + ### Note: this driver was contributed by a user: please contact           ###
  1416. + ###       Andy Fyfe (andy@cs.caltech.edu) if you have questions.          ###
  1417. + 
  1418. + att3b1_=gdev3b1.$(OBJ)
  1419. + att3b1.dev: $(att3b1_) gssetdev
  1420. +     $(SHP)gssetdev att3b1 $(att3b1_)
  1421. + 
  1422. + gdev3b1.$(OBJ): gdev3b1.c
  1423. + 
  1424. + ###### --------------- Memory-buffered printer devices --------------- ######
  1425. + 
  1426. + # The dependency list for printers includes devs.mak because
  1427. + # you can specify -DA4 to make A4 paper the default.
  1428. + # See below under, e.g., gdevdjet.c.
  1429. + PDEVH=$(GDEV) $(gdevprn_h) devs.mak
  1430. + 
  1431. + gdevprn.$(OBJ): gdevprn.c $(PDEVH) $(gp_h) $(gsprops_h)
  1432. + 
  1433. + ### ------------------- The Apple DMP printer device ------------------- ###
  1434. + 
  1435. + appledmp_=gdevadmp.$(OBJ) gdevprn.$(OBJ)
  1436. + 
  1437. + appledmp.dev: $(appledmp_) gssetdev
  1438. +     $(SHP)gssetdev appledmp $(appledmp_)
  1439. + 
  1440. + ### ------------ The Canon BubbleJet BJ10e and BJ200 devices ------------ ###
  1441. + 
  1442. + bj10e_=gdevbj10.$(OBJ) gdevprn.$(OBJ)
  1443. + 
  1444. + bj10e.dev: $(bj10e_) gssetdev
  1445. +     $(SHP)gssetdev bj10e $(bj10e_)
  1446. + 
  1447. + bj200.dev: $(bj10e_) gssetdev
  1448. +     $(SHP)gssetdev bj200 $(bj10e_)
  1449. + 
  1450. + gdevbj10.$(OBJ): gdevbj10.c $(PDEVH)
  1451. + 
  1452. + ### -------------------------- The DigiFAX device ----------------------- ###
  1453. + ###    This driver outputs images in a format suitable for use with       ###
  1454. + ###    DigiBoard, Inc.'s DigiFAX software.  Use -sDEVICE=dfaxhigh for     ###
  1455. + ###    high resolution output, -sDEVICE=dfaxlow for normal output.        ###
  1456. + ### Note: this driver was contributed by a user: please contact           ###
  1457. + ###       Rick Richardson (rick@digibd.com) if you have questions.        ###
  1458. + 
  1459. + digifax_=gdevdfax.$(OBJ) gdevprn.$(OBJ)
  1460. + dfaxhigh.dev: $(digifax_) gssetdev
  1461. +     $(SHP)gssetdev dfaxhigh $(digifax_)
  1462. + 
  1463. + dfaxlow.dev: $(digifax_) gssetdev
  1464. +     $(SHP)gssetdev dfaxlow $(digifax_)
  1465. + 
  1466. + gdevdfax.$(OBJ): gdevdfax.c $(GDEV) $(gdevprn_h) gdevdfg3.h
  1467. + 
  1468. + ### ----------- The H-P DeskJet and LaserJet printer devices ----------- ###
  1469. + 
  1470. + ### These are essentially the same device.
  1471. + ### You can make A4 paper the default: see below.
  1472. + ### NOTE: printing at full resolution (300 DPI) requires a printer
  1473. + ###   with at least 1.5 Mb of memory.  150 DPI only requires .5 Mb.
  1474. + 
  1475. + HPPCL=gdevprn.$(OBJ) gdevpcl.$(OBJ)
  1476. + HPMONO=gdevdjet.$(OBJ) $(HPPCL)
  1477. + 
  1478. + gdevpcl.$(OBJ): gdevpcl.c $(PDEVH) $(gdevpcl_h)
  1479. + 
  1480. + # To make A4 paper the default, change the second line below this to
  1481. + #    $(CCC) -DA4 gdevdjet.c
  1482. + gdevdjet.$(OBJ): gdevdjet.c $(PDEVH) $(gdevpcl_h)
  1483. +     $(CCC) gdevdjet.c
  1484. + 
  1485. + deskjet.dev: $(HPMONO) gssetdev
  1486. +     $(SHP)gssetdev deskjet $(HPMONO)
  1487. + 
  1488. + djet500.dev: $(HPMONO) gssetdev
  1489. +     $(SHP)gssetdev djet500 $(HPMONO)
  1490. + 
  1491. + laserjet.dev: $(HPMONO) gssetdev
  1492. +     $(SHP)gssetdev laserjet $(HPMONO)
  1493. + 
  1494. + ljetplus.dev: $(HPMONO) gssetdev
  1495. +     $(SHP)gssetdev ljetplus $(HPMONO)
  1496. + 
  1497. + ### Selecting ljet2p provides TIFF (mode 2) compression on LaserJet III,
  1498. + ### IIIp, IIId, IIIsi, IId, and IIp. 
  1499. + 
  1500. + ljet2p.dev: $(HPMONO) gssetdev
  1501. +     $(SHP)gssetdev ljet2p $(HPMONO)
  1502. + 
  1503. + ### Selecting ljet3 provides Delta Row (mode 3) compression on LaserJet III,
  1504. + ### IIIp, IIId, IIIsi.
  1505. + 
  1506. + ljet3.dev: $(HPMONO) gssetdev
  1507. +     $(SHP)gssetdev ljet3 $(HPMONO)
  1508. + 
  1509. + ### Selecting ljet4 also provides Delta Row compression on LaserJet IV series.
  1510. + 
  1511. + ljet4.dev: $(HPMONO) gssetdev
  1512. +     $(SHP)gssetdev ljet4 $(HPMONO)
  1513. + 
  1514. + ###- The H-P DeskJet 500C/550C and PaintJet family color printer devices -###
  1515. + ### Note: there are two different 500C drivers, both contributed by users.###
  1516. + ###   If you have questions about the djet500c driver,                    ###
  1517. + ###       please contact AKayser@et.tudelft.nl.                           ###
  1518. + ###   If you have questions about the cdj* drivers,                       ###
  1519. + ###       please contact g.cameron@biomed.abdn.ac.uk.                     ###
  1520. + 
  1521. + cdeskjet_=gdevcdj.$(OBJ) $(HPPCL)
  1522. + 
  1523. + cdeskjet.dev: $(cdeskjet_) gssetdev
  1524. +     $(SHP)gssetdev cdeskjet $(cdeskjet_)
  1525. + 
  1526. + cdjcolor.dev: $(cdeskjet_) gssetdev
  1527. +     $(SHP)gssetdev cdjcolor $(cdeskjet_)
  1528. + 
  1529. + cdjmono.dev: $(cdeskjet_) gssetdev
  1530. +     $(SHP)gssetdev cdjmono $(cdeskjet_)
  1531. + 
  1532. + cdj500.dev: $(cdeskjet_) gssetdev
  1533. +     $(SHP)gssetdev cdj500 $(cdeskjet_)
  1534. + 
  1535. + cdj550.dev: $(cdeskjet_) gssetdev
  1536. +     $(SHP)gssetdev cdj550 $(cdeskjet_)
  1537. + 
  1538. + declj250.dev: $(cdeskjet_) gssetdev
  1539. +     $(SHP)gssetdev declj250 $(cdeskjet_)
  1540. + 
  1541. + pj.dev: $(cdeskjet_) gssetdev
  1542. +     $(SHP)gssetdev pj $(cdeskjet_)
  1543. + 
  1544. + pjxl.dev: $(cdeskjet_) gssetdev
  1545. +     $(SHP)gssetdev pjxl $(cdeskjet_)
  1546. + 
  1547. + pjxl300.dev: $(cdeskjet_) gssetdev
  1548. +     $(SHP)gssetdev pjxl300 $(cdeskjet_)
  1549. + 
  1550. + # NB: you can also customise the build if required, using -DA4 (for A4 paper)
  1551. + # and -DBitsPerPixel=<number> if you wish the default to be other than 24
  1552. + # for the generic drivers (cdj500, cdj550, pjxl300, pjtest, pjxltest).
  1553. + # E.g,. to make A4 paper the default, change the second line below this to
  1554. + #    $(CCC) -DA4 gdevdjet.c
  1555. + gdevcdj.$(OBJ): gdevcdj.c $(PDEVH) $(gdevpcl_h)
  1556. +     $(CCC) gdevcdj.c
  1557. + 
  1558. + djet500c_=gdevdjtc.$(OBJ) $(HPPCL)
  1559. + djet500c.dev: $(djet500c_) gssetdev
  1560. +     $(SHP)gssetdev djet500c $(djet500c_)
  1561. + 
  1562. + gdevdjtc.$(OBJ): gdevdjtc.c $(PDEVH) $(gdevpcl_h)
  1563. + 
  1564. + ### ----------------- The generic Epson printer device ----------------- ###
  1565. + 
  1566. + epson_=gdevepsn.$(OBJ) gdevprn.$(OBJ)
  1567. + 
  1568. + epson.dev: $(epson_) gssetdev
  1569. +     $(SHP)gssetdev epson $(epson_)
  1570. + 
  1571. + eps9high.dev: $(epson_) gssetdev
  1572. +     $(SHP)gssetdev eps9high $(epson_)
  1573. + 
  1574. + gdevepsn.$(OBJ): gdevepsn.c $(PDEVH)
  1575. + 
  1576. + ### ----------------- The IBM Proprinter printer device ---------------- ###
  1577. + 
  1578. + ibmpro.dev: $(epson_) gssetdev
  1579. +     $(SHP)gssetdev ibmpro $(epson_)
  1580. + 
  1581. + ### -------------- The Epson LQ-2550 color printer device -------------- ###
  1582. + ### Note: this driver was contributed by users: please contact           ###
  1583. + ###       Dave St. Clair (dave@exlog.com) if you have questions.         ###
  1584. + 
  1585. + epsonc_=gdevepsc.$(OBJ) gdevprn.$(OBJ)
  1586. + epsonc.dev: $(epsonc_) gssetdev
  1587. +     $(SHP)gssetdev epsonc $(epsonc_)
  1588. + 
  1589. + gdevepsc.$(OBJ): gdevepsc.c $(PDEVH)
  1590. + 
  1591. + ### -------------- The Epson ESC/P 2 language printer device ----------- ###
  1592. + ### Note: this driver was contributed by a user: if you have questions,  ###
  1593. + ###       please contact Richard Brown (rab@tauon.ph.unimelb.edu.au).    ###
  1594. + 
  1595. + escp2_=gdevescp.$(OBJ) gdevprn.$(OBJ)
  1596. + escp2.dev: $(escp2_) gssetdev
  1597. +     $(SHP)gssetdev escp2 $(escp2_)
  1598. + 
  1599. + gdevescp.$(OBJ): gdevescp.c $(PDEVH)
  1600. + 
  1601. + ### ------------ The H-P PaintJet color printer device ----------------- ###
  1602. + ### Note: this driver also supports the DEC LJ250 color printer, which   ###
  1603. + ###       has a PaintJet-compatible mode, and the PaintJet XL.           ###
  1604. + ### If you have questions about the XL, please contact Rob Reiss         ###
  1605. + ###       (rob@moray.berkeley.edu).                                      ###
  1606. + 
  1607. + PJET=gdevpjet.$(OBJ) $(HPPCL)
  1608. + 
  1609. + gdevpjet.$(OBJ): gdevpjet.c $(PDEVH) $(gdevpcl_h)
  1610. + 
  1611. + lj250.dev: $(PJET) gssetdev
  1612. +     $(SHP)gssetdev lj250 $(PJET)
  1613. + 
  1614. + paintjet.dev: $(PJET) gssetdev
  1615. +     $(SHP)gssetdev paintjet $(PJET)
  1616. + 
  1617. + pjetxl.dev: $(PJET) gssetdev
  1618. +     $(SHP)gssetdev pjetxl $(PJET)
  1619. + 
  1620. + ### ------- The IBM 3852 JetPrinter color inkjet printer device -------- ###
  1621. + ### Note: this driver was contributed by users: please contact           ###
  1622. + ###       Kevin Gift (kgift@draper.com) if you have questions.           ###
  1623. + ### Note that the paper size that can be addressed by the graphics mode  ###
  1624. + ###   used in this driver is fixed at 7-1/2 inches wide (the printable   ###
  1625. + ###   width of the jetprinter itself.)                                   ###
  1626. + 
  1627. + jetp3852_=gdev3852.$(OBJ) gdevprn.$(OBJ)
  1628. + jetp3852.dev: $(jetp3852_) gssetdev
  1629. +     $(SHP)gssetdev jetp3852 $(jetp3852_)
  1630. + 
  1631. + gdevjetp.$(OBJ): gdevjetp.c $(PDEVH) $(gdevpcl_h)
  1632. + 
  1633. + ### ----------------- The Canon LBP-8II printer device ----------------- ###
  1634. + ### Note: this driver was contributed by users: please contact           ###
  1635. + ###       Tom Quinn (trq@prg.oxford.ac.uk) if you have questions.        ###
  1636. + ### Note that the standard paper size for this driver is the European    ###
  1637. + ###   A4 size, not the American 8.5" x 11" size.                         ###
  1638. + 
  1639. + lbp8_=gdevlbp8.$(OBJ) gdevprn.$(OBJ)
  1640. + lbp8.dev: $(lbp8_) gssetdev
  1641. +     $(SHP)gssetdev lbp8 $(lbp8_)
  1642. + 
  1643. + gdevlbp8.$(OBJ): gdevlbp8.c $(PDEVH)
  1644. + 
  1645. + ### -------------- The DEC LN03/LA50/LA75 printer devices -------------- ###
  1646. + ### Note: this driver was contributed by users: please contact           ###
  1647. + ###       Ulrich Mueller (ulm@vsnhd1.cern.ch) if you have questions.     ###
  1648. + ### For questions about LA50 and LA75: please contact                    ###
  1649. + ###       Ian MacPhedran (macphed@dvinci.USask.CA).                     ###
  1650. + ### For the LN03, you can make A4 paper the default: see below.          ###
  1651. + 
  1652. + ln03_=gdevln03.$(OBJ) gdevprn.$(OBJ)
  1653. + ln03.dev: $(ln03_) gssetdev
  1654. +     $(SHP)gssetdev ln03 $(ln03_)
  1655. + 
  1656. + la50.dev: $(ln03_) gssetdev
  1657. +     $(SHP)gssetdev la50 $(ln03_)
  1658. + 
  1659. + la75.dev: $(ln03_) gssetdev
  1660. +     $(SHP)gssetdev la75 $(ln03_)
  1661. + 
  1662. + # To make A4 paper the default, change the second line below this to
  1663. + #    $(CCC) -DA4 gdevln03.c
  1664. + gdevln03.$(OBJ): gdevln03.c $(PDEVH)
  1665. +     $(CCC) gdevln03.c
  1666. + 
  1667. + ### -------------- The C.Itoh M8510 printer device --------------------- ###
  1668. + ### Note: this driver was contributed by a user: please contact Bob      ###
  1669. + ###       Smith <bob@snuffy.penfield.ny.us> if you have questions.       ###
  1670. + 
  1671. + m8510_=gdev8510.$(OBJ) gdevprn.$(OBJ)
  1672. + m8510.dev: $(m8510_) gssetdev
  1673. +     $(SHP)gssetdev m8510 $(m8510_)
  1674. + 
  1675. + gdev8510.$(OBJ): gdev8510.c $(PDEVH)
  1676. + 
  1677. + ### --------------------- The NEC P6 family devices -------------------- ###
  1678. + 
  1679. + necp6_=gdevnp6.$(OBJ) gdevprn.$(OBJ)
  1680. + necp6.dev: $(necp6_) gssetdev
  1681. +     $(SHP)gssetdev necp6 $(necp6_)
  1682. + 
  1683. + gdevnp6.$(OBJ): gdevnp6.c $(PDEVH)
  1684. + 
  1685. + ### ----------------- The Okidata MicroLine 182 device ----------------- ###
  1686. + ### Note: this driver was contributed by a user: please contact          ###
  1687. + ###       Maarten Koning (smeg@bnr.ca) if you have questions.            ###
  1688. + 
  1689. + oki182_=gdevo182.$(OBJ) gdevprn.$(OBJ)
  1690. + oki182.dev: $(oki182_) gssetdev
  1691. +     $(SHP)gssetdev oki182 $(oki182_)
  1692. + 
  1693. + gdevo182.$(OBJ): gdevo182.c $(PDEVH)
  1694. + 
  1695. + ### ------------- The Ricoh 4081 laser printer device ------------------ ###
  1696. + ### Note: this driver was contributed by users:                          ###
  1697. + ###       please contact kdw@oasis.icl.co.uk if you have questions.      ###
  1698. + 
  1699. + r4081_=gdev4081.$(OBJ) gdevprn.$(OBJ)
  1700. + r4081.dev: $(r4081_) gssetdev
  1701. +     $(SHP)gssetdev r4081 $(r4081_)
  1702. + 
  1703. + gdev4081.$(OBJ): gdev4081.c $(PDEVH)
  1704. + 
  1705. + ###### ------------------------ Sony devices ------------------------ ######
  1706. + ### Note: these drivers were contributed by users: please contact        ###
  1707. + ###       Mike Smolenski (mike@intertech.com) if you have questions.     ###
  1708. + 
  1709. + ### ------------------- Sony NeWS frame buffer device ------------------ ###
  1710. + 
  1711. + sonyfb_=gdevsnfb.$(OBJ) gdevprn.$(OBJ)
  1712. + sonyfb.dev: $(sonyfb_) gssetdev
  1713. +     $(SHP)gssetdev sonyfb $(sonyfb_)
  1714. + 
  1715. + gdevsnfb.$(OBJ): gdevsnfb.c $(PDEVH)
  1716. + 
  1717. + ### -------------------- Sony NWP533 printer device -------------------- ###
  1718. + ### Note: this driver was contributed by a user: please contact Tero     ###
  1719. + ###       Kivinen (kivinen@joker.cs.hut.fi) if you have questions.       ###
  1720. + 
  1721. + nwp533_=gdevn533.$(OBJ) gdevprn.$(OBJ)
  1722. + nwp533.dev: $(nwp533_) gssetdev
  1723. +     $(SHP)gssetdev nwp533 $(nwp533_)
  1724. + 
  1725. + gdevn533.$(OBJ): gdevn533.c $(PDEVH)
  1726. + 
  1727. + ### ------------------------- The SPARCprinter ------------------------- ###
  1728. + ### Note: this driver was contributed by users: please contact Martin    ###
  1729. + ###       Schulte (schulte@thp.uni-koeln.de) if you have questions.      ###
  1730. + ###       He would also like to hear from anyone using the driver.       ###
  1731. + ### Please consult the source code for additional documentation.         ###
  1732. + 
  1733. + sparc_=gdevsppr.$(OBJ) gdevprn.$(OBJ)
  1734. + sparc.dev: $(sparc_) gssetdev
  1735. +     $(SHP)gssetdev sparc $(sparc_)
  1736. + 
  1737. + gdevsppr.$(OBJ): gdevsppr.c $(PDEVH)
  1738. + 
  1739. + ###### --------------------- The SunView device --------------------- ######
  1740. + ### Note: this driver is maintained by a user: if you have questions,    ###
  1741. + ###       please contact Andreas Stolcke (stolcke@icsi.berkeley.edu).    ###
  1742. + 
  1743. + sunview_=gdevsun.$(OBJ)
  1744. + sunview.dev: $(sunview_) gssetdev gsaddmod
  1745. +     $(SHP)gssetdev sunview $(sunview_)
  1746. +     $(SHP)gsaddmod sunview -lib suntool sunwindow pixrect
  1747. + 
  1748. + gdevsun.$(OBJ): gdevsun.c $(GDEV) $(arch_h)
  1749. + 
  1750. + ### ----------------- Tektronix 4396d color printer -------------------- ###
  1751. + ### Note: this driver was contributed by a user: please contact          ###
  1752. + ###       Karl Hakimian (hakimian@haney.eecs.wsu.edu)                    ###
  1753. + ###       if you have questions.                                         ###
  1754. + 
  1755. + t4693d_=gdev4693.$(OBJ) gdevprn.$(OBJ)
  1756. + t4693d2.dev: $(t4693d_) gssetdev
  1757. +     $(SHP)gssetdev t4693d2 $(t4693d_)
  1758. + 
  1759. + t4693d4.dev: $(t4693d_) gssetdev
  1760. +     $(SHP)gssetdev t4693d4 $(t4693d_)
  1761. + 
  1762. + t4693d8.dev: $(t4693d_) gssetdev
  1763. +     $(SHP)gssetdev t4693d8 $(t4693d_)
  1764. + 
  1765. + gdev4693.$(OBJ): gdev4693.c $(GDEV)
  1766. + 
  1767. + ### -------------------- Tektronix ink-jet printers -------------------- ###
  1768. + ### Note: this driver was contributed by a user: please contact          ###
  1769. + ###       Karsten Spang (spang@nbivax.nbi.dk) if you have questions.     ###
  1770. + 
  1771. + tek4696_=gdevtknk.$(OBJ) gdevprn.$(OBJ)
  1772. + tek4696.dev: $(tek4696_) gssetdev
  1773. +     $(SHP)gssetdev tek4696 $(tek4696_)
  1774. + 
  1775. + gdevtknk.$(OBJ): gdevtknk.c $(PDEVH)
  1776. + 
  1777. + ### ----------------- The TruFax facsimile device ---------------------- ###
  1778. + ### Note: this driver was contributed by users: please contact           ###
  1779. + ###       Neil Ostroff (nao@maestro.bellcore.com) if you have questions. ###
  1780. + ### Note that the driver requires a file encode_l.o supplied by the      ###
  1781. + ###   makers of the TruFax product.                                      ###
  1782. + 
  1783. + trufax_=gdevtrfx.$(OBJ) gdevprn.$(OBJ) encode_l.$(OBJ)
  1784. + trufax.dev: $(trufax_) gssetdev
  1785. +     $(SHP)gssetdev trufax $(trufax_)
  1786. + 
  1787. + gdevtrfx.$(OBJ): gdevtrfx.c $(GDEV)
  1788. + 
  1789. + ###### ----------------------- The X11 device ----------------------- ######
  1790. + 
  1791. + # Aladdin Enterprises does not support Ghostview.  For more information
  1792. + # about Ghostview, please contact Tim Theisen (ghostview@cs.wisc.edu).
  1793. + 
  1794. + x11_=gdevx.$(OBJ) gdevxini.$(OBJ) gdevxxf.$(OBJ) gdevemap.$(OBJ)
  1795. + x11.dev: $(x11_) gssetdev gsaddmod
  1796. +     $(SHP)gssetdev x11 $(x11_)
  1797. +     $(SHP)gsaddmod x11 -lib Xt X11 Xext
  1798. + 
  1799. + # See the main makefile for the definition of XINCLUDE.
  1800. + GDEVX=$(GDEV) x_.h gdevx.h $(MAKEFILE)
  1801. + gdevx.$(OBJ): gdevx.c $(GDEVX) $(gsprops_h) $(gsutil_h)
  1802. +     $(CCC) $(XINCLUDE) gdevx.c
  1803. + 
  1804. + gdevxini.$(OBJ): gdevxini.c $(GDEVX) $(ctype__h)
  1805. +     $(CCC) $(XINCLUDE) gdevxini.c
  1806. + 
  1807. + gdevxxf.$(OBJ): gdevxxf.c $(GDEVX) $(gsutil_h) $(gxxfont_h)
  1808. +     $(CCC) $(XINCLUDE) gdevxxf.c
  1809. + 
  1810. + ### ---------------------- The bit bucket device ----------------------- ###
  1811. + 
  1812. + bit_=gdevbit.$(OBJ) gdevprn.$(OBJ)
  1813. + bit.dev: $(bit_) gssetdev
  1814. +     $(SHP)gssetdev bit $(bit_)
  1815. + 
  1816. + gdevbit.$(OBJ): gdevbit.c $(PDEVH)
  1817. + 
  1818. + ###### ----------------------- PC file formats ---------------------- ######
  1819. + 
  1820. + gdevpccm.$(OBJ): gdevpccm.c $(AK) \
  1821. +   $(gs_h) $(gsmatrix_h) $(gxdevice_h) $(gdevpccm_h)
  1822. + 
  1823. + ### ------------------------- .BMP file formats ------------------------- ###
  1824. + 
  1825. + bmp_=gdevbmp.$(OBJ) gdevpccm.$(OBJ) gdevprn.$(OBJ)
  1826. + 
  1827. + gdevbmp.$(OBJ): gdevbmp.c $(PDEVH) $(gdevpccm_h)
  1828. + 
  1829. + bmpmono.dev: $(bmp_) gssetdev
  1830. +     $(SHP)gssetdev bmpmono $(bmp_)
  1831. + 
  1832. + bmp16.dev: $(bmp_) gssetdev
  1833. +     $(SHP)gssetdev bmp16 $(bmp_)
  1834. + 
  1835. + bmp256.dev: $(bmp_) gssetdev
  1836. +     $(SHP)gssetdev bmp256 $(bmp_)
  1837. + 
  1838. + bmp16m.dev: $(bmp_) gssetdev
  1839. +     $(SHP)gssetdev bmp16m $(bmp_)
  1840. + 
  1841. + ### ------------------------- GIF file formats ------------------------- ###
  1842. + 
  1843. + GIF=gdevgif.$(OBJ) gdevpccm.$(OBJ) gdevprn.$(OBJ)
  1844. + 
  1845. + gdevgif.$(OBJ): gdevgif.c $(PDEVH) $(gdevpccm_h)
  1846. + 
  1847. + gifmono.dev: $(GIF) gssetdev
  1848. +     $(SHP)gssetdev gifmono $(GIF)
  1849. + 
  1850. + gif8.dev: $(GIF) gssetdev
  1851. +     $(SHP)gssetdev gif8 $(GIF)
  1852. + 
  1853. + ### ------------------------- PCX file formats ------------------------- ###
  1854. + 
  1855. + pcx_=gdevpcx.$(OBJ) gdevpccm.$(OBJ) gdevprn.$(OBJ)
  1856. + 
  1857. + gdevpcx.$(OBJ): gdevpcx.c $(PDEVH) $(gdevpccm_h) $(gxlum_h)
  1858. + 
  1859. + pcxmono.dev: $(pcx_) gssetdev
  1860. +     $(SHP)gssetdev pcxmono $(pcx_)
  1861. + 
  1862. + pcxgray.dev: $(pcx_) gssetdev
  1863. +     $(SHP)gssetdev pcxgray $(pcx_)
  1864. + 
  1865. + pcx16.dev: $(pcx_) gssetdev
  1866. +     $(SHP)gssetdev pcx16 $(pcx_)
  1867. + 
  1868. + pcx256.dev: $(pcx_) gssetdev
  1869. +     $(SHP)gssetdev pcx256 $(pcx_)
  1870. + 
  1871. + ###### ------------------- Portable Bitmap devices ------------------ ######
  1872. + ### For more information, see the pbm(5), pgm(5), and ppm(5) man pages.  ###
  1873. + 
  1874. + pxm_=gdevpbm.$(OBJ) gdevprn.$(OBJ)
  1875. + 
  1876. + gdevpbm.$(OBJ): gdevpbm.c $(PDEVH) $(gxlum_h)
  1877. + 
  1878. + ### Portable Bitmap (PBM, plain or raw format, magic numbers "P1" or "P4")
  1879. + 
  1880. + pbm.dev: $(pxm_) gssetdev
  1881. +     $(SHP)gssetdev pbm $(pxm_)
  1882. + 
  1883. + pbmraw.dev: $(pxm_) gssetdev
  1884. +     $(SHP)gssetdev pbmraw $(pxm_)
  1885. + 
  1886. + ### Portable Graymap (PGM, plain or raw format, magic numbers "P2" or "P5")
  1887. + 
  1888. + pgm.dev: $(pxm_) gssetdev
  1889. +     $(SHP)gssetdev pgm $(pxm_)
  1890. + 
  1891. + pgmraw.dev: $(pxm_) gssetdev
  1892. +     $(SHP)gssetdev pgmraw $(pxm_)
  1893. + 
  1894. + ### Portable Pixmap (PPM, plain or raw format, magic numbers "P3" or "P6")
  1895. + 
  1896. + ppm.dev: $(pxm_) gssetdev
  1897. +     $(SHP)gssetdev ppm $(pxm_)
  1898. + 
  1899. + ppmraw.dev: $(pxm_) gssetdev
  1900. +     $(SHP)gssetdev ppmraw $(pxm_)
  1901. + 
  1902. + ### -------------------------- TIFF/F device ---------------------------- ###
  1903. + ###    This driver outputs images in a TIFF format               ###
  1904. + ###    Use -sDEVICE=tiffg3 and                          ###
  1905. + ###      -r204x98 for low resolution output, or              ###
  1906. + ###      -r204x196 for high resolution output                  ###
  1907. + ###    Note also that 3 page sizes are understood: letter, A4, and B4      ###
  1908. + ### Note: this driver was contributed by a user: please contact           ###
  1909. + ###       Sam Leffler (sam@sgi.com) if you have questions.              ###
  1910. + 
  1911. + tiffg3_=gdevtiff.$(OBJ) gdevprn.$(OBJ)
  1912. + tiffg3.dev: $(tiffg3_) gssetdev
  1913. +     $(SHP)gssetdev tiffg3 $(tiffg3_)
  1914. + gdevtiff.$(OBJ): gdevtiff.c $(GDEV) $(gdevprn_h) gdevdfg3.h gdevtiff.h
  1915. + #    Copyright (C) 1990, 1992, 1993 Aladdin Enterprises.  All rights reserved.
  1916. + #
  1917. + # This file is part of Ghostscript.
  1918. + #
  1919. + # Ghostscript is distributed in the hope that it will be useful, but
  1920. + # WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  1921. + # to anyone for the consequences of using it or for whether it serves any
  1922. + # particular purpose or works at all, unless he says so in writing.  Refer
  1923. + # to the Ghostscript General Public License for full details.
  1924. + #
  1925. + # Everyone is granted permission to copy, modify and redistribute
  1926. + # Ghostscript, but only under the conditions described in the Ghostscript
  1927. + # General Public License.  A copy of this license is supposed to have been
  1928. + # given to you along with Ghostscript so you can know your rights and
  1929. + # responsibilities.  It should be in a file named COPYING.  Among other
  1930. + # things, the copyright notice and this notice must be preserved on all
  1931. + # copies.
  1932. + 
  1933. + # Partial makefile for Ghostscript, common to all Unix configurations.
  1934. + 
  1935. + # This is the last part of the makefile for Unix configurations.
  1936. + # Since Unix make doesn't have an 'include' facility, we concatenate
  1937. + # the various parts of the makefile together by brute force (in tar_cat).
  1938. + 
  1939. + # The following prevents GNU make from constructing argument lists that
  1940. + # include all environment variables, which can easily be longer than
  1941. + # brain-damaged system V allows.
  1942. + 
  1943. + .NOEXPORT:
  1944. + 
  1945. + # -------------------------------- Library -------------------------------- #
  1946. + 
  1947. + ## The Commodore Amiga
  1948. + 
  1949. + amiga__=gp_nofb.$(OBJ) gp_amiga.$(OBJ) gdevpipe.$(OBJ)
  1950. + amiga_.dev: $(amiga__) gssetmod gsaddmod
  1951. +     $(SHP)gssetmod amiga_ $(amiga__)
  1952. +     $(SHP)gsaddmod amiga_ -fdev pipe
  1953. + 
  1954. + gp_amiga.$(OBJ): gp_amiga.c $(AK) $(memory__h) $(string__h) $(gx_h) $(gp_h) \
  1955. + 
  1956. + ## The Unix platforms
  1957. + 
  1958. + # We have to include a test for the existence of sys/time.h,
  1959. + # because some System V platforms don't have it.
  1960. + 
  1961. + # All reasonable Unix platforms.
  1962. + unix__=gp_nofb.$(OBJ) gp_unix.$(OBJ) gdevpipe.$(OBJ)
  1963. + unix_.dev: $(unix__) gssetmod gsaddmod
  1964. +     $(SHP)gssetmod unix_ $(unix__)
  1965. +     $(SHP)gsaddmod unix_ -fdev pipe
  1966. + 
  1967. + gp_unix.$(OBJ): gp_unix.c $(AK) $(memory__h) $(string__h) $(gx_h) $(gp_h) \
  1968. +  $(gsutil_h) $(stat__h) $(time__h)
  1969. +     if ( test -f /gnu/include/sys/time.h ) then $(CCC) gp_unix.c;\
  1970. +     else $(CCC) -DNOSYSTIME gp_unix.c; fi
  1971. + 
  1972. + gdevpipe.$(OBJ): gdevpipe.c $(AK) $(stdio__h) $(gstypes_h) \
  1973. +   $(filedev_h) $(stream_h)
  1974. + 
  1975. + # Brain-damaged System V platforms.
  1976. + sysv__=gp_nofb.$(OBJ) gp_unix.$(OBJ) gp_sysv.$(OBJ)
  1977. + sysv_.dev: $(sysv__) gssetmod
  1978. +     $(SHP)gssetmod sysv_ $(sysv__)
  1979. + 
  1980. + gp_sysv.$(OBJ): gp_sysv.c $(time__h) $(AK)
  1981. +     if ( test -f /gnu/include/sys/time.h ) then $(CCC) gp_sysv.c;\
  1982. +     else $(CCC) -DNOSYSTIME gp_sysv.c; fi
  1983. + 
  1984. + # -------------------------- Auxiliary programs --------------------------- #
  1985. + 
  1986. + ansi2knr$(XE): ansi2knr.c $(stdio__h) $(string__h) $(malloc__h)
  1987. +     $(CC) -o ansi2knr$(XE) $(CFLAGS) ansi2knr.c
  1988. + 
  1989. + echogs$(XE): echogs.c
  1990. +     $(CC) -o echogs$(XE) $(CFLAGS) echogs.c
  1991. + 
  1992. + # On the RS/6000 (at least), compiling genarch.c with gcc with -O
  1993. + # produces a buggy executable.
  1994. + genarch$(XE): genarch.c
  1995. +     $(CC) -o genarch$(XE) genarch.c
  1996. + 
  1997. + genconf$(XE): genconf.c
  1998. +     $(CC) -o genconf$(XE) genconf.c
  1999. + 
  2000. + # ----------------------------- Main program ------------------------------ #
  2001. + 
  2002. + BEGINFILES=
  2003. + CCBEGIN=$(CCC) *.c
  2004. + 
  2005. + # Interpreter main program
  2006. + 
  2007. + GSAMIGA=gs.$(OBJ) gsmain.$(OBJ) $(INT) $(LIBGS)
  2008. + 
  2009. + # The second call on echogs writes a \.  This is the only
  2010. + # way to do it that works with all flavors of shell!
  2011. + $(GS)$(XE): $(GSAMIGA) ld.tr echogs $(ALL_DEVS)
  2012. +     ./echogs -n - $(CC) $(LDFLAGS) $(XLIBDIRS) -o gs $(GSAMIGA) >_temp_
  2013. +     ./echogs -x 205c >>_temp_
  2014. +     cat ld.tr >>_temp_
  2015. +     ./echogs - $(EXTRALIBS) -lm >>_temp_
  2016. +     $(SH) <_temp_
  2017. + 
  2018. + # Installation
  2019. + 
  2020. + TAGS:
  2021. +     etags -t *.c *.h
  2022. + 
  2023. + docdir=$(gsdatadir)/doc
  2024. + exdir=$(gsdatadir)/examples
  2025. + 
  2026. + install: $(GS)
  2027. +     if [ -d $(bindir) ]; then true; else mkdir $(bindir); fi
  2028. +     if [ -d $(datadir) ]; then true; else mkdir $(datadir); fi
  2029. +     if [ -d $(gsdatadir) ]; then true; else mkdir $(gsdatadir); fi
  2030. +     if [ -d $(gsdatadir)/fonts ]; then true; else mkdir $(gsdatadir)/fonts; fi
  2031. +     if [ -d $(docdir) ]; then true; else mkdir $(docdir); fi
  2032. +     if [ -d $(exdir) ]; then true; else mkdir $(exdir); fi
  2033. +     for f in $(GS) gsbj gsdj gslj gslp gsnd bdftops font2c ps2ascii ps2epsi ; do $(INSTALL_PROGRAM) $$f $(bindir)/$$f ; done
  2034. +     for f in README gslp.ps gs_init.ps gs_dps1.ps gs_fonts.ps gs_lev2.ps gs_statd.ps gs_type0.ps gs_dbt_e.ps gs_sym_e.ps quit.ps Fontmap uglyr.gsf bdftops.ps decrypt.ps font2c.ps impath.ps landscap.ps level1.ps prfont.ps ps2ascii.ps ps2epsi.ps ps2image.ps pstoppm.ps showpage.ps type1ops.ps wrfont.ps ; do $(INSTALL_DATA) $$f $(gsdatadir)/$$f ; done
  2035. +     for f in NEWS ansi2knr.1 devices.doc drivers.doc fonts.doc gs.1 hershey.doc history.doc humor.doc language.doc lib.doc make.doc ps2epsi.doc psfiles.doc readme.doc use.doc xfonts.doc ; do $(INSTALL_DATA) $$f $(docdir)/$$f ; done
  2036. +     for f in chess.ps cheq.ps colorcir.ps golfer.ps escher.ps snowflak.ps tiger.ps ; do $(INSTALL_DATA) $$f $(exdir)/$$f ; done
  2037. diff -rc --new-file ghostscript-2.6.1-fsf/amiga.doc ghostscript-2.6.1-amiga/amiga.doc
  2038. *** ghostscript-2.6.1-fsf/amiga.doc    Thu Jan  1 00:00:00 1970
  2039. --- ghostscript-2.6.1-amiga/amiga.doc    Wed Feb  2 13:38:30 1994
  2040. ***************
  2041. *** 0 ****
  2042. --- 1,318 ----
  2043. + GNU Ghostscript 2.6.1 Amiga port, revised 29 January 1994
  2044. + =========================================================
  2045. + This port requires:
  2046. + 
  2047. + - An  Amiga  equipped  with  an '020 CPU or any successor CPU model and and
  2048. +   Kickstart 2.04 or higher.
  2049. + 
  2050. + - Approx. 4.7 MBytes of hard disk space available.
  2051. + 
  2052. + - A  minimum  of 1 MByte of chip memory, depending on what you will want to
  2053. +   do  with  the  interpreter.  Printer output requires at least 2 MBytes of
  2054. +   contiguous memory (any memory, not necessarily chip memory).
  2055. + 
  2056. + - ixemul.library and a bunch of Postscript/Ghostscript fonts.
  2057. + 
  2058. + 
  2059. + New features in the revised v2.6.1 release
  2060. + ------------------------------------------
  2061. + By  public  request  I have recompiled the program to use the built-in math
  2062. + library,  so  you  no  longer need an FPU to run the program. I also took a
  2063. + closer  look  at  the  code  which  tries  to  determine  the  printer page
  2064. + resolution:  you  will  no  longer  have  trouble  with  printers featuring
  2065. + built-in  paper  tractors.  I  tried all printer drivers to be found on the
  2066. + Workbench  disk  to  make  sure the printer support code really works. Good
  2067. + luck!  Some  small  bugs  were  ironed  out and I also took the time to add
  2068. + support  for  another  two  display  drivers  (the  Picasso II driver which
  2069. + requires  the  Picasso  monitor  driver  v2.14  to  work  correctly and the
  2070. + `custom' driver which requires asl.library v38 to be installed). The entire
  2071. + program was recompiled using GCC 2.4.5.
  2072. + 
  2073. + 
  2074. + New Amiga features in release v2.6.1
  2075. + ------------------------------------
  2076. + The  v2.6.0 port used to implement only monochrome drivers, the v2.6.1 port
  2077. + supports  colour  output on most devices, exceptions where noted. You don't
  2078. + need  a  special  brand  of graphics hardware expansion, colour output will
  2079. + work  on  any  Amiga  model, provided there is enough memory available. All
  2080. + devices capable of doing colour output will reduce the number of colours to
  2081. + be displayed if in dire need of memory. As for the display oriented devices
  2082. + this will go mostly unnoticed as the Ghostscript halftoning algorithms will
  2083. + compensate  for  any  colour reductions. However, printer output quality is
  2084. + very likely to suffer from colour reduction. So, watch out!
  2085. +    As  the display oriented devices start up in colour output mode, black &
  2086. + white  rendering  may  be slightly slowed. The printer device is configured
  2087. + according  to  the  Preferences  settings;  `Black  & white' will result in
  2088. + monochrome  output,  `Grayscale  1'  and  `Grayscale  2'  will also produce
  2089. + monochrome  output  but will internally use a true colour representation of
  2090. + the  page,  so  does  `Color'. Please note that `true colour' refers to the
  2091. + Amiga  12  bit colour model, at this time of writing 24 bit colour printing
  2092. + is not yet implemented.
  2093. +    The  default  output  device  (a  super-bitmap  window  to opened on the
  2094. + default  public  screen,  such  as  Workbench)  will  take advantage of the
  2095. + Kickstart  3.0  pen  sharing  feature  if  enough  colours  (eight or more)
  2096. + are available.
  2097. + 
  2098. + The v2.6.0 port used to rely on printer drivers to initialize their maximum
  2099. + page  size  information  upon startup. Several users reported problems with
  2100. + certain  drivers  which  would  make  this information available only after
  2101. + having  been  asked  to do so. The v2.6.1 port now follows the programmers'
  2102. + guidelines  how  to determine the maximum page size closely. The driver may
  2103. + still  complain  if  configured for `Grayscale 1', `Grayscale 2' or `Color'
  2104. + output  and  there  is  not  enough  memory  available  for  the page to be
  2105. + displayed.
  2106. + 
  2107. + 
  2108. + Installation
  2109. + ------------
  2110. + Enter  the  command  line interpreter, Create a directory on your hard disk
  2111. + drive,  label  it "ghostscript". Let's assume that the fully qualified name
  2112. + of  this  directory  will  be  "Work:ghostscript". Enter this directory and
  2113. + unpack  the  archive  "gs-2.6.1-amiga.lha".  This will create the directory
  2114. + "doc" which contains the Ghostscript documentation files, and the directory
  2115. + "examples" which is to hold some Postscript example files. To add the fonts
  2116. + from  the  Ghostscript distribution (not included in this release) create a
  2117. + directory  called  "Fonts" in the directory "Work:ghostscript" and copy all
  2118. + the  font files into it. You also need the `ixemul.library' included in the
  2119. + Amiga GCC distribution which should be copied to the `Libs:' directory. Now
  2120. + edit your `S:User-Startup' file, adding the following lines:
  2121. + 
  2122. +    Assign ghostscript: "Work:ghostscript"
  2123. +    Path ghostscript: add
  2124. + 
  2125. + Save the file back to disk and reboot your machine.
  2126. + 
  2127. + 
  2128. + Running the interpreter
  2129. + -----------------------
  2130. + Enter  the  command  line  interpreter,  type  "gs"  and  press return. The
  2131. + interpreter   will  be  loaded  and  will  try  to  initialize  itself.  If
  2132. + successfully initialized, a window should have been opened on the Workbench
  2133. + screen. The Shell window now should display the following text:
  2134. + 
  2135. +    Initializing... done.
  2136. +    Ghostscript 2.6.1 (5/28/93)
  2137. +    Copyright (C) 1990-1993 Aladdin Enterprises, Menlo Park, CA.
  2138. +      All rights reserved.
  2139. +    Ghostscript comes with NO WARRANTY: see the file COPYING for details.
  2140. +    GS>
  2141. + 
  2142. + At  the  command  prompt,  enter "(ghostscript:examples/golfer.ps) run" and
  2143. + press  return.  Click  on  the `Zoom' button in the top right corner of the
  2144. + window  to  bring it to full screen size, move the scrollers and watch what
  2145. + will  happen. When rendering is finished, the Shell window will display the
  2146. + following text:
  2147. + 
  2148. +    >>showpage, press <return> to continue<<
  2149. + 
  2150. + Press  return  to  erase  the  contents  of the window and to continue. The
  2151. + interpreter  will  be  in  interactive  mode  again, enter "quit" and press
  2152. + return to end this session.
  2153. + 
  2154. + For  more  information  refer to the documentation in the "ghostscript:doc"
  2155. + drawer.
  2156. + 
  2157. + 
  2158. + How to print a document
  2159. + -----------------------
  2160. + As the corresponding Ghostscript device will always keep the entire page in
  2161. + memory  the  printer need not be capable of strip-printing. The bad news is
  2162. + that  the  entire page will consume *a lot* of memory. This Amiga port will
  2163. + keep  the page in any public memory area, so it will not necessarily eat up
  2164. + precious chip memory. This should make it possible to print pages on Amigas
  2165. + with  only  1  MByte of chip memory or less, provided enough fast memory is
  2166. + available.
  2167. + 
  2168. + Enter  the  command  line interpreter, type "gs -sDEVICE=amiga_printer" and
  2169. + press  return.  This  will  invoke  the  Ghostscript  interpreter  with the
  2170. + "amiga_printer"  device  driver  selected  as  the startup device. When the
  2171. + command prompt appears, enter "(ghostscript:examples/butterfly.ps) run" and
  2172. + press return. The rendered image will be sent to the printer. When printing
  2173. + is finished, press return and enter "quit" to end this session.
  2174. + 
  2175. + Note:  unless you want Ghostscript to prompt you to press return after each
  2176. + page  is  printed and ejected you should include "-dNOPAUSE" on the command
  2177. + line.
  2178. + 
  2179. + 
  2180. + Available device drivers
  2181. + ------------------------
  2182. + This port implements the following nine device drivers:
  2183. + 
  2184. +    amiga
  2185. + 
  2186. +       (This is the default output device)
  2187. + 
  2188. +       Rendering  takes  place  in a super-bitmap window to be opened on the
  2189. +       Workbench  screen.  This  window  contains  scroller  handles to move
  2190. +       around in the bitmap. Usually, the bitmap will be four times as large
  2191. +       as the screen the window opens upon.
  2192. + 
  2193. +    amiga_low
  2194. + 
  2195. +       Renders into a low-resolution custom screen.
  2196. + 
  2197. +    amiga_high
  2198. + 
  2199. +       Renders into a high-resolution custom screen.
  2200. + 
  2201. +    amiga_super
  2202. + 
  2203. +       Renders into a super-high-resolution custom screen.
  2204. + 
  2205. +    amiga_a2024¹
  2206. + 
  2207. +       Renders into an A2024 resolution custom screen.
  2208. + 
  2209. +    amiga_picassoii
  2210. + 
  2211. +       Renders  into  a Picasso  II custom  screen (note: a plain  Intuition
  2212. +       custom screen  will be opened, this  driver will not directly  access
  2213. +       the  Picasso II  hardware).  The  Picasso  monitor  driver  v2.14  is
  2214. +       required for this driver to work.
  2215. + 
  2216. +    amiga_custom
  2217. + 
  2218. +       Unlike   the  other  display  drivers  which  will  open  screens  in
  2219. +       predefined  resolutions  and modes the `amiga_custom' driver will let
  2220. +       you select the display mode to use. On first invocation of the driver
  2221. +       a  screen mode requester will be opened for you to select the display
  2222. +       mode  to use. The name of the display mode selected will be stored in
  2223. +       a local environment variable called "GSCUSTOMMODE". The next time you
  2224. +       run  the  GhostScript  interpreter  with  the  `amiga_custom'  device
  2225. +       selected   the   device   will  try  to  read  the  contents  of  the
  2226. +       "GSCUSTOMMODE"  variable.  The list of screen display modes available
  2227. +       will  be scanned for a mode which name matches the variable. Wildcard
  2228. +       patterns  are  supported,  so  setting "GSCUSTOMMODE" to "#?lowres#?"
  2229. +       will  match  any  screen display mode with the string "lowres" in it,
  2230. +       such  as "NTSC:LowRes", "PAL:LowRes", etc. If you wish, you could set
  2231. +       the  global  environment  variable  "GSCUSTOMMODE" to a special value
  2232. +       which the `amiga_custom' device will always use. Please note that the
  2233. +       screen  mode  requester  will  only  be  opened if no local or global
  2234. +       environment variable "GSCUSTOMMODE" is defined.
  2235. + 
  2236. +    amiga_printer
  2237. + 
  2238. +       Outputs  pages  on  the  currently  configured  preferences  printer.
  2239. +       Respects density and resolution settings. Requires a lot of memory to
  2240. +       run.
  2241. + 
  2242. +    amiga_ilbm¹
  2243. + 
  2244. +       Will prompt for a file name to save the current page contents to. The
  2245. +       page  will  be  saved  as  a standard IFF-ILBM picture, including DPI
  2246. +       information,   suitable   for  postprocessing  using  standard  image
  2247. +       processing and editing software.
  2248. + 
  2249. + 
  2250. +    ¹) Monochrome output only
  2251. + 
  2252. + 
  2253. + Properties
  2254. + ----------
  2255. + With  Ghostscript  2.6.1 one can specify several driver specific options on
  2256. + the  command  line.  As  for  the Amiga drivers, they support the following
  2257. + properties:
  2258. + 
  2259. + - PageWidth and PageHeight
  2260. + 
  2261. +   The  dimensions  of  the  page  to  render  into.  The physical page size
  2262. +   Ghostscript  will  use  for  rendering is limited by these dimensions. On
  2263. +   startup  The Amiga drivers will default to a page size roughly equivalent
  2264. +   to A4 unless different dimensions are specified. The size definitions may
  2265. +   include  measuring  units  (e.g. "-sPageWidth=21cm"), the following units
  2266. +   are  supported: pt (points, the default if no unit is given), pc (picas),
  2267. +   in  (inches),  cm  (centimeters), mm (millimeters), dd (didôt points), cc
  2268. +   (ciceros).
  2269. + 
  2270. + - OutputFile
  2271. + 
  2272. +   The  amiga_ilbm device pays attention to this property, which it will use
  2273. +   to  construct  the  output  file  names for pages to be saved with. Thus,
  2274. +   `-sOutputFile="ram:page"'    yields    the   files   "ram:page0001.ilbm",
  2275. +   "ram:page0002.ilbm", etc.
  2276. + 
  2277. + 
  2278. + Not all devices will pay attention to DPI page resolutions.
  2279. + 
  2280. + 
  2281. + Installing fonts
  2282. + ----------------
  2283. + The   Ghostscript  distribution  includes  a  number  of  public-domain  or
  2284. + otherwise  freely  distributable  fonts.  However, these are mostly of poor
  2285. + quality.  In  order  to  install  a  new  font  or to replace a font with a
  2286. + different one, the following steps are required:
  2287. + 
  2288. + 1. The  font  must  be  converted  to  Ghostscript format. For font files in
  2289. +    BDF-format  (such  as  the  fonts included in the X-Windows distribution)
  2290. +    this  requires  processing  with  the  "bdftops"  script  file (syntax is
  2291. +    "bdftops <Source file> <Destination file>"). Fonts in standard ASCII text
  2292. +    format (".PFA" format) or packed binary file format (".PFB" format), such
  2293. +    as  most  Adobe-Type-1  hinted outline fonts to be purchased from various
  2294. +    vendors, need  not  be converted as this is the native format Ghostscript
  2295. +    expects.
  2296. + 
  2297. + 2. Copy  the resulting output file to the "ghostscript:fonts" drawer, choose
  2298. +    a   suitable   name   (see   the   file  "ghostscript:fontmap"  for  more
  2299. +    information).
  2300. + 
  2301. + 3. Edit  the  file "ghostscript:fontmap" to include the font which will make
  2302. +    it visible to the interpreter. Read this file carefully as it gives basic
  2303. +    hints  how  to  name  a  font file and how to edit the corresponding font
  2304. +    entry.
  2305. + 
  2306. + 
  2307. + The Workbench window
  2308. + --------------------
  2309. + The  default output device (the Workbench window) can be controlled both by
  2310. + mouse and by keyboard:
  2311. + 
  2312. +    Cursor  keys  will  move the currently visible area of the page, holding
  2313. +    down  a  Shift  or  Control  key will increase the size of the scrolling
  2314. +    steps.
  2315. + 
  2316. +    Control+C  and  Escape  will  send the interpreter a signal to terminate
  2317. +    processing, so does clicking the window close button.
  2318. + 
  2319. + By  default  the  page  size  will  always  be  four  times as large as the
  2320. + currently visible portion of the Workbench screen, see the section entitled
  2321. + "Page sizes and resolutions" for more information.
  2322. + 
  2323. + 
  2324. + Troubleshooting
  2325. + ---------------
  2326. + This  interpreter  implementation  requires a lot of chip memory to run. In
  2327. + order  to  assure that enough memory will be available, close any Workbench
  2328. + drawers  or  Shell  windows  which  are  not necessarily require to run the
  2329. + interpreter.
  2330. + 
  2331. + Most  Postscript  documents  use  hard-coded  document page sizes, i.e. the
  2332. + output  page  size  will not be scaled to fit the currently set output page
  2333. + size.  In  these  cases  you may want to make use of the Postscript "scale"
  2334. + operator. Say, you wish to preview the file "butterfly.ps" in just half its
  2335. + size.  Enter  "0.5  dup  scale" and press return, now enter "(butterfly.ps)
  2336. + run"  and  press return; et voilà: the butterfly will be rendered just half
  2337. + as large as usual.
  2338. + 
  2339. + Some  documents,  such  as  "porsche.ps",  contain no "showpage" command to
  2340. + finish  the  batch  job.  In this case, type "showpage" and press return or
  2341. + enter "erasepage" and press return to clear the page.
  2342. + 
  2343. + 
  2344. + About the Amiga port
  2345. + --------------------
  2346. + This  port  is  based  on  Ghostscript  2.6.1. It was implemented using GCC
  2347. + 2.4.5,  so  you  will  have  to refer to the file "COPYING" for copying and
  2348. + licensing information.
  2349. + 
  2350. +                       This Amiga port was created by:
  2351. + 
  2352. +                            Olaf `Olsen' Barthel
  2353. +                              Brabeckstrasse 35
  2354. +                              D-30559 Hannover
  2355. + 
  2356. +                         Federal Republic of Germany
  2357. + 
  2358. +                        eMail: olsen@sourcery.han.de
  2359. + 
  2360. + The source code is included in the "amiga-src" drawer.
  2361. diff -rc --new-file ghostscript-2.6.1-fsf/bdftops ghostscript-2.6.1-amiga/bdftops
  2362. *** ghostscript-2.6.1-fsf/bdftops    Tue Oct 22 07:12:14 1991
  2363. --- ghostscript-2.6.1-amiga/bdftops    Thu Jan 27 21:39:12 1994
  2364. ***************
  2365. *** 1 ****
  2366. ! gs -q -dNODISPLAY -- bdftops.ps $*
  2367. --- 1,4 ----
  2368. ! .key ARGS/F
  2369. ! .bra {
  2370. ! .ket }
  2371. ! gs -q -dNODISPLAY -- bdftops.ps {ARGS}
  2372. diff -rc --new-file ghostscript-2.6.1-fsf/font2c ghostscript-2.6.1-amiga/font2c
  2373. *** ghostscript-2.6.1-fsf/font2c    Tue Feb 25 10:24:34 1992
  2374. --- ghostscript-2.6.1-amiga/font2c    Thu Jan 27 21:39:30 1994
  2375. ***************
  2376. *** 1 ****
  2377. ! gs -q -dNODISPLAY -dWRITESYSTEMDICT -- font2c.ps $*
  2378. --- 1,4 ----
  2379. ! .key ARGS/F
  2380. ! .bra {
  2381. ! .ket }
  2382. ! gs -q -dNODISPLAY -dWRITESYSTEMDICT -- font2c.ps {ARGS}
  2383. diff -rc --new-file ghostscript-2.6.1-fsf/gdevamiga.c ghostscript-2.6.1-amiga/gdevamiga.c
  2384. *** ghostscript-2.6.1-fsf/gdevamiga.c    Thu Jan  1 00:00:00 1970
  2385. --- ghostscript-2.6.1-amiga/gdevamiga.c    Wed Feb  2 13:21:04 1994
  2386. ***************
  2387. *** 0 ****
  2388. --- 1,5537 ----
  2389. + /* Copyright (C) 1992 Aladdin Enterprises.  All rights reserved.
  2390. +    Distributed by Free Software Foundation, Inc.
  2391. + 
  2392. + This file is part of Ghostscript.
  2393. + 
  2394. + Ghostscript is distributed in the hope that it will be useful, but
  2395. + WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  2396. + to anyone for the consequences of using it or for whether it serves any
  2397. + particular purpose or works at all, unless he says so in writing.  Refer
  2398. + to the Ghostscript General Public License for full details.
  2399. + 
  2400. + Everyone is granted permission to copy, modify and redistribute
  2401. + Ghostscript, but only under the conditions described in the Ghostscript
  2402. + General Public License.  A copy of this license is supposed to have been
  2403. + given to you along with Ghostscript so you can know your rights and
  2404. + responsibilities.  It should be in a file named COPYING.  Among other
  2405. + things, the copyright notice and this notice must be preserved on all
  2406. + copies.  */
  2407. + 
  2408. + /* gdevamiga.c */
  2409. + /* Amiga driver for Ghostscript library, requires Kickstart 2.04 or higher */
  2410. + 
  2411. + /* Written by Olaf `Olsen' Barthel, last change 29 January 1994
  2412. +  *
  2413. +  * My address:   Olaf Barthel
  2414. +  *               Brabeckstrasse 35
  2415. +  *             D-30559 Hannover
  2416. +  *
  2417. +  *      eMail:   olsen@sourcery.han.de
  2418. +  */
  2419. + 
  2420. + #define CheckIO foo123
  2421. + #define ushort foo
  2422. + 
  2423. + #include <intuition/intuitionbase.h>
  2424. + #include <intuition/gadgetclass.h>
  2425. + #include <intuition/imageclass.h>
  2426. + #include <intuition/icclass.h>
  2427. + #include <graphics/displayinfo.h>
  2428. + #include <libraries/iffparse.h>
  2429. + #include <graphics/gfxbase.h>
  2430. + #include <devices/printer.h>
  2431. + #include <devices/prtbase.h>
  2432. + #include <devices/prtgfx.h>
  2433. + #include <libraries/asl.h>
  2434. + #include <exec/memory.h>
  2435. + #include <clib/macros.h>
  2436. + #include <dos/dostags.h>
  2437. + #include <dos/rdargs.h>
  2438. + #include <dos/var.h>
  2439. + #include <dos/dos.h>
  2440. + 
  2441. + #include <clib/intuition_protos.h>
  2442. + #include <clib/graphics_protos.h>
  2443. + #include <clib/iffparse_protos.h>
  2444. + #include <clib/utility_protos.h>
  2445. + #include <clib/layers_protos.h>
  2446. + #include <clib/exec_protos.h>
  2447. + #include <clib/dos_protos.h>
  2448. + #include <clib/asl_protos.h>
  2449. + 
  2450. + /*
  2451. + #include <inline/stubs.h>
  2452. + #include <inline/iffparse.h>
  2453. + #include <inline/utility.h>
  2454. + #include <inline/exec.h>
  2455. + #include <inline/dos.h>
  2456. + */
  2457. + 
  2458. + #include <string.h>
  2459. + #include <signal.h>
  2460. + 
  2461. + #undef ushort
  2462. + #undef CheckIO
  2463. + 
  2464. + struct IORequest *CheckIO(struct IORequest *);
  2465. + 
  2466. + #include "gx.h"        /* for gx_bitmap; includes std.h */
  2467. + #include "gsmatrix.h"    /* needed for gxdevice.h */
  2468. + #include "gxdevice.h"
  2469. + #include "gserrors.h"
  2470. + #include "gsprops.h"
  2471. + 
  2472. +     /* Here is how to select a default page size format:
  2473. +      *
  2474. +      * Either enter include a line such as
  2475. +      *
  2476. +      *   #define AMIGA_PAGE_A4 1
  2477. +      *
  2478. +      * Somewhere above in this module, or edit the makefile
  2479. +      * to feature the option
  2480. +      *
  2481. +      *   -dAMIGA_PAGE_A4
  2482. +      *
  2483. +      * among the device specific flags. Available default page
  2484. +      * size formats are:
  2485. +      *
  2486. +      *   AMIGA_PAGE_A4         European A4 page size (default)
  2487. +      *   AMIGA_PAGE_A3         European A3 page size
  2488. +      *   AMIGA_PAGE_LETTER     US letter page size
  2489. +      *   AMIGA_PAGE_LEGAL      US legal page size
  2490. +      *   AMIGA_PAGE_LEDGER     US ledger paper size
  2491. +      *   AMIGA_PAGE_TABLOID    US tabloid paper size
  2492. +      */
  2493. + 
  2494. +     /* Select the default paper size if none specified. */
  2495. + 
  2496. + #if !defined(AMIGA_PAGE_A4) && !defined(AMIGA_PAGE_A3) && !defined(AMIGA_PAGE_LETTER) && !defined(AMIGA_PAGE_LEGAL) && !defined(AMIGA_PAGE_LEDGER) && !defined(AMIGA_PAGE_TABLOID)
  2497. + /*#define AMIGA_PAGE_A4 1*/
  2498. + #define AMIGA_PAGE_A3 1
  2499. + #endif    /* PAGE SIZE */
  2500. + 
  2501. +     /* A4 page size (in inches!) */
  2502. + 
  2503. + #ifdef AMIGA_PAGE_A4
  2504. + #define DEFAULT_WIDTH        8.2
  2505. + #define DEFAULT_HEIGHT        11.6
  2506. + #endif    /* AMIGA_PAGE_A4 */
  2507. + 
  2508. +     /* A3 page size */
  2509. + 
  2510. + #ifdef AMIGA_PAGE_A3
  2511. + #define DEFAULT_WIDTH        11.6
  2512. + #define DEFAULT_HEIGHT        16.5
  2513. + #endif    /* AMIGA_PAGE_A4 */
  2514. + 
  2515. +     /* US letter page size */
  2516. + 
  2517. + #ifdef AMIGA_PAGE_LETTER
  2518. + #define DEFAULT_WIDTH        8.5
  2519. + #define DEFAULT_HEIGHT        11.0
  2520. + #endif    /* AMIGA_PAGE_LETTER */
  2521. + 
  2522. +     /* US legal page size */
  2523. + 
  2524. + #ifdef AMIGA_PAGE_LEGAL
  2525. + #define DEFAULT_WIDTH        8.5
  2526. + #define DEFAULT_HEIGHT        14.0
  2527. + #endif    /* AMIGA_PAGE_LEGAL */
  2528. + 
  2529. +     /* US ledger page size */
  2530. + 
  2531. + #ifdef AMIGA_PAGE_LEDGER
  2532. + #define DEFAULT_WIDTH        16.0
  2533. + #define DEFAULT_HEIGHT        11.0
  2534. + #endif    /* AMIGA_PAGE_LEDGER */
  2535. + 
  2536. +     /* US tabloid page size */
  2537. + 
  2538. + #ifdef AMIGA_PAGE_TABLOID
  2539. + #define DEFAULT_WIDTH        11.0
  2540. + #define DEFAULT_HEIGHT        17.0
  2541. + #endif    /* AMIGA_PAGE_LEDGER */
  2542. + 
  2543. +     /* Default output file name. */
  2544. + 
  2545. + #define DEFAULT_FILENAME    "gs_page"
  2546. + 
  2547. +     /* Turn a byte into a 24 bit colour value. */
  2548. + 
  2549. + #define SPREAD(i)    ((ULONG)(i) << 24 | (ULONG)(i) << 16 | (ULONG)(i) << 8 | (i))
  2550. + 
  2551. +     /* Scroller gadget IDs. */
  2552. + 
  2553. + enum    {    VERTICAL_SCROLLER,    HORIZONTAL_SCROLLER,
  2554. +         UP_ARROW,        DOWN_ARROW,
  2555. +         LEFT_ARROW,        RIGHT_ARROW,
  2556. + 
  2557. +         GADGET_COUNT };
  2558. + 
  2559. +     /* Scroller arrow IDs. */
  2560. + 
  2561. + enum    {    UP_IMAGE,        DOWN_IMAGE,
  2562. +         LEFT_IMAGE,        RIGHT_IMAGE,
  2563. + 
  2564. +         IMAGE_COUNT };
  2565. + 
  2566. +     /* Codes for the MoveAround() routine. */
  2567. + 
  2568. + enum    {    MOVE_MIN,MOVE_FAR_DOWN,MOVE_DOWN,MOVE_UP,MOVE_FAR_UP,MOVE_MAX };
  2569. + 
  2570. +     /* Some handy bit masks. */
  2571. + 
  2572. + #define SIG_KILL    SIGBREAKF_CTRL_C
  2573. + #define SIG_HANDSHAKE    SIGF_SINGLE
  2574. + 
  2575. +     /* Static dimensions of scroller arrows. */
  2576. + 
  2577. + #define ARROW_WIDTH    16
  2578. + #define ARROW_HEIGHT    11
  2579. + 
  2580. +     /* The `Help' key raw code. */
  2581. + 
  2582. + #define HELP_CODE    95
  2583. + 
  2584. +     /* Minimum window inner area dimension. */
  2585. + 
  2586. + #define MINIMUM_WIDTH    64
  2587. + #define MINIMUM_HEIGHT    32
  2588. + 
  2589. +     /* Handy superbitmap window macros. */
  2590. + 
  2591. + #define LAYERXOFFSET(w)    ((w) -> RPort -> Layer -> Scroll_X)
  2592. + #define LAYERYOFFSET(w)    ((w) -> RPort -> Layer -> Scroll_Y)
  2593. + 
  2594. +     /* User input to listen to. */
  2595. + 
  2596. + #define IDCMP_FLAGS    (IDCMP_IDCMPUPDATE | IDCMP_GADGETUP | IDCMP_GADGETDOWN | IDCMP_MOUSEMOVE | IDCMP_NEWSIZE | IDCMP_CLOSEWINDOW | IDCMP_VANILLAKEY | IDCMP_RAWKEY)
  2597. + 
  2598. +     /* Chunk IDs. */
  2599. + 
  2600. + #define ID_ILBM        MAKE_ID('I','L','B','M')
  2601. + #define ID_BMHD        MAKE_ID('B','M','H','D')
  2602. + #define ID_CMAP        MAKE_ID('C','M','A','P')
  2603. + #define ID_CAMG        MAKE_ID('C','A','M','G')
  2604. + #define ID_ANNO        MAKE_ID('A','N','N','O')
  2605. + #define ID_DPI        MAKE_ID('D','P','I',' ')
  2606. + #define ID_BODY        MAKE_ID('B','O','D','Y')
  2607. + 
  2608. +     /* Chunk contents definitions. */
  2609. + 
  2610. + typedef struct
  2611. + {
  2612. +     UWORD        w,h;            /* raster width & height in pixels */
  2613. +     WORD        x,y;            /* position for this image */
  2614. +     UBYTE        nPlanes;        /* # source bitplanes */
  2615. +     UBYTE        masking;        /* masking technique */
  2616. +     UBYTE        compression;        /* compression algoithm */
  2617. +     UBYTE        pad1;            /* UNUSED.  For consistency, put 0 here.*/
  2618. +     UWORD        transparentColor;    /* transparent "color number" */
  2619. +     UBYTE        xAspect,yAspect;    /* aspect ratio, a rational number x/y */
  2620. +     WORD        pageWidth,pageHeight;    /* source "page" size in pixels */
  2621. + } BitMapHeader;
  2622. + 
  2623. + typedef struct
  2624. + {
  2625. +     UWORD        dpi_x;
  2626. +     UWORD        dpi_y;
  2627. + } DPIHeader;
  2628. + 
  2629. +     /* Packer modes. */
  2630. + 
  2631. + #define DUMP        0
  2632. + #define RUN        1
  2633. + 
  2634. +     /* Minimum data run size, maximum data run size and maximum cache size. */
  2635. + 
  2636. + #define MINRUN        3
  2637. + #define MAXRUN        128
  2638. + #define MAXDAT        128
  2639. + 
  2640. +     /* This module actually implements four different Amiga based
  2641. +      * devices. As the rendering operations are all the same,
  2642. +      * one single device definition is sufficient.
  2643. +      */
  2644. + 
  2645. + typedef struct gx_device_amiga
  2646. + {
  2647. +     gx_device_common;
  2648. + 
  2649. +     struct Screen    *screen;    /* Any screen */
  2650. +     struct Window    *window;    /* Some window to be opened on the Workbench screen */
  2651. + 
  2652. +     LONG         super_width,    /* Superbitmap width */
  2653. +              super_height;    /* Superbitmap height */
  2654. + 
  2655. +     struct BitMap    *super_bitmap;    /* Window superbitmap area */
  2656. +     struct Gadget    **gadget;    /* Scroller gadgets */
  2657. +     struct Image    **image;    /* Scroller arrow images */
  2658. + 
  2659. +     struct Task    *dispatcher;    /* Slider dispatch task */
  2660. +     struct Process    *main;        /* Main program */
  2661. + 
  2662. +     struct RastPort    *rport;        /* Rendering area */
  2663. + 
  2664. +     struct IODRPReq *printer;    /* Printer interface data */
  2665. +     struct MsgPort    *port;        /* Printer io data */
  2666. + 
  2667. +     struct ColorMap    *colormap;    /* A black/white colour map */
  2668. +     struct BitMap    *bitmap;    /* Rendering bitmap data */
  2669. +     PLANEPTR     bitplane;    /* Rendering raster */
  2670. + 
  2671. +     gx_color_index     last_pen;    /* The last colour set */
  2672. + 
  2673. +     float         page_width,    /* The page width */
  2674. +              page_height;    /* The page height */
  2675. +     char         file_name[256];/* The output file name */
  2676. +     int         page_count;    /* The page number counter */
  2677. + 
  2678. +     int         cube_size;    /* Colour cube size, 0 for b/w */
  2679. +     struct RastPort    *temp_rport;    /* Temporary raster port for pixmap imaging. */
  2680. +     UBYTE        *temp_array;    /* Temporary colour manipulation array. */
  2681. +     LONG        *pens;
  2682. + } gx_device_amiga;
  2683. + 
  2684. +     /* Function prototypes */
  2685. + 
  2686. + VOID            set_mono_device(gx_device_amiga *dev);
  2687. + VOID            set_colour_device(gx_device_amiga *dev,int cube_size,LONG *pens);
  2688. + VOID            set_colour_printer_device(gx_device_amiga *dev,LONG CubeSize);
  2689. + VOID            DeleteBitMap(struct BitMap *BitMap,BOOL Private);
  2690. + struct BitMap *        CreateBitMap(LONG Width,LONG Height,LONG Depth,ULONG Flags,struct BitMap *Friend,BOOL Private);
  2691. + VOID            DeleteTempRPort(struct RastPort *Temp);
  2692. + struct RastPort *    CreateTempRPort(struct RastPort *Source);
  2693. + LONG            Euclid(LONG a,LONG b);
  2694. + BYTE *            PutDump(register BYTE *Destination,register LONG Count);
  2695. + BYTE *            PutRun(register BYTE *Destination,LONG Count,WORD Char);
  2696. + LONG            PackRow(PLANEPTR *SourcePtr,register BYTE *Destination,LONG RowSize);
  2697. + BOOL            PutBODY(struct IFFHandle *Handle,struct BitMap *BitMap);
  2698. + BOOL            PutANNO(struct IFFHandle *Handle);
  2699. + BOOL            PutCAMG(struct IFFHandle *Handle);
  2700. + BOOL            PutCMAP(struct IFFHandle *Handle);
  2701. + BOOL            PutDPI(struct IFFHandle *Handle,UWORD X_DPI,UWORD Y_DPI);
  2702. + BOOL            PutBMHD(struct IFFHandle *Handle,LONG Width,LONG Height,UWORD X_DPI,UWORD Y_DPI);
  2703. + BOOL            SaveBitMap(STRPTR Name,struct BitMap *BitMap,LONG Width,LONG Height,UWORD X_DPI,UWORD Y_DPI);
  2704. + float            GetInches(STRPTR Buffer);
  2705. + VOID            DispatchTask(VOID);
  2706. + VOID            DeleteScrollers(gx_device *dev);
  2707. + BOOL            CreateScrollers(gx_device *dev,struct Screen *Screen);
  2708. + VOID            WindowResize(gx_device *dev);
  2709. + VOID            WindowUpdate(struct Gadget *Gadget,gx_device *dev);
  2710. + VOID            MoveAround(struct Gadget *Gadget,LONG How,gx_device *dev);
  2711. + VOID            DispatchSuperWindow(gx_device *dev);
  2712. + void            devcleanup(VOID);
  2713. + gx_color_index        amiga_map_rgb_color(gx_device *dev,gx_color_value red,gx_color_value green,gx_color_value blue);
  2714. + int            amiga_map_color_rgb(gx_device *dev,gx_color_index color,gx_color_value rgb[3]);
  2715. + LONG *            AllocatePens(struct ViewPort *VPort,LONG CubeSize);
  2716. + int            amiga_open_default(gx_device *dev);
  2717. + int            amiga_open_low(gx_device *dev);
  2718. + int            amiga_open_high(gx_device *dev);
  2719. + int            amiga_open_super(gx_device *dev);
  2720. + int            amiga_open_a2024(gx_device *dev);
  2721. + int            amiga_open_picassoii(gx_device *dev);
  2722. + int            amiga_open_custom(gx_device *dev);
  2723. + int            amiga_open_printer(gx_device *dev);
  2724. + int            amiga_output_page_printer(gx_device *dev,int num_copies,int flush);
  2725. + int            amiga_close_printer(gx_device *dev);
  2726. + int            amiga_get_bits(gx_device *dev,int y,byte *str,byte **actual_data);
  2727. + int            amiga_open(gx_device *dev,ULONG Mode);
  2728. + int            amiga_output_page(gx_device *dev,int num_copies,int flush);
  2729. + int            amiga_close(gx_device *dev);
  2730. + int            amiga_fill_rectangle(gx_device *dev,int x,int y,int w,int h,gx_color_index color);
  2731. + int            amiga_copy_mono(gx_device *dev,const UBYTE *base,int sourcex,int raster,gx_bitmap_id id,int x,int y,int w,int h,gx_color_index zero,gx_color_index one);
  2732. + int            amiga_copy_color(gx_device *dev,const UBYTE *base,int sourcex,int raster,gx_bitmap_id id,int x,int y,int w,int h);
  2733. + int            amiga_draw_line(gx_device *dev,int x0,int y0,int x1,int y1,gx_color_index color);
  2734. + int            amiga_copy_mono_raw(gx_device *dev,const UBYTE *base,int sourcex,int raster,gx_bitmap_id id,int x,int y,int w,int h,gx_color_index zero,gx_color_index one);
  2735. + int            amiga_copy_color_raw(gx_device *dev,const UBYTE *base,int sourcex,int raster,gx_bitmap_id id,int x,int y,int w,int h);
  2736. + int            amiga_fill_rectangle_raw(gx_device *dev,int x,int y,int w,int h,gx_color_index color);
  2737. + int            amiga_draw_line_raw(gx_device *dev,int x,int y,int x1,int y1,gx_color_index color);
  2738. + int            amiga_open_ilbm(gx_device *dev);
  2739. + int            amiga_output_page_ilbm(gx_device *dev,int num_copies,int flush);
  2740. + int            amiga_close_ilbm(gx_device *dev);
  2741. + int            amiga_get_props(gx_device *dev,gs_prop_item *plist);
  2742. + int            amiga_put_props(gx_device *dev,gs_prop_item *plist,int count);
  2743. + gx_color_index        amiga_color_map_rgb_color(gx_device *dev,gx_color_value red,gx_color_value green,gx_color_value blue);
  2744. + int            amiga_color_map_color_rgb(gx_device *dev,gx_color_index color,gx_color_value rgb[3]);
  2745. + gx_color_index        amiga_color_map_rgb_color_pen(gx_device *dev,gx_color_value red,gx_color_value green,gx_color_value blue);
  2746. + int            amiga_color_map_color_rgb_pen(gx_device *dev,gx_color_index color,gx_color_value rgb[3]);
  2747. + int            amiga_copy_color8(gx_device *dev,const UBYTE *base,int sourcex,int raster,gx_bitmap_id id,int x,int y,int w,int h);
  2748. + int            amiga_copy_mono_raw_color(gx_device *dev,const UBYTE *base,int sourcex,int raster,gx_bitmap_id id,int x,int y,int w,int h,gx_color_index zero,gx_color_index one);
  2749. + int            amiga_copy_color_raw_color16(gx_device *dev,const UBYTE *data,int sourcex,int raster,gx_bitmap_id id,int x,int y,int w,int h);
  2750. + int            amiga_fill_rectangle_raw_color(gx_device *dev,int x,int y,int w,int h,gx_color_index color);
  2751. + int            amiga_draw_line_raw_color(gx_device *dev,int x,int y,int x1,int y1,gx_color_index color);
  2752. + 
  2753. +     /* External reference to some libraries, required for version checking, etc. */
  2754. + 
  2755. + extern struct GfxBase *GfxBase;
  2756. + extern struct Library *AslBase;
  2757. + 
  2758. +     /* Number of packed bytes and pack buffer. */
  2759. + 
  2760. + LONG    PackedBytes;
  2761. + BYTE    Buffer[MAXDAT + 1];
  2762. + 
  2763. +     /* Bit masks. */
  2764. + 
  2765. + STATIC UBYTE    shift[8] = { 128, 64, 32, 16,  8,  4,  2,  1 },
  2766. +         masks[8] = { 127,191,223,239,247,251,253,254 };
  2767. + 
  2768. +     /* Device routine jump tables */
  2769. + 
  2770. + STATIC gx_device_procs amiga_default_procs =
  2771. + {
  2772. +     amiga_open_default,
  2773. +     gx_default_get_initial_matrix,
  2774. +     gx_default_sync_output,
  2775. +     amiga_output_page,
  2776. +     amiga_close,
  2777. +     amiga_map_rgb_color,
  2778. +     amiga_map_color_rgb,
  2779. +     amiga_fill_rectangle,
  2780. +     gx_default_tile_rectangle,
  2781. +     amiga_copy_mono,
  2782. +     amiga_copy_color,
  2783. +     amiga_draw_line,
  2784. +     gx_default_get_bits,
  2785. +     amiga_get_props,
  2786. +     amiga_put_props
  2787. + };
  2788. + 
  2789. + STATIC gx_device_procs amiga_low_procs =
  2790. + {
  2791. +     amiga_open_low,
  2792. +     gx_default_get_initial_matrix,
  2793. +     gx_default_sync_output,
  2794. +     amiga_output_page,
  2795. +     amiga_close,
  2796. +     amiga_map_rgb_color,
  2797. +     amiga_map_color_rgb,
  2798. +     amiga_fill_rectangle,
  2799. +     gx_default_tile_rectangle,
  2800. +     amiga_copy_mono,
  2801. +     amiga_copy_color,
  2802. +     amiga_draw_line,
  2803. +     gx_default_get_bits,
  2804. +     amiga_get_props,
  2805. +     amiga_put_props
  2806. + };
  2807. + 
  2808. + STATIC gx_device_procs amiga_high_procs =
  2809. + {
  2810. +     amiga_open_high,
  2811. +     gx_default_get_initial_matrix,
  2812. +     gx_default_sync_output,
  2813. +     amiga_output_page,
  2814. +     amiga_close,
  2815. +     amiga_map_rgb_color,
  2816. +     amiga_map_color_rgb,
  2817. +     amiga_fill_rectangle,
  2818. +     gx_default_tile_rectangle,
  2819. +     amiga_copy_mono,
  2820. +     amiga_copy_color,
  2821. +     amiga_draw_line,
  2822. +     gx_default_get_bits,
  2823. +     amiga_get_props,
  2824. +     amiga_put_props
  2825. + };
  2826. + 
  2827. + STATIC gx_device_procs amiga_super_procs =
  2828. + {
  2829. +     amiga_open_super,
  2830. +     gx_default_get_initial_matrix,
  2831. +     gx_default_sync_output,
  2832. +     amiga_output_page,
  2833. +     amiga_close,
  2834. +     amiga_map_rgb_color,
  2835. +     amiga_map_color_rgb,
  2836. +     amiga_fill_rectangle,
  2837. +     gx_default_tile_rectangle,
  2838. +     amiga_copy_mono,
  2839. +     amiga_copy_color,
  2840. +     amiga_draw_line,
  2841. +     gx_default_get_bits,
  2842. +     amiga_get_props,
  2843. +     amiga_put_props
  2844. + };
  2845. + 
  2846. + STATIC gx_device_procs amiga_a2024_procs =
  2847. + {
  2848. +     amiga_open_a2024,
  2849. +     gx_default_get_initial_matrix,
  2850. +     gx_default_sync_output,
  2851. +     amiga_output_page,
  2852. +     amiga_close,
  2853. +     amiga_map_rgb_color,
  2854. +     amiga_map_color_rgb,
  2855. +     amiga_fill_rectangle,
  2856. +     gx_default_tile_rectangle,
  2857. +     amiga_copy_mono,
  2858. +     amiga_copy_color,
  2859. +     amiga_draw_line,
  2860. +     gx_default_get_bits,
  2861. +     amiga_get_props,
  2862. +     amiga_put_props
  2863. + };
  2864. + 
  2865. + STATIC gx_device_procs amiga_picassoii_procs =
  2866. + {
  2867. +     amiga_open_picassoii,
  2868. +     gx_default_get_initial_matrix,
  2869. +     gx_default_sync_output,
  2870. +     amiga_output_page,
  2871. +     amiga_close,
  2872. +     amiga_map_rgb_color,
  2873. +     amiga_map_color_rgb,
  2874. +     amiga_fill_rectangle,
  2875. +     gx_default_tile_rectangle,
  2876. +     amiga_copy_mono,
  2877. +     amiga_copy_color,
  2878. +     amiga_draw_line,
  2879. +     gx_default_get_bits,
  2880. +     amiga_get_props,
  2881. +     amiga_put_props
  2882. + };
  2883. + 
  2884. + STATIC gx_device_procs amiga_custom_procs =
  2885. + {
  2886. +     amiga_open_custom,
  2887. +     gx_default_get_initial_matrix,
  2888. +     gx_default_sync_output,
  2889. +     amiga_output_page,
  2890. +     amiga_close,
  2891. +     amiga_map_rgb_color,
  2892. +     amiga_map_color_rgb,
  2893. +     amiga_fill_rectangle,
  2894. +     gx_default_tile_rectangle,
  2895. +     amiga_copy_mono,
  2896. +     amiga_copy_color,
  2897. +     amiga_draw_line,
  2898. +     gx_default_get_bits,
  2899. +     amiga_get_props,
  2900. +     amiga_put_props
  2901. + };
  2902. + 
  2903. + STATIC gx_device_procs amiga_printer_procs =
  2904. + {
  2905. +     amiga_open_printer,
  2906. +     gx_default_get_initial_matrix,
  2907. +     gx_default_sync_output,
  2908. +     amiga_output_page_printer,
  2909. +     amiga_close_printer,
  2910. +     amiga_map_rgb_color,
  2911. +     amiga_map_color_rgb,
  2912. +     amiga_fill_rectangle_raw,
  2913. +     gx_default_tile_rectangle,
  2914. +     amiga_copy_mono_raw,
  2915. +     amiga_copy_color_raw,
  2916. +     amiga_draw_line_raw,
  2917. +     amiga_get_bits,
  2918. +     amiga_get_props,
  2919. +     amiga_put_props
  2920. + };
  2921. + 
  2922. + STATIC gx_device_procs amiga_ilbm_procs =
  2923. + {
  2924. +     amiga_open_ilbm,
  2925. +     gx_default_get_initial_matrix,
  2926. +     gx_default_sync_output,
  2927. +     amiga_output_page_ilbm,
  2928. +     amiga_close_ilbm,
  2929. +     amiga_map_rgb_color,
  2930. +     amiga_map_color_rgb,
  2931. +     amiga_fill_rectangle_raw,
  2932. +     gx_default_tile_rectangle,
  2933. +     amiga_copy_mono_raw,
  2934. +     amiga_copy_color_raw,
  2935. +     amiga_draw_line_raw,
  2936. +     amiga_get_bits,
  2937. +     amiga_get_props,
  2938. +     amiga_put_props
  2939. + };
  2940. + 
  2941. +     /* Default device: opens a window on the Workbench screen and renders into it */
  2942. + 
  2943. + gx_device_amiga gs_amiga_device =
  2944. + {
  2945. +     sizeof(gx_device_amiga),    /* params_size */
  2946. +     &amiga_default_procs,        /* procs */
  2947. +     "amiga",            /* dname */
  2948. +     0, 0,                /* width, height */
  2949. +     72.27, 72.27,            /* xdpi, ydpi */
  2950. +     no_margins,            /* margins */
  2951. +     dci_black_and_white,        /* color info */
  2952. +     0,                /* is_open */
  2953. + 
  2954. +     NULL,                /* screen */
  2955. +     NULL,                /* window */
  2956. + 
  2957. +     0,                /* super_width */
  2958. +     0,                /* super_height */
  2959. +     NULL,                /* super_bitmap */
  2960. +     NULL,                /* gadget */
  2961. +     NULL,                /* image */
  2962. + 
  2963. +     NULL,                /* dispatcher */
  2964. +     NULL,                /* main */
  2965. + 
  2966. +     NULL,                /* rport */
  2967. + 
  2968. +     NULL,                /* printer */
  2969. +     NULL,                /* port */
  2970. +     NULL,                /* colormap */
  2971. +     NULL,                /* bitmap */
  2972. +     NULL,                /* bitplane */
  2973. + 
  2974. +     1,                /* last_pen */
  2975. + 
  2976. +     DEFAULT_WIDTH,            /* page width */
  2977. +     DEFAULT_HEIGHT,            /* page height */
  2978. +     DEFAULT_FILENAME,        /* output file */
  2979. +     1,                /* page counter */
  2980. + 
  2981. +     0,                /* cube_size */
  2982. +     NULL,                /* temp_rport */
  2983. +     NULL,                /* temp_array */
  2984. +     NULL                /* pens */
  2985. + };
  2986. + 
  2987. +     /* Low resolution device: opens a lores custom screen and renders into it */
  2988. + 
  2989. + gx_device_amiga gs_amiga_low_device =
  2990. + {
  2991. +     sizeof(gx_device_amiga),    /* params_size */
  2992. +     &amiga_low_procs,        /* procs */
  2993. +     "amiga_low",            /* dname */
  2994. +     0, 0,                /* width, height */
  2995. +     72.27, 72.27,            /* xdpi, ydpi */
  2996. +     no_margins,            /* margins */
  2997. +     dci_black_and_white,        /* color info */
  2998. +     0,                /* is_open */
  2999. + 
  3000. +     NULL,                /* screen */
  3001. +     NULL,                /* window */
  3002. + 
  3003. +     0,                /* super_width */
  3004. +     0,                /* super_height */
  3005. +     NULL,                /* super_bitmap */
  3006. +     NULL,                /* gadget */
  3007. +     NULL,                /* image */
  3008. + 
  3009. +     NULL,                /* dispatcher */
  3010. +     NULL,                /* main */
  3011. + 
  3012. +     NULL,                /* rport */
  3013. + 
  3014. +     NULL,                /* printer */
  3015. +     NULL,                /* port */
  3016. +     NULL,                /* colormap */
  3017. +     NULL,                /* bitmap */
  3018. +     NULL,                /* bitplane */
  3019. + 
  3020. +     1,                /* last_pen */
  3021. + 
  3022. +     DEFAULT_WIDTH,            /* page width */
  3023. +     DEFAULT_HEIGHT,            /* page height */
  3024. +     DEFAULT_FILENAME,        /* output file */
  3025. +     1,                /* page counter */
  3026. + 
  3027. +     0,                /* cube_size */
  3028. +     NULL,                /* temp_rport */
  3029. +     NULL,                /* temp_array */
  3030. +     NULL                /* pens */
  3031. + };
  3032. + 
  3033. +     /* High resolution device: opens a highres-interlaced custom screen */
  3034. + 
  3035. + gx_device_amiga gs_amiga_high_device =
  3036. + {
  3037. +     sizeof(gx_device_amiga),    /* params_size */
  3038. +     &amiga_high_procs,        /* procs */
  3039. +     "amiga_high",            /* dname */
  3040. +     0, 0,                /* width, height */
  3041. +     72.27, 72.27,            /* xdpi, ydpi */
  3042. +     no_margins,            /* margins */
  3043. +     dci_black_and_white,        /* color info */
  3044. +     0,                /* is_open */
  3045. + 
  3046. +     NULL,                /* screen */
  3047. +     NULL,                /* window */
  3048. + 
  3049. +     0,                /* super_width */
  3050. +     0,                /* super_height */
  3051. +     NULL,                /* super_bitmap */
  3052. +     NULL,                /* gadget */
  3053. +     NULL,                /* image */
  3054. + 
  3055. +     NULL,                /* dispatcher */
  3056. +     NULL,                /* main */
  3057. + 
  3058. +     NULL,                /* rport */
  3059. + 
  3060. +     NULL,                /* printer */
  3061. +     NULL,                /* port */
  3062. +     NULL,                /* colormap */
  3063. +     NULL,                /* bitmap */
  3064. +     NULL,                /* bitplane */
  3065. + 
  3066. +     1,                /* last_pen */
  3067. + 
  3068. +     DEFAULT_WIDTH,            /* page width */
  3069. +     DEFAULT_HEIGHT,            /* page height */
  3070. +     DEFAULT_FILENAME,        /* output file */
  3071. +     1,                /* page counter */
  3072. + 
  3073. +     0,                /* cube_size */
  3074. +     NULL,                /* temp_rport */
  3075. +     NULL,                /* temp_array */
  3076. +     NULL                /* pens */
  3077. + };
  3078. + 
  3079. +     /* Super high resolution device: opens a super-highres-interlaced custom screen */
  3080. + 
  3081. + gx_device_amiga gs_amiga_super_device =
  3082. + {
  3083. +     sizeof(gx_device_amiga),    /* params_size */
  3084. +     &amiga_super_procs,        /* procs */
  3085. +     "amiga_super",            /* dname */
  3086. +     0, 0,                /* width, height */
  3087. +     72.27, 72.27,            /* xdpi, ydpi */
  3088. +     no_margins,            /* margins */
  3089. +     dci_black_and_white,        /* color info */
  3090. +     0,                /* is_open */
  3091. + 
  3092. +     NULL,                /* screen */
  3093. +     NULL,                /* window */
  3094. + 
  3095. +     0,                /* super_width */
  3096. +     0,                /* super_height */
  3097. +     NULL,                /* super_bitmap */
  3098. +     NULL,                /* gadget */
  3099. +     NULL,                /* image */
  3100. + 
  3101. +     NULL,                /* dispatcher */
  3102. +     NULL,                /* main */
  3103. + 
  3104. +     NULL,                /* rport */
  3105. + 
  3106. +     NULL,                /* printer */
  3107. +     NULL,                /* port */
  3108. +     NULL,                /* colormap */
  3109. +     NULL,                /* bitmap */
  3110. +     NULL,                /* bitplane */
  3111. + 
  3112. +     1,                /* last_pen */
  3113. + 
  3114. +     DEFAULT_WIDTH,            /* page width */
  3115. +     DEFAULT_HEIGHT,            /* page height */
  3116. +     DEFAULT_FILENAME,        /* output file */
  3117. +     1,                /* page counter */
  3118. + 
  3119. +     0,                /* cube_size */
  3120. +     NULL,                /* temp_rport */
  3121. +     NULL,                /* temp_array */
  3122. +     NULL                /* pens */
  3123. + };
  3124. + 
  3125. +     /* A2024 device: opens an A2024 custom screen */
  3126. + 
  3127. + gx_device_amiga gs_amiga_a2024_device =
  3128. + {
  3129. +     sizeof(gx_device_amiga),    /* params_size */
  3130. +     &amiga_a2024_procs,        /* procs */
  3131. +     "amiga_a2024",            /* dname */
  3132. +     0, 0,                /* width, height */
  3133. +     72.27, 72.27,            /* xdpi, ydpi */
  3134. +     no_margins,            /* margins */
  3135. +     dci_black_and_white,        /* color info */
  3136. +     0,                /* is_open */
  3137. + 
  3138. +     NULL,                /* screen */
  3139. +     NULL,                /* window */
  3140. + 
  3141. +     0,                /* super_width */
  3142. +     0,                /* super_height */
  3143. +     NULL,                /* super_bitmap */
  3144. +     NULL,                /* gadget */
  3145. +     NULL,                /* image */
  3146. + 
  3147. +     NULL,                /* dispatcher */
  3148. +     NULL,                /* main */
  3149. + 
  3150. +     NULL,                /* rport */
  3151. + 
  3152. +     NULL,                /* printer */
  3153. +     NULL,                /* port */
  3154. +     NULL,                /* colormap */
  3155. +     NULL,                /* bitmap */
  3156. +     NULL,                /* bitplane */
  3157. + 
  3158. +     1,                /* last_pen */
  3159. + 
  3160. +     DEFAULT_WIDTH,            /* page width */
  3161. +     DEFAULT_HEIGHT,            /* page height */
  3162. +     DEFAULT_FILENAME,        /* output file */
  3163. +     1,                /* page counter */
  3164. + 
  3165. +     0,                /* cube_size */
  3166. +     NULL,                /* temp_rport */
  3167. +     NULL,                /* temp_array */
  3168. +     NULL                /* pens */
  3169. + };
  3170. + 
  3171. +     /* Picasso II device: opens a Picasso II custom screen */
  3172. + 
  3173. + gx_device_amiga gs_amiga_picassoii_device =
  3174. + {
  3175. +     sizeof(gx_device_amiga),    /* params_size */
  3176. +     &amiga_picassoii_procs,        /* procs */
  3177. +     "amiga_picassoii",        /* dname */
  3178. +     0, 0,                /* width, height */
  3179. +     72.27, 72.27,            /* xdpi, ydpi */
  3180. +     no_margins,            /* margins */
  3181. +     dci_black_and_white,        /* color info */
  3182. +     0,                /* is_open */
  3183. + 
  3184. +     NULL,                /* screen */
  3185. +     NULL,                /* window */
  3186. + 
  3187. +     0,                /* super_width */
  3188. +     0,                /* super_height */
  3189. +     NULL,                /* super_bitmap */
  3190. +     NULL,                /* gadget */
  3191. +     NULL,                /* image */
  3192. + 
  3193. +     NULL,                /* dispatcher */
  3194. +     NULL,                /* main */
  3195. + 
  3196. +     NULL,                /* rport */
  3197. + 
  3198. +     NULL,                /* printer */
  3199. +     NULL,                /* port */
  3200. +     NULL,                /* colormap */
  3201. +     NULL,                /* bitmap */
  3202. +     NULL,                /* bitplane */
  3203. + 
  3204. +     1,                /* last_pen */
  3205. + 
  3206. +     DEFAULT_WIDTH,            /* page width */
  3207. +     DEFAULT_HEIGHT,            /* page height */
  3208. +     DEFAULT_FILENAME,        /* output file */
  3209. +     1,                /* page counter */
  3210. + 
  3211. +     0,                /* cube_size */
  3212. +     NULL,                /* temp_rport */
  3213. +     NULL,                /* temp_array */
  3214. +     NULL                /* pens */
  3215. + };
  3216. + 
  3217. +     /* Custom device: opens a custom screen, will ask for screen mode or check env variable. */
  3218. + 
  3219. + gx_device_amiga gs_amiga_custom_device =
  3220. + {
  3221. +     sizeof(gx_device_amiga),    /* params_size */
  3222. +     &amiga_custom_procs,        /* procs */
  3223. +     "amiga_custom",            /* dname */
  3224. +     0, 0,                /* width, height */
  3225. +     72.27, 72.27,            /* xdpi, ydpi */
  3226. +     no_margins,            /* margins */
  3227. +     dci_black_and_white,        /* color info */
  3228. +     0,                /* is_open */
  3229. + 
  3230. +     NULL,                /* screen */
  3231. +     NULL,                /* window */
  3232. + 
  3233. +     0,                /* super_width */
  3234. +     0,                /* super_height */
  3235. +     NULL,                /* super_bitmap */
  3236. +     NULL,                /* gadget */
  3237. +     NULL,                /* image */
  3238. + 
  3239. +     NULL,                /* dispatcher */
  3240. +     NULL,                /* main */
  3241. + 
  3242. +     NULL,                /* rport */
  3243. + 
  3244. +     NULL,                /* printer */
  3245. +     NULL,                /* port */
  3246. +     NULL,                /* colormap */
  3247. +     NULL,                /* bitmap */
  3248. +     NULL,                /* bitplane */
  3249. + 
  3250. +     1,                /* last_pen */
  3251. + 
  3252. +     DEFAULT_WIDTH,            /* page width */
  3253. +     DEFAULT_HEIGHT,            /* page height */
  3254. +     DEFAULT_FILENAME,        /* output file */
  3255. +     1,                /* page counter */
  3256. + 
  3257. +     0,                /* cube_size */
  3258. +     NULL,                /* temp_rport */
  3259. +     NULL,                /* temp_array */
  3260. +     NULL                /* pens */
  3261. + };
  3262. + 
  3263. +     /* Printer device: renders the imagery and sends it to the printer */
  3264. + 
  3265. + gx_device_amiga gs_amiga_printer_device =
  3266. + {
  3267. +     sizeof(gx_device_amiga),    /* params_size */
  3268. +     &amiga_printer_procs,        /* procs */
  3269. +     "amiga_printer",        /* dname */
  3270. +     0, 0,                /* width, height */
  3271. +     72.27, 72.27,            /* xdpi, ydpi */
  3272. +     no_margins,            /* margins */
  3273. +     dci_black_and_white,        /* color info */
  3274. +     0,                /* is_open */
  3275. + 
  3276. +     NULL,                /* screen */
  3277. +     NULL,                /* window */
  3278. + 
  3279. +     0,                /* super_width */
  3280. +     0,                /* super_height */
  3281. +     NULL,                /* super_bitmap */
  3282. +     NULL,                /* gadget */
  3283. +     NULL,                /* image */
  3284. + 
  3285. +     NULL,                /* dispatcher */
  3286. +     NULL,                /* main */
  3287. + 
  3288. +     NULL,                /* rport */
  3289. + 
  3290. +     NULL,                /* printer */
  3291. +     NULL,                /* port */
  3292. +     NULL,                /* colormap */
  3293. +     NULL,                /* bitmap */
  3294. +     NULL,                /* bitplane */
  3295. + 
  3296. +     1,                /* last_pen */
  3297. + 
  3298. +     DEFAULT_WIDTH,            /* page width */
  3299. +     DEFAULT_HEIGHT,            /* page height */
  3300. +     DEFAULT_FILENAME,        /* output file */
  3301. +     1,                /* page counter */
  3302. + 
  3303. +     0,                /* cube_size */
  3304. +     NULL,                /* temp_rport */
  3305. +     NULL,                /* temp_array */
  3306. +     NULL                /* pens */
  3307. + };
  3308. + 
  3309. +     /* ILBM device: renders the imagery and saves it to an IFF-ILBM file. */
  3310. + 
  3311. + gx_device_amiga gs_amiga_ilbm_device =
  3312. + {
  3313. +     sizeof(gx_device_amiga),    /* params_size */
  3314. +     &amiga_ilbm_procs,        /* procs */
  3315. +     "amiga_ilbm",            /* dname */
  3316. +     0, 0,                /* width, height */
  3317. +     72.27, 72.27,            /* xdpi, ydpi */
  3318. +     no_margins,            /* margins */
  3319. +     dci_black_and_white,        /* color info */
  3320. +     0,                /* is_open */
  3321. + 
  3322. +     NULL,                /* screen */
  3323. +     NULL,                /* window */
  3324. + 
  3325. +     0,                /* super_width */
  3326. +     0,                /* super_height */
  3327. +     NULL,                /* super_bitmap */
  3328. +     NULL,                /* gadget */
  3329. +     NULL,                /* image */
  3330. + 
  3331. +     NULL,                /* dispatcher */
  3332. +     NULL,                /* main */
  3333. + 
  3334. +     NULL,                /* rport */
  3335. + 
  3336. +     NULL,                /* printer */
  3337. +     NULL,                /* port */
  3338. +     NULL,                /* colormap */
  3339. +     NULL,                /* bitmap */
  3340. +     NULL,                /* bitplane */
  3341. + 
  3342. +     1,                /* last_pen */
  3343. + 
  3344. +     DEFAULT_WIDTH,            /* page width */
  3345. +     DEFAULT_HEIGHT,            /* page height */
  3346. +     DEFAULT_FILENAME,        /* output file */
  3347. +     1,                /* page counter */
  3348. + 
  3349. +     0,                /* cube_size */
  3350. +     NULL,                /* temp_rport */
  3351. +     NULL,                /* temp_array */
  3352. +     NULL                /* pens */
  3353. + };
  3354. + 
  3355. +     /* Dark (black) and light (white) rendering colours; the default device
  3356. +      * determines the actual colours to be used by looking into the screen
  3357. +      * colour lookup table, the other device drivers leave these values
  3358. +      * untouched.
  3359. +      */
  3360. + 
  3361. + STATIC UBYTE    DarkPen        = 0,
  3362. +         LightPen    = 1;
  3363. + 
  3364. +     /* Cheap, but effective ;-) */
  3365. + 
  3366. + #define xdev ((gx_device_amiga *)dev)
  3367. + 
  3368. +     /* set_mono_device(gx_device_amiga *dev,int cube_size,LONG *pens):
  3369. +      *
  3370. +      *    Reconfigure a device for monochrome output.
  3371. +      */
  3372. + 
  3373. + VOID
  3374. + set_mono_device(gx_device_amiga *dev)
  3375. + {
  3376. +     xdev -> color_info . depth        = 1;
  3377. +     xdev -> color_info . num_components    = 1;
  3378. +     xdev -> color_info . max_gray        = 1;
  3379. +     xdev -> color_info . max_rgb        = 0;
  3380. +     xdev -> color_info . dither_gray    = 2;
  3381. +     xdev -> color_info . dither_rgb        = 0;
  3382. + 
  3383. +     xdev -> procs -> copy_color        = amiga_copy_color;
  3384. +     xdev -> procs -> map_rgb_color        = amiga_map_rgb_color;
  3385. +     xdev -> procs -> map_color_rgb        = amiga_map_color_rgb;
  3386. + 
  3387. +     xdev -> cube_size            = 0;
  3388. + }
  3389. + 
  3390. +     /* set_colour_device(gx_device_amiga *dev,int cube_size,LONG *pens):
  3391. +      *
  3392. +      *    Reconfigure a device for colour output.
  3393. +      */
  3394. + 
  3395. + VOID
  3396. + set_colour_device(gx_device_amiga *dev,int cube_size,LONG *pens)
  3397. + {
  3398. +     xdev -> color_info . depth        = 8;
  3399. +     xdev -> color_info . num_components    = 3;
  3400. +     xdev -> color_info . max_gray        = cube_size - 1;
  3401. +     xdev -> color_info . max_rgb        = cube_size - 1;
  3402. +     xdev -> color_info . dither_gray    = cube_size;
  3403. +     xdev -> color_info . dither_rgb        = cube_size;
  3404. + 
  3405. +     xdev -> procs -> copy_color        = amiga_copy_color8;
  3406. + 
  3407. +         /* Any colours to be remapped? */
  3408. + 
  3409. +     if(pens)
  3410. +     {
  3411. +         xdev -> procs -> map_rgb_color    = amiga_color_map_rgb_color_pen;
  3412. +         xdev -> procs -> map_color_rgb    = amiga_color_map_color_rgb_pen;
  3413. +         xdev -> pens            = pens;
  3414. +     }
  3415. +     else
  3416. +     {
  3417. +         xdev -> procs -> map_rgb_color    = amiga_color_map_rgb_color;
  3418. +         xdev -> procs -> map_color_rgb    = amiga_color_map_color_rgb;
  3419. +     }
  3420. + 
  3421. +         /* Remember the size of the RGB cube. */
  3422. + 
  3423. +     xdev -> cube_size            = cube_size;
  3424. + }
  3425. + 
  3426. +     /* set_colour_printer_device(gx_device_amiga *dev,LONG CubeSize):
  3427. +      *
  3428. +      *    Configure the printer device for colour output.
  3429. +      */
  3430. + 
  3431. + VOID
  3432. + set_colour_printer_device(gx_device_amiga *dev,LONG CubeSize)
  3433. + {
  3434. +     xdev -> color_info . depth        = 16;
  3435. +     xdev -> color_info . num_components    = 3;
  3436. +     xdev -> color_info . max_gray        = CubeSize - 1;
  3437. +     xdev -> color_info . max_rgb        = CubeSize - 1;
  3438. +     xdev -> color_info . dither_gray    = CubeSize;
  3439. +     xdev -> color_info . dither_rgb        = CubeSize;
  3440. + 
  3441. +     xdev -> procs -> fill_rectangle        = amiga_fill_rectangle_raw_color;
  3442. +     xdev -> procs -> copy_mono        = amiga_copy_mono_raw_color;
  3443. +     xdev -> procs -> copy_color        = amiga_copy_color_raw_color16;
  3444. +     xdev -> procs -> draw_line        = amiga_draw_line_raw_color;
  3445. +     xdev -> procs -> get_bits        = gx_default_get_bits;
  3446. +     xdev -> procs -> map_rgb_color        = amiga_color_map_rgb_color;
  3447. +     xdev -> procs -> map_color_rgb        = amiga_color_map_color_rgb;
  3448. +     xdev -> cube_size            = CubeSize;
  3449. + }
  3450. + 
  3451. +     /* DeleteBitMap(struct BitMap *BitMap,BOOL Private):
  3452. +      *
  3453. +      *    Free memory associated with a custom rendering bitmap.
  3454. +      */
  3455. + 
  3456. + VOID
  3457. + DeleteBitMap(struct BitMap *BitMap,BOOL Private)
  3458. + {
  3459. +     if(GfxBase -> LibNode . lib_Version >= 39 && !Private)
  3460. +         FreeBitMap(BitMap);
  3461. +     else
  3462. +     {
  3463. +         LONG i;
  3464. + 
  3465. +         for(i = 0 ; i < BitMap -> Depth ; i++)
  3466. +         {
  3467. +             if(BitMap -> Planes[i])
  3468. +                 FreeVec(BitMap -> Planes[i]);
  3469. +         }
  3470. + 
  3471. +         FreeVec(BitMap);
  3472. +     }
  3473. + }
  3474. + 
  3475. +     /* CreateBitMap(LONG Width,LONG Height,LONG Depth,ULONG Flags,struct BitMap *Friend,BOOL Private):
  3476. +      *
  3477. +      *    Create a custom rendering bitmap.
  3478. +      */
  3479. + 
  3480. + struct BitMap *
  3481. + CreateBitMap(LONG Width,LONG Height,LONG Depth,ULONG Flags,struct BitMap *Friend,BOOL Private)
  3482. + {
  3483. +     if(GfxBase -> LibNode . lib_Version >= 39 && !Private)
  3484. +         return(AllocBitMap(Width,Height,Depth,Flags,Friend));
  3485. +     else
  3486. +     {
  3487. +         struct BitMap    *BitMap;
  3488. +         LONG         Plus;
  3489. +         ULONG         MemType;
  3490. + 
  3491. +             /* Bitmap structure needs to be padded if more
  3492. +              * than the standard eight bitplanes are to be
  3493. +              * allocated.
  3494. +              */
  3495. + 
  3496. +         if(Depth > 8)
  3497. +             Plus = (Depth - 8) * sizeof(PLANEPTR);
  3498. +         else
  3499. +             Plus = 0;
  3500. + 
  3501. +         if(Private)
  3502. +             MemType = MEMF_ANY;
  3503. +         else
  3504. +             MemType = MEMF_CHIP;
  3505. + 
  3506. +         if(BitMap = (struct BitMap *)AllocVec(sizeof(struct BitMap) + Plus,MEMF_ANY | MEMF_CLEAR))
  3507. +         {
  3508. +             LONG i,PageSize;
  3509. + 
  3510. +             InitBitMap(BitMap,Depth,Width,Height);
  3511. + 
  3512. +             PageSize = BitMap -> BytesPerRow * BitMap -> Rows;
  3513. + 
  3514. +             for(i = 0 ; i < BitMap -> Depth ; i++)
  3515. +             {
  3516. +                 if(!(BitMap -> Planes[i] = (PLANEPTR)AllocVec(PageSize,MemType)))
  3517. +                 {
  3518. +                     LONG j;
  3519. + 
  3520. +                     for(j = 0 ; j < i ; j++)
  3521. +                         FreeVec(BitMap -> Planes[j]);
  3522. + 
  3523. +                     FreeVec(BitMap);
  3524. + 
  3525. +                     return(NULL);
  3526. +                 }
  3527. +             }
  3528. + 
  3529. +             return(BitMap);
  3530. +         }
  3531. +     }
  3532. + }
  3533. + 
  3534. +     /* DeleteTempRPort(struct RastPort *Temp):
  3535. +      *
  3536. +      *    Free memory associated with a temporary raster port.
  3537. +      */
  3538. + 
  3539. + VOID
  3540. + DeleteTempRPort(struct RastPort *Temp)
  3541. + {
  3542. +     DeleteBitMap(Temp -> BitMap,FALSE);
  3543. + 
  3544. +     FreeVec(Temp);
  3545. + }
  3546. + 
  3547. +     /* CreateTempRPort(struct RastPort *Source):
  3548. +      *
  3549. +      *    Allocate memory for temporary raster port (one line high).
  3550. +      */
  3551. + 
  3552. + struct RastPort *
  3553. + CreateTempRPort(struct RastPort *Source)
  3554. + {
  3555. +     struct RastPort *Temp;
  3556. + 
  3557. +     if(Temp = (struct RastPort *)AllocVec(sizeof(struct RastPort),MEMF_ANY))
  3558. +     {
  3559. +         LONG Width,Depth;
  3560. + 
  3561. +         CopyMem(Source,Temp,sizeof(struct RastPort));
  3562. + 
  3563. +         Temp -> Layer = NULL;
  3564. + 
  3565. +         if(GfxBase -> LibNode . lib_Version >= 39)
  3566. +         {
  3567. +             Width    = GetBitMapAttr(Source -> BitMap,BMA_WIDTH);
  3568. +             Depth    = GetBitMapAttr(Source -> BitMap,BMA_DEPTH);
  3569. +         }
  3570. +         else
  3571. +         {
  3572. +             Width    = Source -> BitMap -> BytesPerRow * 8;
  3573. +             Depth    = Source -> BitMap -> Depth;
  3574. +         }
  3575. + 
  3576. +         if(Temp -> BitMap = CreateBitMap(Width,1,Depth,NULL,Source -> BitMap,FALSE))
  3577. +             return(Temp);
  3578. +         else
  3579. +             FreeVec(Temp);
  3580. +     }
  3581. + 
  3582. +     return(NULL);
  3583. + }
  3584. + 
  3585. +     /* Euclid(LONG a,LONG b):
  3586. +      *
  3587. +      *    Compute the greatest common divisor of two integers.
  3588. +      */
  3589. + 
  3590. + LONG
  3591. + Euclid(LONG a,LONG b)
  3592. + {
  3593. +     do
  3594. +     {
  3595. +         if(a < b)
  3596. +         {
  3597. +             LONG t;
  3598. + 
  3599. +             t = a;
  3600. +             a = b;
  3601. +             b = t;
  3602. +         }
  3603. + 
  3604. +         a = a % b;
  3605. +     }
  3606. +     while(a);
  3607. + 
  3608. +     return(b);
  3609. + }
  3610. + 
  3611. +     /* PutDump(register BYTE *Destination,register LONG Count):
  3612. +      *
  3613. +      *    Store a byte dump.
  3614. +      */
  3615. + 
  3616. + BYTE *
  3617. + PutDump(register BYTE *Destination,register LONG Count)
  3618. + {
  3619. +     register BYTE *Source = Buffer;
  3620. + 
  3621. +     *Destination++     = Count - 1;
  3622. +      PackedBytes    += Count + 1;
  3623. + 
  3624. +     while(Count--)
  3625. +         *Destination++ = *Source++;
  3626. + 
  3627. +     return(Destination);
  3628. + }
  3629. + 
  3630. +     /* PutRun(register BYTE *Destination,LONG Count,WORD Char):
  3631. +      *
  3632. +      *    Store a byte run.
  3633. +      */
  3634. + 
  3635. + BYTE *
  3636. + PutRun(register BYTE *Destination,LONG Count,WORD Char)
  3637. + {
  3638. +     *Destination++     = -(Count - 1);
  3639. +     *Destination++     = Char;
  3640. +      PackedBytes    += 2; 
  3641. + 
  3642. +     return(Destination);
  3643. + }
  3644. + 
  3645. +     /* PackRow(PLANEPTR *SourcePtr,register BYTE *Destination,LONG RowSize):
  3646. +      *
  3647. +      *    Pack a raster line using the CmpByteRun1 algorithm.
  3648. +      */
  3649. + 
  3650. + LONG
  3651. + PackRow(PLANEPTR *SourcePtr,register BYTE *Destination,LONG RowSize)
  3652. + {
  3653. +     register BYTE *Source = *SourcePtr;
  3654. + 
  3655. +     WORD    Buffered    = 1,
  3656. +         RunStart    = 0;
  3657. +     BYTE    Mode        = DUMP,
  3658. +         LastChar,
  3659. +         Char;
  3660. + 
  3661. +     PackedBytes = 0;
  3662. + 
  3663. +     Buffer[0] = LastChar = Char = *Source++;
  3664. + 
  3665. +     RowSize--;
  3666. + 
  3667. +     while(RowSize--)
  3668. +     {
  3669. +         Buffer[Buffered++] = Char = *Source++;
  3670. + 
  3671. +         if(Mode)
  3672. +         {
  3673. +             if((Char != LastChar) || (Buffered - RunStart > MAXRUN))
  3674. +             {
  3675. +                 Destination    = PutRun(Destination,Buffered - 1 - RunStart,LastChar);
  3676. +                 Buffer[0]    = Char;
  3677. +                 Buffered    = 1;
  3678. +                 RunStart    = 0;
  3679. +                 Mode        = DUMP;
  3680. +             }
  3681. +         }
  3682. +         else
  3683. +         {
  3684. +             if(Buffered > MAXDAT)
  3685. +             {
  3686. +                 Destination    = PutDump(Destination,Buffered - 1);
  3687. +                 Buffer[0]    = Char;
  3688. +                 Buffered    = 1;
  3689. +                 RunStart    = 0;
  3690. +             }
  3691. +             else
  3692. +             {
  3693. +                 if(Char == LastChar)
  3694. +                 {
  3695. +                     if(Buffered - RunStart >= MINRUN)
  3696. +                     {
  3697. +                         if(RunStart)
  3698. +                             Destination = PutDump(Destination,RunStart);
  3699. + 
  3700. +                         Mode = RUN;
  3701. +                     }
  3702. +                     else
  3703. +                     {
  3704. +                         if(!RunStart)
  3705. +                             Mode = RUN;
  3706. +                     }
  3707. +                 }
  3708. +                 else
  3709. +                     RunStart = Buffered - 1;
  3710. +             }
  3711. +         }
  3712. + 
  3713. +         LastChar = Char;
  3714. +     }
  3715. + 
  3716. +     if(Mode)
  3717. +         PutRun(Destination,Buffered - RunStart,LastChar);
  3718. +     else
  3719. +         PutDump(Destination,Buffered);
  3720. + 
  3721. +     *SourcePtr = Source;
  3722. + 
  3723. +     return(PackedBytes);
  3724. + }
  3725. + 
  3726. +     /* PutBODY(struct IFFHandle *Handle,struct BitMap *BitMap):
  3727. +      *
  3728. +      *    Store a bitmap in a BODY chunk.
  3729. +      */
  3730. + 
  3731. + BOOL
  3732. + PutBODY(struct IFFHandle *Handle,struct BitMap *BitMap)
  3733. + {
  3734. +     PLANEPTR    *Planes;
  3735. +     BYTE        *PackBuffer;
  3736. +     BOOL         Success = FALSE;
  3737. +     LONG         PackedBytes,
  3738. +              i,j;
  3739. + 
  3740. +         /* Allocate the bitplane information. */
  3741. + 
  3742. +     if(Planes = (PLANEPTR *)AllocVec(BitMap -> Depth * sizeof(PLANEPTR *),MEMF_ANY | MEMF_CLEAR))
  3743. +     {
  3744. +             /* Allocate the compression buffer. */
  3745. + 
  3746. +         if(PackBuffer = (BYTE *)AllocVec(BitMap -> BytesPerRow * 2,MEMF_ANY))
  3747. +         {
  3748. +                 /* Copy the planes over. */
  3749. + 
  3750. +             for(i = 0 ; i < BitMap -> Depth ; i++)
  3751. +                 Planes[i] = BitMap -> Planes[i];
  3752. + 
  3753. +             if(!PushChunk(Handle,0,ID_BODY,IFFSIZE_UNKNOWN))
  3754. +             {
  3755. +                 Success = TRUE;
  3756. + 
  3757. +                     /* Run down the rows. */
  3758. + 
  3759. +                 for(i = 0 ; Success && i < BitMap -> Rows ; i++)
  3760. +                 {
  3761. +                     for(j = 0 ; Success && j < BitMap -> Depth ; j++)
  3762. +                     {
  3763. +                             /* Pack the data. */
  3764. + 
  3765. +                         PackedBytes = PackRow(&Planes[j],PackBuffer,BitMap -> BytesPerRow);
  3766. + 
  3767. +                             /* Write it to disk. */
  3768. + 
  3769. +                         if(WriteChunkRecords(Handle,PackBuffer,PackedBytes,1) != 1)
  3770. +                             Success = FALSE;
  3771. +                     }
  3772. +                 }
  3773. + 
  3774. +                 if(PopChunk(Handle))
  3775. +                     Success = FALSE;
  3776. +             }
  3777. + 
  3778. +             FreeVec(PackBuffer);
  3779. +         }
  3780. + 
  3781. +         FreeVec(Planes);
  3782. +     }
  3783. + 
  3784. +     return(Success);
  3785. + }
  3786. + 
  3787. +     /* PutANNO(struct IFFHandle *Handle):
  3788. +      *
  3789. +      *    Store annotation chunk.
  3790. +      */
  3791. + 
  3792. + BOOL
  3793. + PutANNO(struct IFFHandle *Handle)
  3794. + {
  3795. +     STATIC STRPTR Note = "Rendered by GNU Ghostscript 2.6.0";
  3796. + 
  3797. +     if(!PushChunk(Handle,0,ID_ANNO,strlen(Note)))
  3798. +     {
  3799. +         if(WriteChunkRecords(Handle,Note,strlen(Note),1) == 1)
  3800. +         {
  3801. +             if(!PopChunk(Handle))
  3802. +                 return(TRUE);
  3803. +         }
  3804. +     }
  3805. + 
  3806. +     return(FALSE);
  3807. + }
  3808. + 
  3809. +     /* PutCAMG(struct IFFHandle *Handle):
  3810. +      *
  3811. +      *    Store display mode chunk.
  3812. +      */
  3813. + 
  3814. + BOOL
  3815. + PutCAMG(struct IFFHandle *Handle)
  3816. + {
  3817. +     ULONG ViewModes = HIRESLACE_KEY;
  3818. + 
  3819. +     if(!PushChunk(Handle,0,ID_CAMG,sizeof(ULONG)))
  3820. +     {
  3821. +         if(WriteChunkRecords(Handle,&ViewModes,sizeof(ULONG),1) == 1)
  3822. +         {
  3823. +             if(!PopChunk(Handle))
  3824. +                 return(TRUE);
  3825. +         }
  3826. +     }
  3827. + 
  3828. +     return(FALSE);
  3829. + }
  3830. + 
  3831. +     /* PutCMAP(struct IFFHandle *Handle):
  3832. +      *
  3833. +      *    Store colour map chunk.
  3834. +      */
  3835. + 
  3836. + BOOL
  3837. + PutCMAP(struct IFFHandle *Handle)
  3838. + {
  3839. +     STATIC UBYTE Colours[2][3] =
  3840. +     {
  3841. +         0x00,0x00,0x00,
  3842. +         0xFF,0xFF,0xFF
  3843. +     };
  3844. + 
  3845. +     if(!PushChunk(Handle,0,ID_CMAP,sizeof(Colours)))
  3846. +     {
  3847. +         if(WriteChunkRecords(Handle,Colours,2,3) == 3)
  3848. +         {
  3849. +             if(!PopChunk(Handle))
  3850. +                 return(TRUE);
  3851. +         }
  3852. +     }
  3853. + 
  3854. +     return(FALSE);
  3855. + }
  3856. + 
  3857. +     /* PutDPI(struct IFFHandle *Handle,UWORD X_DPI,UWORD Y_DPI):
  3858. +      *
  3859. +      *    Store DPI chunk.
  3860. +      */
  3861. + 
  3862. + BOOL
  3863. + PutDPI(struct IFFHandle *Handle,UWORD X_DPI,UWORD Y_DPI)
  3864. + {
  3865. +     DPIHeader Header;
  3866. + 
  3867. +     Header . dpi_x = X_DPI;
  3868. +     Header . dpi_y = Y_DPI;
  3869. + 
  3870. +     if(!PushChunk(Handle,0,ID_DPI,sizeof(Header)))
  3871. +     {
  3872. +         if(WriteChunkRecords(Handle,&Header,sizeof(Header),1) == 1)
  3873. +         {
  3874. +             if(!PopChunk(Handle))
  3875. +                 return(TRUE);
  3876. +         }
  3877. +     }
  3878. + 
  3879. +     return(FALSE);
  3880. + }
  3881. + 
  3882. +     /* PutBMHD(struct IFFHandle *Handle,LONG Width,LONG Height,UWORD X_DPI,UWORD Y_DPI):
  3883. +      *
  3884. +      *    Store BMHD chunk.
  3885. +      */
  3886. + 
  3887. + BOOL
  3888. + PutBMHD(struct IFFHandle *Handle,LONG Width,LONG Height,UWORD X_DPI,UWORD Y_DPI)
  3889. + {
  3890. +         /* Valid parameters? */
  3891. + 
  3892. +     if(X_DPI > 0 && Y_DPI > 0 && Width > 0 && Height > 0)
  3893. +     {
  3894. +         BitMapHeader    Header;
  3895. +         UWORD        gcd;
  3896. + 
  3897. +             /* So we can store neat & small
  3898. +              * aspect ration values.
  3899. +              */
  3900. + 
  3901. +         gcd = Euclid(X_DPI,Y_DPI);
  3902. + 
  3903. +         Header . w            = Width;
  3904. +         Header . h            = Height;
  3905. +         Header . pageWidth        = Width;
  3906. +         Header . pageHeight        = Height;
  3907. +         Header . x            = 0;
  3908. +         Header . y            = 0;
  3909. +         Header . nPlanes        = 1;
  3910. +         Header . masking        = 0;
  3911. +         Header . compression        = 1;
  3912. +         Header . pad1            = 0;
  3913. +         Header . transparentColor    = 0;
  3914. +         Header . xAspect        = X_DPI / gcd;
  3915. +         Header . yAspect        = Y_DPI / gcd;
  3916. + 
  3917. +         if(!PushChunk(Handle,0,ID_BMHD,sizeof(Header)))
  3918. +         {
  3919. +             if(WriteChunkRecords(Handle,&Header,sizeof(Header),1) == 1)
  3920. +             {
  3921. +                 if(!PopChunk(Handle))
  3922. +                     return(TRUE);
  3923. +             }
  3924. +         }
  3925. +     }
  3926. + 
  3927. +     return(FALSE);
  3928. + }
  3929. + 
  3930. +     /* SaveBitMap(STRPTR Name,struct BitMap *BitMap,LONG Width,LONG Height,UWORD X_DPI,UWORD Y_DPI):
  3931. +      *
  3932. +      *    Store a bitmap in an IFF-ILBM file.
  3933. +      */
  3934. + 
  3935. + BOOL
  3936. + SaveBitMap(STRPTR Name,struct BitMap *BitMap,LONG Width,LONG Height,UWORD X_DPI,UWORD Y_DPI)
  3937. + {
  3938. +     struct IFFHandle    *Handle;
  3939. +     BOOL             Success = FALSE;
  3940. + 
  3941. +     if(Handle = AllocIFF())
  3942. +     {
  3943. +         if(Handle -> iff_Stream = Open(Name,MODE_NEWFILE))
  3944. +         {
  3945. +             InitIFFasDOS(Handle);
  3946. + 
  3947. +             if(!OpenIFF(Handle,IFFF_WRITE))
  3948. +             {
  3949. +                 if(!PushChunk(Handle,ID_ILBM,ID_FORM,IFFSIZE_UNKNOWN))
  3950. +                 {
  3951. +                     if(PutBMHD(Handle,Width,Height,X_DPI,Y_DPI))
  3952. +                     {
  3953. +                         if(PutANNO(Handle))
  3954. +                         {
  3955. +                             if(PutCMAP(Handle))
  3956. +                             {
  3957. +                                 if(PutCAMG(Handle))
  3958. +                                 {
  3959. +                                     if(PutDPI(Handle,X_DPI,Y_DPI))
  3960. +                                     {
  3961. +                                         if(PutBODY(Handle,BitMap))
  3962. +                                             Success = TRUE;
  3963. +                                     }
  3964. +                                 }
  3965. +                             }
  3966. +                         }
  3967. +                     }
  3968. + 
  3969. +                     if(PopChunk(Handle))
  3970. +                         Success = FALSE;
  3971. +                 }
  3972. + 
  3973. +                 CloseIFF(Handle);
  3974. +             }
  3975. + 
  3976. +             Close(Handle -> iff_Stream);
  3977. + 
  3978. +             if(!Success)
  3979. +                 DeleteFile(Name);
  3980. +         }
  3981. + 
  3982. +         FreeIFF(Handle);
  3983. +     }
  3984. + 
  3985. +     return(Success);
  3986. + }
  3987. + 
  3988. +     /* GetInches(STRPTR Buffer):
  3989. +      *
  3990. +      *    Turn a parameter string into a number representing
  3991. +      *    a certain number of inches.
  3992. +      */
  3993. + 
  3994. + float
  3995. + GetInches(STRPTR Buffer)
  3996. + {
  3997. +     STATIC struct { STRPTR Unit; float Factor; } Units[7] =
  3998. +     {
  3999. +         "pt",    1.0,            /* Point */
  4000. +         "pc",    12.0,            /* Pica */
  4001. +         "in",    72.72,            /* Inch */
  4002. +         "cm",    72.72 / 2.54,        /* Centimeter */
  4003. +         "mm",    727.2 / 2.54,        /* Millimeter */
  4004. +         "dd",    1157.0 / 1238.0,    /* Didot point */
  4005. +         "cc",    1157.0 / 103.0        /* Cicero */
  4006. +     };
  4007. + 
  4008. +     UBYTE    Temp[40];
  4009. +     float    Value;
  4010. +     LONG    i;
  4011. + 
  4012. +     i = 0;
  4013. + 
  4014. +         /* Strip the numeric part. */
  4015. + 
  4016. +     while((Buffer[i] >= '0' && Buffer[i] <= '9') || Buffer[i] == '.' || Buffer[i] == '+' || Buffer[i] == '-' || Buffer[i] == 'e')
  4017. +     {
  4018. +         Temp[i] = Buffer[i];
  4019. + 
  4020. +         i++;
  4021. +     }
  4022. + 
  4023. +         /* Provide null-termination. */
  4024. + 
  4025. +     Temp[i] = 0;
  4026. + 
  4027. +         /* atof() appears to be broken in ixemul.library 39.45. */
  4028. + 
  4029. +     sscanf(Temp,"%f",&Value);
  4030. + 
  4031. +     Buffer += i;
  4032. + 
  4033. +         /* Which measuring unit? */
  4034. + 
  4035. +     for(i = 0 ; i < 7 ; i++)
  4036. +     {
  4037. +             /* Return the result in inches. */
  4038. + 
  4039. +         if(!Stricmp(Buffer,Units[i] . Unit))
  4040. +             return(Value * Units[i] . Factor / 72.27);
  4041. +     }
  4042. + 
  4043. +         /* Return the result in inches. */
  4044. + 
  4045. +     return(Value / 72.27);
  4046. + }
  4047. + 
  4048. +     /* DispatchTask():
  4049. +      *
  4050. +      *    Asynchronous window message dispatcher.
  4051. +      */
  4052. + 
  4053. + VOID
  4054. + DispatchTask()
  4055. + {
  4056. +     struct Task    *me;
  4057. +     gx_device    *dev;
  4058. + 
  4059. +         /* Set up global data area base register. */
  4060. + 
  4061. +     ix_geta4();
  4062. + 
  4063. +         /* Who am I? */
  4064. + 
  4065. +     me = FindTask(NULL);
  4066. + 
  4067. +         /* Wait for wakeup call. */
  4068. + 
  4069. +     Wait(SIG_HANDSHAKE);
  4070. + 
  4071. +         /* Obtain device pointer. */
  4072. + 
  4073. +     dev = me -> tc_UserData;
  4074. + 
  4075. +         /* Enable user input. */
  4076. + 
  4077. +     if(ModifyIDCMP(xdev -> window,IDCMP_FLAGS))
  4078. +     {
  4079. +         ULONG    Mask = 1 << xdev -> window -> UserPort -> mp_SigBit,
  4080. +             Set;
  4081. +         BOOL    Done = FALSE;
  4082. + 
  4083. +             /* Fill in the dispatcher entry. */
  4084. + 
  4085. +         xdev -> dispatcher = me;
  4086. + 
  4087. +             /* Ring back. */
  4088. + 
  4089. +         Signal((struct Task *)xdev -> main,SIG_HANDSHAKE);
  4090. + 
  4091. +             /* Wait for input... */
  4092. + 
  4093. +         do
  4094. +         {
  4095. +             Set = Wait(Mask | SIG_KILL);
  4096. + 
  4097. +             if(Set & Mask)
  4098. +                 DispatchSuperWindow(dev);
  4099. + 
  4100. +             if(Set & SIG_KILL)
  4101. +                 Done = TRUE;
  4102. +         }
  4103. +         while(!Done);
  4104. + 
  4105. +             /* Disable user input. */
  4106. + 
  4107. +         ModifyIDCMP(xdev -> window,NULL);
  4108. +     }
  4109. + 
  4110. +         /* Disable task switching. */
  4111. + 
  4112. +     Forbid();
  4113. + 
  4114. +         /* Clear the dispatcher entry. */
  4115. + 
  4116. +     xdev -> dispatcher = NULL;
  4117. + 
  4118. +         /* Signal the main process that we are done. */
  4119. + 
  4120. +     Signal((struct Task *)xdev -> main,SIG_HANDSHAKE);
  4121. + 
  4122. +         /* Remove ourselves. */
  4123. + 
  4124. +     RemTask(NULL);
  4125. + }
  4126. + 
  4127. +     /* DeleteScrollers(gx_device *dev):
  4128. +      *
  4129. +      *    Delete the window border scrollers.
  4130. +      */
  4131. + 
  4132. + VOID
  4133. + DeleteScrollers(gx_device *dev)
  4134. + {
  4135. +     if(xdev -> gadget)
  4136. +     {
  4137. +         if(xdev -> gadget[HORIZONTAL_SCROLLER])
  4138. +             DisposeObject(xdev -> gadget[HORIZONTAL_SCROLLER]);
  4139. + 
  4140. +         if(xdev -> gadget[VERTICAL_SCROLLER])
  4141. +             DisposeObject(xdev -> gadget[VERTICAL_SCROLLER]);
  4142. + 
  4143. +         if(xdev -> gadget[UP_ARROW])
  4144. +             DisposeObject(xdev -> gadget[UP_ARROW]);
  4145. + 
  4146. +         if(xdev -> gadget[DOWN_ARROW])
  4147. +             DisposeObject(xdev -> gadget[DOWN_ARROW]);
  4148. + 
  4149. +         if(xdev -> gadget[LEFT_ARROW])
  4150. +             DisposeObject(xdev -> gadget[LEFT_ARROW]);
  4151. + 
  4152. +         if(xdev -> gadget[RIGHT_ARROW])
  4153. +             DisposeObject(xdev -> gadget[RIGHT_ARROW]);
  4154. + 
  4155. +         FreeVec(xdev -> gadget);
  4156. + 
  4157. +         xdev -> gadget = NULL;
  4158. +     }
  4159. + 
  4160. +     if(xdev -> image)
  4161. +     {
  4162. +         if(xdev -> image[UP_IMAGE])
  4163. +             DisposeObject(xdev -> image[UP_IMAGE]);
  4164. + 
  4165. +         if(xdev -> image[DOWN_IMAGE])
  4166. +             DisposeObject(xdev -> image[DOWN_IMAGE]);
  4167. + 
  4168. +         if(xdev -> image[LEFT_IMAGE])
  4169. +             DisposeObject(xdev -> image[LEFT_IMAGE]);
  4170. + 
  4171. +         if(xdev -> image[RIGHT_IMAGE])
  4172. +             DisposeObject(xdev -> image[RIGHT_IMAGE]);
  4173. + 
  4174. +         FreeVec(xdev -> image);
  4175. + 
  4176. +         xdev -> image = NULL;
  4177. +     }
  4178. + }
  4179. + 
  4180. +     /* CreateScrollers(gx_device *dev,struct Screen *Screen):
  4181. +      *
  4182. +      *    Create the window border scroller handles.
  4183. +      */
  4184. + 
  4185. + BOOL
  4186. + CreateScrollers(gx_device *dev,struct Screen *Screen)
  4187. + {
  4188. +     BOOL Result = FALSE;
  4189. + 
  4190. +     if(xdev -> gadget = (struct Gadget **)AllocVec(sizeof(struct Gadget *) * GADGET_COUNT,MEMF_ANY | MEMF_CLEAR | MEMF_PUBLIC))
  4191. +     {
  4192. +         if(xdev -> image = (struct Image **)AllocVec(sizeof(struct Image *) * IMAGE_COUNT,MEMF_ANY | MEMF_CLEAR | MEMF_PUBLIC))
  4193. +         {
  4194. +             struct DrawInfo *DrawInfo;
  4195. + 
  4196. +             if(DrawInfo = GetScreenDrawInfo(Screen))
  4197. +             {
  4198. +                 LONG    SizeWidth,
  4199. +                     SizeHeight;
  4200. +                 UWORD    SizeType;
  4201. + 
  4202. +                 if(Screen -> Flags & SCREENHIRES)
  4203. +                 {
  4204. +                     SizeWidth    = 18;
  4205. +                     SizeHeight    = 10;
  4206. + 
  4207. +                     SizeType    = SYSISIZE_MEDRES;
  4208. +                 }
  4209. +                 else
  4210. +                 {
  4211. +                     SizeWidth    = 13;
  4212. +                     SizeHeight    = 11;
  4213. + 
  4214. +                     SizeType    = SYSISIZE_LOWRES;
  4215. +                 }
  4216. + 
  4217. +                 if(xdev -> image[UP_IMAGE] = (struct Image *)NewObject(NULL,"sysiclass",
  4218. +                     SYSIA_Size,    SizeType,
  4219. +                     SYSIA_Which,    UPIMAGE,
  4220. +                     SYSIA_DrawInfo,    DrawInfo,
  4221. +                 TAG_DONE))
  4222. +                 {
  4223. +                     if(xdev -> image[DOWN_IMAGE] = (struct Image *)NewObject(NULL,"sysiclass",
  4224. +                         SYSIA_Size,    SizeType,
  4225. +                         SYSIA_Which,    DOWNIMAGE,
  4226. +                         SYSIA_DrawInfo,    DrawInfo,
  4227. +                     TAG_DONE))
  4228. +                     {
  4229. +                         if(xdev -> image[LEFT_IMAGE] = (struct Image *)NewObject(NULL,"sysiclass",
  4230. +                             SYSIA_Size,    SizeType,
  4231. +                             SYSIA_Which,    LEFTIMAGE,
  4232. +                             SYSIA_DrawInfo,    DrawInfo,
  4233. +                         TAG_DONE))
  4234. +                         {
  4235. +                             if(xdev -> image[RIGHT_IMAGE] = (struct Image *)NewObject(NULL,"sysiclass",
  4236. +                                 SYSIA_Size,    SizeType,
  4237. +                                 SYSIA_Which,    RIGHTIMAGE,
  4238. +                                 SYSIA_DrawInfo,    DrawInfo,
  4239. +                             TAG_DONE))
  4240. +                             {
  4241. +                                 if(xdev -> gadget[VERTICAL_SCROLLER] = NewObject(NULL,"propgclass",
  4242. +                                     GA_ID,        VERTICAL_SCROLLER,
  4243. + 
  4244. +                                     GA_Top,        Screen -> WBorTop + Screen -> Font -> ta_YSize + 2,
  4245. +                                     GA_RelHeight,    -(Screen -> WBorTop + Screen -> Font -> ta_YSize + 2 + SizeHeight + 1 + 2 * ARROW_HEIGHT),
  4246. +                                     GA_Width,    SizeWidth - 8,
  4247. +                                     GA_RelRight,    -(SizeWidth - 5),
  4248. + 
  4249. +                                     GA_GZZGadget,    TRUE,
  4250. +                                     GA_Immediate,    TRUE,
  4251. +                                     GA_FollowMouse,    TRUE,
  4252. +                                     GA_RelVerify,    TRUE,
  4253. +                                     GA_RightBorder,    TRUE,
  4254. + 
  4255. +                                     PGA_Freedom,    FREEVERT,
  4256. +                                     PGA_NewLook,    TRUE,
  4257. +                                     PGA_Borderless,    TRUE,
  4258. + 
  4259. +                                     PGA_Visible,    1,
  4260. +                                     PGA_Total,    1,
  4261. +                                 TAG_DONE))
  4262. +                                 {
  4263. +                                     if(xdev -> gadget[HORIZONTAL_SCROLLER] = NewObject(NULL,"propgclass",
  4264. +                                         GA_ID,        HORIZONTAL_SCROLLER,
  4265. +                                         GA_Previous,    xdev -> gadget[VERTICAL_SCROLLER],
  4266. + 
  4267. +                                         GA_Height,    SizeHeight - 4,
  4268. +                                         GA_RelBottom,    -(SizeHeight - 4 + 1),
  4269. +                                         GA_Left,    4,
  4270. +                                         GA_RelWidth,    -(2 + SizeWidth + 4 + 2 * ARROW_WIDTH),
  4271. + 
  4272. +                                         GA_GZZGadget,    TRUE,
  4273. +                                         GA_Immediate,    TRUE,
  4274. +                                         GA_FollowMouse,    TRUE,
  4275. +                                         GA_RelVerify,    TRUE,
  4276. +                                         GA_BottomBorder,TRUE,
  4277. + 
  4278. +                                         PGA_Freedom,    FREEHORIZ,
  4279. +                                         PGA_NewLook,    TRUE,
  4280. +                                         PGA_Borderless,    TRUE,
  4281. + 
  4282. +                                         PGA_Visible,    1,
  4283. +                                         PGA_Total,    1,
  4284. +                                     TAG_DONE))
  4285. +                                     {
  4286. +                                         STATIC struct TagItem ArrowMappings[] = { GA_ID, GA_ID, TAG_END };
  4287. + 
  4288. +                                         if(xdev -> gadget[UP_ARROW] = NewObject(NULL,"buttongclass",
  4289. +                                             GA_ID,        UP_ARROW,
  4290. +                                             GA_Previous,    xdev -> gadget[HORIZONTAL_SCROLLER],
  4291. + 
  4292. +                                             GA_GZZGadget,    TRUE,
  4293. +                                             GA_Image,    xdev -> image[UP_IMAGE],
  4294. +                                             GA_RelRight,    -(SizeWidth - 1),
  4295. +                                             GA_RelBottom,    -(SizeHeight - 1 + 2 * ARROW_HEIGHT),
  4296. +                                             GA_Height,    ARROW_HEIGHT,
  4297. +                                             GA_Width,    SizeWidth,
  4298. +                                             GA_Immediate,    TRUE,
  4299. +                                             GA_RelVerify,    TRUE,
  4300. +                                             GA_RightBorder,    TRUE,
  4301. + 
  4302. +                                             ICA_TARGET,    ICTARGET_IDCMP,
  4303. +                                             ICA_MAP,    ArrowMappings,
  4304. +                                         TAG_DONE))
  4305. +                                         {
  4306. +                                             if(xdev -> gadget[DOWN_ARROW] = NewObject(NULL,"buttongclass",
  4307. +                                                 GA_ID,        DOWN_ARROW,
  4308. +                                                 GA_Previous,    xdev -> gadget[UP_ARROW],
  4309. + 
  4310. +                                                 GA_GZZGadget,    TRUE,
  4311. +                                                 GA_Image,    xdev -> image[DOWN_IMAGE],
  4312. +                                                 GA_RelRight,    -(SizeWidth - 1),
  4313. +                                                 GA_RelBottom,    -(SizeHeight - 1 + ARROW_HEIGHT),
  4314. +                                                 GA_Height,    ARROW_HEIGHT,
  4315. +                                                 GA_Width,    SizeWidth,
  4316. +                                                 GA_Immediate,    TRUE,
  4317. +                                                 GA_RelVerify,    TRUE,
  4318. +                                                 GA_RightBorder,    TRUE,
  4319. + 
  4320. +                                                 ICA_TARGET,    ICTARGET_IDCMP,
  4321. +                                                 ICA_MAP,    ArrowMappings,
  4322. +                                             TAG_DONE))
  4323. +                                             {
  4324. +                                                 if(xdev -> gadget[LEFT_ARROW] = NewObject(NULL,"buttongclass",
  4325. +                                                     GA_ID,        LEFT_ARROW,
  4326. +                                                     GA_Previous,    xdev -> gadget[DOWN_ARROW],
  4327. + 
  4328. +                                                     GA_GZZGadget,    TRUE,
  4329. +                                                     GA_Image,    xdev -> image[LEFT_IMAGE],
  4330. +                                                     GA_RelRight,    -(SizeWidth - 1 + 2 * ARROW_WIDTH),
  4331. +                                                     GA_RelBottom,    -(SizeHeight - 1),
  4332. +                                                     GA_Height,    SizeHeight,
  4333. +                                                     GA_Width,    ARROW_WIDTH,
  4334. +                                                     GA_Immediate,    TRUE,
  4335. +                                                     GA_RelVerify,    TRUE,
  4336. +                                                     GA_BottomBorder,TRUE,
  4337. + 
  4338. +                                                     ICA_TARGET,    ICTARGET_IDCMP,
  4339. +                                                     ICA_MAP,    ArrowMappings,
  4340. +                                                 TAG_DONE))
  4341. +                                                 {
  4342. +                                                     if(xdev -> gadget[RIGHT_ARROW] = NewObject(NULL,"buttongclass",
  4343. +                                                         GA_ID,        RIGHT_ARROW,
  4344. +                                                         GA_Previous,    xdev -> gadget[LEFT_ARROW],
  4345. + 
  4346. +                                                         GA_GZZGadget,    TRUE,
  4347. +                                                         GA_Image,    xdev -> image[RIGHT_IMAGE],
  4348. +                                                         GA_RelRight,    -(SizeWidth - 1 + ARROW_WIDTH),
  4349. +                                                         GA_RelBottom,    -(SizeHeight - 1),
  4350. +                                                         GA_Height,    SizeHeight,
  4351. +                                                         GA_Width,    ARROW_WIDTH,
  4352. +                                                         GA_Immediate,    TRUE,
  4353. +                                                         GA_RelVerify,    TRUE,
  4354. +                                                         GA_BottomBorder,TRUE,
  4355. + 
  4356. +                                                         ICA_TARGET,    ICTARGET_IDCMP,
  4357. +                                                         ICA_MAP,    ArrowMappings,
  4358. +                                                     TAG_DONE))
  4359. +                                                         Result = TRUE;
  4360. +                                                 }
  4361. +                                             }
  4362. +                                         }
  4363. +                                     }
  4364. +                                 }
  4365. +                             }
  4366. +                         }
  4367. +                     }
  4368. +                 }
  4369. + 
  4370. +                 FreeScreenDrawInfo(Screen,DrawInfo);
  4371. +             }
  4372. +         }
  4373. +     }
  4374. + 
  4375. +     return(Result);
  4376. + }
  4377. + 
  4378. +     /* WindowResize(gx_device *dev):
  4379. +      *
  4380. +      *    Update the slider sizes and positions after the window
  4381. +      *    was resized.
  4382. +      */
  4383. + 
  4384. + VOID
  4385. + WindowResize(gx_device *dev)
  4386. + {
  4387. +     LONG    DeltaX,
  4388. +         DeltaY,
  4389. +         Temp;
  4390. + 
  4391. +         /* Query the current horizontal slider position. */
  4392. + 
  4393. +     if((Temp = LAYERXOFFSET(xdev -> window) + xdev -> window -> GZZWidth) > xdev -> super_width)
  4394. +         DeltaX = xdev -> super_width - Temp;
  4395. +     else
  4396. +         DeltaX = 0;
  4397. + 
  4398. +         /* Query the current vertical slider position. */
  4399. + 
  4400. +     if((Temp = LAYERYOFFSET(xdev -> window) + xdev -> window -> GZZHeight) > xdev -> super_height)
  4401. +         DeltaY = xdev -> super_height - Temp;
  4402. +     else
  4403. +         DeltaY = 0;
  4404. + 
  4405. +         /* Move the currently displayed window area around. */
  4406. + 
  4407. +     if(DeltaX || DeltaY)
  4408. +         ScrollLayer(NULL,xdev -> window -> RPort -> Layer,DeltaX,DeltaY);
  4409. + 
  4410. +         /* Update the new horizontal slider position and size. */
  4411. + 
  4412. +     SetGadgetAttrs(xdev -> gadget[HORIZONTAL_SCROLLER],xdev -> window,NULL,
  4413. +         PGA_Top,    LAYERXOFFSET(xdev -> window),
  4414. +         PGA_Visible,    xdev -> window -> GZZWidth,
  4415. +         PGA_Total,    xdev -> super_width,
  4416. +     TAG_DONE);
  4417. + 
  4418. +         /* Update the new vertical slider position and size. */
  4419. + 
  4420. +     SetGadgetAttrs(xdev -> gadget[VERTICAL_SCROLLER],xdev -> window,NULL,
  4421. +         PGA_Top,    LAYERYOFFSET(xdev -> window),
  4422. +         PGA_Visible,    xdev -> window -> GZZHeight,
  4423. +         PGA_Total,    xdev -> super_height,
  4424. +     TAG_DONE);
  4425. + }
  4426. + 
  4427. +     /* WindowUpdate(struct Gadget *Gadget,gx_device *dev):
  4428. +      *
  4429. +      *    Move the currently visible portion of the
  4430. +      *    window according to the current slider
  4431. +      *    position.
  4432. +      */
  4433. + 
  4434. + VOID
  4435. + WindowUpdate(struct Gadget *Gadget,gx_device *dev)
  4436. + {
  4437. +     LONG Storage;
  4438. + 
  4439. +     switch(Gadget -> GadgetID)
  4440. +     {
  4441. +         case HORIZONTAL_SCROLLER:
  4442. + 
  4443. +             if(GetAttr(PGA_Top,Gadget,&Storage))
  4444. +                 ScrollLayer(NULL,xdev -> window -> RPort -> Layer,Storage - LAYERXOFFSET(xdev -> window),0);
  4445. + 
  4446. +             break;
  4447. + 
  4448. +         case VERTICAL_SCROLLER:
  4449. + 
  4450. +             if(GetAttr(PGA_Top,Gadget,&Storage))
  4451. +                 ScrollLayer(NULL,xdev -> window -> RPort -> Layer,0,Storage - LAYERYOFFSET(xdev -> window));
  4452. + 
  4453. +             break;
  4454. +     }
  4455. + }
  4456. + 
  4457. +     /* MoveAround(struct Gadget *Gadget,int How,gx_device *dev):
  4458. +      *
  4459. +      *    Move the currently visible window area according to
  4460. +      *    user input.
  4461. +      */
  4462. + 
  4463. + VOID
  4464. + MoveAround(struct Gadget *Gadget,LONG How,gx_device *dev)
  4465. + {
  4466. +     LONG Storage;
  4467. + 
  4468. +     if(GetAttr(PGA_Top,Gadget,&Storage))
  4469. +     {
  4470. +         LONG Max;
  4471. + 
  4472. +         switch(Gadget -> GadgetID)
  4473. +         {
  4474. +             case HORIZONTAL_SCROLLER:
  4475. + 
  4476. +                 Max = xdev -> super_width - xdev -> window -> GZZWidth;
  4477. +                 break;
  4478. + 
  4479. +             case VERTICAL_SCROLLER:
  4480. + 
  4481. +                 Max = xdev -> super_height - xdev -> window -> GZZHeight;
  4482. +                 break;
  4483. +         }
  4484. + 
  4485. +         switch(How)
  4486. +         {
  4487. +             case MOVE_MIN:
  4488. + 
  4489. +                 Storage = 0;
  4490. +                 break;
  4491. + 
  4492. +             case MOVE_MAX:
  4493. + 
  4494. +                 Storage = Max;
  4495. +                 break;
  4496. + 
  4497. +             case MOVE_DOWN:
  4498. + 
  4499. +                 if(Storage > xdev -> super_height / 100)
  4500. +                     Storage -= xdev -> super_height / 100;
  4501. +                 else
  4502. +                     Storage = 0;
  4503. + 
  4504. +                 break;
  4505. + 
  4506. +             case MOVE_FAR_DOWN:
  4507. + 
  4508. +                 if(Storage > xdev -> super_height / 10)
  4509. +                     Storage -= xdev -> super_height / 10;
  4510. +                 else
  4511. +                     Storage = 0;
  4512. + 
  4513. +                 break;
  4514. + 
  4515. +             case MOVE_FAR_UP:
  4516. + 
  4517. +                 if(Storage + xdev -> super_width / 10 < Max)
  4518. +                     Storage += xdev -> super_width / 10;
  4519. +                 else
  4520. +                     Storage = Max;
  4521. + 
  4522. +                 break;
  4523. + 
  4524. +             case MOVE_UP:
  4525. + 
  4526. +                 if(Storage + xdev -> super_width / 100 < Max)
  4527. +                     Storage += xdev -> super_width / 100;
  4528. +                 else
  4529. +                     Storage = Max;
  4530. + 
  4531. +                 break;
  4532. +         }
  4533. + 
  4534. +         switch(Gadget -> GadgetID)
  4535. +         {
  4536. +             case HORIZONTAL_SCROLLER:
  4537. + 
  4538. +                 if(LAYERXOFFSET(xdev -> window) != Storage)
  4539. +                 {
  4540. +                     ScrollLayer(NULL,xdev -> window -> RPort -> Layer,Storage - LAYERXOFFSET(xdev -> window),0);
  4541. + 
  4542. +                     SetGadgetAttrs(Gadget,xdev -> window,NULL,
  4543. +                         PGA_Top,Storage,
  4544. +                     TAG_DONE);
  4545. +                 }
  4546. + 
  4547. +                 break;
  4548. + 
  4549. +             case VERTICAL_SCROLLER:
  4550. + 
  4551. +                 if(LAYERYOFFSET(xdev -> window) != Storage)
  4552. +                 {
  4553. +                     ScrollLayer(NULL,xdev -> window -> RPort -> Layer,0,Storage - LAYERYOFFSET(xdev -> window));
  4554. + 
  4555. +                     SetGadgetAttrs(Gadget,xdev -> window,NULL,
  4556. +                         PGA_Top,Storage,
  4557. +                     TAG_DONE);
  4558. +                 }
  4559. + 
  4560. +                 break;
  4561. +         }
  4562. +     }
  4563. + }
  4564. + 
  4565. +     /* DispatchSuperWindow(gx_device *dev):
  4566. +      *
  4567. +      *    Dispatch user window input.
  4568. +      */
  4569. + 
  4570. + VOID
  4571. + DispatchSuperWindow(gx_device *dev)
  4572. + {
  4573. +     STATIC struct Gadget    *CurrentGadget = NULL;
  4574. + 
  4575. +     struct IntuiMessage    *IntuiMessage;
  4576. +     ULONG             MsgClass,
  4577. +                  MsgCode,
  4578. +                  MsgQualifier;
  4579. +     struct Gadget        *MsgGadget;
  4580. + 
  4581. +     while(IntuiMessage = (struct IntuiMessage *)GetMsg(xdev -> window -> UserPort))
  4582. +     {
  4583. +         MsgClass    = IntuiMessage -> Class;
  4584. +         MsgCode        = IntuiMessage -> Code;
  4585. +         MsgQualifier    = IntuiMessage -> Qualifier;
  4586. +         MsgGadget    = IntuiMessage -> IAddress;
  4587. + 
  4588. +         ReplyMsg((struct Message *)IntuiMessage);
  4589. + 
  4590. +         switch(MsgClass)
  4591. +         {
  4592. +             case IDCMP_VANILLAKEY:
  4593. + 
  4594. +                 if(MsgCode == '\033' || MsgCode == '\003')
  4595. +                     Signal((struct Task *)xdev -> main,SIG_KILL);
  4596. + 
  4597. +                 break;
  4598. + 
  4599. +             case IDCMP_RAWKEY:
  4600. + 
  4601. +                 switch(MsgCode)
  4602. +                 {
  4603. +                     case HELP_CODE:
  4604. + 
  4605. +                         DisplayBeep(xdev -> window -> WScreen);
  4606. + 
  4607. +                         break;
  4608. + 
  4609. +                     case CURSORUP:
  4610. + 
  4611. +                         if(MsgQualifier & IEQUALIFIER_CONTROL)
  4612. +                             MoveAround(xdev -> gadget[VERTICAL_SCROLLER],MOVE_MIN,dev);
  4613. +                         else
  4614. +                         {
  4615. +                             if(MsgQualifier & (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT))
  4616. +                                 MoveAround(xdev -> gadget[VERTICAL_SCROLLER],MOVE_FAR_DOWN,dev);
  4617. +                             else
  4618. +                                 MoveAround(xdev -> gadget[VERTICAL_SCROLLER],MOVE_DOWN,dev);
  4619. +                         }
  4620. + 
  4621. +                         break;
  4622. + 
  4623. +                     case CURSORLEFT:
  4624. + 
  4625. +                         if(MsgQualifier & IEQUALIFIER_CONTROL)
  4626. +                             MoveAround(xdev -> gadget[HORIZONTAL_SCROLLER],MOVE_MIN,dev);
  4627. +                         else
  4628. +                         {
  4629. +                             if(MsgQualifier & (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT))
  4630. +                                 MoveAround(xdev -> gadget[HORIZONTAL_SCROLLER],MOVE_FAR_DOWN,dev);
  4631. +                             else
  4632. +                                 MoveAround(xdev -> gadget[HORIZONTAL_SCROLLER],MOVE_DOWN,dev);
  4633. +                         }
  4634. + 
  4635. +                         break;
  4636. + 
  4637. +                     case CURSORRIGHT:
  4638. + 
  4639. +                         if(MsgQualifier & IEQUALIFIER_CONTROL)
  4640. +                             MoveAround(xdev -> gadget[HORIZONTAL_SCROLLER],MOVE_MAX,dev);
  4641. +                         else
  4642. +                         {
  4643. +                             if(MsgQualifier & (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT))
  4644. +                                 MoveAround(xdev -> gadget[HORIZONTAL_SCROLLER],MOVE_FAR_UP,dev);
  4645. +                             else
  4646. +                                 MoveAround(xdev -> gadget[HORIZONTAL_SCROLLER],MOVE_UP,dev);
  4647. +                         }
  4648. + 
  4649. +                         break;
  4650. + 
  4651. +                     case CURSORDOWN:
  4652. + 
  4653. +                         if(MsgQualifier & IEQUALIFIER_CONTROL)
  4654. +                             MoveAround(xdev -> gadget[VERTICAL_SCROLLER],MOVE_MAX,dev);
  4655. +                         else
  4656. +                         {
  4657. +                             if(MsgQualifier & (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT))
  4658. +                                 MoveAround(xdev -> gadget[VERTICAL_SCROLLER],MOVE_FAR_UP,dev);
  4659. +                             else
  4660. +                                 MoveAround(xdev -> gadget[VERTICAL_SCROLLER],MOVE_UP,dev);
  4661. +                         }
  4662. + 
  4663. +                         break;
  4664. + 
  4665. +                     default:
  4666. + 
  4667. +                         break;
  4668. +                 }
  4669. + 
  4670. +                 break;
  4671. + 
  4672. +             case IDCMP_CLOSEWINDOW:
  4673. + 
  4674. +                 Signal((struct Task *)xdev -> main,SIG_KILL);
  4675. + 
  4676. +                 break;
  4677. + 
  4678. +             case IDCMP_GADGETDOWN:
  4679. + 
  4680. +                 CurrentGadget = MsgGadget;
  4681. + 
  4682. +                 WindowUpdate(MsgGadget,dev);
  4683. + 
  4684. +                 break;
  4685. + 
  4686. +             case IDCMP_GADGETUP:
  4687. + 
  4688. +                 CurrentGadget = NULL;
  4689. + 
  4690. +                 WindowUpdate(MsgGadget,dev);
  4691. + 
  4692. +                 break;
  4693. + 
  4694. +             case IDCMP_MOUSEMOVE:
  4695. + 
  4696. +                 if(CurrentGadget)
  4697. +                     WindowUpdate(CurrentGadget,dev);
  4698. + 
  4699. +                 break;
  4700. + 
  4701. +             case IDCMP_IDCMPUPDATE:
  4702. + 
  4703. +                 switch(GetTagData(GA_ID,0,(struct TagItem *)MsgGadget))
  4704. +                 {
  4705. +                     case UP_ARROW:
  4706. + 
  4707. +                         MoveAround(xdev -> gadget[VERTICAL_SCROLLER],MOVE_DOWN,dev);
  4708. +                         break;
  4709. + 
  4710. +                     case DOWN_ARROW:
  4711. + 
  4712. +                         MoveAround(xdev -> gadget[VERTICAL_SCROLLER],MOVE_UP,dev);
  4713. +                         break;
  4714. + 
  4715. +                     case LEFT_ARROW:
  4716. + 
  4717. +                         MoveAround(xdev -> gadget[HORIZONTAL_SCROLLER],MOVE_DOWN,dev);
  4718. +                         break;
  4719. + 
  4720. +                     case RIGHT_ARROW:
  4721. + 
  4722. +                         MoveAround(xdev -> gadget[HORIZONTAL_SCROLLER],MOVE_UP,dev);
  4723. +                         break;
  4724. + 
  4725. +                     default:
  4726. + 
  4727. +                         break;
  4728. +                 }
  4729. + 
  4730. +                 break;
  4731. + 
  4732. +             case IDCMP_NEWSIZE:
  4733. + 
  4734. +                 WindowResize(dev);
  4735. + 
  4736. +                 break;
  4737. + 
  4738. +             default:
  4739. + 
  4740. +                 break;
  4741. +         }
  4742. +     }
  4743. + }
  4744. + 
  4745. +     /* Simple routine to call the cleanup routine of a device,
  4746. +      * all devices are smart enough to handle shutdown in
  4747. +      * case they have not been opened yet.
  4748. +      */
  4749. + 
  4750. + STATIC void __inline
  4751. + close_device(gx_device_amiga *dev)
  4752. + {
  4753. +     (*xdev -> procs -> close_device)((gx_device *)dev);
  4754. + }
  4755. + 
  4756. +     /* devcleanup():
  4757. +      *
  4758. +      *    Clean up all devices, free all resources.
  4759. +      */
  4760. + 
  4761. + void
  4762. + devcleanup()
  4763. + {
  4764. +     close_device(&gs_amiga_device);
  4765. +     close_device(&gs_amiga_low_device);
  4766. +     close_device(&gs_amiga_high_device);
  4767. +     close_device(&gs_amiga_super_device);
  4768. +     close_device(&gs_amiga_a2024_device);
  4769. +     close_device(&gs_amiga_picassoii_device);
  4770. +     close_device(&gs_amiga_custom_device);
  4771. +     close_device(&gs_amiga_printer_device);
  4772. +     close_device(&gs_amiga_ilbm_device);
  4773. + }
  4774. + 
  4775. +     /* amiga_set_pen(gx_device *dev,gx_color_index color):
  4776. +      *
  4777. +      *    Sets the rendering pen and remembers the current
  4778. +      *    settings.
  4779. +      */
  4780. + 
  4781. + STATIC VOID __inline
  4782. + amiga_set_pen(gx_device *dev,gx_color_index color)
  4783. + {
  4784. +     if(xdev -> last_pen != color)
  4785. +         SetAPen(xdev -> rport,xdev -> last_pen = color);
  4786. + }
  4787. + 
  4788. +     /* amiga_map_rgb_color(gx_device *dev,gx_color_value red,gx_color_value green,gx_color_value blue):
  4789. +      *
  4790. +      *    Map a colour either to the black or the light rendering pen.
  4791. +      */
  4792. + 
  4793. + gx_color_index
  4794. + amiga_map_rgb_color(gx_device *dev,gx_color_value red,gx_color_value green,gx_color_value blue)
  4795. + {
  4796. +     if((red | green | blue) > gx_max_color_value / 2)
  4797. +         return(LightPen);
  4798. +     else
  4799. +         return(DarkPen);
  4800. + }
  4801. + 
  4802. +     /* amiga_map_color_rgb(gx_device *dev,gx_color_index color,gx_color_value rgb[3]):
  4803. +      *
  4804. +      *    Map the light/dark rendering pen to RGB values.
  4805. +      */
  4806. + 
  4807. + int
  4808. + amiga_map_color_rgb(gx_device *dev,gx_color_index color,gx_color_value rgb[3])
  4809. + {
  4810. +     int i;
  4811. + 
  4812. +     if(color == LightPen)
  4813. +     {
  4814. +         for(i = 0 ; i < 3 ; i++)
  4815. +             rgb[i] = gx_max_color_value;
  4816. +     }
  4817. +     else
  4818. +     {
  4819. +         for(i = 0 ; i < 3 ; i++)
  4820. +             rgb[i] = 0;
  4821. +     }
  4822. + 
  4823. +     return(0);
  4824. + }
  4825. + 
  4826. +     /* AllocatePens(struct ViewPort *VPort,LONG CubeSize):
  4827. +      *
  4828. +      *    Allocate shareable viewport pens.
  4829. +      */
  4830. + 
  4831. + LONG *
  4832. + AllocatePens(struct ViewPort *VPort,LONG CubeSize)
  4833. + {
  4834. +     if(GfxBase -> LibNode . lib_Version >= 39)
  4835. +     {
  4836. +         LONG Total = CubeSize * CubeSize * CubeSize,*Pens;
  4837. + 
  4838. +         if(Pens = (LONG *)AllocVec(sizeof(LONG) * Total,MEMF_ANY))
  4839. +         {
  4840. +             LONG i,r,g,b,max = CubeSize - 1;
  4841. + 
  4842. +             for(i = 0 ; i < Total ; i++)
  4843. +                 Pens[i] = -1;
  4844. + 
  4845. +             i = 0;
  4846. + 
  4847. +             for(r = 0 ; r < CubeSize ; r++)
  4848. +             {
  4849. +                 for(g = 0 ; g < CubeSize ; g++)
  4850. +                 {
  4851. +                     for(b = 0 ; b < CubeSize ; b++)
  4852. +                     {
  4853. +                         if((Pens[i++] = ObtainBestPen(VPort -> ColorMap,SPREAD((255 * r) / max),SPREAD((255 * g) / max),SPREAD((255 * b) / max),
  4854. +                             OBP_FailIfBad,    TRUE,
  4855. +                             OBP_Precision,    PRECISION_IMAGE,
  4856. +                         TAG_DONE)) == -1)
  4857. +                         {
  4858. +                             FreeVec(Pens);
  4859. + 
  4860. +                             return(NULL);
  4861. +                         }
  4862. +                     }
  4863. +                 }
  4864. +             }
  4865. + 
  4866. +             return(Pens);
  4867. +         }
  4868. +     }
  4869. + 
  4870. +     return(NULL);
  4871. + }
  4872. + 
  4873. +     /* amiga_open_default(gx_device *dev):
  4874. +      *
  4875. +      *    Open the default device, i.e. a window on the Workbench screen.
  4876. +      */
  4877. + 
  4878. + int
  4879. + amiga_open_default(gx_device *dev)
  4880. + {
  4881. +     struct Screen *DefaultScreen;
  4882. + 
  4883. +         /* Get a lock on the default public screen. */
  4884. + 
  4885. +     if(DefaultScreen = LockPubScreen(NULL))
  4886. +     {
  4887. +         struct DisplayInfo    DisplayInfo;
  4888. +         ULONG             Mode;
  4889. + 
  4890. +             /* Get the default public screen display mode. */
  4891. + 
  4892. +         Mode = GetVPModeID(&DefaultScreen -> ViewPort);
  4893. + 
  4894. +             /* Inquire display mode information. */
  4895. + 
  4896. +         if(GetDisplayInfoData(NULL,(APTR)&DisplayInfo,sizeof(struct DisplayInfo),DTAG_DISP,Mode))
  4897. +         {
  4898. +             LONG    ScreenWidth,
  4899. +                 ScreenHeight;
  4900. +             LONG    i;
  4901. +             float    Width,
  4902. +                 Height;
  4903. +             LONG    Depth;
  4904. + 
  4905. +             if(GfxBase -> LibNode . lib_Version >= 39)
  4906. +                 Depth = GetBitMapAttr(DefaultScreen -> RastPort . BitMap,BMA_DEPTH);
  4907. +             else
  4908. +                 Depth = DefaultScreen -> RastPort . BitMap -> Depth;
  4909. + 
  4910. +                 /* Determine screen view dimensions. */
  4911. + 
  4912. +             if(DefaultScreen -> ViewPort . ColorMap -> cm_vpe)
  4913. +             {
  4914. +                 struct ViewPortExtra *Extra = DefaultScreen -> ViewPort . ColorMap -> cm_vpe;
  4915. + 
  4916. +                 ScreenWidth    = Extra -> DisplayClip . MaxX - Extra -> DisplayClip . MinX + 1;
  4917. +                 ScreenHeight    = Extra -> DisplayClip . MaxY - Extra -> DisplayClip . MinY + 1;
  4918. +             }
  4919. +             else
  4920. +             {
  4921. +                 struct ViewPortExtra *Extra;
  4922. + 
  4923. +                 if(Extra = (struct ViewPortExtra *)GfxLookUp(&DefaultScreen -> ViewPort))
  4924. +                 {
  4925. +                     ScreenWidth    = Extra -> DisplayClip . MaxX - Extra -> DisplayClip . MinX + 1;
  4926. +                     ScreenHeight    = Extra -> DisplayClip . MaxY - Extra -> DisplayClip . MinY + 1;
  4927. +                 }
  4928. +                 else
  4929. +                 {
  4930. +                     ScreenWidth    = DefaultScreen -> Width;
  4931. +                     ScreenHeight    = DefaultScreen -> Height;
  4932. +                 }
  4933. +             }
  4934. + 
  4935. +                 /* Use the best guess, we will take the standard
  4936. +                  * low resolution x-dpi value and scale it by
  4937. +                  * the pixel speed.
  4938. +                  */
  4939. + 
  4940. +             if(DisplayInfo . PixelSpeed)
  4941. +             {
  4942. +                 xdev -> x_pixels_per_inch = (35.0 * 140.0) / (float)DisplayInfo . PixelSpeed;
  4943. +                 xdev -> y_pixels_per_inch = (xdev -> x_pixels_per_inch * (float)DisplayInfo . Resolution . x) / (float)DisplayInfo . Resolution . y;
  4944. +             }
  4945. +             else
  4946. +             {
  4947. +                 xdev -> x_pixels_per_inch = 72.27;
  4948. +                 xdev -> y_pixels_per_inch = 72.27;
  4949. +             }
  4950. + 
  4951. +             if(xdev -> width > 0 && xdev -> height > 0)
  4952. +             {
  4953. +                 xdev -> super_width    = xdev -> width;
  4954. +                 xdev -> super_height    = xdev -> height;
  4955. +             }
  4956. +             else
  4957. +             {
  4958. +                 if(xdev -> page_width > 0.0)
  4959. +                     xdev -> super_width = (LONG)(xdev -> page_width * xdev -> x_pixels_per_inch);
  4960. +                 else
  4961. +                     xdev -> super_width = 640;
  4962. + 
  4963. +                 if(xdev -> page_height > 0.0)
  4964. +                     xdev -> super_height = (LONG)(xdev -> page_height * xdev -> y_pixels_per_inch);
  4965. +                 else
  4966. +                     xdev -> super_height = 512;
  4967. +             }
  4968. + 
  4969. +                 /* Allocate a bitmap ready to be used for
  4970. +                  * rendering.
  4971. +                  */
  4972. + 
  4973. +             if(xdev -> super_bitmap = CreateBitMap(xdev -> super_width,xdev -> super_height,Depth,BMF_DISPLAYABLE,DefaultScreen -> RastPort . BitMap,FALSE))
  4974. +             {
  4975. +                     /* Clear the bitplanes. */
  4976. + 
  4977. +                 BltBitMap(xdev -> super_bitmap,0,0,xdev -> super_bitmap,0,0,xdev -> super_width,xdev -> super_height,0x00,(1 << xdev -> super_bitmap -> Depth) - 1,NULL);
  4978. + 
  4979. +                     /* Create the scroller handles. */
  4980. + 
  4981. +                 if(CreateScrollers(dev,DefaultScreen))
  4982. +                 {
  4983. +                     struct IBox ZoomBox;
  4984. + 
  4985. +                         /* Set up the window alternate
  4986. +                          * position.
  4987. +                          */
  4988. + 
  4989. +                     ZoomBox . Left        = 0;
  4990. +                     ZoomBox . Top        = DefaultScreen -> BarHeight + 1;
  4991. +                     ZoomBox . Width        = ScreenWidth;
  4992. +                     ZoomBox . Height    = ScreenHeight - ZoomBox . Top;
  4993. + 
  4994. +                         /* Eventually, open the display window. */
  4995. + 
  4996. +                     if(xdev -> window = OpenWindowTags(NULL,
  4997. +                         WA_InnerWidth,        MIN(DefaultScreen -> Width / 2,xdev -> super_width),
  4998. +                         WA_InnerHeight,        MIN(DefaultScreen -> Height / 2,xdev -> super_height),
  4999. +                         WA_CloseGadget,        TRUE,
  5000. +                         WA_DepthGadget,        TRUE,
  5001. +                         WA_SizeGadget,        TRUE,
  5002. +                         WA_SizeBRight,        TRUE,
  5003. +                         WA_SizeBBottom,        TRUE,
  5004. +                         WA_Zoom,        &ZoomBox,
  5005. +                         WA_DragBar,        TRUE,
  5006. +                         WA_NoCareRefresh,    TRUE,
  5007. +                         WA_GimmeZeroZero,    TRUE,
  5008. +                         WA_RMBTrap,        TRUE,
  5009. +                         WA_SuperBitMap,        xdev -> super_bitmap,
  5010. +                         WA_Gadgets,        xdev -> gadget[VERTICAL_SCROLLER],
  5011. +                         WA_CustomScreen,    DefaultScreen,
  5012. +                         WA_Title,        "Ghostscript Amiga output window",
  5013. +                     TAG_DONE))
  5014. +                     {
  5015. +                         if(xdev -> temp_rport = CreateTempRPort(xdev -> window -> RPort))
  5016. +                         {
  5017. +                             if(xdev -> temp_array = (UBYTE *)AllocVec((xdev -> window -> WScreen -> Width + 15) & ~15,MEMF_ANY))
  5018. +                             {
  5019. +                                 struct Task *Task;
  5020. + 
  5021. +                                     /* Bring the window dispatcher task
  5022. +                                      * to life...
  5023. +                                      */
  5024. + 
  5025. +                                 if(Task = (struct Task *)CreateTask("Ghostscript window dispatcher",5,DispatchTask,8192))
  5026. +                                 {
  5027. +                                     const sigset_t trapped = sigmask(SIGINT);
  5028. + 
  5029. +                                         /* Cheap... */
  5030. + 
  5031. +                                     Task -> tc_UserData = dev;
  5032. + 
  5033. +                                         /* Who's calling? */
  5034. + 
  5035. +                                     xdev -> main = (struct Process *)FindTask(NULL);
  5036. + 
  5037. +                                         /* Don't let anybody interrupt us! */
  5038. + 
  5039. +                                     sigprocmask(SIG_BLOCK,&trapped,NULL);
  5040. + 
  5041. +                                     Forbid();
  5042. + 
  5043. +                                         /* Wake it up. */
  5044. + 
  5045. +                                     Signal(Task,SIG_HANDSHAKE);
  5046. + 
  5047. +                                         /* Clear the handshake bit. */
  5048. + 
  5049. +                                     SetSignal(0,SIG_HANDSHAKE);
  5050. + 
  5051. +                                         /* Wait for the report. */
  5052. + 
  5053. +                                     Wait(SIG_HANDSHAKE);
  5054. + 
  5055. +                                     Permit();
  5056. + 
  5057. +                                         /* Get the result. */
  5058. + 
  5059. +                                     Task = xdev -> dispatcher;
  5060. + 
  5061. +                                         /* Unblock signals. */
  5062. + 
  5063. +                                     sigprocmask(SIG_UNBLOCK,&trapped,NULL);
  5064. +                                 }
  5065. + 
  5066. +                                     /* Did we succeed in creating
  5067. +                                      * the dispatcher task?
  5068. +                                      */
  5069. + 
  5070. +                                 if(Task)
  5071. +                                 {
  5072. +                                     UWORD    MaxValue    = 0,
  5073. +                                         MinValue    = 15000,
  5074. +                                         Value,
  5075. +                                         R,G,B;
  5076. + 
  5077. +                                         /* Set the window limits. */
  5078. + 
  5079. +                                     WindowLimits(xdev -> window,xdev -> window -> BorderLeft + MINIMUM_WIDTH + xdev -> window -> BorderRight,xdev -> window -> BorderTop + MINIMUM_HEIGHT + xdev -> window -> BorderBottom,xdev -> window -> BorderLeft + xdev -> super_width + xdev -> window -> BorderRight,xdev -> window -> BorderTop + xdev -> super_height + xdev -> window -> BorderBottom);
  5080. + 
  5081. +                                         /* Update the sliders. */
  5082. + 
  5083. +                                     WindowResize(dev);
  5084. + 
  5085. +                                         /* Look for the darkest and the lightest screen colours. */
  5086. + 
  5087. +                                     for(i = 0 ; i < MIN(xdev -> window -> WScreen -> ViewPort . ColorMap -> Count,(1 << Depth)) ; i++)
  5088. +                                     {
  5089. +                                         Value = GetRGB4(xdev -> window -> WScreen -> ViewPort . ColorMap,i);
  5090. + 
  5091. +                                         R = (Value >> 8) & 0xF;
  5092. +                                         G = (Value >> 4) & 0xF;
  5093. +                                         B =  Value       & 0xF;
  5094. + 
  5095. +                                             /* Luminance conversion included */
  5096. + 
  5097. +                                         Value = R * 299 + G * 588 + B * 113;
  5098. + 
  5099. +                                         if(Value > MaxValue)
  5100. +                                         {
  5101. +                                             MaxValue = Value;
  5102. + 
  5103. +                                             LightPen = i;
  5104. +                                         }
  5105. + 
  5106. +                                         if(Value < MinValue)
  5107. +                                         {
  5108. +                                             MinValue = Value;
  5109. + 
  5110. +                                             DarkPen = i;
  5111. +                                         }
  5112. +                                     }
  5113. + 
  5114. +                                         /* Fill in the rest. */
  5115. + 
  5116. +                                     xdev -> width    = xdev -> super_width;
  5117. +                                     xdev -> height    = xdev -> super_height;
  5118. +                                     xdev -> rport    = xdev -> window -> RPort;
  5119. + 
  5120. +                                         /* Does the display support
  5121. +                                          * at least eight colours?
  5122. +                                          */
  5123. + 
  5124. +                                     if(Depth >= 3)
  5125. +                                     {
  5126. +                                         LONG cube_size,max;
  5127. + 
  5128. +                                             /* Set up a fitting colour cube. */
  5129. + 
  5130. +                                         for(cube_size = 6 ; cube_size >= 2 ; cube_size--)
  5131. +                                         {
  5132. +                                             if((max = cube_size * cube_size * cube_size) <= 1 << Depth)
  5133. +                                                 break;
  5134. +                                         }
  5135. + 
  5136. +                                             /* Got enough colours? */
  5137. + 
  5138. +                                         if(cube_size != 1)
  5139. +                                         {
  5140. +                                             LONG *Pens;
  5141. + 
  5142. +                                                 /* Try to grab the cube colours,
  5143. +                                                  * making a colour display.
  5144. +                                                  */
  5145. + 
  5146. +                                             if(Pens = AllocatePens(&xdev -> window -> WScreen -> ViewPort,cube_size))
  5147. +                                                 set_colour_device((gx_device_amiga *)dev,cube_size,Pens);
  5148. +                                         }
  5149. +                                     }
  5150. + 
  5151. +                                     SetBPen(xdev -> rport,0);
  5152. +                                     SetDrMd(xdev -> rport,JAM2);
  5153. + 
  5154. +                                     amiga_set_pen(dev,DarkPen);
  5155. + 
  5156. +                                     UnlockPubScreen(NULL,DefaultScreen);
  5157. + 
  5158. +                                     return(0);
  5159. +                                 }
  5160. +                                 else
  5161. +                                     perror("Ghostscript: failed to create dispatcher task");
  5162. +                             }
  5163. +                             else
  5164. +                                 perror("Ghostscript: failed to create temporary line buffer.");
  5165. +                         }
  5166. +                         else
  5167. +                             perror("Ghostscript: failed to create temporary raster port");
  5168. +                     }
  5169. +                     else
  5170. +                         perror("Ghostscript: failed to open window");
  5171. +                 }
  5172. +                 else
  5173. +                     perror("Ghostscript: failed to allocate scrollers");
  5174. +             }
  5175. +             else
  5176. +                 perror("Ghostscript: failed to allocate bitmap");
  5177. +         }
  5178. +         else
  5179. +             perror("Ghostscript: failed to get display mode information");
  5180. + 
  5181. +         UnlockPubScreen(NULL,DefaultScreen);
  5182. +     }
  5183. +     else
  5184. +         perror("Ghostscript: failed to lock default public screen");
  5185. + 
  5186. +     return(-1);
  5187. + }
  5188. + 
  5189. +     /* amiga_open_low(gx_device *dev):
  5190. +      *
  5191. +      *    Open the low resolution device.
  5192. +      */
  5193. + 
  5194. + int
  5195. + amiga_open_low(gx_device *dev)
  5196. + {
  5197. +     return(amiga_open(dev,LORES_KEY));
  5198. + }
  5199. + 
  5200. +     /* amiga_open_high(gx_device *dev):
  5201. +      *
  5202. +      *    Open the high resolution device.
  5203. +      */
  5204. + 
  5205. + int
  5206. + amiga_open_high(gx_device *dev)
  5207. + {
  5208. +     return(amiga_open(dev,HIRESLACE_KEY));
  5209. + }
  5210. + 
  5211. +     /* amiga_open_super(gx_device *dev):
  5212. +      *
  5213. +      *    Open the super high resolution device.
  5214. +      */
  5215. + 
  5216. + int
  5217. + amiga_open_super(gx_device *dev)
  5218. + {
  5219. +         /* Fall back to the default if not available. */
  5220. + 
  5221. +     if(ModeNotAvailable(SUPERLACE_KEY))
  5222. +         return(amiga_open_high(dev));
  5223. +     else
  5224. +         return(amiga_open(dev,SUPERLACE_KEY));
  5225. + }
  5226. + 
  5227. +     /* amiga_open_a2024(gx_device *dev):
  5228. +      *
  5229. +      *    Open the A2024 device.
  5230. +      */
  5231. + 
  5232. + int
  5233. + amiga_open_a2024(gx_device *dev)
  5234. + {
  5235. +         /* Fall back to the default if not available. */
  5236. + 
  5237. +     if(ModeNotAvailable(A2024TENHERTZ_KEY))
  5238. +         return(amiga_open_super(dev));
  5239. +     else
  5240. +         return(amiga_open(dev,A2024TENHERTZ_KEY));
  5241. + }
  5242. + 
  5243. +     /* amiga_open_picassoii(gx_device *dev):
  5244. +      *
  5245. +      *    Open the Picasso II device.
  5246. +      */
  5247. + 
  5248. + int
  5249. + amiga_open_picassoii(gx_device *dev)
  5250. + {
  5251. +         /* Fall back to the default if not available. */
  5252. + 
  5253. +     if(ModeNotAvailable(0x40020002))
  5254. +         return(amiga_open_super(dev));
  5255. +     else
  5256. +         return(amiga_open(dev,0x40020002));
  5257. + }
  5258. + 
  5259. + int
  5260. + amiga_open_custom(gx_device *dev)
  5261. + {
  5262. +     UBYTE    Buffer[256];
  5263. +     ULONG    ScreenID    = INVALID_ID;
  5264. +     BOOL    DontTouch    = FALSE;
  5265. + 
  5266. +         /* First step: check for an environment variable to give
  5267. +          *             the name of the display mode to use.
  5268. +          */
  5269. + 
  5270. +     if(GetVar("GSCUSTOMMODE",Buffer,256,NULL) != -1)
  5271. +     {
  5272. +         UBYTE PatternBuffer[516];
  5273. + 
  5274. +             /* Set up the search pattern. */
  5275. + 
  5276. +         if(ParsePatternNoCase(Buffer,PatternBuffer,516) >= 0)
  5277. +         {
  5278. +             ULONG CurrentID = INVALID_ID,ID;
  5279. + 
  5280. +                 /* Scan the entire list. */
  5281. + 
  5282. +             while((CurrentID = NextDisplayInfo(CurrentID)) != INVALID_ID)
  5283. +             {
  5284. +                     /* Valid mode? */
  5285. + 
  5286. +                 if(!ModeNotAvailable(CurrentID))
  5287. +                 {
  5288. +                     struct NameInfo    NameInfo;
  5289. + 
  5290. +                         /* Get the name information. */
  5291. + 
  5292. +                     if(GetDisplayInfoData(NULL,&NameInfo,sizeof(struct NameInfo),DTAG_NAME,CurrentID))
  5293. +                     {
  5294. +                             /* Does the mode name match the pattern given? */
  5295. + 
  5296. +                         if(MatchPatternNoCase(PatternBuffer,NameInfo . Name))
  5297. +                         {
  5298. +                             ScreenID = CurrentID;
  5299. + 
  5300. +                                 /* Don't overwrite the variable contents. */
  5301. + 
  5302. +                             DontTouch = TRUE;
  5303. + 
  5304. +                             break;
  5305. +                         }
  5306. +                     }
  5307. +                 }
  5308. +             }
  5309. +         }
  5310. +     }
  5311. + 
  5312. +     if(ScreenID == INVALID_ID && AslBase)
  5313. +     {
  5314. +         struct ScreenModeRequester *ScreenModeRequester;
  5315. + 
  5316. +         if(ScreenModeRequester = (struct ScreenModeRequester *)AllocAslRequestTags(ASL_ScreenModeRequest,TAG_DONE))
  5317. +         {
  5318. +             if(AslRequestTags(ScreenModeRequester,
  5319. +                 ASLSM_TitleText,    "Select GhostScript screen display mode",
  5320. +                 ASLSM_MinDepth,        1,
  5321. +                 ASLSM_MaxDepth,        8,
  5322. +             TAG_DONE))
  5323. +                 ScreenID = ScreenModeRequester -> sm_DisplayID;
  5324. + 
  5325. +             FreeAslRequest(ScreenModeRequester);
  5326. +         }
  5327. +     }
  5328. + 
  5329. +         /* Fall back to the default if not available. */
  5330. + 
  5331. +     if(ModeNotAvailable(ScreenID))
  5332. +         return(amiga_open_default(dev));
  5333. +     else
  5334. +     {
  5335. +         int result = amiga_open(dev,ScreenID);
  5336. + 
  5337. +             /* If successful store the name of the
  5338. +              * screen mode selected.
  5339. +              */
  5340. + 
  5341. +         if(!result && !DontTouch)
  5342. +         {
  5343. +             struct NameInfo    NameInfo;
  5344. + 
  5345. +             if(GetDisplayInfoData(NULL,&NameInfo,sizeof(struct NameInfo),DTAG_NAME,ScreenID))
  5346. +                 SetVar("GSCUSTOMMODE",NameInfo . Name,-1,NULL);
  5347. +         }
  5348. + 
  5349. +         return(result);
  5350. +     }
  5351. + }
  5352. + 
  5353. +     /* amiga_open_printer(gx_device *dev):
  5354. +      *
  5355. +      *    Open the printer device.
  5356. +      */
  5357. + 
  5358. + int
  5359. + amiga_open_printer(gx_device *dev)
  5360. + {
  5361. +     if(xdev -> port = CreateMsgPort())
  5362. +     {
  5363. +         if(xdev -> printer = (struct IODRPReq *)CreateIORequest(xdev -> port,sizeof(struct IODRPReq)))
  5364. +         {
  5365. +             if(!OpenDevice("printer.device",0,(struct IORequest *)xdev -> printer,0))
  5366. +             {
  5367. +                 if(xdev -> rport = (struct RastPort *)AllocVec(sizeof(struct RastPort),MEMF_ANY))
  5368. +                 {
  5369. +                     const sigset_t    trapped = sigmask(SIGINT);
  5370. +                     struct BitMap    DummyBitMap;
  5371. +                     UWORD        DummyLine[12];
  5372. + 
  5373. +                     InitRastPort(xdev -> rport);
  5374. + 
  5375. +                         /* Cook up a dummy bitmap to keep
  5376. +                          * `smart' drivers from complaining.
  5377. +                          */
  5378. + 
  5379. +                     InitBitMap(&DummyBitMap,12,16,16);
  5380. + 
  5381. +                     DummyBitMap . Planes[0] = (PLANEPTR)&DummyLine;
  5382. + 
  5383. +                     xdev -> rport -> BitMap = &DummyBitMap;
  5384. + 
  5385. +                         /* Query page size requirements. */
  5386. + 
  5387. +                     xdev -> printer -> io_Command    = PRD_DUMPRPORT;
  5388. +                     xdev -> printer -> io_RastPort    = xdev -> rport;
  5389. +                     xdev -> printer -> io_SrcWidth    = 16;
  5390. +                     xdev -> printer -> io_SrcHeight    = 16;
  5391. +                     xdev -> printer -> io_Modes    = LORES_KEY;
  5392. + 
  5393. +                     xdev -> printer -> io_Special    |= SPECIAL_FULLCOLS | SPECIAL_FULLROWS | SPECIAL_NOPRINT;
  5394. + 
  5395. +                         /* Don't let them stop us now! */
  5396. + 
  5397. +                     sigprocmask(SIG_BLOCK,&trapped,NULL);
  5398. + 
  5399. +                         /* Ask for it... */
  5400. + 
  5401. +                     if(!DoIO((struct IORequest *)xdev -> printer))
  5402. +                     {
  5403. +                         struct PrinterExtendedData    *PED;
  5404. +                         struct PrinterData        *PD;
  5405. +                         struct Preferences        *Prefs;
  5406. +                         LONG                 Depth,
  5407. +                                          NumColours,
  5408. +                                          CubeSize;
  5409. +                         LONG                 PageWidth,
  5410. +                                          PageHeight;
  5411. + 
  5412. +                             /* Unblock ^C signal. */
  5413. + 
  5414. +                         sigprocmask(SIG_UNBLOCK,&trapped,NULL);
  5415. + 
  5416. +                         xdev -> printer -> io_Special &= ~(SPECIAL_FULLCOLS | SPECIAL_FULLROWS | SPECIAL_NOPRINT);
  5417. + 
  5418. +                             /* Get the printer internal data. */
  5419. + 
  5420. +                         PD    = (struct PrinterData *)xdev -> printer -> io_Device;
  5421. +                         PED    = &PD -> pd_SegmentData -> ps_PED;
  5422. +                         Prefs    = &PD -> pd_Preferences;
  5423. + 
  5424. +                             /* Calculate the printer page size. */
  5425. + 
  5426. +                         PageWidth    = PED -> ped_XDotsInch * (Prefs -> PrintRightMargin - Prefs -> PrintLeftMargin + 1);
  5427. +                         PageHeight    = PED -> ped_YDotsInch * Prefs -> PaperLength;
  5428. + 
  5429. +                         switch(Prefs -> PrintPitch)
  5430. +                         {
  5431. +                             case PICA:
  5432. + 
  5433. +                                 PageWidth /= 10;
  5434. +                                 break;
  5435. + 
  5436. +                             case ELITE:
  5437. + 
  5438. +                                 PageWidth /= 12;
  5439. +                                 break;
  5440. + 
  5441. +                             case FINE:
  5442. + 
  5443. +                                 PageWidth /= 15;
  5444. +                                 break;
  5445. +                         }
  5446. + 
  5447. +                         switch(Prefs -> PrintSpacing)
  5448. +                         {
  5449. +                             case SIX_LPI:
  5450. + 
  5451. +                                 PageHeight /= 6;
  5452. +                                 break;
  5453. + 
  5454. +                             case EIGHT_LPI:
  5455. + 
  5456. +                                 PageHeight /= 8;
  5457. +                                 break;
  5458. +                         }
  5459. + 
  5460. +                         if(PageWidth > PED -> ped_MaxXDots)
  5461. +                             PageWidth = PED -> ped_MaxXDots;
  5462. + 
  5463. +                         if(PageHeight > PED -> ped_MaxYDots && PED -> ped_MaxYDots)
  5464. +                             PageHeight = PED -> ped_MaxYDots;
  5465. + 
  5466. +                             /* Set up the default colour values. */
  5467. + 
  5468. +                         if(Prefs -> PrintShade == SHADE_BW)
  5469. +                         {
  5470. +                             Depth        = 1;
  5471. +                             NumColours    = 2;
  5472. +                             CubeSize    = 0;
  5473. +                         }
  5474. +                         else
  5475. +                         {
  5476. +                             Depth        = 12;
  5477. +                             NumColours    = 4096;
  5478. +                             CubeSize    = 16;
  5479. +                         }
  5480. + 
  5481. +                             /* Get the page size */
  5482. + 
  5483. +                         if(xdev -> width > 0 && xdev -> height > 0)
  5484. +                         {
  5485. +                             if(PageWidth < xdev -> width)
  5486. +                                 xdev -> width = PageWidth;
  5487. + 
  5488. +                             if(PageHeight < xdev -> height)
  5489. +                                 xdev -> height = PageHeight;
  5490. +                         }
  5491. +                         else
  5492. +                         {
  5493. +                             xdev -> width    = PageWidth;
  5494. +                             xdev -> height    = PageHeight;
  5495. +                         }
  5496. + 
  5497. +                             /* Get the DPI values */
  5498. + 
  5499. +                         xdev -> x_pixels_per_inch    = (float)PED -> ped_XDotsInch;
  5500. +                         xdev -> y_pixels_per_inch    = (float)PED -> ped_YDotsInch;
  5501. + 
  5502. +                             /* Try to allocate a suitable bitmap.
  5503. +                              * If an allocation fails, rescale the
  5504. +                              * colour cube and bitmap depth and
  5505. +                              * retry. Minimum are eight colours.
  5506. +                              */
  5507. + 
  5508. +                         do
  5509. +                         {
  5510. +                                 /* Try to allocate the raster... */
  5511. + 
  5512. +                             if(!(xdev -> bitmap = CreateBitMap(xdev -> width,xdev -> height,Depth,NULL,NULL,TRUE)))
  5513. +                             {
  5514. +                                     /* Any chance to rescale the cube? */
  5515. + 
  5516. +                                 if(Depth < 2)
  5517. +                                     break;
  5518. +                                 else
  5519. +                                 {
  5520. +                                         /* One plane less... */
  5521. + 
  5522. +                                     Depth--;
  5523. + 
  5524. +                                         /* Rescale the cube. */
  5525. + 
  5526. +                                     while(CubeSize >= 2)
  5527. +                                     {
  5528. +                                         if((NumColours = CubeSize * CubeSize * CubeSize) <= (1 << Depth))
  5529. +                                             break;
  5530. +                                         else
  5531. +                                             CubeSize--;
  5532. +                                     }
  5533. + 
  5534. +                                         /* Less than eight colours? */
  5535. + 
  5536. +                                     if(CubeSize < 2)
  5537. +                                         break;
  5538. +                                 }
  5539. +                             }
  5540. +                         }
  5541. +                         while(!xdev -> bitmap);
  5542. + 
  5543. +                             /* Got the bitmap? */
  5544. + 
  5545. +                         if(xdev -> bitmap)
  5546. +                         {
  5547. +                                 /* Allocate a suitable colour map. */
  5548. + 
  5549. +                             if(xdev -> colormap = GetColorMap(NumColours))
  5550. +                             {
  5551. +                                     /* Black & white only? */
  5552. + 
  5553. +                                 if(NumColours == 2)
  5554. +                                 {
  5555. +                                     SetRGB4CM(xdev -> colormap,0,0x0,0x0,0x0);
  5556. +                                     SetRGB4CM(xdev -> colormap,1,0xF,0xF,0xF);
  5557. +                                 }
  5558. +                                 else
  5559. +                                 {
  5560. +                                     LONG i = 0,r,g,b,max = CubeSize - 1;
  5561. + 
  5562. +                                         /* Fill in the colour cube. */
  5563. + 
  5564. +                                     for(r = 0 ; r < CubeSize ; r++)
  5565. +                                     {
  5566. +                                         for(g = 0 ; g < CubeSize ; g++)
  5567. +                                         {
  5568. +                                             for(b = 0 ; b < CubeSize ; b++)
  5569. +                                                 SetRGB4CM(xdev -> colormap,i++,(15 * r) / max,(15 * g) / max,(15 * b) / max);
  5570. +                                         }
  5571. +                                     }
  5572. + 
  5573. +                                     set_colour_printer_device((gx_device_amiga *)dev,CubeSize);
  5574. +                                 }
  5575. + 
  5576. +                                 xdev -> printer -> io_ColorMap    = xdev -> colormap;
  5577. +                                 xdev -> rport -> BitMap        = xdev -> bitmap;
  5578. + 
  5579. +                                 return(0);
  5580. +                             }
  5581. +                             else
  5582. +                                 perror("Ghostscript: failed to allocate colour map");
  5583. +                         }
  5584. +                         else
  5585. +                         {
  5586. +                             char buffer[256];
  5587. + 
  5588. +                             sprintf(buffer,"Ghostscript: failed to allocate raster (wanted %ld, largest %ld)",(xdev -> width + 15) / 8 * xdev -> height * Depth,AvailMem(MEMF_ANY | MEMF_LARGEST));
  5589. + 
  5590. +                             perror(buffer);
  5591. +                         }
  5592. +                     }
  5593. +                     else
  5594. +                     {
  5595. +                         char buffer[256];
  5596. + 
  5597. +                         sigprocmask(SIG_UNBLOCK,&trapped,NULL);
  5598. + 
  5599. +                         sprintf(buffer,"Ghostscript: failed to query printer page size (error code #%ld)",xdev -> printer -> io_Error);
  5600. + 
  5601. +                         perror(buffer);
  5602. +                     }
  5603. +                 }
  5604. +                 else
  5605. +                     perror("Ghostscript: failed to allocate raster port");
  5606. +             }
  5607. +             else
  5608. +             {
  5609. +                 char buffer[256];
  5610. + 
  5611. +                 sprintf(buffer,"Ghostscript: failed to open printer.device (error code #%ld)",xdev -> printer -> io_Error);
  5612. + 
  5613. +                 perror(buffer);
  5614. +             }
  5615. +         }
  5616. +         else
  5617. +             perror("Ghostscript: failed to allocate device driver");
  5618. +     }
  5619. +     else
  5620. +         perror("Ghostscript: failed to create io port");
  5621. + 
  5622. +     return(-1);
  5623. + }
  5624. + 
  5625. +     /* amiga_output_page_printer(gx_device *dev,int,int):
  5626. +      *
  5627. +      *    Send a bitmap to the printer.
  5628. +      */
  5629. + 
  5630. + int
  5631. + amiga_output_page_printer(gx_device *dev,int num_copies,int flush)
  5632. + {
  5633. +     const sigset_t trapped = sigmask(SIGINT);
  5634. +     int result,i;
  5635. +     ULONG Signals;
  5636. + 
  5637. +     xdev -> printer -> io_Command    = PRD_DUMPRPORT;
  5638. +     xdev -> printer -> io_SrcWidth    = xdev -> width;
  5639. +     xdev -> printer -> io_SrcHeight    = xdev -> height;
  5640. +     xdev -> printer -> io_DestCols    = xdev -> width;
  5641. +     xdev -> printer -> io_DestRows    = xdev -> height;
  5642. + 
  5643. +         /* We cannot possibly allow being interrupted in the middle
  5644. +          * of a raster dump!
  5645. +          */
  5646. + 
  5647. +     sigprocmask(SIG_BLOCK,&trapped,NULL);
  5648. + 
  5649. +     for(i = 0 ; i < num_copies ; i++)
  5650. +     {
  5651. +         SetSignal(0,SIGBREAKF_CTRL_C | (1L << xdev -> port -> mp_SigBit));
  5652. + 
  5653. +         SendIO((struct IORequest *)xdev -> printer);
  5654. + 
  5655. +         Signals = Wait(SIGBREAKF_CTRL_C | (1L << xdev -> port -> mp_SigBit));
  5656. + 
  5657. +         if(Signals & SIGBREAKF_CTRL_C)
  5658. +         {
  5659. +             char buffer[256];
  5660. + 
  5661. +             if(!CheckIO((struct IORequest *)xdev -> printer))
  5662. +                 AbortIO((struct IORequest *)xdev -> printer);
  5663. + 
  5664. +             WaitIO((struct IORequest *)xdev -> printer);
  5665. + 
  5666. +             sprintf(buffer,"Ghostscript: printing aborted");
  5667. + 
  5668. +             perror(buffer);
  5669. + 
  5670. +             result = -1;
  5671. + 
  5672. +             sigprocmask(SIG_UNBLOCK,&trapped,NULL);
  5673. + 
  5674. +             break;
  5675. +         }
  5676. + 
  5677. +         if(Signals & (1L << xdev -> port -> mp_SigBit))
  5678. +         {
  5679. +             if(WaitIO((struct IORequest *)xdev -> printer))
  5680. +             {
  5681. +                 char buffer[256];
  5682. + 
  5683. +                 sprintf(buffer,"Ghostscript: failed to print raster (error code #%ld)",xdev -> printer -> io_Error);
  5684. + 
  5685. +                 perror(buffer);
  5686. + 
  5687. +                 result = -1;
  5688. + 
  5689. +                 sigprocmask(SIG_UNBLOCK,&trapped,NULL);
  5690. + 
  5691. +                 break;
  5692. +             }
  5693. +             else
  5694. +                 result = 0;
  5695. +         }
  5696. +     }
  5697. + 
  5698. +     sigprocmask(SIG_UNBLOCK,&trapped,NULL);
  5699. + 
  5700. +     return(result);
  5701. + }
  5702. + 
  5703. +     /* amiga_close_printer(gx_device *dev):
  5704. +      *
  5705. +      *    Close the printer driver.
  5706. +      */
  5707. + 
  5708. + int
  5709. + amiga_close_printer(gx_device *dev)
  5710. + {
  5711. +     if(xdev -> bitmap)
  5712. +     {
  5713. +         DeleteBitMap(xdev -> bitmap,TRUE);
  5714. + 
  5715. +         xdev -> bitmap = NULL;
  5716. +     }
  5717. + 
  5718. +     if(xdev -> rport)
  5719. +     {
  5720. +         FreeVec(xdev -> rport);
  5721. + 
  5722. +         xdev -> rport = NULL;
  5723. +     }
  5724. + 
  5725. +     if(xdev -> colormap)
  5726. +     {
  5727. +         FreeColorMap(xdev -> colormap);
  5728. + 
  5729. +         xdev -> colormap = NULL;
  5730. +     }
  5731. + 
  5732. +     if(xdev -> printer)
  5733. +     {
  5734. +         if(xdev -> printer -> io_Device)
  5735. +             CloseDevice((struct IORequest *)xdev -> printer);
  5736. + 
  5737. +         DeleteIORequest(xdev -> printer);
  5738. + 
  5739. +         xdev -> printer = NULL;
  5740. +     }
  5741. + 
  5742. +     if(xdev -> port)
  5743. +     {
  5744. +         DeleteMsgPort(xdev -> port);
  5745. + 
  5746. +         xdev -> port = NULL;
  5747. +     }
  5748. + 
  5749. +     xdev -> width = xdev -> height = 0;
  5750. + /*    xdev -> x_pixels_per_inch = x_pixels_per_inch = 72.72;*/
  5751. + 
  5752. +     return(0);
  5753. + }
  5754. + 
  5755. +     /* amiga_get_bits(gx_device *dev,int y,byte *str,byte **actual_data):
  5756. +      *
  5757. +      *    Read the raster bits into a buffer.
  5758. +      */
  5759. + 
  5760. + int
  5761. + amiga_get_bits(gx_device *dev,int y,byte *str,byte **actual_data)
  5762. + {
  5763. +     if(y < 0 || y > xdev -> height)
  5764. +         return(-1);
  5765. +     else
  5766. +     {
  5767. +         if(actual_data)
  5768. +             *actual_data = (byte *)(xdev -> bitmap -> Planes[0] + xdev -> bitmap -> BytesPerRow * y);
  5769. +         else
  5770. +             memcpy(str,xdev -> bitmap -> Planes[0] + xdev -> bitmap -> BytesPerRow * y,xdev -> bitmap -> BytesPerRow);
  5771. + 
  5772. +         return(0);
  5773. +     }
  5774. + }
  5775. + 
  5776. +     /* amiga_open(gx_device *dev,ULONG Mode):
  5777. +      *
  5778. +      *    Open a custom screen.
  5779. +      */
  5780. + 
  5781. + int
  5782. + amiga_open(gx_device *dev,ULONG Mode)
  5783. + {
  5784. +     struct DisplayInfo    DisplayInfo;
  5785. +     struct DimensionInfo    DimensionInfo;
  5786. + 
  5787. +         /* Get the display dimensions. */
  5788. + 
  5789. +     if(GetDisplayInfoData(NULL,(APTR)&DisplayInfo,sizeof(struct DisplayInfo),DTAG_DISP,Mode) && GetDisplayInfoData(NULL,(APTR)&DimensionInfo,sizeof(struct DimensionInfo),DTAG_DIMS,Mode))
  5790. +     {
  5791. +             /* Two shades only, black & white */
  5792. + 
  5793. +         STATIC struct ColorSpec Colours[] =
  5794. +         {
  5795. +              0,    0x0000, 0x0000, 0x0000,
  5796. +              1,    0xFFFF, 0xFFFF, 0xFFFF,
  5797. + 
  5798. +             -1
  5799. +         };
  5800. + 
  5801. +         float    Width,
  5802. +             Height;
  5803. +         LONG    i,cube_size,max;
  5804. +         LONG    ScreenWidth,
  5805. +             ScreenHeight,
  5806. +             ScreenDepth;
  5807. + 
  5808. +             /* Start up with a maximum depth display. */
  5809. + 
  5810. +         ScreenDepth = DimensionInfo . MaxDepth;
  5811. + 
  5812. +             /* Check to see whether we will be able to
  5813. +              * build a colour display or not.
  5814. +              */
  5815. + 
  5816. +         for(cube_size = 6 ; cube_size >= 2 ; cube_size--)
  5817. +         {
  5818. +             if((max = cube_size * cube_size * cube_size) <= 1 << ScreenDepth)
  5819. +                 break;
  5820. +         }
  5821. + 
  5822. +             /* Got enough colours? */
  5823. + 
  5824. +         if(cube_size != 1)
  5825. +             set_colour_device((gx_device_amiga *)dev,cube_size,NULL);
  5826. +         else
  5827. +         {
  5828. +             ScreenDepth = 1;
  5829. + 
  5830. +             set_mono_device((gx_device_amiga *)dev);
  5831. +         }
  5832. + 
  5833. +         if(xdev -> width > 0 && xdev -> height > 0)
  5834. +         {
  5835. +             Width    = xdev -> width;
  5836. +             Height    = xdev -> height;
  5837. +         }
  5838. +         else
  5839. +         {
  5840. +             if(xdev -> page_width > 0.0)
  5841. +                 Width = xdev -> page_width;
  5842. +             else
  5843. +                 Width = 0.0;
  5844. + 
  5845. +             if(xdev -> page_height > 0.0)
  5846. +                 Height = xdev -> page_height;
  5847. +             else
  5848. +                 Height = 0.0;
  5849. +         }
  5850. + 
  5851. +             /* Use the best guess, we will take the standard
  5852. +              * low resolution x-dpi value and scale it by
  5853. +              * the pixel speed.
  5854. +              */
  5855. + 
  5856. +         if(DisplayInfo . PixelSpeed)
  5857. +         {
  5858. +             xdev -> x_pixels_per_inch = (35.0 * 140.0) / (float)DisplayInfo . PixelSpeed;
  5859. +             xdev -> y_pixels_per_inch = (xdev -> x_pixels_per_inch * (float)DisplayInfo . Resolution . x) / (float)DisplayInfo . Resolution . y;
  5860. +         }
  5861. +         else
  5862. +         {
  5863. +             xdev -> x_pixels_per_inch = 72.27;
  5864. +             xdev -> y_pixels_per_inch = 72.27;
  5865. +         }
  5866. + 
  5867. +         if(Width > 0.0)
  5868. +             ScreenWidth = (LONG)(Width * xdev -> x_pixels_per_inch);
  5869. +         else
  5870. +             ScreenWidth = 0;
  5871. + 
  5872. +         if(Height > 0.0)
  5873. +             ScreenHeight = (LONG)(Height * xdev -> y_pixels_per_inch);
  5874. +         else
  5875. +             ScreenHeight = 0;
  5876. + 
  5877. +         if(ScreenWidth < DimensionInfo . MinRasterWidth || ScreenWidth > DimensionInfo . MaxRasterWidth)
  5878. +             ScreenWidth = 0;
  5879. + 
  5880. +         if(ScreenHeight < DimensionInfo . MinRasterHeight || ScreenHeight > DimensionInfo . MaxRasterHeight)
  5881. +             ScreenHeight = 0;
  5882. + 
  5883. +             /* Try to open a custom screen; if this fails, try to
  5884. +              * rescale the colour cube and retry.
  5885. +              */
  5886. + 
  5887. +         do
  5888. +         {
  5889. +             if(!(xdev -> screen = OpenScreenTags(NULL,
  5890. +                 SA_Depth,    ScreenDepth,
  5891. +                 SA_Overscan,    OSCAN_TEXT,
  5892. +                 SA_Quiet,    TRUE,
  5893. +                 SA_Behind,    TRUE,
  5894. +                 SA_DisplayID,    Mode,
  5895. +                 SA_Colors,    Colours,
  5896. +                 SA_AutoScroll,    TRUE,
  5897. +                 SA_ShowTitle,    FALSE,
  5898. +                 SA_Title,    "Ghostscript Amiga output screen",
  5899. + 
  5900. +                 ScreenWidth  > 0 ? SA_Width  : TAG_IGNORE,    ScreenWidth,
  5901. +                 ScreenHeight > 0 ? SA_Height : TAG_IGNORE,    ScreenHeight,
  5902. +             TAG_DONE)))
  5903. +             {
  5904. +                 if(ScreenDepth < 2)
  5905. +                     break;
  5906. +                 else
  5907. +                 {
  5908. +                     ScreenDepth--;
  5909. + 
  5910. +                         /* Check to see whether we will be able to
  5911. +                          * build a colour display or not.
  5912. +                          */
  5913. + 
  5914. +                     while(cube_size >= 2)
  5915. +                     {
  5916. +                         if((max = cube_size * cube_size * cube_size) <= 1 << ScreenDepth)
  5917. +                             break;
  5918. +                         else
  5919. +                             cube_size--;
  5920. +                     }
  5921. + 
  5922. +                         /* Got enough colours? */
  5923. + 
  5924. +                     if(cube_size == 1 || ScreenDepth == 1)
  5925. +                     {
  5926. +                             /* Obviously not. */
  5927. + 
  5928. +                         ScreenDepth = 1;
  5929. + 
  5930. +                         set_mono_device((gx_device_amiga *)dev);
  5931. +                     }
  5932. +                 }
  5933. +             }
  5934. +         }
  5935. +         while(!xdev -> screen);
  5936. + 
  5937. +             /* Did we succeed in opening the screen? */
  5938. + 
  5939. +         if(xdev -> screen)
  5940. +         {
  5941. +             if(xdev -> window = OpenWindowTags(NULL,
  5942. +                 WA_Left,    0,
  5943. +                 WA_Top,        0,
  5944. +                 WA_Width,    xdev -> screen -> Width,
  5945. +                 WA_Height,    xdev -> screen -> Height,
  5946. +                 WA_Backdrop,    TRUE,
  5947. +                 WA_RMBTrap,    TRUE,
  5948. +                 WA_Borderless,    TRUE,
  5949. +                 WA_CustomScreen,xdev -> screen,
  5950. +             TAG_DONE))
  5951. +             {
  5952. +                 xdev -> rport    = xdev -> window -> RPort;
  5953. +                 xdev -> width    = xdev -> screen -> Width;
  5954. +                 xdev -> height    = xdev -> screen -> Height;
  5955. +             }
  5956. +             else
  5957. +             {
  5958. +                 xdev -> rport    = &xdev -> screen -> RastPort;
  5959. +                 xdev -> width    = xdev -> screen -> Width;
  5960. +                 xdev -> height    = xdev -> screen -> Height;
  5961. +             }
  5962. + 
  5963. +                 /* Establish defaults. */
  5964. + 
  5965. +             DarkPen        = 0;
  5966. +             LightPen    = 1;
  5967. + 
  5968. +             SetBPen(xdev -> rport,0);
  5969. +             SetDrMd(xdev -> rport,JAM2);
  5970. + 
  5971. +                 /* Create the temporary drawing area. */
  5972. + 
  5973. +             if(xdev -> temp_rport = CreateTempRPort(xdev -> rport))
  5974. +             {
  5975. +                 if(xdev -> temp_array = (UBYTE *)AllocVec((xdev -> screen -> Width + 15) & ~15,MEMF_ANY))
  5976. +                 {
  5977. +                         /* Colour output enabled? */
  5978. + 
  5979. +                     if(xdev -> cube_size > 0)
  5980. +                     {
  5981. +                         LONG r,g,b,max = xdev -> cube_size - 1;
  5982. + 
  5983. +                         i = 0;
  5984. + 
  5985. +                             /* Build a suitable colour map. */
  5986. + 
  5987. +                         if(GfxBase -> LibNode . lib_Version >= 39)
  5988. +                         {
  5989. +                             for(r = 0 ; r < xdev -> cube_size ; r++)
  5990. +                             {
  5991. +                                 for(g = 0 ; g < xdev -> cube_size ; g++)
  5992. +                                 {
  5993. +                                     for(b = 0 ; b < xdev -> cube_size ; b++)
  5994. +                                         SetRGB32(&xdev -> screen -> ViewPort,i++,SPREAD((255 * r) / max),SPREAD((255 * g) / max),SPREAD((255 * b) / max));
  5995. +                                 }
  5996. +                             }
  5997. +                         }
  5998. +                         else
  5999. +                         {
  6000. +                             for(r = 0 ; r < xdev -> cube_size ; r++)
  6001. +                             {
  6002. +                                 for(g = 0 ; g < xdev -> cube_size ; g++)
  6003. +                                 {
  6004. +                                     for(b = 0 ; b < xdev -> cube_size ; b++)
  6005. +                                         SetRGB4(&xdev -> screen -> ViewPort,i++,(15 * r) / max,(15 * g) / max,(15 * b) / max);
  6006. +                                 }
  6007. +                             }
  6008. +                         }
  6009. +                     }
  6010. +                 }
  6011. +                 else
  6012. +                 {
  6013. +                     perror("Ghostscript: failed to allocate temporary line");
  6014. + 
  6015. +                     return(-1);
  6016. +                 }
  6017. +             }
  6018. +             else
  6019. +             {
  6020. +                 perror("Ghostscript: failed to allocate temporary raster");
  6021. + 
  6022. +                 return(-1);
  6023. +             }
  6024. + 
  6025. +             amiga_set_pen(dev,DarkPen);
  6026. + 
  6027. +             return(0);
  6028. +         }
  6029. +         else
  6030. +             perror("Ghostscript: failed to open screen");
  6031. +     }
  6032. +     else
  6033. +         perror("Ghostscript: failed to get display mode information");
  6034. + 
  6035. +     return(-1);
  6036. + }
  6037. + 
  6038. +     /* amiga_output_page(gx_device *dev,int,int):
  6039. +      *
  6040. +      *    Page is not `buffered', just bring screen/window
  6041. +      *    to the front.
  6042. +      */
  6043. + 
  6044. + int
  6045. + amiga_output_page(gx_device *dev,int num_copies,int flush)
  6046. + {
  6047. +     if(xdev -> screen)
  6048. +         ScreenToFront(xdev -> screen);
  6049. +     else
  6050. +     {
  6051. +         if(xdev -> window)
  6052. +             WindowToFront(xdev -> window);
  6053. +     }
  6054. + 
  6055. +     return(0);
  6056. + }
  6057. + 
  6058. +     /* amiga_close(gx_device *dev):
  6059. +      *
  6060. +      *    Close the screen and free associated resources.
  6061. +      */
  6062. + 
  6063. + int
  6064. + amiga_close(gx_device *dev)
  6065. + {
  6066. +     if(xdev -> dispatcher)
  6067. +     {
  6068. +         const sigset_t trapped = sigmask(SIGINT);
  6069. + 
  6070. +         sigprocmask(SIG_BLOCK,&trapped,NULL);
  6071. + 
  6072. +         Forbid();
  6073. + 
  6074. +         Signal(xdev -> dispatcher,SIG_KILL);
  6075. + 
  6076. +         SetSignal(0,SIG_HANDSHAKE);
  6077. + 
  6078. +         Wait(SIG_HANDSHAKE);
  6079. + 
  6080. +         Permit();
  6081. + 
  6082. +         sigprocmask(SIG_UNBLOCK,&trapped,NULL);
  6083. +     }
  6084. + 
  6085. +     if(xdev -> temp_array)
  6086. +     {
  6087. +         FreeVec(xdev -> temp_array);
  6088. + 
  6089. +         xdev -> temp_array = NULL;
  6090. +     }
  6091. + 
  6092. +     if(xdev -> pens)
  6093. +     {
  6094. +         LONG i;
  6095. + 
  6096. +         for(i = 0 ; i < xdev -> cube_size * xdev -> cube_size * xdev -> cube_size ; i++)
  6097. +         {
  6098. +             if(xdev -> pens[i] != -1)
  6099. +                 ReleasePen(xdev -> window -> WScreen -> ViewPort . ColorMap,xdev -> pens[i]);
  6100. +         }
  6101. + 
  6102. +         FreeVec(xdev -> pens);
  6103. + 
  6104. +         xdev -> pens = NULL;
  6105. +     }
  6106. + 
  6107. +     if(xdev -> temp_rport)
  6108. +     {
  6109. +         DeleteTempRPort(xdev -> temp_rport);
  6110. + 
  6111. +         xdev -> temp_rport = NULL;
  6112. +     }
  6113. + 
  6114. +     if(xdev -> window)
  6115. +     {
  6116. +         CloseWindow(xdev -> window);
  6117. + 
  6118. +         xdev -> window = NULL;
  6119. +     }
  6120. + 
  6121. +     DeleteScrollers(dev);
  6122. + 
  6123. +     if(xdev -> super_bitmap)
  6124. +     {
  6125. +         DeleteBitMap(xdev -> super_bitmap,FALSE);
  6126. + 
  6127. +         xdev -> super_bitmap = NULL;
  6128. +     }
  6129. + 
  6130. +     if(xdev -> screen)
  6131. +     {
  6132. +         CloseScreen(xdev -> screen);
  6133. + 
  6134. +         xdev -> screen = NULL;
  6135. +     }
  6136. + 
  6137. +     xdev -> width = xdev -> height = 0;
  6138. + /*    xdev -> x_pixels_per_inch = x_pixels_per_inch = 72.72;*/
  6139. + 
  6140. +     return(0);
  6141. + }
  6142. + 
  6143. +     /* amiga_fill_rectangle(gx_device *dev,int x,int y,int w,int h,gx_color_index color):
  6144. +      *
  6145. +      *    Fill a rectangle with a given colour. This one is simple as it can
  6146. +      *    be done with the Amiga graphics primitives.
  6147. +      */
  6148. + 
  6149. + int
  6150. + amiga_fill_rectangle(gx_device *dev,int x,int y,int w,int h,gx_color_index color)
  6151. + {
  6152. +     if(x < 0 || x > xdev -> width - w || y < 0 || y > xdev -> height - h)
  6153. +         return(-1);
  6154. +     else
  6155. +     {
  6156. +         if(w > 0 && h > 0 && color != gx_no_color_index)
  6157. +         {
  6158. +             amiga_set_pen(dev,color);
  6159. + 
  6160. +             RectFill(xdev -> rport,x,y,x + w - 1,y + h - 1);
  6161. +         }
  6162. + 
  6163. +         return(0);
  6164. +     }
  6165. + }
  6166. + 
  6167. +     /* amiga_copy_mono():
  6168. +      *
  6169. +      *    Copy a monochrome image. This operation requires a bit of work as
  6170. +      *    we cannot simply blit the image into the bitmap.
  6171. +      */
  6172. + 
  6173. + int
  6174. + amiga_copy_mono(gx_device *dev,const UBYTE *base,int sourcex,int raster,gx_bitmap_id id,int x,int y,int w,int h,gx_color_index zero,gx_color_index one)
  6175. + {
  6176. +     if(y < 0 || x < 0 || w < 0 || h < 0)
  6177. +         return(-1);
  6178. +     else
  6179. +     {
  6180. +         if(w > 0 && h > 0)
  6181. +         {
  6182. +             LONG i,j;
  6183. + 
  6184. +             if(zero == gx_no_color_index)
  6185. +             {
  6186. +                 if(one != gx_no_color_index)
  6187. +                 {
  6188. +                     do
  6189. +                     {
  6190. +                         ReadPixelLine8(xdev -> rport,x,y,w,xdev -> temp_array,xdev -> temp_rport);
  6191. + 
  6192. +                         for(i = sourcex, j = 0 ; i < sourcex + w ; i++, j++)
  6193. +                         {
  6194. +                             if(base[i >> 3] & shift[i & 7])
  6195. +                                 xdev -> temp_array[j] = one;
  6196. +                         }
  6197. + 
  6198. +                         WritePixelLine8(xdev -> rport,x,y,w,xdev -> temp_array,xdev -> temp_rport);
  6199. + 
  6200. +                         base += raster;
  6201. + 
  6202. +                         y++;
  6203. +                     }
  6204. +                     while(--h);
  6205. +                 }
  6206. +             }
  6207. +             else
  6208. +             {
  6209. +                 if(one == gx_no_color_index)
  6210. +                 {
  6211. +                     do
  6212. +                     {
  6213. +                         ReadPixelLine8(xdev -> rport,x,y,w,xdev -> temp_array,xdev -> temp_rport);
  6214. + 
  6215. +                         for(i = sourcex, j = 0 ; i < w + sourcex ; i++, j++)
  6216. +                         {
  6217. +                             if(!(base[i >> 3] & shift[i & 7]))
  6218. +                                 xdev -> temp_array[j] = zero;
  6219. +                         }
  6220. + 
  6221. +                         WritePixelLine8(xdev -> rport,x,y,w,xdev -> temp_array,xdev -> temp_rport);
  6222. + 
  6223. +                         base += raster;
  6224. + 
  6225. +                         y++;
  6226. +                     }
  6227. +                     while(--h);
  6228. +                 }
  6229. +                 else
  6230. +                 {
  6231. +                     do
  6232. +                     {
  6233. +                         for(i = sourcex, j = 0 ; i < w + sourcex ; i++, j++)
  6234. +                         {
  6235. +                             if(base[i >> 3] & shift[i & 7])
  6236. +                                 xdev -> temp_array[j] = one;
  6237. +                             else
  6238. +                                 xdev -> temp_array[j] = zero;
  6239. +                         }
  6240. + 
  6241. +                         WritePixelLine8(xdev -> rport,x,y,w,xdev -> temp_array,xdev -> temp_rport);
  6242. + 
  6243. +                         base += raster;
  6244. + 
  6245. +                         y++;
  6246. +                     }
  6247. +                     while(--h);
  6248. +                 }
  6249. +             }
  6250. +         }
  6251. + 
  6252. +         return(0);
  6253. +     }
  6254. + }
  6255. + 
  6256. +     /* amiga_copy_color():
  6257. +      *
  6258. +      *    Copy a color image (oh well...). This is just the same as the
  6259. +      *    copy_mono() routine.
  6260. +      */
  6261. + 
  6262. + int
  6263. + amiga_copy_color(gx_device *dev,const UBYTE *base,int sourcex,int raster,gx_bitmap_id id,int x,int y,int w,int h)
  6264. + {
  6265. +     if(y < 0 || x < 0 || w < 0 || h < 0)
  6266. +         return(-1);
  6267. +     else
  6268. +     {
  6269. +         if(w > 0 && h > 0)
  6270. +         {
  6271. +             LONG i,j;
  6272. + 
  6273. +             do
  6274. +             {
  6275. +                 for(i = sourcex, j = 0 ; i < w + sourcex ; i++, j++)
  6276. +                 {
  6277. +                     if(base[i >> 3] & shift[i & 7])
  6278. +                         xdev -> temp_array[j] = DarkPen;
  6279. +                     else
  6280. +                         xdev -> temp_array[j] = LightPen;
  6281. +                 }
  6282. + 
  6283. +                 WritePixelLine8(xdev -> rport,x,y,w,xdev -> temp_array,xdev -> temp_rport);
  6284. + 
  6285. +                 base += raster;
  6286. + 
  6287. +                 y++;
  6288. +             }
  6289. +             while(--h);
  6290. +         }
  6291. + 
  6292. +         return(0);
  6293. +     }
  6294. + }
  6295. + 
  6296. +     /* amiga_draw_line(gx_device *dev,int x0,int y0,int x1,int y1,gx_color_index color):
  6297. +      *
  6298. +      *    Draw a line between two points. This one is easy as it can be done
  6299. +      *    with the Amiga graphics primitives, the only glitch is having to reset
  6300. +      *    the last dot to its original colour.
  6301. +      */
  6302. + 
  6303. + int
  6304. + amiga_draw_line(gx_device *dev,int x0,int y0,int x1,int y1,gx_color_index color)
  6305. + {
  6306. +     if(color != gx_no_color_index && (x0 != x1 || y0 != y1))
  6307. +     {
  6308. +         LONG pen;
  6309. + 
  6310. +         pen = ReadPixel(xdev -> rport,x1,y1);
  6311. + 
  6312. +         amiga_set_pen(dev,color);
  6313. + 
  6314. +         Move(xdev -> rport,x0,y0);
  6315. +         Draw(xdev -> rport,x1,y1);
  6316. + 
  6317. +         if(pen == color)
  6318. +         {
  6319. +             amiga_set_pen(dev,pen);
  6320. + 
  6321. +             WritePixel(xdev -> rport,x1,y1);
  6322. +         }
  6323. +     }
  6324. + 
  6325. +     return(0);
  6326. + }
  6327. + 
  6328. +     /* amiga_copy_mono_raw():
  6329. +      *
  6330. +      *    Copy a monochrome image to a bitmap. Just watch the
  6331. +      *    astounding number of case switches.
  6332. +      */
  6333. + 
  6334. + int
  6335. + amiga_copy_mono_raw(gx_device *dev,const UBYTE *base,int sourcex,int raster,gx_bitmap_id id,int x,int y,int w,int h,gx_color_index zero,gx_color_index one)
  6336. + {
  6337. +     if(y < 0 || x < 0 || w < 0 || h < 0)
  6338. +         return(-1);
  6339. +     else
  6340. +     {
  6341. +         if(w > 0 && h > 0)
  6342. +         {
  6343. +             LONG i,j,modulo = xdev -> rport -> BitMap -> BytesPerRow;
  6344. +             UBYTE *line;
  6345. + 
  6346. +             w += sourcex;
  6347. + 
  6348. +             line = xdev -> rport -> BitMap -> Planes[0] + y * xdev -> rport -> BitMap -> BytesPerRow;
  6349. + 
  6350. +             if(zero == gx_no_color_index)
  6351. +             {
  6352. +                 if(one != gx_no_color_index)
  6353. +                 {
  6354. +                     if(one)
  6355. +                     {
  6356. +                         do
  6357. +                         {
  6358. +                             for(i = sourcex, j = x ; i < w ; i++, j++)
  6359. +                             {
  6360. +                                 if(base[i >> 3] & shift[i & 7])
  6361. +                                     line[j >> 3] |= shift[j & 7];
  6362. +                             }
  6363. + 
  6364. +                             base += raster;
  6365. + 
  6366. +                             line += modulo;
  6367. +                         }
  6368. +                         while(--h);
  6369. +                     }
  6370. +                     else
  6371. +                     {
  6372. +                         do
  6373. +                         {
  6374. +                             for(i = sourcex, j = x ; i < w ; i++, j++)
  6375. +                             {
  6376. +                                 if(base[i >> 3] & shift[i & 7])
  6377. +                                     line[j >> 3] &= masks[j & 7];
  6378. +                             }
  6379. + 
  6380. +                             base += raster;
  6381. + 
  6382. +                             line += modulo;
  6383. +                         }
  6384. +                         while(--h);
  6385. +                     }
  6386. +                 }
  6387. +             }
  6388. +             else
  6389. +             {
  6390. +                 if(one == gx_no_color_index)
  6391. +                 {
  6392. +                     if(zero)
  6393. +                     {
  6394. +                         do
  6395. +                         {
  6396. +                             for(i = sourcex, j = x ; i < w ; i++, j++)
  6397. +                             {
  6398. +                                 if(!(base[i >> 3] & shift[i & 7]))
  6399. +                                     line[j >> 3] |= shift[j & 7];
  6400. +                             }
  6401. + 
  6402. +                             base += raster;
  6403. + 
  6404. +                             line += modulo;
  6405. +                         }
  6406. +                         while(--h);
  6407. +                     }
  6408. +                     else
  6409. +                     {
  6410. +                         do
  6411. +                         {
  6412. +                             for(i = sourcex, j = x ; i < w ; i++, j++)
  6413. +                             {
  6414. +                                 if(!(base[i >> 3] & shift[i & 7]))
  6415. +                                     line[j >> 3] &= masks[j & 7];
  6416. +                             }
  6417. + 
  6418. +                             base += raster;
  6419. + 
  6420. +                             line += modulo;
  6421. +                         }
  6422. +                         while(--h);
  6423. +                     }
  6424. +                 }
  6425. +                 else
  6426. +                 {
  6427. +                     if(one)
  6428. +                     {
  6429. +                         do
  6430. +                         {
  6431. +                             for(i = sourcex, j = x ; i < w ; i++, j++)
  6432. +                             {
  6433. +                                 if(base[i >> 3] & shift[i & 7])
  6434. +                                     line[j >> 3] |= shift[j & 7];
  6435. +                                 else
  6436. +                                     line[j >> 3] &= masks[j & 7];
  6437. +                             }
  6438. + 
  6439. +                             base += raster;
  6440. + 
  6441. +                             line += modulo;
  6442. +                         }
  6443. +                         while(--h);
  6444. +                     }
  6445. +                     else
  6446. +                     {
  6447. +                         do
  6448. +                         {
  6449. +                             for(i = sourcex, j = x ; i < w ; i++, j++)
  6450. +                             {
  6451. +                                 if(base[i >> 3] & shift[i & 7])
  6452. +                                     line[j >> 3] &= masks[j & 7];
  6453. +                                 else
  6454. +                                     line[j >> 3] |= shift[j & 7];
  6455. +                             }
  6456. + 
  6457. +                             base += raster;
  6458. + 
  6459. +                             line += modulo;
  6460. +                         }
  6461. +                         while(--h);
  6462. +                     }
  6463. +                 }
  6464. +             }
  6465. +         }
  6466. + 
  6467. +         return(0);
  6468. +     }
  6469. + }
  6470. + 
  6471. +     /* amiga_copy_color_raw():
  6472. +      *
  6473. +      *    Copy a color image (oh well...). This is just the same as the
  6474. +      *    copy_mono() routine.
  6475. +      */
  6476. + 
  6477. + int
  6478. + amiga_copy_color_raw(gx_device *dev,const UBYTE *base,int sourcex,int raster,gx_bitmap_id id,int x,int y,int w,int h)
  6479. + {
  6480. +     if(y < 0 || x < 0 || w < 0 || h < 0)
  6481. +         return(-1);
  6482. +     else
  6483. +     {
  6484. +         if(w > 0 && h > 0)
  6485. +         {
  6486. +             LONG i,j,modulo = xdev -> rport -> BitMap -> BytesPerRow;
  6487. +             UBYTE *line;
  6488. + 
  6489. +             line = xdev -> rport -> BitMap -> Planes[0] + y * xdev -> rport -> BitMap -> BytesPerRow;
  6490. + 
  6491. +             w += sourcex;
  6492. + 
  6493. +             do
  6494. +             {
  6495. +                 for(i = sourcex, j = x ; i < w ; i++, j++)
  6496. +                 {
  6497. +                     if(base[i >> 3] & shift[i & 7])
  6498. +                         line[j >> 3] |= shift[j & 7];
  6499. +                     else
  6500. +                         line[j >> 3] &= masks[j & 7];
  6501. +                 }
  6502. + 
  6503. +                 base += raster;
  6504. + 
  6505. +                 line += modulo;
  6506. +             }
  6507. +             while(--h);
  6508. +         }
  6509. + 
  6510. +         return(0);
  6511. +     }
  6512. + }
  6513. + 
  6514. +     /* amiga_fill_rectangle_raw():
  6515. +      *
  6516. +      *    Fill a rectangular area in a bitmap.
  6517. +      */
  6518. + 
  6519. + int
  6520. + amiga_fill_rectangle_raw(gx_device *dev,int x,int y,int w,int h,gx_color_index color)
  6521. + {
  6522. +     if(x < 0 || x > xdev -> width - w || y < 0 || y > xdev -> height - h)
  6523. +         return(-1);
  6524. +     else
  6525. +     {
  6526. +         if(w > 0 && h > 0 && color != gx_no_color_index)
  6527. +         {
  6528. +             UBYTE *line,startmask,endmask;
  6529. +             LONG right,mid,modulo = xdev -> rport -> BitMap -> BytesPerRow;
  6530. + 
  6531. +             right    = x + w;
  6532. +             mid    = (right >> 3) - (x >> 3);
  6533. +             line    = xdev -> rport -> BitMap -> Planes[0] + y * xdev -> rport -> BitMap -> BytesPerRow + (x >> 3);
  6534. + 
  6535. +             x    &= 7;
  6536. +             right    &= 7;
  6537. + 
  6538. +             if(color)
  6539. +             {
  6540. +                 startmask    = 0xFF >> x;
  6541. +                 endmask        = ~(0xFF >> right);
  6542. + 
  6543. +                 if(mid)
  6544. +                 {
  6545. +                     UBYTE *ptr;
  6546. +                     int i;
  6547. + 
  6548. +                     do
  6549. +                     {
  6550. +                         ptr = line;
  6551. + 
  6552. +                         *ptr++ |= startmask;
  6553. + 
  6554. +                         i = mid;
  6555. + 
  6556. +                         while(--i > 0)
  6557. +                             *ptr++ = 0xFF;
  6558. + 
  6559. +                         *ptr |= endmask;
  6560. + 
  6561. +                         line += modulo;
  6562. +                     }
  6563. +                     while(--h);
  6564. +                 }
  6565. +                 else
  6566. +                 {
  6567. +                     startmask &= endmask;
  6568. + 
  6569. +                     do
  6570. +                     {
  6571. +                         *line |= startmask;
  6572. + 
  6573. +                         line += modulo;
  6574. +                     }
  6575. +                     while(--h);
  6576. +                 }
  6577. +             }
  6578. +             else
  6579. +             {
  6580. +                 startmask    = ~(0xFF >> x);
  6581. +                 endmask        = 0xFF >> right;
  6582. + 
  6583. +                 if(mid)
  6584. +                 {
  6585. +                     UBYTE *ptr;
  6586. +                     LONG i;
  6587. + 
  6588. +                     do
  6589. +                     {
  6590. +                         ptr = line;
  6591. + 
  6592. +                         *ptr++ &= startmask;
  6593. + 
  6594. +                         i = mid;
  6595. + 
  6596. +                         while(--i > 0)
  6597. +                             *ptr++ = 0x00;
  6598. + 
  6599. +                         *ptr &= endmask;
  6600. + 
  6601. +                         line += modulo;
  6602. +                     }
  6603. +                     while(--h);
  6604. +                 }
  6605. +                 else
  6606. +                 {
  6607. +                     startmask |= endmask;
  6608. + 
  6609. +                     do
  6610. +                     {
  6611. +                         *line &= startmask;
  6612. + 
  6613. +                         line += modulo;
  6614. +                     }
  6615. +                     while(--h);
  6616. +                 }
  6617. +             }
  6618. +         }
  6619. + 
  6620. +         return(0);
  6621. +     }
  6622. + }
  6623. + 
  6624. +     /* amiga_draw_line_raw():
  6625. +      *
  6626. +      *    Draw a hair line, your basic DDA algorithm;
  6627. +      *    keep your fingers crossed.
  6628. +      */
  6629. + 
  6630. + int
  6631. + amiga_draw_line_raw(gx_device *dev,int x,int y,int x1,int y1,gx_color_index color)
  6632. + {
  6633. +     if(color != gx_no_color_index && (x != x1 || y != y1))
  6634. +     {
  6635. +         short xstep,ystep,dx,dy,diff,modulo;
  6636. +         UBYTE *line,*plane,pen;
  6637. +         LONG last;
  6638. + 
  6639. +         modulo    = xdev -> rport -> BitMap -> BytesPerRow;
  6640. +         plane    = xdev -> rport -> BitMap -> Planes[0];
  6641. + 
  6642. +         line    = &plane[y1 * modulo];
  6643. +         last    = y1;
  6644. +         pen    = line[x1 >> 3] & (x1 & 7);
  6645. + 
  6646. +         dx = x1 - x;
  6647. +         dy = y1 - y;
  6648. + 
  6649. +         if(dx < 0)
  6650. +         {
  6651. +             dx = -dx;
  6652. +             dy = -dy;
  6653. + 
  6654. +             x = x1;
  6655. +             y = y1;
  6656. +         }
  6657. + 
  6658. +         if(y != last)
  6659. +             line = &plane[(last = y) * modulo];
  6660. + 
  6661. +         if(color)
  6662. +         {
  6663. +             line[x >> 3] |= shift[x & 7];
  6664. + 
  6665. +             xstep = ystep = 0;
  6666. + 
  6667. +             if(dy < 0)
  6668. +             {
  6669. +                 if(dx > -dy)
  6670. +                 {
  6671. +                     diff = -dx / 2;
  6672. + 
  6673. +                     do
  6674. +                     {
  6675. +                         xstep++;
  6676. + 
  6677. +                         if(diff > 0)
  6678. +                         {
  6679. +                             ystep--;
  6680. + 
  6681. +                             diff = diff - dy - dx;
  6682. +                         }
  6683. +                         else
  6684. +                             diff -= dy;
  6685. + 
  6686. +                         {
  6687. +                             LONG x1 = x + xstep,y1 = y + ystep;
  6688. + 
  6689. +                             if(y1 != last)
  6690. +                                 line = &plane[(last = y1) * modulo];
  6691. + 
  6692. +                             line[x1 >> 3] |= shift[x1 & 7];
  6693. +                         }
  6694. +                     }
  6695. +                     while(xstep < dx);
  6696. +                 }
  6697. +                 else
  6698. +                 {
  6699. +                     if(dx == -dy)
  6700. +                         diff = 0;
  6701. +                     else
  6702. +                         diff = -dy / 2;
  6703. + 
  6704. +                     do
  6705. +                     {
  6706. +                         ystep--;
  6707. + 
  6708. +                         if(diff > 0)
  6709. +                             diff -= dx;
  6710. +                         else
  6711. +                         {
  6712. +                             xstep++;
  6713. + 
  6714. +                             diff = diff - dy - dx;
  6715. +                         }
  6716. + 
  6717. +                         {
  6718. +                             LONG x1 = x + xstep,y1 = y + ystep;
  6719. + 
  6720. +                             if(y1 != last)
  6721. +                                 line = &plane[(last = y1) * modulo];
  6722. + 
  6723. +                             line[x1 >> 3] |= shift[x1 & 7];
  6724. +                         }
  6725. +                     }
  6726. +                     while(ystep > dy);
  6727. +                 }
  6728. +             }
  6729. +             else
  6730. +             {
  6731. +                 if(dx > dy)
  6732. +                 {
  6733. +                     diff = -dx / 2;
  6734. + 
  6735. +                     do
  6736. +                     {
  6737. +                         xstep++;
  6738. + 
  6739. +                         if(diff > 0)
  6740. +                         {
  6741. +                             ystep++;
  6742. + 
  6743. +                             diff = diff + dy - dx;
  6744. +                         }
  6745. +                         else
  6746. +                             diff += dy;
  6747. + 
  6748. +                         {
  6749. +                             LONG x1 = x + xstep,y1 = y + ystep;
  6750. + 
  6751. +                             if(y1 != last)
  6752. +                                 line = &plane[(last = y1) * modulo];
  6753. + 
  6754. +                             line[x1 >> 3] |= shift[x1 & 7];
  6755. +                         }
  6756. +                     }
  6757. +                     while(xstep < dx);
  6758. +                 }
  6759. +                 else
  6760. +                 {
  6761. +                     if(dx == dy)
  6762. +                         diff = 0;
  6763. +                     else
  6764. +                         diff = dy / 2;
  6765. + 
  6766. +                     do
  6767. +                     {
  6768. +                         ystep++;
  6769. + 
  6770. +                         if(diff > 0)
  6771. +                             diff -= dx;
  6772. +                         else
  6773. +                         {
  6774. +                             xstep++;
  6775. + 
  6776. +                             diff = diff + dy - dx;
  6777. +                         }
  6778. + 
  6779. +                         {
  6780. +                             LONG x1 = x + xstep,y1 = y + ystep;
  6781. + 
  6782. +                             if(y1 != last)
  6783. +                                 line = &plane[(last = y1) * modulo];
  6784. + 
  6785. +                             line[x1 >> 3] |= shift[x1 & 7];
  6786. +                         }
  6787. +                     }
  6788. +                     while(ystep < dy);
  6789. +                 }
  6790. +             }
  6791. + 
  6792. +             if(!pen)
  6793. +             {
  6794. +                 if(y1 != last)
  6795. +                     line = &plane[(last = y1) * modulo];
  6796. + 
  6797. +                 line[x1 >> 3] &= masks[x1 & 7];
  6798. +             }
  6799. +         }
  6800. +         else
  6801. +         {
  6802. +             line[x >> 3] &= masks[x & 7];
  6803. + 
  6804. +             xstep = ystep = 0;
  6805. + 
  6806. +             if(dy < 0)
  6807. +             {
  6808. +                 if(dx > -dy)
  6809. +                 {
  6810. +                     diff = -dx / 2;
  6811. + 
  6812. +                     do
  6813. +                     {
  6814. +                         xstep++;
  6815. + 
  6816. +                         if(diff > 0)
  6817. +                         {
  6818. +                             ystep--;
  6819. + 
  6820. +                             diff = diff - dy - dx;
  6821. +                         }
  6822. +                         else
  6823. +                             diff -= dy;
  6824. + 
  6825. +                         {
  6826. +                             LONG x1 = x + xstep,y1 = y + ystep;
  6827. + 
  6828. +                             if(y1 != last)
  6829. +                                 line = &plane[(last = y1) * modulo];
  6830. + 
  6831. +                             line[x1 >> 3] &= masks[x1 & 7];
  6832. +                         }
  6833. +                     }
  6834. +                     while(xstep < dx);
  6835. +                 }
  6836. +                 else
  6837. +                 {
  6838. +                     if(dx == -dy)
  6839. +                         diff = 0;
  6840. +                     else
  6841. +                         diff = -dy / 2;
  6842. + 
  6843. +                     do
  6844. +                     {
  6845. +                         ystep--;
  6846. + 
  6847. +                         if(diff > 0)
  6848. +                             diff -= dx;
  6849. +                         else
  6850. +                         {
  6851. +                             xstep++;
  6852. + 
  6853. +                             diff = diff - dy - dx;
  6854. +                         }
  6855. + 
  6856. +                         {
  6857. +                             LONG x1 = x + xstep,y1 = y + ystep;
  6858. + 
  6859. +                             if(y1 != last)
  6860. +                                 line = &plane[(last = y1) * modulo];
  6861. + 
  6862. +                             line[x1 >> 3] &= masks[x1 & 7];
  6863. +                         }
  6864. +                     }
  6865. +                     while(ystep > dy);
  6866. +                 }
  6867. +             }
  6868. +             else
  6869. +             {
  6870. +                 if(dx > dy)
  6871. +                 {
  6872. +                     diff = -dx / 2;
  6873. + 
  6874. +                     do
  6875. +                     {
  6876. +                         xstep++;
  6877. + 
  6878. +                         if(diff > 0)
  6879. +                         {
  6880. +                             ystep++;
  6881. + 
  6882. +                             diff = diff + dy - dx;
  6883. +                         }
  6884. +                         else
  6885. +                             diff += dy;
  6886. + 
  6887. +                         {
  6888. +                             LONG x1 = x + xstep,y1 = y + ystep;
  6889. + 
  6890. +                             if(y1 != last)
  6891. +                                 line = &plane[(last = y1) * modulo];
  6892. + 
  6893. +                             line[x1 >> 3] &= masks[x1 & 7];
  6894. +                         }
  6895. +                     }
  6896. +                     while(xstep < dx);
  6897. +                 }
  6898. +                 else
  6899. +                 {
  6900. +                     if(dx == dy)
  6901. +                         diff = 0;
  6902. +                     else
  6903. +                         diff =  dy / 2;
  6904. + 
  6905. +                     do
  6906. +                     {
  6907. +                         ystep++;
  6908. + 
  6909. +                         if(diff > 0)
  6910. +                             diff -= dx;
  6911. +                         else
  6912. +                         {
  6913. +                             xstep++;
  6914. + 
  6915. +                             diff = diff + dy - dx;
  6916. +                         }
  6917. + 
  6918. +                         {
  6919. +                             LONG x1 = x + xstep,y1 = y + ystep;
  6920. + 
  6921. +                             if(y1 != last)
  6922. +                                 line = &plane[(last = y1) * modulo];
  6923. + 
  6924. +                             line[x1 >> 3] &= masks[x1 & 7];
  6925. +                         }
  6926. +                     }
  6927. +                     while(ystep < dy);
  6928. +                 }
  6929. +             }
  6930. + 
  6931. +             if(pen)
  6932. +             {
  6933. +                 if(y1 != last)
  6934. +                     line = &plane[(last = y1) * modulo];
  6935. + 
  6936. +                 line[x1 >> 3] |= pen;
  6937. +             }
  6938. +         }
  6939. +     }
  6940. + 
  6941. +     return(0);
  6942. + }
  6943. + 
  6944. +     /* amiga_open_ilbm(gx_device *dev):
  6945. +      *
  6946. +      *    Open the ilbm device.
  6947. +      */
  6948. + 
  6949. + int
  6950. + amiga_open_ilbm(gx_device *dev)
  6951. + {
  6952. +     if(xdev -> width <= 0 || xdev -> height <= 0)
  6953. +     {
  6954. +         if(xdev -> page_width > 0.0)
  6955. +             xdev -> width = (int)(xdev -> x_pixels_per_inch * xdev -> page_width);
  6956. +         else
  6957. +             xdev -> width = 640;
  6958. + 
  6959. +         if(xdev -> page_height > 0.0)
  6960. +             xdev -> height = (int)(xdev -> y_pixels_per_inch * xdev -> page_height);
  6961. +         else
  6962. +             xdev -> height = 512;
  6963. +     }
  6964. + 
  6965. +     if(xdev -> rport = (struct RastPort *)AllocVec(sizeof(struct RastPort),MEMF_ANY))
  6966. +     {
  6967. +         InitRastPort(xdev -> rport);
  6968. + 
  6969. +         if(xdev -> bitmap = (struct BitMap *)AllocVec(sizeof(struct BitMap),MEMF_ANY))
  6970. +         {
  6971. +             InitBitMap(xdev -> bitmap,1,xdev -> width,xdev -> height);
  6972. + 
  6973. +             if(xdev -> bitplane = AllocVec(xdev -> bitmap -> Rows * xdev -> bitmap -> BytesPerRow,MEMF_ANY | MEMF_CLEAR))
  6974. +             {
  6975. +                 xdev -> bitmap -> Planes[0]    = xdev -> bitplane;
  6976. +                 xdev -> rport -> BitMap        = xdev -> bitmap;
  6977. +                 xdev -> page_count        = 1;
  6978. + 
  6979. +                 DarkPen        = 0;
  6980. +                 LightPen    = 1;
  6981. + 
  6982. +                 return(0);
  6983. +             }
  6984. +             else
  6985. +             {
  6986. +                 char buffer[256];
  6987. + 
  6988. +                 sprintf(buffer,"Ghostscript: failed to allocate raster (wanted %ld, largest %ld)",xdev -> bitmap -> Rows * xdev -> bitmap -> BytesPerRow,AvailMem(MEMF_ANY | MEMF_LARGEST));
  6989. + 
  6990. +                 perror(buffer);
  6991. +             }
  6992. +         }
  6993. +         else
  6994. +             perror("Ghostscript: failed to allocate bitmap");
  6995. +     }
  6996. +     else
  6997. +         perror("Ghostscript: failed to allocate raster port");
  6998. + 
  6999. +     return(-1);
  7000. + }
  7001. + 
  7002. +     /* amiga_output_page_ilbm(gx_device *dev,int,int):
  7003. +      *
  7004. +      *    Send a bitmap to an IFF-ILBM file.
  7005. +      */
  7006. + 
  7007. + int
  7008. + amiga_output_page_ilbm(gx_device *dev,int num_copies,int flush)
  7009. + {
  7010. +     const sigset_t trapped = sigmask(SIGINT);
  7011. +     char buffer[270];
  7012. +     LONG result = -1;
  7013. + 
  7014. +     sprintf(buffer,"%s_%04d.ilbm",xdev -> file_name,xdev -> page_count);
  7015. + 
  7016. +     fprintf(stdout,"\n\033[ASaving page Nº%d to \"%s\"...\033[K",xdev -> page_count,buffer);
  7017. +     fflush(stdout);
  7018. + 
  7019. +     sigprocmask(SIG_BLOCK,&trapped,NULL);
  7020. + 
  7021. +     if(SaveBitMap(buffer,xdev -> bitmap,xdev -> width,xdev -> height,(UWORD)xdev -> x_pixels_per_inch,xdev -> y_pixels_per_inch))
  7022. +     {
  7023. +         fprintf(stdout,"\n\033[APage saved to file \"%s\".\033[K\n",buffer);
  7024. + 
  7025. +         result = 0;
  7026. + 
  7027. +         xdev -> page_count;
  7028. +     }
  7029. +     else
  7030. +         perror("\n\033[AGhostscript: error saving page\033[K");
  7031. + 
  7032. +     sigprocmask(SIG_UNBLOCK,&trapped,NULL);
  7033. + 
  7034. +     return(result);
  7035. + }
  7036. + 
  7037. +     /* amiga_close_ilbm(gx_device *dev):
  7038. +      *
  7039. +      *    Close the ilbm driver.
  7040. +      */
  7041. + 
  7042. + int
  7043. + amiga_close_ilbm(gx_device *dev)
  7044. + {
  7045. +     if(xdev -> bitplane)
  7046. +     {
  7047. +         FreeVec(xdev -> bitplane);
  7048. + 
  7049. +         xdev -> bitplane = NULL;
  7050. +     }
  7051. + 
  7052. +     if(xdev -> bitmap)
  7053. +     {
  7054. +         FreeVec(xdev -> bitmap);
  7055. + 
  7056. +         xdev -> bitmap = NULL;
  7057. +     }
  7058. + 
  7059. +     if(xdev -> rport)
  7060. +     {
  7061. +         FreeVec(xdev -> rport);
  7062. + 
  7063. +         xdev -> rport = NULL;
  7064. +     }
  7065. + 
  7066. +     xdev -> width = xdev -> height = 0;
  7067. + /*    xdev -> x_pixels_per_inch = x_pixels_per_inch = 72.72;*/
  7068. + 
  7069. +     return(0);
  7070. + }
  7071. + 
  7072. + private const gs_prop_item props_amiga[] =
  7073. + {
  7074. +     prop_def("PageWidth",    prt_string),
  7075. +     prop_def("PageHeight",    prt_string),
  7076. +     prop_def("OutputFile",    prt_string)
  7077. + };
  7078. + 
  7079. + int
  7080. + amiga_get_props(gx_device *dev,gs_prop_item *plist)
  7081. + {
  7082. +     int start = gx_default_get_props(dev,plist);
  7083. + 
  7084. +     if(plist != 0)
  7085. +     {
  7086. +         gs_prop_item *pi = plist + start;
  7087. + 
  7088. +         memcpy(pi,props_amiga,sizeof(props_amiga));
  7089. + 
  7090. +         pi[0] . value .a.p.s    = "";
  7091. +         pi[0] . value .a.size    = -1;
  7092. + 
  7093. +         pi[1] . value .a.p.s    = "";
  7094. +         pi[1] . value .a.size    = -1;
  7095. + 
  7096. +         pi[2] . value .a.p.s    = "";
  7097. +         pi[2] . value .a.size    = -1;
  7098. +     }
  7099. + 
  7100. +     return(start + (sizeof(props_amiga) / sizeof(gs_prop_item)));
  7101. + }
  7102. + 
  7103. + int
  7104. + amiga_put_props(gx_device *dev,gs_prop_item *plist,int count)
  7105. + {
  7106. +     gs_prop_item *known[3];
  7107. +     LONG code = 0;
  7108. + 
  7109. +     props_extract(plist,count,props_amiga,3,known,0);
  7110. + 
  7111. +     if((code = gx_default_put_props(dev,plist,count)) < 0)
  7112. +         return(code);
  7113. +     else
  7114. +     {
  7115. +         if(known[0] != 0)
  7116. +         {
  7117. +             gs_prop_item *pn = known[0];
  7118. +             LONG size = pn -> value . a . size;
  7119. +             char temp[256];
  7120. + 
  7121. +             if(size >= 256)
  7122. +             {
  7123. +                 pn -> status = pv_limitcheck;
  7124. + 
  7125. +                 code = gs_error_limitcheck;
  7126. +             }
  7127. +             else
  7128. +             {
  7129. +                 memcpy(temp,pn -> value . a . p . s,size);
  7130. + 
  7131. +                 temp[size] = 0;
  7132. + 
  7133. +                 xdev -> page_width = GetInches(temp);
  7134. + 
  7135. +                 if(xdev -> page_width <= 0.0)
  7136. +                 {
  7137. +                     xdev -> page_width = 0.0;
  7138. + 
  7139. +                     pn -> status = pv_limitcheck;
  7140. + 
  7141. +                     code = gs_error_limitcheck;
  7142. +                 }
  7143. +                 else
  7144. +                 {
  7145. +                     if(code == 0)
  7146. +                         code = 1;
  7147. +                 }
  7148. +             }
  7149. +         }
  7150. + 
  7151. +         if(known[1] != 0)
  7152. +         {
  7153. +             gs_prop_item *pn = known[1];
  7154. +             LONG size = pn -> value . a . size;
  7155. +             char temp[256];
  7156. + 
  7157. +             if(size >= 256)
  7158. +             {
  7159. +                 pn -> status = pv_limitcheck;
  7160. + 
  7161. +                 code = gs_error_limitcheck;
  7162. +             }
  7163. +             else
  7164. +             {
  7165. +                 memcpy(temp,pn -> value . a . p . s,size);
  7166. + 
  7167. +                 temp[size] = 0;
  7168. + 
  7169. +                 xdev -> page_height = GetInches(temp);
  7170. + 
  7171. +                 if(xdev -> page_height <= 0.0)
  7172. +                 {
  7173. +                     xdev -> page_height = 0.0;
  7174. + 
  7175. +                     pn -> status = pv_limitcheck;
  7176. + 
  7177. +                     code = gs_error_limitcheck;
  7178. +                 }
  7179. +                 else
  7180. +                 {
  7181. +                     if(code == 0)
  7182. +                         code = 1;
  7183. +                 }
  7184. +             }
  7185. +         }
  7186. + 
  7187. +         if(known[2] != 0)
  7188. +         {
  7189. +             gs_prop_item *pn = known[2];
  7190. +             LONG size = pn -> value . a . size;
  7191. + 
  7192. +             if(size >= 256)
  7193. +             {
  7194. +                 pn -> status = pv_limitcheck;
  7195. + 
  7196. +                 code = gs_error_limitcheck;
  7197. +             }
  7198. +             else
  7199. +             {
  7200. +                 memcpy(xdev -> file_name,pn -> value . a . p . s,size);
  7201. + 
  7202. +                 xdev -> file_name[size] = 0;
  7203. +             }
  7204. +         }
  7205. + 
  7206. +         if(code < 0)
  7207. +             return_error(code);
  7208. + 
  7209. +         if(xdev -> is_open && code)
  7210. +         {
  7211. +             LONG ccode = gs_closedevice(dev);
  7212. + 
  7213. +             if(ccode < 0)
  7214. +                 return(ccode);
  7215. +         }
  7216. + 
  7217. +         return(code);
  7218. +     }
  7219. + }
  7220. + 
  7221. +     /* amiga_color_map_rgb_color(gx_device *dev,gx_color_value red,gx_color_value green,gx_color_value blue):
  7222. +      *
  7223. +      *    Turn an RGB colour into a pen index.
  7224. +      */
  7225. + 
  7226. + gx_color_index
  7227. + amiga_color_map_rgb_color(gx_device *dev,gx_color_value red,gx_color_value green,gx_color_value blue)
  7228. + {
  7229. +     LONG max = xdev -> cube_size - 1,r,g,b;
  7230. + 
  7231. +     r = (max * red)   / gx_max_color_value;
  7232. +     g = (max * green) / gx_max_color_value;
  7233. +     b = (max * blue)  / gx_max_color_value;
  7234. + 
  7235. +     return((r * xdev -> cube_size + g) * xdev -> cube_size + b);
  7236. + }
  7237. + 
  7238. +     /* amiga_color_map_color_rgb(gx_device *dev,gx_color_index color,gx_color_value rgb[3]):
  7239. +      *
  7240. +      *    Turn a pen index into RGB colour values.
  7241. +      */
  7242. + 
  7243. + int
  7244. + amiga_color_map_color_rgb(gx_device *dev,gx_color_index color,gx_color_value rgb[3])
  7245. + {
  7246. +     LONG i,value,max = xdev -> cube_size - 1;
  7247. + 
  7248. +     for(i = 2 ; i >= 0 ; i--)
  7249. +     {
  7250. +         value = color % xdev -> cube_size;
  7251. + 
  7252. +         rgb[i] = (gx_max_color_value * value) / max;
  7253. + 
  7254. +         color /= xdev -> cube_size;
  7255. +     }
  7256. + 
  7257. +     return(0);
  7258. + }
  7259. + 
  7260. +     /* amiga_color_map_rgb_color_pen(gx_device *dev,gx_color_value red,gx_color_value green,gx_color_value blue):
  7261. +      *
  7262. +      *    Turn an RGB colour into a pen index; this routine takes remapped
  7263. +      *    pens into account.
  7264. +      */
  7265. + 
  7266. + gx_color_index
  7267. + amiga_color_map_rgb_color_pen(gx_device *dev,gx_color_value red,gx_color_value green,gx_color_value blue)
  7268. + {
  7269. +     LONG max = xdev -> cube_size - 1,r,g,b;
  7270. + 
  7271. +     r = (max * red)   / gx_max_color_value;
  7272. +     g = (max * green) / gx_max_color_value;
  7273. +     b = (max * blue)  / gx_max_color_value;
  7274. + 
  7275. +     return(xdev -> pens[(r * xdev -> cube_size + g) * xdev -> cube_size + b]);
  7276. + }
  7277. + 
  7278. +     /* amiga_color_map_color_rgb_pen(gx_device *dev,gx_color_index color,gx_color_value rgb[3]):
  7279. +      *
  7280. +      *    Turn a pen index into RGB colour values; this routine takes remapped
  7281. +      *    pens into account.
  7282. +      */
  7283. + 
  7284. + int
  7285. + amiga_color_map_color_rgb_pen(gx_device *dev,gx_color_index color,gx_color_value rgb[3])
  7286. + {
  7287. +     LONG i,value,max = xdev -> cube_size - 1;
  7288. + 
  7289. +         /* Find the matching pen... */
  7290. + 
  7291. +     for(i = 0 ; i < xdev -> cube_size * xdev -> cube_size * xdev -> cube_size ; i++)
  7292. +     {
  7293. +         if(xdev -> pens[i] == color)
  7294. +         {
  7295. +             color = i;
  7296. + 
  7297. +             break;
  7298. +         }
  7299. +     }
  7300. + 
  7301. +     for(i = 2 ; i >= 0 ; i--)
  7302. +     {
  7303. +         value = color % xdev -> cube_size;
  7304. + 
  7305. +         rgb[i] = (gx_max_color_value * value) / max;
  7306. + 
  7307. +         color /= xdev -> cube_size;
  7308. +     }
  7309. + 
  7310. +     return(0);
  7311. + }
  7312. + 
  7313. +     /* amiga_copy_color8():
  7314. +      *
  7315. +      *    Copy a color image, the source is guaranteed to consist of
  7316. +      *    one byte per colour.
  7317. +      */
  7318. + 
  7319. + int
  7320. + amiga_copy_color8(gx_device *dev,const UBYTE *base,int sourcex,int raster,gx_bitmap_id id,int x,int y,int w,int h)
  7321. + {
  7322. +     if(y < 0 || x < 0 || w < 0 || h < 0)
  7323. +         return(-1);
  7324. +     else
  7325. +     {
  7326. +         if(w > 0 && h > 0)
  7327. +         {
  7328. +             base += sourcex;
  7329. + 
  7330. +             if(w > xdev -> width)
  7331. +                 w = xdev -> width;
  7332. + 
  7333. +             do
  7334. +             {
  7335. +                 
  7336. +                 CopyMem((UBYTE *)base,xdev -> temp_array,w);
  7337. + 
  7338. +                 WritePixelLine8(xdev -> rport,x,y++,w,xdev -> temp_array,xdev -> temp_rport);
  7339. + 
  7340. +                 base += raster;
  7341. +             }
  7342. +             while(--h);
  7343. +         }
  7344. + 
  7345. +         return(0);
  7346. +     }
  7347. + }
  7348. + 
  7349. +     /* amiga_copy_mono_raw_color():
  7350. +      *
  7351. +      *    Copy a monochrome image to a bitmap.
  7352. +      */
  7353. + 
  7354. + int
  7355. + amiga_copy_mono_raw_color(gx_device *dev,const UBYTE *base,int sourcex,int raster,gx_bitmap_id id,int x,int y,int w,int h,gx_color_index zero,gx_color_index one)
  7356. + {
  7357. +     if(y < 0 || x < 0 || w < 0 || h < 0)
  7358. +         return(-1);
  7359. +     else
  7360. +     {
  7361. +         if(w > 0 && h > 0 && zero != gx_no_color_index && one != gx_no_color_index)
  7362. +         {
  7363. +             PLANEPTR line[12];
  7364. +             LONG i,j,k,modulo = xdev -> rport -> BitMap -> BytesPerRow,depth = xdev -> rport -> BitMap -> Depth;
  7365. + 
  7366. +             for(i = 0 ; i < depth ; i++)
  7367. +                 line[i] = xdev -> rport -> BitMap -> Planes[i] + y * modulo;
  7368. + 
  7369. +             w += sourcex;
  7370. + 
  7371. +             if(zero == gx_no_color_index)
  7372. +             {
  7373. +                 do
  7374. +                 {
  7375. +                     for(i = sourcex, j = x ; i < w ; i++, j++)
  7376. +                     {
  7377. +                         if(base[i >> 3] & shift[i & 7])
  7378. +                         {
  7379. +                             for(k = 0 ; k < depth ; k++)
  7380. +                             {
  7381. +                                 if(one & (1 << k))
  7382. +                                     line[k][j >> 3] |= shift[j & 7];
  7383. +                                 else
  7384. +                                     line[k][j >> 3] &= masks[j & 7];
  7385. +                             }
  7386. +                         }
  7387. +                     }
  7388. + 
  7389. +                     base += raster;
  7390. + 
  7391. +                     for(k = 0 ; k < depth ; k++)
  7392. +                         line[k] += modulo;
  7393. +                 }
  7394. +                 while(--h);
  7395. +             }
  7396. +             else
  7397. +             {
  7398. +                 if(one == gx_no_color_index)
  7399. +                 {
  7400. +                     do
  7401. +                     {
  7402. +                         for(i = sourcex, j = x ; i < w ; i++, j++)
  7403. +                         {
  7404. +                             if(base[i >> 3] & shift[i & 7])
  7405. +                             {
  7406. +                                 for(k = 0 ; k < depth ; k++)
  7407. +                                 {
  7408. +                                     if(zero & (1 << k))
  7409. +                                         line[k][j >> 3] |= shift[j & 7];
  7410. +                                     else
  7411. +                                         line[k][j >> 3] &= masks[j & 7];
  7412. +                                 }
  7413. +                             }
  7414. +                         }
  7415. + 
  7416. +                         base += raster;
  7417. + 
  7418. +                         for(k = 0 ; k < depth ; k++)
  7419. +                             line[k] += modulo;
  7420. +                     }
  7421. +                     while(--h);
  7422. +                 }
  7423. +                 else
  7424. +                 {
  7425. +                     do
  7426. +                     {
  7427. +                         for(i = sourcex, j = x ; i < w ; i++, j++)
  7428. +                         {
  7429. +                             if(base[i >> 3] & shift[i & 7])
  7430. +                             {
  7431. +                                 for(k = 0 ; k < depth ; k++)
  7432. +                                 {
  7433. +                                     if(one & (1 << k))
  7434. +                                         line[k][j >> 3] |= shift[j & 7];
  7435. +                                     else
  7436. +                                         line[k][j >> 3] &= masks[j & 7];
  7437. +                                 }
  7438. +                             }
  7439. +                             else
  7440. +                             {
  7441. +                                 for(k = 0 ; k < depth ; k++)
  7442. +                                 {
  7443. +                                     if(zero & (1 << k))
  7444. +                                         line[k][j >> 3] |= shift[j & 7];
  7445. +                                     else
  7446. +                                         line[k][j >> 3] &= masks[j & 7];
  7447. +                                 }
  7448. +                             }
  7449. +                         }
  7450. + 
  7451. +                         base += raster;
  7452. + 
  7453. +                         for(k = 0 ; k < depth ; k++)
  7454. +                             line[k] += modulo;
  7455. +                     }
  7456. +                     while(--h);
  7457. +                 }
  7458. +             }
  7459. +         }
  7460. + 
  7461. +         return(0);
  7462. +     }
  7463. + }
  7464. + 
  7465. +     /* amiga_copy_color_raw_color16():
  7466. +      *
  7467. +      *    Copy a color image, the source data is guaranteed to consist
  7468. +      *    of one word per colour.
  7469. +      */
  7470. + 
  7471. + int
  7472. + amiga_copy_color_raw_color16(gx_device *dev,const UBYTE *data,int sourcex,int raster,gx_bitmap_id id,int x,int y,int w,int h)
  7473. + {
  7474. +     if(y < 0 || x < 0 || w < 0 || h < 0)
  7475. +         return(-1);
  7476. +     else
  7477. +     {
  7478. +         if(w > 0 && h > 0)
  7479. +         {
  7480. +             PLANEPTR line[12];
  7481. +             LONG i,j,k,modulo = xdev -> rport -> BitMap -> BytesPerRow,depth = xdev -> rport -> BitMap -> Depth;
  7482. +             UWORD *base = (UWORD *)data;
  7483. + 
  7484. +             for(i = 0 ; i < depth ; i++)
  7485. +                 line[i] = xdev -> rport -> BitMap -> Planes[i] + y * modulo;
  7486. + 
  7487. +             w += sourcex;
  7488. + 
  7489. +             raster /= 2;
  7490. + 
  7491. +             do
  7492. +             {
  7493. +                 for(i = sourcex, j = x ; i < w ; i++, j++)
  7494. +                 {
  7495. +                     for(k = 0 ; k < depth ; k++)
  7496. +                     {
  7497. +                         if(base[i] & (1 << k))
  7498. +                             line[k][j >> 3] |= shift[j & 7];
  7499. +                         else
  7500. +                             line[k][j >> 3] &= masks[j & 7];
  7501. +                     }
  7502. +                 }
  7503. + 
  7504. +                 base += raster;
  7505. + 
  7506. +                 for(k = 0 ; k < depth ; k++)
  7507. +                     line[k] += modulo;
  7508. +             }
  7509. +             while(--h);
  7510. +         }
  7511. + 
  7512. +         return(0);
  7513. +     }
  7514. + }
  7515. + 
  7516. +     /* amiga_fill_rectangle_raw_color():
  7517. +      *
  7518. +      *    Fill a rectangular area in a bitmap.
  7519. +      */
  7520. + 
  7521. + int
  7522. + amiga_fill_rectangle_raw_color(gx_device *dev,int x,int y,int w,int h,gx_color_index color)
  7523. + {
  7524. +     if(x < 0 || x > xdev -> width - w || y < 0 || y > xdev -> height - h)
  7525. +         return(-1);
  7526. +     else
  7527. +     {
  7528. +         if(w > 0 && h > 0 && color != gx_no_color_index)
  7529. +         {
  7530. +             PLANEPTR line[12];
  7531. +             LONG i,j,right,mid,modulo = xdev -> rport -> BitMap -> BytesPerRow,depth = xdev -> rport -> BitMap -> Depth;
  7532. + 
  7533. +             for(i = 0 ; i < depth ; i++)
  7534. +                 line[i] = xdev -> rport -> BitMap -> Planes[i] + y * modulo + (x >> 3);
  7535. + 
  7536. +             right    = x + w;
  7537. +             mid    = (right >> 3) - (x >> 3);
  7538. + 
  7539. +             x    &= 7;
  7540. +             right    &= 7;
  7541. + 
  7542. +             if(mid)
  7543. +             {
  7544. +                 UBYTE *ptr;
  7545. + 
  7546. +                 do
  7547. +                 {
  7548. +                     for(j = 0 ; j < depth ; j++)
  7549. +                     {
  7550. +                         ptr = line[j];
  7551. + 
  7552. +                         i = mid;
  7553. + 
  7554. +                         if(color & (1 << j))
  7555. +                         {
  7556. +                             *ptr++ |= 0xFF >> x;
  7557. + 
  7558. +                             while(--i > 0)
  7559. +                                 *ptr++ = 0xFF;
  7560. + 
  7561. +                             *ptr |= ~(0xFF >> right);
  7562. +                         }
  7563. +                         else
  7564. +                         {
  7565. +                             *ptr++ &= ~(0xFF >> x);
  7566. + 
  7567. +                             while(--i > 0)
  7568. +                                 *ptr++ = 0x00;
  7569. + 
  7570. +                             *ptr &= 0xFF >> right;
  7571. +                         }
  7572. + 
  7573. +                         line[j] += modulo;
  7574. +                     }
  7575. +                 }
  7576. +                 while(--h);
  7577. +             }
  7578. +             else
  7579. +             {
  7580. +                 UBYTE    one_mask    = (0xFF >> x) & ~(0xFF >> right),
  7581. +                     zero_mask    = ~(0xFF >> x) | (0xFF >> right);
  7582. +                 do
  7583. +                 {
  7584. +                     for(j = 0 ; j < depth ; j++)
  7585. +                     {
  7586. +                         if(color & (1 << j))
  7587. +                             *line[j] |= one_mask;
  7588. +                         else
  7589. +                             *line[j] &= zero_mask;
  7590. + 
  7591. +                         line[j] += modulo;
  7592. +                     }
  7593. +                 }
  7594. +                 while(--h);
  7595. +             }
  7596. +         }
  7597. + 
  7598. +         return(0);
  7599. +     }
  7600. + }
  7601. + 
  7602. +     /* amiga_draw_line_raw_color():
  7603. +      *
  7604. +      *    Draw a hair line, your basic DDA algorithm;
  7605. +      *    keep your fingers crossed.
  7606. +      */
  7607. + 
  7608. + int
  7609. + amiga_draw_line_raw_color(gx_device *dev,int x,int y,int x1,int y1,gx_color_index color)
  7610. + {
  7611. +     if(color != gx_no_color_index && (x != x1 || y != y1))
  7612. +     {
  7613. +         LONG xstep,ystep,dx,dy,diff,modulo;
  7614. +         UBYTE *line,*plane,pen;
  7615. +         LONG last,i,orig_x = x,orig_y = y;
  7616. + 
  7617. +         modulo = xdev -> rport -> BitMap -> BytesPerRow;
  7618. + 
  7619. +         for(i = 0 ; i < xdev -> rport -> BitMap -> Depth ; i++)
  7620. +         {
  7621. +             plane    = xdev -> rport -> BitMap -> Planes[i];
  7622. +             line    = &plane[y1 * modulo];
  7623. +             last    = y1;
  7624. +             pen    = line[x1 >> 3] & (x1 & 7);
  7625. +             x    = orig_x;
  7626. +             y    = orig_y;
  7627. + 
  7628. +             dx = x1 - x;
  7629. +             dy = y1 - y;
  7630. + 
  7631. +             if(dx < 0)
  7632. +             {
  7633. +                 dx = -dx;
  7634. +                 dy = -dy;
  7635. + 
  7636. +                 x = x1;
  7637. +                 y = y1;
  7638. +             }
  7639. + 
  7640. +             if(y != last)
  7641. +                 line = &plane[(last = y) * modulo];
  7642. + 
  7643. +             if(color & (1 << i))
  7644. +             {
  7645. +                 line[x >> 3] |= shift[x & 7];
  7646. + 
  7647. +                 xstep = ystep = 0;
  7648. + 
  7649. +                 if(dy < 0)
  7650. +                 {
  7651. +                     if(dx > -dy)
  7652. +                     {
  7653. +                         diff = -dx / 2;
  7654. + 
  7655. +                         do
  7656. +                         {
  7657. +                             xstep++;
  7658. + 
  7659. +                             if(diff > 0)
  7660. +                             {
  7661. +                                 ystep--;
  7662. + 
  7663. +                                 diff = diff - dy - dx;
  7664. +                             }
  7665. +                             else
  7666. +                                 diff -= dy;
  7667. + 
  7668. +                             {
  7669. +                                 LONG x1 = x + xstep,y1 = y + ystep;
  7670. + 
  7671. +                                 if(y1 != last)
  7672. +                                     line = &plane[(last = y1) * modulo];
  7673. + 
  7674. +                                 line[x1 >> 3] |= shift[x1 & 7];
  7675. +                             }
  7676. +                         }
  7677. +                         while(xstep < dx);
  7678. +                     }
  7679. +                     else
  7680. +                     {
  7681. +                         if(dx == -dy)
  7682. +                             diff = 0;
  7683. +                         else
  7684. +                             diff = -dy / 2;
  7685. + 
  7686. +                         do
  7687. +                         {
  7688. +                             ystep--;
  7689. + 
  7690. +                             if(diff > 0)
  7691. +                                 diff -= dx;
  7692. +                             else
  7693. +                             {
  7694. +                                 xstep++;
  7695. + 
  7696. +                                 diff = diff - dy - dx;
  7697. +                             }
  7698. + 
  7699. +                             {
  7700. +                                 LONG x1 = x + xstep,y1 = y + ystep;
  7701. + 
  7702. +                                 if(y1 != last)
  7703. +                                     line = &plane[(last = y1) * modulo];
  7704. + 
  7705. +                                 line[x1 >> 3] |= shift[x1 & 7];
  7706. +                             }
  7707. +                         }
  7708. +                         while(ystep > dy);
  7709. +                     }
  7710. +                 }
  7711. +                 else
  7712. +                 {
  7713. +                     if(dx > dy)
  7714. +                     {
  7715. +                         diff = -dx / 2;
  7716. + 
  7717. +                         do
  7718. +                         {
  7719. +                             xstep++;
  7720. + 
  7721. +                             if(diff > 0)
  7722. +                             {
  7723. +                                 ystep++;
  7724. + 
  7725. +                                 diff = diff + dy - dx;
  7726. +                             }
  7727. +                             else
  7728. +                                 diff += dy;
  7729. + 
  7730. +                             {
  7731. +                                 LONG x1 = x + xstep,y1 = y + ystep;
  7732. + 
  7733. +                                 if(y1 != last)
  7734. +                                     line = &plane[(last = y1) * modulo];
  7735. + 
  7736. +                                 line[x1 >> 3] |= shift[x1 & 7];
  7737. +                             }
  7738. +                         }
  7739. +                         while(xstep < dx);
  7740. +                     }
  7741. +                     else
  7742. +                     {
  7743. +                         if(dx == dy)
  7744. +                             diff = 0;
  7745. +                         else
  7746. +                             diff = dy / 2;
  7747. + 
  7748. +                         do
  7749. +                         {
  7750. +                             ystep++;
  7751. + 
  7752. +                             if(diff > 0)
  7753. +                                 diff -= dx;
  7754. +                             else
  7755. +                             {
  7756. +                                 xstep++;
  7757. + 
  7758. +                                 diff = diff + dy - dx;
  7759. +                             }
  7760. + 
  7761. +                             {
  7762. +                                 LONG x1 = x + xstep,y1 = y + ystep;
  7763. + 
  7764. +                                 if(y1 != last)
  7765. +                                     line = &plane[(last = y1) * modulo];
  7766. + 
  7767. +                                 line[x1 >> 3] |= shift[x1 & 7];
  7768. +                             }
  7769. +                         }
  7770. +                         while(ystep < dy);
  7771. +                     }
  7772. +                 }
  7773. + 
  7774. +                 if(!pen)
  7775. +                 {
  7776. +                     if(y1 != last)
  7777. +                         line = &plane[(last = y1) * modulo];
  7778. + 
  7779. +                     line[x1 >> 3] &= masks[x1 & 7];
  7780. +                 }
  7781. +             }
  7782. +             else
  7783. +             {
  7784. +                 line[x >> 3] &= masks[x & 7];
  7785. + 
  7786. +                 xstep = ystep = 0;
  7787. + 
  7788. +                 if(dy < 0)
  7789. +                 {
  7790. +                     if(dx > -dy)
  7791. +                     {
  7792. +                         diff = -dx / 2;
  7793. + 
  7794. +                         do
  7795. +                         {
  7796. +                             xstep++;
  7797. + 
  7798. +                             if(diff > 0)
  7799. +                             {
  7800. +                                 ystep--;
  7801. + 
  7802. +                                 diff = diff - dy - dx;
  7803. +                             }
  7804. +                             else
  7805. +                                 diff -= dy;
  7806. + 
  7807. +                             {
  7808. +                                 LONG x1 = x + xstep,y1 = y + ystep;
  7809. + 
  7810. +                                 if(y1 != last)
  7811. +                                     line = &plane[(last = y1) * modulo];
  7812. + 
  7813. +                                 line[x1 >> 3] &= masks[x1 & 7];
  7814. +                             }
  7815. +                         }
  7816. +                         while(xstep < dx);
  7817. +                     }
  7818. +                     else
  7819. +                     {
  7820. +                         if(dx == -dy)
  7821. +                             diff = 0;
  7822. +                         else
  7823. +                             diff = -dy / 2;
  7824. + 
  7825. +                         do
  7826. +                         {
  7827. +                             ystep--;
  7828. + 
  7829. +                             if(diff > 0)
  7830. +                                 diff -= dx;
  7831. +                             else
  7832. +                             {
  7833. +                                 xstep++;
  7834. + 
  7835. +                                 diff = diff - dy - dx;
  7836. +                             }
  7837. + 
  7838. +                             {
  7839. +                                 LONG x1 = x + xstep,y1 = y + ystep;
  7840. + 
  7841. +                                 if(y1 != last)
  7842. +                                     line = &plane[(last = y1) * modulo];
  7843. + 
  7844. +                                 line[x1 >> 3] &= masks[x1 & 7];
  7845. +                             }
  7846. +                         }
  7847. +                         while(ystep > dy);
  7848. +                     }
  7849. +                 }
  7850. +                 else
  7851. +                 {
  7852. +                     if(dx > dy)
  7853. +                     {
  7854. +                         diff = -dx / 2;
  7855. + 
  7856. +                         do
  7857. +                         {
  7858. +                             xstep++;
  7859. + 
  7860. +                             if(diff > 0)
  7861. +                             {
  7862. +                                 ystep++;
  7863. + 
  7864. +                                 diff = diff + dy - dx;
  7865. +                             }
  7866. +                             else
  7867. +                                 diff += dy;
  7868. + 
  7869. +                             {
  7870. +                                 LONG x1 = x + xstep,y1 = y + ystep;
  7871. + 
  7872. +                                 if(y1 != last)
  7873. +                                     line = &plane[(last = y1) * modulo];
  7874. + 
  7875. +                                 line[x1 >> 3] &= masks[x1 & 7];
  7876. +                             }
  7877. +                         }
  7878. +                         while(xstep < dx);
  7879. +                     }
  7880. +                     else
  7881. +                     {
  7882. +                         if(dx == dy)
  7883. +                             diff = 0;
  7884. +                         else
  7885. +                             diff =  dy / 2;
  7886. + 
  7887. +                         do
  7888. +                         {
  7889. +                             ystep++;
  7890. + 
  7891. +                             if(diff > 0)
  7892. +                                 diff -= dx;
  7893. +                             else
  7894. +                             {
  7895. +                                 xstep++;
  7896. + 
  7897. +                                 diff = diff + dy - dx;
  7898. +                             }
  7899. + 
  7900. +                             {
  7901. +                                 LONG x1 = x + xstep,y1 = y + ystep;
  7902. + 
  7903. +                                 if(y1 != last)
  7904. +                                     line = &plane[(last = y1) * modulo];
  7905. + 
  7906. +                                 line[x1 >> 3] &= masks[x1 & 7];
  7907. +                             }
  7908. +                         }
  7909. +                         while(ystep < dy);
  7910. +                     }
  7911. +                 }
  7912. + 
  7913. +                 if(pen)
  7914. +                 {
  7915. +                     if(y1 != last)
  7916. +                         line = &plane[(last = y1) * modulo];
  7917. + 
  7918. +                     line[x1 >> 3] |= pen;
  7919. +                 }
  7920. +             }
  7921. +         }
  7922. +     }
  7923. + 
  7924. +     return(0);
  7925. + }
  7926. diff -rc --new-file ghostscript-2.6.1-fsf/gp_amiga.c ghostscript-2.6.1-amiga/gp_amiga.c
  7927. *** ghostscript-2.6.1-fsf/gp_amiga.c    Thu Jan  1 00:00:00 1970
  7928. --- ghostscript-2.6.1-amiga/gp_amiga.c    Sat Jan 29 15:11:38 1994
  7929. ***************
  7930. *** 0 ****
  7931. --- 1,346 ----
  7932. + /* Copyright (C) 1989, 1990, 1991 Aladdin Enterprises.  All rights reserved.
  7933. +    Distributed by Free Software Foundation, Inc.
  7934. + 
  7935. + This file is part of Ghostscript.
  7936. + 
  7937. + Ghostscript is distributed in the hope that it will be useful, but
  7938. + WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  7939. + to anyone for the consequences of using it or for whether it serves any
  7940. + particular purpose or works at all, unless he says so in writing.  Refer
  7941. + to the Ghostscript General Public License for full details.
  7942. + 
  7943. + Everyone is granted permission to copy, modify and redistribute
  7944. + Ghostscript, but only under the conditions described in the Ghostscript
  7945. + General Public License.  A copy of this license is supposed to have been
  7946. + given to you along with Ghostscript so you can know your rights and
  7947. + responsibilities.  It should be in a file named COPYING.  Among other
  7948. + things, the copyright notice and this notice must be preserved on all
  7949. + copies.  */
  7950. + 
  7951. + /* gp_amiga.c */
  7952. + /* Amiga specific routines for Ghostscript */
  7953. + 
  7954. + #define timeval foo1
  7955. + #define ushort foo2
  7956. + 
  7957. + #include <intuition/intuitionbase.h>
  7958. + #include <graphics/gfxbase.h>
  7959. + #include <dos/dosextens.h>
  7960. + 
  7961. + #include <clib/exec_protos.h>
  7962. + #include <clib/dos_protos.h>
  7963. + 
  7964. + /*
  7965. + #include <inline/exec.h>
  7966. + #include <inline/dos.h>
  7967. + */
  7968. + 
  7969. + #include <signal.h>
  7970. + 
  7971. + #undef ushort
  7972. + #undef timeval
  7973. + 
  7974. + /* gp_amiga.c */
  7975. + /* Amiga-specific routines for Ghostscript */
  7976. + 
  7977. + 
  7978. + #include "memory_.h"
  7979. + #include "string_.h"
  7980. + #include "gx.h"
  7981. + #include "gp.h"
  7982. + #include "stat_.h"
  7983. + #include "time_.h"
  7984. + 
  7985. + struct IntuitionBase    *IntuitionBase;
  7986. + struct GfxBase        *GfxBase;
  7987. + struct Library        *LayersBase,
  7988. +             *IFFParseBase,
  7989. +             *AslBase,
  7990. +             *UtilityBase;
  7991. + 
  7992. + /* Nothing happens here */
  7993. + void
  7994. + gs_amiga_init()
  7995. + {
  7996. + }
  7997. + 
  7998. + void
  7999. + gp_exit(int exit_status, int code)
  8000. + {
  8001. + }
  8002. + 
  8003. + /* Cleanup routine, as called by atexit() trap */
  8004. + void
  8005. + cleanup()
  8006. + {
  8007. +     extern void devcleanup();
  8008. + 
  8009. +     devcleanup();
  8010. + 
  8011. +     if(IFFParseBase)
  8012. +     {
  8013. +         CloseLibrary(IFFParseBase);
  8014. + 
  8015. +         IFFParseBase = NULL;
  8016. +     }
  8017. + 
  8018. +     if(AslBase)
  8019. +     {
  8020. +         CloseLibrary(AslBase);
  8021. + 
  8022. +         AslBase = NULL;
  8023. +     }
  8024. + 
  8025. +     if(UtilityBase)
  8026. +     {
  8027. +         CloseLibrary(UtilityBase);
  8028. + 
  8029. +         UtilityBase = NULL;
  8030. +     }
  8031. + 
  8032. +     if(LayersBase)
  8033. +     {
  8034. +         CloseLibrary(LayersBase);
  8035. + 
  8036. +         LayersBase = NULL;
  8037. +     }
  8038. + 
  8039. +     if(GfxBase)
  8040. +     {
  8041. +         CloseLibrary((struct Library *)GfxBase);
  8042. + 
  8043. +         GfxBase = NULL;
  8044. +     }
  8045. + 
  8046. +     if(IntuitionBase)
  8047. +     {
  8048. +         CloseLibrary((struct Library *)IntuitionBase);
  8049. + 
  8050. +         IntuitionBase = NULL;
  8051. +     }
  8052. + }
  8053. + 
  8054. + void
  8055. + signal_handler(int signal)
  8056. + {
  8057. +     fprintf(stderr,"*** BREAK: Ghostscript\a\n");
  8058. + 
  8059. +     exit(1);
  8060. + }
  8061. + 
  8062. + /* Do platform-dependent initialization */
  8063. + void
  8064. + gp_init()
  8065. + {
  8066. +     atexit(cleanup);
  8067. + 
  8068. +     signal(SIGINT,signal_handler);
  8069. + 
  8070. +     if(!(IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library",37)))
  8071. +     {
  8072. +         perror("Ghostscript: cannot open intuition.library v37");
  8073. + 
  8074. +         exit(20);
  8075. +     }
  8076. + 
  8077. +     if(!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library",37)))
  8078. +     {
  8079. +         perror("Ghostscript: cannot open graphics.library v37");
  8080. + 
  8081. +         exit(20);
  8082. +     }
  8083. + 
  8084. +     if(!(LayersBase = OpenLibrary("layers.library",37)))
  8085. +     {
  8086. +         perror("Ghostscript: cannot open layers.library v37");
  8087. + 
  8088. +         exit(20);
  8089. +     }
  8090. + 
  8091. +     if(!(UtilityBase = OpenLibrary("utility.library",37)))
  8092. +     {
  8093. +         perror("Ghostscript: cannot open utility.library v37");
  8094. + 
  8095. +         exit(20);
  8096. +     }
  8097. + 
  8098. +     if(!(IFFParseBase = OpenLibrary("iffparse.library",37)))
  8099. +     {
  8100. +         perror("Ghostscript: cannot open iffparse.library v37");
  8101. + 
  8102. +         exit(20);
  8103. +     }
  8104. + 
  8105. +     AslBase = OpenLibrary("asl.library",38);
  8106. + }
  8107. + 
  8108. + /* Read the current date (in days since Jan. 1, 1980) */
  8109. + /* and time (in milliseconds since midnight). */
  8110. + void
  8111. + gp_get_clock(long *pdt)
  8112. + {
  8113. +     struct DateStamp Date;
  8114. + 
  8115. +     DateStamp(&Date);
  8116. + 
  8117. +     pdt[0] = Date . ds_Days + 2 * 365;
  8118. +     pdt[1] = (Date . ds_Minute * 60 + Date . ds_Tick / TICKS_PER_SECOND) * 1000;
  8119. + }
  8120. + 
  8121. + /* ------ Printer accessing ------ */
  8122. + 
  8123. + /* Open a connection to a printer.  A null file name means use the */
  8124. + /* standard printer connected to the machine, if any. */
  8125. + /* "|command" opens an output pipe. */
  8126. + /* Return NULL if the connection could not be opened. */
  8127. + FILE *
  8128. + gp_open_printer(char *fname, int binary_mode)
  8129. + {    return
  8130. +       (strlen(fname) == 0 ?
  8131. +        gp_open_scratch_file(gp_scratch_file_name_prefix, fname, "w") :
  8132. +        fname[0] == '|' ?
  8133. +        popen(fname + 1, "w") :
  8134. +        fopen(fname, "w"));
  8135. + }
  8136. + 
  8137. + /* Close the connection to the printer. */
  8138. + void
  8139. + gp_close_printer(FILE *pfile, const char *fname)
  8140. + {    if ( fname[0] == '|' )
  8141. +         pclose(pfile);
  8142. +     else
  8143. +         fclose(pfile);
  8144. + }
  8145. + 
  8146. + /* ------ File name syntax ------ */
  8147. + 
  8148. + /* Define the character used for separating file names in a list. */
  8149. + const char gp_file_name_list_separator = ',';
  8150. + 
  8151. + /* Define the default scratch file name template. */
  8152. + const char gp_scratch_file_name_prefix[] = "T:gs_";
  8153. + 
  8154. + /* Define the string to be concatenated with the file mode */
  8155. + /* for opening files without end-of-line conversion. */
  8156. + const char gp_fmode_binary_suffix[] = "b";
  8157. + /* Define the file modes for binary reading or writing. */
  8158. + const char gp_fmode_rb[] = "r";
  8159. + const char gp_fmode_wb[] = "w";
  8160. + 
  8161. + /* Create and open a scratch file with a given name prefix. */
  8162. + /* Write the actual file name at fname. */
  8163. + FILE *
  8164. + gp_open_scratch_file(const char *prefix, char *fname, const char *mode)
  8165. + {
  8166. +     strcpy(fname,prefix);
  8167. +     /* Prevent trailing X's in path from being converted by mktemp. */
  8168. +     if ( *fname != 0 && fname[strlen(fname) - 1] == 'X' )
  8169. +         strcat(fname, "-");
  8170. +     strcat(fname, "XXXXXX");
  8171. +     mktemp(fname);
  8172. +     return fopen(fname, mode);
  8173. + }
  8174. + 
  8175. + /* Answer whether a file name contains a directory/device specification, */
  8176. + /* i.e. is absolute (not directory- or device-relative). */
  8177. + int
  8178. + gp_file_name_is_absolute(const char *fname, uint len)
  8179. + {
  8180. +     int i;
  8181. + 
  8182. +     for(i = 0 ; i < len ; i++)
  8183. +     {
  8184. +         if(fname[i] == ':')
  8185. +             return(1);
  8186. +     }
  8187. + 
  8188. +     return(0);
  8189. + }
  8190. + 
  8191. + /* Answer the string to be used for combining a directory/device prefix */
  8192. + /* with a base file name.  The file name is known to not be absolute. */
  8193. + const char *
  8194. + gp_file_name_concat_string(const char *prefix, uint plen, const char *fname, uint len)
  8195. + {
  8196. +     if(plen > 0 && (prefix[plen - 1] == '/' || prefix[plen - 1] == ':'))
  8197. +         return("");
  8198. +     else
  8199. +         return("/");
  8200. + }
  8201. + 
  8202. + /* ------ File operations ------ */
  8203. + 
  8204. + /* If the file given by fname exists, fill in its status and return 1; */
  8205. + /* otherwise return 0. */
  8206. + int
  8207. + gp_file_status(const char *fname, file_status *pstatus)
  8208. + {    struct stat sbuf;
  8209. +     /* The RS/6000 prototype for stat doesn't include const, */
  8210. +     /* so we have to explicitly remove the const modifier. */
  8211. +     if ( stat((char *)fname, &sbuf) < 0 ) return 0;
  8212. +     pstatus->size_pages = stat_blocks(&sbuf);    /* st_blocks is */
  8213. +                     /* missing on some systems, */
  8214. +                     /* see stat_.h */
  8215. +     pstatus->size_bytes = sbuf.st_size;
  8216. +     pstatus->time_referenced = sbuf.st_mtime;
  8217. +     pstatus->time_created = sbuf.st_ctime;
  8218. +     return 1;
  8219. + }
  8220. + 
  8221. + 
  8222. + /* ------ File enumeration ------ */
  8223. + 
  8224. + /****** THIS IS NOT SUPPORTED ON UNIX SYSTEMS. ******/
  8225. + /* Amazingly enough, there is no standard Unix library routine */
  8226. + /* for enumerating the files matching a pattern, */
  8227. + /* or even for enumerating (conveniently) the files in a directory. */
  8228. + 
  8229. + struct file_enum_s {
  8230. +     char *pattern;
  8231. +     int first_time;
  8232. +     const gs_memory_procs *mprocs;
  8233. + };
  8234. + 
  8235. + /* Initialize an enumeration.  NEEDS WORK ON HANDLING * ? \. */
  8236. + file_enum *
  8237. + gp_enumerate_files_init(const char *pat, uint patlen,
  8238. +   const gs_memory_procs *mprocs)
  8239. + {    file_enum *pfen = (file_enum *)(*mprocs->alloc)(1, sizeof(file_enum), "gp_enumerate_files");
  8240. +     char *pattern;
  8241. +     if ( pfen == 0 ) return 0;
  8242. +     pattern = (*mprocs->alloc)(patlen + 1, 1,
  8243. +                 "gp_enumerate_files(pattern)");
  8244. +     if ( pattern == 0 ) return 0;
  8245. +     memcpy(pattern, pat, patlen);
  8246. +     pattern[patlen] = 0;
  8247. +     pfen->pattern = pattern;
  8248. +     pfen->mprocs = mprocs;
  8249. +     pfen->first_time = 1;
  8250. +     return pfen;
  8251. + }
  8252. + 
  8253. + /* Enumerate the next file. */
  8254. + /* PUNT: JUST RETURN THE PATTERN. */
  8255. + uint
  8256. + gp_enumerate_files_next(file_enum *pfen, char *ptr, uint maxlen)
  8257. + {    if ( pfen->first_time )
  8258. +     {    char *pattern = pfen->pattern;
  8259. +         uint len = strlen(pattern);
  8260. +         pfen->first_time = 0;
  8261. +         if ( len > maxlen )
  8262. +             return maxlen + 1;
  8263. +         strcpy(ptr, pattern);
  8264. +         return len;
  8265. +     }
  8266. +     return -1;
  8267. + }
  8268. + 
  8269. + /* Clean up the file enumeration. */
  8270. + void
  8271. + gp_enumerate_files_close(file_enum *pfen)
  8272. + {    const gs_memory_procs *mprocs = pfen->mprocs;
  8273. +     (*mprocs->free)(pfen->pattern, strlen(pfen->pattern) + 1, 1,
  8274. +             "gp_enumerate_files_close(pattern)");
  8275. +     (*mprocs->free)((char *)pfen, 1, sizeof(file_enum),
  8276. +             "gp_enumerate_files_close");
  8277. + }
  8278. diff -rc --new-file ghostscript-2.6.1-fsf/gs.1 ghostscript-2.6.1-amiga/gs.1
  8279. *** ghostscript-2.6.1-fsf/gs.1    Wed May 19 10:41:20 1993
  8280. --- ghostscript-2.6.1-amiga/gs.1    Tue Feb 22 13:49:34 1994
  8281. ***************
  8282. *** 154,160 ****
  8283.   3.
  8284.   The directory/ies specified by the GS_LIB_DEFAULT macro in the
  8285.   Ghostscript makefile (which has been set to
  8286. ! "/usr/local/lib/ghostscript:/usr/local/lib/ghostscript/fonts").
  8287.   .PP
  8288.   Each of these (GS_LIB_DEFAULT, GS_LIB, and \-I parameter) may be either
  8289.   a single directory, or a list of directories separated by a `:'.
  8290. --- 154,160 ----
  8291.   3.
  8292.   The directory/ies specified by the GS_LIB_DEFAULT macro in the
  8293.   Ghostscript makefile (which has been set to
  8294. ! "/gnu/lib/ghostscript:/gnu/lib/ghostscript/fonts").
  8295.   .PP
  8296.   Each of these (GS_LIB_DEFAULT, GS_LIB, and \-I parameter) may be either
  8297.   a single directory, or a list of directories separated by a `:'.
  8298. ***************
  8299. *** 320,335 ****
  8300.   device, as described above.
  8301.   .SH FILES
  8302.   .TP 
  8303. ! .B /usr/local/lib/ghostscript/*
  8304.   Startup-files, utilities, and basic font definitions.
  8305.   .TP 
  8306. ! .B /usr/local/lib/ghostscript/fonts/*
  8307.   Additional font definitions.
  8308.   .TP
  8309. ! .B /usr/local/lib/ghostscript/examples/*
  8310.   Demo Ghostscript files.
  8311.   .TP
  8312. ! .B /usr/local/lib/doc/ghostscript/doc/*
  8313.   Assorted document files.
  8314.   .SH "SEE ALSO"
  8315.   The various Ghostscript document files (above).
  8316. --- 320,335 ----
  8317.   device, as described above.
  8318.   .SH FILES
  8319.   .TP 
  8320. ! .B /gnu/lib/ghostscript/*
  8321.   Startup-files, utilities, and basic font definitions.
  8322.   .TP 
  8323. ! .B /gnu/lib/ghostscript/fonts/*
  8324.   Additional font definitions.
  8325.   .TP
  8326. ! .B /gnu/lib/ghostscript/examples/*
  8327.   Demo Ghostscript files.
  8328.   .TP
  8329. ! .B /gnu/lib/doc/ghostscript/doc/*
  8330.   Assorted document files.
  8331.   .SH "SEE ALSO"
  8332.   The various Ghostscript document files (above).
  8333. diff -rc --new-file ghostscript-2.6.1-fsf/gsaddmod ghostscript-2.6.1-amiga/gsaddmod
  8334. *** ghostscript-2.6.1-fsf/gsaddmod    Sun May 16 06:55:00 1993
  8335. --- ghostscript-2.6.1-amiga/gsaddmod    Sun Jan 30 12:28:23 1994
  8336. ***************
  8337. *** 1,3 ****
  8338.   export m; m=$1
  8339.   shift
  8340. ! echo $* >>${m}.dev
  8341. --- 1,4 ----
  8342.   export m; m=$1
  8343.   shift
  8344. ! # The builtin echo in pdksh is not up to this task.
  8345. ! /bin/echo $* >>${m}.dev
  8346. diff -rc --new-file ghostscript-2.6.1-fsf/gsnd ghostscript-2.6.1-amiga/gsnd
  8347. *** ghostscript-2.6.1-fsf/gsnd    Mon Feb  8 09:50:18 1993
  8348. --- ghostscript-2.6.1-amiga/gsnd    Thu Jan 27 21:39:59 1994
  8349. ***************
  8350. *** 1 ****
  8351. ! gs -DNODISPLAY $*
  8352. --- 1,4 ----
  8353. ! .key ARGS/F
  8354. ! .bra {
  8355. ! .ket }
  8356. ! gs -DNODISPLAY {ARGS}
  8357. diff -rc --new-file ghostscript-2.6.1-fsf/gssetdev ghostscript-2.6.1-amiga/gssetdev
  8358. *** ghostscript-2.6.1-fsf/gssetdev    Sun May 16 06:56:28 1993
  8359. --- ghostscript-2.6.1-amiga/gssetdev    Sun Jan 30 12:28:27 1994
  8360. ***************
  8361. *** 1,3 ****
  8362.   export m; m=$1
  8363.   shift
  8364. ! echo -dev ${m} -obj $* >${m}.dev
  8365. --- 1,4 ----
  8366.   export m; m=$1
  8367.   shift
  8368. ! # The builtin echo in pdksh is not up to this task.
  8369. ! /bin/echo -dev ${m} -obj $* >${m}.dev
  8370. diff -rc --new-file ghostscript-2.6.1-fsf/gssetmod ghostscript-2.6.1-amiga/gssetmod
  8371. *** ghostscript-2.6.1-fsf/gssetmod    Sun May 16 06:56:14 1993
  8372. --- ghostscript-2.6.1-amiga/gssetmod    Sun Jan 30 12:28:32 1994
  8373. ***************
  8374. *** 1,3 ****
  8375.   export m; m=$1
  8376.   shift
  8377. ! echo -obj $* >${m}.dev
  8378. --- 1,4 ----
  8379.   export m; m=$1
  8380.   shift
  8381. ! # The builtin echo in pdksh is not up to this task.
  8382. ! /bin/echo -obj $* >${m}.dev
  8383. diff -rc --new-file ghostscript-2.6.1-fsf/make.doc ghostscript-2.6.1-amiga/make.doc
  8384. *** ghostscript-2.6.1-fsf/make.doc    Fri May 28 22:57:00 1993
  8385. --- ghostscript-2.6.1-amiga/make.doc    Tue Feb 22 13:50:59 1994
  8386. ***************
  8387. *** 82,88 ****
  8388.   follows:
  8389.   
  8390.       - GS_LIB_DEFAULT: on Unix systems, /usr/local/lib/ghostscript
  8391. ! and /usr/local/lib/ghostscript/fonts; on MS-DOS systems, C:\GS.
  8392.   
  8393.       - TDEBUG: no debugging code included in the build.
  8394.   
  8395. --- 82,89 ----
  8396.   follows:
  8397.   
  8398.       - GS_LIB_DEFAULT: on Unix systems, /usr/local/lib/ghostscript
  8399. ! and /usr/local/lib/ghostscript/fonts; on MS-DOS systems, C:\GS; on AmigaDOS
  8400. ! systems, /gnu (aka gnu:)
  8401.   
  8402.       - TDEBUG: no debugging code included in the build.
  8403.   
  8404. diff -rc --new-file ghostscript-2.6.1-fsf/ps2ascii ghostscript-2.6.1-amiga/ps2ascii
  8405. *** ghostscript-2.6.1-fsf/ps2ascii    Thu Jan 27 21:23:52 1994
  8406. --- ghostscript-2.6.1-amiga/ps2ascii    Thu Jan 27 21:41:23 1994
  8407. ***************
  8408. *** 1,13 ****
  8409. ! #!/bin/sh -f
  8410. ! # Extract ASCII text from a PostScript file.  Usage:
  8411. ! #    ps2ascii [infile.ps [outfile.txt]]
  8412. ! # If outfile is omitted, output goes to stdout.
  8413. ! # If both infile and outfile are omitted, ps2ascii acts as a filter,
  8414. ! # reading from stdin and writing on stdout.
  8415. ! if ( test $# -eq 0 ) then
  8416. !     gs -q -dNODISPLAY -dNOBIND -dWRITESYSTEMDICT -dSIMPLE ps2ascii.ps - quit.ps
  8417. ! elif ( test $# -eq 1 ) then
  8418. !     gs -q -dNODISPLAY -dNOBIND -dWRITESYSTEMDICT -dSIMPLE ps2ascii.ps $1 quit.ps
  8419. ! else
  8420. !     gs -q -dNODISPLAY -dNOBIND -dWRITESYSTEMDICT -dSIMPLE ps2ascii.ps $1 quit.ps >$2
  8421. ! fi
  8422. --- 1,4 ----
  8423. ! .key IN/A,OUT/A
  8424. ! .bra {
  8425. ! .ket }
  8426. ! gs -q -dNODISPLAY -dNOBIND -dWRITESYSTEMDICT -dSIMPLE gs_2asc.ps {IN} quit.ps >{OUT}
  8427. diff -rc --new-file ghostscript-2.6.1-fsf/ps2epsi ghostscript-2.6.1-amiga/ps2epsi
  8428. *** ghostscript-2.6.1-fsf/ps2epsi    Fri May  7 18:39:56 1993
  8429. --- ghostscript-2.6.1-amiga/ps2epsi    Thu Jan 27 21:41:46 1994
  8430. ***************
  8431. *** 1,52 ****
  8432. ! #!/bin/sh
  8433.   
  8434. ! LOCALPATH=/usr/local/bin
  8435. ! PATH=/bin:/usr/bin:/usr/ucb\:$LOCALPATH\
  8436.   
  8437. ! export PATH outfile
  8438.   
  8439. ! if [ $# -lt 1 -o $# -gt 2 ]; then
  8440. !     echo "Usage: pstoepsi file.ps [file.epsi]" 1>&2
  8441. !     exit 1
  8442. ! fi
  8443.   
  8444. ! infile=$1
  8445. ! 
  8446. ! if [ $# -eq 1 ]
  8447. ! then
  8448. !     case "${infile}" in
  8449. !       *.ps)        base=`basename ${infile} .ps` ;;
  8450. !       *.cps)    base=`basename ${infile} .cps` ;;
  8451. !       *.eps)    base=`basename ${infile} .eps` ;;
  8452. !       *.epsf)    base=`basename ${infile} .epsf` ;;
  8453. !       *)        base=`basename ${infile}` ;;
  8454. !     esac
  8455. !     outfile=${base}.epsi
  8456. ! else
  8457. !     outfile=$2
  8458. ! fi
  8459. ! 
  8460. ! gs -q -dNOPAUSE -dNODISPLAY ps2epsi.ps < ${infile} 1>&2
  8461. ! 
  8462. ! (
  8463. ! cat << BEGINEPS
  8464. ! /InitDictCount countdictstack def
  8465. ! gsave
  8466. ! save
  8467. ! mark
  8468. ! newpath
  8469. ! /showpage {} def
  8470. ! BEGINEPS
  8471. ! 
  8472. ! cat ${infile}
  8473. ! 
  8474. ! cat << ENDEPS
  8475. ! countdictstack InitDictCount sub { end } repeat
  8476. ! cleartomark
  8477. ! restore
  8478. ! grestore
  8479. ! ENDEPS
  8480. ! 
  8481. ! ) >> ${outfile}
  8482. ! 
  8483. ! exit 0
  8484. --- 1,12 ----
  8485. ! .key IN/A,OUT/A
  8486. ! .bra [
  8487. ! .ket ]
  8488.   
  8489. ! gs -q -dNOPAUSE -dNODISPLAY ps2epsi.ps < [IN]
  8490.   
  8491. ! Echo "/InitDictCount countdictstack def gsave save mark newpath" >> [OUT]
  8492.   
  8493. ! type [OUT] >> [IN]
  8494.   
  8495. ! Echo "countdictstack InitDictCount sub { end } repeat" >> [OUT]
  8496. ! Echo "cleartomark restore grestore" >> [OUT]
  8497. diff -rc --new-file ghostscript-2.6.1-fsf/use.doc ghostscript-2.6.1-amiga/use.doc
  8498. *** ghostscript-2.6.1-fsf/use.doc    Thu Jan 27 21:27:38 1994
  8499. --- ghostscript-2.6.1-amiga/use.doc    Tue Feb 22 13:51:42 1994
  8500. ***************
  8501. *** 106,114 ****
  8502.   
  8503.   Installing Ghostscript on a Unix system requires compiling it first.
  8504.   The name of the executable is gs.  The makefile installs all the
  8505. ! files, except the fonts, in /usr/local or various subdirectories
  8506.   thereof.  The fonts should be installed in
  8507. ! /usr/local/lib/ghostscript/fonts.  Consult the makefile for more
  8508.   details.
  8509.   
  8510.   ********
  8511. --- 106,114 ----
  8512.   
  8513.   Installing Ghostscript on a Unix system requires compiling it first.
  8514.   The name of the executable is gs.  The makefile installs all the
  8515. ! files, except the fonts, in /gnu or various subdirectories
  8516.   thereof.  The fonts should be installed in
  8517. ! /gnu/lib/ghostscript/fonts.  Consult the makefile for more
  8518.   details.
  8519.   
  8520.   ********
  8521.