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

fixing the tick-tock example

Browse Source
This commit is contained in:
Danny Yoo 2011-09-10 15:33:05 -04:00
parent 4ba6e6a0c5
commit d372c7dc64
2 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
scribblings/manual.scrbl
View File

@ -394,28 +394,29 @@ Whalesong provides a command-line utility called @tt{whalesong} for
translating Racket to JavaScript. It can be run in several modes: translating Racket to JavaScript. It can be run in several modes:
@itemize[ @itemize[
@item{To create standalone XHTML documents} @item{To create HTML + js documents}
@item{To output the compiled JavaScript as a single @filepath{.js} file} @item{To output the compiled JavaScript as a single @filepath{.js} file}
@item{To output the compiled JavaScript as several @filepath{.js} files, one per module. (this isn't done yet...)}
] ]
Using @tt{whalesong} to generate standalone XHTML documents is Using @tt{whalesong} to generate HTML+js documents is
relatively straightforward with the @tt{build} command. To use it, relatively straightforward with the @tt{build} command. To use it,
pass the name of the file to it: pass the name of the file to it:
@verbatim|{ @verbatim|{
$ whalesong build [name-of-racket-file] $ whalesong build [name-of-racket-file]
}| }|
An @filepath{.xhtml} will be written to the current directory. A @filepath{.html} and @filepath{.js} will be written to the current directory, as will any external resources that the program uses.
Almost all of the @tt{whalesong} commands support two command line options: Almost all of the @tt{whalesong} commands support two command line options:
@itemize{ @itemize{
@item{@verbatim{--compress-javascript}: Use Google Closure's JavaScript @item{@verbatim{--compress-javascript} Use Google Closure's JavaScript
compiler to significantly compress the JavaScript. Using this compiler to significantly compress the JavaScript. Using this
currently requires a Java 1.6 JDK.} currently requires a Java 1.6 JDK.}
@item{@verbatim{--verbose}: write verbose debugging information to standard error.} @item{@verbatim{--verbose} Write verbose debugging information to standard error.}
@item{@verbatim{--dest-dir} Write files to a separate directory, rather than the current directory.}
} }
@ -430,11 +431,10 @@ program.
@subsection{@tt{build}} @subsection{@tt{build}}
Given the name of a program, this builds a standalone Given the name of a program, this builds
@filepath{.xhtml} file into the current working directory that @filepath{.html} and @filepath{.js} files into the current working directory.
executes the program in a web browser.
The @filepath{.xhtml} should be self-contained, with an exception: if The @filepath{.html} and @filepath{.js} should be self-contained, with an exception: if
the file uses any external @tech{resource}s by using the file uses any external @tech{resource}s by using
@racket[define-resource], those resources are written into the current @racket[define-resource], those resources are written into the current
working directory, if they do not already exist there. working directory, if they do not already exist there.
@ -554,7 +554,7 @@ the page itself is a source of state, it too will be passed to
callbacks. This library presents a functional version of the DOM in callbacks. This library presents a functional version of the DOM in
the form of a @tech{view}. the form of a @tech{view}.
@margin-note{Visit @link["http://hashcollision.org/whalesong/examples/tick-tock/tick-tock.html"]{tick-tock.html} to execute this program.}
Let's demonstrate this by creating a basic ticker that counts on the Let's demonstrate this by creating a basic ticker that counts on the
screen every second. screen every second.

13
web-world/examples/tick-tock/tick-tock.rkt
View File

@ -6,19 +6,20 @@
;; draw: world view -> view ;; draw: world view -> view
(define (draw w v) (define (draw w dom)
(update-view-text (view-focus v "counter") w)) (update-view-text (view-focus dom "counter") w))
;; tick: world view -> world ;; tick: world view -> world
(define (tick w v) (define (tick w v)
(printf "Tick ~s\n" w) (add1 w))
(+ w 1))
(define (stop? world dom)
(> world 10))
(big-bang 0 (big-bang 0
(initial-view index.html) (initial-view index.html)
(to-draw draw) (to-draw draw)
(on-tick tick 1) (on-tick tick 1)
(stop-when (lambda (w v) (stop-when stop?))
(> w 10))))