From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 27 Aug 1991 23:21:20 +0000 (+0000)
Subject: Add C-style character specs inside strings.
X-Git-Tag: 20090517-FFI~10284
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6013c5db17380c574a9755a7dbda09391acd073d;p=mit-scheme.git

Add C-style character specs inside strings.
---

diff --git a/v7/src/runtime/parse.scm b/v7/src/runtime/parse.scm
index 5719ab670..d26597842 100644
--- a/v7/src/runtime/parse.scm
+++ b/v7/src/runtime/parse.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/parse.scm,v 14.13 1990/11/09 08:44:12 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/parse.scm,v 14.14 1991/08/27 23:19:01 jinx Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -423,9 +423,13 @@ MIT in each case. |#
 	  head
 	  (let ((char
 		 (let ((char (read-char)))
-		   (cond ((char-ci=? char #\t) #\Tab)
-			 ((char-ci=? char #\n) #\Newline)
+		   (cond ((char-ci=? char #\n) #\Newline)
+			 ((char-ci=? char #\t) #\Tab)
+			 ((char-ci=? char #\v) #\HT)
+			 ((char-ci=? char #\b) #\BS)
+			 ((char-ci=? char #\r) #\Return)
 			 ((char-ci=? char #\f) #\Page)
+			 ((char-ci=? char #\a) #\BEL)
 			 ((char->digit char 8)
 			  (let ((c2 (read-char)))
 			    (octal->char char c2 (read-char))))
diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index a9abf9a8e..73b6fc271 100644
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.22 1991/06/15 00:08:45 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.23 1991/08/27 23:21:20 jinx Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -330,12 +330,20 @@ MIT in each case. |#
 			   (*unparse-substring string start index)
 			   (*unparse-char #\\)
 			   (let ((char (string-ref string index)))
-			     (cond ((char=? char #\Tab)
-				    (*unparse-char #\t))
-				   ((char=? char char:newline)
+			     (cond ((char=? char char:newline)
 				    (*unparse-char #\n))
+				   ((char=? char #\Tab)
+				    (*unparse-char #\t))
+				   ((char=? char #\VT)
+				    (*unparse-char #\v))
+				   ((char=? char #\BS)
+				    (*unparse-char #\b))
+				   ((char=? char #\Return)
+				    (*unparse-char #\r))
 				   ((char=? char #\Page)
 				    (*unparse-char #\f))
+				   ((char=? char #\BEL)
+				    (*unparse-char #\a))
 				   ((or (char=? char #\\)
 					(char=? char #\"))
 				    (*unparse-char char))