home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / alde_c / misc / util / lex / out2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1980-01-01  |  4.1 KB  |  126 lines
  1. /*
  2.  * out2.c  --     Some of Lex's output routines for overlaying, moved
  3.  *                here from the original out.c as part of size reduction
  4.  *                effort.
  5.  *      Bob Denny
  6.  *      03-Dec-80
  7.  * More...
  8.  *      Bob Denny
  9.  *      29-May-81       RSX overlaying
  10.  *      19-Mar-82 Bob Denny -- New compiler and library
  11.  *      28-Aug-82 Bob Denny -- Change output format for readability. I know
  12.  *                              you UNIX hackers are not going to like this
  13.  *                              one.  Add code to generate llstin() per
  14.  *                              setting of "-s" switch.  Fix cclprint() to
  15.  *                              put 16 "characters" on a line. Clean up
  16.  *                              nfaprint().
  17.  *      29-Aug-82 Bob Denny -- Move chprint to root. Add llstin() to
  18.  *                              default lexin to stdin for standard I/O
  19.  *                              and no-op for stand-alone I/O.  Allows
  20.  *                              sdtio-specific code to be removed from
  21.  *                              yylex().
  22.  *      31-Aug-82 Bob Denny -- Add lexswitch( ...) to llstin so table
  23.  *                              name selected by -t switch is automatically
  24.  *                              switched-to at yylex() startup time.  Removed
  25.  *                              hard reference to "lextab" from yylex();
  26.  *      30-Oct-82 Bob Denny -- Remove lexswitch() from llstin(). Made it
  27.  *                              impossible to do a real lexswitch()! (dumb.)
  28.  *                              Default the table by statically initializing
  29.  *                              it to NULL and doing the lexswitch only if
  30.  *                              _tabp is NULL.
  31.  *        20-Nov-83 Scott Guthery -- Adapt for IBM PC & DeSmet C
  32.  */
  33.  
  34. #include <stdio.h>
  35. #include "lexlex.h"
  36.  
  37. extern int yyline;
  38.  
  39. #ifdef DEBUG
  40.  
  41. nfaprint(np, base)
  42. register struct nfa *np;
  43. struct nfa *base;
  44. {
  45.         register i;
  46.  
  47.         if (np->n_flag&NPRT)
  48.                 return;
  49.         np->n_flag |= NPRT;
  50.         fprintf(lexlog, "state %d\n", np-base);
  51.         switch (np->n_char) {
  52.         case EPSILON:
  53.                 for (i = 0; i < 2; i++)
  54.                         if (np->n_succ[i])
  55.                                 fprintf(lexlog, "\tepsilon  %d\n", np->n_succ[i]-base);
  56.                 break;
  57.         case FIN:
  58.                 fprintf(lexlog, "\tfinal state\n");
  59.                 break;
  60.         case CCL:
  61.                 fprintf(lexlog, "\t[");
  62.                 cclprint(np->n_ccl);
  63.                 fprintf(lexlog, "]  %d\n", np->n_succ[0]-base);
  64.                 break;
  65.         default:
  66.                 putc('\t', lexlog);
  67.                 chprint(np->n_char);
  68.                 fprintf(lexlog, "  %d\n", np->n_succ[0]-base);
  69.                 break;
  70.         }
  71.         putc('\n', lexlog);
  72.         if (np->n_succ[0])
  73.                 nfaprint(np->n_succ[0], base);
  74.         if (np->n_succ[1])
  75.                 nfaprint(np->n_succ[1], base);
  76. }
  77.  
  78. cclprint(cp)
  79. register char *cp;
  80. {
  81.         register i;
  82.         register nc;
  83.  
  84.         nc = 0;
  85.         for (i = 0; i < NCHARS; i++)
  86.                 {
  87.                 if (cp[i / NBPC] & (1 << (i % NBPC)))
  88.                         nc += chprint(i);
  89.                 if(nc >= 64)
  90.                         {
  91.                         nc = 0;
  92.                         fprintf(lexlog, "\n\t ");
  93.                         }
  94.                 }
  95. }
  96.  
  97. #endif
  98.  
  99. llactr()
  100. {
  101.         /*
  102.          * Prior to generating the action routine, create
  103.          * the llstin() routine, which initializes yylex(),
  104.          * per the setting of the "-s" switch.  All hardwired
  105.          * variables have now been removed from yylex(). This
  106.          * allows analyzers to be independent of the standard
  107.          * I/O library and the table name.
  108.          */
  109.         fprintf(llout, "_A%s(__na__)\t\t/* Action routine */\n   {\n", tabname);
  110. }
  111.  
  112. newcase(i)
  113. {
  114.         static int putsw;
  115.  
  116.         if (!putsw++)
  117.                 fprintf(llout, "   switch (__na__)\n      {\n");
  118.         fprintf(llout, "\n      case %d:\n", i);
  119.         setline();
  120. }
  121.  
  122. setline()
  123. {
  124.         fprintf(llout, "\n#line %d\n", yyline);
  125. }
  126.