omit

beautiful-racket-demo/scriptish-demo/less-rackety.rkt

@@ -1,102 +0,0 @@
-#lang s-exp javascriptlike-demo
-;;
-;;var x = 42;
-;(define x 42)
-
-(var x 42)
-
-;;var s = "string";
-;(define s "string")
-
-(var s "string")
-
-;;
-;;x + x;
-;(define (add/concat . xs)
-;  (cond
-;    [(andmap number? xs) (apply + xs)]
-;    [(ormap string? xs) (string-join (map ~a xs) "")]))
-;(add/concat x x)
-
-(sumlike x x)
-
-;;s + x;
-;(add/concat s x)
-
-(sumlike s x)
-
-
-;;
-;;var thing = {
-;;    'foo' : 42,
-;;
-;;    'bar' : function(x) {
-;;        return x + 15;
-;;    }
-;;};
-
-;
-;(define thing (hash
-;               "foo" 42
-;               "bar" (λ (x) (let/ec return (return (add/concat x 15)) (void)))))
-;
-
-
-(object thing ("foo" 42) ("bar" (func (x) (return (sumlike x 15)))))
-
-;;thing.foo
-;;thing.bar
-;;thing.bar(3)
-
-;
-;(hash-ref thing "foo")
-;(hash-ref thing "bar")
-;(#%app (hash-ref thing "bar") 3)
-
-
-(dot thing "foo")
-(dot thing "bar")
-(func-app (dot thing "bar") 3)
-
-;
-;;
-;;if ( thing.foo == 42 ) {
-;;    console.log("The correct answer is " + thing.foo);
-;;}
-;
-;(when (equal? (hash-ref thing "foo") 42)
-;  (displayln (add/concat "The correct answer is " (hash-ref thing "foo"))))
-
-
-(object console ("log" (func (str) (pretty-print str))))
-
-(if (comparison (dot thing "foo") "==" 42)
-  (func-app (dot console "log") (sumlike "The correct answer is " (dot thing "foo"))))
-
-;
-;;var idx = 0;
-;;while ( idx != 50 ) {
-;;    if ( thing.bar(idx) == 35 ) {
-;;       alert("Calamity at " + idx + "!");
-;;    }
-;;    idx++;
-;;}
-;
-;(define (alert str)
-;  (displayln "*********")
-;  (displayln str)
-;  (displayln "*********"))
-;
-;(define idx 0)
-;(let loop ()
-;  (when (not (equal? idx 50))
-;    (when (equal? (#%app (hash-ref thing "bar") idx) 35)
-;      (alert (add/concat "Calamity at " idx "!")))
-;    (set! idx (add1 idx))
-;    (loop)))
-
-(var idx 0)
-(while (comparison idx "!=" 50)
-       (if (comparison (func-app (dot thing "bar") idx) "==" 35)
-           (alert (sumlike "Calamity at " idx "!")))
-       (increment idx))

beautiful-racket-demo/scriptish-demo/rackety.rkt

@@ -1,64 +0,0 @@
-#lang br
-;
-;var x = 42;
-(define x 42)
-;var s = "string";
-(define s "string")
-;
-;x + x;
-(define (add/concat . xs)
-  (cond
-    [(andmap number? xs) (apply + xs)]
-    [(ormap string? xs) (string-join (map ~a xs) "")]))
-(add/concat x x)
-;s + x;
-(add/concat s x)
-;
-;var thing = {
-;    'foo' : 42,
-;
-;    'bar' : function(x) {
-;        return x + 15;
-;    }
-;};
-
-(define thing (hash
-               "foo" 42
-               "bar" (λ (x) (let/ec return (return (add/concat x 15)) (void)))))
-
-;thing.foo
-;thing.bar
-;thing.bar(3)
-
-(hash-ref thing "foo")
-(hash-ref thing "bar")
-(#%app (hash-ref thing "bar") 3)
-
-;
-;if ( thing.foo == 42 ) {
-;    console.log("The correct answer is " + thing.foo);
-;}
-
-(when (equal? (hash-ref thing "foo") 42)
-  (displayln (add/concat "The correct answer is " (hash-ref thing "foo")))) 
-
-;var idx = 0;
-;while ( idx != 50 ) {
-;    if ( thing.bar(idx) == 35 ) {
-;       alert("Calamity at " + idx + "!");
-;    }
-;    idx++;
-;}
-
-(define (alert str)
-  (displayln "*********")
-  (displayln str)
-  (displayln "*********"))
-
-(define idx 0)
-(let loop ()
-  (when (not (equal? idx 50))
-    (when (equal? (#%app (hash-ref thing "bar") idx) 35)
-      (alert (add/concat "Calamity at " idx "!")))
-    (set! idx (add1 idx))
-    (loop)))

beautiful-racket-demo/scriptish-demo/sexped.rkt

@@ -1,30 +0,0 @@
-#lang s-exp javascriptlike-demo/expander
-
-(assignment x 42)
-(assignment s "string")
-
-(sumlike x x)
-(sumlike s x)
-
-(assignment thing (object
-                   ("foo" 42)
-        
-                   ("bar" (func-def (x)
-                                (return (sumlike x 15))))))
-
-
-
-(dotted-id (thing foo))
-(dotted-id (thing bar))
-(func-app (dotted-id (thing bar)) 3)
-
-(assignment console (object ("log" (func-def (str) (displayln str))))) ; simulates global console (don't put in parse tree)
-(if (comparison (dotted-id (thing foo)) == 42)
-    (func-app (dotted-id (console log)) (sumlike "The correct answer is " (dotted-id (thing foo)))))
-
-
-(assignment idx 0)
-(while (comparison idx != 50)
-       (if (comparison (func-app (dotted-id (thing bar)) idx) == 35)
-           (alert (sumlike "Calamity at " idx "!")))
-       (increment idx))