Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-07 13:16:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Placeholder for parsing bytevectors

Browse source
This commit is contained in:
Justin Ethier 2016-03-22 21:01:30 -04:00
parent d0914d863f
commit ab73e63f64
1 changed files with 26 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
scheme/read.sld
View file

@ -338,6 +338,32 @@
((eq? #\x next-c) ((eq? #\x next-c)
(parse-number fp toks all? parens ptbl (parse-number fp toks all? parens ptbl
16 (lambda (num) (string->number (list->string num) 16)))) 16 (lambda (num) (string->number (list->string num) 16))))
;; Bytevector (TODO: this is just a placeholder for now)
((eq? #\u next-c)
(set! next-c (read-char fp))
(if (not (eq? #\8 next-c))
(parse-error "Unhandled input sequence"
(in-port:get-lnum ptbl)
(in-port:get-cnum ptbl)))
(set! next-c (read-char fp))
(if (not (eq? #\( next-c))
(parse-error "Unhandled input sequence"
(in-port:get-lnum ptbl)
(in-port:get-cnum ptbl)))
(let ((sub (parse fp '() '() #t #f (+ parens 1) ptbl))
(toks* (get-toks tok toks)))
(define new-toks
(add-tok
(if (and (pair? sub) (dotted? sub))
(parse-error
"Invalid vector syntax" ;(->dotted-list sub)
(in-port:get-lnum ptbl)
(in-port:get-cnum ptbl))
(list->vector sub))
toks*))
(if all?
(parse fp '() new-toks all? #f parens ptbl)
(car new-toks))))
;; Vector ;; Vector
((eq? #\( next-c) ((eq? #\( next-c)
(let ((sub (parse fp '() '() #t #f (+ parens 1) ptbl)) (let ((sub (parse fp '() '() #t #f (+ parens 1) ptbl))