if(interp.code == this.BREAK || interp.code == this.CONTINUE)
      interp.code = this.OK;
    return "";
  });

  /* ==================== command foreach ===================================== */
  interp.registerCommand("::foreach", function (interp, args) {
    args.shift();
    this.requireExactArgc(args, 3, "foreach", "");
    var var_list = args.shift()
    var_list = var_list.toList();
    var list = args.shift();
    list = list.toList();
    var body = args.shift();
    var res  = "";
    interp.eval_statement.inLoop = true;
    interp.eval_statement.code = this.OK;
    var i = 0;
    while (i < list.length) {
       for (var j = 0; j < var_list.length; j++) {
           var var_name = var_list[j];
	   var var_value = "";
	   if (i < list.length) {
	       var_value = list[i];
	       i++;
	   }
           interp.setVar(var_name,interp.statement_parser.objectify(var_value));
       }
       res = interp.eval_statement.eval(body);
       if(interp.eval_statement.code == this.BREAK) {
         break;
       }
       if(interp.eval_statement.code == this.RETURN) {
         break;
       }
       if(interp.eval_statement.code == this.CONTINUE) {
         continue;
       }
    }
    interp.eval_statement.inLoop = false;
    if(interp.eval_statement.code == this.BREAK || interp.eval_statement.code == this.CONTINUE) {
      interp.eval_statement.code = this.OK;
    }
    return res;
  });

  /* ==================== command format ===================================== */
  interp.registerCommand("::format", function (interp, args) {
    this.requireMinArgc(args, 2, "format", "");
    throw "format not yet implemented";
  });

    this.requireExactArgc(args, 3, "rename", "");
    interp.renameCommand(args[1], args[2]);
  });

  /* ==================== command return ===================================== */
  interp.registerCommand("::return", function (interp, args) {
//print("return!"+args+"!");
    /* strip of the command name at the beginning */
    args.shift();
    this.requireMinArgc(args, 0, "return", "");
    var errorcode = null;
    var errorinfo = null;
    var level = null;
    var options = null;
    var allowed_codes = new Object();




    allowed_codes["ok"] = 0;
    allowed_codes["error"] = 1;
    allowed_codes["return"] = 2;
    allowed_codes["break"] = 3;
    allowed_codes["continue"] = 4;
    allowed_codes["0"] = 0;
    allowed_codes["1"] = 1;
    allowed_codes["2"] = 2;
    allowed_codes["3"] = 3;
    allowed_codes["4"] = 4;
    var allowed_options = new Object();
    allowed_options["-code"] = 1;
    allowed_options["-errorcode"] = 1;
    allowed_options["-errorinfo"] = 1;
    allowed_options["-level"] = 1;
    allowed_options["-options"] = 1;
    interp.eval_statement.code = this.RETURN;
    var r = "";
    if (args.length == 1) {
      /* seems to be a return value only */
      r = args.shift();
    }
    var options = this.GetOptions(allowed_options, "::return", args);

    for (i = 0; i < this.numOptionFields; i++) {
      args.shift();
    }
    if (args.length > 1) {
      throw "usage: return ?option value ...? ?result?"
    }
    if (args.length > 0) {
      r = args.shift();
    }
    if (typeof options["-errorcode"] != "undefined") {
        errorcode = options["-errorcode"] ;
	throw "return -errorcode not yet implemented"
    }
    if (typeof options["-code"] != "undefined") {
        code = options["-code"];
        if (typeof allowed_codes[code] == "undefined") {
          throw "bad code \""+code+"\" for -code option in return"
        }
	interp.eval_statement.code = allowed_codes[code];
	if (interp.code == this.ERROR) {
	  this.SetErrorCode(interp, r);
          throw r;
	}
    }
    if (typeof options["-errorinfo"] != "undefined") {
        errorinfo = options["-errorinfo"] ;
	throw "return -errorinfo not yet implemented"
    }
    if (typeof options["-level"] != "undefined") {
        level = options["-level"];
	throw "return -level not yet implemented"
    }
    if (typeof options["-options"] != "undefined") {
        options = options["-options"];
	throw "return -options not yet implemented"
    }
    return r;
  });

  /* ==================== command scan ===================================== */
  interp.registerCommand("::scan", function (interp, args) {
    this.requireMinArgc(args, 2, "scan", "");