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

add stx-string->port

Browse Source
This commit is contained in:
William G Hatch 2016-09-20 23:42:17 -06:00
parent 17dbb37e82
commit e464c48811
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
udelim/main.rkt
View File

@ -5,6 +5,7 @@
make-string-delim-readtable/wrap make-string-delim-readtable/wrap
make-list-delim-readtable make-list-delim-readtable
make-list-delim-readtable/wrap make-list-delim-readtable/wrap
stx-string->port
) )
(require syntax/readerr) (require syntax/readerr)
@ -105,6 +106,18 @@
(define make-list-delim-readtable/wrap (define make-list-delim-readtable/wrap
(make-make-delim-readtable/wrap make-list-reader/wrap)) (make-make-delim-readtable/wrap make-list-reader/wrap))
(define (stx-string->port stx)
(let ([str (syntax->datum stx)]
[line (syntax-line stx)]
[col (syntax-column stx)]
[pos (syntax-position stx)]
[src (syntax-source stx)])
(if (not (string? str))
(error 'stx-string->port "syntax is not a string: ~a~n" stx)
(let ([p (open-input-string str src)])
(port-count-lines! p)
(set-port-next-location! p line col pos)
p))))
(module+ test (module+ test
(require rackunit) (require rackunit)