svn commit: samba r18850 - in branches/SAMBA_4_0/source/scripting/ejs: .

[derrell at samba.org]

Author: derrell
Date: 2006-09-23 19:17:50 +0000 (Sat, 23 Sep 2006)
New Revision: 18850

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=18850

Log:
add strspn() function i ejs
Modified:
   branches/SAMBA_4_0/source/scripting/ejs/smbcalls_string.c


Changeset:
Modified: branches/SAMBA_4_0/source/scripting/ejs/smbcalls_string.c
===================================================================
--- branches/SAMBA_4_0/source/scripting/ejs/smbcalls_string.c	2006-09-23 19:16:42 UTC (rev 18849)
+++ branches/SAMBA_4_0/source/scripting/ejs/smbcalls_string.c	2006-09-23 19:17:50 UTC (rev 18850)
@@ -91,6 +91,22 @@
 
 /*
   usage:
+      var s = strspn(string, legal_chars_string);
+*/
+static int ejs_strspn(MprVarHandle eid, int argc, char **argv)
+{
+        int len;
+	if (argc != 2) {
+		ejsSetErrorMsg(eid, "strspn invalid arguments");
+		return -1;
+	}
+	len = strspn(argv[0], argv[1]);
+	mpr_Return(eid, mprCreateIntegerVar(len));
+	return 0;
+}
+
+/*
+  usage:
      list = split(".", "a.foo.bar");
      list = split(".", "a.foo.bar", count);
 
@@ -493,6 +509,7 @@
 	mprSetStringCFunction(obj, "strlower", ejs_strlower);
 	mprSetStringCFunction(obj, "strupper", ejs_strupper);
 	mprSetStringCFunction(obj, "strstr", ejs_strstr);
+	mprSetStringCFunction(obj, "strspn", ejs_strspn);
 	mprSetCFunction(obj, "split", ejs_split);
 	mprSetCFunction(obj, "join", ejs_join);
 	mprSetCFunction(obj, "sprintf", ejs_sprintf);