parser3/src/main/compile.C - diff

Return to compile.C CVS log

Up to [parser3project] / parser3 / src / main

version 1.1, 2001/02/20 18:45:52	version 1.10, 2001/02/21 17:36:58
Line 2	Line 2
$Id$	$Id$
*/	*/

	#include "pa_request.h"
	#include "pa_string.h"
#include "pa_array.h"	#include "pa_array.h"
#include "code.h"	#include "code.h"
#include "compile_tools.h"	#include "compile_tools.h"
#include "compile.h"	#include "pa_exception.h"

#include <stdio.h>	#include <stdio.h>

extern int yydebug;	extern int yydebug;
extern int yyparse (void *);	extern int yyparse (void *);

Array *real_compile(COMPILE_PARAMS) {	Array& Request::real_compile(COMPILE_PARAMS) {
yydebug=1;	// prepare to parse
struct parse_control pc;	struct parse_control pc;
/* input */
pc.pool=pool;	// input
	pc.pool=&pool();
	pc.methods=new(pool()) Array(pool());
	if(!source)
	return *pc.methods;

pc.source=source;	pc.source=source;
#ifndef NO_STRING_ORIGIN	#ifndef NO_STRING_ORIGIN
pc.file=file;	pc.file=file;
pc.line=1;	pc.line=pc.col=0;
#endif	#endif
/* state to initial */	// initialise state
pc.pending_state=0;	pc.pending_state=0;
pc.string=string_create(pool);	String string(pool()); pc.string=&string;
pc.ls=LS_USER;	pc.ls=LS_USER;
pc.sp=0;	pc.sp=0;
/* parse! */
printf("[yyparse returned %d]", yyparse(&pc));	// parse!
/* result */	yydebug=1;
return static_cast<Array *>(pc.result);	if(yyparse(&pc)) { // error?
	if(pc.col==1) {
	// step back from last char. -1 col means EOL
	pc.line--;
	pc.col=-1;
	}
	exception().raise(0,0,
	0,
	"%s [%s:%d:%d]", pc.error, file, 1+pc.line, pc.col);
	}

	// result
	return *pc.methods;
}	}

E-mail: