home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / dos / program / gs300sr1 / gs300sr1.exe / ISCAN.C < prev    next >
Encoding:
C/C++ Source or Header  |  1994-07-27  |  26.3 KB  |  938 lines
  1. /* Copyright (C) 1989, 1992, 1993, 1994 Aladdin Enterprises.  All rights reserved.
  2.   
  3.   This file is part of Aladdin Ghostscript.
  4.   
  5.   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9.   License (the "License") for full details.
  10.   
  11.   Every copy of Aladdin Ghostscript must include a copy of the License,
  12.   normally in a plain ASCII text file named PUBLIC.  The License grants you
  13.   the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14.   under certain conditions described in the License.  Among other things, the
  15.   License requires that the copyright notice and this notice be preserved on
  16.   all copies.
  17. */
  18.  
  19. /* iscan.c */
  20. /* Token scanner for Ghostscript interpreter */
  21. #include "ghost.h"
  22. #include "memory_.h"
  23. #include "stream.h"
  24. #include "errors.h"
  25. #include "ialloc.h"
  26. #include "idict.h"            /* for //name lookup */
  27. #include "dstack.h"            /* ditto */
  28. #include "ilevel.h"
  29. #include "iname.h"
  30. #include "ipacked.h"
  31. #include "iparray.h"
  32. #include "strimpl.h"            /* for string decoding */
  33. #include "sfilter.h"            /* ditto */
  34. #include "ostack.h"            /* for accumulating proc bodies; */
  35.                     /* must precede iscan.h */
  36. #include "iscan.h"            /* defines interface */
  37. #include "iscannum.h"
  38. #include "istream.h"
  39. #include "istruct.h"        /* for gs_reloc_refs */
  40. #include "iutil.h"
  41. #include "ivmspace.h"
  42. #include "store.h"
  43. #include "scanchar.h"
  44.  
  45. /* Array packing flag */
  46. ref ref_array_packing;            /* t_boolean */
  47. /* Binary object format flag. This will never be set non-zero */
  48. /* unless the binary token feature is enabled. */
  49. ref ref_binary_object_format;        /* t_integer */
  50. #define recognize_btokens()\
  51.   (ref_binary_object_format.value.intval != 0 && level2_enabled)
  52.  
  53. /* Procedure for binary tokens.  Set at initialization if Level 2 */
  54. /* features are included; only called if recognize_btokens() is true. */
  55. /* Returns 0 or scan_BOS on success, <0 on failure. */
  56. int (*scan_btoken_proc)(P3(stream *, ref *, scanner_state *)) = NULL;
  57.  
  58. /* Stream template for scanning ASCII85 literals. */
  59. /* Set at initialization if Level 2 features are included. */
  60. const stream_template _ds *scan_ascii85_template = NULL;
  61.  
  62. /* Procedure for handling DSC comments if desired. */
  63. /* Set at initialization if a DSC handling module is included. */
  64. int (*scan_dsc_proc)(P2(const byte *, uint)) = NULL;
  65.  
  66. /*
  67.  * Level 2 includes some changes in the scanner:
  68.  *    - \ is always recognized in strings, regardless of the data source;
  69.  *    - << and >> are legal tokens;
  70.  *    - <~ introduces an ASCII85 encoded string (terminated by ~>);
  71.  *    - Character codes above 127 introduce binary objects.
  72.  * We explicitly enable or disable these changes here.
  73.  */
  74. #define scan_enable_level2 level2_enabled    /* from ilevel.h */
  75.  
  76. /* ------ Dynamic strings ------ */
  77.  
  78. /* Begin collecting a dynamically allocated string. */
  79. #define dynamic_init(pda, mem)\
  80.     ((pda)->is_dynamic = false,\
  81.      (pda)->limit = (pda)->buf + da_buf_size,\
  82.      (pda)->next = (pda)->base = (pda)->buf,\
  83.      (pda)->memory = (mem))
  84.  
  85. /* Free a dynamic string. */
  86. private void
  87. dynamic_free(da_ptr pda)
  88. {    if ( pda->is_dynamic )
  89.       gs_free_string(pda->memory, pda->base, da_size(pda), "scanner");
  90. }
  91.  
  92. /* Resize a dynamic string. */
  93. /* If the allocation fails, return e_VMerror; otherwise, return 0. */
  94. private int
  95. dynamic_resize(register da_ptr pda, uint new_size)
  96. {    uint old_size = da_size(pda);
  97.     uint pos = pda->next - pda->base;
  98.     gs_memory_t *mem = pda->memory;
  99.     byte *base;
  100.     if ( pda->is_dynamic )
  101.     {    base = gs_resize_string(mem, pda->base, old_size,
  102.                     new_size, "scanner");
  103.         if ( base == 0 )
  104.             return_error(e_VMerror);
  105.     }
  106.     else        /* switching from static to dynamic */
  107.     {    base = gs_alloc_string(mem, new_size, "scanner");
  108.         if ( base == 0 )
  109.           return_error(e_VMerror);
  110.         memcpy(base, pda->base, min(old_size, new_size));
  111.         pda->is_dynamic = true;
  112.     }
  113.     pda->base = base;
  114.     pda->next = base + pos;
  115.     pda->limit = base + new_size;
  116.     return 0;
  117. }
  118.  
  119. /* Grow a dynamic string. */
  120. /* Return 0 if the allocation failed, the new 'next' ptr if OK. */
  121. private byte *
  122. dynamic_grow(register da_ptr pda, byte *next)
  123. {    uint old_size = da_size(pda);
  124.     uint new_size = (old_size < 10 ? 20 :
  125.              old_size >= (max_uint >> 1) ? max_uint :
  126.              old_size << 1);
  127.     int code;
  128.     pda->next = next;
  129.     code = dynamic_resize(pda, new_size);
  130.     if ( code < 0 )
  131.       return NULL;
  132.     return pda->next;
  133. }
  134.  
  135. /* Ensure that a dynamic string is either on the heap or in the */
  136. /* private buffer. */
  137. private void
  138. dynamic_save(da_ptr pda)
  139. {    if ( !pda->is_dynamic && pda->base != pda->buf )
  140.       {    memcpy(pda->buf, pda->base, da_size(pda));
  141.         pda->next = pda->buf + da_size(pda);
  142.         pda->base = pda->buf;
  143.       }
  144. }
  145.  
  146. /* Finish collecting a dynamic string. */
  147. private int
  148. dynamic_make_string(ref *pref, da_ptr pda, byte *next)
  149. {    uint size = (pda->next = next) - pda->base;
  150.     int code = dynamic_resize(pda, size);
  151.     if ( code < 0 )
  152.       return code;
  153.     make_tasv_new(pref, t_string, a_all | imemory_local_attr((gs_ref_memory_t *)pda->memory), size, bytes, pda->base);
  154.     return 0;
  155. }
  156.  
  157. /* ------ Main scanner ------ */
  158.  
  159. /* GC procedures */
  160. #define ssptr ((scanner_state *)vptr)
  161. #define ssarray ssptr->s_ss.binary.bin_array
  162. private CLEAR_MARKS_PROC(scanner_clear_marks) {
  163.     r_clear_attrs(&ssarray, l_mark);
  164. }
  165. private ENUM_PTRS_BEGIN(scanner_enum_ptrs) return 0;
  166.     case 0:
  167.         *pep = 0;
  168.         if ( ssptr->s_scan_type == scanning_none ||
  169.              !ssptr->s_da.is_dynamic
  170.            )
  171.           break;
  172.         ssptr->s_da.str.data = ssptr->s_da.base;
  173.         ssptr->s_da.str.size = da_size(&ssptr->s_da);
  174.         ENUM_RETURN_STRING_PTR(scanner_state, s_da.str);
  175.     case 1:
  176.         if ( ssptr->s_scan_type != scanning_binary )
  177.           return 0;
  178.         *pep = &ssarray;
  179.         return ptr_ref_type;
  180. ENUM_PTRS_END
  181. private RELOC_PTRS_BEGIN(scanner_reloc_ptrs) {
  182.     if ( ssptr->s_scan_type != scanning_none && ssptr->s_da.is_dynamic )
  183.       {    RELOC_STRING_PTR(scanner_state, s_da.str);
  184.         ssptr->s_da.limit = ssptr->s_da.str.data + ssptr->s_da.str.size;
  185.         ssptr->s_da.next = ssptr->s_da.str.data + (ssptr->s_da.next - ssptr->s_da.base);
  186.         ssptr->s_da.base = ssptr->s_da.str.data;
  187.       }
  188.     if ( ssptr->s_scan_type == scanning_binary )
  189.       {    gs_reloc_refs((ref_packed *)&ssarray,
  190.                   (ref_packed *)(&ssarray + 1),
  191.                   gcst);
  192.         r_clear_attrs(&ssarray, l_mark);
  193.       }
  194. } RELOC_PTRS_END
  195. #undef ssptr
  196. /* Structure type */
  197. public_st_scanner_state();
  198.  
  199. /* Initialize the scanner. */
  200. void
  201. scan_init(void)
  202. {    make_false(&ref_array_packing);
  203.     make_int(&ref_binary_object_format, 0);
  204. }
  205.  
  206. /* Handle a scan_Refill return from scan_token. */
  207. /* This may return o_push_estack, 0 (meaning just call scan_token again), */
  208. /* or an error code. */
  209. int
  210. scan_handle_refill(stream *s, const ref *fop, scanner_state *sstate,
  211.   bool save, int (*cont)(P1(os_ptr)))
  212. {    uint avail = sbufavailable(s);
  213.     int status;
  214.     scanner_state *pstate;
  215.     ref rstate;
  216.     if ( s->end_status == EOFC )
  217.       {    /* More data needed, but none available, */
  218.         /* so this is a syntax error. */
  219.         return_error(e_syntaxerror);
  220.       }
  221.     status = s_process_read_buf(s);
  222.     if ( sbufavailable(s) > avail )
  223.         return 0;
  224.     if ( status == 0 )
  225.         status = s->end_status;
  226.     switch ( status )
  227.       {
  228.       case EOFC:        /* see above */
  229.         return_error(e_syntaxerror);
  230.       case ERRC:
  231.         return_error(e_ioerror);
  232.       case INTC:
  233.       case CALLC:
  234.         if ( save )
  235.           {    pstate =
  236.               ialloc_struct(scanner_state, &st_scanner_state,
  237.                     "scan_handle_refill");
  238.             if ( pstate == 0 )
  239.               return_error(e_VMerror);
  240.             *pstate = *sstate;
  241.           }
  242.         else
  243.             pstate = sstate;
  244.         make_struct(&rstate, 0, pstate);
  245.         if ( status == INTC )
  246.           return s_handle_intc(&rstate, cont);
  247.         else
  248.           return s_proc_read_call(s, fop, &rstate, cont);
  249.       }
  250.     /* No more data available, but no exception.  How can this be? */
  251.     lprintf("Can't refill scanner input buffer!");
  252.     return_error(e_Fatal);
  253. }
  254.  
  255. /*
  256.  * Read a token from a stream.
  257.  * Return 0 if an ordinary token was read,
  258.  * scan_BOS for a binary object sequence, scan_EOF for end-of-stream,
  259.  * scan_Refill if more data needed, or a (negative) error code.
  260.  * If the token required a terminating character (i.e., was a name or
  261.  * number) and the next character was whitespace, read and discard
  262.  * that character.  Note that the state is relevant for e_VMerror
  263.  * as well as for scan_Refill.
  264.  */
  265. int
  266. scan_token(register stream *s, ref *pref, scanner_state *pstate)
  267. {    ref *myref = pref;
  268.     int retcode = 0;
  269.     register int c;
  270.     s_declare_inline(s, sptr, endptr);
  271. #define scan_begin_inline() s_begin_inline(s, sptr, endptr)
  272. #define scan_getc() sgetc_inline(s, sptr, endptr)
  273. #define scan_putback() sputback_inline(s, sptr, endptr)
  274. #define scan_end_inline() s_end_inline(s, sptr, endptr)
  275.     const byte *newptr;
  276.     byte *daptr;
  277. #define sreturn(code)\
  278.   { retcode = gs_note_error(code); goto sret; }
  279. #define sreturn_no_error(code)\
  280.   { scan_end_inline(); return(code); }
  281. #define if_not_spush1()\
  282.   if ( osp < ostop ) osp++;\
  283.   else if ( (retcode = ref_stack_push(&o_stack, 1)) >= 0 )\
  284.     ;\
  285.   else
  286. #define spop1()\
  287.   if ( osp >= osbot ) osp--;\
  288.   else ref_stack_pop(&o_stack, 1)
  289.     int max_name_ctype =
  290.         (recognize_btokens() ? ctype_name : ctype_btoken);
  291. #define scan_sign(sign, ptr)\
  292.   switch ( *ptr ) {\
  293.     case '-': sign = -1; ptr++; break;\
  294.     case '+': sign = 1; ptr++; break;\
  295.     default: sign = 0;\
  296.   }
  297. #define ensure2_back(styp,nback)\
  298.   if ( sptr >= endptr ) { sptr -= nback; scan_type = styp; goto pause; }
  299. #define ensure2(styp) ensure2_back(styp, 1)
  300.     byte s1[2];
  301.     register const byte _ds *decoder = scan_char_decoder;
  302.     int status;
  303.     scanner_state sstate;
  304. #define pstack sstate.s_pstack
  305. #define pdepth sstate.s_pdepth
  306. #define scan_type sstate.s_scan_type
  307. #define da sstate.s_da
  308. #define name_type sstate.s_ss.s_name.s_name_type
  309. #define try_number sstate.s_ss.s_name.s_try_number
  310.     if ( pstate->s_pstack != 0 )
  311.       {    if_not_spush1()
  312.           return retcode;
  313.         myref = osp;
  314.       }
  315.     /* Check whether we are resuming after an interruption. */
  316.     if ( pstate->s_scan_type != scanning_none )
  317.       {    sstate = *pstate;
  318.         if ( !da.is_dynamic && da.base != da.buf )
  319.           {    /* The da contains some self-referencing pointers. */
  320.             /* Fix them up now. */
  321.             uint size = da.next - da.base;
  322.             da.base = da.buf;
  323.             da.next = da.buf + size;
  324.             da.limit = da.buf + da_buf_size;
  325.           }
  326.         daptr = da.next;
  327.         switch ( scan_type )
  328.         {
  329.         case scanning_binary:
  330.             retcode = (*sstate.s_ss.binary.cont)(s, myref, &sstate);
  331.             scan_begin_inline();
  332.             if ( retcode == scan_Refill )
  333.               goto pause;
  334.             goto sret;
  335.         case scanning_comment:
  336.             scan_begin_inline();
  337.             goto cont_comment;
  338.         case scanning_name:
  339.             goto cont_name;
  340.         case scanning_string:
  341.             goto cont_string;
  342.         default:
  343.             return_error(e_Fatal);
  344.         }
  345.       }
  346.     /* Fetch any state variables that are relevant even if */
  347.     /* scan_type == scanning_none. */
  348.     pstack = pstate->s_pstack;
  349.     pdepth = pstate->s_pdepth;
  350.     scan_begin_inline();
  351.     /*
  352.      * Loop invariants:
  353.      *    If pstack != 0, myref = osp, and *osp is a valid slot.
  354.      */
  355. top:    c = scan_getc();
  356.     if_debug1('S', (c >= 32 && c <= 126 ? "`%c'" : c >= 0 ? "`\\%03o'" : "`%d'"), c);
  357.     switch ( c )
  358.     {
  359.     case ' ': case '\f': case '\t':
  360.     case char_CR: case char_EOL:
  361.     case char_NULL: case char_VT: case char_DOS_EOF:
  362.         goto top;
  363.     case '[':
  364.     case ']':
  365.         s1[0] = (byte)c;
  366.         retcode = name_ref(s1, 1, myref, 1);    /* can't fail */
  367.         r_set_attrs(myref, a_executable);
  368.         break;
  369.     case '<':
  370.         if ( scan_enable_level2 )
  371.         {    ensure2(scanning_none);
  372.             c = scan_getc();
  373.             switch ( c )
  374.             {
  375.             case '<':
  376.                 scan_putback();
  377.                 name_type = 0;
  378.                 try_number = false;
  379.                 goto try_funny_name;
  380.             case '~':
  381.                 s_A85D_init_inline(&sstate.s_ss.a85d);
  382.                 sstate.s_ss.st.template =
  383.                   scan_ascii85_template;
  384.                 goto str;
  385.             }
  386.             scan_putback();
  387.         }
  388.         s_AXD_init_inline(&sstate.s_ss.axd);
  389.         sstate.s_ss.st.template = &s_AXD_template;
  390. str:        scan_end_inline();
  391.         dynamic_init(&da, imemory);
  392. cont_string:    for ( ; ; )
  393.           {    stream_cursor_write w;
  394.             w.ptr = da.next - 1;
  395.             w.limit = da.limit - 1;
  396.             status = (*sstate.s_ss.st.template->process)
  397.               (&sstate.s_ss.st, &s->cursor.r, &w,
  398.                s->end_status == EOFC);
  399.             da.next = w.ptr + 1;
  400.             switch ( status )
  401.             {
  402.             case 0:
  403.                 status = s->end_status;
  404.                 if ( status < 0 )
  405.                   {    if ( status == EOFC )
  406.                       sreturn(e_syntaxerror);
  407.                     break;
  408.                   }
  409.                 s_process_read_buf(s);
  410.                 continue;
  411.             case 1:
  412.                 if ( !dynamic_grow(&da, da.next) )
  413.                   {    retcode = e_VMerror;
  414.                     scan_type = scanning_string;
  415.                     goto suspend;
  416.                   }
  417.                 continue;
  418.             }
  419.             break;
  420.           }
  421.         scan_begin_inline();
  422.         switch ( status )
  423.         {
  424.         default:
  425.         /*case ERRC:*/
  426.             sreturn(e_syntaxerror);
  427.         case INTC:
  428.         case CALLC:
  429.             scan_type = scanning_string;
  430.             goto pause;
  431.         case EOFC:
  432.             ;
  433.         }
  434.         retcode = dynamic_make_string(myref, &da, da.next);
  435.         if ( retcode < 0 )    /* VMerror */
  436.           {    sputback(s);    /* rescan ) */
  437.             scan_type = scanning_string;
  438.             goto suspend;
  439.           }
  440.         break;
  441.     case '(':
  442.         sstate.s_ss.pssd.from_string =
  443.           pstate->s_from_string && scan_enable_level2;
  444.         s_PSSD_init_inline(&sstate.s_ss.pssd);
  445.         sstate.s_ss.st.template = &s_PSSD_template;
  446.         goto str;
  447.     case '{':
  448.         if ( pstack == 0 )    /* outermost procedure */
  449.           {    if_not_spush1()
  450.               {    scan_putback();
  451.                 scan_type = scanning_none;
  452.                 goto pause_ret;
  453.               }
  454.             pdepth = ref_stack_count_inline(&o_stack);
  455.           }
  456.         make_int(osp, pstack);
  457.         pstack = ref_stack_count_inline(&o_stack);
  458.         if_debug3('s', "[s{]d=%d, s=%d->%d\n",
  459.               pdepth, (int)osp->value.intval, pstack);
  460.         goto snext;
  461.     case '>':
  462.         if ( scan_enable_level2 )
  463.         {    ensure2(scanning_none);
  464.             name_type = 0;
  465.             try_number = false;
  466.             goto try_funny_name;
  467.         }
  468.         /* falls through */
  469.     case ')':
  470.         sreturn(e_syntaxerror);
  471.     case '}':
  472.         if ( pstack == 0 )
  473.           sreturn(e_syntaxerror);
  474.         osp--;
  475.         {    uint size = ref_stack_count_inline(&o_stack) - pstack;
  476.             ref arr;
  477.             if_debug4('s', "[s}]d=%d, s=%d->%ld, c=%d\n",
  478.                   pdepth, pstack,
  479.                   (pstack == pdepth ? 0 :
  480.                    ref_stack_index(&o_stack, size)->value.intval),
  481.                   size + pstack);
  482.             myref = (pstack == pdepth ? pref : &arr);
  483.             if ( ref_array_packing.value.boolval )
  484.               {    retcode = make_packed_array(myref, &o_stack,
  485.                         size, "scanner(packed)");
  486.                 if ( retcode < 0 )    /* must be VMerror */
  487.                   {    osp++;
  488.                     scan_putback();
  489.                     scan_type = scanning_none;
  490.                     goto pause_ret;
  491.                   }
  492.                 r_set_attrs(myref, a_executable);
  493.               }
  494.             else
  495.               {    retcode = ialloc_ref_array(myref,
  496.                         a_executable + a_all, size,
  497.                         "scanner(proc)");
  498.                 if ( retcode < 0 )    /* must be VMerror */
  499.                   {    osp++;
  500.                     scan_putback();
  501.                     scan_type = scanning_none;
  502.                     goto pause_ret;
  503.                   }
  504.                 retcode = ref_stack_store(&o_stack, myref,
  505.                         size, 0, 1, false, "scanner");
  506.                 if ( retcode < 0 )
  507.                   {    ifree_ref_array(myref, "scanner(proc)");
  508.                     sreturn(retcode);
  509.                   }
  510.                 ref_stack_pop(&o_stack, size);
  511.               }
  512.             if ( pstack == pdepth )
  513.               {    /* This was the top-level procedure. */
  514.                 spop1();
  515.                 pstack = 0;
  516.               }
  517.             else
  518.               {    if ( osp < osbot )
  519.                   ref_stack_pop_block(&o_stack);
  520.                 pstack = osp->value.intval;
  521.                 *osp = arr;
  522.                 goto snext;
  523.               }
  524.         }
  525.         break;
  526.     case '/':
  527.         ensure2(scanning_none);
  528.         c = scan_getc();
  529.         if ( c == '/' )
  530.         {    name_type = 2;
  531.             c = scan_getc();
  532.         }
  533.         else
  534.             name_type = 1;
  535.         try_number = false;
  536.         switch ( decoder[c] )
  537.         {
  538.         case ctype_name:
  539.         default:
  540.             goto do_name;
  541.         case ctype_btoken:
  542.             if ( !recognize_btokens() ) goto do_name;
  543.             /* otherwise, an empty name */
  544.         case ctype_exception:
  545.         case ctype_space:
  546. non:            da.base = daptr = 0;
  547.             goto nx;
  548.         case ctype_other:
  549.             switch ( c )
  550.             {
  551.             case '[':    /* only special as first character */
  552.             case ']':    /* ditto */
  553.                 s1[0] = (byte)c;
  554.                 name_ref(s1, 1, myref, 1);    /* can't fail */
  555.                 goto have_name;
  556.             case '<':    /* legal in Level 2 */
  557.             case '>':
  558.                 if ( scan_enable_level2 )
  559.                   {    ensure2_back(scanning_none, 2);
  560.                     goto try_funny_name;
  561.                   }
  562.             default:
  563.                 goto non;
  564.             }
  565.         }
  566.     case '%':
  567.     {    /* Scan as much as possible within the buffer. */
  568.         const byte *base = sptr;
  569.         const byte *end;
  570.         while ( ++sptr < endptr )    /* stop 1 char early */
  571.           switch ( *sptr )
  572.             {
  573.             case char_CR:
  574.               end = sptr;
  575.               if ( sptr[1] == char_EOL )
  576.             sptr++;
  577. cend:              /* Check for a DSC comment. */
  578.               if ( base[1] == '%' && end - base >= 3 &&
  579.                scan_dsc_proc != NULL
  580.              )
  581.             {    retcode = (*scan_dsc_proc)(base, end - base);
  582.                 if ( retcode < 0 )
  583.                   goto sret;
  584.             }
  585.               goto top;
  586.             case char_EOL:
  587.             case '\f':
  588.               end = sptr;
  589.               goto cend;
  590.             }
  591.         /*
  592.          * We got to the end of the buffer while still inside
  593.          * the comment.  If we're collecting a DSC comment,
  594.          * or if we had the bad luck to hit the end-of-buffer
  595.          * immediately after the initial % (so we can't tell
  596.          * whether or not this is a DSC comment), move whatever
  597.          * we have collected so far into a private buffer now.
  598.          * We always collect the rest of the comment in the buffer;
  599.          * this costs a little for non-DSC comments that straddle
  600.          * a buffer boundary, but we don't expect this to be common.
  601.          */
  602. #define dsc_line da.buf
  603.         --sptr;
  604.         dsc_line[1] = 0;
  605.         if ( (sptr == base || base[2] == '%') &&
  606.              scan_dsc_proc != NULL
  607.            )
  608.           {    /* Could be a DSC comment. */
  609.             uint len = sptr + 1 - base;
  610.             memcpy(dsc_line, base, len);
  611.             daptr = dsc_line + len;
  612.           }
  613.         else
  614.           {    /* Not a DSC comment. */
  615.             daptr = dsc_line + (max_dsc_line + 1);
  616.           }
  617.         da.base = dsc_line;
  618.         da.is_dynamic = false;
  619.         /* Enter here to continue scanning a comment. */
  620.         /* daptr must be set. */
  621. cont_comment:    for ( ; ; )
  622.           { switch ( (c = scan_getc()) )
  623.               {
  624.               default:
  625.             if ( c < 0 )
  626.               switch ( c )
  627.                 {
  628.                 case INTC:
  629.                 case CALLC:
  630.                   da.next = daptr;
  631.                   scan_type = scanning_comment;
  632.                   goto pause;
  633.                 case EOFC:
  634.                   /* You would think that an EOF in a comment */
  635.                   /* should be a syntax error, but there are */
  636.                   /* quite a number of files that end that way. */
  637.                   goto end_comment;
  638.                 default:
  639.                   sreturn(e_syntaxerror);
  640.                 }
  641.             if ( daptr < dsc_line + max_dsc_line )
  642.               *daptr++ = c;
  643.             continue;
  644.               case char_CR:
  645.               case char_EOL:
  646.               case '\f':
  647. end_comment:        if ( dsc_line[1] == '%' && scan_dsc_proc != NULL)
  648.               { retcode  = (*scan_dsc_proc)(dsc_line, daptr - dsc_line);
  649.                 if ( retcode < 0 )
  650.                   goto sret;
  651.               }
  652.             goto top;
  653.               }
  654.             break;
  655.           }
  656. #undef dsc_line
  657.         /*NOTREACHED*/
  658.     }
  659.     case EOFC:
  660.         if ( pstack != 0 )
  661.           sreturn(e_syntaxerror)
  662.         retcode = scan_EOF;
  663.         break;
  664.     case ERRC:
  665.         sreturn(e_ioerror);
  666.  
  667.     /* Check for a Level 2 funny name (<< or >>). */
  668.     /* c is '<' or '>'.  We already did an ensure2. */
  669. try_funny_name:
  670.     {    int c1 = scan_getc();
  671.         if ( c1 == c )
  672.         {    s1[0] = s1[1] = c;
  673.             name_ref(s1, 2, myref, 1);    /* can't fail */
  674.             goto have_name;
  675.         }
  676.         scan_putback();
  677.     }    sreturn(e_syntaxerror);
  678.  
  679.     /* Handle separately the names that might be a number. */
  680.     case '0': case '1': case '2': case '3': case '4':
  681.     case '5': case '6': case '7': case '8': case '9':
  682.     case '.':
  683.         /* We must stop the scan 1 character early, to be sure that */
  684.         /* we can test for CR+LF within the buffer.  That's why */
  685.         /* we pass endptr rather than endptr + 1. */
  686.         retcode = scan_number(sptr, endptr, 0, myref, &newptr);
  687. nr:        if ( retcode == 1 && decoder[newptr[-1]] == ctype_space )
  688.         {    sptr = newptr - 1;
  689.             if ( *sptr == char_CR && sptr[1] == char_EOL )
  690.                 sptr++;
  691.             retcode = 0;
  692.             break;
  693.         }
  694.         name_type = 0;
  695.         try_number = true;
  696.         goto do_name;
  697.     case '+':
  698.         retcode = scan_number(sptr + 1, endptr, 1, myref, &newptr);
  699.         goto nr;
  700.     case '-':
  701.         retcode = scan_number(sptr + 1, endptr, -1, myref, &newptr);
  702.         goto nr;
  703.  
  704.     /* Check for a binary object */
  705. #define case4(c) case c: case c+1: case c+2: case c+3
  706.     case4(128): case4(132): case4(136): case4(140):
  707.     case4(144): case4(148): case4(152): case4(156):
  708. #undef case4
  709.         if ( recognize_btokens() )
  710.         {    scan_end_inline();
  711.             retcode = (*scan_btoken_proc)(s, myref, &sstate);
  712.             scan_begin_inline();
  713.             if ( retcode == scan_Refill )
  714.               goto pause;
  715.             break;
  716.         }
  717.     /* Not a binary object, fall through. */
  718.  
  719.     /* The default is a name. */
  720.     default:
  721.         if ( c < 0 )
  722.           {    dynamic_init(&da, name_memory());    /* da state must be clean */
  723.             scan_type = scanning_none;
  724.             goto pause;
  725.           }
  726.     /* Populate the switch with enough cases to force */
  727.     /* simple compilers to use a dispatch rather than tests. */
  728.     case '!': case '"': case '#': case '$': case '&': case '\'':
  729.     case '*': case ',': case '=': case ':': case ';': case '?': case '@':
  730.     case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
  731.     case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M':
  732.     case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S':
  733.     case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z':
  734.     case '\\': case '^': case '_': case '`':
  735.     case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
  736.     case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm':
  737.     case 'n': case 'o': case 'p': case 'q': case 'r': case 's':
  738.     case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z':
  739.     case '|': case '~':
  740.         /* Common code for scanning a name. */
  741.         /* try_number and name_type are already set. */
  742.         /* We know c has ctype_name (or maybe ctype_btoken) */
  743.         /* or is a digit. */
  744.         name_type = 0;
  745.         try_number = false;
  746. do_name:
  747.     {    /* Try to scan entirely within the stream buffer. */
  748.         /* We stop 1 character early, so we don't switch buffers */
  749.         /* looking ahead if the name is terminated by \r\n. */
  750.         const byte *endp1 = endptr - 1;
  751.         da.base = (byte *)sptr;
  752.         da.is_dynamic = false;
  753.         do
  754.         {    if ( sptr >= endp1 )    /* stop 1 early! */
  755.                 goto dyn_name;
  756.         }
  757.         while ( decoder[*++sptr] <= max_name_ctype );    /* digit or name */
  758.         /* Name ended within the buffer. */
  759.         daptr = (byte *)sptr;
  760.         c = *sptr;
  761.         goto nx;
  762. dyn_name:    /* Name extended past end of buffer. */
  763.         scan_end_inline();
  764.         /* Initialize the dynamic area. */
  765.         /* We have to do this before the next */
  766.         /* sgetc, which will overwrite the buffer. */
  767.         da.limit = (byte *)++sptr;
  768.         da.memory = name_memory();
  769.         daptr = dynamic_grow(&da, da.limit);
  770.         if ( !daptr )
  771.           {    dynamic_save(&da);
  772.             scan_type = scanning_name;
  773.             retcode = e_VMerror;
  774.             goto pause_ret;
  775.           }
  776.         /* Enter here to continue scanning a name. */
  777.         /* daptr must be set. */
  778. cont_name:    scan_begin_inline();
  779.         while ( decoder[c = scan_getc()] <= max_name_ctype )
  780.         {    if ( daptr == da.limit )
  781.             {    daptr = dynamic_grow(&da, daptr);
  782.                 if ( !daptr )
  783.                   {    dynamic_save(&da);
  784.                     scan_putback();
  785.                     scan_type = scanning_name;
  786.                     retcode = e_VMerror;
  787.                     goto pause_ret;
  788.                   }
  789.             }
  790.             *daptr++ = c;
  791.         }
  792. nx:        switch ( decoder[c] )
  793.           {
  794.           case ctype_btoken:
  795.           case ctype_other:
  796.             scan_putback();
  797.             break;
  798.           case ctype_space:
  799.             /* Check for \r\n */
  800.             if ( c == char_CR )
  801.               {    if ( sptr >= endptr ) /* ensure2 */
  802.                   {    /* We have to check specially for */
  803.                     /* the case where the very last */
  804.                     /* character of a file is a CR. */
  805.                     if ( s->end_status != EOFC )
  806.                       {    sptr--;
  807.                         goto pause_name;
  808.                       }
  809.                   }
  810.                 else if ( sptr[1] == char_EOL )
  811.                     sptr++;
  812.               }
  813.             break;
  814.           case ctype_exception:
  815.             switch ( c )
  816.             {
  817.             case INTC:
  818.             case CALLC:
  819.                 goto pause_name;
  820.             case ERRC:
  821.                 sreturn(e_ioerror);
  822.             case EOFC:
  823.                 break;
  824.             }
  825.           }
  826.         /* Check for a number */
  827.         if ( try_number )
  828.         {    int sign;
  829.             const byte *base = da.base;
  830.             scan_sign(sign, base);
  831.             retcode = scan_number(base, daptr, sign, myref, &newptr);
  832.             if ( retcode == 1 )
  833.                 retcode = 0;
  834.             else if ( retcode != e_syntaxerror )
  835.             {    dynamic_free(&da);
  836.                 if ( name_type == 2 )
  837.                     sreturn(e_syntaxerror);
  838.                 break;    /* might be e_limitcheck */
  839.             }
  840.         }
  841.         if ( da.is_dynamic )
  842.         {    /* We've already allocated the string on the heap. */
  843.             uint size = daptr - da.base;
  844.             retcode = name_ref(da.base, size, myref, -1);
  845.             if ( retcode >= 0 )
  846.             {    dynamic_free(&da);
  847.             }
  848.             else
  849.             {    retcode = dynamic_resize(&da, size);
  850.                 if ( retcode < 0 )    /* VMerror */
  851.                   {    if ( c != EOFC )
  852.                       scan_putback();
  853.                     scan_type = scanning_name;
  854.                     goto pause_ret;
  855.                   }
  856.                 retcode = name_ref(da.base, size, myref, 2);
  857.             }
  858.         }
  859.         else
  860.         {    retcode = name_ref(da.base, (uint)(daptr - da.base),
  861.                        myref, 1);
  862.         }
  863.     }
  864.         /* Done scanning.  Check for preceding /'s. */
  865.         if ( retcode < 0 )
  866.           {    if ( retcode != e_VMerror )
  867.               sreturn(retcode);
  868.             if ( !da.is_dynamic )
  869.               {    da.next = daptr;
  870.                 dynamic_save(&da);
  871.               }
  872.             if ( c != EOFC )
  873.               scan_putback();
  874.             scan_type = scanning_name;
  875.             goto pause_ret;
  876.           }
  877. have_name:    switch ( name_type )
  878.         {
  879.         case 0:            /* ordinary executable name */
  880.             if ( r_has_type(myref, t_name) )    /* i.e., not a number */
  881.               r_set_attrs(myref, a_executable);
  882.         case 1:            /* quoted name */
  883.             break;
  884.         case 2:            /* immediate lookup */
  885.         {    ref *pvalue;
  886.             if ( !r_has_type(myref, t_name) )
  887.                 sreturn(e_undefined);
  888.             if ( (pvalue = dict_find_name(myref)) == 0 )
  889.                 sreturn(e_undefined);
  890.             if ( !r_is_global(pvalue) && pstack != 0 &&
  891.                  !ialloc_is_local(idmemory)
  892.                )
  893.                 sreturn(e_invalidaccess);
  894.             ref_assign_new(myref, pvalue);
  895.         }
  896.         }
  897.     }
  898. sret:    if ( retcode < 0 )
  899.       {    scan_end_inline();
  900.         if ( pstack != 0 )
  901.           ref_stack_pop(&o_stack,
  902.                 ref_stack_count(&o_stack) - (pdepth - 1));
  903.         return retcode;
  904.       }
  905.     /* If we are at the top level, return the object, */
  906.     /* otherwise keep going. */
  907.     if ( pstack == 0 )
  908.       {    scan_end_inline();
  909.         return retcode;
  910.       }
  911. snext:    if_not_spush1()
  912.       {    scan_end_inline();
  913.         scan_type = scanning_none;
  914.         goto save;
  915.       }
  916.     myref = osp;
  917.     goto top;
  918.  
  919.     /* Pause for an interrupt or callout. */
  920. pause_name:
  921.     /* If we're still scanning within the stream buffer, */
  922.     /* move the characters to the private buffer (da.buf) now. */
  923.     da.next = daptr;
  924.     dynamic_save(&da);
  925.     scan_type = scanning_name;
  926. pause:
  927.     retcode = scan_Refill;
  928. pause_ret:
  929.     scan_end_inline();
  930. suspend:
  931.     if ( pstack != 0 )
  932.       osp--;        /* myref */
  933. save:
  934.     sstate.s_from_string = pstate->s_from_string;
  935.     *pstate = sstate;
  936.     return retcode;
  937. }
  938.