--- parser3/src/main/compile.tab.C 2003/03/20 08:11:13 1.81.2.13.2.3 +++ parser3/src/main/compile.tab.C 2003/03/26 07:45:22 1.81.2.13.2.12 @@ -43,7 +43,7 @@ Copyright (c) 2001, 2003 ArtLebedev Group (http://www.artlebedev.com) Author: Alexander Petrosyan (http://design.ru/paf) - $Id: compile.tab.C,v 1.81.2.13.2.3 2003/03/20 08:11:13 paf Exp $ + $Id: compile.tab.C,v 1.81.2.13.2.12 2003/03/26 07:45:22 paf Exp $ */ /** @@ -57,7 +57,7 @@ -#: in iis make up specialized Pool object for that */ -#define YYSTYPE ArrayOperationPtr +#define YYSTYPE ArrayOperation* #define YYPARSE_PARAM pc #define YYLEX_PARAM pc #define YYDEBUG 1 @@ -1034,57 +1034,57 @@ yyreduce: case 1: #line 116 "compile.y" { - MethodPtr method(new Method(main_method_name, Method::CT_ANY, + Method& method=*new Method(/*main_method_name, */Method::CT_ANY, 0, 0, /*min, max numbered_params_count*/ - Array0/*param_names*/, Array0/*local_names*/, - yyvsp[0]/*parser_code*/, 0/*native_code*/)); + 0/*param_names*/, 0/*local_names*/, + yyvsp[0]/*parser_code*/, 0/*native_code*/); PC.cclass->add_method(main_method_name, method); ; break;} case 8: #line 131 "compile.y" { - const String& command=LA2S(*yyvsp[-2]); + const String& command=*LA2S(*yyvsp[-2]); YYSTYPE strings_code=yyvsp[0]; if(strings_code->count()<1*2) { strcpy(PC.error, "@"); - strcat(PC.error, command->cstr()); + strcat(PC.error, command.cstr()); strcat(PC.error, " is empty"); YYERROR; } - if(*command==CLASS_NAME) { + if(command==CLASS_NAME) { if(PC.cclass->base_class()) { // already changed from default? 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, "'"); YYERROR; } if(strings_code->count()==1*2) { // new class' name - const String& name=LA2S(*strings_code); + const String& name=*LA2S(*strings_code); // creating the class - VStateless_classPtr cclass(new VClass); cclass->set_name(name); + VStateless_class* cclass=new VClass; + PC.cclass=cclass; + PC.cclass->set_name(name); // append to request's classes - PC.request->classes().put(name, cclass); - // new methods go to that class - PC.cclass=cclass.get(); + PC.request.classes().put(name, cclass); } else { strcpy(PC.error, "@"CLASS_NAME" must contain sole name"); YYERROR; } - } else if(*command==USE_CONTROL_METHOD_NAME) { + } else if(command==USE_CONTROL_METHOD_NAME) { for(int i=0; icount(); i+=2) - PC.request->use_file(*PC.request->main_class, LA2S(*strings_code, i)); - } else if(*command==BASE_NAME) { + PC.request.use_file(PC.request.main_class, *LA2S(*strings_code, i)); + } else if(command==BASE_NAME) { if(PC.cclass->base_class()) { // already changed from default? strcpy(PC.error, "class already have a base '"); - strncat(PC.error, PC.cclass->base_class()->name()->cstr(), 100); + strncat(PC.error, PC.cclass->base_class()->name().cstr(), 100); strcat(PC.error, "'"); YYERROR; } if(strings_code->count()==1*2) { - const String& base_name=LA2S(*strings_code); - if(ValuePtr base_class_value=PC.request->classes().get(base_name)) { + const String& base_name=*LA2S(*strings_code); + if(Value* base_class_value=PC.request.classes().get(base_name)) { // @CLASS == @BASE sanity check if(VStateless_class *base_class=base_class_value->get_class()) { if(PC.cclass==base_class) { @@ -1093,12 +1093,12 @@ case 8: } 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()); + 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); YYERROR; } @@ -1108,7 +1108,7 @@ case 8: } } else { strcpy(PC.error, "'"); - strncat(PC.error, command->cstr(), MAX_STRING/2); + strncat(PC.error, command.cstr(), MAX_STRING/2); strcat(PC.error, "' invalid special name. valid names are " "'"CLASS_NAME"', '"USE_CONTROL_METHOD_NAME"' and '"BASE_NAME"'"); YYERROR; @@ -1122,30 +1122,30 @@ case 12: case 16: #line 208 "compile.y" { - const String& name=LA2S(*yyvsp[-5]); + const String& name=*LA2S(*yyvsp[-5]); YYSTYPE params_names_code=yyvsp[-4]; - ArrayString& params_names; + ArrayString* params_names=0; if(int size=params_names_code->count()) { - params_names=ArrayString* (new ArrayString); + params_names=new ArrayString; for(int i=0; icount()) { - locals_names=ArrayString* (new ArrayString); + locals_names=new ArrayString; for(int i=0; iadd_method(name, method); ; break;} @@ -1183,8 +1183,8 @@ case 42: #line 266 "compile.y" { yyval=N(); - ArrayOperationPtr diving_code=yyvsp[0]; - const String& first_name=LA2S(*diving_code); + ArrayOperation* diving_code=yyvsp[0]; + 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) { @@ -1223,8 +1223,8 @@ case 50: #line 301 "compile.y" { yyval=N(); - ArrayOperationPtr diving_code=yyvsp[0]; - const String& first_name=LA2S(*diving_code); + ArrayOperation* diving_code=yyvsp[0]; + 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) { @@ -1281,7 +1281,7 @@ case 62: #line 355 "compile.y" { yyval=N(); - OA(*yyval, OP_OBJECT_yyvsp[0]); /* stack: empty write context */ + OA(*yyval, OP_OBJECT_POOL, yyvsp[0]); /* stack: empty write context */ /* some code that writes to that context */ /* context=pop; stack: context.value() */ ; @@ -1318,9 +1318,9 @@ case 69: YYSTYPE params_code=yyvsp[-1]; if(params_code->count()==3) { // probably [] case. [OP_VALUE + Void + STORE_PARAM] - if(ValuePtr value=LA2V(*params_code)) // it is OP_VALUE + value? + if(Value* value=LA2V(*params_code)) // it is OP_VALUE + value? if(!value->is_defined()) // value is VVoid? - params_code=YYSTYPE(0); // ^zzz[] case. don't append lone empty param. + params_code=0; // ^zzz[] case. don't append lone empty param. } /* stack: context, method_junction */ OA(*yyval, OP_CALL, params_code); // method_frame=make frame(pop junction); ncontext=pop; call(ncontext,method_frame) stack: value @@ -1421,20 +1421,20 @@ case 104: case 105: #line 469 "compile.y" { - ArrayOperationPtr code; + ArrayOperation* code; { change_string_literal_to_write_string_literal(*(code=yyvsp[-1])); P(*code, *yyvsp[0]); } yyval=N(); - OA(*yyval, OP_STRING_code); + OA(*yyval, OP_STRING_POOL, code); ; break;} case 106: #line 478 "compile.y" { yyval=N(); - OA(*yyval, OP_OBJECT_yyvsp[-1]); /* stack: empty write context */ + OA(*yyval, OP_OBJECT_POOL, yyvsp[-1]); /* stack: empty write context */ /* some code that writes to that context */ /* context=pop; stack: context.value() */ ; @@ -1648,7 +1648,7 @@ case 157: #line 574 "compile.y" { yyval=N(); - OA(*yyval, OP_STRING_yyvsp[0]); /* stack: empty write context */ + OA(*yyval, OP_STRING_POOL, yyvsp[0]); /* stack: empty write context */ /* some code that writes to that context */ /* context=pop; stack: context.get_string() */ ; @@ -1662,7 +1662,7 @@ case 158: break;} case 159: #line 588 "compile.y" -{ yyval=VL(ValuePtr(new VVoid())) ; +{ yyval=VL(new VVoid()) ; break;} case 160: #line 589 "compile.y" @@ -1979,7 +1979,7 @@ default: case '"': case ':': if(end!=begin) { // append piece till ^ - PC.string->APPEND_CLEAN(begin, end-begin, PC.file, begin_line); + PC.string.append(begin, end-begin); } // reset piece 'begin' position & line begin=PC.source; // ->punctuation @@ -1993,20 +1993,19 @@ default: case '#': if(end!=begin) { // append piece till ^ - PC.string->APPEND_CLEAN(begin, end-begin, PC.file, begin_line); + PC.string.append(begin, end-begin); } // #HH ? if(PC.source[0]=='#' && PC.source[1] && PC.source[2]) { - char *hex=(char *)POOL.malloc(1); - hex[0]= + char c= hex_value[(unsigned char)PC.source[1]]*0x10+ hex_value[(unsigned char)PC.source[2]]; - if(hex[0]==0) { + if(c==0) { result=BAD_HEX_LITERAL; goto break2; // wrong hex value[no ^#00 chars allowed]: bail out } // append char(hex(HH)) - PC.string->APPEND_CLEAN(hex, 1, PC.file, begin_line); + PC.string.append(c); // skip over ^#HH PC.source+=3; PC.col+=3; @@ -2025,7 +2024,7 @@ default: if(c=='#' && PC.col==1) { if(end!=begin) { // append piece till # - PC.string->APPEND_CLEAN(begin, end-begin, PC.file, begin_line); + PC.string.append(begin, end-begin); } // fall into COMMENT lexical state [wait for \n] push_LS(PC, LS_USER_COMMENT); @@ -2168,7 +2167,7 @@ default: case '#': // comment start skipping if(end!=begin) { // append piece till # - PC.string->APPEND_CLEAN(begin, end-begin, PC.file, begin_line); + PC.string.append(begin, end-begin); } // fall into COMMENT lexical state [wait for \n] push_LS(PC, LS_EXPRESSION_COMMENT); @@ -2600,14 +2599,14 @@ break2: } if(end!=begin && PC.ls!=LS_USER_COMMENT) { // last piece still alive and not comment? // append it - PC.string->APPEND_CLEAN(begin, end-begin, PC.file, begin_line/*, start_col*/); + PC.string.append(begin, end-begin); } } - if(PC.string->size()) { // something accumulated? + if(!PC.string.is_empty()) { // something accumulated? // create STRING value: array of OP_VALUE+vstring - *lvalp=VL(ValuePtr(new VString(PC.string))); + *lvalp=VL(new VString(*new String(PC.string, String::L_CLEAN))); // new pieces storage - PC.string=String* (new String); + PC.string.clear(); // make current result be pending for next call, return STRING for now PC.pending_state=result; result=STRING; } @@ -2624,5 +2623,5 @@ static int real_yyerror(parse_control *p static void yyprint(FILE *file, int type, YYSTYPE value) { if(type==STRING) - fprintf(file, " \"%s\"", LA2S(*value)->cstr().get()); + fprintf(file, " \"%s\"", LA2S(*value)->cstr()); }