home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / printing / ghostscrip / source / _gs / h / ghost < prev    next >
Encoding:
Text File  |  1991-11-22  |  6.8 KB  |  189 lines
  1. /* Copyright (C) 1989, 1990, 1991 Aladdin Enterprises.  All rights reserved.
  2.    Distributed by Free Software Foundation, Inc.
  3.  
  4. This file is part of Ghostscript.
  5.  
  6. Ghostscript is distributed in the hope that it will be useful, but
  7. WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  8. to anyone for the consequences of using it or for whether it serves any
  9. particular purpose or works at all, unless he says so in writing.  Refer
  10. to the Ghostscript General Public License for full details.
  11.  
  12. Everyone is granted permission to copy, modify and redistribute
  13. Ghostscript, but only under the conditions described in the Ghostscript
  14. General Public License.  A copy of this license is supposed to have been
  15. given to you along with Ghostscript so you can know your rights and
  16. responsibilities.  It should be in a file named COPYING.  Among other
  17. things, the copyright notice and this notice must be preserved on all
  18. copies.  */
  19.  
  20. /* ghost.h */
  21. #ifdef ARC
  22. /* We must include wimpc here, since it maps all the things like printf and
  23.    fread onto the WimpPlus library equivalents. */
  24. #include "wimpc.h"
  25.  
  26. /* A bug in the Acorn C compiler prevents me using make to get this define in */
  27. #define GS_LIB_DEFAULT "<GS$Dir>."
  28. #define GS_INIT "<GS$Dir>.ps.gs_init"
  29. #endif
  30.  
  31. /* Common definitions for Ghostscript */
  32. #include "gx.h"
  33.  
  34. /* The typedef for object references */
  35. typedef struct ref_s ref;
  36.  
  37. /*
  38.  * Object types.  This should be an enum, but there is no way
  39.  * to declare an enum a subrange of byte rather than int....
  40.  * The types marked with + use the read/write/execute attributes;
  41.  * the rest only use the executable attribute.
  42.  */
  43. #define t_array 0            /* + value.refs, uses size */
  44. #define t_boolean 1            /* value.index */
  45. #define t_dictionary 2            /* + value.pdict */
  46. #define t_file 3            /* + value.pfile */
  47. #define t_fontID 4            /* value.pfont */
  48. #define t_integer 5            /* value.intval */
  49. #define t_mark 6            /* (no value) */
  50. #define t_name 7            /* value.pname */
  51. #define t_null 8            /* (no value) */
  52. #define t_operator 9            /* value.opproc, uses size */
  53. #define t_real 10            /* value.realval */
  54. #define t_save 11            /* value.psave */
  55. #define t_string 12            /* + value.bytes, uses size */
  56. /* The following are the two implementations of packed arrays. */
  57. #define t_mixedarray 13            /* + value.packed, uses size */
  58. #define t_shortarray 14            /* + value.packed, uses size */
  59. /*
  60.  * The following are extensions to the PostScript type set.
  61.  * When adding new types, be sure to edit the table in gs_init.ps
  62.  * (==only operator), the printing routine in idebug.c,
  63.  * and also type_print_strings below.
  64.  */
  65. #define t_color 15            /* value.pcolor */
  66. #define t_device 16            /* value.pdevice */
  67. #define t_oparray 17            /* (no value), uses size */
  68. #define t_next_index 18        /* *** change this if adding types *** */
  69. /*
  70.  * The interpreter uses types starting at t_next_index for representing
  71.  * a few high-frequency operators.
  72.  * Since there are no operations specifically on operators,
  73.  * there is no need for any operators to check specifically for these
  74.  * types.  The r_btype macro takes care of the conversion when required.
  75.  */
  76. /*
  77.  * Define the type names for debugging printout.
  78.  * All names must be the same length, so that columns will line up.
  79.  */
  80. #define type_print_strings\
  81.   "arry","bool","dict","file","font","int ","mark","name","null","oper",\
  82.   "real","save","str ","mpry","spry","colr","devc","opry"
  83. /*
  84.  * Define the type names for the type operator.
  85.  */
  86. #define type_name_strings\
  87.   "arraytype","booleantype","dicttype","filetype","fonttype",\
  88.   "integertype","marktype","nametype","nulltype","operatortype",\
  89.   "realtype","savetype","stringtype","packedarraytype","packedarraytype",\
  90.   "colortype","devicetype","operatortype"
  91.  
  92. /*
  93.  * The encoding of attributes is constrained by two factors:
  94.  *
  95.  *    - The packed array format requires the high-order bits of the
  96.  *      type/attributes field to be 0.  (see packed.h)
  97.  *
  98.  *    - The interpreter wants the type, executable bit, and execute
  99.  *      permission to be adjacent, and in that order from high to low.
  100.  *
  101.  * The layout given below is the one that leads to the most efficient
  102.  * dispatching in the interpreter.
  103.  */
  104.  
  105. /* Location attributes */
  106. /* Note that these are associated with the *location*, not with the */
  107. /* ref that is *stored* in that location. */
  108. #define l_mark 1            /* mark for garbage collector */
  109.                     /* (not used yet) */
  110. #define l_new 2                /* stored into since last save */
  111. /* Object attributes */
  112. #define a_subrange 4            /* subarray or substring */
  113.                     /* (set properly, but never read) */
  114. #define a_write 8
  115. #define a_read 0x10
  116. #define a_execute 0x20
  117. #define a_executable 0x40
  118. #define a_all (a_write+a_read+a_execute)
  119. /* Define the attribute names for debugging printout. */
  120. #define attr_print_string "mnswrxe.....????"
  121.  
  122. /* Abstract types */
  123. typedef struct dict_s dict;
  124. typedef struct name_s name;
  125. /* We define a dummy type for op_proc_p so that */
  126. /* we don't have to include oper.h. */
  127. typedef int (*dummy_op_proc_p)();
  128. #define real_opproc(pref) (*(op_proc_p *)&(pref)->value)
  129.  
  130. /* Object reference */
  131. /*
  132.  * Note that because of the way packed arrays are represented,
  133.  * the type_attrs member must be the first one in the ref structure.
  134.  */
  135. struct stream_s;
  136. struct gs_font_s;
  137. struct gs_color_s;
  138. struct gx_device_s;
  139. struct vm_save_s;
  140. struct ref_s {
  141.  
  142.     struct {
  143.         ushort type_attrs;
  144.         ushort rsize;
  145.     } tas;
  146.  
  147. #define r_size(rp) ((rp)->tas.rsize)
  148. #define r_inc_size(rp,inc) ((rp)->tas.rsize += (inc))
  149. #define r_set_size(rp,siz) ((rp)->tas.rsize = (siz))
  150. #define r_set_subrange_size(rp,siz)\
  151.  (r_set_size(rp, siz), r_set_attrs(rp, a_subrange))
  152. /* type_attrs is a single element for fast dispatching in the interpreter */
  153. #define r_type_shift 7
  154. #define r_type(rp) ((rp)->tas.type_attrs >> r_type_shift)
  155. #define r_has_type(rp,typ)\
  156.  (((rp)->tas.type_attrs & (0x1f << r_type_shift)) == ((typ) << r_type_shift))
  157. #define r_set_type(rp,typ) ((rp)->tas.type_attrs = (typ) << r_type_shift)
  158. #define r_btype(rp)\
  159.  ((rp)->tas.type_attrs >= (t_next_index << r_type_shift) ?\
  160.   t_operator : r_type(rp))
  161. #define r_type_xe(rp) ((rp)->tas.type_attrs >> (r_type_shift - 2))
  162. #define r_type_attrs(rp) ((rp)->tas.type_attrs)    /* reading only */
  163. #define r_has_attrs(rp,mask)        /* optimize 1-bit case */\
  164.   (!(mask) ? 1 :\
  165.    (mask) & ((mask)-1) ? !(~r_type_attrs(rp) & (mask)) :\
  166.    r_type_attrs(rp) & (mask))
  167. #define r_set_attrs(rp,mask) ((rp)->tas.type_attrs |= (mask))
  168. #define r_clear_attrs(rp,mask) ((rp)->tas.type_attrs &= ~(mask))
  169. #define r_set_type_attrs(rp,typ,mask)\
  170.  ((rp)->tas.type_attrs = ((typ) << r_type_shift) + (mask))
  171.  
  172.     union v {            /* name the union to keep gdb happy */
  173.         long intval;
  174.         ushort index;        /* for enumerated things */
  175.         float realval;
  176.         byte *bytes;
  177.         struct ref_s *refs;
  178.         name *pname;
  179.         dict *pdict;
  180.         ushort *packed;
  181.         dummy_op_proc_p opproc;
  182.         struct stream_s *pfile;
  183.         struct gs_font_s *pfont;
  184.         struct gs_color_s *pcolor;
  185.         struct gx_device_s *pdevice;
  186.         struct vm_save_s *psave;
  187.     } value;
  188. };
  189.