36 lines
870 B
Racket
36 lines
870 B
Racket
#lang planet dyoo/whalesong
|
|
(require (planet dyoo/whalesong/js))
|
|
|
|
(define js-plus
|
|
(js-function->procedure "function(x, y) { return x + y; }"))
|
|
|
|
(define js-minus
|
|
(js-function->procedure "function(x, y) { return x - y; }"))
|
|
|
|
(define raw-sleep
|
|
(js-async-function->procedure
|
|
"function(success, fail, n) { setTimeout(function() { success(plt.runtime.VOID);}, n); }"))
|
|
(define (sleep n)
|
|
(unless (real? n)
|
|
(raise-type-error 'sleep "real" n))
|
|
(raw-sleep (inexact->exact (floor (* n 1000))))
|
|
(void))
|
|
|
|
|
|
"plus: " (js-plus 3 4)
|
|
"wait for one second: " (sleep 1)
|
|
"minus:" (js-minus 239748 23)
|
|
|
|
|
|
(for-each (lambda (x)
|
|
(display x)
|
|
(sleep 1))
|
|
'(hello world testing))
|
|
|
|
|
|
;; I need exception handling...
|
|
;;
|
|
;(define i-should-fail
|
|
; (js-async-function->procedure "function(success, fail) { fail('I should fail'); }"))
|
|
;(i-should-fail)
|