758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
|
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
|
-
-
+
+
+
+
+
+
+
|
/* ==================== command source ===================================== */
interp.registerCommand("::source", function (interp, args) {
if (args.length != 2) {
interp.wrongNumArgs(1, args, 1, "filename");
return interp.ERROR;
}
var source_file = args[1];
interp.setResultString(interp.source(interp, source_file));
var script_obj_ptr = args[1];
script_obj_ptr.incrRefCount();
var prev_script_obj = interp.current_script_obj;
interp.current_script_obj = script_obj_ptr;
interp.setResultString(interp.source(interp, script_obj_ptr));
interp.current_script_obj = prev_script_obj;
script_obj_ptr.decrRefCount();
return interp.OK;
});
/* ==================== command subst ===================================== */
interp.registerCommand("::subst", function (interp, args) {
var flags = interp.FUNCTION_FLAGS_SUBST_FLAG;
var obj_ptr = new Array();
|