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

Diff for /parser3/src/main/compile_tools.h between versions 1.67.2.8.2.9 and 1.74.12.1

version 1.67.2.8.2.9, 2003/04/03 12:40:53 version 1.74.12.1, 2005/08/05 13:01:16
Line 1 Line 1
 /** @file  /** @file
         Parser: compiler support helper functions decls.          Parser: compiler support helper functions decls.
   
         Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)          Copyright (c) 2001-2004 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)
 */  */
   
 #ifndef COMPILE_TOOLS  #ifndef COMPILE_TOOLS
 #define COMPILE_TOOLS  #define COMPILE_TOOLS
   
 static const char* IDENT_COMPILE_TOOLS_H="$Date$";  static const char * const IDENT_COMPILE_TOOLS_H="$Date$";
   
 #include "pa_opcode.h"  #include "pa_opcode.h"
 #include "pa_types.h"  #include "pa_types.h"
 #include "pa_vstring.h"  #include "pa_vstring.h"
 #include "pa_request.h"  #include "pa_request.h"
   
   /// used to track source column number
   #define TAB_SIZE 8
   
 enum lexical_state {  enum lexical_state {
         LS_USER, LS_NAME_SQUARE_PART,          LS_USER, LS_NAME_SQUARE_PART,
         LS_USER_COMMENT,          LS_USER_COMMENT,
Line 40  enum lexical_state { Line 43  enum lexical_state {
 };  };
   
 struct Pos {  struct Pos {
         uint line;          int line;
         uint col;          int col;
         //Pos(uint aline, uint acol): line(aline), col(acol) {}          Pos(int aline, int acol): line(aline), col(acol) {}
         Pos(): line(0), col(0) {}          Pos(): line(0), col(0) {}
   
         void clear() { line=col=0; }          void clear() { line=col=0; }
Line 67  public: Line 70  public:
         /// @name state; initially          /// @name state; initially
         bool trim_bof;          bool trim_bof;
         int pending_state; ///< i=0          int pending_state; ///< i=0
         StringBody string; ///< lexical string accumulator          String::Body string; ///< lexical string accumulator
         Pos string_start;          Pos string_start;
                   
 #define MAX_LEXICAL_STATES 100  #define MAX_LEXICAL_STATES 100
Line 77  public: Line 80  public:
         int brackets_nestages[MAX_LEXICAL_STATES]; ///< brackets nestage on each state          int brackets_nestages[MAX_LEXICAL_STATES]; ///< brackets nestage on each state
   
         bool in_call_value;          bool in_call_value;
           bool explicit_result;
         //@}          //@}
                   
         /// output: filled input 'methods' and 'error' if any          /// output: filled input 'methods' and 'error' if any
Line 85  public: Line 89  public:
         Parse_control(Request& arequest,           Parse_control(Request& arequest, 
                 VStateless_class* aclass,                  VStateless_class* aclass,
                 const char* asource, const String* amain_alias,                   const char* asource, const String* amain_alias, 
                 uint afile_no):                  uint afile_no,
                   int line_no_offset):
                   main_alias(amain_alias),
                   last_line_end_col(0),
   
                 request(arequest), // input                   request(arequest), // input 
   
                 // we were told the class to compile to?                  // we were told the class to compile to?
                 cclass(aclass), // until changed with @CLASS would consider operators loading                  cclass(aclass), // until changed with @CLASS would consider operators loading
                   source(asource), 
                 source(asource), main_alias(amain_alias),  
   
                 file_no(afile_no),                  file_no(afile_no),
                 last_line_end_col(0),                  pos(line_no_offset, 0),
   
                 // initialize state                  // initialize state
                 trim_bof(true),                  trim_bof(true),
                 pending_state(0),                  pending_state(0),
                 ls(LS_USER),                  ls(LS_USER),
                 ls_sp(0),                  ls_sp(0),
                 in_call_value(false) {}                  in_call_value(false),
                   explicit_result(false) {}
   
         void pos_next_line() {          void pos_next_line() {
                 pos.line++;                  pos.line++;
                 last_line_end_col=pos.col;                  last_line_end_col=pos.col;
                 pos.col=0;                  pos.col=0;
         }          }
           void pos_next_c(char c) {
                   if(c=='\t')
                           pos.col=(pos.col+TAB_SIZE)&~(TAB_SIZE-1);
                   else
                           pos.col++;
           }
           /// not precise in case of \t in the middle of the text
         void pos_prev_c() {          void pos_prev_c() {
                 if(pos.col==0) {                  if(pos.col==0) {
                         --pos.line;  pos.col=last_line_end_col;                          --pos.line;  pos.col=last_line_end_col;
Line 125  inline ArrayOperation* N() { Line 139  inline ArrayOperation* N() {
         return new ArrayOperation;          return new ArrayOperation;
 }  }
   
         /// Assembler instruction // append ordinary instruction to ops  /// Assembler instruction // append ordinary instruction to ops
 inline void O(ArrayOperation& result, OPCODE code) {  inline void O(ArrayOperation& result, OPCODE code) {
         result+=Operation(code);          result+=Operation(code);
 }  }
Line 147  inline void OA(ArrayOperation& result, O Line 161  inline void OA(ArrayOperation& result, O
   
 /**  /**
         Value Literal // returns array with           Value Literal // returns array with 
         - first: OP_VALUE instruction          - first op: OP_VALUE instruction
         - second op: string itself          - second op: origin (debug information)
           - third op: string itself
 */  */
 inline ArrayOperation* VL(Value* value, uint file_no, uint line, uint col) {  inline ArrayOperation* VL(Value* value, uint file_no, uint line, uint col) {
         // empty ops array          // empty ops array
         ArrayOperation* result=N();          ArrayOperation& result=*N();
   
         // append 'value' to 'result'          // append 'value' to 'result'
         *result+=Operation(OP_VALUE, file_no, line, col); // append OP_VALUE          result+=Operation(OP_VALUE);
         *result+=Operation(value); // append 'value'          result+=Operation(file_no, line, col); // append origin
           result+=Operation(value); // append 'value'
   
         return result;          return &result;
 }  }
   
 /// Literal Array to(2) Value @return Value from literal Array OP+Value  /// Literal Array to(2) Value @return Value from literal Array OP+origin+Value
 Value* LA2V(ArrayOperation& literal_string_array, int offset=0);  Value* LA2V(ArrayOperation& literal_string_array, int offset=0);
 /// Literal Array to(2) String  @return String value from literal Array OP+String array  /// Literal Array to(2) String  @return String value from literal Array OP+origin+String array
 inline const String* LA2S(ArrayOperation& literal_string_array, int offset=0) {  inline const String* LA2S(ArrayOperation& literal_string_array, int offset=0) {
         if(Value* value=LA2V(literal_string_array, offset))          if(Value* value=LA2V(literal_string_array, offset))
                 return value->get_string();                  return value->get_string();
Line 175  inline void change_string_literal_to_wri Line 191  inline void change_string_literal_to_wri
 }  }
   
   
 void change_string_literal_to_double_literal(ArrayOperation& literal_string_array);  void maybe_change_string_literal_to_double_literal(ArrayOperation& literal_string_array);
   
 void change_string_literal_value(ArrayOperation& literal_string_array, const String& new_value);  void change_string_literal_value(ArrayOperation& literal_string_array, const String& new_value);
   
Removed from v.1.67.2.8.2.9  
changed lines
  Added in v.1.74.12.1

E-mail: