Compare commits
1 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
06cba092fb |
|
|
@ -1,7 +1,7 @@
|
|||
======================================================================
|
||||
Whalesong: a compiler from Racket to JavaScript.
|
||||
|
||||
Danny Yoo (dyoo@hashcollision.org)
|
||||
Danny Yoo (dyoo@cs.wpi.edu)
|
||||
|
||||
|
||||
======================================================================
|
||||
|
|
@ -29,30 +29,21 @@ amount of time.
|
|||
Example usage
|
||||
|
||||
|
||||
Create a simple, executable of your program. At the moment, the program must
|
||||
be written in the base language of whalesong. (This restriction currently
|
||||
prevents arbitrary racket/base programs from compiling, and we'll be working to
|
||||
remove this restriction.)
|
||||
|
||||
Create a simple, standalong executable of your program. At the
|
||||
moment, the program must be written in the base language of whalesong.
|
||||
(This restriction currently prevents arbitrary racket/base programs
|
||||
from compiling, and we'll be working to remove this restriction.)
|
||||
|
||||
$ cat hello.rkt
|
||||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
(display "hello world")
|
||||
(newline)
|
||||
|
||||
$ ./whalesong.rkt build hello.rkt
|
||||
|
||||
$ ls -l hello.html
|
||||
-rw-rw-r-- 1 dyoo nogroup 692213 Jun 7 18:00 hello.html
|
||||
|
||||
To build standalone executable of your program, provide --as-standalone-html
|
||||
flag.
|
||||
|
||||
$ ./whalesong.rkt build --as-standalone-html hello.rkt
|
||||
|
||||
$ ls -l
|
||||
-rw-rw-r-- 1 dyoo nogroup 692213 Jun 7 18:00 hello.html
|
||||
|
||||
NOTE: Earlier versions had --as-standalone-xhtml flag, which is now removed.
|
||||
$ ls -l hello.xhtml
|
||||
-rw-rw-r-- 1 dyoo nogroup 692213 Jun 7 18:00 hello.xhtml
|
||||
|
||||
|
||||
[FIXME: add more examples]
|
||||
|
|
@ -196,4 +187,4 @@ This uses code from the following projects:
|
|||
jquery (http://jquery.com/)
|
||||
|
||||
|
||||
[FIXME: add more]
|
||||
[FIXME: add more]
|
||||
46
README.md
46
README.md
|
|
@ -1,46 +0,0 @@
|
|||
Whalesong
|
||||
=========
|
||||
|
||||
Important
|
||||
---------
|
||||
|
||||
Whalesong needs Racket 6.2.
|
||||
As is Whalesong doesn't work on version 6.3 or greater.
|
||||
See https://github.com/soegaard/whalesong/issues/48
|
||||
|
||||
Installation
|
||||
------------
|
||||
|
||||
raco pkg install -j 1 --force --deps search-auto --scope installation whalesong
|
||||
|
||||
Important: Use -j 1 to build Whalesong (this turns off parallel builds)
|
||||
This also means, that you can't install Whalesong from the DrRacket package manager.
|
||||
|
||||
This fork of Whalesong differs from dyoo/whalesong in the following ways:
|
||||
|
||||
* Builds on latest release of Racket
|
||||
(fixes the x undefined problem)
|
||||
* Adds for
|
||||
(require whalesong/lang/for)
|
||||
* Adds match
|
||||
(require whalesong/lang/match)
|
||||
* Adds on-release
|
||||
(as a complement to on-key)
|
||||
Contributed by Darren Cruse
|
||||
* Adds parameters
|
||||
(require whalesong/lang/parameters)
|
||||
* Extended whalesong/image and whalesong/images
|
||||
(more functions, bug fixes, now matches WeScheme)
|
||||
Contributed by Emmanuel Schanzer
|
||||
* Adds play-sound
|
||||
(assumes a browser with html5 audio support)
|
||||
Contributed by Emmanuel Schanzer and Darren Cruse
|
||||
* Bug fixes by Vishesh Yadav
|
||||
* The flag --as-standalone-xhtml is now --as-standalone-html
|
||||
and produces standalone html rather than xhtml.
|
||||
|
||||
Note: The implementation of parameters works fine,
|
||||
as long as you don't mix parameterize with non-local-exits
|
||||
and reentries (i.e. call/cc and friends)
|
||||
|
||||
/soegaard
|
||||
|
|
@ -1,9 +1,11 @@
|
|||
#lang s-exp syntax/module-reader
|
||||
#:language (lambda () 'whalesong/bf/language)
|
||||
#:language (lambda ()
|
||||
`(planet ,(this-package-version-symbol bf/language)))
|
||||
#:read my-read
|
||||
#:read-syntax my-read-syntax
|
||||
#:info my-get-info
|
||||
(require "../parser.rkt")
|
||||
(require "../parser.rkt"
|
||||
planet/version)
|
||||
|
||||
(define (my-read in)
|
||||
(syntax->datum (my-read-syntax #f in)))
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
(require "semantics.rkt"
|
||||
(for-syntax racket/base))
|
||||
|
|
@ -100,4 +100,4 @@
|
|||
(with-syntax ([current-data (datum->syntax stx 'current-data)]
|
||||
[current-ptr (datum->syntax stx 'current-ptr)])
|
||||
(syntax/loc stx
|
||||
(loop current-data current-ptr body ...)))]))
|
||||
(loop current-data current-ptr body ...)))]))
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
;; This is a second semantics for the language that tries to go for speed,
|
||||
;; at the expense of making things a little more complicated.
|
||||
|
|
@ -14,7 +14,7 @@
|
|||
(require/typed "../parameters.rkt"
|
||||
(current-defined-name (Parameterof (U Symbol LamPositionalName))))
|
||||
(require/typed "../parser/parse-bytecode.rkt"
|
||||
(parse-bytecode (Compiled-Expression -> Expression)))
|
||||
(parse-bytecode (Any -> Expression)))
|
||||
|
||||
|
||||
|
||||
|
|
@ -25,9 +25,7 @@
|
|||
[get-provided-names (Expression -> (Listof ModuleProvide))])
|
||||
|
||||
|
||||
(provide (rename-out [-compile compile]
|
||||
[compile raw-compile])
|
||||
compile-for-repl
|
||||
(provide (rename-out [-compile compile])
|
||||
compile-general-procedure-call)
|
||||
|
||||
|
||||
|
|
@ -70,47 +68,8 @@
|
|||
(make-AssignImmediate target (make-Reg 'val)))))))
|
||||
|
||||
|
||||
;; Compiles an expression for the REPL.
|
||||
;; The result of the repl evaluation will be a list in the var register.
|
||||
(: compile-for-repl (Expression -> (Listof Statement)))
|
||||
(define (compile-for-repl exp)
|
||||
(define lambda-bodies (collect-all-lambdas-with-bodies exp))
|
||||
(define after-lam-bodies: (make-label 'afterLamBodies))
|
||||
(define bundle-values-into-list: (make-label 'bundleValuesIntoList))
|
||||
(define abort-with-multiple-values: (make-label 'abortWithMultipleValues))
|
||||
(define last: (make-label 'last))
|
||||
(define-values (handle-multiple-return: handle-return:)
|
||||
(new-linked-labels 'afterPopPrompt))
|
||||
|
||||
(optimize-il
|
||||
(statements
|
||||
(append-instruction-sequences
|
||||
;; Layout the lambda bodies...
|
||||
(make-Goto (make-Label after-lam-bodies:))
|
||||
(compile-lambda-bodies lambda-bodies)
|
||||
|
||||
after-lam-bodies:
|
||||
|
||||
;; Begin a prompted evaluation:
|
||||
(make-PushControlFrame/Prompt default-continuation-prompt-tag
|
||||
handle-return:)
|
||||
(compile exp '() 'val return-linkage/nontail)
|
||||
|
||||
handle-multiple-return:
|
||||
;; After coming back from the evaluation, rearrange the return
|
||||
;; values, to call the continuation with those as arguments.
|
||||
(make-TestAndJump (make-TestZero (make-Reg 'argcount))
|
||||
bundle-values-into-list:)
|
||||
handle-return:
|
||||
(make-PushImmediateOntoEnvironment (make-Reg 'val) #f)
|
||||
bundle-values-into-list:
|
||||
(make-Goto (make-Label last:))
|
||||
|
||||
last:
|
||||
;; Finally, return to the success continuation on the stack.
|
||||
(make-AssignImmediate 'proc (make-ControlStackLabel))
|
||||
(make-PopControlFrame)
|
||||
(make-Goto (make-Reg 'proc))))))
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
@ -229,7 +188,7 @@
|
|||
|
||||
(: compile-top (Top CompileTimeEnvironment Target Linkage -> InstructionSequence))
|
||||
;; Generates code to write out the top prefix, evaluate the rest of the body,
|
||||
;; and then pop the top prefix off afterwards.
|
||||
;; and then pop the top prefix off.
|
||||
(define (compile-top top cenv target linkage)
|
||||
(let*: ([names : (Listof (U False Symbol GlobalBucket ModuleVariable)) (Prefix-names (Top-prefix top))])
|
||||
(end-with-linkage
|
||||
|
|
@ -239,11 +198,10 @@
|
|||
(compile (Top-code top)
|
||||
(cons (Top-prefix top) cenv)
|
||||
'val
|
||||
next-linkage/keep-multiple-on-stack)
|
||||
next-linkage/drop-multiple)
|
||||
(make-AssignImmediate target (make-Reg 'val))
|
||||
(make-PopEnvironment (make-Const 1)
|
||||
(new-SubtractArg (make-Reg 'argcount)
|
||||
(make-Const 1)))))))
|
||||
(make-Const 0))))))
|
||||
|
||||
|
||||
|
||||
|
|
@ -291,7 +249,7 @@
|
|||
(make-PopControlFrame)
|
||||
|
||||
;; We sequester the prefix of the module with the record.
|
||||
(make-Perform (make-FinalizeModuleInvokation! path provides))
|
||||
(make-Perform (make-FinalizeModuleInvokation! path))
|
||||
(make-Goto (make-Reg 'proc))
|
||||
|
||||
after-module-body)))]))
|
||||
|
|
@ -305,10 +263,9 @@
|
|||
|
||||
|
||||
(: compile-module-invoke (ModuleLocator -> InstructionSequence))
|
||||
;; Generates code that will invoke a module (if it hasn't been invoked
|
||||
;; yet) FIXME: assumes the module has already been loaded/linked. We
|
||||
;; should try to load the module, or error out if the module can't be
|
||||
;; found.
|
||||
;; Generates code that will invoke a module (if it hasn't been invoked yet)
|
||||
;; FIXME: assumes the module has already been linked. We should error out
|
||||
;; if the module hasn't been linked yet.
|
||||
(define (compile-module-invoke a-module-name)
|
||||
(cond
|
||||
[(kernel-module-name? a-module-name)
|
||||
|
|
@ -319,14 +276,12 @@
|
|||
(append-instruction-sequences
|
||||
(make-TestAndJump (make-TestTrue (make-ModulePredicate a-module-name 'linked?))
|
||||
linked)
|
||||
;; TODO: try to link dynamically, using plt.runtime.currentModuleLoader.
|
||||
(make-Perform (make-LinkModule! a-module-name linked))
|
||||
;; If that fails, finally raise an exception here that says that the module hasn't been
|
||||
;; TODO: raise an exception here that says that the module hasn't been
|
||||
;; linked yet.
|
||||
;(make-DebugPrint (make-Const
|
||||
; (format "DEBUG: the module ~a hasn't been linked in!!!"
|
||||
; (ModuleLocator-name a-module-name))))
|
||||
;(make-Goto (make-Label (LinkedLabel-label on-return)))
|
||||
(make-DebugPrint (make-Const
|
||||
(format "DEBUG: the module ~a hasn't been linked in!!!"
|
||||
(ModuleLocator-name a-module-name))))
|
||||
(make-Goto (make-Label (LinkedLabel-label on-return)))
|
||||
linked
|
||||
(make-TestAndJump (make-TestTrue
|
||||
(make-ModulePredicate a-module-name 'invoked?))
|
||||
|
|
@ -436,22 +391,15 @@
|
|||
(make-AssignPrimOp target
|
||||
(make-PrimitivesReference
|
||||
(kernel-module-variable->primitive-name
|
||||
prefix-element)))]
|
||||
prefix-element)
|
||||
))]
|
||||
[else
|
||||
(make-AssignImmediate
|
||||
target
|
||||
(make-EnvPrefixReference (ToplevelRef-depth exp)
|
||||
(ToplevelRef-pos exp)
|
||||
#t))])]
|
||||
[(GlobalBucket? prefix-element)
|
||||
(append-instruction-sequences
|
||||
(if (ToplevelRef-check-defined? exp)
|
||||
(make-Perform (make-CheckGlobalBound! (GlobalBucket-name prefix-element)))
|
||||
empty-instruction-sequence)
|
||||
(make-AssignPrimOp
|
||||
target
|
||||
(make-GlobalsReference (GlobalBucket-name prefix-element))))]
|
||||
[(or (eq? prefix-element #f) (symbol? prefix-element))
|
||||
[else
|
||||
(append-instruction-sequences
|
||||
(if (ToplevelRef-check-defined? exp)
|
||||
(make-Perform (make-CheckToplevelBound!
|
||||
|
|
@ -479,31 +427,22 @@
|
|||
(define (compile-toplevel-set exp cenv target linkage)
|
||||
(define prefix (ensure-prefix (list-ref cenv (ToplevelSet-depth exp))))
|
||||
(define prefix-element (list-ref (Prefix-names prefix) (ToplevelSet-pos exp)))
|
||||
|
||||
(define top-target
|
||||
(cond
|
||||
[(ModuleVariable? prefix-element)
|
||||
(make-EnvPrefixReference (ToplevelSet-depth exp)
|
||||
(ToplevelSet-pos exp)
|
||||
#t)]
|
||||
[(GlobalBucket? prefix-element)
|
||||
(make-GlobalsReference (GlobalBucket-name prefix-element))]
|
||||
|
||||
[(or (eq? prefix-element #f)
|
||||
(symbol? prefix-element))
|
||||
(make-EnvPrefixReference (ToplevelSet-depth exp)
|
||||
(ToplevelSet-pos exp)
|
||||
#f)]))
|
||||
(let ([get-value-code
|
||||
(cond
|
||||
;; Special case: when set!-ing globals, see that they're defined first.
|
||||
[(GlobalBucket? prefix-element)
|
||||
(append-instruction-sequences
|
||||
(compile (ToplevelSet-value exp) cenv 'val next-linkage/expects-single)
|
||||
(make-Perform (make-CheckGlobalBound! (GlobalBucket-name prefix-element)))
|
||||
(make-AssignImmediate top-target (make-Reg 'val)))]
|
||||
[(ModuleVariable? prefix-element)
|
||||
(compile (ToplevelSet-value exp)
|
||||
cenv
|
||||
(make-EnvPrefixReference (ToplevelSet-depth exp)
|
||||
(ToplevelSet-pos exp)
|
||||
#t)
|
||||
next-linkage/expects-single)]
|
||||
[else
|
||||
(compile (ToplevelSet-value exp) cenv top-target next-linkage/expects-single)])]
|
||||
(compile (ToplevelSet-value exp)
|
||||
cenv
|
||||
(make-EnvPrefixReference (ToplevelSet-depth exp)
|
||||
(ToplevelSet-pos exp)
|
||||
#f)
|
||||
next-linkage/expects-single)])]
|
||||
[singular-context-check (emit-singular-context linkage)])
|
||||
(end-with-linkage
|
||||
linkage
|
||||
|
|
@ -856,7 +795,6 @@
|
|||
|
||||
(append-instruction-sequences
|
||||
(Lam-entry-label exp)
|
||||
(make-MarkEntryPoint (Lam-entry-label exp))
|
||||
(Comment (format "lambda body for ~a" (Lam-name exp)))
|
||||
maybe-unsplice-rest-argument
|
||||
maybe-install-closure-values
|
||||
|
|
@ -1335,13 +1273,8 @@
|
|||
[(ToplevelRef? e)
|
||||
(cond
|
||||
[(ModuleVariable? k)
|
||||
(cond [(kernel-module-name? (ModuleVariable-module-name k))
|
||||
(make-PrimitiveKernelValue
|
||||
(kernel-module-variable->primitive-name k))]
|
||||
[else
|
||||
(make-EnvPrefixReference (ToplevelRef-depth e)
|
||||
(ToplevelRef-pos e)
|
||||
#t)])]
|
||||
(make-EnvPrefixReference (ToplevelRef-depth e) (ToplevelRef-pos e) #t)]
|
||||
|
||||
[else
|
||||
(make-EnvPrefixReference (ToplevelRef-depth e) (ToplevelRef-pos e) #f)])]
|
||||
[(PrimitiveKernelValue? e)
|
||||
|
|
@ -1924,25 +1857,19 @@
|
|||
(end-with-linkage
|
||||
linkage
|
||||
cenv
|
||||
(append-instruction-sequences
|
||||
(compile (InstallValue-body exp)
|
||||
(compile (InstallValue-body exp)
|
||||
cenv
|
||||
target
|
||||
(make-NextLinkage 0))
|
||||
(make-AssignImmediate target (make-Const (void)))
|
||||
(emit-singular-context linkage)))]
|
||||
(make-NextLinkage 0)))]
|
||||
[(= count 1)
|
||||
(append-instruction-sequences
|
||||
(end-with-linkage
|
||||
linkage
|
||||
cenv
|
||||
(append-instruction-sequences
|
||||
(compile (InstallValue-body exp)
|
||||
cenv
|
||||
(make-EnvLexicalReference (InstallValue-depth exp) (InstallValue-box? exp))
|
||||
(make-NextLinkage 1))
|
||||
(make-AssignImmediate target (make-Const (void)))
|
||||
(emit-singular-context linkage))))]
|
||||
(compile (InstallValue-body exp)
|
||||
cenv
|
||||
(make-EnvLexicalReference (InstallValue-depth exp) (InstallValue-box? exp))
|
||||
(make-NextLinkage 1))))]
|
||||
[else
|
||||
(end-with-linkage
|
||||
linkage
|
||||
|
|
@ -1965,9 +1892,7 @@
|
|||
(cons (make-Reg 'val)
|
||||
(build-list (sub1 count) (lambda: ([i : Natural])
|
||||
(make-EnvLexicalReference i #f))))))
|
||||
(make-PopEnvironment (make-Const (sub1 count)) (make-Const 0))
|
||||
(make-AssignImmediate target (make-Const (void)))
|
||||
(emit-singular-context linkage)))]))))
|
||||
(make-PopEnvironment (make-Const (sub1 count)) (make-Const 0))))]))))
|
||||
|
||||
|
||||
|
||||
|
|
@ -2090,44 +2015,31 @@
|
|||
;; values are on the stack.
|
||||
(if (> n 0)
|
||||
(apply append-instruction-sequences
|
||||
(map (lambda: ([id : ToplevelRef]
|
||||
[from : OpArg])
|
||||
(define prefix
|
||||
(ensure-prefix (list-ref cenv (ToplevelRef-depth id))))
|
||||
(define prefix-element (list-ref (Prefix-names prefix) (ToplevelRef-pos id)))
|
||||
(cond
|
||||
[(GlobalBucket? prefix-element)
|
||||
(make-AssignImmediate (make-GlobalsReference (GlobalBucket-name prefix-element))
|
||||
from)]
|
||||
[else
|
||||
;; Slightly subtle: the toplevelrefs were with respect to the
|
||||
;; stack at the beginning of def-values, but at the moment,
|
||||
;; there may be additional values that are currently there.
|
||||
(make-AssignImmediate
|
||||
(make-EnvPrefixReference (+ (ensure-natural (sub1 n))
|
||||
(ToplevelRef-depth id))
|
||||
(ToplevelRef-pos id)
|
||||
#f)
|
||||
from)]))
|
||||
ids
|
||||
(if (> n 0)
|
||||
(cons (make-Reg 'val)
|
||||
(build-list (sub1 n)
|
||||
(lambda: ([i : Natural])
|
||||
(make-EnvLexicalReference i #f))))
|
||||
empty)))
|
||||
(map (lambda: ([id : ToplevelRef]
|
||||
[from : OpArg])
|
||||
(make-AssignImmediate
|
||||
;; Slightly subtle: the toplevelrefs were with respect to the
|
||||
;; stack at the beginning of def-values, but at the moment,
|
||||
;; there may be additional values that are currently there.
|
||||
(make-EnvPrefixReference (+ (ensure-natural (sub1 n))
|
||||
(ToplevelRef-depth id))
|
||||
(ToplevelRef-pos id)
|
||||
#f)
|
||||
from))
|
||||
ids
|
||||
(if (> n 0)
|
||||
(cons (make-Reg 'val)
|
||||
(build-list (sub1 n)
|
||||
(lambda: ([i : Natural])
|
||||
(make-EnvLexicalReference i #f))))
|
||||
empty)))
|
||||
empty-instruction-sequence)
|
||||
|
||||
;; Make sure any multiple values are off the stack.
|
||||
;; Finally, make sure any multiple values are off the stack.
|
||||
(if (> (length ids) 1)
|
||||
(make-PopEnvironment (make-Const (sub1 (length ids)))
|
||||
(make-Const 0))
|
||||
empty-instruction-sequence)
|
||||
|
||||
;; Finally, set the target to void.
|
||||
|
||||
(make-AssignImmediate target (make-Const (void)))
|
||||
(emit-singular-context linkage)))))
|
||||
empty-instruction-sequence)))))
|
||||
|
||||
|
||||
|
||||
|
|
@ -2198,8 +2110,6 @@
|
|||
(EnvPrefixReference-modvar? target))]
|
||||
[(PrimitivesReference? target)
|
||||
target]
|
||||
[(GlobalsReference? target)
|
||||
target]
|
||||
[(ControlFrameTemporary? target)
|
||||
target]
|
||||
[(ModulePrefixTarget? target)
|
||||
|
|
@ -2376,4 +2286,4 @@
|
|||
(ensure-toplevelref
|
||||
(adjust-expression-depth (VariableReference-toplevel exp) n skip)))]
|
||||
[(Require? exp)
|
||||
exp]))
|
||||
exp]))
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
#lang whalesong (require "../selfhost-lang.rkt")
|
||||
#lang typed/racket/base
|
||||
(require "lexical-structs.rkt")
|
||||
|
||||
|
||||
|
|
@ -45,8 +45,7 @@
|
|||
(define-type Target (U AtomicRegisterSymbol
|
||||
EnvLexicalReference
|
||||
EnvPrefixReference
|
||||
PrimitivesReference
|
||||
GlobalsReference
|
||||
PrimitivesReference
|
||||
ControlFrameTemporary
|
||||
ModulePrefixTarget
|
||||
))
|
||||
|
|
@ -153,10 +152,6 @@
|
|||
(define-struct: PrimitivesReference ([name : Symbol])
|
||||
#:transparent)
|
||||
|
||||
(define-struct: GlobalsReference ([name : Symbol])
|
||||
#:transparent)
|
||||
|
||||
|
||||
;; Produces the entry point of the module.
|
||||
(define-struct: ModuleEntry ([name : ModuleLocator])
|
||||
#:transparent)
|
||||
|
|
@ -172,7 +167,6 @@
|
|||
(define-type StraightLineStatement (U
|
||||
DebugPrint
|
||||
Comment
|
||||
MarkEntryPoint
|
||||
|
||||
AssignImmediate
|
||||
AssignPrimOp
|
||||
|
|
@ -265,12 +259,12 @@
|
|||
(define-struct: PushControlFrame/Call ([label : LinkedLabel])
|
||||
#:transparent)
|
||||
|
||||
(define-struct: PushControlFrame/Prompt
|
||||
([tag : (U OpArg DefaultContinuationPromptTag)]
|
||||
[label : LinkedLabel])
|
||||
(define-struct: PushControlFrame/Prompt ([tag : (U OpArg DefaultContinuationPromptTag)]
|
||||
[label : LinkedLabel]
|
||||
;; TODO: add handler and arguments
|
||||
)
|
||||
#:transparent)
|
||||
|
||||
|
||||
(define-struct: DefaultContinuationPromptTag ()
|
||||
#:transparent)
|
||||
(define default-continuation-prompt-tag
|
||||
|
|
@ -299,11 +293,6 @@
|
|||
#:transparent)
|
||||
|
||||
|
||||
;; Marks the head of every lambda.
|
||||
(define-struct: MarkEntryPoint ([label : Symbol])
|
||||
#:transparent)
|
||||
|
||||
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Primitive Operators
|
||||
|
|
@ -318,7 +307,6 @@
|
|||
|
||||
ModuleVariable
|
||||
PrimitivesReference
|
||||
GlobalsReference
|
||||
|
||||
MakeBoxedEnvironmentValue
|
||||
|
||||
|
|
@ -404,12 +392,6 @@
|
|||
[pos : Natural])
|
||||
#:transparent)
|
||||
|
||||
;; Check that the global can be defined.
|
||||
;; If not, raise an error and stop evaluation.
|
||||
(define-struct: CheckGlobalBound! ([name : Symbol])
|
||||
#:transparent)
|
||||
|
||||
|
||||
;; Check the closure procedure value in 'proc and make sure it's a closure
|
||||
;; that can accept the right arguments (stored as a number in the argcount register.).
|
||||
(define-struct: CheckClosureAndArity! ()
|
||||
|
|
@ -491,12 +473,6 @@
|
|||
(define-struct: InstallContinuationMarkEntry! () #:transparent)
|
||||
|
||||
|
||||
;; Use the dynamic module loader to link the module into the runtime.
|
||||
;; After successful linkage, jump into label.
|
||||
(define-struct: LinkModule! ([path : ModuleLocator]
|
||||
[label : Symbol]))
|
||||
|
||||
|
||||
;; Installs a module record into the machine
|
||||
(define-struct: InstallModuleEntry! ([name : Symbol]
|
||||
[path : ModuleLocator]
|
||||
|
|
@ -516,15 +492,13 @@
|
|||
|
||||
;; Given the module locator, do any finalizing operations, like
|
||||
;; setting up the module namespace.
|
||||
(define-struct: FinalizeModuleInvokation! ([path : ModuleLocator]
|
||||
[provides : (Listof ModuleProvide)])
|
||||
(define-struct: FinalizeModuleInvokation! ([path : ModuleLocator])
|
||||
#:transparent)
|
||||
|
||||
|
||||
|
||||
(define-type PrimitiveCommand (U
|
||||
CheckToplevelBound!
|
||||
CheckGlobalBound!
|
||||
CheckClosureAndArity!
|
||||
CheckPrimitiveArity!
|
||||
|
||||
|
|
@ -546,7 +520,6 @@
|
|||
RestoreEnvironment!
|
||||
RestoreControl!
|
||||
|
||||
LinkModule!
|
||||
InstallModuleEntry!
|
||||
MarkModuleInvoked!
|
||||
AliasModuleAsMain!
|
||||
|
|
@ -620,4 +593,4 @@
|
|||
|
||||
|
||||
|
||||
(define-predicate OpArg? OpArg)
|
||||
(define-predicate OpArg? OpArg)
|
||||
|
|
@ -19,12 +19,7 @@
|
|||
(or (and (eq? (ModuleLocator-name locator) '#%kernel)
|
||||
(eq? (ModuleLocator-real-path locator) '#%kernel))
|
||||
(eq? (ModuleLocator-name locator)
|
||||
'whalesong/lang/kernel.rkt)
|
||||
|
||||
;; HACK HACK HACK
|
||||
;; This is for srcloc:
|
||||
(eq? (ModuleLocator-name locator)
|
||||
'collects/racket/private/kernstruct.rkt)))
|
||||
'whalesong/lang/kernel.rkt)))
|
||||
|
||||
|
||||
(: paramz-locator? (ModuleLocator -> Boolean))
|
||||
|
|
@ -177,22 +172,8 @@
|
|||
|
||||
'error
|
||||
'raise-type-error
|
||||
'raise-mismatch-error
|
||||
'struct:exn:fail
|
||||
'prop:exn:srclocs
|
||||
'make-exn
|
||||
'make-exn:fail
|
||||
'make-exn:fail:contract
|
||||
'make-exn:fail:contract:arity
|
||||
'make-exn:fail:contract:variable
|
||||
'make-exn:fail:contract:divide-by-zero
|
||||
|
||||
'exn:fail?
|
||||
'exn:fail:contract?
|
||||
'exn:fail:contract:arity?
|
||||
|
||||
'exn-message
|
||||
'exn-continuation-marks
|
||||
|
||||
'hash?
|
||||
'hash-equal?
|
||||
|
|
@ -223,10 +204,6 @@
|
|||
|
||||
'unsafe-car
|
||||
'unsafe-cdr
|
||||
|
||||
'continuation-prompt-available?
|
||||
'abort-current-continuation
|
||||
'call-with-continuation-prompt
|
||||
))
|
||||
(define-predicate KernelPrimitiveName? KernelPrimitiveName)
|
||||
|
||||
|
|
@ -372,4 +349,4 @@
|
|||
(list 'vector 'number)]
|
||||
|
||||
[(eq? prim 'vector-set!)
|
||||
(list 'vector 'number 'any)]))
|
||||
(list 'vector 'number 'any)]))
|
||||
|
|
@ -122,8 +122,8 @@
|
|||
;; Given a list of lexical addresses, computes a set of unique references.
|
||||
;; Multiple lexical addresses to a single prefix should be treated identically.
|
||||
(define (collect-lexical-references addresses)
|
||||
(let: ([prefix-references : (Setof EnvWholePrefixReference) ((inst new-set EnvWholePrefixReference))]
|
||||
[lexical-references : (Setof EnvLexicalReference) ((inst new-set EnvLexicalReference))])
|
||||
(let: ([prefix-references : (Setof EnvWholePrefixReference) (new-set)]
|
||||
[lexical-references : (Setof EnvLexicalReference) (new-set)])
|
||||
(let: loop : (Listof (U EnvLexicalReference EnvWholePrefixReference))
|
||||
([addresses : (Listof LexicalAddress) addresses])
|
||||
(cond
|
||||
|
|
@ -147,9 +147,7 @@
|
|||
|
||||
[(PrimitivesReference? op)
|
||||
op]
|
||||
|
||||
[(GlobalsReference? op)
|
||||
op]))
|
||||
))
|
||||
|
||||
|
||||
(: rewrite-primcmd (PrimitiveCommand -> PrimitiveCommand))
|
||||
|
|
@ -190,17 +188,14 @@
|
|||
(loop (rest stmts)))]
|
||||
|
||||
[(DebugPrint? a-stmt)
|
||||
(cons a-stmt (loop (rest stmts)))
|
||||
#;(loop (rest stmts))
|
||||
;(cons a-stmt (loop (rest stmts)))
|
||||
(loop (rest stmts))
|
||||
]
|
||||
|
||||
[(Comment? a-stmt)
|
||||
;(loop (rest stmts))
|
||||
(cons a-stmt (loop (rest stmts)))
|
||||
]
|
||||
|
||||
[(MarkEntryPoint? a-stmt)
|
||||
(cons a-stmt (loop (rest stmts)))]
|
||||
|
||||
[(AssignImmediate? a-stmt)
|
||||
(cons (make-AssignImmediate (rewrite-target (AssignImmediate-target a-stmt))
|
||||
|
|
@ -349,11 +344,8 @@
|
|||
#f]
|
||||
|
||||
[(DebugPrint? stmt)
|
||||
#f
|
||||
#;#t]
|
||||
|
||||
[(MarkEntryPoint? stmt)
|
||||
#f]
|
||||
;#f
|
||||
#t]
|
||||
|
||||
[(AssignImmediate? stmt)
|
||||
(equal? (AssignImmediate-target stmt)
|
||||
|
|
@ -450,4 +442,4 @@
|
|||
(define (ensure-natural x)
|
||||
(if (natural? x)
|
||||
x
|
||||
(error 'ensure-natural)))
|
||||
(error 'ensure-natural)))
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
#lang whalesong/base
|
||||
#lang planet dyoo/whalesong/base
|
||||
#|
|
||||
Why on earth are these here?
|
||||
Because first, etc. don't work on cyclic lists:
|
||||
|
|
@ -3,29 +3,11 @@
|
|||
(require (for-template "../lang/base.rkt")
|
||||
(for-template "teach-runtime.rkt")
|
||||
"teachhelp.rkt"
|
||||
stepper/private/shared
|
||||
racket/list
|
||||
syntax/context
|
||||
syntax/kerncase
|
||||
syntax/stx
|
||||
"../version-case/version-case.rkt"
|
||||
(for-syntax racket/base))
|
||||
|
||||
;; We're treading in private implementation; we deserve this pain.
|
||||
(version-case
|
||||
[(and (version<= "5.2.0.900" (version))
|
||||
(version< (version) "5.2.900"))
|
||||
(begin
|
||||
(require stepper/private/shared)
|
||||
(require (for-syntax stepper/private/shared)))]
|
||||
[(version<= "5.2.900" (version))
|
||||
(begin
|
||||
(require stepper/private/syntax-property)
|
||||
(require (for-syntax stepper/private/syntax-property)))]
|
||||
[else
|
||||
(error 'teachhelp.rkt "Unable to cooperate with Racket ~a" (version))])
|
||||
|
||||
|
||||
|
||||
syntax/stx)
|
||||
|
||||
|
||||
(provide advanced-define/proc
|
||||
|
|
@ -1,23 +1,10 @@
|
|||
(module teachhelp mzscheme
|
||||
(require "firstorder.rkt"
|
||||
"rewrite-error-message.rkt"
|
||||
"../version-case/version-case.rkt")
|
||||
stepper/private/shared)
|
||||
|
||||
;; We're treading in private implementation; we deserve this pain.
|
||||
(version-case
|
||||
[(and (version<= "5.2.0.900" (version))
|
||||
(version< (version) "5.2.900"))
|
||||
(begin
|
||||
(require stepper/private/shared)
|
||||
(require-for-syntax stepper/private/shared))]
|
||||
[(version<= "5.2.900" (version))
|
||||
(begin
|
||||
(require stepper/private/syntax-property)
|
||||
(require-for-syntax stepper/private/syntax-property))]
|
||||
[else
|
||||
(error 'teachhelp.rkt "Unable to cooperate with Racket ~a" (version))])
|
||||
(require-for-syntax stepper/private/shared)
|
||||
|
||||
|
||||
(provide make-undefined-check
|
||||
make-first-order-function)
|
||||
|
||||
3
examples/alert.rkt
Normal file
3
examples/alert.rkt
Normal file
|
|
@ -0,0 +1,3 @@
|
|||
#lang planet dyoo/whalesong
|
||||
(require (planet dyoo/whalesong/js))
|
||||
(alert "hello world")
|
||||
2
examples/cs019/hello.rkt
Normal file
2
examples/cs019/hello.rkt
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
#lang planet dyoo/whalesong/cs019
|
||||
"hello world"
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
#lang whalesong/cs019
|
||||
#lang planet dyoo/whalesong/cs019
|
||||
|
||||
(define-resource index.html)
|
||||
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
#lang whalesong/cs019
|
||||
#lang planet dyoo/whalesong/cs019
|
||||
|
||||
(define-resource index.html)
|
||||
|
||||
|
|
@ -53,4 +53,4 @@
|
|||
(initial-view index.html)
|
||||
(to-draw draw)
|
||||
(on-location-change location-change)
|
||||
(on-mock-location-change mock-location-change))
|
||||
(on-mock-location-change mock-location-change))
|
||||
|
|
@ -1,6 +1,6 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
(require whalesong/js)
|
||||
(require (planet dyoo/whalesong/js))
|
||||
|
||||
|
||||
;; insert-break: -> void
|
||||
|
|
@ -34,4 +34,4 @@
|
|||
(write-message "viewport-width: ") (write-message (viewport-width))
|
||||
(insert-break)
|
||||
(write-message "viewport-height: ") (write-message (viewport-height))
|
||||
(insert-break)
|
||||
(insert-break)
|
||||
|
|
@ -1,7 +1,7 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
(require whalesong/web-world
|
||||
whalesong/resource)
|
||||
(require (planet dyoo/whalesong/web-world)
|
||||
(planet dyoo/whalesong/resource))
|
||||
|
||||
(define-resource view.html)
|
||||
(define-resource style.css)
|
||||
|
|
@ -1,7 +1,7 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
(require whalesong/web-world
|
||||
whalesong/resource)
|
||||
(require (planet dyoo/whalesong/web-world)
|
||||
(planet dyoo/whalesong/resource))
|
||||
|
||||
(define-resource view.html)
|
||||
(define-resource style.css)
|
||||
|
|
@ -1,10 +1,10 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
;; Eli's puzzle
|
||||
;;
|
||||
;; http://lists.racket-lang.org/users/archive/2011-July/046849.html
|
||||
|
||||
(require whalesong/world)
|
||||
(require (planet dyoo/whalesong/world))
|
||||
|
||||
(define-struct world (seq output))
|
||||
|
||||
|
|
@ -42,4 +42,4 @@
|
|||
|
||||
(big-bang (make-world '(1) '())
|
||||
(on-tick tick 1)
|
||||
(to-draw draw))
|
||||
(to-draw draw))
|
||||
|
|
@ -1,7 +1,7 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
(require whalesong/world
|
||||
whalesong/image)
|
||||
(require (planet dyoo/whalesong/world)
|
||||
(planet dyoo/whalesong/image))
|
||||
|
||||
|
||||
(define handler (on-tick add1 1))
|
||||
|
|
@ -21,4 +21,4 @@ handler
|
|||
)
|
||||
|
||||
|
||||
"all done"
|
||||
"all done"
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
(provide fact)
|
||||
(define (fact x)
|
||||
(cond
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
;; A simple binding to Google Maps.
|
||||
;;
|
||||
|
|
@ -7,8 +7,8 @@
|
|||
;; https://developers.google.com/maps/documentation/javascript/tutorial
|
||||
;;
|
||||
|
||||
(require whalesong/js
|
||||
whalesong/js/world)
|
||||
(require (planet dyoo/whalesong/js)
|
||||
(planet dyoo/whalesong/js/world))
|
||||
|
||||
(provide initialize-google-maps-api!
|
||||
make-dom-and-map
|
||||
|
|
@ -1,5 +1,5 @@
|
|||
#lang whalesong
|
||||
(require whalesong/web-world
|
||||
#lang planet dyoo/whalesong
|
||||
(require (planet dyoo/whalesong/web-world)
|
||||
"maps.rkt")
|
||||
|
||||
;; Note: this is dyoo's API key. Please don't abuse this. :)
|
||||
|
|
@ -37,4 +37,4 @@
|
|||
(update-view-text (view-focus v "where")
|
||||
(format "~a" w))))
|
||||
(on-map-click (lambda (w v lat lng)
|
||||
(list lat lng))))
|
||||
(list lat lng))))
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
#lang whalesong/bf
|
||||
#lang planet dyoo/whalesong/bf
|
||||
|
||||
+++++ +++++ initialize counter (cell #0) to 10
|
||||
[ use loop to set the next four cells to 70/100/30/10
|
||||
|
|
@ -1,6 +1,6 @@
|
|||
#lang whalesong/base
|
||||
(require whalesong/web-world
|
||||
whalesong/resource)
|
||||
#lang planet dyoo/whalesong/base
|
||||
(require (planet dyoo/whalesong/web-world)
|
||||
(planet dyoo/whalesong/resource))
|
||||
|
||||
(define-resource hello-css.css)
|
||||
(define-resource hello-css-main.html)
|
||||
|
|
@ -9,4 +9,4 @@
|
|||
(initial-view hello-css-main.html)
|
||||
(to-draw (lambda (w v) v)))
|
||||
|
||||
"done"
|
||||
"done"
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
#lang whalesong/korean
|
||||
#lang planet dyoo/whalesong/korean
|
||||
|
||||
|
||||
(정의 (안녕 이름)
|
||||
|
|
@ -19,4 +19,4 @@
|
|||
|
||||
|
||||
(정의-구조 사람 (이름 나이))
|
||||
(make-사람 "danny" 32)
|
||||
(make-사람 "danny" 32)
|
||||
4
examples/hello.rkt
Normal file
4
examples/hello.rkt
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
#lang planet dyoo/whalesong
|
||||
|
||||
(display "hello world")
|
||||
(newline)
|
||||
|
|
@ -1,6 +1,6 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
(require whalesong/image)
|
||||
(require (planet dyoo/whalesong/image))
|
||||
|
||||
(printf "images.rkt\n")
|
||||
|
||||
|
Before Width: | Height: | Size: 2.9 KiB After Width: | Height: | Size: 2.9 KiB |
|
Before Width: | Height: | Size: 569 KiB After Width: | Height: | Size: 569 KiB |
|
|
@ -1,6 +1,6 @@
|
|||
#lang whalesong/base
|
||||
(require whalesong/resource
|
||||
whalesong/image)
|
||||
#lang planet dyoo/whalesong/base
|
||||
(require (planet dyoo/whalesong/resource)
|
||||
(planet dyoo/whalesong/image))
|
||||
|
||||
;; The Iron Image Puzzle
|
||||
;; Part of the Nifty Assignments page by Nick Parlante.
|
||||
|
|
@ -9,7 +9,7 @@
|
|||
;; To run this program locally on your machine under Google Chrome, you'll
|
||||
;; probably need to use --allow-file-access-from-files to get around
|
||||
;; the same-origin policy. The program should run normally if served on
|
||||
;; a web server.
|
||||
;; a web server
|
||||
|
||||
(define-resource iron-puzzle.png)
|
||||
|
||||
|
|
@ -1,7 +1,7 @@
|
|||
#lang whalesong
|
||||
(require whalesong/js/world
|
||||
whalesong/js
|
||||
whalesong/web-world)
|
||||
#lang planet dyoo/whalesong
|
||||
(require (planet dyoo/whalesong/js/world)
|
||||
(planet dyoo/whalesong/js)
|
||||
(planet dyoo/whalesong/web-world))
|
||||
|
||||
;; Test of getting world events from arbitrary JavaScript function application.
|
||||
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
(define (mylen x acc)
|
||||
(cond
|
||||
|
|
@ -10,4 +10,4 @@
|
|||
(define v (build-list 1000000 (lambda (i) i)))
|
||||
(printf "Built list\n")
|
||||
(mylen v 0)
|
||||
"done computing length"
|
||||
"done computing length"
|
||||
|
|
@ -1,6 +1,6 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
(require whalesong/image)
|
||||
(require (planet dyoo/whalesong/image))
|
||||
|
||||
|
||||
(define lst
|
||||
|
|
@ -1,5 +1,5 @@
|
|||
#lang whalesong
|
||||
(require whalesong/web-world)
|
||||
#lang planet dyoo/whalesong
|
||||
(require (planet dyoo/whalesong/web-world))
|
||||
|
||||
;;; This demonstrates how to use MathJax to write equations.
|
||||
;;; Use --include-script mathjax-script.js to include the MathJax.
|
||||
|
|
@ -19,4 +19,4 @@
|
|||
(big-bang 3
|
||||
(initial-view (xexp->dom '(html (head) (body))))
|
||||
(on-tick tick 5)
|
||||
(to-draw draw))
|
||||
(to-draw draw))
|
||||
|
|
@ -1,7 +1,7 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
(require whalesong/world
|
||||
whalesong/image)
|
||||
(require (planet dyoo/whalesong/world)
|
||||
(planet dyoo/whalesong/image))
|
||||
|
||||
(define width 640)
|
||||
(define height 480)
|
||||
|
|
@ -26,4 +26,4 @@
|
|||
(printf "let's see how this works.\n\n")
|
||||
(big-bang (make-posn 0 0)
|
||||
(on-mouse mouse)
|
||||
(to-draw draw))
|
||||
(to-draw draw))
|
||||
|
|
@ -1,7 +1,8 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
(require whalesong/world
|
||||
whalesong/image)
|
||||
(require (planet dyoo/whalesong/world)
|
||||
(planet dyoo/whalesong/image)
|
||||
)
|
||||
|
||||
|
||||
;; Constants:
|
||||
|
|
@ -1,8 +1,8 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
(require whalesong/world
|
||||
whalesong/image
|
||||
whalesong/js)
|
||||
(require (planet dyoo/whalesong/world)
|
||||
(planet dyoo/whalesong/image)
|
||||
(planet dyoo/whalesong/js))
|
||||
|
||||
;; Occupy the whole screen.
|
||||
(void (call-method body "css" "margin" 0))
|
||||
|
|
@ -128,4 +128,4 @@
|
|||
|
||||
(big-bang (make-world '())
|
||||
(to-draw draw)
|
||||
(on-tick tick))
|
||||
(on-tick tick))
|
||||
|
|
@ -1,7 +1,7 @@
|
|||
#lang whalesong
|
||||
(require whalesong/resource
|
||||
whalesong/web-world
|
||||
whalesong/js)
|
||||
#lang planet dyoo/whalesong
|
||||
(require (planet dyoo/whalesong/resource)
|
||||
(planet dyoo/whalesong/web-world)
|
||||
(planet dyoo/whalesong/js))
|
||||
|
||||
; This is a small demonstration of the Javascript
|
||||
; graphics library Raphael from http://raphaeljs.com/ .
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
(let loop ([b (read-byte)])
|
||||
(cond
|
||||
|
|
@ -6,4 +6,4 @@
|
|||
(void)]
|
||||
[else
|
||||
(display (string (integer->char b)))
|
||||
(loop (read-byte))]))
|
||||
(loop (read-byte))]))
|
||||
|
|
@ -1,6 +1,6 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
(require whalesong/web-world)
|
||||
(require (planet dyoo/whalesong/web-world))
|
||||
|
||||
(define (draw w v)
|
||||
(define v2 (view-focus v "fill-me-in"))
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
|
||||
;; shuffle: vector -> vector
|
||||
|
|
@ -1,5 +1,5 @@
|
|||
#lang whalesong/base
|
||||
(require whalesong/image)
|
||||
#lang planet dyoo/whalesong/base
|
||||
(require (planet dyoo/whalesong/image))
|
||||
;; Sierpenski carpet.
|
||||
;; http://rosettacode.org/wiki/Sierpinski_carpet#Scheme
|
||||
|
||||
|
|
@ -36,4 +36,4 @@
|
|||
(apply above (outer 0)))))
|
||||
|
||||
|
||||
(carpet 4)
|
||||
(carpet 4)
|
||||
599
examples/snip.rkt
Normal file
599
examples/snip.rkt
Normal file
|
|
@ -0,0 +1,599 @@
|
|||
#reader(lib"read.ss""wxme")WXME0108 ##
|
||||
#|
|
||||
This file uses the GRacket editor format.
|
||||
Open this file in DrRacket version 5.1.2 or later to read it.
|
||||
|
||||
Most likely, it was created by saving a program in DrRacket,
|
||||
and it probably contains a program with non-text elements
|
||||
(such as images or comment boxes).
|
||||
|
||||
http://racket-lang.org/
|
||||
|#
|
||||
28 7 #"wxtext\0"
|
||||
3 1 6 #"wxtab\0"
|
||||
1 1 8 #"wximage\0"
|
||||
2 0 8 #"wxmedia\0"
|
||||
4 1 34 #"(lib \"syntax-browser.ss\" \"mrlib\")\0"
|
||||
1 0 16 #"drscheme:number\0"
|
||||
3 0 44 #"(lib \"number-snip.ss\" \"drscheme\" \"private\")\0"
|
||||
1 0 36 #"(lib \"comment-snip.ss\" \"framework\")\0"
|
||||
1 0 43 #"(lib \"collapsed-snipclass.ss\" \"framework\")\0"
|
||||
0 0 19 #"drscheme:sexp-snip\0"
|
||||
0 0 36 #"(lib \"cache-image-snip.ss\" \"mrlib\")\0"
|
||||
1 0 68
|
||||
(
|
||||
#"((lib \"image-core.ss\" \"mrlib\") (lib \"image-core-wxme.rkt\" \"mr"
|
||||
#"lib\"))\0"
|
||||
) 1 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0"
|
||||
0 0 29 #"drscheme:bindings-snipclass%\0"
|
||||
1 0 25 #"(lib \"matrix.ss\" \"htdp\")\0"
|
||||
1 0 22 #"drscheme:lambda-snip%\0"
|
||||
1 0 57
|
||||
#"(lib \"hrule-snip.rkt\" \"macro-debugger\" \"syntax-browser\")\0"
|
||||
1 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
|
||||
1 0 26 #"drscheme:pict-value-snip%\0"
|
||||
0 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0"
|
||||
2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0"
|
||||
1 0 18 #"drscheme:xml-snip\0"
|
||||
1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0"
|
||||
1 0 21 #"drscheme:scheme-snip\0"
|
||||
2 0 34 #"(lib \"scheme-snipclass.ss\" \"xml\")\0"
|
||||
1 0 10 #"text-box%\0"
|
||||
1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0"
|
||||
1 0 15 #"test-case-box%\0"
|
||||
2 0 1 6 #"wxloc\0"
|
||||
0 0 57 0 1 #"\0"
|
||||
0 75 1 #"\0"
|
||||
0 12 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 0 9
|
||||
#"Standard\0"
|
||||
0 75 10 #"Monospace\0"
|
||||
0 13 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 2 1
|
||||
#"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 -1 -1 2 24
|
||||
#"framework:default-color\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
|
||||
#"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 150 0 150 0 0 0 -1 -1 2 15
|
||||
#"text:ports out\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 150 0 150 0 0 0 -1 -1 2 1
|
||||
#"\0"
|
||||
0 -1 1 #"\0"
|
||||
1.0 0 -1 -1 93 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 255 0 0 0 0 0 -1
|
||||
-1 2 15 #"text:ports err\0"
|
||||
0 -1 1 #"\0"
|
||||
1.0 0 -1 -1 93 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 255 0 0 0 0 0 -1
|
||||
-1 2 1 #"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 175 0 0 0 -1 -1 2 17
|
||||
#"text:ports value\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 175 0 0 0 -1 -1 2 1
|
||||
#"\0"
|
||||
0 -1 1 #"\0"
|
||||
1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 34 139 34 0 0 0 -1
|
||||
-1 2 27 #"Matching Parenthesis Style\0"
|
||||
0 -1 1 #"\0"
|
||||
1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 34 139 34 0 0 0 -1
|
||||
-1 2 1 #"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 37
|
||||
#"framework:syntax-color:scheme:symbol\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 38
|
||||
#"framework:syntax-color:scheme:keyword\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1
|
||||
#"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
|
||||
38 #"framework:syntax-color:scheme:comment\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2 1
|
||||
#"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 37
|
||||
#"framework:syntax-color:scheme:string\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 39
|
||||
#"framework:syntax-color:scheme:constant\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 1
|
||||
#"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 42
|
||||
#"framework:syntax-color:scheme:parenthesis\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 1
|
||||
#"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 36
|
||||
#"framework:syntax-color:scheme:error\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 1
|
||||
#"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 36
|
||||
#"framework:syntax-color:scheme:other\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
|
||||
#"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2
|
||||
38 #"drracket:check-syntax:lexically-bound\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2 1
|
||||
#"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 2 28
|
||||
#"drracket:check-syntax:set!d\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 2 1
|
||||
#"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 31
|
||||
#"drracket:check-syntax:imported\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 47
|
||||
#"drracket:check-syntax:my-obligation-style-pref\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 2 1
|
||||
#"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 116 0 0 0 0 -1 -1 2 50
|
||||
#"drracket:check-syntax:their-obligation-style-pref\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 116 0 0 0 0 -1 -1 2 48
|
||||
#"drracket:check-syntax:unk-obligation-style-pref\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
|
||||
#"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 142 28 0 0 0 -1 -1 2
|
||||
49 #"drracket:check-syntax:both-obligation-style-pref\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 142 28 0 0 0 -1 -1 2
|
||||
26 #"plt:htdp:test-coverage-on\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
|
||||
#"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 2 27
|
||||
#"plt:htdp:test-coverage-off\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 4 1
|
||||
#"\0"
|
||||
0 70 1 #"\0"
|
||||
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
|
||||
-1 -1 4 4 #"XML\0"
|
||||
0 70 1 #"\0"
|
||||
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
|
||||
-1 -1 2 1 #"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 37
|
||||
#"plt:module-language:test-coverage-on\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 1
|
||||
#"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 176 48 96 0 0 0 -1 -1 2 38
|
||||
#"plt:module-language:test-coverage-off\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 176 48 96 0 0 0 -1 -1 4 1
|
||||
#"\0"
|
||||
0 71 1 #"\0"
|
||||
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
|
||||
-1 -1 4 1 #"\0"
|
||||
0 -1 1 #"\0"
|
||||
1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
|
||||
-1 4 1 #"\0"
|
||||
0 71 1 #"\0"
|
||||
1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
|
||||
-1 4 1 #"\0"
|
||||
0 71 1 #"\0"
|
||||
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 100 0 0 0 0 -1
|
||||
-1 0 1 #"\0"
|
||||
0 75 10 #"Monospace\0"
|
||||
0.0 13 90 -1 90 -1 3 -1 0 1 0 1 0 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
|
||||
255 255 1 -1 4 1 #"\0"
|
||||
0 -1 1 #"\0"
|
||||
1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 255 255 0 -1 -1 0
|
||||
1 #"\0"
|
||||
0 -1 1 #"\0"
|
||||
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 200 0 0 0 0 0 -1 -1 0 1
|
||||
#"\0"
|
||||
0 -1 1 #"\0"
|
||||
0 10 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
|
||||
-1 -1 2 1 #"\0"
|
||||
0 -1 1 #"\0"
|
||||
0 10 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
|
||||
-1 -1 0 35 0 26 3 12 #"#lang planet"
|
||||
0 0 26 3 15 #" dyoo/whalesong"
|
||||
0 0 4 29 1 #"\n"
|
||||
0 0 22 3 1 #"("
|
||||
0 0 14 3 7 #"require"
|
||||
0 0 17 3 1 #" "
|
||||
0 0 22 3 1 #"("
|
||||
0 0 14 3 6 #"planet"
|
||||
0 0 17 3 1 #" "
|
||||
0 0 14 3 20 #"dyoo/whalesong/image"
|
||||
0 0 22 3 2 #"))"
|
||||
0 0 4 29 1 #"\n"
|
||||
0 0 24 29 1 #"\n"
|
||||
0 0 22 3 1 #"("
|
||||
0 0 15 3 6 #"define"
|
||||
0 0 24 3 1 #" "
|
||||
0 0 14 3 6 #"a-snip"
|
||||
0 0 24 3 1 #" "
|
||||
0 2 35 4 1 #"\0"
|
||||
2 -1.0 -1.0 0.0 0.0 0 12 500
|
||||
(
|
||||
#"\211PNG\r\n\32\n\0\0\0\rIHDR\0\0\0X\0\0\0U\b"
|
||||
#"\6\0\0\0\315\v#\352\0\0\0\6bKGD\0\377\0\377\0\377\240\275\247"
|
||||
#"\223\0\0\25\355IDATx\234\355"
|
||||
#"\234Y\254\34\305\271\200\277\252\236\231\263"
|
||||
#"y7\266\317\361n\360\2\266\3\16\306\vf7\216\223\\ \21I\20\302\271\220"
|
||||
#"D\212\24\244D\21\nW\271I$\256P\224\227(/\311KP\36\22\31\t\2"
|
||||
#"\17(\4\"\24\226k.\4\204\314*\300\6cb\233\v\266\217}\354\30\373\370"
|
||||
#",\263tW\325}\250\251\236\232\236\356Y\354c@W\374R\251{z\252{\252"
|
||||
#"\276\371\373\257\277\376Z\4`\370LH"
|
||||
#"\16\350\5\246\0\223\200n\244\314c\214"
|
||||
#" \b\24RV\20\242H\30\236\306\230Q\240\4h\314g\244\364Y\"\370\224\0"
|
||||
#"O\236<\203\201\201\305,^\274\224y"
|
||||
#"\363\26\323\337\337O>?\235R\251\207#Gr\274\367^\300\256]\206R\311\0"
|
||||
#"\32!\24P\301\230q`\24)?F\210#\b\361\21B\374/Qt\4\30\377"
|
||||
#"\314\1\377D\1\367\317[\304\232\265\353"
|
||||
#"\270l\375:\226-[\312\254i\323\350)\4H\t\306h\300T\217\2320\324\34"
|
||||
#"8\240y\350!\315\363\317k@\1\272Z\\\355\235G\3008\360/\204\330\207\20"
|
||||
#"\273\201\177b\314\360g\2\3669\a\334=e\n\3536ld\363\225W\261f\356"
|
||||
#"\\f\227K\344N\17C>\217\276\350"
|
||||
#"B\30\230\213\bCL\225\206\326\272\232"
|
||||
#"\24Bh\224R\334\177\277b\373v\205"
|
||||
#"\205\234\226\34p\2002B\34C\312\335\300kh\375A\374\354OC\316\31\340I"
|
||||
#"\347\235\307\346u\353\270i\351RV\236"
|
||||
#"\32\246g\317\273\210\375\373\221'O\22"
|
||||
#"\0\1 \346\314\201{\357\305|\365\253\230\361q\2141(\245\352\222"
|
||||
#"\326\nc\"~\363\233\210G\37\215\260\32\353\222\362\216>lU-\305"
|
||||
) 500
|
||||
(
|
||||
#"(\260\27)_\4\366\242\265\342\223\226"
|
||||
#"\t\a\234\v\2\256\17\2\266\255X\301\3120\244g\377~raH\36\310c\233"
|
||||
#"2\a\30\300L\232\204\371\323\237\320["
|
||||
#"\267\242\307\307QJ\21E\21a\30\306G\255#FFB\356\2743\344\335wC"
|
||||
#",\324\260\232\34d\22745\350\316\214"
|
||||
#"\24\221\362=\204\370\37\264\336\377\211\232"
|
||||
#"\216\211\3,\4\253\244\344\373\300\225Z\323g\f]X\277\240\e(`\341\n@"
|
||||
#"V\217N\314\300\0\321\263\317\22.YB8>N\30\206T*\225\272\243\224!"
|
||||
#";vD\334uW\5\255\35d?\371\327\2346\373\347\32\30A\210\327\201\3470"
|
||||
#"\346\324\204T\273\225\4\300\275g\373\220"
|
||||
#"B\20\360\357R\3623\245Xk\fS\201\31\300t\254\323\325\203\5\3544\327\1"
|
||||
#"vI\216\216\22\f\16\222\273\3556d\20 \204\250K\0J\t\346\3177\354\334"
|
||||
#"i8z\324\375rR7\4\351b\252)\a,\0\226\"\345\bp\354l\253\336"
|
||||
#"R\316\32\360\202|\236\377\22\202mQ"
|
||||
#"\304\0\26\354L\240\17k\22\222\332\232%b\357^\344e\227\21\254\\I %"
|
||||
#"R\312:\300\0]] \4\354\330\341"
|
||||
#"\337i\22\347\315~\315\201\356\303\230\345"
|
||||
#"\4A7p\220\232\315\236x9+\300\353s9~\245\24W(\305L,\330I"
|
||||
#"\325\207:\333\343\252\233Uu\207G\0"
|
||||
#"\346\360a\304\355\267\23\344\363\4A\200"
|
||||
#"\224\262>\257\201\376~\303\323O\303\360"
|
||||
#"p\22\254\361\236\226f\365\222\337I\214"
|
||||
#"\231\17\364c!\227\332\253t\207rf"
|
||||
#"\200\205\340+A\300\275J\261\22\230\205"
|
||||
#"5\ay\352!f\235\223\270\356\276\23"
|
||||
#"\207\16\301\365\327\303\242EH)c\310\316\3152\6&O6\34?\16\257\276\n"
|
||||
#"\265F\314\207\353\334\265,\310&q>\23k6\216\0#mT\2763"
|
||||
#"\351\34\260\224|+\b\370\231R,\1fc\315A\253\27\323IS\2156"
|
||||
) 500
|
||||
(
|
||||
#"\6\272\273\341\206\el^!bSa\277\266P\246L1\374\345/\20E\256\323"
|
||||
#"\221\246\301\311\224U\"S\255\301B\244"
|
||||
#"\34\302\230\341\246\325\357Td\353,\236"
|
||||
#"\b\301\267\202\200\377\210\"\26b\341v{_\247U+\r\256;O{\241\3153"
|
||||
#"\317`\306\306\354\2711H)\351\352\352"
|
||||
#"\242\273\273\233\256\256.\244,\260jU"
|
||||
#"\201\265ks\330F\313\245\254&4\231dF\232\211\3267\20\4\363;B\322J"
|
||||
#":\2\374oRrw\30\262\0\v\267\340}\3474\322\177\345I|NBO\263"
|
||||
#"\323|\360\1\274\365V|\335A.\24\ntuu\221\317\27\350\353\313s\323M"
|
||||
#"i\236u\328\341\375\232\179\r\366L\224\372j\265v\23#m\3^/%"
|
||||
#"\377\251T\254\271\371\304\367\311\327=\v"
|
||||
#"t\332\365\272<J!^z\311^\367\274\210 \bb\310B\24\270\376\372<3"
|
||||
#"g&\265\327O\355h\262\17\331\3353\v\330\212\20S\332E\323T\332\2\2740"
|
||||
#"\227\343\347\306\260\b8\257Z\245s*;w\246^\316\345r\24\n\5\202 \317"
|
||||
#"\222%y\266nm\246\305I\r\365%"
|
||||
#"\313\\\270\373\347b\314\265\b\221T\243\316\245%\340\236 \340ncXi\f3"
|
||||
#"\2517\v\347Lv\357\206\361\361\206\313"
|
||||
#"B\b\362\371<\371\274\205|\353\255yr\271,;\354\203N{w \333&\a"
|
||||
#"\300\5\300ZD\362\226\16\2459`!\330&\4\327V\375\334IM\2626\363<"
|
||||
#"\233Ij\236\217>\262)E\244\224\344r9\214\311\261~}\216\215\e;\201\333"
|
||||
#"\314P\371Z\35\0y\214\271\4!\26\265Q\213li\n\370\vB\360\355(b"
|
||||
#"\0060\255\305\203\322\376\350\266zpi"
|
||||
#"\27\213E\370\360\303\364\374B\20\4\1"
|
||||
#"A\220\243\247'\340\333\337N\263\275I3Q\347mg\224B\244\334"
|
||||
#"\327\207\326\e\260\235\3753\223L\300\5!\370\276\326\314\303v\177\203"
|
||||
) 500
|
||||
(
|
||||
#"\254\214g mE\227j\1\207\6\261"
|
||||
#"\200\3\224\222l\331\"Y\261\"\315\216"
|
||||
#"\266c\"|\361\363\372\317\231\3\254n\247\304\231OM\225/K\311F`2g"
|
||||
#"\363\377\245K[fMf\277\\N\213\205\b\230>=`\333\266,\367,M{"
|
||||
#"\333\321d\227\334[q!\266\307\327\271"
|
||||
#"\244\326bj\20p\213\326L\6\246R\363W\323:\20YQ\200\254NG\333i"
|
||||
#"`\300\36\215\211\23\20\37]7:\212$_\373\232d\336\274\206\30]\n0'"
|
||||
#"\315\376\3424wn2\260\272.\360\324"
|
||||
#"\256\244\2\336\n\254\250\206\35\375\236Z"
|
||||
#"\332\377\237,~\332\365\216\323\244I\210"
|
||||
#"%K\354y\"l\351\316]\254\2$\375\375\222[n\311\202\332\252qKJ\22"
|
||||
#"\2563\27\v\261Njg\322\0x\262"
|
||||
#"\20\334\240\24\223\260\261\334\316\372\322\331"
|
||||
#"\322N|+\226\345\313a\341\302\372\274"
|
||||
#"\211a\b\a\331j\261\340\e\337\220\314"
|
||||
#"\234\331\nr\273\222\346U\364a\314\212"
|
||||
#"\16\236a\245\201\337\345\300Rj#\21I\311\n\233\264j\270|3\223&uf"
|
||||
#"\346\252\2530\371|\235i\250\313kL\235fk-Y\270Pp\323M\376\257\245"
|
||||
#"\275[\315 \247EM\222\232<\37k4\333\227:\300\201\224l\26\202n,`"
|
||||
#"\337s\310*f\263&#)\315\356\255C\261uk\235y\240z\336\360\274\0302"
|
||||
#"h\r\337\374\246\240\257/\313\307\315\372"
|
||||
#"\334\254\264\376Q\2\275\b\2610#\177"
|
||||
#"\272\324\1^\"%\27iM\36\253\275"
|
||||
#"\235\233\364\t\220\205\va\323\246\246Y"
|
||||
#"\322\354r\24\t\226-\23l\336\234z\307Y\24\250\336T\0303\217\306HL\266"
|
||||
#"\324\1^\217\r\234\27314h\35ame\32Z\231\204\206t\343\215\230i\323"
|
||||
#"jy\306\3060\17?\2149q\242vo\325l$\207\224\214\201\233o"
|
||||
#"\206\\\333\301\222\264Q\21'i\346E\2\323\20bz\273?P\3\234\3"
|
||||
) 500
|
||||
(
|
||||
#"\326x\332\353\227\261\35\210\355\346q)"
|
||||
#"U\247\202\0\261m[\3557\225\202;"
|
||||
#"\357\204\333n\203\273\356\302\37oO\263"
|
||||
#"\315Q\4_\370\2\254Y\223\374e\262"
|
||||
#"~1\221'\2536\276\231\350\302\0163\265'1\340~!X\24259j\203\225"
|
||||
#"\311\3077sv\262\212/\0\223\30%"
|
||||
#"\26B\200\20\215\317\331\260\1\326\257\257"
|
||||
#"]\373\363\237\341\201\al\276\a\37\204"
|
||||
#"\307\37\267\371\274\21\16\37\264\326\206B"
|
||||
#"\1n\2741Y\212$\264\266\372\222\244"
|
||||
#"kq\2001\347\321\256\177\25\347Z\212"
|
||||
#"u\247\375~P\326hD\326\365\3642\212\354<B\324\353\327\17~\0yk\337"
|
||||
#"\304\3600\342W\277\212\3575\306\300\275"
|
||||
#"\367\3328\205\177\215z\320\225\212a\303"
|
||||
#"\6\303\300@\253\341\242,\343\227V\313"
|
||||
#"\270\300\325\343d\254\e\320Z\244\253\350"
|
||||
#"r)\353\302%\311\"5\353\261e\25\307\1lj\277\2356._\216\271\371\346"
|
||||
#"Z\236\207\36\302\274\377~}\3767\337"
|
||||
#"\204\307\36k\350\341\371Ik\230>\335"
|
||||
#"p\355\265\311\32\264+\255\f\236\300\232"
|
||||
#"\211\366\3345\t \205`\00153\236\366b4\353\261\371\307\264\342dy\243u"
|
||||
#"&\342G?BL\236l?\27\213\210\373\356kx\6\0\277\375-\224\313 D"
|
||||
#"<Q\260\36\260&\212\f\327]g(\24Z5\315\355^O\326(\300jqk"
|
||||
#"\221\0\223\204`\246R\251\0Z\375\237"
|
||||
#"\231\337\245\371\255i\367\32\3\313\226!"
|
||||
#"\356\270\243\326\0>\372(\274\375v\303"
|
||||
#"=\2\340\345\227\21O>\211\366\0'!G\221\341\374\363\r_\374b;\357^"
|
||||
#"\262&Y5J\226\244\3\300S\215a\n\3557`\255z\363\235\212\270\373n\230"
|
||||
#":\325\376V\245\2\277\373]\363g\377"
|
||||
#"\376\367\3500\254\3\354\203\326\332 \245"
|
||||
#"a\353\3264\357\240\231\321J\346K-m5\3654+a"
|
||||
#",\26\260\326\24\252\217t\223?\233\275\\\355\372\303-\253"
|
||||
) 500
|
||||
(
|
||||
#"c\ff\315\32\314\355\267\327\236\363\364"
|
||||
#"\323\230W_mn\273\237{\16\365\362\313\250 \310\204\\.k\326\2541,Y"
|
||||
#"\322\256\211h\347{'\316\16\267v\270-`!\2204\2\316\322hR\276k\370"
|
||||
#"/\215ii\307\21\2\356\271\az{"
|
||||
#"\3555c\340\276\373\20\325{\263\356\323"
|
||||
#"\225\n\352\301\aQ)f\242\366\331\320"
|
||||
#"\323\243\371\322\227\222\23S\232ih+"
|
||||
#"\225\361\363H\332\6\334\27\4\30\352'"
|
||||
#"}\352D\30635\5\231\367\31\203\370"
|
||||
#"\362\227\341\353_\257]{\353-\304\263"
|
||||
#"\317\266|\246\6\324\343\217\243>\372\b"
|
||||
#"\225\230\264\355C\256T\f\e7\32f\315j\69\353\35\245E^I;]f"
|
||||
#"\t\220S\252N{\335,\333\263\226\254"
|
||||
#"\231\316\306@o/\346\227\277\204\300\v"
|
||||
#")m\337\16\245\346\223\360\f\325\231\300"
|
||||
#"\203\203\250g\236A\5Au&|\243\231\210\"\303\264i\326\243h\17p\253\306"
|
||||
#"0i&\332\264\3019h\0\0346\271\251#m\316\202\374\275\357!\326\255\253="
|
||||
#"\353\304\tx\344\221\226\217\363\25@="
|
||||
#"\362\bQ\261\230j\207-dM\245\242\271\342\n;\237\255V\313f\r\\\362\330"
|
||||
#"\354\17h\23\260\277vGa\341\226\231"
|
||||
#"\300Y\263\306\324\247y\363\340\27\277\210"
|
||||
#"\277\26\0\177\373\e\34>\334\3741\324"
|
||||
#"\346\261+ z\3555\324\356\335()"
|
||||
#"\23\353:j\220\243\310\232\210+\257\364W&ub*\332\371#\262E\2\204\306"
|
||||
#"\304\366\327\301-\323\\\213\317J\356\271"
|
||||
#"\a\346\316\255}\326\32\356\277\277\345m\21P\241\266:#*\225PO<a\201"
|
||||
#"\247\230\t\247\305ah\270\352*Co"
|
||||
#"\357\331\300Mj\277\246m\300%\352\227"
|
||||
#"\225\224\253\327\312m=\242C\271\372j"
|
||||
#"\370\356w\353\257\275\366\32\274\364R\323"
|
||||
#"\333\3542\304Z\31\343\2450O=\205\32\32BiM\24"
|
||||
#"Eu\240k=;\315\2349\232\r\e:\321\342f\220\225"
|
||||
) 500
|
||||
(
|
||||
#"W\202\346\"\1F\202\0\177\355N\5"
|
||||
#"\vw\234\t\326\342\356n\370\365\257\355Z\0_\266o\207J%\3636]-S"
|
||||
#"\235\366V\217\352\320!\324\213/\22U"
|
||||
#"}\342\306e`:\206|\3155\232\236"
|
||||
#"\236\264\305\214i\266\31\32\301\372\311\255"
|
||||
#"pj.\22\340t\265\360I\300\245j"
|
||||
#"\2320-\276\343\16\330\270\261\376\332\261"
|
||||
#"c\360\327\277f\336\342\354\256\178\271\246(z\352)T\251\224\351MhmW"
|
||||
#"\216\316\236\255Y\2736\253\241\313j\340"
|
||||
#"\322\362*\332m\245$\300\2601\214SS|\337L\214U+\346W8\t<\355"
|
||||
#"sC\261g\315\202\237\377\334\236\273\270"
|
||||
#"\1`\36}\24\216\34\311\254\252+\213"
|
||||
#"\203\353C\216\275\2117\337D\355\337\217"
|
||||
#"\22\242\1\262\377Y)\303\25W\30\272"
|
||||
#"\272\222\320\374e\ai6W\247\234;\303\332\6\340\21c8Em\t_\245z"
|
||||
#"{\21k&\306\250\375W\255b\23~"
|
||||
#"\236\272\236\336\217\177\f\213\27\333s\27"
|
||||
#"x\17C\304\366\355\251\367$\341\372\32"
|
||||
#"\334\0\271TB=\367\234]\r\227\200\352\2470\324\f\fh.\271\244\35-N"
|
||||
#"3!~jo\321\214m\344\214\341\30\265\206\304\1v\220G\253G\377\205H\276"
|
||||
#"H\376yC\272\340\2\314\17\177X\313W\325^^x\1\363\312+\r\325s6"
|
||||
#"\3275\264>\344\6\355u\351\205\27P\247N\241\22P\e\3356\315\246M\332\v"
|
||||
#"e\266j\364\222`\235\201jo\301L\34[?(D\235\e\344\354\260\323b\267"
|
||||
#"CCX\375\331d\f\302]K\215_\334}7L\237^\37\203\0\314\37\376`"
|
||||
#"]4\357Y\356O\316\202\233l\350b"
|
||||
#"\320\207\16\241\337z\253\251O\354\0\17"
|
||||
#"\f\30V\257n\267As6\327\a\354\324\256\3\300\37R\363}]\205\212^\32"
|
||||
#"\253\246qj\326\307\25-\253\323(\0\261z5\334"
|
||||
#"qGc\b\364\335w\21O<Qg\22|\323T\246"
|
||||
) 500
|
||||
(
|
||||
#"\21p&\\\227\376\361\17T\24\241\32l\257\362\2\3626]~\271&\237\317Z"
|
||||
#"\6\226f\177\265\367\213\356\235\356\0\360"
|
||||
#"a)9A\255\241s\25r\356\332h\25\260\323h\a:\244\361%\303?\376\364"
|
||||
#"\247\230\276\276\372\241\35\300\374\361\217\230"
|
||||
#"\261\261\330\341qo\213\323\\wL\203"
|
||||
#"\233\265*9\332\265\vu\370p\323\0\2201\246j\213\r\253V\2455fI\250"
|
||||
#"*q\36b\375\256\366\24251\340\323"
|
||||
#"Z\363\241\224\261\375\363+\355\240\216T"
|
||||
#"\217\3765\367\271L-\n\27\267\311\227"
|
||||
#"]\6\267\334R\367\203F\b\364\321\243"
|
||||
#"\250\207\36\"\244\246\261\16\256K\345D"
|
||||
#"J\323\334\6-\36\eC\275\361F\34"
|
||||
#"\306L\203\353\17-\255_o\310\347\333"
|
||||
#"\361y}\r\256\0\355\257\245\213\3\232"
|
||||
#"\306\30\366\n\301%\325\317\25\262\27C9\255K[\343\23\337#\4\342'?A"
|
||||
#"tu\305\0212\2555\246\273\e\375\360\303\350#Gb\235HnH\340\373\271\255"
|
||||
#"\216\r\240_~\31u\305\25\261\211\310"
|
||||
#"\262\305\306\330\221\347\213.2\274\375v"
|
||||
#"\26\\\177\245\276o\36Nw\16\30\340"
|
||||
#"}c8\201\235\244\351\0\247\5\334\r"
|
||||
#"\215k{\32\346\225o\334\210\330\262\5"
|
||||
#"q\362$.\242\246\0013<\214\331\276\275\341\5Ln\257\221\266IAS\260."
|
||||
#"}\370!\352\203\17\320\213\0265hn"
|
||||
#"\332\260\322\272u\206={\254\331\310\326"
|
||||
#"\\\337p\236\302\276Sg\0\370TU\213g\30C\205\332\242\356\244g`\260\263"
|
||||
#"\177\222p]~)%\342\316;\355\310\304\350\250\35\2767\6\272\2720;v\240"
|
||||
#"w\355\252\353\325'59\rtS\323\340\237+\205~\375u\364\242E\231\376p"
|
||||
#"-^\254\351\3577\254X\241\331\275;\253D~\0w\f8\3366\334\6\300\0"
|
||||
#"o\0\27c\207\364\222\246\301\301u?\357\366\200\250\203"
|
||||
#"\v\210M\233\220\e7Z\355\365\304\204!<\360\200\255"
|
||||
) 500
|
||||
(
|
||||
#"$\365\16\220\177L\3\227\4\236\266\345"
|
||||
#"F\374B\357\332\205\332\274\31](d\216<\373Z|\351\245\206={\2549i"
|
||||
#",\215\337\f\177L'\346!\25\360A!\330'\4+\265\216\315\204\3\234f\376"
|
||||
#"s$VE\344r\210\357|\a\21Ev\2048\376\245\34\354\331\203y\341\205\206"
|
||||
#"6;Y\235\210t\330Y@\ev\3549q\2\375\376\373\230\213/\306$F\237"
|
||||
#"\223\220\303\320F\332\26/V\354\337\237\324\\\277a\263;[5\16\246u\bX"
|
||||
#"i\315+A\300\22jf\300\327\336\344"
|
||||
#"\213\324E\302\366^}5\342\342\213\355"
|
||||
#"\324'\177nDw7\346\261\307\354\346"
|
||||
#"Gd7)\311\246\245\31\314\264}\247\342\3637\337D\257Z\25\367\354|;\234"
|
||||
#"\264\311B(V\257\326\348\2400&\371d\247\275'\261\366\2673I\35\26\335"
|
||||
#"\247\24\373\244d\245\326\2619o\346z"
|
||||
#"\27\34\334\356n\304\255\267\"\312e\253"
|
||||
#"\301\16\260\224p\342\4\346\311'\e\\"
|
||||
#"\372\3443\223\260\322^\332\264\353\376w"
|
||||
#"\6\320\373\366\241\217\37GO\235\332\0"
|
||||
#"\326\377l=\r\315\334\271\212\331\263\25CCip\213X\355\355<x\233\nX"
|
||||
#"\3/\32\303\2\354N\n\255\0GTgd^w\35\342\202\v\20\325\355\bb"
|
||||
#"\300]]\360\374\363\230\243G\e\302)"
|
||||
#"\255\334\373V\300\323\376\30\3\250R\t"
|
||||
#"\275g\17f\323&tu_\266\344\320"
|
||||
#"\276\337\31\221R\261l\231\178\242\326"
|
||||
#"\3459Q\5\334\271d\16\354\0374\2067\204\340rcj\35\a\32\315D\256z"
|
||||
#"\f{{\311\337x#\262X\4\245jp\205\260\301\364\277\377\275\341\31YA\301"
|
||||
#"V\16S\22\256\237|\233n\336y\a\275vmK\270.\315\237\257\350\356V\224"
|
||||
#"J~D\344\0240H\247\266\267%`\200\235B\260\320\30\6R\0'"
|
||||
#"\e\236\334\225W\22\315\236Mn|\274n\257\35\221\317c\336y\a\366"
|
||||
) 500
|
||||
(
|
||||
#"\354\211\237\341\216~\27;\t\331\375F\226\371H\206`\322B4zp\02034"
|
||||
#"\204\2313\247)\\7\324\324\335\255\230"
|
||||
#"7O\261\177\277\203;\212\335\231\2523"
|
||||
#"\317\301\227\246\263\210G\265\346\205\\."
|
||||
#"\36:\362\343\1~\214\240\334\327G\371\232k(\216\215Q,\26)\225J\204a"
|
||||
#"h\367=\213\"\302\35;\b\225\252\213"
|
||||
#"\210\245\216\257Q\337\241H\372\301i\336"
|
||||
#"D\232\231\210\377\260(B\357\335\eO\24L\323Z\a7\212\"\242H1o\236"
|
||||
#"\263\273\343X\323pv[\177\265\234\246"
|
||||
#"\375O\245xU\312\272\20\246\e^r\237\303\r\e(\317\234Iyl\214R\251"
|
||||
#"\24\247\212R\204\207\16\21\276\362J\3\320$\314,\310ip\323LD\362Z\f"
|
||||
#"y\357^t\261\330\0004\rr\245\22"
|
||||
#"\322\327W\246\267\267\204\365\32\216P?"
|
||||
#"\236\323\271\264\236\\e\f;\261\v\302W$*\221\3to/z\303\6\202b"
|
||||
#"\21\5\361\342@Y\235\320-w\356D\216\216\3061\fh\36\240O6|Y\346"
|
||||
#"#\353\330\220\377\370q\324\340 \252\277"
|
||||
#"\37\355\305%|\315UJ\21\206!\245R\211(*2y\3620\343\343\23\263\v"
|
||||
#"U[\353q\"cx\26\353\27\317\247\36r\260f\rz\3324T\251T\aW"
|
||||
#"J\211\254T\220\325\355a\222\35\26h"
|
||||
#"\16\270\35\350iP\el\266\326\250\3"
|
||||
#"\a\320s\346\304\200\223\232\353\340\26\213"
|
||||
#"E\206\207\207\211\242A\316\324kHJ"
|
||||
#"\333\v\236F\201\377\6\276\202\335\263G"
|
||||
#"\3\272\273\233\374\245\227\242\313eDu"
|
||||
#"\363\2428\25\n\210}\373\220\207\16\305"
|
||||
#"q\214d\360\250\325\230B\26\364$\334\264^a\235\3718p\0\275fM\34\210"
|
||||
#"\367\223\17\367\324\251S\f\r\rq\362d\366V\n\235JG\333\357|\f<#"
|
||||
#"%[\264f\26\240/\274\20=e\n\271R\251\272"
|
||||
#"\275@u\2373)\221B _\177\35\241u\313e\b"
|
||||
) 500
|
||||
(
|
||||
#"\220\256\315\355hr\263\360x\234N\234"
|
||||
#"@\35;\206\2321\303\216xxp\313"
|
||||
#"\345r\35\334\303\207\17\243\275a\254\263"
|
||||
#"\225\216\3677:\2565O\t\301\346\\"
|
||||
#"\216\376\213.B\25\213\344\204 \227\313"
|
||||
#"\305[\f\310 @\214\214 \337{\257%\330\344\347v4:\315g\316\362\243\25"
|
||||
#"X\323p\360 j\3324T\24\21E\21\225J\205J\245B\251Tbxx\230"
|
||||
#"\243G\2172888\241p\341\f7\220\372\330\30\236\221\222+\207\207Y0u"
|
||||
#"*Q.GNkr\371<\271|\36\31\4\310}\373\20\247O\327\201\365\355p"
|
||||
#"\226\230\224c\226\6\247\331\341,mV"
|
||||
#"\a\17\242\226/'\254\202-\227\313\24K%FN\237\346\310\341\303\f\35?>"
|
||||
#"\341p\241\276\315\351X\272\273\273Y\273"
|
||||
#"v-+\346\317'\37E\4\245\22\271\321Qr\243\243\4\a\16 N\236\314\236"
|
||||
#"\335N#\350\244\366\372\327:1\23\251"
|
||||
#"]\354|\236p\313\26*\205\2\245\361"
|
||||
#"q\306\306\307\31\376\370c\216\f\16r"
|
||||
#"rx\370\314!\264\220\263\2\f6\336"
|
||||
#"\260\274P\340\222J\205\311\306\20\320z"
|
||||
#"\243C\377\307}i\0057\313.\247v\223i\f\227W\226.\245\270`\1##"
|
||||
#"#\234\32\32\342\350\320\20\243M\346\304M\204\2345`'3\2005X7\316\355"
|
||||
#"\302\232\265\17_Z!H\24\244\35\310"
|
||||
#"iv\330\a\233\234\320X\4N\367\366"
|
||||
#"\362\257 \340\330\310\310\304\314\342o!"
|
||||
#"\23\6\30,\310\363\201\213\260\353 \375"
|
||||
#"\rY\342\215\361i\324\3464\260\376y"
|
||||
#"\26\3304{\254\251\357\35\272\250\3028\266ov\234s\261\211m\266L(`'"
|
||||
#"\275\300\5B\260\330\230x\303\346\206a%\322\375b\22\347\255:#\311ASg"
|
||||
#"\22|\260\247\261Q\205\223\347\242\262"
|
||||
#"-\344\234\0v\322\v,\22\202\371\325\r\226\234\351H"
|
||||
#"&\177\354/)\315\32\270d\360\307\245\nvx\3624\326"
|
||||
) 188
|
||||
(
|
||||
#"w\37\256\346\3714\344\234\2v\222\307"
|
||||
#"n\3576\200\335}\314\355G\2216\2432M\262\\3gg}s0\216\5z"
|
||||
#"\n\333\373\374\24456)\237\b`_"
|
||||
#"z\260\r\342\f\254\235\356\301\216\353\371"
|
||||
#"\235\20\2238\317r\301\\\3035\16\214\n\301(0Z]o\362Y\221O\34\260"
|
||||
#"/\201\20\364\30C/\325]\256\204\240`L\274!H@\343p~\b\224\205\240"
|
||||
#"dL<\335\252\302\247\257\251Y\362\251"
|
||||
#"\2\316\22Au\352\225\277\205\214\20\250"
|
||||
#"\2545w\237a\371L\2\376\377$\23"
|
||||
#"\265\261\337\347\222!\237\3>\307\3629\340s,\237\3>\307\362"
|
||||
#"\177z\314\306\205O<{Y\0\0\0\0IEND\256B`\202"
|
||||
) 0 0 22 3 1 #")"
|
||||
0 0 4 29 1 #"\n"
|
||||
0 0 22 3 1 #"("
|
||||
0 0 14 3 11 #"image-width"
|
||||
0 0 17 3 1 #" "
|
||||
0 0 14 3 6 #"a-snip"
|
||||
0 0 22 3 1 #")"
|
||||
0 0 4 29 1 #"\n"
|
||||
0 0 22 3 1 #"("
|
||||
0 0 14 3 12 #"image-height"
|
||||
0 0 17 3 1 #" "
|
||||
0 0 14 3 6 #"a-snip"
|
||||
0 0 22 3 1 #")"
|
||||
0 0 4 29 1 #"\n"
|
||||
0 0 14 3 6 #"a-snip"
|
||||
0 0 4 29 1 #"\n"
|
||||
0 0
|
||||
|
|
@ -1,7 +1,7 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
(require whalesong/resource
|
||||
whalesong/image)
|
||||
(require (planet dyoo/whalesong/resource)
|
||||
(planet dyoo/whalesong/image))
|
||||
|
||||
(define-resource whale-resource "images/humpback.jpg")
|
||||
(define-resource self-resource "using-resources.rkt")
|
||||
|
|
@ -1,7 +1,7 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
(require whalesong/world
|
||||
whalesong/image)
|
||||
(require (planet dyoo/whalesong/world)
|
||||
(planet dyoo/whalesong/image))
|
||||
|
||||
(define-struct world (x direction))
|
||||
|
||||
|
|
@ -1,6 +1,6 @@
|
|||
#lang whalesong
|
||||
#lang planet dyoo/whalesong
|
||||
|
||||
(require whalesong/js)
|
||||
(require (planet dyoo/whalesong/js))
|
||||
|
||||
(when (in-javascript-context?)
|
||||
(viewport-width))
|
||||
|
|
@ -12,7 +12,7 @@
|
|||
;; my-image-url: (parameterof stx)
|
||||
;;
|
||||
;; During the dynamic extent of expand-out-images, this will be defined
|
||||
;; as the unique name for the image-url function in whalesong/image.
|
||||
;; as the unique name for the image-url function in (planet dyoo/whalesong/image).
|
||||
(define-runtime-path whalesong/image
|
||||
"image.rkt")
|
||||
(define my-image-url (make-parameter #f))
|
||||
|
|
@ -208,4 +208,4 @@
|
|||
(define-values-for-syntax ids #,(on-expr #'expr)))]
|
||||
|
||||
[else
|
||||
(on-expr stx)]))
|
||||
(on-expr stx)]))
|
||||
7
image/main.rkt
Normal file
7
image/main.rkt
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
#lang s-exp "../lang/base.rkt"
|
||||
|
||||
(require "private/main.rkt"
|
||||
"private/color.rkt")
|
||||
|
||||
(provide (all-from-out "private/main.rkt")
|
||||
(all-from-out "private/color.rkt"))
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user