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

34 lines
548 B
C
Raw Normal View History

typedef enum TokenKinds {
Name_tok,
Number_tok,
Var_tok,
String_tok,
WString_tok,
2015-07-06 12:01:55 +01:00
BQString_tok,
WBQString_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;
2015-10-20 08:13:09 +01:00
typedef struct TOKEN {
enum TokenKinds Tok;
Term TokInfo;
2015-10-20 08:13:09 +01:00
int TokPos;
struct TOKEN *TokNext;
} TokEntry;
2015-10-20 08:13:09 +01:00
#define Ord(X) ((enum TokenKinds)(X))
2015-10-20 08:13:09 +01:00
#define NextToken GNextToken(PASS_REGS1)
2015-10-20 08:13:09 +01:00
typedef struct VARSTRUCT {
Term VarAdr;
CELL hv;
UInt refs;
struct VARSTRUCT *VarLeft, *VarRight;
char VarRep[1];
} VarEntry;