parser3/src/main/compile_tools.C - diff

Return to compile_tools.C CVS log

Up to [parser3project] / parser3 / src / main

Diff for /parser3/src/main/compile_tools.C between versions 1.3 and 1.29

-version 1.3, 2001/02/21 06:21:19
+version 1.29, 2001/03/19 16:44:01
  Line 1
- /*
+ /** @file
-   $Id$
+         Parser
+         Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
+         Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
+         $Id$
  */
  #include "compile_tools.h"
  #include "pa_string.h"
  #include "pa_array.h"
  #include "pa_exception.h"
+ #include "pa_vstring.h"
+ #include "pa_vdouble.h"
- Array *L(String *string) {
+ void PV(Array/*<Operation>*/ *result, Value *value) {
-         // empty ops array
+         // append OP_VALUE
-         Array *result=N(&string->pool());
+         Operation op; op.code=OP_VALUE;
+         *result+=op.cast;
+         // append 'value'
+         *result+=value;
+ }
+ void PCA(Array/*<Operation>*/ *result, Array/*<Operation>*/ *code_array) {
+         // append OP_CODE
+         Operation op; op.code=OP_CURLY_CODE__STORE_PARAM;
+         *result+=op.cast;
+         // append 'vstring'
+         *result+=code_array;
+ }
-         // append OP_STRING
+ void PEA(Array/*<Operation>*/ *result, Array/*<Operation>*/ *code_array) {
-         Operation op; op.code=OP_STRING;
+         // append OP_CODE
-         *result+=reinterpret_cast<Array::Item *>(op.cast);
+         Operation op; op.code=OP_EXPR_CODE__STORE_PARAM;
+         *result+=op.cast;
-         // append 'string'
+         // append 'vstring'
-         *result+=string;
+         *result+=code_array;
+ }
+ Array *VL(Value *value) {
+         // empty ops array
+         Array *result=N(value->pool());
+         // append 'value' to 'result'
+         PV(result, value);
          return result;
  }
- const String *LA2S(Array *literal_string_array) {
+ const String *SLA2S(Array *literal_string_array, int offset) {
-         return static_cast<const String *>(literal_string_array->get(1));
+         Operation op;
+         op.cast=literal_string_array->get(offset+0);
+         if(op.code!=OP_VALUE)
+                 return 0;
+         return static_cast<VString *>(literal_string_array->get(offset+1))->get_string();
  }
+ void change_string_literal_to_double_literal(Array *literal_string_array) {
+         VString *vstring=static_cast<VString *>(literal_string_array->get(1));
+         Value *value=vstring->get_expr_result();
+         literal_string_array->put(1, value);
+ }
+ void change_string_literal_to_write_string_literal(Array *literal_string_array) {
+         Operation op; op.code=OP_STRING__WRITE;
+         literal_string_array->put(0, op.cast);
+ }
- void push_LS(struct parse_control *pc) {
+ void push_LS(struct parse_control *pc, lexical_state new_state) {
          if(pc->sp<MAX_LEXICAL_STATES) {
-                 pc->stack[pc->sp++]=pc->ls;  pc->ls=LS_VAR_NAME_SIMPLE;
+                 pc->stack[pc->sp++]=pc->ls;  pc->ls=new_state;
          } else
-                 (static_cast<Pool *>(pc->pool))->exception().raise(0, 0, 0,
+                 pc->pool->THROW(0, 0, 0, "push_LS: stack overflow");
-                         "push_LS: stack overflow");
  }
  void pop_LS(struct parse_control *pc) {
          if(--pc->sp>=0)
                  pc->ls=pc->stack[pc->sp];
          else
-                 (static_cast<Pool *>(pc->pool))->exception().raise(0, 0, 0,
+                 pc->pool->THROW(0, 0, 0, "push_LS: stack underflow");
-                         "push_LS: stack underflow");
  }

E-mail:

Removed from v.1.3
changed lines
	Added in v.1.29