parser3/src/main/compile.C - diff

Return to compile.C CVS log

Up to [parser3project] / parser3 / src / main

version 1.26, 2001/03/11 12:04:44	version 1.27, 2001/03/12 09:08:49
Line 25 VClass& Request::real_compile(COMPILE_PA	Line 25 VClass& Request::real_compile(COMPILE_PA
// input	// input
pc.pool=&pool();	pc.pool=&pool();
pc.request=this;	pc.request=this;
VClass *vclass;	VClass *cclass;
if(name) { // we were told the name of compiled class?	if(aclass) // we were told the class to compile to?
	cclass=aclass; // yes, remember it
	else if(name) { // we were told the name of compiled class?
// yes. create it	// yes. create it
vclass=NEW VClass(pool());	cclass=NEW VClass(pool());
// defaulting base. may change with @BASE	// defaulting base. may change with @BASE
vclass->set_base(base_class?*base_class:root_class);	cclass->set_base(base_class?*base_class:root_class);
// append to request's classes	// append to request's classes
classes_array()+=vclass;	classes_array()+=cclass;
classes().put(*name, vclass);	classes().put(*name, cclass);
vclass->set_name(*name);	cclass->set_name(*name);
} else	} else
vclass=&root_class; // until changed with @CLASS would consider operators loading	cclass=&root_class; // until changed with @CLASS would consider operators loading
pc.vclass=vclass;	pc.cclass=cclass;

pc.source=source;	pc.source=source;
#ifndef NO_STRING_ORIGIN	#ifndef NO_STRING_ORIGIN
Line 64 VClass& Request::real_compile(COMPILE_PA	Line 66 VClass& Request::real_compile(COMPILE_PA
}	}

// result	// result
return *pc.vclass;	return *pc.cclass;
}	}

E-mail: