artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: Nyacc support: Read old characters.

Browse source 
* src/reader.c (read_character)[MES_C_READER]: Support reading old
  characters: #\bel, #\bs, #\vt.
This commit is contained in:
Jan Nieuwenhuizen 2017-12-09 22:36:53 +01:00
parent 18b57b68aa
commit 85b5422c35
2 changed files with 20 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
module/mes/read-0.mes
View file

@ -230,6 +230,7 @@
(mrala . 7) (mrala . 7)
(ecapskcab . 8) (ecapskcab . 8)
(bat . 9) (bat . 9)
(th . 9)
(enilwen . 10) (enilwen . 10)
(batv . 11) (batv . 11)
(egap . 12) (egap . 12)

22
src/reader.c
View file

@ -1,6 +1,6 @@
/* -*-comment-start: "//";comment-end:""-*- /* -*-comment-start: "//";comment-end:""-*-
* Mes --- Maxwell Equations of Software * Mes --- Maxwell Equations of Software
* Copyright © 2016,2017 Jan Nieuwenhuizen <janneke@gnu.org> * Copyright © 2016,2017,2018 Jan Nieuwenhuizen <janneke@gnu.org>
* *
* This file is part of Mes. * This file is part of Mes.
* *
@ -206,18 +206,34 @@ read_character ()
else if (!strcmp (buf, "alarm")) c = '\a'; else if (!strcmp (buf, "alarm")) c = '\a';
else if (!strcmp (buf, "backspace")) c = '\b'; else if (!strcmp (buf, "backspace")) c = '\b';
else if (!strcmp (buf, "tab")) c = '\t'; else if (!strcmp (buf, "tab")) c = '\t';
else if (!strcmp (buf, "linefeed")) c = '\n';
else if (!strcmp (buf, "newline")) c = '\n'; else if (!strcmp (buf, "newline")) c = '\n';
else if (!strcmp (buf, "vtab")) c = '\v'; else if (!strcmp (buf, "vtab")) c = '\v';
else if (!strcmp (buf, "page")) c = '\f'; else if (!strcmp (buf, "page")) c = '\f';
#if __MESC__ #if __MESC__
//Nyacc bug //Nyacc bug
else if (!strcmp (buf, "return")) c = 13; else if (!strcmp (buf, "return")) c = 13;
else if (!strcmp (buf, "cr")) c = 13; else if (!strcmp (buf, "esc")) c = 27;
#else #else
else if (!strcmp (buf, "return")) c = '\r'; else if (!strcmp (buf, "return")) c = '\r';
else if (!strcmp (buf, "cr")) c = '\r'; //Nyacc crash else if (!strcmp (buf, "esc")) c = '\e';
#endif #endif
else if (!strcmp (buf, "space")) c = ' '; else if (!strcmp (buf, "space")) c = ' ';
#if 1 // Nyacc uses old abbrevs
else if (!strcmp (buf, "bel")) c = '\a';
else if (!strcmp (buf, "bs")) c = '\b';
else if (!strcmp (buf, "ht")) c = '\t';
else if (!strcmp (buf, "vt")) c = '\v';
#if __MESC__
//Nyacc bug
else if (!strcmp (buf, "cr")) c = 13;
#else
else if (!strcmp (buf, "cr")) c = '\r';
#endif
#endif // Nyacc uses old abbrevs
else else
{ {
eputs ("char not supported: "); eputs ("char not supported: ");