-static int TRACE;
-
-static void loop(PSI_Lexer *L, void *P)
-{
- token_t t;
- PSI_Token *T = NULL;
-
- if (TRACE) {
- PSI_ParserTrace(stdout, "> ");
- }
-
- while (-1 != (t = PSI_LexerScan(L))) {
- if (!(T = PSI_TokenAlloc(L, t))) {
- break;
- }
-
- if (TRACE) {
- printf("# Token: <%s>(%d)\n", T->text, t);
- }
-
- PSI_Parser(P, t, T, L);
- }
- PSI_Parser(P, 0, T, L);
-}
-