parser3/src/main/compile.C - diff

Return to compile.C CVS log

Up to [parser3project] / parser3 / src / main

version 1.55, 2002/02/07 11:16:27	version 1.59, 2002/02/19 14:14:01
Line 1	Line 1
/** @file	/** @file
Parser: compiler part of request class.	Parser: compiler part of request class.

Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)	Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
Author: Alexander Petrosyan <paf@design.ru> (http://paf.design.ru)	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)

$Id$	$Id$
*/	*/
Line 43 VStateless_class& Request::real_compile(	Line 43 VStateless_class& Request::real_compile(
pc.source=source;	pc.source=source;
#ifndef NO_STRING_ORIGIN	#ifndef NO_STRING_ORIGIN
pc.file=file;	pc.file=file;
pc.line=pc.col=0;
#endif	#endif
	pc.line=pc.col=0; // off the check, 'col' used in compile

// initialise state	// initialise state
pc.trim_bof=true;	pc.trim_bof=true;
pc.pending_state=0;	pc.pending_state=0;
pc.string=NEW String(pool());	pc.string=NEW String(pool());
pc.ls=LS_USER;	pc.ls=LS_USER;
pc.ls_sp=0;	pc.ls_sp=0;
pc.object_constructor_allowed=false;	pc.in_call_value=false;

// parse=compile!	// parse=compile!
//yydebug=1;	yydebug=1;
if(yyparse(&pc)) { // error?	if(yyparse(&pc)) { // error?
if(pc.col==0) { // expecting something after EOL means they've expected it BEFORE	if(pc.col==0) { // expecting something after EOL means they've expected it BEFORE
// step back. -1 col means EOL	// step back. -1 col means EOL

E-mail: