home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2-YACC.ZIP / YNXTI.4C < prev    next >
Text File  |  1989-09-30  |  1KB  |  44 lines
  1. /*
  2.   HEADER: CUG     nnn.nn;
  3.   TITLE:     YACC - Yet Another Compilier-Compilier
  4.   VERSION:     1.0 for IBM-PC
  5.   DATE:      JAN 28, 1985
  6.   DESCRIPTION:     LALR(1) Parser Generator. From UNIX
  7.   KEYWORDS:     Parser Generator Compilier-Compilier YACC
  8.   SYSTEM:     IBM-PC and Compatiables
  9.   FILENAME:      YNXTI.4C
  10.   WARNINGS:     This program is not for the casual user. It will
  11.          be useful primarily to expert developers.
  12.   CRC:         N/A
  13.   SEE-ALSO:     LEX and PREP
  14.   AUTHORS:     Scott Guthery 11100 leafwood lane Austin, TX 78750
  15.   COMPILERS:     DESMET-C
  16.   REFERENCES:     UNIX Systems Manuals
  17. */
  18.  
  19. #include "y4.h"
  20.  
  21. int nxti( void )
  22.    {
  23.    /* finds the next i */
  24.    register i, max, maxi;
  25.  
  26.    max = 0;
  27.  
  28.    for( i=1; i<= nnonter; ++i ) if( ggreed[i] >= max )
  29.       {
  30.       max = ggreed[i];
  31.       maxi = -i;
  32.       }
  33.  
  34.    for( i=0; i<nstate; ++i ) if( greed[i] >= max )
  35.       {
  36.       max = greed[i];
  37.       maxi = i;
  38.       }
  39.  
  40.    if( nxdb ) fprintf( ftable, "nxti = %d, max = %d\n", maxi, max );
  41.    if( max==0 ) return( NOMORE );
  42.    else return( maxi );
  43.    }
  44.