mbutterick
/
beautiful-racket
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

renamings

Browse Source
dev-srcloc
Matthew Butterick 8 years ago
parent 6259bbdd0c
commit d031040262
49 changed files with 51 additions and 73 deletions
Show Stats Download Patch File Download Diff File

2
beautiful-racket-demo/basic-demo/3dplot.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/basic #lang basic-demo
1 PRINT TAB(32);"3D PLOT" 1 PRINT TAB(32);"3D PLOT"
2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"

2
beautiful-racket-demo/basic-demo/aceyducey.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/basic #lang basic-demo
10 PRINT TAB(26);"ACEY DUCEY CARD GAME" 10 PRINT TAB(26);"ACEY DUCEY CARD GAME"
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
21 PRINT 21 PRINT

2
beautiful-racket-demo/basic-demo/amazing.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/basic #lang basic-demo
10 PRINT TAB(28);"AMAZING PROGRAM" 10 PRINT TAB(28);"AMAZING PROGRAM"
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"

2
beautiful-racket-demo/basic-demo/bounce.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/basic #lang basic-demo
10 PRINT TAB(33);"BOUNCE" 10 PRINT TAB(33);"BOUNCE"
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"

2
beautiful-racket-demo/basic-demo/change.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/basic #lang basic-demo
2 PRINT TAB(33);"CHANGE" 2 PRINT TAB(33);"CHANGE"
4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
5 PRINT:PRINT:PRINT 5 PRINT:PRINT:PRINT

2
beautiful-racket-demo/basic-demo/chemist.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/basic #lang basic-demo
3 print TAB(33);"Chemist" 3 print TAB(33);"Chemist"
6 print TAB(15);"Creative Computing | Morristown, New Jersey" 6 print TAB(15);"Creative Computing | Morristown, New Jersey"

2
beautiful-racket-demo/basic-demo/dim.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/basic #lang basic-demo
5 A=5 5 A=5
10 DIM A(A) 10 DIM A(A)

2
beautiful-racket-demo/basic-demo/for.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/basic #lang basic-demo
10 for A=1 to 3 10 for A=1 to 3
20 print A 20 print A
21 for B=5 to 8 21 for B=5 to 8

2
beautiful-racket-demo/basic-demo/gosub.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/basic #lang basic-demo
10 GOSUB 50 10 GOSUB 50
15 PRINT "2 of 3" 15 PRINT "2 of 3"
17 GOSUB 30 17 GOSUB 30

4
beautiful-racket-demo/basic-demo/main.rkt
Unescape Escape View File

@ -0,0 +1,4 @@
#lang br/quicklang
(module reader br
(require "reader.rkt")
(provide read-syntax))

2
beautiful-racket-demo/basic-demo/next-fix.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/basic #lang basic-demo
300 B=INT(RND(3*2)) 300 B=INT(RND(3*2))

2
beautiful-racket-demo/basic-demo/on.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/basic #lang basic-demo
10 X = 3 10 X = 3
20 on X gosub 210, 220, 230 20 on X gosub 210, 220, 230
21 print "yay" 21 print "yay"

2
beautiful-racket-demo/basic-demo/reader.rkt
Unescape Escape View File

@ -2,5 +2,5 @@
(require br/reader-utils "parser.rkt" "tokenizer.rkt") (require br/reader-utils "parser.rkt" "tokenizer.rkt")
(define-read-and-read-syntax (source-path input-port) (define-read-and-read-syntax (source-path input-port)
#`(module bf-mod br/demo/basic/expander #`(module bf-mod basic-demo/expander
#,(parse source-path (tokenize input-port)))) #,(parse source-path (tokenize input-port))))

2
beautiful-racket-demo/basic-demo/sinewave.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/basic #lang basic-demo
10 PRINT TAB(30);"SINE WAVE" 10 PRINT TAB(30);"SINE WAVE"
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"

2
beautiful-racket-demo/basic-demo/tabs.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/basic #lang basic-demo
5 print 30; "foo" 5 print 30; "foo"
10 PRINT TAB(10);"*"; 10 PRINT TAB(10);"*";

4
beautiful-racket-demo/basic.rkt
Unescape Escape View File

@ -1,4 +0,0 @@
#lang br
(module reader br
(require "basic/reader.rkt")
(provide (all-from-out "basic/reader.rkt")))

4
beautiful-racket-demo/bf.rkt
Unescape Escape View File

@ -1,4 +0,0 @@
#lang br
(module reader br
(require (submod "bf/main.rkt" reader))
(provide read-syntax))

2
beautiful-racket-demo/funstacker-demo/funstacker-h2.rkt
Unescape Escape View File

@ -3,7 +3,7 @@
(define (read-syntax path port) (define (read-syntax path port)
(define args (port->lines port)) (define args (port->lines port))
(define arg-datums (filter-not void? (format-datums '~a args))) (define arg-datums (filter-not void? (format-datums '~a args)))
(define module-datum `(module stacker-mod br/demo/funstacker (define module-datum `(module stacker-mod funstacker-demo
(nestify null ,@arg-datums))) (nestify null ,@arg-datums)))
(datum->syntax #f module-datum)) (datum->syntax #f module-datum))
(provide read-syntax) (provide read-syntax)

2
beautiful-racket-demo/hdl-demo/And.hdl.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl #lang hdl-demo
CHIP And { CHIP And {
IN a, b; IN a, b;

2
beautiful-racket-demo/hdl-demo/And.tst.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl-tst #lang hdl-tst-demo
// This file is part of www.nand2tetris.org // This file is part of www.nand2tetris.org
// and the book "The Elements of Computing Systems" // and the book "The Elements of Computing Systems"

2
beautiful-racket-demo/hdl-demo/DMux.hdl.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl #lang hdl-demo
// This file is part of www.nand2tetris.org // This file is part of www.nand2tetris.org
// and the book "The Elements of Computing Systems" // and the book "The Elements of Computing Systems"

2
beautiful-racket-demo/hdl-demo/DMux4Way.tst.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl-tst #lang hdl-tst-demo
// This file is part of www.nand2tetris.org // This file is part of www.nand2tetris.org
// and the book "The Elements of Computing Systems" // and the book "The Elements of Computing Systems"

2
beautiful-racket-demo/hdl-demo/Dmux.tst.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl-tst #lang hdl-tst-demo
// This file is part of www.nand2tetris.org // This file is part of www.nand2tetris.org
// and the book "The Elements of Computing Systems" // and the book "The Elements of Computing Systems"

2
beautiful-racket-demo/hdl-demo/Dmux4Way.hdl.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl #lang hdl-demo
// This file is part of www.nand2tetris.org // This file is part of www.nand2tetris.org
// and the book "The Elements of Computing Systems" // and the book "The Elements of Computing Systems"

2
beautiful-racket-demo/hdl-demo/Fanout.hdl.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl #lang hdl-demo
CHIP Fanout { CHIP Fanout {
IN in; IN in;

2
beautiful-racket-demo/hdl-demo/HalfAdder.hdl.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl #lang hdl-demo
CHIP HalfAdder { CHIP HalfAdder {
IN a, b; // 1-bit inputs IN a, b; // 1-bit inputs

2
beautiful-racket-demo/hdl-demo/HalfAdder.tst.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl-tst #lang hdl-tst-demo
// This file is part of www.nand2tetris.org // This file is part of www.nand2tetris.org
// and the book "The Elements of Computing Systems" // and the book "The Elements of Computing Systems"

2
beautiful-racket-demo/hdl-demo/Mux.hdl.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl #lang hdl-demo
// This file is part of www.nand2tetris.org // This file is part of www.nand2tetris.org
// and the book "The Elements of Computing Systems" // and the book "The Elements of Computing Systems"

2
beautiful-racket-demo/hdl-demo/Mux.tst.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl-tst #lang hdl-tst-demo
// This file is part of www.nand2tetris.org // This file is part of www.nand2tetris.org
// and the book "The Elements of Computing Systems" // and the book "The Elements of Computing Systems"
// by Nisan and Schocken, MIT Press. // by Nisan and Schocken, MIT Press.

2
beautiful-racket-demo/hdl-demo/Nand.tst.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl-tst #lang hdl-tst-demo
/* nand */ /* nand */

2
beautiful-racket-demo/hdl-demo/Not-sexp.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang s-exp br/demo/hdl/expander #lang s-exp hdl-demo/expander
#| #|
CHIP Not { CHIP Not {

2
beautiful-racket-demo/hdl-demo/Not.hdl.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl #lang hdl-demo
CHIP Not { CHIP Not {
IN in; IN in;

4
beautiful-racket-demo/hdl-demo/Not.tst-sexp.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang s-exp br/demo/hdl-tst/expander #lang s-exp hdl-tst-demo/expander
#| #|
@ -15,7 +15,7 @@ output;
|# |#
(require br/demo/hdl-tst/hdlprint rackunit racket/file) (require hdl-demo-tst/hdlprint rackunit racket/file)
(require "Not.hdl.rkt") ; load Not.hdl, (require "Not.hdl.rkt") ; load Not.hdl,
(define of (open-output-file "Not.out" #:mode 'text #:exists 'replace)) ; output-file Not.out, (define of (open-output-file "Not.out" #:mode 'text #:exists 'replace)) ; output-file Not.out,
(define (output in out) ; output-list in%B3.1.3 out%B3.1.3; (define (output in out) ; output-list in%B3.1.3 out%B3.1.3;

2
beautiful-racket-demo/hdl-demo/Not.tst.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl-tst #lang hdl-tst-demo
load Not.hdl, load Not.hdl,
output-file Not.out, output-file Not.out,

2
beautiful-racket-demo/hdl-demo/Or.hdl.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl #lang hdl-demo
CHIP Or { CHIP Or {
IN a, b; IN a, b;

2
beautiful-racket-demo/hdl-demo/Or.tst.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl-tst #lang hdl-tst-demo
// This file is part of www.nand2tetris.org // This file is part of www.nand2tetris.org
// and the book "The Elements of Computing Systems" // and the book "The Elements of Computing Systems"
// by Nisan and Schocken, MIT Press. // by Nisan and Schocken, MIT Press.

2
beautiful-racket-demo/hdl-demo/Toffoli.hdl.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl #lang hdl-demo
CHIP And { CHIP And {
IN a, b; IN a, b;

2
beautiful-racket-demo/hdl-demo/Xor.hdl.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl #lang hdl-demo
/* Xor (exclusive or) gate: /* Xor (exclusive or) gate:
If a<>b out=1 else out=0. */ If a<>b out=1 else out=0. */

2
beautiful-racket-demo/hdl-demo/Xor.tst.rkt
Unescape Escape View File

@ -1,4 +1,4 @@
#lang br/demo/hdl-tst #lang hdl-tst-demo
// This file is part of www.nand2tetris.org // This file is part of www.nand2tetris.org
// and the book "The Elements of Computing Systems" // and the book "The Elements of Computing Systems"

4
beautiful-racket-demo/hdl-demo/main.rkt
Unescape Escape View File

@ -0,0 +1,4 @@
#lang br/quicklang
(module reader br
(require "reader.rkt")
(provide read-syntax))

2
beautiful-racket-demo/hdl-demo/reader.rkt
Unescape Escape View File

@ -2,5 +2,5 @@
(require br/reader-utils "parser.rkt" "tokenizer.rkt") (require br/reader-utils "parser.rkt" "tokenizer.rkt")
(define-read-and-read-syntax (source-path input-port) (define-read-and-read-syntax (source-path input-port)
#`(module hdl-mod br/demo/hdl/expander #`(module hdl-mod hdl-demo/expander
#,(parse source-path (tokenize input-port)))) #,(parse source-path (tokenize input-port))))

4
beautiful-racket-demo/hdl-tst.rkt → beautiful-racket-demo/hdl-tst-demo/main.rkt
Unescape Escape View File

@ -1,7 +1,7 @@
#lang br #lang br
(module reader br (module reader br
(require br/reader-utils "hdl-tst/parser.rkt" "hdl-tst/tokenizer.rkt") (require br/reader-utils "parser.rkt" "tokenizer.rkt")
(define-read-and-read-syntax (source-path input-port) (define-read-and-read-syntax (source-path input-port)
#`(module hdl-mod br/demo/hdl-tst/expander #`(module hdl-mod hdl-tst-demo/expander
#,(parse source-path (tokenize input-port))))) #,(parse source-path (tokenize input-port)))))

5
beautiful-racket-demo/hdl.rkt
Unescape Escape View File

@ -1,5 +0,0 @@
#lang br
(module+ reader
(require "hdl/reader.rkt")
(provide (all-from-out "hdl/reader.rkt")))

4
beautiful-racket-demo/jsonic-2.rkt
Unescape Escape View File

@ -1,4 +0,0 @@
#lang br/quicklang
(module reader br/quicklang
(require (submod "jsonic-2/main.rkt" reader))
(provide (all-from-out (submod "jsonic-2/main.rkt" reader))))

4
beautiful-racket-demo/jsonic.rkt
Unescape Escape View File

@ -1,4 +0,0 @@
#lang br/quicklang
(module reader br/quicklang
(require (submod "jsonic/main.rkt" reader))
(provide (all-from-out (submod "jsonic/main.rkt" reader))))

4
beautiful-racket-demo/txtadv-demo/expander.rkt
Unescape Escape View File

@ -21,9 +21,9 @@
;; ============================================================ ;; ============================================================
;; Overall module: ;; Overall module:
(define-macro (module-begin _lines ...) (define-macro (module-begin LINES ...)
#'(#%module-begin #'(#%module-begin
_lines ... LINES ...
(provide do-verb do-place) (provide do-verb do-place)
(module+ main (module+ main

2
beautiful-racket-demo/txtadv-demo/reader.rkt
Unescape Escape View File

@ -2,5 +2,5 @@
(require br/reader-utils "parser.rkt" "tokenizer.rkt") (require br/reader-utils "parser.rkt" "tokenizer.rkt")
(define-read-and-read-syntax (source-path input-port) (define-read-and-read-syntax (source-path input-port)
#`(module world br/demo/txtadv/expander #`(module world txtadv-demo/expander
#,(parse source-path (tokenize input-port)))) #,(parse source-path (tokenize input-port))))

5
beautiful-racket-demo/txtadv.rkt
Unescape Escape View File

@ -1,5 +0,0 @@
#lang br
(module reader br
(require "txtadv/reader0.rkt")
(provide (all-from-out "txtadv/reader0.rkt")))

4
beautiful-racket-demo/wires.rkt
Unescape Escape View File

@ -1,4 +0,0 @@
#lang br/quicklang
(module reader br/quicklang
(require (submod "wires/main.rkt" reader))
(provide (all-from-out (submod "wires/main.rkt" reader))))
Write Preview
Loading…
Cancel
Save