Return to parse.c CVS log

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

researchv9-SUN3(old)

#include "parse.h"
SRCFILE("parse.c")

void *Parse::parse(char *s)
{
	trace( "%d.parse(%s) %d", this, s, goal );
	int yyparse();
	
	LexIndex = -1;
	LexGoal = goal;
	LexString = sf("%s;", s);
	yyerr = 0;
	yyres = 0;
	CurrentExpr = expr;
	yyparse();
	if( !yyerr && !yyres ) yyerr = "parse error";
	error = yyerr;
	return (void*) yyres;
}

void yyerror(char *msg)
{
	yyerr = msg ? msg : "parse error";
}

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