--- parser3/src/main/compile.C	2003/07/24 11:31:22	1.70
+++ parser3/src/main/compile.C	2026/10/05 17:50:18	1.91
@@ -1,37 +1,102 @@
 /** @file
 	Parser: compiler part of request class.
 
-	Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)
-	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
+	Copyright (c) 2001-2026 Art. Lebedev Studio (https://www.artlebedev.com)
+	Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
 */
 
-static const char* IDENT_COMPILE_C="$Date: 2003/07/24 11:31:22 $";
+volatile const char * IDENT_COMPILE_C="$Id: compile.C,v 1.91 2026/10/05 17:50:18 moko Exp $";
 
-#include "pa_opcode.h"
 #include "pa_request.h"
 #include "compile_tools.h"
+#include "pa_vclass.h"
 
 extern int yydebug;
-extern int yyparse (void *);
+extern int yyparse (Parse_control *);
 
-VStateless_class& Request::compile(VStateless_class* aclass, 
-				   const char* source, const String* main_alias, 
-				   uint file_no) {
+ArrayClass& Request::compile(VStateless_class* aclass, const char* source, const String* main_alias, uint file_no, int line_no_offset, Code_cache* code) {
 	// prepare to parse
-	Parse_control pc(*this, aclass, source, main_alias, file_no);
+	Parse_control pc(*this, aclass, source, main_alias, file_no, line_no_offset);
+#ifdef CODE_CACHE
+	if(code)
+		code->file_no=file_no;
+	pc.code_cache=code;
+#endif
 
 	// parse=compile! 
 	//yydebug=1;
 	if(yyparse(&pc)) { // error?
 		pc.pos_prev_c();
-		if(pc.pos.col==0) // expecting something after EOL means they've expected it BEFORE
-			pc.pos_prev_c();
+		if(!pc.explicit_result)
+			if(pc.pos.col==0) // expecting something after EOL means they've expected it BEFORE
+				pc.pos_prev_c();
 
-		throw Exception("parser.compile",
-			0,
-			"%s(%d:%d): %s",  file_list[file_no].cstr(), 1+pc.pos.line, 1+pc.pos.col,  pc.error);
+		exception_trace.push(Trace(0, Operation::Origin::create(file_no, pc.pos.line, pc.pos.col)));
+		throw Exception("parser.compile", 0, "%s", pc.error);
 	}
 
+#ifdef CODE_CACHE
+	if(code)
+		Code_cache_manager::put(*code);
+#endif
+
 	// result
-	return *pc.cclass;
+	return *pc.cclasses;
+}
+
+#ifdef CODE_CACHE
+
+#define CLASS_ADD if(!pc.class_add()) \
+	throw Exception("parser.compile", 0, "%s - class is already defined", pc.cclass->type());
+
+/// replays the compilation using the cached methods, mirrors control_method and code_method in compile.y
+ArrayClass& Code_cache::replay(Request& r, VStateless_class& aclass) {
+	Parse_control pc(r, &aclass, "", 0 /*main_alias: only ^process has one*/, file_no, 0);
+	const String* filespec=r.get_used_filespec(file_no);
+
+	for(Array<Action>::Iterator i(actions); i; ) {
+		Action action=i.next();
+		switch(action.kind) {
+			case CLASS:
+				CLASS_ADD;
+				pc.cclass_new=new VClass(action.name->cstr(), filespec);
+				pc.append=false;
+				break;
+			case USE:
+				CLASS_ADD;
+				r.use_file(*action.name, filespec, action.origin);
+				break;
+			case BASE:
+				CLASS_ADD;
+				if(VStateless_class* base_class=r.get_class(*action.name))
+					pc.cclass->get_class()->set_base(base_class);
+				else
+					throw Exception("parser.compile", 0, "'%s': undefined class in @BASE", action.name->cstr());
+				break;
+			case OPTION:
+				if(*action.name==Symbols::LOCALS_SYMBOL)
+					pc.set_all_vars_local();
+				else if(*action.name==Symbols::PARTIAL_SYMBOL) {
+					if(VStateless_class* existed=pc.get_existed_class(pc.cclass_new)) {
+						if(!pc.reuse_existed_class(existed))
+							throw Exception("parser.compile", 0, "can't append methods to '%s' - the class wasn't marked as partial", pc.cclass_new->type());
+					} else
+						pc.cclass_new->set_partial();
+				} else if(*action.name==Symbols::STATIC_SYMBOL)
+					pc.set_methods_call_type(Method::CT_STATIC);
+				else if(*action.name==Symbols::DYNAMIC_SYMBOL)
+					pc.set_methods_call_type(Method::CT_DYNAMIC);
+				break;
+			case METHOD:
+				CLASS_ADD;
+				pc.cclass->set_method(*action.name, action.method);
+				break;
+			case MAIN:
+				pc.cclass->set_method(*action.name, action.method);
+				break;
+		}
+	}
+
+	return *pc.cclasses;
 }
+#endif