Support #\alarm, #\vtab.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 18 Dec 2016 14:21:05 +0000 (15:21 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 18 Dec 2016 14:21:05 +0000 (15:21 +0100)
* mes.c (char_alarm): New variable.
  (char_vtab): Rename from char_vt.
* reader.c (read_character): Add alarm, update vtab.
* display.c (display): Likewise.
* module/language/c/lexer.mes (read-string): Use vtab.

display.c
mes.c
module/language/c/lexer.mes
reader.c

index 14053a344ff59db7a7d26a847f9a06a73eee70a4..0c0e03d4292cc22997cfd437bd6d43a01597036d 100644 (file)
--- a/display.c
+++ b/display.c
@@ -58,10 +58,11 @@ display_helper (FILE* f, SCM x, bool cont, char const *sep, bool quote)
       {
         char const *name = 0;
         if (VALUE (x) == char_nul.value) name = char_nul.name;
+        else if (VALUE (x) == char_alarm.value) name = char_alarm.name;
         else if (VALUE (x) == char_backspace.value) name = char_backspace.name;
         else if (VALUE (x) == char_tab.value) name = char_tab.name;
         else if (VALUE (x) == char_newline.value) name = char_newline.name;
-        else if (VALUE (x) == char_vt.value) name = char_vt.name;
+        else if (VALUE (x) == char_vtab.value) name = char_vtab.name;
         else if (VALUE (x) == char_page.value) name = char_page.name;
         else if (VALUE (x) == char_return.value) name = char_return.name;
         else if (VALUE (x) == char_space.value) name = char_space.name;
diff --git a/mes.c b/mes.c
index 1ca53e0777034e2aa7dae6135161c213c04fc499..67c7fcba97b118a9f5b4944ebefc0a3bc380f670 100644 (file)
--- a/mes.c
+++ b/mes.c
@@ -131,10 +131,11 @@ scm scm_symbol_cons = {SYMBOL, "cons"};
 
 scm char_eof = {CHAR, .name="*eof*", .value=-1};
 scm char_nul = {CHAR, .name="nul", .value=0};
+scm char_alarm = {CHAR, .name="alarm", .value=8};
 scm char_backspace = {CHAR, .name="backspace", .value=8};
 scm char_tab = {CHAR, .name="tab", .value=9};
 scm char_newline = {CHAR, .name="newline", .value=10};
-scm char_vt = {CHAR, .name="vt", .value=11};
+scm char_vtab = {CHAR, .name="vtab", .value=11};
 scm char_page = {CHAR, .name="page", .value=12};
 scm char_return = {CHAR, .name="return", .value=13};
 scm char_space = {CHAR, .name="space", .value=32};
index 45a6e17ed44bf1988fc39ca89c4318445bf13977..265b3e28f87281dfb7f635412b50a43f17f173a1 100644 (file)
             ((#\n) #\newline)
             ((#\r) #\return)
             ((#\t) #\tab)
-            ((#\v) #\vt)
+            ((#\v) #\vtab)
             ((#\0)
              (let ((next (peek-char)))
                (cond
     ;;(display "next-token c=") (display c) (newline)
 
     (case c
-      ((#\tab #\vt #\page #\space ;;#\x00A0
+      ((#\tab #\vtab #\page #\space ;;#\x00A0
         ) ; whitespace
        (read-char)
        (next-token div?))
index 30cd8b0815056330589cbcd3ae5e2bbdcf1c1684..5fb081cf4ca2abb22704c61c097cbf5e1b96554b 100644 (file)
--- a/reader.c
+++ b/reader.c
@@ -122,10 +122,11 @@ read_character ()
     }
     *p = 0;
     if (!strcmp (buf, char_nul.name)) c = char_nul.value;
+    else if (!strcmp (buf, char_alarm.name)) c = char_alarm.value;
     else if (!strcmp (buf, char_backspace.name)) c = char_backspace.value;
     else if (!strcmp (buf, char_tab.name)) c = char_tab.value;
     else if (!strcmp (buf, char_newline.name)) c = char_newline.value;
-    else if (!strcmp (buf, char_vt.name)) c = char_vt.value;
+    else if (!strcmp (buf, char_vtab.name)) c = char_vtab.value;
     else if (!strcmp (buf, char_page.name)) c = char_page.value;
     else if (!strcmp (buf, char_return.name)) c = char_return.value;
     else if (!strcmp (buf, char_space.name)) c = char_space.value;