::itcl::body EvalStatement::evalObj {script_obj_ptr} {
if {$eval_stmt_debug > 0} {
puts "EVALOBJ!$script_obj_ptr!"
}
    set retcode [::Interp::string2ReturnCode OK]
    set line_no 0
    set had_comment false
    set argv [list]
    set argc 0

    incr eval_level
if {$eval_stmt_debug > 0} {
puts "EVALOBJ 1a level!$eval_level![$script_obj_ptr toDebugString]!"
if {$eval_stmt_debug > 1} {
puts "EVALOBJ 1b level!$eval_level![$script_obj_ptr mySelf]!"
}

      if {$macro_cmd_level == $eval_level} {
        set had_macro_cmd false
      }
      incr eval_level -1
      return true
    }
puts "EVALOBJ5"
    if {[[$script getScriptObject] getLen] == 3
        && [[[lindex [[$script getScriptObject] getTokens] 1] getObjptr] getObjType] == [::Interp::string2ObjType OBJ_TYPE_COMMAND]
	    && [[[[[[lindex [$script getScriptObject] getTokens] 1] getObjPtr] cmdValue_GetResolvedCmdNamePtr] getCmdPtr] getIsProc] == false
        && [[[[[[lindex [$script getScriptobject] getTokens] 1] getObjPtr] cmdValue_GetResolvedCmdNamePtr] getCmdPtr] getName] eq "incr"
        && [[[[lindex [$script getScriptObject] getTokens] 2] getObjPtr] getObjType] == [::Interp::string2ObjType OBJ_TYPE_VARIABLE]} {

      set obj_ptr [::Interp::variable_obj_type getVariable(script.script_object.tokens.get(2).obj_ptr, FUNCTION_FLAGS_NONE, var_ptr]

      if {$obj_ptr != [list] && ![$obj_ptr isShared] && [$obj_ptr getObjType] == [::Interp::string2ObjType OBJ_TYPE_INT]} {
#FIXME!!        JimWideValue(obj_ptr)++;
        $obj_ptr invalidateStringRep
        $script_obj_ptr decrRefCount "D_EVAL_STATEMENT_5"
        ::Interp::setResult $obj_ptr
        if {$macro_cmd_level == $eval_level} {
          set ad_macro_cmd false
        }
        # can only uncomment, if JimWideValue above is fixed!!
#        eval_level--;
#        return OK;
      }
    }
puts "EVALOBJ6"
    # Now we have to make sure the internal repr will not be
    # freed on shimmering.

    #
    # Think for example to this:

    #
    # set x {llength $x; ... some more code ...}; eval $x

    #
    # In order to preserve the internal rep, we increment the
    # inUse field of the script internal rep structure. 

    [$script getScriptObject] setRefCount [expr {[[$script getScriptObject] getRefCount] + 1}]
    set token [[$script getScriptObject] getTokens]
    # Execute every command sequentially until the end of the script
    # or an error occurs.

puts "EVALOBJ7"




    set i 0

    while {$i < [[$script getScriptObject] getLen] && $retcode == [::Interp::string2ReturnCode OK]} {
      set num_comments 0

      # First token of the line is always TOKEN_LINE 
puts "I0!$i!"
      set argc [[[lindex $token $i] getObjPtr] scriptLineValue_GetArgc]
puts "I!$i!$argc![::Parser::Token::token2String [[lindex $token $i] getToken]]![[[lindex $token $i] getObjPtr] toDebugString]!"


      set line_no [[[lindex $token $i] getObjPtr] scriptLineValue_GetLine]
      # Skip the TOKEN_LINE token 
      incr i
      # Populate the arguments objects.
      # If an error occurs, retcode will be set and
      # 'j' will be set to the number of args expanded
      
      set had_comment false
      set j 0
while {$j < $argc} {
if {$eval_stmt_debug > -2} {

puts "all J!$j![::Parser::Token::token2String [lindex $token [expr {$j + $i}]] getToken]![lindex $token [expr {$j + $i}] getObjPtr]!"
}              
incr j
}
      set j 0
      while {$j < $argc} {
puts "J!$j!$argc!$argv!"
        set word_tokens 1
        set expand false
        set word_obj_ptr [list]

if {$eval_stmt_debug > -2} {

puts "J!$j![::Parser::Token::token2String [[lindex $token $i] getToken]]![[lindex $token $i] getObjPtr]!"
if {$eval_stmt_debug > 1} {
puts "evalObj dump1 i!$i!"
$script dumpToken $i
puts "J!$j![::Parser::Token::token2String [[lindex $token $i] getToken]]![[[lindex $token $i] getObjPtr] toDebugString]!"
}
}
        if {[[lindex $token $i] getToken] == [::Parser::Token::string2Token TOKEN_WORD]} {
# $script DumpToken $i
          set word_tokens [[[lindex $token $i] getObjPtr] wideValue_GetValue]
	  incr i
          if {$word_tokens < 0} {
            set expand true
            set word_tokens [expr {-$word_tokens}]
          }
        }
        set had_comment false
        if {$word_tokens == 1} {
          # Fast path if the token does not
          # need interpolation 

puts "word_tokens 1!"
if {$eval_stmt_debug > -2} {
puts "evalObj dump2 i!$i!"
$script dumpToken $i
puts "argv!$argv!"
}
          switch (token.get(i).token) {
          case TOKEN_COMMENT:
            had_comment = true;
            num_comments++;
            break;
          case TOKEN_QUOTE_ESC:

      incr i
    }
    set line_no [[lindex $parse_token_list 0] getLine]
    $script_object setLine $line_no
    $script_object setTokens [list]
    set i 0
    while {$i < $count} {
      set script_token [uplevel #0 ::Parser::ScriptToken #auto]
      $script_object addToken $script_token
      incr i
    }
    set token_idx 0
    # This is the first token for the current command
    set token_list_idx 0
    set line_first_idx $token_idx

    if {$debug_script > 0} {
      set str "line=$line, argc=$argc"
      set obj_ptr [$::Interp::string_obj_type newStringObj $str -1 "SCRIPT_LINE_OBJ_TYPE_1"]
    } else {
      set obj_ptr [$::Interp::string_obj_type newEmptyStringObj "SCRIPT_LINE_OBJ_TYPE_2"]
    }
    $obj_ptr setObjType [::Interp::string2ObjType OBJ_TYPE_SCRIPT_LINE]
    $obj_ptr scriptLineValue_SetArgc $argc
    $obj_ptr scriptLineValue_SetLine $line

    return $obj_ptr
  }

}

  # ==================== setSourceInfo ==================================
::itcl::body SourceObjType::setSourceInfo {obj_ptr file_name_ptr line_number} {
    ::Interp::panic [$obj_ptr isShared] "setSourceInfo called with shared object"
    ::Interp::panic [expr {[$obj_ptr getObjType] < 0}] "setSourceInfo called with obj_type < 0"
    $file_name_ptr incrRefCount "I_SOURCE_OBJ_TYPE_2"
    $obj_ptr sourceValue_SetFileNameObj $file_name_ptr
    $obj_ptr sourceValue_SetLineNumber $line_number
    $obj_ptr setObjType [::Interp::string2ObjType OBJ_TYPE_SOURCE]
  }

}