From cdde29b924f3f310382d059938b0c94e209fced7 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 26 Mar 1998 09:07:28 +0000
Subject: String#dump

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/v1_1r@137 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 string.c | 89 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 88 insertions(+), 1 deletion(-)

(limited to 'string.c')

diff --git a/string.c b/string.c
index 3e31a1e247..6a1165ce1e 100644
--- a/string.c
+++ b/string.c
@@ -1423,7 +1423,7 @@ str_inspect(str)
 	    *b++ = '\\';
 	    *b++ = 'f';
 	}
-	else if (c == '\13') {
+	else if (c == '\013') {
 	    CHECK(2);
 	    *b++ = '\\';
 	    *b++ = 'v';
@@ -1449,6 +1449,92 @@ str_inspect(str)
     return str_new(buf, b - buf);
 }
 
+VALUE
+str_dump(str)
+    VALUE str;
+{
+    int len;
+    UCHAR *p, *pend;
+    UCHAR *q, *qend;
+    VALUE result;
+
+    len = 2;			/* "" */
+    p = RSTRING(str)->ptr; pend = p + RSTRING(str)->len;
+    while (p < pend) {
+	UCHAR c = *p++;
+	switch (c) {
+	  case '"':  case '\'':
+	  case '\n': case '\r':
+	  case '\t': case '\f':
+	  case '\013': case '\007': case '\033': 
+	    len += 2;
+	    break;
+
+	  default:
+	    if (isascii(c) && isprint(c)) {
+		len++;
+	    }
+	    else {
+		len += 4;		/* \nnn */
+	    }
+	    break;
+	}
+    }
+
+    result = str_new(0, len);
+    p = RSTRING(str)->ptr; pend = p + RSTRING(str)->len;
+    q = RSTRING(result)->ptr; qend = q + len;
+
+    *q++ = '"';
+    while (p < pend) {
+	UCHAR c = *p++;
+
+	if (c == '"' || c == '\\') {
+	    *q++ = '\\';
+	    *q++ = c;
+	}
+	else if (isascii(c) && isprint(c)) {
+	    *q++ = c;
+	}
+	else if (c == '\n') {
+	    *q++ = '\\';
+	    *q++ = 'n';
+	}
+	else if (c == '\r') {
+	    *q++ = '\\';
+	    *q++ = 'r';
+	}
+	else if (c == '\t') {
+	    *q++ = '\\';
+	    *q++ = 't';
+	}
+	else if (c == '\f') {
+	    *q++ = '\\';
+	    *q++ = 'f';
+	}
+	else if (c == '\13') {
+	    *q++ = '\\';
+	    *q++ = 'v';
+	}
+	else if (c == '\007') {
+	    *q++ = '\\';
+	    *q++ = 'a';
+	}
+	else if (c == 033) {
+	    *q++ = '\\';
+	    *q++ = 'e';
+	}
+	else {
+	    *q++ = '\\';
+	    sprintf(q, "%03o", c);
+	    q += 3;
+	}
+    }
+    *q++ = '"';
+
+    return result;
+}
+
 static VALUE
 str_upcase_bang(str)
     VALUE str;
@@ -2544,6 +2630,7 @@ Init_String()
     rb_define_method(cString, "to_f", str_to_f, 0);
     rb_define_method(cString, "to_s", str_to_s, 0);
     rb_define_method(cString, "inspect", str_inspect, 0);
+    rb_define_method(cString, "dump", str_dump, 0);
 
     rb_define_method(cString, "upcase", str_upcase, 0);
     rb_define_method(cString, "downcase", str_downcase, 0);
-- 
cgit v1.2.3