parser3/src/main/compile.tab.C - diff

Return to compile.tab.C CVS log

Up to [parser3project] / parser3 / src / main

Diff for /parser3/src/main/compile.tab.C between versions 1.34 and 1.86

version 1.34, 2002/01/31 17:03:27	version 1.86, 2003/08/18 08:27:39
Line 10	Line 10
#define BAD_STRING_COMPARISON_OPERATOR 260	#define BAD_STRING_COMPARISON_OPERATOR 260
#define BAD_HEX_LITERAL 261	#define BAD_HEX_LITERAL 261
#define BAD_METHOD_DECL_START 262	#define BAD_METHOD_DECL_START 262
#define LAND 263	#define BAD_METHOD_PARAMETER_NAME_CHARACTER 263
#define LOR 264	#define BAD_MATH_OPERATOR_CHARACTER 264
#define LXOR 265	#define LAND 265
#define NLE 266	#define LOR 266
#define NGE 267	#define LXOR 267
#define NEQ 268	#define NXOR 268
#define NNE 269	#define NLE 269
#define SLT 270	#define NGE 270
#define SGT 271	#define NEQ 271
#define SLE 272	#define NNE 272
#define SGE 273	#define NSL 273
#define SEQ 274	#define NSR 274
#define SNE 275	#define SLT 275
#define DEF 276	#define SGT 276
#define IN 277	#define SLE 277
#define FEXISTS 278	#define SGE 278
#define DEXISTS 279	#define SEQ 279
#define IS 280	#define SNE 280
#define NEG 281	#define DEF 281
	#define IN 282
	#define FEXISTS 283
	#define DEXISTS 284
	#define IS 285
	#define NUNARY 286

#line 1 "compile.y"	#line 1 "compile.y"

/** @file	/** @file
Parser: compiler(lexical parser and grammar).	Parser: compiler(lexical parser and grammar).

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

$Id$	$Id$
Line 52	Line 57
-#: in iis make up specialized Pool object for that	-#: in iis make up specialized Pool object for that
*/	*/

#define YYSTYPE Array/<Operation>/ *	#define YYSTYPE ArrayOperation*
#define YYPARSE_PARAM pc	#define YYPARSE_PARAM pc
#define YYLEX_PARAM pc	#define YYLEX_PARAM pc
#define YYDEBUG 1	#define YYDEBUG 1
#define YYERROR_VERBOSE 1	#define YYERROR_VERBOSE 1
#define yyerror(msg) real_yyerror((parse_control *)pc, msg)	#define yyerror(msg) real_yyerror((Parse_control *)pc, msg)
#define YYPRINT(file, type, value) yyprint(file, type, value)	#define YYPRINT(file, type, value) yyprint(file, type, value)

	// includes

#include "compile_tools.h"	#include "compile_tools.h"
#include "pa_value.h"	#include "pa_value.h"
#include "pa_request.h"	#include "pa_request.h"
Line 67	Line 74
#include "pa_vdouble.h"	#include "pa_vdouble.h"
#include "pa_globals.h"	#include "pa_globals.h"
#include "pa_vvoid.h"	#include "pa_vvoid.h"
	#include "pa_vmethod_frame.h"

	// defines

#define SELF_ELEMENT_NAME "self"
#define USE_CONTROL_METHOD_NAME "USE"	#define USE_CONTROL_METHOD_NAME "USE"

static int real_yyerror(parse_control pc, char s);	// forwards
static void yyprint(FILE *file, int type, YYSTYPE value);
static int yylex(YYSTYPE lvalp, void pc);	static int real_yyerror(Parse_control* pc, char* s);
	static void yyprint(FILE* file, int type, YYSTYPE value);
	static int yylex(YYSTYPE* lvalp, void* pc);


// local convinient inplace typecast & var	// local convinient inplace typecast & var
#define PC ((parse_control )pc)	#undef PC
	#define PC ((Parse_control )pc)
	#undef POOL
#define POOL (*PC.pool)	#define POOL (*PC.pool)
#undef NEW
#define NEW new(POOL)
#ifndef DOXYGEN	#ifndef DOXYGEN
#ifndef YYSTYPE	#ifndef YYSTYPE
#define YYSTYPE int	#define YYSTYPE int
Line 95 static int yylex(YYSTYPE lvalp, void p	Line 106 static int yylex(YYSTYPE lvalp, void p



#define YYFINAL 248	#define YYFINAL 252
#define YYFLAG -32768	#define YYFLAG -32768
#define YYNTBASE 56	#define YYNTBASE 60

#define YYTRANSLATE(x) ((unsigned)(x) <= 281 ? yytranslate[x] : 135)	#define YYTRANSLATE(x) ((unsigned)(x) <= 286 ? yytranslate[x] : 139)

static const char yytranslate[] = { 0,	static const char yytranslate[] = { 0,
2, 2, 2, 2, 2, 2, 2, 2, 2, 42,	2, 2, 2, 2, 2, 2, 2, 2, 2, 46,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,	2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,	2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 29, 54, 30, 46, 38, 32, 55, 50,	2, 2, 44, 58, 2, 50, 41, 35, 59, 54,
51, 36, 35, 2, 34, 49, 37, 2, 2, 2,	55, 38, 36, 2, 37, 53, 39, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 53, 45, 27,	2, 2, 2, 2, 2, 2, 2, 57, 49, 32,
2, 28, 2, 41, 2, 2, 2, 2, 2, 2,	2, 33, 2, 45, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,	2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,	2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
43, 39, 44, 52, 2, 2, 2, 2, 2, 2,	47, 40, 48, 56, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,	2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,	2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 47, 31, 48, 33, 2, 2, 2, 2,	2, 2, 51, 34, 52, 43, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,	2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,	2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,	2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
Line 130 static const char yytranslate[] = {	Line 141 static const char yytranslate[] = {
2, 2, 2, 2, 2, 1, 3, 4, 5, 6,	2, 2, 2, 2, 2, 1, 3, 4, 5, 6,
7, 8, 9, 10, 11, 12, 13, 14, 15, 16,	7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 25, 26,	17, 18, 19, 20, 21, 22, 23, 24, 25, 26,
40	27, 28, 29, 30, 31, 42
};	};

#if YYDEBUG != 0	#if YYDEBUG != 0
Line 150 static const short yyprhs[] = { 0,	Line 161 static const short yyprhs[] = { 0,
306, 310, 313, 316, 319, 322, 325, 328, 331, 334,	306, 310, 313, 316, 319, 322, 325, 328, 331, 334,
338, 342, 346, 350, 354, 358, 362, 366, 370, 374,	338, 342, 346, 350, 354, 358, 362, 366, 370, 374,
378, 382, 386, 390, 394, 398, 402, 406, 410, 414,	378, 382, 386, 390, 394, 398, 402, 406, 410, 414,
418, 422, 426, 430, 434, 436, 438, 439	418, 422, 426, 430, 434, 438, 442, 444, 446, 447
};	};

static const short yyrhs[] = { 58,	static const short yyrhs[] = { 62,
0, 57, 0, 59, 0, 57, 59, 0, 71, 0,	0, 61, 0, 63, 0, 61, 63, 0, 75, 0,
60, 0, 65, 0, 41, 4, 42, 61, 0, 134,	64, 0, 69, 0, 45, 4, 46, 65, 0, 138,
0, 62, 0, 63, 0, 62, 63, 0, 64, 42,	0, 66, 0, 67, 0, 66, 67, 0, 68, 46,
0, 134, 0, 4, 0, 41, 4, 67, 66, 70,	0, 138, 0, 4, 0, 45, 4, 71, 70, 74,
42, 71, 0, 134, 0, 67, 0, 43, 68, 44,	46, 75, 0, 138, 0, 71, 0, 47, 72, 48,
0, 134, 0, 69, 0, 4, 0, 69, 45, 4,	0, 138, 0, 73, 0, 4, 0, 73, 49, 4,
0, 134, 0, 4, 0, 134, 0, 72, 0, 73,	0, 138, 0, 4, 0, 138, 0, 76, 0, 77,
0, 72, 73, 0, 132, 0, 74, 0, 75, 0,	0, 76, 77, 0, 136, 0, 78, 0, 79, 0,
83, 0, 96, 0, 76, 0, 46, 77, 0, 79,	87, 0, 100, 0, 80, 0, 50, 81, 0, 83,
3, 0, 78, 0, 47, 79, 48, 0, 80, 0,	3, 0, 82, 0, 51, 83, 52, 0, 84, 0,
81, 0, 82, 0, 126, 82, 0, 118, 0, 115,	85, 0, 86, 0, 130, 86, 0, 122, 0, 119,
118, 0, 46, 84, 88, 0, 85, 0, 86, 0,	122, 0, 50, 88, 92, 0, 89, 0, 90, 0,
87, 0, 114, 0, 49, 114, 0, 126, 114, 0,	91, 0, 118, 0, 53, 118, 0, 130, 118, 0,
89, 0, 90, 0, 91, 0, 43, 92, 44, 0,	93, 0, 94, 0, 95, 0, 47, 96, 48, 0,
50, 129, 51, 0, 47, 71, 48, 0, 133, 0,	54, 133, 55, 0, 51, 75, 52, 0, 137, 0,
4, 0, 93, 0, 94, 0, 95, 0, 74, 0,	4, 0, 97, 0, 98, 0, 99, 0, 78, 0,
73, 72, 0, 97, 0, 0, 0, 52, 98, 100,	77, 76, 0, 101, 0, 0, 0, 56, 102, 104,
99, 101, 3, 0, 79, 0, 102, 0, 101, 102,	103, 105, 3, 0, 83, 0, 106, 0, 105, 106,
0, 103, 0, 104, 0, 105, 0, 43, 106, 44,	0, 107, 0, 108, 0, 109, 0, 47, 110, 48,
0, 50, 107, 51, 0, 47, 108, 48, 0, 109,	0, 54, 111, 55, 0, 51, 112, 52, 0, 113,
0, 106, 45, 109, 0, 110, 0, 107, 45, 110,	0, 110, 49, 113, 0, 114, 0, 111, 49, 114,
0, 111, 0, 108, 45, 111, 0, 112, 0, 113,	0, 115, 0, 112, 49, 115, 0, 116, 0, 117,
0, 71, 0, 133, 0, 4, 0, 93, 0, 129,	0, 75, 0, 137, 0, 4, 0, 97, 0, 133,
0, 119, 0, 115, 119, 0, 116, 0, 115, 116,	0, 123, 0, 119, 123, 0, 120, 0, 119, 120,
0, 117, 49, 0, 119, 0, 119, 0, 4, 5,	0, 121, 53, 0, 123, 0, 123, 0, 4, 5,
0, 4, 0, 120, 0, 121, 0, 122, 0, 46,	0, 4, 0, 124, 0, 125, 0, 126, 0, 50,
123, 0, 4, 124, 0, 43, 72, 44, 0, 4,	127, 0, 4, 128, 0, 47, 76, 48, 0, 4,
0, 125, 0, 124, 125, 0, 46, 123, 0, 127,	0, 129, 0, 128, 129, 0, 50, 127, 0, 131,
0, 128, 0, 4, 53, 0, 127, 53, 0, 130,	0, 132, 0, 4, 57, 0, 131, 57, 0, 134,
0, 4, 0, 76, 0, 97, 0, 54, 131, 54,	0, 4, 0, 80, 0, 101, 0, 58, 135, 58,
0, 55, 131, 55, 0, 50, 130, 51, 0, 34,	0, 59, 135, 59, 0, 54, 134, 55, 0, 37,
130, 0, 35, 130, 0, 33, 130, 0, 29, 130,	134, 0, 36, 134, 0, 43, 134, 0, 44, 134,
0, 22, 130, 0, 23, 130, 0, 24, 130, 0,	0, 27, 134, 0, 28, 134, 0, 29, 134, 0,
25, 130, 0, 130, 34, 130, 0, 130, 35, 130,	30, 134, 0, 134, 37, 134, 0, 134, 36, 134,
0, 130, 36, 130, 0, 130, 37, 130, 0, 130,	0, 134, 38, 134, 0, 134, 39, 134, 0, 134,
38, 130, 0, 130, 39, 130, 0, 130, 32, 130,	41, 134, 0, 134, 40, 134, 0, 134, 19, 134,
0, 130, 31, 130, 0, 130, 30, 130, 0, 130,	0, 134, 20, 134, 0, 134, 35, 134, 0, 134,
9, 130, 0, 130, 10, 130, 0, 130, 11, 130,	34, 134, 0, 134, 14, 134, 0, 134, 11, 134,
0, 130, 27, 130, 0, 130, 28, 130, 0, 130,	0, 134, 12, 134, 0, 134, 13, 134, 0, 134,
12, 130, 0, 130, 13, 130, 0, 130, 14, 130,	32, 134, 0, 134, 33, 134, 0, 134, 15, 134,
0, 130, 15, 130, 0, 130, 16, 130, 0, 130,	0, 134, 16, 134, 0, 134, 17, 134, 0, 134,
17, 130, 0, 130, 18, 130, 0, 130, 19, 130,	18, 134, 0, 134, 21, 134, 0, 134, 22, 134,
0, 130, 20, 130, 0, 130, 21, 130, 0, 130,	0, 134, 23, 134, 0, 134, 24, 134, 0, 134,
26, 130, 0, 71, 0, 4, 0, 0, 0	25, 134, 0, 134, 26, 134, 0, 134, 31, 134,
	0, 75, 0, 4, 0, 0, 0
};	};

#endif	#endif

#if YYDEBUG != 0	#if YYDEBUG != 0
static const short yyrline[] = { 0,	static const short yyrline[] = { 0,
107, 117, 119, 119, 120, 122, 122, 124, 190, 190,	121, 129, 131, 131, 132, 134, 134, 136, 208, 208,
191, 191, 192, 193, 193, 195, 224, 224, 225, 226,	209, 209, 210, 211, 211, 213, 242, 242, 243, 244,
226, 227, 227, 229, 229, 233, 233, 235, 235, 236,	244, 245, 245, 247, 247, 251, 251, 253, 253, 254,
236, 237, 237, 237, 241, 245, 246, 246, 247, 248,	254, 255, 255, 255, 259, 266, 267, 267, 268, 269,
250, 251, 266, 267, 267, 271, 275, 277, 278, 279,	271, 272, 294, 295, 295, 299, 303, 305, 306, 307,
294, 299, 301, 303, 304, 306, 312, 318, 324, 326,	324, 329, 331, 333, 334, 336, 342, 350, 356, 358,
327, 329, 335, 336, 336, 340, 344, 348, 352, 366,	359, 361, 367, 368, 368, 372, 378, 381, 384, 397,
368, 368, 369, 371, 372, 374, 375, 376, 377, 379,	399, 399, 400, 402, 403, 405, 406, 407, 408, 410,
381, 383, 385, 387, 389, 393, 397, 401, 403, 404,	412, 414, 416, 418, 420, 424, 428, 432, 434, 435,
406, 413, 413, 415, 415, 416, 417, 425, 432, 434,	437, 446, 446, 448, 448, 449, 450, 458, 463, 465,
436, 437, 438, 440, 444, 452, 458, 463, 463, 464,	467, 468, 469, 471, 475, 484, 490, 495, 495, 496,
469, 471, 473, 477, 489, 493, 495, 496, 497, 498,	501, 503, 505, 517, 529, 534, 536, 537, 538, 539,
499, 501, 502, 503, 504, 505, 506, 507, 508, 510,	540, 542, 543, 544, 545, 546, 547, 548, 549, 551,
511, 512, 513, 514, 515, 516, 517, 518, 519, 520,	552, 553, 554, 555, 556, 557, 558, 559, 560, 561,
521, 522, 523, 524, 525, 526, 527, 528, 529, 530,	562, 563, 564, 565, 566, 567, 568, 569, 570, 571,
531, 532, 533, 534, 537, 546, 551, 552	572, 573, 574, 575, 576, 577, 580, 589, 594, 595
};	};
#endif	#endif

Line 228 static const short yyrline[] = { 0,	Line 240 static const short yyrline[] = { 0,

static const char * const yytname[] = { "$","error","$undefined.","EON","STRING",	static const char * const yytname[] = { "$","error","$undefined.","EON","STRING",
"BOGUS","BAD_STRING_COMPARISON_OPERATOR","BAD_HEX_LITERAL","BAD_METHOD_DECL_START",	"BOGUS","BAD_STRING_COMPARISON_OPERATOR","BAD_HEX_LITERAL","BAD_METHOD_DECL_START",
"\"&&\"","\"\|\|\"","\"##\"","\"<=\"","\">=\"","\"==\"","\"!=\"","\"lt\"","\"gt\"",	"BAD_METHOD_PARAMETER_NAME_CHARACTER","BAD_MATH_OPERATOR_CHARACTER","\"&&\"",
"\"le\"","\"ge\"","\"eq\"","\"ne\"","\"def\"","\"in\"","\"-f\"","\"-d\"","\"is\"",	"\"\|\|\"","\"!\|\|\"","\"!\|\"","\"<=\"","\">=\"","\"==\"","\"!=\"","\"<<\"","\">>\"",
"'<'","'>'","'!'","'#'","'\|'","'&'","'~'","'-'","'+'","'*'","'/'","'%'","'\\\\'",	"\"lt\"","\"gt\"","\"le\"","\"ge\"","\"eq\"","\"ne\"","\"def\"","\"in\"","\"-f\"",
"NEG","'@'","'\\n'","'['","']'","';'","'$'","'{'","'}'","'.'","'('","')'","'^'",	"\"-d\"","\"is\"","'<'","'>'","'\|'","'&'","'+'","'-'","'*'","'/'","'\\\\'","'%'",
"':'","'\\\"'","'\\''","all","methods","one_big_piece","method","control_method",	"NUNARY","'~'","'!'","'@'","'\\n'","'['","']'","';'","'$'","'{'","'}'","'.'",
"maybe_control_strings","control_strings","control_string","maybe_string","code_method",	"'('","')'","'^'","':'","'\\\"'","'\\''","all","methods","one_big_piece","method",
"maybe_bracketed_strings","bracketed_maybe_strings","maybe_strings","strings",	"control_method","maybe_control_strings","control_strings","control_string",
"maybe_comment","maybe_codes","codes","code","action","get","get_value","get_name_value",	"maybe_string","code_method","maybe_bracketed_strings","bracketed_maybe_strings",
"name_in_curly_rdive","name_without_curly_rdive","name_without_curly_rdive_read",	"maybe_strings","strings","maybe_comment","maybe_codes","codes","code","action",
"name_without_curly_rdive_class","name_without_curly_rdive_code","put","name_expr_wdive",	"get","get_value","get_name_value","name_in_curly_rdive","name_without_curly_rdive",
"name_expr_wdive_root","name_expr_wdive_write","name_expr_wdive_class","construct",	"name_without_curly_rdive_read","name_without_curly_rdive_class","name_without_curly_rdive_code",
"construct_square","construct_round","construct_curly","any_constructor_code_value",	"put","name_expr_wdive","name_expr_wdive_root","name_expr_wdive_write","name_expr_wdive_class",
	"construct","construct_square","construct_round","construct_curly","any_constructor_code_value",
"constructor_code_value","constructor_code","codes__excluding_sole_str_literal",	"constructor_code_value","constructor_code","codes__excluding_sole_str_literal",
"call","call_value","@1","@2","call_name","store_params","store_param","store_square_param",	"call","call_value","@1","@2","call_name","store_params","store_param","store_square_param",
"store_round_param","store_curly_param","store_code_param_parts","store_expr_param_parts",	"store_round_param","store_curly_param","store_code_param_parts","store_expr_param_parts",
Line 253 static const char * const yytname[] = {	Line 266 static const char * const yytname[] = {
#endif	#endif

static const short yyr1[] = { 0,	static const short yyr1[] = { 0,
56, 56, 57, 57, 58, 59, 59, 60, 61, 61,	60, 60, 61, 61, 62, 63, 63, 64, 65, 65,
62, 62, 63, 64, 64, 65, 66, 66, 67, 68,	66, 66, 67, 68, 68, 69, 70, 70, 71, 72,
68, 69, 69, 70, 70, 71, 71, 72, 72, 73,	72, 73, 73, 74, 74, 75, 75, 76, 76, 77,
73, 74, 74, 74, 75, 76, 77, 77, 78, 79,	77, 78, 78, 78, 79, 80, 81, 81, 82, 83,
79, 80, 81, 82, 82, 83, 84, 84, 84, 85,	83, 84, 85, 86, 86, 87, 88, 88, 88, 89,
86, 87, 88, 88, 88, 89, 90, 91, 92, 92,	90, 91, 92, 92, 92, 93, 94, 95, 96, 96,
92, 93, 94, 95, 95, 96, 98, 99, 97, 100,	96, 97, 98, 99, 99, 100, 102, 103, 101, 104,
101, 101, 102, 102, 102, 103, 104, 105, 106, 106,	105, 105, 106, 106, 106, 107, 108, 109, 110, 110,
107, 107, 108, 108, 109, 110, 111, 112, 112, 112,	111, 111, 112, 112, 113, 114, 115, 116, 116, 116,
113, 114, 114, 115, 115, 116, 117, 118, 118, 119,	117, 118, 118, 119, 119, 120, 121, 122, 122, 123,
119, 119, 119, 120, 121, 122, 123, 124, 124, 125,	123, 123, 123, 124, 125, 126, 127, 128, 128, 129,
126, 126, 127, 128, 129, 130, 130, 130, 130, 130,	130, 130, 131, 132, 133, 134, 134, 134, 134, 134,
130, 130, 130, 130, 130, 130, 130, 130, 130, 130,	134, 134, 134, 134, 134, 134, 134, 134, 134, 134,
130, 130, 130, 130, 130, 130, 130, 130, 130, 130,	134, 134, 134, 134, 134, 134, 134, 134, 134, 134,
130, 130, 130, 130, 130, 130, 130, 130, 130, 130,	134, 134, 134, 134, 134, 134, 134, 134, 134, 134,
130, 130, 130, 130, 131, 132, 133, 134	134, 134, 134, 134, 134, 134, 135, 136, 137, 138
};	};

static const short yyr2[] = { 0,	static const short yyr2[] = { 0,
Line 287 static const short yyr2[] = { 0,	Line 300 static const short yyr2[] = { 0,
3, 2, 2, 2, 2, 2, 2, 2, 2, 3,	3, 2, 2, 2, 2, 2, 2, 2, 2, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3,	3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3,	3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 3, 1, 1, 0, 0	3, 3, 3, 3, 3, 3, 1, 1, 0, 0
};	};

static const short yydefact[] = { 158,	static const short yydefact[] = { 160,
156, 0, 0, 67, 2, 1, 3, 6, 7, 5,	158, 0, 0, 67, 2, 1, 3, 6, 7, 5,
27, 28, 31, 32, 35, 33, 34, 66, 30, 26,	27, 28, 31, 32, 35, 33, 34, 66, 30, 26,
0, 100, 0, 0, 0, 0, 36, 38, 0, 40,	0, 100, 0, 0, 0, 0, 36, 38, 0, 40,
41, 42, 0, 47, 48, 49, 50, 0, 94, 0,	41, 42, 0, 47, 48, 49, 50, 0, 94, 0,
44, 92, 101, 102, 103, 0, 111, 112, 0, 4,	44, 92, 101, 102, 103, 0, 111, 112, 0, 4,
29, 158, 158, 158, 99, 0, 113, 105, 108, 0,	29, 160, 160, 160, 99, 0, 113, 105, 108, 0,
107, 104, 0, 0, 98, 0, 100, 51, 0, 92,	107, 104, 0, 0, 98, 0, 100, 51, 0, 92,
37, 157, 158, 0, 46, 53, 54, 55, 100, 95,	37, 159, 160, 0, 46, 53, 54, 55, 100, 95,
45, 93, 96, 43, 52, 114, 70, 68, 15, 8,	45, 93, 96, 43, 52, 114, 70, 68, 15, 8,
10, 11, 0, 9, 22, 0, 21, 20, 158, 18,	10, 11, 0, 9, 22, 0, 21, 20, 160, 18,
17, 110, 109, 106, 39, 93, 156, 0, 31, 0,	17, 110, 109, 106, 39, 93, 158, 0, 31, 0,
61, 62, 63, 59, 0, 116, 0, 0, 0, 0,	61, 62, 63, 59, 0, 116, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 158, 158, 117, 118,	0, 0, 0, 0, 0, 0, 160, 160, 117, 118,
0, 115, 0, 12, 14, 13, 19, 0, 25, 0,	0, 115, 0, 12, 14, 13, 19, 0, 25, 0,
24, 65, 56, 58, 126, 127, 128, 129, 125, 124,	24, 65, 56, 58, 126, 127, 128, 129, 123, 122,
122, 123, 0, 155, 0, 0, 57, 0, 0, 0,	124, 125, 0, 157, 0, 0, 57, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 157, 158, 0, 0, 71, 73, 74, 75,	0, 0, 0, 0, 159, 160, 0, 0, 71, 73,
23, 158, 121, 119, 120, 139, 140, 141, 144, 145,	74, 75, 23, 160, 121, 119, 120, 141, 142, 143,
146, 147, 148, 149, 150, 151, 152, 153, 154, 142,	140, 146, 147, 148, 149, 136, 137, 150, 151, 152,
143, 138, 137, 136, 130, 131, 132, 133, 134, 135,	153, 154, 155, 156, 144, 145, 139, 138, 131, 130,
156, 90, 0, 79, 85, 88, 87, 0, 83, 0,	132, 133, 135, 134, 158, 90, 0, 79, 85, 88,
81, 86, 91, 69, 72, 16, 76, 157, 158, 78,	87, 0, 83, 0, 81, 86, 91, 69, 72, 16,
0, 77, 80, 84, 82, 0, 0, 0	76, 159, 160, 78, 0, 77, 80, 84, 82, 0,
	0, 0
};	};

static const short yydefgoto[] = { 246,	static const short yydefgoto[] = { 250,
5, 6, 7, 8, 90, 91, 92, 93, 9, 99,	5, 6, 7, 8, 90, 91, 92, 93, 9, 99,
54, 96, 97, 140, 154, 11, 12, 13, 14, 129,	54, 96, 97, 140, 154, 11, 12, 13, 14, 129,
27, 28, 29, 30, 31, 32, 16, 33, 34, 35,	27, 28, 29, 30, 31, 32, 16, 33, 34, 35,
36, 75, 76, 77, 78, 110, 222, 112, 113, 17,	36, 75, 76, 77, 78, 110, 226, 112, 113, 17,
130, 49, 133, 88, 186, 187, 188, 189, 190, 223,	130, 49, 133, 88, 188, 189, 190, 191, 192, 227,
230, 228, 224, 231, 229, 225, 232, 37, 64, 39,	234, 232, 228, 235, 233, 229, 236, 37, 64, 39,
40, 41, 65, 43, 44, 45, 62, 58, 59, 66,	40, 41, 65, 43, 44, 45, 62, 58, 59, 66,
47, 48, 233, 132, 155, 19, 226, 20	47, 48, 237, 132, 155, 19, 230, 20
};	};

static const short yypact[] = { 5,	static const short yypact[] = { 13,
-32768, 20, 75,-32768, -34,-32768,-32768,-32768,-32768,-32768,	-32768, 24, 98,-32768, 36,-32768,-32768,-32768,-32768,-32768,
18,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,	14,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
-27, 31, 18, 27, 97, 102,-32768,-32768, 39,-32768,	-26, 39, 14, 44, 45, 100,-32768,-32768, 47,-32768,
-32768,-32768, 91,-32768,-32768,-32768,-32768, 103,-32768, 32,	-32768,-32768, 52,-32768,-32768,-32768,-32768, 118,-32768, 59,
-32768, 42,-32768,-32768,-32768, 103, 34,-32768, 97,-32768,	-32768, 4,-32768,-32768,-32768, 118, -3,-32768, 45,-32768,
-32768, 89, 96, 52,-32768, 27,-32768, 56,-32768, 17,	-32768, 101, 113, 71,-32768, 44,-32768, 70,-32768, 32,
-32768,-32768, 61, 103, 62, 103, 56,-32768, 102, 62,	-32768,-32768, 73, 118, 83, 118, 70,-32768, 100, 83,
-32768, 36, 18, 4,-32768,-32768,-32768,-32768, 25,-32768,	-32768, 27, 14, 57,-32768,-32768,-32768,-32768, 1,-32768,
-32768, 42,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,	-32768, 4,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
6,-32768, 74, 78,-32768, 87, 94,-32768, 115,-32768,	20,-32768, 78, 91,-32768, 90, 94,-32768, 135,-32768,
-32768,-32768,-32768,-32768,-32768, 62, 88, 18, 41, 106,	-32768,-32768,-32768,-32768,-32768, 83, 92, 14, -22, 106,
-32768,-32768,-32768,-32768, 105,-32768, 4, 4, 4, 4,	-32768,-32768,-32768,-32768, 115,-32768, 57, 57, 57, 57,
4, 4, 4, 4, 90, 4, 18, 18,-32768,-32768,	57, 57, 57, 57, 105, 57, 14, 14,-32768,-32768,
101, 277, 104,-32768,-32768,-32768,-32768, 159,-32768, 123,	114, 281, 72,-32768,-32768,-32768,-32768, 142,-32768, 107,
-32768, 18,-32768,-32768, 191, 191, 191, 191, 191, 198,	-32768, 14,-32768,-32768, 440, 440, 440, 440,-32768,-32768,
-32768,-32768, 234,-32768, 112, 113,-32768, 4, 4, 4,	-32768,-32768, 236,-32768, 112, 120,-32768, 57, 57, 57,
4, 4, 4, 4, 4, 4, 4, 4, 4, 4,	57, 57, 57, 57, 57, 57, 57, 57, 57, 57,
4, 4, 4, 4, 4, 4, 4, 4, 4, 4,	57, 57, 57, 57, 57, 57, 57, 57, 57, 57,
4, 4, 37, 18, 4, 49,-32768,-32768,-32768,-32768,	57, 57, 57, 57, 41, 14, 57, 5,-32768,-32768,
-32768, 18,-32768,-32768,-32768, 367, 339, 308, 393, 393,	-32768,-32768,-32768, 14,-32768,-32768,-32768, 371, 343, 312,
143, 143, 393, 393, 393, 393, 143, 143, 191, 393,	244, 399, 399, 412, 412, 136, 136, 399, 399, 399,
393, 243, 401, 198, 152, 152,-32768,-32768,-32768,-32768,	399, 412, 412, 440, 399, 399, 447, 453, 93, 93,
70,-32768, 81,-32768,-32768,-32768,-32768, -28,-32768, 53,	-32768,-32768,-32768,-32768, -11,-32768, 19,-32768,-32768,-32768,
-32768,-32768,-32768,-32768,-32768,-32768,-32768, 37, 18,-32768,	-32768, -10,-32768, -33,-32768,-32768,-32768,-32768,-32768,-32768,
4,-32768,-32768,-32768,-32768, 170, 171,-32768	-32768, 41, 14,-32768, 57,-32768,-32768,-32768,-32768, 180,
	181,-32768
};	};

static const short yypgoto[] = {-32768,	static const short yypgoto[] = {-32768,
-32768,-32768, 167,-32768,-32768,-32768, 133,-32768,-32768,-32768,	-32768,-32768, 177,-32768,-32768,-32768, 99,-32768,-32768,-32768,
139,-32768,-32768,-32768, 3, -18, -7, -71,-32768, 0,	129,-32768,-32768,-32768, 3, -18, -7, -71,-32768, 0,
-32768,-32768, -6,-32768,-32768, 51,-32768,-32768,-32768,-32768,	-32768,-32768, -6,-32768,-32768, -37,-32768,-32768,-32768,-32768,
-32768,-32768,-32768,-32768,-32768,-32768, 184,-32768,-32768,-32768,	-32768,-32768,-32768,-32768,-32768,-32768, 119,-32768,-32768,-32768,
2,-32768,-32768,-32768,-32768, 71,-32768,-32768,-32768,-32768,	2,-32768,-32768,-32768,-32768, -4,-32768,-32768,-32768,-32768,
-32768,-32768, 21, 22, 19,-32768,-32768, -12, 77, -20,	-32768,-32768, -50, -52, -48,-32768,-32768, -16, 95, -23,
-32768, -32, 9,-32768,-32768,-32768, 211,-32768, 218, 280,	-32768, -24, 9,-32768,-32768,-32768, 169,-32768, 168, 224,
-32768,-32768, 210, 38, 172,-32768, 227, 14	-32768,-32768, 154, 40, 102,-32768, 157, -20
};	};


#define YYLAST 440	#define YYLAST 494


static const short yytable[] = { 15,	static const short yytable[] = { 15,
109, 18, 10, 51, 60, 81, 2, 116, 1, 89,	109, 18, 10, 51, 60, 55, -98, 238, 84, 68,
15, 42, 18, 68, 52, 53, 239, 80, 63, 240,	15, 42, 18, 81, 80, 245, 1, 1, 63, 52,
1, 1, 15, 21, 18, 117, 118, 119, 120, 55,	53, 246, 15, 89, 18, -64, -64, 21, 84, 85,
61, 81, 121, 85, 70, 55, 122, 123, 124, 107,	107, 94, 98, 101, 70, 1, -89, -89, 243, 81,
221, 71, 87, 80, -98, 2, 82, -158, 80, 125,	80, 244, 87, 55, 225, 80, 82, 61, 22, 71,
3, 234, 51, 126, 42, 4, 4, 127, 128, 15,	56, 185, 51, 86, 42, 186, -97, 2, 187, 15,
104, 18, 3, 3, 108, 94, 98, 101, 4, 4,	116, 18, 3, 3, 108, -160, 241, 242, 4, 4,
56, 15, 15, 18, 18, 115, 56, 106, 22, 38,	135, 15, 15, 18, 18, 115, 3, 106, 141, 104,
83, 3, 3, 57, -64, -64, 86, 4, 4, 142,	2, 3, 4, 117, 118, 119, 120, 4, 56, 142,
-97, 183, 89, 22, 53, 184, 84, 241, 185, 95,	3, 23, 121, 122, 24, 57, 4, 38, 72, 123,
22, 56, 69, 242, 135, 67, 79, 15, 105, 18,	124, 22, 73, 67, 89, 74, 125, 15, 22, 18,
-97, 109, 141, -89, -89, 136, 84, 23, 139, -14,	126, 83, 4, 109, 127, 128, 95, 53, 185, 56,
24, 25, 38, 26, 237, 238, 15, 15, 18, 18,	69, 79, 186, 136, 105, 187, 15, 15, 18, 18,
137, -60, 23, 72, 51, 24, 25, 73, 138, 23,	181, 182, 183, 184, 51, -97, -14, 137, 139, -60,
74, 15, 24, 18, 23, 23, 183, 24, 24, 143,	38, 15, 138, 18, 23, 193, 23, 24, 25, 24,
184, 157, 144, 185, 145, 146, 147, 148, 149, 150,	26, 23, 194, 143, 24, 25, 145, 146, 147, 148,
151, 152, 191, 153, 192, 194, 109, 195, 171, 247,	149, 150, 151, 152, 23, 153, 144, 24, 157, 196,
248, 50, 174, 175, 176, 108, 177, 178, 179, 180,	109, 179, 180, 181, 182, 183, 184, 108, 197, 251,
181, 182, 15, 15, 18, 18, 227, 179, 180, 181,	252, 50, 100, 239, 15, 15, 18, 18, 231, 134,
182, 15, 100, 18, 236, 196, 197, 198, 199, 200,	111, 247, 249, 15, 248, 18, 240, 198, 199, 200,
201, 202, 203, 204, 205, 206, 207, 208, 209, 210,	201, 202, 203, 204, 205, 206, 207, 208, 209, 210,
211, 212, 213, 214, 215, 216, 217, 218, 219, 220,	211, 212, 213, 214, 215, 216, 217, 218, 219, 220,
174, 175, 176, 134, 177, 178, 179, 180, 181, 182,	221, 222, 223, 224, 102, 103, 46, 131, 114, 156,
108, 177, 178, 179, 180, 181, 182, 15, 15, 18,	0, 0, 0, 0, 108, 0, 0, 0, 0, 0,
18, 227, 158, 159, 160, 161, 162, 163, 164, 165,	0, 15, 15, 18, 18, 231, 158, 159, 160, 161,
166, 167, 168, 169, 170, 111, 235, 244, 243, 171,	162, 163, 164, 165, 166, 167, 168, 169, 170, 171,
172, 173, 245, 174, 175, 176, 102, 177, 178, 179,	172, 173, 166, 167, 0, 0, 174, 175, 176, 177,
180, 181, 182, 175, 176, 103, 177, 178, 179, 180,	178, 179, 180, 181, 182, 183, 184, 177, 178, 179,
181, 182, 46, 131, 193, 158, 159, 160, 161, 162,	180, 181, 182, 183, 184, 0, 0, 0, 0, 0,
163, 164, 165, 166, 167, 168, 169, 170, 114, 156,	195, 158, 159, 160, 161, 162, 163, 164, 165, 166,
0, 0, 171, 172, 173, 0, 174, 175, 176, 0,	167, 168, 169, 170, 171, 172, 173, 0, 0, 0,
177, 178, 179, 180, 181, 182, 158, 159, 0, 161,	0, 174, 175, 176, 177, 178, 179, 180, 181, 182,
162, 163, 164, 165, 166, 167, 168, 169, 170, 0,	183, 184, 158, 159, 0, 161, 162, 163, 164, 165,
0, 0, 0, 171, 172, 173, 0, 174, 175, 176,	166, 167, 168, 169, 170, 171, 172, 173, 0, 0,
0, 177, 178, 179, 180, 181, 182, 158, 0, 0,	0, 0, 174, 175, 176, 177, 178, 179, 180, 181,
161, 162, 163, 164, 165, 166, 167, 168, 169, 170,	182, 183, 184, 158, 0, 0, 161, 162, 163, 164,
0, 0, 0, 0, 171, 172, 173, 0, 174, 175,	165, 166, 167, 168, 169, 170, 171, 172, 173, 0,
176, 0, 177, 178, 179, 180, 181, 182, 161, 162,	0, 0, 0, 174, 175, 176, 177, 178, 179, 180,
163, 164, 165, 166, 167, 168, 169, 170, 0, 0,	181, 182, 183, 184, 161, 162, 163, 164, 165, 166,
0, 0, 171, 172, 173, 0, 174, 175, 176, 0,	167, 168, 169, 170, 171, 172, 173, 0, 0, 0,
177, 178, 179, 180, 181, 182, 163, 164, 0, 0,	0, 174, 175, 176, 177, 178, 179, 180, 181, 182,
0, 0, 169, 170, 0, 0, 0, 0, 171, 0,	183, 184, 161, 0, 0, 164, 165, 166, 167, 0,
0, 0, 174, 175, 176, 0, 177, 178, 179, 180,	0, 0, 0, 172, 173, 161, 0, 0, 0, 174,
181, 182, 176, 0, 177, 178, 179, 180, 181, 182	166, 167, 177, 178, 179, 180, 181, 182, 183, 184,
	0, 0, 174, 0, 0, 177, 178, 179, 180, 181,
	182, 183, 184, 161, 0, 0, 0, 0, 166, 167,
	0, 0, 0, 0, 0, 166, 167, 0, 0, 0,
	0, 166, 167, 177, 178, 179, 180, 181, 182, 183,
	184, 178, 179, 180, 181, 182, 183, 184, 179, 180,
	181, 182, 183, 184
};	};

static const short yycheck[] = { 0,	static const short yycheck[] = { 0,
72, 0, 0, 11, 23, 38, 41, 4, 4, 4,	72, 0, 0, 11, 23, 5, 3, 3, 46, 26,
11, 3, 11, 26, 42, 43, 45, 38, 25, 48,	11, 3, 11, 38, 38, 49, 4, 4, 25, 46,
4, 4, 23, 4, 23, 22, 23, 24, 25, 5,	47, 55, 23, 4, 23, 48, 49, 4, 66, 46,
4, 64, 29, 46, 26, 5, 33, 34, 35, 4,	4, 52, 53, 54, 26, 4, 48, 49, 49, 64,
4, 3, 49, 64, 3, 41, 38, 42, 69, 46,	64, 52, 49, 5, 4, 69, 38, 4, 4, 3,
46, 3, 60, 50, 46, 52, 52, 54, 55, 60,	50, 47, 60, 57, 46, 51, 53, 45, 54, 60,
44, 60, 46, 46, 72, 52, 53, 54, 52, 52,	4, 60, 50, 50, 72, 46, 48, 49, 56, 56,
46, 72, 73, 72, 73, 73, 46, 69, 4, 3,	91, 72, 73, 72, 73, 73, 50, 69, 99, 48,
49, 46, 46, 53, 44, 45, 53, 52, 52, 108,	45, 50, 56, 27, 28, 29, 30, 56, 50, 108,
49, 43, 4, 4, 43, 47, 46, 45, 50, 4,	50, 47, 36, 37, 50, 57, 56, 3, 47, 43,
4, 46, 26, 51, 91, 4, 4, 108, 48, 108,	44, 4, 51, 4, 4, 54, 50, 108, 4, 108,
49, 183, 99, 44, 45, 42, 66, 43, 4, 42,	54, 53, 56, 185, 58, 59, 4, 47, 47, 50,
46, 47, 46, 49, 44, 45, 127, 128, 127, 128,	26, 4, 51, 46, 52, 54, 127, 128, 127, 128,
44, 44, 43, 43, 142, 46, 47, 47, 45, 43,	38, 39, 40, 41, 142, 53, 46, 48, 4, 48,
50, 142, 46, 142, 43, 43, 43, 46, 46, 44,	46, 142, 49, 142, 47, 4, 47, 50, 51, 50,
47, 51, 48, 50, 117, 118, 119, 120, 121, 122,	53, 47, 46, 48, 50, 51, 117, 118, 119, 120,
123, 124, 4, 126, 42, 54, 238, 55, 26, 0,	121, 122, 123, 124, 47, 126, 52, 50, 55, 58,
0, 5, 30, 31, 32, 183, 34, 35, 36, 37,	242, 36, 37, 38, 39, 40, 41, 185, 59, 0,
38, 39, 183, 184, 183, 184, 184, 36, 37, 38,	0, 5, 54, 188, 185, 186, 185, 186, 186, 91,
39, 192, 54, 192, 192, 158, 159, 160, 161, 162,	72, 242, 245, 194, 243, 194, 194, 158, 159, 160,
163, 164, 165, 166, 167, 168, 169, 170, 171, 172,	161, 162, 163, 164, 165, 166, 167, 168, 169, 170,
173, 174, 175, 176, 177, 178, 179, 180, 181, 182,	171, 172, 173, 174, 175, 176, 177, 178, 179, 180,
30, 31, 32, 91, 34, 35, 36, 37, 38, 39,	181, 182, 183, 184, 56, 58, 3, 74, 72, 128,
238, 34, 35, 36, 37, 38, 39, 238, 239, 238,	-1, -1, -1, -1, 242, -1, -1, -1, -1, -1,
239, 239, 9, 10, 11, 12, 13, 14, 15, 16,	-1, 242, 243, 242, 243, 243, 11, 12, 13, 14,
17, 18, 19, 20, 21, 72, 186, 239, 238, 26,	15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
27, 28, 241, 30, 31, 32, 56, 34, 35, 36,	25, 26, 19, 20, -1, -1, 31, 32, 33, 34,
37, 38, 39, 31, 32, 58, 34, 35, 36, 37,	35, 36, 37, 38, 39, 40, 41, 34, 35, 36,
38, 39, 3, 74, 51, 9, 10, 11, 12, 13,	37, 38, 39, 40, 41, -1, -1, -1, -1, -1,
14, 15, 16, 17, 18, 19, 20, 21, 72, 128,	55, 11, 12, 13, 14, 15, 16, 17, 18, 19,
-1, -1, 26, 27, 28, -1, 30, 31, 32, -1,	20, 21, 22, 23, 24, 25, 26, -1, -1, -1,
34, 35, 36, 37, 38, 39, 9, 10, -1, 12,	-1, 31, 32, 33, 34, 35, 36, 37, 38, 39,
13, 14, 15, 16, 17, 18, 19, 20, 21, -1,	40, 41, 11, 12, -1, 14, 15, 16, 17, 18,
-1, -1, -1, 26, 27, 28, -1, 30, 31, 32,	19, 20, 21, 22, 23, 24, 25, 26, -1, -1,
-1, 34, 35, 36, 37, 38, 39, 9, -1, -1,	-1, -1, 31, 32, 33, 34, 35, 36, 37, 38,
12, 13, 14, 15, 16, 17, 18, 19, 20, 21,	39, 40, 41, 11, -1, -1, 14, 15, 16, 17,
-1, -1, -1, -1, 26, 27, 28, -1, 30, 31,	18, 19, 20, 21, 22, 23, 24, 25, 26, -1,
32, -1, 34, 35, 36, 37, 38, 39, 12, 13,	-1, -1, -1, 31, 32, 33, 34, 35, 36, 37,
14, 15, 16, 17, 18, 19, 20, 21, -1, -1,	38, 39, 40, 41, 14, 15, 16, 17, 18, 19,
-1, -1, 26, 27, 28, -1, 30, 31, 32, -1,	20, 21, 22, 23, 24, 25, 26, -1, -1, -1,
34, 35, 36, 37, 38, 39, 14, 15, -1, -1,	-1, 31, 32, 33, 34, 35, 36, 37, 38, 39,
-1, -1, 20, 21, -1, -1, -1, -1, 26, -1,	40, 41, 14, -1, -1, 17, 18, 19, 20, -1,
-1, -1, 30, 31, 32, -1, 34, 35, 36, 37,	-1, -1, -1, 25, 26, 14, -1, -1, -1, 31,
38, 39, 32, -1, 34, 35, 36, 37, 38, 39	19, 20, 34, 35, 36, 37, 38, 39, 40, 41,
	-1, -1, 31, -1, -1, 34, 35, 36, 37, 38,
	39, 40, 41, 14, -1, -1, -1, -1, 19, 20,
	-1, -1, -1, -1, -1, 19, 20, -1, -1, -1,
	-1, 19, 20, 34, 35, 36, 37, 38, 39, 40,
	41, 35, 36, 37, 38, 39, 40, 41, 36, 37,
	38, 39, 40, 41
};	};
#define YYPURE 1	#define YYPURE 1

Line 1011 yyreduce:	Line 1038 yyreduce:
switch (yyn) {	switch (yyn) {

case 1:	case 1:
#line 108 "compile.y"	#line 122 "compile.y"
{	{
Method& method=*NEW Method(POOL,	Method& method=*new Method(Method::CT_ANY,
*main_method_name,
Method::CT_ANY,
0, 0, /min, max numbered_params_count/	0, 0, /min, max numbered_params_count/
0/param_names/, 0/local_names/,	0/param_names/, 0/local_names/,
yyvsp[0]/parser_code/, 0/native_code/);	yyvsp[0]/parser_code/, 0/native_code/);
PC.cclass->add_method(*main_method_name, method);	PC.cclass->add_method(PC.alias_method(main_method_name), method);
;	;
break;}	break;}
case 8:	case 8:
#line 125 "compile.y"	#line 137 "compile.y"
{	{
const String& command=*LA2S(yyvsp[-2]);	const String& command=LA2S(yyvsp[-2]);
YYSTYPE strings_code=yyvsp[0];	YYSTYPE strings_code=yyvsp[0];
if(strings_code->size()<1*2) {	if(strings_code->count()<1*OPERATIONS_PER_OPVALUE) {
strcpy(PC.error, "@");	strcpy(PC.error, "@");
strcat(PC.error, command.cstr());	strcat(PC.error, command.cstr());
strcat(PC.error, " is empty");	strcat(PC.error, " is empty");
YYERROR;	YYERROR;
}	}
if(command==CLASS_NAME) {	if(command==CLASS_NAME) {
if(PC.cclass->base()) { // already changed from default?	if(PC.cclass->base_class()) { // already changed from default?
strcpy(PC.error, "class already have a name '");	strcpy(PC.error, "class already have a name '");
strncat(PC.error, PC.cclass->name().cstr(), 100);	strncat(PC.error, PC.cclass->name().cstr(), 100);
strcat(PC.error, "'");	strcat(PC.error, "'");
YYERROR;	YYERROR;
}	}
if(strings_code->size()==1*2) {	if(strings_code->count()==1*OPERATIONS_PER_OPVALUE) {
// new class' name	// new class' name
const String *name=LA2S(strings_code);	const String& name=LA2S(strings_code);
// creating the class	// creating the class
PC.cclass=NEW VClass(POOL);	VStateless_class* cclass=new VClass;
PC.cclass->set_name(*name);	PC.cclass=cclass;
	PC.cclass->set_name(name);
// append to request's classes	// append to request's classes
PC.request->classes().put(*name, PC.cclass);	PC.request.classes().put(name, cclass);
} else {	} else {
strcpy(PC.error, "@"CLASS_NAME" must contain sole name");	strcpy(PC.error, "@"CLASS_NAME" must contain only one line with class name (contains more then one)");
YYERROR;	YYERROR;
}	}
} else if(command==USE_CONTROL_METHOD_NAME) {	} else if(command==USE_CONTROL_METHOD_NAME) {
for(int i=0; i<strings_code->size(); i+=2)	for(size_t i=0; i<strings_code->count(); i+=OPERATIONS_PER_OPVALUE)
PC.request->use_file(*LA2S(strings_code, i));	PC.request.use_file(PC.request.main_class, LA2S(strings_code, i));
} else if(command==BASE_NAME) {	} else if(command==BASE_NAME) {
if(PC.cclass->base()) { // already changed from default?	if(PC.cclass->base_class()) { // already changed from default?
strcpy(PC.error, "class already have a base '");	strcpy(PC.error, "class already have a base '");
strncat(PC.error, PC.cclass->base()->name().cstr(), 100);	strncat(PC.error, PC.cclass->base_class()->name().cstr(), 100);
strcat(PC.error, "'");	strcat(PC.error, "'");
YYERROR;	YYERROR;
}	}
if(strings_code->size()==1*2) {	if(strings_code->count()==1*OPERATIONS_PER_OPVALUE) {
const String& base_name=*LA2S(strings_code);	const String& base_name=LA2S(strings_code);
VClass base=static_cast<VClass >(	if(Value* base_class_value=PC.request.classes().get(base_name)) {
PC.request->classes().get(base_name));	// @CLASS == @BASE sanity check
if(!base) {	if(VStateless_class *base_class=base_class_value->get_class()) {
	if(PC.cclass==base_class) {
	strcpy(PC.error, "@"CLASS_NAME" equals @"BASE_NAME);
	YYERROR;
	}
	PC.cclass->get_class()->set_base(base_class);
	} else { // they asked to derive from a class without methods ['env' & co]
	strcpy(PC.error, base_name.cstr());
	strcat(PC.error, ": you can not derive from this class in @"BASE_NAME);
	YYERROR;
	}
	} else {
strcpy(PC.error, base_name.cstr());	strcpy(PC.error, base_name.cstr());
strcat(PC.error, ": undefined class in @"BASE_NAME);	strcat(PC.error, ": undefined class in @"BASE_NAME);
YYERROR;	YYERROR;
}	}
// @CLASS == @BASE sanity check
if(PC.cclass==base) {
strcpy(PC.error, "@"CLASS_NAME" equals @"BASE_NAME);
YYERROR;
}
PC.cclass->set_base(*base);
} else {	} else {
strcpy(PC.error, "@"BASE_NAME" must contain sole name");	strcpy(PC.error, "@"BASE_NAME" must contain sole name");
YYERROR;	YYERROR;
Line 1091 case 8:	Line 1122 case 8:
;	;
break;}	break;}
case 12:	case 12:
#line 191 "compile.y"	#line 209 "compile.y"
{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 16:	case 16:
#line 196 "compile.y"	#line 214 "compile.y"
{	{
const String *name=LA2S(yyvsp[-5]);	const String& name=LA2S(yyvsp[-5]);

YYSTYPE params_names_code=yyvsp[-4];	YYSTYPE params_names_code=yyvsp[-4];
Array *params_names=0;	ArrayString* params_names=0;
if(int size=params_names_code->size()) {	if(int size=params_names_code->count()) {
params_names=NEW Array(POOL);	params_names=new ArrayString;
for(int i=0; i<size; i+=2)	for(int i=0; i<size; i+=OPERATIONS_PER_OPVALUE)
*params_names+=LA2S(params_names_code, i);	params_names+=LA2S(params_names_code, i);
}	}

YYSTYPE locals_names_code=yyvsp[-3];	YYSTYPE locals_names_code=yyvsp[-3];
Array *locals_names=0;	ArrayString* locals_names=0;
if(int size=locals_names_code->size()) {	if(int size=locals_names_code->count()) {
locals_names=NEW Array(POOL);	locals_names=new ArrayString;
for(int i=0; i<size; i+=2)	for(int i=0; i<size; i+=OPERATIONS_PER_OPVALUE)
*locals_names+=LA2S(locals_names_code, i);	locals_names+=LA2S(locals_names_code, i);
}	}

Method& method=*NEW Method(POOL,	Method& method=*new Method(
*name,	//name,
Method::CT_ANY,	Method::CT_ANY,
0, 0/min,max numbered_params_count/,	0, 0/min,max numbered_params_count/,
params_names, locals_names,	params_names, locals_names,
yyvsp[0], 0);	yyvsp[0], 0);
PC.cclass->add_method(*name, method);	PC.cclass->add_method(PC.alias_method(name), method);
;	;
break;}	break;}
case 19:	case 19:
#line 225 "compile.y"	#line 243 "compile.y"
{yyval=yyvsp[-1];	{yyval=yyvsp[-1];
break;}	break;}
case 23:	case 23:
#line 227 "compile.y"	#line 245 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 29:	case 29:
#line 235 "compile.y"	#line 253 "compile.y"
{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 35:	case 35:
#line 241 "compile.y"	#line 259 "compile.y"
{	{
yyval=yyvsp[0]; /* stack: resulting value */	yyval=yyvsp[0]; /* stack: resulting value */
O(yyval, OP_WRITE_VALUE); /* value=pop; wcontext.write(value) */	changetail_or_append(*yyval,
	OP_GET_ELEMENT, false, /->/OP_GET_ELEMENT__WRITE,
	/or /OP_WRITE_VALUE
	); /* value=pop; wcontext.write(value) */
;	;
break;}	break;}
case 36:	case 36:
#line 245 "compile.y"	#line 266 "compile.y"
{ yyval=yyvsp[0] ;	{ yyval=yyvsp[0] ;
break;}	break;}
case 39:	case 39:
#line 247 "compile.y"	#line 268 "compile.y"
{ yyval=yyvsp[-1] ;	{ yyval=yyvsp[-1] ;
break;}	break;}
case 42:	case 42:
#line 251 "compile.y"	#line 272 "compile.y"
{	{
yyval=N(POOL);	yyval=N();
Array *diving_code=yyvsp[0];	ArrayOperation* diving_code=yyvsp[0];
const String *first_name=LA2S(diving_code);	const String* first_name=LA2S(*diving_code);
	// self.xxx... -> xxx...
	// OP_VALUE+origin+string+OP_GET_ELEMENT+... -> OP_WITH_SELF+...
if(first_name && *first_name==SELF_ELEMENT_NAME) {	if(first_name && *first_name==SELF_ELEMENT_NAME) {
O(yyval, OP_WITH_SELF); /* stack: starting context */	O(yyval, OP_WITH_SELF); / stack: starting context */
P(yyval, diving_code,	P(yyval, diving_code,
/* skip over... */	/* skip over... */
diving_code->size()>2?3/OP_+string+get_element/:2/OP_+string/);	diving_code->count()>=4?4/OP_VALUE+origin+string+OP_GET_ELEMENTx/:3/OP_+origin+string/);
} else {	} else {
O(yyval, OP_WITH_READ); /* stack: starting context */	O(yyval, OP_WITH_READ); / stack: starting context */
P(yyval, diving_code);
	// ^if ELEMENT -> ^if ELEMENT_OR_OPERATOR
	// OP_VALUE+origin+string+OP_GET_ELEMENT. -> OP_VALUE+origin+string+OP_GET_ELEMENT_OR_OPERATOR.
	if(PC.in_call_value && diving_code->count()==4)
	diving_code->put(4-1, OP_GET_ELEMENT_OR_OPERATOR);
	P(yyval, diving_code);
}	}
/* diving code; stack: current context */	/* diving code; stack: current context */
;	;
break;}	break;}
case 43:	case 43:
#line 266 "compile.y"	#line 294 "compile.y"
{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 45:	case 45:
#line 267 "compile.y"	#line 295 "compile.y"
{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 46:	case 46:
#line 271 "compile.y"	#line 299 "compile.y"
{	{
yyval=yyvsp[-1]; /* stack: context,name */	yyval=yyvsp[-1]; /* stack: context,name */
P(yyval, yyvsp[0]); /* stack: context,name,constructor_value */	P(yyval, yyvsp[0]); /* stack: context,name,constructor_value */
;	;
break;}	break;}
case 50:	case 50:
#line 279 "compile.y"	#line 307 "compile.y"
{	{
yyval=N(POOL);	yyval=N();
Array *diving_code=yyvsp[0];	ArrayOperation* diving_code=yyvsp[0];
const String *first_name=LA2S(diving_code);	const String* first_name=LA2S(*diving_code);
	// $self.xxx... -> $xxx...
	// OP_VALUE+origin+string+OP_GET_ELEMENT+... -> OP_WITH_SELF+...
if(first_name && *first_name==SELF_ELEMENT_NAME) {	if(first_name && *first_name==SELF_ELEMENT_NAME) {
O(yyval, OP_WITH_SELF); /* stack: starting context */	O(yyval, OP_WITH_SELF); / stack: starting context */
P(yyval, diving_code,	P(yyval, diving_code,
/* skip over... */	/* skip over... */
diving_code->size()>2?3/OP_+string+get_element/:2/OP_+string/);	diving_code->count()>=4?4/OP_VALUE+origin+string+OP_GET_ELEMENTx/:3/OP_+origin+string/);
} else {	} else {
O(yyval, OP_WITH_ROOT); /* stack: starting context */	O(yyval, OP_WITH_ROOT); / stack: starting context */
P(yyval, diving_code);	P(yyval, diving_code);
}	}
/* diving code; stack: current context */	/* diving code; stack: current context */
;	;
break;}	break;}
case 51:	case 51:
#line 294 "compile.y"	#line 324 "compile.y"
{	{
yyval=N(POOL);	yyval=N();
O(yyval, OP_WITH_WRITE); /* stack: starting context */	O(yyval, OP_WITH_WRITE); / stack: starting context */
P(yyval, yyvsp[0]); /* diving code; stack: context,name */	P(yyval, yyvsp[0]); /* diving code; stack: context,name */
;	;
break;}	break;}
case 52:	case 52:
#line 299 "compile.y"	#line 329 "compile.y"
{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 56:	case 56:
#line 306 "compile.y"	#line 336 "compile.y"
{	{
// stack: context, name	// stack: context, name
yyval=yyvsp[-1]; // stack: context, name, value	yyval=yyvsp[-1]; // stack: context, name, value
O(yyval, OP_CONSTRUCT_VALUE); /* value=pop; name=pop; context=pop; construct(context,name,value) */	O(yyval, OP_CONSTRUCT_VALUE); / value=pop; name=pop; context=pop; construct(context,name,value) */
;	;
break;}	break;}
case 57:	case 57:
#line 312 "compile.y"	#line 342 "compile.y"
{	{
	yyval=N();
	O(*yyval, OP_PREPARE_TO_EXPRESSION);
// stack: context, name	// stack: context, name
yyval=yyvsp[-1]; // stack: context, name, value	P(yyval, yyvsp[-1]); // stack: context, name, value
O(yyval, OP_CONSTRUCT_EXPR); /* value=pop->as_expr_result; name=pop; context=pop; construct(context,name,value) */	O(yyval, OP_CONSTRUCT_EXPR); / value=pop->as_expr_result; name=pop; context=pop; construct(context,name,value) */
;	;
break;}	break;}
case 58:	case 58:
#line 318 "compile.y"	#line 350 "compile.y"
{	{
// stack: context, name	// stack: context, name
yyval=N(POOL);	yyval=N();
CCA(yyval, yyvsp[-1]); /* code=pop; name=pop; context=pop; construct(context,name,junction(code)) */	OA(yyval, OP_CURLY_CODE__CONSTRUCT, yyvsp[-1]); / code=pop; name=pop; context=pop; construct(context,name,junction(code)) */
;	;
break;}	break;}
case 62:	case 62:
#line 329 "compile.y"	#line 361 "compile.y"
{	{
yyval=N(POOL);	yyval=N();
O(yyval, OP_CREATE_EWPOOL); /* stack: empty write context */	OA(yyval, OP_OBJECT_POOL, yyvsp[0]); / stack: empty write context */
P(yyval, yyvsp[0]); /* some code that writes to that context */	/* some code that writes to that context */
O(yyval, OP_REDUCE_EWPOOL); /* context=pop; stack: context.value() */	/* context=pop; stack: context.value() */
;	;
break;}	break;}
case 65:	case 65:
#line 336 "compile.y"	#line 368 "compile.y"
{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 66:	case 66:
#line 340 "compile.y"	#line 372 "compile.y"
{	{
yyval=yyvsp[0]; /* stack: value */	yyval=yyvsp[0]; /* stack: value */
O(yyval, OP_WRITE_VALUE); /* value=pop; wcontext.write(value) */	changetail_or_append(*yyval,
	OP_CALL, true, /->/ OP_CALL__WRITE,
	/or /OP_WRITE_VALUE); /* value=pop; wcontext.write(value) */
;	;
break;}	break;}
case 67:	case 67:
#line 344 "compile.y"	#line 378 "compile.y"
{	{
PC.object_constructor_allowed=true;	PC.in_call_value=true;
push_OCA(PC, true);
;	;
break;}	break;}
case 68:	case 68:
#line 348 "compile.y"	#line 381 "compile.y"
{	{
PC.object_constructor_allowed=false;	PC.in_call_value=false;
pop_OCA(PC);
;	;
break;}	break;}
case 69:	case 69:
#line 352 "compile.y"	#line 384 "compile.y"
{ /* ^field.$method{vasya} */	{ /* ^field.$method{vasya} */
yyval=yyvsp[-3]; /* with_xxx,diving code; stack: context,method_junction */	yyval=yyvsp[-3]; /* with_xxx,diving code; stack: context,method_junction */
O(yyval, OP_GET_METHOD_FRAME); /* stack: context,method_frame */

YYSTYPE params_code=yyvsp[-1];	YYSTYPE params_code=yyvsp[-1];
if(params_code->size()==3) // probably [] case. [OP_VALUE + Void + STORE_PARAM]	if(params_code->count()==4) { // probably [] case. [OP_VALUE+origin+Void+STORE_PARAM]
if(Value *value=LA2V(params_code)) // it is OP_VALUE + value?	if(Value* value=LA2V(*params_code)) // it is OP_VALUE+origin+value?
if(!value->is_defined()) // value is VVoid?	if(!value->is_defined()) // value is VVoid?
params_code=0; // ^zzz[] case. don't append lone empty param.	params_code=0; // ^zzz[] case. don't append lone empty param.
if(params_code)	}
P(yyval, params_code); // filling method_frame.store_params	/* stack: context, method_junction */
O(yyval, OP_CALL); // method_frame=pop; ncontext=pop; call(ncontext,method_frame) stack: value	OA(*yyval, OP_CALL, params_code); // method_frame=make frame(pop junction); ncontext=pop; call(ncontext,method_frame) stack: value
;	;
break;}	break;}
case 72:	case 72:
#line 368 "compile.y"	#line 399 "compile.y"
{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 76:	case 76:
#line 374 "compile.y"	#line 405 "compile.y"
{yyval=yyvsp[-1];	{yyval=yyvsp[-1];
break;}	break;}
case 77:	case 77:
#line 375 "compile.y"	#line 406 "compile.y"
{yyval=yyvsp[-1];	{yyval=yyvsp[-1];
break;}	break;}
case 78:	case 78:
#line 376 "compile.y"	#line 407 "compile.y"
{yyval=yyvsp[-1];	{yyval=yyvsp[-1];
break;}	break;}
case 80:	case 80:
#line 379 "compile.y"	#line 410 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 82:	case 82:
#line 383 "compile.y"	#line 414 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 84:	case 84:
#line 387 "compile.y"	#line 418 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 85:	case 85:
#line 389 "compile.y"	#line 420 "compile.y"
{	{
yyval=yyvsp[0];	yyval=yyvsp[0];
O(yyval, OP_STORE_PARAM);	O(*yyval, OP_STORE_PARAM);
;	;
break;}	break;}
case 86:	case 86:
#line 393 "compile.y"	#line 424 "compile.y"
{	{
yyval=N(POOL);	yyval=N();
PEA(yyval, yyvsp[0]);	OA(*yyval, OP_EXPR_CODE__STORE_PARAM, yyvsp[0]);
;	;
break;}	break;}
case 87:	case 87:
#line 397 "compile.y"	#line 428 "compile.y"
{	{
yyval=N(POOL);	yyval=N();
PCA(yyval, yyvsp[0]);	OA(*yyval, OP_CURLY_CODE__STORE_PARAM, yyvsp[0]);
;	;
break;}	break;}
case 91:	case 91:
#line 406 "compile.y"	#line 437 "compile.y"
{	{
yyval=yyvsp[0];	yyval=N();
O(yyval, OP_WRITE_EXPR_RESULT);	O(*yyval, OP_PREPARE_TO_EXPRESSION);
	P(yyval, yyvsp[0]);
	O(*yyval, OP_WRITE_EXPR_RESULT);
;	;
break;}	break;}
case 93:	case 93:
#line 413 "compile.y"	#line 446 "compile.y"
{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 95:	case 95:
#line 415 "compile.y"	#line 448 "compile.y"
{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 97:	case 97:
#line 417 "compile.y"	#line 450 "compile.y"
{	{
// we know that name_advance1 not called from ^xxx context	// we know that name_advance1 not called from ^xxx context
// so we'll not check for operator call possibility as we do in name_advance2	// so we'll not check for operator call possibility as we do in name_advance2

/* stack: context */	/* stack: context */
yyval=yyvsp[0]; /* stack: context,name */	yyval=yyvsp[0]; /* stack: context,name */
O(yyval, OP_GET_ELEMENT); /* name=pop; context=pop; stack: context.get_element(name) */	O(yyval, OP_GET_ELEMENT); / name=pop; context=pop; stack: context.get_element(name) */
;	;
break;}	break;}
case 98:	case 98:
#line 425 "compile.y"	#line 458 "compile.y"
{	{
/* stack: context */	/* stack: context */
yyval=yyvsp[0]; /* stack: context,name */	yyval=yyvsp[0]; /* stack: context,name */
O(yyval, PC.operator_call_allowed?OP_GET_ELEMENT_OR_OPERATOR:OP_GET_ELEMENT); /* name=pop; context=pop; stack: context.get_element(name) */	O(yyval, OP_GET_ELEMENT); / name=pop; context=pop; stack: context.get_element(name) */
// only ^FIRST.part.allowed.to.be.an.operator
PC.operator_call_allowed=false;
;	;
break;}	break;}
case 104:	case 104:
#line 440 "compile.y"	#line 471 "compile.y"
{	{
yyval=yyvsp[0];	yyval=yyvsp[0];
O(yyval, OP_GET_ELEMENT);	O(*yyval, OP_GET_ELEMENT);
;	;
break;}	break;}
case 105:	case 105:
#line 444 "compile.y"	#line 475 "compile.y"
{	{
yyval=N(POOL);	ArrayOperation* code;
O(yyval, OP_CREATE_EWPOOL);	{
P(yyval, yyvsp[-1]);	change_string_literal_to_write_string_literal(*(code=yyvsp[-1]));
O(yyval, OP_WRITE_VALUE);	P(code, yyvsp[0]);
P(yyval, yyvsp[0]);	}
O(yyval, OP_REDUCE_EWPOOL);	yyval=N();
	OA(*yyval, OP_STRING_POOL, code);
;	;
break;}	break;}
case 106:	case 106:
#line 452 "compile.y"	#line 484 "compile.y"
{	{
yyval=N(POOL);	yyval=N();
O(yyval, OP_CREATE_EWPOOL);	OA(yyval, OP_OBJECT_POOL, yyvsp[-1]); / stack: empty write context */
P(yyval, yyvsp[-1]);	/* some code that writes to that context */
O(yyval, OP_REDUCE_EWPOOL);	/* context=pop; stack: context.value() */
;	;
break;}	break;}
case 107:	case 107:
#line 458 "compile.y"	#line 490 "compile.y"
{	{
yyval=N(POOL);	yyval=N();
O(yyval, OP_WITH_READ);	O(*yyval, OP_WITH_READ);
P(yyval, yyvsp[0]);	P(yyval, yyvsp[0]);
;	;
break;}	break;}
case 109:	case 109:
#line 463 "compile.y"	#line 495 "compile.y"
{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 110:	case 110:
#line 464 "compile.y"	#line 496 "compile.y"
{	{
yyval=yyvsp[0];	yyval=yyvsp[0];
O(yyval, OP_GET_ELEMENT__WRITE);	O(*yyval, OP_GET_ELEMENT__WRITE);
;	;
break;}	break;}
case 113:	case 113:
#line 473 "compile.y"	#line 505 "compile.y"
{	{
yyval=yyvsp[-1]; // stack: class name string	yyval=yyvsp[-1]; // stack: class name string
O(yyval, OP_GET_CLASS);	if(LA2S(yyval) == BASE_NAME) { // pseudo BASE class
	if(VStateless_class* base=PC.cclass->base_class()) {
	change_string_literal_value(*yyval, base->name());
	} else {
	strcpy(PC.error, "no base class declared");
	YYERROR;
	}
	}
	O(*yyval, OP_GET_CLASS);
;	;
break;}	break;}
case 114:	case 114:
#line 477 "compile.y"	#line 517 "compile.y"
{	{
yyval=yyvsp[-1];	yyval=yyvsp[-1];
if(!PC.object_constructor_allowed) {	if(!PC.in_call_value) {
strcpy(PC.error, ":: not allowed here");	strcpy(PC.error, ":: not allowed here");
YYERROR;	YYERROR;
}	}
O(yyval, OP_PREPARE_TO_CONSTRUCT_OBJECT);	O(*yyval, OP_PREPARE_TO_CONSTRUCT_OBJECT);
;	;
break;}	break;}
case 115:	case 115:
#line 489 "compile.y"	#line 529 "compile.y"
{	{
if((yyval=yyvsp[0])->size()==2) // only one string literal in there?	// see OP_PREPARE_TO_EXPRESSION!!
change_string_literal_to_double_literal(yyval); // make that string literal Double	if((yyval=yyvsp[0])->count()==2) // only one string literal in there?
	change_string_literal_to_double_literal(*yyval); // make that string literal Double
;	;
break;}	break;}
case 119:	case 119:
#line 497 "compile.y"	#line 538 "compile.y"
{ yyval = yyvsp[-1]; ;	{ yyval = yyvsp[-1]; ;
break;}	break;}
case 120:	case 120:
#line 498 "compile.y"	#line 539 "compile.y"
{ yyval = yyvsp[-1]; ;	{ yyval = yyvsp[-1]; ;
break;}	break;}
case 121:	case 121:
#line 499 "compile.y"	#line 540 "compile.y"
{ yyval = yyvsp[-1]; ;	{ yyval = yyvsp[-1]; ;
break;}	break;}
case 122:	case 122:
#line 501 "compile.y"	#line 542 "compile.y"
{ yyval=yyvsp[0]; O(yyval, OP_NEG) ;	{ yyval=yyvsp[0]; O(*yyval, OP_NEG) ;
break;}	break;}
case 123:	case 123:
#line 502 "compile.y"	#line 543 "compile.y"
{ yyval=yyvsp[0] ;	{ yyval=yyvsp[0] ;
break;}	break;}
case 124:	case 124:
#line 503 "compile.y"	#line 544 "compile.y"
{ yyval=yyvsp[0]; O(yyval, OP_INV) ;	{ yyval=yyvsp[0]; O(*yyval, OP_INV) ;
break;}	break;}
case 125:	case 125:
#line 504 "compile.y"	#line 545 "compile.y"
{ yyval=yyvsp[0]; O(yyval, OP_NOT) ;	{ yyval=yyvsp[0]; O(*yyval, OP_NOT) ;
break;}	break;}
case 126:	case 126:
#line 505 "compile.y"	#line 546 "compile.y"
{ yyval=yyvsp[0]; O(yyval, OP_DEF) ;	{ yyval=yyvsp[0]; O(*yyval, OP_DEF) ;
break;}	break;}
case 127:	case 127:
#line 506 "compile.y"	#line 547 "compile.y"
{ yyval=yyvsp[0]; O(yyval, OP_IN) ;	{ yyval=yyvsp[0]; O(*yyval, OP_IN) ;
break;}	break;}
case 128:	case 128:
#line 507 "compile.y"	#line 548 "compile.y"
{ yyval=yyvsp[0]; O(yyval, OP_FEXISTS) ;	{ yyval=yyvsp[0]; O(*yyval, OP_FEXISTS) ;
break;}	break;}
case 129:	case 129:
#line 508 "compile.y"	#line 549 "compile.y"
{ yyval=yyvsp[0]; O(yyval, OP_DEXISTS) ;	{ yyval=yyvsp[0]; O(*yyval, OP_DEXISTS) ;
break;}	break;}
case 130:	case 130:
#line 510 "compile.y"	#line 551 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_SUB) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_SUB) ;
break;}	break;}
case 131:	case 131:
#line 511 "compile.y"	#line 552 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_ADD) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_ADD) ;
break;}	break;}
case 132:	case 132:
#line 512 "compile.y"	#line 553 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_MUL) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_MUL) ;
break;}	break;}
case 133:	case 133:
#line 513 "compile.y"	#line 554 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_DIV) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_DIV) ;
break;}	break;}
case 134:	case 134:
#line 514 "compile.y"	#line 555 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_MOD) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_MOD) ;
break;}	break;}
case 135:	case 135:
#line 515 "compile.y"	#line 556 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_INTDIV) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_INTDIV) ;
break;}	break;}
case 136:	case 136:
#line 516 "compile.y"	#line 557 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_BIN_AND) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_BIN_SL) ;
break;}	break;}
case 137:	case 137:
#line 517 "compile.y"	#line 558 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_BIN_OR) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_BIN_SR) ;
break;}	break;}
case 138:	case 138:
#line 518 "compile.y"	#line 559 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_BIN_XOR) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_BIN_AND) ;
break;}	break;}
case 139:	case 139:
#line 519 "compile.y"	#line 560 "compile.y"
{ yyval=yyvsp[-2]; PNC(yyval, yyvsp[0]); O(yyval, OP_LOG_AND) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_BIN_OR) ;
break;}	break;}
case 140:	case 140:
#line 520 "compile.y"	#line 561 "compile.y"
{ yyval=yyvsp[-2]; PNC(yyval, yyvsp[0]); O(yyval, OP_LOG_OR) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_BIN_XOR) ;
break;}	break;}
case 141:	case 141:
#line 521 "compile.y"	#line 562 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_LOG_XOR) ;	{ yyval=yyvsp[-2]; OA(yyval, OP_NESTED_CODE, yyvsp[0]); O(yyval, OP_LOG_AND) ;
break;}	break;}
case 142:	case 142:
#line 522 "compile.y"	#line 563 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_NUM_LT) ;	{ yyval=yyvsp[-2]; OA(yyval, OP_NESTED_CODE, yyvsp[0]); O(yyval, OP_LOG_OR) ;
break;}	break;}
case 143:	case 143:
#line 523 "compile.y"	#line 564 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_NUM_GT) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_LOG_XOR) ;
break;}	break;}
case 144:	case 144:
#line 524 "compile.y"	#line 565 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_NUM_LE) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_NUM_LT) ;
break;}	break;}
case 145:	case 145:
#line 525 "compile.y"	#line 566 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_NUM_GE) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_NUM_GT) ;
break;}	break;}
case 146:	case 146:
#line 526 "compile.y"	#line 567 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_NUM_EQ) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_NUM_LE) ;
break;}	break;}
case 147:	case 147:
#line 527 "compile.y"	#line 568 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_NUM_NE) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_NUM_GE) ;
break;}	break;}
case 148:	case 148:
#line 528 "compile.y"	#line 569 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_STR_LT) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_NUM_EQ) ;
break;}	break;}
case 149:	case 149:
#line 529 "compile.y"	#line 570 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_STR_GT) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_NUM_NE) ;
break;}	break;}
case 150:	case 150:
#line 530 "compile.y"	#line 571 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_STR_LE) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_STR_LT) ;
break;}	break;}
case 151:	case 151:
#line 531 "compile.y"	#line 572 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_STR_GE) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_STR_GT) ;
break;}	break;}
case 152:	case 152:
#line 532 "compile.y"	#line 573 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_STR_EQ) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_STR_LE) ;
break;}	break;}
case 153:	case 153:
#line 533 "compile.y"	#line 574 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_STR_NE) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_STR_GE) ;
break;}	break;}
case 154:	case 154:
#line 534 "compile.y"	#line 575 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_IS) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_STR_EQ) ;
break;}	break;}
case 155:	case 155:
#line 537 "compile.y"	#line 576 "compile.y"
	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_STR_NE) ;
	break;}
	case 156:
	#line 577 "compile.y"
	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(*yyval, OP_IS) ;
	break;}
	case 157:
	#line 580 "compile.y"
{	{
yyval=N(POOL);	yyval=N();
O(yyval, OP_CREATE_SWPOOL); /* stack: empty write context */	OA(yyval, OP_STRING_POOL, yyvsp[0]); / stack: empty write context */
P(yyval, yyvsp[0]); /* some code that writes to that context */	/* some code that writes to that context */
O(yyval, OP_REDUCE_SWPOOL); /* context=pop; stack: context.get_string() */	/* context=pop; stack: context.get_string() */
;	;
break;}	break;}
case 156:	case 158:
#line 546 "compile.y"	#line 589 "compile.y"
{	{
// optimized from OP_STRING+OP_WRITE_VALUE to OP_STRING__WRITE	// optimized from OP_STRING+OP_WRITE_VALUE to OP_STRING__WRITE
change_string_literal_to_write_string_literal(yyval=yyvsp[0])	change_string_literal_to_write_string_literal(*(yyval=yyvsp[0]))
;	;
break;}	break;}
case 157:	case 159:
#line 551 "compile.y"	#line 594 "compile.y"
{ yyval=VL(NEW VVoid(POOL)) ;	{ yyval=VL(new VVoid(), 0, 0, 0) ;
break;}	break;}
case 158:	case 160:
#line 552 "compile.y"	#line 595 "compile.y"
{ yyval=N(POOL) ;	{ yyval=N() ;
break;}	break;}
}	}
/* the action file gets copied in in place of this dollarsign */	/* the action file gets copied in in place of this dollarsign */
Line 1834 yyerrhandle:	Line 1896 yyerrhandle:
}	}
return 1;	return 1;
}	}
#line 554 "compile.y"	#line 597 "compile.y"

#endif	#endif

Line 1854 yyerrhandle:	Line 1916 yyerrhandle:
4:[^({]=pop	4:[^({]=pop
*/	*/

static int yylex(YYSTYPE lvalp, void pc) {	inline void ungetc(Parse_control& pc, uint last_line_end_col) {
#define lexical_brackets_nestage PC.brackets_nestages[PC.ls_sp]	pc.source--;
	if(pc.pos.col==0) {
	--pc.pos.line; pc.pos.col=last_line_end_col;
	} else
	--pc.pos.col;

	}
	static int yylex(YYSTYPE lvalp, void apc) {
	register Parse_control& pc=static_cast<Parse_control>(apc);

	#define lexical_brackets_nestage pc.brackets_nestages[pc.ls_sp]
#define RC {result=c; goto break2; }	#define RC {result=c; goto break2; }

register int c;	register int c;
int result;	int result;

if(PC.pending_state) {	if(pc.pending_state) {
result=PC.pending_state;	result=pc.pending_state;
PC.pending_state=0;	pc.pending_state=0;
return result;	return result;
}	}

const char *begin=PC.source;	const char *begin=pc.source;
	Pos begin_pos=pc.pos;
const char *end;	const char *end;
int begin_line=PC.line;
int skip_analized=0;	int skip_analized=0;
while(true) {	while(true) {
c=*(end=(PC.source++));	c=*(end=(pc.source++));
// fprintf(stderr, "\nchar: %c %02X; nestage: %d, sp=%d", c, c, lexical_brackets_nestage, PC.sp);	// fprintf(stderr, "\nchar: %c %02X; nestage: %d, sp=%d", c, c, lexical_brackets_nestage, pc.sp);

if(c=='\n') {	if(c=='\n') {
PC.line++;	pc.pos_next_line();
PC.col=0;
} else	} else
PC.col++;	pc.pos_next_c(c);

if(c=='@' && PC.col==0+1) {	if(c=='@' && pc.pos.col==0+1) {
if(PC.ls==LS_DEF_SPECIAL_BODY) {	if(pc.ls==LS_DEF_SPECIAL_BODY) {
// @SPECIAL	// @SPECIAL
// ...	// ...
// @<here =	// @<here =
pop_LS(PC); // exiting from LS_DEF_SPECIAL_BODY state	pop_LS(pc); // exiting from LS_DEF_SPECIAL_BODY state
} // continuing checks	} // continuing checks
if(PC.ls==LS_USER) {	if(pc.ls==LS_USER) {
push_LS(PC, LS_DEF_NAME);	push_LS(pc, LS_DEF_NAME);
RC;	RC;
} else // @ in first column inside some code [when could that be?]	} else // @ in first column inside some code [when could that be?]
result=BAD_METHOD_DECL_START;	result=BAD_METHOD_DECL_START;
goto break2;	goto break2;
} else if(c=='^')	} else if(c=='^') {
switch(PC.ls) {	if(pc.ls==LS_METHOD_AFTER) {
	// handle after-method situation
	pop_LS(pc);
	result=EON;
	skip_analized=-1; // return to punctuation afterwards to assure it's literality
	goto break2;
	}
	switch(pc.ls) {
case LS_EXPRESSION_VAR_NAME_WITH_COLON:	case LS_EXPRESSION_VAR_NAME_WITH_COLON:
case LS_EXPRESSION_VAR_NAME_WITHOUT_COLON:	case LS_EXPRESSION_VAR_NAME_WITHOUT_COLON:
case LS_VAR_NAME_SIMPLE_WITH_COLON:	case LS_VAR_NAME_SIMPLE_WITH_COLON:
case LS_VAR_NAME_SIMPLE_WITHOUT_COLON:	case LS_VAR_NAME_SIMPLE_WITHOUT_COLON:
case LS_VAR_NAME_CURLY:	case LS_VAR_NAME_CURLY:
case LS_METHOD_NAME:	case LS_METHOD_NAME:
case LS_COMMENT:	case LS_USER_COMMENT:
case LS_DEF_COMMENT:	case LS_DEF_COMMENT:
// no literals in names, please	// no literals in names, please
break;	break;
default:	default:
switch(*PC.source) {	switch(*pc.source) {
// ^escaping some punctuators	// ^escaping some punctuators
case '^': case '$': case ';':	case '^': case '$': case ';':
case '(': case ')':	case '(': case ')':
Line 1915 default:	Line 1993 default:
case '{': case '}':	case '{': case '}':
case '"': case ':':	case '"': case ':':
if(end!=begin) {	if(end!=begin) {
	if(!pc.string_start)
	pc.string_start=begin_pos;
// append piece till ^	// append piece till ^
PC.string->APPEND_CLEAN(begin, end-begin, PC.file, begin_line);	pc.string.append_strdup_know_length(begin, end-begin);
}	}
// reset piece 'begin' position & line	// reset piece 'begin' position & line
end=begin=PC.source; // ^	begin=pc.source; // ->punctuation
begin_line=PC.line;	begin_pos=pc.pos;
if(PC.ls==LS_METHOD_AFTER) {	// skip over _ after ^
pop_LS(PC);	pc.source++; pc.pos.col++;
result=EON;	// skip analysis = forced literal
skip_analized=-1; // return to ^ afterwards to assure it's literality	continue;
goto break2;
} else {
// skip over _ after ^
PC.source++; PC.col++;
// skip analysis = forced literal
continue;
}

// converting ^#HH into char(hex(HH))	// converting ^#HH into char(hex(HH))
case '#':	case '#':
if(end!=begin) {	if(end!=begin) {
	if(!pc.string_start)
	pc.string_start=begin_pos;
// append piece till ^	// append piece till ^
PC.string->APPEND_CLEAN(begin, end-begin, PC.file, begin_line);	pc.string.append_strdup_know_length(begin, end-begin);
}	}
// #HH ?	// #HH ?
if(PC.source[0]=='#' && PC.source[1] && PC.source[2]) {	if(pc.source[0]=='#' && pc.source[1] && pc.source[2]) {
char hex=(char )POOL.malloc(1);	char c=
hex[0]=	hex_value[(unsigned char)pc.source[1]]*0x10+
hex_value[(unsigned char)PC.source[1]]*0x10+	hex_value[(unsigned char)pc.source[2]];
hex_value[(unsigned char)PC.source[2]];	if(c==0) {
if(hex[0]==0) {
result=BAD_HEX_LITERAL;	result=BAD_HEX_LITERAL;
goto break2; // wrong hex value[no ^#00 chars allowed]: bail out	goto break2; // wrong hex value[no ^#00 chars allowed]: bail out
}	}
// append char(hex(HH))	// append char(hex(HH))
PC.string->APPEND_CLEAN(hex, 1, PC.file, begin_line);	pc.string.append(c);
// skip over ^#HH	// skip over ^#HH
PC.source+=3;	pc.source+=3;
PC.col+=3;	pc.pos.col+=3;
// reset piece 'begin' position & line	// reset piece 'begin' position & line
begin=PC.source; // ^	begin=pc.source; // ->after ^#HH
begin_line=PC.line;	begin_pos=pc.pos;
	// skip analysis = forced literal
continue;	continue;
}	}
break;	break;
}	}
break;	break;
	}
}	}
// #comment start skipping	// #comment start skipping
if(c=='#' && PC.col==1) {	if(c=='#' && pc.pos.col==1) {
if(end!=begin) {	if(end!=begin) {
	if(!pc.string_start)
	pc.string_start=begin_pos;
// append piece till #	// append piece till #
PC.string->APPEND_CLEAN(begin, end-begin, PC.file, begin_line);	pc.string.append_strdup_know_length(begin, end-begin);
}	}
// fall into COMMENT lexical state [wait for \n]	// fall into COMMENT lexical state [wait for \n]
push_LS(PC, LS_COMMENT);	push_LS(pc, LS_USER_COMMENT);
continue;	continue;
}	}
switch(PC.ls) {	switch(pc.ls) {

// USER'S = NOT OURS	// USER'S = NOT OURS
case LS_USER:	case LS_USER:
case LS_NAME_SQUARE_PART: // name.[here].xxx	case LS_NAME_SQUARE_PART: // name.[here].xxx
if(PC.trim_bof)	if(pc.trim_bof)
switch(c) {	switch(c) {
case '\n': case ' ': case '\t':	case '\n': case ' ': case '\t':
begin=PC.source;	begin=pc.source;
begin_line=PC.line;	begin_pos=pc.pos;
continue; // skip it	continue; // skip it
default:	default:
PC.trim_bof=false;	pc.trim_bof=false;
}	}
switch(c) {	switch(c) {
case '$':	case '$':
push_LS(PC, LS_VAR_NAME_SIMPLE_WITH_COLON);	push_LS(pc, LS_VAR_NAME_SIMPLE_WITH_COLON);
RC;	RC;
case '^':	case '^':
push_LS(PC, LS_METHOD_NAME);	push_LS(pc, LS_METHOD_NAME);
RC;	RC;
case ']':	case ']':
if(PC.ls==LS_NAME_SQUARE_PART)	if(pc.ls==LS_NAME_SQUARE_PART)
if(--lexical_brackets_nestage==0) {// $name.[co<]?>de<]?>	if(--lexical_brackets_nestage==0) {// $name.[co<]?>de<]?>
pop_LS(PC); // $name.[co<]>de<]!>	pop_LS(pc); // $name.[co<]>de<]!>
RC;	RC;
}	}
break;	break;
case '[': // $name.[co<[>de]	case '[': // $name.[co<[>de]
if(PC.ls==LS_NAME_SQUARE_PART)	if(pc.ls==LS_NAME_SQUARE_PART)
lexical_brackets_nestage++;	lexical_brackets_nestage++;
break;	break;
}	}
break;	break;

// #COMMENT	// #COMMENT
case LS_COMMENT:	case LS_USER_COMMENT:
if(c=='\n') {	if(c=='\n') {
// skip comment	// skip comment
begin=PC.source;	begin=pc.source;
begin_line=PC.line;	begin_pos=pc.pos;

pop_LS(PC);	pop_LS(pc);
continue;	continue;
}	}
break;	break;
Line 2027 default:	Line 2105 default:
case '"':	case '"':
case '\'':	case '\'':
if(	if(
PC.ls == LS_EXPRESSION_STRING_QUOTED && c=='"' \|\|	pc.ls == LS_EXPRESSION_STRING_QUOTED && c=='"' \|\|
PC.ls == LS_EXPRESSION_STRING_APOSTROFED && c=='\'') {	pc.ls == LS_EXPRESSION_STRING_APOSTROFED && c=='\'') {
pop_LS(PC); //"abc". \| 'abc'.	pop_LS(pc); //"abc". \| 'abc'.
RC;	RC;
}	}
break;	break;
case '$':	case '$':
push_LS(PC, LS_VAR_NAME_SIMPLE_WITH_COLON);	push_LS(pc, LS_VAR_NAME_SIMPLE_WITH_COLON);
RC;	RC;
case '^':	case '^':
push_LS(PC, LS_METHOD_NAME);	push_LS(pc, LS_METHOD_NAME);
RC;	RC;
}	}
break;	break;
Line 2046 default:	Line 2124 default:
case LS_DEF_NAME:	case LS_DEF_NAME:
switch(c) {	switch(c) {
case '[':	case '[':
PC.ls=LS_DEF_PARAMS;	pc.ls=LS_DEF_PARAMS;
RC;	RC;
case '\n':	case '\n':
PC.ls=LS_DEF_SPECIAL_BODY;	pc.ls=LS_DEF_SPECIAL_BODY;
RC;	RC;
}	}
break;	break;

case LS_DEF_PARAMS:	case LS_DEF_PARAMS:
switch(c) {	switch(c) {
	case '$': // common error
	result=BAD_METHOD_PARAMETER_NAME_CHARACTER;
	goto break2;
case ';':	case ';':
RC;	RC;
case ']':	case ']':
PC.ls=*PC.source=='['?LS_DEF_LOCALS:LS_DEF_COMMENT;	pc.ls=*pc.source=='['?LS_DEF_LOCALS:LS_DEF_COMMENT;
RC;	RC;
case '\n': // wrong. bailing out	case '\n': // wrong. bailing out
pop_LS(PC);	pop_LS(pc);
RC;	RC;
}	}
break;	break;
Line 2073 default:	Line 2154 default:
case ';':	case ';':
RC;	RC;
case ']':	case ']':
PC.ls=LS_DEF_COMMENT;	pc.ls=LS_DEF_COMMENT;
RC;	RC;
case '\n': // wrong. bailing out	case '\n': // wrong. bailing out
pop_LS(PC);	pop_LS(pc);
RC;	RC;
}	}
break;	break;

case LS_DEF_COMMENT:	case LS_DEF_COMMENT:
if(c=='\n') {	if(c=='\n') {
pop_LS(PC);	pop_LS(pc);
RC;	RC;
}	}
break;	break;
Line 2099 default:	Line 2180 default:
switch(c) {	switch(c) {
case ')':	case ')':
if(--lexical_brackets_nestage==0)	if(--lexical_brackets_nestage==0)
if(PC.ls==LS_METHOD_ROUND) // method round param ended	if(pc.ls==LS_METHOD_ROUND) // method round param ended
PC.ls=LS_METHOD_AFTER; // look for method end	pc.ls=LS_METHOD_AFTER; // look for method end
else // PC.ls==LS_VAR_ROUND // variable constructor ended	else // pc.ls==LS_VAR_ROUND // variable constructor ended
pop_LS(PC); // return to normal life	pop_LS(pc); // return to normal life
RC;	RC;
	case '#': // comment start skipping
	if(end!=begin) {
	if(!pc.string_start)
	pc.string_start=begin_pos;
	// append piece till #
	pc.string.append_strdup_know_length(begin, end-begin);
	}
	// fall into COMMENT lexical state [wait for \n]
	push_LS(pc, LS_EXPRESSION_COMMENT);
	lexical_brackets_nestage=1;
	continue;
case '$':	case '$':
push_LS(PC, LS_EXPRESSION_VAR_NAME_WITH_COLON);	push_LS(pc, LS_EXPRESSION_VAR_NAME_WITH_COLON);
RC;	RC;
case '^':	case '^':
push_LS(PC, LS_METHOD_NAME);	push_LS(pc, LS_METHOD_NAME);
RC;	RC;
case '(':	case '(':
lexical_brackets_nestage++;	lexical_brackets_nestage++;
RC;	RC;
case '-':	case '-':
switch(*PC.source) {	switch(*pc.source) {
case 'f': // -f	case 'f': // -f
skip_analized=1;	skip_analized=1;
result=FEXISTS;	result=FEXISTS;
Line 2123 default:	Line 2215 default:
skip_analized=1;	skip_analized=1;
result=DEXISTS;	result=DEXISTS;
goto break2;	goto break2;
default:	default: // minus
result=c;	result=c;
goto break2;	goto break2;
}	}
Line 2132 default:	Line 2224 default:
case '~':	case '~':
case ';':	case ';':
RC;	RC;
case '&': case '\|': case '#':	case '&': case '\|':
if(*PC.source==c) { // && \|\|	if(*pc.source==c) { // && \|\|
result=c=='#'?LXOR:c=='&'?LAND:LOR;	result=c=='&'?LAND:LOR;
skip_analized=1;	skip_analized=1;
} else	} else
result=c;	result=c;
goto break2;	goto break2;
case '<': case '>': case '=': case '!':	case '!':
if(*PC.source=='=') { // <= >= == !=	switch(pc.source[0]) {
	case '\|': // !\| !\|\|
skip_analized=1;	skip_analized=1;
switch(c) {	if(pc.source[1]=='\|') {
case '<': result=NLE; break;	skip_analized++;
case '>': result=NGE; break;	result=LXOR;
case '=': result=NEQ; break;	} else
case '!': result=NNE; break;	result=NXOR;
}	goto break2;
} else	case '=': // !=
result=c;	skip_analized=1;
	result=NNE;
	goto break2;
	}
	RC;

	case '<': // <<, <=, <
	switch(*pc.source) {
	case '<': // <[<]
	skip_analized=1; result=NSL; break;
	case '=': // <[=]
	skip_analized=1; result=NLE; break;
	default: // <[]
	result=c; break;
	}
goto break2;	goto break2;
	case '>': // >>, >=, >
	switch(*pc.source) {
	case '>': // >[>]
	skip_analized=1; result=NSR; break;
	case '=': // >[=]
	skip_analized=1; result=NGE; break;
	default: // >[]
	result=c; break;
	}
	goto break2;
	case '=': // ==
	switch(*pc.source) {
	case '=': // =[=]
	skip_analized=1; result=NEQ; break;
	default: // =[]
	result=c; break; // not used now
	}
	goto break2;

case '"':	case '"':
push_LS(PC, LS_EXPRESSION_STRING_QUOTED);	push_LS(pc, LS_EXPRESSION_STRING_QUOTED);
RC;	RC;
case '\'':	case '\'':
push_LS(PC, LS_EXPRESSION_STRING_APOSTROFED);	push_LS(pc, LS_EXPRESSION_STRING_APOSTROFED);
RC;	RC;
case 'l': case 'g': case 'e': case 'n':	case 'l': case 'g': case 'e': case 'n':
if(end==begin) // right after whitespace	if(end==begin) // right after whitespace
if(isspace(PC.source[1])) {	if(isspace(pc.source[1])) {
switch(*PC.source) {	switch(*pc.source) {
// case '?': // ok [and bad cases, yacc would bark at them]	// case '?': // ok [and bad cases, yacc would bark at them]
case 't': // lt gt [et nt]	case 't': // lt gt [et nt]
result=c=='l'?SLT:c=='g'?SGT:BAD_STRING_COMPARISON_OPERATOR;	result=c=='l'?SLT:c=='g'?SGT:BAD_STRING_COMPARISON_OPERATOR;
Line 2179 default:	Line 2305 default:
break;	break;
case 'i':	case 'i':
if(end==begin) // right after whitespace	if(end==begin) // right after whitespace
if(isspace(PC.source[1])) {	if(isspace(pc.source[1])) {
switch(PC.source[0]) {	switch(pc.source[0]) {
case 'n': // in	case 'n': // in
skip_analized=1;	skip_analized=1;
result=IN;	result=IN;
Line 2194 default:	Line 2320 default:
break;	break;
case 'd':	case 'd':
if(end==begin) // right after whitespace	if(end==begin) // right after whitespace
if(PC.source[0]=='e' && PC.source[1]=='f') { // def	if(pc.source[0]=='e' && pc.source[1]=='f') { // def
skip_analized=2;	skip_analized=2;
result=DEF;	result=DEF;
goto break2;	goto break2;
Line 2208 default:	Line 2334 default:
// that's a leading\|traling space or after-operator-space	// that's a leading\|traling space or after-operator-space
// ignoring it	// ignoring it
// reset piece 'begin' position & line	// reset piece 'begin' position & line
begin=PC.source; // after whitespace char	begin=pc.source; // after whitespace char
begin_line=PC.line;	begin_pos=pc.pos;
	continue;
	}
	break;
	case LS_EXPRESSION_COMMENT:
	if(c=='(')
	lexical_brackets_nestage++;

	switch(*pc.source) {
	case '\n': case ')':
	if(*pc.source==')')
	if(--lexical_brackets_nestage!=0)
	continue;

	// skip comment
	begin=pc.source;
	begin_pos=pc.pos;

	pop_LS(pc);
continue;	continue;
}	}
break;	break;
Line 2220 default:	Line 2364 default:
case LS_EXPRESSION_VAR_NAME_WITH_COLON:	case LS_EXPRESSION_VAR_NAME_WITH_COLON:
case LS_EXPRESSION_VAR_NAME_WITHOUT_COLON:	case LS_EXPRESSION_VAR_NAME_WITHOUT_COLON:
if(	if(
PC.ls==LS_EXPRESSION_VAR_NAME_WITH_COLON \|\|	pc.ls==LS_EXPRESSION_VAR_NAME_WITH_COLON \|\|
PC.ls==LS_EXPRESSION_VAR_NAME_WITHOUT_COLON) {	pc.ls==LS_EXPRESSION_VAR_NAME_WITHOUT_COLON) {
// name in expr ends also before binary operators	// name in expr ends also before
switch(c) {	switch(c) {
	// expression minus
case '-':	case '-':
pop_LS(PC);	// expression integer division
PC.source--; if(--PC.col<0) { PC.line--; PC.col=-1; }	case '\\':
	pop_LS(pc);
	pc.ungetc();
result=EON;	result=EON;
goto break2;	goto break2;
}	}
}	}
if(	if(
PC.ls==LS_VAR_NAME_SIMPLE_WITHOUT_COLON \|\|	pc.ls==LS_VAR_NAME_SIMPLE_WITHOUT_COLON \|\|
PC.ls==LS_EXPRESSION_VAR_NAME_WITHOUT_COLON) {	pc.ls==LS_EXPRESSION_VAR_NAME_WITHOUT_COLON) {
// name already has ':', stop before next	// name already has ':', stop before next
switch(c) {	switch(c) {
case ':':	case ':':
pop_LS(PC);	pop_LS(pc);
PC.source--; if(--PC.col<0) { PC.line--; PC.col=-1; }	pc.ungetc();
result=EON;	result=EON;
goto break2;	goto break2;
}	}
Line 2254 default:	Line 2401 default:
case '&': case '\|':	case '&': case '\|':
case '=': case '!':	case '=': case '!':
// common delimiters	// common delimiters
case ',': case '?':	case ',': case '?': case '#':
// before call	// before call
case '^':	case '^':
pop_LS(PC);	pop_LS(pc);
PC.source--; if(--PC.col<0) { PC.line--; PC.col=-1; }	pc.ungetc();
result=EON;	result=EON;
goto break2;	goto break2;
case '[':	case '[':
// $name.<[>code]	// $name.<[>code]
if(PC.col>1/not first column/ && (	if(pc.pos.col>1/not first column/ && (
end[-1]=='$'/was start of get/ \|\|	end[-1]=='$'/was start of get/ \|\|
end[-1]==':'/was class name delim / \|\|	end[-1]==':'/was class name delim / \|\|
end[-1]=='.'/was name delim /	end[-1]=='.'/was name delim /
)) {	)) {
push_LS(PC, LS_NAME_SQUARE_PART);	push_LS(pc, LS_NAME_SQUARE_PART);
lexical_brackets_nestage=1;	lexical_brackets_nestage=1;
RC;	RC;
}	}
PC.ls=LS_VAR_SQUARE;	pc.ls=LS_VAR_SQUARE;
lexical_brackets_nestage=1;	lexical_brackets_nestage=1;
RC;	RC;
case '{':	case '{':
if(begin==end) { // ${name}, no need of EON, switching LS	if(begin==end) { // ${name}, no need of EON, switching LS
PC.ls=LS_VAR_NAME_CURLY;	pc.ls=LS_VAR_NAME_CURLY;
} else {	} else {
PC.ls=LS_VAR_CURLY;	pc.ls=LS_VAR_CURLY;
lexical_brackets_nestage=1;	lexical_brackets_nestage=1;
}	}

RC;	RC;
case '(':	case '(':
PC.ls=LS_VAR_ROUND;	pc.ls=LS_VAR_ROUND;
lexical_brackets_nestage=1;	lexical_brackets_nestage=1;
RC;	RC;
case '.': // name part delim	case '.': // name part delim
case '$': // name part subvar	case '$': // name part subvar
case ':': // class<:>name	case ':': // class<:>name
// go to _WITHOUT_COLON state variant...	// go to _WITHOUT_COLON state variant...
if(PC.ls==LS_VAR_NAME_SIMPLE_WITH_COLON)	if(pc.ls==LS_VAR_NAME_SIMPLE_WITH_COLON)
PC.ls=LS_VAR_NAME_SIMPLE_WITHOUT_COLON;	pc.ls=LS_VAR_NAME_SIMPLE_WITHOUT_COLON;
else if(PC.ls==LS_EXPRESSION_VAR_NAME_WITH_COLON)	else if(pc.ls==LS_EXPRESSION_VAR_NAME_WITH_COLON)
PC.ls=LS_EXPRESSION_VAR_NAME_WITHOUT_COLON;	pc.ls=LS_EXPRESSION_VAR_NAME_WITHOUT_COLON;
// ...stop before next ':'	// ...stop before next ':'
RC;	RC;
}	}
Line 2305 default:	Line 2452 default:
switch(c) {	switch(c) {
case '[':	case '[':
// ${name.<[>code]}	// ${name.<[>code]}
push_LS(PC, LS_NAME_SQUARE_PART);	push_LS(pc, LS_NAME_SQUARE_PART);
lexical_brackets_nestage=1;	lexical_brackets_nestage=1;
RC;	RC;
case '}': // ${name} finished, restoring LS	case '}': // ${name} finished, restoring LS
pop_LS(PC);	pop_LS(pc);
RC;	RC;
case '.': // name part delim	case '.': // name part delim
case '$': // name part subvar	case '$': // name part subvar
Line 2321 default:	Line 2468 default:
case LS_VAR_SQUARE:	case LS_VAR_SQUARE:
switch(c) {	switch(c) {
case '$':	case '$':
push_LS(PC, LS_VAR_NAME_SIMPLE_WITH_COLON);	push_LS(pc, LS_VAR_NAME_SIMPLE_WITH_COLON);
RC;	RC;
case '^':	case '^':
push_LS(PC, LS_METHOD_NAME);	push_LS(pc, LS_METHOD_NAME);
RC;	RC;
case ']':	case ']':
if(--lexical_brackets_nestage==0) {	if(--lexical_brackets_nestage==0) {
pop_LS(PC);	pop_LS(pc);
RC;	RC;
}	}
break;	break;
Line 2343 default:	Line 2490 default:
case LS_VAR_CURLY:	case LS_VAR_CURLY:
switch(c) {	switch(c) {
case '$':	case '$':
push_LS(PC, LS_VAR_NAME_SIMPLE_WITH_COLON);	push_LS(pc, LS_VAR_NAME_SIMPLE_WITH_COLON);
RC;	RC;
case '^':	case '^':
push_LS(PC, LS_METHOD_NAME);	push_LS(pc, LS_METHOD_NAME);
RC;	RC;
case '}':	case '}':
if(--lexical_brackets_nestage==0) {	if(--lexical_brackets_nestage==0) {
pop_LS(PC);	pop_LS(pc);
RC;	RC;
}	}
break;	break;
Line 2365 default:	Line 2512 default:
switch(c) {	switch(c) {
case '[':	case '[':
// ^name.<[>code].xxx	// ^name.<[>code].xxx
if(PC.col>1/not first column/ && (	if(pc.pos.col>1/not first column/ && (
end[-1]=='^'/was start of call/ \|\| // never, ^[ is literal...	end[-1]=='^'/was start of call/ \|\| // never, ^[ is literal...
end[-1]==':'/was class name delim / \|\|	end[-1]==':'/was class name delim / \|\|
end[-1]=='.'/was name delim /	end[-1]=='.'/was name delim /
)) {	)) {
push_LS(PC, LS_NAME_SQUARE_PART);	push_LS(pc, LS_NAME_SQUARE_PART);
lexical_brackets_nestage=1;	lexical_brackets_nestage=1;
RC;	RC;
}	}
PC.ls=LS_METHOD_SQUARE;	pc.ls=LS_METHOD_SQUARE;
lexical_brackets_nestage=1;	lexical_brackets_nestage=1;
RC;	RC;
case '{':	case '{':
PC.ls=LS_METHOD_CURLY;	pc.ls=LS_METHOD_CURLY;
lexical_brackets_nestage=1;	lexical_brackets_nestage=1;
RC;	RC;
case '(':	case '(':
PC.ls=LS_METHOD_ROUND;	pc.ls=LS_METHOD_ROUND;
lexical_brackets_nestage=1;	lexical_brackets_nestage=1;
RC;	RC;
case '.': // name part delim	case '.': // name part delim
Line 2397 default:	Line 2544 default:
case LS_METHOD_SQUARE:	case LS_METHOD_SQUARE:
switch(c) {	switch(c) {
case '$':	case '$':
push_LS(PC, LS_VAR_NAME_SIMPLE_WITH_COLON);	push_LS(pc, LS_VAR_NAME_SIMPLE_WITH_COLON);
RC;	RC;
case '^':	case '^':
push_LS(PC, LS_METHOD_NAME);	push_LS(pc, LS_METHOD_NAME);
RC;	RC;
case ';': // param delim	case ';': // param delim
RC;	RC;
case ']':	case ']':
if(--lexical_brackets_nestage==0) {	if(--lexical_brackets_nestage==0) {
PC.ls=LS_METHOD_AFTER;	pc.ls=LS_METHOD_AFTER;
RC;	RC;
}	}
break;	break;
Line 2419 default:	Line 2566 default:
case LS_METHOD_CURLY:	case LS_METHOD_CURLY:
switch(c) {	switch(c) {
case '$':	case '$':
push_LS(PC, LS_VAR_NAME_SIMPLE_WITH_COLON);	push_LS(pc, LS_VAR_NAME_SIMPLE_WITH_COLON);
RC;	RC;
case '^':	case '^':
push_LS(PC, LS_METHOD_NAME);	push_LS(pc, LS_METHOD_NAME);
RC;	RC;
case ';': // param delim	case ';': // param delim
RC;	RC;
case '}':	case '}':
if(--lexical_brackets_nestage==0) {	if(--lexical_brackets_nestage==0) {
PC.ls=LS_METHOD_AFTER;	pc.ls=LS_METHOD_AFTER;
RC;	RC;
}	}
break;	break;
Line 2440 default:	Line 2587 default:

case LS_METHOD_AFTER:	case LS_METHOD_AFTER:
if(c=='[') {/* ][ }[ )[ */	if(c=='[') {/* ][ }[ )[ */
PC.ls=LS_METHOD_SQUARE;	pc.ls=LS_METHOD_SQUARE;
lexical_brackets_nestage=1;	lexical_brackets_nestage=1;
RC;	RC;
}	}
if(c=='{') {/* ]{ }{ ){ */	if(c=='{') {/* ]{ }{ ){ */
PC.ls=LS_METHOD_CURLY;	pc.ls=LS_METHOD_CURLY;
lexical_brackets_nestage=1;	lexical_brackets_nestage=1;
RC;	RC;
}	}
if(c=='(') {/* ]( }( )( */	if(c=='(') {/* ]( }( )( */
PC.ls=LS_METHOD_ROUND;	pc.ls=LS_METHOD_ROUND;
lexical_brackets_nestage=1;	lexical_brackets_nestage=1;
RC;	RC;
}	}
pop_LS(PC);	pop_LS(pc);
PC.source--; if(--PC.col<0) { PC.line--; PC.col=-1; }	pc.ungetc();
result=EON;	result=EON;
goto break2;	goto break2;
}	}
Line 2473 break2:	Line 2620 break2:
if(end!=begin && end[-1]=='\n') // allow one empty line before LS_DEF_NAME	if(end!=begin && end[-1]=='\n') // allow one empty line before LS_DEF_NAME
end--;	end--;
}	}
if(end!=begin && PC.ls!=LS_COMMENT) { // last piece still alive and not comment?	if(end!=begin && pc.ls!=LS_USER_COMMENT) { // last piece still alive and not comment?
	if(!pc.string_start)
	pc.string_start=begin_pos;
// append it	// append it
PC.string->APPEND_CLEAN(begin, end-begin, PC.file, begin_line/, start_col/);	pc.string.append_strdup_know_length(begin, end-begin);
}	}
}	}
if(PC.string->size()) { // something accumulated?	if(!pc.string.is_empty()) { // something accumulated?
// create STRING value: array of OP_VALUE+vstring	// create STRING value: array of OP_VALUE+origin+vstring
lvalp=VL(NEW VString(PC.string));	*lvalp=VL(
	new VString(*new String(pc.string, String::L_CLEAN)),
	pc.file_no, pc.string_start.line, pc.string_start.col);
// new pieces storage	// new pieces storage
PC.string=NEW String(POOL);	pc.string.clear();
	pc.string_start.clear();
// make current result be pending for next call, return STRING for now	// make current result be pending for next call, return STRING for now
PC.pending_state=result; result=STRING;	pc.pending_state=result; result=STRING;
}	}
if(skip_analized) {	if(skip_analized) {
PC.source+=skip_analized; PC.col+=skip_analized;	pc.source+=skip_analized; pc.pos.col+=skip_analized;
}	}
return result;	return result;
}	}

static int real_yyerror(parse_control pc, char s) { // Called by yyparse on error	static int real_yyerror(Parse_control pc, char s) { // Called by yyparse on error
strncpy(PC.error, s, MAX_STRING);	strncpy(PC.error, s, MAX_STRING);
return 1;	return 1;
}	}

static void yyprint(FILE *file, int type, YYSTYPE value) {	static void yyprint(FILE *file, int type, YYSTYPE value) {
if(type==STRING)	if(type==STRING)
fprintf(file, " \"%s\"", LA2S(value)->cstr());	fprintf(file, " \"%s\"", LA2S(*value)->cstr());
}	}

E-mail:

Removed from v.1.34
changed lines
	Added in v.1.86