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

mes: display: Display escaped characters.

Browse source 
* module/mes/display.mes (display): Display escaped characters.
This commit is contained in:
Jan Nieuwenhuizen 2018-04-22 20:08:38 +02:00
parent 6be49a294b
commit d3f962c376
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
module/mes/display.mes
View file

@ -54,9 +54,27 @@
(cond ((and write? (or (eq? x #\") (eq? x #\\))) (cond ((and write? (or (eq? x #\") (eq? x #\\)))
(write-char #\\ port) (write-char #\\ port)
(write-char x port)) (write-char x port))
((and write? (eq? x #\nul))
(write-char #\\ port)
(write-char #\0 port))
((and write? (eq? x #\alarm))
(write-char #\\ port)
(write-char #\a port))
((and write? (eq? x #\backspace))
(write-char #\\ port)
(write-char #\b port))
((and write? (eq? x #\tab))
(write-char #\\ port)
(write-char #\t port))
((and write? (eq? x #\newline)) ((and write? (eq? x #\newline))
(write-char #\\ port) (write-char #\\ port)
(write-char #\n port)) (write-char #\n port))
((and write? (eq? x #\vtab))
(write-char #\\ port)
(write-char #\v port))
((and write? (eq? x #\page))
(write-char #\\ port)
(write-char #\f port))
(#t (write-char x port)))) (#t (write-char x port))))
(define (d x cont? sep) (define (d x cont? sep)