stmt.file_name        = null;
  stmt.in_quoted_string = false;
  stmt.in_brace = false;
  stmt.cmd_name = "";
  stmt.last_token = 0;
  stmt.intv = null;
  stmt.in_quotes = false;
  stmt.had_macro_cmd = false;

  R.log('constructor end', '2.life', 'EvalStatement', true);

}

R.extend(EvalStatement, R.Token, {
  my_name: "RaplEvalStatement",

	 * parameter/argument list, for the macro, we ignore that and return the variable
	 * as "$var_name" instead
	 */
        if (obj_ptr == null) {
          obj_ptr = stmt.interp.string_obj_type.newStringObj("$"+token.obj_ptr.getString(), -1);
	  stmt.interp.setResult(stmt.interp.empty_string_obj);
	}
      } else {
        if (stmt.had_macro_cmd) {
          obj_ptr = stmt.interp.string_obj_type.newStringObj("$"+token.obj_ptr.getString(), -1);
	}
      }
      break;
    case stmt.TOKEN_ARRAY_NAME_VAR:
      obj_ptr = JimExpandDictSugar(stmt.interp, token.obj_ptr);
      break;
    case stmt._EXPRSUGAR:
      obj_ptr = JimExpandExprSugar(stmt.interp, token.obj_ptr);

        default:
          return stmt.ERROR;
        }
        }
      }
      break;
    case stmt.TOKEN_CMD:
      if (stmt.interp.frame_ptr.type == stmt.CALL_TYPE_MACROEXPAND) {
        stmt.had_macro_cmd = true;
        stmt.macro_cmd_level = stmt.eval_level;
      }
      switch (stmt.evalObj(token.obj_ptr)) {
      case stmt.OK:
      case stmt.RETURN:
        obj_ptr = stmt.interp.result;
        break;
      case stmt.BREAK:
        /* Stop substituting */

//print("EVALOBJ level!"+stmt.eval_level+"!"+script_obj_ptr.toString()+"!");
//print("EVALOBJ level!"+stmt.eval_level+"!"+script_obj_ptr.mySelf()+"!");
    stmt.interp.error_flag = 0;

    /* If the object is of type "list", with no string rep we can call
     * a specialized version of evalObj() */
    if (script_obj_ptr.isListObj() && script_obj_ptr.bytes == null) {
      retcode = stmt.evalObjList(script_obj_ptr, stmt.interp.empty_obj, 1);
      if (stmt.macro_cmd_level == stmt.eval_level) {
        stmt.had_macro_cmd = false;
      }
      stmt.eval_level--;
      return retcode;
    }
    script_obj_ptr.incrRefCount();     /* Make sure it's shared. */
    script = script_obj_ptr.interp.script_obj_type.getScript(script_obj_ptr);
    if (script == null) {

      stmt.interp.setResultString("error in parsing script: \""+script_obj_ptr+"\"");
      if (stmt.macro_cmd_level == stmt.eval_level) {
        stmt.had_macro_cmd = false;
      }
      stmt.eval_level--;
      return stmt.ERROR;
    }

    /* Reset the interpreter result. This is useful to
     * return the empty result in the case of empty program. */
    script_obj_ptr.interp.setEmptyResult();

    /* Check for one of the following common scripts used by for, while
     *
     *   {}
     *   incr a
     */
    if (script.len == 0) {

      script_obj_ptr.decrRefCount();
      if (stmt.macro_cmd_level == stmt.eval_level) {
        stmt.had_macro_cmd = false;
      }
      stmt.eval_level--;
      return stmt.OK;
    }
    if (script.len == 3
        && script.script_object.tokens[1].obj_ptr.obj_type.type_name == "command"
        && script.script_object.tokens[1].obj_ptr.cmdValue.cmdPtr().is_proc == false
        && script.script_object.tokens[1].obj_ptr.cmdValue.cmdPtr().u.native_fcn.cmd_proc == script.interp.incrCoreCommand
        && script.script_object.tokens[2].obj_ptr.obj_typ.type_name == "variable") {

      var obj_ptr = stmt.interp.getVariable(script.script_object.tokens[2].obj_ptr, stmt.TOKENNONE);

      if (obj_ptr && !obj_ptr.isShared() && obj_ptrobj_type.name == "int") {
//        JimWideValue(obj_ptr)++;
        obj_ptr.invalidateStringRep();
        script_obj_ptr.decrRefCount();

        stmt.interp.setResult(obj_ptr);
        if (stmt.macro_cmd_level == stmt.eval_level) {
          stmt.had_macro_cmd = false;
        }
        stmt.eval_level--;
        return stmt.OK;
      }
    }
    /* Now we have to make sure the internal repr will not be
     * freed on shimmering.
     *
     * Think for example to this:

     * following code transfers our use of the reference again to
     * the script object. */
    script_obj_ptr.freeIntRep();
    script_obj_ptr.obj_type = stmt.interp.script_obj_type;
    script_obj_ptr.setIntRepPtr(script);
    script_obj_ptr.decrRefCount();
//print("EVALOBJ end level!"+stmt.eval_level+"!"+retcode+"!");
    if (stmt.macro_cmd_level == stmt.eval_level) {
      stmt.had_macro_cmd = false;
    }
    stmt.eval_level--;
    return retcode;
  },

  /* ==================== _evalObjVector ===================================== */
  /* Eval the object vector 'objv' composed of 'objc' elements.
   * Every element is used as single argument.