--- parser3/src/classes/op.C	2009/07/07 05:47:43	1.191
+++ parser3/src/classes/op.C	2009/07/14 11:14:34	1.194
@@ -5,7 +5,7 @@
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */
 
-static const char * const IDENT_OP_C="$Date: 2009/07/07 05:47:43 $";
+static const char * const IDENT_OP_C="$Date: 2009/07/14 11:14:34 $";
 
 #include "classes.h"
 #include "pa_vmethod_frame.h"
@@ -88,6 +88,7 @@ public:
 		ULN("html", HTML);
 		ULN("optimized-html", HTML|String::L_OPTIMIZE_BIT);
 		ULN("regex", REGEX);
+		ULN("parser-code", PARSER_CODE);
 		#undef ULN
 	}
 } untaint_lang_name2enum;
@@ -163,7 +164,7 @@ static void _process(Request& r, MethodP
 				"no target class");
 
 		// temporary remove language change
-		Temp_lang temp_lang(r, String::L_PASS_APPENDED);
+		Temp_lang temp_lang(r, String::L_PARSER_CODE);
 		// temporary zero @main so to maybe-replace it in processed code
 		Temp_method temp_method_main(*target_class, main_method_name, 0);
 		// temporary zero @auto so it wouldn't be auto-called in Request::use_buf
@@ -896,11 +897,11 @@ VClassMAIN::VClassMAIN(): VClass() {
 	// ^if(condition){code-when-true}{code-when-false}
 	add_native_method("if", Method::CT_ANY, _if, 2, 3, Method::CO_WITHOUT_FRAME);
 
-	// ^untaint[as-is|uri|sql|js|html|html-typo|regex]{code}
-	add_native_method("untaint", Method::CT_ANY, _untaint, 1, 2);
+	// ^untaint[as-is|uri|sql|js|html|html-typo|regex|parser-code]{code}
+	add_native_method("untaint", Method::CT_ANY, _untaint, 1, 2, Method::CO_WITHOUT_FRAME);
 
-	// ^taint[as-is|uri|sql|js|html|html-typo|regex]{code}
-	add_native_method("taint", Method::CT_ANY, _taint, 1, 2);
+	// ^taint[as-is|uri|sql|js|html|html-typo|regex|parser-code]{code}
+	add_native_method("taint", Method::CT_ANY, _taint, 1, 2, Method::CO_WITHOUT_FRAME);
 
 	// ^process[code]
 	add_native_method("process", Method::CT_ANY, _process, 1, 3);