whalesong/web-world/racket-impl.rkt

#lang racket/base

(provide big-bang initial-view stop-when
         on-tick
         on-location-change on-mock-location-change
         to-draw

         ->view
         view?

         view-focus? view-focus
         view-left view-right view-up view-down
         view-left? view-right? view-up? view-down?

         view-forward?
         view-forward
         view-backward?
         view-backward
         
         view-text update-view-text
         view-attr view-has-attr? update-view-attr remove-view-attr
         view-css update-view-css
         view-id

         view-bind

         view-form-value
         update-view-form-value

         view-show
         view-hide
         view-append-child
         view-insert-right
         view-insert-left


         

         view-remove
         
         open-output-element

         xexp?
         xexp->dom
         view->xexp
         )


(define (big-bang world . handlers)
  (error 'big-bang "Please run in JavaScript context."))

(define (initial-view a-view-or-resource)
  (error 'initial-view "Please run in JavaScript context."))

(define (stop-when f)
  (error 'stop-when "Please run in JavaScript context."))

(define on-tick
  (case-lambda [(f)
                (error 'on-tick "Please run in JavaScript context.")]
               [(f delay)
                (error 'on-tick "Please run in JavaScript context.")]))


(define on-location-change
  (case-lambda [(f)
                (error 'on-location-change "Please run in JavaScript context.")]
               [(f delay)
                (error 'on-location-change "Please run in JavaScript context.")]))


(define on-mock-location-change
  (case-lambda [(f)
                (error 'on-mock-location-change "Please run in JavaScript context.")]
               [(f delay)
                (error 'on-mock-location-change "Please run in JavaScript context.")]))



(define (to-draw w)
  (error 'to-draw "Please run in JavaScript context."))

(define (->view x)
  (error '->view "Please run in JavaScript context."))

(define (view? x)
  (error 'view? "Please run in JavaScript context."))



(define (view-focus? v selector)
  (error 'view-focus? "Please run in JavaScript context."))

(define (view-focus v selector)
  (error 'view-focus "Please run in JavaScript context."))

(define (view-text v)
  (error 'view-text "Please run in JavaScript context."))



(define (view-left v)
  (error 'view-left "Please run in JavaScript context."))

(define (view-right v)
  (error 'view-right "Please run in JavaScript context."))

(define (view-up v)
  (error 'view-up "Please run in JavaScript context"))

(define (view-down v)
  (error 'view-down "Please run in JavaScript context"))



(define (view-left? v)
  (error 'view-left? "Please run in JavaScript context."))

(define (view-right? v)
  (error 'view-right? "Please run in JavaScript context."))

(define (view-up? v)
  (error 'view-up? "Please run in JavaScript context"))

(define (view-down? v)
  (error 'view-down? "Please run in JavaScript context"))

(define (view-forward? v)
  (error 'view-forward? "Please run in JavaScript context"))

(define (view-backward? v)
  (error 'view-backward? "Please run in JavaScript context"))

(define (view-forward v)
  (error 'view-forward "Please run in JavaScript context"))

(define (view-backward v)
  (error 'view-backward "Please run in JavaScript context"))





(define (update-view-text v text)
  (error 'update-view-text "Please run in JavaScript context."))


(define (view-attr v attr-name)
  (error 'view-attr "Please run in JavaScript context."))

(define (view-has-attr? v attr-name)
  (error 'view-has-attr? "Please run in JavaScript context."))

(define (update-view-attr v attr-name value)
  (error 'update-view-attr "Please run in JavaScript context."))

(define (remove-view-attr v attr-name)
  (error 'remove-view-attr "Please run in JavaScript context."))




(define (view-css v attr-name)
  (error 'view-css "Please run in JavaScript context."))

(define (update-view-css v attr-name value)
  (error 'update-view-css "Please run in JavaScript context."))



(define (view-id v)
  (error 'view-id "Please run in JavaScript context."))


(define (view-bind v type worldF)
  (error 'view-bind "Please run in JavaScript context."))

(define (view-form-value view)
  (error 'view-form-value "Please run in JavaScript context."))

(define (update-view-form-value view val)
  (error 'view-form-value "Please run in JavaScript context."))


(define (view-show view)
  (error 'view-show "Please run in JavaScript context."))

(define (view-hide view)
  (error 'view-hide "Please run in JavaScript context."))


(define (view-remove view)
  (error 'view-delete "Please run in JavaScript context."))


(define (view-append-child view dom)
  (error 'view-append "Please run in JavaScript context."))

(define (view-insert-right view dom)
  (error 'view-insert-right "Please run in JavaScript context."))

(define (view-insert-left view dom)
  (error 'view-insert-left "Please run in JavaScript context."))


(define (open-output-element id)
  (error 'open-output-element "Please run in JavaScript context."))


(define (xexp? x)
  (error 'xexp? "Please run in JavaScript context."))

(define (xexp->dom x)
  (error 'xexp->dom "Please run in JavaScript context."))


(define (view->xexp x)
  (error 'view->xexp "Please run in JavaScript context."))