improve type in token

This commit is contained in:
Vitor Santos Costa 2010-04-16 12:11:52 +01:00
parent be91864c1e
commit 1cf17cc2fe

View File

@ -165,7 +165,7 @@ extern YP_FILE yp_iob[YP_MAX_FILES];
typedef YP_FILE *YP_File; typedef YP_FILE *YP_File;
enum TokenKinds { typedef enum TokenKinds {
Name_tok, Name_tok,
Number_tok, Number_tok,
Var_tok, Var_tok,
@ -174,16 +174,16 @@ enum TokenKinds {
Ponctuation_tok, Ponctuation_tok,
Error_tok, Error_tok,
eot_tok eot_tok
}; } tkinds;
typedef struct TOKEN { typedef struct TOKEN {
unsigned char Tok; enum TokenKinds Tok;
Term TokInfo; Term TokInfo;
int TokPos; int TokPos;
struct TOKEN *TokNext; struct TOKEN *TokNext;
} TokEntry; } TokEntry;
#define Ord(X) ((int) (X)) #define Ord(X) ((enum TokenKinds) (X))
#define NextToken GNextToken() #define NextToken GNextToken()