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

Performance improvements

Browse source
This commit is contained in:
Justin Ethier 2016-10-18 21:27:58 -04:00
parent fb54796d53
commit 3ee2b290fb
1 changed files with 26 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
scheme/read.sld
View file

@ -36,16 +36,31 @@
;; TODO: unreg-port - delete fp entry from *in-port-table* ;; TODO: unreg-port - delete fp entry from *in-port-table*
;; would want to do this when port is closed ;; would want to do this when port is closed
(define (in-port:get-buf ptbl) (cadr ptbl))
(define (in-port:get-lnum ptbl) (caddr ptbl))
(define (in-port:get-cnum ptbl) (cadddr ptbl))
;(define in-port:get-buf cadr)
;(define in-port:get-lnum caddr)
;(define in-port:get-cnum cadddr)
(define (in-port:set-buf! ptbl buf) (set-car! (cdr ptbl) buf))
(define (in-port:set-lnum! ptbl lnum) (set-car! (cddr ptbl) lnum))
(define (in-port:set-cnum! ptbl cnum) (set-car! (cdddr ptbl) cnum))
;(define-syntax in-port:set-buf!
; (er-macro-transformer
; (lambda (e r c)
; `(set-car! (cdr ,(cadr e)) ,(caddr e)))))
;(define-syntax in-port:set-lnum!
; (er-macro-transformer
; (lambda (e r c)
; `(set-car! (cddr ,(cadr e)) ,(caddr e)))))
;(define-syntax in-port:set-cnum!
; (er-macro-transformer
; (lambda (e r c)
; `(set-car! (cdddr ,(cadr e)) ,(caddr e)))))
(define (in-port:read-buf! ptbl) (define (in-port:read-buf! ptbl)
(let ((result (cadr ptbl))) (let ((result (cadr ptbl)))
(in-port:set-buf! ptbl #f) (in-port:set-buf! ptbl #f)
result)) result))
(define (in-port:get-buf ptbl) (cadr ptbl))
(define (in-port:set-buf! ptbl buf) (set-car! (cdr ptbl) buf))
(define (in-port:get-lnum ptbl) (caddr ptbl))
(define (in-port:set-lnum! ptbl lnum) (set-car! (cddr ptbl) lnum))
(define (in-port:get-cnum ptbl) (cadddr ptbl))
(define (in-port:set-cnum! ptbl cnum) (set-car! (cdddr ptbl) cnum))
;; END input port table ;; END input port table
;; Helper functions ;; Helper functions
@ -321,12 +336,12 @@
(parse-number fp toks all? parens ptbl (parse-number fp toks all? parens ptbl
10 (lambda (num) 10 (lambda (num)
(exact (exact
(parse-atom num))))) (string->number (list->string num))))))
((eq? #\i next-c) ((eq? #\i next-c)
(parse-number fp toks all? parens ptbl (parse-number fp toks all? parens ptbl
10 (lambda (num) 10 (lambda (num)
(inexact (inexact
(parse-atom num))))) (string->number (list->string num))))))
((eq? #\b next-c) ((eq? #\b next-c)
(parse-number fp toks all? parens ptbl (parse-number fp toks all? parens ptbl
2 (lambda (num) (string->number (list->string num) 2)))) 2 (lambda (num) (string->number (list->string num) 2))))
@ -515,11 +530,9 @@
;; parse-atom -> [chars] -> literal ;; parse-atom -> [chars] -> literal
(define (parse-atom a) (define (parse-atom a)
(cond (if (token-numeric? a)
((token-numeric? a) (string->number (list->string a))
(string->number (list->string a))) (string->symbol (list->string a))))
(else
(string->symbol (list->string a)))))
;;;;; ;;;;;
;; Read next character from port, using buffered char if available ;; Read next character from port, using buffered char if available