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

mes: resurrect running MesCC: handle \t in strings.

Browse source 
* module/mes/read-0.mes (reader:read-string): Handle \t.  Fixex M1 output.
This commit is contained in:
Jan Nieuwenhuizen 2017-11-20 23:22:53 +01:00
parent e81cb61b87
commit 7fb74feb46
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -273,6 +273,9 @@
((and (eq? c 92) (eq? p 110)) ((and (eq? c 92) (eq? p 110))
(read-byte) (read-byte)
(reader:read-string (read-byte) (peek-byte) (append-char s 10))) (reader:read-string (read-byte) (peek-byte) (append-char s 10)))
((and (eq? c 92) (eq? p 116))
(read-byte)
(reader:read-string (read-byte) (peek-byte) (append-char s 9)))
((eq? c 34) s) ((eq? c 34) s)
((eq? c -1) (error (quote EOF-in-string) (cons c s))) ((eq? c -1) (error (quote EOF-in-string) (cons c s)))
(#t (reader:read-string (read-byte) (peek-byte) (append-char s c))))) (#t (reader:read-string (read-byte) (peek-byte) (append-char s c)))))