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.27.6.3 and 1.50

version 1.27.6.3, 2002/01/25 09:32:19	version 1.50, 2002/04/16 08:59:26
Line 207 static const short yyrline[] = { 0,	Line 207 static const short yyrline[] = { 0,
107, 117, 119, 119, 120, 122, 122, 124, 190, 190,	107, 117, 119, 119, 120, 122, 122, 124, 190, 190,
191, 191, 192, 193, 193, 195, 224, 224, 225, 226,	191, 191, 192, 193, 193, 195, 224, 224, 225, 226,
226, 227, 227, 229, 229, 233, 233, 235, 235, 236,	226, 227, 227, 229, 229, 233, 233, 235, 235, 236,
236, 237, 237, 237, 241, 245, 246, 246, 247, 248,	236, 237, 237, 237, 241, 248, 249, 249, 250, 251,
250, 251, 266, 267, 267, 271, 275, 277, 278, 279,	253, 254, 276, 277, 277, 281, 285, 287, 288, 289,
294, 299, 301, 303, 304, 306, 312, 318, 324, 326,	306, 311, 313, 315, 316, 318, 324, 332, 338, 340,
327, 329, 335, 336, 336, 340, 344, 345, 346, 360,	341, 343, 349, 350, 350, 354, 361, 364, 367, 381,
362, 362, 363, 365, 366, 368, 369, 370, 371, 373,	383, 383, 384, 386, 387, 389, 390, 391, 392, 394,
375, 377, 379, 381, 383, 387, 391, 395, 397, 398,	396, 398, 400, 402, 404, 408, 412, 416, 418, 419,
400, 407, 407, 409, 409, 410, 411, 416, 421, 423,	421, 430, 430, 432, 432, 433, 434, 442, 447, 449,
425, 426, 427, 429, 433, 441, 447, 452, 452, 453,	451, 452, 453, 455, 459, 468, 474, 479, 479, 480,
458, 460, 462, 466, 478, 482, 484, 485, 486, 487,	485, 487, 489, 493, 505, 510, 512, 513, 514, 515,
488, 490, 491, 492, 493, 494, 495, 496, 497, 499,	516, 518, 519, 520, 521, 522, 523, 524, 525, 527,
500, 501, 502, 503, 504, 505, 506, 507, 508, 509,	528, 529, 530, 531, 532, 533, 534, 535, 536, 537,
510, 511, 512, 513, 514, 515, 516, 517, 518, 519,	538, 539, 540, 541, 542, 543, 544, 545, 546, 547,
520, 521, 522, 523, 526, 535, 540, 541	548, 549, 550, 551, 554, 563, 568, 569
};	};
#endif	#endif

Line 1139 case 29:	Line 1139 case 29:
case 35:	case 35:
#line 241 "compile.y"	#line 241 "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, OP_GET_ELEMENT__WRITE,
	OP_WRITE_VALUE
	); /* value=pop; wcontext.write(value) */
;	;
break;}	break;}
case 36:	case 36:
#line 245 "compile.y"	#line 248 "compile.y"
{ yyval=yyvsp[0] ;	{ yyval=yyvsp[0] ;
break;}	break;}
case 39:	case 39:
#line 247 "compile.y"	#line 250 "compile.y"
{ yyval=yyvsp[-1] ;	{ yyval=yyvsp[-1] ;
break;}	break;}
case 42:	case 42:
#line 251 "compile.y"	#line 254 "compile.y"
{	{
yyval=N(POOL);	yyval=N(POOL);
Array *diving_code=yyvsp[0];	Array *diving_code=yyvsp[0];
const String *first_name=LA2S(diving_code);	const String *first_name=LA2S(diving_code);
	// self.xxx... -> xxx...
	// OP_VALUE+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->size()>=3?3/OP_VALUE+string+OP_GET_ELEMENTx/:2/OP_+string/);
} else {	} else {
O(yyval, OP_WITH_READ); /* stack: starting context */	O(yyval, OP_WITH_READ); /* stack: starting context */

	// ^if ELEMENT -> ^if ELEMENT_OR_OPERATOR
	// OP_VALUE+string+OP_GET_ELEMENT. -> OP_VALUE+string+OP_GET_ELEMENT_OR_OPERATOR.
	if(PC.in_call_value && diving_code->size()==3)
	diving_code->put_int(2, OP_GET_ELEMENT_OR_OPERATOR);
P(yyval, diving_code);	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 276 "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 277 "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 281 "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 289 "compile.y"
{	{
yyval=N(POOL);	yyval=N(POOL);
Array *diving_code=yyvsp[0];	Array *diving_code=yyvsp[0];
const String *first_name=LA2S(diving_code);	const String *first_name=LA2S(diving_code);
	// $self.xxx... -> $xxx...
	// OP_VALUE+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->size()>=3?3/OP_VALUE+string+OP_GET_ELEMENTx/:2/OP_+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);
Line 1203 case 50:	Line 1215 case 50:
;	;
break;}	break;}
case 51:	case 51:
#line 294 "compile.y"	#line 306 "compile.y"
{	{
yyval=N(POOL);	yyval=N(POOL);
O(yyval, OP_WITH_WRITE); /* stack: starting context */	O(yyval, OP_WITH_WRITE); /* stack: starting context */
Line 1211 case 51:	Line 1223 case 51:
;	;
break;}	break;}
case 52:	case 52:
#line 299 "compile.y"	#line 311 "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 318 "compile.y"
{	{
// stack: context, name	// stack: context, name
yyval=yyvsp[-1]; // stack: context, name, value	yyval=yyvsp[-1]; // stack: context, name, value
Line 1223 case 56:	Line 1235 case 56:
;	;
break;}	break;}
case 57:	case 57:
#line 312 "compile.y"	#line 324 "compile.y"
{	{
	yyval=N(POOL);
	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 332 "compile.y"
{	{
// stack: context, name	// stack: context, name
yyval=N(POOL);	yyval=N(POOL);
Line 1239 case 58:	Line 1253 case 58:
;	;
break;}	break;}
case 62:	case 62:
#line 329 "compile.y"	#line 343 "compile.y"
{	{
yyval=N(POOL);	yyval=N(POOL);
O(yyval, OP_CREATE_EWPOOL); /* stack: empty write context */	PJP(yyval, 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 350 "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 354 "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, OP_CALL__WRITE,
	OP_WRITE_VALUE
	); /* value=pop; wcontext.write(value) */
;	;
break;}	break;}
case 67:	case 67:
#line 344 "compile.y"	#line 361 "compile.y"
{ PC.object_constructor_allowed=true ;	{
	PC.in_call_value=true;
	;
break;}	break;}
case 68:	case 68:
#line 345 "compile.y"	#line 364 "compile.y"
{ PC.object_constructor_allowed=false ;	{
	PC.in_call_value=false;
	;
break;}	break;}
case 69:	case 69:
#line 346 "compile.y"	#line 367 "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 */	O(yyval, OP_GET_METHOD_FRAME); /* stack: context,method_frame */
Line 1283 case 69:	Line 1304 case 69:
;	;
break;}	break;}
case 72:	case 72:
#line 362 "compile.y"	#line 383 "compile.y"
{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 76:	case 76:
#line 368 "compile.y"	#line 389 "compile.y"
{yyval=yyvsp[-1];	{yyval=yyvsp[-1];
break;}	break;}
case 77:	case 77:
#line 369 "compile.y"	#line 390 "compile.y"
{yyval=yyvsp[-1];	{yyval=yyvsp[-1];
break;}	break;}
case 78:	case 78:
#line 370 "compile.y"	#line 391 "compile.y"
{yyval=yyvsp[-1];	{yyval=yyvsp[-1];
break;}	break;}
case 80:	case 80:
#line 373 "compile.y"	#line 394 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 82:	case 82:
#line 377 "compile.y"	#line 398 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 84:	case 84:
#line 381 "compile.y"	#line 402 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 85:	case 85:
#line 383 "compile.y"	#line 404 "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 387 "compile.y"	#line 408 "compile.y"
{	{
yyval=N(POOL);	yyval=N(POOL);
PEA(yyval, yyvsp[0]);	PEA(yyval, yyvsp[0]);
;	;
break;}	break;}
case 87:	case 87:
#line 391 "compile.y"	#line 412 "compile.y"
{	{
yyval=N(POOL);	yyval=N(POOL);
PCA(yyval, yyvsp[0]);	PCA(yyval, yyvsp[0]);
;	;
break;}	break;}
case 91:	case 91:
#line 400 "compile.y"	#line 421 "compile.y"
{	{
yyval=yyvsp[0];	yyval=N(POOL);
	O(yyval, OP_PREPARE_TO_EXPRESSION);
	P(yyval, yyvsp[0]);
O(yyval, OP_WRITE_EXPR_RESULT);	O(yyval, OP_WRITE_EXPR_RESULT);
;	;
break;}	break;}
case 93:	case 93:
#line 407 "compile.y"	#line 430 "compile.y"
{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 95:	case 95:
#line 409 "compile.y"	#line 432 "compile.y"
{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 97:	case 97:
#line 411 "compile.y"	#line 434 "compile.y"
{	{
	// 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

/* 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 416 "compile.y"	#line 442 "compile.y"
{	{
/* stack: context */	/* stack: context */
yyval=yyvsp[0]; /* stack: context,name */	yyval=yyvsp[0]; /* stack: context,name */
Line 1363 case 98:	Line 1389 case 98:
;	;
break;}	break;}
case 104:	case 104:
#line 429 "compile.y"	#line 455 "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 433 "compile.y"	#line 459 "compile.y"
{	{
	Array *code;
	{
	change_string_literal_to_write_string_literal(code=yyvsp[-1]);
	P(code, yyvsp[0]);
	}
yyval=N(POOL);	yyval=N(POOL);
O(yyval, OP_CREATE_EWPOOL);	PSP(yyval, code);
P(yyval, yyvsp[-1]);
O(yyval, OP_WRITE_VALUE);
P(yyval, yyvsp[0]);
O(yyval, OP_REDUCE_EWPOOL);
;	;
break;}	break;}
case 106:	case 106:
#line 441 "compile.y"	#line 468 "compile.y"
{	{
yyval=N(POOL);	yyval=N(POOL);
O(yyval, OP_CREATE_EWPOOL);	PJP(yyval, 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 447 "compile.y"	#line 474 "compile.y"
{	{
yyval=N(POOL);	yyval=N(POOL);
O(yyval, OP_WITH_READ);	O(yyval, OP_WITH_READ);
Line 1398 case 107:	Line 1425 case 107:
;	;
break;}	break;}
case 109:	case 109:
#line 452 "compile.y"	#line 479 "compile.y"
{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;	{ yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;
break;}	break;}
case 110:	case 110:
#line 453 "compile.y"	#line 480 "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 462 "compile.y"	#line 489 "compile.y"
{	{
yyval=yyvsp[-1]; // stack: class name string	yyval=yyvsp[-1]; // stack: class name string
O(yyval, OP_GET_CLASS);	O(yyval, OP_GET_CLASS);
;	;
break;}	break;}
case 114:	case 114:
#line 466 "compile.y"	#line 493 "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;
}	}
Line 1427 case 114:	Line 1454 case 114:
;	;
break;}	break;}
case 115:	case 115:
#line 478 "compile.y"	#line 505 "compile.y"
{	{
	// see OP_PREPARE_TO_EXPRESSION!!
if((yyval=yyvsp[0])->size()==2) // only one string literal in there?	if((yyval=yyvsp[0])->size()==2) // only one string literal in there?
change_string_literal_to_double_literal(yyval); // make that string literal Double	change_string_literal_to_double_literal(yyval); // make that string literal Double
;	;
break;}	break;}
case 119:	case 119:
#line 486 "compile.y"	#line 514 "compile.y"
{ yyval = yyvsp[-1]; ;	{ yyval = yyvsp[-1]; ;
break;}	break;}
case 120:	case 120:
#line 487 "compile.y"	#line 515 "compile.y"
{ yyval = yyvsp[-1]; ;	{ yyval = yyvsp[-1]; ;
break;}	break;}
case 121:	case 121:
#line 488 "compile.y"	#line 516 "compile.y"
{ yyval = yyvsp[-1]; ;	{ yyval = yyvsp[-1]; ;
break;}	break;}
case 122:	case 122:
#line 490 "compile.y"	#line 518 "compile.y"
{ yyval=yyvsp[0]; O(yyval, OP_NEG) ;	{ yyval=yyvsp[0]; O(yyval, OP_NEG) ;
break;}	break;}
case 123:	case 123:
#line 491 "compile.y"	#line 519 "compile.y"
{ yyval=yyvsp[0] ;	{ yyval=yyvsp[0] ;
break;}	break;}
case 124:	case 124:
#line 492 "compile.y"	#line 520 "compile.y"
{ yyval=yyvsp[0]; O(yyval, OP_INV) ;	{ yyval=yyvsp[0]; O(yyval, OP_INV) ;
break;}	break;}
case 125:	case 125:
#line 493 "compile.y"	#line 521 "compile.y"
{ yyval=yyvsp[0]; O(yyval, OP_NOT) ;	{ yyval=yyvsp[0]; O(yyval, OP_NOT) ;
break;}	break;}
case 126:	case 126:
#line 494 "compile.y"	#line 522 "compile.y"
{ yyval=yyvsp[0]; O(yyval, OP_DEF) ;	{ yyval=yyvsp[0]; O(yyval, OP_DEF) ;
break;}	break;}
case 127:	case 127:
#line 495 "compile.y"	#line 523 "compile.y"
{ yyval=yyvsp[0]; O(yyval, OP_IN) ;	{ yyval=yyvsp[0]; O(yyval, OP_IN) ;
break;}	break;}
case 128:	case 128:
#line 496 "compile.y"	#line 524 "compile.y"
{ yyval=yyvsp[0]; O(yyval, OP_FEXISTS) ;	{ yyval=yyvsp[0]; O(yyval, OP_FEXISTS) ;
break;}	break;}
case 129:	case 129:
#line 497 "compile.y"	#line 525 "compile.y"
{ yyval=yyvsp[0]; O(yyval, OP_DEXISTS) ;	{ yyval=yyvsp[0]; O(yyval, OP_DEXISTS) ;
break;}	break;}
case 130:	case 130:
#line 499 "compile.y"	#line 527 "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 500 "compile.y"	#line 528 "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 501 "compile.y"	#line 529 "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 502 "compile.y"	#line 530 "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 503 "compile.y"	#line 531 "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 504 "compile.y"	#line 532 "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 505 "compile.y"	#line 533 "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_AND) ;
break;}	break;}
case 137:	case 137:
#line 506 "compile.y"	#line 534 "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_OR) ;
break;}	break;}
case 138:	case 138:
#line 507 "compile.y"	#line 535 "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_XOR) ;
break;}	break;}
case 139:	case 139:
#line 508 "compile.y"	#line 536 "compile.y"
{ yyval=yyvsp[-2]; PNC(yyval, yyvsp[0]); O(yyval, OP_LOG_AND) ;	{ yyval=yyvsp[-2]; PNC(yyval, yyvsp[0]); O(yyval, OP_LOG_AND) ;
break;}	break;}
case 140:	case 140:
#line 509 "compile.y"	#line 537 "compile.y"
{ yyval=yyvsp[-2]; PNC(yyval, yyvsp[0]); O(yyval, OP_LOG_OR) ;	{ yyval=yyvsp[-2]; PNC(yyval, yyvsp[0]); O(yyval, OP_LOG_OR) ;
break;}	break;}
case 141:	case 141:
#line 510 "compile.y"	#line 538 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_LOG_XOR) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_LOG_XOR) ;
break;}	break;}
case 142:	case 142:
#line 511 "compile.y"	#line 539 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_NUM_LT) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_NUM_LT) ;
break;}	break;}
case 143:	case 143:
#line 512 "compile.y"	#line 540 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_NUM_GT) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_NUM_GT) ;
break;}	break;}
case 144:	case 144:
#line 513 "compile.y"	#line 541 "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_LE) ;
break;}	break;}
case 145:	case 145:
#line 514 "compile.y"	#line 542 "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_GE) ;
break;}	break;}
case 146:	case 146:
#line 515 "compile.y"	#line 543 "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_EQ) ;
break;}	break;}
case 147:	case 147:
#line 516 "compile.y"	#line 544 "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_NE) ;
break;}	break;}
case 148:	case 148:
#line 517 "compile.y"	#line 545 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_STR_LT) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_STR_LT) ;
break;}	break;}
case 149:	case 149:
#line 518 "compile.y"	#line 546 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_STR_GT) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_STR_GT) ;
break;}	break;}
case 150:	case 150:
#line 519 "compile.y"	#line 547 "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_LE) ;
break;}	break;}
case 151:	case 151:
#line 520 "compile.y"	#line 548 "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_GE) ;
break;}	break;}
case 152:	case 152:
#line 521 "compile.y"	#line 549 "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_EQ) ;
break;}	break;}
case 153:	case 153:
#line 522 "compile.y"	#line 550 "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_NE) ;
break;}	break;}
case 154:	case 154:
#line 523 "compile.y"	#line 551 "compile.y"
{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_IS) ;	{ yyval=yyvsp[-2]; P(yyval, yyvsp[0]); O(yyval, OP_IS) ;
break;}	break;}
case 155:	case 155:
#line 526 "compile.y"	#line 554 "compile.y"
{	{
yyval=N(POOL);	yyval=N(POOL);
O(yyval, OP_CREATE_SWPOOL); /* stack: empty write context */	PSP(yyval, 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 156:
#line 535 "compile.y"	#line 563 "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 157:
#line 540 "compile.y"	#line 568 "compile.y"
{ yyval=VL(NEW VVoid(POOL)) ;	{ yyval=VL(NEW VVoid(POOL)) ;
break;}	break;}
case 158:	case 158:
#line 541 "compile.y"	#line 569 "compile.y"
{ yyval=N(POOL) ;	{ yyval=N(POOL) ;
break;}	break;}
}	}
Line 1823 yyerrhandle:	Line 1851 yyerrhandle:
}	}
return 1;	return 1;
}	}
#line 543 "compile.y"	#line 571 "compile.y"

#endif	#endif

Line 1844 yyerrhandle:	Line 1872 yyerrhandle:
*/	*/

static int yylex(YYSTYPE lvalp, void pc) {	static int yylex(YYSTYPE lvalp, void pc) {
#define lexical_brackets_nestage PC.brackets_nestages[PC.sp]	#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;
Line 1871 static int yylex(YYSTYPE lvalp, void p	Line 1899 static int yylex(YYSTYPE lvalp, void p
PC.col++;	PC.col++;

if(c=='@' && PC.col==0+1) {	if(c=='@' && PC.col==0+1) {
	if(PC.ls==LS_DEF_SPECIAL_BODY) {
	// @SPECIAL
	// ...
	// @<here =
	pop_LS(PC); // exiting from LS_DEF_SPECIAL_BODY state
	} // 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	} 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=='^')
Line 1954 default:	Line 1988 default:
}	}
// 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_COMMENT);
	continue;
}	}
switch(PC.ls) {	switch(PC.ls) {

Line 2071 default:	Line 2106 default:
break;	break;

case LS_DEF_SPECIAL_BODY:	case LS_DEF_SPECIAL_BODY:
// @todo in case	if(c=='\n')
// ################
// @next-method
// we are here with c=='@'
// which is wrong, and need action
if(c=='\n') {
switch(*PC.source) {
case '@': case 0: // end of special_code
pop_LS(PC);
break;
}
RC;	RC;
}
break;	break;

// (EXPRESSION)	// (EXPRESSION)
Line 2215 default:	Line 2239 default:
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 '-':
	// expression integer division
	case '\\':
pop_LS(PC);	pop_LS(PC);
PC.source--; if(--PC.col<0) { PC.line--; PC.col=-1; }	PC.source--; if(--PC.col<0) { PC.line--; PC.col=-1; }
result=EON;	result=EON;

E-mail:

Removed from v.1.27.6.3
changed lines
	Added in v.1.50