--- parser3/src/main/compile.y	2001/05/15 10:01:25	1.133
+++ parser3/src/main/compile.y	2001/06/28 07:45:21	1.144
@@ -4,9 +4,9 @@
 	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
 
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
-
-	$Id: compile.y,v 1.133 2001/05/15 10:01:25 parser Exp $
 */
+%{
+static char *RCSId="$Id: compile.y,v 1.144 2001/06/28 07:45:21 parser Exp $"; 
 
 /**
 	@todo parser4: 
@@ -19,7 +19,6 @@
 		-#:	in iis make up specialized Pool object for that
 */
 
-%{
 #define YYSTYPE  Array/*<Operation>*/ *
 #define YYPARSE_PARAM  pc
 #define YYLEX_PARAM  pc
@@ -28,15 +27,13 @@
 #define yyerror(msg)  real_yyerror((parse_control *)pc, msg)
 #define YYPRINT(file, type, value)  yyprint(file, type, value)
 
-#include "pa_config_includes.h"
-
 #include "compile_tools.h"
 #include "pa_value.h"
 #include "pa_request.h"
 #include "pa_vobject.h"
 #include "pa_vdouble.h"
 #include "pa_globals.h"
-#include "pa_vunknown.h"
+#include "pa_vvoid.h"
 
 #define SELF_ELEMENT_NAME "self"
 #define USE_CONTROL_METHOD_NAME "USE"
@@ -137,7 +134,7 @@ control_method: '@' STRING '\n'
 		YYERROR;
 	}
 	if(command==CLASS_NAME) {
-		if(PC.cclass!=&PC.request->OP) { // already changed from default?
+		if(PC.cclass) { // already changed from default?
 			strcpy(PC.error, "class already have a name '");
 			strncat(PC.error, PC.cclass->name().cstr(), 100);
 			strcat(PC.error, "'");
@@ -160,7 +157,7 @@ control_method: '@' STRING '\n'
 			PC.request->use_file(
 			PC.request->absolute(*LA2S(strings_code, i)));
 	} else if(command==BASE_NAME) {
-		if(PC.cclass->base()) { // already changed from default?
+		if(PC.cclass->base()!=&PC.request->OP) { // already changed from default?
 			strcpy(PC.error, "class already have a base '");
 			strncat(PC.error, PC.cclass->base()->name().cstr(), 100);
 			strcat(PC.error, "'");
@@ -346,9 +343,9 @@ call_value: '^' call_name store_params E
 	O($$, OP_GET_METHOD_FRAME); /* stack: context,method_frame */
 
 	YYSTYPE params_code=$3;
-	if(params_code->size()==3) // probably [] case. [OP_VALUE + Unknown + STORE_PARAM]
+	if(params_code->size()==3) // probably [] case. [OP_VALUE + Void + STORE_PARAM]
 		if(Value *value=LA2V(params_code)) // it is OP_VALUE + value?
-			if(!value->is_defined()) // value is VUnknown?
+			if(!value->is_defined()) // value is VVoid?
 				params_code=0; // ^zzz[] case. don't append lone empty param.
 	if(params_code)
 		P($$, params_code); // filling method_frame.store_params
@@ -529,7 +526,7 @@ write_string: STRING {
 	change_string_literal_to_write_string_literal($$=$1)
 };
 
-unknown_value: /* empty */ { $$=VL(NEW VUnknown(POOL)) };
+unknown_value: /* empty */ { $$=VL(NEW VVoid(POOL)) };
 empty: /* empty */ { $$=N(POOL) };
 
 %%
@@ -859,6 +856,7 @@ static int yylex(YYSTYPE *lvalp, void *p
 		// VARIABLE GET/PUT/WITH
 		case LS_VAR_NAME_SIMPLE:
 		case LS_EXPRESSION_VAR_NAME:
+		case LS_VAR_NAME_NO_COLON:
 			if(PC.ls==LS_EXPRESSION_VAR_NAME) {
 				// name in expr ends also before binary operators 
 				switch(c) {
@@ -869,18 +867,30 @@ static int yylex(YYSTYPE *lvalp, void *p
 					goto break2;
 				}
 			}
+			if(PC.ls==LS_VAR_NAME_NO_COLON) {
+				// name already has ':', stop before next 
+				switch(c) {
+				case ':': 
+					pop_LS(PC);
+					PC.source--;  if(--PC.col<0) { PC.line--;  PC.col=-1; }
+					result=EON;
+					goto break2;
+				}
+			}
 			switch(c) {
 			case 0:
 			case ' ': case '\t': case '\n':
 			case ';':
 			case ']': case '}': case ')': 
 			case '"': case '\'':
-			case '<': case '>':  // these stand for HTML brackets and expression binary ops
+			case '<': case '>':  // these stand for HTML brackets AND expression binary ops
 			case '+': case '*': case '/': case '%': 
 			case '&': case '|': 
 			case '=': case '!':
 			// common delimiters
 			case ',':
+			// before call
+			case '^': 
 				pop_LS(PC);
 				PC.source--;  if(--PC.col<0) { PC.line--;  PC.col=-1; }
 				result=EON;
@@ -905,6 +915,7 @@ static int yylex(YYSTYPE *lvalp, void *p
 			case '.': // name part delim
 			case '$': // name part subvar
 			case ':': // ':name' or 'class:name'
+				PC.ls=LS_VAR_NAME_NO_COLON; // stop before next ':'
 				RC;
 			}
 			break;
@@ -1061,6 +1072,8 @@ break2:
 		if((c=='@' || c==0) && end[-1]=='\n') { // we are before LS_DEF_NAME or EOF?
 			// strip last \n
 			end--;
+			if(end!=begin && end[-1]=='\n') // allow one empty line before LS_DEF_NAME
+				end--;
 		}
 		if(end!=begin && PC.ls!=LS_COMMENT) { // last piece still alive and not comment?
 			// append it