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
2016-11-04 11:36:48 -05:00

31 lines
493 B
C

typedef enum TokenKinds {
Name_tok,
Number_tok,
Var_tok,
String_tok,
BQString_tok,
Ponctuation_tok,
Error_tok,
QuasiQuotes_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;
Atom VarRep;
} VarEntry;