[BACK]Return to compile_tools.C CVS log [TXT] [DIR] Up to [parser3project] / parser3 / src / main

Diff for /parser3/src/main/compile_tools.C between versions 1.54.2.1 and 1.54.2.5.2.1

version 1.54.2.1, 2003/01/30 09:34:31 version 1.54.2.5.2.1, 2003/03/18 15:14:17
Line 1 Line 1
 /** @file  /** @file
         Parser: compiler support helper functions.          Parser: compiler support helper functions.
   
         Copyright (c) 2001, 2003 ArtLebedev Group (http://www.artlebedev.com)          Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)
         Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)          Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */  */
   
Line 14  static const char* IDENT_COMPILE_TOOLS_C Line 14  static const char* IDENT_COMPILE_TOOLS_C
 #include "pa_vstring.h"  #include "pa_vstring.h"
 #include "pa_vdouble.h"  #include "pa_vdouble.h"
   
 Value* LA2V(Array *literal_string_array, int offset) {  ValuePtr LA2V(ArrayOperation& literal_string_array, int offset) {
         Operation op;          return literal_string_array[offset+0].code==OP_VALUE?literal_string_array[offset+1].value
         op.cast=literal_string_array->get(offset+0);                  :ValuePtr(0);
         return op.code==OP_VALUE?  
                 static_cast<Value* >(literal_string_array->get(offset+1))  
                 :0;  
 }  }
   
 void change_string_literal_to_double_literal(Array *literal_string_array) {  void change_string_literal_to_double_literal(ArrayOperation& literal_string_array) {
         Operation op;          if(literal_string_array[0].code==OP_VALUE) {
         op.cast=literal_string_array->get(0);                  ValuePtr value=literal_string_array[1].value->as_expr_result();
         if(op.code==OP_VALUE) {                  literal_string_array[1].value=value;
                 VString *vstring=static_cast<VString *>(literal_string_array->get(1));  
                 Value* value=vstring->as_expr_result();  
                 literal_string_array->put(1, value);  
         }          }
 }  }
   
 void change_string_literal_value(Array *literal_string_array, const String& new_value) {  void change_string_literal_value(ArrayOperation& literal_string_array, const String& new_value) {
         Operation op;          if(literal_string_array[0].code==OP_VALUE) { // extra safety
         op.cast=literal_string_array->get(0);                  static_cast<VString&>(*literal_string_array[1].value).set_string(new_value);
         if(op.code==OP_VALUE) { // extra safety  
                 VString *vstring=static_cast<VString *>(literal_string_array->get(1));  
                 vstring->set_string(new_value);  
         }          }
 }  }
   
 void changetail_or_append(Array *opcodes,   void changetail_or_append(ArrayOperation& opcodes, 
                                                   OPCODE find, bool with_argument, OPCODE replace, OPCODE notfound) {                                                    OPCODE find, bool with_argument, OPCODE replace, OPCODE notfound) {
         int tail=opcodes->size()-(with_argument?2:1);          int tail=opcodes.count()-(with_argument?2:1);
         if(tail>=0) {          if(tail>=0) {
                 Operation op;                  Operation& op=opcodes[tail];
                 op.cast=opcodes->get(tail);  
                 if(op.code==find) {                  if(op.code==find) {
                         op.code=replace;                          op.code=replace;
                         opcodes->put(tail, op.cast);  
                         return;                          return;
                 }                  }
         }          }
   
         Operation op; op.code=notfound;          opcodes+=Operation(notfound);
         *opcodes+=op.cast;  
 }  }
   
   
Line 64  void push_LS(parse_control& pc, lexical_ Line 52  void push_LS(parse_control& pc, lexical_
                 pc.ls_stack[pc.ls_sp++]=pc.ls;                    pc.ls_stack[pc.ls_sp++]=pc.ls;  
                 pc.ls=new_state;                  pc.ls=new_state;
         } else          } else
                 throw Exception(0, 0, "push_LS: ls_stack overflow");                  throw Exception(Exception::undefined_type, Exception::undefined_source, 
                           "push_LS: ls_stack overflow");
 }  }
 void pop_LS(parse_control& pc) {  void pop_LS(parse_control& pc) {
         if(--pc.ls_sp>=0)          if(--pc.ls_sp>=0)
                 pc.ls=pc.ls_stack[pc.ls_sp];                  pc.ls=pc.ls_stack[pc.ls_sp];
         else          else
                 throw Exception(0, 0, "pop_LS: ls_stack underflow");                  throw Exception(Exception::undefined_type, Exception::undefined_source, 
                           "pop_LS: ls_stack underflow");
 }  }
Removed from v.1.54.2.1  
changed lines
  Added in v.1.54.2.5.2.1

E-mail: