This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/H/ScannerTypes.h

33 lines
537 B
C
Raw Normal View History

typedef enum TokenKinds {
Name_tok,
Number_tok,
Var_tok,
String_tok,
WString_tok,
2015-02-10 00:03:02 +00:00
StringTerm_tok,
Ponctuation_tok,
Error_tok,
2013-11-22 15:18:03 +00:00
QuasiQuotes_tok,
2013-12-04 23:01:30 +00:00
WQuasiQuotes_tok,
eot_tok
} tkinds;
typedef struct TOKEN {
enum TokenKinds Tok;
Term TokInfo;
int TokPos;
struct TOKEN *TokNext;
} TokEntry;
#define Ord(X) ((enum TokenKinds) (X))
#define NextToken GNextToken( PASS_REGS1 )
typedef struct VARSTRUCT {
Term VarAdr;
CELL hv;
UInt refs;
struct VARSTRUCT *VarLeft, *VarRight;
char VarRep[1];
} VarEntry;