/*====================================================
* rapl_pkg_stringcmd.js "A Tcl like language implementation in Javascript named WebRAPL
* (Web Rapid Application Programming Language)"
*
* RAPL string commands implementation
*
* Released under BSD license.
* (BSD license found at <http://www.tcl.tk/software/tcltk/license.html>)
*
* Arnulf Wiedemann 2011
*/
RP.add("rapl-pkg-string", function(R, name) {
function PkgString(interp) {
R.log('constructor called', '2.life', 'PkgString', true);
// kweight
var strg = this;
strg.interp = interp;
var constructor = strg.constructor;
PkgString.superclass.constructor.apply(strg, arguments);
R.Base.pkg_string_oid++;
strg.oid = R.Base.pkg_string_oid;
/* ==================== command string first ===================================== */
interp.registerSubCommand("::string", "first", function (interp, args) {
args.shift();
this.requireArgcRange(args, 2, 3, "string first", "");
var needle_str = args.shift().toString();
var haystack_str = args.shift().toString()
var start_idx = 0;
if (args.length > 0) {
start_idx = parseInt(args.shift().toString());
}
return (haystack_str.indexOf(needle_str, start_idx));
});
/* ==================== command string equal ===================================== */
interp.registerSubCommand("::string", "equal", function (interp, args) {
this.requireExactArgc(args, 3, "string equal", "");
return (args[1].toString() == args[2].toString());
});
/* ==================== command string index ===================================== */
interp.registerSubCommand("::string", "index", function (interp, args) {
this.requireExactArgc(args, 3, "string index", "");
var s = args[1].toString();
try {
return s.charAt(args[1].stringIndex(args[2]));
} catch (e) {
return "";
}
});
/* ==================== command string last ===================================== */
interp.registerSubCommand("::string", "last", function (interp, args) {
args.shift();
this.requireArgcRange(args, 2, 3, "string last", "");
var needle_str = args.shift().toString();
var haystack_str = args.shift().toString()
var start_idx = args.lgth-1;
if (args.length > 0) {
start_idx = parseInt(args.shift().toString());
}
return (haystack_str.lastIndexOf(needle_str, start_idx));
});
/* ==================== command string match ===================================== */
interp.registerSubCommand("::string", "match", function (interp, args) {
args.shift();
this.requireMinArgc(args, 2, "string match", "");
var usage = "string match ?-nocase? pattern string";
var nocase = 0;
var pattern = args.shift().toString();
if (pattern == "-nocase") {
if (args.length < 3) {
throw usage;
}
nocase = 1;
pattern = args.shift().toString();
}
pattern = Tcl.toGlob(interp, pattern);
if (nocase) {
pattern = new RegExp(pattern, "i");
} else {
pattern = new RegExp(pattern);
}
var str = args.shift().toString();
try {
var result = pattern.test(str);
return result;
} catch (e) {
return "";
}
});
/* ==================== command string range ===================================== */
interp.registerSubCommand("::string", "range", function (interp, args) {
this.requireExactArgc(args, 4, "string range", "");
var s = args[1];
try {
var b = s.stringIndex(args[2].toString());
var e = s.stringIndex(args[3].toString());
if (b > e) return "";
return s.toString().substring(b, e + 1);
} catch (e) {
return "";
}
});
/* ==================== command string tolower ===================================== */
interp.registerSubCommand("::string", "tolower", function (interp, args) {
/* strip of the command name at the beginning */
args.shift();
this.requireArgcRange(args, 1, 3, "string tolower", "");
var s = args.shift().toString();
var first = 0;
var last = s.length;
var arg;
/* FIXME need check for first and last boundaries */
if (args.length > 0) {
arg = args.shift();
try {
first = arg.index(arg, s.length);
} catch (e) {
// if (e == "Index out of bounds") {
// return "";
// }
throw e;
}
}
if (args.length > 0) {
arg = args.shift();
last = arg.index(arg, s.length);
}
if (first > last) {
throw "string tolower end index must be equal or greater the start index"
}
var head = "";
if (first > 0) {
head = s.substring(0, first);
}
var mid = s.substring(first, last).toLowerCase();
var tail = "";
if (last < s.length) {
tail = s.substring(last);
}
s = head+mid+tail;
return s;
});
/* ==================== command string toupper ===================================== */
interp.registerSubCommand("::string", "toupper", function (interp, args) {
/* strip of the command name at the beginning */
args.shift();
this.requireArgcRange(args, 1, 3, "string toupper", "");
var s = args.shift().toString();
/* FIXME need check for first and last boundaries */
var first = 0;
if (args.length > 0) {
first = parseInt(args.shift());
}
var last = s.length;
if (args.length > 0) {
var str = args.shift();
last = str.index(str, s.length);
last++;
}
var head = "";
if (first > 0) {
head = s.substring(0, first);
}
var mid = s.substring(first, last).toUpperCase();
var tail = "";
if (last < s.length) {
tail = s.substring(last);
}
s = head+mid+tail;
return s;
});
/* ==================== command string trim ===================================== */
interp.registerSubCommand("::string", "trim", function (interp, args) {
if (args.length != 2 && args.length != 3) {
interp.wrongNumArgs(1, args, "string ?trimchars?");
return interp.ERROR;
}
var trim_chars = (args.length == 3 ? args[2] : null);
var s = args[1];
interp.setResult(interp.string_obj_type.stringTrim(s, trim_chars));
return interp.OK;
});
/* ==================== command string trimleft ===================================== */
interp.registerSubCommand("::string", "trimleft", function (interp, args) {
if (args.length != 2 && args.length != 3) {
interp.wrongNumArgs(1, args, "string ?trimchars?");
return interp.ERROR;
}
var trim_chars = (args.length == 3 ? args[2] : null);
var s = args[1];
interp.setResult(interp.string_obj_type.stringTrimLeft(s, trim_chars));
return interp.OK;
});
/* ==================== command string trimright ===================================== */
interp.registerSubCommand("::string", "trimright", function (interp, args) {
if (args.length != 2 && args.length != 3) {
interp.wrongNumArgs(1, args, "string ?trimchars?");
return interp.ERROR;
}
var trim_chars = (args.length == 3 ? args[2] : null);
var s = args[1];
interp.setResult(interp.string_obj_type.stringTrimRight(s, trim_chars));
return interp.OK;
});
R.log('constructor end', '2.life', 'PkgString', true);
}
R.extend(PkgString, R.Token, {
my_name: "PkgString",
});
PkgString.prototype.constructor = PkgString;
R.PkgString = PkgString;
}, "0.0.1", {});