Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-21 14:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Higher-level handler for parse2

Browse source
This commit is contained in:
Justin Ethier 2017-08-16 11:04:52 +00:00
parent 94f15d699e
commit 4b7386dedf
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
read.scm
View file

@ -702,7 +702,7 @@
" return_closcall1(data, k, equalp( opaque_ptr(opq), obj ));") " return_closcall1(data, k, equalp( opaque_ptr(opq), obj ));")
(write (write
(parse2 (open-input-file "test.scm"))) (call-parse2 (open-input-file "test.scm")))
;(read-token (open-input-file "test.scm"))) ;(read-token (open-input-file "test.scm")))
;TODO: getting there, but still not parsed correctly: ;TODO: getting there, but still not parsed correctly:
@ -735,6 +735,12 @@
))) )))
(define (call-parse2 fp)
(let ((result (parse2 fp)))
(if (Cyc-opaque? result)
(error "unexpected closing parenthesis")
result)))
(define (parse2 fp) (define (parse2 fp)
(let ((token (read-token fp))) ;; TODO: this will be a C call (let ((token (read-token fp))) ;; TODO: this will be a C call
;(write `(token ,token)) ;(write `(token ,token))