New function: str-esc.

* lib.[ch] (str_esc): New function.

* eval.c (eval_init): str-esc intrinsic registered.

* tests/015/esc.tl: New file.

* txr.1: Documented.

1 files changed, 20 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index e5d01387..422dbe57 100644
--- a/lib.c
+++ b/lib.c
@@ -6400,6 +6400,26 @@ val trim_str(val str)
   }
 }
 
+val str_esc(val escset, val escchr, val str)
+{
+  val self = lit("shell-escape");
+  val out = mkstring(zero, chr(' '));
+  const wchar_t *s = c_str(str, self);
+  const wchar_t *es = c_str(escset, self);
+  wchar_t ch;
+
+  while ((ch = *s++)) {
+    if (wcschr(es, ch)) {
+      string_extend(out, escchr, nil);
+      string_extend(out, chr(ch), nil);
+    } else {
+      string_extend(out, chr(ch), nil);
+    }
+  }
+
+  return string_finish(out);
+}
+
 val cmp_str(val astr, val bstr)
 {
   val self = lit("cmp-str");