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

still trying to figure out where the time goes

Browse Source
This commit is contained in:
Danny Yoo 2011-09-03 18:06:44 -04:00
parent 794b3a5cd7
commit 3ece0e20cd
2 changed files with 38 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
make/make.rkt
View File

@ -62,20 +62,36 @@
(values ast stmts)])))] (values ast stmts)])))]
[else [else
(let ([ast (let ([ast (get-ast a-source)])
(cond (define start-time (current-inexact-milliseconds))
[(ModuleSource? a-source) (define compiled-code (compile ast 'val next-linkage/drop-multiple))
(parse-bytecode (ModuleSource-path a-source))] (define stop-time (current-inexact-milliseconds))
[(SexpSource? a-source) (printf " compile ast: ~a milliseconds\n" (- stop-time start-time))
(let ([source-code-op (open-output-bytes)]) (values ast compiled-code))]))
(write (SexpSource-sexp a-source) source-code-op)
(parse-bytecode
(open-input-bytes
(get-module-bytecode (: get-ast ((U ModuleSource SexpSource) -> Expression))
(open-input-bytes (define (get-ast a-source)
(get-output-bytes source-code-op))))))])]) (define start-time (current-inexact-milliseconds))
(values ast (: ast Expression)
(compile ast 'val next-linkage/drop-multiple)))])) (define ast (cond
[(ModuleSource? a-source)
(parse-bytecode (ModuleSource-path a-source))]
[(SexpSource? a-source)
(let ([source-code-op (open-output-bytes)])
(write (SexpSource-sexp a-source) source-code-op)
(parse-bytecode
(open-input-bytes
(get-module-bytecode
(open-input-bytes
(get-output-bytes source-code-op))))))]))
(define stop-time (current-inexact-milliseconds))
(printf " get-ast: ~a milliseconds\n" (- stop-time start-time))
ast)

11
web-world/examples/todo/todo.rkt
View File

@ -47,6 +47,7 @@
world)) world))
;; refresh-item-in-view: item view -> view ;; refresh-item-in-view: item view -> view
(define (refresh-item-in-view item view) (define (refresh-item-in-view item view)
(cond (cond
@ -74,9 +75,13 @@
(define the-view (define the-view
(view-bind (view-focus (->view index.html) "add-button") (let* ([v1 (view-bind (view-focus (->view index.html) "add-button")
"click" "click"
on-add)) on-add)]
[v2 (view-bind (view-focus v1 "next-item")
"change"
on-add)])
v2))
(big-bang (list (new-item "milk") (big-bang (list (new-item "milk")