New: spln and tokn functions.

Instead of trying to work the new count parameter into the spl and
tok functions, it's better to make new ones.

* eval.c (eval_init): spln and tokn intrinsics registered.

* lib.[ch] (spln, tokn): New functions.

* tests/015/split.tl: New test cases.

* txr.1: Documented.

* stdlib/doc-syms.tl: Updated.

1 files changed, 24 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index c4d1bc5c..23fd5008 100644
--- a/lib.c
+++ b/lib.c
@@ -5859,6 +5859,18 @@ val spl(val sep, val arg1, val arg2)
              split_str_keep(arg2, sep, arg1, nil));
 }
 
+val spln(val count, val sep, val arg1, val arg2)
+{
+  val self = lit("spln");
+
+  if (null_or_missing_p(count))
+    uw_throwf(error_s, lit("~a: count ~s isn't an integer"), self, count, nao);
+
+  return if3(missingp(arg2),
+             split_str_keep(arg1, sep, arg2, count),
+             split_str_keep(arg2, sep, arg1, count));
+}
+
 val split_str(val str, val sep)
 {
   return split_str_keep(str, sep, nil, nil);
@@ -5977,6 +5989,18 @@ val tok(val tok_regex, val arg1, val arg2)
              tok_str(arg2, tok_regex, arg1, nil));
 }
 
+val tokn(val count, val tok_regex, val arg1, val arg2)
+{
+  val self = lit("tokn");
+
+  if (null_or_missing_p(count))
+    uw_throwf(error_s, lit("~a: count ~s isn't an integer"), self, count, nao);
+
+  return if3(missingp(arg2),
+             tok_str(arg1, tok_regex, arg2, count),
+             tok_str(arg2, tok_regex, arg1, count));
+}
+
 val tok_where(val str, val tok_regex)
 {
   list_collect_decl (out, iter);