Recketizing much in `net/*', mass ".ss" -> ".rkt" conversion in .scrbl files.

(Some other minor things here and there.)
This commit is contained in:
Eli Barzilay 2011-06-20 04:00:14 -04:00
parent e008fc3399
commit debd1f9f1e
776 changed files with 1520 additions and 2318 deletions

View File

@ -264,7 +264,7 @@ sequence.
The @racket[code] code will appear on a new line in the file for C The @racket[code] code will appear on a new line in the file for C
compilation. Multiple @racket[c-include] declarations are concatenated compilation. Multiple @racket[c-include] declarations are concatenated
(with newlines) in order to produces a sequence of declarations.} (with newlines) in order to produce a sequence of declarations.}
@defform[(c-include path-spec)]{ @defform[(c-include path-spec)]{

View File

@ -1,7 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require scribblings/htdp-langs/common @(require scribblings/htdp-langs/common "std-grammar.rkt" "prim-ops.rkt"
"std-grammar.ss"
"prim-ops.ss"
(for-label deinprogramm/DMdA-assignments)) (for-label deinprogramm/DMdA-assignments))
@title[#:style 'toc #:tag "DMdA-advanced"]{Die Macht der Abstraktion fortgeschritten} @title[#:style 'toc #:tag "DMdA-advanced"]{Die Macht der Abstraktion fortgeschritten}
@ -35,7 +33,7 @@ Abstraktion - fortgeschritten} that goes with the German textbook
@|prim-nonterms| @|prim-nonterms|
@prim-ops['(lib "DMdA-advanced.ss" "deinprogramm") #'here] @prim-ops['(lib "DMdA-advanced.rkt" "deinprogramm") #'here]
@section[#:tag "advanced-quote"]{Quote-Literal} @section[#:tag "advanced-quote"]{Quote-Literal}
@ -54,4 +52,4 @@ Signatur für Symbole.
@section[#:tag "advanced-prim-op"]{Primitive Operationen} @section[#:tag "advanced-prim-op"]{Primitive Operationen}
@prim-op-defns['(lib "DMdA-advanced.ss" "deinprogramm") #'here '()] @prim-op-defns['(lib "DMdA-advanced.rkt" "deinprogramm") #'here '()]

View File

@ -1,8 +1,8 @@
#lang scribble/doc #lang scribble/doc
@(require scribblings/htdp-langs/common @(require scribblings/htdp-langs/common "std-grammar.rkt" "prim-ops.rkt"
"std-grammar.ss" (for-label deinprogramm/DMdA-assignments
"prim-ops.ss" (only-in deinprogramm/DMdA-beginner
(for-label deinprogramm/DMdA-assignments (only-in deinprogramm/DMdA-beginner define-record-procedures-parametric))) define-record-procedures-parametric)))
@title[#:style 'toc #:tag "DMdA-assignments"]{Die Macht der Abstraktion mit Zuweisungen} @title[#:style 'toc #:tag "DMdA-assignments"]{Die Macht der Abstraktion mit Zuweisungen}
@ -28,7 +28,7 @@ Abstraktion mit Zuweisungen} to go with the German textbook
@|prim-nonterms| @|prim-nonterms|
@prim-ops['(lib "DMdA-assignments.ss" "deinprogramm") #'here] @prim-ops['(lib "DMdA-assignments.rkt" "deinprogramm") #'here]
@section{@scheme[define-record-procedures-2]} @section{@scheme[define-record-procedures-2]}
@ -105,4 +105,4 @@ gebunden.}
@section[#:tag "assignments-prim-op"]{Primitive Operationen} @section[#:tag "assignments-prim-op"]{Primitive Operationen}
@prim-op-defns['(lib "DMdA-assignments.ss" "deinprogramm") #'here '()] @prim-op-defns['(lib "DMdA-assignments.rkt" "deinprogramm") #'here '()]

View File

@ -1,8 +1,6 @@
#lang scribble/doc #lang scribble/doc
@(require scribblings/htdp-langs/common @(require scribblings/htdp-langs/common scribble/struct
scribble/struct "std-grammar.rkt" "prim-ops.rkt"
"std-grammar.ss"
"prim-ops.ss"
(for-label deinprogramm/DMdA-beginner)) (for-label deinprogramm/DMdA-beginner))
@title[#:style 'toc #:tag "DMdA-beginner"]{Die Macht der Abstraktion - Anfänger} @title[#:style 'toc #:tag "DMdA-beginner"]{Die Macht der Abstraktion - Anfänger}
@ -20,7 +18,7 @@ Macht der Abstraktion}.
@|prim-nonterms| @|prim-nonterms|
@prim-ops['(lib "DMdA-beginner.ss" "deinprogramm") #'here] @prim-ops['(lib "DMdA-beginner.rkt" "deinprogramm") #'here]
@; ---------------------------------------------------------------------- @; ----------------------------------------------------------------------
@ -441,4 +439,4 @@ Eigenschaft: @scheme[(==> c p)] legt fest, daß die Eigenschaft
@section[#:tag "beginner-prim-ops"]{Primitive Operationen} @section[#:tag "beginner-prim-ops"]{Primitive Operationen}
@declare-exporting[deinprogramm/DMdA-beginner] @declare-exporting[deinprogramm/DMdA-beginner]
@prim-op-defns['(lib "DMdA-beginner.ss" "deinprogramm") #'here '()] @prim-op-defns['(lib "DMdA-beginner.rkt" "deinprogramm") #'here '()]

View File

@ -1,7 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require scribblings/htdp-langs/common @(require scribblings/htdp-langs/common "std-grammar.rkt" "prim-ops.rkt"
"std-grammar.ss"
"prim-ops.ss"
(for-label deinprogramm/DMdA-vanilla (for-label deinprogramm/DMdA-vanilla
(only-in deinprogramm/DMdA-beginner define))) (only-in deinprogramm/DMdA-beginner define)))
@ -20,7 +18,7 @@ Abstraktion}.
@|prim-nonterms| @|prim-nonterms|
@prim-ops['(lib "DMdA-vanilla.ss" "deinprogramm") #'here] @prim-ops['(lib "DMdA-vanilla.rkt" "deinprogramm") #'here]
@section[#:tag "signatures-vanilla"]{Signaturen} @section[#:tag "signatures-vanilla"]{Signaturen}
@ -77,5 +75,4 @@ sich also auf das @scheme[a] aus dem @scheme[let*]-Ausdruck, nicht das
@section[#:tag "vanilla-prim-op"]{Primitive Operationen} @section[#:tag "vanilla-prim-op"]{Primitive Operationen}
@prim-op-defns['(lib "DMdA-vanilla.ss" "deinprogramm") #'here '()] @prim-op-defns['(lib "DMdA-vanilla.rkt" "deinprogramm") #'here '()]

View File

@ -1,12 +1,11 @@
#lang scribble/doc #lang scribble/doc
@(require scribble/manual "shared.ss" @(require scribble/manual "shared.rkt"
(for-label scheme (for-label scheme teachpack/deinprogramm/image))
teachpack/deinprogramm/image))
@teachpack["image"]{Bilder konstruieren} @teachpack["image"]{Bilder konstruieren}
Note: This is documentation for the @tt{image.ss} teachpack that goes Note: This is documentation for the @filepath{image.rkt} teachpack that goes
with the German textbook with the German textbook
@italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der @italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der
Abstraktion}}. Abstraktion}}.

View File

@ -1,13 +1,13 @@
#lang scribble/doc #lang scribble/doc
@(require scribble/manual "shared.ss" @(require scribble/manual "shared.rkt"
(for-label scheme (for-label scheme
teachpack/deinprogramm/image teachpack/deinprogramm/image
teachpack/deinprogramm/line3d)) teachpack/deinprogramm/line3d))
@teachpack["line3d"]{3D-Liniengraphik} @teachpack["line3d"]{3D-Liniengraphik}
Note: This is documentation for the @tt{line3d.ss} teachpack that goes Note: This is documentation for the @filepath{line3d.rkt} teachpack that goes
with the German textbook with the German textbook
@italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der @italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der
Abstraktion}}. Abstraktion}}.

View File

@ -1,14 +1,11 @@
#lang scribble/doc #lang scribble/doc
@(require scribble/manual @(require scribble/manual scribble/struct "shared.rkt"
"shared.ss" (for-label scheme teachpack/deinprogramm/sound))
scribble/struct
(for-label scheme
teachpack/deinprogramm/sound))
@teachpack["sound"]{Abspielen von Audio-Dateien} @teachpack["sound"]{Abspielen von Audio-Dateien}
Note: This is documentation for the @tt{sound.ss} teachpack that goes Note: This is documentation for the @filepath{sound.rkt} teachpack that goes
with the German textbook with the German textbook
@italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der @italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der
Abstraktion}}. Abstraktion}}.

View File

@ -1,15 +1,13 @@
#lang scribble/doc #lang scribble/doc
@(require scribble/manual @(require scribble/manual scribble/struct "shared.rkt"
"shared.ss"
scribble/struct
(for-label scheme (for-label scheme
teachpack/deinprogramm/image teachpack/deinprogramm/image
teachpack/deinprogramm/turtle)) teachpack/deinprogramm/turtle))
@teachpack["turtle"]{Turtle-Grafik} @teachpack["turtle"]{Turtle-Grafik}
Note: This is documentation for the @tt{turtle.ss} teachpack that goes Note: This is documentation for the @filepath{turtle.rkt} teachpack that goes
with the German textbook with the German textbook
@italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der @italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der
Abstraktion}}. Abstraktion}}.

View File

@ -1,15 +1,13 @@
#lang scribble/doc #lang scribble/doc
@(require scribble/manual @(require scribble/manual scribble/struct "shared.rkt"
"shared.ss"
scribble/struct
(for-label scheme (for-label scheme
teachpack/deinprogramm/image teachpack/deinprogramm/image
teachpack/deinprogramm/world)) teachpack/deinprogramm/world))
@teachpack["world"]{Animationen} @teachpack["world"]{Animationen}
Note: This is documentation for the @tt{world.ss} teachpack that goes Note: This is documentation for the @filepath{world.rkt} teachpack that goes
with the German textbook with the German textbook
@italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der @italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der
Abstraktion}}. Abstraktion}}.

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defclass/title[aligned-pasteboard% pasteboard% (alignment-parent<%>)]{ @defclass/title[aligned-pasteboard% pasteboard% (alignment-parent<%>)]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@definterface/title[alignment-parent<%> ()]{ @definterface/title[alignment-parent<%> ()]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@definterface/title[alignment<%> (dllist<%>)]{ @definterface/title[alignment<%> (dllist<%>)]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defclass/title[button-snip% snip% ()]{ @defclass/title[button-snip% snip% ()]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@title[#:tag "containers" #:style 'toc]{Containers} @title[#:tag "containers" #:style 'toc]{Containers}

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@title[#:tag "control-snips" #:style 'toc]{Control Snips} @title[#:tag "control-snips" #:style 'toc]{Control Snips}

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@title[#:tag "controls" #:style 'toc]{Controls} @title[#:tag "controls" #:style 'toc]{Controls}

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@definterface/title[dllist<%> ()]{ @definterface/title[dllist<%> ()]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defclass/title[embedded-button% snip-wrapper% (alignment<%>)]{ @defclass/title[embedded-button% snip-wrapper% (alignment<%>)]{

View File

@ -1,6 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt" (for-label framework))
(for-label framework))
@title{@bold{Embedded GUI}: Widgets within @scheme[editor<%>]} @title{@bold{Embedded GUI}: Widgets within @scheme[editor<%>]}

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defclass/title[embedded-message% snip-wrapper% ()]{ @defclass/title[embedded-message% snip-wrapper% ()]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defclass/title[embedded-text-button% snip-wrapper% (alignment<%>)]{ @defclass/title[embedded-text-button% snip-wrapper% (alignment<%>)]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defclass/title[embedded-toggle-button% snip-wrapper% (alignment<%>)]{ @defclass/title[embedded-toggle-button% snip-wrapper% (alignment<%>)]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defclass/title[hline% snip-wrapper% (alignment<%>)]{ @defclass/title[hline% snip-wrapper% (alignment<%>)]{
@ -8,4 +8,3 @@ Displays a horizontal line across the region that is inserted into.
@defconstructor[([parent (is-a?/c alignment-parent<%>)])]{ @defconstructor[([parent (is-a?/c alignment-parent<%>)])]{
} }
} }

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defclass/title[horizontal-alignment% dllist<%> (alignment<%> alignment-parent<%>)]{ @defclass/title[horizontal-alignment% dllist<%> (alignment<%> alignment-parent<%>)]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@title[#:tag "snip-related-functions"]{Snip Functions} @title[#:tag "snip-related-functions"]{Snip Functions}

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defclass/title[snip-wrapper% dllist<%> (alignment<%>)]{ @defclass/title[snip-wrapper% dllist<%> (alignment<%>)]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@definterface/title[stretchable-snip<%> ()]{ @definterface/title[stretchable-snip<%> ()]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defclass/title[text-button-snip% snip% ()]{ @defclass/title[text-button-snip% snip% ()]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defclass/title[toggle-button-snip% snip% ()]{ @defclass/title[toggle-button-snip% snip% ()]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defclass/title[vertical-alignment% dllist<%> (alignment<%> alignment-parent<%>)]{ @defclass/title[vertical-alignment% dllist<%> (alignment<%> alignment-parent<%>)]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defclass/title[vline% snip-wrapper% (alignment<%>)]{ @defclass/title[vline% snip-wrapper% (alignment<%>)]{
@ -8,4 +8,3 @@ Displays a vertical line across the region that is inserted into.
@defconstructor[([parent (is-a?/c alignment-parent<%>)])]{ @defconstructor[([parent (is-a?/c alignment-parent<%>)])]{
} }
} }

View File

@ -318,7 +318,7 @@ procedure is suitable for use as a compilation handler via
(-> any/c any/c compiled-expression)]{ (-> any/c any/c compiled-expression)]{
Produces a compile handler that is like Produces a compile handler that is like
@scheme[errortrace-compile-handler], except that the code that the @scheme[errortrace-compile-handler], except that the code that
it produces is instrumented if the value of it produces is instrumented if the value of
@schemeblock[(namespace-module-registry (current-namespace))] @schemeblock[(namespace-module-registry (current-namespace))]
is the same as when the original thunk is invoked. is the same as when the original thunk is invoked.

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@title{@bold{File}: Racket File Format Libraries} @title{@bold{File}: Racket File Format Libraries}

View File

@ -1,7 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt" (for-label file/gunzip file/gzip))
(for-label file/gunzip
file/gzip))
@title[#:tag "gunzip"]{@exec{gzip} Decompression} @title[#:tag "gunzip"]{@exec{gzip} Decompression}

View File

@ -1,6 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt" (for-label file/gzip))
(for-label file/gzip))
@title[#:tag "gzip"]{@exec{gzip} Compression and File Creation} @title[#:tag "gzip"]{@exec{gzip} Compression and File Creation}

View File

@ -1,7 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt" scribble/eval (for-label file/md5))
scribble/eval
(for-label file/md5))
@(define md5-eval (make-base-eval)) @(define md5-eval (make-base-eval))
@interaction-eval[#:eval md5-eval (require file/md5)] @interaction-eval[#:eval md5-eval (require file/md5)]

View File

@ -1,6 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt" (for-label file/resource))
(for-label file/resource))
@(define-syntax-rule (compat file section indexed-racket what) @(define-syntax-rule (compat file section indexed-racket what)
@elem{For backward compatibilty, the @elem{For backward compatibilty, the

View File

@ -1,7 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt" scribble/eval (for-label file/sha1))
scribble/eval
(for-label file/sha1))
@(define sha1-eval (make-base-eval)) @(define sha1-eval (make-base-eval))
@interaction-eval[#:eval sha1-eval (require file/sha1)] @interaction-eval[#:eval sha1-eval (require file/sha1)]

View File

@ -1,6 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt" (for-label file/tar file/gzip))
(for-label file/tar file/gzip))
@title[#:tag "tar"]{@exec{tar} File Creation} @title[#:tag "tar"]{@exec{tar} File Creation}

View File

@ -1,8 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt" (for-label file/zip file/gunzip scheme/file))
(for-label file/zip
file/gunzip
scheme/file))
@title[#:tag "zip"]{@exec{zip} File Creation} @title[#:tag "zip"]{@exec{zip} File Creation}

View File

@ -407,34 +407,34 @@ To run the following animation/GUI demos, simply set the language
level to FrTime, open the corresponding file, and Execute. See the level to FrTime, open the corresponding file, and Execute. See the
demo source code for more information. demo source code for more information.
@scheme[orbit-mouse.ss] : A collection of balls that move in circles @scheme[orbit-mouse.rkt] : A collection of balls that move in circles
around the mouse pointer. around the mouse pointer.
@scheme[piston.ss] : Simulation of a piston/cylinder. @scheme[piston.rkt] : Simulation of a piston/cylinder.
@scheme[rotation.ss] : Balls moving in circles. @scheme[rotation.rkt] : Balls moving in circles.
@scheme[delay-mouse.ss] : A trail of balls following the mouse. @scheme[delay-mouse.rkt] : A trail of balls following the mouse.
@scheme[ball-on-string.ss] : A ball chasing the mouse. @scheme[ball-on-string.rkt] : A ball chasing the mouse.
@scheme[pong.ss] : A simple pong/air-hockey game. The left paddle moves with @scheme[pong.rkt] : A simple pong/air-hockey game. The left paddle moves with
numeric keypad; the right paddle moves with the mouse. The 'r' key numeric keypad; the right paddle moves with the mouse. The 'r' key
resets the score. resets the score.
@scheme[pizza.ss] : A simple "pizza ordering" user interface based on an HtDP @scheme[pizza.rkt] : A simple "pizza ordering" user interface based on an HtDP
exercise. exercise.
@scheme[calculator.ss] : A simple calculator interface, also based on an HtDP @scheme[calculator.rkt] : A simple calculator interface, also based on an HtDP
exercise except that the result updates continuously as the arguments exercise except that the result updates continuously as the arguments
and operator change. and operator change.
The next three animation examples are courtesy of Robb Cutler: The next three animation examples are courtesy of Robb Cutler:
@scheme[analog-clock.ss] : An animated real-time clock. A slider adjusts the radius @scheme[analog-clock.rkt] : An animated real-time clock. A slider adjusts the
of the face. Click and drag to move the face around. radius of the face. Click and drag to move the face around.
@scheme[growing-points.ss] : A field of points that grow as the mouse approaches. @scheme[growing-points.rkt] : A field of points that grow as the mouse
approaches.
@scheme[needles.ss] : A field of needles that point at the mouse.
@scheme[needles.rkt] : A field of needles that point at the mouse.

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@gametitle["Aces" "aces" "Solitaire Card Game"] @gametitle["Aces" "aces" "Solitaire Card Game"]

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@gametitle["Blackjack" "blackjack" "21 Card Game"] @gametitle["Blackjack" "blackjack" "21 Card Game"]

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@gametitle["Checkers" "checkers" "Board Game"] @gametitle["Checkers" "checkers" "Board Game"]

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@gametitle["Crazy 8s" "crazy8s" "Card Game"] @gametitle["Crazy 8s" "crazy8s" "Card Game"]

View File

@ -1,9 +1,7 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt"
(for-label scheme/base (for-label scheme/base scheme/contract
scheme/contract games/show-help games/show-scribbling))
games/show-help
games/show-scribbling))
@title{@bold{Games}: Fun Examples} @title{@bold{Games}: Fun Examples}
@ -24,8 +22,8 @@ installed as sub-collections of the @filepath{games} collection (see
The game-starting console inspects the sub-collections of the The game-starting console inspects the sub-collections of the
@filepath{games} collection. If a sub-collection has an @filepath{games} collection. If a sub-collection has an
@filepath{info.ss} module (see @schememodname[setup/infotab]), the @filepath{info.rkt} module (see @schememodname[setup/infotab]), the
following fields of the collection's "info.ss" file are used: following fields of the collection's @filepath{info.rkt} file are used:
@itemize[ @itemize[

View File

@ -1,12 +1,10 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@(define Lambda "\u3BB") @gametitle["GCalc" "gcalc" "Visual λ-Calculus"]
@gametitle["GCalc" "gcalc" "Visual \u3BB-Calculus"]
@onscreen{GCalc} is a system for visually demonstrating the @onscreen{GCalc} is a system for visually demonstrating the
@|Lambda|-Calculus (not really a game). λ-Calculus (not really a game).
See the following for the principles: See the following for the principles:
@ -60,22 +58,22 @@ undo feature: a right-click on the right cell always splits the main
cube to two halves and throws the right side. cube to two halves and throws the right side.
The colored cubes and the six basic operators make this simple domain, The colored cubes and the six basic operators make this simple domain,
which is extended to form a @|Lambda|-Calculus-like language by adding which is extended to form a λ-Calculus-like language by adding
abstractions and applications. Right-clicking on a basic cube on the abstractions and applications. Right-clicking on a basic cube on the
left panel creates an abstraction which is actually a lambda left panel creates an abstraction which is actually a lambda
expression except that colors are used instead of syntactic variables. expression except that colors are used instead of syntactic variables.
For example, if the main cell contains @onscreen{R|G} (red-green on For example, if the main cell contains @onscreen{R|G} (red-green on
the left and right), then right-clicking the green cube on the left the left and right), then right-clicking the green cube on the left
panel leaves us with @onscreen{@|Lambda| G . R|G}, which is visualized panel leaves us with @onscreen{λ G . R|G}, which is visualized
as @onscreen{R|G} with a green circle. The last two operator cells as @onscreen{R|G} with a green circle. The last two operator cells
are used for application of these abstractions: drag a function to the are used for application of these abstractions: drag a function to the
top-right to have it applied on the main cube, or to the bottom-left top-right to have it applied on the main cube, or to the bottom-left
to have the main cube applied to it. As in the @|Lambda|-Calculus, to have the main cube applied to it. As in the λ-Calculus,
all abstractions have exactly one variable, use currying for multiple all abstractions have exactly one variable, use currying for multiple
variables. variables.
So far the result is a domain of colored cubes that can be used in the So far the result is a domain of colored cubes that can be used in the
same way as the simple @|Lambda|-Calculus. There is one last same way as the simple λ-Calculus. There is one last
extension that goes one step further: function cubes can themselves be extension that goes one step further: function cubes can themselves be
combined with other functions using the simple operations. This combined with other functions using the simple operations. This
results in a form of "spatial functions" that behave differently in results in a form of "spatial functions" that behave differently in

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@gametitle["Rummy" "ginrummy" "Card Game"] @gametitle["Rummy" "ginrummy" "Card Game"]

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@gametitle["Gobblet" "gobblet" "Strategy Game"] @gametitle["Gobblet" "gobblet" "Strategy Game"]

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@gametitle["Go Fish" "gofish" "Kid's Card Game"] @gametitle["Go Fish" "gofish" "Kid's Card Game"]

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@gametitle["Jewel" "jewel" "3-D Skill Game"] @gametitle["Jewel" "jewel" "3-D Skill Game"]

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@gametitle["Lights Out" "lights-out" "Logic Game"] @gametitle["Lights Out" "lights-out" "Logic Game"]

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@gametitle["Memory" "memory" "Kid's Game"] @gametitle["Memory" "memory" "Kid's Game"]

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@gametitle["Minesweeper" "mines" "Logic Game"] @gametitle["Minesweeper" "mines" "Logic Game"]

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@gametitle["Paint By Numbers" "paint-by-numbers" "Logic Game"] @gametitle["Paint By Numbers" "paint-by-numbers" "Logic Game"]

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@gametitle["Parcheesi" "parcheesi" "Board Game"] @gametitle["Parcheesi" "parcheesi" "Board Game"]

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@gametitle["Pousse" "pousse" "Tic-Tac-Toe-like Game"] @gametitle["Pousse" "pousse" "Tic-Tac-Toe-like Game"]

View File

@ -1,8 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt" racket/class racket/draw (only-in slideshow/pict dc)
racket/class
racket/draw
(only-in slideshow/pict dc)
"../same/same-lib.rkt") "../same/same-lib.rkt")
@(define board-width 6) @(define board-width 6)

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@gametitle["Slidey" "slidey" "Picture Puzzle"] @gametitle["Slidey" "slidey" "Picture Puzzle"]

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@gametitle["Spider" "spider" "Solitaire Card Game"] @gametitle["Spider" "spider" "Solitaire Card Game"]

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@title[#:style 'toc #:tag "bundled"]{Bundled Games} @title[#:style 'toc #:tag "bundled"]{Bundled Games}

View File

@ -1,9 +1,9 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt"
(for-label "../graphics.ss" (for-label "../graphics.rkt"
"../graphics-sig.ss" "../graphics-sig.rkt"
"../graphics-unit.ss" "../graphics-unit.rkt"
"../graphics-posn-less-unit.ss")) "../graphics-posn-less-unit.rkt"))
@title{@bold{Graphics}: Legacy Library} @title{@bold{Graphics}: Legacy Library}

View File

@ -1,7 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt" (for-label "../turtles.rkt" "../turtle-examples.rkt"))
(for-label "../turtles.ss"
"../turtle-examples.ss"))
@title{Traditional Turtles} @title{Traditional Turtles}

View File

@ -1,7 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt" (for-label "../value-turtles.rkt"))
(for-label "../value-turtles.ss"))
@title{Value Turtles} @title{Value Turtles}

View File

@ -160,7 +160,7 @@ Similar to @scheme[!list] but also forces (using @scheme[!]) the
elements of the list.} elements of the list.}
@;{ This moved into lazy.ss, and all the other forces will move there too. @;{ This moved into lazy.rkt, and all the other forces will move there too.
@subsection{Multiple values} @subsection{Multiple values}

View File

@ -1,16 +1,9 @@
#lang scribble/doc #lang scribble/doc
@(require scribble/manual @(require scribble/manual
(for-label scheme/base (for-label scheme/base scheme/contract scheme/unit
scheme/contract make make/make-unit make/make-sig
scheme/unit make/collection make/collection-sig make/collection-unit
make dynext/file-sig compiler/sig))
make/make-unit
make/make-sig
make/collection
make/collection-sig
make/collection-unit
dynext/file-sig
compiler/sig))
@(define raco-manual @other-manual['(lib "scribblings/raco/raco.scrbl")]) @(define raco-manual @other-manual['(lib "scribblings/raco/raco.scrbl")])
@ -348,11 +341,12 @@ The arguments are as follows:
supply @scheme['("wsock32")].} supply @scheme['("wsock32")].}
@item{@scheme[extra-depends] --- a list of relative paths to treat as @item{@scheme[extra-depends] --- a list of relative paths to treat as
dependencies for compiling `file.c'. Often this list will include dependencies for compiling @filepath{file.c}. Often this list will
`file.c' with the ".c" suffix replaced by ".ss" or ".scm". For include @filepath{file.c} with the @filepath{.c} suffix replaced by
example, the "openssl" installer supplies '("mzssl.ss") to ensure @filepath{.rkt}. For example, the "openssl" installer supplies
that the stub module "mzssl.ss" is never used when the true @scheme['("mzssl.rkt")] to ensure that the stub module
extension can be built.} @filepath{mzssl.rkt} is never used when the true extension can be
built.}
@item{@scheme[last-chance-k] --- a procedure of one argument, which @item{@scheme[last-chance-k] --- a procedure of one argument, which
is a thunk. This procedure should invoke the thunk to make the is a thunk. This procedure should invoke the thunk to make the

View File

@ -1,11 +1,7 @@
(require (require mzlib/class mzlib/list mred mzlib/etc
mzlib/class "../aligned-editor-container.rkt"
mzlib/list "../aligned-pasteboard.rkt"
mred "../snip-lib.rkt")
mzlib/etc
"../aligned-editor-container.ss"
"../aligned-pasteboard.ss"
"../snip-lib.ss")
(define f (new frame% (label "test") (width 200) (height 200))) (define f (new frame% (label "test") (width 200) (height 200)))
(define e (new text%)) (define e (new text%))

View File

@ -1,6 +1,4 @@
(require (require "../aligned-pasteboard.rkt" "../aligned-editor-container.rkt")
"../aligned-pasteboard.ss"
"../aligned-editor-container.ss")
(define (converges? x) #t) (define (converges? x) #t)

View File

@ -1,10 +1,4 @@
(require mzlib/etc mzlib/list mzlib/match "../alignment.rkt" "test-macro.rkt")
(require
mzlib/etc
mzlib/list
mzlib/match
"../alignment.ss"
"test-macro.ss")
;;los-equal? ((listof rect?) (listof rect?) . -> . boolean?) ;;los-equal? ((listof rect?) (listof rect?) . -> . boolean?)
;;tests the equality of the list of structures ;;tests the equality of the list of structures

View File

@ -1,14 +1,9 @@
(require mzlib/etc mzlib/class "test-macro.rkt" mred
"../pasteboard-lib.rkt"
"../aligned-pasteboard.rkt"
"../aligned-editor-container.rkt")
(require ;; (printf "running tests for pasteboard-lib.rkt\n")
mzlib/etc
mzlib/class
"test-macro.ss"
mred
"../pasteboard-lib.ss"
"../aligned-pasteboard.ss"
"../aligned-editor-container.ss")
;; (printf "running tests for pasteboard-lib.ss\n")
;;pasteboard-root: ((is-a?/c aligned-pasteboard<%>) -> (is-a?/c aligned-pasteboard<%>)) ;;pasteboard-root: ((is-a?/c aligned-pasteboard<%>) -> (is-a?/c aligned-pasteboard<%>))
;;gets the top most aligned pasteboard in the tree of pasteboards and containers ;;gets the top most aligned pasteboard in the tree of pasteboards and containers

View File

@ -1,14 +1,9 @@
(require mzlib/etc mzlib/class mred "test-macro.rkt"
"../snip-lib.rkt"
"../aligned-pasteboard.rkt"
"../aligned-editor-container.rkt")
(require ;;(printf "running tests for snip-lib.rkt\n")
mzlib/etc
mzlib/class
mred
"../snip-lib.ss"
"../aligned-pasteboard.ss"
"../aligned-editor-container.ss"
"test-macro.ss")
;;(printf "running tests for snip-lib.ss\n")
;;snip-width: ((is-a?/c aligned-pasteboard<%>) (is-a?/c snip%) . -> . number?) ;;snip-width: ((is-a?/c aligned-pasteboard<%>) (is-a?/c snip%) . -> . number?)
;;the width of a snip in the given pasteboard ;;the width of a snip in the given pasteboard

View File

@ -1,12 +1,7 @@
(require (require mzlib/class mred mzlib/etc mzlib/list
mzlib/class "../aligned-pasteboard.rkt"
mred "../aligned-editor-container.rkt"
mzlib/etc "snip-dumper.rkt")
mzlib/list
"../aligned-pasteboard.ss"
"../aligned-editor-container.ss"
"snip-dumper.ss")
; ;; ; ;;
@ -21,7 +16,7 @@
; ; ; ;
; ;;; ; ;;;
(printf "running test1.ss\n") (printf "running test.rktl\n")
(define frame (define frame
(instantiate frame% () (instantiate frame% ()

View File

@ -1,11 +1,7 @@
(require (require mzlib/class mred mzlib/etc mzlib/list
mzlib/class "../aligned-pasteboard.rkt"
mred "../aligned-editor-container.rkt"
mzlib/etc "snip-dumper.rkt")
mzlib/list
"../aligned-pasteboard.ss"
"../aligned-editor-container.ss"
"snip-dumper.ss")
; ;
; ;
@ -22,7 +18,7 @@
; ;;; ; ;;;
; ;
(printf "running test2.ss\n") (printf "running test2.rktl\n")
(define frame (define frame
(instantiate frame% () (instantiate frame% ()

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defclass/title[aligned-editor-canvas% editor-canvas% ()]{ @defclass/title[aligned-editor-canvas% editor-canvas% ()]{
@ -7,4 +7,3 @@ Calls the
@method[aligned-pasteboard<%> realign] method when resized. @method[aligned-pasteboard<%> realign] method when resized.
} }

View File

@ -1,9 +1,8 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defclass/title[aligned-editor-snip% editor-snip% ()]{ @defclass/title[aligned-editor-snip% editor-snip% ()]{
Calls the @method[aligned-pasteboard<%> realign] method when resized. Calls the @method[aligned-pasteboard<%> realign] method when resized.
} }

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@definterface/title[aligned-pasteboard<%> ()]{ @definterface/title[aligned-pasteboard<%> ()]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@definterface/title[aligned-pasteboard-parent<%> ()]{ @definterface/title[aligned-pasteboard-parent<%> ()]{
@ -10,4 +10,3 @@ is an @scheme[aligned-pasteboard<%>].
void?]{} void?]{}
} }

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "../common.ss") @(require "../common.rkt")
@title[#:style 'toc]{Aligned Pasteboard} @title[#:style 'toc]{Aligned Pasteboard}

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defclass/title[horizontal-pasteboard% pasteboard% (aligned-pasteboard<%>)]{ @defclass/title[horizontal-pasteboard% pasteboard% (aligned-pasteboard<%>)]{
@ -28,4 +28,3 @@ Passes all arguments to @scheme[super-init].
(resized [snip (is-a?/c snip%)] (resized [snip (is-a?/c snip%)]
[redraw-now? any/c]) [redraw-now? any/c])
void?]{}} void?]{}}

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@definterface/title[stretchable-snip<%> ()]{ @definterface/title[stretchable-snip<%> ()]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defclass/title[vertical-pasteboard% pasteboard% (aligned-pasteboard<%>)]{ @defclass/title[vertical-pasteboard% pasteboard% (aligned-pasteboard<%>)]{

View File

@ -1,6 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt" (for-label mrlib/bitmap-label))
(for-label mrlib/bitmap-label))
@title{Bitmap Label} @title{Bitmap Label}

View File

@ -1,14 +1,13 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt" (for-label mrlib/cache-image-snip))
(for-label mrlib/cache-image-snip))
@title{Cache-image Snip} @title{Cache-image Snip}
@defmodule[mrlib/cache-image-snip]{ @defmodule[mrlib/cache-image-snip]{
The @schememodname[mrlib/cache-image-snip] library provides the core The @schememodname[mrlib/cache-image-snip] library provides the core
data structure for DrRacket's @filepath{image.ss} teachpack. Images in data structure for DrRacket's @filepath{image.rkt} teachpack. Images in
the @filepath{image.ss} teachpack are instances of the the @filepath{image.rkt} teachpack are instances of the
@scheme[cache-image-snip%] class.} @scheme[cache-image-snip%] class.}
The library also defines a new type, @scheme[argb], that represents a The library also defines a new type, @scheme[argb], that represents a

View File

@ -1,9 +1,7 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt"
(for-label mrlib/close-icon (for-label mrlib/close-icon
scheme/gui scheme/gui scheme/runtime-path scheme/include))
scheme/runtime-path
scheme/include))
@title{Close Icon} @title{Close Icon}

View File

@ -1,7 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt" (for-label mrlib/gif file/gif))
(for-label mrlib/gif
file/gif))
@title{GIF and Animated GIF Writing} @title{GIF and Animated GIF Writing}

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@definterface/title[graph-pasteboard<%> ()]{ @definterface/title[graph-pasteboard<%> ()]{
@ -121,4 +121,3 @@ of an arrowhead for a line that connects (@scheme[from-x],@scheme[from-y]) to (@
} }
} }

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defmixin/title[graph-pasteboard-mixin (pasteboard%) (graph-pasteboard<%>)]{ @defmixin/title[graph-pasteboard-mixin (pasteboard%) (graph-pasteboard<%>)]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@definterface/title[graph-snip<%> ()]{ @definterface/title[graph-snip<%> ()]{

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.rkt")
@defmixin/title[graph-snip-mixin (snip%) (graph-snip<%>)]{ @defmixin/title[graph-snip-mixin (snip%) (graph-snip<%>)]{
} }

View File

@ -1,6 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt" (for-label mrlib/graph))
(for-label mrlib/graph))
@title[#:style 'toc]{Graphs} @title[#:style 'toc]{Graphs}

View File

@ -1,6 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "../common.ss" @(require "../common.rkt" (for-label mrlib/hierlist))
(for-label mrlib/hierlist))
@definterface/title[hierarchical-list-compound-item<%> @definterface/title[hierarchical-list-compound-item<%>
(hierarchical-list-item<%>)]{ (hierarchical-list-item<%>)]{

View File

@ -1,6 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "../common.ss" @(require "../common.rkt" (for-label mrlib/hierlist))
(for-label mrlib/hierlist))
@title[#:style 'toc]{Hierarchical List Control} @title[#:style 'toc]{Hierarchical List Control}

View File

@ -1,6 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "../common.ss" @(require "../common.rkt" (for-label mrlib/hierlist))
(for-label mrlib/hierlist))
@definterface/title[hierarchical-list-item<%> ()]{ @definterface/title[hierarchical-list-item<%> ()]{

View File

@ -1,6 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "../common.ss" @(require "../common.rkt" (for-label mrlib/hierlist))
(for-label mrlib/hierlist))
@defclass/title[hierarchical-list% editor-canvas% ()]{ @defclass/title[hierarchical-list% editor-canvas% ()]{

View File

@ -1,6 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "../common.ss" @(require "../common.rkt" (for-label mrlib/hierlist))
(for-label mrlib/hierlist))
@title{Snips in a @scheme[hierarchical-list%] Instance} @title{Snips in a @scheme[hierarchical-list%] Instance}

View File

@ -1,6 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt" (for-label mrlib/image-core))
(for-label mrlib/image-core))
@title{Image Core} @title{Image Core}

View File

@ -1,8 +1,6 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt"
(for-label mrlib/include-bitmap (for-label mrlib/include-bitmap scheme/runtime-path scheme/include))
scheme/runtime-path
scheme/include))
@title{Include Bitmap} @title{Include Bitmap}

View File

@ -1,7 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt" (for-label mrlib/interactive-value-port scheme/pretty))
(for-label mrlib/interactive-value-port
scheme/pretty))
@title{Interactive Value Port} @title{Interactive Value Port}

View File

@ -1,5 +1,5 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.rkt"
(for-label mrlib/matrix-snip (for-label mrlib/matrix-snip
(only-in mrlib/cache-image-snip (only-in mrlib/cache-image-snip
cache-image-snip%))) cache-image-snip%)))

Some files were not shown because too many files have changed in this diff Show More