From bf741ec7cd864fd7b213a6661a8d07c4680f4e7c Mon Sep 17 00:00:00 2001 From: Vishesh Yadav Date: Wed, 16 Jun 2021 18:08:40 -0700 Subject: [PATCH 01/38] Update playground link (#20) --- README.md | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/README.md b/README.md index 709e3a9..94756f4 100644 --- a/README.md +++ b/README.md @@ -1,10 +1,11 @@ Racketscript Playground ======================= -Playground -for [RacketScript](https://github.com/vishesh/racketscript). Visit -http://rapture.twistedplane.com:8080 to try. Both server-side and -client-side code is written in RacketScript. +[![MIT licensed](https://img.shields.io/badge/license-MIT-blue.svg)](COPYING.md) +[![Try Online](https://img.shields.io/badge/try_it-online!-ff9900.svg)]( http://play.racketscript.org:8080/) + +Playground for [RacketScript](https://github.com/vishesh/racketscript). +Both server-side and client-side code is written in RacketScript. Playground uses Github Gist to save and load files. The name of Gist file must be `source.rkt`. From 5c0ad2e32d5b1ea70f7b333720a4bb4c45f29efe Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Fri, 18 Jun 2021 18:56:03 -0400 Subject: [PATCH 02/38] add archery example (#21) * add archery example * restore archery github link --- examples/archery.rkt | 2095 ++++++++++++++++++++++++++++++++++++++++++ static/index.html | 1 + 2 files changed, 2096 insertions(+) create mode 100644 examples/archery.rkt diff --git a/examples/archery.rkt b/examples/archery.rkt new file mode 100644 index 0000000..89f90d6 --- /dev/null +++ b/examples/archery.rkt @@ -0,0 +1,2095 @@ +#lang racket + +;; NES Archery, by Jake Lawrence +;; https://github.com/jakelawrence24/Revamped-NES-Archery + +(require racketscript/htdp/image + racketscript/htdp/universe) + +;(define WOOT (bitmap/file "WOOT.png")) +;(define WWOOT (bitmap/file "WWOOT.png")) +;(define UWOOT (bitmap/file "UWOOT.png")) +;(define BWOOT (bitmap/file "BWOOT.png")) +;(define SB (bitmap/file "SB.png")) +;(define VSB (bitmap/file "VSB.png")) +;(define ASB (bitmap/file "ASB.png")) +;(define WSB (bitmap/file "WSB.png")) +;(define SSB (bitmap/file "SSB.png")) +;(define ARCHER-S (bitmap/file "ARCHER-S.png")) +;(define ARCHER (bitmap/file "ARCHER.png")) +;(define B-ARCHER-S (bitmap/file "B-ARCHER-S.png")) +;(define B-ARCHER (bitmap/file "B-ARCHER.png")) +;(define BLINKR (bitmap/file "BLINKR.png")) +;(define BLINKL (bitmap/file "BLINKL.png")) +;(define WUP (bitmap/file "WUP.png")) +;(define WDOWN (bitmap/file "WDOWN.png")) +;(define WEVEN (bitmap/file "WEVEN.png")) +;(define HITPOINT (bitmap/file "HITPOINT.png")) +;(define ARROW (bitmap/file "ARROW.png")) +;(define HT1 (bitmap/file "HT1.png")) +;(define HT2 (bitmap/file "HT2.png")) +;(define HT3 (bitmap/file "HT3.png")) +;(define HT4 (bitmap/file "HT4.png")) +;(define HT5 (bitmap/file "HT5.png")) +;(define HT6 (bitmap/file "HT6.png")) +;(define HT7 (bitmap/file "HT7.png")) +;(define SCOREBOARD (bitmap/file "SCOREBOARD.png")) +;(define SB1 (bitmap/file "SB1.png")) +;(define SB2 (bitmap/file "SB2.png")) +;(define CONTINUE (bitmap/file "CONTINUE.png")) +;(define EXIT (bitmap/file "EXIT.png")) +;(define STATS (bitmap/file "STATS.png")) +;(define HOWTO (bitmap/file "HOWTO.png")) +;(define NICE (bitmap/file "NICE.png")) +;(define QUALIFY (bitmap/file "QUALIFY.png")) +;(define NQUALIFYX (bitmap/file "NQUALIFYX.png")) +(define ARCHER (bitmap/url "http://i.imgur.com/PkCMNNn.png")) +(define ARCHER-S (bitmap/url "http://i.imgur.com/ZYwtHWV.png")) +(define ARROW (bitmap/url "http://i.imgur.com/YEOB1RP.png")) +(define ASB (bitmap/url "http://i.imgur.com/2SFORKH.png")) +(define B-ARCHER (bitmap/url "http://i.imgur.com/HV1y9rb.png")) +(define B-ARCHER-S (bitmap/url "http://i.imgur.com/2ME1Jzm.png")) +(define BLINKL (bitmap/url "http://i.imgur.com/Wk6pC5z.png")) +(define BLINKR (bitmap/url "http://i.imgur.com/m39poUR.png")) +(define BWOOT (bitmap/url "http://i.imgur.com/7mtVXF8.png")) +(define CONTINUE (bitmap/url "http://i.imgur.com/KZsZTj7.png")) +(define EXIT (bitmap/url "http://i.imgur.com/suuJYdf.png")) +(define HITPOINT (bitmap/url "http://i.imgur.com/7XrsoH5.png")) +(define HOWTO (bitmap/url "http://i.imgur.com/XLZi9a7.png")) +(define HT1 (bitmap/url "http://i.imgur.com/VEV3RB1.png")) +(define HT2 (bitmap/url "http://i.imgur.com/cqY2u2c.png")) +(define HT3 (bitmap/url "http://i.imgur.com/WlakuBI.png")) +(define HT4 (bitmap/url "http://i.imgur.com/zOYtSOI.png")) +(define HT5 (bitmap/url "http://i.imgur.com/QTOHnw9.png")) +(define HT6 (bitmap/url "http://i.imgur.com/m2LWx57.png")) +(define HT7 (bitmap/url "http://i.imgur.com/frndd5v.png")) +(define NICE (bitmap/url "http://i.imgur.com/chUPaJN.png")) +(define NQUALIFYX (bitmap/url "http://i.imgur.com/9COnA4D.png")) +(define QUALIFY (bitmap/url "http://i.imgur.com/BTHna0n.png")) +(define SB (bitmap/url "http://i.imgur.com/Nkf3QBN.png")) +(define SB1 (bitmap/url "http://i.imgur.com/9qh1LeG.png")) +(define SB2 (bitmap/url "http://i.imgur.com/h9UUJuj.png")) +(define SCOREBOARD (bitmap/url "http://i.imgur.com/Bu5imty.png")) +(define SSB (bitmap/url "http://i.imgur.com/hVv3oqK.png")) +(define STATS (bitmap/url "http://i.imgur.com/yYaNxFo.png")) +(define UWOOT (bitmap/url "http://i.imgur.com/RjvJYu9.png")) +(define VSB (bitmap/url "http://i.imgur.com/JoKhNd9.png")) +(define WDOWN (bitmap/url "http://i.imgur.com/ENK9DfL.png")) +(define WEVEN (bitmap/url "http://i.imgur.com/Zw0U6Pz.png")) +(define WOOT (bitmap/url "http://i.imgur.com/c5YGnGf.png")) +(define WSB (bitmap/url "http://i.imgur.com/N5qjeJF.png")) +(define WUP (bitmap/url "http://i.imgur.com/tKp6Znv.png")) +(define WWOOT (bitmap/url "http://i.imgur.com/3jGLSju.png")) + +(define-struct archer (x y timer)) + +(define ARCHER1(make-archer 105 400 0)) + +#|Template for archer +;archer-func: archer -> ... +;consumes an archer and produces ... +(define (archer-func a-archer) + (make-archer + (archer-x a-archer) + (archer-y a-archer) + (archer-timer a-archer) + ))|# + +(define-struct arrow (x y x-v y-v angle timer bounce-timer score increase?)) + +#|Template for arrow +;arrow-func: arrow -> ... +;consumes an arrow and produces ... +(define (arrow-func a-arrow) + (make-arrow + (arrow-x a-arrow) + (arrow-y a-arrow) + (arrow-x-v a-arrow) + (arrow-y-v a-arrow) + (arrow-angle a-arrow) + (arrrow-timer a-arrow) + (arrow-bounce-timer a-arrow) + (arrow-score a-arrow) + (arrow-increase? a-arrow) + ))|# + +#|Template for list of arrow +;define list-of-arrow-func: list-of-arrow -> ... +;consumes a list-of-arrow and produces ... +(define (list-of-arrow-func a-loa) + (cond + [(empty? a-loa)...] + [(cons? a-loa) + (arrow-func (first a-loa))(list-of-arrow-func (rest a-loa))]))|# + +(define ARROW1 (make-arrow 100 400 20 0 0 75 0 -1 false)) + +(define-struct target (x1 x2 x3 x4 x5 y tx ty dir timer)) + +#|Template for target +;target-func: target -> ... +;consumes a target and produces ... +(define (target-func a-target) + (make-target + (target-x1 a-target) + (target-x2 a-target) + (target-x3 a-target) + (target-x4 a-target) + (target-x5 a-target) + (target-y a-target) + (target-tx a-target) + (target-ty a-target) + (target-dir a-target) + (target-timer a-target)))|# + +(define TARGET1 (make-target 818 823 828 833 838 400 675 252 'up 0)) + +(define-struct blinks (timer on?)) + +#|Template for blinks +;blinks-func: blinks -> ... +;consumes a blinks and produces ... +(define (blinks-func a-blinks) + (make-blinks + (blinks-timer a-blinks) + (blinks-on? a-blinks) + ))|# + +(define BLINKS1(make-blinks 0 true)) + +(define-struct tg(x1 y1 x2 y2 x3 y3 x4 y4 x5 y5 x6 y6 x7 y7)) + +(define TG1 (make-tg 450 100 450 200 450 300 450 400 450 500 450 600 450 700)) + +#|TEMPLATE FOR TG +;tg-func: tg -> ? +;consumes a tg and produces ... +(define(tg-func a-tg) + (make-tg + (tg-x1 a-tg) + (tg-y1 a-tg) + (tg-x2 a-tg) + (tg-y2 a-tg) + (tg-x3 a-tg) + (tg-y3 a-tg) + (tg-x4 a-tg) + (tg-y4 a-tg) + (tg-x5 a-tg) + (tg-y5 a-tg) + (tg-x6 a-tg) + (tg-y6 a-tg) + (tg-x7 a-tg) + (tg-y7 a-tg) + )) +|# + +(define-struct score (t1 t2 t3 2-t1 2-t2 2-t3 try-try try-try-2 record total 2-total hs best-try total-q arrows-shot noc bulls nom p1w p2w)) + +#|Template for score +;score-func: score -> ... +;consumes a score and produces ... +(define (score-func a-score) + (make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score) +))|# + +(define INITIAL-SCORE (make-score 0 0 0 0 0 0 0 0 3500 0 0 0 0 0 0 0 0 0 0 0)) + +(define-struct world (archer loa target score count try turn atimer blinks wind stopped? r-t increase? cc how-to tg hub? stats? credits? how-to? how-too? 1p? 2p? start? pause? sure? slider-x gcount)) + +#|Template for World +;world-func: world -> ... +;consumes a world and produces ... +(define (world-func a-world) + (make-world + (world-archer a-world) + (world-loa a-world) + (world-target a-world) + (world-score a-world) + (world-count a-world) + (world-try a-world) + (world-turn a-world) + (world-atimer a-world) + (world-blinks a-world) + (world-wind a-world) + (world-stopped? a-world) + (world-r-t a-world) + (world-increase? a-world) + (world-cc a-world) + (world-how-to a-world) + (world-tg a-world) + (world-hub? a-world) + (world-stats? a-world) + (world-credits? a-world) + (world-how-to? a-world) + (world-how-too? a-world) + (world-1p? a-world) + (world-2p? a-world) + (world-start? a-world) + (world-pause? a-world) + (world-sure? a-world) + (world-slider-x a-world) + (world-gcount a-world) + )) +|# + +(define IW (make-world ARCHER1 empty TARGET1 INITIAL-SCORE 9 1 "p1" 0 BLINKS1 0 false (random 2) false 0 1 TG1 true false false false false false false false false false 420 2)) + +;draw-world: world -> scene +;consumes a world and draws it on the scene +(define (draw-world a-world) + (cond + [(game-over? a-world)(draw-game-over a-world (world-score a-world) (empty-scene 900 600))] + [(world-hub? a-world)(draw-hub a-world (empty-scene 900 600))] + [(world-how-to? a-world)(draw-how-to a-world (empty-scene 900 600))] + [(world-how-too? a-world)(draw-how-too a-world (empty-scene 900 600))] + [(world-stats? a-world)(draw-stats a-world (world-score a-world) (empty-scene 900 600))] + [(and(world-pause? a-world)(world-sure? a-world))(draw-sure a-world (empty-scene 900 600))] + [(world-credits? a-world)(draw-credits a-world (empty-scene 900 600))] + [(world-pause? a-world)(draw-pause a-world (empty-scene 900 600))] + [else(draw-score (world-score a-world) a-world(draw-hitpoints-list (world-target a-world)(world-loa a-world)(draw-wind a-world (draw-archer a-world (world-archer a-world)(draw-blinks-try (world-blinks a-world) a-world(draw-arrow-count a-world(draw-blinks (world-blinks a-world)(draw-target (world-target a-world)(draw-loa (world-loa a-world)(world-target a-world)(draw-backround a-world (empty-scene 900 600)))))))))))])) + +;draw-hub: world scene -> scene +;consumes a world and a scene and draws it on the scene +(define (draw-hub a-world a-scene) + (place-image (text "Tutorial" 30 "white")450 370(place-image (text "Credits" 30 "white")450 540(place-image (text "Stats" 30 "white")450 455(place-image (text "2 Player" 30 "white")450 285(place-image (text "1 Player" 30 "white")450 200(place-image (rectangle 200 60 "solid"(make-color 205 71 72))450 540(place-image (rectangle 210 70 "solid""white")450 540(place-image (rectangle 200 60 "solid"(make-color 205 71 72))450 455(place-image (rectangle 210 70 "solid""white")450 455(place-image (rectangle 200 60 "solid"(make-color 205 71 72))450 370(place-image (rectangle 210 70 "solid""white")450 370(place-image (rectangle 200 60 "solid"(make-color 205 71 72))450 285(place-image (rectangle 210 70 "solid""white")450 285(place-image (rectangle 200 60 "solid"(make-color 205 71 72))450 200(place-image (rectangle 210 70 "solid""white")450 200(place-image WOOT 450 300 a-scene))))))))))))))))) + +;draw-how-to: world scene -> scene +;consumes a world and a scene and draws it on the scene +(define (draw-how-to a-world a-scene) + (place-image + (cond + [(eq?(world-how-to a-world)1)HT1] + [(eq?(world-how-to a-world)2)HT2] + [(eq?(world-how-to a-world)3)HT3] + [(eq?(world-how-to a-world)4)HT4] + [(eq?(world-how-to a-world)5)HT5] + [(eq?(world-how-to a-world)6)HT6] + [(eq?(world-how-to a-world)7)HT7] + )450 300 (place-image (text "X" 35 "white")20 20(place-image (rectangle 310 410 "solid"(make-color 205 71 72))450 300(place-image (rectangle 320 420 "solid""white")450 300(place-image(rotate 90 (triangle 20 "solid""white")) + (cond + [(not(=(world-how-to a-world)1))250] + [else 450])300(place-image(rotate 270 (triangle 20 "solid""white")) + (cond + [(not(=(world-how-to a-world)7))650] + [else 450])300(place-image (rectangle 900 600 "solid"(color 0 0 0 107)) 450 300 (draw-score (world-score a-world) a-world(draw-hitpoints-list (world-target a-world)(world-loa a-world)(draw-wind a-world (draw-archer a-world(world-archer a-world)(draw-blinks-try (world-blinks a-world) a-world(draw-arrow-count a-world(draw-blinks (world-blinks a-world)(draw-target (world-target a-world)(draw-loa (world-loa a-world)(world-target a-world)(draw-backround a-world a-scene)))))))))))))))))) + +;draw-how-too: world scene -> scene +;consumes a world and a scene and draws it on the scene +(define (draw-how-too a-world a-scene) + (place-image + (cond + [(eq?(world-how-to a-world)1)HT1] + [(eq?(world-how-to a-world)2)HT2] + [(eq?(world-how-to a-world)3)HT3] + [(eq?(world-how-to a-world)4)HT4] + [(eq?(world-how-to a-world)5)HT5] + [(eq?(world-how-to a-world)6)HT6] + [(eq?(world-how-to a-world)7)HT7] + )450 300(place-image (text "Back" 35 "white")69 37.5(place-image (rectangle 120 50 "solid"(make-color 205 71 72))70 35 (place-image (rectangle 130 60 "solid""white")70 35 (place-image (rectangle 310 410 "solid"(make-color 205 71 72))450 300(place-image (rectangle 320 420 "solid""white")450 300(place-image(rotate 90 (triangle 20 "solid""white")) + (cond + [(not(=(world-how-to a-world)1))250] + [else 450])300(place-image(rotate 270 (triangle 20 "solid""white")) + (cond + [(not(=(world-how-to a-world)7))650] + [else 450])300(cond + [(world-pause? a-world)(place-image (rectangle 900 600 "solid"(color 0 0 0 107)) 450 300 (draw-score (world-score a-world) a-world(draw-hitpoints-list (world-target a-world)(world-loa a-world)(draw-wind a-world (draw-archer a-world(world-archer a-world)(draw-blinks-try (world-blinks a-world) a-world(draw-arrow-count a-world(draw-blinks (world-blinks a-world)(draw-target (world-target a-world)(draw-loa (world-loa a-world)(world-target a-world)(draw-backround a-world a-scene)))))))))))] + [else (place-image WWOOT 450 300 a-scene)])))))))))) + +;draw-stats: world score scene -> scene +;consumes a world, a score, and a scene and draws certain aspects of each on the scene +(define (draw-stats a-world a-score a-scene) + (place-image (rectangle 300 30 "solid""black")(+ 148 (world-slider-x a-world))515(place-image(rectangle 2 5 "solid""black")(world-slider-x a-world) 535(place-image (circle 5 "solid""white")(world-slider-x a-world) 535(place-image (rectangle 105 3 "solid""gray")368 535(place-image (text "Back" 35 "white")69 37.5(place-image (rectangle 120 50 "solid"(make-color 203 72 72))70 35 (place-image (rectangle 130 60 "solid""white")70 35(place-image (text (number->string(score-hs a-score))18 "white")250 143.5(place-image (text (number->string(score-best-try a-score))18 "white")230 184(place-image (text (number->string(score-total-q a-score))18 "white")290 225.5(place-image (text (number->string(score-arrows-shot a-score))18 "white")270 267(place-image (text (number->string(score-noc a-score))18 "white")313 308(place-image (text (number->string(score-bulls a-score))18 "white")250 350(place-image (text (number->string(score-nom a-score))18 "white")315 390(place-image (text (number->string(score-p1w a-score))18 "white")275 432(place-image (text (number->string(score-p2w a-score))18 "white")275 473(place-image SCOREBOARD 450 330(cond + [(world-pause? a-world)(place-image (rectangle 900 600 "solid"(color 0 0 0 107)) 450 300 (draw-score (world-score a-world) a-world(draw-hitpoints-list (world-target a-world)(world-loa a-world)(draw-wind a-world (draw-archer a-world(world-archer a-world)(draw-blinks-try (world-blinks a-world) a-world(draw-arrow-count a-world(draw-blinks (world-blinks a-world)(draw-target (world-target a-world)(draw-loa (world-loa a-world)(world-target a-world)(draw-backround a-world a-scene)))))))))))] + [else(place-image WWOOT 450 300 a-scene)]) + )))))))))))))))))) + +;draw-credits: world scene -> scene +;consumes a world and a scene and draws it on the scene +(define (draw-credits a-world a-scene) + (place-image (text "Back" 35 "white")69 37.5(place-image SB1 450 330(place-image (rectangle 120 50 "solid"(make-color 203 72 72))70 35 (place-image (rectangle 130 60 "solid""white")70 35(place-image UWOOT 450 50(place-image BWOOT 450 581(place-image (text "Intro to Programming" 45 "white")(tg-x4(world-tg a-world))(tg-y4(world-tg a-world))(place-image (text "Medway Public Schools" 45 "white")(tg-x5(world-tg a-world))(tg-y5(world-tg a-world))(place-image (text "http://www.medwayschools.org/" 40 "white")(tg-x6(world-tg a-world)) (tg-y6(world-tg a-world))(place-image (text "http://www.racket-lang.org/" 40 "white")(tg-x7(world-tg a-world)) (tg-y7(world-tg a-world))(place-image (text "Developed with DrRacket" 45 "white")(tg-x3(world-tg a-world)) (tg-y3(world-tg a-world))(place-image (text "Taught by Mr. Nassiff" 45 "white")(tg-x2(world-tg a-world)) (tg-y2(world-tg a-world))(place-image (text "Made by Jake Lawrence" 45 "white")(tg-x1(world-tg a-world)) (tg-y1(world-tg a-world))(place-image SB2 450 330(place-image WWOOT 450 300 a-scene)))))))))))))))) + +;draw-pause: world scene -> scene +;consumes a world and a scene and draws it on the scene +(define (draw-pause a-world a-scene) + (place-image (text "TUTORIAL" 20 "white")450 264 (place-image (text "STATS" 20 "white")450 344(place-image (text "CONTINUE" 20 "white")450 184(place-image (text "EXIT" 20 "white")450 424(place-image HOWTO 380 264(place-image STATS 380 340(place-image EXIT 380 420(place-image CONTINUE 380 180(place-image (rectangle 200 60 "solid"(make-color 205 71 72))450 420(place-image (rectangle 210 70 "solid""white")450 420(place-image (rectangle 200 60 "solid"(make-color 205 71 72))450 180(place-image (rectangle 210 70 "solid""white")450 180(place-image (rectangle 200 60 "solid"(make-color 205 71 72))450 340(place-image (rectangle 210 70 "solid""white")450 340(place-image (rectangle 200 60 "solid"(make-color 205 71 72))450 260(place-image (rectangle 210 70 "solid""white")450 260(place-image (rectangle 900 600 "solid"(color 0 0 0 107)) 450 300 (draw-score (world-score a-world) a-world(draw-hitpoints-list (world-target a-world)(world-loa a-world)(draw-wind a-world (draw-archer a-world(world-archer a-world)(draw-blinks-try (world-blinks a-world) a-world(draw-arrow-count a-world(draw-blinks (world-blinks a-world)(draw-target (world-target a-world)(draw-loa (world-loa a-world)(world-target a-world)(draw-backround a-world a-scene)))))))))))))))))))))))))))) + +;draw-sure: world scene -> scene +;consumes a world and a scene and draws it on the scene +(define (draw-sure a-world a-scene) + (place-image (text "Any scores in this game will be lost." 50 "white")450 120(place-image (text "Are you sure you want to quit?" 50 "white")450 50(place-image (rectangle 810 150 "solid" (make-color 205 71 72))450 90(place-image (rectangle 820 160 "solid" "white")450 90(place-image (text "NO" 20 "white")450 360(place-image (text "YES" 20 "white")450 240(place-image (rectangle 200 60 "solid"(make-color 205 71 72))450 360(place-image (rectangle 210 70 "solid""white")450 360(place-image (rectangle 200 60 "solid"(make-color 205 71 72))450 240(place-image (rectangle 210 70 "solid""white")450 240(place-image (rectangle 900 600 "solid"(color 0 0 0 107)) 450 300 (draw-score (world-score a-world) a-world(draw-hitpoints-list (world-target a-world)(world-loa a-world)(draw-wind a-world (draw-archer a-world(world-archer a-world)(draw-blinks-try (world-blinks a-world) a-world(draw-arrow-count a-world(draw-blinks (world-blinks a-world)(draw-target (world-target a-world)(draw-loa (world-loa a-world)(world-target a-world)(draw-backround a-world a-scene)))))))))))))))))))))) + +;draw-game-over: world score scene -> scene +;consumes a world, a score, and a scene and draws a game over screen on the scene +(define (draw-game-over a-world a-score a-scene) + (cond + [(world-2p? a-world)(place-image(cond + [(<(score-total a-score)(score-2-total a-score))(text "Player 2 Wins!"50"white")] + [(>(score-total a-score)(score-2-total a-score))(text "Player 1 Wins!" 50 "white")] + [else(text "'Twas close, but it is a Tie!"50"white")]) + 450 75(place-image(cond + [(<(score-total a-score)(score-2-total a-score))(text "Good Job Player 2!"50"white")] + [(>(score-total a-score)(score-2-total a-score))(text "Good Job Player 1!" 50 "white")] + [else(text "How about a Tiebreaker?" 50 "white")] + )450 150(place-image (text (number->string(world-gcount a-world)) 50 "blue")100 100(place-image (rectangle 700 150 "solid"(make-color 205 71 72))450 112.5(place-image (rectangle 710 160 "solid""white")450 112.5(place-image (text "REMATCH?" 20 "white")450 275(place-image (text "MENU" 20 "white")450 375(place-image(rectangle 200 60 "solid"(make-color 205 71 72))450 275 (place-image (rectangle 210 70 "solid""white")450 275(place-image (rectangle 200 60 "solid"(make-color 205 71 72))450 375 (place-image (rectangle 210 70 "solid""white")450 375 (place-image (rectangle 900 600 "solid"(color 0 0 0 107)) 450 300 (draw-score (world-score a-world) a-world(draw-hitpoints-list (world-target a-world)(world-loa a-world)(draw-wind a-world (draw-archer a-world(world-archer a-world)(draw-blinks-try (world-blinks a-world) a-world(draw-arrow-count a-world(draw-blinks (world-blinks a-world)(draw-target (world-target a-world)(draw-loa (world-loa a-world)(world-target a-world)(draw-backround a-world a-scene))))))))))))))))))))))] + [(world-1p? a-world)(place-image(cond + [(<(score-try-try a-score)2500)(text "Better luck next time!"50"white")] + [(>=(score-try-try a-score)2500)(text "Congratulations!" 50 "white")]) + 450 75(place-image(cond + [(<(score-try-try a-score)2500)(text "Practice Makes Perfect!"50"white")] + [(>=(score-try-try a-score)2500)(text "You Qualified for the Olympics!" 50 "white")])450 150(place-image (rectangle 700 150 "solid"(make-color 205 71 72))450 112.5(place-image (rectangle 710 160 "solid""white")450 112.5(place-image (text "AGAIN?" 20 "white")450 275(place-image (text "MENU" 20 "white")450 375(place-image(rectangle 200 60 "solid"(make-color 205 71 72))450 275 (place-image (rectangle 210 70 "solid""white")450 275(place-image (rectangle 200 60 "solid"(make-color 205 71 72))450 375 (place-image (rectangle 210 70 "solid""white")450 375 (place-image (rectangle 900 600 "solid"(color 0 0 0 107)) 450 300 (draw-score (world-score a-world) a-world(draw-hitpoints-list (world-target a-world)(world-loa a-world)(draw-wind a-world (draw-archer a-world(world-archer a-world)(draw-blinks-try (world-blinks a-world) a-world(draw-arrow-count a-world(draw-blinks (world-blinks a-world)(draw-target (world-target a-world)(draw-loa (world-loa a-world)(world-target a-world)(draw-backround a-world a-scene)))))))))))))))))))))])) + +;draw-backround: world -> scene +;consumes a world and draws the backround on the scene +(define (draw-backround a-world a-scene) + (place-image (rectangle 5 15 "solid""white")882 22.5(place-image (rectangle 5 15 "solid""white")873 22.5(place-image (rectangle 30 30 "solid"(make-color 205 71 72))877.5 22.5(place-image (rectangle 40 40 "solid""white")877.5 22.5(place-image (text"0"37 "white")(+ 601(* 1 .5))563 (place-image (text "2500" 18 "white") 698 105(place-image SSB 600 550(place-image WSB 350 550(place-image (text "0.00" 38 "white")411.5 266(place-image ASB 350 265(place-image VSB 150 290(place-image SB 450 100(place-image (rectangle 900 10 "solid""black")450 205(place-image (rectangle 7 400 "solid""white")100 400(place-image (rectangle 30 400 "solid""black")825 400(place-image (rectangle 900 200 "solid""aqua")450 100(place-image (rectangle 900 400 "solid""YellowGreen") 450 400 a-scene)))))))))))))))))) + +;draw-target: target -> scene +;consumes a target and draws it on the scene +(define (draw-target a-target a-scene) + (place-image (circle 10 "solid""yellow") (target-tx a-target) (target-ty a-target)(place-image (circle 20 "solid""red") (target-tx a-target) (target-ty a-target)(place-image (circle 32.5 "solid""white") (target-tx a-target) (target-ty a-target)(place-image (circle 45 "solid""blue") (target-tx a-target) (target-ty a-target)(place-image (rectangle 105 105 "solid""gray") (target-tx a-target) (target-ty a-target)(place-image (rectangle 5 20 "solid""yellow")(target-x1 a-target) (target-y a-target)(place-image (rectangle 5 40 "solid""red")(target-x2 a-target) (target-y a-target)(place-image (rectangle 5 65 "solid""white")(target-x3 a-target) (target-y a-target)(place-image (rectangle 5 90 "solid""blue")(target-x4 a-target) (target-y a-target)(place-image (rectangle 5 105 "solid""gray")(target-x5 a-target) (target-y a-target) a-scene))))))))))) + +;draw-hitpoints: target arrow -> scene +;consumes a target and a arrow and draws the hitpoints on the scene +(define (draw-hitpoints a-target a-arrow a-scene) + (cond + [(and (<(target-timer a-target)5)(collision? a-arrow a-target))(place-image HITPOINT (- (target-tx a-target)(-(target-y a-target)(arrow-y a-arrow)))(-(+ (target-ty a-target)52.5) (* 10.5 (arrow-angle a-arrow)))a-scene)] + [else a-scene])) + +;draw-hitpoints-list: target loa -> scene +;consumes a target and a loa and draws the hitpoints on the scene +(define (draw-hitpoints-list a-target a-loa a-scene) + (cond + [(empty? a-loa)a-scene] + [(cons? a-loa) + (draw-hitpoints a-target (first a-loa)(draw-hitpoints-list a-target (rest a-loa)a-scene))])) + +;draw-arrow-count: world scene -> scene +;consumes a world and a scene and draws the arrow count on the scene +(define (draw-arrow-count a-world a-scene) + (cond + [(or(and(world-2p? a-world)(eq? (world-try a-world)7))(and(world-1p? a-world)(eq? (world-try a-world)4)))a-scene] + [(eq? (world-count a-world) 9)(place-image ARROW 151 252 (place-image ARROW 151 262 (place-image ARROW 151 272 (place-image ARROW 151 282(place-image ARROW 151 292(place-image ARROW 151 302(place-image ARROW 151 312(place-image ARROW 151 322(place-image ARROW 151 332 a-scene)))))))))] + [(eq? (world-count a-world) 8)(place-image ARROW 151 262 (place-image ARROW 151 272 (place-image ARROW 151 282(place-image ARROW 151 292(place-image ARROW 151 302(place-image ARROW 151 312(place-image ARROW 151 322(place-image ARROW 151 332 a-scene))))))))] + [(eq? (world-count a-world) 7)(place-image ARROW 151 272 (place-image ARROW 151 282(place-image ARROW 151 292(place-image ARROW 151 302(place-image ARROW 151 312(place-image ARROW 151 322(place-image ARROW 151 332 a-scene)))))))] + [(eq? (world-count a-world) 6)(place-image ARROW 151 282(place-image ARROW 151 292(place-image ARROW 151 302(place-image ARROW 151 312(place-image ARROW 151 322(place-image ARROW 151 332 a-scene))))))] + [(eq? (world-count a-world) 5)(place-image ARROW 151 292(place-image ARROW 151 302(place-image ARROW 151 312(place-image ARROW 151 322(place-image ARROW 151 332 a-scene)))))] + [(eq? (world-count a-world) 4)(place-image ARROW 151 302(place-image ARROW 151 312(place-image ARROW 151 322(place-image ARROW 151 332 a-scene))))] + [(eq? (world-count a-world) 3)(place-image ARROW 151 312(place-image ARROW 151 322(place-image ARROW 151 332 a-scene)))] + [(eq? (world-count a-world) 2)(place-image ARROW 151 322(place-image ARROW 151 332 a-scene))] + [(eq? (world-count a-world) 1)(place-image ARROW 151 332 a-scene)] + [else a-scene])) + +(define (trim x) + (/ (round (* 100 x)) 100)) + +;draw-arrow: arrow target scene -> scene +;consumes a arrow, a target and a scene and draws the arrows on the scene +(define (draw-arrow a-arrow a-target a-scene) + (cond + [(=(arrow-score a-arrow)600)(place-image NICE 640 498(place-image (text (cond + [(=(arrow-angle a-arrow)0)"0.00"] + [(=(arrow-angle a-arrow)4.9)"4.90"] + [(=(arrow-angle a-arrow)5)"5.00"] + [(=(arrow-angle a-arrow)9.9)"9.90"] + [(>=(arrow-angle a-arrow)10)"10.00"] + [else(number->string(trim(arrow-angle a-arrow)))])38 "white")(+ 410(*(string-length(number->string(exact->inexact(arrow-angle a-arrow)))).5)) 266(place-image (rectangle 97 40 "solid""black")412 265(place-image ARROW (arrow-x a-arrow)(arrow-y a-arrow) (cond + [(and (>(arrow-bounce-timer a-arrow)5)(>=(arrow-score a-arrow)0))(place-image (text(number->string(round(arrow-score a-arrow)))37 "white")(+ 601(*(string-length(number->string(arrow-score a-arrow))).5))563 a-scene)] + [else a-scene])))))] + [(or (>(arrow-x a-arrow)920)(collision? a-arrow a-target))(place-image (text (cond + [(=(arrow-angle a-arrow)0)"0.00"] + [(=(arrow-angle a-arrow)5)"5.00"] + [(=(arrow-angle a-arrow)9.9)"9.90"] + [(>=(arrow-angle a-arrow)10)"10.00"] + [else(number->string(trim(arrow-angle a-arrow)))])38 "white")(+ 410(*(string-length(number->string(exact->inexact(arrow-angle a-arrow)))).5)) 266(place-image (rectangle 97 40 "solid""black")412 265(place-image (rectangle 100 10 "solid""black")890 205(place-image (rectangle 100 400 "solid""yellowgreen")890 400(place-image ARROW (arrow-x a-arrow)(arrow-y a-arrow) (cond + [(and (>(arrow-bounce-timer a-arrow)5)(>=(arrow-score a-arrow)0))(place-image (text(number->string(round(arrow-score a-arrow)))37 "white")(+ 601(*(string-length(number->string(arrow-score a-arrow))).5))563 a-scene)] + [else a-scene]))))))] + [(=(arrow-score a-arrow)600)(place-image NICE 450 300(place-image (text (cond + [(=(arrow-angle a-arrow)0)"0.00"] + [(=(arrow-angle a-arrow)4.9)"4.90"] + [(=(arrow-angle a-arrow)5)"5.00"] + [(=(arrow-angle a-arrow)9.9)"9.90"] + [(>=(arrow-angle a-arrow)10)"10.00"] + [else(number->string(trim(arrow-angle a-arrow)))])38 "white")(+ 410(*(string-length(number->string(exact->inexact(arrow-angle a-arrow)))).5)) 266(place-image (rectangle 97 40 "solid""black")412 265(place-image ARROW (arrow-x a-arrow)(arrow-y a-arrow) (cond + [(and (>(arrow-bounce-timer a-arrow)5)(>=(arrow-score a-arrow)0))(place-image (text(number->string(round(arrow-score a-arrow)))37 "white")(+ 601(*(string-length(number->string(arrow-score a-arrow))).5))563 a-scene)] + [else a-scene])))))] + [else(place-image (text (cond + [(=(arrow-angle a-arrow)0)"0.00"] + [(=(arrow-angle a-arrow)4.9)"4.90"] + [(=(arrow-angle a-arrow)5)"5.00"] + [(=(arrow-angle a-arrow)9.9)"9.90"] + [(>=(arrow-angle a-arrow)10)"10.00"] + [else(number->string(trim(arrow-angle a-arrow)))])38 "white")(+ 410(*(string-length(number->string(exact->inexact(arrow-angle a-arrow)))).5)) 266(place-image (rectangle 97 40 "solid""black")412 265(place-image ARROW (arrow-x a-arrow)(arrow-y a-arrow) (cond + [(and (>(arrow-bounce-timer a-arrow)5)(>=(arrow-score a-arrow)0))(place-image (text(number->string(round(arrow-score a-arrow)))37 "white")(+ 601(*(string-length(number->string(arrow-score a-arrow))).5))563 a-scene)] + [else a-scene]))))])) +;draw-arrow-block: arrow scene -> scene +;consumes a arrow and a scene and draws the arrow-block on the scene +(define (draw-arrow-block a-arrow a-scene) + (cond + [(>=(arrow-score a-arrow)0)(place-image (rectangle 74 32 "solid""black")600 560 a-scene)] + [else a-scene])) + +;draw-loa: loa target scene -> scene +;consumes a loa, target, and a scene and drawsw the arrows on the scene +(define (draw-loa a-loa a-target a-scene) + (cond + [(empty? a-loa)a-scene] + [(cons? a-loa) + (draw-arrow (first a-loa)a-target(draw-arrow-block (first a-loa) (draw-loa (rest a-loa) a-target a-scene)))])) + +;draw-blinks: blinks scene -> scene +;consumes a blinks and a scene and draws the blinks on the scene +(define (draw-blinks a-blinks a-scene) + (cond + [(blinks-on? a-blinks)(place-image BLINKR 150 150 a-scene)] + [else a-scene])) + +(define (draw-blinks-try a-blinks a-world a-scene) + (cond + [(and(blinks-on? a-blinks)(or(and(world-2p? a-world)(or (eq?(world-try a-world)2)(eq? (world-try a-world) 1)))(and(world-1p? a-world)(eq? (world-try a-world) 1))))(place-image BLINKL 800 127 a-scene)] + [(and(blinks-on? a-blinks)(or(and(world-2p? a-world)(or (eq?(world-try a-world)3)(eq? (world-try a-world) 4)))(and(world-1p? a-world)(eq? (world-try a-world) 2))))(place-image BLINKL 800 142 a-scene)] + [(and(blinks-on? a-blinks)(or(and(world-2p? a-world)(or (eq?(world-try a-world)5)(eq? (world-try a-world) 6)))(and(world-1p? a-world)(eq? (world-try a-world) 3))))(place-image BLINKL 800 159 a-scene)] + + [else a-scene])) + +;draw-archer: world archer scene -> scene +;consumes a world, an archer, and a scene and draws the archer on the scene +(define (draw-archer a-world a-archer a-scene) + (cond + [(and(or (world-1p? a-world)(and (world-2p? a-world)(or (=(world-try a-world)1)(=(world-try a-world)3)(=(world-try a-world)5))))(not(eq?(world-atimer a-world)0)))(place-image ARCHER-S (-(archer-x a-archer)3)(archer-y a-archer)a-scene)] + [(or (world-1p? a-world)(and (world-2p? a-world)(or (=(world-try a-world)1)(=(world-try a-world)3)(=(world-try a-world)5)))) (place-image ARCHER (archer-x a-archer)(archer-y a-archer) a-scene)] + [(and(or (world-1p? a-world)(and (world-2p? a-world)(or (=(world-try a-world)2)(=(world-try a-world)4)(>=(world-try a-world)6))))(not(eq?(world-atimer a-world)0)))(place-image B-ARCHER-S (-(archer-x a-archer)3)(archer-y a-archer)a-scene)] + [(or (world-1p? a-world)(and (world-2p? a-world)(or (=(world-try a-world)2)(=(world-try a-world)4)(>=(world-try a-world)6)))) (place-image B-ARCHER (archer-x a-archer)(archer-y a-archer) a-scene)] +[else a-scene])) + +;draw-wind: world -> scene +;consumes a world and draws the amount of wind on the scene +(define (draw-wind a-world a-scene) + (cond + [(<(world-wind a-world)0)(place-image WDOWN 385 552(place-image (text (number->string(abs(world-wind a-world))) 35 "white")410 552 a-scene))] + [(eq?(world-wind a-world)0)(place-image WEVEN 385 549(place-image (text (number->string(abs(world-wind a-world))) 35 "white")410 552 a-scene))] + [else(place-image WUP 385 548(place-image (text (number->string(abs(world-wind a-world))) 35 "white")410 552 a-scene))])) + +;draw-score: score world scene -> scene +;consumes a score, a world, and a scene and draws the score on the scene +(define (draw-score a-score a-world a-scene) + (cond + [(world-1p? a-world)(cond + [(>=(world-try a-world)3)(place-image (text (number->string(score-try-try a-score)) 24 "white")290 153(place-image (cond + [(>=(score-try-try a-score)2500)QUALIFY] + [else NQUALIFYX])350 153 (place-image (text (number->string(score-record a-score))24 "white")617 70(place-image (text (number->string (score-hs a-score)) 18 "white")290 59(place-image(text (number->string(score-total a-score))18 "white")290 83(place-image(text (number->string(score-t3 a-score))18 "white")(+ 696(*(string-length(number->string(score-t3 a-score))).5)) 162(place-image(text (number->string(score-t2 a-score))18 "white")(+ 696(*(string-length(number->string(score-t2 a-score))).5)) 144(place-image(text (number->string(score-t1 a-score))18 "white")(+ 696(*(string-length(number->string(score-t1 a-score))).5)) 127 a-scene))))))))] + [(>=(world-try a-world)2)(place-image (text (number->string(score-try-try a-score)) 24 "white")290 153(place-image (cond + [(>=(score-try-try a-score)2500)QUALIFY] + [else NQUALIFYX])350 153 (place-image (text (number->string(score-record a-score))24 "white")617 70(place-image (text (number->string (score-hs a-score)) 18 "white")290 59(place-image(text (number->string(score-total a-score))18 "white")290 83(place-image(text (number->string(score-t2 a-score))18 "white")(+ 696(*(string-length(number->string(score-t2 a-score))).5)) 144(place-image(text (number->string(score-t1 a-score))18 "white")(+ 696(*(string-length(number->string(score-t1 a-score))).5)) 127 a-scene)))))))] + [(>=(world-try a-world)1)(place-image (text (number->string(score-try-try a-score)) 24 "white")290 153(place-image (cond + [(>=(score-try-try a-score)2500)QUALIFY] + [else NQUALIFYX])350 153 (place-image (text (number->string(score-record a-score))24 "white")617 70(place-image (text (number->string (score-hs a-score)) 18 "white")290 59(place-image(text (number->string(score-total a-score))18 "white")290 83(place-image(text (number->string(score-t1 a-score))18 "white")(+ 696(*(string-length(number->string(score-t1 a-score))).5)) 127 a-scene))))))] +)] + [(world-2p? a-world) + (cond + [(=(world-try a-world)1)(place-image(text "1P" 30 "white")73 150(place-image (rectangle 37 30 "solid""black")70 150(place-image (text (number->string(score-try-try a-score)) 24 "white")290 153(place-image (cond + [(>=(score-try-try a-score)2500)QUALIFY] + [else NQUALIFYX])350 153 (place-image (text (number->string(score-record a-score))24 "white")617 70(place-image (text (number->string (score-hs a-score)) 18 "white")290 59 (place-image (text "P2" 14 "white")646 106(place-image (text "P1" 14 "white")595 106(place-image (rectangle 95 2 "solid""white")620.5 115(place-image (rectangle 2 65 "solid""white")620.5 137(place-image(text (number->string(score-2-total a-score))18 "white")290 107(place-image(text (number->string(score-total a-score))18 "white")290 83(place-image(text (number->string(score-t1 a-score))18 "white")595 127 a-scene)))))))))))))] + [(=(world-try a-world)2)(place-image(text "2P" 30 "white")73 150(place-image (rectangle 37 30 "solid""black")70 150(place-image (text (number->string(score-try-try-2 a-score)) 24 "white")290 153(place-image (cond + [(>=(score-try-try-2 a-score)2500)QUALIFY] + [else NQUALIFYX])350 153 (place-image (text (number->string(score-record a-score))24 "white")617 70(place-image (text (number->string (score-hs a-score)) 18 "white")290 59 (place-image (text "P2" 14 "white")646 106(place-image (text "P1" 14 "white")595 106(place-image (rectangle 95 2 "solid""white")620.5 115(place-image (text (number->string(score-2-t1 a-score))18 "white")646 127(place-image (rectangle 2 65 "solid""white")620.5 137(place-image(text (number->string(score-2-total a-score))18 "white")290 107(place-image(text (number->string(score-total a-score))18 "white")290 83(place-image(text (number->string(score-t1 a-score))18 "white")595 127 a-scene))))))))))))))] + [(=(world-try a-world)3)(place-image(text "1P" 30 "white")73 150(place-image (rectangle 37 30 "solid""black")70 150(place-image (text (number->string(score-try-try a-score)) 24 "white")290 153(place-image (cond + [(>=(score-try-try a-score)2500)QUALIFY] + [else NQUALIFYX])350 153 (place-image (text (number->string(score-record a-score))24 "white")617 70(place-image (text (number->string (score-hs a-score)) 18 "white")290 59 (place-image (text "P2" 14 "white")646 106(place-image (text "P1" 14 "white")595 106(place-image (rectangle 95 2 "solid""white")620.5 115(place-image (text (number->string(score-2-t1 a-score))18 "white")646 127(place-image (rectangle 2 65 "solid""white")620.5 137(place-image(text (number->string(score-t2 a-score))18 "white")595 144 (place-image(text (number->string(score-2-total a-score))18 "white")290 107(place-image(text (number->string(score-total a-score))18 "white")290 83(place-image(text (number->string(score-t1 a-score))18 "white")595 127 a-scene)))))))))))))))] + [(=(world-try a-world)4)(place-image(text "2P" 30 "white")73 150(place-image (rectangle 37 30 "solid""black")70 150(place-image (text (number->string(score-try-try-2 a-score)) 24 "white")290 153(place-image (cond + [(>=(score-try-try-2 a-score)2500)QUALIFY] + [else NQUALIFYX])350 153 (place-image (text (number->string(score-record a-score))24 "white")617 70(place-image (text (number->string (score-hs a-score)) 18 "white")290 59 (place-image (text "P2" 14 "white")646 106(place-image (text "P1" 14 "white")595 106(place-image (rectangle 95 2 "solid""white")620.5 115(place-image (text (number->string(score-2-t1 a-score))18 "white")646 127(place-image (rectangle 2 65 "solid""white")620.5 137(place-image(text (number->string(score-2-t2 a-score))18 "white")646 144 (place-image(text (number->string(score-t2 a-score))18 "white")595 144 (place-image(text (number->string(score-2-total a-score))18 "white")290 107(place-image(text (number->string(score-total a-score))18 "white")290 83(place-image(text (number->string(score-t1 a-score))18 "white")595 127 a-scene))))))))))))))))] + [(=(world-try a-world)5)(place-image(text "1P" 30 "white")73 150(place-image (rectangle 37 30 "solid""black")70 150(place-image (text (number->string(score-try-try a-score)) 24 "white")290 153(place-image (cond + [(>=(score-try-try a-score)2500)QUALIFY] + [else NQUALIFYX])350 153 (place-image (text (number->string(score-record a-score))24 "white")617 70(place-image (text (number->string (score-hs a-score)) 18 "white")290 59 (place-image (text "P2" 14 "white")646 106(place-image (text "P1" 14 "white")595 106(place-image (rectangle 95 2 "solid""white")620.5 115(place-image (text (number->string(score-2-t1 a-score))18 "white")646 127(place-image (rectangle 2 65 "solid""white")620.5 137(place-image(text (number->string(score-2-t2 a-score))18 "white")646 144 (place-image(text (number->string(score-t3 a-score))18 "white")595 162 (place-image(text (number->string(score-t2 a-score))18 "white")595 144 (place-image(text (number->string(score-2-total a-score))18 "white")290 107(place-image(text (number->string(score-total a-score))18 "white")290 83(place-image(text (number->string(score-t1 a-score))18 "white")595 127 a-scene)))))))))))))))))] + [(>=(world-try a-world)6)(place-image(text "1P" 30 "white")73 150(place-image (rectangle 37 30 "solid""black")70 150(place-image (text (number->string(score-try-try-2 a-score)) 24 "white")290 153(place-image (cond + [(>=(score-try-try-2 a-score)2500)QUALIFY] + [else NQUALIFYX])350 153 (place-image (text (number->string(score-record a-score))24 "white")617 70(place-image (text (number->string (score-hs a-score)) 18 "white")290 59(place-image (text "P2" 14 "white")646 106(place-image (text "P1" 14 "white")595 106(place-image (rectangle 95 2 "solid""white")620.5 115(place-image (rectangle 2 65 "solid""white")620.5 137(place-image(text (number->string(score-2-total a-score))18 "white")290 107(place-image (text (number->string (score-2-t3 a-score)) 18 "white")646 162(place-image (text (number->string (score-2-t2 a-score)) 18 "white")646 144 (place-image(text (number->string(score-2-t1 a-score))18 "white")646 127 (place-image(text (number->string(score-total a-score))18 "white")290 83(place-image(text (number->string(score-t3 a-score))18 "white")595 162 (place-image(text (number->string(score-t2 a-score))18 "white")595 144 (place-image(text (number->string(score-t1 a-score))18 "white")595 127 a-scene))))))))))))))))))])] + [else a-scene])) + +;update-world: world -> world +;consumes a world and updates it accordingly +(define (update-world a-world) + (cond + [(game-over? a-world)(make-world + (world-archer a-world) + (world-loa a-world) + (world-target a-world) + (update-score-game-over(world-score a-world)a-world) + (world-count a-world) + (world-try a-world) + (world-turn a-world) + (world-atimer a-world) + (world-blinks a-world) + (world-wind a-world) + (world-stopped? a-world) + (world-r-t a-world) + (world-increase? a-world) + (world-cc a-world) + (world-how-to a-world) + (world-tg a-world) + (world-hub? a-world) + (world-stats? a-world) + (world-credits? a-world) + (world-how-to? a-world) + (world-how-too? a-world) + (world-1p? a-world) + (world-2p? a-world) + (world-start? a-world) + (world-pause? a-world) + (world-sure? a-world) + (world-slider-x a-world) + (cond + [(=(world-gcount a-world)0)0] + [else(-(world-gcount a-world)1)]) + )] + [(world-credits? a-world)(make-world + (world-archer a-world) + (world-loa a-world) + (world-target a-world) + (world-score a-world) + (world-count a-world) + (world-try a-world) + (world-turn a-world) + (world-atimer a-world) + (world-blinks a-world) + (world-wind a-world) + (world-stopped? a-world) + (world-r-t a-world) + (world-increase? a-world) + (world-cc a-world) + (world-how-to a-world) + (update-tg(world-tg a-world)) + (world-hub? a-world) + (world-stats? a-world) + (world-credits? a-world) + (world-how-to? a-world) + (world-how-too? a-world) + (world-1p? a-world) + (world-2p? a-world) + (world-start? a-world) + (world-pause? a-world) + (world-sure? a-world) + (world-slider-x a-world) + (world-gcount a-world) + )] + [(world-start? a-world) + (make-world + (update-archer(world-archer a-world)) + (update-loa(world-loa a-world)(world-target a-world)a-world) + (update-target(world-target a-world) a-world) + (update-score-list(world-score a-world)(world-loa a-world)a-world) + (cond + [(and (world-1p? a-world)(eq?(world-try a-world)4))0] + [(and (world-2p? a-world)(eq?(world-try a-world)7))0] + [(and(eq? (world-count a-world)0)(eq?(world-atimer a-world)0))9] + [else(world-count a-world)]) + (cond + [(and(eq? (world-count a-world)0)(eq?(world-atimer a-world)0)(or(and (world-2p? a-world)(not(eq?(world-try a-world)7)))(and (world-1p? a-world)(not(eq?(world-try a-world)4)))))(+(world-try a-world)1)] + [else(world-try a-world)]) + (world-turn a-world) + (cond + [(eq? (world-atimer a-world)0)0] + [(and (world-1p? a-world)(eq?(world-try a-world)4))0] + [(and (world-2p? a-world)(eq?(world-try a-world)7))0] + [else(-(world-atimer a-world)1)]) + (update-blinks(world-blinks a-world)) + (cond + [(world-stopped? a-world)(world-wind a-world)] + [else(cond + [(eq? (world-r-t a-world)1)(random 10)] + [(eq? (world-r-t a-world)0)(* -1(random 10))])]) + (cond + [(and(=(world-count a-world)0)(eq?(world-atimer a-world)0))false] + [else(world-stopped? a-world)]) + (random 2) + (world-increase? a-world) + (cond + [(eq?(world-atimer a-world)0)0] + [else (world-cc a-world)]) + (world-how-to a-world) + (world-tg a-world) + (world-hub? a-world) + (world-stats? a-world) + (world-credits? a-world) + (world-how-to? a-world) + (world-how-too? a-world) + (world-1p? a-world) + (world-2p? a-world) + (world-start? a-world) + (world-pause? a-world) + (world-sure? a-world) + (world-slider-x a-world) + (world-gcount a-world) + )] + [else a-world])) + +;update-tg: tg -> tg +;consumes a tg and updates it accordingly +(define(update-tg a-tg) + (make-tg + (tg-x1 a-tg) + (cond + [(<(tg-y1 a-tg)-50)650] + [else(-(tg-y1 a-tg)5)]) + (tg-x2 a-tg) + (cond + [(<(tg-y2 a-tg)-50)650] + [else(-(tg-y2 a-tg)5)]) + (tg-x3 a-tg) + (cond + [(<(tg-y3 a-tg)-50)650] + [else(-(tg-y3 a-tg)5)]) + (tg-x4 a-tg) + (cond + [(<(tg-y4 a-tg)-50)650] + [else(-(tg-y4 a-tg)5)]) + (tg-x5 a-tg) + (cond + [(<(tg-y5 a-tg)-50)650] + [else(-(tg-y5 a-tg)5)]) + (tg-x6 a-tg) + (cond + [(<(tg-y6 a-tg)-50)650] + [else(-(tg-y6 a-tg)5)]) + (tg-x7 a-tg) + (cond + [(<(tg-y7 a-tg)-50)650] + [else(-(tg-y7 a-tg)5)]) + )) + +;update-target: target world -> target +;consumes a target and a world and updates the target accoringly +(define (update-target a-target a-world) + (make-target + (target-x1 a-target) + (target-x2 a-target) + (target-x3 a-target) + (target-x4 a-target) + (target-x5 a-target) + (cond + [(eq? (target-dir a-target)'down)(+(target-y a-target)4)] + [(eq? (target-dir a-target)'up)(-(target-y a-target)4)] + ) + (target-tx a-target) + (target-ty a-target) + (cond + [(<= (target-y a-target)265)'down] + [(>= (target-y a-target)550)'up] + [else(target-dir a-target)]) + (cond + [(eq? (target-timer a-target)10)1] + [else(+(target-timer a-target)1)]) + )) + +;update-score: score arrow world -> score +;consumes a score, an arrow, and a world an updates the score accordingly +(define (update-score a-score a-arrow a-world) + (make-score + (cond + [(and(eq?(arrow-timer a-arrow)1)(world-1p? a-world)(eq?(world-try a-world)1))(+(score-t1 a-score)(arrow-score a-arrow))] + [(and(eq?(arrow-timer a-arrow)1)(world-2p? a-world)(eq?(world-try a-world)1))(+(score-t1 a-score)(arrow-score a-arrow))] + [else (score-t1 a-score)]) + (cond + [(and(eq?(arrow-timer a-arrow)1)(world-1p? a-world)(eq?(world-try a-world)2))(+(score-t2 a-score)(arrow-score a-arrow))] + [(and(eq?(arrow-timer a-arrow)1)(world-2p? a-world)(eq?(world-try a-world)3))(+(score-t2 a-score)(arrow-score a-arrow))] + [else (score-t2 a-score)]) + (cond + [(and(eq?(arrow-timer a-arrow)1)(world-1p? a-world)(eq?(world-try a-world)3))(+(score-t3 a-score)(arrow-score a-arrow))] + [(and(eq?(arrow-timer a-arrow)1)(world-2p? a-world)(eq?(world-try a-world)5))(+(score-t3 a-score)(arrow-score a-arrow))] + [else (score-t3 a-score)]) + (cond + [(and(eq?(arrow-timer a-arrow)1)(world-2p? a-world)(eq?(world-try a-world)2))(+(score-2-t1 a-score)(arrow-score a-arrow))] + [else (score-2-t1 a-score)]) + (cond + [(and(eq?(arrow-timer a-arrow)1)(world-2p? a-world)(eq?(world-try a-world)4))(+(score-2-t2 a-score)(arrow-score a-arrow))] + [else (score-2-t2 a-score)]) + (cond + [(and(eq?(arrow-timer a-arrow)1)(world-2p? a-world)(eq?(world-try a-world)6))(+(score-2-t3 a-score)(arrow-score a-arrow))] + [else (score-2-t3 a-score)]) + (score-try-try a-score) + (score-try-try-2 a-score) + (cond + [(>(score-t1 a-score)(score-record a-score))(score-t1 a-score)] + [(>(score-t2 a-score)(score-record a-score))(score-t2 a-score)] + [(>(score-t3 a-score)(score-record a-score))(score-t3 a-score)] + [else (score-record a-score)]) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (+(score-2-t1 a-score)(score-2-t2 a-score)(score-2-t3 a-score)) + (cond + [(>(score-total a-score)(score-hs a-score))(score-total a-score)] + [(>(score-2-total a-score)(score-hs a-score))(score-2-total a-score)] + [else(score-hs a-score)]) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (cond + [(and (world-2p? a-world)(game-over? a-world)(=(world-gcount a-world)2)(>(score-2-total a-score)(score-total a-score)))40] + [else(score-p2w a-score)]) + )) + +;update-score-game-over: score world -> score +;consumes a score and a world and updates the score accordingly +(define (update-score-game-over a-score a-world) + (make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (cond + [(and (=(world-gcount a-world)1)(or(>=(score-t1 a-score)2500)(>=(score-t2 a-score)2500)(>=(score-t3 a-score)2500)(>=(score-2-t1 a-score)2500)(>=(score-2-t2 a-score)2500)(>=(score-2-t3 a-score)2500)))(+(score-total-q a-score)1)] + [else(score-total-q a-score)]) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (cond + [(and (world-2p? a-world)(=(world-gcount a-world)1)(>(score-total a-score)(score-2-total a-score)))(+(score-p1w a-score)1)] + [else(score-p1w a-score)]) + (cond + [(and (world-2p? a-world)(=(world-gcount a-world)1)(>(score-2-total a-score)(score-total a-score)))(+(score-p2w a-score)1)] + [else(score-p2w a-score)]) + )) + + +;update-score-list: score loa world -> score +;consumes a score, a loa, and a world and updates the score accordingly +(define (update-score-list a-score a-loa a-world) + (cond + [(empty? a-loa)a-score] + [(cons? a-loa) + (cond + [(and(=(world-atimer a-world)7)(> (score-t1 a-score)(score-best-try a-score)))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-total a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-t1 a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score) +)] + [(and(=(world-atimer a-world)7)(> (score-t2 a-score)(score-best-try a-score)))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-total a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-t2 a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score) +)] + [(and(=(world-atimer a-world)7)(> (score-t3 a-score)(score-best-try a-score)))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-total a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-t3 a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score) +)] + + [(and(=(world-atimer a-world)7)(> (score-2-t1 a-score)(score-best-try a-score)))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-total a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-t1 a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score) +)] + + [(and(=(world-atimer a-world)7)(> (score-2-t2 a-score)(score-best-try a-score)))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-total a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-t2 a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score) +)] + + [(and(=(world-atimer a-world)7)(> (score-2-t3 a-score)(score-best-try a-score)))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-total a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-t3 a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score) +)] + [(and(world-1p? a-world)(>(+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score))(score-hs a-score))(or(=(world-try a-world)1)(=(world-try a-world)2)(=(world-try a-world)3))(=(arrow-timer(first a-loa))1))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-total a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(world-1p? a-world)(>(score-t1 a-score)(score-record a-score))(or(=(world-try a-world)1)(=(world-try a-world)2)(=(world-try a-world)3))(=(arrow-timer(first a-loa))3))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-t1 a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(world-1p? a-world)(>(score-t2 a-score)(score-record a-score))(or(=(world-try a-world)1)(=(world-try a-world)2)(=(world-try a-world)3))(=(arrow-timer(first a-loa))3))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-t2 a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(world-1p? a-world)(>(score-t3 a-score)(score-record a-score))(or(=(world-try a-world)1)(=(world-try a-world)2)(=(world-try a-world)3))(=(arrow-timer(first a-loa))3))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-t3 a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + + [(and (world-1p? a-world)(>(score-t1 a-score)(score-try-try a-score))(or(=(world-try a-world)1)(=(world-try a-world)2)(=(world-try a-world)3))(=(arrow-timer(first a-loa))2))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-t1 a-score) + (score-try-try-2 a-score) + (score-record a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + + [(and (world-1p? a-world)(>(score-t2 a-score)(score-try-try a-score))(or(=(world-try a-world)1)(=(world-try a-world)2)(=(world-try a-world)3))(=(arrow-timer(first a-loa))2))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-t2 a-score) + (score-try-try-2 a-score) + (score-record a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + + [(and (world-1p? a-world)(>(score-t3 a-score)(score-try-try a-score))(or(=(world-try a-world)1)(=(world-try a-world)2)(=(world-try a-world)3))(=(arrow-timer(first a-loa))2))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-t3 a-score) + (score-try-try-2 a-score) + (score-record a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + + [(and(world-1p? a-world)(or(=(world-try a-world)1)(=(world-try a-world)2)(=(world-try a-world)3))(=(arrow-timer(first a-loa))1))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(world-2p? a-world)(>(score-2-t1 a-score)(score-record a-score))(or(=(world-try a-world)2)(=(world-try a-world)4)(=(world-try a-world)6))(=(arrow-timer(first a-loa))2))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-2-t1 a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(world-2p? a-world)(>(score-2-t2 a-score)(score-record a-score))(or(=(world-try a-world)2)(=(world-try a-world)4)(=(world-try a-world)6))(=(arrow-timer(first a-loa))2))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-2-t2 a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(world-2p? a-world)(>(score-2-t3 a-score)(score-record a-score))(or(=(world-try a-world)2)(=(world-try a-world)4)(=(world-try a-world)6))(=(arrow-timer(first a-loa))2))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-2-t3 a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + + [(and(world-2p? a-world)(>(+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score))(score-hs a-score))(or(=(world-try a-world)1)(=(world-try a-world)3)(=(world-try a-world)5))(=(arrow-timer(first a-loa))1))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-total a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + + [(and(world-2p? a-world)(or(=(world-try a-world)1)(=(world-try a-world)3)(=(world-try a-world)5))(=(arrow-timer(first a-loa))1))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(world-2p? a-world)(>(+(score-2-t1 a-score)(score-2-t2 a-score)(score-2-t3 a-score))(score-hs a-score))(or(=(world-try a-world)2)(=(world-try a-world)4)(=(world-try a-world)6))(=(arrow-timer(first a-loa))1))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (score-total a-score) + (+(score-2-t1 a-score)(score-2-t2 a-score)(score-2-t3 a-score)) + (+(score-2-t1 a-score)(score-2-t2 a-score)(score-2-t3 a-score)) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(world-2p? a-world)(or(=(world-try a-world)2)(=(world-try a-world)4)(=(world-try a-world)6))(=(arrow-timer(first a-loa))1))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (score-total a-score) + (+(score-2-t1 a-score)(score-2-t2 a-score)(score-2-t3 a-score)) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(world-2p? a-world)(>(score-t1 a-score)(score-record a-score))(or(=(world-try a-world)1)(=(world-try a-world)3)(=(world-try a-world)5))(=(arrow-timer(first a-loa))2))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-t1 a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(world-2p? a-world)(>(score-t2 a-score)(score-record a-score))(or(=(world-try a-world)1)(=(world-try a-world)3)(=(world-try a-world)5))(=(arrow-timer(first a-loa))2))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-t2 a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(world-2p? a-world)(>(score-t3 a-score)(score-record a-score))(or(=(world-try a-world)1)(=(world-try a-world)3)(=(world-try a-world)5))(=(arrow-timer(first a-loa))2))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-t3 a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and (world-2p? a-world)(>(score-t1 a-score)(score-try-try a-score))(or(=(world-try a-world)1)(=(world-try a-world)3)(=(world-try a-world)5))(=(arrow-timer(first a-loa))3))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-t1 a-score) + (score-try-try-2 a-score) + (score-record a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + + [(and (world-2p? a-world)(>(score-t2 a-score)(score-try-try a-score))(or(=(world-try a-world)1)(=(world-try a-world)3)(=(world-try a-world)5))(=(arrow-timer(first a-loa))3))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-t2 a-score) + (score-try-try-2 a-score) + (score-record a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + + [(and (world-2p? a-world)(>(score-t3 a-score)(score-try-try a-score))(or(=(world-try a-world)1)(=(world-try a-world)3)(=(world-try a-world)5))(=(arrow-timer(first a-loa))3))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-t3 a-score) + (score-try-try-2 a-score) + (score-record a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + + [(and (world-2p? a-world)(>(score-2-t1 a-score)(score-try-try-2 a-score))(or(=(world-try a-world)2)(=(world-try a-world)4)(=(world-try a-world)6))(=(arrow-timer(first a-loa))3))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-2-t1 a-score) + (score-record a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + + [(and (world-2p? a-world)(>(score-2-t2 a-score)(score-try-try-2 a-score))(or(=(world-try a-world)2)(=(world-try a-world)4)(=(world-try a-world)6))(=(arrow-timer(first a-loa))3))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-2-t2 a-score) + (score-record a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + + [(and (world-2p? a-world)(>(score-2-t3 a-score)(score-try-try-2 a-score))(or(=(world-try a-world)2)(=(world-try a-world)4)(=(world-try a-world)6))(=(arrow-timer(first a-loa))3))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-2-t3 a-score) + (score-record a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + + [(and(=(arrow-score (first a-loa))600)(=(arrow-timer(first a-loa))25))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (+(score-bulls a-score)1) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(=(arrow-score (first a-loa))0)(=(arrow-timer(first a-loa))25))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (+(score-nom a-score)1) + (score-p1w a-score) + (score-p2w a-score))] + [(and(=(world-try a-world)1)(=(arrow-timer(first a-loa))4))(make-score + (+(score-t1 a-score)(arrow-score (first a-loa))) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(world-1p? a-world)(=(world-try a-world)2)(=(arrow-timer(first a-loa))4))(make-score + (score-t1 a-score) + (+(score-t2 a-score)(arrow-score (first a-loa))) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(world-1p? a-world)(=(world-try a-world)3)(=(arrow-timer(first a-loa))4))(make-score + (score-t1 a-score) + (score-t2 a-score) + (+(score-t3 a-score)(arrow-score (first a-loa))) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(world-2p? a-world)(=(world-try a-world)3)(=(arrow-timer(first a-loa))4))(make-score + (score-t1 a-score) + (+(score-t2 a-score)(arrow-score (first a-loa))) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(world-2p? a-world)(=(world-try a-world)5)(=(arrow-timer(first a-loa))4))(make-score + (score-t1 a-score) + (score-t2 a-score) + (+(score-t3 a-score)(arrow-score (first a-loa))) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + + [(and(world-2p? a-world)(=(world-try a-world)2)(=(arrow-timer(first a-loa))4))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (+(score-2-t1 a-score)(arrow-score (first a-loa))) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(world-2p? a-world)(=(world-try a-world)4)(=(arrow-timer(first a-loa))4))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (+(score-2-t2 a-score)(arrow-score (first a-loa))) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + [(and(world-2p? a-world)(=(world-try a-world)6)(=(arrow-timer(first a-loa))4))(make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (+(score-2-t3 a-score)(arrow-score (first a-loa))) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (+(score-t1 a-score)(score-t2 a-score)(score-t3 a-score)) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (score-arrows-shot a-score) + (score-noc a-score) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score))] + + [else(update-score-list a-score (rest a-loa) a-world)])] + [else (cons (update-score a-score (first a-loa) a-world)(update-score-list a-score (rest a-loa) a-world))] + )) + +;update-arrow: arrow target world -> arrow +;consumes an arrow, a target, and a world and updates the arrow accordingly +(define (update-arrow a-arrow a-target a-world) + (make-arrow + (cond + [(>(arrow-x a-arrow)920)(arrow-x a-arrow)] + [else(+(arrow-x a-arrow)(arrow-x-v a-arrow))]) + (cond + [(>(arrow-x a-arrow)300)(+(arrow-y a-arrow)(* -1 (*(world-wind a-world).2)))] + [else (arrow-y a-arrow)]) + (arrow-x-v a-arrow) + (arrow-y-v a-arrow) + (cond + [(=(arrow-angle a-arrow)4.9)5] + [(>(arrow-angle a-arrow)10)10.00] + [(eq?(world-increase? a-world)false)(arrow-angle a-arrow)] + [(and (not(>=(arrow-angle a-arrow)10))(world-increase? a-world))(+(arrow-angle a-arrow).49)] + [else(arrow-angle a-arrow)]) + (cond + [(eq? (arrow-timer a-arrow)0)0] + [else(-(arrow-timer a-arrow)1)]) + (cond + [(eq?(arrow-bounce-timer a-arrow)10)0] + [else (+(arrow-bounce-timer a-arrow)1)]) + (arrow-score a-arrow) + (arrow-increase? a-arrow) + )) + +;update-loa: loa target world -> loa +;consumes a loa, a target, and a world and updates the loa accorgingly+ +(define (update-loa a-loa a-target a-world) + (cond + [(empty? a-loa)a-loa] + [(eq?(arrow-timer(first a-loa))1)(rest a-loa)] + [(>(arrow-x (first a-loa))920)(cons(make-arrow + (arrow-x (first a-loa)) + (arrow-y (first a-loa)) + (arrow-x-v (first a-loa)) + (arrow-y-v (first a-loa)) + (arrow-angle (first a-loa)) + (cond + [(eq? (arrow-timer (first a-loa))0)0] + [else(-(arrow-timer (first a-loa))1)]) + (cond + [(eq?(arrow-bounce-timer (first a-loa))10)0] + [else (+(arrow-bounce-timer (first a-loa))1)]) + 0 + (arrow-increase? (first a-loa)) + )(rest a-loa))] + [(and(eq?(target-dir a-target)'down)(collision? (first a-loa) a-target))(cons (make-arrow + (arrow-x (first a-loa)) + (+(arrow-y (first a-loa))4) + (arrow-x-v (first a-loa)) + (arrow-y-v (first a-loa)) + (arrow-angle (first a-loa)) + (cond + [(eq? (arrow-timer (first a-loa))0)0] + [else(-(arrow-timer (first a-loa))1)]) + (cond + [(eq?(arrow-bounce-timer (first a-loa))10)0] + [else (+(arrow-bounce-timer (first a-loa))1)]) + (cond + [(<(sqrt(+(expt(- (target-tx a-target)(- (target-tx a-target)(-(target-y a-target)(arrow-y (first a-loa)))))2)(expt(- (target-ty a-target) (-(+(target-ty a-target)52.5)(* 10.5 (arrow-angle (first a-loa)))))2)))5)600] + [(<(sqrt(+(expt(- (target-tx a-target)(- (target-tx a-target)(-(target-y a-target)(arrow-y (first a-loa)))))2)(expt(- (target-ty a-target) (-(+(target-ty a-target)52.5)(* 10.5 (arrow-angle (first a-loa)))))2)))10)400] + [(<(sqrt(+(expt(- (target-tx a-target)(- (target-tx a-target)(-(target-y a-target)(arrow-y (first a-loa)))))2)(expt(- (target-ty a-target) (-(+(target-ty a-target)52.5)(* 10.5 (arrow-angle (first a-loa)))))2)))20)300] + [(<(sqrt(+(expt(- (target-tx a-target)(- (target-tx a-target)(-(target-y a-target)(arrow-y (first a-loa)))))2)(expt(- (target-ty a-target) (-(+(target-ty a-target)52.5)(* 10.5 (arrow-angle (first a-loa)))))2)))32.5)200] + [(<(sqrt(+(expt(- (target-tx a-target)(- (target-tx a-target)(-(target-y a-target)(arrow-y (first a-loa)))))2)(expt(- (target-ty a-target) (-(+(target-ty a-target)52.5)(* 10.5(arrow-angle (first a-loa)))))2)))45)100] + [(and(> (-(+(target-ty a-target)52.5)(* 10.5 (arrow-angle (first a-loa))))(-(target-ty a-target)52.6))(< (-(+(target-ty a-target)52.5)(* 10.5 (arrow-angle (first a-loa))))(+(target-ty a-target)52.6))(>(sqrt(+(expt(- (target-tx a-target)(- (target-tx a-target)(-(target-y a-target)(arrow-y (first a-loa)))))2)(expt(- (+(target-ty a-target)52.5) (-(target-ty a-target)(* 10.5 (arrow-angle (first a-loa)))))2)))45))50] + [else 0]) + (arrow-increase? (first a-loa)))(rest a-loa))] + [(and(eq?(target-dir a-target)'up)(collision? (first a-loa) a-target))(cons (make-arrow + (arrow-x (first a-loa)) + (-(arrow-y (first a-loa))4) + (arrow-x-v (first a-loa)) + (arrow-y-v (first a-loa)) + (arrow-angle (first a-loa)) + (cond + [(eq? (arrow-timer (first a-loa))0)0] + [else(-(arrow-timer (first a-loa))1)]) + (cond + [(eq?(arrow-bounce-timer (first a-loa))10)0] + [else (+(arrow-bounce-timer (first a-loa))1)]) + (cond + [(<(sqrt(+(expt(- (target-tx a-target)(- (target-tx a-target)(-(target-y a-target)(arrow-y (first a-loa)))))2)(expt(- (target-ty a-target) (-(+(target-ty a-target)52.5)(* 10.5 (arrow-angle (first a-loa)))))2)))5)600] + [(<(sqrt(+(expt(- (target-tx a-target)(- (target-tx a-target)(-(target-y a-target)(arrow-y (first a-loa)))))2)(expt(- (target-ty a-target) (-(+(target-ty a-target)52.5)(* 10.5 (arrow-angle (first a-loa)))))2)))10)400] + [(<(sqrt(+(expt(- (target-tx a-target)(- (target-tx a-target)(-(target-y a-target)(arrow-y (first a-loa)))))2)(expt(- (target-ty a-target) (-(+(target-ty a-target)52.5)(* 10.5 (arrow-angle (first a-loa)))))2)))20)300] + [(<(sqrt(+(expt(- (target-tx a-target)(- (target-tx a-target)(-(target-y a-target)(arrow-y (first a-loa)))))2)(expt(- (target-ty a-target) (-(+(target-ty a-target)52.5)(* 10.5 (arrow-angle (first a-loa)))))2)))32.5)200] + [(<(sqrt(+(expt(- (target-tx a-target)(- (target-tx a-target)(-(target-y a-target)(arrow-y (first a-loa)))))2)(expt(- (target-ty a-target) (-(+(target-ty a-target)52.5)(* 10.5(arrow-angle (first a-loa)))))2)))45)100] + [(and(> (-(+(target-ty a-target)52.5)(* 10.5 (arrow-angle (first a-loa))))(-(target-ty a-target)52.6))(< (-(+(target-ty a-target)52.5)(* 10.5 (arrow-angle (first a-loa))))(+(target-ty a-target)52.6))(>(sqrt(+(expt(- (target-tx a-target)(- (target-tx a-target)(-(target-y a-target)(arrow-y (first a-loa)))))2)(expt(- (+(target-ty a-target)52.5) (-(target-ty a-target)(* 10.5 (arrow-angle (first a-loa)))))2)))45))50] + [else 0]) + (arrow-increase? (first a-loa)))(rest a-loa))] + [(cons? a-loa) + (cons (update-arrow (first a-loa) a-target a-world)(update-loa (rest a-loa) a-target a-world))])) + +;update-blinks: blinks -> blinks +;consumes a blinks and updates it accordingly +(define (update-blinks a-blinks) + (make-blinks + (cond + [(eq? (blinks-timer a-blinks) 16)0] + [else (+(blinks-timer a-blinks)1)]) + (cond + [(<(blinks-timer a-blinks)8)true] + [else false]))) + +;update-archer: archer -> archer +;consumes an archer and updates it accordingly +(define (update-archer a-archer) + (make-archer + (archer-x a-archer) + (archer-y a-archer) + (cond + [(eq? (archer-timer a-archer)0)0] + [else(-(archer-timer a-archer)1)]))) + +;process-mouse: world number number mouse-event -> world +;consumes a world, a number, a number, and a mouse-event and updates the world accordingly +(define (process-mouse a-world x y mouse-event) + (cond + [(game-over? a-world)(make-world + (world-archer a-world) + (world-loa a-world) + (world-target a-world) + (cond + [(and (mouse=? mouse-event "button-down")(or (and (< x 555)(> x 345)(< y 310)(> y 240))(and (< x 555)(> x 345)(< y 410)(> y 340)))) + (make-score + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + (score-record (world-score a-world)) + 0 + 0 + (score-hs (world-score a-world)) + (score-best-try (world-score a-world)) + (score-total-q (world-score a-world)) + (score-arrows-shot (world-score a-world)) + (score-noc (world-score a-world)) + (score-bulls (world-score a-world)) + (score-nom (world-score a-world)) + (score-p1w (world-score a-world)) + (score-p2w (world-score a-world)))] + [else (world-score a-world)]) + (cond + [(and (mouse=? mouse-event "button-down")(or (and (< x 555)(> x 345)(< y 310)(> y 240))(and (< x 555)(> x 345)(< y 410)(> y 340))))9] + [else(world-count a-world)]) + (cond + [(and (mouse=? mouse-event "button-down")(or (and (< x 555)(> x 345)(< y 310)(> y 240))(and (< x 555)(> x 345)(< y 410)(> y 340))))1] + [else(world-try a-world)]) + (world-turn a-world) + (world-atimer a-world) + (world-blinks a-world) + (world-wind a-world) + (cond + [(and (mouse=? mouse-event "button-down")(or (and (< x 555)(> x 345)(< y 310)(> y 240))(and (< x 555)(> x 345)(< y 410)(> y 340))))false] + [else(world-stopped? a-world)]) + (world-r-t a-world) + (world-increase? a-world) + (world-cc a-world) + (world-how-to a-world) + (world-tg a-world) + (cond + [(and (mouse=? mouse-event "button-down")(and (< x 555)(> x 345)(< y 410)(> y 340)))true] + [else(world-hub? a-world)]) + (world-stats? a-world) + (world-credits? a-world) + (world-how-to? a-world) + (world-how-too? a-world) + (cond + [(and (mouse=? mouse-event "button-down")(and (< x 555)(> x 345)(< y 410)(> y 340)))false] + [else(world-1p? a-world)]) +(cond + [(and (mouse=? mouse-event "button-down")(and (< x 555)(> x 345)(< y 410)(> y 340)))false] + [else(world-2p? a-world)]) + (cond + [(and (mouse=? mouse-event "button-down")(and (< x 555)(> x 345)(< y 310)(> y 240)))true] + [(and (mouse=? mouse-event "button-down")(and (< x 555)(> x 345)(< y 410)(> y 340)))false] + [else(world-start? a-world)]) + (world-pause? a-world) + (world-sure? a-world) + (world-slider-x a-world) + (cond + [(and (mouse=? mouse-event "button-down")(or (and (< x 555)(> x 345)(< y 310)(> y 240))(and (< x 555)(> x 345)(< y 410)(> y 340))))2] + [else(world-gcount a-world)]) + )] + [(not(world-pause? a-world)) + (make-world + (process-mouse-archer(world-archer a-world) a-world x y mouse-event) + (cond + [(and(world-stopped? a-world)(mouse=? mouse-event "button-down")(eq?(world-count a-world)0))(world-loa a-world)] + [(and(world-stopped? a-world)(mouse=? mouse-event "button-down")(not(eq?(world-atimer a-world)0)))(world-loa a-world)] + [(and (world-start? a-world)(mouse=? mouse-event "button-down")(and (< x 897.5)(> x 857.5)(> y 2.5)(< y 42.5)))(world-loa a-world)] + [(and(mouse=? mouse-event "button-down")(world-start? a-world)(world-stopped? a-world))(cons ARROW1 (world-loa a-world))] + [else (world-loa a-world)]) + (world-target a-world) + (process-mouse-score(world-score a-world)a-world x y mouse-event) + (cond + [(and(world-stopped? a-world)(mouse=? mouse-event "button-down")(=(world-count a-world)0))(world-count a-world)] + [(and(world-stopped? a-world)(mouse=? mouse-event "button-down")(not(eq? (world-atimer a-world)0)))(world-count a-world)] + [(and (world-start? a-world)(mouse=? mouse-event "button-down")(and (< x 897.5)(> x 857.5)(> y 2.5)(< y 42.5)))(world-count a-world)] + [(and(world-stopped? a-world)(world-start? a-world)(mouse=? mouse-event "button-down"))(-(world-count a-world)1)] + [else(world-count a-world)]) + (world-try a-world) + (world-turn a-world) + (cond + [(and (world-start? a-world)(mouse=? mouse-event "button-down")(and (< x 897.5)(> x 857.5)(> y 2.5)(< y 42.5)))(world-atimer a-world)] + [(and (world-stopped? a-world)(world-start? a-world)(mouse=? mouse-event "button-down")(eq? (world-atimer a-world)0))75] + [(and (world-stopped? a-world)(mouse=? mouse-event "button-down")(not(eq? (world-atimer a-world)0)))(world-atimer a-world)] + [else(world-atimer a-world)]) + (world-blinks a-world) + (world-wind a-world) + (cond + [(and (world-start? a-world)(mouse=? mouse-event "button-down")(and (< x 897.5)(> x 857.5)(> y 2.5)(< y 42.5)))(world-stopped? a-world)] + [(and(world-start? a-world)(mouse=? mouse-event "button-down"))true] + [else(world-stopped? a-world)]) + (random 2) + (cond + [(and (eq? (world-cc a-world)0)(not (world-hub? a-world))(mouse=? mouse-event "button-down"))true] + [(and(world-start? a-world)(mouse=? mouse-event "button-up"))false] + [else (world-increase? a-world)]) + (cond + [(and(mouse=? mouse-event "button-down")(world-start? a-world)(eq?(world-atimer a-world)0))1] + [(and(mouse=? mouse-event "button-down")(not(eq?(world-atimer a-world)0)))(world-cc a-world)] + [else(world-cc a-world)]) + (cond + [(and (mouse=? mouse-event "button-down")(world-how-to? a-world)(and(< x 40)(> x 5)(> y 5)(< y 40)))1] + [(and (world-how-too? a-world)(mouse=? mouse-event "button-down")(not(world-hub? a-world))(and (< x 135)(> x 5)(< y 65)(> y 5)))1] + [(and (or (world-how-to? a-world)(world-how-too? a-world))(mouse=? mouse-event "button-down")(not(=(world-how-to a-world)7))(<(sqrt(+(expt(- x 650)2)(expt(- y 300)2)))15))(+(world-how-to a-world)1)] + [(and (or (world-how-to? a-world)(world-how-too? a-world))(mouse=? mouse-event "button-down")(not(=(world-how-to a-world)1))(<(sqrt(+(expt(- x 250)2)(expt(- y 300)2)))15))(-(world-how-to a-world)1)] + [else (world-how-to a-world)]) + (world-tg a-world) + (cond + [(and (or (and (> x 345)(< x 555)(> y 165)(< y 235))(and (> x 345)(< x 555)(> y 250)(< y 320))(and (> x 345)(< x 555)(> y 335)(< y 405))(and (> x 345)(< x 555)(> y 420)(< y 490))(and (> x 345)(< x 555)(> y 505)(< y 575))) (mouse=? mouse-event "button-down"))false] + [(and (mouse=? mouse-event "button-down")(not(world-hub? a-world))(or (world-how-too? a-world)(world-stats? a-world)(world-credits? a-world))(and (< x 135)(> x 5)(< y 65)(> y 5)))true] + [else(world-hub? a-world)]) + + (cond + [(and (world-hub? a-world)(mouse=? mouse-event "button-down")(and (> x 345)(< x 555)(> y 420)(< y 490)))true] + [(and (world-stats? a-world)(mouse=? mouse-event "button-down")(not(world-hub? a-world))(and (< x 135)(> x 5)(< y 65)(> y 5)))false] + [else(world-stats? a-world)]) + (cond + [(and (world-hub? a-world)(mouse=? mouse-event "button-down")(and (> x 345)(< x 555)(> y 505)(< y 575)))true] + [(and (world-credits? a-world)(mouse=? mouse-event "button-down")(not(world-hub? a-world))(and (< x 135)(> x 5)(< y 65)(> y 5)))false] + [else(world-credits? a-world)]) + (cond + [(and (mouse=? mouse-event "button-down")(world-how-to? a-world)(and(< x 40)(> x 5)(> y 5)(< y 40)))false] + [(and(world-hub? a-world)(mouse=? mouse-event "button-down")(or (and (> x 345)(< x 555)(> y 165)(< y 235))(and (> x 345)(< x 555)(> y 250)(< y 320))))true] + [else(world-how-to? a-world)]) + (cond + [(and(world-hub? a-world)(mouse=? mouse-event "button-down")(and (> x 345)(< x 555)(> y 335)(< y 405)))true] + [(and (world-how-too? a-world)(mouse=? mouse-event "button-down")(not(world-hub? a-world))(and (< x 135)(> x 5)(< y 65)(> y 5)))false] + [else(world-how-too? a-world)]) + (cond + [(and (world-hub? a-world)(mouse=? mouse-event "button-down")(and (> x 345)(< x 555)(> y 165)(< y 235)))true] + [else(world-1p? a-world)]) + (cond + [(and (world-hub? a-world)(mouse=? mouse-event "button-down")(and (> x 345)(< x 555)(> y 250)(< y 320)))true] + [else(world-2p? a-world)]) + (cond + [(and (world-start? a-world)(mouse=? mouse-event "button-down")(and (< x 897.5)(> x 857.5)(> y 2.5)(< y 42.5)))false] + [(and (mouse=? mouse-event "button-down")(world-how-to? a-world)(and(< x 40)(> x 5)(> y 5)(< y 40)))true] + [else(world-start? a-world)]) + (cond + [(and (world-start? a-world)(mouse=? mouse-event "button-down")(and (< x 897.5)(> x 857.5)(> y 2.5)(< y 42.5)))true] + [else(world-pause? a-world)]) + (world-sure? a-world) + (cond + [(and(or(mouse=? mouse-event "button-down")(mouse=? mouse-event "drag"))(and (< x 420)(> x 316)(< y 545)(> y 525)))x] + [else(world-slider-x a-world)]) + (world-gcount a-world) + + )] + [(world-pause? a-world)(make-world + (world-archer a-world) + (cond + [(and (mouse=? mouse-event "button-down")(world-sure? a-world)(and (< x 555)(> x 345)(< y 275)(> y 205)))empty] + [else(world-loa a-world)]) + (cond + [(and (mouse=? mouse-event "button-down")(world-sure? a-world)(and (< x 555)(> x 345)(< y 275)(> y 205)))TARGET1] + [else(world-target a-world)]) + (cond + [(and (mouse=? mouse-event "button-down")(world-sure? a-world)(and (< x 555)(> x 345)(< y 275)(> y 205)))(make-score + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + (score-record (world-score a-world)) + 0 + 0 + (score-hs (world-score a-world)) + (score-best-try (world-score a-world)) + (score-total-q (world-score a-world)) + (score-arrows-shot (world-score a-world)) + (score-noc (world-score a-world)) + (score-bulls (world-score a-world)) + (score-nom (world-score a-world)) + (score-p1w (world-score a-world)) + (score-p2w (world-score a-world)))] + [else(process-mouse-score(world-score a-world)a-world x y mouse-event)]) + (cond + [(and (mouse=? mouse-event "button-down")(world-sure? a-world)(and (< x 555)(> x 345)(< y 275)(> y 205)))9] + [else(world-count a-world)]) + (cond + [(and (mouse=? mouse-event "button-down")(world-sure? a-world)(and (< x 555)(> x 345)(< y 275)(> y 205)))1] + [else(world-try a-world)]) + (world-turn a-world) + (world-atimer a-world) + (world-blinks a-world) + (world-wind a-world) + (cond + [(and (mouse=? mouse-event "button-down")(world-sure? a-world)(and (< x 555)(> x 345)(< y 275)(> y 205)))false] + [else(world-stopped? a-world)]) + (world-r-t a-world) + (world-increase? a-world) + (world-cc a-world) + (cond + [(and (world-how-too? a-world)(mouse=? mouse-event "button-down")(not(world-hub? a-world))(and (< x 135)(> x 5)(< y 65)(> y 5)))1] + [(and (or (world-how-to? a-world)(world-how-too? a-world))(mouse=? mouse-event "button-down")(not(=(world-how-to a-world)7))(<(sqrt(+(expt(- x 650)2)(expt(- y 300)2)))15))(+(world-how-to a-world)1)] + [(and (or (world-how-to? a-world)(world-how-too? a-world))(mouse=? mouse-event "button-down")(not(=(world-how-to a-world)1))(<(sqrt(+(expt(- x 250)2)(expt(- y 300)2)))15))(-(world-how-to a-world)1)] + [else (world-how-to a-world)]) + (world-tg a-world) + (cond + [(and (mouse=? mouse-event "button-down")(world-sure? a-world)(and (< x 555)(> x 345)(< y 275)(> y 205)))true] + [else(world-hub? a-world)]) + (cond + [(and (not(world-sure? a-world))(mouse=? mouse-event "button-down")(and (< x 555)(> x 345)(< y 375)(> y 305)))true] + [(and (not(world-sure? a-world))(world-stats? a-world)(mouse=? mouse-event "button-down")(not(world-hub? a-world))(and (< x 135)(> x 5)(< y 65)(> y 5)))false] + [else(world-stats? a-world)]) + (world-credits? a-world) + (world-how-to? a-world) + (cond + [(and (not(world-sure? a-world))(mouse=? mouse-event "button-down")(and(< x 555)(> x 345) (< y 295) (> y 225)))true] + [(and (not(world-sure? a-world))(world-how-too? a-world)(mouse=? mouse-event "button-down")(not(world-hub? a-world))(and (< x 135)(> x 5)(< y 65)(> y 5)))false] + [else(world-how-too? a-world)]) + (cond + [(and (mouse=? mouse-event "button-down")(world-sure? a-world)(and (< x 555)(> x 345)(< y 275)(> y 205)))false] + [else(world-1p? a-world)]) + (cond + [(and (mouse=? mouse-event "button-down")(world-sure? a-world)(and (< x 555)(> x 345)(< y 275)(> y 205)))false] + [else(world-2p? a-world)]) + (cond + [(and (mouse=? mouse-event "button-down")(world-sure? a-world)(and (< x 555)(> x 345)(< y 275)(> y 205)))false] + [(and (mouse=? mouse-event "button-down")(and(< x 555)(> x 345) (< y 215) (> y 145)))true] + [else(world-start? a-world)]) + (cond + [(and (mouse=? mouse-event "button-down")(and(< x 555)(> x 345) (< y 215) (> y 145)))false] + [(and (mouse=? mouse-event "button-down")(world-sure? a-world)(and (< x 555)(> x 345)(< y 275)(> y 205)))false] + [else(world-pause? a-world)]) + (cond + [(and (mouse=? mouse-event "button-down")(world-sure? a-world)(and (< x 555)(> x 345)(< y 395)(> y 325)))false] + [(and (mouse=? mouse-event "button-down")(world-sure? a-world)(and (< x 555)(> x 345)(< y 275)(> y 205)))false] + [(and (mouse=? mouse-event "button-down")(and (< x 555)(> x 345)(> y 385)(< y 455)))true] + [else(world-sure? a-world)]) + (cond + [(and(or(mouse=? mouse-event "button-down")(mouse=? mouse-event "drag"))(and (< x 420)(> x 316)(< y 545)(> y 525)))x] + [else(world-slider-x a-world)]) + (world-gcount a-world) + )] + [else a-world])) + +;process-mouse-archer: archer world number number mouse-event -> archer +;consumes an archer, a world, a number, a number. and a mouse-event and updates the archer accordingly +(define (process-mouse-archer a-archer a-world x y mouse-event) + (make-archer + (archer-x a-archer) + (archer-y a-archer) + (cond + [(and(world-stopped? a-world)(eq? mouse-event "button-down")(not(eq?(archer-timer a-archer)0)))(archer-timer a-archer)] + [(and(world-stopped? a-world)(eq? mouse-event "button-down"))75] + [else(archer-timer a-archer)]))) + +;process-mouse-score: score world number number mouse-event -> score +;consumes a score, a world, a number, a number, and a mouse-event and updates the score accordingly +(define (process-mouse-score a-score a-world x y mouse-event) + (make-score + (score-t1 a-score) + (score-t2 a-score) + (score-t3 a-score) + (score-2-t1 a-score) + (score-2-t2 a-score) + (score-2-t3 a-score) + (score-try-try a-score) + (score-try-try-2 a-score) + (score-record a-score) + (score-total a-score) + (score-2-total a-score) + (score-hs a-score) + (score-best-try a-score) + (score-total-q a-score) + (cond + [(and (world-start? a-world)(world-stopped? a-world)(eq? mouse-event "button-down")(and (< x 897.5)(> x 857.5)(> y 2.5)(< y 42.5)))(score-arrows-shot a-score)] + [(and (eq? mouse-event "button-down")(=(world-atimer a-world)0)(world-stopped? a-world)(world-start? a-world)(or(and(world-1p? a-world)(not(=(world-try a-world)4)))(and (world-2p? a-world)(not(=(world-try a-world)7)))))(+(score-arrows-shot a-score)1)] + [else(score-arrows-shot a-score)]) + (cond + [(eq? mouse-event "button-down")(+(score-noc a-score)1)] + [else (score-noc a-score)]) + (score-bulls a-score) + (score-nom a-score) + (score-p1w a-score) + (score-p2w a-score) +)) + +;collision?: arrow target -> boolean +;consumes an arrow and a target and determines if they have collided +(define (collision? a-arrow a-target) + (or + (and(<(abs(-(arrow-x a-arrow)(target-x5 a-target)))(+ (/(image-width ARROW)4)(/(image-width (rectangle 5 105 "solid""yellow"))2))) + (<(abs(-(arrow-y a-arrow)(target-y a-target)))(+ (/(image-height ARROW)8)(/(image-height(rectangle 5 105 "solid""yellow"))2)))) + (and(<(abs(-(arrow-x a-arrow)(target-x4 a-target)))(+ (/(image-width ARROW)4)(/(image-width (rectangle 5 90 "solid""yellow"))2))) + (<(abs(-(arrow-y a-arrow)(target-y a-target)))(+ (/(image-height ARROW)8)(/(image-height(rectangle 5 90 "solid""yellow"))2)))) + (and(<(abs(-(arrow-x a-arrow)(target-x3 a-target)))(+ (/(image-width ARROW)4)(/(image-width (rectangle 5 65 "solid""yellow"))2))) + (<(abs(-(arrow-y a-arrow)(target-y a-target)))(+ (/(image-height ARROW)8)(/(image-height(rectangle 5 65 "solid""yellow"))2)))) + (and(<(abs(-(arrow-x a-arrow)(target-x2 a-target)))(+ (/(image-width ARROW)4)(/(image-width (rectangle 5 40 "solid""yellow"))2))) + (<(abs(-(arrow-y a-arrow)(target-y a-target)))(+ (/(image-height ARROW)8)(/(image-height(rectangle 5 40 "solid""yellow"))2)))) + (and(<(abs(-(arrow-x a-arrow)(target-x1 a-target)))(+ (/(image-width ARROW)4)(/(image-width (rectangle 5 20 "solid""yellow"))2))) + (<(abs(-(arrow-y a-arrow)(target-y a-target)))(+ (/(image-height ARROW)8)(/(image-height(rectangle 5 20 "solid""yellow"))2)))) + )) + +;game-over?: world -> boolean +;consumes a world and determines if a game over has occured +(define (game-over? a-world) + (or(and (world-1p? a-world)(=(world-try a-world)4))(and(world-2p? a-world)(=(world-try a-world)7)))) + + (big-bang IW + (to-draw draw-world) + (on-tick update-world (/ 1.0 28)) + (on-mouse process-mouse)) diff --git a/static/index.html b/static/index.html index 9487327..1f2249d 100644 --- a/static/index.html +++ b/static/index.html @@ -78,6 +78,7 @@
  • Flappy Birds
  • 2048 Game
  • Tetris
    • +
  • Archery
  • RacketScript on Github
    • From 21842480e32a2e76ada732087d131bad25abae56 Mon Sep 17 00:00:00 2001 From: Vishesh Yadav Date: Fri, 18 Jun 2021 19:10:42 -0700 Subject: [PATCH 03/38] Create docker-publish.yml --- .github/workflows/docker-publish.yml | 61 ++++++++++++++++++++++++++++ 1 file changed, 61 insertions(+) create mode 100644 .github/workflows/docker-publish.yml diff --git a/.github/workflows/docker-publish.yml b/.github/workflows/docker-publish.yml new file mode 100644 index 0000000..b416e0e --- /dev/null +++ b/.github/workflows/docker-publish.yml @@ -0,0 +1,61 @@ +name: Docker + +# This workflow uses actions that are not certified by GitHub. +# They are provided by a third-party and are governed by +# separate terms of service, privacy policy, and support +# documentation. + +on: + schedule: + - cron: '27 19 * * *' + push: + branches: [ master ] + pull_request: + branches: [ master ] + +env: + # Use docker.io for Docker Hub if empty + REGISTRY: docker.io + # github.repository as / + IMAGE_NAME: ${{ github.repository }} + + +jobs: + build: + + runs-on: ubuntu-latest + permissions: + contents: read + packages: write + + steps: + - name: Checkout repository + uses: actions/checkout@v2 + + # Login against a Docker registry except on PR + # https://github.com/docker/login-action + - name: Log into registry ${{ env.REGISTRY }} + if: github.event_name != 'pull_request' + uses: docker/login-action@28218f9b04b4f3f62068d7b6ce6ca5b26e35336c + with: + registry: ${{ env.REGISTRY }} + username: ${{ secrets.DOCKERHUB_USERNAME }} + password: ${{ secrets.DOCKERHUB_TOKEN }} + + # Extract metadata (tags, labels) for Docker + # https://github.com/docker/metadata-action + - name: Extract Docker metadata + id: meta + uses: docker/metadata-action@98669ae865ea3cffbcbaa878cf57c20bbf1c6c38 + with: + images: ${{ env.REGISTRY }}/${{ env.IMAGE_NAME }} + + # Build and push Docker image with Buildx (don't push on PR) + # https://github.com/docker/build-push-action + - name: Build and push Docker image + uses: docker/build-push-action@ad44023a93711e3deb337508980b4b5e9bcdc5dc + with: + context: . + push: ${{ github.event_name != 'pull_request' }} + tags: ${{ steps.meta.outputs.tags }} + labels: ${{ steps.meta.outputs.labels }} From fde1546a10c8132e16b42f4de8e7cc6f97f9d4bb Mon Sep 17 00:00:00 2001 From: Vishesh Yadav Date: Fri, 18 Jun 2021 19:15:52 -0700 Subject: [PATCH 04/38] Update docker-publish.yml --- .github/workflows/docker-publish.yml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/.github/workflows/docker-publish.yml b/.github/workflows/docker-publish.yml index b416e0e..181e69f 100644 --- a/.github/workflows/docker-publish.yml +++ b/.github/workflows/docker-publish.yml @@ -1,4 +1,4 @@ -name: Docker +name: Publish to Docker Hub # This workflow uses actions that are not certified by GitHub. # They are provided by a third-party and are governed by @@ -22,7 +22,7 @@ env: jobs: build: - + name: Build and Push runs-on: ubuntu-latest permissions: contents: read @@ -39,8 +39,8 @@ jobs: uses: docker/login-action@28218f9b04b4f3f62068d7b6ce6ca5b26e35336c with: registry: ${{ env.REGISTRY }} - username: ${{ secrets.DOCKERHUB_USERNAME }} - password: ${{ secrets.DOCKERHUB_TOKEN }} + username: ${{ secrets.DOCKER_USERNAME }} + password: ${{ secrets.DOCKER_PASSWORD }} # Extract metadata (tags, labels) for Docker # https://github.com/docker/metadata-action From 516205528d8b335fc6a8d179fb6436a4e55e412c Mon Sep 17 00:00:00 2001 From: Vishesh Yadav Date: Fri, 18 Jun 2021 19:21:13 -0700 Subject: [PATCH 05/38] Update docker-publish.yml --- .github/workflows/docker-publish.yml | 9 --------- 1 file changed, 9 deletions(-) diff --git a/.github/workflows/docker-publish.yml b/.github/workflows/docker-publish.yml index 181e69f..9f6f707 100644 --- a/.github/workflows/docker-publish.yml +++ b/.github/workflows/docker-publish.yml @@ -1,10 +1,5 @@ name: Publish to Docker Hub -# This workflow uses actions that are not certified by GitHub. -# They are provided by a third-party and are governed by -# separate terms of service, privacy policy, and support -# documentation. - on: schedule: - cron: '27 19 * * *' @@ -14,12 +9,8 @@ on: branches: [ master ] env: - # Use docker.io for Docker Hub if empty - REGISTRY: docker.io - # github.repository as / IMAGE_NAME: ${{ github.repository }} - jobs: build: name: Build and Push From 87c0ec67787782326aaf7ba70d2caf3bcb090aef Mon Sep 17 00:00:00 2001 From: Vishesh Yadav Date: Fri, 18 Jun 2021 20:32:39 -0700 Subject: [PATCH 06/38] Update docker-publish.yml --- .github/workflows/docker-publish.yml | 2 ++ 1 file changed, 2 insertions(+) diff --git a/.github/workflows/docker-publish.yml b/.github/workflows/docker-publish.yml index 9f6f707..8b2b4fe 100644 --- a/.github/workflows/docker-publish.yml +++ b/.github/workflows/docker-publish.yml @@ -5,6 +5,8 @@ on: - cron: '27 19 * * *' push: branches: [ master ] + tags: + - 'latest' pull_request: branches: [ master ] From 1b7db08386b9dc8dd391ca5dc01dd7b67f3fe921 Mon Sep 17 00:00:00 2001 From: Vishesh Yadav Date: Fri, 18 Jun 2021 20:40:00 -0700 Subject: [PATCH 07/38] Remove metadata action from github action --- .github/workflows/docker-publish.yml | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) diff --git a/.github/workflows/docker-publish.yml b/.github/workflows/docker-publish.yml index 8b2b4fe..12b6983 100644 --- a/.github/workflows/docker-publish.yml +++ b/.github/workflows/docker-publish.yml @@ -35,20 +35,10 @@ jobs: username: ${{ secrets.DOCKER_USERNAME }} password: ${{ secrets.DOCKER_PASSWORD }} - # Extract metadata (tags, labels) for Docker - # https://github.com/docker/metadata-action - - name: Extract Docker metadata - id: meta - uses: docker/metadata-action@98669ae865ea3cffbcbaa878cf57c20bbf1c6c38 - with: - images: ${{ env.REGISTRY }}/${{ env.IMAGE_NAME }} - # Build and push Docker image with Buildx (don't push on PR) # https://github.com/docker/build-push-action - name: Build and push Docker image uses: docker/build-push-action@ad44023a93711e3deb337508980b4b5e9bcdc5dc with: - context: . push: ${{ github.event_name != 'pull_request' }} - tags: ${{ steps.meta.outputs.tags }} - labels: ${{ steps.meta.outputs.labels }} + tags: ${{ env.IMAGE_NAME }}:latest From 471b90cf3cbb85d6ed072358189bff836fca7549 Mon Sep 17 00:00:00 2001 From: Vishesh Yadav Date: Fri, 18 Jun 2021 21:47:08 -0700 Subject: [PATCH 08/38] Update README.md --- README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/README.md b/README.md index 94756f4..3f47ee5 100644 --- a/README.md +++ b/README.md @@ -2,7 +2,7 @@ Racketscript Playground ======================= [![MIT licensed](https://img.shields.io/badge/license-MIT-blue.svg)](COPYING.md) -[![Try Online](https://img.shields.io/badge/try_it-online!-ff9900.svg)]( http://play.racketscript.org:8080/) +[![Try Online](https://img.shields.io/badge/try_it-online!-ff9900.svg)]( http://play.racketscript.org) Playground for [RacketScript](https://github.com/vishesh/racketscript). Both server-side and client-side code is written in RacketScript. From 01b69c2bb09502168c1ab3485e23a3a1ea346d14 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Mon, 28 Jun 2021 22:10:17 +0000 Subject: [PATCH 09/38] github saving: basic functionality rough draft --- app.rkt | 286 ++++++++++++++++++++++++- client.rkt | 134 +++++++++++- package-lock.json | 536 +++++----------------------------------------- package.json | 1 + static/index.html | 2 + 5 files changed, 468 insertions(+), 491 deletions(-) diff --git a/app.rkt b/app.rkt index dc5358a..31abc15 100644 --- a/app.rkt +++ b/app.rkt @@ -9,6 +9,10 @@ (define express ($/require "express")) (define body-parser ($/require "body-parser")) (define child-process ($/require "child_process")) +(define https ($/require "https")) +(define url ($/require "url")) +(define session ($/require "express-session")) + (define spawn ($ child-process 'spawn)) (define process #js*.global.process) @@ -20,9 +24,278 @@ #js.process.env.PORT 8080)) +;; hash mapping user ids to auth tokens +(define USERS (make-hash)) + +;; TODO: this is temporary. use the above hash instead +(define ACCESS-TOKEN "") ;;----------------------------------------------------------------------------- ;; Handlers +(define PLAYGROUND-GH-CLIENT-ID #js"079bd6bc167ef3ba0753") +(define PLAYGROUND-GH-SECRET #js"d0beada041f11935c6e27acd3e34566b6548b72a") + +(define (has-code? url) (#js.url.includes #js"?code=")) + +(define (url->code uu) + (#js.console.log ($/binop + #js"extracting code from: " uu)) + (define u ($/new (#js.url.URL uu))) + (#js.console.log #js.u.searchParams) + (#js.console.log (#js.u.searchParams.get #js"code")) + (#js.u.searchParams.get #js"code")) +; ($ (#js.url.split #js"?code=") 1)) + +(define (handle-save req res) + (#js.console.log ($/binop + #js"User wants to save: " #js.req.session.id)) + (#js.console.log #js.req.session) + (define tok #js.req.session.access_token) + (#js.console.log ($/binop + #js"access_token: " tok)) +#; (define data + {$/obj + [public #t] +#; [files + (assoc->object + `([,*gist-source-file* ,{$/obj + [content (#js.cm-editor-racket.getValue)]}] + [,*gist-javascript-file* ,{$/obj + [content (#js.cm-editor-jsout.getValue)]}]))] + [files + {$/obj + [source.rkt {$/obj + [content (#js.cm-editor-racket.getValue)]}] + [compiled.js {$/obj + [content (#js.cm-editor-jsout.getValue)]}]}]}) + ;; (define settings + ;; {$/obj + ;; [url #js"https://api.github.com/gists"] + ;; [data #js.req.data] + ;; [headers + ;; {$/obj + ;; [Accept #js"application/vnd.github.v3+json"] + ;; [Authorization #js.req.session.access_token]}]}) + ;; ($> (#js.jQuery.post settings) + ;; (done (λ (data) + ;; (#js.console.log #js.data.id) + ;; #; (define id #js.data.id) + ;; #; (:= #js.window.location.href ($/binop + #js"#gist/" id)))) + ;; (fail (λ (e) + ;; (#js.console.log #js.e) + ;; #;(show-error "Error saving as Gist" + ;; #js.e.responseJSON.message))))) + ;; TODO: can we just forward data directly, without re-parsing/stringifying? + (define data (#js*.JSON.stringify #js.req.body)) + (define options + {$/obj + [hostname #js"api.github.com"] + [path #js"/gists"] + [method #js"POST"] + [headers + {$/obj + [Accept #js"application/vnd.github.v3+json"] + [Authorization ($/binop + #js"token " #js.req.session.access_token)] +#; [Content-Type #js"application/json"] + #; [Content-Length #js.data.length] + ;; from: https://docs.github.com/en/rest/overview/resources-in-the-rest-api#user-agent-required + ;; User agent required: + ;; All API requests MUST include a valid User-Agent + ;; header. Requests with no User-Agent header will be + ;; rejected. We request that you use your GitHub username, or + ;; the name of your application, for the User-Agent header + ;; value. This allows us to contact you if there are problems. + [User-Agent #js"RacketScript Playground"] + }]}) + (define gh-req + (#js.https.request + options + (λ (gh-res) + (#js.console.log ($/binop + #js"statusCode: " #js.gh-res.statusCode)) + (#js.console.log ($/binop + #js"headers: " #js.gh-res.headers)) + (#js.console.log (#js*.JSON.stringify #js.gh-res.headers)) + (define gh-datas ($/array)) ; array of partial data buffers + ;; TODO: is there a more high level way to get the data? + ;; https://stackoverflow.com/questions/40537749/how-do-i-make-a-https-post-in-node-js-without-any-third-party-module + (#js.gh-res.on #js"data" (λ (chunk) (#js.gh-datas.push chunk))) + (#js.gh-res.on #js"end" + (λ () + (define gh-data (#js*.Buffer.concat gh-datas)) + ;; TODO: directly convert data to JSON? + (define res-data (#js*.JSON.parse (#js.gh-data.toString))) + (#js.console.log #js.res-data.id) + (#js.res.send #js.res-data.id) +#; (#js.process.stdout.write d) + ;; (define params ($/new (#js.url.URLSearchParams (#js.d.toString #js"utf8")))) + ;; (#js.console.log #js.params) + ;; (define tok (#js.params.get #js"access_token")) + ;; (#js.console.log ($/binop + #js"Received GH access_token: " tok)) + ;; (#js.console.log ($/binop + #js"user id: " #js.req.session.id)) + ;; (#js.console.log ($/binop + #js"stored access_token (before): " #js.req.session.access_token)) + ;; ($/:= #js.req.session.access_token tok) + ;; (#js.console.log ($/binop + #js"stored access_token: " #js.req.session.access_token)) + ;; (#js.req.session.save (λ (e) (#js.console.log #js"access_token saved"))) + ;; (#js.console.log #js.req.session) + ;; (#js.res.send #js"") + ;; (set! ACCESS-TOKEN tok)))))) + ))))) + (#js.gh-req.on #js"error" + (λ (e) + (#js.console.error e))) + + (#js.gh-req.write data) + (#js.gh-req.end)) + +(define (handle-login req res) + (#js.console.log ($/binop + #js"User id wants to login: " #js.req.session.id)) + (#js.console.log ($/binop + #js"User id wants to login: " #js.req.session.id)) + ($/:= #js.req.session.access_token #js"") ; initialize so session gets saved + (#js.console.log #js.req.session) + (#js.console.log #js"Initiating GH Auth request ...") + (define params + ($/new + (#js.url.URLSearchParams + {$/obj + [client_id PLAYGROUND-GH-CLIENT-ID] + [scope #js"gist"] + [state #js.req.session.id]}))) + (#js.console.log ($/binop + #js"https://github.com/login/oauth/authorize?" params)) + (#js.res.redirect + 302 + ($/binop + #js"https://github.com/login/oauth/authorize?" params)) +;; client_id=079bd6bc167ef3ba0753&scope=gist") +;; (define data +;; (#js*.JSON.stringify +;; {$/obj +;; [client_id PLAYGROUND-GH-CLIENT-ID] +;; #; [client_secret CLIENT-SECRET] +;; #; [code code]})) +;; (define options +;; {$/obj +;; [hostname #js"github.com"] +;; [path #js"/login/oauth/authorize??client_id=079bd6bc167ef3ba0753&scope=gist"] +;; [method #js"GET"] +;; #; [headers +;; {$/obj +;; [Content-Type #js"application/json"] +;; [Content-Length #js.data.length]}]}) +;; (define gh_auth_req +;; (#js.https.request +;; options +;; (λ (gh_auth_res) +;; (#js.console.log #js"github response ...") +;; (#js.gh_auth_res.on #js"data" +;; (λ (d) ;; data buffer +;; ;; (#js.process.stdout.write d) +;; ;; (#js.console.log ($/typeof d)) +;; ;; TODO: should be able to send buffer directly without converting to string? +;; ;; must set Content-Type to "text/html"? +;; ;; When the parameter is a Buffer object, the method sets the Content-Type response header field to “application/octet-stream”, unless previously defined as shown below: res.set('Content-Type', 'text/html') +;; ;; https://expressjs.com/en/api.html#res +;; (define str (#js.d.toString #js"utf8")) +;; (#js.console.log str) +;; (#js.res.set #js"Content-Type" #js"text/html; charset=UTF-8") ; otherwise gets treated as plain text +;; ; (#js.res.send #js"you are being redirected") +;; (#js.res.send str) +;; ;; (define params ($/new (#js.url.URLSearchParams (#js.d.toString #js"utf8")))) +;; ;; (#js.console.log #js.params) +;; ;; (define tok (#js.params.get #js"access_token")) +;; ;; (#js.console.log ($/binop + #js"Received GH access_token: " tok)) +;; ;; (set! ACCESS-TOKEN tok)))))) +;; ))))) +;; (#js.gh_auth_req.on #js"error" +;; (λ (e) +;; (#js.console.error e))) +;; (#js.gh_auth_req.end) +) + ;; (#js.console.log ($/binop + #js"statusCode: " #js.res.statusCode)) + ;; (#js.console.log ($/binop + #js"headers: " #js.res.headers)) + ;; (#js.console.log (#js*.JSON.stringify #js.res.headers)) + ;; (#js.res.on #js"data" + ;; (λ (d) ;; data buffer + ;; (#js.process.stdout.write d) + ;; (define params ($/new (#js.url.URLSearchParams (#js.d.toString #js"utf8")))) + ;; (#js.console.log #js.params) + ;; (define tok (#js.params.get #js"access_token")) + ;; (#js.console.log ($/binop + #js"Received GH access_token: " tok)) + ;; (set! ACCESS-TOKEN tok)))))) + ;; (#js.req.on #js"error" + ;; (λ (e) + ;; (#js.console.error e))) + ;; + + + +;; OAuth steps: +;; 1) User initiates login by clicking "login" button, client_id sent to gh +;; 2) github calls this handler with a "code" +;; 3) server calls github authorize with: +;; - code +;; - client_id +;; - client secret +;; 4) gh responds with auth token +;; 5) send auth token in header with every gh api call +;; NOTE: the client_id comes from creating github oauth app; +;; handler url "racketscript.org/auth" must be registered on this app page +(define (handle-auth req res) + (#js.console.log #js"Making GH Auth request ...") + ;; (#js.console.log #js.res.req) + (#js.console.log #js.res.req.query.code) + (#js.console.log #js.res.req.query.state) +#; (define sess + (#js.res.req.session.store.get + #js.res.req.query.state + (λ (e sid) + (#js.console.log + ($/binop + #js"ERR, session not found: " sid))))) +;; (define code (url->code #js.res.req.url)) + (define code #js.res.req.query.code) + (#js.console.log ($/binop + #js"Received GH code: " code)) + + (#js.console.log #js"Making GH Access Token request ...") + (define data + (#js*.JSON.stringify + {$/obj + [client_id PLAYGROUND-GH-CLIENT-ID] + [client_secret PLAYGROUND-GH-SECRET] + [code code]})) + (define options + {$/obj + [hostname #js"github.com"] + [path #js"/login/oauth/access_token"] + [method #js"POST"] + [headers + {$/obj + [Content-Type #js"application/json"] + [Content-Length #js.data.length]}]}) + (define gh-req + (#js.https.request + options + (λ (gh-res) + ;; (#js.console.log #js.gh-res) + (#js.console.log ($/binop + #js"statusCode: " #js.gh-res.statusCode)) + (#js.console.log ($/binop + #js"headers: " #js.gh-res.headers)) + (#js.console.log (#js*.JSON.stringify #js.gh-res.headers)) + (#js.gh-res.on #js"data" + (λ (d) ;; data buffer + (#js.process.stdout.write d) + (define params ($/new (#js.url.URLSearchParams (#js.d.toString #js"utf8")))) + (#js.console.log #js.params) + (define tok (#js.params.get #js"access_token")) + (#js.console.log ($/binop + #js"Received GH access_token: " tok)) + (#js.console.log ($/binop + #js"user id: " #js.req.session.id)) + (#js.console.log ($/binop + #js"stored access_token (before): " #js.req.session.access_token)) + ($/:= #js.req.session.access_token tok) + (#js.console.log ($/binop + #js"stored access_token: " #js.req.session.access_token)) + (#js.req.session.save (λ (e) (#js.console.log #js"access_token saved"))) + (#js.console.log #js.req.session) + (#js.res.send #js"") + (set! ACCESS-TOKEN tok)))))) + (#js.gh-req.on #js"error" + (λ (e) + (#js.console.error e))) + + (#js.gh-req.write data) + (#js.gh-req.end)) + + (define (handle-compile req res) (define racket-code (or ($ req 'body 'code) #f)) @@ -77,11 +350,22 @@ (#js.app.use (#js.express.static #js"static")) (#js.app.use #js"/examples" (#js.express.static #js"examples")) - (#js.app.use (#js.body-parser.urlencoded {$/obj [extended #f] + (#js.app.use (#js.body-parser.urlencoded {$/obj [extended #t] ; must be #t for nested objs (see save code) [limit #js"8mb"]})) (#js.app.use (#js.body-parser.json {$/obj [limit #js"8mb"]})) + ;; TODO: not supposed to use the default sessionStore + (#js.app.use (session {$/obj [secret #js"RacketScript PlayGround"] + [resave #f] + [saveUninitialized #f]})) + + (#js.app.get #js"/auth" handle-auth) + + (#js.app.get #js"/login" handle-login) + (#js.app.post #js"/compile" handle-compile) + + (#js.app.post #js"/save" handle-save) (#js.app.listen PORT (λ () diff --git a/client.rkt b/client.rkt index 94c467a..d3efa46 100644 --- a/client.rkt +++ b/client.rkt @@ -32,6 +32,7 @@ (define compiling? #f) (define last-compile-time (#js*.Date.now)) +(define logged-in? #f) (define-syntax := (make-rename-transformer #'$/:=)) (define run-frame-init-handler (λ () @@ -67,6 +68,10 @@ (click (λ (e) (#js.e.preventDefault) (compile #t)))) +#; ($> (jQuery #js"#btn-login") + (click (λ (e) + (#js.e.preventDefault) + (login)))) ($> (jQuery #js"#btn-save") (click (λ (e) (#js.e.preventDefault) @@ -208,23 +213,142 @@ #js.xhr.responseJSON.message))))) (define (save) + ;; this data will get forwarded to github + ;; see: https://docs.github.com/en/rest/reference/gists#create-a-gist--parameters (define data {$/obj - [public #t] - [files + [public #f] + [description #js"RacketScript Playground Program"] +#; [files (assoc->object `([,*gist-source-file* ,{$/obj [content (#js.cm-editor-racket.getValue)]}] [,*gist-javascript-file* ,{$/obj - [content (#js.cm-editor-jsout.getValue)]}]))]}) - ($> (#js.jQuery.post #js"https://api.github.com/gists" (#js*.JSON.stringify data)) + [content (#js.cm-editor-jsout.getValue)]}]))] +#; [rkt (#js.cm-editor-racket.getValue)] + #; [js (#js.cm-editor-jsout.getValue)] + [files + {$/obj + [source.rkt {$/obj + [content (#js.cm-editor-racket.getValue)]}] + [compiled.js {$/obj + [content (#js.cm-editor-jsout.getValue)]}]}]}) + (#js*.console.log #js"sending to server ...") + (#js*.console.log #js.data) + (define settings + {$/obj + [url #js"/save"] + [data data #;(#js*.JSON.stringify data)] + ;[data data] +#; [headers + {$/obj + [Accept #js"application/vnd.github.v3+json"] + [Authorization #js"token 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"]}]}) + ($> (#js.jQuery.post #js"/save" data) #;(#js.jQuery.post settings) + #;(#js.jQuery.post #js"https://api.github.com/gists" (#js*.JSON.stringify data)) (done (λ (data) - (define id #js.data.id) + (#js*.console.log data) + (define id #js.data) (:= #js.window.location.href ($/binop + #js"#gist/" id)))) (fail (λ (e) + (#js*.console.log #js.e) + (show-error "Error saving as Gist" + #js.e.responseJSON.message))))) + +#;(define (save) +#; (define data + {$/obj + [public #t] +#; [files + (assoc->object + `([,*gist-source-file* ,{$/obj + [content (#js.cm-editor-racket.getValue)]}] + [,*gist-javascript-file* ,{$/obj + [content (#js.cm-editor-jsout.getValue)]}]))] + [files + {$/obj + [source.rkt {$/obj + [content (#js.cm-editor-racket.getValue)]}] + [compiled.js {$/obj + [content (#js.cm-editor-jsout.getValue)]}]}]}) + (define settings + {$/obj + [url #js"/save"] +; [data (#js*.JSON.stringify data)] + ;[data data] + #; [headers + {$/obj + [Accept #js"application/vnd.github.v3+json"] + [Authorization #js"token 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"]}]}) + ($> (#js.jQuery.post settings) + #;(#js.jQuery.post #js"https://api.github.com/gists" (#js*.JSON.stringify data)) + (done (λ (data) + (show-error "saved" + #js.data.responseJSON.message) + #;(define id #js.data.id) + #;(:= #js.window.location.href ($/binop + #js"#gist/" id)))) + (fail (λ (e) + (#js*.console.log #js.e) (show-error "Error saving as Gist" #js.e.responseJSON.message))))) +#;(define (login) + (show-error "Logging in" "Github login coming soon!")) +(define (login) + #;(define (compile execute?) + (when (or (not compiling?) (> (- (#js*.Date.now) last-compile-time) 5000)) + (:= compiling? #t) + (#js*.setTimeout (λ () + (:= compiling? #f)) + 5000) + (#js.cm-editor-console.setValue #js"Console Log:\n") + (#js.cm-editor-jsout.setValue #js"Compiling ...") + ($> (#js.jQuery.post #js"/compile" {$/obj [code (#js.cm-editor-racket.getValue)]}) + (done (λ (data) + (set-javascript-code data) + (when execute? + (run)))) + (fail (λ (xhr status err) + (#js.cm-editor-console.setValue + ($/binop + #js"Compilation error:\n" #js.xhr.responseText)) + (#js.cm-editor-jsout.setValue #js""))) + (always (λ () + (:= compiling? #f)))))) + (#js.jQuery.get #js"/login") +#;(define data + {$/obj + [client-id #js"079bd6bc167ef3ba0753"]}) +#;(define settings + {$/obj + [url #js"https://github.com/login/oauth/authorize"] + [data (#js*.JSON.stringify data)] +#; [headers + {$/obj + [Authorization #js"token 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"]}]}) +#; ($> (#js.jQuery.get settings) + (done (λ (data) + (#js*.console.log #js.data) + #;(show-error "logging in" + #js.data.responseJSON.message))) + (fail (λ (e) + (show-error "failed logging in" + #js.e.responseJSON.message))))) +#;(define (login) + (define settings + {$/obj + [url #js"https://api.github.com/user"] + [headers + {$/obj + [Authorization #js"token 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"]}]}) + ($> (#js.jQuery.get settings) + (done (λ (data) + (#js*.console.log #js.data) + #;(show-error "logging in" + #js.data.responseJSON.message))) + (fail (λ (e) + (show-error "failed logging in" + #js.e.responseJSON.message))))) + ;;------------------------------------------------------------------------------- (define (show-error title msg) diff --git a/package-lock.json b/package-lock.json index 669f28a..908835a 100644 --- a/package-lock.json +++ b/package-lock.json @@ -1,492 +1,8 @@ { "name": "racketscript-playground", "version": "0.0.1", - "lockfileVersion": 2, + "lockfileVersion": 1, "requires": true, - "packages": { - "": { - "version": "0.0.1", - "dependencies": { - "body-parser": "*", - "express": "^4.17.1" - } - }, - "node_modules/accepts": { - "version": "1.3.7", - "resolved": "https://registry.npmjs.org/accepts/-/accepts-1.3.7.tgz", - "integrity": "sha512-Il80Qs2WjYlJIBNzNkK6KYqlVMTbZLXgHx2oT0pU/fjRHyEp+PEfEPY0R3WCwAGVOtauxh1hOxNgIf5bv7dQpA==", - "dependencies": { - "mime-types": "~2.1.24", - "negotiator": "0.6.2" - }, - "engines": { - "node": ">= 0.6" - } - }, - "node_modules/array-flatten": { - "version": "1.1.1", - "resolved": "https://registry.npmjs.org/array-flatten/-/array-flatten-1.1.1.tgz", - "integrity": "sha1-ml9pkFGx5wczKPKgCJaLZOopVdI=" - }, - "node_modules/body-parser": { - "version": "1.19.0", - "resolved": "https://registry.npmjs.org/body-parser/-/body-parser-1.19.0.tgz", - "integrity": "sha512-dhEPs72UPbDnAQJ9ZKMNTP6ptJaionhP5cBb541nXPlW60Jepo9RV/a4fX4XWW9CuFNK22krhrj1+rgzifNCsw==", - "dependencies": { - "bytes": "3.1.0", - "content-type": "~1.0.4", - "debug": "2.6.9", - "depd": "~1.1.2", - "http-errors": "1.7.2", - "iconv-lite": "0.4.24", - "on-finished": "~2.3.0", - "qs": "6.7.0", - "raw-body": "2.4.0", - "type-is": "~1.6.17" - }, - "engines": { - "node": ">= 0.8" - } - }, - "node_modules/bytes": { - "version": "3.1.0", - "resolved": "https://registry.npmjs.org/bytes/-/bytes-3.1.0.tgz", - "integrity": "sha512-zauLjrfCG+xvoyaqLoV8bLVXXNGC4JqlxFCutSDWA6fJrTo2ZuvLYTqZ7aHBLZSMOopbzwv8f+wZcVzfVTI2Dg==", - "engines": { - "node": ">= 0.8" - } - }, - "node_modules/content-disposition": { - "version": "0.5.3", - "resolved": "https://registry.npmjs.org/content-disposition/-/content-disposition-0.5.3.tgz", - "integrity": "sha512-ExO0774ikEObIAEV9kDo50o+79VCUdEB6n6lzKgGwupcVeRlhrj3qGAfwq8G6uBJjkqLrhT0qEYFcWng8z1z0g==", - "dependencies": { - "safe-buffer": "5.1.2" - }, - "engines": { - "node": ">= 0.6" - } - }, - "node_modules/content-type": { - "version": "1.0.4", - "resolved": "https://registry.npmjs.org/content-type/-/content-type-1.0.4.tgz", - "integrity": "sha512-hIP3EEPs8tB9AT1L+NUqtwOAps4mk2Zob89MWXMHjHWg9milF/j4osnnQLXBCBFBk/tvIG/tUc9mOUJiPBhPXA==", - "engines": { - "node": ">= 0.6" - } - }, - "node_modules/cookie": { - "version": "0.4.0", - "resolved": "https://registry.npmjs.org/cookie/-/cookie-0.4.0.tgz", - "integrity": "sha512-+Hp8fLp57wnUSt0tY0tHEXh4voZRDnoIrZPqlo3DPiI4y9lwg/jqx+1Om94/W6ZaPDOUbnjOt/99w66zk+l1Xg==", - "engines": { - "node": ">= 0.6" - } - }, - "node_modules/cookie-signature": { - "version": "1.0.6", - "resolved": "https://registry.npmjs.org/cookie-signature/-/cookie-signature-1.0.6.tgz", - "integrity": "sha1-4wOogrNCzD7oylE6eZmXNNqzriw=" - }, - "node_modules/debug": { - "version": "2.6.9", - "resolved": "https://registry.npmjs.org/debug/-/debug-2.6.9.tgz", - "integrity": "sha512-bC7ElrdJaJnPbAP+1EotYvqZsb3ecl5wi6Bfi6BJTUcNowp6cvspg0jXznRTKDjm/E7AdgFBVeAPVMNcKGsHMA==", - "dependencies": { - "ms": "2.0.0" - } - }, - "node_modules/depd": { - "version": "1.1.2", - "resolved": "https://registry.npmjs.org/depd/-/depd-1.1.2.tgz", - "integrity": "sha1-m81S4UwJd2PnSbJ0xDRu0uVgtak=", - "engines": { - "node": ">= 0.6" - } - }, - "node_modules/destroy": { - "version": "1.0.4", - "resolved": "https://registry.npmjs.org/destroy/-/destroy-1.0.4.tgz", - "integrity": "sha1-l4hXRCxEdJ5CBmE+N5RiBYJqvYA=" - }, - "node_modules/ee-first": { - "version": "1.1.1", - "resolved": "https://registry.npmjs.org/ee-first/-/ee-first-1.1.1.tgz", - "integrity": "sha1-WQxhFWsK4vTwJVcyoViyZrxWsh0=" - }, - "node_modules/encodeurl": { - "version": "1.0.2", - "resolved": "https://registry.npmjs.org/encodeurl/-/encodeurl-1.0.2.tgz", - "integrity": "sha1-rT/0yG7C0CkyL1oCw6mmBslbP1k=", - "engines": { - "node": ">= 0.8" - } - }, - "node_modules/escape-html": { - "version": "1.0.3", - "resolved": "https://registry.npmjs.org/escape-html/-/escape-html-1.0.3.tgz", - "integrity": "sha1-Aljq5NPQwJdN4cFpGI7wBR0dGYg=" - }, - "node_modules/etag": { - "version": "1.8.1", - "resolved": "https://registry.npmjs.org/etag/-/etag-1.8.1.tgz", - "integrity": "sha1-Qa4u62XvpiJorr/qg6x9eSmbCIc=", - "engines": { - "node": ">= 0.6" - } - }, - "node_modules/express": { - "version": "4.17.1", - "resolved": "https://registry.npmjs.org/express/-/express-4.17.1.tgz", - "integrity": "sha512-mHJ9O79RqluphRrcw2X/GTh3k9tVv8YcoyY4Kkh4WDMUYKRZUq0h1o0w2rrrxBqM7VoeUVqgb27xlEMXTnYt4g==", - "dependencies": { - "accepts": "~1.3.7", - "array-flatten": "1.1.1", - "body-parser": "1.19.0", - "content-disposition": "0.5.3", - "content-type": "~1.0.4", - "cookie": "0.4.0", - "cookie-signature": "1.0.6", - "debug": "2.6.9", - "depd": "~1.1.2", - "encodeurl": "~1.0.2", - "escape-html": "~1.0.3", - "etag": "~1.8.1", - "finalhandler": "~1.1.2", - "fresh": "0.5.2", - "merge-descriptors": "1.0.1", - "methods": "~1.1.2", - "on-finished": "~2.3.0", - "parseurl": "~1.3.3", - "path-to-regexp": "0.1.7", - "proxy-addr": "~2.0.5", - "qs": "6.7.0", - "range-parser": "~1.2.1", - "safe-buffer": "5.1.2", - "send": "0.17.1", - "serve-static": "1.14.1", - "setprototypeof": "1.1.1", - "statuses": "~1.5.0", - "type-is": "~1.6.18", - "utils-merge": "1.0.1", - "vary": "~1.1.2" - }, - "engines": { - "node": ">= 0.10.0" - } - }, - "node_modules/finalhandler": { - "version": "1.1.2", - "resolved": "https://registry.npmjs.org/finalhandler/-/finalhandler-1.1.2.tgz", - "integrity": "sha512-aAWcW57uxVNrQZqFXjITpW3sIUQmHGG3qSb9mUah9MgMC4NeWhNOlNjXEYq3HjRAvL6arUviZGGJsBg6z0zsWA==", - "dependencies": { - "debug": "2.6.9", - "encodeurl": "~1.0.2", - "escape-html": "~1.0.3", - "on-finished": "~2.3.0", - "parseurl": "~1.3.3", - "statuses": "~1.5.0", - "unpipe": "~1.0.0" - }, - "engines": { - "node": ">= 0.8" - } - }, - "node_modules/forwarded": { - "version": "0.2.0", - "resolved": "https://registry.npmjs.org/forwarded/-/forwarded-0.2.0.tgz", - "integrity": "sha512-buRG0fpBtRHSTCOASe6hD258tEubFoRLb4ZNA6NxMVHNw2gOcwHo9wyablzMzOA5z9xA9L1KNjk/Nt6MT9aYow==", - "engines": { - "node": ">= 0.6" - } - }, - "node_modules/fresh": { - "version": "0.5.2", - "resolved": "https://registry.npmjs.org/fresh/-/fresh-0.5.2.tgz", - "integrity": "sha1-PYyt2Q2XZWn6g1qx+OSyOhBWBac=", - "engines": { - "node": ">= 0.6" - } - }, - "node_modules/http-errors": { - "version": "1.7.2", - "resolved": "https://registry.npmjs.org/http-errors/-/http-errors-1.7.2.tgz", - "integrity": "sha512-uUQBt3H/cSIVfch6i1EuPNy/YsRSOUBXTVfZ+yR7Zjez3qjBz6i9+i4zjNaoqcoFVI4lQJ5plg63TvGfRSDCRg==", - "dependencies": { - "depd": "~1.1.2", - "inherits": "2.0.3", - "setprototypeof": "1.1.1", - "statuses": ">= 1.5.0 < 2", - "toidentifier": "1.0.0" - }, - "engines": { - "node": ">= 0.6" - } - }, - "node_modules/iconv-lite": { - "version": "0.4.24", - "resolved": "https://registry.npmjs.org/iconv-lite/-/iconv-lite-0.4.24.tgz", - "integrity": "sha512-v3MXnZAcvnywkTUEZomIActle7RXXeedOR31wwl7VlyoXO4Qi9arvSenNQWne1TcRwhCL1HwLI21bEqdpj8/rA==", - "dependencies": { - "safer-buffer": ">= 2.1.2 < 3" - }, - "engines": { - "node": ">=0.10.0" - } - }, - "node_modules/inherits": { - "version": "2.0.3", - "resolved": "https://registry.npmjs.org/inherits/-/inherits-2.0.3.tgz", - "integrity": "sha1-Yzwsg+PaQqUC9SRmAiSA9CCCYd4=" - }, - "node_modules/ipaddr.js": { - "version": "1.9.1", - "resolved": "https://registry.npmjs.org/ipaddr.js/-/ipaddr.js-1.9.1.tgz", - "integrity": "sha512-0KI/607xoxSToH7GjN1FfSbLoU0+btTicjsQSWQlh/hZykN8KpmMf7uYwPW3R+akZ6R/w18ZlXSHBYXiYUPO3g==", - "engines": { - "node": ">= 0.10" - } - }, - "node_modules/media-typer": { - "version": "0.3.0", - "resolved": "https://registry.npmjs.org/media-typer/-/media-typer-0.3.0.tgz", - "integrity": "sha1-hxDXrwqmJvj/+hzgAWhUUmMlV0g=", - "engines": { - "node": ">= 0.6" - } - }, - "node_modules/merge-descriptors": { - "version": "1.0.1", - "resolved": "https://registry.npmjs.org/merge-descriptors/-/merge-descriptors-1.0.1.tgz", - "integrity": "sha1-sAqqVW3YtEVoFQ7J0blT8/kMu2E=" - }, - "node_modules/methods": { - "version": "1.1.2", - "resolved": "https://registry.npmjs.org/methods/-/methods-1.1.2.tgz", - "integrity": "sha1-VSmk1nZUE07cxSZmVoNbD4Ua/O4=", - "engines": { - "node": ">= 0.6" - } - }, - "node_modules/mime": { - "version": "1.6.0", - "resolved": "https://registry.npmjs.org/mime/-/mime-1.6.0.tgz", - "integrity": "sha512-x0Vn8spI+wuJ1O6S7gnbaQg8Pxh4NNHb7KSINmEWKiPE4RKOplvijn+NkmYmmRgP68mc70j2EbeTFRsrswaQeg==", - "bin": { - "mime": "cli.js" - }, - "engines": { - "node": ">=4" - } - }, - "node_modules/mime-db": { - "version": "1.48.0", - "resolved": "https://registry.npmjs.org/mime-db/-/mime-db-1.48.0.tgz", - "integrity": "sha512-FM3QwxV+TnZYQ2aRqhlKBMHxk10lTbMt3bBkMAp54ddrNeVSfcQYOOKuGuy3Ddrm38I04If834fOUSq1yzslJQ==", - "engines": { - "node": ">= 0.6" - } - }, - "node_modules/mime-types": { - "version": "2.1.31", - "resolved": "https://registry.npmjs.org/mime-types/-/mime-types-2.1.31.tgz", - "integrity": "sha512-XGZnNzm3QvgKxa8dpzyhFTHmpP3l5YNusmne07VUOXxou9CqUqYa/HBy124RqtVh/O2pECas/MOcsDgpilPOPg==", - "dependencies": { - "mime-db": "1.48.0" - }, - "engines": { - "node": ">= 0.6" - } - }, - "node_modules/ms": { - "version": "2.0.0", - "resolved": "https://registry.npmjs.org/ms/-/ms-2.0.0.tgz", - "integrity": "sha1-VgiurfwAvmwpAd9fmGF4jeDVl8g=" - }, - "node_modules/negotiator": { - "version": "0.6.2", - "resolved": "https://registry.npmjs.org/negotiator/-/negotiator-0.6.2.tgz", - "integrity": "sha512-hZXc7K2e+PgeI1eDBe/10Ard4ekbfrrqG8Ep+8Jmf4JID2bNg7NvCPOZN+kfF574pFQI7mum2AUqDidoKqcTOw==", - "engines": { - "node": ">= 0.6" - } - }, - "node_modules/on-finished": { - "version": "2.3.0", - "resolved": "https://registry.npmjs.org/on-finished/-/on-finished-2.3.0.tgz", - "integrity": "sha1-IPEzZIGwg811M3mSoWlxqi2QaUc=", - "dependencies": { - "ee-first": "1.1.1" - }, - "engines": { - "node": ">= 0.8" - } - }, - "node_modules/parseurl": { - "version": "1.3.3", - "resolved": "https://registry.npmjs.org/parseurl/-/parseurl-1.3.3.tgz", - "integrity": "sha512-CiyeOxFT/JZyN5m0z9PfXw4SCBJ6Sygz1Dpl0wqjlhDEGGBP1GnsUVEL0p63hoG1fcj3fHynXi9NYO4nWOL+qQ==", - "engines": { - "node": ">= 0.8" - } - }, - "node_modules/path-to-regexp": { - "version": "0.1.7", - "resolved": "https://registry.npmjs.org/path-to-regexp/-/path-to-regexp-0.1.7.tgz", - "integrity": "sha1-32BBeABfUi8V60SQ5yR6G/qmf4w=" - }, - "node_modules/proxy-addr": { - "version": "2.0.7", - "resolved": "https://registry.npmjs.org/proxy-addr/-/proxy-addr-2.0.7.tgz", - "integrity": "sha512-llQsMLSUDUPT44jdrU/O37qlnifitDP+ZwrmmZcoSKyLKvtZxpyV0n2/bD/N4tBAAZ/gJEdZU7KMraoK1+XYAg==", - "dependencies": { - "forwarded": "0.2.0", - "ipaddr.js": "1.9.1" - }, - "engines": { - "node": ">= 0.10" - } - }, - "node_modules/qs": { - "version": "6.7.0", - "resolved": "https://registry.npmjs.org/qs/-/qs-6.7.0.tgz", - "integrity": "sha512-VCdBRNFTX1fyE7Nb6FYoURo/SPe62QCaAyzJvUjwRaIsc+NePBEniHlvxFmmX56+HZphIGtV0XeCirBtpDrTyQ==", - "engines": { - "node": ">=0.6" - } - }, - "node_modules/range-parser": { - "version": "1.2.1", - "resolved": "https://registry.npmjs.org/range-parser/-/range-parser-1.2.1.tgz", - "integrity": "sha512-Hrgsx+orqoygnmhFbKaHE6c296J+HTAQXoxEF6gNupROmmGJRoyzfG3ccAveqCBrwr/2yxQ5BVd/GTl5agOwSg==", - "engines": { - "node": ">= 0.6" - } - }, - "node_modules/raw-body": { - "version": "2.4.0", - "resolved": "https://registry.npmjs.org/raw-body/-/raw-body-2.4.0.tgz", - "integrity": "sha512-4Oz8DUIwdvoa5qMJelxipzi/iJIi40O5cGV1wNYp5hvZP8ZN0T+jiNkL0QepXs+EsQ9XJ8ipEDoiH70ySUJP3Q==", - "dependencies": { - "bytes": "3.1.0", - "http-errors": "1.7.2", - "iconv-lite": "0.4.24", - "unpipe": "1.0.0" - }, - "engines": { - "node": ">= 0.8" - } - }, - "node_modules/safe-buffer": { - "version": "5.1.2", - "resolved": "https://registry.npmjs.org/safe-buffer/-/safe-buffer-5.1.2.tgz", - "integrity": "sha512-Gd2UZBJDkXlY7GbJxfsE8/nvKkUEU1G38c1siN6QP6a9PT9MmHB8GnpscSmMJSoF8LOIrt8ud/wPtojys4G6+g==" - }, - "node_modules/safer-buffer": { - "version": "2.1.2", - "resolved": "https://registry.npmjs.org/safer-buffer/-/safer-buffer-2.1.2.tgz", - "integrity": "sha512-YZo3K82SD7Riyi0E1EQPojLz7kpepnSQI9IyPbHHg1XXXevb5dJI7tpyN2ADxGcQbHG7vcyRHk0cbwqcQriUtg==" - }, - "node_modules/send": { - "version": "0.17.1", - "resolved": "https://registry.npmjs.org/send/-/send-0.17.1.tgz", - "integrity": "sha512-BsVKsiGcQMFwT8UxypobUKyv7irCNRHk1T0G680vk88yf6LBByGcZJOTJCrTP2xVN6yI+XjPJcNuE3V4fT9sAg==", - "dependencies": { - "debug": "2.6.9", - "depd": "~1.1.2", - "destroy": "~1.0.4", - "encodeurl": "~1.0.2", - "escape-html": "~1.0.3", - "etag": "~1.8.1", - "fresh": "0.5.2", - "http-errors": "~1.7.2", - "mime": "1.6.0", - "ms": "2.1.1", - "on-finished": "~2.3.0", - "range-parser": "~1.2.1", - "statuses": "~1.5.0" - }, - "engines": { - "node": ">= 0.8.0" - } - }, - "node_modules/send/node_modules/ms": { - "version": "2.1.1", - "resolved": "https://registry.npmjs.org/ms/-/ms-2.1.1.tgz", - "integrity": "sha512-tgp+dl5cGk28utYktBsrFqA7HKgrhgPsg6Z/EfhWI4gl1Hwq8B/GmY/0oXZ6nF8hDVesS/FpnYaD/kOWhYQvyg==" - }, - "node_modules/serve-static": { - "version": "1.14.1", - "resolved": "https://registry.npmjs.org/serve-static/-/serve-static-1.14.1.tgz", - "integrity": "sha512-JMrvUwE54emCYWlTI+hGrGv5I8dEwmco/00EvkzIIsR7MqrHonbD9pO2MOfFnpFntl7ecpZs+3mW+XbQZu9QCg==", - "dependencies": { - "encodeurl": "~1.0.2", - "escape-html": "~1.0.3", - "parseurl": "~1.3.3", - "send": "0.17.1" - }, - "engines": { - "node": ">= 0.8.0" - } - }, - "node_modules/setprototypeof": { - "version": "1.1.1", - "resolved": "https://registry.npmjs.org/setprototypeof/-/setprototypeof-1.1.1.tgz", - "integrity": "sha512-JvdAWfbXeIGaZ9cILp38HntZSFSo3mWg6xGcJJsd+d4aRMOqauag1C63dJfDw7OaMYwEbHMOxEZ1lqVRYP2OAw==" - }, - "node_modules/statuses": { - "version": "1.5.0", - "resolved": "https://registry.npmjs.org/statuses/-/statuses-1.5.0.tgz", - "integrity": "sha1-Fhx9rBd2Wf2YEfQ3cfqZOBR4Yow=", - "engines": { - "node": ">= 0.6" - } - }, - "node_modules/toidentifier": { - "version": "1.0.0", - "resolved": "https://registry.npmjs.org/toidentifier/-/toidentifier-1.0.0.tgz", - "integrity": "sha512-yaOH/Pk/VEhBWWTlhI+qXxDFXlejDGcQipMlyxda9nthulaxLZUNcUqFxokp0vcYnvteJln5FNQDRrxj3YcbVw==", - "engines": { - "node": ">=0.6" - } - }, - "node_modules/type-is": { - "version": "1.6.18", - "resolved": "https://registry.npmjs.org/type-is/-/type-is-1.6.18.tgz", - "integrity": "sha512-TkRKr9sUTxEH8MdfuCSP7VizJyzRNMjj2J2do2Jr3Kym598JVdEksuzPQCnlFPW4ky9Q+iA+ma9BGm06XQBy8g==", - "dependencies": { - "media-typer": "0.3.0", - "mime-types": "~2.1.24" - }, - "engines": { - "node": ">= 0.6" - } - }, - "node_modules/unpipe": { - "version": "1.0.0", - "resolved": "https://registry.npmjs.org/unpipe/-/unpipe-1.0.0.tgz", - "integrity": "sha1-sr9O6FFKrmFltIF4KdIbLvSZBOw=", - "engines": { - "node": ">= 0.8" - } - }, - "node_modules/utils-merge": { - "version": "1.0.1", - "resolved": "https://registry.npmjs.org/utils-merge/-/utils-merge-1.0.1.tgz", - "integrity": "sha1-n5VxD1CiZ5R7LMwSR0HBAoQn5xM=", - "engines": { - "node": ">= 0.4.0" - } - }, - "node_modules/vary": { - "version": "1.1.2", - "resolved": "https://registry.npmjs.org/vary/-/vary-1.1.2.tgz", - "integrity": "sha1-IpnwLG3tMNSllhsLn3RSShj2NPw=", - "engines": { - "node": ">= 0.8" - } - } - }, "dependencies": { "accepts": { "version": "1.3.7", @@ -622,6 +138,38 @@ "vary": "~1.1.2" } }, + "express-session": { + "version": "1.17.2", + "resolved": "https://registry.npmjs.org/express-session/-/express-session-1.17.2.tgz", + "integrity": "sha512-mPcYcLA0lvh7D4Oqr5aNJFMtBMKPLl++OKKxkHzZ0U0oDq1rpKBnkR5f5vCHR26VeArlTOEF9td4x5IjICksRQ==", + "requires": { + "cookie": "0.4.1", + "cookie-signature": "1.0.6", + "debug": "2.6.9", + "depd": "~2.0.0", + "on-headers": "~1.0.2", + "parseurl": "~1.3.3", + "safe-buffer": "5.2.1", + "uid-safe": "~2.1.5" + }, + "dependencies": { + "cookie": { + "version": "0.4.1", + "resolved": "https://registry.npmjs.org/cookie/-/cookie-0.4.1.tgz", + "integrity": "sha512-ZwrFkGJxUR3EIoXtO+yVE69Eb7KlixbaeAWfBQB9vVsNn/o+Yw69gBWSSDK825hQNdN+wF8zELf3dFNl/kxkUA==" + }, + "depd": { + "version": "2.0.0", + "resolved": "https://registry.npmjs.org/depd/-/depd-2.0.0.tgz", + "integrity": "sha512-g7nH6P6dyDioJogAAGprGpCtVImJhpPk/roCzdb3fIh61/s/nPsfR6onyMwkCAR/OlC3yBC0lESvUoQEAssIrw==" + }, + "safe-buffer": { + "version": "5.2.1", + "resolved": "https://registry.npmjs.org/safe-buffer/-/safe-buffer-5.2.1.tgz", + "integrity": "sha512-rp3So07KcdmmKbGvgaNxQSJr7bGVSVk5S9Eq1F+ppbRo70+YeaDxkw5Dd8NPN+GD6bjnYm2VuPuCXmpuYvmCXQ==" + } + } + }, "finalhandler": { "version": "1.1.2", "resolved": "https://registry.npmjs.org/finalhandler/-/finalhandler-1.1.2.tgz", @@ -727,6 +275,11 @@ "ee-first": "1.1.1" } }, + "on-headers": { + "version": "1.0.2", + "resolved": "https://registry.npmjs.org/on-headers/-/on-headers-1.0.2.tgz", + "integrity": "sha512-pZAE+FJLoyITytdqK0U5s+FIpjN0JP3OzFi/u8Rx+EV5/W+JTWGXG8xFzevE7AjBfDqHv/8vL8qQsIhHnqRkrA==" + }, "parseurl": { "version": "1.3.3", "resolved": "https://registry.npmjs.org/parseurl/-/parseurl-1.3.3.tgz", @@ -751,6 +304,11 @@ "resolved": "https://registry.npmjs.org/qs/-/qs-6.7.0.tgz", "integrity": "sha512-VCdBRNFTX1fyE7Nb6FYoURo/SPe62QCaAyzJvUjwRaIsc+NePBEniHlvxFmmX56+HZphIGtV0XeCirBtpDrTyQ==" }, + "random-bytes": { + "version": "1.0.0", + "resolved": "https://registry.npmjs.org/random-bytes/-/random-bytes-1.0.0.tgz", + "integrity": "sha1-T2ih3Arli9P7lYSMMDJNt11kNgs=" + }, "range-parser": { "version": "1.2.1", "resolved": "https://registry.npmjs.org/range-parser/-/range-parser-1.2.1.tgz", @@ -839,6 +397,14 @@ "mime-types": "~2.1.24" } }, + "uid-safe": { + "version": "2.1.5", + "resolved": "https://registry.npmjs.org/uid-safe/-/uid-safe-2.1.5.tgz", + "integrity": "sha512-KPHm4VL5dDXKz01UuEd88Df+KzynaohSL9fBh096KWAxSKZQDI2uBrVqtvRM4rwrIrRRKsdLNML/lnaaVSRioA==", + "requires": { + "random-bytes": "~1.0.0" + } + }, "unpipe": { "version": "1.0.0", "resolved": "https://registry.npmjs.org/unpipe/-/unpipe-1.0.0.tgz", diff --git a/package.json b/package.json index a846da9..0b592f1 100644 --- a/package.json +++ b/package.json @@ -17,6 +17,7 @@ }, "dependencies": { "express": "^4.17.1", + "express-session": "*", "body-parser": "*" }, "scripts": { diff --git a/static/index.html b/static/index.html index 1f2249d..a930dfb 100644 --- a/static/index.html +++ b/static/index.html @@ -86,6 +86,8 @@
      + +
    • Log in
    • Save
    • Compile
    • Run
      • From e856632621789f76b2a1776613ed592697c74c74 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Mon, 28 Jun 2021 22:43:05 +0000 Subject: [PATCH 10/38] move client id and secret to .env file --- app.rkt | 16 ++++++++-------- package-lock.json | 5 +++++ package.json | 3 ++- 3 files changed, 15 insertions(+), 9 deletions(-) diff --git a/app.rkt b/app.rkt index 31abc15..07467e4 100644 --- a/app.rkt +++ b/app.rkt @@ -12,6 +12,7 @@ (define https ($/require "https")) (define url ($/require "url")) (define session ($/require "express-session")) +(define dotenv ($/require "dotenv")) (define spawn ($ child-process 'spawn)) @@ -24,17 +25,16 @@ #js.process.env.PORT 8080)) -;; hash mapping user ids to auth tokens -(define USERS (make-hash)) +(#js.dotenv.config) ; load env vars from .env file + +;; (define PLAYGROUND-GH-CLIENT-ID #js"079bd6bc167ef3ba0753") +;; (define PLAYGROUND-GH-SECRET #js"d0beada041f11935c6e27acd3e34566b6548b72a") +(define PLAYGROUND-GH-CLIENT-ID #js.process.env.PLAYGROUND_GITHUB_CLIENT_ID) +(define PLAYGROUND-GH-SECRET #js.process.env.PLAYGROUND_GITHUB_SECRET) -;; TODO: this is temporary. use the above hash instead -(define ACCESS-TOKEN "") ;;----------------------------------------------------------------------------- ;; Handlers -(define PLAYGROUND-GH-CLIENT-ID #js"079bd6bc167ef3ba0753") -(define PLAYGROUND-GH-SECRET #js"d0beada041f11935c6e27acd3e34566b6548b72a") - (define (has-code? url) (#js.url.includes #js"?code=")) (define (url->code uu) @@ -287,7 +287,7 @@ (#js.req.session.save (λ (e) (#js.console.log #js"access_token saved"))) (#js.console.log #js.req.session) (#js.res.send #js"") - (set! ACCESS-TOKEN tok)))))) +#; (set! ACCESS-TOKEN tok)))))) (#js.gh-req.on #js"error" (λ (e) (#js.console.error e))) diff --git a/package-lock.json b/package-lock.json index 908835a..c71c65b 100644 --- a/package-lock.json +++ b/package-lock.json @@ -81,6 +81,11 @@ "resolved": "https://registry.npmjs.org/destroy/-/destroy-1.0.4.tgz", "integrity": "sha1-l4hXRCxEdJ5CBmE+N5RiBYJqvYA=" }, + "dotenv": { + "version": "10.0.0", + "resolved": "https://registry.npmjs.org/dotenv/-/dotenv-10.0.0.tgz", + "integrity": "sha512-rlBi9d8jpv9Sf1klPjNfFAuWDjKLwTIJJ/VxtoTwIR6hnZxcEOQCZg2oIL3MWBYw5GpUDKOEnND7LXTbIpQ03Q==" + }, "ee-first": { "version": "1.1.1", "resolved": "https://registry.npmjs.org/ee-first/-/ee-first-1.1.1.tgz", diff --git a/package.json b/package.json index 0b592f1..750ed1e 100644 --- a/package.json +++ b/package.json @@ -18,7 +18,8 @@ "dependencies": { "express": "^4.17.1", "express-session": "*", - "body-parser": "*" + "body-parser": "*", + "dotenv": "*" }, "scripts": { "build": "make build", From 4fef3a0812f291c906cbd1a92462be6f50475e97 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Tue, 29 Jun 2021 17:22:31 +0000 Subject: [PATCH 11/38] make buttons reflect login status --- app.rkt | 32 +++++++++++++++++++++++++++++++- client.rkt | 41 +++++++++++++++++++++++++++++++++++++---- static/index.html | 3 ++- 3 files changed, 70 insertions(+), 6 deletions(-) diff --git a/app.rkt b/app.rkt index 07467e4..f67a0c2 100644 --- a/app.rkt +++ b/app.rkt @@ -143,6 +143,32 @@ (#js.gh-req.write data) (#js.gh-req.end)) +(define (query-login req res) + (#js.console.log (js-string (format "User ~a checking login status ..." (racket-string #js.req.session.id)))) + (#js.console.log #js.req.session) + (#js.console.log #js.req.session.access_token) + (#js.res.send ($/binop !== #js.req.session.access_token $/undefined))) + +;; ##### gh login steps: ##### +;; 1) user clicks login button: +;; - pop up new window +;; - send "/login" request to server +;; 2) server `handle-login` fn called +;; - calls gh outh link with +;; - gh Playground App Client ID +;; - user session id (generated by express-session library) +;; - user gets prompted to enter gh credentials +;; 3) user logs in to gh +;; - gh calls server callback route (as registered with gh Playground App) +;; - gh makes server "/auth" post request +;; 4) server `handle-auth` fn called +;; - extract "code" from gh request +;; - send code, App client id, and app client secret to gh to get access token +;; - add access token to users's session in sessionStore (part of express-session) +;; (TODO: dont use the default store) +;; (session id was returned as param with gh request) +;; - send response to user to close login window, +;; and update buttons to reflect logged in status (define (handle-login req res) (#js.console.log ($/binop + #js"User id wants to login: " #js.req.session.id)) (#js.console.log ($/binop + #js"User id wants to login: " #js.req.session.id)) @@ -286,7 +312,9 @@ (#js.console.log ($/binop + #js"stored access_token: " #js.req.session.access_token)) (#js.req.session.save (λ (e) (#js.console.log #js"access_token saved"))) (#js.console.log #js.req.session) - (#js.res.send #js"") + ;; TODO: Is there a better way to do this? + ;; send message to main window, to reflect logged in status; close gh login window + (#js.res.send #js"") #; (set! ACCESS-TOKEN tok)))))) (#js.gh-req.on #js"error" (λ (e) @@ -362,6 +390,8 @@ (#js.app.get #js"/auth" handle-auth) (#js.app.get #js"/login" handle-login) + + (#js.app.get #js"/isloggedin" query-login) (#js.app.post #js"/compile" handle-compile) diff --git a/client.rkt b/client.rkt index d3efa46..1a267de 100644 --- a/client.rkt +++ b/client.rkt @@ -68,15 +68,43 @@ (click (λ (e) (#js.e.preventDefault) (compile #t)))) -#; ($> (jQuery #js"#btn-login") + #;($> (jQuery #js"#btn-login") (click (λ (e) - (#js.e.preventDefault) - (login)))) + ($> (jQuery #js"#btn-save") (show)) + ($> (jQuery #js"#btn-logout") (show)) + ($> (jQuery #js"#btn-login") (hide)) + #;(#js.e.preventDefault) + #;(login)))) + ($> (jQuery #js"#btn-logout") + (click (λ (e) + (do-logged-out) + ;; ($> (jQuery #js"#btn-save") (hide)) + ;; ($> (jQuery #js"#btn-logout") (hide)) + ;; ($> (jQuery #js"#btn-login") (show)) + #;(#js.e.preventDefault) + #;(logout)))) ($> (jQuery #js"#btn-save") (click (λ (e) (#js.e.preventDefault) (save))))) +(define (check-logged-in) + (#js.jQuery.get #js"/isloggedin" + (λ (isloggedin) + (if isloggedin + (do-logged-in) + (do-logged-out))))) + +(define (do-logged-in) + ($> (jQuery #js"#btn-save") (show)) + ($> (jQuery #js"#btn-logout") (show)) + ($> (jQuery #js"#btn-login") (hide))) + +(define (do-logged-out) + ($> (jQuery #js"#btn-save") (hide)) + ($> (jQuery #js"#btn-logout") (hide)) + ($> (jQuery #js"#btn-login") (show))) + ;;----------------------------------------------------------------------------- ;; Editors @@ -403,11 +431,16 @@ (init-editors!) (init-split-layout!) (register-button-events!) - (load-racket-code))) + (load-racket-code) + (check-logged-in))) (#js*.window.addEventListener #js"hashchange" load-racket-code)) (#js*.window.addEventListener #js"message" (λ (event) (when ($/binop === #js.event.data #js"run-iframe-init") (run-frame-init-handler event)))) + (#js*.window.addEventListener #js"message" + (λ (event) + (when ($/binop === #js.event.data #js"logged-in") + (do-logged-in)))) (main) diff --git a/static/index.html b/static/index.html index a930dfb..095d1d3 100644 --- a/static/index.html +++ b/static/index.html @@ -86,9 +86,10 @@
      +
    • Save
    • Log in
      • -
    • Save
      • +
    • Log out
    • Compile
    • Run
    • Compile + Run
      • From 38614c44ebf74ef24e30a7ec7d89028601fb93ee Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Tue, 29 Jun 2021 17:34:01 +0000 Subject: [PATCH 12/38] properly logout --- app.rkt | 13 ++++++++++--- client.rkt | 4 ++++ 2 files changed, 14 insertions(+), 3 deletions(-) diff --git a/app.rkt b/app.rkt index f67a0c2..5a82855 100644 --- a/app.rkt +++ b/app.rkt @@ -145,10 +145,17 @@ (define (query-login req res) (#js.console.log (js-string (format "User ~a checking login status ..." (racket-string #js.req.session.id)))) - (#js.console.log #js.req.session) - (#js.console.log #js.req.session.access_token) (#js.res.send ($/binop !== #js.req.session.access_token $/undefined))) +(define (handle-logout req res) + (#js.console.log (js-string (format "User ~a wants to log out ..." (racket-string #js.req.session.id)))) + (#js.req.session.destroy + (λ (err) + (if ($/binop !== err $/undefined) + ($> (#js.res.status 400) + (send #js"Unable to log out")) + (#js.res.send #js"Logout successful"))))) + ;; ##### gh login steps: ##### ;; 1) user clicks login button: ;; - pop up new window @@ -390,7 +397,7 @@ (#js.app.get #js"/auth" handle-auth) (#js.app.get #js"/login" handle-login) - + (#js.app.get #js"/logout" handle-logout) (#js.app.get #js"/isloggedin" query-login) (#js.app.post #js"/compile" handle-compile) diff --git a/client.rkt b/client.rkt index 1a267de..89f326f 100644 --- a/client.rkt +++ b/client.rkt @@ -77,6 +77,7 @@ #;(login)))) ($> (jQuery #js"#btn-logout") (click (λ (e) + (logout) (do-logged-out) ;; ($> (jQuery #js"#btn-save") (hide)) ;; ($> (jQuery #js"#btn-logout") (hide)) @@ -320,6 +321,9 @@ (show-error "Error saving as Gist" #js.e.responseJSON.message))))) +(define (logout) + (#js.jQuery.get #js"/logout")) + #;(define (login) (show-error "Logging in" "Github login coming soon!")) (define (login) From 89592c8dcb7a4d48891b1c85f5eea6364bb6a8b7 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Tue, 29 Jun 2021 17:51:50 +0000 Subject: [PATCH 13/38] clean up app.rkt code --- app.rkt | 188 ++++++++------------------------------------------------ 1 file changed, 25 insertions(+), 163 deletions(-) diff --git a/app.rkt b/app.rkt index 5a82855..e7fa2c9 100644 --- a/app.rkt +++ b/app.rkt @@ -35,54 +35,11 @@ ;;----------------------------------------------------------------------------- ;; Handlers -(define (has-code? url) (#js.url.includes #js"?code=")) - -(define (url->code uu) - (#js.console.log ($/binop + #js"extracting code from: " uu)) - (define u ($/new (#js.url.URL uu))) - (#js.console.log #js.u.searchParams) - (#js.console.log (#js.u.searchParams.get #js"code")) - (#js.u.searchParams.get #js"code")) -; ($ (#js.url.split #js"?code=") 1)) - (define (handle-save req res) (#js.console.log ($/binop + #js"User wants to save: " #js.req.session.id)) - (#js.console.log #js.req.session) (define tok #js.req.session.access_token) - (#js.console.log ($/binop + #js"access_token: " tok)) -#; (define data - {$/obj - [public #t] -#; [files - (assoc->object - `([,*gist-source-file* ,{$/obj - [content (#js.cm-editor-racket.getValue)]}] - [,*gist-javascript-file* ,{$/obj - [content (#js.cm-editor-jsout.getValue)]}]))] - [files - {$/obj - [source.rkt {$/obj - [content (#js.cm-editor-racket.getValue)]}] - [compiled.js {$/obj - [content (#js.cm-editor-jsout.getValue)]}]}]}) - ;; (define settings - ;; {$/obj - ;; [url #js"https://api.github.com/gists"] - ;; [data #js.req.data] - ;; [headers - ;; {$/obj - ;; [Accept #js"application/vnd.github.v3+json"] - ;; [Authorization #js.req.session.access_token]}]}) - ;; ($> (#js.jQuery.post settings) - ;; (done (λ (data) - ;; (#js.console.log #js.data.id) - ;; #; (define id #js.data.id) - ;; #; (:= #js.window.location.href ($/binop + #js"#gist/" id)))) - ;; (fail (λ (e) - ;; (#js.console.log #js.e) - ;; #;(show-error "Error saving as Gist" - ;; #js.e.responseJSON.message))))) - ;; TODO: can we just forward data directly, without re-parsing/stringifying? + (#js.console.log ($/binop + #js"with access_token: " tok)) + ;; TODO: how to forward data directly, without re-parsing/stringifying? (define data (#js*.JSON.stringify #js.req.body)) (define options {$/obj @@ -91,26 +48,24 @@ [method #js"POST"] [headers {$/obj + ;; is this needed? + #;[Content-Type #js"application/json"] + #;[Content-Length #js.data.length] [Accept #js"application/vnd.github.v3+json"] [Authorization ($/binop + #js"token " #js.req.session.access_token)] -#; [Content-Type #js"application/json"] - #; [Content-Length #js.data.length] - ;; from: https://docs.github.com/en/rest/overview/resources-in-the-rest-api#user-agent-required ;; User agent required: + ;; (from: https://docs.github.com/en/rest/overview/resources-in-the-rest-api#user-agent-required) ;; All API requests MUST include a valid User-Agent ;; header. Requests with no User-Agent header will be ;; rejected. We request that you use your GitHub username, or ;; the name of your application, for the User-Agent header ;; value. This allows us to contact you if there are problems. - [User-Agent #js"RacketScript Playground"] - }]}) + [User-Agent #js"RacketScript Playground"]}]}) (define gh-req (#js.https.request options (λ (gh-res) (#js.console.log ($/binop + #js"statusCode: " #js.gh-res.statusCode)) - (#js.console.log ($/binop + #js"headers: " #js.gh-res.headers)) - (#js.console.log (#js*.JSON.stringify #js.gh-res.headers)) (define gh-datas ($/array)) ; array of partial data buffers ;; TODO: is there a more high level way to get the data? ;; https://stackoverflow.com/questions/40537749/how-do-i-make-a-https-post-in-node-js-without-any-third-party-module @@ -120,22 +75,8 @@ (define gh-data (#js*.Buffer.concat gh-datas)) ;; TODO: directly convert data to JSON? (define res-data (#js*.JSON.parse (#js.gh-data.toString))) - (#js.console.log #js.res-data.id) - (#js.res.send #js.res-data.id) -#; (#js.process.stdout.write d) - ;; (define params ($/new (#js.url.URLSearchParams (#js.d.toString #js"utf8")))) - ;; (#js.console.log #js.params) - ;; (define tok (#js.params.get #js"access_token")) - ;; (#js.console.log ($/binop + #js"Received GH access_token: " tok)) - ;; (#js.console.log ($/binop + #js"user id: " #js.req.session.id)) - ;; (#js.console.log ($/binop + #js"stored access_token (before): " #js.req.session.access_token)) - ;; ($/:= #js.req.session.access_token tok) - ;; (#js.console.log ($/binop + #js"stored access_token: " #js.req.session.access_token)) - ;; (#js.req.session.save (λ (e) (#js.console.log #js"access_token saved"))) - ;; (#js.console.log #js.req.session) - ;; (#js.res.send #js"") - ;; (set! ACCESS-TOKEN tok)))))) - ))))) + (#js.console.log ($/binop + #js"save successful, gist id: " #js.res-data.id)) + (#js.res.send #js.res-data.id)))))) (#js.gh-req.on #js"error" (λ (e) (#js.console.error e))) @@ -168,7 +109,7 @@ ;; 3) user logs in to gh ;; - gh calls server callback route (as registered with gh Playground App) ;; - gh makes server "/auth" post request -;; 4) server `handle-auth` fn called +;; 4) server `handle-auth` fn called (see below) ;; - extract "code" from gh request ;; - send code, App client id, and app client secret to gh to get access token ;; - add access token to users's session in sessionStore (part of express-session) @@ -177,10 +118,8 @@ ;; - send response to user to close login window, ;; and update buttons to reflect logged in status (define (handle-login req res) - (#js.console.log ($/binop + #js"User id wants to login: " #js.req.session.id)) - (#js.console.log ($/binop + #js"User id wants to login: " #js.req.session.id)) + (#js.console.log ($/binop + #js"User wants to login, id: " #js.req.session.id)) ($/:= #js.req.session.access_token #js"") ; initialize so session gets saved - (#js.console.log #js.req.session) (#js.console.log #js"Initiating GH Auth request ...") (define params ($/new @@ -189,72 +128,11 @@ [client_id PLAYGROUND-GH-CLIENT-ID] [scope #js"gist"] [state #js.req.session.id]}))) - (#js.console.log ($/binop + #js"https://github.com/login/oauth/authorize?" params)) - (#js.res.redirect - 302 - ($/binop + #js"https://github.com/login/oauth/authorize?" params)) -;; client_id=079bd6bc167ef3ba0753&scope=gist") -;; (define data -;; (#js*.JSON.stringify -;; {$/obj -;; [client_id PLAYGROUND-GH-CLIENT-ID] -;; #; [client_secret CLIENT-SECRET] -;; #; [code code]})) -;; (define options -;; {$/obj -;; [hostname #js"github.com"] -;; [path #js"/login/oauth/authorize??client_id=079bd6bc167ef3ba0753&scope=gist"] -;; [method #js"GET"] -;; #; [headers -;; {$/obj -;; [Content-Type #js"application/json"] -;; [Content-Length #js.data.length]}]}) -;; (define gh_auth_req -;; (#js.https.request -;; options -;; (λ (gh_auth_res) -;; (#js.console.log #js"github response ...") -;; (#js.gh_auth_res.on #js"data" -;; (λ (d) ;; data buffer -;; ;; (#js.process.stdout.write d) -;; ;; (#js.console.log ($/typeof d)) -;; ;; TODO: should be able to send buffer directly without converting to string? -;; ;; must set Content-Type to "text/html"? -;; ;; When the parameter is a Buffer object, the method sets the Content-Type response header field to “application/octet-stream”, unless previously defined as shown below: res.set('Content-Type', 'text/html') -;; ;; https://expressjs.com/en/api.html#res -;; (define str (#js.d.toString #js"utf8")) -;; (#js.console.log str) -;; (#js.res.set #js"Content-Type" #js"text/html; charset=UTF-8") ; otherwise gets treated as plain text -;; ; (#js.res.send #js"you are being redirected") -;; (#js.res.send str) -;; ;; (define params ($/new (#js.url.URLSearchParams (#js.d.toString #js"utf8")))) -;; ;; (#js.console.log #js.params) -;; ;; (define tok (#js.params.get #js"access_token")) -;; ;; (#js.console.log ($/binop + #js"Received GH access_token: " tok)) -;; ;; (set! ACCESS-TOKEN tok)))))) -;; ))))) -;; (#js.gh_auth_req.on #js"error" -;; (λ (e) -;; (#js.console.error e))) -;; (#js.gh_auth_req.end) -) - ;; (#js.console.log ($/binop + #js"statusCode: " #js.res.statusCode)) - ;; (#js.console.log ($/binop + #js"headers: " #js.res.headers)) - ;; (#js.console.log (#js*.JSON.stringify #js.res.headers)) - ;; (#js.res.on #js"data" - ;; (λ (d) ;; data buffer - ;; (#js.process.stdout.write d) - ;; (define params ($/new (#js.url.URLSearchParams (#js.d.toString #js"utf8")))) - ;; (#js.console.log #js.params) - ;; (define tok (#js.params.get #js"access_token")) - ;; (#js.console.log ($/binop + #js"Received GH access_token: " tok)) - ;; (set! ACCESS-TOKEN tok)))))) - ;; (#js.req.on #js"error" - ;; (λ (e) - ;; (#js.console.error e))) - ;; - - + (define gh-auth-url + ($/binop + #js"https://github.com/login/oauth/authorize?" params)) +; (#js.console.log ($/binop + #js"https://github.com/login/oauth/authorize?" params)) + (#js.console.log ($/binop + #js"redirecting user to:\n" gh-auth-url)) + (#js.res.redirect 302 gh-auth-url)) ;; OAuth steps: ;; 1) User initiates login by clicking "login" button, client_id sent to gh @@ -268,21 +146,12 @@ ;; NOTE: the client_id comes from creating github oauth app; ;; handler url "racketscript.org/auth" must be registered on this app page (define (handle-auth req res) - (#js.console.log #js"Making GH Auth request ...") - ;; (#js.console.log #js.res.req) - (#js.console.log #js.res.req.query.code) - (#js.console.log #js.res.req.query.state) -#; (define sess - (#js.res.req.session.store.get - #js.res.req.query.state - (λ (e sid) - (#js.console.log - ($/binop + #js"ERR, session not found: " sid))))) -;; (define code (url->code #js.res.req.url)) + (#js.console.log #js"User logged in, attempting to get GH access token ...") + (#js.console.log ($/binop + #js"with user id: " #js.res.req.query.state)) + (#js.console.log ($/binop + #js"and code: " #js.res.req.query.code)) + (define code #js.res.req.query.code) - (#js.console.log ($/binop + #js"Received GH code: " code)) - (#js.console.log #js"Making GH Access Token request ...") (define data (#js*.JSON.stringify {$/obj @@ -302,27 +171,20 @@ (#js.https.request options (λ (gh-res) - ;; (#js.console.log #js.gh-res) - (#js.console.log ($/binop + #js"statusCode: " #js.gh-res.statusCode)) - (#js.console.log ($/binop + #js"headers: " #js.gh-res.headers)) - (#js.console.log (#js*.JSON.stringify #js.gh-res.headers)) + (#js.console.log ($/binop + #js"access_token request statusCode: " #js.gh-res.statusCode)) (#js.gh-res.on #js"data" (λ (d) ;; data buffer - (#js.process.stdout.write d) (define params ($/new (#js.url.URLSearchParams (#js.d.toString #js"utf8")))) - (#js.console.log #js.params) (define tok (#js.params.get #js"access_token")) (#js.console.log ($/binop + #js"Received GH access_token: " tok)) - (#js.console.log ($/binop + #js"user id: " #js.req.session.id)) - (#js.console.log ($/binop + #js"stored access_token (before): " #js.req.session.access_token)) ($/:= #js.req.session.access_token tok) (#js.console.log ($/binop + #js"stored access_token: " #js.req.session.access_token)) - (#js.req.session.save (λ (e) (#js.console.log #js"access_token saved"))) - (#js.console.log #js.req.session) + (#js.console.log ($/binop + #js"for user id: " #js.req.session.id)) ;; TODO: Is there a better way to do this? ;; send message to main window, to reflect logged in status; close gh login window - (#js.res.send #js"") -#; (set! ACCESS-TOKEN tok)))))) + (#js.res.send + #js"") + ))))) (#js.gh-req.on #js"error" (λ (e) (#js.console.error e))) From 6c4d7f8293ee851250bc085577a8161e1a8fce34 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Tue, 29 Jun 2021 17:55:47 +0000 Subject: [PATCH 14/38] clean up client.rkt code --- client.rkt | 170 ++++++++--------------------------------------------- 1 file changed, 23 insertions(+), 147 deletions(-) diff --git a/client.rkt b/client.rkt index 89f326f..769d23d 100644 --- a/client.rkt +++ b/client.rkt @@ -68,44 +68,15 @@ (click (λ (e) (#js.e.preventDefault) (compile #t)))) - #;($> (jQuery #js"#btn-login") - (click (λ (e) - ($> (jQuery #js"#btn-save") (show)) - ($> (jQuery #js"#btn-logout") (show)) - ($> (jQuery #js"#btn-login") (hide)) - #;(#js.e.preventDefault) - #;(login)))) ($> (jQuery #js"#btn-logout") (click (λ (e) (logout) - (do-logged-out) - ;; ($> (jQuery #js"#btn-save") (hide)) - ;; ($> (jQuery #js"#btn-logout") (hide)) - ;; ($> (jQuery #js"#btn-login") (show)) - #;(#js.e.preventDefault) - #;(logout)))) + (do-logged-out)))) ($> (jQuery #js"#btn-save") (click (λ (e) (#js.e.preventDefault) (save))))) -(define (check-logged-in) - (#js.jQuery.get #js"/isloggedin" - (λ (isloggedin) - (if isloggedin - (do-logged-in) - (do-logged-out))))) - -(define (do-logged-in) - ($> (jQuery #js"#btn-save") (show)) - ($> (jQuery #js"#btn-logout") (show)) - ($> (jQuery #js"#btn-login") (hide))) - -(define (do-logged-out) - ($> (jQuery #js"#btn-save") (hide)) - ($> (jQuery #js"#btn-logout") (hide)) - ($> (jQuery #js"#btn-login") (show))) - ;;----------------------------------------------------------------------------- ;; Editors @@ -224,7 +195,27 @@ (:= compiling? #f)))))) ;;----------------------------------------------------------------------------- -;; Save and Load Gist +;; Login, Save, and Load Gist + +(define (check-logged-in) + (#js.jQuery.get #js"/isloggedin" + (λ (isloggedin) + (if isloggedin + (do-logged-in) + (do-logged-out))))) + +(define (do-logged-in) + ($> (jQuery #js"#btn-save") (show)) + ($> (jQuery #js"#btn-logout") (show)) + ($> (jQuery #js"#btn-login") (hide))) + +(define (do-logged-out) + ($> (jQuery #js"#btn-save") (hide)) + ($> (jQuery #js"#btn-logout") (hide)) + ($> (jQuery #js"#btn-login") (show))) + +(define (logout) + (#js.jQuery.get #js"/logout")) (define (load-gist id) ($> (#js.jQuery.get ($/binop + "https://api.github.com/gists/" id)) @@ -248,14 +239,6 @@ {$/obj [public #f] [description #js"RacketScript Playground Program"] -#; [files - (assoc->object - `([,*gist-source-file* ,{$/obj - [content (#js.cm-editor-racket.getValue)]}] - [,*gist-javascript-file* ,{$/obj - [content (#js.cm-editor-jsout.getValue)]}]))] -#; [rkt (#js.cm-editor-racket.getValue)] - #; [js (#js.cm-editor-jsout.getValue)] [files {$/obj [source.rkt {$/obj @@ -264,17 +247,7 @@ [content (#js.cm-editor-jsout.getValue)]}]}]}) (#js*.console.log #js"sending to server ...") (#js*.console.log #js.data) - (define settings - {$/obj - [url #js"/save"] - [data data #;(#js*.JSON.stringify data)] - ;[data data] -#; [headers - {$/obj - [Accept #js"application/vnd.github.v3+json"] - [Authorization #js"token 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"]}]}) - ($> (#js.jQuery.post #js"/save" data) #;(#js.jQuery.post settings) - #;(#js.jQuery.post #js"https://api.github.com/gists" (#js*.JSON.stringify data)) + ($> (#js.jQuery.post #js"/save" data) (done (λ (data) (#js*.console.log data) (define id #js.data) @@ -284,103 +257,6 @@ (show-error "Error saving as Gist" #js.e.responseJSON.message))))) -#;(define (save) -#; (define data - {$/obj - [public #t] -#; [files - (assoc->object - `([,*gist-source-file* ,{$/obj - [content (#js.cm-editor-racket.getValue)]}] - [,*gist-javascript-file* ,{$/obj - [content (#js.cm-editor-jsout.getValue)]}]))] - [files - {$/obj - [source.rkt {$/obj - [content (#js.cm-editor-racket.getValue)]}] - [compiled.js {$/obj - [content (#js.cm-editor-jsout.getValue)]}]}]}) - (define settings - {$/obj - [url #js"/save"] -; [data (#js*.JSON.stringify data)] - ;[data data] - #; [headers - {$/obj - [Accept #js"application/vnd.github.v3+json"] - [Authorization #js"token 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"]}]}) - ($> (#js.jQuery.post settings) - #;(#js.jQuery.post #js"https://api.github.com/gists" (#js*.JSON.stringify data)) - (done (λ (data) - (show-error "saved" - #js.data.responseJSON.message) - #;(define id #js.data.id) - #;(:= #js.window.location.href ($/binop + #js"#gist/" id)))) - (fail (λ (e) - (#js*.console.log #js.e) - (show-error "Error saving as Gist" - #js.e.responseJSON.message))))) - -(define (logout) - (#js.jQuery.get #js"/logout")) - -#;(define (login) - (show-error "Logging in" "Github login coming soon!")) -(define (login) - #;(define (compile execute?) - (when (or (not compiling?) (> (- (#js*.Date.now) last-compile-time) 5000)) - (:= compiling? #t) - (#js*.setTimeout (λ () - (:= compiling? #f)) - 5000) - (#js.cm-editor-console.setValue #js"Console Log:\n") - (#js.cm-editor-jsout.setValue #js"Compiling ...") - ($> (#js.jQuery.post #js"/compile" {$/obj [code (#js.cm-editor-racket.getValue)]}) - (done (λ (data) - (set-javascript-code data) - (when execute? - (run)))) - (fail (λ (xhr status err) - (#js.cm-editor-console.setValue - ($/binop + #js"Compilation error:\n" #js.xhr.responseText)) - (#js.cm-editor-jsout.setValue #js""))) - (always (λ () - (:= compiling? #f)))))) - (#js.jQuery.get #js"/login") -#;(define data - {$/obj - [client-id #js"079bd6bc167ef3ba0753"]}) -#;(define settings - {$/obj - [url #js"https://github.com/login/oauth/authorize"] - [data (#js*.JSON.stringify data)] -#; [headers - {$/obj - [Authorization #js"token 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"]}]}) -#; ($> (#js.jQuery.get settings) - (done (λ (data) - (#js*.console.log #js.data) - #;(show-error "logging in" - #js.data.responseJSON.message))) - (fail (λ (e) - (show-error "failed logging in" - #js.e.responseJSON.message))))) -#;(define (login) - (define settings - {$/obj - [url #js"https://api.github.com/user"] - [headers - {$/obj - [Authorization #js"token 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"]}]}) - ($> (#js.jQuery.get settings) - (done (λ (data) - (#js*.console.log #js.data) - #;(show-error "logging in" - #js.data.responseJSON.message))) - (fail (λ (e) - (show-error "failed logging in" - #js.e.responseJSON.message))))) - ;;------------------------------------------------------------------------------- (define (show-error title msg) From f12fd411295523bd132f677e474114995a65d185 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Tue, 29 Jun 2021 17:57:13 +0000 Subject: [PATCH 15/38] more minor cleanup --- static/index.html | 1 - 1 file changed, 1 deletion(-) diff --git a/static/index.html b/static/index.html index 095d1d3..4012819 100644 --- a/static/index.html +++ b/static/index.html @@ -87,7 +87,6 @@
      • Save
        • -
      • Log in
      • Log out
      • Compile
        • From dfe2cfb1511b169b80474277a595f52a560d1d0b Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Tue, 29 Jun 2021 18:06:06 +0000 Subject: [PATCH 16/38] more minor code cleanup --- app.rkt | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/app.rkt b/app.rkt index e7fa2c9..1857204 100644 --- a/app.rkt +++ b/app.rkt @@ -27,8 +27,7 @@ (#js.dotenv.config) ; load env vars from .env file -;; (define PLAYGROUND-GH-CLIENT-ID #js"079bd6bc167ef3ba0753") -;; (define PLAYGROUND-GH-SECRET #js"d0beada041f11935c6e27acd3e34566b6548b72a") +;; these are loaded from a .env file (define PLAYGROUND-GH-CLIENT-ID #js.process.env.PLAYGROUND_GITHUB_CLIENT_ID) (define PLAYGROUND-GH-SECRET #js.process.env.PLAYGROUND_GITHUB_SECRET) @@ -112,6 +111,7 @@ ;; 4) server `handle-auth` fn called (see below) ;; - extract "code" from gh request ;; - send code, App client id, and app client secret to gh to get access token +;; (the server must do this request bc client will get blocked by browser CORS policy) ;; - add access token to users's session in sessionStore (part of express-session) ;; (TODO: dont use the default store) ;; (session id was returned as param with gh request) @@ -119,7 +119,7 @@ ;; and update buttons to reflect logged in status (define (handle-login req res) (#js.console.log ($/binop + #js"User wants to login, id: " #js.req.session.id)) - ($/:= #js.req.session.access_token #js"") ; initialize so session gets saved + ($/:= #js.req.session.access_token #js"") ; initialize field so session gets saved to store (#js.console.log #js"Initiating GH Auth request ...") (define params ($/new @@ -130,7 +130,6 @@ [state #js.req.session.id]}))) (define gh-auth-url ($/binop + #js"https://github.com/login/oauth/authorize?" params)) -; (#js.console.log ($/binop + #js"https://github.com/login/oauth/authorize?" params)) (#js.console.log ($/binop + #js"redirecting user to:\n" gh-auth-url)) (#js.res.redirect 302 gh-auth-url)) From 7c5fef756997469775872711608ac7fe58c3badc Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Tue, 29 Jun 2021 18:06:49 +0000 Subject: [PATCH 17/38] more cleanup --- client.rkt | 2 -- 1 file changed, 2 deletions(-) diff --git a/client.rkt b/client.rkt index 769d23d..9c29979 100644 --- a/client.rkt +++ b/client.rkt @@ -245,8 +245,6 @@ [content (#js.cm-editor-racket.getValue)]}] [compiled.js {$/obj [content (#js.cm-editor-jsout.getValue)]}]}]}) - (#js*.console.log #js"sending to server ...") - (#js*.console.log #js.data) ($> (#js.jQuery.post #js"/save" data) (done (λ (data) (#js*.console.log data) From 96b49ad21adb1e5fec321d94c428ca3c84edb9bf Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Tue, 29 Jun 2021 18:17:42 +0000 Subject: [PATCH 18/38] dont hardcode save filenames --- client.rkt | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/client.rkt b/client.rkt index 9c29979..32bacf5 100644 --- a/client.rkt +++ b/client.rkt @@ -32,7 +32,6 @@ (define compiling? #f) (define last-compile-time (#js*.Date.now)) -(define logged-in? #f) (define-syntax := (make-rename-transformer #'$/:=)) (define run-frame-init-handler (λ () @@ -240,18 +239,16 @@ [public #f] [description #js"RacketScript Playground Program"] [files - {$/obj - [source.rkt {$/obj - [content (#js.cm-editor-racket.getValue)]}] - [compiled.js {$/obj - [content (#js.cm-editor-jsout.getValue)]}]}]}) + (assoc->object + `([,*gist-source-file* ,{$/obj + [content (#js.cm-editor-racket.getValue)]}] + [,*gist-javascript-file* ,{$/obj + [content (#js.cm-editor-jsout.getValue)]}]))]}) ($> (#js.jQuery.post #js"/save" data) (done (λ (data) - (#js*.console.log data) (define id #js.data) (:= #js.window.location.href ($/binop + #js"#gist/" id)))) (fail (λ (e) - (#js*.console.log #js.e) (show-error "Error saving as Gist" #js.e.responseJSON.message))))) From e57123035f98e8953ce7b160407b327e9bbf9798 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Tue, 29 Jun 2021 18:22:12 +0000 Subject: [PATCH 19/38] minor cleanup --- static/index.html | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/static/index.html b/static/index.html index 4012819..4026134 100644 --- a/static/index.html +++ b/static/index.html @@ -87,7 +87,7 @@
        • Save
          • -
        • Log in
          • +
        • Log in
        • Log out
        • Compile
        • Run
          • From ab1f709f208009e03956f90af1f70ca6f4bd3546 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Tue, 29 Jun 2021 23:03:52 +0000 Subject: [PATCH 20/38] use renamed racket-string --- app.rkt | 4 ++-- client.rkt | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/app.rkt b/app.rkt index 1857204..7b83c56 100644 --- a/app.rkt +++ b/app.rkt @@ -84,11 +84,11 @@ (#js.gh-req.end)) (define (query-login req res) - (#js.console.log (js-string (format "User ~a checking login status ..." (racket-string #js.req.session.id)))) + (#js.console.log (js-string (format "User ~a checking login status ..." (js-string->string #js.req.session.id)))) (#js.res.send ($/binop !== #js.req.session.access_token $/undefined))) (define (handle-logout req res) - (#js.console.log (js-string (format "User ~a wants to log out ..." (racket-string #js.req.session.id)))) + (#js.console.log (js-string (format "User ~a wants to log out ..." (js-string->string #js.req.session.id)))) (#js.req.session.destroy (λ (err) (if ($/binop !== err $/undefined) diff --git a/client.rkt b/client.rkt index 32bacf5..f3e588f 100644 --- a/client.rkt +++ b/client.rkt @@ -129,7 +129,7 @@ cm-editor-console (string-append (cond [(string? a) a] [(number? a) (number->string a)] - [else (racket-string (#js*.JSON.stringify a))]) + [else (js-string->string (#js*.JSON.stringify a))]) " ")) (append-to-editor! cm-editor-console #js"\n")) args))) @@ -291,7 +291,7 @@ (split #js"/"))) (reset-ui!) ; TODO: #js"str" does not work in a case branch - (case (racket-string ($ parts 0)) + (case (js-string->string ($ parts 0)) [("gist") (load-gist ($ parts 1))] [("example") (load-racket-example ($ parts 1))] [else From 2bf72b25bbd873ece9ae28c88339a63897c31707 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Tue, 29 Jun 2021 23:56:09 +0000 Subject: [PATCH 21/38] add playground link to gist description --- app.rkt | 35 +++++++++++++++++++++++++++++++++-- 1 file changed, 33 insertions(+), 2 deletions(-) diff --git a/app.rkt b/app.rkt index 7b83c56..c1305c2 100644 --- a/app.rkt +++ b/app.rkt @@ -74,8 +74,39 @@ (define gh-data (#js*.Buffer.concat gh-datas)) ;; TODO: directly convert data to JSON? (define res-data (#js*.JSON.parse (#js.gh-data.toString))) - (#js.console.log ($/binop + #js"save successful, gist id: " #js.res-data.id)) - (#js.res.send #js.res-data.id)))))) + (define gist-id #js.res-data.id) + (#js.console.log ($/binop + #js"save successful, gist id: " gist-id)) + + ;; now make second api call to patch the description, + ;; to include a direct link to open gist in playground app + (define patch-data + (#js*.JSON.stringify + {$/obj + [description + ($/binop + + #js"RacketScript Playground Program; view at: http://dev.racketscript.org:8080/#gist/" + gist-id)]})) + + (define patch-options + {$/obj + [hostname #js"api.github.com"] + [path ($/binop + #js"/gists/" gist-id)] + [method #js"PATCH"] + [headers + {$/obj + [Accept #js"application/vnd.github.v3+json"] + [Authorization ($/binop + #js"token " #js.req.session.access_token)] + ;; User agent required: + ;; (see: https://docs.github.com/en/rest/overview/resources-in-the-rest-api#user-agent-required) + [User-Agent #js"RacketScript Playground"]}]}) + + (define patch-req (#js.https.request patch-options)) + (#js.patch-req.on #js"error" (λ (e) (#js.console.error e))) + (#js.patch-req.write patch-data) + (#js.patch-req.end) + + ;; finally, return gist-id to client + (#js.res.send gist-id)))))) (#js.gh-req.on #js"error" (λ (e) (#js.console.error e))) From fce1d374783bebd965f8e951ce1d0f32f3cf23c0 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Wed, 30 Jun 2021 15:20:36 +0000 Subject: [PATCH 22/38] move url to .env file --- app.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/app.rkt b/app.rkt index c1305c2..aa344e6 100644 --- a/app.rkt +++ b/app.rkt @@ -30,6 +30,7 @@ ;; these are loaded from a .env file (define PLAYGROUND-GH-CLIENT-ID #js.process.env.PLAYGROUND_GITHUB_CLIENT_ID) (define PLAYGROUND-GH-SECRET #js.process.env.PLAYGROUND_GITHUB_SECRET) +(define PLAYGROUND-URL #js.process.env.PLAYGROUND_URL) ;;----------------------------------------------------------------------------- ;; Handlers @@ -83,9 +84,8 @@ (#js*.JSON.stringify {$/obj [description - ($/binop + - #js"RacketScript Playground Program; view at: http://dev.racketscript.org:8080/#gist/" - gist-id)]})) + ($/+ #js"RacketScript Playground Program; view at: " + PLAYGROUND-URL #js"/#gist/" gist-id)]})) (define patch-options {$/obj From 908a409797f8c4a163468c2a490f11ceb1b856a4 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Thu, 1 Jul 2021 16:59:47 +0000 Subject: [PATCH 23/38] cleanup, use more $/+ --- app.rkt | 31 ++++++++++++++----------------- 1 file changed, 14 insertions(+), 17 deletions(-) diff --git a/app.rkt b/app.rkt index aa344e6..1fd238b 100644 --- a/app.rkt +++ b/app.rkt @@ -36,9 +36,9 @@ ;; Handlers (define (handle-save req res) - (#js.console.log ($/binop + #js"User wants to save: " #js.req.session.id)) + (#js.console.log ($/+ #js"User " #js.req.session.id " wants to save ...")) (define tok #js.req.session.access_token) - (#js.console.log ($/binop + #js"with access_token: " tok)) + (#js.console.log ($/+ #js"Creating gist with access_token: " tok)) ;; TODO: how to forward data directly, without re-parsing/stringifying? (define data (#js*.JSON.stringify #js.req.body)) (define options @@ -65,7 +65,7 @@ (#js.https.request options (λ (gh-res) - (#js.console.log ($/binop + #js"statusCode: " #js.gh-res.statusCode)) + ;; (#js.console.log ($/binop + #js"save statusCode: " #js.gh-res.statusCode)) (define gh-datas ($/array)) ; array of partial data buffers ;; TODO: is there a more high level way to get the data? ;; https://stackoverflow.com/questions/40537749/how-do-i-make-a-https-post-in-node-js-without-any-third-party-module @@ -76,7 +76,7 @@ ;; TODO: directly convert data to JSON? (define res-data (#js*.JSON.parse (#js.gh-data.toString))) (define gist-id #js.res-data.id) - (#js.console.log ($/binop + #js"save successful, gist id: " gist-id)) + (#js.console.log ($/+ #js"Save successful, gist id: " gist-id)) ;; now make second api call to patch the description, ;; to include a direct link to open gist in playground app @@ -85,7 +85,7 @@ {$/obj [description ($/+ #js"RacketScript Playground Program; view at: " - PLAYGROUND-URL #js"/#gist/" gist-id)]})) + PLAYGROUND-URL #js"/#gist/" gist-id)]})) (define patch-options {$/obj @@ -115,11 +115,11 @@ (#js.gh-req.end)) (define (query-login req res) - (#js.console.log (js-string (format "User ~a checking login status ..." (js-string->string #js.req.session.id)))) + (#js.console.log ($/+ #js"User " #js.req.session.id #js" checking login status ...")) (#js.res.send ($/binop !== #js.req.session.access_token $/undefined))) (define (handle-logout req res) - (#js.console.log (js-string (format "User ~a wants to log out ..." (js-string->string #js.req.session.id)))) + (#js.console.log ($/+ #js"User " #js.req.session.id " wants to log out ...")) (#js.req.session.destroy (λ (err) (if ($/binop !== err $/undefined) @@ -149,9 +149,9 @@ ;; - send response to user to close login window, ;; and update buttons to reflect logged in status (define (handle-login req res) - (#js.console.log ($/binop + #js"User wants to login, id: " #js.req.session.id)) + (#js.console.log ($/+ #js"User " #js.req.session.id " wants to log in ...")) ($/:= #js.req.session.access_token #js"") ; initialize field so session gets saved to store - (#js.console.log #js"Initiating GH Auth request ...") + (#js.console.log #js"Requesting GH credentials from user ...") (define params ($/new (#js.url.URLSearchParams @@ -161,7 +161,6 @@ [state #js.req.session.id]}))) (define gh-auth-url ($/binop + #js"https://github.com/login/oauth/authorize?" params)) - (#js.console.log ($/binop + #js"redirecting user to:\n" gh-auth-url)) (#js.res.redirect 302 gh-auth-url)) ;; OAuth steps: @@ -176,11 +175,10 @@ ;; NOTE: the client_id comes from creating github oauth app; ;; handler url "racketscript.org/auth" must be registered on this app page (define (handle-auth req res) - (#js.console.log #js"User logged in, attempting to get GH access token ...") - (#js.console.log ($/binop + #js"with user id: " #js.res.req.query.state)) - (#js.console.log ($/binop + #js"and code: " #js.res.req.query.code)) - + (define uid #js.res.req.query.state) (define code #js.res.req.query.code) + (#js.console.log ($/+ #js"User " uid #js" entered GH login")) + (#js.console.log ($/+ #js"requesting GH access_token using code: " code)) (define data (#js*.JSON.stringify @@ -201,15 +199,14 @@ (#js.https.request options (λ (gh-res) - (#js.console.log ($/binop + #js"access_token request statusCode: " #js.gh-res.statusCode)) + ;; (#js.console.log ($/binop + #js"access_token request statusCode: " #js.gh-res.statusCode)) (#js.gh-res.on #js"data" (λ (d) ;; data buffer (define params ($/new (#js.url.URLSearchParams (#js.d.toString #js"utf8")))) (define tok (#js.params.get #js"access_token")) (#js.console.log ($/binop + #js"Received GH access_token: " tok)) ($/:= #js.req.session.access_token tok) - (#js.console.log ($/binop + #js"stored access_token: " #js.req.session.access_token)) - (#js.console.log ($/binop + #js"for user id: " #js.req.session.id)) + (#js.console.log ($/+ #js"Stored access_token for user " #js.req.session.id)) ;; TODO: Is there a better way to do this? ;; send message to main window, to reflect logged in status; close gh login window (#js.res.send From c340d2a42cbb8664372746cfce47dcfd5ac372a5 Mon Sep 17 00:00:00 2001 From: Vishesh Yadav Date: Wed, 7 Jul 2021 18:49:49 -0700 Subject: [PATCH 24/38] Update README.md --- README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/README.md b/README.md index 3f47ee5..c6a6f3f 100644 --- a/README.md +++ b/README.md @@ -25,7 +25,7 @@ are [here](https://codemirror.net/demo/search.html). ### With Docker (for deployment) Easiest way is to pull the latest image from Docker registry -([vishesh/racket-script-playground](https://hub.docker.com/r/vishesh/racketscript-playground)). +([vishesh/racketscript-playground](https://hub.docker.com/r/vishesh/racketscript-playground)). ```bash # Pull docker image From f18cbb9107d8496908e2cf07bf5cdd79d1aa2acb Mon Sep 17 00:00:00 2001 From: Vishesh Yadav Date: Fri, 9 Jul 2021 13:21:38 -0700 Subject: [PATCH 25/38] Add Docker badge --- README.md | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/README.md b/README.md index c6a6f3f..4a0f391 100644 --- a/README.md +++ b/README.md @@ -2,7 +2,8 @@ Racketscript Playground ======================= [![MIT licensed](https://img.shields.io/badge/license-MIT-blue.svg)](COPYING.md) -[![Try Online](https://img.shields.io/badge/try_it-online!-ff9900.svg)]( http://play.racketscript.org) +[![Docker](https://img.shields.io/docker/cloud/automated/vishesh/racketscript-playground)](https://hub.docker.com/r/vishesh/racketscript-playground) +[![Try Online](https://img.shields.io/badge/try_it-online!-ff9900.svg)](http://play.racketscript.org) Playground for [RacketScript](https://github.com/vishesh/racketscript). Both server-side and client-side code is written in RacketScript. From fc41d87d332425a4e6843aedf85a1906982985b5 Mon Sep 17 00:00:00 2001 From: Vishesh Yadav Date: Fri, 9 Jul 2021 13:24:08 -0700 Subject: [PATCH 26/38] Update README.md --- README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/README.md b/README.md index 4a0f391..f7d3c8d 100644 --- a/README.md +++ b/README.md @@ -1,7 +1,7 @@ Racketscript Playground ======================= -[![MIT licensed](https://img.shields.io/badge/license-MIT-blue.svg)](COPYING.md) +[![MIT licensed](https://img.shields.io/badge/license-MIT-blue.svg)](LICENSE) [![Docker](https://img.shields.io/docker/cloud/automated/vishesh/racketscript-playground)](https://hub.docker.com/r/vishesh/racketscript-playground) [![Try Online](https://img.shields.io/badge/try_it-online!-ff9900.svg)](http://play.racketscript.org) From 60cca2aa4e183e750ca05e03bebc047f84cc7355 Mon Sep 17 00:00:00 2001 From: Stephen De Gabrielle Date: Mon, 27 Sep 2021 00:54:58 +0100 Subject: [PATCH 27/38] update repo links --- static/index.html | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/static/index.html b/static/index.html index 4026134..cd09dd9 100644 --- a/static/index.html +++ b/static/index.html @@ -81,8 +81,8 @@
        • Archery
        -
      • RacketScript on Github
        • -
      • Playground on Github
        • +
      • RacketScript on Github
        • +
      • Playground on Github
        From 897c9cbd9aa694f55087a13d1f771219dbe8d760 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Fri, 22 Apr 2022 17:52:43 +0000 Subject: [PATCH 28/38] add wordle example --- examples/wordle-words.rkt | 2321 ++++++++++++++++++++++++++++ examples/wordle.rkt | 425 +++++ static/index.html | 1 + static/modules/wordle-words.rkt.js | 9 + stub.rkt | 6 + 5 files changed, 2762 insertions(+) create mode 100644 examples/wordle-words.rkt create mode 100644 examples/wordle.rkt create mode 100644 static/modules/wordle-words.rkt.js diff --git a/examples/wordle-words.rkt b/examples/wordle-words.rkt new file mode 100644 index 0000000..75d6438 --- /dev/null +++ b/examples/wordle-words.rkt @@ -0,0 +1,2321 @@ +#lang racket/base + +(provide WORDLE-WORDS) + +(define WORDLE-WORDS +(map symbol->string +'(aback +abase +abate +abbey +abbot +abhor +abide +abled +abode +abort +about +above +abuse +abyss +acorn +acrid +actor +acute +adage +adapt +adept +admin +admit +adobe +adopt +adore +adorn +adult +affix +afire +afoot +afoul +after +again +agape +agate +agent +agile +aging +aglow +agony +agora +agree +ahead +aider +aisle +alarm +album +alert +algae +alibi +alien +align +alike +alive +allay +alley +allot +allow +alloy +aloft +alone +along +aloof +aloud +alpha +altar +alter +amass +amaze +amber +amble +amend +amiss +amity +among +ample +amply +amuse +angel +anger +angle +angry +angst +anime +ankle +annex +annoy +annul +anode +antic +anvil +aorta +apart +aphid +aping +apnea +apple +apply +apron +aptly +arbor +ardor +arena +argue +arise +armor +aroma +arose +array +arrow +arson +artsy +ascot +ashen +aside +askew +assay +asset +atoll +atone +attic +audio +audit +augur +aunty +avail +avert +avian +avoid +await +awake +award +aware +awash +awful +awoke +axial +axiom +axion +azure +bacon +badge +badly +bagel +baggy +baker +baler +balmy +banal +banjo +barge +baron +basal +basic +basil +basin +basis +baste +batch +bathe +baton +batty +bawdy +bayou +beach +beady +beard +beast +beech +beefy +befit +began +begat +beget +begin +begun +being +belch +belie +belle +belly +below +bench +beret +berry +berth +beset +betel +bevel +bezel +bible +bicep +biddy +bigot +bilge +billy +binge +bingo +biome +birch +birth +bison +bitty +black +blade +blame +bland +blank +blare +blast +blaze +bleak +bleat +bleed +bleep +blend +bless +blimp +blind +blink +bliss +blitz +bloat +block +bloke +blond +blood +bloom +blown +bluer +bluff +blunt +blurb +blurt +blush +board +boast +bobby +boney +bongo +bonus +booby +boost +booth +booty +booze +boozy +borax +borne +bosom +bossy +botch +bough +boule +bound +bowel +boxer +brace +braid +brain +brake +brand +brash +brass +brave +bravo +brawl +brawn +bread +break +breed +briar +bribe +brick +bride +brief +brine +bring +brink +briny +brisk +broad +broil +broke +brood +brook +broom +broth +brown +brunt +brush +brute +buddy +budge +buggy +bugle +build +built +bulge +bulky +bully +bunch +bunny +burly +burnt +burst +bused +bushy +butch +butte +buxom +buyer +bylaw +cabal +cabby +cabin +cable +cacao +cache +cacti +caddy +cadet +cagey +cairn +camel +cameo +canal +candy +canny +canoe +canon +caper +caput +carat +cargo +carol +carry +carve +caste +catch +cater +catty +caulk +cause +cavil +cease +cedar +cello +chafe +chaff +chain +chair +chalk +champ +chant +chaos +chard +charm +chart +chase +chasm +cheap +cheat +check +cheek +cheer +chess +chest +chick +chide +chief +child +chili +chill +chime +china +chirp +chock +choir +choke +chord +chore +chose +chuck +chump +chunk +churn +chute +cider +cigar +cinch +circa +civic +civil +clack +claim +clamp +clang +clank +clash +clasp +class +clean +clear +cleat +cleft +clerk +click +cliff +climb +cling +clink +cloak +clock +clone +close +cloth +cloud +clout +clove +clown +cluck +clued +clump +clung +coach +coast +cobra +cocoa +colon +color +comet +comfy +comic +comma +conch +condo +conic +copse +coral +corer +corny +couch +cough +could +count +coupe +court +coven +cover +covet +covey +cower +coyly +crack +craft +cramp +crane +crank +crash +crass +crate +crave +crawl +craze +crazy +creak +cream +credo +creed +creek +creep +creme +crepe +crept +cress +crest +crick +cried +crier +crime +crimp +crisp +croak +crock +crone +crony +crook +cross +croup +crowd +crown +crude +cruel +crumb +crump +crush +crust +crypt +cubic +cumin +curio +curly +curry +curse +curve +curvy +cutie +cyber +cycle +cynic +daddy +daily +dairy +daisy +dally +dance +dandy +datum +daunt +dealt +death +debar +debit +debug +debut +decal +decay +decor +decoy +decry +defer +deign +deity +delay +delta +delve +demon +demur +denim +dense +depot +depth +derby +deter +detox +deuce +devil +diary +dicey +digit +dilly +dimly +diner +dingo +dingy +diode +dirge +dirty +disco +ditch +ditto +ditty +diver +dizzy +dodge +dodgy +dogma +doing +dolly +donor +donut +dopey +doubt +dough +dowdy +dowel +downy +dowry +dozen +draft +drain +drake +drama +drank +drape +drawl +drawn +dread +dream +dress +dried +drier +drift +drill +drink +drive +droit +droll +drone +drool +droop +dross +drove +drown +druid +drunk +dryer +dryly +duchy +dully +dummy +dumpy +dunce +dusky +dusty +dutch +duvet +dwarf +dwell +dwelt +dying +eager +eagle +early +earth +easel +eaten +eater +ebony +eclat +edict +edify +eerie +egret +eight +eject +eking +elate +elbow +elder +elect +elegy +elfin +elide +elite +elope +elude +email +embed +ember +emcee +empty +enact +endow +enema +enemy +enjoy +ennui +ensue +enter +entry +envoy +epoch +epoxy +equal +equip +erase +erect +erode +error +erupt +essay +ester +ether +ethic +ethos +etude +evade +event +every +evict +evoke +exact +exalt +excel +exert +exile +exist +expel +extol +extra +exult +eying +fable +facet +faint +fairy +faith +false +fancy +fanny +farce +fatal +fatty +fault +fauna +favor +feast +fecal +feign +fella +felon +femme +femur +fence +feral +ferry +fetal +fetch +fetid +fetus +fever +fewer +fiber +fibre +ficus +field +fiend +fiery +fifth +fifty +fight +filer +filet +filly +filmy +filth +final +finch +finer +first +fishy +fixer +fizzy +fjord +flack +flail +flair +flake +flaky +flame +flank +flare +flash +flask +fleck +fleet +flesh +flick +flier +fling +flint +flirt +float +flock +flood +floor +flora +floss +flour +flout +flown +fluff +fluid +fluke +flume +flung +flunk +flush +flute +flyer +foamy +focal +focus +foggy +foist +folio +folly +foray +force +forge +forgo +forte +forth +forty +forum +found +foyer +frail +frame +frank +fraud +freak +freed +freer +fresh +friar +fried +frill +frisk +fritz +frock +frond +front +frost +froth +frown +froze +fruit +fudge +fugue +fully +fungi +funky +funny +furor +furry +fussy +fuzzy +gaffe +gaily +gamer +gamma +gamut +gassy +gaudy +gauge +gaunt +gauze +gavel +gawky +gayer +gayly +gazer +gecko +geeky +geese +genie +genre +ghost +ghoul +giant +giddy +gipsy +girly +girth +given +giver +glade +gland +glare +glass +glaze +gleam +glean +glide +glint +gloat +globe +gloom +glory +gloss +glove +glyph +gnash +gnome +godly +going +golem +golly +gonad +goner +goody +gooey +goofy +goose +gorge +gouge +gourd +grace +grade +graft +grail +grain +grand +grant +grape +graph +grasp +grass +grate +grave +gravy +graze +great +greed +green +greet +grief +grill +grime +grimy +grind +gripe +groan +groin +groom +grope +gross +group +grout +grove +growl +grown +gruel +gruff +grunt +guard +guava +guess +guest +guide +guild +guile +guilt +guise +gulch +gully +gumbo +gummy +guppy +gusto +gusty +gypsy +habit +hairy +halve +handy +happy +hardy +harem +harpy +harry +harsh +haste +hasty +hatch +hater +haunt +haute +haven +havoc +hazel +heady +heard +heart +heath +heave +heavy +hedge +hefty +heist +helix +hello +hence +heron +hilly +hinge +hippo +hippy +hitch +hoard +hobby +hoist +holly +homer +honey +honor +horde +horny +horse +hotel +hotly +hound +house +hovel +hover +howdy +human +humid +humor +humph +humus +hunch +hunky +hurry +husky +hussy +hutch +hydro +hyena +hymen +hyper +icily +icing +ideal +idiom +idiot +idler +idyll +igloo +iliac +image +imbue +impel +imply +inane +inbox +incur +index +inept +inert +infer +ingot +inlay +inlet +inner +input +inter +intro +ionic +irate +irony +islet +issue +itchy +ivory +jaunt +jazzy +jelly +jerky +jetty +jewel +jiffy +joint +joist +joker +jolly +joust +judge +juice +juicy +jumbo +jumpy +junta +junto +juror +kappa +karma +kayak +kebab +khaki +kinky +kiosk +kitty +knack +knave +knead +kneed +kneel +knelt +knife +knock +knoll +known +koala +krill +label +labor +laden +ladle +lager +lance +lanky +lapel +lapse +large +larva +lasso +latch +later +lathe +latte +laugh +layer +leach +leafy +leaky +leant +leapt +learn +lease +leash +least +leave +ledge +leech +leery +lefty +legal +leggy +lemon +lemur +leper +level +lever +libel +liege +light +liken +lilac +limbo +limit +linen +liner +lingo +lipid +lithe +liver +livid +llama +loamy +loath +lobby +local +locus +lodge +lofty +logic +login +loopy +loose +lorry +loser +louse +lousy +lover +lower +lowly +loyal +lucid +lucky +lumen +lumpy +lunar +lunch +lunge +lupus +lurch +lurid +lusty +lying +lymph +lynch +lyric +macaw +macho +macro +madam +madly +mafia +magic +magma +maize +major +maker +mambo +mamma +mammy +manga +mange +mango +mangy +mania +manic +manly +manor +maple +march +marry +marsh +mason +masse +match +matey +mauve +maxim +maybe +mayor +mealy +meant +meaty +mecca +medal +media +medic +melee +melon +mercy +merge +merit +merry +metal +meter +metro +micro +midge +midst +might +milky +mimic +mince +miner +minim +minor +minty +minus +mirth +miser +missy +mocha +modal +model +modem +mogul +moist +molar +moldy +money +month +moody +moose +moral +moron +morph +mossy +motel +motif +motor +motto +moult +mound +mount +mourn +mouse +mouth +mover +movie +mower +mucky +mucus +muddy +mulch +mummy +munch +mural +murky +mushy +music +musky +musty +myrrh +nadir +naive +nanny +nasal +nasty +natal +naval +navel +needy +neigh +nerdy +nerve +never +newer +newly +nicer +niche +niece +night +ninja +ninny +ninth +noble +nobly +noise +noisy +nomad +noose +north +nosey +notch +novel +nudge +nurse +nutty +nylon +nymph +oaken +obese +occur +ocean +octal +octet +odder +oddly +offal +offer +often +olden +older +olive +ombre +omega +onion +onset +opera +opine +opium +optic +orbit +order +organ +other +otter +ought +ounce +outdo +outer +outgo +ovary +ovate +overt +ovine +ovoid +owing +owner +oxide +ozone +paddy +pagan +paint +paler +palsy +panel +panic +pansy +papal +paper +parer +parka +parry +parse +party +pasta +paste +pasty +patch +patio +patsy +patty +pause +payee +payer +peace +peach +pearl +pecan +pedal +penal +pence +penne +penny +perch +peril +perky +pesky +pesto +petal +petty +phase +phone +phony +photo +piano +picky +piece +piety +piggy +pilot +pinch +piney +pinky +pinto +piper +pique +pitch +pithy +pivot +pixel +pixie +pizza +place +plaid +plain +plait +plane +plank +plant +plate +plaza +plead +pleat +plied +plier +pluck +plumb +plume +plump +plunk +plush +poesy +point +poise +poker +polar +polka +polyp +pooch +poppy +porch +poser +posit +posse +pouch +pound +pouty +power +prank +prawn +preen +press +price +prick +pride +pried +prime +primo +print +prior +prism +privy +prize +probe +prone +prong +proof +prose +proud +prove +prowl +proxy +prude +prune +psalm +pubic +pudgy +puffy +pulpy +pulse +punch +pupal +pupil +puppy +puree +purer +purge +purse +pushy +putty +pygmy +quack +quail +quake +qualm +quark +quart +quash +quasi +queen +queer +quell +query +quest +queue +quick +quiet +quill +quilt +quirk +quite +quota +quote +quoth +rabbi +rabid +racer +radar +radii +radio +rainy +raise +rajah +rally +ralph +ramen +ranch +randy +range +rapid +rarer +raspy +ratio +ratty +raven +rayon +razor +reach +react +ready +realm +rearm +rebar +rebel +rebus +rebut +recap +recur +recut +reedy +refer +refit +regal +rehab +reign +relax +relay +relic +remit +renal +renew +repay +repel +reply +rerun +reset +resin +retch +retro +retry +reuse +revel +revue +rhino +rhyme +rider +ridge +rifle +right +rigid +rigor +rinse +ripen +riper +risen +riser +risky +rival +river +rivet +roach +roast +robin +robot +rocky +rodeo +roger +rogue +roomy +roost +rotor +rouge +rough +round +rouse +route +rover +rowdy +rower +royal +ruddy +ruder +rugby +ruler +rumba +rumor +rupee +rural +rusty +sadly +safer +saint +salad +sally +salon +salsa +salty +salve +salvo +sandy +saner +sappy +sassy +satin +satyr +sauce +saucy +sauna +saute +savor +savoy +savvy +scald +scale +scalp +scaly +scamp +scant +scare +scarf +scary +scene +scent +scion +scoff +scold +scone +scoop +scope +score +scorn +scour +scout +scowl +scram +scrap +scree +screw +scrub +scrum +scuba +sedan +seedy +segue +seize +semen +sense +sepia +serif +serum +serve +setup +seven +sever +sewer +shack +shade +shady +shaft +shake +shaky +shale +shall +shalt +shame +shank +shape +shard +share +shark +sharp +shave +shawl +shear +sheen +sheep +sheer +sheet +sheik +shelf +shell +shied +shift +shine +shiny +shire +shirk +shirt +shoal +shock +shone +shook +shoot +shore +shorn +short +shout +shove +shown +showy +shrew +shrub +shrug +shuck +shunt +shush +shyly +siege +sieve +sight +sigma +silky +silly +since +sinew +singe +siren +sissy +sixth +sixty +skate +skier +skiff +skill +skimp +skirt +skulk +skull +skunk +slack +slain +slang +slant +slash +slate +slave +sleek +sleep +sleet +slept +slice +slick +slide +slime +slimy +sling +slink +sloop +slope +slosh +sloth +slump +slung +slunk +slurp +slush +slyly +smack +small +smart +smash +smear +smell +smelt +smile +smirk +smite +smith +smock +smoke +smoky +smote +snack +snail +snake +snaky +snare +snarl +sneak +sneer +snide +sniff +snipe +snoop +snore +snort +snout +snowy +snuck +snuff +soapy +sober +soggy +solar +solid +solve +sonar +sonic +sooth +sooty +sorry +sound +south +sower +space +spade +spank +spare +spark +spasm +spawn +speak +spear +speck +speed +spell +spelt +spend +spent +sperm +spice +spicy +spied +spiel +spike +spiky +spill +spilt +spine +spiny +spire +spite +splat +split +spoil +spoke +spoof +spook +spool +spoon +spore +sport +spout +spray +spree +sprig +spunk +spurn +spurt +squad +squat +squib +stack +staff +stage +staid +stain +stair +stake +stale +stalk +stall +stamp +stand +stank +stare +stark +start +stash +state +stave +stead +steak +steal +steam +steed +steel +steep +steer +stein +stern +stick +stiff +still +stilt +sting +stink +stint +stock +stoic +stoke +stole +stomp +stone +stony +stood +stool +stoop +store +stork +storm +story +stout +stove +strap +straw +stray +strip +strut +stuck +study +stuff +stump +stung +stunk +stunt +style +suave +sugar +suing +suite +sulky +sully +sumac +sunny +super +surer +surge +surly +sushi +swami +swamp +swarm +swash +swath +swear +sweat +sweep +sweet +swell +swept +swift +swill +swine +swing +swirl +swish +swoon +swoop +sword +swore +sworn +swung +synod +syrup +tabby +table +taboo +tacit +tacky +taffy +taint +taken +taker +tally +talon +tamer +tango +tangy +taper +tapir +tardy +tarot +taste +tasty +tatty +taunt +tawny +teach +teary +tease +teddy +teeth +tempo +tenet +tenor +tense +tenth +tepee +tepid +terra +terse +testy +thank +theft +their +theme +there +these +theta +thick +thief +thigh +thing +think +third +thong +thorn +those +three +threw +throb +throw +thrum +thumb +thump +thyme +tiara +tibia +tidal +tiger +tight +tilde +timer +timid +tipsy +titan +tithe +title +toast +today +toddy +token +tonal +tonga +tonic +tooth +topaz +topic +torch +torso +torus +total +totem +touch +tough +towel +tower +toxic +toxin +trace +track +tract +trade +trail +train +trait +tramp +trash +trawl +tread +treat +trend +triad +trial +tribe +trice +trick +tried +tripe +trite +troll +troop +trope +trout +trove +truce +truck +truer +truly +trump +trunk +truss +trust +truth +tryst +tubal +tuber +tulip +tulle +tumor +tunic +turbo +tutor +twang +tweak +tweed +tweet +twice +twine +twirl +twist +twixt +tying +udder +ulcer +ultra +umbra +uncle +uncut +under +undid +undue +unfed +unfit +unify +union +unite +unity +unlit +unmet +unset +untie +until +unwed +unzip +upper +upset +urban +urine +usage +usher +using +usual +usurp +utile +utter +vague +valet +valid +valor +value +valve +vapid +vapor +vault +vaunt +vegan +venom +venue +verge +verse +verso +verve +vicar +video +vigil +vigor +villa +vinyl +viola +viper +viral +virus +visit +visor +vista +vital +vivid +vixen +vocal +vodka +vogue +voice +voila +vomit +voter +vouch +vowel +vying +wacky +wafer +wager +wagon +waist +waive +waltz +warty +waste +watch +water +waver +waxen +weary +weave +wedge +weedy +weigh +weird +welch +welsh +wench +whack +whale +wharf +wheat +wheel +whelp +where +which +whiff +while +whine +whiny +whirl +whisk +white +whole +whoop +whose +widen +wider +widow +width +wield +wight +willy +wimpy +wince +winch +windy +wiser +wispy +witch +witty +woken +woman +women +woody +wooer +wooly +woozy +wordy +world +worry +worse +worst +worth +would +wound +woven +wrack +wrath +wreak +wreck +wrest +wring +wrist +write +wrong +wrote +wrung +wryly +yacht +yearn +yeast +yield +young +youth +zebra +zesty +zonal))) \ No newline at end of file diff --git a/examples/wordle.rkt b/examples/wordle.rkt new file mode 100644 index 0000000..1834de1 --- /dev/null +++ b/examples/wordle.rkt @@ -0,0 +1,425 @@ +#lang racket +(require racketscript/htdp/universe + racketscript/htdp/image + "wordle-words.rkt") + +;; game constants +(define ALL-WORDS WORDLE-WORDS) ; see wordle-words.rkt + +(define NUM-WORDS (length ALL-WORDS)) +(define MAX-GUESSES 6) +(define WORD-LENGTH 5) + +;; game state ----------------------------------------------------------------- + +;; Game State: +;; - guess: Listof lowercase strings +;; - current-guess: lowercase string +(struct game (guesses current-guess) #:transparent) + +; use some global vars to keep code cleaner +(define ACTIVE-GAME #f) +(define ANSWER "") + +(define (mk-start-state) + (set! ACTIVE-GAME #t) + (set! ANSWER (random-word)) + (game '() "")) + +(define (random-word) + (list-ref ALL-WORDS (random NUM-WORDS))) + +(define (game-over? guesses) + (or (and (not (empty? guesses)) + (string=? (car guesses) ANSWER)) + (= (length guesses) MAX-GUESSES))) + +(define (game-update-current g guess) + (game + (game-guesses g) + guess)) + +(define (game-submit-guess g) + (define guesses (game-guesses g)) + (define current (game-current-guess g)) + (define current-length (string-length current)) + ;; only accept if guess is correct length and in word list + (cond + [(and (= current-length 5) (member current ALL-WORDS)) + (when (game-over? (cons current guesses)) + (printf "ANSWER: ~a\n" (string-upcase ANSWER)) + (set! ACTIVE-GAME #f)) + (game (cons current guesses) "")] + [else g])) + +(define (game-del-char g) + (define current (game-current-guess g)) + (define current-length (string-length current)) + (game-update-current g + (if (zero? current-length) + "" + (substring current 0 (sub1 current-length))))) + +(define (game-add-char g k) + (define current (game-current-guess g)) + (define current-length (string-length current)) + (game-update-current g + (if (= current-length 5) + current + (string-append current (string-downcase k))))) + +;; game rendering constants --------------------------------------------------- + +(define EMPTY-CANVAS (empty-scene 320 452)) + +(define WRONG-COLOR "black") +(define CORRECT-COLOR "dark green") +(define MAYBE-COLOR "medium yellow") + +(define GUESS-TILE-HEIGHT 50) + +(define GAP 8) +(define CHARGAP (rectangle GAP 0 'outline 'white)) +(define LINEGAP (rectangle 0 GAP 'outline 'white)) + +(define BLANK (square GUESS-TILE-HEIGHT 'outline 'gray)) + +(define GUESS-CHAR-FONT-SIZE 32) + +(define CURRENT-CHAR-VALID-COLOR "blue") +(define CURRENT-CHAR-INVALID-COLOR "black") +(define GUESS-CHAR-COLOR "white") + +;; helper functions ----------------------------------------------------------- + +;; repeat : Duplicates the given `x` `n` times, in a list +(define (repeat x n) (for/list ([m n]) x)) + +;; img-join : combines given `imgs` lst, separated by `sep`, using `combiner` fn +;; - result begins and ends with sep +(define (img-join imgs sep combiner) + (for/fold ([img sep]) + ([i imgs]) + (combiner img i sep))) + +;; render fns ----------------------------------------------------------------- + +(define (render g) + (if ACTIVE-GAME + (render-active g) + (render-inactive g))) + +(define (render-active g) + (define guesses (game-guesses g)) + (define current (game-current-guess g)) + (above + (render-guesses guesses) + (render-current current) + (render-blanks (- MAX-GUESSES (length guesses))) + (render-keyboard guesses))) + +(define (render-inactive g) + (overlay/align "middle" "top" + (above/align "left" + (render-guesses (game-guesses g)) + (text "ANSWER:" 10 'black) + (beside + (rectangle 20 0 'outline 'white) + (text (string-upcase ANSWER) GUESS-CHAR-FONT-SIZE CORRECT-COLOR) + (rectangle 40 0 'outline 'white) + (overlay + (text "PLAY AGAIN" KEYBOARD-FONT-SIZE 'black) + (rectangle 100 40 'outline 'black))) + LINEGAP + (text " Click or press ENTER to play again" KEYBOARD-FONT-SIZE 'black)) + EMPTY-CANVAS)) + +;; render guesses -------------------- +(define (render-guesses guesses) + (for/fold ([img LINEGAP]) + ([guess guesses]) + ;; last guess is first, so render bottom to top + (above LINEGAP + (render-guess guess) + img))) + +;; word is string of WORD-LENGTH +(define (render-guess word) + (img-join + (for/list ([c word] + [col (compute-guess-colors word)]) + (guesschar->tile c col)) + CHARGAP + beside)) + +;; compute-guess-colors : string -> list of color +;; - input is a string of 5 chars +;; - output possible colors are CORRECT-COLOR, MAYBE-COLOR, OR WRONG-COLOR +(define (compute-guess-colors word) + ;; remaining-letters is bookkeeping vector to track which letters in ANSWER + ;; have been used (marked by USED-LETTER char) to color a guess letter + ;; - gets reset before coloring each guess + ;; TODO: better data structure for this? + ;; - need both letters and position info + (define remaining-letters (list->vector (string->list ANSWER))) + + ;; compute guess colors in 2 passes + ; 1) compute CORRECT letters first bc MAYBE colors depend on this + + ; partial-colors is vector where elements are either: + ; - CORRECT-COLOR: for chars in correct position + ; - WRONG-COLOR (temporarily) + ; It's a temporary data structure that is result of first pass + (define partial-colors + (for/vector ([(c i) (in-indexed word)] + [expected ANSWER]) + (cond [(char=? c expected) + (mark-used! remaining-letters i) + CORRECT-COLOR] + [else WRONG-COLOR]))) + + ; 2) compute MAYBE or WRONG colors + ; tile gets MAYBE-COLOR if in answer but not already in a correct position + (for/list ([col partial-colors] + [(c i) (in-indexed word)] + [expected ANSWER]) + (cond [(equal? col CORRECT-COLOR) CORRECT-COLOR] ; dont touch already correct + [(vector-member c remaining-letters) + (mark-used! remaining-letters c) + MAYBE-COLOR] + [else WRONG-COLOR]))) + +; mark a letter in the answer as "used" when it's already handled +; to avoid double-counting +(define USED-LETTER "-") + +;; mark-used: updates bookkeeping vector +;; vec: vector of chars, or USED-LETTER to indicate +;; c/i: char or index pos to update +(define (mark-used! vec c/i) + (if (number? c/i) ; update at exact index, if given + (vector-set! vec c/i USED-LETTER) + (for/first ([j (vector-length vec)] ; else must find the char + #:when (equal? (vector-ref vec j) c/i)) + (vector-set! vec j USED-LETTER)))) + +;; input is (lowercase) char +(define (guesschar->tile c tile-color) + (overlay + (char->img c GUESS-CHAR-COLOR) + (mk-guess-tile tile-color))) + +(define (char->img c color) + (text (char->string c) GUESS-CHAR-FONT-SIZE color)) + +(define (char->string c) (string-upcase (string c))) + +(define (mk-guess-tile color) + (square GUESS-TILE-HEIGHT "solid" color)) + +;; render current -------------------- +(define (render-current word) + (img-join + (append + (map + (if (member word ALL-WORDS) + valid-char->tile + char->tile) + (string->list word)) + (repeat BLANK (- WORD-LENGTH (string-length word)))) + CHARGAP + beside)) + +(define (char->tile c) + (overlay + (char->img c CURRENT-CHAR-INVALID-COLOR) + BLANK)) +(define (valid-char->tile c) + (overlay + (char->img c CURRENT-CHAR-VALID-COLOR) + BLANK)) + +(define BLANK-WORD (render-current "")) + +(define (render-blanks guesses-remaining) + (for/fold ([img LINEGAP]) + ([n (sub1 guesses-remaining)]) ; sub1 to account for current + (above img BLANK-WORD LINEGAP))) + +;; render keyboard -------------------- + +(define KEYBOARD-1ST-ROW '(q w e r t y u i o p)) +(define KEYBOARD-2ND-ROW '(a s d f g h j k l)) +(define KEYBOARD-3RD-ROW '(z x c v b n m)) +(define KEYBOARD + (list KEYBOARD-1ST-ROW + KEYBOARD-2ND-ROW + KEYBOARD-3RD-ROW)) + +(define KEY-HEIGHT 32) +(define KEYBOARD-FONT-SIZE 14) + +(define ENTER-KEY + (overlay + (rectangle (* 1.5 KEY-HEIGHT) KEY-HEIGHT 'outline 'gray) + (text "ENTER" 10 'black))) +(define BACKSPACE-KEY + (overlay + (rectangle (* 1.5 KEY-HEIGHT) KEY-HEIGHT 'outline 'gray) + (text "Backspace" 8 'black))) + +(define (render-keyboard guesses) + (above + (keys->img KEYBOARD-1ST-ROW guesses) + (keys->img KEYBOARD-2ND-ROW guesses) + (beside + ENTER-KEY + (keys->img KEYBOARD-3RD-ROW guesses) + BACKSPACE-KEY))) + +(define (keys->img ks guesses) + (apply + beside + (for/list ([k ks]) + (key->img k guesses)))) + +(define (key->img sym guesses) + (define tile-col (key-color (symbol->string sym) guesses)) + (overlay + (text + (string-upcase (symbol->string sym)) + KEYBOARD-FONT-SIZE + (if (equal? tile-col "white") "black" "white")) + (mk-key-tile tile-col))) + +(define (mk-key-tile color) + (if (equal? color "white") + (square KEY-HEIGHT 'outline 'gray) + (square KEY-HEIGHT 'solid color))) + +(define (key-color k guesses) + (cond + [(correct-char? k guesses) CORRECT-COLOR] + [(maybe-char? k guesses) MAYBE-COLOR] + [(wrong-char? k guesses) WRONG-COLOR] + [else "white"])) + +;; k : 1 char string +;; guesses: list of string +;; returns true if letter k is in answer and some guess, in correct position +(define (correct-char? k guesses) + (for/or ([g guesses]) + (for/or ([x g] [y ANSWER]) + (and (equal? x y) + (equal? (string x) k))))) + +;; k : 1 char string +;; guesses: list of string +;; returns true if letter k is in answer and some guess +(define (maybe-char? k guesses) + (and (string-contains? ANSWER k) + (for/or ([g guesses]) + (string-contains? g k)))) + +;; k : 1 char string +;; guesses: list of string +;; returns true if letter k is in some guess but not in answer +(define (wrong-char? k guesses) + (and (for/or ([g guesses]) + (string-contains? g k)) + (not (string-contains? ANSWER k)))) + +;; process-char -------------------------------------------------------------------- + +(define (process-key g k) + (cond + [(key=? k "\r") ; return + (if ACTIVE-GAME + (game-submit-guess g) + (mk-start-state))] + [(key=? k "\b") ; backspace + (game-del-char g)] + [(valid-char? k) ; A-Z,a-z + (game-add-char g k)] + [else g])) + +(define (valid-char? k) + (and (= 1 (string-length k)) + (regexp-match? #px"[A-Za-z]" k))) + +;; process mouse -------------------------------------------------------------- + +(define (handle-mouse g x y evt) + (cond + [(mouse=? evt "button-down") + (cond [(and (not ACTIVE-GAME) (mouse-play-again? (game-guesses g) y)) + (mk-start-state)] + [(mouse-in-1st-row? x y) (game-add-char g (row1->char x))] + [(mouse-in-2nd-row? x y) (game-add-char g (row2->char x))] + [(mouse-in-3rd-row? x y) (game-add-char g (row3->char x))] + [(mouse-enter? x y) (game-submit-guess g)] + [(mouse-backspace? x y) (game-del-char g)] + [else g])] + [else g])) + +(define KEYBOARD-Y-START 356) +(define KEYBOARD-Y1-START KEYBOARD-Y-START) +(define KEYBOARD-Y1-END (+ KEYBOARD-Y1-START KEY-HEIGHT)) +(define KEYBOARD-Y2-START KEYBOARD-Y1-END) +(define KEYBOARD-Y2-END (+ KEYBOARD-Y2-START KEY-HEIGHT)) +(define KEYBOARD-Y3-START KEYBOARD-Y2-END) +(define KEYBOARD-Y3-END (+ KEYBOARD-Y3-START KEY-HEIGHT)) +(define KEYBOARD-Y-END KEYBOARD-Y3-END) ; should be 3 rows = 452 + +(define KEYBOARD-X1-START 0) +(define KEYBOARD-X1-END + (+ KEYBOARD-X1-START (* (length (first KEYBOARD)) KEY-HEIGHT))) +(define KEYBOARD-X2-START + (+ KEYBOARD-X1-START (/ KEY-HEIGHT 2))) +(define KEYBOARD-X2-END + (+ KEYBOARD-X2-START (* (length (second KEYBOARD)) KEY-HEIGHT))) +(define KEYBOARD-X3-START + (+ KEYBOARD-X2-START KEY-HEIGHT)) +(define KEYBOARD-X3-END + (+ KEYBOARD-X3-START (* (length (third KEYBOARD)) KEY-HEIGHT))) + +;; check roughly whether mouse clicking "play again" button +(define (mouse-play-again? guesses y) + ;; adjust y upwards, depending on how many guesses were made + (define y-adjustment + (* (- MAX-GUESSES (length guesses)) + (+ GUESS-TILE-HEIGHT GAP))) + (<= (- KEYBOARD-Y-START y-adjustment) y KEYBOARD-Y-END)) + +(define (mouse-in-1st-row? x y) + (and (< KEYBOARD-Y1-START y KEYBOARD-Y1-END) + (< KEYBOARD-X1-START x KEYBOARD-X1-END))) +(define (mouse-in-2nd-row? x y) + (and (< KEYBOARD-Y2-START y KEYBOARD-Y2-END) + (< KEYBOARD-X2-START x KEYBOARD-X2-END))) +(define (mouse-in-3rd-row? x y) + (and (< KEYBOARD-Y3-START y KEYBOARD-Y3-END) + (< KEYBOARD-X3-START x KEYBOARD-X3-END))) + +(define (mouse-enter? x y) ; in 3rd row + (and (< KEYBOARD-Y3-START y KEYBOARD-Y3-END) + (< 0 x (* 1.5 KEY-HEIGHT)))) +(define (mouse-backspace? x y) ; in 3rd row + (and (< KEYBOARD-Y3-START y KEYBOARD-Y3-END) + (< KEYBOARD-X3-END x (+ KEYBOARD-X3-END (* 1.5 KEY-HEIGHT))))) + +(define (row1->char x) + (symbol->string + (list-ref (first KEYBOARD) (quotient x KEY-HEIGHT)))) +(define (row2->char x) + (symbol->string + (list-ref (second KEYBOARD) (quotient (- x KEYBOARD-X2-START) KEY-HEIGHT)))) +(define (row3->char x) + (symbol->string + (list-ref (third KEYBOARD) (quotient (- x KEYBOARD-X3-START) KEY-HEIGHT)))) + +;; start the game ---------------------------------------------------------- +(big-bang (mk-start-state) + (to-draw render) + (on-key process-key) + (on-mouse handle-mouse)) \ No newline at end of file diff --git a/static/index.html b/static/index.html index cd09dd9..9b1b2c0 100644 --- a/static/index.html +++ b/static/index.html @@ -79,6 +79,7 @@
      • 2048 Game
      • Tetris
      • Archery
        • +
      • Wordle
    • RacketScript on Github
      • diff --git a/static/modules/wordle-words.rkt.js b/static/modules/wordle-words.rkt.js new file mode 100644 index 0000000..46a98c5 --- /dev/null +++ b/static/modules/wordle-words.rkt.js @@ -0,0 +1,9 @@ +import * as $rjs_core from '../runtime/core.js'; +import * as M0 from "../runtime/kernel.rkt.js"; +import * as M1 from "../collects/racket/private/map.rkt.js"; +var WORDLE_WORDS = M1.map(M0.symbol__gt_string, $rjs_core.Pair.makeList($rjs_core.PrimitiveSymbol.make("aback"), $rjs_core.PrimitiveSymbol.make("abase"), $rjs_core.PrimitiveSymbol.make("abate"), $rjs_core.PrimitiveSymbol.make("abbey"), $rjs_core.PrimitiveSymbol.make("abbot"), $rjs_core.PrimitiveSymbol.make("abhor"), $rjs_core.PrimitiveSymbol.make("abide"), $rjs_core.PrimitiveSymbol.make("abled"), $rjs_core.PrimitiveSymbol.make("abode"), $rjs_core.PrimitiveSymbol.make("abort"), $rjs_core.PrimitiveSymbol.make("about"), $rjs_core.PrimitiveSymbol.make("above"), $rjs_core.PrimitiveSymbol.make("abuse"), $rjs_core.PrimitiveSymbol.make("abyss"), $rjs_core.PrimitiveSymbol.make("acorn"), $rjs_core.PrimitiveSymbol.make("acrid"), $rjs_core.PrimitiveSymbol.make("actor"), $rjs_core.PrimitiveSymbol.make("acute"), $rjs_core.PrimitiveSymbol.make("adage"), $rjs_core.PrimitiveSymbol.make("adapt"), $rjs_core.PrimitiveSymbol.make("adept"), $rjs_core.PrimitiveSymbol.make("admin"), $rjs_core.PrimitiveSymbol.make("admit"), $rjs_core.PrimitiveSymbol.make("adobe"), $rjs_core.PrimitiveSymbol.make("adopt"), $rjs_core.PrimitiveSymbol.make("adore"), $rjs_core.PrimitiveSymbol.make("adorn"), $rjs_core.PrimitiveSymbol.make("adult"), $rjs_core.PrimitiveSymbol.make("affix"), $rjs_core.PrimitiveSymbol.make("afire"), $rjs_core.PrimitiveSymbol.make("afoot"), $rjs_core.PrimitiveSymbol.make("afoul"), $rjs_core.PrimitiveSymbol.make("after"), $rjs_core.PrimitiveSymbol.make("again"), $rjs_core.PrimitiveSymbol.make("agape"), $rjs_core.PrimitiveSymbol.make("agate"), $rjs_core.PrimitiveSymbol.make("agent"), $rjs_core.PrimitiveSymbol.make("agile"), $rjs_core.PrimitiveSymbol.make("aging"), $rjs_core.PrimitiveSymbol.make("aglow"), $rjs_core.PrimitiveSymbol.make("agony"), $rjs_core.PrimitiveSymbol.make("agora"), $rjs_core.PrimitiveSymbol.make("agree"), $rjs_core.PrimitiveSymbol.make("ahead"), $rjs_core.PrimitiveSymbol.make("aider"), $rjs_core.PrimitiveSymbol.make("aisle"), $rjs_core.PrimitiveSymbol.make("alarm"), $rjs_core.PrimitiveSymbol.make("album"), $rjs_core.PrimitiveSymbol.make("alert"), $rjs_core.PrimitiveSymbol.make("algae"), $rjs_core.PrimitiveSymbol.make("alibi"), $rjs_core.PrimitiveSymbol.make("alien"), $rjs_core.PrimitiveSymbol.make("align"), $rjs_core.PrimitiveSymbol.make("alike"), $rjs_core.PrimitiveSymbol.make("alive"), $rjs_core.PrimitiveSymbol.make("allay"), $rjs_core.PrimitiveSymbol.make("alley"), $rjs_core.PrimitiveSymbol.make("allot"), $rjs_core.PrimitiveSymbol.make("allow"), $rjs_core.PrimitiveSymbol.make("alloy"), $rjs_core.PrimitiveSymbol.make("aloft"), $rjs_core.PrimitiveSymbol.make("alone"), $rjs_core.PrimitiveSymbol.make("along"), $rjs_core.PrimitiveSymbol.make("aloof"), $rjs_core.PrimitiveSymbol.make("aloud"), $rjs_core.PrimitiveSymbol.make("alpha"), $rjs_core.PrimitiveSymbol.make("altar"), $rjs_core.PrimitiveSymbol.make("alter"), $rjs_core.PrimitiveSymbol.make("amass"), $rjs_core.PrimitiveSymbol.make("amaze"), $rjs_core.PrimitiveSymbol.make("amber"), $rjs_core.PrimitiveSymbol.make("amble"), $rjs_core.PrimitiveSymbol.make("amend"), $rjs_core.PrimitiveSymbol.make("amiss"), $rjs_core.PrimitiveSymbol.make("amity"), $rjs_core.PrimitiveSymbol.make("among"), $rjs_core.PrimitiveSymbol.make("ample"), $rjs_core.PrimitiveSymbol.make("amply"), $rjs_core.PrimitiveSymbol.make("amuse"), $rjs_core.PrimitiveSymbol.make("angel"), $rjs_core.PrimitiveSymbol.make("anger"), $rjs_core.PrimitiveSymbol.make("angle"), $rjs_core.PrimitiveSymbol.make("angry"), $rjs_core.PrimitiveSymbol.make("angst"), $rjs_core.PrimitiveSymbol.make("anime"), $rjs_core.PrimitiveSymbol.make("ankle"), $rjs_core.PrimitiveSymbol.make("annex"), $rjs_core.PrimitiveSymbol.make("annoy"), $rjs_core.PrimitiveSymbol.make("annul"), $rjs_core.PrimitiveSymbol.make("anode"), $rjs_core.PrimitiveSymbol.make("antic"), $rjs_core.PrimitiveSymbol.make("anvil"), $rjs_core.PrimitiveSymbol.make("aorta"), $rjs_core.PrimitiveSymbol.make("apart"), $rjs_core.PrimitiveSymbol.make("aphid"), $rjs_core.PrimitiveSymbol.make("aping"), $rjs_core.PrimitiveSymbol.make("apnea"), $rjs_core.PrimitiveSymbol.make("apple"), $rjs_core.PrimitiveSymbol.make("apply"), $rjs_core.PrimitiveSymbol.make("apron"), $rjs_core.PrimitiveSymbol.make("aptly"), $rjs_core.PrimitiveSymbol.make("arbor"), $rjs_core.PrimitiveSymbol.make("ardor"), $rjs_core.PrimitiveSymbol.make("arena"), $rjs_core.PrimitiveSymbol.make("argue"), $rjs_core.PrimitiveSymbol.make("arise"), $rjs_core.PrimitiveSymbol.make("armor"), $rjs_core.PrimitiveSymbol.make("aroma"), $rjs_core.PrimitiveSymbol.make("arose"), $rjs_core.PrimitiveSymbol.make("array"), $rjs_core.PrimitiveSymbol.make("arrow"), $rjs_core.PrimitiveSymbol.make("arson"), $rjs_core.PrimitiveSymbol.make("artsy"), $rjs_core.PrimitiveSymbol.make("ascot"), $rjs_core.PrimitiveSymbol.make("ashen"), $rjs_core.PrimitiveSymbol.make("aside"), $rjs_core.PrimitiveSymbol.make("askew"), $rjs_core.PrimitiveSymbol.make("assay"), $rjs_core.PrimitiveSymbol.make("asset"), $rjs_core.PrimitiveSymbol.make("atoll"), $rjs_core.PrimitiveSymbol.make("atone"), $rjs_core.PrimitiveSymbol.make("attic"), $rjs_core.PrimitiveSymbol.make("audio"), $rjs_core.PrimitiveSymbol.make("audit"), $rjs_core.PrimitiveSymbol.make("augur"), $rjs_core.PrimitiveSymbol.make("aunty"), $rjs_core.PrimitiveSymbol.make("avail"), $rjs_core.PrimitiveSymbol.make("avert"), $rjs_core.PrimitiveSymbol.make("avian"), $rjs_core.PrimitiveSymbol.make("avoid"), $rjs_core.PrimitiveSymbol.make("await"), $rjs_core.PrimitiveSymbol.make("awake"), $rjs_core.PrimitiveSymbol.make("award"), $rjs_core.PrimitiveSymbol.make("aware"), $rjs_core.PrimitiveSymbol.make("awash"), $rjs_core.PrimitiveSymbol.make("awful"), $rjs_core.PrimitiveSymbol.make("awoke"), $rjs_core.PrimitiveSymbol.make("axial"), $rjs_core.PrimitiveSymbol.make("axiom"), $rjs_core.PrimitiveSymbol.make("axion"), $rjs_core.PrimitiveSymbol.make("azure"), $rjs_core.PrimitiveSymbol.make("bacon"), $rjs_core.PrimitiveSymbol.make("badge"), $rjs_core.PrimitiveSymbol.make("badly"), $rjs_core.PrimitiveSymbol.make("bagel"), $rjs_core.PrimitiveSymbol.make("baggy"), $rjs_core.PrimitiveSymbol.make("baker"), $rjs_core.PrimitiveSymbol.make("baler"), $rjs_core.PrimitiveSymbol.make("balmy"), $rjs_core.PrimitiveSymbol.make("banal"), $rjs_core.PrimitiveSymbol.make("banjo"), $rjs_core.PrimitiveSymbol.make("barge"), $rjs_core.PrimitiveSymbol.make("baron"), $rjs_core.PrimitiveSymbol.make("basal"), $rjs_core.PrimitiveSymbol.make("basic"), $rjs_core.PrimitiveSymbol.make("basil"), $rjs_core.PrimitiveSymbol.make("basin"), $rjs_core.PrimitiveSymbol.make("basis"), $rjs_core.PrimitiveSymbol.make("baste"), $rjs_core.PrimitiveSymbol.make("batch"), $rjs_core.PrimitiveSymbol.make("bathe"), $rjs_core.PrimitiveSymbol.make("baton"), $rjs_core.PrimitiveSymbol.make("batty"), $rjs_core.PrimitiveSymbol.make("bawdy"), $rjs_core.PrimitiveSymbol.make("bayou"), $rjs_core.PrimitiveSymbol.make("beach"), $rjs_core.PrimitiveSymbol.make("beady"), $rjs_core.PrimitiveSymbol.make("beard"), $rjs_core.PrimitiveSymbol.make("beast"), $rjs_core.PrimitiveSymbol.make("beech"), $rjs_core.PrimitiveSymbol.make("beefy"), $rjs_core.PrimitiveSymbol.make("befit"), $rjs_core.PrimitiveSymbol.make("began"), $rjs_core.PrimitiveSymbol.make("begat"), $rjs_core.PrimitiveSymbol.make("beget"), $rjs_core.PrimitiveSymbol.make("begin"), $rjs_core.PrimitiveSymbol.make("begun"), $rjs_core.PrimitiveSymbol.make("being"), $rjs_core.PrimitiveSymbol.make("belch"), $rjs_core.PrimitiveSymbol.make("belie"), $rjs_core.PrimitiveSymbol.make("belle"), $rjs_core.PrimitiveSymbol.make("belly"), $rjs_core.PrimitiveSymbol.make("below"), $rjs_core.PrimitiveSymbol.make("bench"), $rjs_core.PrimitiveSymbol.make("beret"), $rjs_core.PrimitiveSymbol.make("berry"), $rjs_core.PrimitiveSymbol.make("berth"), $rjs_core.PrimitiveSymbol.make("beset"), $rjs_core.PrimitiveSymbol.make("betel"), $rjs_core.PrimitiveSymbol.make("bevel"), $rjs_core.PrimitiveSymbol.make("bezel"), $rjs_core.PrimitiveSymbol.make("bible"), $rjs_core.PrimitiveSymbol.make("bicep"), $rjs_core.PrimitiveSymbol.make("biddy"), $rjs_core.PrimitiveSymbol.make("bigot"), $rjs_core.PrimitiveSymbol.make("bilge"), $rjs_core.PrimitiveSymbol.make("billy"), $rjs_core.PrimitiveSymbol.make("binge"), $rjs_core.PrimitiveSymbol.make("bingo"), $rjs_core.PrimitiveSymbol.make("biome"), $rjs_core.PrimitiveSymbol.make("birch"), $rjs_core.PrimitiveSymbol.make("birth"), $rjs_core.PrimitiveSymbol.make("bison"), $rjs_core.PrimitiveSymbol.make("bitty"), $rjs_core.PrimitiveSymbol.make("black"), $rjs_core.PrimitiveSymbol.make("blade"), $rjs_core.PrimitiveSymbol.make("blame"), $rjs_core.PrimitiveSymbol.make("bland"), $rjs_core.PrimitiveSymbol.make("blank"), $rjs_core.PrimitiveSymbol.make("blare"), $rjs_core.PrimitiveSymbol.make("blast"), $rjs_core.PrimitiveSymbol.make("blaze"), $rjs_core.PrimitiveSymbol.make("bleak"), $rjs_core.PrimitiveSymbol.make("bleat"), $rjs_core.PrimitiveSymbol.make("bleed"), $rjs_core.PrimitiveSymbol.make("bleep"), $rjs_core.PrimitiveSymbol.make("blend"), $rjs_core.PrimitiveSymbol.make("bless"), $rjs_core.PrimitiveSymbol.make("blimp"), $rjs_core.PrimitiveSymbol.make("blind"), $rjs_core.PrimitiveSymbol.make("blink"), $rjs_core.PrimitiveSymbol.make("bliss"), $rjs_core.PrimitiveSymbol.make("blitz"), $rjs_core.PrimitiveSymbol.make("bloat"), $rjs_core.PrimitiveSymbol.make("block"), $rjs_core.PrimitiveSymbol.make("bloke"), $rjs_core.PrimitiveSymbol.make("blond"), $rjs_core.PrimitiveSymbol.make("blood"), $rjs_core.PrimitiveSymbol.make("bloom"), $rjs_core.PrimitiveSymbol.make("blown"), $rjs_core.PrimitiveSymbol.make("bluer"), $rjs_core.PrimitiveSymbol.make("bluff"), $rjs_core.PrimitiveSymbol.make("blunt"), $rjs_core.PrimitiveSymbol.make("blurb"), $rjs_core.PrimitiveSymbol.make("blurt"), $rjs_core.PrimitiveSymbol.make("blush"), $rjs_core.PrimitiveSymbol.make("board"), $rjs_core.PrimitiveSymbol.make("boast"), $rjs_core.PrimitiveSymbol.make("bobby"), $rjs_core.PrimitiveSymbol.make("boney"), $rjs_core.PrimitiveSymbol.make("bongo"), $rjs_core.PrimitiveSymbol.make("bonus"), $rjs_core.PrimitiveSymbol.make("booby"), $rjs_core.PrimitiveSymbol.make("boost"), $rjs_core.PrimitiveSymbol.make("booth"), $rjs_core.PrimitiveSymbol.make("booty"), $rjs_core.PrimitiveSymbol.make("booze"), $rjs_core.PrimitiveSymbol.make("boozy"), $rjs_core.PrimitiveSymbol.make("borax"), $rjs_core.PrimitiveSymbol.make("borne"), $rjs_core.PrimitiveSymbol.make("bosom"), $rjs_core.PrimitiveSymbol.make("bossy"), $rjs_core.PrimitiveSymbol.make("botch"), $rjs_core.PrimitiveSymbol.make("bough"), $rjs_core.PrimitiveSymbol.make("boule"), $rjs_core.PrimitiveSymbol.make("bound"), $rjs_core.PrimitiveSymbol.make("bowel"), $rjs_core.PrimitiveSymbol.make("boxer"), $rjs_core.PrimitiveSymbol.make("brace"), $rjs_core.PrimitiveSymbol.make("braid"), $rjs_core.PrimitiveSymbol.make("brain"), $rjs_core.PrimitiveSymbol.make("brake"), $rjs_core.PrimitiveSymbol.make("brand"), $rjs_core.PrimitiveSymbol.make("brash"), $rjs_core.PrimitiveSymbol.make("brass"), $rjs_core.PrimitiveSymbol.make("brave"), $rjs_core.PrimitiveSymbol.make("bravo"), $rjs_core.PrimitiveSymbol.make("brawl"), $rjs_core.PrimitiveSymbol.make("brawn"), $rjs_core.PrimitiveSymbol.make("bread"), $rjs_core.PrimitiveSymbol.make("break"), $rjs_core.PrimitiveSymbol.make("breed"), $rjs_core.PrimitiveSymbol.make("briar"), $rjs_core.PrimitiveSymbol.make("bribe"), $rjs_core.PrimitiveSymbol.make("brick"), $rjs_core.PrimitiveSymbol.make("bride"), $rjs_core.PrimitiveSymbol.make("brief"), $rjs_core.PrimitiveSymbol.make("brine"), $rjs_core.PrimitiveSymbol.make("bring"), $rjs_core.PrimitiveSymbol.make("brink"), $rjs_core.PrimitiveSymbol.make("briny"), $rjs_core.PrimitiveSymbol.make("brisk"), $rjs_core.PrimitiveSymbol.make("broad"), $rjs_core.PrimitiveSymbol.make("broil"), $rjs_core.PrimitiveSymbol.make("broke"), $rjs_core.PrimitiveSymbol.make("brood"), $rjs_core.PrimitiveSymbol.make("brook"), $rjs_core.PrimitiveSymbol.make("broom"), $rjs_core.PrimitiveSymbol.make("broth"), $rjs_core.PrimitiveSymbol.make("brown"), $rjs_core.PrimitiveSymbol.make("brunt"), $rjs_core.PrimitiveSymbol.make("brush"), $rjs_core.PrimitiveSymbol.make("brute"), $rjs_core.PrimitiveSymbol.make("buddy"), $rjs_core.PrimitiveSymbol.make("budge"), $rjs_core.PrimitiveSymbol.make("buggy"), $rjs_core.PrimitiveSymbol.make("bugle"), $rjs_core.PrimitiveSymbol.make("build"), $rjs_core.PrimitiveSymbol.make("built"), $rjs_core.PrimitiveSymbol.make("bulge"), $rjs_core.PrimitiveSymbol.make("bulky"), $rjs_core.PrimitiveSymbol.make("bully"), $rjs_core.PrimitiveSymbol.make("bunch"), $rjs_core.PrimitiveSymbol.make("bunny"), $rjs_core.PrimitiveSymbol.make("burly"), $rjs_core.PrimitiveSymbol.make("burnt"), $rjs_core.PrimitiveSymbol.make("burst"), $rjs_core.PrimitiveSymbol.make("bused"), $rjs_core.PrimitiveSymbol.make("bushy"), $rjs_core.PrimitiveSymbol.make("butch"), $rjs_core.PrimitiveSymbol.make("butte"), $rjs_core.PrimitiveSymbol.make("buxom"), $rjs_core.PrimitiveSymbol.make("buyer"), $rjs_core.PrimitiveSymbol.make("bylaw"), $rjs_core.PrimitiveSymbol.make("cabal"), $rjs_core.PrimitiveSymbol.make("cabby"), $rjs_core.PrimitiveSymbol.make("cabin"), $rjs_core.PrimitiveSymbol.make("cable"), $rjs_core.PrimitiveSymbol.make("cacao"), $rjs_core.PrimitiveSymbol.make("cache"), $rjs_core.PrimitiveSymbol.make("cacti"), $rjs_core.PrimitiveSymbol.make("caddy"), $rjs_core.PrimitiveSymbol.make("cadet"), $rjs_core.PrimitiveSymbol.make("cagey"), $rjs_core.PrimitiveSymbol.make("cairn"), $rjs_core.PrimitiveSymbol.make("camel"), $rjs_core.PrimitiveSymbol.make("cameo"), $rjs_core.PrimitiveSymbol.make("canal"), $rjs_core.PrimitiveSymbol.make("candy"), $rjs_core.PrimitiveSymbol.make("canny"), $rjs_core.PrimitiveSymbol.make("canoe"), $rjs_core.PrimitiveSymbol.make("canon"), $rjs_core.PrimitiveSymbol.make("caper"), $rjs_core.PrimitiveSymbol.make("caput"), $rjs_core.PrimitiveSymbol.make("carat"), $rjs_core.PrimitiveSymbol.make("cargo"), $rjs_core.PrimitiveSymbol.make("carol"), $rjs_core.PrimitiveSymbol.make("carry"), $rjs_core.PrimitiveSymbol.make("carve"), $rjs_core.PrimitiveSymbol.make("caste"), $rjs_core.PrimitiveSymbol.make("catch"), $rjs_core.PrimitiveSymbol.make("cater"), $rjs_core.PrimitiveSymbol.make("catty"), $rjs_core.PrimitiveSymbol.make("caulk"), $rjs_core.PrimitiveSymbol.make("cause"), $rjs_core.PrimitiveSymbol.make("cavil"), $rjs_core.PrimitiveSymbol.make("cease"), $rjs_core.PrimitiveSymbol.make("cedar"), $rjs_core.PrimitiveSymbol.make("cello"), $rjs_core.PrimitiveSymbol.make("chafe"), $rjs_core.PrimitiveSymbol.make("chaff"), $rjs_core.PrimitiveSymbol.make("chain"), $rjs_core.PrimitiveSymbol.make("chair"), $rjs_core.PrimitiveSymbol.make("chalk"), $rjs_core.PrimitiveSymbol.make("champ"), $rjs_core.PrimitiveSymbol.make("chant"), $rjs_core.PrimitiveSymbol.make("chaos"), $rjs_core.PrimitiveSymbol.make("chard"), $rjs_core.PrimitiveSymbol.make("charm"), $rjs_core.PrimitiveSymbol.make("chart"), $rjs_core.PrimitiveSymbol.make("chase"), $rjs_core.PrimitiveSymbol.make("chasm"), $rjs_core.PrimitiveSymbol.make("cheap"), $rjs_core.PrimitiveSymbol.make("cheat"), $rjs_core.PrimitiveSymbol.make("check"), $rjs_core.PrimitiveSymbol.make("cheek"), $rjs_core.PrimitiveSymbol.make("cheer"), $rjs_core.PrimitiveSymbol.make("chess"), $rjs_core.PrimitiveSymbol.make("chest"), $rjs_core.PrimitiveSymbol.make("chick"), $rjs_core.PrimitiveSymbol.make("chide"), $rjs_core.PrimitiveSymbol.make("chief"), $rjs_core.PrimitiveSymbol.make("child"), $rjs_core.PrimitiveSymbol.make("chili"), $rjs_core.PrimitiveSymbol.make("chill"), $rjs_core.PrimitiveSymbol.make("chime"), $rjs_core.PrimitiveSymbol.make("china"), $rjs_core.PrimitiveSymbol.make("chirp"), $rjs_core.PrimitiveSymbol.make("chock"), $rjs_core.PrimitiveSymbol.make("choir"), $rjs_core.PrimitiveSymbol.make("choke"), $rjs_core.PrimitiveSymbol.make("chord"), $rjs_core.PrimitiveSymbol.make("chore"), $rjs_core.PrimitiveSymbol.make("chose"), $rjs_core.PrimitiveSymbol.make("chuck"), $rjs_core.PrimitiveSymbol.make("chump"), $rjs_core.PrimitiveSymbol.make("chunk"), $rjs_core.PrimitiveSymbol.make("churn"), $rjs_core.PrimitiveSymbol.make("chute"), $rjs_core.PrimitiveSymbol.make("cider"), $rjs_core.PrimitiveSymbol.make("cigar"), $rjs_core.PrimitiveSymbol.make("cinch"), $rjs_core.PrimitiveSymbol.make("circa"), $rjs_core.PrimitiveSymbol.make("civic"), $rjs_core.PrimitiveSymbol.make("civil"), $rjs_core.PrimitiveSymbol.make("clack"), $rjs_core.PrimitiveSymbol.make("claim"), $rjs_core.PrimitiveSymbol.make("clamp"), $rjs_core.PrimitiveSymbol.make("clang"), $rjs_core.PrimitiveSymbol.make("clank"), $rjs_core.PrimitiveSymbol.make("clash"), $rjs_core.PrimitiveSymbol.make("clasp"), $rjs_core.PrimitiveSymbol.make("class"), $rjs_core.PrimitiveSymbol.make("clean"), $rjs_core.PrimitiveSymbol.make("clear"), $rjs_core.PrimitiveSymbol.make("cleat"), $rjs_core.PrimitiveSymbol.make("cleft"), $rjs_core.PrimitiveSymbol.make("clerk"), $rjs_core.PrimitiveSymbol.make("click"), $rjs_core.PrimitiveSymbol.make("cliff"), $rjs_core.PrimitiveSymbol.make("climb"), $rjs_core.PrimitiveSymbol.make("cling"), $rjs_core.PrimitiveSymbol.make("clink"), $rjs_core.PrimitiveSymbol.make("cloak"), $rjs_core.PrimitiveSymbol.make("clock"), $rjs_core.PrimitiveSymbol.make("clone"), $rjs_core.PrimitiveSymbol.make("close"), $rjs_core.PrimitiveSymbol.make("cloth"), $rjs_core.PrimitiveSymbol.make("cloud"), $rjs_core.PrimitiveSymbol.make("clout"), $rjs_core.PrimitiveSymbol.make("clove"), $rjs_core.PrimitiveSymbol.make("clown"), $rjs_core.PrimitiveSymbol.make("cluck"), $rjs_core.PrimitiveSymbol.make("clued"), $rjs_core.PrimitiveSymbol.make("clump"), $rjs_core.PrimitiveSymbol.make("clung"), $rjs_core.PrimitiveSymbol.make("coach"), $rjs_core.PrimitiveSymbol.make("coast"), $rjs_core.PrimitiveSymbol.make("cobra"), $rjs_core.PrimitiveSymbol.make("cocoa"), $rjs_core.PrimitiveSymbol.make("colon"), $rjs_core.PrimitiveSymbol.make("color"), $rjs_core.PrimitiveSymbol.make("comet"), $rjs_core.PrimitiveSymbol.make("comfy"), $rjs_core.PrimitiveSymbol.make("comic"), $rjs_core.PrimitiveSymbol.make("comma"), $rjs_core.PrimitiveSymbol.make("conch"), $rjs_core.PrimitiveSymbol.make("condo"), $rjs_core.PrimitiveSymbol.make("conic"), $rjs_core.PrimitiveSymbol.make("copse"), $rjs_core.PrimitiveSymbol.make("coral"), $rjs_core.PrimitiveSymbol.make("corer"), $rjs_core.PrimitiveSymbol.make("corny"), $rjs_core.PrimitiveSymbol.make("couch"), $rjs_core.PrimitiveSymbol.make("cough"), $rjs_core.PrimitiveSymbol.make("could"), $rjs_core.PrimitiveSymbol.make("count"), $rjs_core.PrimitiveSymbol.make("coupe"), $rjs_core.PrimitiveSymbol.make("court"), $rjs_core.PrimitiveSymbol.make("coven"), $rjs_core.PrimitiveSymbol.make("cover"), $rjs_core.PrimitiveSymbol.make("covet"), $rjs_core.PrimitiveSymbol.make("covey"), $rjs_core.PrimitiveSymbol.make("cower"), $rjs_core.PrimitiveSymbol.make("coyly"), $rjs_core.PrimitiveSymbol.make("crack"), $rjs_core.PrimitiveSymbol.make("craft"), $rjs_core.PrimitiveSymbol.make("cramp"), $rjs_core.PrimitiveSymbol.make("crane"), $rjs_core.PrimitiveSymbol.make("crank"), $rjs_core.PrimitiveSymbol.make("crash"), $rjs_core.PrimitiveSymbol.make("crass"), $rjs_core.PrimitiveSymbol.make("crate"), $rjs_core.PrimitiveSymbol.make("crave"), $rjs_core.PrimitiveSymbol.make("crawl"), $rjs_core.PrimitiveSymbol.make("craze"), $rjs_core.PrimitiveSymbol.make("crazy"), $rjs_core.PrimitiveSymbol.make("creak"), $rjs_core.PrimitiveSymbol.make("cream"), $rjs_core.PrimitiveSymbol.make("credo"), $rjs_core.PrimitiveSymbol.make("creed"), $rjs_core.PrimitiveSymbol.make("creek"), $rjs_core.PrimitiveSymbol.make("creep"), $rjs_core.PrimitiveSymbol.make("creme"), $rjs_core.PrimitiveSymbol.make("crepe"), $rjs_core.PrimitiveSymbol.make("crept"), $rjs_core.PrimitiveSymbol.make("cress"), $rjs_core.PrimitiveSymbol.make("crest"), $rjs_core.PrimitiveSymbol.make("crick"), $rjs_core.PrimitiveSymbol.make("cried"), $rjs_core.PrimitiveSymbol.make("crier"), $rjs_core.PrimitiveSymbol.make("crime"), $rjs_core.PrimitiveSymbol.make("crimp"), $rjs_core.PrimitiveSymbol.make("crisp"), $rjs_core.PrimitiveSymbol.make("croak"), $rjs_core.PrimitiveSymbol.make("crock"), $rjs_core.PrimitiveSymbol.make("crone"), $rjs_core.PrimitiveSymbol.make("crony"), $rjs_core.PrimitiveSymbol.make("crook"), $rjs_core.PrimitiveSymbol.make("cross"), $rjs_core.PrimitiveSymbol.make("croup"), $rjs_core.PrimitiveSymbol.make("crowd"), $rjs_core.PrimitiveSymbol.make("crown"), $rjs_core.PrimitiveSymbol.make("crude"), $rjs_core.PrimitiveSymbol.make("cruel"), $rjs_core.PrimitiveSymbol.make("crumb"), $rjs_core.PrimitiveSymbol.make("crump"), $rjs_core.PrimitiveSymbol.make("crush"), $rjs_core.PrimitiveSymbol.make("crust"), $rjs_core.PrimitiveSymbol.make("crypt"), $rjs_core.PrimitiveSymbol.make("cubic"), $rjs_core.PrimitiveSymbol.make("cumin"), $rjs_core.PrimitiveSymbol.make("curio"), $rjs_core.PrimitiveSymbol.make("curly"), $rjs_core.PrimitiveSymbol.make("curry"), $rjs_core.PrimitiveSymbol.make("curse"), $rjs_core.PrimitiveSymbol.make("curve"), $rjs_core.PrimitiveSymbol.make("curvy"), $rjs_core.PrimitiveSymbol.make("cutie"), $rjs_core.PrimitiveSymbol.make("cyber"), $rjs_core.PrimitiveSymbol.make("cycle"), $rjs_core.PrimitiveSymbol.make("cynic"), $rjs_core.PrimitiveSymbol.make("daddy"), $rjs_core.PrimitiveSymbol.make("daily"), $rjs_core.PrimitiveSymbol.make("dairy"), $rjs_core.PrimitiveSymbol.make("daisy"), $rjs_core.PrimitiveSymbol.make("dally"), $rjs_core.PrimitiveSymbol.make("dance"), $rjs_core.PrimitiveSymbol.make("dandy"), $rjs_core.PrimitiveSymbol.make("datum"), $rjs_core.PrimitiveSymbol.make("daunt"), $rjs_core.PrimitiveSymbol.make("dealt"), $rjs_core.PrimitiveSymbol.make("death"), $rjs_core.PrimitiveSymbol.make("debar"), $rjs_core.PrimitiveSymbol.make("debit"), $rjs_core.PrimitiveSymbol.make("debug"), $rjs_core.PrimitiveSymbol.make("debut"), $rjs_core.PrimitiveSymbol.make("decal"), $rjs_core.PrimitiveSymbol.make("decay"), $rjs_core.PrimitiveSymbol.make("decor"), $rjs_core.PrimitiveSymbol.make("decoy"), $rjs_core.PrimitiveSymbol.make("decry"), $rjs_core.PrimitiveSymbol.make("defer"), $rjs_core.PrimitiveSymbol.make("deign"), $rjs_core.PrimitiveSymbol.make("deity"), $rjs_core.PrimitiveSymbol.make("delay"), $rjs_core.PrimitiveSymbol.make("delta"), $rjs_core.PrimitiveSymbol.make("delve"), $rjs_core.PrimitiveSymbol.make("demon"), $rjs_core.PrimitiveSymbol.make("demur"), $rjs_core.PrimitiveSymbol.make("denim"), $rjs_core.PrimitiveSymbol.make("dense"), $rjs_core.PrimitiveSymbol.make("depot"), $rjs_core.PrimitiveSymbol.make("depth"), $rjs_core.PrimitiveSymbol.make("derby"), $rjs_core.PrimitiveSymbol.make("deter"), $rjs_core.PrimitiveSymbol.make("detox"), $rjs_core.PrimitiveSymbol.make("deuce"), $rjs_core.PrimitiveSymbol.make("devil"), $rjs_core.PrimitiveSymbol.make("diary"), $rjs_core.PrimitiveSymbol.make("dicey"), $rjs_core.PrimitiveSymbol.make("digit"), $rjs_core.PrimitiveSymbol.make("dilly"), $rjs_core.PrimitiveSymbol.make("dimly"), $rjs_core.PrimitiveSymbol.make("diner"), $rjs_core.PrimitiveSymbol.make("dingo"), $rjs_core.PrimitiveSymbol.make("dingy"), $rjs_core.PrimitiveSymbol.make("diode"), $rjs_core.PrimitiveSymbol.make("dirge"), $rjs_core.PrimitiveSymbol.make("dirty"), $rjs_core.PrimitiveSymbol.make("disco"), $rjs_core.PrimitiveSymbol.make("ditch"), $rjs_core.PrimitiveSymbol.make("ditto"), $rjs_core.PrimitiveSymbol.make("ditty"), $rjs_core.PrimitiveSymbol.make("diver"), $rjs_core.PrimitiveSymbol.make("dizzy"), $rjs_core.PrimitiveSymbol.make("dodge"), $rjs_core.PrimitiveSymbol.make("dodgy"), $rjs_core.PrimitiveSymbol.make("dogma"), $rjs_core.PrimitiveSymbol.make("doing"), $rjs_core.PrimitiveSymbol.make("dolly"), $rjs_core.PrimitiveSymbol.make("donor"), $rjs_core.PrimitiveSymbol.make("donut"), $rjs_core.PrimitiveSymbol.make("dopey"), $rjs_core.PrimitiveSymbol.make("doubt"), $rjs_core.PrimitiveSymbol.make("dough"), $rjs_core.PrimitiveSymbol.make("dowdy"), $rjs_core.PrimitiveSymbol.make("dowel"), $rjs_core.PrimitiveSymbol.make("downy"), $rjs_core.PrimitiveSymbol.make("dowry"), $rjs_core.PrimitiveSymbol.make("dozen"), $rjs_core.PrimitiveSymbol.make("draft"), $rjs_core.PrimitiveSymbol.make("drain"), $rjs_core.PrimitiveSymbol.make("drake"), $rjs_core.PrimitiveSymbol.make("drama"), $rjs_core.PrimitiveSymbol.make("drank"), $rjs_core.PrimitiveSymbol.make("drape"), $rjs_core.PrimitiveSymbol.make("drawl"), $rjs_core.PrimitiveSymbol.make("drawn"), $rjs_core.PrimitiveSymbol.make("dread"), $rjs_core.PrimitiveSymbol.make("dream"), $rjs_core.PrimitiveSymbol.make("dress"), $rjs_core.PrimitiveSymbol.make("dried"), $rjs_core.PrimitiveSymbol.make("drier"), $rjs_core.PrimitiveSymbol.make("drift"), $rjs_core.PrimitiveSymbol.make("drill"), $rjs_core.PrimitiveSymbol.make("drink"), $rjs_core.PrimitiveSymbol.make("drive"), $rjs_core.PrimitiveSymbol.make("droit"), $rjs_core.PrimitiveSymbol.make("droll"), $rjs_core.PrimitiveSymbol.make("drone"), $rjs_core.PrimitiveSymbol.make("drool"), $rjs_core.PrimitiveSymbol.make("droop"), $rjs_core.PrimitiveSymbol.make("dross"), $rjs_core.PrimitiveSymbol.make("drove"), $rjs_core.PrimitiveSymbol.make("drown"), $rjs_core.PrimitiveSymbol.make("druid"), $rjs_core.PrimitiveSymbol.make("drunk"), $rjs_core.PrimitiveSymbol.make("dryer"), $rjs_core.PrimitiveSymbol.make("dryly"), $rjs_core.PrimitiveSymbol.make("duchy"), $rjs_core.PrimitiveSymbol.make("dully"), $rjs_core.PrimitiveSymbol.make("dummy"), $rjs_core.PrimitiveSymbol.make("dumpy"), $rjs_core.PrimitiveSymbol.make("dunce"), $rjs_core.PrimitiveSymbol.make("dusky"), $rjs_core.PrimitiveSymbol.make("dusty"), $rjs_core.PrimitiveSymbol.make("dutch"), $rjs_core.PrimitiveSymbol.make("duvet"), $rjs_core.PrimitiveSymbol.make("dwarf"), $rjs_core.PrimitiveSymbol.make("dwell"), $rjs_core.PrimitiveSymbol.make("dwelt"), $rjs_core.PrimitiveSymbol.make("dying"), $rjs_core.PrimitiveSymbol.make("eager"), $rjs_core.PrimitiveSymbol.make("eagle"), $rjs_core.PrimitiveSymbol.make("early"), $rjs_core.PrimitiveSymbol.make("earth"), $rjs_core.PrimitiveSymbol.make("easel"), $rjs_core.PrimitiveSymbol.make("eaten"), $rjs_core.PrimitiveSymbol.make("eater"), $rjs_core.PrimitiveSymbol.make("ebony"), $rjs_core.PrimitiveSymbol.make("eclat"), $rjs_core.PrimitiveSymbol.make("edict"), $rjs_core.PrimitiveSymbol.make("edify"), $rjs_core.PrimitiveSymbol.make("eerie"), $rjs_core.PrimitiveSymbol.make("egret"), $rjs_core.PrimitiveSymbol.make("eight"), $rjs_core.PrimitiveSymbol.make("eject"), $rjs_core.PrimitiveSymbol.make("eking"), $rjs_core.PrimitiveSymbol.make("elate"), $rjs_core.PrimitiveSymbol.make("elbow"), $rjs_core.PrimitiveSymbol.make("elder"), $rjs_core.PrimitiveSymbol.make("elect"), $rjs_core.PrimitiveSymbol.make("elegy"), $rjs_core.PrimitiveSymbol.make("elfin"), $rjs_core.PrimitiveSymbol.make("elide"), $rjs_core.PrimitiveSymbol.make("elite"), $rjs_core.PrimitiveSymbol.make("elope"), $rjs_core.PrimitiveSymbol.make("elude"), $rjs_core.PrimitiveSymbol.make("email"), $rjs_core.PrimitiveSymbol.make("embed"), $rjs_core.PrimitiveSymbol.make("ember"), $rjs_core.PrimitiveSymbol.make("emcee"), $rjs_core.PrimitiveSymbol.make("empty"), $rjs_core.PrimitiveSymbol.make("enact"), $rjs_core.PrimitiveSymbol.make("endow"), $rjs_core.PrimitiveSymbol.make("enema"), $rjs_core.PrimitiveSymbol.make("enemy"), $rjs_core.PrimitiveSymbol.make("enjoy"), $rjs_core.PrimitiveSymbol.make("ennui"), $rjs_core.PrimitiveSymbol.make("ensue"), $rjs_core.PrimitiveSymbol.make("enter"), $rjs_core.PrimitiveSymbol.make("entry"), $rjs_core.PrimitiveSymbol.make("envoy"), $rjs_core.PrimitiveSymbol.make("epoch"), $rjs_core.PrimitiveSymbol.make("epoxy"), $rjs_core.PrimitiveSymbol.make("equal"), $rjs_core.PrimitiveSymbol.make("equip"), $rjs_core.PrimitiveSymbol.make("erase"), $rjs_core.PrimitiveSymbol.make("erect"), $rjs_core.PrimitiveSymbol.make("erode"), $rjs_core.PrimitiveSymbol.make("error"), $rjs_core.PrimitiveSymbol.make("erupt"), $rjs_core.PrimitiveSymbol.make("essay"), $rjs_core.PrimitiveSymbol.make("ester"), $rjs_core.PrimitiveSymbol.make("ether"), $rjs_core.PrimitiveSymbol.make("ethic"), $rjs_core.PrimitiveSymbol.make("ethos"), $rjs_core.PrimitiveSymbol.make("etude"), $rjs_core.PrimitiveSymbol.make("evade"), $rjs_core.PrimitiveSymbol.make("event"), $rjs_core.PrimitiveSymbol.make("every"), $rjs_core.PrimitiveSymbol.make("evict"), $rjs_core.PrimitiveSymbol.make("evoke"), $rjs_core.PrimitiveSymbol.make("exact"), $rjs_core.PrimitiveSymbol.make("exalt"), $rjs_core.PrimitiveSymbol.make("excel"), $rjs_core.PrimitiveSymbol.make("exert"), $rjs_core.PrimitiveSymbol.make("exile"), $rjs_core.PrimitiveSymbol.make("exist"), $rjs_core.PrimitiveSymbol.make("expel"), $rjs_core.PrimitiveSymbol.make("extol"), $rjs_core.PrimitiveSymbol.make("extra"), $rjs_core.PrimitiveSymbol.make("exult"), $rjs_core.PrimitiveSymbol.make("eying"), $rjs_core.PrimitiveSymbol.make("fable"), $rjs_core.PrimitiveSymbol.make("facet"), $rjs_core.PrimitiveSymbol.make("faint"), $rjs_core.PrimitiveSymbol.make("fairy"), $rjs_core.PrimitiveSymbol.make("faith"), $rjs_core.PrimitiveSymbol.make("false"), $rjs_core.PrimitiveSymbol.make("fancy"), $rjs_core.PrimitiveSymbol.make("fanny"), $rjs_core.PrimitiveSymbol.make("farce"), $rjs_core.PrimitiveSymbol.make("fatal"), $rjs_core.PrimitiveSymbol.make("fatty"), $rjs_core.PrimitiveSymbol.make("fault"), $rjs_core.PrimitiveSymbol.make("fauna"), $rjs_core.PrimitiveSymbol.make("favor"), $rjs_core.PrimitiveSymbol.make("feast"), $rjs_core.PrimitiveSymbol.make("fecal"), $rjs_core.PrimitiveSymbol.make("feign"), $rjs_core.PrimitiveSymbol.make("fella"), $rjs_core.PrimitiveSymbol.make("felon"), $rjs_core.PrimitiveSymbol.make("femme"), $rjs_core.PrimitiveSymbol.make("femur"), $rjs_core.PrimitiveSymbol.make("fence"), $rjs_core.PrimitiveSymbol.make("feral"), $rjs_core.PrimitiveSymbol.make("ferry"), $rjs_core.PrimitiveSymbol.make("fetal"), $rjs_core.PrimitiveSymbol.make("fetch"), $rjs_core.PrimitiveSymbol.make("fetid"), $rjs_core.PrimitiveSymbol.make("fetus"), $rjs_core.PrimitiveSymbol.make("fever"), $rjs_core.PrimitiveSymbol.make("fewer"), $rjs_core.PrimitiveSymbol.make("fiber"), $rjs_core.PrimitiveSymbol.make("fibre"), $rjs_core.PrimitiveSymbol.make("ficus"), $rjs_core.PrimitiveSymbol.make("field"), $rjs_core.PrimitiveSymbol.make("fiend"), $rjs_core.PrimitiveSymbol.make("fiery"), $rjs_core.PrimitiveSymbol.make("fifth"), $rjs_core.PrimitiveSymbol.make("fifty"), $rjs_core.PrimitiveSymbol.make("fight"), $rjs_core.PrimitiveSymbol.make("filer"), $rjs_core.PrimitiveSymbol.make("filet"), $rjs_core.PrimitiveSymbol.make("filly"), $rjs_core.PrimitiveSymbol.make("filmy"), $rjs_core.PrimitiveSymbol.make("filth"), $rjs_core.PrimitiveSymbol.make("final"), $rjs_core.PrimitiveSymbol.make("finch"), $rjs_core.PrimitiveSymbol.make("finer"), $rjs_core.PrimitiveSymbol.make("first"), $rjs_core.PrimitiveSymbol.make("fishy"), $rjs_core.PrimitiveSymbol.make("fixer"), $rjs_core.PrimitiveSymbol.make("fizzy"), $rjs_core.PrimitiveSymbol.make("fjord"), $rjs_core.PrimitiveSymbol.make("flack"), $rjs_core.PrimitiveSymbol.make("flail"), $rjs_core.PrimitiveSymbol.make("flair"), $rjs_core.PrimitiveSymbol.make("flake"), $rjs_core.PrimitiveSymbol.make("flaky"), $rjs_core.PrimitiveSymbol.make("flame"), $rjs_core.PrimitiveSymbol.make("flank"), $rjs_core.PrimitiveSymbol.make("flare"), $rjs_core.PrimitiveSymbol.make("flash"), $rjs_core.PrimitiveSymbol.make("flask"), $rjs_core.PrimitiveSymbol.make("fleck"), $rjs_core.PrimitiveSymbol.make("fleet"), $rjs_core.PrimitiveSymbol.make("flesh"), $rjs_core.PrimitiveSymbol.make("flick"), $rjs_core.PrimitiveSymbol.make("flier"), $rjs_core.PrimitiveSymbol.make("fling"), $rjs_core.PrimitiveSymbol.make("flint"), $rjs_core.PrimitiveSymbol.make("flirt"), $rjs_core.PrimitiveSymbol.make("float"), $rjs_core.PrimitiveSymbol.make("flock"), $rjs_core.PrimitiveSymbol.make("flood"), $rjs_core.PrimitiveSymbol.make("floor"), $rjs_core.PrimitiveSymbol.make("flora"), $rjs_core.PrimitiveSymbol.make("floss"), $rjs_core.PrimitiveSymbol.make("flour"), $rjs_core.PrimitiveSymbol.make("flout"), $rjs_core.PrimitiveSymbol.make("flown"), $rjs_core.PrimitiveSymbol.make("fluff"), $rjs_core.PrimitiveSymbol.make("fluid"), $rjs_core.PrimitiveSymbol.make("fluke"), $rjs_core.PrimitiveSymbol.make("flume"), $rjs_core.PrimitiveSymbol.make("flung"), $rjs_core.PrimitiveSymbol.make("flunk"), $rjs_core.PrimitiveSymbol.make("flush"), $rjs_core.PrimitiveSymbol.make("flute"), $rjs_core.PrimitiveSymbol.make("flyer"), $rjs_core.PrimitiveSymbol.make("foamy"), $rjs_core.PrimitiveSymbol.make("focal"), $rjs_core.PrimitiveSymbol.make("focus"), $rjs_core.PrimitiveSymbol.make("foggy"), $rjs_core.PrimitiveSymbol.make("foist"), $rjs_core.PrimitiveSymbol.make("folio"), $rjs_core.PrimitiveSymbol.make("folly"), $rjs_core.PrimitiveSymbol.make("foray"), $rjs_core.PrimitiveSymbol.make("force"), $rjs_core.PrimitiveSymbol.make("forge"), $rjs_core.PrimitiveSymbol.make("forgo"), $rjs_core.PrimitiveSymbol.make("forte"), $rjs_core.PrimitiveSymbol.make("forth"), $rjs_core.PrimitiveSymbol.make("forty"), $rjs_core.PrimitiveSymbol.make("forum"), $rjs_core.PrimitiveSymbol.make("found"), $rjs_core.PrimitiveSymbol.make("foyer"), $rjs_core.PrimitiveSymbol.make("frail"), $rjs_core.PrimitiveSymbol.make("frame"), $rjs_core.PrimitiveSymbol.make("frank"), $rjs_core.PrimitiveSymbol.make("fraud"), $rjs_core.PrimitiveSymbol.make("freak"), $rjs_core.PrimitiveSymbol.make("freed"), $rjs_core.PrimitiveSymbol.make("freer"), $rjs_core.PrimitiveSymbol.make("fresh"), $rjs_core.PrimitiveSymbol.make("friar"), $rjs_core.PrimitiveSymbol.make("fried"), $rjs_core.PrimitiveSymbol.make("frill"), $rjs_core.PrimitiveSymbol.make("frisk"), $rjs_core.PrimitiveSymbol.make("fritz"), $rjs_core.PrimitiveSymbol.make("frock"), $rjs_core.PrimitiveSymbol.make("frond"), $rjs_core.PrimitiveSymbol.make("front"), $rjs_core.PrimitiveSymbol.make("frost"), $rjs_core.PrimitiveSymbol.make("froth"), $rjs_core.PrimitiveSymbol.make("frown"), $rjs_core.PrimitiveSymbol.make("froze"), $rjs_core.PrimitiveSymbol.make("fruit"), $rjs_core.PrimitiveSymbol.make("fudge"), $rjs_core.PrimitiveSymbol.make("fugue"), $rjs_core.PrimitiveSymbol.make("fully"), $rjs_core.PrimitiveSymbol.make("fungi"), $rjs_core.PrimitiveSymbol.make("funky"), $rjs_core.PrimitiveSymbol.make("funny"), $rjs_core.PrimitiveSymbol.make("furor"), $rjs_core.PrimitiveSymbol.make("furry"), $rjs_core.PrimitiveSymbol.make("fussy"), $rjs_core.PrimitiveSymbol.make("fuzzy"), $rjs_core.PrimitiveSymbol.make("gaffe"), $rjs_core.PrimitiveSymbol.make("gaily"), $rjs_core.PrimitiveSymbol.make("gamer"), $rjs_core.PrimitiveSymbol.make("gamma"), $rjs_core.PrimitiveSymbol.make("gamut"), $rjs_core.PrimitiveSymbol.make("gassy"), $rjs_core.PrimitiveSymbol.make("gaudy"), $rjs_core.PrimitiveSymbol.make("gauge"), $rjs_core.PrimitiveSymbol.make("gaunt"), $rjs_core.PrimitiveSymbol.make("gauze"), $rjs_core.PrimitiveSymbol.make("gavel"), $rjs_core.PrimitiveSymbol.make("gawky"), $rjs_core.PrimitiveSymbol.make("gayer"), $rjs_core.PrimitiveSymbol.make("gayly"), $rjs_core.PrimitiveSymbol.make("gazer"), $rjs_core.PrimitiveSymbol.make("gecko"), $rjs_core.PrimitiveSymbol.make("geeky"), $rjs_core.PrimitiveSymbol.make("geese"), $rjs_core.PrimitiveSymbol.make("genie"), $rjs_core.PrimitiveSymbol.make("genre"), $rjs_core.PrimitiveSymbol.make("ghost"), $rjs_core.PrimitiveSymbol.make("ghoul"), $rjs_core.PrimitiveSymbol.make("giant"), $rjs_core.PrimitiveSymbol.make("giddy"), $rjs_core.PrimitiveSymbol.make("gipsy"), $rjs_core.PrimitiveSymbol.make("girly"), $rjs_core.PrimitiveSymbol.make("girth"), $rjs_core.PrimitiveSymbol.make("given"), $rjs_core.PrimitiveSymbol.make("giver"), $rjs_core.PrimitiveSymbol.make("glade"), $rjs_core.PrimitiveSymbol.make("gland"), $rjs_core.PrimitiveSymbol.make("glare"), $rjs_core.PrimitiveSymbol.make("glass"), $rjs_core.PrimitiveSymbol.make("glaze"), $rjs_core.PrimitiveSymbol.make("gleam"), $rjs_core.PrimitiveSymbol.make("glean"), $rjs_core.PrimitiveSymbol.make("glide"), $rjs_core.PrimitiveSymbol.make("glint"), $rjs_core.PrimitiveSymbol.make("gloat"), $rjs_core.PrimitiveSymbol.make("globe"), $rjs_core.PrimitiveSymbol.make("gloom"), $rjs_core.PrimitiveSymbol.make("glory"), $rjs_core.PrimitiveSymbol.make("gloss"), $rjs_core.PrimitiveSymbol.make("glove"), $rjs_core.PrimitiveSymbol.make("glyph"), $rjs_core.PrimitiveSymbol.make("gnash"), $rjs_core.PrimitiveSymbol.make("gnome"), $rjs_core.PrimitiveSymbol.make("godly"), $rjs_core.PrimitiveSymbol.make("going"), $rjs_core.PrimitiveSymbol.make("golem"), $rjs_core.PrimitiveSymbol.make("golly"), $rjs_core.PrimitiveSymbol.make("gonad"), $rjs_core.PrimitiveSymbol.make("goner"), $rjs_core.PrimitiveSymbol.make("goody"), $rjs_core.PrimitiveSymbol.make("gooey"), $rjs_core.PrimitiveSymbol.make("goofy"), $rjs_core.PrimitiveSymbol.make("goose"), $rjs_core.PrimitiveSymbol.make("gorge"), $rjs_core.PrimitiveSymbol.make("gouge"), $rjs_core.PrimitiveSymbol.make("gourd"), $rjs_core.PrimitiveSymbol.make("grace"), $rjs_core.PrimitiveSymbol.make("grade"), $rjs_core.PrimitiveSymbol.make("graft"), $rjs_core.PrimitiveSymbol.make("grail"), $rjs_core.PrimitiveSymbol.make("grain"), $rjs_core.PrimitiveSymbol.make("grand"), $rjs_core.PrimitiveSymbol.make("grant"), $rjs_core.PrimitiveSymbol.make("grape"), $rjs_core.PrimitiveSymbol.make("graph"), $rjs_core.PrimitiveSymbol.make("grasp"), $rjs_core.PrimitiveSymbol.make("grass"), $rjs_core.PrimitiveSymbol.make("grate"), $rjs_core.PrimitiveSymbol.make("grave"), $rjs_core.PrimitiveSymbol.make("gravy"), $rjs_core.PrimitiveSymbol.make("graze"), $rjs_core.PrimitiveSymbol.make("great"), $rjs_core.PrimitiveSymbol.make("greed"), $rjs_core.PrimitiveSymbol.make("green"), $rjs_core.PrimitiveSymbol.make("greet"), $rjs_core.PrimitiveSymbol.make("grief"), $rjs_core.PrimitiveSymbol.make("grill"), $rjs_core.PrimitiveSymbol.make("grime"), $rjs_core.PrimitiveSymbol.make("grimy"), $rjs_core.PrimitiveSymbol.make("grind"), $rjs_core.PrimitiveSymbol.make("gripe"), $rjs_core.PrimitiveSymbol.make("groan"), $rjs_core.PrimitiveSymbol.make("groin"), $rjs_core.PrimitiveSymbol.make("groom"), $rjs_core.PrimitiveSymbol.make("grope"), $rjs_core.PrimitiveSymbol.make("gross"), $rjs_core.PrimitiveSymbol.make("group"), $rjs_core.PrimitiveSymbol.make("grout"), $rjs_core.PrimitiveSymbol.make("grove"), $rjs_core.PrimitiveSymbol.make("growl"), $rjs_core.PrimitiveSymbol.make("grown"), $rjs_core.PrimitiveSymbol.make("gruel"), $rjs_core.PrimitiveSymbol.make("gruff"), $rjs_core.PrimitiveSymbol.make("grunt"), $rjs_core.PrimitiveSymbol.make("guard"), $rjs_core.PrimitiveSymbol.make("guava"), $rjs_core.PrimitiveSymbol.make("guess"), $rjs_core.PrimitiveSymbol.make("guest"), $rjs_core.PrimitiveSymbol.make("guide"), $rjs_core.PrimitiveSymbol.make("guild"), $rjs_core.PrimitiveSymbol.make("guile"), $rjs_core.PrimitiveSymbol.make("guilt"), $rjs_core.PrimitiveSymbol.make("guise"), $rjs_core.PrimitiveSymbol.make("gulch"), $rjs_core.PrimitiveSymbol.make("gully"), $rjs_core.PrimitiveSymbol.make("gumbo"), $rjs_core.PrimitiveSymbol.make("gummy"), $rjs_core.PrimitiveSymbol.make("guppy"), $rjs_core.PrimitiveSymbol.make("gusto"), $rjs_core.PrimitiveSymbol.make("gusty"), $rjs_core.PrimitiveSymbol.make("gypsy"), $rjs_core.PrimitiveSymbol.make("habit"), $rjs_core.PrimitiveSymbol.make("hairy"), $rjs_core.PrimitiveSymbol.make("halve"), $rjs_core.PrimitiveSymbol.make("handy"), $rjs_core.PrimitiveSymbol.make("happy"), $rjs_core.PrimitiveSymbol.make("hardy"), $rjs_core.PrimitiveSymbol.make("harem"), $rjs_core.PrimitiveSymbol.make("harpy"), $rjs_core.PrimitiveSymbol.make("harry"), $rjs_core.PrimitiveSymbol.make("harsh"), $rjs_core.PrimitiveSymbol.make("haste"), $rjs_core.PrimitiveSymbol.make("hasty"), $rjs_core.PrimitiveSymbol.make("hatch"), $rjs_core.PrimitiveSymbol.make("hater"), $rjs_core.PrimitiveSymbol.make("haunt"), $rjs_core.PrimitiveSymbol.make("haute"), $rjs_core.PrimitiveSymbol.make("haven"), $rjs_core.PrimitiveSymbol.make("havoc"), $rjs_core.PrimitiveSymbol.make("hazel"), $rjs_core.PrimitiveSymbol.make("heady"), $rjs_core.PrimitiveSymbol.make("heard"), $rjs_core.PrimitiveSymbol.make("heart"), $rjs_core.PrimitiveSymbol.make("heath"), $rjs_core.PrimitiveSymbol.make("heave"), $rjs_core.PrimitiveSymbol.make("heavy"), $rjs_core.PrimitiveSymbol.make("hedge"), $rjs_core.PrimitiveSymbol.make("hefty"), $rjs_core.PrimitiveSymbol.make("heist"), $rjs_core.PrimitiveSymbol.make("helix"), $rjs_core.PrimitiveSymbol.make("hello"), $rjs_core.PrimitiveSymbol.make("hence"), $rjs_core.PrimitiveSymbol.make("heron"), $rjs_core.PrimitiveSymbol.make("hilly"), $rjs_core.PrimitiveSymbol.make("hinge"), $rjs_core.PrimitiveSymbol.make("hippo"), $rjs_core.PrimitiveSymbol.make("hippy"), $rjs_core.PrimitiveSymbol.make("hitch"), $rjs_core.PrimitiveSymbol.make("hoard"), $rjs_core.PrimitiveSymbol.make("hobby"), $rjs_core.PrimitiveSymbol.make("hoist"), $rjs_core.PrimitiveSymbol.make("holly"), $rjs_core.PrimitiveSymbol.make("homer"), $rjs_core.PrimitiveSymbol.make("honey"), $rjs_core.PrimitiveSymbol.make("honor"), $rjs_core.PrimitiveSymbol.make("horde"), $rjs_core.PrimitiveSymbol.make("horny"), $rjs_core.PrimitiveSymbol.make("horse"), $rjs_core.PrimitiveSymbol.make("hotel"), $rjs_core.PrimitiveSymbol.make("hotly"), $rjs_core.PrimitiveSymbol.make("hound"), $rjs_core.PrimitiveSymbol.make("house"), $rjs_core.PrimitiveSymbol.make("hovel"), $rjs_core.PrimitiveSymbol.make("hover"), $rjs_core.PrimitiveSymbol.make("howdy"), $rjs_core.PrimitiveSymbol.make("human"), $rjs_core.PrimitiveSymbol.make("humid"), $rjs_core.PrimitiveSymbol.make("humor"), $rjs_core.PrimitiveSymbol.make("humph"), $rjs_core.PrimitiveSymbol.make("humus"), $rjs_core.PrimitiveSymbol.make("hunch"), $rjs_core.PrimitiveSymbol.make("hunky"), $rjs_core.PrimitiveSymbol.make("hurry"), $rjs_core.PrimitiveSymbol.make("husky"), $rjs_core.PrimitiveSymbol.make("hussy"), $rjs_core.PrimitiveSymbol.make("hutch"), $rjs_core.PrimitiveSymbol.make("hydro"), $rjs_core.PrimitiveSymbol.make("hyena"), $rjs_core.PrimitiveSymbol.make("hymen"), $rjs_core.PrimitiveSymbol.make("hyper"), $rjs_core.PrimitiveSymbol.make("icily"), $rjs_core.PrimitiveSymbol.make("icing"), $rjs_core.PrimitiveSymbol.make("ideal"), $rjs_core.PrimitiveSymbol.make("idiom"), $rjs_core.PrimitiveSymbol.make("idiot"), $rjs_core.PrimitiveSymbol.make("idler"), $rjs_core.PrimitiveSymbol.make("idyll"), $rjs_core.PrimitiveSymbol.make("igloo"), $rjs_core.PrimitiveSymbol.make("iliac"), $rjs_core.PrimitiveSymbol.make("image"), $rjs_core.PrimitiveSymbol.make("imbue"), $rjs_core.PrimitiveSymbol.make("impel"), $rjs_core.PrimitiveSymbol.make("imply"), $rjs_core.PrimitiveSymbol.make("inane"), $rjs_core.PrimitiveSymbol.make("inbox"), $rjs_core.PrimitiveSymbol.make("incur"), $rjs_core.PrimitiveSymbol.make("index"), $rjs_core.PrimitiveSymbol.make("inept"), $rjs_core.PrimitiveSymbol.make("inert"), $rjs_core.PrimitiveSymbol.make("infer"), $rjs_core.PrimitiveSymbol.make("ingot"), $rjs_core.PrimitiveSymbol.make("inlay"), $rjs_core.PrimitiveSymbol.make("inlet"), $rjs_core.PrimitiveSymbol.make("inner"), $rjs_core.PrimitiveSymbol.make("input"), $rjs_core.PrimitiveSymbol.make("inter"), $rjs_core.PrimitiveSymbol.make("intro"), $rjs_core.PrimitiveSymbol.make("ionic"), $rjs_core.PrimitiveSymbol.make("irate"), $rjs_core.PrimitiveSymbol.make("irony"), $rjs_core.PrimitiveSymbol.make("islet"), $rjs_core.PrimitiveSymbol.make("issue"), $rjs_core.PrimitiveSymbol.make("itchy"), $rjs_core.PrimitiveSymbol.make("ivory"), $rjs_core.PrimitiveSymbol.make("jaunt"), $rjs_core.PrimitiveSymbol.make("jazzy"), $rjs_core.PrimitiveSymbol.make("jelly"), $rjs_core.PrimitiveSymbol.make("jerky"), $rjs_core.PrimitiveSymbol.make("jetty"), $rjs_core.PrimitiveSymbol.make("jewel"), $rjs_core.PrimitiveSymbol.make("jiffy"), $rjs_core.PrimitiveSymbol.make("joint"), $rjs_core.PrimitiveSymbol.make("joist"), $rjs_core.PrimitiveSymbol.make("joker"), $rjs_core.PrimitiveSymbol.make("jolly"), $rjs_core.PrimitiveSymbol.make("joust"), $rjs_core.PrimitiveSymbol.make("judge"), $rjs_core.PrimitiveSymbol.make("juice"), $rjs_core.PrimitiveSymbol.make("juicy"), $rjs_core.PrimitiveSymbol.make("jumbo"), $rjs_core.PrimitiveSymbol.make("jumpy"), $rjs_core.PrimitiveSymbol.make("junta"), $rjs_core.PrimitiveSymbol.make("junto"), $rjs_core.PrimitiveSymbol.make("juror"), $rjs_core.PrimitiveSymbol.make("kappa"), $rjs_core.PrimitiveSymbol.make("karma"), $rjs_core.PrimitiveSymbol.make("kayak"), $rjs_core.PrimitiveSymbol.make("kebab"), $rjs_core.PrimitiveSymbol.make("khaki"), $rjs_core.PrimitiveSymbol.make("kinky"), $rjs_core.PrimitiveSymbol.make("kiosk"), $rjs_core.PrimitiveSymbol.make("kitty"), $rjs_core.PrimitiveSymbol.make("knack"), $rjs_core.PrimitiveSymbol.make("knave"), $rjs_core.PrimitiveSymbol.make("knead"), $rjs_core.PrimitiveSymbol.make("kneed"), $rjs_core.PrimitiveSymbol.make("kneel"), $rjs_core.PrimitiveSymbol.make("knelt"), $rjs_core.PrimitiveSymbol.make("knife"), $rjs_core.PrimitiveSymbol.make("knock"), $rjs_core.PrimitiveSymbol.make("knoll"), $rjs_core.PrimitiveSymbol.make("known"), $rjs_core.PrimitiveSymbol.make("koala"), $rjs_core.PrimitiveSymbol.make("krill"), $rjs_core.PrimitiveSymbol.make("label"), $rjs_core.PrimitiveSymbol.make("labor"), $rjs_core.PrimitiveSymbol.make("laden"), $rjs_core.PrimitiveSymbol.make("ladle"), $rjs_core.PrimitiveSymbol.make("lager"), $rjs_core.PrimitiveSymbol.make("lance"), $rjs_core.PrimitiveSymbol.make("lanky"), $rjs_core.PrimitiveSymbol.make("lapel"), $rjs_core.PrimitiveSymbol.make("lapse"), $rjs_core.PrimitiveSymbol.make("large"), $rjs_core.PrimitiveSymbol.make("larva"), $rjs_core.PrimitiveSymbol.make("lasso"), $rjs_core.PrimitiveSymbol.make("latch"), $rjs_core.PrimitiveSymbol.make("later"), $rjs_core.PrimitiveSymbol.make("lathe"), $rjs_core.PrimitiveSymbol.make("latte"), $rjs_core.PrimitiveSymbol.make("laugh"), $rjs_core.PrimitiveSymbol.make("layer"), $rjs_core.PrimitiveSymbol.make("leach"), $rjs_core.PrimitiveSymbol.make("leafy"), $rjs_core.PrimitiveSymbol.make("leaky"), $rjs_core.PrimitiveSymbol.make("leant"), $rjs_core.PrimitiveSymbol.make("leapt"), $rjs_core.PrimitiveSymbol.make("learn"), $rjs_core.PrimitiveSymbol.make("lease"), $rjs_core.PrimitiveSymbol.make("leash"), $rjs_core.PrimitiveSymbol.make("least"), $rjs_core.PrimitiveSymbol.make("leave"), $rjs_core.PrimitiveSymbol.make("ledge"), $rjs_core.PrimitiveSymbol.make("leech"), $rjs_core.PrimitiveSymbol.make("leery"), $rjs_core.PrimitiveSymbol.make("lefty"), $rjs_core.PrimitiveSymbol.make("legal"), $rjs_core.PrimitiveSymbol.make("leggy"), $rjs_core.PrimitiveSymbol.make("lemon"), $rjs_core.PrimitiveSymbol.make("lemur"), $rjs_core.PrimitiveSymbol.make("leper"), $rjs_core.PrimitiveSymbol.make("level"), $rjs_core.PrimitiveSymbol.make("lever"), $rjs_core.PrimitiveSymbol.make("libel"), $rjs_core.PrimitiveSymbol.make("liege"), $rjs_core.PrimitiveSymbol.make("light"), $rjs_core.PrimitiveSymbol.make("liken"), $rjs_core.PrimitiveSymbol.make("lilac"), $rjs_core.PrimitiveSymbol.make("limbo"), $rjs_core.PrimitiveSymbol.make("limit"), $rjs_core.PrimitiveSymbol.make("linen"), $rjs_core.PrimitiveSymbol.make("liner"), $rjs_core.PrimitiveSymbol.make("lingo"), $rjs_core.PrimitiveSymbol.make("lipid"), $rjs_core.PrimitiveSymbol.make("lithe"), $rjs_core.PrimitiveSymbol.make("liver"), $rjs_core.PrimitiveSymbol.make("livid"), $rjs_core.PrimitiveSymbol.make("llama"), $rjs_core.PrimitiveSymbol.make("loamy"), $rjs_core.PrimitiveSymbol.make("loath"), $rjs_core.PrimitiveSymbol.make("lobby"), $rjs_core.PrimitiveSymbol.make("local"), $rjs_core.PrimitiveSymbol.make("locus"), $rjs_core.PrimitiveSymbol.make("lodge"), $rjs_core.PrimitiveSymbol.make("lofty"), $rjs_core.PrimitiveSymbol.make("logic"), $rjs_core.PrimitiveSymbol.make("login"), $rjs_core.PrimitiveSymbol.make("loopy"), $rjs_core.PrimitiveSymbol.make("loose"), $rjs_core.PrimitiveSymbol.make("lorry"), $rjs_core.PrimitiveSymbol.make("loser"), $rjs_core.PrimitiveSymbol.make("louse"), $rjs_core.PrimitiveSymbol.make("lousy"), $rjs_core.PrimitiveSymbol.make("lover"), $rjs_core.PrimitiveSymbol.make("lower"), $rjs_core.PrimitiveSymbol.make("lowly"), $rjs_core.PrimitiveSymbol.make("loyal"), $rjs_core.PrimitiveSymbol.make("lucid"), $rjs_core.PrimitiveSymbol.make("lucky"), $rjs_core.PrimitiveSymbol.make("lumen"), $rjs_core.PrimitiveSymbol.make("lumpy"), $rjs_core.PrimitiveSymbol.make("lunar"), $rjs_core.PrimitiveSymbol.make("lunch"), $rjs_core.PrimitiveSymbol.make("lunge"), $rjs_core.PrimitiveSymbol.make("lupus"), $rjs_core.PrimitiveSymbol.make("lurch"), $rjs_core.PrimitiveSymbol.make("lurid"), $rjs_core.PrimitiveSymbol.make("lusty"), $rjs_core.PrimitiveSymbol.make("lying"), $rjs_core.PrimitiveSymbol.make("lymph"), $rjs_core.PrimitiveSymbol.make("lynch"), $rjs_core.PrimitiveSymbol.make("lyric"), $rjs_core.PrimitiveSymbol.make("macaw"), $rjs_core.PrimitiveSymbol.make("macho"), $rjs_core.PrimitiveSymbol.make("macro"), $rjs_core.PrimitiveSymbol.make("madam"), $rjs_core.PrimitiveSymbol.make("madly"), $rjs_core.PrimitiveSymbol.make("mafia"), $rjs_core.PrimitiveSymbol.make("magic"), $rjs_core.PrimitiveSymbol.make("magma"), $rjs_core.PrimitiveSymbol.make("maize"), $rjs_core.PrimitiveSymbol.make("major"), $rjs_core.PrimitiveSymbol.make("maker"), $rjs_core.PrimitiveSymbol.make("mambo"), $rjs_core.PrimitiveSymbol.make("mamma"), $rjs_core.PrimitiveSymbol.make("mammy"), $rjs_core.PrimitiveSymbol.make("manga"), $rjs_core.PrimitiveSymbol.make("mange"), $rjs_core.PrimitiveSymbol.make("mango"), $rjs_core.PrimitiveSymbol.make("mangy"), $rjs_core.PrimitiveSymbol.make("mania"), $rjs_core.PrimitiveSymbol.make("manic"), $rjs_core.PrimitiveSymbol.make("manly"), $rjs_core.PrimitiveSymbol.make("manor"), $rjs_core.PrimitiveSymbol.make("maple"), $rjs_core.PrimitiveSymbol.make("march"), $rjs_core.PrimitiveSymbol.make("marry"), $rjs_core.PrimitiveSymbol.make("marsh"), $rjs_core.PrimitiveSymbol.make("mason"), $rjs_core.PrimitiveSymbol.make("masse"), $rjs_core.PrimitiveSymbol.make("match"), $rjs_core.PrimitiveSymbol.make("matey"), $rjs_core.PrimitiveSymbol.make("mauve"), $rjs_core.PrimitiveSymbol.make("maxim"), $rjs_core.PrimitiveSymbol.make("maybe"), $rjs_core.PrimitiveSymbol.make("mayor"), $rjs_core.PrimitiveSymbol.make("mealy"), $rjs_core.PrimitiveSymbol.make("meant"), $rjs_core.PrimitiveSymbol.make("meaty"), $rjs_core.PrimitiveSymbol.make("mecca"), $rjs_core.PrimitiveSymbol.make("medal"), $rjs_core.PrimitiveSymbol.make("media"), $rjs_core.PrimitiveSymbol.make("medic"), $rjs_core.PrimitiveSymbol.make("melee"), $rjs_core.PrimitiveSymbol.make("melon"), $rjs_core.PrimitiveSymbol.make("mercy"), $rjs_core.PrimitiveSymbol.make("merge"), $rjs_core.PrimitiveSymbol.make("merit"), $rjs_core.PrimitiveSymbol.make("merry"), $rjs_core.PrimitiveSymbol.make("metal"), $rjs_core.PrimitiveSymbol.make("meter"), $rjs_core.PrimitiveSymbol.make("metro"), $rjs_core.PrimitiveSymbol.make("micro"), $rjs_core.PrimitiveSymbol.make("midge"), $rjs_core.PrimitiveSymbol.make("midst"), $rjs_core.PrimitiveSymbol.make("might"), $rjs_core.PrimitiveSymbol.make("milky"), $rjs_core.PrimitiveSymbol.make("mimic"), $rjs_core.PrimitiveSymbol.make("mince"), $rjs_core.PrimitiveSymbol.make("miner"), $rjs_core.PrimitiveSymbol.make("minim"), $rjs_core.PrimitiveSymbol.make("minor"), $rjs_core.PrimitiveSymbol.make("minty"), $rjs_core.PrimitiveSymbol.make("minus"), $rjs_core.PrimitiveSymbol.make("mirth"), $rjs_core.PrimitiveSymbol.make("miser"), $rjs_core.PrimitiveSymbol.make("missy"), $rjs_core.PrimitiveSymbol.make("mocha"), $rjs_core.PrimitiveSymbol.make("modal"), $rjs_core.PrimitiveSymbol.make("model"), $rjs_core.PrimitiveSymbol.make("modem"), $rjs_core.PrimitiveSymbol.make("mogul"), $rjs_core.PrimitiveSymbol.make("moist"), $rjs_core.PrimitiveSymbol.make("molar"), $rjs_core.PrimitiveSymbol.make("moldy"), $rjs_core.PrimitiveSymbol.make("money"), $rjs_core.PrimitiveSymbol.make("month"), $rjs_core.PrimitiveSymbol.make("moody"), $rjs_core.PrimitiveSymbol.make("moose"), $rjs_core.PrimitiveSymbol.make("moral"), $rjs_core.PrimitiveSymbol.make("moron"), $rjs_core.PrimitiveSymbol.make("morph"), $rjs_core.PrimitiveSymbol.make("mossy"), $rjs_core.PrimitiveSymbol.make("motel"), $rjs_core.PrimitiveSymbol.make("motif"), $rjs_core.PrimitiveSymbol.make("motor"), $rjs_core.PrimitiveSymbol.make("motto"), $rjs_core.PrimitiveSymbol.make("moult"), $rjs_core.PrimitiveSymbol.make("mound"), $rjs_core.PrimitiveSymbol.make("mount"), $rjs_core.PrimitiveSymbol.make("mourn"), $rjs_core.PrimitiveSymbol.make("mouse"), $rjs_core.PrimitiveSymbol.make("mouth"), $rjs_core.PrimitiveSymbol.make("mover"), $rjs_core.PrimitiveSymbol.make("movie"), $rjs_core.PrimitiveSymbol.make("mower"), $rjs_core.PrimitiveSymbol.make("mucky"), $rjs_core.PrimitiveSymbol.make("mucus"), $rjs_core.PrimitiveSymbol.make("muddy"), $rjs_core.PrimitiveSymbol.make("mulch"), $rjs_core.PrimitiveSymbol.make("mummy"), $rjs_core.PrimitiveSymbol.make("munch"), $rjs_core.PrimitiveSymbol.make("mural"), $rjs_core.PrimitiveSymbol.make("murky"), $rjs_core.PrimitiveSymbol.make("mushy"), $rjs_core.PrimitiveSymbol.make("music"), $rjs_core.PrimitiveSymbol.make("musky"), $rjs_core.PrimitiveSymbol.make("musty"), $rjs_core.PrimitiveSymbol.make("myrrh"), $rjs_core.PrimitiveSymbol.make("nadir"), $rjs_core.PrimitiveSymbol.make("naive"), $rjs_core.PrimitiveSymbol.make("nanny"), $rjs_core.PrimitiveSymbol.make("nasal"), $rjs_core.PrimitiveSymbol.make("nasty"), $rjs_core.PrimitiveSymbol.make("natal"), $rjs_core.PrimitiveSymbol.make("naval"), $rjs_core.PrimitiveSymbol.make("navel"), $rjs_core.PrimitiveSymbol.make("needy"), $rjs_core.PrimitiveSymbol.make("neigh"), $rjs_core.PrimitiveSymbol.make("nerdy"), $rjs_core.PrimitiveSymbol.make("nerve"), $rjs_core.PrimitiveSymbol.make("never"), $rjs_core.PrimitiveSymbol.make("newer"), $rjs_core.PrimitiveSymbol.make("newly"), $rjs_core.PrimitiveSymbol.make("nicer"), $rjs_core.PrimitiveSymbol.make("niche"), $rjs_core.PrimitiveSymbol.make("niece"), $rjs_core.PrimitiveSymbol.make("night"), $rjs_core.PrimitiveSymbol.make("ninja"), $rjs_core.PrimitiveSymbol.make("ninny"), $rjs_core.PrimitiveSymbol.make("ninth"), $rjs_core.PrimitiveSymbol.make("noble"), $rjs_core.PrimitiveSymbol.make("nobly"), $rjs_core.PrimitiveSymbol.make("noise"), $rjs_core.PrimitiveSymbol.make("noisy"), $rjs_core.PrimitiveSymbol.make("nomad"), $rjs_core.PrimitiveSymbol.make("noose"), $rjs_core.PrimitiveSymbol.make("north"), $rjs_core.PrimitiveSymbol.make("nosey"), $rjs_core.PrimitiveSymbol.make("notch"), $rjs_core.PrimitiveSymbol.make("novel"), $rjs_core.PrimitiveSymbol.make("nudge"), $rjs_core.PrimitiveSymbol.make("nurse"), $rjs_core.PrimitiveSymbol.make("nutty"), $rjs_core.PrimitiveSymbol.make("nylon"), $rjs_core.PrimitiveSymbol.make("nymph"), $rjs_core.PrimitiveSymbol.make("oaken"), $rjs_core.PrimitiveSymbol.make("obese"), $rjs_core.PrimitiveSymbol.make("occur"), $rjs_core.PrimitiveSymbol.make("ocean"), $rjs_core.PrimitiveSymbol.make("octal"), $rjs_core.PrimitiveSymbol.make("octet"), $rjs_core.PrimitiveSymbol.make("odder"), $rjs_core.PrimitiveSymbol.make("oddly"), $rjs_core.PrimitiveSymbol.make("offal"), $rjs_core.PrimitiveSymbol.make("offer"), $rjs_core.PrimitiveSymbol.make("often"), $rjs_core.PrimitiveSymbol.make("olden"), $rjs_core.PrimitiveSymbol.make("older"), $rjs_core.PrimitiveSymbol.make("olive"), $rjs_core.PrimitiveSymbol.make("ombre"), $rjs_core.PrimitiveSymbol.make("omega"), $rjs_core.PrimitiveSymbol.make("onion"), $rjs_core.PrimitiveSymbol.make("onset"), $rjs_core.PrimitiveSymbol.make("opera"), $rjs_core.PrimitiveSymbol.make("opine"), $rjs_core.PrimitiveSymbol.make("opium"), $rjs_core.PrimitiveSymbol.make("optic"), $rjs_core.PrimitiveSymbol.make("orbit"), $rjs_core.PrimitiveSymbol.make("order"), $rjs_core.PrimitiveSymbol.make("organ"), $rjs_core.PrimitiveSymbol.make("other"), $rjs_core.PrimitiveSymbol.make("otter"), $rjs_core.PrimitiveSymbol.make("ought"), $rjs_core.PrimitiveSymbol.make("ounce"), $rjs_core.PrimitiveSymbol.make("outdo"), $rjs_core.PrimitiveSymbol.make("outer"), $rjs_core.PrimitiveSymbol.make("outgo"), $rjs_core.PrimitiveSymbol.make("ovary"), $rjs_core.PrimitiveSymbol.make("ovate"), $rjs_core.PrimitiveSymbol.make("overt"), $rjs_core.PrimitiveSymbol.make("ovine"), $rjs_core.PrimitiveSymbol.make("ovoid"), $rjs_core.PrimitiveSymbol.make("owing"), $rjs_core.PrimitiveSymbol.make("owner"), $rjs_core.PrimitiveSymbol.make("oxide"), $rjs_core.PrimitiveSymbol.make("ozone"), $rjs_core.PrimitiveSymbol.make("paddy"), $rjs_core.PrimitiveSymbol.make("pagan"), $rjs_core.PrimitiveSymbol.make("paint"), $rjs_core.PrimitiveSymbol.make("paler"), $rjs_core.PrimitiveSymbol.make("palsy"), $rjs_core.PrimitiveSymbol.make("panel"), $rjs_core.PrimitiveSymbol.make("panic"), $rjs_core.PrimitiveSymbol.make("pansy"), $rjs_core.PrimitiveSymbol.make("papal"), $rjs_core.PrimitiveSymbol.make("paper"), $rjs_core.PrimitiveSymbol.make("parer"), $rjs_core.PrimitiveSymbol.make("parka"), $rjs_core.PrimitiveSymbol.make("parry"), $rjs_core.PrimitiveSymbol.make("parse"), $rjs_core.PrimitiveSymbol.make("party"), $rjs_core.PrimitiveSymbol.make("pasta"), $rjs_core.PrimitiveSymbol.make("paste"), $rjs_core.PrimitiveSymbol.make("pasty"), $rjs_core.PrimitiveSymbol.make("patch"), $rjs_core.PrimitiveSymbol.make("patio"), $rjs_core.PrimitiveSymbol.make("patsy"), $rjs_core.PrimitiveSymbol.make("patty"), $rjs_core.PrimitiveSymbol.make("pause"), $rjs_core.PrimitiveSymbol.make("payee"), $rjs_core.PrimitiveSymbol.make("payer"), $rjs_core.PrimitiveSymbol.make("peace"), $rjs_core.PrimitiveSymbol.make("peach"), $rjs_core.PrimitiveSymbol.make("pearl"), $rjs_core.PrimitiveSymbol.make("pecan"), $rjs_core.PrimitiveSymbol.make("pedal"), $rjs_core.PrimitiveSymbol.make("penal"), $rjs_core.PrimitiveSymbol.make("pence"), $rjs_core.PrimitiveSymbol.make("penne"), $rjs_core.PrimitiveSymbol.make("penny"), $rjs_core.PrimitiveSymbol.make("perch"), $rjs_core.PrimitiveSymbol.make("peril"), $rjs_core.PrimitiveSymbol.make("perky"), $rjs_core.PrimitiveSymbol.make("pesky"), $rjs_core.PrimitiveSymbol.make("pesto"), $rjs_core.PrimitiveSymbol.make("petal"), $rjs_core.PrimitiveSymbol.make("petty"), $rjs_core.PrimitiveSymbol.make("phase"), $rjs_core.PrimitiveSymbol.make("phone"), $rjs_core.PrimitiveSymbol.make("phony"), $rjs_core.PrimitiveSymbol.make("photo"), $rjs_core.PrimitiveSymbol.make("piano"), $rjs_core.PrimitiveSymbol.make("picky"), $rjs_core.PrimitiveSymbol.make("piece"), $rjs_core.PrimitiveSymbol.make("piety"), $rjs_core.PrimitiveSymbol.make("piggy"), $rjs_core.PrimitiveSymbol.make("pilot"), $rjs_core.PrimitiveSymbol.make("pinch"), $rjs_core.PrimitiveSymbol.make("piney"), $rjs_core.PrimitiveSymbol.make("pinky"), $rjs_core.PrimitiveSymbol.make("pinto"), $rjs_core.PrimitiveSymbol.make("piper"), $rjs_core.PrimitiveSymbol.make("pique"), $rjs_core.PrimitiveSymbol.make("pitch"), $rjs_core.PrimitiveSymbol.make("pithy"), $rjs_core.PrimitiveSymbol.make("pivot"), $rjs_core.PrimitiveSymbol.make("pixel"), $rjs_core.PrimitiveSymbol.make("pixie"), $rjs_core.PrimitiveSymbol.make("pizza"), $rjs_core.PrimitiveSymbol.make("place"), $rjs_core.PrimitiveSymbol.make("plaid"), $rjs_core.PrimitiveSymbol.make("plain"), $rjs_core.PrimitiveSymbol.make("plait"), $rjs_core.PrimitiveSymbol.make("plane"), $rjs_core.PrimitiveSymbol.make("plank"), $rjs_core.PrimitiveSymbol.make("plant"), $rjs_core.PrimitiveSymbol.make("plate"), $rjs_core.PrimitiveSymbol.make("plaza"), $rjs_core.PrimitiveSymbol.make("plead"), $rjs_core.PrimitiveSymbol.make("pleat"), $rjs_core.PrimitiveSymbol.make("plied"), $rjs_core.PrimitiveSymbol.make("plier"), $rjs_core.PrimitiveSymbol.make("pluck"), $rjs_core.PrimitiveSymbol.make("plumb"), $rjs_core.PrimitiveSymbol.make("plume"), $rjs_core.PrimitiveSymbol.make("plump"), $rjs_core.PrimitiveSymbol.make("plunk"), $rjs_core.PrimitiveSymbol.make("plush"), $rjs_core.PrimitiveSymbol.make("poesy"), $rjs_core.PrimitiveSymbol.make("point"), $rjs_core.PrimitiveSymbol.make("poise"), $rjs_core.PrimitiveSymbol.make("poker"), $rjs_core.PrimitiveSymbol.make("polar"), $rjs_core.PrimitiveSymbol.make("polka"), $rjs_core.PrimitiveSymbol.make("polyp"), $rjs_core.PrimitiveSymbol.make("pooch"), $rjs_core.PrimitiveSymbol.make("poppy"), $rjs_core.PrimitiveSymbol.make("porch"), $rjs_core.PrimitiveSymbol.make("poser"), $rjs_core.PrimitiveSymbol.make("posit"), $rjs_core.PrimitiveSymbol.make("posse"), $rjs_core.PrimitiveSymbol.make("pouch"), $rjs_core.PrimitiveSymbol.make("pound"), $rjs_core.PrimitiveSymbol.make("pouty"), $rjs_core.PrimitiveSymbol.make("power"), $rjs_core.PrimitiveSymbol.make("prank"), $rjs_core.PrimitiveSymbol.make("prawn"), $rjs_core.PrimitiveSymbol.make("preen"), $rjs_core.PrimitiveSymbol.make("press"), $rjs_core.PrimitiveSymbol.make("price"), $rjs_core.PrimitiveSymbol.make("prick"), $rjs_core.PrimitiveSymbol.make("pride"), $rjs_core.PrimitiveSymbol.make("pried"), $rjs_core.PrimitiveSymbol.make("prime"), $rjs_core.PrimitiveSymbol.make("primo"), $rjs_core.PrimitiveSymbol.make("print"), $rjs_core.PrimitiveSymbol.make("prior"), $rjs_core.PrimitiveSymbol.make("prism"), $rjs_core.PrimitiveSymbol.make("privy"), $rjs_core.PrimitiveSymbol.make("prize"), $rjs_core.PrimitiveSymbol.make("probe"), $rjs_core.PrimitiveSymbol.make("prone"), $rjs_core.PrimitiveSymbol.make("prong"), $rjs_core.PrimitiveSymbol.make("proof"), $rjs_core.PrimitiveSymbol.make("prose"), $rjs_core.PrimitiveSymbol.make("proud"), $rjs_core.PrimitiveSymbol.make("prove"), $rjs_core.PrimitiveSymbol.make("prowl"), $rjs_core.PrimitiveSymbol.make("proxy"), $rjs_core.PrimitiveSymbol.make("prude"), $rjs_core.PrimitiveSymbol.make("prune"), $rjs_core.PrimitiveSymbol.make("psalm"), $rjs_core.PrimitiveSymbol.make("pubic"), $rjs_core.PrimitiveSymbol.make("pudgy"), $rjs_core.PrimitiveSymbol.make("puffy"), $rjs_core.PrimitiveSymbol.make("pulpy"), $rjs_core.PrimitiveSymbol.make("pulse"), $rjs_core.PrimitiveSymbol.make("punch"), $rjs_core.PrimitiveSymbol.make("pupal"), $rjs_core.PrimitiveSymbol.make("pupil"), $rjs_core.PrimitiveSymbol.make("puppy"), $rjs_core.PrimitiveSymbol.make("puree"), $rjs_core.PrimitiveSymbol.make("purer"), $rjs_core.PrimitiveSymbol.make("purge"), $rjs_core.PrimitiveSymbol.make("purse"), $rjs_core.PrimitiveSymbol.make("pushy"), $rjs_core.PrimitiveSymbol.make("putty"), $rjs_core.PrimitiveSymbol.make("pygmy"), $rjs_core.PrimitiveSymbol.make("quack"), $rjs_core.PrimitiveSymbol.make("quail"), $rjs_core.PrimitiveSymbol.make("quake"), $rjs_core.PrimitiveSymbol.make("qualm"), $rjs_core.PrimitiveSymbol.make("quark"), $rjs_core.PrimitiveSymbol.make("quart"), $rjs_core.PrimitiveSymbol.make("quash"), $rjs_core.PrimitiveSymbol.make("quasi"), $rjs_core.PrimitiveSymbol.make("queen"), $rjs_core.PrimitiveSymbol.make("queer"), $rjs_core.PrimitiveSymbol.make("quell"), $rjs_core.PrimitiveSymbol.make("query"), $rjs_core.PrimitiveSymbol.make("quest"), $rjs_core.PrimitiveSymbol.make("queue"), $rjs_core.PrimitiveSymbol.make("quick"), $rjs_core.PrimitiveSymbol.make("quiet"), $rjs_core.PrimitiveSymbol.make("quill"), $rjs_core.PrimitiveSymbol.make("quilt"), $rjs_core.PrimitiveSymbol.make("quirk"), $rjs_core.PrimitiveSymbol.make("quite"), $rjs_core.PrimitiveSymbol.make("quota"), $rjs_core.PrimitiveSymbol.make("quote"), $rjs_core.PrimitiveSymbol.make("quoth"), $rjs_core.PrimitiveSymbol.make("rabbi"), $rjs_core.PrimitiveSymbol.make("rabid"), $rjs_core.PrimitiveSymbol.make("racer"), $rjs_core.PrimitiveSymbol.make("radar"), $rjs_core.PrimitiveSymbol.make("radii"), $rjs_core.PrimitiveSymbol.make("radio"), $rjs_core.PrimitiveSymbol.make("rainy"), $rjs_core.PrimitiveSymbol.make("raise"), $rjs_core.PrimitiveSymbol.make("rajah"), $rjs_core.PrimitiveSymbol.make("rally"), $rjs_core.PrimitiveSymbol.make("ralph"), $rjs_core.PrimitiveSymbol.make("ramen"), $rjs_core.PrimitiveSymbol.make("ranch"), $rjs_core.PrimitiveSymbol.make("randy"), $rjs_core.PrimitiveSymbol.make("range"), $rjs_core.PrimitiveSymbol.make("rapid"), $rjs_core.PrimitiveSymbol.make("rarer"), $rjs_core.PrimitiveSymbol.make("raspy"), $rjs_core.PrimitiveSymbol.make("ratio"), $rjs_core.PrimitiveSymbol.make("ratty"), $rjs_core.PrimitiveSymbol.make("raven"), $rjs_core.PrimitiveSymbol.make("rayon"), $rjs_core.PrimitiveSymbol.make("razor"), $rjs_core.PrimitiveSymbol.make("reach"), $rjs_core.PrimitiveSymbol.make("react"), $rjs_core.PrimitiveSymbol.make("ready"), $rjs_core.PrimitiveSymbol.make("realm"), $rjs_core.PrimitiveSymbol.make("rearm"), $rjs_core.PrimitiveSymbol.make("rebar"), $rjs_core.PrimitiveSymbol.make("rebel"), $rjs_core.PrimitiveSymbol.make("rebus"), $rjs_core.PrimitiveSymbol.make("rebut"), $rjs_core.PrimitiveSymbol.make("recap"), $rjs_core.PrimitiveSymbol.make("recur"), $rjs_core.PrimitiveSymbol.make("recut"), $rjs_core.PrimitiveSymbol.make("reedy"), $rjs_core.PrimitiveSymbol.make("refer"), $rjs_core.PrimitiveSymbol.make("refit"), $rjs_core.PrimitiveSymbol.make("regal"), $rjs_core.PrimitiveSymbol.make("rehab"), $rjs_core.PrimitiveSymbol.make("reign"), $rjs_core.PrimitiveSymbol.make("relax"), $rjs_core.PrimitiveSymbol.make("relay"), $rjs_core.PrimitiveSymbol.make("relic"), $rjs_core.PrimitiveSymbol.make("remit"), $rjs_core.PrimitiveSymbol.make("renal"), $rjs_core.PrimitiveSymbol.make("renew"), $rjs_core.PrimitiveSymbol.make("repay"), $rjs_core.PrimitiveSymbol.make("repel"), $rjs_core.PrimitiveSymbol.make("reply"), $rjs_core.PrimitiveSymbol.make("rerun"), $rjs_core.PrimitiveSymbol.make("reset"), $rjs_core.PrimitiveSymbol.make("resin"), $rjs_core.PrimitiveSymbol.make("retch"), $rjs_core.PrimitiveSymbol.make("retro"), $rjs_core.PrimitiveSymbol.make("retry"), $rjs_core.PrimitiveSymbol.make("reuse"), $rjs_core.PrimitiveSymbol.make("revel"), $rjs_core.PrimitiveSymbol.make("revue"), $rjs_core.PrimitiveSymbol.make("rhino"), $rjs_core.PrimitiveSymbol.make("rhyme"), $rjs_core.PrimitiveSymbol.make("rider"), $rjs_core.PrimitiveSymbol.make("ridge"), $rjs_core.PrimitiveSymbol.make("rifle"), $rjs_core.PrimitiveSymbol.make("right"), $rjs_core.PrimitiveSymbol.make("rigid"), $rjs_core.PrimitiveSymbol.make("rigor"), $rjs_core.PrimitiveSymbol.make("rinse"), $rjs_core.PrimitiveSymbol.make("ripen"), $rjs_core.PrimitiveSymbol.make("riper"), $rjs_core.PrimitiveSymbol.make("risen"), $rjs_core.PrimitiveSymbol.make("riser"), $rjs_core.PrimitiveSymbol.make("risky"), $rjs_core.PrimitiveSymbol.make("rival"), $rjs_core.PrimitiveSymbol.make("river"), $rjs_core.PrimitiveSymbol.make("rivet"), $rjs_core.PrimitiveSymbol.make("roach"), $rjs_core.PrimitiveSymbol.make("roast"), $rjs_core.PrimitiveSymbol.make("robin"), $rjs_core.PrimitiveSymbol.make("robot"), $rjs_core.PrimitiveSymbol.make("rocky"), $rjs_core.PrimitiveSymbol.make("rodeo"), $rjs_core.PrimitiveSymbol.make("roger"), $rjs_core.PrimitiveSymbol.make("rogue"), $rjs_core.PrimitiveSymbol.make("roomy"), $rjs_core.PrimitiveSymbol.make("roost"), $rjs_core.PrimitiveSymbol.make("rotor"), $rjs_core.PrimitiveSymbol.make("rouge"), $rjs_core.PrimitiveSymbol.make("rough"), $rjs_core.PrimitiveSymbol.make("round"), $rjs_core.PrimitiveSymbol.make("rouse"), $rjs_core.PrimitiveSymbol.make("route"), $rjs_core.PrimitiveSymbol.make("rover"), $rjs_core.PrimitiveSymbol.make("rowdy"), $rjs_core.PrimitiveSymbol.make("rower"), $rjs_core.PrimitiveSymbol.make("royal"), $rjs_core.PrimitiveSymbol.make("ruddy"), $rjs_core.PrimitiveSymbol.make("ruder"), $rjs_core.PrimitiveSymbol.make("rugby"), $rjs_core.PrimitiveSymbol.make("ruler"), $rjs_core.PrimitiveSymbol.make("rumba"), $rjs_core.PrimitiveSymbol.make("rumor"), $rjs_core.PrimitiveSymbol.make("rupee"), $rjs_core.PrimitiveSymbol.make("rural"), $rjs_core.PrimitiveSymbol.make("rusty"), $rjs_core.PrimitiveSymbol.make("sadly"), $rjs_core.PrimitiveSymbol.make("safer"), $rjs_core.PrimitiveSymbol.make("saint"), $rjs_core.PrimitiveSymbol.make("salad"), $rjs_core.PrimitiveSymbol.make("sally"), $rjs_core.PrimitiveSymbol.make("salon"), $rjs_core.PrimitiveSymbol.make("salsa"), $rjs_core.PrimitiveSymbol.make("salty"), $rjs_core.PrimitiveSymbol.make("salve"), $rjs_core.PrimitiveSymbol.make("salvo"), $rjs_core.PrimitiveSymbol.make("sandy"), $rjs_core.PrimitiveSymbol.make("saner"), $rjs_core.PrimitiveSymbol.make("sappy"), $rjs_core.PrimitiveSymbol.make("sassy"), $rjs_core.PrimitiveSymbol.make("satin"), $rjs_core.PrimitiveSymbol.make("satyr"), $rjs_core.PrimitiveSymbol.make("sauce"), $rjs_core.PrimitiveSymbol.make("saucy"), $rjs_core.PrimitiveSymbol.make("sauna"), $rjs_core.PrimitiveSymbol.make("saute"), $rjs_core.PrimitiveSymbol.make("savor"), $rjs_core.PrimitiveSymbol.make("savoy"), $rjs_core.PrimitiveSymbol.make("savvy"), $rjs_core.PrimitiveSymbol.make("scald"), $rjs_core.PrimitiveSymbol.make("scale"), $rjs_core.PrimitiveSymbol.make("scalp"), $rjs_core.PrimitiveSymbol.make("scaly"), $rjs_core.PrimitiveSymbol.make("scamp"), $rjs_core.PrimitiveSymbol.make("scant"), $rjs_core.PrimitiveSymbol.make("scare"), $rjs_core.PrimitiveSymbol.make("scarf"), $rjs_core.PrimitiveSymbol.make("scary"), $rjs_core.PrimitiveSymbol.make("scene"), $rjs_core.PrimitiveSymbol.make("scent"), $rjs_core.PrimitiveSymbol.make("scion"), $rjs_core.PrimitiveSymbol.make("scoff"), $rjs_core.PrimitiveSymbol.make("scold"), $rjs_core.PrimitiveSymbol.make("scone"), $rjs_core.PrimitiveSymbol.make("scoop"), $rjs_core.PrimitiveSymbol.make("scope"), $rjs_core.PrimitiveSymbol.make("score"), $rjs_core.PrimitiveSymbol.make("scorn"), $rjs_core.PrimitiveSymbol.make("scour"), $rjs_core.PrimitiveSymbol.make("scout"), $rjs_core.PrimitiveSymbol.make("scowl"), $rjs_core.PrimitiveSymbol.make("scram"), $rjs_core.PrimitiveSymbol.make("scrap"), $rjs_core.PrimitiveSymbol.make("scree"), $rjs_core.PrimitiveSymbol.make("screw"), $rjs_core.PrimitiveSymbol.make("scrub"), $rjs_core.PrimitiveSymbol.make("scrum"), $rjs_core.PrimitiveSymbol.make("scuba"), $rjs_core.PrimitiveSymbol.make("sedan"), $rjs_core.PrimitiveSymbol.make("seedy"), $rjs_core.PrimitiveSymbol.make("segue"), $rjs_core.PrimitiveSymbol.make("seize"), $rjs_core.PrimitiveSymbol.make("semen"), $rjs_core.PrimitiveSymbol.make("sense"), $rjs_core.PrimitiveSymbol.make("sepia"), $rjs_core.PrimitiveSymbol.make("serif"), $rjs_core.PrimitiveSymbol.make("serum"), $rjs_core.PrimitiveSymbol.make("serve"), $rjs_core.PrimitiveSymbol.make("setup"), $rjs_core.PrimitiveSymbol.make("seven"), $rjs_core.PrimitiveSymbol.make("sever"), $rjs_core.PrimitiveSymbol.make("sewer"), $rjs_core.PrimitiveSymbol.make("shack"), $rjs_core.PrimitiveSymbol.make("shade"), $rjs_core.PrimitiveSymbol.make("shady"), $rjs_core.PrimitiveSymbol.make("shaft"), $rjs_core.PrimitiveSymbol.make("shake"), $rjs_core.PrimitiveSymbol.make("shaky"), $rjs_core.PrimitiveSymbol.make("shale"), $rjs_core.PrimitiveSymbol.make("shall"), $rjs_core.PrimitiveSymbol.make("shalt"), $rjs_core.PrimitiveSymbol.make("shame"), $rjs_core.PrimitiveSymbol.make("shank"), $rjs_core.PrimitiveSymbol.make("shape"), $rjs_core.PrimitiveSymbol.make("shard"), $rjs_core.PrimitiveSymbol.make("share"), $rjs_core.PrimitiveSymbol.make("shark"), $rjs_core.PrimitiveSymbol.make("sharp"), $rjs_core.PrimitiveSymbol.make("shave"), $rjs_core.PrimitiveSymbol.make("shawl"), $rjs_core.PrimitiveSymbol.make("shear"), $rjs_core.PrimitiveSymbol.make("sheen"), $rjs_core.PrimitiveSymbol.make("sheep"), $rjs_core.PrimitiveSymbol.make("sheer"), $rjs_core.PrimitiveSymbol.make("sheet"), $rjs_core.PrimitiveSymbol.make("sheik"), $rjs_core.PrimitiveSymbol.make("shelf"), $rjs_core.PrimitiveSymbol.make("shell"), $rjs_core.PrimitiveSymbol.make("shied"), $rjs_core.PrimitiveSymbol.make("shift"), $rjs_core.PrimitiveSymbol.make("shine"), $rjs_core.PrimitiveSymbol.make("shiny"), $rjs_core.PrimitiveSymbol.make("shire"), $rjs_core.PrimitiveSymbol.make("shirk"), $rjs_core.PrimitiveSymbol.make("shirt"), $rjs_core.PrimitiveSymbol.make("shoal"), $rjs_core.PrimitiveSymbol.make("shock"), $rjs_core.PrimitiveSymbol.make("shone"), $rjs_core.PrimitiveSymbol.make("shook"), $rjs_core.PrimitiveSymbol.make("shoot"), $rjs_core.PrimitiveSymbol.make("shore"), $rjs_core.PrimitiveSymbol.make("shorn"), $rjs_core.PrimitiveSymbol.make("short"), $rjs_core.PrimitiveSymbol.make("shout"), $rjs_core.PrimitiveSymbol.make("shove"), $rjs_core.PrimitiveSymbol.make("shown"), $rjs_core.PrimitiveSymbol.make("showy"), $rjs_core.PrimitiveSymbol.make("shrew"), $rjs_core.PrimitiveSymbol.make("shrub"), $rjs_core.PrimitiveSymbol.make("shrug"), $rjs_core.PrimitiveSymbol.make("shuck"), $rjs_core.PrimitiveSymbol.make("shunt"), $rjs_core.PrimitiveSymbol.make("shush"), $rjs_core.PrimitiveSymbol.make("shyly"), $rjs_core.PrimitiveSymbol.make("siege"), $rjs_core.PrimitiveSymbol.make("sieve"), $rjs_core.PrimitiveSymbol.make("sight"), $rjs_core.PrimitiveSymbol.make("sigma"), $rjs_core.PrimitiveSymbol.make("silky"), $rjs_core.PrimitiveSymbol.make("silly"), $rjs_core.PrimitiveSymbol.make("since"), $rjs_core.PrimitiveSymbol.make("sinew"), $rjs_core.PrimitiveSymbol.make("singe"), $rjs_core.PrimitiveSymbol.make("siren"), $rjs_core.PrimitiveSymbol.make("sissy"), $rjs_core.PrimitiveSymbol.make("sixth"), $rjs_core.PrimitiveSymbol.make("sixty"), $rjs_core.PrimitiveSymbol.make("skate"), $rjs_core.PrimitiveSymbol.make("skier"), $rjs_core.PrimitiveSymbol.make("skiff"), $rjs_core.PrimitiveSymbol.make("skill"), $rjs_core.PrimitiveSymbol.make("skimp"), $rjs_core.PrimitiveSymbol.make("skirt"), $rjs_core.PrimitiveSymbol.make("skulk"), $rjs_core.PrimitiveSymbol.make("skull"), $rjs_core.PrimitiveSymbol.make("skunk"), $rjs_core.PrimitiveSymbol.make("slack"), $rjs_core.PrimitiveSymbol.make("slain"), $rjs_core.PrimitiveSymbol.make("slang"), $rjs_core.PrimitiveSymbol.make("slant"), $rjs_core.PrimitiveSymbol.make("slash"), $rjs_core.PrimitiveSymbol.make("slate"), $rjs_core.PrimitiveSymbol.make("slave"), $rjs_core.PrimitiveSymbol.make("sleek"), $rjs_core.PrimitiveSymbol.make("sleep"), $rjs_core.PrimitiveSymbol.make("sleet"), $rjs_core.PrimitiveSymbol.make("slept"), $rjs_core.PrimitiveSymbol.make("slice"), $rjs_core.PrimitiveSymbol.make("slick"), $rjs_core.PrimitiveSymbol.make("slide"), $rjs_core.PrimitiveSymbol.make("slime"), $rjs_core.PrimitiveSymbol.make("slimy"), $rjs_core.PrimitiveSymbol.make("sling"), $rjs_core.PrimitiveSymbol.make("slink"), $rjs_core.PrimitiveSymbol.make("sloop"), $rjs_core.PrimitiveSymbol.make("slope"), $rjs_core.PrimitiveSymbol.make("slosh"), $rjs_core.PrimitiveSymbol.make("sloth"), $rjs_core.PrimitiveSymbol.make("slump"), $rjs_core.PrimitiveSymbol.make("slung"), $rjs_core.PrimitiveSymbol.make("slunk"), $rjs_core.PrimitiveSymbol.make("slurp"), $rjs_core.PrimitiveSymbol.make("slush"), $rjs_core.PrimitiveSymbol.make("slyly"), $rjs_core.PrimitiveSymbol.make("smack"), $rjs_core.PrimitiveSymbol.make("small"), $rjs_core.PrimitiveSymbol.make("smart"), $rjs_core.PrimitiveSymbol.make("smash"), $rjs_core.PrimitiveSymbol.make("smear"), $rjs_core.PrimitiveSymbol.make("smell"), $rjs_core.PrimitiveSymbol.make("smelt"), $rjs_core.PrimitiveSymbol.make("smile"), $rjs_core.PrimitiveSymbol.make("smirk"), $rjs_core.PrimitiveSymbol.make("smite"), $rjs_core.PrimitiveSymbol.make("smith"), $rjs_core.PrimitiveSymbol.make("smock"), $rjs_core.PrimitiveSymbol.make("smoke"), $rjs_core.PrimitiveSymbol.make("smoky"), $rjs_core.PrimitiveSymbol.make("smote"), $rjs_core.PrimitiveSymbol.make("snack"), $rjs_core.PrimitiveSymbol.make("snail"), $rjs_core.PrimitiveSymbol.make("snake"), $rjs_core.PrimitiveSymbol.make("snaky"), $rjs_core.PrimitiveSymbol.make("snare"), $rjs_core.PrimitiveSymbol.make("snarl"), $rjs_core.PrimitiveSymbol.make("sneak"), $rjs_core.PrimitiveSymbol.make("sneer"), $rjs_core.PrimitiveSymbol.make("snide"), $rjs_core.PrimitiveSymbol.make("sniff"), $rjs_core.PrimitiveSymbol.make("snipe"), $rjs_core.PrimitiveSymbol.make("snoop"), $rjs_core.PrimitiveSymbol.make("snore"), $rjs_core.PrimitiveSymbol.make("snort"), $rjs_core.PrimitiveSymbol.make("snout"), $rjs_core.PrimitiveSymbol.make("snowy"), $rjs_core.PrimitiveSymbol.make("snuck"), $rjs_core.PrimitiveSymbol.make("snuff"), $rjs_core.PrimitiveSymbol.make("soapy"), $rjs_core.PrimitiveSymbol.make("sober"), $rjs_core.PrimitiveSymbol.make("soggy"), $rjs_core.PrimitiveSymbol.make("solar"), $rjs_core.PrimitiveSymbol.make("solid"), $rjs_core.PrimitiveSymbol.make("solve"), $rjs_core.PrimitiveSymbol.make("sonar"), $rjs_core.PrimitiveSymbol.make("sonic"), $rjs_core.PrimitiveSymbol.make("sooth"), $rjs_core.PrimitiveSymbol.make("sooty"), $rjs_core.PrimitiveSymbol.make("sorry"), $rjs_core.PrimitiveSymbol.make("sound"), $rjs_core.PrimitiveSymbol.make("south"), $rjs_core.PrimitiveSymbol.make("sower"), $rjs_core.PrimitiveSymbol.make("space"), $rjs_core.PrimitiveSymbol.make("spade"), $rjs_core.PrimitiveSymbol.make("spank"), $rjs_core.PrimitiveSymbol.make("spare"), $rjs_core.PrimitiveSymbol.make("spark"), $rjs_core.PrimitiveSymbol.make("spasm"), $rjs_core.PrimitiveSymbol.make("spawn"), $rjs_core.PrimitiveSymbol.make("speak"), $rjs_core.PrimitiveSymbol.make("spear"), $rjs_core.PrimitiveSymbol.make("speck"), $rjs_core.PrimitiveSymbol.make("speed"), $rjs_core.PrimitiveSymbol.make("spell"), $rjs_core.PrimitiveSymbol.make("spelt"), $rjs_core.PrimitiveSymbol.make("spend"), $rjs_core.PrimitiveSymbol.make("spent"), $rjs_core.PrimitiveSymbol.make("sperm"), $rjs_core.PrimitiveSymbol.make("spice"), $rjs_core.PrimitiveSymbol.make("spicy"), $rjs_core.PrimitiveSymbol.make("spied"), $rjs_core.PrimitiveSymbol.make("spiel"), $rjs_core.PrimitiveSymbol.make("spike"), $rjs_core.PrimitiveSymbol.make("spiky"), $rjs_core.PrimitiveSymbol.make("spill"), $rjs_core.PrimitiveSymbol.make("spilt"), $rjs_core.PrimitiveSymbol.make("spine"), $rjs_core.PrimitiveSymbol.make("spiny"), $rjs_core.PrimitiveSymbol.make("spire"), $rjs_core.PrimitiveSymbol.make("spite"), $rjs_core.PrimitiveSymbol.make("splat"), $rjs_core.PrimitiveSymbol.make("split"), $rjs_core.PrimitiveSymbol.make("spoil"), $rjs_core.PrimitiveSymbol.make("spoke"), $rjs_core.PrimitiveSymbol.make("spoof"), $rjs_core.PrimitiveSymbol.make("spook"), $rjs_core.PrimitiveSymbol.make("spool"), $rjs_core.PrimitiveSymbol.make("spoon"), $rjs_core.PrimitiveSymbol.make("spore"), $rjs_core.PrimitiveSymbol.make("sport"), $rjs_core.PrimitiveSymbol.make("spout"), $rjs_core.PrimitiveSymbol.make("spray"), $rjs_core.PrimitiveSymbol.make("spree"), $rjs_core.PrimitiveSymbol.make("sprig"), $rjs_core.PrimitiveSymbol.make("spunk"), $rjs_core.PrimitiveSymbol.make("spurn"), $rjs_core.PrimitiveSymbol.make("spurt"), $rjs_core.PrimitiveSymbol.make("squad"), $rjs_core.PrimitiveSymbol.make("squat"), $rjs_core.PrimitiveSymbol.make("squib"), $rjs_core.PrimitiveSymbol.make("stack"), $rjs_core.PrimitiveSymbol.make("staff"), $rjs_core.PrimitiveSymbol.make("stage"), $rjs_core.PrimitiveSymbol.make("staid"), $rjs_core.PrimitiveSymbol.make("stain"), $rjs_core.PrimitiveSymbol.make("stair"), $rjs_core.PrimitiveSymbol.make("stake"), $rjs_core.PrimitiveSymbol.make("stale"), $rjs_core.PrimitiveSymbol.make("stalk"), $rjs_core.PrimitiveSymbol.make("stall"), $rjs_core.PrimitiveSymbol.make("stamp"), $rjs_core.PrimitiveSymbol.make("stand"), $rjs_core.PrimitiveSymbol.make("stank"), $rjs_core.PrimitiveSymbol.make("stare"), $rjs_core.PrimitiveSymbol.make("stark"), $rjs_core.PrimitiveSymbol.make("start"), $rjs_core.PrimitiveSymbol.make("stash"), $rjs_core.PrimitiveSymbol.make("state"), $rjs_core.PrimitiveSymbol.make("stave"), $rjs_core.PrimitiveSymbol.make("stead"), $rjs_core.PrimitiveSymbol.make("steak"), $rjs_core.PrimitiveSymbol.make("steal"), $rjs_core.PrimitiveSymbol.make("steam"), $rjs_core.PrimitiveSymbol.make("steed"), $rjs_core.PrimitiveSymbol.make("steel"), $rjs_core.PrimitiveSymbol.make("steep"), $rjs_core.PrimitiveSymbol.make("steer"), $rjs_core.PrimitiveSymbol.make("stein"), $rjs_core.PrimitiveSymbol.make("stern"), $rjs_core.PrimitiveSymbol.make("stick"), $rjs_core.PrimitiveSymbol.make("stiff"), $rjs_core.PrimitiveSymbol.make("still"), $rjs_core.PrimitiveSymbol.make("stilt"), $rjs_core.PrimitiveSymbol.make("sting"), $rjs_core.PrimitiveSymbol.make("stink"), $rjs_core.PrimitiveSymbol.make("stint"), $rjs_core.PrimitiveSymbol.make("stock"), $rjs_core.PrimitiveSymbol.make("stoic"), $rjs_core.PrimitiveSymbol.make("stoke"), $rjs_core.PrimitiveSymbol.make("stole"), $rjs_core.PrimitiveSymbol.make("stomp"), $rjs_core.PrimitiveSymbol.make("stone"), $rjs_core.PrimitiveSymbol.make("stony"), $rjs_core.PrimitiveSymbol.make("stood"), $rjs_core.PrimitiveSymbol.make("stool"), $rjs_core.PrimitiveSymbol.make("stoop"), $rjs_core.PrimitiveSymbol.make("store"), $rjs_core.PrimitiveSymbol.make("stork"), $rjs_core.PrimitiveSymbol.make("storm"), $rjs_core.PrimitiveSymbol.make("story"), $rjs_core.PrimitiveSymbol.make("stout"), $rjs_core.PrimitiveSymbol.make("stove"), $rjs_core.PrimitiveSymbol.make("strap"), $rjs_core.PrimitiveSymbol.make("straw"), $rjs_core.PrimitiveSymbol.make("stray"), $rjs_core.PrimitiveSymbol.make("strip"), $rjs_core.PrimitiveSymbol.make("strut"), $rjs_core.PrimitiveSymbol.make("stuck"), $rjs_core.PrimitiveSymbol.make("study"), $rjs_core.PrimitiveSymbol.make("stuff"), $rjs_core.PrimitiveSymbol.make("stump"), $rjs_core.PrimitiveSymbol.make("stung"), $rjs_core.PrimitiveSymbol.make("stunk"), $rjs_core.PrimitiveSymbol.make("stunt"), $rjs_core.PrimitiveSymbol.make("style"), $rjs_core.PrimitiveSymbol.make("suave"), $rjs_core.PrimitiveSymbol.make("sugar"), $rjs_core.PrimitiveSymbol.make("suing"), $rjs_core.PrimitiveSymbol.make("suite"), $rjs_core.PrimitiveSymbol.make("sulky"), $rjs_core.PrimitiveSymbol.make("sully"), $rjs_core.PrimitiveSymbol.make("sumac"), $rjs_core.PrimitiveSymbol.make("sunny"), $rjs_core.PrimitiveSymbol.make("super"), $rjs_core.PrimitiveSymbol.make("surer"), $rjs_core.PrimitiveSymbol.make("surge"), $rjs_core.PrimitiveSymbol.make("surly"), $rjs_core.PrimitiveSymbol.make("sushi"), $rjs_core.PrimitiveSymbol.make("swami"), $rjs_core.PrimitiveSymbol.make("swamp"), $rjs_core.PrimitiveSymbol.make("swarm"), $rjs_core.PrimitiveSymbol.make("swash"), $rjs_core.PrimitiveSymbol.make("swath"), $rjs_core.PrimitiveSymbol.make("swear"), $rjs_core.PrimitiveSymbol.make("sweat"), $rjs_core.PrimitiveSymbol.make("sweep"), $rjs_core.PrimitiveSymbol.make("sweet"), $rjs_core.PrimitiveSymbol.make("swell"), $rjs_core.PrimitiveSymbol.make("swept"), $rjs_core.PrimitiveSymbol.make("swift"), $rjs_core.PrimitiveSymbol.make("swill"), $rjs_core.PrimitiveSymbol.make("swine"), $rjs_core.PrimitiveSymbol.make("swing"), $rjs_core.PrimitiveSymbol.make("swirl"), $rjs_core.PrimitiveSymbol.make("swish"), $rjs_core.PrimitiveSymbol.make("swoon"), $rjs_core.PrimitiveSymbol.make("swoop"), $rjs_core.PrimitiveSymbol.make("sword"), $rjs_core.PrimitiveSymbol.make("swore"), $rjs_core.PrimitiveSymbol.make("sworn"), $rjs_core.PrimitiveSymbol.make("swung"), $rjs_core.PrimitiveSymbol.make("synod"), $rjs_core.PrimitiveSymbol.make("syrup"), $rjs_core.PrimitiveSymbol.make("tabby"), $rjs_core.PrimitiveSymbol.make("table"), $rjs_core.PrimitiveSymbol.make("taboo"), $rjs_core.PrimitiveSymbol.make("tacit"), $rjs_core.PrimitiveSymbol.make("tacky"), $rjs_core.PrimitiveSymbol.make("taffy"), $rjs_core.PrimitiveSymbol.make("taint"), $rjs_core.PrimitiveSymbol.make("taken"), $rjs_core.PrimitiveSymbol.make("taker"), $rjs_core.PrimitiveSymbol.make("tally"), $rjs_core.PrimitiveSymbol.make("talon"), $rjs_core.PrimitiveSymbol.make("tamer"), $rjs_core.PrimitiveSymbol.make("tango"), $rjs_core.PrimitiveSymbol.make("tangy"), $rjs_core.PrimitiveSymbol.make("taper"), $rjs_core.PrimitiveSymbol.make("tapir"), $rjs_core.PrimitiveSymbol.make("tardy"), $rjs_core.PrimitiveSymbol.make("tarot"), $rjs_core.PrimitiveSymbol.make("taste"), $rjs_core.PrimitiveSymbol.make("tasty"), $rjs_core.PrimitiveSymbol.make("tatty"), $rjs_core.PrimitiveSymbol.make("taunt"), $rjs_core.PrimitiveSymbol.make("tawny"), $rjs_core.PrimitiveSymbol.make("teach"), $rjs_core.PrimitiveSymbol.make("teary"), $rjs_core.PrimitiveSymbol.make("tease"), $rjs_core.PrimitiveSymbol.make("teddy"), $rjs_core.PrimitiveSymbol.make("teeth"), $rjs_core.PrimitiveSymbol.make("tempo"), $rjs_core.PrimitiveSymbol.make("tenet"), $rjs_core.PrimitiveSymbol.make("tenor"), $rjs_core.PrimitiveSymbol.make("tense"), $rjs_core.PrimitiveSymbol.make("tenth"), $rjs_core.PrimitiveSymbol.make("tepee"), $rjs_core.PrimitiveSymbol.make("tepid"), $rjs_core.PrimitiveSymbol.make("terra"), $rjs_core.PrimitiveSymbol.make("terse"), $rjs_core.PrimitiveSymbol.make("testy"), $rjs_core.PrimitiveSymbol.make("thank"), $rjs_core.PrimitiveSymbol.make("theft"), $rjs_core.PrimitiveSymbol.make("their"), $rjs_core.PrimitiveSymbol.make("theme"), $rjs_core.PrimitiveSymbol.make("there"), $rjs_core.PrimitiveSymbol.make("these"), $rjs_core.PrimitiveSymbol.make("theta"), $rjs_core.PrimitiveSymbol.make("thick"), $rjs_core.PrimitiveSymbol.make("thief"), $rjs_core.PrimitiveSymbol.make("thigh"), $rjs_core.PrimitiveSymbol.make("thing"), $rjs_core.PrimitiveSymbol.make("think"), $rjs_core.PrimitiveSymbol.make("third"), $rjs_core.PrimitiveSymbol.make("thong"), $rjs_core.PrimitiveSymbol.make("thorn"), $rjs_core.PrimitiveSymbol.make("those"), $rjs_core.PrimitiveSymbol.make("three"), $rjs_core.PrimitiveSymbol.make("threw"), $rjs_core.PrimitiveSymbol.make("throb"), $rjs_core.PrimitiveSymbol.make("throw"), $rjs_core.PrimitiveSymbol.make("thrum"), $rjs_core.PrimitiveSymbol.make("thumb"), $rjs_core.PrimitiveSymbol.make("thump"), $rjs_core.PrimitiveSymbol.make("thyme"), $rjs_core.PrimitiveSymbol.make("tiara"), $rjs_core.PrimitiveSymbol.make("tibia"), $rjs_core.PrimitiveSymbol.make("tidal"), $rjs_core.PrimitiveSymbol.make("tiger"), $rjs_core.PrimitiveSymbol.make("tight"), $rjs_core.PrimitiveSymbol.make("tilde"), $rjs_core.PrimitiveSymbol.make("timer"), $rjs_core.PrimitiveSymbol.make("timid"), $rjs_core.PrimitiveSymbol.make("tipsy"), $rjs_core.PrimitiveSymbol.make("titan"), $rjs_core.PrimitiveSymbol.make("tithe"), $rjs_core.PrimitiveSymbol.make("title"), $rjs_core.PrimitiveSymbol.make("toast"), $rjs_core.PrimitiveSymbol.make("today"), $rjs_core.PrimitiveSymbol.make("toddy"), $rjs_core.PrimitiveSymbol.make("token"), $rjs_core.PrimitiveSymbol.make("tonal"), $rjs_core.PrimitiveSymbol.make("tonga"), $rjs_core.PrimitiveSymbol.make("tonic"), $rjs_core.PrimitiveSymbol.make("tooth"), $rjs_core.PrimitiveSymbol.make("topaz"), $rjs_core.PrimitiveSymbol.make("topic"), $rjs_core.PrimitiveSymbol.make("torch"), $rjs_core.PrimitiveSymbol.make("torso"), $rjs_core.PrimitiveSymbol.make("torus"), $rjs_core.PrimitiveSymbol.make("total"), $rjs_core.PrimitiveSymbol.make("totem"), $rjs_core.PrimitiveSymbol.make("touch"), $rjs_core.PrimitiveSymbol.make("tough"), $rjs_core.PrimitiveSymbol.make("towel"), $rjs_core.PrimitiveSymbol.make("tower"), $rjs_core.PrimitiveSymbol.make("toxic"), $rjs_core.PrimitiveSymbol.make("toxin"), $rjs_core.PrimitiveSymbol.make("trace"), $rjs_core.PrimitiveSymbol.make("track"), $rjs_core.PrimitiveSymbol.make("tract"), $rjs_core.PrimitiveSymbol.make("trade"), $rjs_core.PrimitiveSymbol.make("trail"), $rjs_core.PrimitiveSymbol.make("train"), $rjs_core.PrimitiveSymbol.make("trait"), $rjs_core.PrimitiveSymbol.make("tramp"), $rjs_core.PrimitiveSymbol.make("trash"), $rjs_core.PrimitiveSymbol.make("trawl"), $rjs_core.PrimitiveSymbol.make("tread"), $rjs_core.PrimitiveSymbol.make("treat"), $rjs_core.PrimitiveSymbol.make("trend"), $rjs_core.PrimitiveSymbol.make("triad"), $rjs_core.PrimitiveSymbol.make("trial"), $rjs_core.PrimitiveSymbol.make("tribe"), $rjs_core.PrimitiveSymbol.make("trice"), $rjs_core.PrimitiveSymbol.make("trick"), $rjs_core.PrimitiveSymbol.make("tried"), $rjs_core.PrimitiveSymbol.make("tripe"), $rjs_core.PrimitiveSymbol.make("trite"), $rjs_core.PrimitiveSymbol.make("troll"), $rjs_core.PrimitiveSymbol.make("troop"), $rjs_core.PrimitiveSymbol.make("trope"), $rjs_core.PrimitiveSymbol.make("trout"), $rjs_core.PrimitiveSymbol.make("trove"), $rjs_core.PrimitiveSymbol.make("truce"), $rjs_core.PrimitiveSymbol.make("truck"), $rjs_core.PrimitiveSymbol.make("truer"), $rjs_core.PrimitiveSymbol.make("truly"), $rjs_core.PrimitiveSymbol.make("trump"), $rjs_core.PrimitiveSymbol.make("trunk"), $rjs_core.PrimitiveSymbol.make("truss"), $rjs_core.PrimitiveSymbol.make("trust"), $rjs_core.PrimitiveSymbol.make("truth"), $rjs_core.PrimitiveSymbol.make("tryst"), $rjs_core.PrimitiveSymbol.make("tubal"), $rjs_core.PrimitiveSymbol.make("tuber"), $rjs_core.PrimitiveSymbol.make("tulip"), $rjs_core.PrimitiveSymbol.make("tulle"), $rjs_core.PrimitiveSymbol.make("tumor"), $rjs_core.PrimitiveSymbol.make("tunic"), $rjs_core.PrimitiveSymbol.make("turbo"), $rjs_core.PrimitiveSymbol.make("tutor"), $rjs_core.PrimitiveSymbol.make("twang"), $rjs_core.PrimitiveSymbol.make("tweak"), $rjs_core.PrimitiveSymbol.make("tweed"), $rjs_core.PrimitiveSymbol.make("tweet"), $rjs_core.PrimitiveSymbol.make("twice"), $rjs_core.PrimitiveSymbol.make("twine"), $rjs_core.PrimitiveSymbol.make("twirl"), $rjs_core.PrimitiveSymbol.make("twist"), $rjs_core.PrimitiveSymbol.make("twixt"), $rjs_core.PrimitiveSymbol.make("tying"), $rjs_core.PrimitiveSymbol.make("udder"), $rjs_core.PrimitiveSymbol.make("ulcer"), $rjs_core.PrimitiveSymbol.make("ultra"), $rjs_core.PrimitiveSymbol.make("umbra"), $rjs_core.PrimitiveSymbol.make("uncle"), $rjs_core.PrimitiveSymbol.make("uncut"), $rjs_core.PrimitiveSymbol.make("under"), $rjs_core.PrimitiveSymbol.make("undid"), $rjs_core.PrimitiveSymbol.make("undue"), $rjs_core.PrimitiveSymbol.make("unfed"), $rjs_core.PrimitiveSymbol.make("unfit"), $rjs_core.PrimitiveSymbol.make("unify"), $rjs_core.PrimitiveSymbol.make("union"), $rjs_core.PrimitiveSymbol.make("unite"), $rjs_core.PrimitiveSymbol.make("unity"), $rjs_core.PrimitiveSymbol.make("unlit"), $rjs_core.PrimitiveSymbol.make("unmet"), $rjs_core.PrimitiveSymbol.make("unset"), $rjs_core.PrimitiveSymbol.make("untie"), $rjs_core.PrimitiveSymbol.make("until"), $rjs_core.PrimitiveSymbol.make("unwed"), $rjs_core.PrimitiveSymbol.make("unzip"), $rjs_core.PrimitiveSymbol.make("upper"), $rjs_core.PrimitiveSymbol.make("upset"), $rjs_core.PrimitiveSymbol.make("urban"), $rjs_core.PrimitiveSymbol.make("urine"), $rjs_core.PrimitiveSymbol.make("usage"), $rjs_core.PrimitiveSymbol.make("usher"), $rjs_core.PrimitiveSymbol.make("using"), $rjs_core.PrimitiveSymbol.make("usual"), $rjs_core.PrimitiveSymbol.make("usurp"), $rjs_core.PrimitiveSymbol.make("utile"), $rjs_core.PrimitiveSymbol.make("utter"), $rjs_core.PrimitiveSymbol.make("vague"), $rjs_core.PrimitiveSymbol.make("valet"), $rjs_core.PrimitiveSymbol.make("valid"), $rjs_core.PrimitiveSymbol.make("valor"), $rjs_core.PrimitiveSymbol.make("value"), $rjs_core.PrimitiveSymbol.make("valve"), $rjs_core.PrimitiveSymbol.make("vapid"), $rjs_core.PrimitiveSymbol.make("vapor"), $rjs_core.PrimitiveSymbol.make("vault"), $rjs_core.PrimitiveSymbol.make("vaunt"), $rjs_core.PrimitiveSymbol.make("vegan"), $rjs_core.PrimitiveSymbol.make("venom"), $rjs_core.PrimitiveSymbol.make("venue"), $rjs_core.PrimitiveSymbol.make("verge"), $rjs_core.PrimitiveSymbol.make("verse"), $rjs_core.PrimitiveSymbol.make("verso"), $rjs_core.PrimitiveSymbol.make("verve"), $rjs_core.PrimitiveSymbol.make("vicar"), $rjs_core.PrimitiveSymbol.make("video"), $rjs_core.PrimitiveSymbol.make("vigil"), $rjs_core.PrimitiveSymbol.make("vigor"), $rjs_core.PrimitiveSymbol.make("villa"), $rjs_core.PrimitiveSymbol.make("vinyl"), $rjs_core.PrimitiveSymbol.make("viola"), $rjs_core.PrimitiveSymbol.make("viper"), $rjs_core.PrimitiveSymbol.make("viral"), $rjs_core.PrimitiveSymbol.make("virus"), $rjs_core.PrimitiveSymbol.make("visit"), $rjs_core.PrimitiveSymbol.make("visor"), $rjs_core.PrimitiveSymbol.make("vista"), $rjs_core.PrimitiveSymbol.make("vital"), $rjs_core.PrimitiveSymbol.make("vivid"), $rjs_core.PrimitiveSymbol.make("vixen"), $rjs_core.PrimitiveSymbol.make("vocal"), $rjs_core.PrimitiveSymbol.make("vodka"), $rjs_core.PrimitiveSymbol.make("vogue"), $rjs_core.PrimitiveSymbol.make("voice"), $rjs_core.PrimitiveSymbol.make("voila"), $rjs_core.PrimitiveSymbol.make("vomit"), $rjs_core.PrimitiveSymbol.make("voter"), $rjs_core.PrimitiveSymbol.make("vouch"), $rjs_core.PrimitiveSymbol.make("vowel"), $rjs_core.PrimitiveSymbol.make("vying"), $rjs_core.PrimitiveSymbol.make("wacky"), $rjs_core.PrimitiveSymbol.make("wafer"), $rjs_core.PrimitiveSymbol.make("wager"), $rjs_core.PrimitiveSymbol.make("wagon"), $rjs_core.PrimitiveSymbol.make("waist"), $rjs_core.PrimitiveSymbol.make("waive"), $rjs_core.PrimitiveSymbol.make("waltz"), $rjs_core.PrimitiveSymbol.make("warty"), $rjs_core.PrimitiveSymbol.make("waste"), $rjs_core.PrimitiveSymbol.make("watch"), $rjs_core.PrimitiveSymbol.make("water"), $rjs_core.PrimitiveSymbol.make("waver"), $rjs_core.PrimitiveSymbol.make("waxen"), $rjs_core.PrimitiveSymbol.make("weary"), $rjs_core.PrimitiveSymbol.make("weave"), $rjs_core.PrimitiveSymbol.make("wedge"), $rjs_core.PrimitiveSymbol.make("weedy"), $rjs_core.PrimitiveSymbol.make("weigh"), $rjs_core.PrimitiveSymbol.make("weird"), $rjs_core.PrimitiveSymbol.make("welch"), $rjs_core.PrimitiveSymbol.make("welsh"), $rjs_core.PrimitiveSymbol.make("wench"), $rjs_core.PrimitiveSymbol.make("whack"), $rjs_core.PrimitiveSymbol.make("whale"), $rjs_core.PrimitiveSymbol.make("wharf"), $rjs_core.PrimitiveSymbol.make("wheat"), $rjs_core.PrimitiveSymbol.make("wheel"), $rjs_core.PrimitiveSymbol.make("whelp"), $rjs_core.PrimitiveSymbol.make("where"), $rjs_core.PrimitiveSymbol.make("which"), $rjs_core.PrimitiveSymbol.make("whiff"), $rjs_core.PrimitiveSymbol.make("while"), $rjs_core.PrimitiveSymbol.make("whine"), $rjs_core.PrimitiveSymbol.make("whiny"), $rjs_core.PrimitiveSymbol.make("whirl"), $rjs_core.PrimitiveSymbol.make("whisk"), $rjs_core.PrimitiveSymbol.make("white"), $rjs_core.PrimitiveSymbol.make("whole"), $rjs_core.PrimitiveSymbol.make("whoop"), $rjs_core.PrimitiveSymbol.make("whose"), $rjs_core.PrimitiveSymbol.make("widen"), $rjs_core.PrimitiveSymbol.make("wider"), $rjs_core.PrimitiveSymbol.make("widow"), $rjs_core.PrimitiveSymbol.make("width"), $rjs_core.PrimitiveSymbol.make("wield"), $rjs_core.PrimitiveSymbol.make("wight"), $rjs_core.PrimitiveSymbol.make("willy"), $rjs_core.PrimitiveSymbol.make("wimpy"), $rjs_core.PrimitiveSymbol.make("wince"), $rjs_core.PrimitiveSymbol.make("winch"), $rjs_core.PrimitiveSymbol.make("windy"), $rjs_core.PrimitiveSymbol.make("wiser"), $rjs_core.PrimitiveSymbol.make("wispy"), $rjs_core.PrimitiveSymbol.make("witch"), $rjs_core.PrimitiveSymbol.make("witty"), $rjs_core.PrimitiveSymbol.make("woken"), $rjs_core.PrimitiveSymbol.make("woman"), $rjs_core.PrimitiveSymbol.make("women"), $rjs_core.PrimitiveSymbol.make("woody"), $rjs_core.PrimitiveSymbol.make("wooer"), $rjs_core.PrimitiveSymbol.make("wooly"), $rjs_core.PrimitiveSymbol.make("woozy"), $rjs_core.PrimitiveSymbol.make("wordy"), $rjs_core.PrimitiveSymbol.make("world"), $rjs_core.PrimitiveSymbol.make("worry"), $rjs_core.PrimitiveSymbol.make("worse"), $rjs_core.PrimitiveSymbol.make("worst"), $rjs_core.PrimitiveSymbol.make("worth"), $rjs_core.PrimitiveSymbol.make("would"), $rjs_core.PrimitiveSymbol.make("wound"), $rjs_core.PrimitiveSymbol.make("woven"), $rjs_core.PrimitiveSymbol.make("wrack"), $rjs_core.PrimitiveSymbol.make("wrath"), $rjs_core.PrimitiveSymbol.make("wreak"), $rjs_core.PrimitiveSymbol.make("wreck"), $rjs_core.PrimitiveSymbol.make("wrest"), $rjs_core.PrimitiveSymbol.make("wring"), $rjs_core.PrimitiveSymbol.make("wrist"), $rjs_core.PrimitiveSymbol.make("write"), $rjs_core.PrimitiveSymbol.make("wrong"), $rjs_core.PrimitiveSymbol.make("wrote"), $rjs_core.PrimitiveSymbol.make("wrung"), $rjs_core.PrimitiveSymbol.make("wryly"), $rjs_core.PrimitiveSymbol.make("yacht"), $rjs_core.PrimitiveSymbol.make("yearn"), $rjs_core.PrimitiveSymbol.make("yeast"), $rjs_core.PrimitiveSymbol.make("yield"), $rjs_core.PrimitiveSymbol.make("young"), $rjs_core.PrimitiveSymbol.make("youth"), $rjs_core.PrimitiveSymbol.make("zebra"), $rjs_core.PrimitiveSymbol.make("zesty"), $rjs_core.PrimitiveSymbol.make("zonal"))); +var __rjs_quoted__ = {}; +export { + __rjs_quoted__, + WORDLE_WORDS +}; \ No newline at end of file diff --git a/stub.rkt b/stub.rkt index 9f84a5e..271be68 100644 --- a/stub.rkt +++ b/stub.rkt @@ -49,3 +49,9 @@ write ;; racket/private/list-predicate.rkt empty? + +;; vector +vector-member + +;; string +string-contains? From e6888cfb71eacbcb92e79dcf06ce367b75dc1a94 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Fri, 29 Apr 2022 22:59:29 +0000 Subject: [PATCH 29/38] update docker links --- Makefile | 8 ++++---- README.md | 10 +++++----- 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/Makefile b/Makefile index a4f58d4..49753b0 100644 --- a/Makefile +++ b/Makefile @@ -2,7 +2,7 @@ RACKS_FLAGS = --enable-self-tail --enable-flatten-if --js-beautify RACKS_APP_FLAGS = --skip-arity-checks RACKS_EXAMPLE_FLAGS = --skip-arity-checks -# DOCKER_BUILD_DEBUG_FLAGS= --progress plain --no-cache +DOCKER_BUILD_DEBUG_FLAGS= --progress plain --no-cache ### Run playground @@ -17,13 +17,13 @@ quickrun: quickbuild ### Docker docker-build: - docker build $(DOCKER_BUILD_DEBUG_FLAGS) -t vishesh/racketscript-playground . + docker build $(DOCKER_BUILD_DEBUG_FLAGS) -t racketscript/racketscript-playground . docker-run: - docker run -dp 8080:80 -e PORT=80 -t vishesh/racketscript-playground + docker run -dp 8080:80 -e PORT=80 -t racketscript/racketscript-playground docker-push: - docker push vishesh/racketscript-playground:latest + docker push racketscript/racketscript-playground:latest #### Build diff --git a/README.md b/README.md index f7d3c8d..9b06c95 100644 --- a/README.md +++ b/README.md @@ -2,10 +2,10 @@ Racketscript Playground ======================= [![MIT licensed](https://img.shields.io/badge/license-MIT-blue.svg)](LICENSE) -[![Docker](https://img.shields.io/docker/cloud/automated/vishesh/racketscript-playground)](https://hub.docker.com/r/vishesh/racketscript-playground) +[![Docker](https://img.shields.io/docker/cloud/automated/vishesh/racketscript-playground)](https://hub.docker.com/r/racketscript/racketscript-playground) [![Try Online](https://img.shields.io/badge/try_it-online!-ff9900.svg)](http://play.racketscript.org) -Playground for [RacketScript](https://github.com/vishesh/racketscript). +Playground for [RacketScript](https://github.com/racketscript/racketscript). Both server-side and client-side code is written in RacketScript. Playground uses Github Gist to save and load files. The name of Gist @@ -26,14 +26,14 @@ are [here](https://codemirror.net/demo/search.html). ### With Docker (for deployment) Easiest way is to pull the latest image from Docker registry -([vishesh/racketscript-playground](https://hub.docker.com/r/vishesh/racketscript-playground)). +([racketscript/racketscript-playground](https://hub.docker.com/r/racketscript/racketscript-playground)). ```bash # Pull docker image -docker pull vishesh/racketscript-playground +docker pull racketscript/racketscript-playground # Run playground webserver on port 8080 -docker run -dp 8080:8080 -t vishesh/racketscript-playground +docker run -dp 8080:8080 -t racketscript/racketscript-playground ``` You can also build image yourself using `make docker-build`, followed by `make From 0180f5bfff0b84ae53082cd4d81ae0534123b4e3 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Fri, 29 Apr 2022 23:00:30 +0000 Subject: [PATCH 30/38] fix docker build flag name --- Makefile | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Makefile b/Makefile index 49753b0..73727c0 100644 --- a/Makefile +++ b/Makefile @@ -2,7 +2,7 @@ RACKS_FLAGS = --enable-self-tail --enable-flatten-if --js-beautify RACKS_APP_FLAGS = --skip-arity-checks RACKS_EXAMPLE_FLAGS = --skip-arity-checks -DOCKER_BUILD_DEBUG_FLAGS= --progress plain --no-cache +DOCKER_BUILD_DEBUG_FLAGS = --progress plain --no-cache ### Run playground From 5f9a5e7496929f134ed76d9b9dd5dc853a968843 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Fri, 2 Jun 2023 18:27:35 +0000 Subject: [PATCH 31/38] update docker image to use to node 18.16.0 and racket 8.7 --- Dockerfile | 14 +++++++++----- README.md | 8 +++++++- examples/overview.rkt | 2 +- package.json | 4 ++-- 4 files changed, 19 insertions(+), 9 deletions(-) diff --git a/Dockerfile b/Dockerfile index 7477b73..e2c7226 100644 --- a/Dockerfile +++ b/Dockerfile @@ -1,14 +1,18 @@ # syntax=docker/dockerfile:1 -FROM racket/racket:8.1-full +FROM racket/racket:8.7-full + +RUN apt-get update -y \ + && apt-get install -y --no-install-recommends xz-utils make \ + && apt-get clean WORKDIR /app -RUN curl -O https://nodejs.org/dist/v14.17.1/node-v14.17.1-linux-x64.tar.xz -RUN tar xvf node-v14.17.1-linux-x64.tar.xz -C . -ENV PATH="/app/node-v14.17.1-linux-x64/bin:${PATH}" +RUN curl -O https://nodejs.org/dist/v18.16.0/node-v18.16.0-linux-x64.tar.xz +RUN tar xvf node-v18.16.0-linux-x64.tar.xz -C . +ENV PATH="/app/node-v18.16.0-linux-x64/bin:${PATH}" RUN npm install -g js-beautify COPY . /app/racketscript-playground -ENV PATH="/root/.local/share/racket/8.1/bin/:${PATH}" +ENV PATH="/root/.local/share/racket/8.7/bin/:${PATH}" RUN raco pkg install --auto racketscript WORKDIR /app/racketscript-playground diff --git a/README.md b/README.md index 9b06c95..60c57ac 100644 --- a/README.md +++ b/README.md @@ -2,7 +2,7 @@ Racketscript Playground ======================= [![MIT licensed](https://img.shields.io/badge/license-MIT-blue.svg)](LICENSE) -[![Docker](https://img.shields.io/docker/cloud/automated/vishesh/racketscript-playground)](https://hub.docker.com/r/racketscript/racketscript-playground) +[![Docker](https://img.shields.io/docker/cloud/automated/racketscript/racketscript-playground)](https://hub.docker.com/r/racketscript/racketscript-playground) [![Try Online](https://img.shields.io/badge/try_it-online!-ff9900.svg)](http://play.racketscript.org) Playground for [RacketScript](https://github.com/racketscript/racketscript). @@ -61,3 +61,9 @@ make -j4 quickrun RacketScript is licensed under [MIT license](LICENSE). Third-party libraries can be found over [here](static/index.html) and [here](package.json). + +## Troubleshooting + +- Running `docker` commands gives permission error + +[Add user name to `docker` user group](https://docs.docker.com/engine/install/linux-postinstall/): `sudo usermod -aG docker $USER` diff --git a/examples/overview.rkt b/examples/overview.rkt index 12b82a0..d951f38 100644 --- a/examples/overview.rkt +++ b/examples/overview.rkt @@ -2,7 +2,7 @@ ;; RacketScript is an experimental Racket to JavaScript compiler, ;; which hopes to be practically useful someday. Source code is -;; available at https://github.com/vishesh/racketscript +;; available at https://github.com/racketscript/racketscript ;; We support modules, but we don't yet compile Racket's stdlib. (require racketscript/htdp/universe racketscript/htdp/image ;; replaces 2htdp/* diff --git a/package.json b/package.json index 750ed1e..21da34d 100644 --- a/package.json +++ b/package.json @@ -5,7 +5,7 @@ "main": "./js-build/dist/modules/app.rkt.js", "repository": { "type": "git", - "url": "https://github.com/vishesh/racketscript-playground" + "url": "https://github.com/racketscript/racketscript-playground" }, "keywords": [ "racket", @@ -13,7 +13,7 @@ ], "author": "Vishesh Yadav", "bugs": { - "url": "https://github.com/vishesh/racketscript/issues" + "url": "https://github.com/racketscript/racketscript/issues" }, "dependencies": { "express": "^4.17.1", From 2d6c76eef2ba425b437fb2ffa5c8d3ffc14984be Mon Sep 17 00:00:00 2001 From: Ayden Diel Date: Tue, 13 Jun 2023 12:08:20 -0400 Subject: [PATCH 32/38] Drop jQuery and migrate from Bootstrap 3 to 5 (#46) * Switched several jQuery uses for DOM queries to pure JS * Migrated from Bootstrap 3 to Bootstrap 5 * Porting login/logout features to pure js * Fixed navbar alignment issues * Ported modals to bootstrap 5 & pure JS * removed bootstrap 3 dependency completely * Tweaks/fixes to bootstrap 5 port * converted modal functionality to pure js * Migrated gist get request from jQuery to js fetch api * Reworked compile POST request to function like the original jQuery implementation * updated show-error and switched to fetch post for /save * tweaked error handling again * cleaned up code * Removed jQuery from colored-carpet example * Fully implemented and tested gist save w/o jQuery * Removed jQuery dependency :) * Adjusted html and css, updated some dependencies * Updated overview.rkt to work without jQuery * moved add-button-onclick func to top level in client.rkt * Reworked some redundant code in overview.rkt * Fixed style issues in client.rkt --- client.rkt | 166 ++++++----- examples/colored-carpet.rkt | 24 +- examples/overview.rkt | 67 +++-- package-lock.json | 577 +++++++++++++++++++++++++++++++++++- static/index.html | 110 ++++--- static/modules/index.html | 5 - static/style.css | 63 +++- 7 files changed, 844 insertions(+), 168 deletions(-) diff --git a/client.rkt b/client.rkt index f3e588f..de0b9a1 100644 --- a/client.rkt +++ b/client.rkt @@ -5,7 +5,6 @@ racket/match racket/string (for-syntax racket/base)) -(define jQuery #js*.$) ;;---------------------------------------------------------------------------- ;; Globals @@ -54,27 +53,32 @@ [sizes [$/array 75 25]] [gutterSize *split-gutter-size*]})) +(define (get-element-by-id id) + (#js*.document.getElementById (js-string id))) + +(define (query-selector query) + (#js*.document.querySelector (js-string query))) + +(define (add-button-onclick button-id func) + (define btn-element (get-element-by-id button-id)) + (#js.btn-element.addEventListener #js"click" func)) + (define (register-button-events!) - ($> (jQuery #js"#btn-compile") - (click (λ (e) - (#js.e.preventDefault) - (compile #f)))) - ($> (jQuery #js"#btn-run") - (click (λ (e) - (#js.e.preventDefault) - (run)))) - ($> (jQuery #js"#btn-compile-run") - (click (λ (e) - (#js.e.preventDefault) - (compile #t)))) - ($> (jQuery #js"#btn-logout") - (click (λ (e) - (logout) - (do-logged-out)))) - ($> (jQuery #js"#btn-save") - (click (λ (e) - (#js.e.preventDefault) - (save))))) + (add-button-onclick "btn-compile" (λ (e) + (#js.e.preventDefault) + (compile #f))) + (add-button-onclick "btn-run" (λ (e) + (#js.e.preventDefault) + (run))) + (add-button-onclick "btn-compile-run" (λ (e) + (#js.e.preventDefault) + (compile #t))) + (add-button-onclick "btn-logout" (λ (e) + (logout) + (do-logged-out))) + (add-button-onclick "btn-save" (λ (e) + (#js.e.preventDefault) + (save)))) ;;----------------------------------------------------------------------------- ;; Editors @@ -181,44 +185,69 @@ 5000) (#js.cm-editor-console.setValue #js"Console Log:\n") (#js.cm-editor-jsout.setValue #js"Compiling ...") - ($> (#js.jQuery.post #js"/compile" {$/obj [code (#js.cm-editor-racket.getValue)]}) - (done (λ (data) - (set-javascript-code data) - (when execute? - (run)))) - (fail (λ (xhr status err) - (#js.cm-editor-console.setValue - ($/binop + #js"Compilation error:\n" #js.xhr.responseText)) - (#js.cm-editor-jsout.setValue #js""))) - (always (λ () - (:= compiling? #f)))))) + + ($> (#js*.fetch #js"/compile" {$/obj + [method "POST"] + [headers {$/obj + [Content-type + (js-string "application/json; charset=utf-8")]}] + [body + (#js*.JSON.stringify + {$/obj [code (#js.cm-editor-racket.getValue)]})]}) + (then (λ (response) (if #js.response.ok + (#js.response.text) + ($/throw ($/new (#js*.Error (js-string "Compile error"))))))) + (then (λ (data) (set-javascript-code data) + (when execute? (run)))) + (catch (λ () + ((#js.cm-editor-console.setValue + ($/binop + #js"Compilation error:\n" #js"failed to compile")) + (#js.cm-editor-jsout.setValue #js"")))) + (then (λ () + (:= compiling? #f)))) +)) ;;----------------------------------------------------------------------------- ;; Login, Save, and Load Gist (define (check-logged-in) - (#js.jQuery.get #js"/isloggedin" - (λ (isloggedin) - (if isloggedin - (do-logged-in) - (do-logged-out))))) + ($> (#js*.fetch #js"/isloggedin") + (then (λ (response) (#js.response.json))) + (then (λ (isloggedin) + (if isloggedin + (do-logged-in) + (do-logged-out)))))) + +(define (hide-button btn) + (if (#js.btn.classList.contains #js"d-none") + 0 + (#js.btn.classList.add #js"d-none"))) + +(define (show-button btn) + (if (#js.btn.classList.contains #js"d-none") + (#js.btn.classList.remove #js"d-none") + 0)) (define (do-logged-in) - ($> (jQuery #js"#btn-save") (show)) - ($> (jQuery #js"#btn-logout") (show)) - ($> (jQuery #js"#btn-login") (hide))) + (show-button (get-element-by-id "btn-save")) + (show-button (get-element-by-id "btn-logout")) + (hide-button (get-element-by-id "btn-login"))) (define (do-logged-out) - ($> (jQuery #js"#btn-save") (hide)) - ($> (jQuery #js"#btn-logout") (hide)) - ($> (jQuery #js"#btn-login") (show))) + (hide-button (get-element-by-id "btn-save")) + (hide-button (get-element-by-id "btn-logout")) + (show-button (get-element-by-id "btn-login"))) (define (logout) - (#js.jQuery.get #js"/logout")) + (#js*.fetch #js"/logout")) (define (load-gist id) - ($> (#js.jQuery.get ($/binop + "https://api.github.com/gists/" id)) - (done (λ (data) + ($> (#js*.fetch ($/binop + "https://api.github.com/gists/" id)) + (then (λ (response) + (if (equal? #js.response.status 200) + (#js.response.json) + ($/throw ($/new (#js*.Error "Gist not found.")))))) + (then (λ (data) (set-racket-code ($ #js.data.files *gist-source-file* 'content)) (define jscode ($ #js.data.files *gist-javascript-file* 'content)) (cond @@ -227,9 +256,9 @@ (run)] [else (compile #t)]))) - (fail (λ (xhr) - (show-error "Error load Gist" - #js.xhr.responseJSON.message))))) + (catch (λ (error) + (show-error "Error load Gist" #js.error.message) + (#js*.console.error error))))) (define (save) ;; this data will get forwarded to github @@ -244,23 +273,28 @@ [content (#js.cm-editor-racket.getValue)]}] [,*gist-javascript-file* ,{$/obj [content (#js.cm-editor-jsout.getValue)]}]))]}) - ($> (#js.jQuery.post #js"/save" data) - (done (λ (data) - (define id #js.data) - (:= #js.window.location.href ($/binop + #js"#gist/" id)))) - (fail (λ (e) - (show-error "Error saving as Gist" - #js.e.responseJSON.message))))) + ($> (#js*.fetch #js"/save" {$/obj + [method "POST"] + [headers {$/obj + [Content-type (js-string "application/json; charset=utf-8")]}] + [body + (#js*.JSON.stringify data)]}) + (then (λ (response) (#js.response.text))) + (then (λ (data) (:= #js.window.location.href ($/binop + #js"#gist/" #js.data)))) + (catch (λ (e) (show-error "Error saving as Gist" #js.e.responseJSON.message))))) ;;------------------------------------------------------------------------------- +(define (get-modal id) + ($/new (#js*.bootstrap.Modal (js-string id)))) + (define (show-error title msg) - ($> (#js.jQuery #js"#error-modal") - (modal #js"show")) - ($> (#js.jQuery #js"#error-modal .modal-title") - (text (js-string title))) - ($> (#js.jQuery #js"#error-modal p") - (text (js-string msg)))) + (define error-modal (get-modal "#error-modal")) + (define modal-title (get-element-by-id "error-modal-title")) + (define modal-body (query-selector "#error-modal p")) + (#js.error-modal.show) + ($/:= #js.modal-title.innerHTML (js-string title)) + ($/:= #js.modal-body.innerHTML (js-string msg))) ;;------------------------------------------------------------------------------- @@ -272,8 +306,8 @@ ($> (#js*.fetch ($> examples (concat example-name #js".rkt.js"))) (then (λ (response) (#js.response.text))) (then (λ (code) - (set-javascript-code code) - (run))))) + (set-javascript-code code) + (run))))) (define (reset-ui!) ;; Reset editors @@ -295,10 +329,10 @@ [("gist") (load-gist ($ parts 1))] [("example") (load-racket-example ($ parts 1))] [else - (let ([first-example + (let ([first-example ($ ($> (#js.document.querySelector #js"#example-menu a") hash (split #js"/")) 1)]) - (load-racket-example first-example))])) + (load-racket-example first-example))])) (define (main) (#js*.document.addEventListener #js"DOMContentLoaded" diff --git a/examples/colored-carpet.rkt b/examples/colored-carpet.rkt index 61ffcfc..4c0eac7 100644 --- a/examples/colored-carpet.rkt +++ b/examples/colored-carpet.rkt @@ -9,13 +9,14 @@ threading) ;; #js* references global JS objects. -(let ([jquery #js*.jQuery]) - ;; $> chains JavaScript calls. - ($> (jquery #js"body") - ;; #js"strings" are native JavaScript strings. - ;; "strings" are Racket strings (sequences of Unicode codepoints). - (css #js"margin" 0) - (css #js"padding" 0))) +;; #js"" is a quick syntax for writing native JS strings. +;; "strings" are Racket strings (sequences of Unicode codepoints). +(define body (#js*.document.querySelector #js"body")) + +;; #js. references a RacketScript variable +;; ($/:= var val) assigns val to var +($/:= #js.body.style.margin 0) +($/:= #js.body.style.padding 0) ;; (Listof Color) -> Image ;; Returns a single tile of carpet @@ -63,12 +64,13 @@ (color 255 0 255) (color 255 204 0))))) -;; -> Non-Negative-Integet +;; -> Non-Negative-Integer (define (viewport-width) - (- ($> (#js*.jQuery window) (width)) 5)) + (- #js*.window.innerWidth 5)) + -;; -> Non-Negative-Integet +;; -> Non-Negative-Integer (define (viewport-height) - (- ($> (#js*.jQuery window) (height)) 5)) + (- #js*.window.innerHeight 5)) (print-image (welcome-image)) diff --git a/examples/overview.rkt b/examples/overview.rkt index d951f38..acc9343 100644 --- a/examples/overview.rkt +++ b/examples/overview.rkt @@ -17,44 +17,55 @@ ;; Racket environment. A dot `.` in identifier would split id and do a ;; JS object ref. Eg. `#js*.window.document` would translate to ;; `window.document`" -(define jquery #js*.$) +(define (add-elem-to-body elem) + (#js*.document.body.appendChild elem) + elem) -;; Here's a toy function to convert xexpr to DOM element using jQuery. -(define (sexp->jq sexp) - (define (add-attrs jq attr-names attr-vals) - (foldl (λ (name val jq) - (#js.jq.attr ($/str name) ($/str val))) - jq +;; Here's a toy function to convert xexpr to a DOM element. +(define (sexp->html sexp) + (define (add-attr attr-name attr-val elem) + (#js.elem.setAttribute ($/str attr-name) ($/str attr-val)) + elem) + (define (add-child child elem) + (#js.elem.append child) + elem) + (define (add-attrs elem attr-names attr-vals) + (foldl add-attr + elem attr-names attr-vals)) - (define (add-childs jq childs) - (foldl (λ (child jq) - (#js.jq.append child)) - jq + (define (add-childs elem childs) + (foldl add-child + elem childs)) (match sexp [(list (app symbol->string tag-name) - (list [list (app symbol->string attr-names) (app sexp->jq attr-vals)] ...) - (app sexp->jq childs) ...) - (~> (format "<~a>" tag-name tag-name) - ($/str _) - (jquery _) + (list [list (app symbol->string attr-names) (app sexp->html attr-vals)] ...) + (app sexp->html childs) ...) + (~> ($/str tag-name) + (#js*.document.createElement _) (add-attrs _ attr-names attr-vals) (add-childs _ childs))] [(list tag-name childs ...) - (sexp->jq `(,tag-name () ,@childs))] + (sexp->html `(,tag-name () ,@childs))] [(? string? v) ($/str v)] [(? number? v) ($/str (number->string v))])) -;; $> is exported by racketscript/interop to make chaining more -;; convenient. -($> (jquery document) - (ready - (λ _ +(define (on-dom-loaded callback) + (if (or ($/binop === #js.document.readyState #js"interactive") ($/binop === #js.document.readyState #js"complete")) + (callback) + (#js.document.addEventListener #js"DOMContentLoaded" callback))) + + +(define load-page-contents + (λ _ (displayln "DOM loaded!") - ($> (jquery #js"body") - (append (sexp->jq + + ;; $> is exported by racketscript/interop to make chaining more + ;; convenient. + ($> (#js*.document.querySelector #js"body") + (append (sexp->html `(div (h1 ([align "center"]) "Hello World!") (div @@ -68,8 +79,10 @@ (li (a ([href "http://www.racket-lang.org/"] [target "_blank"]) "Racket Programming Language")))))))))) - (on #js"click" - (λ (e) + + +($> (#js.document.addEventListener #js"click" + (λ (e) (displayln (list "clicked at: " #js.e.pageX #js.e.pageY))))) @@ -85,3 +98,5 @@ ['() acc] [(cons hd tl) (sum/acc tl (+ acc hd))])) (sum/acc lst 0)) + +(on-dom-loaded load-page-contents) \ No newline at end of file diff --git a/package-lock.json b/package-lock.json index c71c65b..4076c2f 100644 --- a/package-lock.json +++ b/package-lock.json @@ -1,8 +1,583 @@ { "name": "racketscript-playground", "version": "0.0.1", - "lockfileVersion": 1, + "lockfileVersion": 2, "requires": true, + "packages": { + "": { + "name": "racketscript-playground", + "version": "0.0.1", + "dependencies": { + "body-parser": "*", + "dotenv": "*", + "express": "^4.17.1", + "express-session": "*" + } + }, + "node_modules/accepts": { + "version": "1.3.7", + "resolved": "https://registry.npmjs.org/accepts/-/accepts-1.3.7.tgz", + "integrity": "sha512-Il80Qs2WjYlJIBNzNkK6KYqlVMTbZLXgHx2oT0pU/fjRHyEp+PEfEPY0R3WCwAGVOtauxh1hOxNgIf5bv7dQpA==", + "dependencies": { + "mime-types": "~2.1.24", + "negotiator": "0.6.2" + }, + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/array-flatten": { + "version": "1.1.1", + "resolved": "https://registry.npmjs.org/array-flatten/-/array-flatten-1.1.1.tgz", + "integrity": "sha1-ml9pkFGx5wczKPKgCJaLZOopVdI=" + }, + "node_modules/body-parser": { + "version": "1.19.0", + "resolved": "https://registry.npmjs.org/body-parser/-/body-parser-1.19.0.tgz", + "integrity": "sha512-dhEPs72UPbDnAQJ9ZKMNTP6ptJaionhP5cBb541nXPlW60Jepo9RV/a4fX4XWW9CuFNK22krhrj1+rgzifNCsw==", + "dependencies": { + "bytes": "3.1.0", + "content-type": "~1.0.4", + "debug": "2.6.9", + "depd": "~1.1.2", + "http-errors": "1.7.2", + "iconv-lite": "0.4.24", + "on-finished": "~2.3.0", + "qs": "6.7.0", + "raw-body": "2.4.0", + "type-is": "~1.6.17" + }, + "engines": { + "node": ">= 0.8" + } + }, + "node_modules/bytes": { + "version": "3.1.0", + "resolved": "https://registry.npmjs.org/bytes/-/bytes-3.1.0.tgz", + "integrity": "sha512-zauLjrfCG+xvoyaqLoV8bLVXXNGC4JqlxFCutSDWA6fJrTo2ZuvLYTqZ7aHBLZSMOopbzwv8f+wZcVzfVTI2Dg==", + "engines": { + "node": ">= 0.8" + } + }, + "node_modules/content-disposition": { + "version": "0.5.3", + "resolved": "https://registry.npmjs.org/content-disposition/-/content-disposition-0.5.3.tgz", + "integrity": "sha512-ExO0774ikEObIAEV9kDo50o+79VCUdEB6n6lzKgGwupcVeRlhrj3qGAfwq8G6uBJjkqLrhT0qEYFcWng8z1z0g==", + "dependencies": { + "safe-buffer": "5.1.2" + }, + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/content-type": { + "version": "1.0.4", + "resolved": "https://registry.npmjs.org/content-type/-/content-type-1.0.4.tgz", + "integrity": "sha512-hIP3EEPs8tB9AT1L+NUqtwOAps4mk2Zob89MWXMHjHWg9milF/j4osnnQLXBCBFBk/tvIG/tUc9mOUJiPBhPXA==", + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/cookie": { + "version": "0.4.0", + "resolved": "https://registry.npmjs.org/cookie/-/cookie-0.4.0.tgz", + "integrity": "sha512-+Hp8fLp57wnUSt0tY0tHEXh4voZRDnoIrZPqlo3DPiI4y9lwg/jqx+1Om94/W6ZaPDOUbnjOt/99w66zk+l1Xg==", + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/cookie-signature": { + "version": "1.0.6", + "resolved": "https://registry.npmjs.org/cookie-signature/-/cookie-signature-1.0.6.tgz", + "integrity": "sha1-4wOogrNCzD7oylE6eZmXNNqzriw=" + }, + "node_modules/debug": { + "version": "2.6.9", + "resolved": "https://registry.npmjs.org/debug/-/debug-2.6.9.tgz", + "integrity": "sha512-bC7ElrdJaJnPbAP+1EotYvqZsb3ecl5wi6Bfi6BJTUcNowp6cvspg0jXznRTKDjm/E7AdgFBVeAPVMNcKGsHMA==", + "dependencies": { + "ms": "2.0.0" + } + }, + "node_modules/depd": { + "version": "1.1.2", + "resolved": "https://registry.npmjs.org/depd/-/depd-1.1.2.tgz", + "integrity": "sha1-m81S4UwJd2PnSbJ0xDRu0uVgtak=", + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/destroy": { + "version": "1.0.4", + "resolved": "https://registry.npmjs.org/destroy/-/destroy-1.0.4.tgz", + "integrity": "sha1-l4hXRCxEdJ5CBmE+N5RiBYJqvYA=" + }, + "node_modules/dotenv": { + "version": "10.0.0", + "resolved": "https://registry.npmjs.org/dotenv/-/dotenv-10.0.0.tgz", + "integrity": "sha512-rlBi9d8jpv9Sf1klPjNfFAuWDjKLwTIJJ/VxtoTwIR6hnZxcEOQCZg2oIL3MWBYw5GpUDKOEnND7LXTbIpQ03Q==", + "engines": { + "node": ">=10" + } + }, + "node_modules/ee-first": { + "version": "1.1.1", + "resolved": "https://registry.npmjs.org/ee-first/-/ee-first-1.1.1.tgz", + "integrity": "sha1-WQxhFWsK4vTwJVcyoViyZrxWsh0=" + }, + "node_modules/encodeurl": { + "version": "1.0.2", + "resolved": "https://registry.npmjs.org/encodeurl/-/encodeurl-1.0.2.tgz", + "integrity": "sha1-rT/0yG7C0CkyL1oCw6mmBslbP1k=", + "engines": { + "node": ">= 0.8" + } + }, + "node_modules/escape-html": { + "version": "1.0.3", + "resolved": "https://registry.npmjs.org/escape-html/-/escape-html-1.0.3.tgz", + "integrity": "sha1-Aljq5NPQwJdN4cFpGI7wBR0dGYg=" + }, + "node_modules/etag": { + "version": "1.8.1", + "resolved": "https://registry.npmjs.org/etag/-/etag-1.8.1.tgz", + "integrity": "sha1-Qa4u62XvpiJorr/qg6x9eSmbCIc=", + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/express": { + "version": "4.17.1", + "resolved": "https://registry.npmjs.org/express/-/express-4.17.1.tgz", + "integrity": "sha512-mHJ9O79RqluphRrcw2X/GTh3k9tVv8YcoyY4Kkh4WDMUYKRZUq0h1o0w2rrrxBqM7VoeUVqgb27xlEMXTnYt4g==", + "dependencies": { + "accepts": "~1.3.7", + "array-flatten": "1.1.1", + "body-parser": "1.19.0", + "content-disposition": "0.5.3", + "content-type": "~1.0.4", + "cookie": "0.4.0", + "cookie-signature": "1.0.6", + "debug": "2.6.9", + "depd": "~1.1.2", + "encodeurl": "~1.0.2", + "escape-html": "~1.0.3", + "etag": "~1.8.1", + "finalhandler": "~1.1.2", + "fresh": "0.5.2", + "merge-descriptors": "1.0.1", + "methods": "~1.1.2", + "on-finished": "~2.3.0", + "parseurl": "~1.3.3", + "path-to-regexp": "0.1.7", + "proxy-addr": "~2.0.5", + "qs": "6.7.0", + "range-parser": "~1.2.1", + "safe-buffer": "5.1.2", + "send": "0.17.1", + "serve-static": "1.14.1", + "setprototypeof": "1.1.1", + "statuses": "~1.5.0", + "type-is": "~1.6.18", + "utils-merge": "1.0.1", + "vary": "~1.1.2" + }, + "engines": { + "node": ">= 0.10.0" + } + }, + "node_modules/express-session": { + "version": "1.17.2", + "resolved": "https://registry.npmjs.org/express-session/-/express-session-1.17.2.tgz", + "integrity": "sha512-mPcYcLA0lvh7D4Oqr5aNJFMtBMKPLl++OKKxkHzZ0U0oDq1rpKBnkR5f5vCHR26VeArlTOEF9td4x5IjICksRQ==", + "dependencies": { + "cookie": "0.4.1", + "cookie-signature": "1.0.6", + "debug": "2.6.9", + "depd": "~2.0.0", + "on-headers": "~1.0.2", + "parseurl": "~1.3.3", + "safe-buffer": "5.2.1", + "uid-safe": "~2.1.5" + }, + "engines": { + "node": ">= 0.8.0" + } + }, + "node_modules/express-session/node_modules/cookie": { + "version": "0.4.1", + "resolved": "https://registry.npmjs.org/cookie/-/cookie-0.4.1.tgz", + "integrity": "sha512-ZwrFkGJxUR3EIoXtO+yVE69Eb7KlixbaeAWfBQB9vVsNn/o+Yw69gBWSSDK825hQNdN+wF8zELf3dFNl/kxkUA==", + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/express-session/node_modules/depd": { + "version": "2.0.0", + "resolved": "https://registry.npmjs.org/depd/-/depd-2.0.0.tgz", + "integrity": "sha512-g7nH6P6dyDioJogAAGprGpCtVImJhpPk/roCzdb3fIh61/s/nPsfR6onyMwkCAR/OlC3yBC0lESvUoQEAssIrw==", + "engines": { + "node": ">= 0.8" + } + }, + "node_modules/express-session/node_modules/safe-buffer": { + "version": "5.2.1", + "resolved": "https://registry.npmjs.org/safe-buffer/-/safe-buffer-5.2.1.tgz", + "integrity": "sha512-rp3So07KcdmmKbGvgaNxQSJr7bGVSVk5S9Eq1F+ppbRo70+YeaDxkw5Dd8NPN+GD6bjnYm2VuPuCXmpuYvmCXQ==", + "funding": [ + { + "type": "github", + "url": "https://github.com/sponsors/feross" + }, + { + "type": "patreon", + "url": "https://www.patreon.com/feross" + }, + { + "type": "consulting", + "url": "https://feross.org/support" + } + ] + }, + "node_modules/finalhandler": { + "version": "1.1.2", + "resolved": "https://registry.npmjs.org/finalhandler/-/finalhandler-1.1.2.tgz", + "integrity": "sha512-aAWcW57uxVNrQZqFXjITpW3sIUQmHGG3qSb9mUah9MgMC4NeWhNOlNjXEYq3HjRAvL6arUviZGGJsBg6z0zsWA==", + "dependencies": { + "debug": "2.6.9", + "encodeurl": "~1.0.2", + "escape-html": "~1.0.3", + "on-finished": "~2.3.0", + "parseurl": "~1.3.3", + "statuses": "~1.5.0", + "unpipe": "~1.0.0" + }, + "engines": { + "node": ">= 0.8" + } + }, + "node_modules/forwarded": { + "version": "0.2.0", + "resolved": "https://registry.npmjs.org/forwarded/-/forwarded-0.2.0.tgz", + "integrity": "sha512-buRG0fpBtRHSTCOASe6hD258tEubFoRLb4ZNA6NxMVHNw2gOcwHo9wyablzMzOA5z9xA9L1KNjk/Nt6MT9aYow==", + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/fresh": { + "version": "0.5.2", + "resolved": "https://registry.npmjs.org/fresh/-/fresh-0.5.2.tgz", + "integrity": "sha1-PYyt2Q2XZWn6g1qx+OSyOhBWBac=", + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/http-errors": { + "version": "1.7.2", + "resolved": "https://registry.npmjs.org/http-errors/-/http-errors-1.7.2.tgz", + "integrity": "sha512-uUQBt3H/cSIVfch6i1EuPNy/YsRSOUBXTVfZ+yR7Zjez3qjBz6i9+i4zjNaoqcoFVI4lQJ5plg63TvGfRSDCRg==", + "dependencies": { + "depd": "~1.1.2", + "inherits": "2.0.3", + "setprototypeof": "1.1.1", + "statuses": ">= 1.5.0 < 2", + "toidentifier": "1.0.0" + }, + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/iconv-lite": { + "version": "0.4.24", + "resolved": "https://registry.npmjs.org/iconv-lite/-/iconv-lite-0.4.24.tgz", + "integrity": "sha512-v3MXnZAcvnywkTUEZomIActle7RXXeedOR31wwl7VlyoXO4Qi9arvSenNQWne1TcRwhCL1HwLI21bEqdpj8/rA==", + "dependencies": { + "safer-buffer": ">= 2.1.2 < 3" + }, + "engines": { + "node": ">=0.10.0" + } + }, + "node_modules/inherits": { + "version": "2.0.3", + "resolved": "https://registry.npmjs.org/inherits/-/inherits-2.0.3.tgz", + "integrity": "sha1-Yzwsg+PaQqUC9SRmAiSA9CCCYd4=" + }, + "node_modules/ipaddr.js": { + "version": "1.9.1", + "resolved": "https://registry.npmjs.org/ipaddr.js/-/ipaddr.js-1.9.1.tgz", + "integrity": "sha512-0KI/607xoxSToH7GjN1FfSbLoU0+btTicjsQSWQlh/hZykN8KpmMf7uYwPW3R+akZ6R/w18ZlXSHBYXiYUPO3g==", + "engines": { + "node": ">= 0.10" + } + }, + "node_modules/media-typer": { + "version": "0.3.0", + "resolved": "https://registry.npmjs.org/media-typer/-/media-typer-0.3.0.tgz", + "integrity": "sha1-hxDXrwqmJvj/+hzgAWhUUmMlV0g=", + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/merge-descriptors": { + "version": "1.0.1", + "resolved": "https://registry.npmjs.org/merge-descriptors/-/merge-descriptors-1.0.1.tgz", + "integrity": "sha1-sAqqVW3YtEVoFQ7J0blT8/kMu2E=" + }, + "node_modules/methods": { + "version": "1.1.2", + "resolved": "https://registry.npmjs.org/methods/-/methods-1.1.2.tgz", + "integrity": "sha1-VSmk1nZUE07cxSZmVoNbD4Ua/O4=", + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/mime": { + "version": "1.6.0", + "resolved": "https://registry.npmjs.org/mime/-/mime-1.6.0.tgz", + "integrity": "sha512-x0Vn8spI+wuJ1O6S7gnbaQg8Pxh4NNHb7KSINmEWKiPE4RKOplvijn+NkmYmmRgP68mc70j2EbeTFRsrswaQeg==", + "bin": { + "mime": "cli.js" + }, + "engines": { + "node": ">=4" + } + }, + "node_modules/mime-db": { + "version": "1.48.0", + "resolved": "https://registry.npmjs.org/mime-db/-/mime-db-1.48.0.tgz", + "integrity": "sha512-FM3QwxV+TnZYQ2aRqhlKBMHxk10lTbMt3bBkMAp54ddrNeVSfcQYOOKuGuy3Ddrm38I04If834fOUSq1yzslJQ==", + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/mime-types": { + "version": "2.1.31", + "resolved": "https://registry.npmjs.org/mime-types/-/mime-types-2.1.31.tgz", + "integrity": "sha512-XGZnNzm3QvgKxa8dpzyhFTHmpP3l5YNusmne07VUOXxou9CqUqYa/HBy124RqtVh/O2pECas/MOcsDgpilPOPg==", + "dependencies": { + "mime-db": "1.48.0" + }, + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/ms": { + "version": "2.0.0", + "resolved": "https://registry.npmjs.org/ms/-/ms-2.0.0.tgz", + "integrity": "sha1-VgiurfwAvmwpAd9fmGF4jeDVl8g=" + }, + "node_modules/negotiator": { + "version": "0.6.2", + "resolved": "https://registry.npmjs.org/negotiator/-/negotiator-0.6.2.tgz", + "integrity": "sha512-hZXc7K2e+PgeI1eDBe/10Ard4ekbfrrqG8Ep+8Jmf4JID2bNg7NvCPOZN+kfF574pFQI7mum2AUqDidoKqcTOw==", + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/on-finished": { + "version": "2.3.0", + "resolved": "https://registry.npmjs.org/on-finished/-/on-finished-2.3.0.tgz", + "integrity": "sha1-IPEzZIGwg811M3mSoWlxqi2QaUc=", + "dependencies": { + "ee-first": "1.1.1" + }, + "engines": { + "node": ">= 0.8" + } + }, + "node_modules/on-headers": { + "version": "1.0.2", + "resolved": "https://registry.npmjs.org/on-headers/-/on-headers-1.0.2.tgz", + "integrity": "sha512-pZAE+FJLoyITytdqK0U5s+FIpjN0JP3OzFi/u8Rx+EV5/W+JTWGXG8xFzevE7AjBfDqHv/8vL8qQsIhHnqRkrA==", + "engines": { + "node": ">= 0.8" + } + }, + "node_modules/parseurl": { + "version": "1.3.3", + "resolved": "https://registry.npmjs.org/parseurl/-/parseurl-1.3.3.tgz", + "integrity": "sha512-CiyeOxFT/JZyN5m0z9PfXw4SCBJ6Sygz1Dpl0wqjlhDEGGBP1GnsUVEL0p63hoG1fcj3fHynXi9NYO4nWOL+qQ==", + "engines": { + "node": ">= 0.8" + } + }, + "node_modules/path-to-regexp": { + "version": "0.1.7", + "resolved": "https://registry.npmjs.org/path-to-regexp/-/path-to-regexp-0.1.7.tgz", + "integrity": "sha1-32BBeABfUi8V60SQ5yR6G/qmf4w=" + }, + "node_modules/proxy-addr": { + "version": "2.0.7", + "resolved": "https://registry.npmjs.org/proxy-addr/-/proxy-addr-2.0.7.tgz", + "integrity": "sha512-llQsMLSUDUPT44jdrU/O37qlnifitDP+ZwrmmZcoSKyLKvtZxpyV0n2/bD/N4tBAAZ/gJEdZU7KMraoK1+XYAg==", + "dependencies": { + "forwarded": "0.2.0", + "ipaddr.js": "1.9.1" + }, + "engines": { + "node": ">= 0.10" + } + }, + "node_modules/qs": { + "version": "6.7.0", + "resolved": "https://registry.npmjs.org/qs/-/qs-6.7.0.tgz", + "integrity": "sha512-VCdBRNFTX1fyE7Nb6FYoURo/SPe62QCaAyzJvUjwRaIsc+NePBEniHlvxFmmX56+HZphIGtV0XeCirBtpDrTyQ==", + "engines": { + "node": ">=0.6" + } + }, + "node_modules/random-bytes": { + "version": "1.0.0", + "resolved": "https://registry.npmjs.org/random-bytes/-/random-bytes-1.0.0.tgz", + "integrity": "sha1-T2ih3Arli9P7lYSMMDJNt11kNgs=", + "engines": { + "node": ">= 0.8" + } + }, + "node_modules/range-parser": { + "version": "1.2.1", + "resolved": "https://registry.npmjs.org/range-parser/-/range-parser-1.2.1.tgz", + "integrity": "sha512-Hrgsx+orqoygnmhFbKaHE6c296J+HTAQXoxEF6gNupROmmGJRoyzfG3ccAveqCBrwr/2yxQ5BVd/GTl5agOwSg==", + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/raw-body": { + "version": "2.4.0", + "resolved": "https://registry.npmjs.org/raw-body/-/raw-body-2.4.0.tgz", + "integrity": "sha512-4Oz8DUIwdvoa5qMJelxipzi/iJIi40O5cGV1wNYp5hvZP8ZN0T+jiNkL0QepXs+EsQ9XJ8ipEDoiH70ySUJP3Q==", + "dependencies": { + "bytes": "3.1.0", + "http-errors": "1.7.2", + "iconv-lite": "0.4.24", + "unpipe": "1.0.0" + }, + "engines": { + "node": ">= 0.8" + } + }, + "node_modules/safe-buffer": { + "version": "5.1.2", + "resolved": "https://registry.npmjs.org/safe-buffer/-/safe-buffer-5.1.2.tgz", + "integrity": "sha512-Gd2UZBJDkXlY7GbJxfsE8/nvKkUEU1G38c1siN6QP6a9PT9MmHB8GnpscSmMJSoF8LOIrt8ud/wPtojys4G6+g==" + }, + "node_modules/safer-buffer": { + "version": "2.1.2", + "resolved": "https://registry.npmjs.org/safer-buffer/-/safer-buffer-2.1.2.tgz", + "integrity": "sha512-YZo3K82SD7Riyi0E1EQPojLz7kpepnSQI9IyPbHHg1XXXevb5dJI7tpyN2ADxGcQbHG7vcyRHk0cbwqcQriUtg==" + }, + "node_modules/send": { + "version": "0.17.1", + "resolved": "https://registry.npmjs.org/send/-/send-0.17.1.tgz", + "integrity": "sha512-BsVKsiGcQMFwT8UxypobUKyv7irCNRHk1T0G680vk88yf6LBByGcZJOTJCrTP2xVN6yI+XjPJcNuE3V4fT9sAg==", + "dependencies": { + "debug": "2.6.9", + "depd": "~1.1.2", + "destroy": "~1.0.4", + "encodeurl": "~1.0.2", + "escape-html": "~1.0.3", + "etag": "~1.8.1", + "fresh": "0.5.2", + "http-errors": "~1.7.2", + "mime": "1.6.0", + "ms": "2.1.1", + "on-finished": "~2.3.0", + "range-parser": "~1.2.1", + "statuses": "~1.5.0" + }, + "engines": { + "node": ">= 0.8.0" + } + }, + "node_modules/send/node_modules/ms": { + "version": "2.1.1", + "resolved": "https://registry.npmjs.org/ms/-/ms-2.1.1.tgz", + "integrity": "sha512-tgp+dl5cGk28utYktBsrFqA7HKgrhgPsg6Z/EfhWI4gl1Hwq8B/GmY/0oXZ6nF8hDVesS/FpnYaD/kOWhYQvyg==" + }, + "node_modules/serve-static": { + "version": "1.14.1", + "resolved": "https://registry.npmjs.org/serve-static/-/serve-static-1.14.1.tgz", + "integrity": "sha512-JMrvUwE54emCYWlTI+hGrGv5I8dEwmco/00EvkzIIsR7MqrHonbD9pO2MOfFnpFntl7ecpZs+3mW+XbQZu9QCg==", + "dependencies": { + "encodeurl": "~1.0.2", + "escape-html": "~1.0.3", + "parseurl": "~1.3.3", + "send": "0.17.1" + }, + "engines": { + "node": ">= 0.8.0" + } + }, + "node_modules/setprototypeof": { + "version": "1.1.1", + "resolved": "https://registry.npmjs.org/setprototypeof/-/setprototypeof-1.1.1.tgz", + "integrity": "sha512-JvdAWfbXeIGaZ9cILp38HntZSFSo3mWg6xGcJJsd+d4aRMOqauag1C63dJfDw7OaMYwEbHMOxEZ1lqVRYP2OAw==" + }, + "node_modules/statuses": { + "version": "1.5.0", + "resolved": "https://registry.npmjs.org/statuses/-/statuses-1.5.0.tgz", + "integrity": "sha1-Fhx9rBd2Wf2YEfQ3cfqZOBR4Yow=", + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/toidentifier": { + "version": "1.0.0", + "resolved": "https://registry.npmjs.org/toidentifier/-/toidentifier-1.0.0.tgz", + "integrity": "sha512-yaOH/Pk/VEhBWWTlhI+qXxDFXlejDGcQipMlyxda9nthulaxLZUNcUqFxokp0vcYnvteJln5FNQDRrxj3YcbVw==", + "engines": { + "node": ">=0.6" + } + }, + "node_modules/type-is": { + "version": "1.6.18", + "resolved": "https://registry.npmjs.org/type-is/-/type-is-1.6.18.tgz", + "integrity": "sha512-TkRKr9sUTxEH8MdfuCSP7VizJyzRNMjj2J2do2Jr3Kym598JVdEksuzPQCnlFPW4ky9Q+iA+ma9BGm06XQBy8g==", + "dependencies": { + "media-typer": "0.3.0", + "mime-types": "~2.1.24" + }, + "engines": { + "node": ">= 0.6" + } + }, + "node_modules/uid-safe": { + "version": "2.1.5", + "resolved": "https://registry.npmjs.org/uid-safe/-/uid-safe-2.1.5.tgz", + "integrity": "sha512-KPHm4VL5dDXKz01UuEd88Df+KzynaohSL9fBh096KWAxSKZQDI2uBrVqtvRM4rwrIrRRKsdLNML/lnaaVSRioA==", + "dependencies": { + "random-bytes": "~1.0.0" + }, + "engines": { + "node": ">= 0.8" + } + }, + "node_modules/unpipe": { + "version": "1.0.0", + "resolved": "https://registry.npmjs.org/unpipe/-/unpipe-1.0.0.tgz", + "integrity": "sha1-sr9O6FFKrmFltIF4KdIbLvSZBOw=", + "engines": { + "node": ">= 0.8" + } + }, + "node_modules/utils-merge": { + "version": "1.0.1", + "resolved": "https://registry.npmjs.org/utils-merge/-/utils-merge-1.0.1.tgz", + "integrity": "sha1-n5VxD1CiZ5R7LMwSR0HBAoQn5xM=", + "engines": { + "node": ">= 0.4.0" + } + }, + "node_modules/vary": { + "version": "1.1.2", + "resolved": "https://registry.npmjs.org/vary/-/vary-1.1.2.tgz", + "integrity": "sha1-IpnwLG3tMNSllhsLn3RSShj2NPw=", + "engines": { + "node": ">= 0.8" + } + } + }, "dependencies": { "accepts": { "version": "1.3.7", diff --git a/static/index.html b/static/index.html index 9b1b2c0..f2d05c7 100644 --- a/static/index.html +++ b/static/index.html @@ -5,22 +5,22 @@ - - - - + - + - + + + + + + + + + - - - @@ -54,58 +54,56 @@ -