www.pudn.com > 12cocorc.zip > PARSER_C.FRM

/********************************************************** 
**   PARSER_C.FRM 
**   Coco/R C Support Frames. 
**   Author: Frankie Arzu  
** 
**   Jun 12, 1996   Version 1.06 
**      Many fixes and suggestions thanks to 
**      Pat Terry  
**   Oct 11, 1997   Version 1.07 (No change) 
**   Mar 13, 1998   Version 1.08 (No change) 
**********************************************************/ 
 
#include -->ScanHeader 
#include -->ParserHeader 
 
-->UserDeclarations 
 
Error_Func Custom_Error = 0L; 
 
static int Sym; 
static int errors = 0;                /*number of detected errors*/ 
static int ErrDist = MinErrDist; 
 
-->Declarations 
 
/* Production prototypes */ 
 
-->ProdHeaders 
 
#define NSETBITS        16 
 
static unsigned short int SymSet[][MAXSYM] = { 
  -->SymSets{0x0} 
}; 
 
void GenError(int errno) 
{ if (ErrDist >= MinErrDist) { 
    if (Custom_Error != 0L) 
      (*Custom_Error) (errno, S_NextLine, S_NextCol, S_NextPos); 
    errors++; 
  } 
  ErrDist = 0; 
} 
 
void SynError(int errno) 
{ if (errno <= MAXERROR) errno = MAXERROR; 
  if (ErrDist >= MinErrDist) { 
    if (Custom_Error != 0L) 
      (*Custom_Error) (errno, S_NextLine, S_NextCol, S_NextPos); 
    errors++; 
  } 
  ErrDist = 0; 
} 
 
void SemError(int errno) 
{ if (errno <= MAXERROR) errno = MAXERROR; 
  if (ErrDist >= MinErrDist) { 
    if (Custom_Error != 0L) 
      (*Custom_Error) (errno, S_Line, S_Col, S_Pos); 
    errors++; 
  } 
  ErrDist = 0; 
} 
 
static void Get() 
{ do { 
    Sym = S_Get(); 
    if (Sym <= MAXT) ErrDist ++; 
    else { 
      -->pragmas 
      S_NextPos  = S_Pos;  S_NextCol = S_Col; 
      S_NextLine = S_Line; S_NextLen = S_Len; 
    } 
  } while (Sym > MAXT); 
} 
 
static int In (unsigned short int *SymbolSet, int i) 
{ return SymbolSet[i / NSETBITS] & (1 << (i % NSETBITS)); } 
 
static void Expect (int n) 
{ if (Sym == n) Get(); else GenError(n); } 
 
static void ExpectWeak (int n, int follow) 
{ if (Sym == n) Get(); 
  else { 
    GenError(n); 
    while (!(In(SymSet[follow], Sym) || In(SymSet[0], Sym))) Get(); 
  } 
} 
 
static int WeakSeparator (int n, int syFol, int repFol) 
{ unsigned short int s[MAXSYM]; 
  int i; 
 
  if (Sym == n) { Get(); return 1; } 
  if (In(SymSet[repFol], Sym)) return 0; 
  for (i = 0; i < MAXSYM; i++) 
    s[i] = SymSet[0][i] | SymSet[syFol][i] | SymSet[repFol][i]; 
  GenError(n); 
  while (!In(s, Sym)) Get(); 
  return In(SymSet[syFol], Sym); 
} 
 
int Successful() 
{ return errors == 0; } 
 
/* Productions */ 
 
-->Productions 
 
void Parse() 
{ S_Reset(); Get(); 
  -->ParseRoot 
}