home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / converters / dvips_1 / !dvips_src_h_dvips < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-17  |  9.3 KB  |  279 lines
  1. /*
  2.  *   This is dvips, a freely redistributable PostScript driver
  3.  *   for dvi files.  It is (C) Copyright 1986-94 by Tomas Rokicki.
  4.  *   You may modify and use this program to your heart's content,
  5.  *   so long as you send modifications to Tomas Rokicki.  It can
  6.  *   be included in any distribution, commercial or otherwise, so
  7.  *   long as the banner string defined below is not modified (except
  8.  *   for the version number) and this banner is printed on program
  9.  *   invocation, or can be printed on program invocation with the -? option.
  10.  */
  11.  
  12. /*   This file is the header for dvips's global data structures. */
  13.  
  14. #include <stdlib.h>
  15. #include <stdio.h>
  16. #include <string.h>
  17. #include <ctype.h>
  18. #include "paths.h"
  19. #include "debug.h"
  20. #ifdef VMS
  21. #include "[]vms.h"
  22. #endif /* VMS */
  23. extern    int    chdir(char *);
  24. extern    char    *getcwd(char *,int);
  25. /*
  26.  *   We use malloc and free; these may need to be customized for your
  27.  *   site.
  28.  */
  29. #define BANNER \
  30.              "This is dvips 5.55 Copyright 1986, 1994 Radical Eye Software\n"
  31. #define tfmpath getenv("TFMPATH")        /* pointer to directories for tfm files */
  32. #define pkpath  getenv("TEXPKS ")        /* pointer to directories for pk files */
  33. #define vfpath getenv("VFPATH")          /* pointer to directories for vf files */
  34. #define figpath getenv("TEXINPUTS")      /* pointer to directories for figure files */
  35. #define headerpath getenv("HEADERPATH")  /* pointer to directories for header files */
  36. #define configpath getenv("TEXCONFIG")   /* where to find config files */
  37. #define pictpath getenv("TEXPICTS")      /* where IFF/etc. pictures are found */
  38.  
  39. char *mymalloc() ;
  40. /*
  41.  *   Is your malloc big?
  42.  */
  43. #if defined(MSDOS) && !defined(__EMX__) && !defined(DJGPP)
  44. #define SMALLMALLOC
  45. #endif
  46. #if defined(OS2) && defined(_MSC_VER)
  47. #define SMALLMALLOC
  48. #endif
  49. /*
  50.  *   Constants, used to increase or decrease the capacity of this program.
  51.  *
  52.  *   Strings are now more dynamically allocated, so STRINGSIZE is not the
  53.  *   strict limit it once was.  However, it still sets the maximum size
  54.  *   of a string that can be handled in specials, so it should not be
  55.  *   set too small.
  56.  */
  57. #define STRINGSIZE (25000)  /* maximum number of strings in program */
  58. #define RASTERCHUNK (8192)  /* size of chunk of raster */
  59. #define MINCHUNK (240)      /* minimum size char to get own raster */
  60. #define STACKSIZE (100)     /* maximum stack size for dvi files */
  61. #define MAXFRAME (10)       /* maximum depth of virtual font recursion */
  62. #define MAXFONTHD (100)     /* number of unique names of included fonts */
  63. #define STDOUTSIZE (75)     /* width of a standard output line */
  64. /*
  65.  *   Other constants, which define printer-dependent stuff.
  66.  */
  67. #define SWMEM (180000)      /* available virtual memory in PostScript printer */
  68. #define DPI (actualdpi)     /* dots per inch */
  69. #define VDPI (vactualdpi)   /* dots per inch */
  70. #define RES_TOLERANCE(dpi) ((int)(1+dpi/500))
  71.                             /* error in file name resolution versus desired */
  72. #define FONTCOST (298)      /* overhead cost of each sw font */
  73. #define PSFONTCOST (1100)   /* overhead cost for PostScript fonts */
  74. #define PSCHARCOST (20)     /* overhead cost for PostScript font chars */
  75. #define DNFONTCOST (35000)  /* overhead cost for downloaded PS font */
  76. #define CHARCOST (15)       /* overhead cost for each character */
  77. #define OVERCOST (30000)    /* cost of overhead */
  78. #define DICTITEMCOST (20)   /* cost per key, value in dictionary */
  79. #define NAMECOST (40)       /* overhead cost of each new name */
  80. /*
  81.  *   Type declarations.  integer must be a 32-bit signed; shalfword must
  82.  *   be a sixteen-bit signed; halfword must be a sixteen-bit unsigned;
  83.  *   quarterword must be an eight-bit unsigned.
  84.  */
  85. #if (defined(MSDOS) && !defined(DJGPP)) || (defined(OS2) && defined(_MSC_VER))
  86. typedef long integer;
  87. #else
  88. typedef int integer;
  89. #endif
  90. typedef char boolean;
  91. typedef double real;
  92. typedef short shalfword ;
  93. typedef unsigned short halfword ;
  94. typedef unsigned char quarterword ;
  95. #ifndef __THINK__
  96. typedef short Boolean ;
  97. #endif
  98. /*
  99.  *   If the machine has a default integer size of 16 bits, and 32-bit
  100.  *   integers must be manipulated with %ld, set the macro SHORTINT.
  101.  */
  102. #ifdef XENIX
  103. #define SHORTINT
  104. #else
  105. #undef SHORTINT
  106. #endif
  107. #if defined(MSDOS) && !defined(__EMX__) && !defined(DJGPP)
  108. #define SHORTINT
  109. #endif
  110. #if defined(OS2) && defined(_MSC_VER)
  111. #define SHORTINT
  112. #endif
  113.  
  114. /*
  115.  *   This is the structure definition for resident fonts.  We use
  116.  *   a small and simple hash table to handle these.  We don't need
  117.  *   a big hash table.
  118.  */
  119. #define RESHASHPRIME (73)
  120. struct resfont {
  121.    struct resfont *next ;
  122.    char *Keyname, *PSname, *TeXname ;
  123.    char *specialinstructions ;
  124.    char *downloadheader ; /* possibly multiple files */
  125.    quarterword sent ;
  126. } ;
  127.  
  128. /*
  129.  *   A chardesc describes an individual character.  Before the fonts are
  130.  *   downloaded, the flags indicate that the character has already been used
  131.  *   with the following meanings:
  132.  */
  133. typedef struct {
  134.    integer TFMwidth ;
  135.    quarterword *packptr ;
  136.    shalfword pixelwidth ;
  137.    quarterword flags, dmy ;
  138. } chardesctype ;
  139. #define EXISTS (1)
  140. #define PREVPAGE (2)
  141. #define THISPAGE (4)
  142. #define TOOBIG (8) /* not used at the moment */
  143. #define REPACKED (16)
  144. #define BIGCHAR (32)
  145. #define STATUSFLAGS (EXISTS|REPACKED|BIGCHAR)
  146. /*
  147.  *   A fontdesc describes a font.  The name, area, and scalename are located in
  148.  *   the string pool. The nextsize pointer is used to link fonts that are used
  149.  *   in included psfiles and differ only in scaledsize.  Such fonts also have
  150.  *   a non-NULL scalename that gives the scaledsize as found in the included
  151.  *   file.  The psflag indicates that the font has been used in an included
  152.  *   psfile.  It can be 0, PREVPAGE, THISPAGE, or EXISTS.
  153.  */
  154. typedef struct tfd {
  155.    integer checksum, scaledsize, designsize, thinspace ;
  156.    halfword dpi, loadeddpi ;
  157.    halfword alreadyscaled ;
  158.    halfword psname ;
  159.    halfword loaded ;
  160.    halfword maxchars ;
  161.    char *name, *area ;
  162.    struct resfont *resfont ;
  163.    struct tft *localfonts ;
  164.    struct tfd *next ;
  165.    struct tfd *nextsize;
  166.    char *scalename;
  167.    quarterword psflag;
  168.    chardesctype chardesc[256] ;
  169. } fontdesctype ;
  170.  
  171. /*  A fontmap associates a fontdesc with a font number.
  172.  */
  173. typedef struct tft {
  174.    integer fontnum ;
  175.    fontdesctype *desc ;
  176.    struct tft *next ;
  177. } fontmaptype ;
  178.  
  179. /*   Virtual fonts require a `macro' capability that is implemented by
  180.  *   using a stack of `frames'.
  181.  */
  182. typedef struct {
  183.    quarterword *curp, *curl ;
  184.    fontdesctype *curf ;
  185.    fontmaptype *ff ;
  186. } frametype ;
  187.  
  188. /*
  189.  *   The next type holds the font usage information in a 256-bit table;
  190.  *   there's a 1 for each character that was used in a section.
  191.  */
  192. typedef struct {
  193.    fontdesctype *fd ;
  194.    halfword psfused ;
  195.    halfword bitmap[16] ;
  196. } charusetype ;
  197.  
  198. /*   Next we want to record the relevant data for a section.  A section is
  199.  *   a largest portion of the document whose font usage does not overflow
  200.  *   the capacity of the printer.  (If a single page does overflow the
  201.  *   capacity all by itself, it is made into its own section and a warning
  202.  *   message is printed; the page is still printed.)
  203.  *
  204.  *   The sections are in a linked list, built during the prescan phase and
  205.  *   processed in proper order (so that pages stack correctly on output) during
  206.  *   the second phase.
  207.  */
  208. typedef struct t {
  209.    integer bos ;
  210.    struct t *next ;
  211.    halfword numpages ;
  212. } sectiontype ;
  213.  
  214. /*
  215.  *   Sections are actually represented not by sectiontype but by a more
  216.  *   complex data structure of variable size, having the following layout:
  217.  *      sectiontype sect ;
  218.  *      charusetype charuse[numfonts] ;
  219.  *      fontdesctype *sentinel = NULL ;
  220.  *   (Here numfonts is the number of bitmap fonts currently defined.)
  221.  *    Since we can't declare this or take a sizeof it, we build it and
  222.  *   manipulate it ourselves (see the end of the prescan routine).
  223.  */
  224. /*
  225.  *   This is how we build up headers and other lists.
  226.  */
  227. struct header_list {
  228.    struct header_list *next ;
  229.    char *Hname ;
  230.    char name[1] ;
  231. } ;
  232. /*
  233.  *   Some machines define putlong in their library.
  234.  *   We get around this here.
  235.  */
  236. #define putlong was_putlong
  237. /*
  238.  *   Information on available paper sizes is stored here.
  239.  */
  240. struct papsiz {
  241.    struct papsiz *next ;
  242.    integer xsize, ysize ;
  243.    char *name ;
  244.    char *specdat ;
  245. } ;
  246. #ifdef MVSXA /* IBM: MVS/XA */
  247. /* this is where we fix problems with conflicts for truncation
  248.    of long names (we might only do this if LONGNAME not set but ...) */
  249. #   define pprescanpages pprscnpgs  /* confict with pprescan */
  250. #   define flushDashedPath flshDshdPth  /* conflict with flushDash */
  251. #   define PageList PgList  /* re-definition conflict with pagelist  */
  252. /* adding ascii2ebcdic conversion table to extern */
  253.     extern char ascii2ebcdic[] ;
  254. #endif  /* IBM: MVS/XA */
  255. #ifdef VMCMS /* IBM: VM/CMS */
  256. /* this is where we fix problems with conflicts for truncation
  257.    of long names (we might only do this if LONGNAME not set but ...) */
  258. #   define pprescanpages pprscnpgs  /* confict with pprescan */
  259. #   define flushDashedPath flshDshdPth  /* conflict with flushDash */
  260. /* adding ascii2ebcdic conversion table to extern */
  261.     extern char ascii2ebcdic[] ;
  262. /* redefining fopen for VMCMS, see DVIPSCMS.C */
  263.     extern FILE *cmsfopen() ;
  264. #   ifdef fopen
  265. #      undef fopen
  266. #   endif
  267. #   define fopen cmsfopen
  268. #endif  /* IBM: VM/CMS */
  269. /*
  270.  *   Remove namespace conflict with standard library on Macintosh
  271.  */
  272. #ifdef __THINK__
  273. #define newstring newpoolstring
  274. #endif
  275.  
  276. #ifndef VOID
  277. #define VOID void
  278. #endif
  279.