return interp.OK;
  });

  /* ==================== command source ===================================== */
  interp.registerCommand("::source", function (interp, args) {
    var script_obj_ptr;
    var prev_script_obj;
    var ret_code;

    if (args.length != 2) {
      interp.wrongNumArgs(1, args, 1, "filename");
      return interp.ERROR;
    }
    script_obj_ptr = args[1];
    script_obj_ptr.incrRefCount();
    prev_script_obj = interp.current_script_obj;

    interp.current_script_obj = script_obj_ptr;
    ret_code = interp.source(interp, script_obj_ptr);
    interp.current_script_obj = prev_script_obj;
    script_obj_ptr.decrRefCount();
    return ret_code;
  });

  /* ==================== command split ===================================== */
  interp.registerCommand("::split", function (interp, args) {
//print("split!"+args+"!");
    var script_obj_ptr;
    var str;

    }
    if (script && script.getString() == "-") {
        interp.setResultFormatted("no body specified for pattern \"%#s\"", case_list[i - 2]);
        return interp.ERROR;
    }
    interp.setEmptyResult();
    if (script) {
      var retval = interp.eval_statement.evalObj(script);
      return retval;
    }
    return interp.OK;
  });

  /* ==================== sec_msec ===================================== */
  function sec_msec () {
    var t = new Date();

    } else {
      var n = 1;
    }
    var t0 = sec_msec();
//var xx = interp.string_obj_type.newStringObj("10", -1);
//var yy = interp.string_obj_type.newStringObj("a", -1);
    for(var i = 0; i < n; i++) {
      var retval = interp.eval_statement.evalObj(code);
//        interp.setVar("a", xx);
//        interp.variable_obj_type.setVariable(yy, xx);
    }
//print("TT!"+((sec_msec()-t0)*1000/n + " microseconds per iteration")+"!");
    interp.setResult(interp.string_obj_type.newStringObj((sec_msec()-t0)*1000/n + " microseconds per iteration", -1));
    return interp.OK;
  });

      if ((ret_code = interp.eval_expression.getBoolFromExpr(args[1], bool)) != interp.OK) {
        return ret_code;
      }
      bool = bool[0];
      if (!bool) {
        break;
      }
      ret_code = interp.eval_statement.evalObj(args[2]);
      if (ret_code != interp.OK) {
        switch (ret_code) {
        case interp.BREAK:
          out = true;
          break;
        case interp.CONTINUE:
          continue;
          break;