summaryrefslogtreecommitdiff
path: root/src/libbasic/escape.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/libbasic/escape.c')
-rw-r--r--src/libbasic/escape.c28
1 files changed, 28 insertions, 0 deletions
diff --git a/src/libbasic/escape.c b/src/libbasic/escape.c
index 2e483880c8..01daf11ce7 100644
--- a/src/libbasic/escape.c
+++ b/src/libbasic/escape.c
@@ -413,6 +413,34 @@ char *xescape(const char *s, const char *bad) {
return r;
}
+char *octescape(const char *s, size_t len) {
+ char *r, *t;
+ const char *f;
+
+ /* Escapes all chars in bad, in addition to \ and " chars,
+ * in \nnn style escaping. */
+
+ r = new(char, len * 4 + 1);
+ if (!r)
+ return NULL;
+
+ for (f = s, t = r; f < s + len; f++) {
+
+ if (*f < ' ' || *f >= 127 || *f == '\\' || *f == '"') {
+ *(t++) = '\\';
+ *(t++) = '0' + (*f >> 6);
+ *(t++) = '0' + ((*f >> 3) & 8);
+ *(t++) = '0' + (*f & 8);
+ } else
+ *(t++) = *f;
+ }
+
+ *t = 0;
+
+ return r;
+
+}
+
static char *strcpy_backslash_escaped(char *t, const char *s, const char *bad) {
assert(bad);