Return to parse.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / pi

Annotation of researchv9/jtools/src/pi/parse.c, revision 1.1.1.1

1.1       root        1: #include "parse.h"
                      2: SRCFILE("parse.c")
                      3: 
                      4: void *Parse::parse(char *s)
                      5: {
                      6:        trace( "%d.parse(%s) %d", this, s, goal );
                      7:        int yyparse();
                      8:        
                      9:        LexIndex = -1;
                     10:        LexGoal = goal;
                     11:        LexString = sf("%s;", s);
                     12:        yyerr = 0;
                     13:        yyres = 0;
                     14:        CurrentExpr = expr;
                     15:        yyparse();
                     16:        if( !yyerr && !yyres ) yyerr = "parse error";
                     17:        error = yyerr;
                     18:        return (void*) yyres;
                     19: }
                     20: 
                     21: void yyerror(char *msg)
                     22: {
                     23:        yyerr = msg ? msg : "parse error";
                     24: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.