suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

reader: fix parsing of here strings

Browse Source
This commit is contained in:
Matthew Flatt 2018-02-26 14:59:25 -07:00
parent 61fffa4646
commit 014441bceb
3 changed files with 24 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/racket-test-core/tests/racket/read.rktl
View File

@ -213,6 +213,12 @@
(err/rt-test (readstr "\"\\uD800\\uDD\"") exn:fail:read?) (err/rt-test (readstr "\"\\uD800\\uDD\"") exn:fail:read?)
(err/rt-test (readstr "\"\\uD800\\uDD1\"") exn:fail:read?) (err/rt-test (readstr "\"\\uD800\\uDD1\"") exn:fail:read?)
(test "abc" readstr "#<<EOS\nabc\nEOS\n")
(test "abc" readstr "#<<EOS\nabc\nEOS")
(test "ok\r\nmore\r" readstr "#<<EOS\r\nok\r\nmore\r\nEOS\r")
(err/rt-test (readstr "#<<EOS\nabc\nEO") exn:fail:read?)
(err/rt-test (readstr "#<<EOS\r\nabc\nEOS") exn:fail:read?)
(test (bytes 7) readstr "#\"\\a\"") (test (bytes 7) readstr "#\"\\a\"")
(test (bytes 8) readstr "#\"\\b\"") (test (bytes 8) readstr "#\"\\b\"")
(test (bytes 9) readstr "#\"\\t\"") (test (bytes 9) readstr "#\"\\t\"")

4
racket/src/expander/read/string.rkt
View File

@ -171,6 +171,8 @@
;; Parse terminator ;; Parse terminator
(define full-terminator (define full-terminator
(cons
#\newline
(let loop () (let loop ()
(define c (read-char/special in config source)) (define c (read-char/special in config source))
(cond (cond
@ -181,7 +183,7 @@
(reader-error in config #:due-to c (reader-error in config #:due-to c
"found non-character while reading `#<<`")] "found non-character while reading `#<<`")]
[(char=? c #\newline) null] [(char=? c #\newline) null]
[else (cons c (loop))]))) [else (cons c (loop))]))))
;; Get string content ;; Get string content
(let loop ([terminator full-terminator] [terminator-accum null]) (let loop ([terminator full-terminator] [terminator-accum null])

4
racket/src/racket/src/startup.inc
View File

@ -51999,6 +51999,8 @@ static const char *startup_source =
"(let-values(((source_28)(read-config-source config_48)))" "(let-values(((source_28)(read-config-source config_48)))"
"(let-values(((accum-str_5)(accum-string-init! config_48)))" "(let-values(((accum-str_5)(accum-string-init! config_48)))"
"(let-values(((full-terminator_0)" "(let-values(((full-terminator_0)"
"(cons"
" '#\\newline"
"((letrec-values(((loop_112)" "((letrec-values(((loop_112)"
"(lambda()" "(lambda()"
"(begin" "(begin"
@ -52041,7 +52043,7 @@ static const char *startup_source =
"(if(char=? c_87 '#\\newline)" "(if(char=? c_87 '#\\newline)"
"(let-values() null)" "(let-values() null)"
"(let-values()(cons c_87(loop_112)))))))))))" "(let-values()(cons c_87(loop_112)))))))))))"
" loop_112))))" " loop_112)))))"
"(let-values((()" "(let-values((()"
"(begin" "(begin"
"((letrec-values(((loop_113)" "((letrec-values(((loop_113)"