home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / YACCUNX.ZIP / YCLOPT.4C < prev    next >
Encoding:
Text File  |  1983-12-25  |  2.8 KB  |  140 lines
  1. /* Edits:
  2.  *      06-Dec-80 Broken out of y4.c, impure data in y4imp.c.
  3.  *      18-Dec-80 ZAPFILE not used for decus compiler, fmkdl() used.
  4.  */
  5.  
  6. #include "y4.h"
  7.  
  8. callopt()
  9.    {
  10.  
  11.    register i, *p, j, k, *q;
  12.  
  13.    /* read the arrays from tempfile and set parameters */
  14.  
  15.    
  16.    if( (finput=fopen(TEMPNAME,"r")) == NULL ) error( "optimizer cannot open tempfile" );
  17.    pgo[0] = 0;
  18.    yypact[0] = 0;
  19.    nstate = 0;
  20.    nnonter = 0;
  21.    for(;;)
  22.       {
  23.       switch( gtnm() )
  24.          {
  25.  
  26.       case '\n':
  27.          yypact[++nstate] = (--pmem) - mem0;
  28.  
  29.       case ',':
  30.          continue;
  31.  
  32.       case '$':
  33.          break;
  34.  
  35.       default:
  36.          error( "bad tempfile" );
  37.          }
  38.       break;
  39.       }
  40.  
  41.    yypact[nstate] = yypgo[0] = (--pmem) - mem0;
  42.  
  43.    for(;;)
  44.       {
  45.       switch( gtnm() )
  46.          {
  47.  
  48.       case '\n':
  49.          yypgo[++nnonter]= pmem-mem0;
  50.       case '\r':
  51.       case ',' :
  52.          continue;
  53.  
  54.       case -1: /* EOF */
  55.          break;
  56.  
  57.       default:
  58.          error( "bad tempfile" );
  59.          }
  60.       break;
  61.       }
  62.  
  63.    yypgo[nnonter--] = (--pmem) - mem0;
  64.  
  65.    for( i=0; i<nstate; ++i )
  66.       {
  67.  
  68.       k = 32000;
  69.       j = 0;
  70.       q = mem0 + yypact[i+1];
  71.       for( p = mem0 + yypact[i]; p<q ; p += 2 )
  72.          {
  73.          if( *p > j ) j = *p;
  74.          if( *p < k ) k = *p;
  75.          }
  76.       if( k <= j )
  77.          {
  78.          /* nontrivial situation */
  79.          /* temporarily, kill this for compatibility
  80.                                 j -= k;  j is now the range */
  81.          if( k > maxoff ) maxoff = k;
  82.          }
  83.       greed[i] = (yypact[i+1]-yypact[i]) + 2*j;
  84.       if( j > maxspr ) maxspr = j;
  85.       }
  86.  
  87.    /* initialize ggreed table */
  88.  
  89.    for( i=1; i<=nnonter; ++i )
  90.       {
  91.       ggreed[i] = 1;
  92.       j = 0;
  93.       /* minimum entry index is always 0 */
  94.       q = mem0 + yypgo[i+1] -1;
  95.       for( p = mem0+yypgo[i]; p<q ; p += 2 ) 
  96.          {
  97.          ggreed[i] += 2;
  98.          if( *p > j ) j = *p;
  99.          }
  100.       ggreed[i] = ggreed[i] + 2*j;
  101.       if( j > maxoff ) maxoff = j;
  102.       }
  103.  
  104.    /* now, prepare to put the shift actions into the a array */
  105.  
  106.    for( i=0; i<ACTSIZE; ++i ) a[i] = 0;
  107.    maxa = a;
  108.  
  109.    for( i=0; i<nstate; ++i ) 
  110.       {
  111.       if( greed[i]==0 && adb>1 ) fprintf( ftable, "State %d: null\n", i );
  112.       pa[i] = YYFLAG1;
  113.       }
  114.  
  115.    while( (i = nxti()) != NOMORE ) 
  116.       {
  117.       if( i >= 0 ) stin(i);
  118.       else gin(-i);
  119.  
  120.       }
  121.  
  122.    if( adb>2 )
  123.  
  124.       {
  125.       /* print a array */
  126.       for( p=a; p <= maxa; p += 10)
  127.          {
  128.          fprintf( ftable, "%4d  ", p-a );
  129.          for( i=0; i<10; ++i ) fprintf( ftable, "%4d  ", p[i] );
  130.          fprintf( ftable, "\n" );
  131.          }
  132.       }
  133.    /* write out the output appropriate to the language */
  134.  
  135.    aoutput();
  136.  
  137.    osummary();
  138.  
  139.    fclose(finput);
  140.    ZAPFILE(TEMPNAME);
  141.    }
  142.