diff --git a/.gitignore b/.gitignore index ce6902a12e..b331c565d3 100644 --- a/.gitignore +++ b/.gitignore @@ -10,7 +10,8 @@ # a common convenient place to set the PLTADDON directory to /add-on/ -# common backups, autosaves, and lock files +# common backups, autosaves, lock files, OS meta-files *~ \#* .#* +.DS_Store diff --git a/collects/2htdp/batch-io.ss b/collects/2htdp/batch-io.rkt similarity index 100% rename from collects/2htdp/batch-io.ss rename to collects/2htdp/batch-io.rkt diff --git a/collects/2htdp/image.ss b/collects/2htdp/image.rkt similarity index 99% rename from collects/2htdp/image.ss rename to collects/2htdp/image.rkt index d2f5adc208..f52e490070 100644 --- a/collects/2htdp/image.ss +++ b/collects/2htdp/image.rkt @@ -115,6 +115,8 @@ and they all have good sample contracts. (It is amazing what we can do with kids make-color make-pen + + save-image ) (provide bitmap) diff --git a/collects/2htdp/info.ss b/collects/2htdp/info.rkt similarity index 100% rename from collects/2htdp/info.ss rename to collects/2htdp/info.rkt diff --git a/collects/2htdp/private/check-aux.ss b/collects/2htdp/private/check-aux.rkt similarity index 100% rename from collects/2htdp/private/check-aux.ss rename to collects/2htdp/private/check-aux.rkt diff --git a/collects/2htdp/private/checked-cell.ss b/collects/2htdp/private/checked-cell.rkt similarity index 100% rename from collects/2htdp/private/checked-cell.ss rename to collects/2htdp/private/checked-cell.rkt diff --git a/collects/2htdp/private/csv/csv.ss b/collects/2htdp/private/csv/csv.rkt similarity index 100% rename from collects/2htdp/private/csv/csv.ss rename to collects/2htdp/private/csv/csv.rkt diff --git a/collects/2htdp/private/image-more.ss b/collects/2htdp/private/image-more.rkt similarity index 100% rename from collects/2htdp/private/image-more.ss rename to collects/2htdp/private/image-more.rkt diff --git a/collects/2htdp/private/img-err.ss b/collects/2htdp/private/img-err.rkt similarity index 100% rename from collects/2htdp/private/img-err.ss rename to collects/2htdp/private/img-err.rkt diff --git a/collects/2htdp/private/last.ss b/collects/2htdp/private/last.rkt similarity index 100% rename from collects/2htdp/private/last.ss rename to collects/2htdp/private/last.rkt diff --git a/collects/2htdp/private/launch-many-worlds.ss b/collects/2htdp/private/launch-many-worlds.rkt similarity index 100% rename from collects/2htdp/private/launch-many-worlds.ss rename to collects/2htdp/private/launch-many-worlds.rkt diff --git a/collects/2htdp/private/stop.ss b/collects/2htdp/private/stop.rkt similarity index 100% rename from collects/2htdp/private/stop.ss rename to collects/2htdp/private/stop.rkt diff --git a/collects/2htdp/private/syn-aux-aux.ss b/collects/2htdp/private/syn-aux-aux.rkt similarity index 100% rename from collects/2htdp/private/syn-aux-aux.ss rename to collects/2htdp/private/syn-aux-aux.rkt diff --git a/collects/2htdp/private/syn-aux.ss b/collects/2htdp/private/syn-aux.rkt similarity index 100% rename from collects/2htdp/private/syn-aux.ss rename to collects/2htdp/private/syn-aux.rkt diff --git a/collects/2htdp/private/timer.ss b/collects/2htdp/private/timer.rkt similarity index 100% rename from collects/2htdp/private/timer.ss rename to collects/2htdp/private/timer.rkt diff --git a/collects/2htdp/private/universe-image.ss b/collects/2htdp/private/universe-image.rkt similarity index 100% rename from collects/2htdp/private/universe-image.ss rename to collects/2htdp/private/universe-image.rkt diff --git a/collects/2htdp/private/universe.ss b/collects/2htdp/private/universe.rkt similarity index 100% rename from collects/2htdp/private/universe.ss rename to collects/2htdp/private/universe.rkt diff --git a/collects/2htdp/private/world.ss b/collects/2htdp/private/world.rkt similarity index 100% rename from collects/2htdp/private/world.ss rename to collects/2htdp/private/world.rkt diff --git a/collects/2htdp/tests/bad-draw.ss b/collects/2htdp/tests/bad-draw.rkt similarity index 100% rename from collects/2htdp/tests/bad-draw.ss rename to collects/2htdp/tests/bad-draw.rkt diff --git a/collects/2htdp/tests/batch-io.ss b/collects/2htdp/tests/batch-io.rkt similarity index 63% rename from collects/2htdp/tests/batch-io.ss rename to collects/2htdp/tests/batch-io.rkt index a5f29ab05c..cbabba4e3c 100644 --- a/collects/2htdp/tests/batch-io.ss +++ b/collects/2htdp/tests/batch-io.rkt @@ -1,6 +1,6 @@ #lang scheme/load -(require schemeunit) +(require rktunit) (require 2htdp/batch-io) (define file "batch-io.txt") @@ -25,14 +25,14 @@ eos (check-true (string=? (read-file file) test2) "read-file 2") (write-file file test1) -(check-equal? (read-as-lines file) (list test1) "as-lines 1") +(check-equal? (read-lines file) (list test1) "as-lines 1") (write-file file test2) -(check-equal? (read-as-lines file) test2-as-list "as-lines 2") +(check-equal? (read-lines file) test2-as-list "as-lines 2") (define as-1strings1 (map string (string->list test1))) (write-file file test1) -(check-equal? (read-as-1strings file) as-1strings1 "as-1strings 1") +(check-equal? (read-1strings file) as-1strings1 "as-1strings 1") (define as-1strings2 (map string @@ -43,7 +43,7 @@ eos test2-as-list)))))) (write-file file test2) -(check-equal? (read-as-1strings file) as-1strings2 "as-lines 2") +(check-equal? (read-1strings file) as-1strings2 "as-lines 2") (define test2-a-as-list '("test1" "" "test2")) @@ -55,8 +55,8 @@ eos (second test2-as-list)))) (write-file file test2-a) -(check-equal? (read-as-lines file) test2-a-as-list "as-lines 2-a") -(check-equal? (read-as-words file) '("test1" "test2") "as-words 2-a") +(check-equal? (read-lines file) test2-a-as-list "as-lines 2-a") +(check-equal? (read-words file) '("test1" "test2") "as-words 2-a") (define test3 #<< eos word1, word2 @@ -65,13 +65,13 @@ eos ) (write-file file test3) -(check-equal? (read-as-words file) '("word1," "word2" "word3," "word4") +(check-equal? (read-words file) '("word1," "word2" "word3," "word4") "as-words") -(check-equal? (read-as-words/line file) '(("word1," "word2") ("word3," "word4")) +(check-equal? (read-words/line file) '(("word1," "word2") ("word3," "word4")) "as-words") -(check-equal? (read-as-csv file) '(("word1" "word2") ("word3" "word4")) +(check-equal? (read-csv-file file) '(("word1" "word2") ("word3" "word4")) "as-cvs 1") -(check-equal? (read-as-csv/rows file length) '(2 2) +(check-equal? (read-csv-file/rows file length) '(2 2) "as-csv/rows") @@ -82,8 +82,8 @@ eos (check-exn exn:fail:contract? (lambda () (read-file 0))) (check-exn exn:fail:contract? (lambda () (read-file '("test")))) -(check-exn exn:fail:contract? (lambda () (read-as-lines 0))) -(check-exn exn:fail:contract? (lambda () (read-as-lines '("test")))) +(check-exn exn:fail:contract? (lambda () (read-lines 0))) +(check-exn exn:fail:contract? (lambda () (read-lines '("test")))) -(check-exn exn:fail:contract? (lambda () (read-as-1strings 0))) -(check-exn exn:fail:contract? (lambda () (read-as-1strings '("test")))) +(check-exn exn:fail:contract? (lambda () (read-1strings 0))) +(check-exn exn:fail:contract? (lambda () (read-1strings '("test")))) diff --git a/collects/2htdp/tests/clause-once.ss b/collects/2htdp/tests/clause-once.rkt similarity index 100% rename from collects/2htdp/tests/clause-once.ss rename to collects/2htdp/tests/clause-once.rkt diff --git a/collects/2htdp/tests/full-scene-visible.ss b/collects/2htdp/tests/full-scene-visible.rkt similarity index 100% rename from collects/2htdp/tests/full-scene-visible.ss rename to collects/2htdp/tests/full-scene-visible.rkt diff --git a/collects/2htdp/tests/image-equality-performance.ss b/collects/2htdp/tests/image-equality-performance.rkt similarity index 100% rename from collects/2htdp/tests/image-equality-performance.ss rename to collects/2htdp/tests/image-equality-performance.rkt diff --git a/collects/2htdp/tests/mouse-evt.ss b/collects/2htdp/tests/mouse-evt.rkt similarity index 100% rename from collects/2htdp/tests/mouse-evt.ss rename to collects/2htdp/tests/mouse-evt.rkt diff --git a/collects/2htdp/tests/mp.ss b/collects/2htdp/tests/mp.rkt similarity index 100% rename from collects/2htdp/tests/mp.ss rename to collects/2htdp/tests/mp.rkt diff --git a/collects/2htdp/tests/on-tick-defined.ss b/collects/2htdp/tests/on-tick-defined.rkt similarity index 100% rename from collects/2htdp/tests/on-tick-defined.ss rename to collects/2htdp/tests/on-tick-defined.rkt diff --git a/collects/2htdp/tests/perform-robby.ss b/collects/2htdp/tests/perform-robby.rkt similarity index 100% rename from collects/2htdp/tests/perform-robby.ss rename to collects/2htdp/tests/perform-robby.rkt diff --git a/collects/2htdp/tests/perform-whack.ss b/collects/2htdp/tests/perform-whack.rkt similarity index 100% rename from collects/2htdp/tests/perform-whack.ss rename to collects/2htdp/tests/perform-whack.rkt diff --git a/collects/2htdp/tests/profile-robby.ss b/collects/2htdp/tests/profile-robby.rkt similarity index 100% rename from collects/2htdp/tests/profile-robby.ss rename to collects/2htdp/tests/profile-robby.rkt diff --git a/collects/2htdp/tests/release.ss b/collects/2htdp/tests/release.rkt similarity index 100% rename from collects/2htdp/tests/release.ss rename to collects/2htdp/tests/release.rkt diff --git a/collects/2htdp/tests/stop.ss b/collects/2htdp/tests/stop.rkt similarity index 100% rename from collects/2htdp/tests/stop.ss rename to collects/2htdp/tests/stop.rkt diff --git a/collects/2htdp/tests/test-image.ss b/collects/2htdp/tests/test-image.rkt similarity index 99% rename from collects/2htdp/tests/test-image.ss rename to collects/2htdp/tests/test-image.rkt index 2db4c687f7..b8f8ff5451 100644 --- a/collects/2htdp/tests/test-image.ss +++ b/collects/2htdp/tests/test-image.rkt @@ -45,7 +45,7 @@ scheme/math scheme/class scheme/gui/base - schemeunit + rktunit (prefix-in 1: htdp/image) (only-in lang/htdp-advanced equal~?)) diff --git a/collects/2htdp/tests/ufo-rename.ss b/collects/2htdp/tests/ufo-rename.rkt similarity index 100% rename from collects/2htdp/tests/ufo-rename.ss rename to collects/2htdp/tests/ufo-rename.rkt diff --git a/collects/2htdp/tests/world0-stops.ss b/collects/2htdp/tests/world0-stops.rkt similarity index 100% rename from collects/2htdp/tests/world0-stops.ss rename to collects/2htdp/tests/world0-stops.rkt diff --git a/collects/2htdp/uchat/auxiliaries.ss b/collects/2htdp/uchat/auxiliaries.rkt similarity index 100% rename from collects/2htdp/uchat/auxiliaries.ss rename to collects/2htdp/uchat/auxiliaries.rkt diff --git a/collects/2htdp/uchat/chatter.ss b/collects/2htdp/uchat/chatter.rkt similarity index 100% rename from collects/2htdp/uchat/chatter.ss rename to collects/2htdp/uchat/chatter.rkt diff --git a/collects/2htdp/uchat/server.ss b/collects/2htdp/uchat/server.rkt similarity index 100% rename from collects/2htdp/uchat/server.ss rename to collects/2htdp/uchat/server.rkt diff --git a/collects/2htdp/universe-syntax-parse.ss b/collects/2htdp/universe-syntax-parse.rkt similarity index 100% rename from collects/2htdp/universe-syntax-parse.ss rename to collects/2htdp/universe-syntax-parse.rkt diff --git a/collects/2htdp/universe.ss b/collects/2htdp/universe.rkt similarity index 100% rename from collects/2htdp/universe.ss rename to collects/2htdp/universe.rkt diff --git a/collects/2htdp/utest/balls.ss b/collects/2htdp/utest/balls.rkt similarity index 100% rename from collects/2htdp/utest/balls.ss rename to collects/2htdp/utest/balls.rkt diff --git a/collects/2htdp/utest/sam.ss b/collects/2htdp/utest/sam.rkt similarity index 100% rename from collects/2htdp/utest/sam.ss rename to collects/2htdp/utest/sam.rkt diff --git a/collects/2htdp/utest/shared.ss b/collects/2htdp/utest/shared.rkt similarity index 100% rename from collects/2htdp/utest/shared.ss rename to collects/2htdp/utest/shared.rkt diff --git a/collects/afm/ttf-to-glyphlist.ss b/collects/afm/ttf-to-glyphlist.rkt similarity index 100% rename from collects/afm/ttf-to-glyphlist.ss rename to collects/afm/ttf-to-glyphlist.rkt diff --git a/collects/algol60/algol60.ss b/collects/algol60/algol60.rkt similarity index 100% rename from collects/algol60/algol60.ss rename to collects/algol60/algol60.rkt diff --git a/collects/algol60/base.ss b/collects/algol60/base.rkt similarity index 100% rename from collects/algol60/base.ss rename to collects/algol60/base.rkt diff --git a/collects/algol60/bd-tool.ss b/collects/algol60/bd-tool.rkt similarity index 100% rename from collects/algol60/bd-tool.ss rename to collects/algol60/bd-tool.rkt diff --git a/collects/algol60/cfg-parser.ss b/collects/algol60/cfg-parser.rkt similarity index 100% rename from collects/algol60/cfg-parser.ss rename to collects/algol60/cfg-parser.rkt diff --git a/collects/algol60/compile.ss b/collects/algol60/compile.rkt similarity index 100% rename from collects/algol60/compile.ss rename to collects/algol60/compile.rkt diff --git a/collects/algol60/info.ss b/collects/algol60/info.rkt similarity index 100% rename from collects/algol60/info.ss rename to collects/algol60/info.rkt diff --git a/collects/algol60/parse.ss b/collects/algol60/parse.rkt similarity index 100% rename from collects/algol60/parse.ss rename to collects/algol60/parse.rkt diff --git a/collects/algol60/prims.ss b/collects/algol60/prims.rkt similarity index 100% rename from collects/algol60/prims.ss rename to collects/algol60/prims.rkt diff --git a/collects/algol60/runtime.ss b/collects/algol60/runtime.rkt similarity index 100% rename from collects/algol60/runtime.ss rename to collects/algol60/runtime.rkt diff --git a/collects/algol60/simplify.ss b/collects/algol60/simplify.rkt similarity index 100% rename from collects/algol60/simplify.ss rename to collects/algol60/simplify.rkt diff --git a/collects/algol60/tool.ss b/collects/algol60/tool.rkt similarity index 100% rename from collects/algol60/tool.ss rename to collects/algol60/tool.rkt diff --git a/collects/at-exp/lang/reader.ss b/collects/at-exp/lang/reader.rkt similarity index 100% rename from collects/at-exp/lang/reader.ss rename to collects/at-exp/lang/reader.rkt diff --git a/collects/browser/browser-sig.ss b/collects/browser/browser-sig.rkt similarity index 100% rename from collects/browser/browser-sig.ss rename to collects/browser/browser-sig.rkt diff --git a/collects/browser/browser-unit.ss b/collects/browser/browser-unit.rkt similarity index 100% rename from collects/browser/browser-unit.ss rename to collects/browser/browser-unit.rkt diff --git a/collects/browser/browser.ss b/collects/browser/browser.rkt similarity index 100% rename from collects/browser/browser.ss rename to collects/browser/browser.rkt diff --git a/collects/browser/bullet-snip.ss b/collects/browser/bullet-snip.rkt similarity index 100% rename from collects/browser/bullet-snip.ss rename to collects/browser/bullet-snip.rkt diff --git a/collects/browser/external.ss b/collects/browser/external.rkt similarity index 100% rename from collects/browser/external.ss rename to collects/browser/external.rkt diff --git a/collects/browser/htmltext.ss b/collects/browser/htmltext.rkt similarity index 100% rename from collects/browser/htmltext.ss rename to collects/browser/htmltext.rkt diff --git a/collects/browser/info.ss b/collects/browser/info.rkt similarity index 100% rename from collects/browser/info.ss rename to collects/browser/info.rkt diff --git a/collects/browser/main.ss b/collects/browser/main.rkt similarity index 100% rename from collects/browser/main.ss rename to collects/browser/main.rkt diff --git a/collects/browser/private/btree.ss b/collects/browser/private/btree.rkt similarity index 100% rename from collects/browser/private/btree.ss rename to collects/browser/private/btree.rkt diff --git a/collects/browser/private/bullet.ss b/collects/browser/private/bullet.rkt similarity index 100% rename from collects/browser/private/bullet.ss rename to collects/browser/private/bullet.rkt diff --git a/collects/browser/private/entity-names.ss b/collects/browser/private/entity-names.rkt similarity index 100% rename from collects/browser/private/entity-names.ss rename to collects/browser/private/entity-names.rkt diff --git a/collects/browser/private/html.ss b/collects/browser/private/html.rkt similarity index 100% rename from collects/browser/private/html.ss rename to collects/browser/private/html.rkt diff --git a/collects/browser/private/hyper.ss b/collects/browser/private/hyper.rkt similarity index 100% rename from collects/browser/private/hyper.ss rename to collects/browser/private/hyper.rkt diff --git a/collects/browser/private/option-snip.ss b/collects/browser/private/option-snip.rkt similarity index 100% rename from collects/browser/private/option-snip.ss rename to collects/browser/private/option-snip.rkt diff --git a/collects/browser/private/sig.ss b/collects/browser/private/sig.rkt similarity index 100% rename from collects/browser/private/sig.ss rename to collects/browser/private/sig.rkt diff --git a/collects/browser/tool.ss b/collects/browser/tool.rkt similarity index 100% rename from collects/browser/tool.ss rename to collects/browser/tool.rkt diff --git a/collects/combinator-parser/combinator-unit.ss b/collects/combinator-parser/combinator-unit.rkt similarity index 100% rename from collects/combinator-parser/combinator-unit.ss rename to collects/combinator-parser/combinator-unit.rkt diff --git a/collects/combinator-parser/examples/combinator-example.ss b/collects/combinator-parser/examples/combinator-example.rkt similarity index 100% rename from collects/combinator-parser/examples/combinator-example.ss rename to collects/combinator-parser/examples/combinator-example.rkt diff --git a/collects/combinator-parser/info.ss b/collects/combinator-parser/info.rkt similarity index 100% rename from collects/combinator-parser/info.ss rename to collects/combinator-parser/info.rkt diff --git a/collects/combinator-parser/private-combinator/parser-sigs.ss b/collects/combinator-parser/private-combinator/parser-sigs.rkt similarity index 100% rename from collects/combinator-parser/private-combinator/parser-sigs.ss rename to collects/combinator-parser/private-combinator/parser-sigs.rkt diff --git a/collects/compiler/bundle-dist.ss b/collects/compiler/bundle-dist.rkt similarity index 100% rename from collects/compiler/bundle-dist.ss rename to collects/compiler/bundle-dist.rkt diff --git a/collects/compiler/cffi.ss b/collects/compiler/cffi.rkt similarity index 100% rename from collects/compiler/cffi.ss rename to collects/compiler/cffi.rkt diff --git a/collects/compiler/cm-accomplice.ss b/collects/compiler/cm-accomplice.rkt similarity index 100% rename from collects/compiler/cm-accomplice.ss rename to collects/compiler/cm-accomplice.rkt diff --git a/collects/compiler/cm.ss b/collects/compiler/cm.rkt similarity index 100% rename from collects/compiler/cm.ss rename to collects/compiler/cm.rkt diff --git a/collects/compiler/commands/c-ext.ss b/collects/compiler/commands/c-ext.rkt similarity index 100% rename from collects/compiler/commands/c-ext.ss rename to collects/compiler/commands/c-ext.rkt diff --git a/collects/compiler/commands/decompile.ss b/collects/compiler/commands/decompile.rkt similarity index 100% rename from collects/compiler/commands/decompile.ss rename to collects/compiler/commands/decompile.rkt diff --git a/collects/compiler/commands/exe-dir.ss b/collects/compiler/commands/exe-dir.rkt similarity index 100% rename from collects/compiler/commands/exe-dir.ss rename to collects/compiler/commands/exe-dir.rkt diff --git a/collects/compiler/commands/exe.ss b/collects/compiler/commands/exe.rkt similarity index 100% rename from collects/compiler/commands/exe.ss rename to collects/compiler/commands/exe.rkt diff --git a/collects/compiler/commands/expand.ss b/collects/compiler/commands/expand.rkt similarity index 100% rename from collects/compiler/commands/expand.ss rename to collects/compiler/commands/expand.rkt diff --git a/collects/compiler/commands/info.ss b/collects/compiler/commands/info.rkt similarity index 100% rename from collects/compiler/commands/info.ss rename to collects/compiler/commands/info.rkt diff --git a/collects/compiler/commands/make.ss b/collects/compiler/commands/make.rkt similarity index 100% rename from collects/compiler/commands/make.ss rename to collects/compiler/commands/make.rkt diff --git a/collects/compiler/commands/pack.ss b/collects/compiler/commands/pack.rkt similarity index 100% rename from collects/compiler/commands/pack.ss rename to collects/compiler/commands/pack.rkt diff --git a/collects/compiler/comp-unit.ss b/collects/compiler/comp-unit.rkt similarity index 100% rename from collects/compiler/comp-unit.ss rename to collects/compiler/comp-unit.rkt diff --git a/collects/compiler/compiler-unit.ss b/collects/compiler/compiler-unit.rkt similarity index 100% rename from collects/compiler/compiler-unit.ss rename to collects/compiler/compiler-unit.rkt diff --git a/collects/compiler/compiler.ss b/collects/compiler/compiler.rkt similarity index 100% rename from collects/compiler/compiler.ss rename to collects/compiler/compiler.rkt diff --git a/collects/compiler/decompile.ss b/collects/compiler/decompile.rkt similarity index 100% rename from collects/compiler/decompile.ss rename to collects/compiler/decompile.rkt diff --git a/collects/compiler/distribute.ss b/collects/compiler/distribute.rkt similarity index 100% rename from collects/compiler/distribute.ss rename to collects/compiler/distribute.rkt diff --git a/collects/compiler/embed-sig.ss b/collects/compiler/embed-sig.rkt similarity index 100% rename from collects/compiler/embed-sig.ss rename to collects/compiler/embed-sig.rkt diff --git a/collects/compiler/embed-unit.ss b/collects/compiler/embed-unit.rkt similarity index 100% rename from collects/compiler/embed-unit.ss rename to collects/compiler/embed-unit.rkt diff --git a/collects/compiler/embed.ss b/collects/compiler/embed.rkt similarity index 100% rename from collects/compiler/embed.ss rename to collects/compiler/embed.rkt diff --git a/collects/compiler/info.ss b/collects/compiler/info.rkt similarity index 100% rename from collects/compiler/info.ss rename to collects/compiler/info.rkt diff --git a/collects/compiler/main.ss b/collects/compiler/main.rkt similarity index 100% rename from collects/compiler/main.ss rename to collects/compiler/main.rkt diff --git a/collects/compiler/option-unit.ss b/collects/compiler/option-unit.rkt similarity index 100% rename from collects/compiler/option-unit.ss rename to collects/compiler/option-unit.rkt diff --git a/collects/compiler/option.ss b/collects/compiler/option.rkt similarity index 100% rename from collects/compiler/option.ss rename to collects/compiler/option.rkt diff --git a/collects/compiler/private/analyze.ss b/collects/compiler/private/analyze.rkt similarity index 100% rename from collects/compiler/private/analyze.ss rename to collects/compiler/private/analyze.rkt diff --git a/collects/compiler/private/anorm.ss b/collects/compiler/private/anorm.rkt similarity index 100% rename from collects/compiler/private/anorm.ss rename to collects/compiler/private/anorm.rkt diff --git a/collects/compiler/private/base.ss b/collects/compiler/private/base.rkt similarity index 100% rename from collects/compiler/private/base.ss rename to collects/compiler/private/base.rkt diff --git a/collects/compiler/private/closure.ss b/collects/compiler/private/closure.rkt similarity index 100% rename from collects/compiler/private/closure.ss rename to collects/compiler/private/closure.rkt diff --git a/collects/compiler/private/collects-path.ss b/collects/compiler/private/collects-path.rkt similarity index 100% rename from collects/compiler/private/collects-path.ss rename to collects/compiler/private/collects-path.rkt diff --git a/collects/compiler/private/const.ss b/collects/compiler/private/const.rkt similarity index 100% rename from collects/compiler/private/const.ss rename to collects/compiler/private/const.rkt diff --git a/collects/compiler/private/cstructs.ss b/collects/compiler/private/cstructs.rkt similarity index 100% rename from collects/compiler/private/cstructs.ss rename to collects/compiler/private/cstructs.rkt diff --git a/collects/compiler/private/driver.ss b/collects/compiler/private/driver.rkt similarity index 100% rename from collects/compiler/private/driver.ss rename to collects/compiler/private/driver.rkt diff --git a/collects/compiler/private/embed.ss b/collects/compiler/private/embed.rkt similarity index 100% rename from collects/compiler/private/embed.ss rename to collects/compiler/private/embed.rkt diff --git a/collects/compiler/private/known.ss b/collects/compiler/private/known.rkt similarity index 100% rename from collects/compiler/private/known.ss rename to collects/compiler/private/known.rkt diff --git a/collects/compiler/private/library.ss b/collects/compiler/private/library.rkt similarity index 100% rename from collects/compiler/private/library.ss rename to collects/compiler/private/library.rkt diff --git a/collects/compiler/private/lift.ss b/collects/compiler/private/lift.rkt similarity index 100% rename from collects/compiler/private/lift.ss rename to collects/compiler/private/lift.rkt diff --git a/collects/compiler/private/macfw.ss b/collects/compiler/private/macfw.rkt similarity index 100% rename from collects/compiler/private/macfw.ss rename to collects/compiler/private/macfw.rkt diff --git a/collects/compiler/private/mach-o.ss b/collects/compiler/private/mach-o.rkt similarity index 100% rename from collects/compiler/private/mach-o.ss rename to collects/compiler/private/mach-o.rkt diff --git a/collects/compiler/private/prephase.ss b/collects/compiler/private/prephase.rkt similarity index 100% rename from collects/compiler/private/prephase.ss rename to collects/compiler/private/prephase.rkt diff --git a/collects/compiler/private/rep.ss b/collects/compiler/private/rep.rkt similarity index 100% rename from collects/compiler/private/rep.ss rename to collects/compiler/private/rep.rkt diff --git a/collects/compiler/private/sig.ss b/collects/compiler/private/sig.rkt similarity index 100% rename from collects/compiler/private/sig.ss rename to collects/compiler/private/sig.rkt diff --git a/collects/compiler/private/toplevel.ss b/collects/compiler/private/toplevel.rkt similarity index 100% rename from collects/compiler/private/toplevel.ss rename to collects/compiler/private/toplevel.rkt diff --git a/collects/compiler/private/vehicle.ss b/collects/compiler/private/vehicle.rkt similarity index 100% rename from collects/compiler/private/vehicle.ss rename to collects/compiler/private/vehicle.rkt diff --git a/collects/compiler/private/vm2c.ss b/collects/compiler/private/vm2c.rkt similarity index 100% rename from collects/compiler/private/vm2c.ss rename to collects/compiler/private/vm2c.rkt diff --git a/collects/compiler/private/vmopt.ss b/collects/compiler/private/vmopt.rkt similarity index 100% rename from collects/compiler/private/vmopt.ss rename to collects/compiler/private/vmopt.rkt diff --git a/collects/compiler/private/vmphase.ss b/collects/compiler/private/vmphase.rkt similarity index 100% rename from collects/compiler/private/vmphase.ss rename to collects/compiler/private/vmphase.rkt diff --git a/collects/compiler/private/vmscheme.ss b/collects/compiler/private/vmscheme.rkt similarity index 100% rename from collects/compiler/private/vmscheme.ss rename to collects/compiler/private/vmscheme.rkt diff --git a/collects/compiler/private/windlldir.ss b/collects/compiler/private/windlldir.rkt similarity index 100% rename from collects/compiler/private/windlldir.ss rename to collects/compiler/private/windlldir.rkt diff --git a/collects/compiler/private/winicon.ss b/collects/compiler/private/winicon.rkt similarity index 100% rename from collects/compiler/private/winicon.ss rename to collects/compiler/private/winicon.rkt diff --git a/collects/compiler/private/winsubsys.ss b/collects/compiler/private/winsubsys.rkt similarity index 100% rename from collects/compiler/private/winsubsys.ss rename to collects/compiler/private/winsubsys.rkt diff --git a/collects/compiler/private/winutf16.ss b/collects/compiler/private/winutf16.rkt similarity index 100% rename from collects/compiler/private/winutf16.ss rename to collects/compiler/private/winutf16.rkt diff --git a/collects/compiler/private/xform.ss b/collects/compiler/private/xform.rkt similarity index 100% rename from collects/compiler/private/xform.ss rename to collects/compiler/private/xform.rkt diff --git a/collects/compiler/private/zlayer.ss b/collects/compiler/private/zlayer.rkt similarity index 100% rename from collects/compiler/private/zlayer.ss rename to collects/compiler/private/zlayer.rkt diff --git a/collects/compiler/sig.ss b/collects/compiler/sig.rkt similarity index 100% rename from collects/compiler/sig.ss rename to collects/compiler/sig.rkt diff --git a/collects/compiler/src2src.ss b/collects/compiler/src2src.rkt similarity index 100% rename from collects/compiler/src2src.ss rename to collects/compiler/src2src.rkt diff --git a/collects/compiler/to-core.ss b/collects/compiler/to-core.rkt similarity index 100% rename from collects/compiler/to-core.ss rename to collects/compiler/to-core.rkt diff --git a/collects/compiler/xform.ss b/collects/compiler/xform.rkt similarity index 100% rename from collects/compiler/xform.ss rename to collects/compiler/xform.rkt diff --git a/collects/compiler/zo-marshal.ss b/collects/compiler/zo-marshal.rkt similarity index 100% rename from collects/compiler/zo-marshal.ss rename to collects/compiler/zo-marshal.rkt diff --git a/collects/compiler/zo-parse.ss b/collects/compiler/zo-parse.rkt similarity index 100% rename from collects/compiler/zo-parse.ss rename to collects/compiler/zo-parse.rkt diff --git a/collects/compiler/zo-structs.ss b/collects/compiler/zo-structs.rkt similarity index 100% rename from collects/compiler/zo-structs.ss rename to collects/compiler/zo-structs.rkt diff --git a/collects/config/config.ss b/collects/config/config.rkt similarity index 100% rename from collects/config/config.ss rename to collects/config/config.rkt diff --git a/collects/config/info.ss b/collects/config/info.rkt similarity index 100% rename from collects/config/info.ss rename to collects/config/info.rkt diff --git a/collects/config/main.ss b/collects/config/main.rkt similarity index 100% rename from collects/config/main.ss rename to collects/config/main.rkt diff --git a/collects/deinprogramm/DMdA-advanced-reader.ss b/collects/deinprogramm/DMdA-advanced-reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-advanced-reader.ss rename to collects/deinprogramm/DMdA-advanced-reader.rkt diff --git a/collects/deinprogramm/DMdA-advanced.ss b/collects/deinprogramm/DMdA-advanced.rkt similarity index 100% rename from collects/deinprogramm/DMdA-advanced.ss rename to collects/deinprogramm/DMdA-advanced.rkt diff --git a/collects/deinprogramm/DMdA-advanced/lang/reader.ss b/collects/deinprogramm/DMdA-advanced/lang/reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-advanced/lang/reader.ss rename to collects/deinprogramm/DMdA-advanced/lang/reader.rkt diff --git a/collects/deinprogramm/DMdA-assignments-reader.ss b/collects/deinprogramm/DMdA-assignments-reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-assignments-reader.ss rename to collects/deinprogramm/DMdA-assignments-reader.rkt diff --git a/collects/deinprogramm/DMdA-assignments.ss b/collects/deinprogramm/DMdA-assignments.rkt similarity index 100% rename from collects/deinprogramm/DMdA-assignments.ss rename to collects/deinprogramm/DMdA-assignments.rkt diff --git a/collects/deinprogramm/DMdA-assignments/lang/reader.ss b/collects/deinprogramm/DMdA-assignments/lang/reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-assignments/lang/reader.ss rename to collects/deinprogramm/DMdA-assignments/lang/reader.rkt diff --git a/collects/deinprogramm/DMdA-beginner-reader.ss b/collects/deinprogramm/DMdA-beginner-reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-beginner-reader.ss rename to collects/deinprogramm/DMdA-beginner-reader.rkt diff --git a/collects/deinprogramm/DMdA-beginner.ss b/collects/deinprogramm/DMdA-beginner.rkt similarity index 100% rename from collects/deinprogramm/DMdA-beginner.ss rename to collects/deinprogramm/DMdA-beginner.rkt diff --git a/collects/deinprogramm/DMdA-beginner/lang/reader.ss b/collects/deinprogramm/DMdA-beginner/lang/reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-beginner/lang/reader.ss rename to collects/deinprogramm/DMdA-beginner/lang/reader.rkt diff --git a/collects/deinprogramm/DMdA-reader.ss b/collects/deinprogramm/DMdA-reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-reader.ss rename to collects/deinprogramm/DMdA-reader.rkt diff --git a/collects/deinprogramm/DMdA-vanilla-reader.ss b/collects/deinprogramm/DMdA-vanilla-reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-vanilla-reader.ss rename to collects/deinprogramm/DMdA-vanilla-reader.rkt diff --git a/collects/deinprogramm/DMdA-vanilla.ss b/collects/deinprogramm/DMdA-vanilla.rkt similarity index 100% rename from collects/deinprogramm/DMdA-vanilla.ss rename to collects/deinprogramm/DMdA-vanilla.rkt diff --git a/collects/deinprogramm/DMdA-vanilla/lang/reader.ss b/collects/deinprogramm/DMdA-vanilla/lang/reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-vanilla/lang/reader.ss rename to collects/deinprogramm/DMdA-vanilla/lang/reader.rkt diff --git a/collects/deinprogramm/DMdA.ss b/collects/deinprogramm/DMdA.rkt similarity index 100% rename from collects/deinprogramm/DMdA.ss rename to collects/deinprogramm/DMdA.rkt diff --git a/collects/deinprogramm/DMdA/lang/reader.ss b/collects/deinprogramm/DMdA/lang/reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA/lang/reader.ss rename to collects/deinprogramm/DMdA/lang/reader.rkt diff --git a/collects/deinprogramm/contract/contract-syntax.ss b/collects/deinprogramm/contract/contract-syntax.rkt similarity index 100% rename from collects/deinprogramm/contract/contract-syntax.ss rename to collects/deinprogramm/contract/contract-syntax.rkt diff --git a/collects/deinprogramm/contract/contract-test-display.ss b/collects/deinprogramm/contract/contract-test-display.rkt similarity index 100% rename from collects/deinprogramm/contract/contract-test-display.ss rename to collects/deinprogramm/contract/contract-test-display.rkt diff --git a/collects/deinprogramm/contract/contract-test-engine.ss b/collects/deinprogramm/contract/contract-test-engine.rkt similarity index 100% rename from collects/deinprogramm/contract/contract-test-engine.ss rename to collects/deinprogramm/contract/contract-test-engine.rkt diff --git a/collects/deinprogramm/contract/contract.ss b/collects/deinprogramm/contract/contract.rkt similarity index 100% rename from collects/deinprogramm/contract/contract.ss rename to collects/deinprogramm/contract/contract.rkt diff --git a/collects/deinprogramm/contract/module-begin.ss b/collects/deinprogramm/contract/module-begin.rkt similarity index 100% rename from collects/deinprogramm/contract/module-begin.ss rename to collects/deinprogramm/contract/module-begin.rkt diff --git a/collects/deinprogramm/convert-explicit.ss b/collects/deinprogramm/convert-explicit.rkt similarity index 100% rename from collects/deinprogramm/convert-explicit.ss rename to collects/deinprogramm/convert-explicit.rkt diff --git a/collects/deinprogramm/define-record-procedures.ss b/collects/deinprogramm/define-record-procedures.rkt similarity index 100% rename from collects/deinprogramm/define-record-procedures.ss rename to collects/deinprogramm/define-record-procedures.rkt diff --git a/collects/deinprogramm/deinprogramm-langs.ss b/collects/deinprogramm/deinprogramm-langs.rkt similarity index 100% rename from collects/deinprogramm/deinprogramm-langs.ss rename to collects/deinprogramm/deinprogramm-langs.rkt diff --git a/collects/deinprogramm/image.ss b/collects/deinprogramm/image.rkt similarity index 100% rename from collects/deinprogramm/image.ss rename to collects/deinprogramm/image.rkt diff --git a/collects/deinprogramm/info.ss b/collects/deinprogramm/info.rkt similarity index 57% rename from collects/deinprogramm/info.ss rename to collects/deinprogramm/info.rkt index 517824313b..567899bcdc 100644 --- a/collects/deinprogramm/info.ss +++ b/collects/deinprogramm/info.rkt @@ -1,4 +1,5 @@ #lang setup/infotab +(require string-constants) (define name "DeinProgramm") @@ -12,3 +13,10 @@ '("define-record-procedures.scm" "convert-explicit.scm" "line3d.scm")) + +(define textbook-pls + (list (list '("logo-small.png" "deinprogramm") + "DeinProgramm" + (string-constant teaching-languages) + "DeinProgramm" + "Die Macht der Abstraktion - Anfänger"))) diff --git a/collects/deinprogramm/line3d.ss b/collects/deinprogramm/line3d.rkt similarity index 100% rename from collects/deinprogramm/line3d.ss rename to collects/deinprogramm/line3d.rkt diff --git a/collects/deinprogramm/quickcheck/info.ss b/collects/deinprogramm/quickcheck/info.rkt similarity index 100% rename from collects/deinprogramm/quickcheck/info.ss rename to collects/deinprogramm/quickcheck/info.rkt diff --git a/collects/deinprogramm/quickcheck/quickcheck.ss b/collects/deinprogramm/quickcheck/quickcheck.rkt similarity index 100% rename from collects/deinprogramm/quickcheck/quickcheck.ss rename to collects/deinprogramm/quickcheck/quickcheck.rkt diff --git a/collects/deinprogramm/quickcheck/random.ss b/collects/deinprogramm/quickcheck/random.rkt similarity index 100% rename from collects/deinprogramm/quickcheck/random.ss rename to collects/deinprogramm/quickcheck/random.rkt diff --git a/collects/deinprogramm/run-dmda-code.ss b/collects/deinprogramm/run-dmda-code.rkt similarity index 100% rename from collects/deinprogramm/run-dmda-code.ss rename to collects/deinprogramm/run-dmda-code.rkt diff --git a/collects/deinprogramm/scribblings/info.ss b/collects/deinprogramm/scribblings/info.rkt similarity index 100% rename from collects/deinprogramm/scribblings/info.ss rename to collects/deinprogramm/scribblings/info.rkt diff --git a/collects/deinprogramm/scribblings/prim-ops.ss b/collects/deinprogramm/scribblings/prim-ops.rkt similarity index 100% rename from collects/deinprogramm/scribblings/prim-ops.ss rename to collects/deinprogramm/scribblings/prim-ops.rkt diff --git a/collects/deinprogramm/scribblings/shared.ss b/collects/deinprogramm/scribblings/shared.rkt similarity index 100% rename from collects/deinprogramm/scribblings/shared.ss rename to collects/deinprogramm/scribblings/shared.rkt diff --git a/collects/deinprogramm/scribblings/std-grammar.ss b/collects/deinprogramm/scribblings/std-grammar.rkt similarity index 100% rename from collects/deinprogramm/scribblings/std-grammar.ss rename to collects/deinprogramm/scribblings/std-grammar.rkt diff --git a/collects/deinprogramm/syntax-checkers.ss b/collects/deinprogramm/syntax-checkers.rkt similarity index 100% rename from collects/deinprogramm/syntax-checkers.ss rename to collects/deinprogramm/syntax-checkers.rkt diff --git a/collects/deinprogramm/test-suite.ss b/collects/deinprogramm/test-suite.rkt similarity index 100% rename from collects/deinprogramm/test-suite.ss rename to collects/deinprogramm/test-suite.rkt diff --git a/collects/deinprogramm/turtle.ss b/collects/deinprogramm/turtle.rkt similarity index 100% rename from collects/deinprogramm/turtle.ss rename to collects/deinprogramm/turtle.rkt diff --git a/collects/deinprogramm/world.ss b/collects/deinprogramm/world.rkt similarity index 100% rename from collects/deinprogramm/world.ss rename to collects/deinprogramm/world.rkt diff --git a/collects/drscheme/acks.ss b/collects/drscheme/acks.rkt similarity index 100% rename from collects/drscheme/acks.ss rename to collects/drscheme/acks.rkt diff --git a/collects/drscheme/arrow.ss b/collects/drscheme/arrow.rkt similarity index 99% rename from collects/drscheme/arrow.ss rename to collects/drscheme/arrow.rkt index 6cc8852bc0..a6ee6819ac 100644 --- a/collects/drscheme/arrow.ss +++ b/collects/drscheme/arrow.rkt @@ -1,8 +1,8 @@ #lang racket/base -(require scheme/class - scheme/math - scheme/gui/base) +(require racket/class + racket/math + racket/gui/base) (provide draw-arrow) diff --git a/collects/drscheme/default-code-style.ss b/collects/drscheme/default-code-style.rkt similarity index 100% rename from collects/drscheme/default-code-style.ss rename to collects/drscheme/default-code-style.rkt diff --git a/collects/drscheme/drscheme.ss b/collects/drscheme/drscheme.rkt similarity index 98% rename from collects/drscheme/drscheme.ss rename to collects/drscheme/drscheme.rkt index fab93a1b2e..b5c00befe4 100644 --- a/collects/drscheme/drscheme.ss +++ b/collects/drscheme/drscheme.rkt @@ -1,5 +1,5 @@ #lang racket/base -(require scheme/gui/base "private/key.ss") +(require scheme/gui/base "private/key.rkt") (define debugging? (getenv "PLTDRDEBUG")) (define profiling? (getenv "PLTDRPROFILE")) diff --git a/collects/drscheme/info.rkt b/collects/drscheme/info.rkt new file mode 100644 index 0000000000..4a7185bb45 --- /dev/null +++ b/collects/drscheme/info.rkt @@ -0,0 +1,13 @@ +#lang setup/infotab + +;(define tools '("sprof.rkt")) +;(define tool-names '("Sampling Profiler")) + +(define drracket-tools '("syncheck.rkt")) +(define drracket-tool-names '("Check Syntax")) + +(define gracket-launcher-names '("DrRacket")) +(define gracket-launcher-libraries '("drscheme.rkt")) + +(define mred-launcher-names '("DrScheme")) +(define mred-launcher-libraries '("drscheme.rkt")) diff --git a/collects/drscheme/info.ss b/collects/drscheme/info.ss deleted file mode 100644 index 3adc47bcfb..0000000000 --- a/collects/drscheme/info.ss +++ /dev/null @@ -1,10 +0,0 @@ -#lang setup/infotab - -(define tools '("syncheck.ss" #;"sprof.ss")) -(define tool-names '("Check Syntax" #;"Sampling Profiler")) - -(define gracket-launcher-names '("DrRacket")) -(define gracket-launcher-libraries '("drscheme.ss")) - -(define mred-launcher-names '("DrScheme")) -(define mred-launcher-libraries '("drscheme.ss")) diff --git a/collects/drscheme/installer.ss b/collects/drscheme/installer.rkt similarity index 92% rename from collects/drscheme/installer.ss rename to collects/drscheme/installer.rkt index c6259165ac..2b6f6dd15e 100644 --- a/collects/drscheme/installer.ss +++ b/collects/drscheme/installer.rkt @@ -14,7 +14,7 @@ (define (install-variation variant) (parameterize ([current-launcher-variant variant]) (make-mred-launcher - (list "-ZmvqL" "drscheme.ss" "drscheme") + (list "-ZmvqL" "drscheme.rkt" "drscheme") (mred-program-launcher-path "DrScheme") (cons `(exe-name . "DrScheme") diff --git a/collects/drscheme/main.rkt b/collects/drscheme/main.rkt new file mode 100644 index 0000000000..df232bf615 --- /dev/null +++ b/collects/drscheme/main.rkt @@ -0,0 +1,2 @@ +#lang racket/base +(require "drscheme.rkt") diff --git a/collects/drscheme/main.ss b/collects/drscheme/main.ss deleted file mode 100644 index 1c1d394370..0000000000 --- a/collects/drscheme/main.ss +++ /dev/null @@ -1,2 +0,0 @@ -#lang racket/base -(require "drscheme.ss") diff --git a/collects/drscheme/private/app.ss b/collects/drscheme/private/app.rkt similarity index 93% rename from collects/drscheme/private/app.ss rename to collects/drscheme/private/app.rkt index 47dff1bcbc..09e90e3bfe 100644 --- a/collects/drscheme/private/app.ss +++ b/collects/drscheme/private/app.rkt @@ -6,18 +6,18 @@ framework browser/external setup/getinfo - "drsig.ss" - "../acks.ss") + "drsig.rkt" + "../acks.rkt") -(import [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix help-desk: drscheme:help-desk^] - [prefix drscheme:tools: drscheme:tools^]) -(export drscheme:app^) +(import [prefix drracket:unit: drracket:unit^] + [prefix drracket:frame: drracket:frame^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix help-desk: drracket:help-desk^] + [prefix drracket:tools: drracket:tools^]) +(export drracket:app^) (define about-frame% - (class (drscheme:frame:basics-mixin (frame:standard-menus-mixin frame:basic%)) + (class (drracket:frame:basics-mixin (frame:standard-menus-mixin frame:basic%)) (init-field main-text) (define/private (edit-menu:do const) (send main-text do-edit-operation const)) @@ -184,18 +184,18 @@ (send* e (insert " The A List (c) 1997-2001 Kyle Hammond\n"))) - (let ([tools (sort (drscheme:tools:get-successful-tools) + (let ([tools (sort (drracket:tools:get-successful-tools) (lambda (a b) - (stringstring (drscheme:tools:successful-tool-spec a)) - (path->string (drscheme:tools:successful-tool-spec b)))))]) + (stringstring (drracket:tools:successful-tool-spec a)) + (path->string (drracket:tools:successful-tool-spec b)))))]) (unless (null? tools) (let loop ([actions1 '()] [actions2 '()] [tools tools]) (if (pair? tools) (let* ([successful-tool (car tools)] - [name (drscheme:tools:successful-tool-name successful-tool)] - [spec (drscheme:tools:successful-tool-spec successful-tool)] - [bm (drscheme:tools:successful-tool-bitmap successful-tool)] - [url (drscheme:tools:successful-tool-url successful-tool)]) + [name (drracket:tools:successful-tool-name successful-tool)] + [spec (drracket:tools:successful-tool-spec successful-tool)] + [bm (drracket:tools:successful-tool-bitmap successful-tool)] + [url (drracket:tools:successful-tool-url successful-tool)]) (define (action) (send e insert " ") (when bm @@ -286,7 +286,7 @@ (string-constants accept-and-exit) (string-constants accept-and-quit))]) (cond - [(null? languages) (error 'app.ss ".1")] + [(null? languages) (error 'app.rkt ".1")] [(equal? other-language (car languages)) (values (car are-you-sures) (car cancels) @@ -366,11 +366,11 @@ (add (string-constant how-to-design-programs) "http://www.htdp.org/") (for-each (λ (tool) - (cond [(drscheme:tools:successful-tool-url tool) + (cond [(drracket:tools:successful-tool-url tool) => (λ (url) - (add (drscheme:tools:successful-tool-name tool) url tool-urls-menu))])) - (drscheme:tools:get-successful-tools)) + (add (drracket:tools:successful-tool-name tool) url tool-urls-menu))])) + (drracket:tools:get-successful-tools)) (let loop ([additional additional]) (cond diff --git a/collects/drscheme/private/auto-language.ss b/collects/drscheme/private/auto-language.rkt similarity index 100% rename from collects/drscheme/private/auto-language.ss rename to collects/drscheme/private/auto-language.rkt diff --git a/collects/drscheme/private/bindings-browser.ss b/collects/drscheme/private/bindings-browser.rkt similarity index 99% rename from collects/drscheme/private/bindings-browser.ss rename to collects/drscheme/private/bindings-browser.rkt index 74bae33bd5..07af7ddc00 100644 --- a/collects/drscheme/private/bindings-browser.ss +++ b/collects/drscheme/private/bindings-browser.rkt @@ -1,7 +1,7 @@ #lang racket/base #| -CODE COPIED (with permission ...) from syntax-browser.ss +CODE COPIED (with permission ...) from syntax-browser.rkt desperately seeking abstraction. Marshalling (and hence the 'read' method of the snipclass omitted for fast prototyping diff --git a/collects/drscheme/private/bitmap-message.ss b/collects/drscheme/private/bitmap-message.rkt similarity index 100% rename from collects/drscheme/private/bitmap-message.ss rename to collects/drscheme/private/bitmap-message.rkt diff --git a/collects/drscheme/private/debug.ss b/collects/drscheme/private/debug.rkt similarity index 95% rename from collects/drscheme/private/debug.ss rename to collects/drscheme/private/debug.rkt index 10214d7789..c07351a18b 100644 --- a/collects/drscheme/private/debug.ss +++ b/collects/drscheme/private/debug.rkt @@ -18,9 +18,9 @@ profile todo: string-constants framework framework/private/bday - "embedded-snip-utils.ss" - "drsig.ss" - "bindings-browser.ss" + "embedded-snip-utils.rkt" + "drsig.rkt" + "bindings-browser.rkt" net/sendurl net/url racket/match @@ -31,13 +31,13 @@ profile todo: (provide debug@) (define-unit debug@ - (import [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:init: drscheme:init^]) - (export drscheme:debug^) + (import [prefix drracket:rep: drracket:rep^] + [prefix drracket:frame: drracket:frame^] + [prefix drracket:unit: drracket:unit^] + [prefix drracket:language: drracket:language^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:init: drracket:init^]) + (export drracket:debug^) (define (printf . args) (apply fprintf orig args)) @@ -257,7 +257,7 @@ profile todo: ;; adds in the bug icon, if there are contexts to display (define (make-debug-error-display-handler orig-error-display-handler) (define (debug-error-display-handler msg exn) - (let ([rep (drscheme:rep:current-rep)]) + (let ([rep (drracket:rep:current-rep)]) (cond [rep (error-display-handler/stacktrace @@ -275,8 +275,8 @@ profile todo: (define (error-display-handler/stacktrace msg exn [pre-stack #f] - #:interactions-text [ints (drscheme:rep:current-rep)] - #:definitions-text [defs (let ([rep (drscheme:rep:current-rep)]) + #:interactions-text [ints (drracket:rep:current-rep)] + #:definitions-text [defs (let ([rep (drracket:rep:current-rep)]) (and rep (send rep get-definitions-text)))]) @@ -305,7 +305,7 @@ profile todo: (when (and ints (eq? (current-error-port) (send ints get-err-port))) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () ;; need to make sure that the user's eventspace is still the same @@ -328,7 +328,7 @@ profile todo: [(path? src) (let ([frame (send (group:get-the-frame-group) locate-file src)]) (and frame - (is-a? frame drscheme:unit:frame<%>) + (is-a? frame drracket:unit:frame<%>) (cons (make-weak-box (send frame get-definitions-text)) (send (send frame get-definitions-text) get-edition-number))))] [else #f]))) @@ -346,12 +346,12 @@ profile todo: (let ([note (new planet-note%)]) (send note set-callback (λ () ;; =Kernel= =Handler= - (drscheme:unit:forget-saved-bug-report table) + (drracket:unit:forget-saved-bug-report table) (send-url (url->string gp-url)))) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () - (drscheme:unit:record-saved-bug-report table)))) + (drracket:unit:record-saved-bug-report table)))) (write-special note (current-error-port)) (display #\space (current-error-port)))))))))) @@ -389,7 +389,7 @@ profile todo: (define (exn->trace exn) (let ([sp (open-output-string)]) (parameterize ([current-error-port sp]) - (drscheme:init:original-error-display-handler (exn-message exn) exn)) + (drracket:init:original-error-display-handler (exn-message exn) exn)) (get-output-string sp))) ;; =User= @@ -433,9 +433,9 @@ profile todo: [do-line/col (λ () (fprintf (current-error-port) ":~a:~a" line col))] [do-pos (λ () (fprintf (current-error-port) "::~a" pos))] [src-loc-in-defs/ints? - (let ([rep (drscheme:rep:current-rep)]) + (let ([rep (drracket:rep:current-rep)]) (and rep - (is-a? rep drscheme:rep:text<%>) + (is-a? rep drracket:rep:text<%>) (let ([defs (send rep get-definitions-text)]) (or (send rep port-name-matches? src) (eq? rep src) @@ -534,7 +534,7 @@ profile todo: [(is-a? (syntax-source src-stx) editor<%>) (syntax-source src-stx)] [else - (let* ([rep (drscheme:rep:current-rep)]) + (let* ([rep (drracket:rep:current-rep)]) (and rep (let ([defs (send rep get-definitions-text)]) @@ -574,10 +574,10 @@ profile todo: (make-object backtrace-frame% (string-constant backtrace-window-title) #f - (preferences:get 'drscheme:backtrace-window-width) - (preferences:get 'drscheme:backtrace-window-height) - (preferences:get 'drscheme:backtrace-window-x) - (preferences:get 'drscheme:backtrace-window-y)))) + (preferences:get 'drracket:backtrace-window-width) + (preferences:get 'drracket:backtrace-window-height) + (preferences:get 'drracket:backtrace-window-x) + (preferences:get 'drracket:backtrace-window-y)))) ;; hide-backtrace-window : -> void (define (hide-backtrace-window) @@ -587,14 +587,14 @@ profile todo: ;; backtrace-frame% : (extends frame:basic<%>) (define backtrace-frame% - (class (drscheme:frame:basics-mixin (frame:standard-menus-mixin frame:basic%)) + (class (drracket:frame:basics-mixin (frame:standard-menus-mixin frame:basic%)) (define/override (on-size x y) - (preferences:set 'drscheme:backtrace-window-width x) - (preferences:set 'drscheme:backtrace-window-height y) + (preferences:set 'drracket:backtrace-window-width x) + (preferences:set 'drracket:backtrace-window-height y) (super on-size x y)) (define/override (on-move x y) - (preferences:set 'drscheme:backtrace-window-x x) - (preferences:set 'drscheme:backtrace-window-y y) + (preferences:set 'drracket:backtrace-window-x x) + (preferences:set 'drracket:backtrace-window-y y) (super on-move x y)) (define/override (edit-menu:between-find-and-preferences edit-menu) (void)) (define/override (edit-menu:between-select-all-and-find edit-menu) (void)) @@ -759,7 +759,7 @@ profile todo: => (λ (frame) (cond - [(is-a? frame drscheme:unit:frame%) + [(is-a? frame drracket:unit:frame%) (let loop ([tabs (send frame get-tabs)]) (cond [(null? tabs) (values #f void)] @@ -841,7 +841,7 @@ profile todo: (let* ([untitled (string-constant unknown-debug-frame)] [canvas (send editor get-canvas)] [frame (and canvas (send canvas get-top-level-window))]) - (if (is-a? frame drscheme:unit:frame%) + (if (is-a? frame drracket:unit:frame%) (let ([filename (send (send frame get-definitions-text) get-filename)]) (cond [(and filename (eq? editor (send frame get-interactions-text))) @@ -873,7 +873,7 @@ profile todo: [editor (cond [(path? debug-source) (cond - [(and frame (is-a? frame drscheme:unit:frame%)) + [(and frame (is-a? frame drracket:unit:frame%)) (send frame get-definitions-text)] [(and frame (is-a? frame frame:editor<%>)) (send frame get-editor)] @@ -883,7 +883,7 @@ profile todo: => values] [else #f])] - [rep (and (is-a? frame drscheme:unit:frame%) + [rep (and (is-a? frame drracket:unit:frame%) (send frame get-interactions-text))]) (when frame (send frame show #t)) @@ -927,7 +927,7 @@ profile todo: (define (initialize-test-coverage-point key expr) (unless (hash? (thread-cell-ref current-test-coverage-info)) - (let ([rep (drscheme:rep:current-rep)]) + (let ([rep (drracket:rep:current-rep)]) (when rep (let ([ut (eventspace-handler-thread (send rep get-user-eventspace))]) (when (eq? ut (current-thread)) @@ -959,7 +959,7 @@ profile todo: ask-about-clearing-test-coverage?)) (define test-coverage-interactions-text-mixin - (mixin (drscheme:rep:text<%> text:basic<%>) (test-coverage-interactions-text<%>) + (mixin (drracket:rep:text<%> text:basic<%>) (test-coverage-interactions-text<%>) (inherit get-context) (field [test-coverage-info #f] [test-coverage-on-style #f] @@ -987,11 +987,11 @@ profile todo: (super-new))) (define test-coverage-definitions-text-mixin - (mixin ((class->interface text%) drscheme:unit:definitions-text<%>) () + (mixin ((class->interface text%) drracket:unit:definitions-text<%>) () (inherit get-canvas get-tab) (define/private (clear-test-coverage?) - (if (preferences:get 'drscheme:test-coverage-ask-about-clearing?) + (if (preferences:get 'drracket:test-coverage-ask-about-clearing?) (let ([msg-box-result (message-box/custom (string-constant drscheme) @@ -1006,7 +1006,7 @@ profile todo: [(1) #t] [(2) #f] [(3) - (preferences:set 'drscheme:test-coverage-ask-about-clearing? #f) + (preferences:set 'drracket:test-coverage-ask-about-clearing? #f) #t])) #t)) @@ -1054,7 +1054,7 @@ profile todo: (send erase-test-coverage-style-delta set-transparent-text-backing-on #t) (define test-coverage-tab-mixin - (mixin (drscheme:rep:context<%> drscheme:unit:tab<%>) (test-coverage-tab<%>) + (mixin (drracket:rep:context<%> drracket:unit:tab<%>) (test-coverage-tab<%>) (field [internal-clear-test-coverage-display #f]) @@ -1298,7 +1298,7 @@ profile todo: ;; imported into errortrace (define (initialize-profile-point key name expr) (unless (thread-cell-ref current-profile-info) - (let ([rep (drscheme:rep:current-rep)]) + (let ([rep (drracket:rep:current-rep)]) (when rep (let ([ut (eventspace-handler-thread (send rep get-user-eventspace))]) (when (eq? ut (current-thread)) @@ -1340,17 +1340,17 @@ profile todo: (prof-info-time info))))))) (void)) - (define (get-color-value/pref val max-val drscheme:profile:low-color drscheme:profile:high-color drscheme:profile:scale) + (define (get-color-value/pref val max-val drracket:profile:low-color drracket:profile:high-color drracket:profile:scale) (let* ([adjust - (case drscheme:profile:scale + (case drracket:profile:scale [(sqrt) sqrt] [(square) (λ (x) (* x x))] [(linear) (λ (x) x)])] [factor (adjust (if (zero? max-val) 0 (/ val max-val)))] [get-rgb-value (λ (sel) - (let ([small (sel drscheme:profile:low-color)] - [big (sel drscheme:profile:high-color)]) + (let ([small (sel drracket:profile:low-color)] + [big (sel drracket:profile:high-color)]) (inexact->exact (floor (+ (* factor (- big small)) small)))))]) (make-object color% (get-rgb-value (λ (x) (send x red))) @@ -1364,15 +1364,15 @@ profile todo: (define (get-color-value val max-val) (get-color-value/pref val max-val - (preferences:get 'drscheme:profile:low-color) - (preferences:get 'drscheme:profile:high-color) - (preferences:get 'drscheme:profile:scale))) + (preferences:get 'drracket:profile:low-color) + (preferences:get 'drracket:profile:high-color) + (preferences:get 'drracket:profile:scale))) ;; extract-maximum : (listof prof-info) -> number ;; gets the maximum value of the currently preferred profiling info. (define (extract-maximum infos) (let ([max-value 0] - [sel (if (eq? (preferences:get 'drscheme:profile-how-to-count) 'time) + [sel (if (eq? (preferences:get 'drracket:profile-how-to-count) 'time) prof-info-time prof-info-num)]) (for-each @@ -1383,7 +1383,7 @@ profile todo: ;; profile-definitions-mixin : mixin (define profile-definitions-text-mixin - (mixin ((class->interface text%) drscheme:unit:definitions-text<%>) () + (mixin ((class->interface text%) drracket:unit:definitions-text<%>) () (inherit get-canvas get-tab) (define/augment (can-insert? x y) @@ -1445,11 +1445,11 @@ profile todo: ) (define profile-tab-mixin - (mixin (drscheme:unit:tab<%>) (profile-interactions-tab<%>) + (mixin (drracket:unit:tab<%>) (profile-interactions-tab<%>) (define profile-info-visible? #f) (define/public (get-profile-info-visible?) profile-info-visible?) - (define sort-mode (preferences:get 'drscheme:profile-how-to-count)) + (define sort-mode (preferences:get 'drracket:profile-how-to-count)) (define/public (get-sort-mode) sort-mode) (define/public (set-sort-mode mode) (set! sort-mode mode)) @@ -1503,7 +1503,7 @@ profile todo: ;; profile-unit-frame-mixin : mixin ;; adds profiling to the unit frame (define profile-unit-frame-mixin - (mixin (drscheme:unit:frame<%> drscheme:frame:<%>) () + (mixin (drracket:unit:frame<%> drracket:frame:<%>) () (inherit get-interactions-text get-current-tab) @@ -1626,14 +1626,14 @@ profile todo: (callback (λ (x y) (let ([mode (profile-selection->mode (send profile-choice get-selection))]) - (preferences:set 'drscheme:profile-how-to-count mode) + (preferences:set 'drracket:profile-how-to-count mode) (send (get-current-tab) set-sort-mode mode) (send (get-current-tab) refresh-profile)))) (choices (list (string-constant profiling-time) (string-constant profiling-number)))))) (define _1 (send profile-choice set-selection - (case (preferences:get 'drscheme:profile-how-to-count) + (case (preferences:get 'drracket:profile-how-to-count) [(time) 0] [(count) 1]))) (define update-profile-button @@ -1651,7 +1651,7 @@ profile todo: (λ (x y) (send (get-current-tab) hide-profile))))) (send profile-choice set-selection - (profile-mode->selection (preferences:get 'drscheme:profile-how-to-count))) + (profile-mode->selection (preferences:get 'drracket:profile-how-to-count))) (send profile-left-side stretchable-width #f) @@ -1757,7 +1757,7 @@ profile todo: (hash-set! in-edit-sequence src #t) (send src begin-edit-sequence)) (let* ([color (get-color-value - (if (eq? (preferences:get 'drscheme:profile-how-to-count) 'time) + (if (eq? (preferences:get 'drracket:profile-how-to-count) 'time) (prof-info-time info) (prof-info-num info)) max-value)] @@ -1819,7 +1819,7 @@ profile todo: [bigger-value? (λ (x y) - (let ([sel (if (eq? 'count (preferences:get 'drscheme:profile-how-to-count)) + (let ([sel (if (eq? 'count (preferences:get 'drracket:profile-how-to-count)) prof-info-num prof-info-time)]) (> (sel x) (sel y))))] @@ -1975,7 +1975,7 @@ profile todo: (let ([frame (handler:edit-file filename)]) (when (and frame pos - (is-a? frame drscheme:unit:frame%)) + (is-a? frame drracket:unit:frame%)) (let ([defs (send frame get-definitions-text)]) (send defs set-position (- pos 1)))))) @@ -2037,22 +2037,22 @@ profile todo: #f (preferences:get (if low? - 'drscheme:profile:low-color - 'drscheme:profile:high-color)))]) + 'drracket:profile:low-color + 'drracket:profile:high-color)))]) (when color (preferences:set - (if low? 'drscheme:profile:low-color 'drscheme:profile:high-color) + (if low? 'drracket:profile:low-color 'drracket:profile:high-color) color))))] [scale-callback (λ () (preferences:set - 'drscheme:profile:scale + 'drracket:profile:scale (case (send scale get-selection) [(0) 'sqrt] [(1) 'linear] [(2) 'square])))]) (preferences:add-callback - 'drscheme:profile:scale + 'drracket:profile:scale (λ (p v) (send scale set-selection (case v @@ -2072,14 +2072,14 @@ profile todo: (set! in-on-paint? #t) (let* ([dc (get-dc)] [dummy-pen (send dc get-pen)] - [drscheme:profile:low-color (preferences:get 'drscheme:profile:low-color)] - [drscheme:profile:high-color (preferences:get 'drscheme:profile:high-color)] - [drscheme:profile:scale (preferences:get 'drscheme:profile:scale)]) + [drracket:profile:low-color (preferences:get 'drracket:profile:low-color)] + [drracket:profile:high-color (preferences:get 'drracket:profile:high-color)] + [drracket:profile:scale (preferences:get 'drracket:profile:scale)]) (let-values ([(w h) (get-client-size)]) (let loop ([n 0]) (when (n . <= . w) (send pen set-color - (get-color-value/pref n w drscheme:profile:low-color drscheme:profile:high-color drscheme:profile:scale)) + (get-color-value/pref n w drracket:profile:low-color drracket:profile:high-color drracket:profile:scale)) (send dc set-pen pen) (send dc draw-line n 0 n h) (send dc set-pen dummy-pen) @@ -2096,21 +2096,21 @@ profile todo: ;; values are actually set by the time on-paint ;; is called. (preferences:add-callback - 'drscheme:profile:scale + 'drracket:profile:scale (λ (p v) (unless in-on-paint? (queue-callback (λ () (on-paint)))))) (preferences:add-callback - 'drscheme:profile:low-color + 'drracket:profile:low-color (λ (p v) (unless in-on-paint? (queue-callback (λ () (on-paint)))))) (preferences:add-callback - 'drscheme:profile:high-color + 'drracket:profile:high-color (λ (p v) (unless in-on-paint? (queue-callback diff --git a/collects/drscheme/private/drscheme-normal.ss b/collects/drscheme/private/drscheme-normal.rkt similarity index 98% rename from collects/drscheme/private/drscheme-normal.ss rename to collects/drscheme/private/drscheme-normal.rkt index 1450eeae21..d3e3c3c7dd 100644 --- a/collects/drscheme/private/drscheme-normal.ss +++ b/collects/drscheme/private/drscheme-normal.rkt @@ -7,12 +7,12 @@ framework/private/bday framework/splash racket/file - "eb.ss") + "eb.rkt") (define files-to-open (command-line #:args filenames filenames)) ;; updates the command-line-arguments with only the files -;; to open. See also main.ss. +;; to open. See also main.rkt. (current-command-line-arguments (apply vector files-to-open)) (define-values (texas-independence-day? prince-kuhio-day? kamehameha-day? halloween? weekend?) diff --git a/collects/drscheme/private/drsig.rkt b/collects/drscheme/private/drsig.rkt new file mode 100644 index 0000000000..b6e5c857ae --- /dev/null +++ b/collects/drscheme/private/drsig.rkt @@ -0,0 +1,369 @@ +#lang racket/base +(require scheme/unit) + +(provide drracket:eval^ + drracket:debug^ + drracket:module-language^ + drracket:module-language-tools^ + drracket:get-collection^ + drracket:main^ + drracket:init^ + drracket:language-configuration^ + drracket:language-configuration/internal^ + drracket:tools^ + drracket:tools-drs^ + drracket:get/extend^ + drracket:unit^ + drracket:frame^ + drracket:program^ + drracket:text^ + drracket:rep^ + drracket:app^ + drracket:draw-arrow^ + drracket:help-desk^ + drracket:language^ + drracket:multi-file-search^ + drracket:module-overview^ + drracket:font^ + drracket:modes^ + drracket:tracing^ + drracket:tool-exports^ + drracket:tool^ + drracket:tool-cm^ + drscheme:tool^ + drscheme:tool-cm^) + +(define-signature drracket:modes-cm^ + ()) +(define-signature drracket:modes^ extends drracket:modes-cm^ + (add-mode + get-modes + add-initial-modes + (struct mode (name surrogate repl-submit matches-language) + #:omit-constructor))) + +(define-signature drracket:font-cm^ + ()) +(define-signature drracket:font^ extends drracket:font-cm^ + (setup-preferences)) + +(define-signature drracket:debug-cm^ + (profile-definitions-text-mixin + profile-tab-mixin + profile-unit-frame-mixin + test-coverage-interactions-text-mixin + test-coverage-definitions-text-mixin + test-coverage-tab-mixin)) +(define-signature drracket:debug^ extends drracket:debug-cm^ + (make-debug-error-display-handler + make-debug-eval-handler + error-display-handler/stacktrace + bug-info->ticket-url + test-coverage-enabled + profiling-enabled + + add-prefs-panel + + get-error-color + + hide-backtrace-window + show-backtrace-window + show-backtrace-window/edition-pairs + open-and-highlight-in-file + + small-planet-bitmap + + srcloc->edition/pair + + + ;show-error-and-highlight + ;print-bug-to-stderr + ;display-srclocs-in-error + ;show-syntax-error-context + )) + +(define-signature drracket:module-language-cm^ + (module-language<%>)) +(define-signature drracket:module-language^ extends drracket:module-language-cm^ + (add-module-language + module-language-put-file-mixin)) + +(define-signature drracket:module-language-tools-cm^ + (frame-mixin + frame<%> + tab-mixin + tab<%> + definitions-text-mixin + definitions-text<%>)) +(define-signature drracket:module-language-tools^ extends drracket:module-language-tools-cm^ + (add-opt-out-toolbar-button)) + +(define-signature drracket:get-collection-cm^ ()) +(define-signature drracket:get-collection^ extends drracket:get-collection-cm^ + (get-file/collection)) + +(define-signature drracket:main-cm^ ()) +(define-signature drracket:main^ extends drracket:main-cm^ ()) + +(define-signature drracket:init-cm^ + ()) +(define-signature drracket:init^ extends drracket:init-cm^ + (original-output-port + original-error-port + original-error-display-handler + primitive-eval + primitive-load + error-display-handler-message-box-title + system-logger + system-custodian + system-eventspace + system-namespace + first-dir)) + +(define-signature drracket:language-configuration-cm^ + ()) +(define-signature drracket:language-configuration^ extends drracket:language-configuration-cm^ + (add-language + get-languages + (struct language-settings (language settings)) + get-settings-preferences-symbol + language-dialog + fill-language-dialog)) + +(define-signature drracket:language-configuration/internal^ extends drracket:language-configuration^ + (add-info-specified-languages + get-default-language-settings + settings-preferences-symbol + get-all-scheme-manual-keywords + get-all-manual-keywords + add-built-in-languages + not-a-language-language<%>)) + +(define-signature drracket:tools-cm^ + ()) +(define-signature drracket:tools^ extends drracket:tools-cm^ + ((struct successful-tool (spec bitmap name url)) + get-successful-tools + only-in-phase + load/invoke-all-tools + add-prefs-panel)) + +(define-signature drracket:tools-drs-cm^ + ()) +(define-signature drracket:tools-drs^ extends drracket:tools-drs-cm^ + (invoke-drs-tool)) + +(define-signature drracket:get/extend-cm^ + ()) +(define-signature drracket:get/extend^ extends drracket:get/extend-cm^ + (extend-tab + extend-interactions-text + extend-definitions-text + extend-interactions-canvas + extend-definitions-canvas + extend-unit-frame + get-tab + get-interactions-text + get-definitions-text + get-interactions-canvas + get-definitions-canvas + get-unit-frame)) + +(define-signature drracket:unit-cm^ + (tab% + tab<%> + frame% + frame<%> + definitions-canvas% + get-definitions-text% + definitions-text<%> + interactions-canvas%)) +(define-signature drracket:unit^ extends drracket:unit-cm^ + (open-drscheme-window + find-symbol + get-program-editor-mixin + add-to-program-editor-mixin + forget-saved-bug-report + record-saved-bug-report + (struct teachpack-callbacks (get-names remove add)))) + +(define-signature drracket:frame-cm^ + (<%> + mixin + basics-mixin + basics<%>)) +(define-signature drracket:frame^ extends drracket:frame-cm^ + (create-root-menubar + add-keybindings-item + planet-spec?)) + +(define-signature drracket:program-cm^ + (frame%)) +(define-signature drracket:program^ extends drracket:program-cm^ + ()) + +(define-signature drracket:eval-cm^ + ()) +(define-signature drracket:eval^ extends drracket:eval-cm^ + (expand-program + expand-program/multiple + traverse-program/multiple + build-user-eventspace/custodian + set-basic-parameters + get-snip-classes)) + +(define-signature drracket:text-cm^ + (text<%> + text%)) +(define-signature drracket:text^ extends drracket:text-cm^ + ()) + +(define-signature drracket:setup-cm^ + ()) +(define-signature drracket:setup^ extends drracket:setup-cm^ + (do-setup)) + +(define-signature drracket:rep-cm^ + (drs-bindings-keymap-mixin + text% + text<%> + context<%>)) +(define-signature drracket:rep^ extends drracket:rep-cm^ + (current-rep + current-language-settings + current-value-port + get-drs-bindings-keymap + error-delta + get-welcome-delta + get-dark-green-delta + drs-autocomplete-mixin)) + +(define-signature drracket:app-cm^ + ()) +(define-signature drracket:app^ extends drracket:app-cm^ + (about-drscheme + add-language-items-to-help-menu + add-important-urls-to-help-menu + switch-language-to)) + +(define-signature drracket:draw-arrow-cm^ + ()) +(define-signature drracket:draw-arrow^ extends drracket:draw-arrow-cm^ + (draw-arrow)) + +(define-signature drracket:help-desk-cm^ + ()) +(define-signature drracket:help-desk^ extends drracket:help-desk-cm^ + (help-desk + goto-plt-license + get-docs)) + +(define-signature drracket:language-cm^ + (language<%> + module-based-language<%> + simple-module-based-language<%> + simple-module-based-language% + simple-module-based-language->module-based-language-mixin + module-based-language->language-mixin)) +(define-signature drracket:language^ extends drracket:language-cm^ + (get-default-mixin + extend-language-interface + get-language-extensions + + create-module-based-launcher + create-module-based-stand-alone-executable + create-module-based-distribution + + create-distribution-for-executable + + create-executable-gui + put-executable + + ;(struct loc (source position line column span)) + + (struct text/pos (text start end)) + (struct simple-settings (case-sensitive + printing-style + fraction-style + show-sharing + insert-newlines + annotations)) + simple-settings->vector + + simple-module-based-language-config-panel + simple-module-based-language-convert-value + setup-printing-parameters + + add-snip-value + setup-setup-values + + register-capability + capability-registered? + get-capability-default + get-capability-contract)) + +(define-signature drracket:multi-file-search-cm^ + ()) +(define-signature drracket:multi-file-search^ extends drracket:multi-file-search-cm^ + (multi-file-search + search-type-params + search-types)) + +(define-signature drracket:module-overview-cm^ + ()) +(define-signature drracket:module-overview^ extends drracket:module-overview-cm^ + (module-overview + make-module-overview-pasteboard + fill-pasteboard)) + +(define-signature drracket:tracing-cm^ + (tab-mixin + frame-mixin)) +(define-signature drracket:tracing^ extends drracket:tracing-cm^ + (annotate)) + +(define-signature drracket:tool-exports-cm^ + ()) +(define-signature drracket:tool-exports^ extends drracket:tool-exports-cm^ + (phase1 + phase2)) + +(define-signature no-prefix:tool-cm^ + ((open (prefix debug: drracket:debug-cm^)) + (open (prefix unit: drracket:unit-cm^)) + (open (prefix rep: drracket:rep-cm^)) + (open (prefix frame: drracket:frame-cm^)) + (open (prefix get/extend: drracket:get/extend-cm^)) + (open (prefix language-configuration: drracket:language-configuration-cm^)) + (open (prefix language: drracket:language-cm^)) + (open (prefix help-desk: drracket:help-desk-cm^)) + (open (prefix eval: drracket:eval-cm^)) + (open (prefix modes: drracket:modes-cm^)) + (open (prefix tracing: drracket:tracing-cm^)) + (open (prefix module-language: drracket:module-language-cm^)) + (open (prefix module-language-tools: drracket:module-language-tools-cm^)))) + +(define-signature drracket:tool-cm^ + ((open (prefix drracket: no-prefix:tool-cm^)))) +(define-signature drscheme:tool-cm^ + ((open (prefix drscheme: no-prefix:tool-cm^)))) + +(define-signature no-prefix:tool^ + ((open (prefix debug: drracket:debug^)) + (open (prefix unit: drracket:unit^)) + (open (prefix rep: drracket:rep^)) + (open (prefix frame: drracket:frame^)) + (open (prefix get/extend: drracket:get/extend^)) + (open (prefix language-configuration: drracket:language-configuration^)) + (open (prefix language: drracket:language^)) + (open (prefix help-desk: drracket:help-desk^)) + (open (prefix eval: drracket:eval^)) + (open (prefix modes: drracket:modes^)) + (open (prefix tracing: drracket:tracing^)) + (open (prefix module-language: drracket:module-language^)) + (open (prefix module-language-tools: drracket:module-language-tools^)))) + +(define-signature drracket:tool^ + ((open (prefix drracket: no-prefix:tool^)))) +(define-signature drscheme:tool^ + ((open (prefix drscheme: no-prefix:tool^)))) diff --git a/collects/drscheme/private/drsig.ss b/collects/drscheme/private/drsig.ss deleted file mode 100644 index a41a6860b6..0000000000 --- a/collects/drscheme/private/drsig.ss +++ /dev/null @@ -1,349 +0,0 @@ -#lang racket/base -(require scheme/unit) - -(provide drscheme:eval^ - drscheme:debug^ - drscheme:module-language^ - drscheme:module-language-tools^ - drscheme:get-collection^ - drscheme:main^ - drscheme:init^ - drscheme:language-configuration^ - drscheme:language-configuration/internal^ - drscheme:tools^ - drscheme:get/extend^ - drscheme:unit^ - drscheme:frame^ - drscheme:program^ - drscheme:text^ - drscheme:rep^ - drscheme:app^ - drscheme:draw-arrow^ - drscheme:help-desk^ - drscheme:language^ - drscheme:multi-file-search^ - drscheme:module-overview^ - drscheme:font^ - drscheme:modes^ - drscheme:tracing^ - drscheme:tool-exports^ - drscheme:tool^ - drscheme:tool-cm^) - -(define-signature drscheme:modes-cm^ - ()) -(define-signature drscheme:modes^ extends drscheme:modes-cm^ - (add-mode - get-modes - add-initial-modes - (struct mode (name surrogate repl-submit matches-language) - #:omit-constructor))) - -(define-signature drscheme:font-cm^ - ()) -(define-signature drscheme:font^ extends drscheme:font-cm^ - (setup-preferences)) - -(define-signature drscheme:debug-cm^ - (profile-definitions-text-mixin - profile-tab-mixin - profile-unit-frame-mixin - test-coverage-interactions-text-mixin - test-coverage-definitions-text-mixin - test-coverage-tab-mixin)) -(define-signature drscheme:debug^ extends drscheme:debug-cm^ - (make-debug-error-display-handler - make-debug-eval-handler - error-display-handler/stacktrace - bug-info->ticket-url - test-coverage-enabled - profiling-enabled - - add-prefs-panel - - get-error-color - - hide-backtrace-window - show-backtrace-window - show-backtrace-window/edition-pairs - open-and-highlight-in-file - - small-planet-bitmap - - srcloc->edition/pair - - - ;show-error-and-highlight - ;print-bug-to-stderr - ;display-srclocs-in-error - ;show-syntax-error-context - )) - -(define-signature drscheme:module-language-cm^ - (module-language<%>)) -(define-signature drscheme:module-language^ extends drscheme:module-language-cm^ - (add-module-language - module-language-put-file-mixin)) - -(define-signature drscheme:module-language-tools-cm^ - (frame-mixin - frame<%> - tab-mixin - tab<%> - definitions-text-mixin - definitions-text<%>)) -(define-signature drscheme:module-language-tools^ extends drscheme:module-language-tools-cm^ - (add-opt-out-toolbar-button)) - -(define-signature drscheme:get-collection-cm^ ()) -(define-signature drscheme:get-collection^ extends drscheme:get-collection-cm^ - (get-file/collection)) - -(define-signature drscheme:main-cm^ ()) -(define-signature drscheme:main^ extends drscheme:main-cm^ ()) - -(define-signature drscheme:init-cm^ - ()) -(define-signature drscheme:init^ extends drscheme:init-cm^ - (original-output-port - original-error-port - original-error-display-handler - primitive-eval - primitive-load - error-display-handler-message-box-title - system-logger - system-custodian - system-eventspace - system-namespace - first-dir)) - -(define-signature drscheme:language-configuration-cm^ - ()) -(define-signature drscheme:language-configuration^ extends drscheme:language-configuration-cm^ - (add-language - get-languages - (struct language-settings (language settings)) - get-settings-preferences-symbol - language-dialog - fill-language-dialog)) - -(define-signature drscheme:language-configuration/internal^ extends drscheme:language-configuration^ - (add-info-specified-languages - get-default-language-settings - settings-preferences-symbol - get-all-scheme-manual-keywords - get-all-manual-keywords - add-built-in-languages - not-a-language-language<%>)) - -(define-signature drscheme:tools-cm^ - ()) -(define-signature drscheme:tools^ extends drscheme:tools-cm^ - ((struct successful-tool (spec bitmap name url)) - get-successful-tools - only-in-phase - load/invoke-all-tools - add-prefs-panel)) - -(define-signature drscheme:get/extend-cm^ - ()) -(define-signature drscheme:get/extend^ extends drscheme:get/extend-cm^ - (extend-tab - extend-interactions-text - extend-definitions-text - extend-interactions-canvas - extend-definitions-canvas - extend-unit-frame - get-tab - get-interactions-text - get-definitions-text - get-interactions-canvas - get-definitions-canvas - get-unit-frame)) - -(define-signature drscheme:unit-cm^ - (tab% - tab<%> - frame% - frame<%> - definitions-canvas% - get-definitions-text% - definitions-text<%> - interactions-canvas%)) -(define-signature drscheme:unit^ extends drscheme:unit-cm^ - (open-drscheme-window - find-symbol - get-program-editor-mixin - add-to-program-editor-mixin - forget-saved-bug-report - record-saved-bug-report - (struct teachpack-callbacks (get-names remove add)))) - -(define-signature drscheme:frame-cm^ - (<%> - mixin - basics-mixin - basics<%>)) -(define-signature drscheme:frame^ extends drscheme:frame-cm^ - (create-root-menubar - add-keybindings-item - planet-spec?)) - -(define-signature drscheme:program-cm^ - (frame%)) -(define-signature drscheme:program^ extends drscheme:program-cm^ - ()) - -(define-signature drscheme:eval-cm^ - ()) -(define-signature drscheme:eval^ extends drscheme:eval-cm^ - (expand-program - expand-program/multiple - traverse-program/multiple - build-user-eventspace/custodian - set-basic-parameters - get-snip-classes)) - -(define-signature drscheme:text-cm^ - (text<%> - text%)) -(define-signature drscheme:text^ extends drscheme:text-cm^ - ()) - -(define-signature drscheme:setup-cm^ - ()) -(define-signature drscheme:setup^ extends drscheme:setup-cm^ - (do-setup)) - -(define-signature drscheme:rep-cm^ - (drs-bindings-keymap-mixin - text% - text<%> - context<%>)) -(define-signature drscheme:rep^ extends drscheme:rep-cm^ - (current-rep - current-language-settings - current-value-port - get-drs-bindings-keymap - error-delta - get-welcome-delta - get-dark-green-delta - drs-autocomplete-mixin)) - -(define-signature drscheme:app-cm^ - ()) -(define-signature drscheme:app^ extends drscheme:app-cm^ - (about-drscheme - add-language-items-to-help-menu - add-important-urls-to-help-menu - switch-language-to)) - -(define-signature drscheme:draw-arrow-cm^ - ()) -(define-signature drscheme:draw-arrow^ extends drscheme:draw-arrow-cm^ - (draw-arrow)) - -(define-signature drscheme:help-desk-cm^ - ()) -(define-signature drscheme:help-desk^ extends drscheme:help-desk-cm^ - (help-desk - goto-plt-license - get-docs)) - -(define-signature drscheme:language-cm^ - (language<%> - module-based-language<%> - simple-module-based-language<%> - simple-module-based-language% - simple-module-based-language->module-based-language-mixin - module-based-language->language-mixin)) -(define-signature drscheme:language^ extends drscheme:language-cm^ - (get-default-mixin - extend-language-interface - get-language-extensions - - create-module-based-launcher - create-module-based-stand-alone-executable - create-module-based-distribution - - create-distribution-for-executable - - create-executable-gui - put-executable - - ;(struct loc (source position line column span)) - - (struct text/pos (text start end)) - (struct simple-settings (case-sensitive - printing-style - fraction-style - show-sharing - insert-newlines - annotations)) - simple-settings->vector - - simple-module-based-language-config-panel - simple-module-based-language-convert-value - setup-printing-parameters - - add-snip-value - setup-setup-values - - register-capability - capability-registered? - get-capability-default - get-capability-contract)) - -(define-signature drscheme:multi-file-search-cm^ - ()) -(define-signature drscheme:multi-file-search^ extends drscheme:multi-file-search-cm^ - (multi-file-search)) - -(define-signature drscheme:module-overview-cm^ - ()) -(define-signature drscheme:module-overview^ extends drscheme:module-overview-cm^ - (module-overview - make-module-overview-pasteboard - fill-pasteboard)) - -(define-signature drscheme:tracing-cm^ - (tab-mixin - frame-mixin)) -(define-signature drscheme:tracing^ extends drscheme:tracing-cm^ - (annotate)) - -(define-signature drscheme:tool-exports-cm^ - ()) -(define-signature drscheme:tool-exports^ extends drscheme:tool-exports-cm^ - (phase1 - phase2)) - -(define-signature drscheme:tool-cm^ - ((open (prefix drscheme:debug: drscheme:debug-cm^)) - (open (prefix drscheme:unit: drscheme:unit-cm^)) - (open (prefix drscheme:rep: drscheme:rep-cm^)) - (open (prefix drscheme:frame: drscheme:frame-cm^)) - (open (prefix drscheme:get/extend: drscheme:get/extend-cm^)) - (open (prefix drscheme:language-configuration: drscheme:language-configuration-cm^)) - (open (prefix drscheme:language: drscheme:language-cm^)) - (open (prefix drscheme:help-desk: drscheme:help-desk-cm^)) - (open (prefix drscheme:eval: drscheme:eval-cm^)) - (open (prefix drscheme:modes: drscheme:modes-cm^)) - (open (prefix drscheme:tracing: drscheme:tracing-cm^)) - (open (prefix drscheme:module-language: drscheme:module-language-cm^)) - (open (prefix drscheme:module-language-tools: drscheme:module-language-tools-cm^)))) - -(define-signature drscheme:tool^ - ((open (prefix drscheme:debug: drscheme:debug^)) - (open (prefix drscheme:unit: drscheme:unit^)) - (open (prefix drscheme:rep: drscheme:rep^)) - (open (prefix drscheme:frame: drscheme:frame^)) - (open (prefix drscheme:get/extend: drscheme:get/extend^)) - (open (prefix drscheme:language-configuration: drscheme:language-configuration^)) - (open (prefix drscheme:language: drscheme:language^)) - (open (prefix drscheme:help-desk: drscheme:help-desk^)) - (open (prefix drscheme:eval: drscheme:eval^)) - (open (prefix drscheme:modes: drscheme:modes^)) - (open (prefix drscheme:tracing: drscheme:tracing^)) - (open (prefix drscheme:module-language: drscheme:module-language^)) - (open (prefix drscheme:module-language-tools: drscheme:module-language-tools^)))) diff --git a/collects/drscheme/private/eb.ss b/collects/drscheme/private/eb.rkt similarity index 100% rename from collects/drscheme/private/eb.ss rename to collects/drscheme/private/eb.rkt diff --git a/collects/drscheme/private/embedded-snip-utils.ss b/collects/drscheme/private/embedded-snip-utils.rkt similarity index 100% rename from collects/drscheme/private/embedded-snip-utils.ss rename to collects/drscheme/private/embedded-snip-utils.rkt diff --git a/collects/drscheme/private/eval.ss b/collects/drscheme/private/eval.rkt similarity index 87% rename from collects/drscheme/private/eval.ss rename to collects/drscheme/private/eval.rkt index 4cc00542d0..6354c7825b 100644 --- a/collects/drscheme/private/eval.ss +++ b/collects/drscheme/private/eval.rkt @@ -6,7 +6,7 @@ racket/class syntax/toplevel framework - "drsig.ss") + "drsig.rkt") ;; to ensure this guy is loaded (and the snipclass installed) in the drscheme namespace & eventspace ;; these things are for effect only! @@ -18,12 +18,12 @@ (provide eval@) (define-unit eval@ - (import [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:init: drscheme:init^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:unit: drscheme:unit^]) - (export drscheme:eval^) + (import [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:init: drracket:init^] + [prefix drracket:language: drracket:language^] + [prefix drracket:unit: drracket:unit^]) + (export drracket:eval^) (define (traverse-program/multiple language-settings init @@ -33,18 +33,18 @@ language-settings init kill-termination)]) - (let ([language (drscheme:language-configuration:language-settings-language + (let ([language (drracket:language-configuration:language-settings-language language-settings)] - [settings (drscheme:language-configuration:language-settings-settings + [settings (drracket:language-configuration:language-settings-settings language-settings)]) (λ (input iter complete-program?) (let-values ([(port src) (cond [(input-port? input) (values input #f)] [else (values - (let* ([text (drscheme:language:text/pos-text input)] - [start (drscheme:language:text/pos-start input)] - [end (drscheme:language:text/pos-end input)] + (let* ([text (drracket:language:text/pos-text input)] + [start (drracket:language:text/pos-start input)] + [end (drracket:language:text/pos-end input)] [text-port (open-input-text-editor text start end values (send text get-port-name))]) (port-count-lines! text-port) @@ -56,7 +56,7 @@ (+ start 1))]) (port-count-lines! relocated-port) relocated-port)) - (drscheme:language:text/pos-text input))])]) + (drracket:language:text/pos-text input))])]) (parameterize ([current-eventspace eventspace]) (queue-callback (λ () @@ -109,9 +109,9 @@ (let* ([user-custodian (make-custodian)] [eventspace (parameterize ([current-custodian user-custodian]) (make-eventspace))] - [language (drscheme:language-configuration:language-settings-language + [language (drracket:language-configuration:language-settings-language language-settings)] - [settings (drscheme:language-configuration:language-settings-settings + [settings (drracket:language-configuration:language-settings-settings language-settings)] [eventspace-main-thread #f] [run-in-eventspace @@ -135,7 +135,7 @@ (λ () (current-custodian user-custodian) (set-basic-parameters drs-snip-classes) - (drscheme:rep:current-language-settings language-settings))) + (drracket:rep:current-language-settings language-settings))) (send language on-execute settings run-in-eventspace) (run-in-eventspace (λ () @@ -174,19 +174,19 @@ (current-ps-setup (make-object ps-setup%)) (current-namespace (make-empty-namespace)) - (for-each (λ (x) (namespace-attach-module drscheme:init:system-namespace x)) + (for-each (λ (x) (namespace-attach-module drracket:init:system-namespace x)) to-be-copied-module-names)) ;; these module specs are copied over to each new user's namespace (define to-be-copied-module-specs (list 'mzscheme - '(lib "mzlib/foreign.ss") - '(lib "mred/mred.ss") - '(lib "mrlib/cache-image-snip.ss") - '(lib "mrlib/image-core.ss") - '(lib "mrlib/matrix-snip.ss") - '(lib "mzlib/pconvert-prop.ss") - '(lib "planet/terse-info.ss"))) + '(lib "mzlib/foreign.rkt") + '(lib "mred/mred.rkt") + '(lib "mrlib/cache-image-snip.rkt") + '(lib "mrlib/image-core.rkt") + '(lib "mrlib/matrix-snip.rkt") + '(lib "mzlib/pconvert-prop.rkt") + '(lib "planet/terse-info.rkt"))) ;; ensure that they are all here. (for-each (λ (x) (dynamic-require x #f)) to-be-copied-module-specs) diff --git a/collects/drscheme/private/font.ss b/collects/drscheme/private/font.rkt similarity index 97% rename from collects/drscheme/private/font.ss rename to collects/drscheme/private/font.rkt index 0428a5b698..44e7880a5d 100644 --- a/collects/drscheme/private/font.ss +++ b/collects/drscheme/private/font.rkt @@ -2,7 +2,7 @@ (require scheme/unit racket/class racket/gui/base - "drsig.ss" + "drsig.rkt" framework string-constants) @@ -15,8 +15,8 @@ (provide font@) (define-unit font@ - (import [prefix drscheme:language-configuration: drscheme:language-configuration/internal^]) - (export drscheme:font^) + (import [prefix drracket:language-configuration: drracket:language-configuration/internal^]) + (export drracket:font^) (define (setup-preferences) (preferences:add-panel @@ -205,10 +205,10 @@ 'framework:standard-style-list:font-size (λ (p v) (send size-slider set-value v))) (preferences:add-callback - drscheme:language-configuration:settings-preferences-symbol + drracket:language-configuration:settings-preferences-symbol (λ (p v) (update-text v))) - (update-text (preferences:get drscheme:language-configuration:settings-preferences-symbol)) + (update-text (preferences:get drracket:language-configuration:settings-preferences-symbol)) (send ex-panel set-alignment 'left 'center) (send ex-panel stretchable-height #f) (send canvas allow-tab-exit #t) diff --git a/collects/drscheme/private/frame.ss b/collects/drscheme/private/frame.rkt similarity index 94% rename from collects/drscheme/private/frame.ss rename to collects/drscheme/private/frame.rkt index c55512116f..cf5f662fbe 100644 --- a/collects/drscheme/private/frame.ss +++ b/collects/drscheme/private/frame.rkt @@ -3,7 +3,7 @@ racket/match racket/class racket/string - "drsig.ss" + "drsig.rkt" mred framework net/url @@ -12,12 +12,12 @@ help/bug-report racket/file) - (import [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:app: drscheme:app^] - [prefix help: drscheme:help-desk^] - [prefix drscheme:multi-file-search: drscheme:multi-file-search^] - [prefix drscheme:init: drscheme:init^]) - (export (rename drscheme:frame^ + (import [prefix drracket:unit: drracket:unit^] + [prefix drracket:app: drracket:app^] + [prefix help: drracket:help-desk^] + [prefix drracket:multi-file-search: drracket:multi-file-search^] + [prefix drracket:init: drracket:init^]) + (export (rename drracket:frame^ [-mixin mixin])) (define basics<%> (interface (frame:standard-menus<%>))) @@ -143,13 +143,13 @@ (define/override (help-menu:before-about help-menu) (make-help-desk-menu-item help-menu)) - (define/override (help-menu:about-callback item evt) (drscheme:app:about-drscheme)) + (define/override (help-menu:about-callback item evt) (drracket:app:about-drscheme)) (define/override (help-menu:about-string) (string-constant about-drscheme)) (define/override (help-menu:create-about?) #t) (define/public (get-additional-important-urls) '()) (define/override (help-menu:after-about menu) - (drscheme:app:add-important-urls-to-help-menu + (drracket:app:add-important-urls-to-help-menu menu (get-additional-important-urls)) (new menu-item% @@ -159,7 +159,7 @@ (λ (x y) (help-desk:report-bug)))) - (drscheme:app:add-language-items-to-help-menu menu)) + (drracket:app:add-language-items-to-help-menu menu)) (define/override (file-menu:new-string) (string-constant new-menu-item)) (define/override (file-menu:open-string) (string-constant open-menu-item)) @@ -179,7 +179,7 @@ (parent menu) (callback (λ (_1 _2) - (drscheme:multi-file-search:multi-file-search)))) + (drracket:multi-file-search:multi-file-search)))) (new separator-menu-item% (parent menu))) (define/override (edit-menu:between-find-and-preferences menu) @@ -236,7 +236,7 @@ (message-box (string-constant drscheme) (format (string-constant keybindings-planet-malformed-spec) planet-spec))])))))) - (let ([ud (preferences:get 'drscheme:user-defined-keybindings)]) + (let ([ud (preferences:get 'drracket:user-defined-keybindings)]) (unless (null? ud) (new separator-menu-item% (parent keybindings-menu)) (for-each (λ (item) @@ -256,9 +256,9 @@ (define (add-keybindings-item/update-prefs item) (when (add-keybindings-item item) - (preferences:set 'drscheme:user-defined-keybindings + (preferences:set 'drracket:user-defined-keybindings (cons item - (preferences:get 'drscheme:user-defined-keybindings))))) + (preferences:get 'drracket:user-defined-keybindings))))) (define (planet-string-spec? p) (let ([sexp @@ -291,15 +291,15 @@ (define (remove-keybindings-item item) (keymap:remove-user-keybindings-file item) (preferences:set - 'drscheme:user-defined-keybindings + 'drracket:user-defined-keybindings (remove item - (preferences:get 'drscheme:user-defined-keybindings)))) + (preferences:get 'drracket:user-defined-keybindings)))) ;; install-plt-file : (union #f dialog% frame%) -> void ;; asks the user for a .plt file, either from the web or from ;; a file on the disk and installs it. (define (install-plt-file parent) - (define pref (preferences:get 'drscheme:install-plt-dialog)) + (define pref (preferences:get 'drracket:install-plt-dialog)) (define dialog (new dialog% [parent parent] [label (string-constant install-plt-file-dialog-title)] @@ -370,7 +370,7 @@ (send tab-panel set-selection (if (car pref) 0 1)) (update-panels) (send dialog show #t) - (preferences:set 'drscheme:install-plt-dialog + (preferences:set 'drracket:install-plt-dialog (list (from-web?) (send url-text-field get-value) (send file-text-field get-value))) @@ -387,7 +387,7 @@ (string-append "http://" url))) parent)] [else (parameterize ([error-display-handler - drscheme:init:original-error-display-handler]) + drracket:init:original-error-display-handler]) (run-installer (string->path (send file-text-field get-value))))])) @@ -453,7 +453,7 @@ (queue-callback (λ () (semaphore-post wait-to-start))) (send d show #t) (when exn (raise exn)) - (parameterize ([error-display-handler drscheme:init:original-error-display-handler]) + (parameterize ([error-display-handler drracket:init:original-error-display-handler]) (run-installer tmp-filename (λ () (delete-file tmp-filename))))))) @@ -464,7 +464,7 @@ (override on-size) [define on-size (lambda (w h) - (preferences:set 'drscheme:keybindings-window-size (cons w h)) + (preferences:set 'drracket:keybindings-window-size (cons w h)) (super on-size w h))] (super-instantiate ()))) @@ -472,8 +472,8 @@ (letrec ([f (instantiate keybindings-dialog% () (label (string-constant keybindings-frame-title)) (parent frame) - (width (car (preferences:get 'drscheme:keybindings-window-size))) - (height (cdr (preferences:get 'drscheme:keybindings-window-size))) + (width (car (preferences:get 'drracket:keybindings-window-size))) + (height (cdr (preferences:get 'drracket:keybindings-window-size))) (style '(resize-border)))] [bp (make-object horizontal-panel% f)] [search-field (new text-field% @@ -581,7 +581,7 @@ (parent file-menu) (callback (λ (_1 _2) - (drscheme:multi-file-search:multi-file-search)))) + (drracket:multi-file-search:multi-file-search)))) (unless (current-eventspace-has-standard-menus?) (new separator-menu-item% (parent file-menu)) (new menu-item% diff --git a/collects/drscheme/private/get-extend.ss b/collects/drscheme/private/get-extend.rkt similarity index 65% rename from collects/drscheme/private/get-extend.ss rename to collects/drscheme/private/get-extend.rkt index 67e877d9f6..fa14ea3d67 100644 --- a/collects/drscheme/private/get-extend.ss +++ b/collects/drscheme/private/get-extend.rkt @@ -1,15 +1,15 @@ #lang scheme/unit (require racket/class - "drsig.ss") + "drsig.rkt") -(import [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:debug: drscheme:debug^] - [prefix drscheme:tracing: drscheme:tracing^] - [prefix drscheme:module-language-tools: drscheme:module-language-tools^]) -(export drscheme:get/extend^) +(import [prefix drracket:unit: drracket:unit^] + [prefix drracket:frame: drracket:frame^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:debug: drracket:debug^] + [prefix drracket:tracing: drracket:tracing^] + [prefix drracket:module-language-tools: drracket:module-language-tools^]) +(export drracket:get/extend^) (define make-extender (λ (get-base% name) @@ -45,47 +45,47 @@ built))))) (define (get-base-tab%) - (drscheme:module-language-tools:tab-mixin - (drscheme:tracing:tab-mixin - (drscheme:debug:test-coverage-tab-mixin - (drscheme:debug:profile-tab-mixin - drscheme:unit:tab%))))) + (drracket:module-language-tools:tab-mixin + (drracket:tracing:tab-mixin + (drracket:debug:test-coverage-tab-mixin + (drracket:debug:profile-tab-mixin + drracket:unit:tab%))))) (define-values (extend-tab get-tab) (make-extender get-base-tab% 'tab%)) (define (get-base-interactions-canvas%) - drscheme:unit:interactions-canvas%) + drracket:unit:interactions-canvas%) (define-values (extend-interactions-canvas get-interactions-canvas) (make-extender get-base-interactions-canvas% 'interactions-canvas%)) (define (get-base-definitions-canvas%) - drscheme:unit:definitions-canvas%) + drracket:unit:definitions-canvas%) (define-values (extend-definitions-canvas get-definitions-canvas) (make-extender get-base-definitions-canvas% 'definitions-canvas%)) (define (get-base-unit-frame%) - (drscheme:module-language-tools:frame-mixin - (drscheme:tracing:frame-mixin - (drscheme:debug:profile-unit-frame-mixin - drscheme:unit:frame%)))) + (drracket:module-language-tools:frame-mixin + (drracket:tracing:frame-mixin + (drracket:debug:profile-unit-frame-mixin + drracket:unit:frame%)))) (define-values (extend-unit-frame get-unit-frame) - (make-extender get-base-unit-frame% 'drscheme:unit:frame)) + (make-extender get-base-unit-frame% 'drracket:unit:frame)) (define (get-base-interactions-text%) - (drscheme:debug:test-coverage-interactions-text-mixin - drscheme:rep:text%)) + (drracket:debug:test-coverage-interactions-text-mixin + drracket:rep:text%)) (define-values (extend-interactions-text get-interactions-text) (make-extender get-base-interactions-text% 'interactions-text%)) (define (get-base-definitions-text%) - (drscheme:module-language-tools:definitions-text-mixin - (drscheme:debug:test-coverage-definitions-text-mixin - (drscheme:debug:profile-definitions-text-mixin - (drscheme:unit:get-definitions-text%))))) + (drracket:module-language-tools:definitions-text-mixin + (drracket:debug:test-coverage-definitions-text-mixin + (drracket:debug:profile-definitions-text-mixin + (drracket:unit:get-definitions-text%))))) (define-values (extend-definitions-text get-definitions-text) (make-extender get-base-definitions-text% 'definitions-text%)) diff --git a/collects/drscheme/private/help-desk.ss b/collects/drscheme/private/help-desk.rkt similarity index 86% rename from collects/drscheme/private/help-desk.ss rename to collects/drscheme/private/help-desk.rkt index cc1f6c5c1b..02ff7c1203 100644 --- a/collects/drscheme/private/help-desk.ss +++ b/collects/drscheme/private/help-desk.rkt @@ -8,21 +8,21 @@ setup/dirs help/search help/private/buginfo - "drsig.ss") + "drsig.rkt") -(import [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^]) -(export drscheme:help-desk^) +(import [prefix drracket:frame: drracket:frame^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^]) +(export drracket:help-desk^) (define (-add-help-desk-font-prefs b) '(add-help-desk-font-prefs b)) ;; : -> string (define (get-computer-language-info) (let* ([language/settings (preferences:get - drscheme:language-configuration:settings-preferences-symbol)] - [language (drscheme:language-configuration:language-settings-language + drracket:language-configuration:settings-preferences-symbol)] + [language (drracket:language-configuration:language-settings-language language/settings)] - [settings (drscheme:language-configuration:language-settings-settings + [settings (drracket:language-configuration:language-settings-settings language/settings)]) (format "~s" diff --git a/collects/drscheme/private/honu-logo.ss b/collects/drscheme/private/honu-logo.rkt similarity index 99% rename from collects/drscheme/private/honu-logo.ss rename to collects/drscheme/private/honu-logo.rkt index 6c36990c16..e41a7a6306 100644 --- a/collects/drscheme/private/honu-logo.ss +++ b/collects/drscheme/private/honu-logo.rkt @@ -3,7 +3,7 @@ (require racket/class racket/gui/base - "palaka.ss") + "palaka.rkt") (define pi (atan 0 -1)) diff --git a/collects/drscheme/private/init.ss b/collects/drscheme/private/init.rkt similarity index 97% rename from collects/drscheme/private/init.ss rename to collects/drscheme/private/init.rkt index d3fc01bdc2..c100d966ef 100644 --- a/collects/drscheme/private/init.ss +++ b/collects/drscheme/private/init.rkt @@ -1,11 +1,11 @@ #lang scheme/unit (require string-constants - "drsig.ss" + "drsig.rkt" racket/gui/base) (import) - (export drscheme:init^) + (export drracket:init^) (define original-output-port (current-output-port)) (define original-error-port (current-error-port)) diff --git a/collects/drscheme/private/insert-large-letters.ss b/collects/drscheme/private/insert-large-letters.rkt similarity index 100% rename from collects/drscheme/private/insert-large-letters.ss rename to collects/drscheme/private/insert-large-letters.rkt diff --git a/collects/drscheme/private/key.ss b/collects/drscheme/private/key.rkt similarity index 100% rename from collects/drscheme/private/key.ss rename to collects/drscheme/private/key.rkt diff --git a/collects/drscheme/private/label-frame-mred.ss b/collects/drscheme/private/label-frame-mred.rkt similarity index 100% rename from collects/drscheme/private/label-frame-mred.ss rename to collects/drscheme/private/label-frame-mred.rkt diff --git a/collects/drscheme/private/language-configuration.ss b/collects/drscheme/private/language-configuration.rkt similarity index 91% rename from collects/drscheme/private/language-configuration.ss rename to collects/drscheme/private/language-configuration.rkt index 20efcb9c11..675e260200 100644 --- a/collects/drscheme/private/language-configuration.ss +++ b/collects/drscheme/private/language-configuration.rkt @@ -6,7 +6,7 @@ racket/string racket/list racket/gui/base - "drsig.ss" + "drsig.rkt" string-constants framework setup/getinfo @@ -16,27 +16,26 @@ (define original-output (current-output-port)) (define (printfo . args) (apply fprintf original-output args)) - (define sc-use-language-in-source "Use the language declared in the source") - (define sc-choose-a-language "Choose a language") - (define sc-lang-in-source-discussion - "The #lang line at the start of a program declares its language. This is the default and preferred mode for DrRacket.") + (define sc-use-language-in-source (string-constant use-language-in-source)) + (define sc-choose-a-language (string-constant choose-a-language)) + (define sc-lang-in-source-discussion (string-constant lang-in-source-discussion)) (provide language-configuration@) (define-unit language-configuration@ - (import [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:init: drscheme:init^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:app: drscheme:app^] - [prefix drscheme:tools: drscheme:tools^] - [prefix drscheme:help-desk: drscheme:help-desk^] - [prefix drscheme:module-language: drscheme:module-language^]) - (export drscheme:language-configuration/internal^) + (import [prefix drracket:unit: drracket:unit^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:init: drracket:init^] + [prefix drracket:language: drracket:language^] + [prefix drracket:app: drracket:app^] + [prefix drracket:tools: drracket:tools^] + [prefix drracket:help-desk: drracket:help-desk^] + [prefix drracket:module-language: drracket:module-language^]) + (export drracket:language-configuration/internal^) ;; settings-preferences-symbol : symbol ;; this pref used to depend on `version', but no longer does. - (define settings-preferences-symbol 'drscheme:language-settings) + (define settings-preferences-symbol 'drracket:language-settings) ;; get-settings-preferences-symbol : -> symbol (define (get-settings-preferences-symbol) settings-preferences-symbol) @@ -58,12 +57,12 @@ (define add-language (λ (language [front? #f]) - (drscheme:tools:only-in-phase 'drscheme:language:add-language 'phase2) + (drracket:tools:only-in-phase 'drracket:language:add-language 'phase2) (for-each (λ (i<%>) (unless (is-a? language i<%>) - (error 'drscheme:language:add-language "expected language ~e to implement ~e, forgot to use drscheme:language:get-default-mixin ?" language i<%>))) - (drscheme:language:get-language-extensions)) + (error 'drracket:language:add-language "expected language ~e to implement ~e, forgot to use drracket:language:get-default-mixin ?" language i<%>))) + (drracket:language:get-language-extensions)) (ensure-no-duplicate-numbers language languages) (set! languages @@ -76,7 +75,7 @@ (λ (l2) (when (equal? (send l1 get-language-numbers) (send l2 get-language-numbers)) - (error 'drscheme:language-configuration:add-language + (error 'drracket:language-configuration:add-language "found two languages with the same result from get-language-numbers: ~s, ~s and ~s" (send l1 get-language-numbers) (send l1 get-language-position) @@ -85,8 +84,8 @@ ;; get-languages : -> (listof languages) (define (get-languages) - (drscheme:tools:only-in-phase - 'drscheme:language-configuration:get-languages + (drracket:tools:only-in-phase + 'drracket:language-configuration:get-languages 'init-complete) languages) @@ -468,6 +467,15 @@ module-language*get-language-details-panel module-language*get/set-settings)) + ;; no-language-selected : -> void + ;; updates the GUI for the situation where no language at all selected, and + ;; and thus neither of the radio buttons should be selected. + ;; this generally happens when there is no preference setting for the language + ;; (ie the user has just started drracket for the first time) + (define (no-language-selected) + (non-language-selected) + (send use-chosen-language-rb set-selection #f)) + (define module-language*language 'module-language*-not-yet-set) (define module-language*get-language-details-panel 'module-language*-not-yet-set) (define module-language*get/set-settings 'module-language*-not-yet-set) @@ -516,13 +524,13 @@ (andmap string? positions) (= (length positions) (length numbers)) ((length numbers) . >= . 1)) - (error 'drscheme:language + (error 'drracket:language "languages position and numbers must be lists of strings and numbers, respectively, must have the same length, and must each contain at least one element, got: ~e ~e" positions numbers)) (when (null? (cdr positions)) (unless (equal? positions (list (string-constant module-language-name))) - (error 'drscheme:language + (error 'drracket:language "Only the module language may be at the top level. Other languages must have at least two levels"))) (send languages-hier-list clear-fringe-cache) @@ -739,39 +747,40 @@ ;; opens the tabs that lead to the current language ;; and selects the current language (define (open-current-language) - (when (and language-to-show settings-to-show) - (cond - [(is-a? language-to-show drscheme:module-language:module-language<%>) - (module-language-selected)] - [else - (send languages-hier-list focus) ;; only focus when the module language isn't selected - (send use-chosen-language-rb set-selection 0) - (send use-language-in-source-rb set-selection #f) - (let ([language-position (send language-to-show get-language-position)]) - (cond - [(null? (cdr language-position)) - ;; nothing to open here - (send (car (send languages-hier-list get-items)) select #t) - (void)] - [else - (let loop ([hi languages-hier-list] - - ;; skip the first position, since it is flattened into the dialog - [first-pos (cadr language-position)] - [position (cddr language-position)]) - (let ([child - ;; know that this `car' is okay by construction of the dialog - (car - (filter (λ (x) - (equal? (send (send x get-editor) get-text) - first-pos)) - (send hi get-items)))]) - (cond - [(null? position) - (send child select #t)] - [else - (send child open) - (loop child (car position) (cdr position))])))]))]))) + (cond + [(not (and language-to-show settings-to-show)) + (no-language-selected)] + [(is-a? language-to-show drracket:module-language:module-language<%>) + (module-language-selected)] + [else + (send languages-hier-list focus) ;; only focus when the module language isn't selected + (send use-chosen-language-rb set-selection 0) + (send use-language-in-source-rb set-selection #f) + (let ([language-position (send language-to-show get-language-position)]) + (cond + [(null? (cdr language-position)) + ;; nothing to open here + (send (car (send languages-hier-list get-items)) select #t) + (void)] + [else + (let loop ([hi languages-hier-list] + + ;; skip the first position, since it is flattened into the dialog + [first-pos (cadr language-position)] + [position (cddr language-position)]) + (let ([child + ;; know that this `car' is okay by construction of the dialog + (car + (filter (λ (x) + (equal? (send (send x get-editor) get-text) + first-pos)) + (send hi get-items)))]) + (cond + [(null? position) + (send child select #t)] + [else + (send child open) + (loop child (car position) (cdr position))])))]))])) ;; docs-callback : -> void (define (docs-callback) @@ -1055,7 +1064,7 @@ (label native-lang-string) (parent welcome-after-panel) (stretchable-width #t) - (callback (λ (x1 x2) (drscheme:app:switch-language-to dialog language)))))) + (callback (λ (x1 x2) (drracket:app:switch-language-to dialog language)))))) (string-constants is-this-your-native-language) (all-languages)))) @@ -1202,10 +1211,10 @@ (for-each (λ (lang-module lang-position lang-numbers one-line-summary url reader-spec) (let ([% - ((drscheme:language:get-default-mixin) - (drscheme:language:module-based-language->language-mixin - (drscheme:language:simple-module-based-language->module-based-language-mixin - drscheme:language:simple-module-based-language%)))] + ((drracket:language:get-default-mixin) + (drracket:language:module-based-language->language-mixin + (drracket:language:simple-module-based-language->module-based-language-mixin + drracket:language:simple-module-based-language%)))] [reader (if reader-spec (with-handlers ([exn:fail? @@ -1335,7 +1344,7 @@ [else `(expand ',res)])))) (super-instantiate ()))) - (define-struct (simple-settings+assume drscheme:language:simple-settings) (no-redef?)) + (define-struct (simple-settings+assume drracket:language:simple-settings) (no-redef?)) (define simple-settings+assume->vector (make-->vector simple-settings+assume)) (define (macro-stepper-mixin %) @@ -1343,9 +1352,9 @@ (super-new) (define/augment (capability-value key) (cond - [(eq? key 'macro-stepper:enabled) #t] - [else (inner (drscheme:language:get-capability-default key) - capability-value key)])))) + [(eq? key 'macro-stepper:enabled) #t] + [else (inner (drracket:language:get-capability-default key) + capability-value key)])))) (define (assume-mixin %) (class % @@ -1391,12 +1400,12 @@ (simple-settings+assume->vector (default-settings)))) (define/private (extend-simple-settings s no-redef?) - (make-simple-settings+assume (drscheme:language:simple-settings-case-sensitive s) - (drscheme:language:simple-settings-printing-style s) - (drscheme:language:simple-settings-fraction-style s) - (drscheme:language:simple-settings-show-sharing s) - (drscheme:language:simple-settings-insert-newlines s) - (drscheme:language:simple-settings-annotations s) + (make-simple-settings+assume (drracket:language:simple-settings-case-sensitive s) + (drracket:language:simple-settings-printing-style s) + (drracket:language:simple-settings-fraction-style s) + (drracket:language:simple-settings-show-sharing s) + (drracket:language:simple-settings-insert-newlines s) + (drracket:language:simple-settings-annotations s) no-redef?)) (define/override (use-namespace-require/copy-from-setting? s) @@ -1452,7 +1461,7 @@ [extras-mixin (λ (mred-launcher? one-line-summary) (λ (%) - (class* % (drscheme:language:language<%>) + (class* % (drracket:language:language<%>) (define/override (get-one-line-summary) one-line-summary) (inherit get-module get-transformer-module get-init-code use-namespace-require/copy-from-setting?) @@ -1461,11 +1470,11 @@ [(eq? key 'drscheme:autocomplete-words) (get-all-manual-keywords)] [else (inner - (drscheme:language:get-capability-default key) + (drracket:language:get-capability-default key) capability-value key)])) (define/override (create-executable setting parent program-filename) (let ([executable-fn - (drscheme:language:put-executable + (drracket:language:put-executable parent program-filename #t @@ -1474,7 +1483,7 @@ (string-constant save-a-mred-launcher) (string-constant save-a-mzscheme-launcher)))]) (when executable-fn - (drscheme:language:create-module-based-launcher + (drracket:language:create-module-based-launcher program-filename executable-fn (get-module) @@ -1488,17 +1497,17 @@ (let ([% (extra-mixin ((extras-mixin mred-launcher? one-line-summary) - ((drscheme:language:get-default-mixin) - (drscheme:language:module-based-language->language-mixin - (drscheme:language:simple-module-based-language->module-based-language-mixin - drscheme:language:simple-module-based-language%)))))]) + ((drracket:language:get-default-mixin) + (drracket:language:module-based-language->language-mixin + (drracket:language:simple-module-based-language->module-based-language-mixin + drracket:language:simple-module-based-language%)))))]) (instantiate % () (module module) (language-id id) (language-position position) (language-numbers numbers))))]) (add-language - (make-simple '(lib "lang/plt-pretty-big.ss") + (make-simple '(lib "lang/plt-pretty-big.rkt") "plt:pretty-big" (list (string-constant legacy-languages) (string-constant pretty-big-scheme)) @@ -1507,7 +1516,7 @@ (string-constant pretty-big-scheme-one-line-summary) (λ (%) (macro-stepper-mixin (assume-mixin (add-errortrace-key-mixin %)))))) (add-language - (make-simple '(lib "r5rs/lang.ss") + (make-simple '(lib "r5rs/lang.rkt") "plt:r5rs" (list (string-constant legacy-languages) (string-constant r5rs-language-name)) @@ -1517,7 +1526,7 @@ (lambda (%) (r5rs-mixin (macro-stepper-mixin (assume-mixin (add-errortrace-key-mixin %))))))) (add-language - (make-simple 'mzscheme + (make-simple 'racket/base "plt:no-language-chosen" (list (string-constant initial-language-category) (string-constant no-language-chosen)) @@ -1528,7 +1537,7 @@ (define (not-a-language-extra-mixin %) (class* % (not-a-language-language<%>) - (define/override (get-style-delta) drscheme:rep:error-delta) + (define/override (get-style-delta) drracket:rep:error-delta) (define/override (first-opened) (not-a-language-message) @@ -1543,8 +1552,11 @@ (define/augment (capability-value v) (case v + [(drscheme:define-popup) #f] + [(gui-debugger:debug-button) #f] + [(macro-stepper:enabled) #f] [(drscheme:check-syntax-button) #f] - [else (inner (drscheme:language:get-capability-default v) + [else (inner (drracket:language:get-capability-default v) capability-value v)])) (super-new))) @@ -1599,7 +1611,7 @@ green-style-delta))) (define (language-still-unchanged?) - (let ([rep (drscheme:rep:current-rep)]) + (let ([rep (drracket:rep:current-rep)]) (cond [rep (let* ([next-settings (send (send rep get-definitions-text) get-next-settings)] @@ -1660,7 +1672,9 @@ (define dialog (new dialog% (parent drs-frame) (label (string-constant drscheme)))) - (define qa-panel (new vertical-pane% (parent dialog))) + (define top-hp (new horizontal-pane% [parent dialog])) + (define qa-panel (new vertical-panel% [style '(border)] (parent top-hp) (stretchable-width #f))) + (define racketeer-panel (new vertical-panel% [style '(border)] [parent top-hp] [alignment '(center center)] [stretchable-width #f])) (define button-panel (new horizontal-pane% (parent dialog) (stretchable-height #f) @@ -1675,8 +1689,7 @@ (define (main) (insert-text-pls) - (display-plt-schemer) - (display-standard-schemer) + (display-racketeer) (space-em-out) (fix-msg-sizes) (send dialog show #t)) @@ -1720,23 +1733,33 @@ [else (string<=? (cadr x) (cadr y))]))))) - (define (display-plt-schemer) - (question/answer (lambda (parent) - (new canvas-message% - (parent parent) - (label (string-constant seasoned-plt-schemer?)))) - (list "Module") - (list "PLT-206-small.png" - "icons"))) - - (define (display-standard-schemer) - (question/answer (lambda (parent) - (new canvas-message% - (parent parent) - (label (string-constant looking-for-standard-scheme?)))) - (list (string-constant legacy-languages) - (string-constant pretty-big-scheme)) - (list "r5rs.png" "icons"))) + (define plt-logo-shiny + (make-object bitmap% (build-path (collection-path "icons") + "plt-logo-red-shiny.png") + 'png/mask)) + + (define (display-racketeer) + (new canvas-message% + (parent racketeer-panel) + (label (string-constant racketeer?))) + (new canvas% + [parent racketeer-panel] + [stretchable-width #f] + [paint-callback + (λ (c dc) + (send dc set-scale 1/2 1/2) + (send dc draw-bitmap plt-logo-shiny 0 0 + 'solid (send the-color-database find-color "black") + (send plt-logo-shiny get-loaded-mask)))] + [style '(transparent)] + [min-width (floor (/ (send plt-logo-shiny get-width) 2))] + [min-height (floor (/ (send plt-logo-shiny get-height) 2))]) + (new canvas-message% + (parent racketeer-panel) + (label sc-use-language-in-source) + (color (send the-color-database find-color "blue")) + (callback (λ () (change-current-lang-to (λ (x) (is-a? x drracket:module-language:module-language<%>))))) + (font (get-font #:underlined #t)))) (define (display-text-pl lst) (let ([icon-lst (car lst)] @@ -1755,7 +1778,7 @@ (new canvas-message% (parent parent) (label using-after))) - lang + (default-line2 (last lang) lang) icon-lst))) (define default-font (send the-font-list find-or-create-font @@ -1811,23 +1834,25 @@ (min-width (inexact->exact (floor w))) (min-height (inexact->exact (floor h)))))) - (define (question/answer line1 lang icon-lst) + (define (question/answer line1 line2 icon-lst) (display-two-line-choice icon-lst - lang (λ (panel1 panel2) (line1 panel1) - (new canvas-message% (parent panel2) (label (string-constant start-with-before))) - (new canvas-message% - (parent panel2) - (label (last lang)) - (color (send the-color-database find-color "blue")) - (callback (λ () (change-current-lang-to lang))) - (font (get-font #:underlined #t))) - (new canvas-message% (parent panel2) (label (string-constant start-with-after)))))) + (line2 panel2)))) + + (define ((default-line2 lang-name lang) panel2) + (new canvas-message% (parent panel2) (label (string-constant start-with-before))) + (new canvas-message% + (parent panel2) + (label lang-name) + (color (send the-color-database find-color "blue")) + (callback (λ () (change-current-lang-to lang))) + (font (get-font #:underlined #t))) + (new canvas-message% (parent panel2) (label (string-constant start-with-after)))) ;; get-text-pls : path -> (listof (list* string string (listof string)) - ;; gets the questions from an info.ss file. + ;; gets the questions from an info.rkt file. (define (get-text-pls info-filename) (let ([proc (get-info/full info-filename)]) (if proc @@ -1859,7 +1884,7 @@ (for-each (λ (b) (send b min-width w)) msgs))) - (define (display-two-line-choice icon-lst lang proc) + (define (display-two-line-choice icon-lst proc) (let* ([hp (new horizontal-pane% (parent qa-panel) (alignment '(center top)) @@ -1878,17 +1903,17 @@ (proc (new horizontal-pane% (parent vp)) (new horizontal-pane% (parent vp))))) - ;; change-current-lang-to : (listof string) -> void + ;; change-current-lang-to : (or/c (-> any/c boolean?) (listof string)) -> void ;; closed the guidance dialog and opens the language dialog - (define (change-current-lang-to lang-strings) + (define (change-current-lang-to lang-strings/predicate) (send dialog show #f) - (let ([lang (ormap - (λ (x) - (and (equal? lang-strings (send x get-language-position)) - x)) - (get-languages))]) + (let* ([predicate (if (procedure? lang-strings/predicate) + lang-strings/predicate + (λ (x) (equal? lang-strings/predicate (send x get-language-position))))] + [lang (ormap (λ (x) (and (predicate x) x)) + (get-languages))]) (unless lang - (error 'change-current-lang-to "unknown language! ~s" lang-strings)) + (error 'change-current-lang-to "unknown language! ~s" lang-strings/predicate)) (let ([new-lang (language-dialog #f diff --git a/collects/drscheme/private/language-object-contract.ss b/collects/drscheme/private/language-object-contract.rkt similarity index 96% rename from collects/drscheme/private/language-object-contract.ss rename to collects/drscheme/private/language-object-contract.rkt index a9836f12d4..54d9a12677 100644 --- a/collects/drscheme/private/language-object-contract.ss +++ b/collects/drscheme/private/language-object-contract.rkt @@ -1,11 +1,10 @@ -#reader scribble/reader #lang racket/base (require (for-syntax racket/base) scribble/srcdoc racket/class racket/gui/base racket/contract - "recon.ss") + "recon.rkt") (require/doc racket/base scribble/manual) (require (for-meta 2 racket/base)) @@ -79,9 +78,9 @@ (capability-value (->d ([s (and/c symbol? - drscheme:language:capability-registered?)]) + drracket:language:capability-registered?)]) () - [res (drscheme:language:get-capability-contract s)]))))]) + [res (drracket:language:get-capability-contract s)]))))]) #`(begin (define id (reconstitute #,ctc provide?)) #,@(if (syntax-e #'provide?) diff --git a/collects/drscheme/private/language.ss b/collects/drscheme/private/language.rkt similarity index 98% rename from collects/drscheme/private/language.ss rename to collects/drscheme/private/language.rkt index d9f61db1c4..fa46011bca 100644 --- a/collects/drscheme/private/language.ss +++ b/collects/drscheme/private/language.rkt @@ -4,12 +4,12 @@ ;; user's io ports, to aid any debugging printouts. ;; (esp. useful when debugging the users's io) -(require "drsig.ss" +(require "drsig.rkt" string-constants ;; NOTE: this module instantiates stacktrace itself, so we have ;; to be careful to not mix that instantiation with the one - ;; drracket/private/debug.ss does. errortrace-lib's is for the + ;; drracket/private/debug.rkt does. errortrace-lib's is for the ;; compilation handling, DrScheme's is for profiling and test coverage ;; (which do not do compilation) (prefix-in el: errortrace/errortrace-lib) @@ -27,13 +27,13 @@ mrlib/syntax-browser compiler/distribute compiler/bundle-dist - "rep.ss") + "rep.rkt") - (import [prefix drscheme:debug: drscheme:debug^] - [prefix drscheme:tools: drscheme:tools^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:help-desk: drscheme:help-desk^]) - (export drscheme:language^) + (import [prefix drracket:debug: drracket:debug^] + [prefix drracket:tools: drracket:tools^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:help-desk: drracket:help-desk^]) + (export drracket:language^) (define original-output-port (current-output-port)) (define (printf . args) (apply fprintf original-output-port args)) @@ -458,22 +458,22 @@ [(debug) (current-compile (el:make-errortrace-compile-handler)) (error-display-handler - (drscheme:debug:make-debug-error-display-handler + (drracket:debug:make-debug-error-display-handler (error-display-handler))) (use-compiled-file-paths (cons (build-path "compiled" "errortrace") (use-compiled-file-paths)))] [(debug/profile) - (drscheme:debug:profiling-enabled #t) + (drracket:debug:profiling-enabled #t) (error-display-handler - (drscheme:debug:make-debug-error-display-handler + (drracket:debug:make-debug-error-display-handler (error-display-handler))) - (current-eval (drscheme:debug:make-debug-eval-handler (current-eval)))] + (current-eval (drracket:debug:make-debug-eval-handler (current-eval)))] [(debug/profile test-coverage) - (drscheme:debug:test-coverage-enabled #t) - (current-eval (drscheme:debug:make-debug-eval-handler (current-eval)))])) + (drracket:debug:test-coverage-enabled #t) + (current-eval (drracket:debug:make-debug-eval-handler (current-eval)))])) (global-port-print-handler (λ (value port) @@ -942,7 +942,7 @@ [else '()])] [pre-to-be-embedded-module-specs1 (if gui? - (cons '(lib "mred/mred.ss") + (cons '(lib "mred/mred.rkt") pre-to-be-embedded-module-specs0) pre-to-be-embedded-module-specs0)] [pre-to-be-embedded-module-specs2 @@ -1123,8 +1123,8 @@ (path->string (build-path (collection-path "drscheme" "private") (if gui? - "launcher-mred-bootstrap.ss" - "launcher-mz-bootstrap.ss"))) + "launcher-mred-bootstrap.rkt" + "launcher-mz-bootstrap.rkt"))) (condense-scheme-code-string (format "~s" init-code)) (path->string program-filename) (format "~s" module-language-spec) @@ -1225,21 +1225,21 @@ (define language-extensions null) (define (get-language-extensions) - (drscheme:tools:only-in-phase - 'drscheme:language:get-default-mixin + (drracket:tools:only-in-phase + 'drracket:language:get-default-mixin 'phase2) language-extensions) (define (default-mixin x) x) (define (get-default-mixin) - (drscheme:tools:only-in-phase - 'drscheme:language:get-default-mixin + (drracket:tools:only-in-phase + 'drracket:language:get-default-mixin 'phase2) default-mixin) (define (extend-language-interface extension<%> default-impl) - (drscheme:tools:only-in-phase - 'drscheme:language:extend-language-interface + (drracket:tools:only-in-phase + 'drracket:language:extend-language-interface 'phase1) (set! default-mixin (compose default-impl default-mixin)) (set! language-extensions (cons extension<%> language-extensions))) diff --git a/collects/drscheme/private/launcher-bootstrap.ss b/collects/drscheme/private/launcher-bootstrap.rkt similarity index 100% rename from collects/drscheme/private/launcher-bootstrap.ss rename to collects/drscheme/private/launcher-bootstrap.rkt diff --git a/collects/drscheme/private/launcher-mred-bootstrap.ss b/collects/drscheme/private/launcher-mred-bootstrap.rkt similarity index 74% rename from collects/drscheme/private/launcher-mred-bootstrap.ss rename to collects/drscheme/private/launcher-mred-bootstrap.rkt index ac676bb763..25f072dc6d 100644 --- a/collects/drscheme/private/launcher-mred-bootstrap.ss +++ b/collects/drscheme/private/launcher-mred-bootstrap.rkt @@ -1,6 +1,6 @@ #lang racket/base -(require racket/gui/base "launcher-bootstrap.ss") +(require racket/gui/base "launcher-bootstrap.rkt") (current-namespace (make-gui-empty-namespace)) (namespace-require 'racket/gui/base) diff --git a/collects/drscheme/private/launcher-mz-bootstrap.ss b/collects/drscheme/private/launcher-mz-bootstrap.rkt similarity index 76% rename from collects/drscheme/private/launcher-mz-bootstrap.ss rename to collects/drscheme/private/launcher-mz-bootstrap.rkt index e2054aebca..9a4b0d750b 100644 --- a/collects/drscheme/private/launcher-mz-bootstrap.ss +++ b/collects/drscheme/private/launcher-mz-bootstrap.rkt @@ -1,6 +1,6 @@ #lang racket/base -(require "launcher-bootstrap.ss") +(require "launcher-bootstrap.rkt") (current-namespace (make-base-empty-namespace)) (namespace-require 'racket/base) diff --git a/collects/drscheme/private/link.rkt b/collects/drscheme/private/link.rkt new file mode 100644 index 0000000000..deb716681a --- /dev/null +++ b/collects/drscheme/private/link.rkt @@ -0,0 +1,65 @@ +#lang racket/base +(require scheme/unit + "modes.rkt" + "font.rkt" + "eval.rkt" + "module-browser.rkt" + "multi-file-search.rkt" + "debug.rkt" + "module-language.rkt" + "tools.rkt" + "tools-drs.rkt" + "language.rkt" + "language-configuration.rkt" + "drsig.rkt" + "init.rkt" + "text.rkt" + "app.rkt" + "main.rkt" + "rep.rkt" + "frame.rkt" + "unit.rkt" + "tracing.rkt" + "get-extend.rkt" + "help-desk.rkt" + "module-language-tools.rkt") + +(provide drracket@) + +(define-compound-unit/infer drracket-unit@ + (import) + (export drracket:debug^ + drracket:unit^ + drracket:rep^ + drracket:frame^ + drracket:get/extend^ + drracket:language-configuration^ + drracket:language^ + drracket:help-desk^ + drracket:eval^ + drracket:modes^ + drracket:tracing^ + drracket:module-language^ + drracket:module-language-tools^) + (link init@ tools@ tools-drs@ modes@ text@ eval@ frame@ rep@ language@ + module-overview@ unit@ debug@ multi-file-search@ get-extend@ + language-configuration@ font@ module-language@ module-language-tools@ + help-desk@ tracing@ app@ + main@)) + +(define-unit/new-import-export drracket@ + (import) (export drracket:tool^) + (((prefix drracket:debug: drracket:debug^) + (prefix drracket:unit: drracket:unit^) + (prefix drracket:rep: drracket:rep^) + (prefix drracket:frame: drracket:frame^) + (prefix drracket:get/extend: drracket:get/extend^) + (prefix drracket:language-configuration: drracket:language-configuration^) + (prefix drracket:language: drracket:language^) + (prefix drracket:help-desk: drracket:help-desk^) + (prefix drracket:eval: drracket:eval^) + (prefix drracket:modes: drracket:modes^) + (prefix drracket:tracing: drracket:tracing^) + (prefix drracket:module-language: drracket:module-language^) + (prefix drracket:module-language-tools: drracket:module-language-tools^)) + drracket-unit@)) diff --git a/collects/drscheme/private/link.ss b/collects/drscheme/private/link.ss deleted file mode 100644 index e1ded533aa..0000000000 --- a/collects/drscheme/private/link.ss +++ /dev/null @@ -1,64 +0,0 @@ -#lang racket/base -(require scheme/unit - "modes.ss" - "font.ss" - "eval.ss" - "module-browser.ss" - "multi-file-search.ss" - "debug.ss" - "module-language.ss" - "tools.ss" - "language.ss" - "language-configuration.ss" - "drsig.ss" - "init.ss" - "text.ss" - "app.ss" - "main.ss" - "rep.ss" - "frame.ss" - "unit.ss" - "tracing.ss" - "get-extend.ss" - "help-desk.ss" - "module-language-tools.ss") - -(provide drscheme@) - -(define-compound-unit/infer drscheme-unit@ - (import) - (export drscheme:debug^ - drscheme:unit^ - drscheme:rep^ - drscheme:frame^ - drscheme:get/extend^ - drscheme:language-configuration^ - drscheme:language^ - drscheme:help-desk^ - drscheme:eval^ - drscheme:modes^ - drscheme:tracing^ - drscheme:module-language^ - drscheme:module-language-tools^) - (link init@ tools@ modes@ text@ eval@ frame@ rep@ language@ - module-overview@ unit@ debug@ multi-file-search@ get-extend@ - language-configuration@ font@ module-language@ module-language-tools@ - help-desk@ tracing@ app@ - main@)) - -(define-unit/new-import-export drscheme@ - (import) (export drscheme:tool^) - (((prefix drscheme:debug: drscheme:debug^) - (prefix drscheme:unit: drscheme:unit^) - (prefix drscheme:rep: drscheme:rep^) - (prefix drscheme:frame: drscheme:frame^) - (prefix drscheme:get/extend: drscheme:get/extend^) - (prefix drscheme:language-configuration: drscheme:language-configuration^) - (prefix drscheme:language: drscheme:language^) - (prefix drscheme:help-desk: drscheme:help-desk^) - (prefix drscheme:eval: drscheme:eval^) - (prefix drscheme:modes: drscheme:modes^) - (prefix drscheme:tracing: drscheme:tracing^) - (prefix drscheme:module-language: drscheme:module-language^) - (prefix drscheme:module-language-tools: drscheme:module-language-tools^)) - drscheme-unit@)) diff --git a/collects/drscheme/private/main.ss b/collects/drscheme/private/main.rkt similarity index 66% rename from collects/drscheme/private/main.ss rename to collects/drscheme/private/main.rkt index d54f1fd7dc..0296abecb7 100644 --- a/collects/drscheme/private/main.ss +++ b/collects/drscheme/private/main.rkt @@ -2,7 +2,7 @@ (require string-constants mzlib/contract - "drsig.ss" + "drsig.rkt" mred framework mzlib/class @@ -11,21 +11,25 @@ browser/external setup/plt-installer) -(import [prefix drscheme:app: drscheme:app^] - [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:get/extend: drscheme:get/extend^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:module-language: drscheme:module-language^] - [prefix drscheme:tools: drscheme:tools^] - [prefix drscheme:debug: drscheme:debug^] - [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:font: drscheme:font^] - [prefix drscheme:modes: drscheme:modes^] - [prefix drscheme:help-desk: drscheme:help-desk^]) +(import [prefix drracket:app: drracket:app^] + [prefix drracket:unit: drracket:unit^] + [prefix drracket:get/extend: drracket:get/extend^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:language: drracket:language^] + [prefix drracket:module-language: drracket:module-language^] + [prefix drracket:tools: drracket:tools^] + [prefix drracket:debug: drracket:debug^] + [prefix drracket:frame: drracket:frame^] + [prefix drracket:font: drracket:font^] + [prefix drracket:modes: drracket:modes^] + [prefix drracket:help-desk: drracket:help-desk^] + [prefix drracket:multi-file-search: drracket:multi-file-search^]) (export) - +(define (drr:set-default name val predicate) + (preferences:set-default + name val predicate + #:aliases (list (string->symbol (regexp-replace #rx"^drracket:" (symbol->string name) "drscheme:"))))) (when (eq? (system-type) 'unix) (let () @@ -78,20 +82,21 @@ (application-about-handler (λ () - (drscheme:app:about-drscheme))) + (drracket:app:about-drscheme))) -(drscheme:modes:add-initial-modes) +(drracket:modes:add-initial-modes) -(namespace-set-variable-value! 'help-desk:frame-mixin drscheme:frame:basics-mixin) +(namespace-set-variable-value! 'help-desk:frame-mixin drracket:frame:basics-mixin) -(finder:default-filters (list* '("Scheme (.ss)" "*.ss") - '("Scheme (.scm)" "*.scm") +(finder:default-filters (list* '("Racket (.rkt)" "*.rkt") + '("Racket (.ss)" "*.ss") + '("Racket (.scm)" "*.scm") (finder:default-filters))) (application:current-app-name (string-constant drscheme)) -(preferences:set-default 'drscheme:logger-gui-tab-panel-level 0 (λ (x) (and (exact-integer? x) (<= 0 x 5)))) +(drr:set-default 'drracket:logger-gui-tab-panel-level 0 (λ (x) (and (exact-integer? x) (<= 0 x 5)))) -(preferences:set-default 'drscheme:saved-bug-reports +(drr:set-default 'drracket:saved-bug-reports '() (λ (ll) (and (list? ll) @@ -104,17 +109,17 @@ l))) ll)))) -(preferences:set-default 'drscheme:module-language-first-line-special? #t boolean?) +(drr:set-default 'drracket:module-language-first-line-special? #t boolean?) -(preferences:set-default 'drscheme:defns-popup-sort-by-name? #f boolean?) +(drr:set-default 'drracket:defns-popup-sort-by-name? #f boolean?) -(preferences:set-default 'drscheme:toolbar-state +(drr:set-default 'drracket:toolbar-state '(#f . top) (λ (x) (and (pair? x) (boolean? (car x)) (memq (cdr x) '(left top right))))) -(preferences:set-default 'drscheme:htdp:last-set-teachpacks +(drr:set-default 'drracket:htdp:last-set-teachpacks '() (λ (x) (and (list? x) @@ -124,20 +129,20 @@ (eq? (car x) 'lib) (andmap string? (cdr x)))) x)))) -(preferences:set-default 'drscheme:defs/ints-horizontal #f boolean?) -(preferences:set-default 'drscheme:unit-window-max? #f boolean?) -(preferences:set-default 'drscheme:frame:initial-position #f +(drr:set-default 'drracket:defs/ints-horizontal #f boolean?) +(drr:set-default 'drracket:unit-window-max? #f boolean?) +(drr:set-default 'drracket:frame:initial-position #f (λ (x) (or (not x) (and (pair? x) (number? (car x)) (number? (cdr x)))))) -(preferences:set-default 'drscheme:child-only-memory-limit (* 1024 1024 128) +(drr:set-default 'drracket:child-only-memory-limit (* 1024 1024 128) (λ (x) (or (boolean? x) (integer? x) (x . >= . (* 1024 1024 1))))) -(preferences:set-default 'drscheme:recent-language-names +(drr:set-default 'drracket:recent-language-names null (λ (x) (and (list? x) @@ -146,22 +151,22 @@ (and (pair? x) (string? (car x)))) x)))) -(preferences:set-default 'drscheme:show-interactions-on-execute #t boolean?) -(preferences:set-default 'drscheme:open-in-tabs #f boolean?) -(preferences:set-default 'drscheme:toolbar-shown #t boolean?) -(preferences:set-default 'drscheme:user-defined-keybindings +(drr:set-default 'drracket:show-interactions-on-execute #t boolean?) +(drr:set-default 'drracket:open-in-tabs #f boolean?) +(drr:set-default 'drracket:toolbar-shown #t boolean?) +(drr:set-default 'drracket:user-defined-keybindings '() (λ (x) (and (list? x) - (andmap (λ (x) (or (path? x) (drscheme:frame:planet-spec? x))) + (andmap (λ (x) (or (path? x) (drracket:frame:planet-spec? x))) x)))) -(preferences:set-default 'drscheme:install-plt-dialog +(drr:set-default 'drracket:install-plt-dialog '(#t "" "") ; url-selected?, url string, file string (λ (x) (and (list? x) (= 3 (length x)) (boolean? (car x)) (andmap string? (cdr x))))) (preferences:set-un/marshall - 'drscheme:user-defined-keybindings + 'drracket:user-defined-keybindings (λ (in) (map (λ (x) (if (path? x) (path->bytes x) x)) in)) (λ (ex) (if (list? ex) @@ -170,17 +175,17 @@ (let ([number-between-zero-and-one? (λ (x) (and (number? x) (<= 0 x 1)))]) - (preferences:set-default 'drscheme:unit-window-size-percentage + (drr:set-default 'drracket:unit-window-size-percentage 1/2 number-between-zero-and-one?) - (preferences:set-default 'drscheme:module-browser-size-percentage + (drr:set-default 'drracket:module-browser-size-percentage 1/5 number-between-zero-and-one?) - (preferences:set-default 'drscheme:logging-size-percentage + (drr:set-default 'drracket:logging-size-percentage 3/4 number-between-zero-and-one?)) -(preferences:set-default 'drscheme:module-browser:name-length 1 +(drr:set-default 'drracket:module-browser:name-length 1 (λ (x) (memq x '(0 1 2 3)))) (let ([frame-width 600] @@ -190,31 +195,31 @@ (let-values ([(w h) (get-display-size)]) (set! frame-width (min frame-width (- w window-trimming-upper-bound-width))) (set! frame-height (min frame-height (- h window-trimming-upper-bound-height)))) - (preferences:set-default 'drscheme:unit-window-width frame-width number?) - (preferences:set-default 'drscheme:unit-window-height frame-height number?)) + (drr:set-default 'drracket:unit-window-width frame-width number?) + (drr:set-default 'drracket:unit-window-height frame-height number?)) -(preferences:set-default 'drscheme:backtrace-window-width 400 number?) -(preferences:set-default 'drscheme:backtrace-window-height 300 number?) -(preferences:set-default 'drscheme:backtrace-window-x 0 number?) -(preferences:set-default 'drscheme:backtrace-window-y 0 number?) +(drr:set-default 'drracket:backtrace-window-width 400 number?) +(drr:set-default 'drracket:backtrace-window-height 300 number?) +(drr:set-default 'drracket:backtrace-window-x 0 number?) +(drr:set-default 'drracket:backtrace-window-y 0 number?) -(preferences:set-default 'drscheme:profile-how-to-count 'time +(drr:set-default 'drracket:profile-how-to-count 'time (λ (x) (memq x '(time count)))) -(preferences:set-default 'drscheme:profile:low-color +(drr:set-default 'drracket:profile:low-color (make-object color% 150 255 150) (λ (x) (is-a? x color%))) -(preferences:set-default 'drscheme:profile:high-color +(drr:set-default 'drracket:profile:high-color (make-object color% 255 150 150) (λ (x) (is-a? x color%))) -(preferences:set-default 'drscheme:profile:scale +(drr:set-default 'drracket:profile:scale 'linear (λ (x) (memq x '(sqrt linear square)))) -(preferences:set-default 'drscheme:test-coverage-ask-about-clearing? #t boolean?) +(drr:set-default 'drracket:test-coverage-ask-about-clearing? #t boolean?) ;; size is in editor positions -(preferences:set-default 'drscheme:repl-buffer-size +(drr:set-default 'drracket:repl-buffer-size '(#t . 1000) (λ (x) (and (pair? x) @@ -234,43 +239,51 @@ (make-object color% (car l) (cadr l) (caddr l)) (make-object color% 0 0 0)))]) (preferences:set-un/marshall - 'drscheme:profile:low-color + 'drracket:profile:low-color marshall-color unmarshall-color) (preferences:set-un/marshall - 'drscheme:profile:high-color + 'drracket:profile:high-color marshall-color unmarshall-color)) -(preferences:set-default - 'drscheme:keybindings-window-size +(drr:set-default + 'drracket:keybindings-window-size (cons 400 600) (λ (x) (and (pair? x) (number? (car x)) (number? (cdr x))))) -(preferences:set-default - 'drscheme:execute-warning-once +(drr:set-default + 'drracket:execute-warning-once #f (λ (x) (or (eq? x #t) (not x)))) -(preferences:set-default 'drscheme:switch-to-module-language-automatically? #t boolean?) +(drr:set-default 'drracket:switch-to-module-language-automatically? #t boolean?) -(preferences:set-default - 'drscheme:default-tools-configuration +(drr:set-default + 'drracket:default-tools-configuration 'load (lambda (p) (memq p '(load skip)))) -(preferences:set-default - 'drscheme:tools-configuration +(drr:set-default + 'drracket:tools-configuration null list?) + (drr:set-default 'drracket:module-overview:label-font-size 12 number?) + (drr:set-default 'drracket:module-overview:window-height 500 number?) + (drr:set-default 'drracket:module-overview:window-width 500 number?) + (drr:set-default 'drracket:module-browser:hide-paths '(lib) + (λ (x) + (and (list? x) + (andmap symbol? x)))) + -(drscheme:font:setup-preferences) +(drracket:font:setup-preferences) (color-prefs:add-background-preferences-panel) (scheme:add-preferences-panel) (scheme:add-coloring-preferences-panel) @@ -292,22 +305,22 @@ (send q set-value (preferences:get pref-sym))))]) (preferences:add-to-general-checkbox-panel (λ (editor-panel) - (make-check-box 'drscheme:open-in-tabs + (make-check-box 'drracket:open-in-tabs (string-constant open-files-in-tabs) editor-panel) - (make-check-box 'drscheme:show-interactions-on-execute + (make-check-box 'drracket:show-interactions-on-execute (string-constant show-interactions-on-execute) editor-panel) - (make-check-box 'drscheme:switch-to-module-language-automatically? + (make-check-box 'drracket:switch-to-module-language-automatically? (string-constant switch-to-module-language-automatically) editor-panel) - (make-check-box 'drscheme:defs/ints-horizontal + (make-check-box 'drracket:defs/ints-horizontal (string-constant interactions-beside-definitions) editor-panel) - (make-check-box 'drscheme:module-language-first-line-special? + (make-check-box 'drracket:module-language-first-line-special? (string-constant ml-always-show-#lang-line) editor-panel))) @@ -334,13 +347,13 @@ (λ (sl _) (sl-callback))))] [cb-callback (λ () - (preferences:set 'drscheme:repl-buffer-size + (preferences:set 'drracket:repl-buffer-size (cons (send cb get-value) - (cdr (preferences:get 'drscheme:repl-buffer-size)))))] + (cdr (preferences:get 'drracket:repl-buffer-size)))))] [sl-callback (λ () - (preferences:set 'drscheme:repl-buffer-size - (cons (car (preferences:get 'drscheme:repl-buffer-size)) + (preferences:set 'drracket:repl-buffer-size + (cons (car (preferences:get 'drracket:repl-buffer-size)) (send sl get-value))))] [update-controls (λ (v) @@ -348,26 +361,26 @@ (send sl enable on?) (send cb set-value on?) (send sl set-value (cdr v))))]) - (preferences:add-callback 'drscheme:repl-buffer-size (λ (p v) (update-controls v))) - (update-controls (preferences:get 'drscheme:repl-buffer-size))))) + (preferences:add-callback 'drracket:repl-buffer-size (λ (p v) (update-controls v))) + (update-controls (preferences:get 'drracket:repl-buffer-size))))) (preferences:add-to-warnings-checkbox-panel (λ (warnings-panel) - (make-check-box 'drscheme:execute-warning-once + (make-check-box 'drracket:execute-warning-once (string-constant only-warn-once) warnings-panel) - (make-check-box 'drscheme:test-coverage-ask-about-clearing? + (make-check-box 'drracket:test-coverage-ask-about-clearing? (string-constant test-coverage-ask?) warnings-panel)))) -(drscheme:debug:add-prefs-panel) +(drracket:debug:add-prefs-panel) (install-help-browser-preference-panel) -(drscheme:tools:add-prefs-panel) +(drracket:tools:add-prefs-panel) -(drscheme:language:register-capability 'drscheme:tabify-menu-callback +(drracket:language:register-capability 'drscheme:tabify-menu-callback (or/c false/c (-> (is-a?/c text%) number? number? void?)) (λ (t a b) (send t tabify-selection a b))) -(drscheme:language:register-capability 'drscheme:autocomplete-words (listof string?) '()) -(drscheme:language:register-capability 'drscheme:define-popup +(drracket:language:register-capability 'drscheme:autocomplete-words (listof string?) '()) +(drracket:language:register-capability 'drscheme:define-popup (or/c (cons/c string? string?) (list/c string? string? string?) #f) @@ -375,34 +388,34 @@ ;; The default is #f to keep whatever the user chose as their context. ;; If it's "", then we will kill the user's choice. -(drscheme:language:register-capability 'drscheme:help-context-term +(drracket:language:register-capability 'drscheme:help-context-term (or/c false/c string?) #f) -(drscheme:language:register-capability 'drscheme:special:insert-fraction (flat-contract boolean?) #t) -(drscheme:language:register-capability 'drscheme:special:insert-large-letters (flat-contract boolean?) #t) -(drscheme:language:register-capability 'drscheme:special:insert-lambda (flat-contract boolean?) #t) -(drscheme:language:register-capability 'drscheme:special:insert-image (flat-contract boolean?) #t) -(drscheme:language:register-capability 'drscheme:special:insert-comment-box (flat-contract boolean?) #t) -(drscheme:language:register-capability 'drscheme:language-menu-title +(drracket:language:register-capability 'drscheme:special:insert-fraction (flat-contract boolean?) #t) +(drracket:language:register-capability 'drscheme:special:insert-large-letters (flat-contract boolean?) #t) +(drracket:language:register-capability 'drscheme:special:insert-lambda (flat-contract boolean?) #t) +(drracket:language:register-capability 'drscheme:special:insert-image (flat-contract boolean?) #t) +(drracket:language:register-capability 'drscheme:special:insert-comment-box (flat-contract boolean?) #t) +(drracket:language:register-capability 'drscheme:language-menu-title (flat-contract string?) (string-constant scheme-menu-name)) -(drscheme:language:register-capability 'drscheme:teachpack-menu-items - (or/c false/c (flat-contract drscheme:unit:teachpack-callbacks?)) +(drracket:language:register-capability 'drscheme:teachpack-menu-items + (or/c false/c (flat-contract drracket:unit:teachpack-callbacks?)) #f) (handler:current-create-new-window (let ([drscheme-current-create-new-window (λ (filename) - (drscheme:unit:open-drscheme-window filename))]) + (drracket:unit:open-drscheme-window filename))]) drscheme-current-create-new-window)) ;; add a catch-all handler to open drscheme files (handler:insert-format-handler "Units" (λ (filename) #t) - drscheme:unit:open-drscheme-window) + drracket:unit:open-drscheme-window) ;; add a handler to open .plt files. (handler:insert-format-handler @@ -420,38 +433,38 @@ (run-installer filename) #f)) -(drscheme:tools:load/invoke-all-tools +(drracket:tools:load/invoke-all-tools (λ () (void)) (λ () - (drscheme:language-configuration:add-built-in-languages) - (drscheme:module-language:add-module-language) - (drscheme:language-configuration:add-info-specified-languages))) + (drracket:language-configuration:add-built-in-languages) + (drracket:module-language:add-module-language) + (drracket:language-configuration:add-info-specified-languages))) ;; no more extension after this point -(drscheme:get/extend:get-interactions-canvas) -(drscheme:get/extend:get-definitions-canvas) -(drscheme:get/extend:get-unit-frame) -(drscheme:get/extend:get-interactions-text) -(drscheme:get/extend:get-definitions-text) -(drscheme:language-configuration:get-languages) +(drracket:get/extend:get-interactions-canvas) +(drracket:get/extend:get-definitions-canvas) +(drracket:get/extend:get-unit-frame) +(drracket:get/extend:get-interactions-text) +(drracket:get/extend:get-definitions-text) +(drracket:language-configuration:get-languages) ;; this default can only be set *after* the ;; languages have all be registered by tools -(preferences:set-default - drscheme:language-configuration:settings-preferences-symbol - (drscheme:language-configuration:get-default-language-settings) - drscheme:language-configuration:language-settings?) +(drr:set-default + drracket:language-configuration:settings-preferences-symbol + (drracket:language-configuration:get-default-language-settings) + drracket:language-configuration:language-settings?) ;; if the unmarshaller returns #f, that will fail the ;; test for this preference, reverting back to the default. -;; In that case, the default is specified in the pref.ss file +;; In that case, the default is specified in the pref.rkt file ;; of the default collection and may not be the default ;; specified above (of course). (preferences:set-un/marshall - drscheme:language-configuration:settings-preferences-symbol + drracket:language-configuration:settings-preferences-symbol (λ (x) - (let ([lang (drscheme:language-configuration:language-settings-language x)] - [settings (drscheme:language-configuration:language-settings-settings x)]) + (let ([lang (drracket:language-configuration:language-settings-language x)] + [settings (drracket:language-configuration:language-settings-settings x)]) (list (send lang get-language-numbers) (send lang marshall-settings settings)))) (λ (x) @@ -468,15 +481,70 @@ ;; drscheme, for a sort of backwards compatibility (equal? (send x get-language-position) lang-nums)) x)) - (drscheme:language-configuration:get-languages))]) + (drracket:language-configuration:get-languages))]) (and lang (let ([settings (send lang unmarshall-settings marshalled-settings)]) - (drscheme:language-configuration:make-language-settings + (drracket:language-configuration:make-language-settings lang (or settings (send lang default-settings))))))))) + ;; preferences initialization + (drr:set-default 'drracket:multi-file-search:recur? #t boolean?) + (drr:set-default 'drracket:multi-file-search:filter? #t boolean?) + (drr:set-default 'drracket:multi-file-search:filter-string "\\.(ss|scm)$" string?) + (drr:set-default 'drracket:multi-file-search:search-string "" string?) + (drr:set-default 'drracket:multi-file-search:search-type + 1 + (λ (x) + (and (number? x) + (exact? x) + (integer? x) + (<= 0 x) + (< x (length drracket:multi-file-search:search-types))))) + + ;; drracket:mult-file-search:search-check-boxes : (listof (listof boolean)) + (drr:set-default 'drracket:multi-file-search:search-check-boxes + (map (λ (x) (map cdr (drracket:multi-file-search:search-type-params x))) + drracket:multi-file-search:search-types) + (λ (x) + (and (list? x) + (andmap (λ (x) + (and (list? x) + (andmap boolean? x))) + x)))) + + (drr:set-default 'drracket:multi-file-search:percentages + '(1/3 2/3) + (λ (x) (and (list? x) + (= 2 (length x)) + (= 1 (apply + x))))) + + (drr:set-default 'drracket:multi-file-search:frame-size '(300 . 400) + (λ (x) (and (pair? x) + (number? (car x)) + (number? (cdr x))))) + (drr:set-default 'drracket:multi-file-search:directory + ;; The default is #f because + ;; filesystem-root-list is expensive under Windows + #f + (lambda (x) (or (not x) (path? x)))) + (preferences:set-un/marshall + 'drracket:multi-file-search:directory + (λ (v) (and v (path->string v))) + (λ (p) (if (path-string? p) + (string->path p) + #f))) + + (drr:set-default 'drracket:large-letters-font #f (λ (x) + (or (and (pair? x) + (string? (car x)) + (let ([i (cdr x)]) + (and (integer? i) + (<= 1 i 255)))) + (not x)))) + (let ([drs-handler-recent-items-super% - (class (drscheme:frame:basics-mixin + (class (drracket:frame:basics-mixin (frame:standard-menus-mixin frame:basic%)) (define/override (edit-menu:between-select-all-and-find menu) @@ -486,12 +554,13 @@ (cond [(current-eventspace-has-menu-root?) - (drscheme:frame:create-root-menubar) + (drracket:frame:create-root-menubar) (preferences:set 'framework:exit-when-no-frames #f)] [else (preferences:set 'framework:exit-when-no-frames #t)]) +;; is this used anywhere? (let* ([sl (editor:get-standard-style-list)] [sd (make-object style-delta%)]) (send sd set-delta-foreground (make-object color% 255 0 0)) @@ -500,9 +569,11 @@ (send sl find-or-create-style (send sl find-named-style "text:ports err") sd))) -(define repl-error-pref 'drscheme:read-eval-print-loop:error-color) -(define repl-out-pref 'drscheme:read-eval-print-loop:out-color) -(define repl-value-pref 'drscheme:read-eval-print-loop:value-color) + + +(define repl-error-pref 'drracket:read-eval-print-loop:error-color) +(define repl-out-pref 'drracket:read-eval-print-loop:out-color) +(define repl-value-pref 'drracket:read-eval-print-loop:value-color) (color-prefs:register-color-preference repl-value-pref "text:ports value" (make-object color% 0 0 175) @@ -532,12 +603,13 @@ "text:ports out" (string-constant repl-out-color)))) + (let* ([find-frame (λ (item) (let loop ([item item]) (cond [(is-a? item top-level-window<%>) - (and (is-a? item drscheme:unit:frame%) + (and (is-a? item drracket:unit:frame%) item)] [(is-a? item menu-item<%>) (loop (send item get-parent))] @@ -586,13 +658,13 @@ (autosave:restore-autosave-files/gui) ;; install user's keybindings -(for-each drscheme:frame:add-keybindings-item - (preferences:get 'drscheme:user-defined-keybindings)) +(for-each drracket:frame:add-keybindings-item + (preferences:get 'drracket:user-defined-keybindings)) ;; the initial window doesn't set the ;; unit object's state correctly, yet. (define (make-basic) - (let* ([frame (drscheme:unit:open-drscheme-window)] + (let* ([frame (drracket:unit:open-drscheme-window)] [interactions-edit (send frame get-interactions-text)] [definitions-edit (send frame get-interactions-text)] [filename (send definitions-edit get-filename)]) @@ -609,10 +681,10 @@ (loop (cdr files)) (cons (car files) (loop (cdr files))))]))) -;; NOTE: drscheme-normal.ss sets current-command-line-arguments to +;; NOTE: drscheme-normal.rkt sets current-command-line-arguments to ;; the list of files to open, after parsing out flags like -h (let* ([files-to-open - (if (preferences:get 'drscheme:open-in-tabs) + (if (preferences:get 'drracket:open-in-tabs) (vector->list (current-command-line-arguments)) (reverse (vector->list (current-command-line-arguments))))] [normalized/filtered @@ -631,10 +703,10 @@ [frames (map (λ (f) (handler:edit-file f - (λ () (drscheme:unit:open-drscheme-window f)))) + (λ () (drracket:unit:open-drscheme-window f)))) no-dups)]) (when (null? (filter (λ (x) x) frames)) (make-basic)) - (when (and (preferences:get 'drscheme:open-in-tabs) + (when (and (preferences:get 'drracket:open-in-tabs) (not (null? no-dups))) (handler:edit-file (car no-dups)))) diff --git a/collects/drscheme/private/modes.ss b/collects/drscheme/private/modes.rkt similarity index 96% rename from collects/drscheme/private/modes.ss rename to collects/drscheme/private/modes.rkt index f9a717578e..22bc8b2ec8 100644 --- a/collects/drscheme/private/modes.ss +++ b/collects/drscheme/private/modes.rkt @@ -3,10 +3,10 @@ racket/class racket/list framework - "drsig.ss") + "drsig.rkt") (import) - (export drscheme:modes^) + (export drracket:modes^) (define-struct mode (name surrogate repl-submit matches-language)) (define modes (list)) diff --git a/collects/drscheme/private/module-browser.ss b/collects/drscheme/private/module-browser.rkt similarity index 95% rename from collects/drscheme/private/module-browser.ss rename to collects/drscheme/private/module-browser.rkt index 281cfba0fc..35ec9e7163 100644 --- a/collects/drscheme/private/module-browser.ss +++ b/collects/drscheme/private/module-browser.rkt @@ -7,7 +7,7 @@ framework/framework string-constants mrlib/graph - "drsig.ss" + "drsig.rkt" scheme/unit racket/async-channel setup/private/lib-roots) @@ -23,11 +23,11 @@ (define unknown-module-name "? unknown module name") (define-unit module-overview@ - (import [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:eval: drscheme:eval^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:language: drscheme:language^]) - (export drscheme:module-overview^) + (import [prefix drracket:frame: drracket:frame^] + [prefix drracket:eval: drracket:eval^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:language: drracket:language^]) + (export drracket:module-overview^) (define filename-constant (string-constant module-browser-filename-format)) (define font-size-gauge-label (string-constant module-browser-font-size-gauge-label)) @@ -36,14 +36,6 @@ (define open-file-format (string-constant module-browser-open-file-format)) (define lib-paths-checkbox-constant (string-constant module-browser-show-lib-paths)) - (preferences:set-default 'drscheme:module-overview:label-font-size 12 number?) - (preferences:set-default 'drscheme:module-overview:window-height 500 number?) - (preferences:set-default 'drscheme:module-overview:window-width 500 number?) - (preferences:set-default 'drscheme:module-browser:hide-paths '(lib) - (λ (x) - (and (list? x) - (andmap symbol? x)))) - (define (set-box/f b v) (when (box? b) (set-box! b v))) (define (module-overview parent) @@ -83,7 +75,7 @@ ;; snip-table : hash-table[sym -o> snip] (define snip-table (make-hash)) - (define label-font (find-label-font (preferences:get 'drscheme:module-overview:label-font-size))) + (define label-font (find-label-font (preferences:get 'drracket:module-overview:label-font-size))) (define text-color (make-object color% "blue")) (define dark-syntax-pen (send the-pen-list find-or-create-pen "darkorchid" 1 'solid)) @@ -134,7 +126,7 @@ ;; snip themselves. (define dont-move-snips #f) - (field (label-font-size (preferences:get 'drscheme:module-overview:label-font-size))) + (field (label-font-size (preferences:get 'drracket:module-overview:label-font-size))) (define/public (get-label-font-size) label-font-size) (define/private (get-snip-hspace) (if vertical? 2 @@ -153,7 +145,7 @@ (queue-callback (λ () (set! label-font-size new-font-size) - (preferences:set 'drscheme:module-overview:label-font-size + (preferences:set 'drracket:module-overview:label-font-size new-font-size) (set! label-font (find-label-font label-font-size)) (begin-edit-sequence) @@ -314,7 +306,7 @@ (- (unbox bb) (unbox tb)))) - (field [hidden-paths (preferences:get 'drscheme:module-browser:hide-paths)]) + (field [hidden-paths (preferences:get 'drracket:module-browser:hide-paths)]) (define/public (remove-visible-paths symbol) (unless (memq symbol hidden-paths) (set! hidden-paths (cons symbol hidden-paths)) @@ -675,7 +667,7 @@ (define text/pos (let ([t (make-object text:basic%)]) (send t load-file filename) - (drscheme:language:make-text/pos + (drracket:language:make-text/pos t 0 (send t last-position)))) @@ -696,8 +688,8 @@ (let () (define frame (instantiate overview-frame% () (label (string-constant module-browser)) - (width (preferences:get 'drscheme:module-overview:window-width)) - (height (preferences:get 'drscheme:module-overview:window-height)) + (width (preferences:get 'drracket:module-overview:window-width)) + (height (preferences:get 'drracket:module-overview:window-height)) (alignment '(left center)))) (define vp (instantiate vertical-panel% () (parent (send frame get-area-container)) @@ -720,7 +712,7 @@ (label font-size-gauge-label) (min-value 1) (max-value 72) - (init-value (preferences:get 'drscheme:module-overview:label-font-size)) + (init-value (preferences:get 'drracket:module-overview:label-font-size)) (parent font/label-panel) (callback (λ (x y) @@ -731,17 +723,17 @@ (label (string-constant module-browser-name-length)) (choices (list (string-constant module-browser-name-long) (string-constant module-browser-name-very-long))) - (selection (case (preferences:get 'drscheme:module-browser:name-length) + (selection (case (preferences:get 'drracket:module-browser:name-length) [(0) 0] [(1) 0] [(2) 0] [(3) 1])) (callback (λ (x y) - ;; note: the preference drscheme:module-browser:name-length is also used for the View|Show Module Browser version of the module browser + ;; note: the preference drracket:module-browser:name-length is also used for the View|Show Module Browser version of the module browser ;; here we just treat any pref value except '3' as if it were for the long names. (let ([selection (send module-browser-name-length-choice get-selection)]) - (preferences:set 'drscheme:module-browser:name-length (+ 2 selection)) + (preferences:set 'drracket:module-browser:name-length (+ 2 selection)) (send pasteboard set-name-length (case selection [(0) 'long] @@ -759,7 +751,7 @@ (define ec (make-object canvas:basic% vp pasteboard)) - (send lib-paths-checkbox set-value (not (memq 'lib (preferences:get 'drscheme:module-browser:hide-paths)))) + (send lib-paths-checkbox set-value (not (memq 'lib (preferences:get 'drracket:module-browser:hide-paths)))) (set! update-label (λ (s) (if (and s (not (null? s))) @@ -772,7 +764,7 @@ (send label-message set-label "")))) (send pasteboard set-name-length - (case (preferences:get 'drscheme:module-browser:name-length) + (case (preferences:get 'drracket:module-browser:name-length) [(0) 'long] [(1) 'long] [(2) 'long] @@ -807,7 +799,7 @@ (define init-dir (let* ([bx (box #f)] - [filename (send (drscheme:language:text/pos-text text/pos) get-filename bx)]) + [filename (send (drracket:language:text/pos-text text/pos) get-filename bx)]) (if (and filename (not (unbox bx))) (let-values ([(base name dir) (split-path filename)]) @@ -847,8 +839,8 @@ (define complete-program? #t) (define stupid-internal-define-syntax1 - ((drscheme:eval:traverse-program/multiple - (preferences:get (drscheme:language-configuration:get-settings-preferences-symbol)) + ((drracket:eval:traverse-program/multiple + (preferences:get (drracket:language-configuration:get-settings-preferences-symbol)) init kill-termination) text/pos @@ -903,7 +895,7 @@ #t])) (define overview-frame% - (class (drscheme:frame:basics-mixin + (class (drracket:frame:basics-mixin frame:standard-menus%) (define/override (edit-menu:between-select-all-and-find menu) (void)) (define/override (edit-menu:between-redo-and-cut menu) (void)) @@ -916,8 +908,8 @@ (define/override (edit-menu:create-select-all?) #f) (define/override (on-size w h) - (preferences:set 'drscheme:module-overview:window-width w) - (preferences:set 'drscheme:module-overview:window-height h) + (preferences:set 'drracket:module-overview:window-width w) + (preferences:set 'drracket:module-overview:window-height h) (super on-size w h)) (super-instantiate ())))) @@ -985,7 +977,8 @@ (let ([tst (bytes->path (bytes-append (path->bytes str) ext))]) (and (file-exists? tst) tst)))]) - (or (try #".ss") + (or (try #".rkt") + (try #".ss") (try #".scm") (try #"") str))) diff --git a/collects/drscheme/private/module-language-tools.ss b/collects/drscheme/private/module-language-tools.rkt similarity index 89% rename from collects/drscheme/private/module-language-tools.ss rename to collects/drscheme/private/module-language-tools.rkt index deead1f19e..e4df4d84db 100644 --- a/collects/drscheme/private/module-language-tools.ss +++ b/collects/drscheme/private/module-language-tools.rkt @@ -7,19 +7,19 @@ scheme/unit racket/class racket/gui/base - "drsig.ss") + "drsig.rkt") (define op (current-output-port)) (define (oprintf . args) (apply fprintf op args)) (define-unit module-language-tools@ - (import [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:module-language: drscheme:module-language^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:language-configuration: drscheme:language-configuration^]) - (export drscheme:module-language-tools^) + (import [prefix drracket:unit: drracket:unit^] + [prefix drracket:module-language: drracket:module-language^] + [prefix drracket:language: drracket:language^] + [prefix drracket:language-configuration: drracket:language-configuration^]) + (export drracket:module-language-tools^) - (define-local-member-name initialized? move-to-new-language) + (define-local-member-name initialized? move-to-new-language get-in-module-language?) (define-struct opt-out-toolbar-button (make-button id) #:transparent) (define opt-out-toolbar-buttons '()) @@ -32,7 +32,7 @@ (define tab<%> (interface ())) (define tab-mixin - (mixin (drscheme:unit:tab<%>) (tab<%>) + (mixin (drracket:unit:tab<%>) (tab<%>) (inherit get-frame) (define toolbar-buttons '()) (define/public (get-lang-toolbar-buttons) toolbar-buttons) @@ -46,7 +46,7 @@ (define frame<%> (interface ())) (define frame-mixin - (mixin (drscheme:unit:frame<%>) (frame<%>) + (mixin (drracket:unit:frame<%>) (frame<%>) (inherit unregister-toolbar-button get-definitions-text) (define toolbar-button-panel #f) @@ -68,15 +68,18 @@ ;; move button panel to the front of the list (send (get-button-panel) change-children (λ (l) (cons toolbar-button-panel (remq toolbar-button-panel l)))) - (send (get-definitions-text) move-to-new-language))) + (let ([defs (get-definitions-text)]) + (when (send defs get-in-module-language?) + (send defs move-to-new-language))))) (define definitions-text<%> (interface ())) (define definitions-text-mixin - (mixin (text:basic<%> drscheme:unit:definitions-text<%>) (definitions-text<%>) + (mixin (text:basic<%> drracket:unit:definitions-text<%>) (definitions-text<%>) (inherit get-next-settings) (define in-module-language? #f) ;; true when we are in the module language (define hash-lang-last-location #f) ;; non-false when we know where the hash-lang line ended (define hash-lang-language #f) ;; non-false is the string that was parsed for the language + (define/public (get-in-module-language?) in-module-language?) (define/augment (after-insert start len) (inner (void) after-insert start len) (modification-at start)) @@ -130,7 +133,7 @@ (register-new-buttons (contract (or/c #f (listof (list/c string? (is-a?/c bitmap%) - (-> (is-a?/c drscheme:unit:frame<%>) any)))) + (-> (is-a?/c drracket:unit:frame<%>) any)))) ((if (vector? info-result) (vector-ref info-result 0) info-result) @@ -197,10 +200,10 @@ (define/augment (after-set-next-settings settings) (update-in-module-language? - (is-a? (drscheme:language-configuration:language-settings-language settings) - drscheme:module-language:module-language<%>)) + (is-a? (drracket:language-configuration:language-settings-language settings) + drracket:module-language:module-language<%>)) (inner (void) after-set-next-settings settings)) (super-new) (set! in-module-language? - (is-a? (drscheme:language-configuration:language-settings-language (get-next-settings)) - drscheme:module-language:module-language<%>))))) + (is-a? (drracket:language-configuration:language-settings-language (get-next-settings)) + drracket:module-language:module-language<%>))))) diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.rkt similarity index 94% rename from collects/drscheme/private/module-language.ss rename to collects/drscheme/private/module-language.rkt index 6ffa79b563..e62ab2bff6 100644 --- a/collects/drscheme/private/module-language.ss +++ b/collects/drscheme/private/module-language.rkt @@ -13,19 +13,19 @@ framework string-constants planet/config - "drsig.ss" - "rep.ss") + "drsig.rkt" + "rep.rkt") (define op (current-output-port)) (define (oprintf . args) (apply fprintf op args)) (define-unit module-language@ - (import [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:init: drscheme:init^]) - (export drscheme:module-language^) + (import [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:language: drracket:language^] + [prefix drracket:unit: drracket:unit^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:init: drracket:init^]) + (export drracket:module-language^) (define module-language<%> (interface () @@ -36,27 +36,27 @@ (define (add-module-language) (define module-language% (module-mixin - ((drscheme:language:get-default-mixin) - (drscheme:language:module-based-language->language-mixin - (drscheme:language:simple-module-based-language->module-based-language-mixin - drscheme:language:simple-module-based-language%))))) - (drscheme:language-configuration:add-language + ((drracket:language:get-default-mixin) + (drracket:language:module-based-language->language-mixin + (drracket:language:simple-module-based-language->module-based-language-mixin + drracket:language:simple-module-based-language%))))) + (drracket:language-configuration:add-language (new module-language%))) ;; collection-paths : (listof (union 'default string)) ;; command-line-args : (vectorof string) ;; auto-text : string - (define-struct (module-language-settings drscheme:language:simple-settings) + (define-struct (module-language-settings drracket:language:simple-settings) (collection-paths command-line-args auto-text compilation-on? full-trace?)) (define default-compilation-on? #t) (define default-full-trace? #t) - (define default-auto-text "#lang scheme\n") + (define default-auto-text "#lang racket\n") - ;; module-mixin : (implements drscheme:language:language<%>) - ;; -> (implements drscheme:language:language<%>) + ;; module-mixin : (implements drracket:language:language<%>) + ;; -> (implements drracket:language:language<%>) (define (module-mixin %) - (class* % (drscheme:language:language<%> module-language<%>) + (class* % (drracket:language:language<%> module-language<%>) (inherit get-language-name) (define/public (get-users-language-name defs-text) @@ -89,11 +89,11 @@ (define/augment (capability-value key) (cond [(eq? key 'drscheme:autocomplete-words) - (drscheme:language-configuration:get-all-manual-keywords)] - [else (drscheme:language:get-capability-default key)])) + (drracket:language-configuration:get-all-manual-keywords)] + [else (drracket:language:get-capability-default key)])) ;; config-panel : as in super class - ;; uses drscheme:language:simple-module-based-language-config-panel + ;; uses drracket:language:simple-module-based-language-config-panel ;; and adds a collection paths configuration to it. (define/override (config-panel parent) (module-language-config-panel parent)) @@ -167,7 +167,7 @@ (and super (apply make-module-language-settings (append - (vector->list (drscheme:language:simple-settings->vector super)) + (vector->list (drracket:language:simple-settings->vector super)) (list collection-paths command-line-args auto-text @@ -175,7 +175,7 @@ ;; current versions of drscheme do not allow this combination ;; in the first place (compilation is only allowed in 'none ;; and 'debug mode), but older versions might. - (and (memq (drscheme:language:simple-settings-annotations super) + (and (memq (drracket:language:simple-settings-annotations super) '(none debug)) compilation-on?) @@ -200,7 +200,7 @@ (when (module-language-settings-compilation-on? settings) - (let ([annotations (drscheme:language:simple-settings-annotations settings)]) + (let ([annotations (drracket:language:simple-settings-annotations settings)]) (case annotations [(none) (use-compiled-file-paths @@ -349,7 +349,7 @@ ;; printer settings are just ignored here. (define/override (create-executable setting parent program-filename) - (let* ([executable-specs (drscheme:language:create-executable-gui + (let* ([executable-specs (drracket:language:create-executable-gui parent program-filename #t #t)]) (when executable-specs (let ([launcher? (eq? 'launcher (car executable-specs))] @@ -367,7 +367,7 @@ (let-values ([(base name dir) (split-path program-filename)]) (path-replace-suffix name #""))]) ((if (eq? 'distribution (car executable-specs)) - drscheme:language:create-distribution-for-executable + drracket:language:create-distribution-for-executable (lambda (executable-filename gui? make) (make executable-filename))) executable-filename @@ -398,7 +398,7 @@ ;; can be called with #f to just kill the repl (in case we want to kill it ;; but keep the highlighting of a previous error) (define (raise-hopeless-exception exn [prefix #f] [suffix #f]) - (define rep (drscheme:rep:current-rep)) + (define rep (drracket:rep:current-rep)) ;; Throw an error as usual if we don't have the drscheme rep, then we just ;; raise the exception as normal. (It can happen in some rare cases like ;; having a single empty scheme box in the definitions.) @@ -413,7 +413,7 @@ (let ([s (make-semaphore 0)] [msg (string-append "\nInteractions disabled" (if suffix (string-append ": " suffix) "."))]) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () (send rep call-without-reset-highlighting @@ -451,7 +451,7 @@ (define left-debugging-radio-box #f) (define right-debugging-radio-box #f) (define simple-case-lambda - (drscheme:language:simple-module-based-language-config-panel + (drracket:language:simple-module-based-language-config-panel new-parent #:case-sensitive #t @@ -634,7 +634,7 @@ (let ([simple-settings (simple-case-lambda)]) (apply make-module-language-settings (append - (vector->list (drscheme:language:simple-settings->vector simple-settings)) + (vector->list (drracket:language:simple-settings->vector simple-settings)) (list (get-collection-paths) (get-command-line-args) (get-auto-text) @@ -687,7 +687,7 @@ (let ([canvas (send source get-canvas)]) (and canvas (let ([frame (send canvas get-top-level-window)]) - (and (is-a? frame drscheme:unit:frame%) + (and (is-a? frame drracket:unit:frame%) (let* ([b (box #f)] [filename (send (send frame get-definitions-text) get-filename @@ -716,10 +716,10 @@ (define/override (put-file directory default-name) (let ([tlw (get-top-level-window)]) (if (and tlw - (is-a? tlw drscheme:unit:frame<%>)) + (is-a? tlw drracket:unit:frame<%>)) (let* ([definitions-text (send tlw get-definitions-text)] [module-language? - (is-a? (drscheme:language-configuration:language-settings-language + (is-a? (drracket:language-configuration:language-settings-language (send definitions-text get-next-settings)) module-language<%>)] [module-default-filename @@ -745,7 +745,7 @@ [filename-end (skip-to-whitespace filename-start)]) (and (not (= filename-start end-module)) (string-append (get-text filename-start filename-end) - ".ss"))))))) + ".rkt"))))))) (define/private (matches start string) diff --git a/collects/drscheme/private/multi-file-search.ss b/collects/drscheme/private/multi-file-search.rkt similarity index 88% rename from collects/drscheme/private/multi-file-search.ss rename to collects/drscheme/private/multi-file-search.rkt index aa1647cd05..c8e2919e18 100644 --- a/collects/drscheme/private/multi-file-search.ss +++ b/collects/drscheme/private/multi-file-search.rkt @@ -7,11 +7,11 @@ mzlib/thread mzlib/async-channel string-constants - "drsig.ss") + "drsig.rkt") - (import [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:unit: drscheme:unit^]) - (export drscheme:multi-file-search^) + (import [prefix drracket:frame: drracket:frame^] + [prefix drracket:unit: drracket:unit^]) + (export drracket:multi-file-search^) ;; multi-file-search : -> void ;; opens a dialog to configure the search and initiates the search @@ -50,54 +50,6 @@ ;; search-entry = (make-search-entry string number number number) (define-struct search-entry (filename line-string line-number col-number match-length)) - ;; preferences initialization - (preferences:set-default 'drscheme:multi-file-search:recur? #t boolean?) - (preferences:set-default 'drscheme:multi-file-search:filter? #t boolean?) - (preferences:set-default 'drscheme:multi-file-search:filter-string "\\.(ss|scm)$" string?) - (preferences:set-default 'drscheme:multi-file-search:search-string "" string?) - (preferences:set-default 'drscheme:multi-file-search:search-type - 1 - (λ (x) - (and (number? x) - (exact? x) - (integer? x) - (<= 0 x) - (< x (length search-types))))) - - ;; drscheme:mult-file-search:search-check-boxes : (listof (listof boolean)) - (preferences:set-default 'drscheme:multi-file-search:search-check-boxes - (map (λ (x) (map cdr (search-type-params x))) - search-types) - (λ (x) - (and (list? x) - (andmap (λ (x) - (and (list? x) - (andmap boolean? x))) - x)))) - - (preferences:set-default 'drscheme:multi-file-search:percentages - '(1/3 2/3) - (λ (x) (and (list? x) - (= 2 (length x)) - (= 1 (apply + x))))) - - (preferences:set-default 'drscheme:multi-file-search:frame-size '(300 . 400) - (λ (x) (and (pair? x) - (number? (car x)) - (number? (cdr x))))) - (preferences:set-default 'drscheme:multi-file-search:directory - ;; The default is #f because - ;; filesystem-root-list is expensive under Windows - #f - (lambda (x) (or (not x) (path? x)))) - (preferences:set-un/marshall - 'drscheme:multi-file-search:directory - (λ (v) (and v (path->string v))) - (λ (p) (if (path-string? p) - (string->path p) - #f))) - - ;; open-search-window : search-info -> void ;; thread: eventspace main thread ;; opens a window and creates the thread that does the search @@ -142,7 +94,7 @@ (send frame set-text-to-search results-text) ;; just to initialize it to something. (send results-text lock #t) (send frame reflow-container) - (send panel set-percentages (preferences:get 'drscheme:multi-file-search:percentages)) + (send panel set-percentages (preferences:get 'drracket:multi-file-search:percentages)) (send button-panel set-alignment 'right 'center) (send button-panel stretchable-height #f) (send frame show #t) @@ -252,7 +204,7 @@ (when current-file (let ([f (handler:edit-file current-file)]) (when (and f - (is-a? f drscheme:unit:frame<%>)) + (is-a? f drracket:unit:frame<%>)) (let* ([t (send f get-definitions-text)] [pos (+ (send t paragraph-start-position line-in-current-file) col-in-current-file)]) @@ -351,14 +303,14 @@ ;; thread: eventspace main thread (define search-size-frame% - (class (drscheme:frame:basics-mixin + (class (drracket:frame:basics-mixin (frame:searchable-mixin frame:standard-menus%)) (init-field name) (define/override (on-size w h) - (preferences:set 'drscheme:multi-file-search:frame-size (cons w h)) + (preferences:set 'drracket:multi-file-search:frame-size (cons w h)) (super on-size w h)) - (let ([size (preferences:get 'drscheme:multi-file-search:frame-size)]) + (let ([size (preferences:get 'drracket:multi-file-search:frame-size)]) (super-instantiate () (label name) (width (car size)) @@ -374,7 +326,7 @@ (define/augment (after-percentage-change) (let ([ps (get-percentages)]) (when (= (length ps) 2) - (preferences:set 'drscheme:multi-file-search:percentages ps))) + (preferences:set 'drracket:multi-file-search:percentages ps))) (inner (void) after-percentage-change)) (super-instantiate ()))) @@ -417,7 +369,7 @@ (λ (x y) (search-text-field-callback)))) (define active-method-panel (make-object panel:single% method-panel)) (define methods-check-boxess - (let ([pref (preferences:get 'drscheme:multi-file-search:search-check-boxes)]) + (let ([pref (preferences:get 'drracket:multi-file-search:search-check-boxes)]) (map (λ (search-type prefs-settings) (let ([p (make-object vertical-panel% active-method-panel)] @@ -489,7 +441,7 @@ (define (method-callback chk) (preferences:set - 'drscheme:multi-file-search:search-check-boxes + 'drracket:multi-file-search:search-check-boxes (let loop ([methods-check-boxess methods-check-boxess]) (cond [(null? methods-check-boxess) null] @@ -504,28 +456,28 @@ (define (dir-field-callback) (let ([df (send dir-field get-value)]) (when (path-string? df) - (preferences:set 'drscheme:multi-file-search:directory (string->path df))))) + (preferences:set 'drracket:multi-file-search:directory (string->path df))))) (define (filter-check-box-callback) - (preferences:set 'drscheme:multi-file-search:filter? (send filter-check-box get-value)) + (preferences:set 'drracket:multi-file-search:filter? (send filter-check-box get-value)) (send filter-text-field enable (send filter-check-box get-value))) (define (filter-text-field-callback) - (preferences:set 'drscheme:multi-file-search:filter-string (send filter-text-field get-value))) + (preferences:set 'drracket:multi-file-search:filter-string (send filter-text-field get-value))) (define (recur-check-box-callback) - (preferences:set 'drscheme:multi-file-search:recur? (send recur-check-box get-value))) + (preferences:set 'drracket:multi-file-search:recur? (send recur-check-box get-value))) (define (methods-choice-callback) - (preferences:set 'drscheme:multi-file-search:search-type (send methods-choice get-selection)) + (preferences:set 'drracket:multi-file-search:search-type (send methods-choice get-selection)) (send active-method-panel active-child (list-ref (send active-method-panel get-children) (send methods-choice get-selection)))) (define (search-text-field-callback) - (preferences:set 'drscheme:multi-file-search:search-string (send search-text-field get-value))) + (preferences:set 'drracket:multi-file-search:search-string (send search-text-field get-value))) (define (dir-button-callback) (let ([d (get-directory)]) (when (and d (directory-exists? d)) - (preferences:set 'drscheme:multi-file-search:directory d) + (preferences:set 'drracket:multi-file-search:directory d) (send dir-field set-value (path->string d))))) (define (get-files) @@ -545,15 +497,15 @@ (send files-inset-panel stretchable-width #f) (send files-panel set-alignment 'left 'center) - (send recur-check-box set-value (preferences:get 'drscheme:multi-file-search:recur?)) - (send filter-check-box set-value (preferences:get 'drscheme:multi-file-search:filter?)) - (send search-text-field set-value (preferences:get 'drscheme:multi-file-search:search-string)) - (send filter-text-field set-value (preferences:get 'drscheme:multi-file-search:filter-string)) + (send recur-check-box set-value (preferences:get 'drracket:multi-file-search:recur?)) + (send filter-check-box set-value (preferences:get 'drracket:multi-file-search:filter?)) + (send search-text-field set-value (preferences:get 'drracket:multi-file-search:search-string)) + (send filter-text-field set-value (preferences:get 'drracket:multi-file-search:filter-string)) (send dir-field set-value (path->string - (let ([p (preferences:get 'drscheme:multi-file-search:directory)]) + (let ([p (preferences:get 'drracket:multi-file-search:directory)]) (if (not p) (let ([p (car (filesystem-root-list))]) - (preferences:set 'drscheme:multi-file-search:directory p) + (preferences:set 'drracket:multi-file-search:directory p) p) p)))) diff --git a/collects/drscheme/private/number-snip.ss b/collects/drscheme/private/number-snip.rkt similarity index 100% rename from collects/drscheme/private/number-snip.ss rename to collects/drscheme/private/number-snip.rkt diff --git a/collects/drscheme/private/palaka.ss b/collects/drscheme/private/palaka.rkt similarity index 100% rename from collects/drscheme/private/palaka.ss rename to collects/drscheme/private/palaka.rkt diff --git a/collects/drscheme/private/prefs-contract.ss b/collects/drscheme/private/prefs-contract.ss deleted file mode 100644 index d850ca725e..0000000000 --- a/collects/drscheme/private/prefs-contract.ss +++ /dev/null @@ -1,16 +0,0 @@ -#lang racket/base - -(require (for-syntax racket/base) - framework/framework) - -(provide (rename-out [-preferences:get preferences:get]) - preferences:get-drscheme:large-letters-font) - -(define (preferences:get-drscheme:large-letters-font) - (preferences:get 'drscheme:large-letters-font)) - -(define-syntax (-preferences:get stx) - (syntax-case stx (quote) - [(_ (quote sym)) - (with-syntax ([nm (datum->syntax stx (string->symbol (string-append "preferences:get" "-" (symbol->string (syntax-e #'sym)))))]) - (syntax/loc stx (nm)))])) diff --git a/collects/drscheme/private/profile-drs.ss b/collects/drscheme/private/profile-drs.rkt similarity index 100% rename from collects/drscheme/private/profile-drs.ss rename to collects/drscheme/private/profile-drs.rkt diff --git a/collects/drscheme/private/recon.ss b/collects/drscheme/private/recon.rkt similarity index 100% rename from collects/drscheme/private/recon.ss rename to collects/drscheme/private/recon.rkt diff --git a/collects/drscheme/private/rep.ss b/collects/drscheme/private/rep.rkt similarity index 95% rename from collects/drscheme/private/rep.ss rename to collects/drscheme/private/rep.rkt index 7a8d95f40b..478cd0b446 100644 --- a/collects/drscheme/private/rep.ss +++ b/collects/drscheme/private/rep.rkt @@ -31,7 +31,7 @@ TODO racket/gui/base framework browser/external - "drsig.ss" + "drsig.rkt" ;; the dynamic-require below loads this module, ;; so we make the dependency explicit here, even @@ -80,18 +80,18 @@ TODO (parameterize-break #f (current-break-parameterization))) (define-unit rep@ - (import (prefix drscheme:init: drscheme:init^) - (prefix drscheme:language-configuration: drscheme:language-configuration/internal^) - (prefix drscheme:language: drscheme:language^) - (prefix drscheme:app: drscheme:app^) - (prefix drscheme:frame: drscheme:frame^) - (prefix drscheme:unit: drscheme:unit^) - (prefix drscheme:text: drscheme:text^) - (prefix drscheme:help-desk: drscheme:help-desk^) - (prefix drscheme:debug: drscheme:debug^) - [prefix drscheme:eval: drscheme:eval^] - [prefix drscheme:module-language: drscheme:module-language^]) - (export (rename drscheme:rep^ + (import (prefix drracket:init: drracket:init^) + (prefix drracket:language-configuration: drracket:language-configuration/internal^) + (prefix drracket:language: drracket:language^) + (prefix drracket:app: drracket:app^) + (prefix drracket:frame: drracket:frame^) + (prefix drracket:unit: drracket:unit^) + (prefix drracket:text: drracket:text^) + (prefix drracket:help-desk: drracket:help-desk^) + (prefix drracket:debug: drracket:debug^) + [prefix drracket:eval: drracket:eval^] + [prefix drracket:module-language: drracket:module-language^]) + (export (rename drracket:rep^ [-text% text%] [-text<%> text<%>])) @@ -241,7 +241,7 @@ TODO (λ (frame) (printf " ~s\n" frame)) (continuation-mark-set->context (exn-continuation-marks exn))) (printf "\n")) - (drscheme:debug:error-display-handler/stacktrace msg exn stack))) + (drracket:debug:error-display-handler/stacktrace msg exn stack))) (define (main-user-eventspace-thread?) (let ([rep (current-rep)]) @@ -257,7 +257,7 @@ TODO (let ([canvas (send obj get-canvas)]) (and canvas (let ([frame (send canvas get-top-level-window)]) - (and (is-a? frame drscheme:unit:frame%) + (and (is-a? frame drracket:unit:frame%) frame))))))] [add-drs-function (λ (name f) @@ -268,7 +268,7 @@ TODO (λ (obj evt) (let ([fr (get-frame obj)]) (and fr - (is-a? fr drscheme:unit:frame<%>) + (is-a? fr drracket:unit:frame<%>) (< i (send fr get-tab-count)) (begin (send fr change-to-nth-tab i) #t)))))]) @@ -277,22 +277,22 @@ TODO (send drs-bindings-keymap add-function "search-help-desk" (λ (obj evt) (if (not (and (is-a? obj text%) (get-frame obj))) ; is `get-frame' needed? - (drscheme:help-desk:help-desk) + (drracket:help-desk:help-desk) (let* ([start (send obj get-start-position)] [end (send obj get-end-position)] [str (if (= start end) - (drscheme:unit:find-symbol obj start) + (drracket:unit:find-symbol obj start) (send obj get-text start end))]) (if (or (not str) (equal? "" str)) - (drscheme:help-desk:help-desk) + (drracket:help-desk:help-desk) (let* ([l (send obj get-canvas)] [l (and l (send l get-top-level-window))] - [l (and l (is-a? l drscheme:unit:frame<%>) (send l get-definitions-text))] + [l (and l (is-a? l drracket:unit:frame<%>) (send l get-definitions-text))] [l (and l (send l get-next-settings))] - [l (and l (drscheme:language-configuration:language-settings-language l))] + [l (and l (drracket:language-configuration:language-settings-language l))] [ctxt (and l (send l capability-value 'drscheme:help-context-term))] [name (and l (send l get-language-name))]) - (drscheme:help-desk:help-desk + (drracket:help-desk:help-desk str (and ctxt (list ctxt name))))))))) (add-drs-function "execute" (λ (frame) (send frame execute-callback))) (add-drs-function "next-tab" (λ (frame) (send frame next-tab))) @@ -325,7 +325,7 @@ TODO ;; drs-bindings-keymap-mixin : ;; ((implements editor:keymap<%>) -> (implements editor:keymap<%>)) ;; for any x that is an instance of the resulting class, - ;; (is-a? (send (send x get-canvas) get-top-level-frame) drscheme:unit:frame%) + ;; (is-a? (send (send x get-canvas) get-top-level-frame) drracket:unit:frame%) (define drs-bindings-keymap-mixin (mixin (editor:keymap<%>) (editor:keymap<%>) (define/override (get-keymaps) @@ -336,7 +336,7 @@ TODO ;; queue is full): (define output-limit-size 2000) - (define (printf . args) (apply fprintf drscheme:init:original-output-port args)) + (define (printf . args) (apply fprintf drracket:init:original-output-port args)) (define setup-scheme-interaction-mode-keymap (λ (keymap) @@ -418,24 +418,24 @@ TODO ;; determines if the settings in `language-settings' ;; correspond to the default settings of the language. (define (is-default-settings? language-settings) - (send (drscheme:language-configuration:language-settings-language language-settings) + (send (drracket:language-configuration:language-settings-language language-settings) default-settings? - (drscheme:language-configuration:language-settings-settings language-settings))) + (drracket:language-configuration:language-settings-settings language-settings))) (define (extract-language-name language-settings defs-text) (cond - [(is-a? (drscheme:language-configuration:language-settings-language language-settings) - drscheme:module-language:module-language<%>) - (send (drscheme:language-configuration:language-settings-language language-settings) + [(is-a? (drracket:language-configuration:language-settings-language language-settings) + drracket:module-language:module-language<%>) + (send (drracket:language-configuration:language-settings-language language-settings) get-users-language-name defs-text)] [else - (send (drscheme:language-configuration:language-settings-language language-settings) + (send (drracket:language-configuration:language-settings-language language-settings) get-language-name)])) (define (extract-language-style-delta language-settings) - (send (drscheme:language-configuration:language-settings-language language-settings) + (send (drracket:language-configuration:language-settings-language language-settings) get-style-delta)) (define (extract-language-url language-settings) - (send (drscheme:language-configuration:language-settings-language language-settings) + (send (drracket:language-configuration:language-settings-language language-settings) get-language-url)) (define-struct sexp (left right prompt)) @@ -449,7 +449,7 @@ TODO [list-of-snip/strings? (list-of? snip/string?)] [list-of-lists-of-snip/strings? (list-of? list-of-snip/strings?)]) (preferences:set-default - 'drscheme:console-previous-exprs + 'drracket:console-previous-exprs null list-of-lists-of-snip/strings?)) (let ([marshall @@ -469,7 +469,7 @@ TODO lls))] [unmarshall (λ (x) x)]) (preferences:set-un/marshall - 'drscheme:console-previous-exprs + 'drracket:console-previous-exprs marshall unmarshall)) (define color? ((get-display-depth) . > . 8)) @@ -585,8 +585,8 @@ TODO (define/public (get-definitions-text) definitions-text) (unless (is-a? context context<%>) - (error 'drscheme:rep:text% - "expected an object that implements drscheme:rep:context<%> as initialization argument, got: ~e" + (error 'drracket:rep:text% + "expected an object that implements drracket:rep:context<%> as initialization argument, got: ~e" context)) (define/public (get-context) context) @@ -600,7 +600,7 @@ TODO ;; =User= (probably doesn't matter) (define/private queue-system-callback (λ (ut thunk [always? #f]) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () (when (or always? (eq? ut (get-user-thread))) @@ -631,8 +631,8 @@ TODO (for-each (λ (v) (let* ([ls (current-language-settings)] - [lang (drscheme:language-configuration:language-settings-language ls)] - [settings (drscheme:language-configuration:language-settings-settings ls)]) + [lang (drracket:language-configuration:language-settings-language ls)] + [settings (drracket:language-configuration:language-settings-settings ls)]) (send lang render-value/format v settings @@ -749,7 +749,7 @@ TODO [start (- (srcloc-position loc) 1)] [span (srcloc-span loc)] [finish (+ start span)]) - (send file highlight-range start finish (drscheme:debug:get-error-color) #f 'high))) + (send file highlight-range start finish (drracket:debug:get-error-color) #f 'high))) locs)]) (when (and definitions-text error-arrows) @@ -856,7 +856,7 @@ TODO (let* ([start (get-repl-header-end)] [end (get-insertion-point)] [space (- end start)] - [pref (preferences:get 'drscheme:repl-buffer-size)]) + [pref (preferences:get 'drracket:repl-buffer-size)]) (when (car pref) (let ([max-space (* 1000 (cdr pref))]) (when (space . > . max-space) @@ -891,7 +891,7 @@ TODO (memory-killed-cust-box #f) (user-custodian #f) (custodian-limit (and (custodian-memory-accounting-available?) - (preferences:get 'drscheme:child-only-memory-limit))) + (preferences:get 'drracket:child-only-memory-limit))) (user-eventspace-box (make-weak-box #f)) (user-namespace-box (make-weak-box #f)) (user-eventspace-main-thread #f) @@ -975,7 +975,7 @@ TODO )]) (when (equal? ans 3) (set-custodian-limit new-limit) - (preferences:set 'drscheme:child-only-memory-limit new-limit)) + (preferences:set 'drracket:child-only-memory-limit new-limit)) (set-insertion-point (last-position)) (insert-warning "\nInteractions disabled"))) @@ -1114,8 +1114,8 @@ TODO (run-in-evaluation-thread (λ () ; =User=, =Handler=, =No-Breaks= (let* ([settings (current-language-settings)] - [lang (drscheme:language-configuration:language-settings-language settings)] - [settings (drscheme:language-configuration:language-settings-settings settings)] + [lang (drracket:language-configuration:language-settings-language settings)] + [settings (drracket:language-configuration:language-settings-settings settings)] [dummy-value (box #f)] [get-sexp/syntax/eof (if complete-program? @@ -1215,7 +1215,7 @@ TODO (cleanup)) ;; HACK: lock the interactions now; the reason for this ;; is that `cleanup-interaction' invokes - ;; `enable-evaluation', and in "unit.ss" this is defined + ;; `enable-evaluation', and in "unit.rkt" this is defined ;; to unlock the interactions which might make sense in ;; that context. (lock #t)))))))) @@ -1256,7 +1256,7 @@ TODO ; setup standard parameters (let ([snip-classes ; the snip-classes in the DrScheme eventspace's snip-class-list - (drscheme:eval:get-snip-classes)] + (drracket:eval:get-snip-classes)] [drs-eventspace (current-eventspace)]) (queue-user/wait (λ () ; =User=, =No-Breaks= @@ -1270,7 +1270,7 @@ TODO (λ () ;; forward system events the user's logger, and record any ;; events that happen on the user's logger to show in the GUI - (let ([sys-evt (make-log-receiver drscheme:init:system-logger 'debug)] + (let ([sys-evt (make-log-receiver drracket:init:system-logger 'debug)] [user-evt (make-log-receiver user-logger 'debug)]) (let loop () (sync @@ -1285,7 +1285,7 @@ TODO (handle-evt user-evt (λ (vec) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () (new-log-message vec)))) (loop)))))))) @@ -1315,16 +1315,16 @@ TODO (planet-terse-set-key (gensym)) (planet-terse-register (lambda (tag package) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () (new-planet-info tag package)))))) ;; disable breaks until an evaluation actually occurs (send context set-breakables #f #f) ;; initialize the language - (send (drscheme:language-configuration:language-settings-language user-language-settings) + (send (drracket:language-configuration:language-settings-language user-language-settings) on-execute - (drscheme:language-configuration:language-settings-settings user-language-settings) + (drracket:language-configuration:language-settings-settings user-language-settings) (let ([run-on-user-thread (lambda (t) (queue-user/wait (λ () @@ -1340,11 +1340,11 @@ TODO (with-handlers ((void (λ (x) (set! exn x) (set! raised-exn? #t)))) - (drscheme:language:setup-setup-values)))) + (drracket:language:setup-setup-values)))) (when raised-exn? (fprintf (current-error-port) - "copied exn raised when setting up snip values (thunk passed as third argume to drscheme:language:add-snip-value)\n") + "copied exn raised when setting up snip values (thunk passed as third argume to drracket:language:add-snip-value)\n") (raise exn))) ;; allow extensions to this class to do some setup work @@ -1437,10 +1437,10 @@ TODO (define/augment (on-close) (shutdown) - (preferences:set 'drscheme:console-previous-exprs + (preferences:set 'drracket:console-previous-exprs (trim-previous-exprs (append - (preferences:get 'drscheme:console-previous-exprs) + (preferences:get 'drracket:console-previous-exprs) local-previous-exprs))) (inner (void) on-close)) @@ -1513,10 +1513,10 @@ TODO (current-custodian user-custodian) (current-load text-editor-load-handler) - (drscheme:eval:set-basic-parameters snip-classes) + (drracket:eval:set-basic-parameters snip-classes) (current-rep this) (let ([dir (or (send context get-directory) - drscheme:init:first-dir)]) + drracket:init:first-dir)]) (current-directory dir)) (set! user-namespace-box (make-weak-box (current-namespace))) @@ -1575,14 +1575,14 @@ TODO (define/public (new-empty-console) (queue-user/wait (λ () ; =User=, =No-Breaks= - (send (drscheme:language-configuration:language-settings-language user-language-settings) + (send (drracket:language-configuration:language-settings-language user-language-settings) first-opened)))) (define/public (reset-console) (when (thread? thread-killed) (kill-thread thread-killed)) (send context clear-annotations) - (drscheme:debug:hide-backtrace-window) + (drracket:debug:hide-backtrace-window) (shutdown-user-custodian) (clear-input-port) (clear-box-input-port) @@ -1633,9 +1633,9 @@ TODO (let ([osf (get-styles-fixed)]) (set-styles-fixed #f) - (send (drscheme:language-configuration:language-settings-language user-language-settings) + (send (drracket:language-configuration:language-settings-language user-language-settings) extra-repl-information - (drscheme:language-configuration:language-settings-settings user-language-settings) + (drracket:language-configuration:language-settings-settings user-language-settings) (open-output-text-editor this 'end)) (set-styles-fixed osf)) @@ -1663,7 +1663,7 @@ TODO (version:version) (system-type 'gc)) welcome-delta) (set-clickback before after - (λ args (drscheme:app:about-drscheme)) + (λ args (drracket:app:about-drscheme)) click-delta)) (set! setting-up-repl? #f) (thaw-colorer) @@ -1672,7 +1672,7 @@ TODO (queue-user/wait (λ () ; =User=, =No-Breaks= - (send (drscheme:language-configuration:language-settings-language user-language-settings) + (send (drracket:language-configuration:language-settings-language user-language-settings) first-opened))) (insert-prompt) @@ -1739,7 +1739,7 @@ TODO (copy-previous-expr)))) ;; private fields - (define global-previous-exprs (preferences:get 'drscheme:console-previous-exprs)) + (define global-previous-exprs (preferences:get 'drracket:console-previous-exprs)) (define local-previous-exprs null) (define/private (get-previous-exprs) (append global-previous-exprs local-previous-exprs)) @@ -1825,7 +1825,7 @@ TODO (send input-delta set-delta-foreground (make-object color% 0 150 0)) ;; insert-error-in-text : (is-a?/c text%) - ;; (union #f (is-a?/c drscheme:rep:text<%>)) + ;; (union #f (is-a?/c drracket:rep:text<%>)) ;; string? ;; exn? ;; (union false? (and/c string? directory-exists?)) @@ -1947,7 +1947,7 @@ TODO ;; other position. (define (open-file-and-highlight filename position other-position) (let ([file (handler:edit-file filename)]) - (when (and (is-a? file drscheme:unit:frame%) + (when (and (is-a? file drracket:unit:frame%) position) (if other-position (send (send file get-interactions-text) @@ -1966,7 +1966,7 @@ TODO (define/override (get-all-words) (let* ([definitions-text (get-defs this)] [settings (send definitions-text get-next-settings)] - [language (drscheme:language-configuration:language-settings-language settings)]) + [language (drracket:language-configuration:language-settings-language settings)]) (send language capability-value 'drscheme:autocomplete-words))) (super-new)))) diff --git a/collects/drscheme/private/stick-figures.ss b/collects/drscheme/private/stick-figures.rkt similarity index 100% rename from collects/drscheme/private/stick-figures.ss rename to collects/drscheme/private/stick-figures.rkt diff --git a/collects/drscheme/private/syncheck-debug.ss b/collects/drscheme/private/syncheck-debug.rkt similarity index 100% rename from collects/drscheme/private/syncheck-debug.ss rename to collects/drscheme/private/syncheck-debug.rkt diff --git a/collects/drscheme/private/text.ss b/collects/drscheme/private/text.rkt similarity index 95% rename from collects/drscheme/private/text.ss rename to collects/drscheme/private/text.rkt index a941b53531..6d7df03140 100644 --- a/collects/drscheme/private/text.ss +++ b/collects/drscheme/private/text.rkt @@ -1,10 +1,10 @@ #lang scheme/unit (require mzlib/class - "drsig.ss" + "drsig.rkt" framework) (import) - (export drscheme:text^) + (export drracket:text^) (define text<%> (interface (scheme:text<%>) printing-on diff --git a/collects/drscheme/private/tool-contract-language.ss b/collects/drscheme/private/tool-contract-language.rkt similarity index 90% rename from collects/drscheme/private/tool-contract-language.ss rename to collects/drscheme/private/tool-contract-language.rkt index 7363d8fdd5..d507300b7e 100644 --- a/collects/drscheme/private/tool-contract-language.ss +++ b/collects/drscheme/private/tool-contract-language.rkt @@ -21,7 +21,7 @@ (not (string? (syntax-object->datum (syntax type)))) (andmap (λ (x) (string? (syntax-object->datum x))) (syntax->list (syntax (strs ...))))) (make-ctc-binding (syntax name) (syntax type))] - [else (raise-syntax-error 'tool-contract-language.ss "unknown case" stx case-stx)])) + [else (raise-syntax-error 'tool-contract-language.rkt "unknown case" stx case-stx)])) (syntax-case stx () @@ -63,19 +63,19 @@ (for-each (λ (str-stx) (when (string? (syntax-object->datum str-stx)) - (raise-syntax-error 'tool-contract-language.ss "expected type name specification" + (raise-syntax-error 'tool-contract-language.rkt "expected type name specification" stx str-stx))) (syntax->list (syntax (type-names ...)))) (for-each (λ (name) (unless (identifier? name) - (raise-syntax-error 'tool-contract-language.ss "expected identifier" stx name))) + (raise-syntax-error 'tool-contract-language.rkt "expected identifier" stx name))) (syntax->list (syntax (name ...)))) (for-each (λ (str) (unless (string? (syntax-object->datum str)) - (raise-syntax-error 'tool-contract-language.ss "expected docs string" stx str))) + (raise-syntax-error 'tool-contract-language.rkt "expected docs string" stx str))) (apply append (map syntax->list (syntax->list (syntax ((strs ...) ...)))))))])) (define-syntax (-#%module-begin2 stx) @@ -120,17 +120,17 @@ (for-each (λ (str-stx) (when (string? (syntax-object->datum str-stx)) - (raise-syntax-error 'tool-contract-language.ss "expected type name specification" + (raise-syntax-error 'tool-contract-language.rkt "expected type name specification" stx str-stx))) (syntax->list (syntax (type-names ...)))) (for-each (λ (name) (unless (identifier? name) - (raise-syntax-error 'tool-contract-language.ss "expected identifier" stx name))) + (raise-syntax-error 'tool-contract-language.rkt "expected identifier" stx name))) (syntax->list (syntax (name ...)))) (for-each (λ (str) (unless (string? (syntax-object->datum str)) - (raise-syntax-error 'tool-contract-language.ss "expected docs string" stx str))) + (raise-syntax-error 'tool-contract-language.rkt "expected docs string" stx str))) (apply append (map syntax->list (syntax->list (syntax ((strs ...) ...)))))))])) diff --git a/collects/drscheme/private/tools-drs.rkt b/collects/drscheme/private/tools-drs.rkt new file mode 100644 index 0000000000..e31551b0a4 --- /dev/null +++ b/collects/drscheme/private/tools-drs.rkt @@ -0,0 +1,99 @@ +#lang scheme/unit + +#| + +This file sets up the right lexical environment to invoke the tools that want to use the drscheme: names. + +|# + +(require racket/class + racket/list + racket/runtime-path + racket/contract + setup/getinfo + mred + framework + framework/splash + "drsig.rkt" + "language-object-contract.rkt" + mrlib/switchable-button + string-constants) + +(require (for-syntax racket/base racket/match)) + +(import [prefix drscheme:frame: drracket:frame^] + [prefix drscheme:unit: drracket:unit^] + [prefix drscheme:rep: drracket:rep^] + [prefix drscheme:get/extend: drracket:get/extend^] + [prefix drscheme:language: drracket:language^] + [prefix drscheme:language-configuration: drracket:language-configuration^] + [prefix drscheme:help-desk: drracket:help-desk^] + [prefix drscheme:init: drracket:init^] + [prefix drscheme:debug: drracket:debug^] + [prefix drscheme:eval: drracket:eval^] + [prefix drscheme:modes: drracket:modes^] + [prefix drscheme:tracing: drracket:tracing^] + [prefix drscheme:module-language: drracket:module-language^] + [prefix drscheme:module-language-tools: drracket:module-language-tools^]) +(export drracket:tools-drs^) + +(define-syntax (wrap-tool-inputs stx) + (syntax-case stx () + [(_ body tool-name) + (let () + (define full-sexp + (call-with-input-file (build-path (collection-path "drscheme") "tool-lib.rkt") + (λ (port) + (parameterize ([read-accept-reader #t]) + (read port))))) + + (let loop ([sexp full-sexp]) + (match sexp + [`((#%module-begin ,body ...)) + (loop body)] + [`((provide/doc (,x ,name ,ctc ,other ...) ...) ,rest ...) + #`(let #,(map (λ (orig-name ctc) + (define (rewrite obj) + (cond + [(symbol? obj) + (string->symbol (regexp-replace #rx"^drracket:" (symbol->string obj) "drscheme:"))] + [(pair? obj) + (cons (rewrite (car obj)) + (rewrite (cdr obj)))] + [else obj])) + (with-syntax ([name (datum->syntax #'tool-name (rewrite orig-name))] + [ctc (datum->syntax #'tool-name (rewrite ctc))]) + #`[name + (contract (let ([name ctc]) name) ;; need to replace the names in 'ctc' + name + 'drracket + tool-name + (quote name) + (quote-syntax name))])) + name + ctc) + body)] + [`(,a . ,b) + (loop b)] + [`() + (error 'tools-drs.rkt "did not find provide/doc: ~a" full-sexp)])))])) + +;; these two definitions are a hack. They give bindings for the drracket: based names that +;; appear in the source of language-object-contract.rkt. +(define (drracket:language:capability-registered? . args) (apply drscheme:language:capability-registered? args)) +(define (drracket:language:get-capability-contract . args) (apply drscheme:language:get-capability-contract args)) + +;; invoke-drs-tool : unit/sig string -> (values (-> void) (-> void)) +;; invokes the tools and returns the two phase thunks. +;; this is the same as the invoke-tool function in tools.rkt, but +;; supplies names prefixed with `drscheme:' +(define (invoke-drs-tool unit tool-name) + (define-unit-binding unit@ unit (import drscheme:tool^) (export drracket:tool-exports^)) + (language-object-abstraction drscheme:language:object/c #f) + (wrap-tool-inputs + (let () + (define-values/invoke-unit unit@ + (import drscheme:tool^) (export drracket:tool-exports^)) + (values phase1 phase2)) + tool-name)) + diff --git a/collects/drscheme/private/tools.ss b/collects/drscheme/private/tools.rkt similarity index 88% rename from collects/drscheme/private/tools.ss rename to collects/drscheme/private/tools.rkt index d66d10a192..340441e47f 100644 --- a/collects/drscheme/private/tools.ss +++ b/collects/drscheme/private/tools.rkt @@ -8,32 +8,33 @@ mred framework framework/splash - "drsig.ss" - "language-object-contract.ss" + "drsig.rkt" + "language-object-contract.rkt" mrlib/switchable-button string-constants) (require (for-syntax racket/base racket/match)) -(import [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:get/extend: drscheme:get/extend^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:language-configuration: drscheme:language-configuration^] - [prefix drscheme:help-desk: drscheme:help-desk^] - [prefix drscheme:init: drscheme:init^] - [prefix drscheme:debug: drscheme:debug^] - [prefix drscheme:eval: drscheme:eval^] - [prefix drscheme:modes: drscheme:modes^] - [prefix drscheme:tracing: drscheme:tracing^] - [prefix drscheme:module-language: drscheme:module-language^] - [prefix drscheme:module-language-tools: drscheme:module-language-tools^]) -(export drscheme:tools^) +(import [prefix drracket:frame: drracket:frame^] + [prefix drracket:unit: drracket:unit^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:get/extend: drracket:get/extend^] + [prefix drracket:language: drracket:language^] + [prefix drracket:language-configuration: drracket:language-configuration^] + [prefix drracket:help-desk: drracket:help-desk^] + [prefix drracket:init: drracket:init^] + [prefix drracket:debug: drracket:debug^] + [prefix drracket:eval: drracket:eval^] + [prefix drracket:modes: drracket:modes^] + [prefix drracket:tracing: drracket:tracing^] + [prefix drracket:module-language: drracket:module-language^] + [prefix drracket:module-language-tools: drracket:module-language-tools^] + [prefix drracket:tools-drs: drracket:tools-drs^]) +(export drracket:tools^) ;; An installed-tool is -;; (make-installed-tool directory-record module-spec string/#f string/#f string/#f string/#f) -(define-struct installed-tool (dir spec bitmap name url)) +;; (make-installed-tool directory-record module-spec string/#f string/#f string/#f string/#f boolean) +(define-struct installed-tool (dir spec bitmap name url drracket?) #:transparent) ;; installed-tools : (list-of installed-tool) (define installed-tools null) @@ -81,10 +82,16 @@ string-constants) ;; all-tool-directories : -> (list-of directory-record) (define (all-tool-directories) - (find-relevant-directory-records '(tools tool-icons tool-names tool-urls))) + (find-relevant-directory-records '(drracket-tools drracket-tool-icons drracket-tool-names drracket-tool-urls + tools tool-icons tool-names tool-urls))) ;; installed-tools-for-directory : directory-record -> (list-of installed-tool) (define (installed-tools-for-directory coll-dir) + (append (installed-tools-for-directory/keys coll-dir 'tools 'tool-icons 'tool-names 'tool-urls #f) + (installed-tools-for-directory/keys coll-dir 'drracket-tools 'drracket-tool-icons 'drracket-tool-names 'drracket-tool-urls #t))) + +;; installed-tools-for-directory/keys : directory-record symbol symbol symbol symbol boolean -> (list-of installed-tool) +(define (installed-tools-for-directory/keys coll-dir tools-key tool-icons-key tool-names-key tool-urls-key drracket-tool?) (let ([table (with-handlers ((exn:fail? values)) (get-info/full (directory-record-path coll-dir)))]) (cond @@ -97,16 +104,16 @@ string-constants) (let ([sp (open-output-string)]) (parameterize ([current-error-port sp] [current-error-port sp]) - (drscheme:init:original-error-display-handler (exn-message table) table)) + (drracket:init:original-error-display-handler (exn-message table) table)) (get-output-string sp))) #f '(ok stop)) null] [else - (let* ([tools (table 'tools (lambda () null))] - [tool-icons (table 'tool-icons (lambda () (map (lambda (x) #f) tools)))] - [tool-names (table 'tool-names (lambda () (map (lambda (x) #f) tools)))] - [tool-urls (table 'tool-urls (lambda () (map (lambda (x) #f) tools)))]) + (let* ([tools (table tools-key (lambda () null))] + [tool-icons (table tool-icons-key (lambda () (map (lambda (x) #f) tools)))] + [tool-names (table tool-names-key (lambda () (map (lambda (x) #f) tools)))] + [tool-urls (table tool-urls-key (lambda () (map (lambda (x) #f) tools)))]) (unless (= (length tools) (length tool-icons)) (message-box (string-constant drscheme) (format (string-constant tool-tool-icons-same-length) @@ -128,7 +135,7 @@ string-constants) #f '(ok stop)) (set! tool-urls (map (lambda (x) #f) tools))) - (map (lambda (t i n u) (make-installed-tool coll-dir t i n u)) + (map (lambda (t i n u) (make-installed-tool coll-dir t i n u drracket-tool?)) tools tool-icons tool-names tool-urls))]))) ;; candidate-tool? : installed-tool -> boolean @@ -169,12 +176,12 @@ string-constants) ;; default-tool-configuration : installed-tool -> (union 'load 'skip) (define (default-tool-configuration it) - (preferences:get 'drscheme:default-tools-configuration)) + (preferences:get 'drracket:default-tools-configuration)) (define toolspref (case-lambda - [() (preferences:get 'drscheme:tools-configuration)] - [(v) (preferences:set 'drscheme:tools-configuration v)])) + [() (preferences:get 'drracket:tools-configuration)] + [(v) (preferences:set 'drracket:tools-configuration v)])) (define (installed-tool->key it) (list (directory-record-spec (installed-tool-dir it)) @@ -241,19 +248,21 @@ string-constants) (installed-tool-spec it) (installed-tool-bitmap it) (installed-tool-name it) - (installed-tool-url it))) + (installed-tool-url it) + (installed-tool-drracket? it))) ;; load/invoke-tool* : path ;; (listof string[sub-collection-name]) ;; (union #f (cons string[filename] (listof string[collection-name]))) ;; (union #f string) ;; (union #f string) +;; boolean ;; -> void ;; `coll' is a collection to load the tool from ;; `in-path' is the `coll'-relative collection-path spec for the tool module file ;; `icon-spec' is the collection-path spec for the tool's icon, if there is one. ;; `name' is the name of the tool (only used in about box) -(define (load/invoke-tool* coll-dir in-path icon-spec name tool-url) +(define (load/invoke-tool* coll-dir in-path icon-spec name tool-url drracket?) (let* ([icon-path (cond [(string? icon-spec) @@ -296,7 +305,9 @@ string-constants) coll-dir in-path) x))]) (let-values ([(phase1-thunk phase2-thunk) - (invoke-tool unit (string->symbol (or name (path->string coll-dir))))]) + (if drracket? + (invoke-tool unit (string->symbol (or name (path->string coll-dir)))) + (drracket:tools-drs:invoke-drs-tool unit (string->symbol (or name (path->string coll-dir)))))]) (set! successfully-loaded-tools (cons (make-successfully-loaded-tool tool-path @@ -312,7 +323,7 @@ string-constants) [(_ body tool-name) (let () (define full-sexp - (call-with-input-file (build-path (collection-path "drscheme") "tool-lib.ss") + (call-with-input-file (build-path (collection-path "drscheme") "tool-lib.rkt") (λ (port) (parameterize ([read-accept-reader #t]) (read port))))) @@ -327,7 +338,7 @@ string-constants) [ctc (datum->syntax #'tool-name ctc)]) #`[name (contract (let ([name ctc]) name) name - 'drscheme + 'drracket tool-name (quote name) (quote-syntax name))])) @@ -337,23 +348,23 @@ string-constants) [`(,a . ,b) (loop b)] [`() - (error 'tcl.ss "did not find provide/doc: ~a" full-sexp)])))])) + (error 'tools.rkt "did not find provide/doc: ~a" full-sexp)])))])) ;; invoke-tool : unit/sig string -> (values (-> void) (-> void)) ;; invokes the tools and returns the two phase thunks. (define (invoke-tool unit tool-name) - (define-unit-binding unit@ unit (import drscheme:tool^) (export drscheme:tool-exports^)) - (language-object-abstraction drscheme:language:object/c #f) + (define-unit-binding unit@ unit (import drracket:tool^) (export drracket:tool-exports^)) + (language-object-abstraction drracket:language:object/c #f) (wrap-tool-inputs (let () (define-values/invoke-unit unit@ - (import drscheme:tool^) (export drscheme:tool-exports^)) + (import drracket:tool^) (export drracket:tool-exports^)) (values phase1 phase2)) tool-name)) ;; show-error : string (union exn TST) -> void (define (show-error title x) - (parameterize ([drscheme:init:error-display-handler-message-box-title + (parameterize ([drracket:init:error-display-handler-message-box-title title]) ((error-display-handler) (if (exn? x) diff --git a/collects/drscheme/private/tracing.ss b/collects/drscheme/private/tracing.rkt similarity index 95% rename from collects/drscheme/private/tracing.ss rename to collects/drscheme/private/tracing.rkt index f30b0568cb..ce0f1f1c96 100644 --- a/collects/drscheme/private/tracing.ss +++ b/collects/drscheme/private/tracing.rkt @@ -10,16 +10,16 @@ string-constants framework (prefix-in tr: trace/stacktrace) - "drsig.ss") + "drsig.rkt") (provide tracing@) (define-unit tracing@ - (import [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:init: drscheme:init^] - [prefix drscheme:unit: drscheme:unit^]) - (export drscheme:tracing^) + (import [prefix drracket:frame: drracket:frame^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:init: drracket:init^] + [prefix drracket:unit: drracket:unit^]) + (export drracket:tracing^) (define-local-member-name get-tracing-text @@ -41,7 +41,7 @@ (let ([name (cond [(identifier? inferred-name) (syntax-e inferred-name)] [else (object-name inferred-name)])] - [rep (drscheme:rep:current-rep)]) + [rep (drracket:rep:current-rep)]) (when (and name rep) (let ([canvas (send rep get-canvas)]) (when canvas @@ -74,7 +74,7 @@ ;; Queue callback to write trace line --- ;; low priority, so that infinite loops don't stop the user ;; from clicking "Break" - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (lambda () (send tab tracing:add-line (get-output-string sp)) @@ -89,7 +89,7 @@ (import tr:stacktrace-imports^) (export tr:stacktrace^)) (define tab-mixin - (mixin (drscheme:unit:tab<%> drscheme:rep:context<%>) (tab-tracing<%>) + (mixin (drracket:unit:tab<%> drracket:rep:context<%>) (tab-tracing<%>) (inherit get-frame) (define tracing-visible? #f) @@ -160,7 +160,7 @@ (send clickback-delta set-delta 'change-underline #t) (define frame-mixin - (mixin (drscheme:frame:<%> drscheme:unit:frame<%>) () + (mixin (drracket:frame:<%> drracket:unit:frame<%>) () (inherit get-current-tab) (define show-tracing-menu-item #f) (define tracing-visible? #f) diff --git a/collects/drscheme/private/ts.ss b/collects/drscheme/private/ts.rkt similarity index 100% rename from collects/drscheme/private/ts.ss rename to collects/drscheme/private/ts.rkt diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.rkt similarity index 95% rename from collects/drscheme/private/unit.ss rename to collects/drscheme/private/unit.rkt index 47b5df12c0..b491403c93 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.rkt @@ -30,10 +30,10 @@ module browser threading seems wrong. net/sendurl net/url - "drsig.ss" - "auto-language.ss" - "insert-large-letters.ss" - (prefix-in drscheme:arrow: "../arrow.ss") + "drsig.rkt" + "auto-language.rkt" + "insert-large-letters.rkt" + (prefix-in drracket:arrow: "../arrow.rkt") mred (prefix-in mred: mred) @@ -51,23 +51,23 @@ module browser threading seems wrong. (define define-button-long-label "(define ...)") (define-unit unit@ - (import [prefix help-desk: drscheme:help-desk^] - [prefix drscheme:app: drscheme:app^] - [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:text: drscheme:text^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:get/extend: drscheme:get/extend^] - [prefix drscheme:module-overview: drscheme:module-overview^] - [prefix drscheme:tools: drscheme:tools^] - [prefix drscheme:eval: drscheme:eval^] - [prefix drscheme:init: drscheme:init^] - [prefix drscheme:module-language: drscheme:module-language^] - [prefix drscheme:module-language-tools: drscheme:module-language-tools^] - [prefix drscheme:modes: drscheme:modes^] - [prefix drscheme:debug: drscheme:debug^]) - (export (rename drscheme:unit^ + (import [prefix help-desk: drracket:help-desk^] + [prefix drracket:app: drracket:app^] + [prefix drracket:frame: drracket:frame^] + [prefix drracket:text: drracket:text^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:language: drracket:language^] + [prefix drracket:get/extend: drracket:get/extend^] + [prefix drracket:module-overview: drracket:module-overview^] + [prefix drracket:tools: drracket:tools^] + [prefix drracket:eval: drracket:eval^] + [prefix drracket:init: drracket:init^] + [prefix drracket:module-language: drracket:module-language^] + [prefix drracket:module-language-tools: drracket:module-language-tools^] + [prefix drracket:modes: drracket:modes^] + [prefix drracket:debug: drracket:debug^]) + (export (rename drracket:unit^ [-frame% frame%] [-frame<%> frame<%>])) @@ -78,7 +78,7 @@ module browser threading seems wrong. get-i set-i) (define tab<%> - (interface (drscheme:rep:context<%>) + (interface (drracket:rep:context<%>) get-frame get-defs get-ints @@ -119,7 +119,7 @@ module browser threading seems wrong. (old menu text event) (when (and (is-a? text text%) (or (is-a? text (get-definitions-text%)) - (is-a? text drscheme:rep:text%)) + (is-a? text drracket:rep:text%)) (is-a? event mouse-event%)) (let ([add-sep @@ -143,12 +143,12 @@ module browser threading seems wrong. (λ (x y) (send text find-position x y)))) (send text get-text start end))] - ;; almost the same code as "search-help-desk" in "rep.ss" + ;; almost the same code as "search-help-desk" in "rep.rkt" [l (send text get-canvas)] [l (and l (send l get-top-level-window))] [l (and l (is-a? l -frame<%>) (send l get-definitions-text))] [l (and l (send l get-next-settings))] - [l (and l (drscheme:language-configuration:language-settings-language l))] + [l (and l (drracket:language-configuration:language-settings-language l))] [ctxt (and l (send l capability-value 'drscheme:help-context-term))] [name (and l (send l get-language-name))]) (unless (string=? str "") @@ -331,7 +331,7 @@ module browser threading seems wrong. (and (number? v) v)))))) - ;; create-executable : (instanceof drscheme:unit:frame<%>) -> void + ;; create-executable : (instanceof drracket:unit:frame<%>) -> void (define (create-executable frame) (let* ([definitions-text (send frame get-definitions-text)] [program-filename (send definitions-text get-filename)]) @@ -350,9 +350,9 @@ module browser threading seems wrong. #f frame)) (let ([settings (send definitions-text get-next-settings)]) - (send (drscheme:language-configuration:language-settings-language settings) + (send (drracket:language-configuration:language-settings-language settings) create-executable - (drscheme:language-configuration:language-settings-settings settings) + (drracket:language-configuration:language-settings-settings settings) frame program-filename)))]))) @@ -385,11 +385,11 @@ module browser threading seems wrong. (apply super-make-object args))] [get-program-editor-mixin (λ () - (drscheme:tools:only-in-phase 'drscheme:unit:get-program-editor-mixin 'phase2 'init-complete) + (drracket:tools:only-in-phase 'drracket:unit:get-program-editor-mixin 'phase2 'init-complete) program-editor-mixin)] [add-to-program-editor-mixin (λ (mixin) - (drscheme:tools:only-in-phase 'drscheme:unit:add-to-program-editor-mixin 'phase1) + (drracket:tools:only-in-phase 'drracket:unit:add-to-program-editor-mixin 'phase1) (let ([old program-editor-mixin]) (set! program-editor-mixin (λ (x) (mixin (old x))))))]) (values get-program-editor-mixin @@ -442,7 +442,7 @@ module browser threading seems wrong. (define get-definitions-text% (let ([definitions-text% #f]) (λ () - (drscheme:tools:only-in-phase 'phase2 'init-complete) + (drracket:tools:only-in-phase 'phase2 'init-complete) (unless definitions-text% (set! definitions-text% (make-definitions-text%))) definitions-text%))) @@ -451,14 +451,14 @@ module browser threading seems wrong. (let ([definitions-super% ((get-program-editor-mixin) (text:first-line-mixin - (drscheme:module-language:module-language-put-file-mixin + (drracket:module-language:module-language-put-file-mixin (scheme:text-mixin (color:text-mixin - (drscheme:rep:drs-bindings-keymap-mixin + (drracket:rep:drs-bindings-keymap-mixin (mode:host-text-mixin (text:delegate-mixin (text:foreground-color-mixin - (drscheme:rep:drs-autocomplete-mixin + (drracket:rep:drs-autocomplete-mixin (λ (x) x) (text:normalize-paste-mixin text:info%)))))))))))]) @@ -475,29 +475,29 @@ module browser threading seems wrong. (inherit get-surrogate set-surrogate) (define/public (set-current-mode mode) - (let ([surrogate (drscheme:modes:mode-surrogate mode)]) + (let ([surrogate (drracket:modes:mode-surrogate mode)]) (set-surrogate surrogate) (when interactions-text (send interactions-text set-surrogate surrogate) (send interactions-text set-submit-predicate - (drscheme:modes:mode-repl-submit mode))))) + (drracket:modes:mode-repl-submit mode))))) (define/public (is-current-mode? mode) - (let ([surrogate (drscheme:modes:mode-surrogate mode)]) + (let ([surrogate (drracket:modes:mode-surrogate mode)]) (eq? surrogate (get-surrogate)))) (define/public (change-mode-to-match) (let* ([language-settings (get-next-settings)] [language-name (and language-settings - (send (drscheme:language-configuration:language-settings-language + (send (drracket:language-configuration:language-settings-language language-settings) get-language-position))]) - (let loop ([modes (drscheme:modes:get-modes)]) + (let loop ([modes (drracket:modes:get-modes)]) (cond [(null? modes) (error 'change-mode-to-match "didn't find a matching mode")] [else (let ([mode (car modes)]) - (if ((drscheme:modes:mode-matches-language mode) language-name) + (if ((drracket:modes:mode-matches-language mode) language-name) (unless (is-current-mode? mode) (set-current-mode mode)) (loop (cdr modes))))])))) @@ -517,8 +517,8 @@ module browser threading seems wrong. (define/augment (on-save-file filename fmt) (inner (void) on-save-file filename fmt) - (let* ([lang (drscheme:language-configuration:language-settings-language next-settings)] - [settings (drscheme:language-configuration:language-settings-settings next-settings)] + (let* ([lang (drracket:language-configuration:language-settings-language next-settings)] + [settings (drracket:language-configuration:language-settings-settings next-settings)] [name-mod (send lang get-reader-module)]) (when name-mod ;; the reader-module method's result is used a test of whether or not the get-metadata method is used for this language (let ([metadata (send lang get-metadata (filename->modname filename) settings)]) @@ -571,12 +571,12 @@ module browser threading seems wrong. (let-values ([(matching-language settings) (pick-new-language this - (drscheme:language-configuration:get-languages) + (drracket:language-configuration:get-languages) module-language module-language-settings)]) (when matching-language (set-next-settings - (drscheme:language-configuration:make-language-settings + (drracket:language-configuration:make-language-settings matching-language settings) #f)))) @@ -607,7 +607,7 @@ module browser threading seems wrong. (field [needs-execution-state #f] [already-warned-state #f] - [execute-settings (preferences:get drscheme:language-configuration:settings-preferences-symbol)] + [execute-settings (preferences:get drracket:language-configuration:settings-preferences-symbol)] [next-settings execute-settings]) (define/private (set-needs-execution-state! s) (set! needs-execution-state s)) @@ -622,9 +622,9 @@ module browser threading seems wrong. (define/pubment (get-next-settings) next-settings) (define/pubment (set-next-settings _next-settings [update-prefs? #t]) - (when (or (send (drscheme:language-configuration:language-settings-language _next-settings) + (when (or (send (drracket:language-configuration:language-settings-language _next-settings) get-reader-module) - (send (drscheme:language-configuration:language-settings-language next-settings) + (send (drracket:language-configuration:language-settings-language next-settings) get-reader-module)) (set-modified #t)) (set! next-settings _next-settings) @@ -635,23 +635,23 @@ module browser threading seems wrong. (send f language-changed))) (highlight-first-line - (is-a? (drscheme:language-configuration:language-settings-language _next-settings) - drscheme:module-language:module-language<%>)) + (is-a? (drracket:language-configuration:language-settings-language _next-settings) + drracket:module-language:module-language<%>)) - (let ([lang (drscheme:language-configuration:language-settings-language next-settings)] - [sets (drscheme:language-configuration:language-settings-settings next-settings)]) + (let ([lang (drracket:language-configuration:language-settings-language next-settings)] + [sets (drracket:language-configuration:language-settings-settings next-settings)]) (preferences:set - 'drscheme:recent-language-names + 'drracket:recent-language-names (limit-length (remove-duplicate-languages (cons (cons (send lang get-language-name) (send lang marshall-settings sets)) - (preferences:get 'drscheme:recent-language-names))) + (preferences:get 'drracket:recent-language-names))) 10))) (when update-prefs? (preferences:set - drscheme:language-configuration:settings-preferences-symbol + drracket:language-configuration:settings-preferences-symbol next-settings)) (remove-auto-text) @@ -662,14 +662,14 @@ module browser threading seems wrong. (inner (void) after-set-next-settings s)) (define/public (this-and-next-language-the-same?) - (let ([execute-lang (drscheme:language-configuration:language-settings-language execute-settings)] - [next-lang (drscheme:language-configuration:language-settings-language next-settings)]) + (let ([execute-lang (drracket:language-configuration:language-settings-language execute-settings)] + [next-lang (drracket:language-configuration:language-settings-language next-settings)]) (and (eq? execute-lang next-lang) (equal? (send execute-lang marshall-settings - (drscheme:language-configuration:language-settings-settings execute-settings)) + (drracket:language-configuration:language-settings-settings execute-settings)) (send execute-lang marshall-settings - (drscheme:language-configuration:language-settings-settings next-settings)))))) + (drracket:language-configuration:language-settings-settings next-settings)))))) (define/pubment (set-needs-execution-message msg) (set-needs-execution-state! msg)) @@ -700,7 +700,7 @@ module browser threading seems wrong. (inner (void) after-delete x y)) (define/override (is-special-first-line? l) - (and (preferences:get 'drscheme:module-language-first-line-special?) + (and (preferences:get 'drracket:module-language-first-line-special?) (is-lang-line? l))) (inherit get-filename) @@ -746,7 +746,7 @@ module browser threading seems wrong. (define/private (draw-arrow dc dx dy pt1 pt2) (let-values ([(x1 y1) (find-poss (srcloc-source pt1) (- (srcloc-position pt1) 1) (srcloc-position pt1))] [(x2 y2) (find-poss (srcloc-source pt2) (- (srcloc-position pt2) 1) (srcloc-position pt2))]) - (drscheme:arrow:draw-arrow dc x1 y1 x2 y2 dx dy))) + (drracket:arrow:draw-arrow dc x1 y1 x2 y2 dx dy))) (inherit dc-location-to-editor-location) (define/private (find-poss text left-pos right-pos) @@ -770,14 +770,14 @@ module browser threading seems wrong. ;; inserts the auto-text if any, and executes the text if so (define/private (insert-auto-text) (define lang - (drscheme:language-configuration:language-settings-language + (drracket:language-configuration:language-settings-language next-settings)) (define auto-text (and (not really-modified?) (not (get-filename)) - (is-a? lang drscheme:module-language:module-language<%>) + (is-a? lang drracket:module-language:module-language<%>) (send lang get-auto-text - (drscheme:language-configuration:language-settings-settings + (drracket:language-configuration:language-settings-settings next-settings)))) (when auto-text (begin-edit-sequence #f) @@ -787,7 +787,7 @@ module browser threading seems wrong. (set! really-modified? #f) ;; HACK: click run; would be better to override on-execute and ;; make it initialize a working repl, but the problem is that - ;; doing that in module-language.ss means that it'll either need + ;; doing that in module-language.rkt means that it'll either need ;; to find if the current text is the auto-text and analyze it to ;; get this initialization, or it will need to do that for all ;; possible contents, which means that it'll work when opening @@ -816,8 +816,8 @@ module browser threading seems wrong. ;; insert the default-text (queue-callback (lambda () (insert-auto-text))) (highlight-first-line - (is-a? (drscheme:language-configuration:language-settings-language next-settings) - drscheme:module-language:module-language<%>)) + (is-a? (drracket:language-configuration:language-settings-language next-settings) + drracket:module-language:module-language<%>)) (inherit set-max-undo-history) (set-max-undo-history 'forever)))) @@ -849,19 +849,19 @@ module browser threading seems wrong. (define (get-module-language/settings) (let* ([module-language - (and (preferences:get 'drscheme:switch-to-module-language-automatically?) + (and (preferences:get 'drracket:switch-to-module-language-automatically?) (ormap (λ (lang) - (and (is-a? lang drscheme:module-language:module-language<%>) + (and (is-a? lang drracket:module-language:module-language<%>) lang)) - (drscheme:language-configuration:get-languages)))] + (drracket:language-configuration:get-languages)))] [module-language-settings (let ([prefs-setting (preferences:get - drscheme:language-configuration:settings-preferences-symbol)]) + drracket:language-configuration:settings-preferences-symbol)]) (cond - [(eq? (drscheme:language-configuration:language-settings-language prefs-setting) + [(eq? (drracket:language-configuration:language-settings-language prefs-setting) module-language) - (drscheme:language-configuration:language-settings-settings prefs-setting)] + (drracket:language-configuration:language-settings-settings prefs-setting)] [else (and module-language (send module-language default-settings))]))]) @@ -909,7 +909,7 @@ module browser threading seems wrong. [frame (and canvas (send canvas get-top-level-window))]) (when (is-a? frame -frame<%>) (let* ([language-settings (send (send frame get-definitions-text) get-next-settings)] - [new-language (drscheme:language-configuration:language-settings-language language-settings)] + [new-language (drracket:language-configuration:language-settings-language language-settings)] [capability-info (send new-language capability-value 'drscheme:define-popup)]) (when capability-info (let* ([current-pos (get-pos editor event)] @@ -951,26 +951,26 @@ module browser threading seems wrong. (init-field frame) (unless (is-a? frame -frame<%>) - (error 'func-defs-canvas "frame is not a drscheme:unit:frame<%>")) + (error 'func-defs-canvas "frame is not a drracket:unit:frame<%>")) - (define sort-by-name? (preferences:get 'drscheme:defns-popup-sort-by-name?)) + (define sort-by-name? (preferences:get 'drracket:defns-popup-sort-by-name?)) (define sorting-name (if sort-by-name? (string-constant sort-by-position) (string-constant sort-by-name))) (define/private (change-sorting-order) (set! sort-by-name? (not sort-by-name?)) - (preferences:set 'drscheme:defns-popup-sort-by-name? sort-by-name?) + (preferences:set 'drracket:defns-popup-sort-by-name? sort-by-name?) (set! sorting-name (if sort-by-name? (string-constant sort-by-position) (string-constant sort-by-name)))) - (define drscheme:define-popup-capability-info - (drscheme:language:get-capability-default 'drscheme:define-popup)) + (define define-popup-capability-info + (drracket:language:get-capability-default 'drscheme:define-popup)) (inherit set-message set-hidden?) (define/public (language-changed new-language vertical?) - (set! drscheme:define-popup-capability-info (send new-language capability-value 'drscheme:define-popup)) - (let ([define-name (get-drscheme:define-popup-name drscheme:define-popup-capability-info + (set! define-popup-capability-info (send new-language capability-value 'drscheme:define-popup)) + (let ([define-name (get-define-popup-name define-popup-capability-info vertical?)]) (cond [define-name @@ -979,9 +979,9 @@ module browser threading seems wrong. [else (set-hidden? #t)]))) (define/override (fill-popup menu reset) - (when drscheme:define-popup-capability-info + (when define-popup-capability-info (let* ([text (send frame get-definitions-text)] - [unsorted-defns (get-definitions (car drscheme:define-popup-capability-info) + [unsorted-defns (get-definitions (car define-popup-capability-info) (not sort-by-name?) text)] [defns (if sort-by-name? @@ -1178,7 +1178,7 @@ module browser threading seems wrong. (length (send unit-frame get-definitions-canvases)) (length (send unit-frame get-interactions-canvases))) (= 2 (length percentages))) - (preferences:set 'drscheme:unit-window-size-percentage (car percentages)))) + (preferences:set 'drracket:unit-window-size-percentage (car percentages)))) (inner (void) after-percentage-change)) (super-new))) @@ -1186,8 +1186,8 @@ module browser threading seems wrong. (define horizontal-dragable/def-int% (dragable/def-int-mixin panel:horizontal-dragable%)) (define super-frame% - (drscheme:frame:mixin - (drscheme:frame:basics-mixin + (drracket:frame:mixin + (drracket:frame:basics-mixin (frame:searchable-text-mixin (frame:searchable-mixin (frame:text-info-mixin @@ -1203,7 +1203,7 @@ module browser threading seems wrong. frame%))))))))))))))) (define tab% - (class* object% (drscheme:rep:context<%> tab<%>) + (class* object% (drracket:rep:context<%> tab<%>) (init-field frame defs i @@ -1385,7 +1385,7 @@ module browser threading seems wrong. show-planet-status) (define -frame<%> - (interface (drscheme:frame:<%> frame:searchable-text<%> frame:delegate<%> frame:open-here<%>) + (interface (drracket:frame:<%> frame:searchable-text<%> frame:delegate<%> frame:open-here<%>) get-insert-menu get-special-menu get-interactions-text @@ -1416,7 +1416,7 @@ module browser threading seems wrong. (define frame-mixin - (mixin (drscheme:frame:<%> frame:searchable-text<%> frame:delegate<%> frame:open-here<%>) + (mixin (drracket:frame:<%> frame:searchable-text<%> frame:delegate<%> frame:open-here<%>) (-frame<%>) (init filename) (inherit set-label-prefix get-show-menu @@ -1494,7 +1494,7 @@ module browser threading seems wrong. (define logger-menu-item #f) (define/public-final (show/hide-log show?) - (let ([p (preferences:get 'drscheme:logging-size-percentage)]) + (let ([p (preferences:get 'drracket:logging-size-percentage)]) (begin-container-sequence) (cond [logger-gui-tab-panel @@ -1528,9 +1528,9 @@ module browser threading seems wrong. [parent logger-panel] [callback (λ (tp evt) - (preferences:set 'drscheme:logger-gui-tab-panel-level (send logger-gui-tab-panel get-selection)) + (preferences:set 'drracket:logger-gui-tab-panel-level (send logger-gui-tab-panel get-selection)) (update-logger-window #f))])) - (send logger-gui-tab-panel set-selection (preferences:get 'drscheme:logger-gui-tab-panel-level)) + (send logger-gui-tab-panel set-selection (preferences:get 'drracket:logger-gui-tab-panel-level)) (new-logger-text) (set! logger-gui-canvas (new editor-canvas% [parent logger-gui-tab-panel] [editor logger-gui-text])) @@ -1635,7 +1635,7 @@ module browser threading seems wrong. (unless planet-message (new message% [parent planet-status-panel] - [label drscheme:debug:small-planet-bitmap]) + [label drracket:debug:small-planet-bitmap]) (set! planet-message (new message% [parent planet-status-panel] [label ""] [stretchable-width #t])) (set! planet-logger-button (new button% @@ -1778,12 +1778,12 @@ module browser threading seems wrong. #t)]))))) (define/override (make-root-area-container cls parent) - (let* ([saved-p (preferences:get 'drscheme:module-browser-size-percentage)] - [saved-p2 (preferences:get 'drscheme:logging-size-percentage)] + (let* ([saved-p (preferences:get 'drracket:module-browser-size-percentage)] + [saved-p2 (preferences:get 'drracket:logging-size-percentage)] [_module-browser-parent-panel (super make-root-area-container (make-two-way-prefs-dragable-panel% panel:horizontal-dragable% - 'drscheme:module-browser-size-percentage) + 'drracket:module-browser-size-percentage) parent)] [_module-browser-panel (new vertical-panel% (parent _module-browser-parent-panel) @@ -1792,7 +1792,7 @@ module browser threading seems wrong. [planet-status-outer-panel (new vertical-panel% [parent _module-browser-parent-panel])] [execute-warning-outer-panel (new vertical-panel% [parent planet-status-outer-panel])] [logger-outer-panel (new (make-two-way-prefs-dragable-panel% panel:vertical-dragable% - 'drscheme:logging-size-percentage) + 'drracket:logging-size-percentage) [parent execute-warning-outer-panel])] [trans-outer-panel (new vertical-panel% [parent logger-outer-panel])] [root (make-object cls trans-outer-panel)]) @@ -1821,13 +1821,13 @@ module browser threading seems wrong. (send planet-status-parent-panel change-children (λ (l) (remq planet-status-panel l))) (unless (toolbar-shown?) (send transcript-parent-panel change-children (λ (l) '()))) - (preferences:set 'drscheme:module-browser-size-percentage saved-p) - (preferences:set 'drscheme:logging-size-percentage saved-p2) + (preferences:set 'drracket:module-browser-size-percentage saved-p) + (preferences:set 'drracket:logging-size-percentage saved-p2) root)) (inherit show-info hide-info is-info-hidden?) - (field [toolbar-state (preferences:get 'drscheme:toolbar-state)] + (field [toolbar-state (preferences:get 'drracket:toolbar-state)] [toolbar-top-menu-item #f] [toolbar-left-menu-item #f] [toolbar-right-menu-item #f] @@ -1839,7 +1839,7 @@ module browser threading seems wrong. (define/private (change-toolbar-state new-state) (set! toolbar-state new-state) - (preferences:set 'drscheme:toolbar-state new-state) + (preferences:set 'drracket:toolbar-state new-state) (update-toolbar-visibility)) (define/override (on-toolbar-button-click) (change-toolbar-state (cons (not (car toolbar-state)) (cdr toolbar-state)))) @@ -1870,18 +1870,18 @@ module browser threading seems wrong. (update-defs/ints-resize-corner)) (define/private (toolbar-is-hidden?) - (car (preferences:get 'drscheme:toolbar-state))) + (car (preferences:get 'drracket:toolbar-state))) (define/private (toolbar-is-top?) (and (not (toolbar-is-hidden?)) - (eq? (cdr (preferences:get 'drscheme:toolbar-state)) + (eq? (cdr (preferences:get 'drracket:toolbar-state)) 'top))) (define/private (toolbar-is-right?) (and (not (toolbar-is-hidden?)) - (eq? (cdr (preferences:get 'drscheme:toolbar-state)) + (eq? (cdr (preferences:get 'drracket:toolbar-state)) 'right))) (define/private (toolbar-is-left?) (and (not (toolbar-is-hidden?)) - (eq? (cdr (preferences:get 'drscheme:toolbar-state)) + (eq? (cdr (preferences:get 'drracket:toolbar-state)) 'left))) (define/private (orient/show bar-at-beginning?) @@ -1915,8 +1915,8 @@ module browser threading seems wrong. (send transcript-parent-panel change-children (λ (l) (list transcript-panel))) (let* ([settings (send definitions-text get-next-settings)] - [language (drscheme:language-configuration:language-settings-language settings)] - [name (get-drscheme:define-popup-name (send language capability-value 'drscheme:define-popup) + [language (drracket:language-configuration:language-settings-language settings)] + [name (get-define-popup-name (send language capability-value 'drscheme:define-popup) vertical?)]) (when name (send func-defs-canvas set-message #f name))) @@ -2040,13 +2040,13 @@ module browser threading seems wrong. (define/public (language-changed) (let* ([settings (send definitions-text get-next-settings)] - [language (drscheme:language-configuration:language-settings-language settings)]) + [language (drracket:language-configuration:language-settings-language settings)]) (send func-defs-canvas language-changed language (or (toolbar-is-left?) (toolbar-is-right?))) (send language-message set-yellow/lang (not (send definitions-text this-and-next-language-the-same?)) (string-append (send language get-language-name) (if (send language default-settings? - (drscheme:language-configuration:language-settings-settings settings)) + (drracket:language-configuration:language-settings-settings settings)) "" (string-append " " (string-constant custom))))) (when (is-a? scheme-menu menu%) @@ -2179,7 +2179,7 @@ module browser threading seems wrong. candidate)) candidate-prefixes))) - [define/override get-canvas% (λ () (drscheme:get/extend:get-definitions-canvas))] + [define/override get-canvas% (λ () (drracket:get/extend:get-definitions-canvas))] (define/public (update-running running?) (send running-canvas set-running running?)) @@ -2203,7 +2203,7 @@ module browser threading seems wrong. (toggle-show/hide-interactions) (update-shown))) - (define/override (get-editor%) (drscheme:get/extend:get-definitions-text)) + (define/override (get-editor%) (drracket:get/extend:get-definitions-text)) (define/public (still-untouched?) (and (send definitions-text still-untouched?) (let* ([prompt (send interactions-text get-prompt)] @@ -2274,13 +2274,13 @@ module browser threading seems wrong. (for-each (λ (mode) (let* ([item (new checkable-menu-item% - (label (drscheme:modes:mode-name mode)) + (label (drracket:modes:mode-name mode)) (parent menu) (callback (λ (_1 _2) (send definitions-text set-current-mode mode))))]) (when (send definitions-text is-current-mode? mode) (send item check #t)))) - (drscheme:modes:get-modes)))))) + (drracket:modes:get-modes)))))) @@ -2318,14 +2318,14 @@ module browser threading seems wrong. (handle-split canvas-to-be-split (λ (x) (set! definitions-canvases x)) definitions-canvases - (drscheme:get/extend:get-definitions-canvas) + (drracket:get/extend:get-definitions-canvas) definitions-text)) (define/private (split-interactions canvas-to-be-split) (handle-split canvas-to-be-split (λ (x) (set! interactions-canvases x)) interactions-canvases - (drscheme:get/extend:get-interactions-canvas) + (drracket:get/extend:get-interactions-canvas) interactions-text)) (define/private (handle-split canvas-to-be-split set-canvases! canvases canvas% text) @@ -2587,7 +2587,7 @@ module browser threading seems wrong. (list interactions-canvases definitions-canvases))] [old-children (send resizable-panel get-children)] - [p (preferences:get 'drscheme:unit-window-size-percentage)]) + [p (preferences:get 'drracket:unit-window-size-percentage)]) (update-defs/ints-resize-corner) (send definitions-item set-label (if definitions-shown? @@ -2602,7 +2602,7 @@ module browser threading seems wrong. ;; this might change the unit-window-size-percentage, so save/restore it (send resizable-panel change-children (λ (l) new-children)) - (preferences:set 'drscheme:unit-window-size-percentage p) + (preferences:set 'drracket:unit-window-size-percentage p) ;; restore preferred interactions/definitions sizes (when (and (= 1 (length definitions-canvases)) (= 1 (length interactions-canvases)) @@ -2685,18 +2685,18 @@ module browser threading seems wrong. ;; if the language is not-a-language, and the buffer looks like a module, ;; automatically make the switch to the module language (let ([next-settings (send definitions-text get-next-settings)]) - (when (is-a? (drscheme:language-configuration:language-settings-language next-settings) - drscheme:language-configuration:not-a-language-language<%>) + (when (is-a? (drracket:language-configuration:language-settings-language next-settings) + drracket:language-configuration:not-a-language-language<%>) (when (looks-like-module? definitions-text) (let-values ([(module-language module-language-settings) (get-module-language/settings)]) (when (and module-language module-language-settings) (send definitions-text set-next-settings - (drscheme:language-configuration:make-language-settings + (drracket:language-configuration:make-language-settings module-language module-language-settings))))))) (check-if-save-file-up-to-date) - (when (preferences:get 'drscheme:show-interactions-on-execute) + (when (preferences:get 'drracket:show-interactions-on-execute) (ensure-rep-shown interactions-text)) (when transcript (record-definitions) @@ -2747,9 +2747,9 @@ module browser threading seems wrong. (inherit is-maximized?) (define/override (on-size w h) (unless (is-maximized?) - (preferences:set 'drscheme:unit-window-width w) - (preferences:set 'drscheme:unit-window-height h)) - (preferences:set 'drscheme:unit-window-max? (is-maximized?)) + (preferences:set 'drracket:unit-window-width w) + (preferences:set 'drracket:unit-window-height h)) + (preferences:set 'drracket:unit-window-max? (is-maximized?)) (super on-size w h)) (define on-move-timer-args #f) @@ -2766,7 +2766,7 @@ module browser threading seems wrong. (λ () (set! on-move-timer #f) (set! on-move-timer-args #f) - (preferences:set 'drscheme:frame:initial-position on-move-timer-args))] + (preferences:set 'drracket:frame:initial-position on-move-timer-args))] [interval 1000] [just-once? #t]))])) @@ -2777,7 +2777,7 @@ module browser threading seems wrong. (define/private (initialize-definitions-canvas) (unless definitions-canvas (set! definitions-canvas - (new (drscheme:get/extend:get-definitions-canvas) + (new (drracket:get/extend:get-definitions-canvas) (parent resizable-panel) (editor definitions-text))))) @@ -2815,15 +2815,15 @@ module browser threading seems wrong. ;; creates a new tab and updates the GUI for that new tab (define/private create-new-tab (lambda ([filename #f]) - (let* ([defs (new (drscheme:get/extend:get-definitions-text))] + (let* ([defs (new (drracket:get/extend:get-definitions-text))] [tab-count (length tabs)] - [new-tab (new (drscheme:get/extend:get-tab) + [new-tab (new (drracket:get/extend:get-tab) (defs defs) (i tab-count) (frame this) (defs-shown? #t) (ints-shown? (not filename)))] - [ints (make-object (drscheme:get/extend:get-interactions-text) new-tab)]) + [ints (make-object (drracket:get/extend:get-interactions-text) new-tab)]) (send new-tab set-ints ints) (set! tabs (append tabs (list new-tab))) (send tabs-panel append @@ -3244,10 +3244,10 @@ module browser threading seems wrong. (define/private (can-browse-language?) (let* ([lang/config (send (get-definitions-text) get-next-settings)] - [lang (drscheme:language-configuration:language-settings-language lang/config)] + [lang (drracket:language-configuration:language-settings-language lang/config)] [strs (send lang get-language-position)] [can-browse? - (or (is-a? lang drscheme:module-language:module-language<%>) + (or (is-a? lang drracket:module-language:module-language<%>) (ormap (λ (x) (regexp-match #rx"PLT" x)) strs))]) (unless can-browse? @@ -3260,7 +3260,7 @@ module browser threading seems wrong. (send module-browser-panel begin-container-sequence) (unless module-browser-ec (set! module-browser-pb - (drscheme:module-overview:make-module-overview-pasteboard + (drracket:module-overview:make-module-overview-pasteboard #t (λ (x) (mouse-currently-over x)))) (set! module-browser-ec (make-object editor-canvas% @@ -3272,13 +3272,13 @@ module browser threading seems wrong. (if (send cb get-value) (send module-browser-pb show-visible-paths key) (send module-browser-pb remove-visible-paths key)) - (preferences:set 'drscheme:module-browser:hide-paths (send module-browser-pb get-hidden-paths)))] + (preferences:set 'drracket:module-browser:hide-paths (send module-browser-pb get-hidden-paths)))] [mk-checkbox (λ (key label) (new check-box% (parent module-browser-panel) (label label) - (value (not (memq key (preferences:get 'drscheme:module-browser:hide-paths)))) + (value (not (memq key (preferences:get 'drracket:module-browser:hide-paths)))) (callback (λ (cb _) (show-callback cb key)))))]) @@ -3293,14 +3293,14 @@ module browser threading seems wrong. (string-constant module-browser-name-medium) (string-constant module-browser-name-long) (string-constant module-browser-name-very-long))) - (selection (preferences:get 'drscheme:module-browser:name-length)) + (selection (preferences:get 'drracket:module-browser:name-length)) (callback (λ (x y) (let ([selection (send module-browser-name-length-choice get-selection)]) - (preferences:set 'drscheme:module-browser:name-length selection) + (preferences:set 'drracket:module-browser:name-length selection) (update-module-browser-name-length selection)))))) (update-module-browser-name-length - (preferences:get 'drscheme:module-browser:name-length)) + (preferences:get 'drracket:module-browser:name-length)) (set! module-browser-button (new button% @@ -3309,7 +3309,7 @@ module browser threading seems wrong. (callback (λ (x y) (update-module-browser-pane))) (stretchable-width #t)))) - (let ([p (preferences:get 'drscheme:module-browser-size-percentage)]) + (let ([p (preferences:get 'drracket:module-browser-size-percentage)]) (send module-browser-parent-panel change-children (λ (l) (cons module-browser-panel @@ -3349,9 +3349,9 @@ module browser threading seems wrong. (send module-browser-planet-path-check-box enable #f) (send module-browser-name-length-choice enable #f) (disable-evaluation-in-tab current-tab) - (drscheme:module-overview:fill-pasteboard + (drracket:module-overview:fill-pasteboard module-browser-pb - (drscheme:language:make-text/pos + (drracket:language:make-text/pos definitions-text 0 (send definitions-text last-position)) @@ -3570,7 +3570,7 @@ module browser threading seems wrong. (define/private (get-current-capability-value key) (let* ([language-settings (send (get-definitions-text) get-next-settings)] - [new-language (drscheme:language-configuration:language-settings-language language-settings)]) + [new-language (drracket:language-configuration:language-settings-language language-settings)]) (send new-language capability-value key))) (define language-menu 'uninited-language-menu) @@ -3580,7 +3580,7 @@ module browser threading seems wrong. (define/public (get-special-menu) insert-menu) (define/public (choose-language-callback) - (let ([new-settings (drscheme:language-configuration:language-dialog + (let ([new-settings (drracket:language-configuration:language-dialog #f (send definitions-text get-next-settings) this)]) @@ -3593,15 +3593,15 @@ module browser threading seems wrong. (let ([tp-callbacks (get-current-capability-value 'drscheme:teachpack-menu-items)]) (cond [tp-callbacks - (let* ([language (drscheme:language-configuration:language-settings-language + (let* ([language (drracket:language-configuration:language-settings-language (send (get-definitions-text) get-next-settings))] - [settings (drscheme:language-configuration:language-settings-settings + [settings (drracket:language-configuration:language-settings-settings (send (get-definitions-text) get-next-settings))] [tp-names ((teachpack-callbacks-get-names tp-callbacks) settings)] [update-settings (λ (settings) (send (get-definitions-text) set-next-settings - (drscheme:language-configuration:make-language-settings language settings)) + (drracket:language-configuration:make-language-settings language settings)) (send (get-definitions-text) teachpack-changed))]) (set! teachpack-items (list* @@ -3648,7 +3648,7 @@ module browser threading seems wrong. (and (send l capability-value 'drscheme:teachpack-menu-items) (format "\n ~a" (send l get-language-name)))) - (drscheme:language-configuration:get-languages)))))) + (drracket:language-configuration:get-languages)))))) this))])))]))) (define/private (initialize-menus) @@ -3660,7 +3660,7 @@ module browser threading seems wrong. #f language-menu-on-demand))] [_ (set! scheme-menu (new (get-menu%) - [label (drscheme:language:get-capability-default + [label (drracket:language:get-capability-default 'drscheme:language-menu-title)] [parent mb]))] [send-method @@ -3712,10 +3712,10 @@ module browser threading seems wrong. (when num (cond [(eq? num #t) - (preferences:set 'drscheme:child-only-memory-limit #f) + (preferences:set 'drracket:child-only-memory-limit #f) (send interactions-text set-custodian-limit #f)] [else - (preferences:set 'drscheme:child-only-memory-limit + (preferences:set 'drracket:child-only-memory-limit (* 1024 1024 num)) (send interactions-text set-custodian-limit (* 1024 1024 num))]))))])) @@ -3739,7 +3739,7 @@ module browser threading seems wrong. (make-object menu:can-restore-menu-item% (string-constant module-browser...) scheme-menu - (λ (x y) (drscheme:module-overview:module-overview this))) + (λ (x y) (drracket:module-overview:module-overview this))) (make-object separator-menu-item% scheme-menu) (let ([cap-val @@ -3747,7 +3747,7 @@ module browser threading seems wrong. (let* ([tab (get-current-tab)] [defs (send tab get-defs)] [settings (send defs get-next-settings)] - [language (drscheme:language-configuration:language-settings-language settings)]) + [language (drracket:language-configuration:language-settings-language settings)]) (send language capability-value 'drscheme:tabify-menu-callback)))]) (new menu:can-restore-menu-item% [label (string-constant reindent-menu-item-label)] @@ -3838,7 +3838,7 @@ module browser threading seems wrong. (let ([language-settings (send definitions-text get-next-settings)]) (let-values ([(comment-prefix comment-character) (if language-settings - (send (drscheme:language-configuration:language-settings-language + (send (drracket:language-configuration:language-settings-language language-settings) get-comment-character) (values ";" #\;))]) @@ -3912,10 +3912,10 @@ module browser threading seems wrong. ; ; - (define definitions-text (new (drscheme:get/extend:get-definitions-text))) + (define definitions-text (new (drracket:get/extend:get-definitions-text))) ;; tabs : (listof tab) - (define tabs (list (new (drscheme:get/extend:get-tab) + (define tabs (list (new (drracket:get/extend:get-tab) (defs definitions-text) (frame this) (i 0) @@ -3927,7 +3927,7 @@ module browser threading seems wrong. ;; corresponds to the tabs-panel's active button. (define current-tab (car tabs)) - (define interactions-text (new (drscheme:get/extend:get-interactions-text) + (define interactions-text (new (drracket:get/extend:get-interactions-text) (context (car tabs)))) (send (car tabs) set-ints interactions-text) @@ -3936,10 +3936,10 @@ module browser threading seems wrong. (super-new (filename filename) (style '(toolbar-button)) - (width (preferences:get 'drscheme:unit-window-width)) - (height (preferences:get 'drscheme:unit-window-height))) + (width (preferences:get 'drracket:unit-window-width)) + (height (preferences:get 'drracket:unit-window-height))) (inherit maximize) - (when (preferences:get 'drscheme:unit-window-max?) + (when (preferences:get 'drracket:unit-window-max?) (maximize #t)) (initialize-menus) @@ -3989,7 +3989,7 @@ module browser threading seems wrong. (let ([sel (send tabs-panel get-selection)]) (when sel (change-to-nth-tab sel))))))) - [define resizable-panel (new (if (preferences:get 'drscheme:defs/ints-horizontal) + [define resizable-panel (new (if (preferences:get 'drracket:defs/ints-horizontal) horizontal-dragable/def-int% vertical-dragable/def-int%) (unit-frame this) @@ -3998,7 +3998,7 @@ module browser threading seems wrong. [define definitions-canvas #f] (initialize-definitions-canvas) [define definitions-canvases (list definitions-canvas)] - [define interactions-canvas (new (drscheme:get/extend:get-interactions-canvas) + [define interactions-canvas (new (drracket:get/extend:get-interactions-canvas) (parent resizable-panel) (editor interactions-text))] [define interactions-canvases (list interactions-canvas)] @@ -4062,10 +4062,10 @@ module browser threading seems wrong. (if (null? v) (send bug-icon show #f) (send bug-icon show #t))) - (set-bug-label (preferences:get 'drscheme:saved-bug-reports)) + (set-bug-label (preferences:get 'drracket:saved-bug-reports)) (define remove-bug-icon-callback (preferences:add-callback - 'drscheme:saved-bug-reports + 'drracket:saved-bug-reports (λ (p v) (set-bug-label v)))) @@ -4133,15 +4133,15 @@ module browser threading seems wrong. (when (= 2 (length (send resizable-panel get-children))) (send resizable-panel set-percentages - (let ([p (preferences:get 'drscheme:unit-window-size-percentage)]) + (let ([p (preferences:get 'drracket:unit-window-size-percentage)]) (list p (- 1 p))))) (set-label-prefix (string-constant drscheme)) (set! newest-frame this) (send definitions-canvas focus))) - ;; get-drscheme:define-popup-name : (or/c #f (cons/c string? string?) (list/c string? string? string)) boolean -> (or/c #f string?) - (define (get-drscheme:define-popup-name info vertical?) + ;; get-define-popup-name : (or/c #f (cons/c string? string?) (list/c string? string? string)) boolean -> (or/c #f string?) + (define (get-define-popup-name info vertical?) (and info (if vertical? (if (pair? (cdr info)) @@ -4424,7 +4424,7 @@ module browser threading seems wrong. [marshalled-settings (cdr name/settings)] [lang (ormap (λ (l) (and (equal? (send l get-language-name) name) l)) - (drscheme:language-configuration:get-languages))]) + (drracket:language-configuration:get-languages))]) (when lang ;; this test can fail when a language has been added wrongly via the tools interface ;; just ignore that menu item, in that case. @@ -4439,10 +4439,10 @@ module browser threading seems wrong. (λ (x y) (send (send frame get-definitions-text) set-next-settings - (drscheme:language-configuration:make-language-settings + (drracket:language-configuration:make-language-settings lang settings)))])))))) - (preferences:get 'drscheme:recent-language-names)) + (preferences:get 'drracket:recent-language-names)) (unless added-one? (send (new menu-item% [label (string-append @@ -4493,9 +4493,9 @@ module browser threading seems wrong. ;; record-saved-bug-report : (listof (cons symbol string)) -> void ;; =Kernel= =Handler= (define (record-saved-bug-report table) - (let ([recorded (preferences:get 'drscheme:saved-bug-reports)]) + (let ([recorded (preferences:get 'drracket:saved-bug-reports)]) (unless (member table recorded) - (preferences:set 'drscheme:saved-bug-reports (shorten-to (cons table recorded) 15))))) + (preferences:set 'drracket:saved-bug-reports (shorten-to (cons table recorded) 15))))) ;; shorten-to : (listof X) number -> (listof X) ;; drops items from the end of the list to bring it back down to `n' items @@ -4528,12 +4528,12 @@ module browser threading seems wrong. [callback (λ (_1 _2) (send saved-bug-reports-window show #f) - (preferences:set 'drscheme:saved-bug-reports '()))] + (preferences:set 'drracket:saved-bug-reports '()))] [parent hp])) (void)))) (preferences:add-callback - 'drscheme:saved-bug-reports + 'drracket:saved-bug-reports (λ (p v) (when saved-bug-reports-window (when (send saved-bug-reports-window is-shown?) @@ -4592,7 +4592,7 @@ module browser threading seems wrong. (forget-saved-bug-report item) (send-url (url->string - (drscheme:debug:bug-info->ticket-url item))))] + (drracket:debug:bug-info->ticket-url item))))] [label (string-constant bug-track-report)])) (void))) pref) ;; reverse list so first elements end up on top of list @@ -4600,12 +4600,12 @@ module browser threading seems wrong. (send saved-bug-reports-window end-container-sequence)) (define (forget-saved-bug-report item) - (preferences:set 'drscheme:saved-bug-reports (remove item (preferences:get 'drscheme:saved-bug-reports)))) + (preferences:set 'drracket:saved-bug-reports (remove item (preferences:get 'drracket:saved-bug-reports)))) (define (show-saved-bug-reports-window) (init-saved-bug-reports-window) (unless (send saved-bug-reports-window is-shown?) - (refresh-saved-bug-reports-window (preferences:get 'drscheme:saved-bug-reports))) + (refresh-saved-bug-reports-window (preferences:get 'drracket:saved-bug-reports))) (send saved-bug-reports-window show #t)) @@ -4686,7 +4686,7 @@ module browser threading seems wrong. (begin0 newest-frame (set! newest-frame #f))] [(and name ;; only open a tab if we have a filename - (preferences:get 'drscheme:open-in-tabs)) + (preferences:get 'drracket:open-in-tabs)) (let ([fr (let loop ([frs (cons (send (group:get-the-frame-group) get-active-frame) (send (group:get-the-frame-group) get-frames))]) (cond @@ -4705,11 +4705,11 @@ module browser threading seems wrong. (define first-frame? #t) (define (create-new-drscheme-frame filename) - (let* ([drs-frame% (drscheme:get/extend:get-unit-frame)] + (let* ([drs-frame% (drracket:get/extend:get-unit-frame)] [frame (new drs-frame% (filename filename))]) (send (send frame get-interactions-text) initialize-console) (when first-frame? - (let ([pos (preferences:get 'drscheme:frame:initial-position)]) + (let ([pos (preferences:get 'drracket:frame:initial-position)]) (when pos (send frame move (car pos) (cdr pos))))) (send frame update-toolbar-visibility) diff --git a/collects/drscheme/sprof.ss b/collects/drscheme/sprof.rkt similarity index 100% rename from collects/drscheme/sprof.ss rename to collects/drscheme/sprof.rkt diff --git a/collects/drscheme/syncheck-drscheme-button.ss b/collects/drscheme/syncheck-drracket-button.rkt similarity index 78% rename from collects/drscheme/syncheck-drscheme-button.ss rename to collects/drscheme/syncheck-drracket-button.rkt index a4d7f28d30..59ca26373f 100644 --- a/collects/drscheme/syncheck-drscheme-button.ss +++ b/collects/drscheme/syncheck-drracket-button.rkt @@ -1,8 +1,8 @@ #lang racket/base -(require scheme/class - scheme/gui/base +(require racket/class + racket/gui/base string-constants/string-constant) -(provide syncheck-drscheme-button +(provide syncheck-drracket-button syncheck-bitmap syncheck:button-callback) @@ -10,7 +10,7 @@ (define syncheck-bitmap (make-object bitmap% (build-path (collection-path "icons") "syncheck.png") 'png/mask)) -(define syncheck-drscheme-button +(define syncheck-drracket-button (list (string-constant check-syntax) syncheck-bitmap diff --git a/collects/drscheme/syncheck-drscheme-button.rkt b/collects/drscheme/syncheck-drscheme-button.rkt new file mode 100644 index 0000000000..59ca26373f --- /dev/null +++ b/collects/drscheme/syncheck-drscheme-button.rkt @@ -0,0 +1,18 @@ +#lang racket/base +(require racket/class + racket/gui/base + string-constants/string-constant) +(provide syncheck-drracket-button + syncheck-bitmap + syncheck:button-callback) + +(define-local-member-name syncheck:button-callback) + +(define syncheck-bitmap (make-object bitmap% (build-path (collection-path "icons") "syncheck.png") 'png/mask)) + +(define syncheck-drracket-button + (list + (string-constant check-syntax) + syncheck-bitmap + (λ (drs-frame) (send drs-frame syncheck:button-callback)))) + diff --git a/collects/drscheme/syncheck.ss b/collects/drscheme/syncheck.rkt similarity index 98% rename from collects/drscheme/syncheck.ss rename to collects/drscheme/syncheck.rkt index 128cfa3496..c440d0868a 100644 --- a/collects/drscheme/syncheck.ss +++ b/collects/drscheme/syncheck.rkt @@ -27,7 +27,7 @@ If the namespace does not, they are colored the unbound color. syntax/toplevel syntax/boundmap mrlib/switchable-button - (prefix-in drscheme:arrow: drscheme/arrow) + (prefix-in drracket:arrow: drscheme/arrow) (prefix-in fw: framework/framework) mred framework @@ -38,7 +38,7 @@ If the namespace does not, they are colored the unbound color. net/uri-codec browser/external (for-syntax scheme/base) - "syncheck-drscheme-button.ss") + "syncheck-drracket-button.rkt") (provide tool@) (define o (current-output-port)) @@ -83,8 +83,8 @@ If the namespace does not, they are colored the unbound color. (define tool@ (unit - (import drscheme:tool^) - (export drscheme:tool-exports^) + (import drracket:tool^) + (export drracket:tool-exports^) ;; use this to communicate the frame being ;; syntax checked w/out having to add new @@ -92,15 +92,15 @@ If the namespace does not, they are colored the unbound color. (define currently-processing-definitions-text (make-parameter #f)) (define (phase1) - (drscheme:module-language-tools:add-opt-out-toolbar-button + (drracket:module-language-tools:add-opt-out-toolbar-button (λ (frame parent) (new switchable-button% (label (string-constant check-syntax)) (bitmap syncheck-bitmap) (parent parent) (callback (λ (button) (send frame syncheck:button-callback))))) - 'drscheme:syncheck) - (drscheme:unit:add-to-program-editor-mixin clearing-text-mixin)) + 'drracket:syncheck) + (drracket:unit:add-to-program-editor-mixin clearing-text-mixin)) (define (phase2) (void)) (define (printf . args) (apply fprintf o args)) @@ -200,7 +200,7 @@ If the namespace does not, they are colored the unbound color. (define/private (clean-up) (let ([st (find-syncheck-text this)]) (when (and st - (is-a? st drscheme:unit:definitions-text<%>)) + (is-a? st drracket:unit:definitions-text<%>)) (let ([tab (send st get-tab)]) (send tab syncheck:clear-error-message) (send tab syncheck:clear-highlighting))))) @@ -382,7 +382,7 @@ If the namespace does not, they are colored the unbound color. (set! cleanup-texts '()) (let ([f (get-top-level-window)]) (when f - (send f open-status-line 'drscheme:check-syntax:mouse-over)))) + (send f open-status-line 'drracket:check-syntax:mouse-over)))) ;; syncheck:clear-arrows : -> void (define/public (syncheck:clear-arrows) @@ -409,7 +409,7 @@ If the namespace does not, they are colored the unbound color. (update-docs-background #f) (let ([f (get-top-level-window)]) (when f - (send f close-status-line 'drscheme:check-syntax:mouse-over)))))) + (send f close-status-line 'drracket:check-syntax:mouse-over)))))) ;; syncheck:add-to-cleanup-texts : (is-a?/c text%) -> void (define/public (syncheck:add-to-cleanup-texts txt) @@ -551,7 +551,7 @@ If the namespace does not, they are colored the unbound color. [end-y (arrow-end-y arrow)]) (unless (and (= start-x end-x) (= start-y end-y)) - (drscheme:arrow:draw-arrow dc start-x start-y end-x end-y dx dy) + (drracket:arrow:draw-arrow dc start-x start-y end-x end-y dx dy) (when (and (var-arrow? arrow) (not (var-arrow-actual? arrow))) (let-values ([(fw fh _d _v) (send dc get-text-extent "x")]) (send dc draw-text "?" @@ -659,7 +659,7 @@ If the namespace does not, they are colored the unbound color. (set! cursor-eles #f) (let ([f (get-top-level-window)]) (when f - (send f update-status-line 'drscheme:check-syntax:mouse-over #f))) + (send f update-status-line 'drracket:check-syntax:mouse-over #f))) (invalidate-bitmap-cache)) (super on-event event)] [(or (send event moving?) @@ -690,7 +690,7 @@ If the namespace does not, they are colored the unbound color. (update-docs-background #f) (let ([f (get-top-level-window)]) (when f - (send f update-status-line 'drscheme:check-syntax:mouse-over #f))) + (send f update-status-line 'drracket:check-syntax:mouse-over #f))) (when (or cursor-location cursor-text) (set! cursor-location #f) (set! cursor-text #f) @@ -785,13 +785,13 @@ If the namespace does not, they are colored the unbound color. (let ([f (get-top-level-window)]) (when f (send f update-status-line - 'drscheme:check-syntax:mouse-over + 'drracket:check-syntax:mouse-over ele)))])) eles) (unless has-txt? (let ([f (get-top-level-window)]) (when f - (send f update-status-line 'drscheme:check-syntax:mouse-over #f)))))) + (send f update-status-line 'drracket:check-syntax:mouse-over #f)))))) (define current-colored-region #f) ;; update-docs-background : (or/c false/c (listof any)) -> void @@ -968,7 +968,7 @@ If the namespace does not, they are colored the unbound color. (define tab-mixin - (mixin (drscheme:unit:tab<%>) () + (mixin (drracket:unit:tab<%>) () (inherit is-current-tab? get-defs get-frame) (define report-error-text (new (fw:text:ports-mixin fw:scheme:text%))) @@ -1016,7 +1016,7 @@ If the namespace does not, they are colored the unbound color. (super-new))) (define unit-frame-mixin - (mixin (drscheme:unit:frame<%>) (syncheck-frame<%>) + (mixin (drracket:unit:frame<%>) (syncheck-frame<%>) (inherit get-button-panel get-definitions-canvas @@ -1035,8 +1035,8 @@ If the namespace does not, they are colored the unbound color. (define/private (update-button-visibility/tab tab) (update-button-visibility/settings (send (send tab get-defs) get-next-settings))) (define/public (update-button-visibility/settings settings) - (let* ([lang (drscheme:language-configuration:language-settings-language settings)] - [visible? (and (not (is-a? lang drscheme:module-language:module-language<%>)) + (let* ([lang (drracket:language-configuration:language-settings-language settings)] + [visible? (and (not (is-a? lang drracket:module-language:module-language<%>)) (send lang capability-value 'drscheme:check-syntax-button))]) (send check-syntax-button-parent-panel change-children (λ (l) @@ -1118,8 +1118,8 @@ If the namespace does not, they are colored the unbound color. [() (syncheck:button-callback #f)] [(jump-to-id) (when (send check-syntax-button is-enabled?) - (open-status-line 'drscheme:check-syntax) - (update-status-line 'drscheme:check-syntax status-init) + (open-status-line 'drracket:check-syntax) + (update-status-line 'drracket:check-syntax status-init) (ensure-rep-hidden) (let-values ([(expanded-expression expansion-completed) (make-traversal)]) (let* ([definitions-text (get-definitions-text)] @@ -1143,7 +1143,7 @@ If the namespace does not, they are colored the unbound color. (send the-tab set-breakables old-break-thread old-custodian) (send the-tab enable-evaluation) (send definitions-text end-edit-sequence) - (close-status-line 'drscheme:check-syntax) + (close-status-line 'drracket:check-syntax) ;; do this with some lag ... not great, but should be okay. (thread @@ -1186,14 +1186,14 @@ If the namespace does not, they are colored the unbound color. (λ () ;; =drs= ;; a call like this one also happens in - ;; drscheme:debug:error-display-handler/stacktrace + ;; drracket:debug:error-display-handler/stacktrace ;; but that call won't happen here, because ;; the rep is not in the current-rep parameter (send interactions-text highlight-errors/exn exn) (show-error-report/tab)))) - (drscheme:debug:error-display-handler/stacktrace + (drracket:debug:error-display-handler/stacktrace msg exn '() @@ -1207,7 +1207,7 @@ If the namespace does not, they are colored the unbound color. (λ (exn) (uncaught-exception-raised) (oh exn)))) - (update-status-line 'drscheme:check-syntax status-expanding-expression) + (update-status-line 'drracket:check-syntax status-expanding-expression) (set! user-custodian (current-custodian)) (set! user-directory (current-directory)) ;; set by set-directory above (set! user-namespace (current-namespace)))]) @@ -1220,8 +1220,8 @@ If the namespace does not, they are colored the unbound color. (send the-tab reset-offer-kill) (send (send the-tab get-defs) syncheck:init-arrows) - (drscheme:eval:expand-program - (drscheme:language:make-text/pos definitions-text 0 (send definitions-text last-position)) + (drracket:eval:expand-program + (drracket:language:make-text/pos definitions-text 0 (send definitions-text last-position)) (send definitions-text get-next-settings) #t init-proc @@ -1242,7 +1242,7 @@ If the namespace does not, they are colored the unbound color. (cleanup) (custodian-shutdown-all user-custodian))))] [else - (update-status-line 'drscheme:check-syntax status-eval-compile-time) + (update-status-line 'drracket:check-syntax status-eval-compile-time) (eval-compile-time-part-of-top-level sexp) (parameterize ([current-eventspace drs-eventspace]) (queue-callback @@ -1250,12 +1250,12 @@ If the namespace does not, they are colored the unbound color. (with-lock/edit-sequence definitions-text (λ () - (open-status-line 'drscheme:check-syntax) - (update-status-line 'drscheme:check-syntax status-coloring-program) + (open-status-line 'drracket:check-syntax) + (update-status-line 'drracket:check-syntax status-coloring-program) (parameterize ([currently-processing-definitions-text definitions-text]) (expanded-expression user-namespace user-directory sexp jump-to-id)) - (close-status-line 'drscheme:check-syntax)))))) - (update-status-line 'drscheme:check-syntax status-expanding-expression) + (close-status-line 'drracket:check-syntax)))))) + (update-status-line 'drracket:check-syntax status-expanding-expression) (loop)]))))))))))])) ;; set-directory : text -> void @@ -1344,9 +1344,9 @@ If the namespace does not, they are colored the unbound color. (send keymap map-function "c:x;n" "jump to next bound occurrence") (send keymap map-function "c:x;d" "jump to definition (in other file)")) - (define lexically-bound-variable-style-pref 'drscheme:check-syntax:lexically-bound) - (define imported-variable-style-pref 'drscheme:check-syntax:imported) - (define set!d-variable-style-pref 'drscheme:check-syntax:set!d) + (define lexically-bound-variable-style-pref 'drracket:check-syntax:lexically-bound) + (define imported-variable-style-pref 'drracket:check-syntax:imported) + (define set!d-variable-style-pref 'drracket:check-syntax:set!d) (define lexically-bound-variable-style-name (symbol->string lexically-bound-variable-style-pref)) (define imported-variable-style-name (symbol->string imported-variable-style-pref)) @@ -2312,7 +2312,7 @@ If the namespace does not, they are colored the unbound color. ;; possible-suffixes : (listof string) ;; these are the suffixes that are checked for the reverse ;; module-path mapping. - (define possible-suffixes '(".ss" ".scm" "")) + (define possible-suffixes '(".rkt" ".ss" ".scm" "")) ;; module-name-sym->filename : symbol -> (union #f string) (define (module-name-sym->filename sym) @@ -2547,7 +2547,7 @@ If the namespace does not, they are colored the unbound color. ;; add-to-cleanup-texts : (is-a?/c editor<%>) -> void (define (add-to-cleanup-texts ed) (let ([outermost (find-outermost-editor ed)]) - (and (is-a? outermost drscheme:unit:definitions-text<%>) + (and (is-a? outermost drracket:unit:definitions-text<%>) (send outermost syncheck:add-to-cleanup-texts ed)))) (define (find-outermost-editor ed) @@ -2886,10 +2886,10 @@ If the namespace does not, they are colored the unbound color. ; ; - (add-check-syntax-key-bindings (drscheme:rep:get-drs-bindings-keymap)) + (add-check-syntax-key-bindings (drracket:rep:get-drs-bindings-keymap)) (fw:color-prefs:add-to-preferences-panel (string-constant check-syntax) syncheck-add-to-preferences-panel) - (drscheme:language:register-capability 'drscheme:check-syntax-button (flat-contract boolean?) #t) - (drscheme:get/extend:extend-definitions-text make-syncheck-text%) - (drscheme:get/extend:extend-unit-frame unit-frame-mixin #f) - (drscheme:get/extend:extend-tab tab-mixin))) + (drracket:language:register-capability 'drscheme:check-syntax-button (flat-contract boolean?) #t) + (drracket:get/extend:extend-definitions-text make-syncheck-text%) + (drracket:get/extend:extend-unit-frame unit-frame-mixin #f) + (drracket:get/extend:extend-tab tab-mixin))) diff --git a/collects/drscheme/tool-lib.ss b/collects/drscheme/tool-lib.rkt similarity index 53% rename from collects/drscheme/tool-lib.ss rename to collects/drscheme/tool-lib.rkt index 8f8464faac..992434d25f 100644 --- a/collects/drscheme/tool-lib.ss +++ b/collects/drscheme/tool-lib.rkt @@ -2,82 +2,84 @@ #| -This first time this is loaded, it loads all of drscheme and invokes -the main unit, starting up drscheme. After that, it just provides +This first time this is loaded, it loads all of DrRacket and invokes +the main unit, starting up DrRacket. After that, it just provides all of the names in the tools library, for use defining keybindings |# -(require scheme/class - scheme/gui/base +(require racket/class + racket/gui/base (except-in scheme/unit struct) - scheme/contract - scheme/class + racket/contract + racket/class + ;; these have to be absolute requires for `include-extracted' to work with this file. drscheme/private/link drscheme/private/drsig + drscheme/private/language-object-contract framework framework/splash mrlib/switchable-button - scribble/srcdoc - drscheme/private/language-object-contract) + scribble/srcdoc) (require (for-syntax scheme/base)) -(require/doc drscheme/private/ts scheme/base scribble/manual) +(require/doc drscheme/private/ts ;; probably this also has to be an absolute require + scheme/base scribble/manual) (require/doc (for-label errortrace/errortrace-key scheme/pretty mzlib/pconvert)) -(define-values/invoke-unit/infer drscheme@) -(provide-signature-elements drscheme:tool-cm^) ;; provide all of the classes & interfaces +(define-values/invoke-unit/infer drracket@) +(provide-signature-elements drracket:tool-cm^) ;; provide all of the classes & interfaces -(provide drscheme:unit:program-editor-mixin) -(define-syntax (drscheme:unit:program-editor-mixin stx) +(provide drracket:unit:program-editor-mixin) +(define-syntax (drracket:unit:program-editor-mixin stx) (syntax-case stx () [(_ a ...) - #'((drscheme:unit:get-program-editor-mixin) a ...)] - [_ #'(drscheme:unit:get-program-editor-mixin)])) + #'((drracket:unit:get-program-editor-mixin) a ...)] + [_ #'(drracket:unit:get-program-editor-mixin)])) -(language-object-abstraction drscheme:language:object/c #t) +(language-object-abstraction drracket:language:object/c #t) (provide/doc (proc-doc/names - drscheme:module-language-tools:add-opt-out-toolbar-button + drracket:module-language-tools:add-opt-out-toolbar-button (-> (-> (is-a?/c top-level-window<%>) (is-a?/c area-container<%>) (is-a?/c switchable-button%)) symbol? void?) (make-button id) - @{Call this function to add another button to DrScheme's toolbar. When buttons are added this way, - DrScheme monitors the @tt{#lang} line at the top of the file; when it changes DrScheme queries + @{Call this function to add another button to DrRacket's toolbar. When buttons are added this way, + DrRacket monitors the @tt{#lang} line at the top of the file; when it changes DrRacket queries the language to see if this button should be included. These buttons are ``opt out'', meaning that if the language doesn't explicitly ask to not have this button (or all such buttons), the button will appear. @section-index["drscheme:opt-out-toolbar-buttons"] - See @scheme[read-language] for more details on how language's specify how to opt out. - DrScheme will invoke the @tt{get-info} proc from @scheme[read-language] with + See @racket[read-language] for more details on how language's specify how to opt out. + DrRacket will invoke the @tt{get-info} proc from @racket[read-language] with @tt{'drscheme:opt-out-toolbar-buttons}. If the result is a list of symbols, the - listed symbols are opted out. If the result is @scheme[#f], all buttons are opted + listed symbols are opted out. If the result is @racket[#f], all buttons are opted out. The default is the empty list, meaning that all opt-out buttons appear.. }) (proc-doc/names - drscheme:module-language:add-module-language + drracket:module-language:add-module-language (-> any) () - @{Adds the module language to DrScheme. This is called during DrScheme's startup.}) + @{Adds the module language to DrRacket. This is called during DrRacket's startup.}) (proc-doc/names - drscheme:module-language:module-language-put-file-mixin + drracket:module-language:module-language-put-file-mixin (-> (implementation?/c text:basic<%>) (implementation?/c text:basic<%>)) (super%) - @{Extends @scheme[super%] by overriding the @method[editor<%> put-file] method + @{Extends @racket[super%] by overriding the @method[editor<%> put-file] method to use a default name from the buffer, if the buffer contains something like @tt{(module name ...)}.}) @@ -101,50 +103,45 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:eval:set-basic-parameters + drracket:eval:set-basic-parameters (-> (listof (is-a?/c snip-class%)) void?) (snipclasses) @{sets the parameters that are shared between the repl's - initialization and @scheme[drscheme:eval:build-user-eventspace/custodian] + initialization and @racket[drracket:eval:build-user-eventspace/custodian] Specifically, it sets these parameters: @itemize[ - @item{ @scheme[current-namespace] has been set to a newly + @item{@racket[current-namespace] has been set to a newly created empty namespace. This namespace has the following modules - copied (with @scheme[namespace-attach-module]) - from DrScheme's original namespace: - @itemize[@item{@scheme['mzscheme]}@item{@scheme['mred]}] - }@item{ - @scheme[read-curly-brace-as-paren] - is @scheme[#t], - }@item{ - @scheme[read-square-bracket-as-paren] - is @scheme[#t], - }@item{ - @scheme[error-print-width] is set to 250. - }@item{ - @scheme[current-ps-setup] - is set to a newly created - @scheme[ps-setup%] - object. - }@item{ The @scheme[exit-handler] is set to - a parameter that kills the user's custodian. - }@item{ The snip-class-list, returned by - @scheme[get-the-snip-class-list] - is initialized with all of the snipclasses in DrScheme's eventspace's snip-class-list. - - }]}) + copied (with @racket[namespace-attach-module]) + from DrRacket's original namespace: + @itemize[@item{@racket['mzscheme]}@item{@racket['mred]}] + } + @item{@racket[read-curly-brace-as-paren] + is @racket[#t]; } + @item{@racket[read-square-bracket-as-paren] + is @racket[#t];} + @item{@racket[error-print-width] is set to 250;} + @item{@racket[current-ps-setup] + is set to a newly created + @racket[ps-setup%] + object;} + @item{the @racket[exit-handler] is set to + a parameter that kills the user's custodian; and} + @item{the snip-class-list, returned by + @racket[get-the-snip-class-list] + is initialized with all of the snipclasses in DrRacket's eventspace's snip-class-list.}]}) (proc-doc/names - drscheme:eval:get-snip-classes + drracket:eval:get-snip-classes (-> (listof (is-a?/c snip-class%))) () @{Returns a list of all of the snipclasses in the current eventspace.}) (proc-doc/names - drscheme:eval:expand-program - (-> (or/c port? drscheme:language:text/pos?) - drscheme:language-configuration:language-settings? + drracket:eval:expand-program + (-> (or/c port? drracket:language:text/pos?) + drracket:language-configuration:language-settings? boolean? (-> void?) (-> void?) @@ -158,60 +155,60 @@ all of the names in the tools library, for use defining keybindings window for use with external program processing tools. This function uses - @scheme[drscheme:eval:build-user-eventspace/custodian] + @racket[drracket:eval:build-user-eventspace/custodian] to build the user's environment. - The arguments @scheme[language-settings], @scheme[init], and - @scheme[kill-termination] are passed to - @scheme[drscheme:eval:build-user-eventspace/custodian]. + The arguments @racket[language-settings], @racket[init], and + @racket[kill-termination] are passed to + @racket[drracket:eval:build-user-eventspace/custodian]. - The @scheme[input] argument specifies the source of the program. + The @racket[input] argument specifies the source of the program. - The @scheme[eval-compile-time-part?] argument indicates if - @scheme[expand] + The @racket[eval-compile-time-part?] argument indicates if + @racket[expand] is called or if - @scheme[expand-top-level-with-compile-time-evals] + @racket[expand-top-level-with-compile-time-evals] is called when the program is expanded. Roughly speaking, if your tool will evaluate each expression itself by calling - @scheme[eval] - then pass @scheme[#f]. Otherwise, if your tool + @racket[eval] + then pass @racket[#f]. Otherwise, if your tool just processes the expanded program, be sure to pass - @scheme[#t]. + @racket[#t]. This function calls - @method[drscheme:language:language<%> front-end/complete-program] + @method[drracket:language:language<%> front-end/complete-program] to expand the program. Unlike when the @onscreen{Run} is clicked, however, it does not call - @method[drscheme:language:language<%> front-end/finished-complete-program]. + @method[drracket:language:language<%> front-end/finished-complete-program]. - The first argument to @scheme[iter] is the expanded program + The first argument to @racket[iter] is the expanded program (represented as syntax) or eof. - The @scheme[iter] argument is called for each expression in the + The @racket[iter] argument is called for each expression in the expanded program and once more with eof, unless an error is raised during expansion. It is called from the user's thread. If an exception is raised during expansion of the - user's program, @scheme[iter] is not called. - Consider setting the exception-handler during @scheme[init] to + user's program, @racket[iter] is not called. + Consider setting the exception-handler during @racket[init] to handle this situation. - The second argument to @scheme[iter] is a thunk that + The second argument to @racket[iter] is a thunk that continues expanding the rest of the contents of the - definitions window. If the first argument to @scheme[iter] was + definitions window. If the first argument to @racket[iter] was eof, this argument is just the primitive - @scheme[void]. + @racket[void]. See also - @scheme[drscheme:eval:expand-program/multiple].}) + @racket[drracket:eval:expand-program/multiple].}) (proc-doc/names - drscheme:eval:traverse-program/multiple - (drscheme:language-configuration:language-settings? + drracket:eval:traverse-program/multiple + (drracket:language-configuration:language-settings? (-> void?) (-> void?) . -> . - ((or/c port? drscheme:language:text/pos?) + ((or/c port? drracket:language:text/pos?) ((or/c eof-object? syntax? (cons/c string? any/c)) (-> any) . -> . @@ -222,19 +219,19 @@ all of the names in the tools library, for use defining keybindings (language-settings init kill-termination) @{This function is similar to - @scheme[drscheme:eval:expand-program/multiple] + @racket[drracket:eval:expand-program/multiple] The only difference is that it does not expand the program in the editor; instead the processing function can decide how to expand the program.}) (proc-doc/names - drscheme:eval:expand-program/multiple - (-> drscheme:language-configuration:language-settings? + drracket:eval:expand-program/multiple + (-> drracket:language-configuration:language-settings? boolean? (-> void?) (-> void?) - (-> (or/c port? drscheme:language:text/pos?) + (-> (or/c port? drracket:language:text/pos?) (-> (or/c eof-object? syntax? (cons/c string? any/c)) (-> any) any) @@ -243,7 +240,7 @@ all of the names in the tools library, for use defining keybindings (language-settings eval-compile-time-part? init kill-termination) @{This function is just like - @scheme[drscheme:eval:expand-program] + @racket[drracket:eval:expand-program] except that it is curried and the second application can be used multiple times. Use this function if you want to initialize the user's @@ -252,14 +249,14 @@ all of the names in the tools library, for use defining keybindings The extra boolean argument to the result function determines if - @scheme[drscheme:language:language front-end/complete-program<%>] + @racket[drracket:language:language front-end/complete-program<%>] or - @scheme[drscheme:language:language front-end/interaction<%>] + @racket[drracket:language:language front-end/interaction<%>] is called.}) (proc-doc/names - drscheme:eval:build-user-eventspace/custodian - (->* (drscheme:language-configuration:language-settings? + drracket:eval:build-user-eventspace/custodian + (->* (drracket:language-configuration:language-settings? (-> void?) (-> void?)) () @@ -269,50 +266,50 @@ all of the names in the tools library, for use defining keybindings @{This function creates a custodian and an eventspace (on the new custodian) to expand the user's program. It does not kill this custodian, but it can safely be shutdown (with - @scheme[custodian-shutdown-all]) after the + @racket[custodian-shutdown-all]) after the expansion is finished. It initializes the user's eventspace's main thread with several parameters: @itemize[ - @item{ @scheme[current-custodian] is set to a new custodian. + @item{ @racket[current-custodian] is set to a new custodian. }@item{ In addition, it calls - @scheme[drscheme:eval:set-basic-parameters]. + @racket[drracket:eval:set-basic-parameters]. }] - The @scheme[language-settings] argument is the current + The @racket[language-settings] argument is the current language and its settings. See - @scheme[drscheme:language-configuration:make-language-settings] + @racket[drracket:language-configuration:make-language-settings] for details on that structure. - If the program is associated with a DrScheme + If the program is associated with a DrRacket frame, get the frame's language settings from the - @method[drscheme:unit:definitions-text<%> get-next-settings] + @method[drracket:unit:definitions-text<%> get-next-settings] method of - @scheme[drscheme:unit:definitions-text<%>]. Also, the most recently chosen language in + @racket[drracket:unit:definitions-text<%>]. Also, the most recently chosen language in the language dialog is saved via the framework's preferences. Apply - @scheme[preferences:get] + @racket[preferences:get] to - @scheme[drscheme:language-configuration:get-settings-preferences-symbol] - for that @scheme[language-settings]. + @racket[drracket:language-configuration:get-settings-preferences-symbol] + for that @racket[language-settings]. - The @scheme[init] argument is called after the user's parameters + The @racket[init] argument is called after the user's parameters are all set, but before the program is run. It is called on the user's thread. The - @scheme[current-directory] and - @scheme[current-load-relative-directory] + @racket[current-directory] and + @racket[current-load-relative-directory] parameters are not set, so if there are appropriate directories, - the @scheme[init] argument is a good place to set them. + the @racket[init] argument is a good place to set them. - The @scheme[kill-termination] argument is called when the main thread of + The @racket[kill-termination] argument is called when the main thread of the eventspace terminates, no matter if the custodian was shutdown, or the thread was killed. This procedure is also called when the thread terminates normally. This procedure is called from a new, dedicated thread (@italic{i. e.}, not the thread created to do the expansion, nor the thread that - @scheme[drscheme:eval:build-user-eventspace/custodian] was called from.)}) + @racket[drracket:eval:build-user-eventspace/custodian] was called from.)}) @@ -334,32 +331,32 @@ all of the names in the tools library, for use defining keybindings ; ;;;; (proc-doc/names - drscheme:debug:error-display-handler/stacktrace + drracket:debug:error-display-handler/stacktrace (->* (string? any/c) ((or/c false/c (listof srcloc?)) - #:definitions-text (or/c #f (is-a?/c drscheme:unit:definitions-text<%>)) - #:interactions-text (or/c #f (is-a?/c drscheme:rep:text<%>)) + #:definitions-text (or/c #f (is-a?/c drracket:unit:definitions-text<%>)) + #:interactions-text (or/c #f (is-a?/c drracket:rep:text<%>)) ) any/c) ((msg exn) ((stack #f) (defs #f) (ints #f))) @{Displays the error message represented by the string, adding - embellishments like those that appears in the DrScheme REPL, + embellishments like those that appears in the DrRacket REPL, specifically a clickable icon for the stack trace (if the srcloc location is not empty), and a clickable icon for the source of the error (read & syntax errors show their source locations and otherwise the first place in the stack trace is shown). - If @scheme[stack] is false, then the stack traces embedded in the @scheme[exn] argument (if any) are used. + If @racket[stack] is false, then the stack traces embedded in the @racket[exn] argument (if any) are used. Specifically, this function looks for a stacktrace via - @scheme[errortrace-key] in the continuation marks of @scheme[exn] and @scheme[continuation-mark-set->context]. + @racket[errortrace-key] in the continuation marks of @racket[exn] and @racket[continuation-mark-set->context]. - If @scheme[stack] is not false, that stack is added to the stacks already in the exception. + If @racket[stack] is not false, that stack is added to the stacks already in the exception. This should be called in the same eventspace and on the same thread as the error.}) (proc-doc/names - drscheme:debug:make-debug-error-display-handler + drracket:debug:make-debug-error-display-handler (-> (-> string? (or/c any/c exn?) any) (-> string? (or/c any/c exn?) any)) @@ -369,36 +366,36 @@ all of the names in the tools library, for use defining keybindings of another error-display-handler. See also MzScheme's - @scheme[error-display-handler] + @racket[error-display-handler] parameter. If the current-error-port is the definitions window in - drscheme, this error handler inserts some debugging - annotations, calls @scheme[oedh], and then highlights the + DrRacket, this error handler inserts some debugging + annotations, calls @racket[oedh], and then highlights the source location of the runtime error. It looks for both stack trace information in the continuation marks both via the @schememodname[errortrace/errortrace-key] module and via - @scheme[continuation-mark-set->context]. + @racket[continuation-mark-set->context]. }) (proc-doc/names - drscheme:debug:hide-backtrace-window + drracket:debug:hide-backtrace-window (-> void?) () @{Hides the backtrace window.}) (proc-doc/names - drscheme:debug:add-prefs-panel + drracket:debug:add-prefs-panel (-> void?) () @{Adds the profiling preferences panel.}) (proc-doc/names - drscheme:debug:open-and-highlight-in-file + drracket:debug:open-and-highlight-in-file (->* ((or/c srcloc? (listof srcloc?))) ((or/c #f (cons/c (λ (x) (and (weak-box? x) (let ([v (weak-box-value x)]) @@ -408,20 +405,20 @@ all of the names in the tools library, for use defining keybindings void?) ((debug-info) ((edition-pair #f))) - @{This function opens a DrScheme to display - @scheme[debug-info]. Only the src the position + @{This function opens a DrRacket to display + @racket[debug-info]. Only the src the position and the span fields of the srcloc are considered. - The @scheme[edition-pair] is used to determine if a + The @racket[edition-pair] is used to determine if a warning message is shown when before opening the file. - If the @scheme[edition-pair] is not @scheme[#f], it is compared + If the @racket[edition-pair] is not @racket[#f], it is compared with the result of @method[text:basic<%> get-edition-number] of the editor that is loaded to determine if the file has been edited since the source location was recorded. If so, it puts up a warning dialog message to that effect.}) (proc-doc/names - drscheme:debug:show-backtrace-window/edition-pairs + drracket:debug:show-backtrace-window/edition-pairs (-> string? (listof srcloc?) (listof (or/c #f (cons/c (λ (x) (and (weak-box? x) @@ -429,56 +426,56 @@ all of the names in the tools library, for use defining keybindings (or (not v) (is-a?/c v editor<%>))))) number?))) - (or/c #f (is-a?/c drscheme:unit:definitions-text<%>)) - (or/c #f (is-a?/c drscheme:rep:text<%>)) + (or/c #f (is-a?/c drracket:unit:definitions-text<%>)) + (or/c #f (is-a?/c drracket:rep:text<%>)) void?) (error-message dis editions-pairs defs ints) @{Shows the backtrace window you get when clicking on the bug in - DrScheme's REPL. + DrRacket's REPL. - The @scheme[error-message] argument is the text of the error, - @scheme[dis] is the debug information, extracted from the + The @racket[error-message] argument is the text of the error, + @racket[dis] is the debug information, extracted from the continuation mark in the exception record, using - @scheme[errortrace-key]. + @racket[errortrace-key]. - The @scheme[editions] argument indicates the editions of any editors + The @racket[editions] argument indicates the editions of any editors that are open editing the files corresponding to the source locations - The @scheme[defs] argument should be non-@scheme[#f] if there are + The @racket[defs] argument should be non-@racket[#f] if there are possibly stacktrace frames that contain unsaved versions of the - definitions window from drscheme. Similarly, the @scheme[ints] argument - should be non-@scheme[#f] if there are possibly stacktrace frames that contain + definitions window from DrRacket. Similarly, the @racket[ints] argument + should be non-@racket[#f] if there are possibly stacktrace frames that contain unsaved versions of the interactions window. Use - @scheme[drscheme:rep:current-rep] to get the rep during evaluation of a program. + @racket[drracket:rep:current-rep] to get the rep during evaluation of a program. }) (proc-doc/names - drscheme:debug:show-backtrace-window + drracket:debug:show-backtrace-window (->* (string? (or/c exn? (listof srcloc?) (non-empty-listof (cons/c string? (listof srcloc?))))) - ((or/c #f (is-a?/c drscheme:rep:text<%>)) - (or/c #f (is-a?/c drscheme:unit:definitions-text<%>))) + ((or/c #f (is-a?/c drracket:rep:text<%>)) + (or/c #f (is-a?/c drracket:unit:definitions-text<%>))) void?) ((error-message dis) ((rep #f) (defs #f))) @{Shows the backtrace window you get when clicking on the bug in - DrScheme's REPL. + DrRacket's REPL. - This function simply calls @scheme[drscheme:debug:show-backtrace-window/edition-pairs], - using @scheme[drscheme:debug:srcloc->edition/pair]. + This function simply calls @racket[drracket:debug:show-backtrace-window/edition-pairs], + using @racket[drracket:debug:srcloc->edition/pair]. }) (proc-doc/names - drscheme:debug:srcloc->edition/pair + drracket:debug:srcloc->edition/pair (-> srcloc? - (or/c #f (is-a?/c drscheme:rep:text<%>)) - (or/c #f (is-a?/c drscheme:unit:definitions-text<%>)) + (or/c #f (is-a?/c drracket:rep:text<%>)) + (or/c #f (is-a?/c drracket:unit:definitions-text<%>)) (or/c #f (cons/c (let ([weak-box-containing-an-editor? (λ (x) (and (weak-box? x) (let ([v (weak-box-value x)]) @@ -491,7 +488,7 @@ all of the names in the tools library, for use defining keybindings returning the current edition of the editor editing the source location (if any). - The @scheme[ints] and @scheme[defs] arguments are used to map source locations, + The @racket[ints] and @racket[defs] arguments are used to map source locations, in the case that the source location corresponds to the definitions window (when it has not been saved) or the interactions window. }) @@ -515,7 +512,7 @@ all of the names in the tools library, for use defining keybindings ; ;; (proc-doc/names - drscheme:help-desk:help-desk + drracket:help-desk:help-desk (->* () ((or/c #f string?) (or/c #f string? (list/c string? string?))) @@ -523,10 +520,10 @@ all of the names in the tools library, for use defining keybindings (() ((search-key #f) (search-context #f))) - @{if @scheme[search-key] is a string, calls @scheme[perform-search] with - @scheme[search-key] and @scheme[search-context]. + @{if @racket[search-key] is a string, calls @racket[perform-search] with + @racket[search-key] and @racket[search-context]. - Otherwise, calls @scheme[send-main-page] with no arguments.}) + Otherwise, calls @racket[send-main-page] with no arguments.}) ; @@ -548,37 +545,36 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:unit:get-program-editor-mixin + drracket:unit:get-program-editor-mixin (-> ((subclass?/c text%) . -> . (subclass?/c text%))) () @{Returns a mixin that must be mixed in to any - @scheme[text%] object that might contain + @racket[text%] object that might contain program text (and thus can be in the source field of some syntax object). See also - @scheme[drscheme:unit:add-to-program-editor-mixin].}) + @racket[drracket:unit:add-to-program-editor-mixin].}) (proc-doc/names - drscheme:unit:add-to-program-editor-mixin + drracket:unit:add-to-program-editor-mixin (((subclass?/c text%) . -> . (subclass?/c text%)) . -> . void?) (mixin) @{@phase[1] - Adds @scheme[mixin] to the result of - @scheme[drscheme:unit:get-program-editor-mixin].}) + Adds @racket[mixin] to the result of + @racket[drracket:unit:get-program-editor-mixin].}) (proc-doc/names - drscheme:unit:open-drscheme-window + drracket:unit:open-drscheme-window (case-> - (-> (is-a?/c drscheme:unit:frame%)) - ((or/c string? false/c) . -> . (is-a?/c drscheme:unit:frame%))) + (-> (is-a?/c drracket:unit:frame%)) + ((or/c string? false/c) . -> . (is-a?/c drracket:unit:frame%))) (() (filename)) - @{Opens a drscheme frame that displays @scheme[filename], - or nothing if @scheme[filename] is @scheme[#f] or not supplied.}) - - + @{Opens a DrRacket frame that displays + @racket[filename], + or nothing if @racket[filename] is @racket[#f] or not supplied.}) ; ; @@ -599,41 +595,41 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:modes:add-mode + drracket:modes:add-mode (string? (or/c false/c (is-a?/c mode:surrogate-text<%>)) - ((is-a?/c drscheme:rep:text%) number? . -> . boolean?) + ((is-a?/c drracket:rep:text%) number? . -> . boolean?) ((or/c false/c (listof string?)) . -> . boolean?) . -> . - drscheme:modes:mode?) + drracket:modes:mode?) (name surrogate repl-submit matches-language) - @{Adds a mode to DrScheme. Returns a mode value + @{Adds a mode to DrRacket. Returns a mode value that identifies the mode. - The first argument, @scheme[name], is the name - of the mode, used in DrScheme's GUI to allow + The first argument, @racket[name], is the name + of the mode, used in DrRacket's GUI to allow the user to select this mode. - The @scheme[surrogate] argument is set to the + The @racket[surrogate] argument is set to the definitions text and the interactions text (via the - @scheme[mode:host-text set-surrogate<%>] + @racket[mode:host-text set-surrogate<%>] method) whenever this mode is enabled. - The @scheme[repl-submit] procedure is called + The @racket[repl-submit] procedure is called whenever the user types a return in the interactions window. It is passed the interactions editor and the position where the last prompt occurs. If it - returns @scheme[#t], the text after the last + returns @racket[#t], the text after the last prompt is treated as a program fragment and evaluated, according to the language settings. - If it returns @scheme[#f], the text is + If it returns @racket[#f], the text is assumed to be an incomplete program fragment, and the keystroke is not treated specially. - The @scheme[matches-language] predicate is called whenever - the language changes. If it returns @scheme[#t] + The @racket[matches-language] predicate is called whenever + the language changes. If it returns @racket[#t] this mode is installed. It is passed the list of strings that correspond to the names of the language in the language dialog. @@ -644,58 +640,58 @@ all of the names in the tools library, for use defining keybindings changes. See also - @scheme[drscheme:modes:get-modes].}) + @racket[drracket:modes:get-modes].}) (proc-doc/names - drscheme:modes:mode? + drracket:modes:mode? (any/c . -> . boolean?) (val) - @{Determines if @scheme[val] is a mode.}) + @{Determines if @racket[val] is a mode.}) (proc-doc/names - drscheme:modes:get-modes - (-> (listof drscheme:modes:mode?)) + drracket:modes:get-modes + (-> (listof drracket:modes:mode?)) () - @{Returns all of the modes currently added to DrScheme. + @{Returns all of the modes currently added to DrRacket. See also - @scheme[drscheme:modes:add-mode].}) + @racket[drracket:modes:add-mode].}) (proc-doc/names - drscheme:modes:mode-name - (drscheme:modes:mode? . -> . string?) + drracket:modes:mode-name + (drracket:modes:mode? . -> . string?) (mode) @{Extracts the name of the mode. See also - @scheme[drscheme:modes:add-mode].}) + @racket[drracket:modes:add-mode].}) (proc-doc/names - drscheme:modes:mode-surrogate - (drscheme:modes:mode? . -> . (or/c false/c (is-a?/c mode:surrogate-text<%>))) + drracket:modes:mode-surrogate + (drracket:modes:mode? . -> . (or/c false/c (is-a?/c mode:surrogate-text<%>))) (mode) @{Extracts the surrogate of the mode. See also - @scheme[drscheme:modes:add-mode].}) + @racket[drracket:modes:add-mode].}) (proc-doc/names - drscheme:modes:mode-repl-submit - (drscheme:modes:mode? . -> . any) + drracket:modes:mode-repl-submit + (drracket:modes:mode? . -> . any) (mode) @{Extracts the repl submission predicate of the mode. See also - @scheme[drscheme:modes:add-mode].}) + @racket[drracket:modes:add-mode].}) (proc-doc/names - drscheme:modes:mode-matches-language - (drscheme:modes:mode? . -> . ((or/c false/c (listof string?)) . -> . boolean?)) + drracket:modes:mode-matches-language + (drracket:modes:mode? . -> . ((or/c false/c (listof string?)) . -> . boolean?)) (mode) @{Extracts the language matching predicate of the mode. See also - @scheme[drscheme:modes:add-mode].}) + @racket[drracket:modes:add-mode].}) ; @@ -717,24 +713,24 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:rep:get-welcome-delta + drracket:rep:get-welcome-delta (-> (is-a?/c style-delta%)) () @{Returns a style delta that matches the style and color of the phrase ``Welcome to'' in the beginning of the interactions window.}) (proc-doc/names - drscheme:rep:get-dark-green-delta + drracket:rep:get-dark-green-delta (-> (is-a?/c style-delta%)) () @{Returns a style delta that matches the style and color of the name of a language in the interactions window.}) (proc-doc/names - drscheme:rep:get-drs-bindings-keymap + drracket:rep:get-drs-bindings-keymap (-> (is-a?/c keymap%)) () - @{Returns a keymap that binds various DrScheme-specific + @{Returns a keymap that binds various DrRacket-specific keybindings. This keymap is used in the definitions and interactions window. @@ -743,19 +739,19 @@ all of the names in the tools library, for use defining keybindings windows. Also binds f5 to Execute and f1 to Help Desk.}) (proc-doc/names - drscheme:rep:current-rep - (-> (or/c false/c (is-a?/c drscheme:rep:text%))) + drracket:rep:current-rep + (-> (or/c false/c (is-a?/c drracket:rep:text%))) () @{This is a parameter whose value should not be set by tools. It is initialized to the repl that controls this evaluation in the user's thread. - It only returns @scheme[#f] if the program not running + It only returns @racket[#f] if the program not running in the context of a repl (eg, the test suite window).}) (proc-doc/names - drscheme:rep:current-value-port + drracket:rep:current-value-port (-> (or/c false/c port?)) () @{This is a parameter whose value is a port that @@ -784,127 +780,127 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:get/extend:extend-tab + drracket:get/extend:extend-tab (case-> - ((make-mixin-contract drscheme:unit:tab<%>) . -> . void?) - ((make-mixin-contract drscheme:unit:tab<%>) boolean? . -> . void?)) + ((make-mixin-contract drracket:unit:tab<%>) . -> . void?) + ((make-mixin-contract drracket:unit:tab<%>) boolean? . -> . void?)) ((mixin) (mixin before?)) - @{This class implements the tabs in drscheme. One is created for each tab + @{This class implements the tabs in DrRacket. One is created for each tab in a frame (each frame always has at least one tab, even if the tab bar is not shown) - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#t].}) + If unsupplied, this is the same as supplying @racket[#t].}) (proc-doc/names - drscheme:get/extend:extend-interactions-text + drracket:get/extend:extend-interactions-text (case-> - ((make-mixin-contract drscheme:rep:text<%>) . -> . void?) - ((make-mixin-contract drscheme:rep:text<%>) boolean? . -> . void?)) + ((make-mixin-contract drracket:rep:text<%>) . -> . void?) + ((make-mixin-contract drracket:rep:text<%>) boolean? . -> . void?)) ((mixin) (mixin before?)) - @{This text is used in the bottom window of drscheme frames. + @{This text is used in the bottom window of DrRacket frames. - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#t].}) + If unsupplied, this is the same as supplying @racket[#t].}) (proc-doc/names - drscheme:get/extend:get-interactions-text - (-> (implementation?/c drscheme:rep:text<%>)) + drracket:get/extend:get-interactions-text + (-> (implementation?/c drracket:rep:text<%>)) () @{Once this function is called, - @scheme[drscheme:get/extend:extend-interactions-text] + @racket[drracket:get/extend:extend-interactions-text] raises an error, disallowing any more extensions.}) (proc-doc/names - drscheme:get/extend:extend-definitions-text + drracket:get/extend:extend-definitions-text (case-> - ((make-mixin-contract drscheme:unit:definitions-text<%>) . -> . void?) - ((make-mixin-contract drscheme:unit:definitions-text<%>) boolean? . -> . void?)) + ((make-mixin-contract drracket:unit:definitions-text<%>) . -> . void?) + ((make-mixin-contract drracket:unit:definitions-text<%>) boolean? . -> . void?)) ((mixin) (mixin before?)) - @{This text is used in the top window of drscheme frames. + @{This text is used in the top window of DrRacket frames. - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#f].}) + If unsupplied, this is the same as supplying @racket[#f].}) (proc-doc/names - drscheme:get/extend:get-definitions-text - (-> (implementation?/c drscheme:unit:definitions-text<%>)) + drracket:get/extend:get-definitions-text + (-> (implementation?/c drracket:unit:definitions-text<%>)) () @{Once this function is called, - @scheme[drscheme:get/extend:extend-definitions-text] + @racket[drracket:get/extend:extend-definitions-text] raises an error, disallowing any more extensions.}) (proc-doc/names - drscheme:get/extend:extend-interactions-canvas + drracket:get/extend:extend-interactions-canvas (case-> - ((make-mixin-contract drscheme:unit:interactions-canvas%) . -> . void?) - ((make-mixin-contract drscheme:unit:interactions-canvas%) boolean? . -> . void?)) + ((make-mixin-contract drracket:unit:interactions-canvas%) . -> . void?) + ((make-mixin-contract drracket:unit:interactions-canvas%) boolean? . -> . void?)) ((mixin) (mixin before?)) - @{This canvas is used in the bottom window of drscheme frames. + @{This canvas is used in the bottom window of DrRacket frames. - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#f].}) + If unsupplied, this is the same as supplying @racket[#f].}) (proc-doc/names - drscheme:get/extend:get-interactions-canvas - (-> (subclass?/c drscheme:unit:interactions-canvas%)) + drracket:get/extend:get-interactions-canvas + (-> (subclass?/c drracket:unit:interactions-canvas%)) () @{Once this function is called, - @scheme[drscheme:get/extend:extend-interactions-canvas] + @racket[drracket:get/extend:extend-interactions-canvas] raises an error, disallowing any more extensions.}) (proc-doc/names - drscheme:get/extend:extend-definitions-canvas + drracket:get/extend:extend-definitions-canvas (case-> - ((make-mixin-contract drscheme:unit:definitions-canvas%) . -> . void?) - ((make-mixin-contract drscheme:unit:definitions-canvas%) boolean? . -> . void?)) + ((make-mixin-contract drracket:unit:definitions-canvas%) . -> . void?) + ((make-mixin-contract drracket:unit:definitions-canvas%) boolean? . -> . void?)) ((mixin) (mixin before?)) - @{This canvas is used in the top window of drscheme frames. + @{This canvas is used in the top window of DrRacket frames. - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#f].}) + If unsupplied, this is the same as supplying @racket[#f].}) (proc-doc/names - drscheme:get/extend:get-definitions-canvas - (-> (subclass?/c drscheme:unit:definitions-canvas%)) + drracket:get/extend:get-definitions-canvas + (-> (subclass?/c drracket:unit:definitions-canvas%)) () @{Once this function is called, - @scheme[drscheme:get/extend:extend-definitions-canvas] + @racket[drracket:get/extend:extend-definitions-canvas] raises an error, disallowing any more extensions.}) (proc-doc/names - drscheme:get/extend:extend-unit-frame + drracket:get/extend:extend-unit-frame (case-> - ((make-mixin-contract drscheme:unit:frame%) . -> . void?) - ((make-mixin-contract drscheme:unit:frame%) boolean? . -> . void?)) + ((make-mixin-contract drracket:unit:frame%) . -> . void?) + ((make-mixin-contract drracket:unit:frame%) boolean? . -> . void?)) ((mixin) (mixin before?)) - @{This is the frame that implements the main drscheme window. + @{This is the frame that implements the main DrRacket window. - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#f].}) + If unsupplied, this is the same as supplying @racket[#f].}) (proc-doc/names - drscheme:get/extend:get-unit-frame - (-> (subclass?/c drscheme:unit:frame%)) + drracket:get/extend:get-unit-frame + (-> (subclass?/c drracket:unit:frame%)) () @{Once this function is called, - @scheme[drscheme:get/extend:extend-unit-frame] + @racket[drracket:get/extend:extend-unit-frame] raises an error, disallowing any more extensions.}) @@ -928,11 +924,11 @@ all of the names in the tools library, for use defining keybindings ; (proc-doc/names - drscheme:tracing:annotate + drracket:tracing:annotate (-> syntax? syntax?) (stx) @{Call this function to add tracing annotations to the a fully-expanded - expression. When the program runs, DrScheme will pop open the tracing + expression. When the program runs, DrRacket will pop open the tracing window to display the trace.}) ; @@ -969,39 +965,39 @@ all of the names in the tools library, for use defining keybindings ; ;;;; (proc-doc/names - drscheme:language-configuration:get-languages - (-> (listof (is-a?/c drscheme:language:language<%>))) + drracket:language-configuration:get-languages + (-> (listof (is-a?/c drracket:language:language<%>))) () @{This can only be called after all of the tools initialization phases have completed. - Returns the list of all of the languages installed in DrScheme.}) + Returns the list of all of the languages installed in DrRacket.}) (proc-doc/names - drscheme:language-configuration:add-language - ((and/c (is-a?/c drscheme:language:language<%>) drscheme:language:object/c) + drracket:language-configuration:add-language + ((and/c (is-a?/c drracket:language:language<%>) drracket:language:object/c) . -> . void?) (language) @{@phase[2] - Adds @scheme[language] to the languages offerend by DrScheme.}) + Adds @racket[language] to the languages offerend by DrRacket.}) (proc-doc/names - drscheme:language-configuration:get-settings-preferences-symbol + drracket:language-configuration:get-settings-preferences-symbol (-> symbol?) () @{Returns the symbol that is used to store the user's language settings. Use as an argument to either - @scheme[preferences:get] + @racket[preferences:get] or - @scheme[preferences:set].}) + @racket[preferences:set].}) (proc-doc/names - drscheme:language-configuration:make-language-settings - ((or/c (is-a?/c drscheme:language:language<%>) drscheme:language:object/c) + drracket:language-configuration:make-language-settings + ((or/c (is-a?/c drracket:language:language<%>) drracket:language:object/c) any/c . -> . - drscheme:language-configuration:language-settings?) + drracket:language-configuration:language-settings?) (language settings) @{This is the constructor for a record consisting of two @@ -1011,73 +1007,73 @@ all of the names in the tools library, for use defining keybindings value describing a parameterization of the language. It has two selectors, - @scheme[drscheme:language-configuration:language-settings-language] + @racket[drracket:language-configuration:language-settings-language] and - @scheme[drscheme:language-configuration:language-settings-settings], and a predicate, - @scheme[drscheme:language-configuration:language-settings?]}) + @racket[drracket:language-configuration:language-settings-settings], and a predicate, + @racket[drracket:language-configuration:language-settings?]}) (proc-doc/names - drscheme:language-configuration:language-settings-settings - (-> drscheme:language-configuration:language-settings? + drracket:language-configuration:language-settings-settings + (-> drracket:language-configuration:language-settings? any/c) (ls) @{Extracts the settings field of a language-settings.}) (proc-doc/names - drscheme:language-configuration:language-settings-language - (drscheme:language-configuration:language-settings? + drracket:language-configuration:language-settings-language + (drracket:language-configuration:language-settings? . -> . - (or/c (is-a?/c drscheme:language:language<%>) drscheme:language:object/c)) + (or/c (is-a?/c drracket:language:language<%>) drracket:language:object/c)) (ls) @{Extracts the language field of a language-settings.}) (proc-doc/names - drscheme:language-configuration:language-settings? + drracket:language-configuration:language-settings? (any/c . -> . boolean?) (val) @{Determines if the argument is a language-settings or not.}) (proc-doc/names - drscheme:language-configuration:language-dialog - (->* (boolean? drscheme:language-configuration:language-settings?) + drracket:language-configuration:language-dialog + (->* (boolean? drracket:language-configuration:language-settings?) ((or/c false/c (is-a?/c top-level-window<%>))) - (or/c false/c drscheme:language-configuration:language-settings?)) + (or/c false/c drracket:language-configuration:language-settings?)) ((show-welcome? language-settings-to-show) ((parent #t))) @{Opens the language configuration dialog. See also - @scheme[drscheme:language-configuration:fill-language-dialog]. + @racket[drracket:language-configuration:fill-language-dialog]. - The @scheme[show-welcome?] argument determines if - if a ``Welcome to DrScheme'' message and some + The @racket[show-welcome?] argument determines if + if a ``Welcome to DrRacket'' message and some natural language buttons are shown. - The @scheme[language-settings-to-show] argument + The @racket[language-settings-to-show] argument must be some default language settings that the dialog is initialized to. If unsure of a default, the currently set language in the user's preferences can be obtained via: @schemeblock[ - (preferences:get (drscheme:language-configuration:get-settings-preferences-symbol)) + (preferences:get (drracket:language-configuration:get-settings-preferences-symbol)) ] - The @scheme[parent] argument is used as the parent + The @racket[parent] argument is used as the parent to the dialog. - The result if @scheme[#f] when the user cancells the dialog, and + The result if @racket[#f] when the user cancells the dialog, and the selected language if they hit ok.}) (proc-doc/names - drscheme:language-configuration:fill-language-dialog + drracket:language-configuration:fill-language-dialog (->* ((is-a?/c vertical-panel%) (is-a?/c area-container<%>) - drscheme:language-configuration:language-settings?) + drracket:language-configuration:language-settings?) ((or/c false/c (is-a?/c top-level-window<%>)) (-> symbol? void?)) - drscheme:language-configuration:language-settings?) + drracket:language-configuration:language-settings?) ((panel button-panel language-setting) ((re-center #f) (ok-handler void))) @@ -1086,28 +1082,28 @@ all of the names in the tools library, for use defining keybindings It is used to include language configuration controls in some larger context in another dialog. - The @scheme[panel] argument is the main panel where the + The @racket[panel] argument is the main panel where the language controls will be placed. - The function adds buttons to the @scheme[button-panel] + The function adds buttons to the @racket[button-panel] to revert a language to its default settings and to show the details of a language. - The @scheme[language-setting] is the default + The @racket[language-setting] is the default language to show in the dialog. - The @scheme[re-center] argument is used when the @onscreen{Show Details} - button is clicked. If that argument is a @scheme[top-level-window<%>], + The @racket[re-center] argument is used when the @onscreen{Show Details} + button is clicked. If that argument is a @racket[top-level-window<%>], the @onscreen{Show Details} callback will recenter the window each time it is clicked. Otherwise, the argument is not used. - @scheme[ok-handler] is a function that is in charge of interfacing the OK - button. It should accept a symbol message: @scheme['enable] and - @scheme['disable] to toggle the button, and @scheme['execute] to run + @racket[ok-handler] is a function that is in charge of interfacing the OK + button. It should accept a symbol message: @racket['enable] and + @racket['disable] to toggle the button, and @racket['execute] to run the desired operation. (The language selection dialog also uses an - internal @scheme['enable-sync] message.)}) + internal @racket['enable-sync] message.)}) (proc-doc - drscheme:language:register-capability + drracket:language:register-capability (->d ([s symbol?] [the-contract contract?] [default the-contract]) @@ -1116,98 +1112,97 @@ all of the names in the tools library, for use defining keybindings @{Registers a new capability with a default value for each language and a contract on the values the capability might have. - By default, these capabilities are registered as DrScheme starts up: + By default, these capabilities are registered as DrRacket starts up: @(let-syntax ([cap (syntax-rules () [(cap key contract default desc ...) - (item @scheme['key : contract = default] + (item @racket['key : contract = default] "--- " desc ...)])]) (itemize - @cap[drscheme:check-syntax-button boolean? #t]{ - controls the visiblity of the check syntax button} - @cap[drscheme:language-menu-title + @cap[drracket:check-syntax-button boolean? #t]{controls the visiblity of the check syntax button} + @cap[drracket:language-menu-title string? (string-constant scheme-menu-name)]{ controls the name of the menu just to the right of the language menu (defaultly named ``Scheme'')} - @cap[drscheme:define-popup - (or/c #f - (list/c string? string? string?) - (cons/c string? string?)) - (list "(define" "(define ...)" "δ")]{ - specifies the prefix that the define popup should look for and what - label it should have, or @scheme[#f] if it should not appear at all. - - If the list of three strings alternative is used, the first string is - the prefix that is looked for when finding definitions. The second - and third strings are used as the label of the control, in horizontal - and vertical mode, respectively. - - The pair of strings alternative is deprecated. If it is used, - the pair @scheme[(cons a-str b-str)] is the same as @scheme[(list a-str b-str "δ")].} - @cap[drscheme:help-context-term (or/c false/c string?) #f]{ - specifies a context query for documentation searches that are - initiated in this language, can be @scheme[#f] (no change to the - user's setting) or a string to be used as a context query (note: the - context is later maintained as a cookie, @scheme[""] is different - from @scheme[#f] in that it clears the stored context)} - @cap[drscheme:special:insert-fraction boolean? #t]{ - determines if the insert fraction menu item in the special menu is - visible} - @cap[drscheme:special:insert-lambda boolean? #t]{ - determines if the insert lambda menu item in the special menu is - visible} - @cap[drscheme:special:insert-large-letters boolean? #t]{ - determines if the insert large letters menu item in the special menu - is visible} - @cap[drscheme:special:insert-image boolean? #t]{ - determines if the insert image menu item in the special menu is - visible} - @cap[drscheme:special:insert-comment-box boolean? #t]{ - determines if the insert comment box menu item in the special menu - is visible} - @cap[drscheme:special:insert-gui-tool boolean? #t]{ - determines if the insert gui menu item in the special menu is - visible} - @cap[drscheme:special:slideshow-menu-item boolean? #t]{ - determines if the insert pict box menu item in the special menu is - visible} - @cap[drscheme:special:insert-text-box boolean? #t]{ - determines if the insert text box menu item in the special menu is - visible} - @cap[drscheme:special:xml-menus boolean? #t]{ - determines if the insert scheme box, insert scheme splice box, and - the insert xml box menu item in the special menu are visible} - @cap[drscheme:autocomplete-words (listof string?) '()]{ - determines the list of words that are used when completing words in - this language} - @cap[drscheme:tabify-menu-callback - (or/c false/c (-> (is-a?/c text%) number? number? void?)) - (λ (t a b) (send t tabify-selection a b))]{ - is used as the callback when the ``Reindent'' or ``Reindent All'' - menu is selected. The first argument is the editor, and the second - and third are a range in the editor.} - ))}) + @cap[drscheme:define-popup + (or/c #f + (list/c string? string? string?) + (cons/c string? string?)) + (list "(define" "(define ...)" "δ")]{ + specifies the prefix that the define popup should look for and what + label it should have, or @racket[#f] if it should not appear at all. + + If the list of three strings alternative is used, the first string is + the prefix that is looked for when finding definitions. The second + and third strings are used as the label of the control, in horizontal + and vertical mode, respectively. + + The pair of strings alternative is deprecated. If it is used, + the pair @racket[(cons a-str b-str)] is the same as @racket[(list a-str b-str "δ")].} + @cap[drscheme:help-context-term (or/c false/c string?) #f]{ + specifies a context query for documentation searches that are + initiated in this language, can be @racket[#f] (no change to the + user's setting) or a string to be used as a context query (note: the + context is later maintained as a cookie, @racket[""] is different + from @racket[#f] in that it clears the stored context)} + @cap[drscheme:special:insert-fraction boolean? #t]{ + determines if the insert fraction menu item in the special menu is + visible} + @cap[drscheme:special:insert-lambda boolean? #t]{ + determines if the insert lambda menu item in the special menu is + visible} + @cap[drscheme:special:insert-large-letters boolean? #t]{ + determines if the insert large letters menu item in the special menu + is visible} + @cap[drscheme:special:insert-image boolean? #t]{ + determines if the insert image menu item in the special menu is + visible} + @cap[drscheme:special:insert-comment-box boolean? #t]{ + determines if the insert comment box menu item in the special menu + is visible} + @cap[drscheme:special:insert-gui-tool boolean? #t]{ + determines if the insert gui menu item in the special menu is + visible} + @cap[drscheme:special:slideshow-menu-item boolean? #t]{ + determines if the insert pict box menu item in the special menu is + visible} + @cap[drscheme:special:insert-text-box boolean? #t]{ + determines if the insert text box menu item in the special menu is + visible} + @cap[drscheme:special:xml-menus boolean? #t]{ + determines if the insert scheme box, insert scheme splice box, and + the insert xml box menu item in the special menu are visible} + @cap[drscheme:autocomplete-words (listof string?) '()]{ + determines the list of words that are used when completing words in + this language} + @cap[drscheme:tabify-menu-callback + (or/c false/c (-> (is-a?/c text%) number? number? void?)) + (λ (t a b) (send t tabify-selection a b))]{ + is used as the callback when the ``Reindent'' or ``Reindent All'' + menu is selected. The first argument is the editor, and the second + and third are a range in the editor.} + ))}) (proc-doc/names - drscheme:language:capability-registered? + drracket:language:capability-registered? (-> symbol? boolean?) (s) @{Indicates if - @scheme[drscheme:language:register-capability] - has been called with @scheme[s].}) + @racket[drracket:language:register-capability] + has been called with @racket[s].}) (proc-doc - drscheme:language:get-capability-default - (->d ([s (and/c symbol? drscheme:language:capability-registered?)]) + drracket:language:get-capability-default + (->d ([s (and/c symbol? drracket:language:capability-registered?)]) () - [res (drscheme:language:get-capability-contract s)]) + [res (drracket:language:get-capability-contract s)]) @{Returns the default for a particular capability.}) (proc-doc/names - drscheme:language:get-capability-contract - (-> (and/c symbol? drscheme:language:capability-registered?) + drracket:language:get-capability-contract + (-> (and/c symbol? drracket:language:capability-registered?) contract?) (s) @{Returns the contract for a given capability, which was specified - when @scheme[drscheme:language:register-capability] was called.}) + when @racket[drracket:language:register-capability] was called.}) ; @@ -1229,7 +1224,7 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:language:add-snip-value + drracket:language:add-snip-value (->* ((-> any/c boolean?) (-> any/c (is-a?/c snip%))) ((-> any/c)) @@ -1238,55 +1233,55 @@ all of the names in the tools library, for use defining keybindings ((setup-thunk void))) @{Registers a handler to convert values into snips as they are printed in the REPL. - The @scheme[test-snip] argument is called to determine if this handler can convert the value - and the @scheme[convert-value] argument is called to build a snip. - The (optional) @scheme[setup-thunk] is called just after the user's namespace and other + The @racket[test-snip] argument is called to determine if this handler can convert the value + and the @racket[convert-value] argument is called to build a snip. + The (optional) @racket[setup-thunk] is called just after the user's namespace and other setings are built, but before any of the user's code is evaluated. All three functions are called on the user's thread and with the user's settings.}) (proc-doc/names - drscheme:language:extend-language-interface + drracket:language:extend-language-interface (-> interface? - (make-mixin-contract drscheme:language:language<%>) + (make-mixin-contract drracket:language:language<%>) void?) (interface default-implementation) @{@phase[1] Each language added passed to - @scheme[drscheme:language-configuration:add-language] - must implement @scheme[interface]. + @racket[drracket:language-configuration:add-language] + must implement @racket[interface]. - The @scheme[default-implementation] is a mixin + The @racket[default-implementation] is a mixin that provides a default implementation of - @scheme[interface]. Languages that are unaware of - the specifics of @scheme[extension] use - @scheme[default-implementation] via - @scheme[drscheme:language:get-default-mixin].}) + @racket[interface]. Languages that are unaware of + the specifics of @racket[extension] use + @racket[default-implementation] via + @racket[drracket:language:get-default-mixin].}) (proc-doc - drscheme:language:get-default-mixin - (-> (make-mixin-contract drscheme:language:language<%>)) + drracket:language:get-default-mixin + (-> (make-mixin-contract drracket:language:language<%>)) @{@phase[2] The result of this function is the composite of all of the - @scheme[default-implementation] arguments passed + @racket[default-implementation] arguments passed to - @scheme[drscheme:language:extend-language-interface].}) + @racket[drracket:language:extend-language-interface].}) (proc-doc/names - drscheme:language:get-language-extensions + drracket:language:get-language-extensions (-> (listof interface?)) () @{@phase[2] Returns a list of the interfaces passed to - @scheme[drscheme:language:extend-language-interface].}) + @racket[drracket:language:extend-language-interface].}) (proc-doc/names - drscheme:language:put-executable + drracket:language:put-executable ((is-a?/c top-level-window<%>) path? (or/c boolean? (symbols 'launcher 'standalone 'distribution)) @@ -1295,25 +1290,25 @@ all of the names in the tools library, for use defining keybindings . -> . (or/c false/c path?)) (parent program-filename mode mred? title) @{Calls the MrEd primitive - @scheme[put-file] + @racket[put-file] with arguments appropriate for creating an executable - from the file @scheme[program-filename]. + from the file @racket[program-filename]. - The arguments @scheme[mred?] and @scheme[mode] indicates + The arguments @racket[mred?] and @racket[mode] indicates what type of executable this should be (and the dialog may be slightly different on some platforms, depending - on these arguments). For historical reasons, @scheme[#f] - is allowed for @scheme[mode] as an alias for @scheme['launcher], and - @scheme[#t] is allowed for @scheme[mode] as an alias for @scheme['stand-alone]. + on these arguments). For historical reasons, @racket[#f] + is allowed for @racket[mode] as an alias for @racket['launcher], and + @racket[#t] is allowed for @racket[mode] as an alias for @racket['stand-alone]. - The @scheme[title] argument is used as the title to the primitive - @scheme[put-file] + The @racket[title] argument is used as the title to the primitive + @racket[put-file] or - @scheme[get-directory] + @racket[get-directory] primitive.}) (proc-doc/names - drscheme:language:create-executable-gui + drracket:language:create-executable-gui ((or/c false/c (is-a?/c top-level-window<%>)) (or/c false/c string?) (or/c (λ (x) (eq? x #t)) (symbols 'launcher 'standalone 'distribution)) @@ -1325,26 +1320,26 @@ all of the names in the tools library, for use defining keybindings string?))) (parent program-name show-type show-base) @{Opens a dialog to prompt the user about their choice of executable. - If @scheme[show-type] is @scheme[#t], the user is prompted about + If @racket[show-type] is @racket[#t], the user is prompted about a choice of executable: stand-alone, launcher, or distribution; otherwise, the symbol determines the type. - If @scheme[show-base] - is @scheme[#t], the user is prompted about a choice of base + If @racket[show-base] + is @racket[#t], the user is prompted about a choice of base binary: mzscheme or mred; otherwise the symbol determines the base. - The @scheme[program-name] argument is used to construct the default + The @racket[program-name] argument is used to construct the default executable name in a platform-specific manner. - The @scheme[parent] argument is used for the parent of the dialog. + The @racket[parent] argument is used for the parent of the dialog. - The result of this function is @scheme[#f] if the user cancel's + The result of this function is @racket[#f] if the user cancel's the dialog and a list of three items indicating what options - they chose. If either @scheme[show-type] or @scheme[show-base] - was not @scheme[#t], the corresponding result will be @scheme['no-show], + they chose. If either @racket[show-type] or @racket[show-base] + was not @racket[#t], the corresponding result will be @racket['no-show], otherwise it will indicate the user's choice.}) (proc-doc/names - drscheme:language:create-module-based-stand-alone-executable + drracket:language:create-module-based-stand-alone-executable ((or/c path? string?) (or/c path? string?) any/c any/c any/c boolean? boolean? . -> . @@ -1358,33 +1353,33 @@ all of the names in the tools library, for use defining keybindings use-copy?) @{This procedure creates a stand-alone executable in the file - @scheme[executable-filename] that runs the program - @scheme[program-filename]. + @racket[executable-filename] that runs the program + @racket[program-filename]. The arguments - @scheme[module-language-spec] and - @scheme[transformer-module-language-spec] specify the + @racket[module-language-spec] and + @racket[transformer-module-language-spec] specify the settings of the initial namespace, both the transformer - portion and the regular portion. Both may be @scheme[#f] + portion and the regular portion. Both may be @racket[#f] to indicate there are no initial bindings. - The @scheme[init-code] argument is an s-expression representing + The @racket[init-code] argument is an s-expression representing the code for a module. This module is expected to provide - the identifer @scheme[init-code], bound to a procedure of no - arguments. That module is required and the @scheme[init-code] + the identifer @racket[init-code], bound to a procedure of no + arguments. That module is required and the @racket[init-code] procedure is executed to initialize language-specific - settings before the code in @scheme[program-filename] runs. + settings before the code in @racket[program-filename] runs. - The @scheme[gui?] argument indicates if a MrEd or MzScheme + The @racket[gui?] argument indicates if a MrEd or MzScheme stand-alone executable is created. - The @scheme[use-copy?] argument indicates if the initial + The @racket[use-copy?] argument indicates if the initial namespace should be populated with - @scheme[namespace-require/copy] or - @scheme[namespace-require]. }) + @racket[namespace-require/copy] or + @racket[namespace-require]. }) (proc-doc/names - drscheme:language:create-module-based-distribution + drracket:language:create-module-based-distribution ((or/c path? string?) (or/c path? string?) any/c any/c any/c boolean? boolean? . -> . @@ -1398,10 +1393,10 @@ all of the names in the tools library, for use defining keybindings use-copy?) @{Like - @scheme[drscheme:language:create-module-based-stand-alone-executable], but packages the stand-alone executable into a distribution.}) + @racket[drracket:language:create-module-based-stand-alone-executable], but packages the stand-alone executable into a distribution.}) (proc-doc/names - drscheme:language:create-distribution-for-executable + drracket:language:create-distribution-for-executable ((or/c path? string?) boolean? (-> path? void?) @@ -1411,17 +1406,17 @@ all of the names in the tools library, for use defining keybindings gui? make-executable) - @{Creates a distribution where the given @scheme[make-executable] procedure + @{Creates a distribution where the given @racket[make-executable] procedure creates the stand-alone executable to be distributed. - The @scheme[make-executable] procedure is given the name of the - executable to create. The @scheme[gui?] argument is needed in case the - executable's name (which @scheme[drscheme:language:create-distribution-for-executable] + The @racket[make-executable] procedure is given the name of the + executable to create. The @racket[gui?] argument is needed in case the + executable's name (which @racket[drracket:language:create-distribution-for-executable] must generate) depends on the type of executable. During the distribution-making process, a progress dialog is shown to the user, and the user can click an @onscreen{Abort} button that sends a break to the current thread.}) (proc-doc/names - drscheme:language:create-module-based-launcher + drracket:language:create-module-based-launcher ((or/c path? string?) (or/c path? string?) any/c any/c any/c boolean? boolean? . -> . void?) @@ -1434,77 +1429,77 @@ all of the names in the tools library, for use defining keybindings use-copy?) @{This procedure is identical to - @scheme[drscheme:language:create-module-based-stand-alone-executable], except that it creates a launcher instead of a + @racket[drracket:language:create-module-based-stand-alone-executable], except that it creates a launcher instead of a stand-alone executable.}) (proc-doc/names - drscheme:language:simple-module-based-language-convert-value - (-> any/c drscheme:language:simple-settings? any/c) + drracket:language:simple-module-based-language-convert-value + (-> any/c drracket:language:simple-settings? any/c) (value settings) - @{Sets the @scheme[constructor-style-printing] and @scheme[show-sharing] - parameters based on @scheme[settings] and sets @scheme[current-print-convert-hook] - to ignore snips and then uses @scheme[print-convert] on @scheme[value]. + @{Sets the @racket[constructor-style-printing] and @racket[show-sharing] + parameters based on @racket[settings] and sets @racket[current-print-convert-hook] + to ignore snips and then uses @racket[print-convert] on @racket[value]. - Unless, of course, the @scheme[settings] argument has @scheme['write] in - the @scheme[simple-settings-printing-style] field, in which case it simply - returns @scheme[value].}) + Unless, of course, the @racket[settings] argument has @racket['write] in + the @racket[simple-settings-printing-style] field, in which case it simply + returns @racket[value].}) (proc-doc/names - drscheme:language:setup-printing-parameters - (-> (-> any) drscheme:language:simple-settings? (or/c number? 'infinity) any) + drracket:language:setup-printing-parameters + (-> (-> any) drracket:language:simple-settings? (or/c number? 'infinity) any) (thunk settings width) - @{Sets all of the @scheme[pretty-print] and @scheme[print-convert] parameters - either to the defaults to values based on @scheme[settings] - and then invokes @scheme[thunk], returning what it returns.}) + @{Sets all of the @racket[pretty-print] and @racket[print-convert] parameters + either to the defaults to values based on @racket[settings] + and then invokes @racket[thunk], returning what it returns.}) (proc-doc/names - drscheme:language:text/pos-text - (drscheme:language:text/pos? . -> . (is-a?/c text%)) + drracket:language:text/pos-text + (drracket:language:text/pos? . -> . (is-a?/c text%)) (text/pos) - @{Selects the @scheme[text%] from a text/pos.}) + @{Selects the @racket[text%] from a text/pos.}) (proc-doc/names - drscheme:language:text/pos-start - (drscheme:language:text/pos? . -> . number?) + drracket:language:text/pos-start + (drracket:language:text/pos? . -> . number?) (text/pos) @{Selects the starting position from a text/pos.}) (proc-doc/names - drscheme:language:text/pos-end - (drscheme:language:text/pos? . -> . number?) + drracket:language:text/pos-end + (drracket:language:text/pos? . -> . number?) (text/pos) @{Selects the ending position from a text/pos.}) (proc-doc/names - drscheme:language:text/pos? + drracket:language:text/pos? (any/c . -> . boolean?) (val) - @{Returns @scheme[#t] if @scheme[val] is a text/pos, and @scheme[#f] + @{Returns @racket[#t] if @racket[val] is a text/pos, and @racket[#f] otherwise.}) (proc-doc/names - drscheme:language:make-text/pos + drracket:language:make-text/pos ((is-a?/c text%) number? number? . -> . - drscheme:language:text/pos?) + drracket:language:text/pos?) (text start end) @{Constructs a text/pos.}) (proc-doc/names - drscheme:language:simple-settings-case-sensitive - (drscheme:language:simple-settings? . -> . boolean?) + drracket:language:simple-settings-case-sensitive + (drracket:language:simple-settings? . -> . boolean?) (simple-settings) @{Extracts the case-sensitive setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings-printing-style - (drscheme:language:simple-settings? + drracket:language:simple-settings-printing-style + (drracket:language:simple-settings? . -> . (symbols 'constructor 'quasiquote 'write)) (simple-settings) @@ -1512,8 +1507,8 @@ all of the names in the tools library, for use defining keybindings @{Extracts the printing-style setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings-fraction-style - (drscheme:language:simple-settings? + drracket:language:simple-settings-fraction-style + (drracket:language:simple-settings? . -> . (symbols 'mixed-fraction 'mixed-fraction-e @@ -1524,8 +1519,8 @@ all of the names in the tools library, for use defining keybindings @{Extracts the fraction-style setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings-show-sharing - (drscheme:language:simple-settings? + drracket:language:simple-settings-show-sharing + (drracket:language:simple-settings? . -> . boolean?) (simple-settings) @@ -1533,8 +1528,8 @@ all of the names in the tools library, for use defining keybindings @{Extracts the show-sharing setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings-insert-newlines - (drscheme:language:simple-settings? + drracket:language:simple-settings-insert-newlines + (drracket:language:simple-settings? . -> . boolean?) (simple-settings) @@ -1542,8 +1537,8 @@ all of the names in the tools library, for use defining keybindings @{Extracts the insert-newline setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings-annotations - (drscheme:language:simple-settings? + drracket:language:simple-settings-annotations + (drracket:language:simple-settings? . -> . (symbols 'none 'debug 'debug/profile 'test-coverage)) (simple-settings) @@ -1551,21 +1546,21 @@ all of the names in the tools library, for use defining keybindings @{Extracts the debugging setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings? + drracket:language:simple-settings? (any/c . -> . boolean?) (val) - @{Determines if @scheme[val] is a simple-settings.}) + @{Determines if @racket[val] is a simple-settings.}) (proc-doc/names - drscheme:language:make-simple-settings + drracket:language:make-simple-settings (-> boolean? (symbols 'constructor 'quasiquote 'write) (symbols 'mixed-fraction 'mixed-fraction-e 'repeating-decimal 'repeating-decimal-e) boolean? boolean? (symbols 'none 'debug 'debug/profile 'test-coverage) - drscheme:language:simple-settings?) + drracket:language:simple-settings?) (case-sensitive printing-style fraction-style @@ -1576,8 +1571,8 @@ all of the names in the tools library, for use defining keybindings @{Constructs a simple settings.}) (proc-doc/names - drscheme:language:simple-settings->vector - (drscheme:language:simple-settings? . -> . vector?) + drracket:language:simple-settings->vector + (drracket:language:simple-settings? . -> . vector?) (simple-settings) - @{Constructs a vector whose elements are the fields of @scheme[simple-settings].})) + @{Constructs a vector whose elements are the fields of @racket[simple-settings].})) diff --git a/collects/drscheme/tool.rkt b/collects/drscheme/tool.rkt new file mode 100644 index 0000000000..9d0842fc64 --- /dev/null +++ b/collects/drscheme/tool.rkt @@ -0,0 +1,6 @@ +#lang racket/base +(require "private/drsig.ss") +(provide drracket:tool^ + drracket:tool-exports^ + drscheme:tool^ + (rename-out [drracket:tool-exports^ drscheme:tool-exports^])) diff --git a/collects/drscheme/tool.ss b/collects/drscheme/tool.ss deleted file mode 100644 index ff4a7fbf66..0000000000 --- a/collects/drscheme/tool.ss +++ /dev/null @@ -1,5 +0,0 @@ -#lang racket/base -(require "private/drsig.ss") -(provide drscheme:tool^ - drscheme:tool-exports^) - diff --git a/collects/dynext/compile-sig.ss b/collects/dynext/compile-sig.rkt similarity index 100% rename from collects/dynext/compile-sig.ss rename to collects/dynext/compile-sig.rkt diff --git a/collects/dynext/compile-unit.ss b/collects/dynext/compile-unit.rkt similarity index 99% rename from collects/dynext/compile-unit.ss rename to collects/dynext/compile-unit.rkt index 164c6baa7a..e46711d87a 100644 --- a/collects/dynext/compile-unit.ss +++ b/collects/dynext/compile-unit.rkt @@ -266,7 +266,7 @@ [else (bad-name name)])])) (define-values (my-process* stdio-compile) - (let-values ([(p* do-stdio) (include (build-path "private" "stdio.ss"))]) + (let-values ([(p* do-stdio) (include (build-path "private" "stdio.rkt"))]) (values p* (lambda (start-process quiet?) diff --git a/collects/dynext/compile.ss b/collects/dynext/compile.rkt similarity index 100% rename from collects/dynext/compile.ss rename to collects/dynext/compile.rkt diff --git a/collects/dynext/dynext-sig.ss b/collects/dynext/dynext-sig.rkt similarity index 100% rename from collects/dynext/dynext-sig.ss rename to collects/dynext/dynext-sig.rkt diff --git a/collects/dynext/dynext-unit.ss b/collects/dynext/dynext-unit.rkt similarity index 100% rename from collects/dynext/dynext-unit.ss rename to collects/dynext/dynext-unit.rkt diff --git a/collects/dynext/dynext.ss b/collects/dynext/dynext.rkt similarity index 100% rename from collects/dynext/dynext.ss rename to collects/dynext/dynext.rkt diff --git a/collects/dynext/file-sig.ss b/collects/dynext/file-sig.rkt similarity index 100% rename from collects/dynext/file-sig.ss rename to collects/dynext/file-sig.rkt diff --git a/collects/dynext/file-unit.ss b/collects/dynext/file-unit.rkt similarity index 100% rename from collects/dynext/file-unit.ss rename to collects/dynext/file-unit.rkt diff --git a/collects/dynext/file.ss b/collects/dynext/file.rkt similarity index 100% rename from collects/dynext/file.ss rename to collects/dynext/file.rkt diff --git a/collects/dynext/filename-version.ss b/collects/dynext/filename-version.rkt similarity index 100% rename from collects/dynext/filename-version.ss rename to collects/dynext/filename-version.rkt diff --git a/collects/dynext/info.ss b/collects/dynext/info.rkt similarity index 100% rename from collects/dynext/info.ss rename to collects/dynext/info.rkt diff --git a/collects/dynext/link-sig.ss b/collects/dynext/link-sig.rkt similarity index 100% rename from collects/dynext/link-sig.ss rename to collects/dynext/link-sig.rkt diff --git a/collects/dynext/link-unit.ss b/collects/dynext/link-unit.rkt similarity index 99% rename from collects/dynext/link-unit.ss rename to collects/dynext/link-unit.rkt index 5febbf779e..7d7bfc940a 100644 --- a/collects/dynext/link-unit.ss +++ b/collects/dynext/link-unit.rkt @@ -432,7 +432,7 @@ ;; ---- some helpers: (define-values (my-process* stdio-link) - (let-values ([(p* do-stdio) (include (build-path "private" "stdio.ss"))]) + (let-values ([(p* do-stdio) (include (build-path "private" "stdio.rkt"))]) (values p* (lambda (start-process quiet?) @@ -446,4 +446,4 @@ (loop (add1 n)) f))))) - (include (build-path "private" "macinc.ss")))) + (include (build-path "private" "macinc.rkt")))) diff --git a/collects/dynext/link.ss b/collects/dynext/link.rkt similarity index 100% rename from collects/dynext/link.ss rename to collects/dynext/link.rkt diff --git a/collects/dynext/main.ss b/collects/dynext/main.rkt similarity index 100% rename from collects/dynext/main.ss rename to collects/dynext/main.rkt diff --git a/collects/dynext/private/cmdargs.ss b/collects/dynext/private/cmdargs.rkt similarity index 100% rename from collects/dynext/private/cmdargs.ss rename to collects/dynext/private/cmdargs.rkt diff --git a/collects/dynext/private/dirs.ss b/collects/dynext/private/dirs.rkt similarity index 100% rename from collects/dynext/private/dirs.ss rename to collects/dynext/private/dirs.rkt diff --git a/collects/dynext/private/info.rkt b/collects/dynext/private/info.rkt new file mode 100644 index 0000000000..85ba4680fe --- /dev/null +++ b/collects/dynext/private/info.rkt @@ -0,0 +1,3 @@ +#lang setup/infotab + +(define compile-omit-paths '("stdio.rkt" "macinc.rkt")) diff --git a/collects/dynext/private/info.ss b/collects/dynext/private/info.ss deleted file mode 100644 index 1ed3114373..0000000000 --- a/collects/dynext/private/info.ss +++ /dev/null @@ -1,3 +0,0 @@ -#lang setup/infotab - -(define compile-omit-paths '("stdio.ss" "macinc.ss")) diff --git a/collects/dynext/private/macinc.ss b/collects/dynext/private/macinc.rkt similarity index 100% rename from collects/dynext/private/macinc.ss rename to collects/dynext/private/macinc.rkt diff --git a/collects/dynext/private/stdio.ss b/collects/dynext/private/stdio.rkt similarity index 100% rename from collects/dynext/private/stdio.ss rename to collects/dynext/private/stdio.rkt diff --git a/collects/embedded-gui/embedded-gui.ss b/collects/embedded-gui/embedded-gui.rkt similarity index 100% rename from collects/embedded-gui/embedded-gui.ss rename to collects/embedded-gui/embedded-gui.rkt diff --git a/collects/embedded-gui/info.ss b/collects/embedded-gui/info.rkt similarity index 100% rename from collects/embedded-gui/info.ss rename to collects/embedded-gui/info.rkt diff --git a/collects/embedded-gui/main.ss b/collects/embedded-gui/main.rkt similarity index 100% rename from collects/embedded-gui/main.ss rename to collects/embedded-gui/main.rkt diff --git a/collects/embedded-gui/private/aligned-pasteboard.ss b/collects/embedded-gui/private/aligned-pasteboard.rkt similarity index 100% rename from collects/embedded-gui/private/aligned-pasteboard.ss rename to collects/embedded-gui/private/aligned-pasteboard.rkt diff --git a/collects/embedded-gui/private/alignment-helpers.ss b/collects/embedded-gui/private/alignment-helpers.rkt similarity index 100% rename from collects/embedded-gui/private/alignment-helpers.ss rename to collects/embedded-gui/private/alignment-helpers.rkt diff --git a/collects/embedded-gui/private/alignment.ss b/collects/embedded-gui/private/alignment.rkt similarity index 100% rename from collects/embedded-gui/private/alignment.ss rename to collects/embedded-gui/private/alignment.rkt diff --git a/collects/embedded-gui/private/button-snip.ss b/collects/embedded-gui/private/button-snip.rkt similarity index 100% rename from collects/embedded-gui/private/button-snip.ss rename to collects/embedded-gui/private/button-snip.rkt diff --git a/collects/embedded-gui/private/cue-text.ss b/collects/embedded-gui/private/cue-text.rkt similarity index 100% rename from collects/embedded-gui/private/cue-text.ss rename to collects/embedded-gui/private/cue-text.rkt diff --git a/collects/embedded-gui/private/dllist.ss b/collects/embedded-gui/private/dllist.rkt similarity index 100% rename from collects/embedded-gui/private/dllist.ss rename to collects/embedded-gui/private/dllist.rkt diff --git a/collects/embedded-gui/private/embedded-message.ss b/collects/embedded-gui/private/embedded-message.rkt similarity index 100% rename from collects/embedded-gui/private/embedded-message.ss rename to collects/embedded-gui/private/embedded-message.rkt diff --git a/collects/embedded-gui/private/fixed-width-label-snip.ss b/collects/embedded-gui/private/fixed-width-label-snip.rkt similarity index 100% rename from collects/embedded-gui/private/fixed-width-label-snip.ss rename to collects/embedded-gui/private/fixed-width-label-snip.rkt diff --git a/collects/embedded-gui/private/grey-editor.ss b/collects/embedded-gui/private/grey-editor.rkt similarity index 100% rename from collects/embedded-gui/private/grey-editor.ss rename to collects/embedded-gui/private/grey-editor.rkt diff --git a/collects/embedded-gui/private/grid-alignment.ss b/collects/embedded-gui/private/grid-alignment.rkt similarity index 100% rename from collects/embedded-gui/private/grid-alignment.ss rename to collects/embedded-gui/private/grid-alignment.rkt diff --git a/collects/embedded-gui/private/interface.ss b/collects/embedded-gui/private/interface.rkt similarity index 100% rename from collects/embedded-gui/private/interface.ss rename to collects/embedded-gui/private/interface.rkt diff --git a/collects/embedded-gui/private/lines.ss b/collects/embedded-gui/private/lines.rkt similarity index 100% rename from collects/embedded-gui/private/lines.ss rename to collects/embedded-gui/private/lines.rkt diff --git a/collects/embedded-gui/private/locked-pasteboard.ss b/collects/embedded-gui/private/locked-pasteboard.rkt similarity index 100% rename from collects/embedded-gui/private/locked-pasteboard.ss rename to collects/embedded-gui/private/locked-pasteboard.rkt diff --git a/collects/embedded-gui/private/on-show-editor.ss b/collects/embedded-gui/private/on-show-editor.rkt similarity index 100% rename from collects/embedded-gui/private/on-show-editor.ss rename to collects/embedded-gui/private/on-show-editor.rkt diff --git a/collects/embedded-gui/private/on-show-pasteboard.ss b/collects/embedded-gui/private/on-show-pasteboard.rkt similarity index 100% rename from collects/embedded-gui/private/on-show-pasteboard.ss rename to collects/embedded-gui/private/on-show-pasteboard.rkt diff --git a/collects/embedded-gui/private/program-editor.ss b/collects/embedded-gui/private/program-editor.rkt similarity index 100% rename from collects/embedded-gui/private/program-editor.ss rename to collects/embedded-gui/private/program-editor.rkt diff --git a/collects/embedded-gui/private/really-resized-pasteboard.ss b/collects/embedded-gui/private/really-resized-pasteboard.rkt similarity index 100% rename from collects/embedded-gui/private/really-resized-pasteboard.ss rename to collects/embedded-gui/private/really-resized-pasteboard.rkt diff --git a/collects/embedded-gui/private/single-line-text.ss b/collects/embedded-gui/private/single-line-text.rkt similarity index 100% rename from collects/embedded-gui/private/single-line-text.ss rename to collects/embedded-gui/private/single-line-text.rkt diff --git a/collects/embedded-gui/private/snip-lib.ss b/collects/embedded-gui/private/snip-lib.rkt similarity index 100% rename from collects/embedded-gui/private/snip-lib.ss rename to collects/embedded-gui/private/snip-lib.rkt diff --git a/collects/embedded-gui/private/snip-wrapper.ss b/collects/embedded-gui/private/snip-wrapper.rkt similarity index 100% rename from collects/embedded-gui/private/snip-wrapper.ss rename to collects/embedded-gui/private/snip-wrapper.rkt diff --git a/collects/embedded-gui/private/stretchable-editor-snip.ss b/collects/embedded-gui/private/stretchable-editor-snip.rkt similarity index 100% rename from collects/embedded-gui/private/stretchable-editor-snip.ss rename to collects/embedded-gui/private/stretchable-editor-snip.rkt diff --git a/collects/embedded-gui/private/suppress-modify-editor.ss b/collects/embedded-gui/private/suppress-modify-editor.rkt similarity index 100% rename from collects/embedded-gui/private/suppress-modify-editor.ss rename to collects/embedded-gui/private/suppress-modify-editor.rkt diff --git a/collects/embedded-gui/private/tabbable-text.ss b/collects/embedded-gui/private/tabbable-text.rkt similarity index 100% rename from collects/embedded-gui/private/tabbable-text.ss rename to collects/embedded-gui/private/tabbable-text.rkt diff --git a/collects/embedded-gui/private/tests/alignment-test.ss b/collects/embedded-gui/private/tests/alignment-test.rkt similarity index 100% rename from collects/embedded-gui/private/tests/alignment-test.ss rename to collects/embedded-gui/private/tests/alignment-test.rkt diff --git a/collects/embedded-gui/private/tests/info.ss b/collects/embedded-gui/private/tests/info.rkt similarity index 100% rename from collects/embedded-gui/private/tests/info.ss rename to collects/embedded-gui/private/tests/info.rkt diff --git a/collects/embedded-gui/private/tests/not-stetching.ss b/collects/embedded-gui/private/tests/not-stetching.rkt similarity index 100% rename from collects/embedded-gui/private/tests/not-stetching.ss rename to collects/embedded-gui/private/tests/not-stetching.rkt diff --git a/collects/embedded-gui/private/tests/only-one-child.ss b/collects/embedded-gui/private/tests/only-one-child.rkt similarity index 100% rename from collects/embedded-gui/private/tests/only-one-child.ss rename to collects/embedded-gui/private/tests/only-one-child.rkt diff --git a/collects/embedded-gui/private/tests/peer-stretchables.ss b/collects/embedded-gui/private/tests/peer-stretchables.rkt similarity index 100% rename from collects/embedded-gui/private/tests/peer-stretchables.ss rename to collects/embedded-gui/private/tests/peer-stretchables.rkt diff --git a/collects/embedded-gui/private/tests/stretching-in-alignment.ss b/collects/embedded-gui/private/tests/stretching-in-alignment.rkt similarity index 100% rename from collects/embedded-gui/private/tests/stretching-in-alignment.ss rename to collects/embedded-gui/private/tests/stretching-in-alignment.rkt diff --git a/collects/embedded-gui/private/tests/target-not-object.ss b/collects/embedded-gui/private/tests/target-not-object.rkt similarity index 100% rename from collects/embedded-gui/private/tests/target-not-object.ss rename to collects/embedded-gui/private/tests/target-not-object.rkt diff --git a/collects/embedded-gui/private/tests/test-alignment.ss b/collects/embedded-gui/private/tests/test-alignment.rkt similarity index 100% rename from collects/embedded-gui/private/tests/test-alignment.ss rename to collects/embedded-gui/private/tests/test-alignment.rkt diff --git a/collects/embedded-gui/private/tests/test-case-box.ss b/collects/embedded-gui/private/tests/test-case-box.rkt similarity index 100% rename from collects/embedded-gui/private/tests/test-case-box.ss rename to collects/embedded-gui/private/tests/test-case-box.rkt diff --git a/collects/embedded-gui/private/tests/test-macro.ss b/collects/embedded-gui/private/tests/test-macro.rkt similarity index 100% rename from collects/embedded-gui/private/tests/test-macro.ss rename to collects/embedded-gui/private/tests/test-macro.rkt diff --git a/collects/embedded-gui/private/tests/test-show-feature-for-test-case.ss b/collects/embedded-gui/private/tests/test-show-feature-for-test-case.rkt similarity index 100% rename from collects/embedded-gui/private/tests/test-show-feature-for-test-case.ss rename to collects/embedded-gui/private/tests/test-show-feature-for-test-case.rkt diff --git a/collects/embedded-gui/private/tests/test-show-feature.ss b/collects/embedded-gui/private/tests/test-show-feature.rkt similarity index 100% rename from collects/embedded-gui/private/tests/test-show-feature.ss rename to collects/embedded-gui/private/tests/test-show-feature.rkt diff --git a/collects/embedded-gui/private/tests/unaligned-childless-redux.ss b/collects/embedded-gui/private/tests/unaligned-childless-redux.rkt similarity index 100% rename from collects/embedded-gui/private/tests/unaligned-childless-redux.ss rename to collects/embedded-gui/private/tests/unaligned-childless-redux.rkt diff --git a/collects/embedded-gui/private/verthoriz-alignment.ss b/collects/embedded-gui/private/verthoriz-alignment.rkt similarity index 100% rename from collects/embedded-gui/private/verthoriz-alignment.ss rename to collects/embedded-gui/private/verthoriz-alignment.rkt diff --git a/collects/embedded-gui/scribblings/common.ss b/collects/embedded-gui/scribblings/common.rkt similarity index 100% rename from collects/embedded-gui/scribblings/common.ss rename to collects/embedded-gui/scribblings/common.rkt diff --git a/collects/eopl/datatype.ss b/collects/eopl/datatype.rkt similarity index 100% rename from collects/eopl/datatype.ss rename to collects/eopl/datatype.rkt diff --git a/collects/eopl/eopl-tool.ss b/collects/eopl/eopl-tool.rkt similarity index 100% rename from collects/eopl/eopl-tool.ss rename to collects/eopl/eopl-tool.rkt diff --git a/collects/eopl/eopl.ss b/collects/eopl/eopl.rkt similarity index 100% rename from collects/eopl/eopl.ss rename to collects/eopl/eopl.rkt diff --git a/collects/eopl/info.ss b/collects/eopl/info.rkt similarity index 100% rename from collects/eopl/info.ss rename to collects/eopl/info.rkt diff --git a/collects/eopl/lang/reader.ss b/collects/eopl/lang/reader.rkt similarity index 100% rename from collects/eopl/lang/reader.ss rename to collects/eopl/lang/reader.rkt diff --git a/collects/eopl/main.ss b/collects/eopl/main.rkt similarity index 100% rename from collects/eopl/main.ss rename to collects/eopl/main.rkt diff --git a/collects/eopl/private/sllboth.ss b/collects/eopl/private/sllboth.rkt similarity index 100% rename from collects/eopl/private/sllboth.ss rename to collects/eopl/private/sllboth.rkt diff --git a/collects/eopl/private/slldef.ss b/collects/eopl/private/slldef.rkt similarity index 100% rename from collects/eopl/private/slldef.ss rename to collects/eopl/private/slldef.rkt diff --git a/collects/eopl/private/sllgen.ss b/collects/eopl/private/sllgen.rkt similarity index 100% rename from collects/eopl/private/sllgen.ss rename to collects/eopl/private/sllgen.rkt diff --git a/collects/eopl/private/utils.ss b/collects/eopl/private/utils.rkt similarity index 100% rename from collects/eopl/private/utils.ss rename to collects/eopl/private/utils.rkt diff --git a/collects/errortrace/errortrace-key-syntax.ss b/collects/errortrace/errortrace-key-syntax.rkt similarity index 100% rename from collects/errortrace/errortrace-key-syntax.ss rename to collects/errortrace/errortrace-key-syntax.rkt diff --git a/collects/errortrace/errortrace-key.ss b/collects/errortrace/errortrace-key.rkt similarity index 100% rename from collects/errortrace/errortrace-key.ss rename to collects/errortrace/errortrace-key.rkt diff --git a/collects/errortrace/errortrace-lib.ss b/collects/errortrace/errortrace-lib.rkt similarity index 100% rename from collects/errortrace/errortrace-lib.ss rename to collects/errortrace/errortrace-lib.rkt diff --git a/collects/errortrace/errortrace.ss b/collects/errortrace/errortrace.rkt similarity index 100% rename from collects/errortrace/errortrace.ss rename to collects/errortrace/errortrace.rkt diff --git a/collects/errortrace/lang/body.ss b/collects/errortrace/lang/body.rkt similarity index 100% rename from collects/errortrace/lang/body.ss rename to collects/errortrace/lang/body.rkt diff --git a/collects/errortrace/lang/reader.ss b/collects/errortrace/lang/reader.rkt similarity index 100% rename from collects/errortrace/lang/reader.ss rename to collects/errortrace/lang/reader.rkt diff --git a/collects/errortrace/main.ss b/collects/errortrace/main.rkt similarity index 100% rename from collects/errortrace/main.ss rename to collects/errortrace/main.rkt diff --git a/collects/errortrace/scribblings/info.ss b/collects/errortrace/scribblings/info.rkt similarity index 100% rename from collects/errortrace/scribblings/info.ss rename to collects/errortrace/scribblings/info.rkt diff --git a/collects/errortrace/stacktrace.ss b/collects/errortrace/stacktrace.rkt similarity index 100% rename from collects/errortrace/stacktrace.ss rename to collects/errortrace/stacktrace.rkt diff --git a/collects/errortrace/zo-compile.ss b/collects/errortrace/zo-compile.rkt similarity index 100% rename from collects/errortrace/zo-compile.ss rename to collects/errortrace/zo-compile.rkt diff --git a/collects/ffi/examples/c-printf.ss b/collects/ffi/examples/c-printf.rkt similarity index 100% rename from collects/ffi/examples/c-printf.ss rename to collects/ffi/examples/c-printf.rkt diff --git a/collects/ffi/examples/crypt.ss b/collects/ffi/examples/crypt.rkt similarity index 100% rename from collects/ffi/examples/crypt.ss rename to collects/ffi/examples/crypt.rkt diff --git a/collects/ffi/examples/esd.ss b/collects/ffi/examples/esd.rkt similarity index 100% rename from collects/ffi/examples/esd.ss rename to collects/ffi/examples/esd.rkt diff --git a/collects/ffi/examples/magick.ss b/collects/ffi/examples/magick.rkt similarity index 100% rename from collects/ffi/examples/magick.ss rename to collects/ffi/examples/magick.rkt diff --git a/collects/ffi/examples/sndfile.ss b/collects/ffi/examples/sndfile.rkt similarity index 100% rename from collects/ffi/examples/sndfile.ss rename to collects/ffi/examples/sndfile.rkt diff --git a/collects/ffi/examples/tcl.ss b/collects/ffi/examples/tcl.rkt similarity index 100% rename from collects/ffi/examples/tcl.ss rename to collects/ffi/examples/tcl.rkt diff --git a/collects/ffi/examples/use-c-printf.ss b/collects/ffi/examples/use-c-printf.rkt similarity index 100% rename from collects/ffi/examples/use-c-printf.ss rename to collects/ffi/examples/use-c-printf.rkt diff --git a/collects/ffi/examples/use-crypt.ss b/collects/ffi/examples/use-crypt.rkt similarity index 100% rename from collects/ffi/examples/use-crypt.ss rename to collects/ffi/examples/use-crypt.rkt diff --git a/collects/ffi/examples/use-esd.ss b/collects/ffi/examples/use-esd.rkt similarity index 100% rename from collects/ffi/examples/use-esd.ss rename to collects/ffi/examples/use-esd.rkt diff --git a/collects/ffi/examples/use-magick.ss b/collects/ffi/examples/use-magick.rkt similarity index 100% rename from collects/ffi/examples/use-magick.ss rename to collects/ffi/examples/use-magick.rkt diff --git a/collects/ffi/examples/use-sndfile.ss b/collects/ffi/examples/use-sndfile.rkt similarity index 100% rename from collects/ffi/examples/use-sndfile.ss rename to collects/ffi/examples/use-sndfile.rkt diff --git a/collects/ffi/examples/use-tcl.ss b/collects/ffi/examples/use-tcl.rkt similarity index 100% rename from collects/ffi/examples/use-tcl.ss rename to collects/ffi/examples/use-tcl.rkt diff --git a/collects/ffi/examples/use-xmmsctrl.ss b/collects/ffi/examples/use-xmmsctrl.rkt similarity index 100% rename from collects/ffi/examples/use-xmmsctrl.ss rename to collects/ffi/examples/use-xmmsctrl.rkt diff --git a/collects/ffi/examples/use-xosd.ss b/collects/ffi/examples/use-xosd.rkt similarity index 100% rename from collects/ffi/examples/use-xosd.ss rename to collects/ffi/examples/use-xosd.rkt diff --git a/collects/ffi/examples/xmmsctrl.ss b/collects/ffi/examples/xmmsctrl.rkt similarity index 100% rename from collects/ffi/examples/xmmsctrl.ss rename to collects/ffi/examples/xmmsctrl.rkt diff --git a/collects/ffi/examples/xosd.ss b/collects/ffi/examples/xosd.rkt similarity index 100% rename from collects/ffi/examples/xosd.ss rename to collects/ffi/examples/xosd.rkt diff --git a/collects/ffi/info.ss b/collects/ffi/info.rkt similarity index 100% rename from collects/ffi/info.ss rename to collects/ffi/info.rkt diff --git a/collects/ffi/objc.ss b/collects/ffi/objc.rkt similarity index 100% rename from collects/ffi/objc.ss rename to collects/ffi/objc.rkt diff --git a/collects/file/gif.ss b/collects/file/gif.rkt similarity index 100% rename from collects/file/gif.ss rename to collects/file/gif.rkt diff --git a/collects/file/gunzip.ss b/collects/file/gunzip.rkt similarity index 100% rename from collects/file/gunzip.ss rename to collects/file/gunzip.rkt diff --git a/collects/file/gzip.ss b/collects/file/gzip.rkt similarity index 100% rename from collects/file/gzip.ss rename to collects/file/gzip.rkt diff --git a/collects/file/md5.ss b/collects/file/md5.rkt similarity index 100% rename from collects/file/md5.ss rename to collects/file/md5.rkt diff --git a/collects/file/private/octree-quantize.ss b/collects/file/private/octree-quantize.rkt similarity index 100% rename from collects/file/private/octree-quantize.ss rename to collects/file/private/octree-quantize.rkt diff --git a/collects/file/scribblings/common.ss b/collects/file/scribblings/common.rkt similarity index 100% rename from collects/file/scribblings/common.ss rename to collects/file/scribblings/common.rkt diff --git a/collects/file/scribblings/gif.scrbl b/collects/file/scribblings/gif.scrbl index c07c2a6817..dd1904c8e2 100644 --- a/collects/file/scribblings/gif.scrbl +++ b/collects/file/scribblings/gif.scrbl @@ -33,4 +33,4 @@ A GIF stream can be in any one of the following states: ] -@(include-extracted "../gif.ss") +@(include-extracted "../gif.rkt") diff --git a/collects/file/scribblings/info.ss b/collects/file/scribblings/info.rkt similarity index 100% rename from collects/file/scribblings/info.ss rename to collects/file/scribblings/info.rkt diff --git a/collects/file/tar.ss b/collects/file/tar.rkt similarity index 100% rename from collects/file/tar.ss rename to collects/file/tar.rkt diff --git a/collects/file/zip.ss b/collects/file/zip.rkt similarity index 100% rename from collects/file/zip.ss rename to collects/file/zip.rkt diff --git a/collects/framework/collapsed-snipclass.ss b/collects/framework/collapsed-snipclass.rkt similarity index 100% rename from collects/framework/collapsed-snipclass.ss rename to collects/framework/collapsed-snipclass.rkt diff --git a/collects/framework/comment-snip.ss b/collects/framework/comment-snip.rkt similarity index 100% rename from collects/framework/comment-snip.ss rename to collects/framework/comment-snip.rkt diff --git a/collects/framework/decorated-editor-snip.ss b/collects/framework/decorated-editor-snip.rkt similarity index 100% rename from collects/framework/decorated-editor-snip.ss rename to collects/framework/decorated-editor-snip.rkt diff --git a/collects/framework/framework-sig.ss b/collects/framework/framework-sig.rkt similarity index 100% rename from collects/framework/framework-sig.ss rename to collects/framework/framework-sig.rkt diff --git a/collects/framework/framework-unit.ss b/collects/framework/framework-unit.rkt similarity index 100% rename from collects/framework/framework-unit.ss rename to collects/framework/framework-unit.rkt diff --git a/collects/framework/framework.ss b/collects/framework/framework.rkt similarity index 100% rename from collects/framework/framework.ss rename to collects/framework/framework.rkt diff --git a/collects/framework/gui-utils.ss b/collects/framework/gui-utils.rkt similarity index 100% rename from collects/framework/gui-utils.ss rename to collects/framework/gui-utils.rkt diff --git a/collects/framework/keybinding-lang.ss b/collects/framework/keybinding-lang.rkt similarity index 100% rename from collects/framework/keybinding-lang.ss rename to collects/framework/keybinding-lang.rkt diff --git a/collects/framework/main.ss b/collects/framework/main.rkt similarity index 100% rename from collects/framework/main.ss rename to collects/framework/main.rkt diff --git a/collects/framework/preferences.ss b/collects/framework/preferences.rkt similarity index 88% rename from collects/framework/preferences.ss rename to collects/framework/preferences.rkt index 1a6d83a088..dbec958481 100644 --- a/collects/framework/preferences.ss +++ b/collects/framework/preferences.rkt @@ -70,8 +70,8 @@ the state transitions / contracts are: ;; type pref = (make-pref any) (define-struct pref (value)) -;; type default = (make-default any (any -> bool)) -(define-struct default (value checker)) +;; type default = (make-default any (-> any bool) (listof symbol) (listof (-> any any))) +(define-struct default (value checker aliases rewrite-aliases)) ;; pref-callback : (make-pref-callback (union (weak-box (sym tst -> void)) (sym tst -> void))) ;; this is used as a wrapped to deal with the problem that different procedures might be eq?. @@ -93,8 +93,7 @@ the state transitions / contracts are: ;; it's not there, use the default [(pref-default-set? p) (let* (;; try to read the preferece from the preferences file - [v ((preferences:low-level-get-preference) - (add-pref-prefix p) (λ () none))] + [v (read-pref-from-file p)] [v (if (eq? v none) ;; no value read, take the default value (default-value (hash-ref defaults p)) @@ -109,6 +108,22 @@ the state transitions / contracts are: "tried to get a preference but no default set for ~e" p)])) +;; read-pref-from-file : symbol -> (or/c any none) +;; reads the preference saved in the low-level preferences +;; file, first checking 'p' and then checking the aliases (in order) +(define (read-pref-from-file p) + (let ([defaults (hash-ref defaults p)]) + (let loop ([syms (cons p (default-aliases defaults))] + [rewriters (cons values (default-rewrite-aliases defaults))]) + (cond + [(null? syms) none] + [else + (let/ec k + ((car rewriters) + ((preferences:low-level-get-preference) + (add-pref-prefix (car syms)) + (lambda () (k (loop (cdr syms) (cdr rewriters)))))))])))) + ;; set : symbol any -> void ;; updates the preference ;; exported @@ -221,15 +236,22 @@ the state transitions / contracts are: (λ (p def) (preferences:set p (default-value def))))) ;; set-default : (sym TST (TST -> boolean) -> void -(define (preferences:set-default p default-value checker) +(define (preferences:set-default p default-value checker + #:aliases [aliases '()] + #:rewrite-aliases [rewrite-aliases (map (lambda (x) values) aliases)]) (cond [(and (not (pref-default-set? p)) (pref-can-init? p)) (let ([default-okay? (checker default-value)]) (unless default-okay? (error 'set-default "~s: checker (~s) returns ~s for ~s, expected #t~n" - p checker default-okay? default-value)) - (hash-set! defaults p (make-default default-value checker)))] + p checker default-okay? default-value))) + + (unless (= (length aliases) (length rewrite-aliases)) + (error 'preferences:set-default + "expected equal length lists for the #:aliases and #:rewrite-aliases arguments, got ~e and ~e" + aliases rewrite-aliases)) + (hash-set! defaults p (make-default default-value checker aliases rewrite-aliases))] [(not (pref-can-init? p)) (error 'preferences:set-default "tried to call set-default for preference ~e but it cannot be configured any more" @@ -351,8 +373,12 @@ the state transitions / contracts are: if the preference has not been set.}) (proc-doc/names preferences:set-default - (symbol? any/c (any/c . -> . any) . -> . void?) - (symbol value test) + (->* (symbol? any/c (any/c . -> . any)) + (#:aliases (listof symbol?) + #:rewrite-aliases (listof (-> any/c any))) + void?) + ((symbol value test) + ((aliases '()) (rewrite-aliases (map (lambda (x) (values)) aliases)))) @{This function must be called every time your application starts up, before any call to @scheme[preferences:get] or @scheme[preferences:set] (for any given preference). @@ -364,11 +390,19 @@ the state transitions / contracts are: @scheme[value]. If the user has chosen a different setting, the user's setting will take precedence over the default value. - The last argument, @scheme[test] is used as a safeguard. That function is + The @scheme[test] argument is used as a safeguard. That function is called to determine if a preference read in from a file is a valid preference. If @scheme[test] returns @scheme[#t], then the preference is treated as valid. If @scheme[test] returns @scheme[#f] then the default is - used.}) + used. + + The @scheme[aliases] and @scheme[rewrite-aliases] arguments aids + in renaming preferences. If @scheme[aliases] is present, it is + expected to be a list of symbols that correspond to old versions + of the preferences. It defaults to @scheme['()]. If @scheme[rewrite-aliases] + is present, it is used to adjust the old values of the preferences + when they are present in the saved file.}) + (proc-doc/names preferences:set-un/marshall (symbol? (any/c . -> . printable/c) (printable/c . -> . any/c) . -> . void?) diff --git a/collects/framework/private/application.ss b/collects/framework/private/application.rkt similarity index 100% rename from collects/framework/private/application.ss rename to collects/framework/private/application.rkt diff --git a/collects/framework/private/autosave.ss b/collects/framework/private/autosave.rkt similarity index 100% rename from collects/framework/private/autosave.ss rename to collects/framework/private/autosave.rkt diff --git a/collects/framework/private/bday.ss b/collects/framework/private/bday.rkt similarity index 100% rename from collects/framework/private/bday.ss rename to collects/framework/private/bday.rkt diff --git a/collects/framework/private/canvas.ss b/collects/framework/private/canvas.rkt similarity index 100% rename from collects/framework/private/canvas.ss rename to collects/framework/private/canvas.rkt diff --git a/collects/framework/private/collapsed-snipclass-helpers.ss b/collects/framework/private/collapsed-snipclass-helpers.rkt similarity index 100% rename from collects/framework/private/collapsed-snipclass-helpers.ss rename to collects/framework/private/collapsed-snipclass-helpers.rkt diff --git a/collects/framework/private/color-model.ss b/collects/framework/private/color-model.rkt similarity index 100% rename from collects/framework/private/color-model.ss rename to collects/framework/private/color-model.rkt diff --git a/collects/framework/private/color-prefs.ss b/collects/framework/private/color-prefs.rkt similarity index 100% rename from collects/framework/private/color-prefs.ss rename to collects/framework/private/color-prefs.rkt diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.rkt similarity index 100% rename from collects/framework/private/color.ss rename to collects/framework/private/color.rkt diff --git a/collects/framework/private/comment-box.ss b/collects/framework/private/comment-box.rkt similarity index 100% rename from collects/framework/private/comment-box.ss rename to collects/framework/private/comment-box.rkt diff --git a/collects/framework/private/decode.ss b/collects/framework/private/decode.rkt similarity index 100% rename from collects/framework/private/decode.ss rename to collects/framework/private/decode.rkt diff --git a/collects/framework/private/decorated-editor-snip.ss b/collects/framework/private/decorated-editor-snip.rkt similarity index 100% rename from collects/framework/private/decorated-editor-snip.ss rename to collects/framework/private/decorated-editor-snip.rkt diff --git a/collects/framework/private/editor.ss b/collects/framework/private/editor.rkt similarity index 100% rename from collects/framework/private/editor.ss rename to collects/framework/private/editor.rkt diff --git a/collects/framework/private/encode.ss b/collects/framework/private/encode.rkt similarity index 100% rename from collects/framework/private/encode.ss rename to collects/framework/private/encode.rkt diff --git a/collects/framework/private/exit.ss b/collects/framework/private/exit.rkt similarity index 100% rename from collects/framework/private/exit.ss rename to collects/framework/private/exit.rkt diff --git a/collects/framework/private/finder.ss b/collects/framework/private/finder.rkt similarity index 100% rename from collects/framework/private/finder.ss rename to collects/framework/private/finder.rkt diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.rkt similarity index 99% rename from collects/framework/private/frame.ss rename to collects/framework/private/frame.rkt index 154af717ea..8b1ec3bf30 100644 --- a/collects/framework/private/frame.ss +++ b/collects/framework/private/frame.rkt @@ -996,7 +996,7 @@ (mixin (basic<%>) (pasteboard-info<%>) (super-new))) -(include "standard-menus.ss") +(include "standard-menus.rkt") (define -editor<%> (interface (standard-menus<%>) get-entire-label @@ -2061,8 +2061,10 @@ (unless hidden? (when find-edit (when old - (send old set-searching-state #f #f #f)) + (send old set-searching-state #f #f #f) + (send old set-search-anchor #f)) (when new + (send new set-search-anchor (send new get-start-position)) (search-parameters-changed))))))) (define/public-final (search-hits-changed) diff --git a/collects/framework/private/gen-standard-menus.ss b/collects/framework/private/gen-standard-menus.rkt similarity index 100% rename from collects/framework/private/gen-standard-menus.ss rename to collects/framework/private/gen-standard-menus.rkt diff --git a/collects/framework/private/group.ss b/collects/framework/private/group.rkt similarity index 100% rename from collects/framework/private/group.ss rename to collects/framework/private/group.rkt diff --git a/collects/framework/private/handler.ss b/collects/framework/private/handler.rkt similarity index 100% rename from collects/framework/private/handler.ss rename to collects/framework/private/handler.rkt diff --git a/collects/framework/private/icon.ss b/collects/framework/private/icon.rkt similarity index 100% rename from collects/framework/private/icon.ss rename to collects/framework/private/icon.rkt diff --git a/collects/framework/private/info.rkt b/collects/framework/private/info.rkt new file mode 100644 index 0000000000..97b1649d52 --- /dev/null +++ b/collects/framework/private/info.rkt @@ -0,0 +1,3 @@ +#lang setup/infotab + +(define compile-omit-paths '("standard-menus.rkt")) diff --git a/collects/framework/private/info.ss b/collects/framework/private/info.ss deleted file mode 100644 index 14c0367cff..0000000000 --- a/collects/framework/private/info.ss +++ /dev/null @@ -1,3 +0,0 @@ -#lang setup/infotab - -(define compile-omit-paths '("standard-menus.ss")) diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.rkt similarity index 100% rename from collects/framework/private/keymap.ss rename to collects/framework/private/keymap.rkt diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.rkt similarity index 100% rename from collects/framework/private/main.ss rename to collects/framework/private/main.rkt diff --git a/collects/framework/private/mapdesc.ss b/collects/framework/private/mapdesc.rkt similarity index 100% rename from collects/framework/private/mapdesc.ss rename to collects/framework/private/mapdesc.rkt diff --git a/collects/framework/private/menu.ss b/collects/framework/private/menu.rkt similarity index 100% rename from collects/framework/private/menu.ss rename to collects/framework/private/menu.rkt diff --git a/collects/framework/private/mode.ss b/collects/framework/private/mode.rkt similarity index 100% rename from collects/framework/private/mode.ss rename to collects/framework/private/mode.rkt diff --git a/collects/framework/private/number-snip.ss b/collects/framework/private/number-snip.rkt similarity index 100% rename from collects/framework/private/number-snip.ss rename to collects/framework/private/number-snip.rkt diff --git a/collects/framework/private/panel.ss b/collects/framework/private/panel.rkt similarity index 100% rename from collects/framework/private/panel.ss rename to collects/framework/private/panel.rkt diff --git a/collects/framework/private/pasteboard.ss b/collects/framework/private/pasteboard.rkt similarity index 100% rename from collects/framework/private/pasteboard.ss rename to collects/framework/private/pasteboard.rkt diff --git a/collects/framework/private/path-utils.ss b/collects/framework/private/path-utils.rkt similarity index 100% rename from collects/framework/private/path-utils.ss rename to collects/framework/private/path-utils.rkt diff --git a/collects/framework/private/preferences.ss b/collects/framework/private/preferences.rkt similarity index 100% rename from collects/framework/private/preferences.ss rename to collects/framework/private/preferences.rkt diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.rkt similarity index 100% rename from collects/framework/private/scheme.ss rename to collects/framework/private/scheme.rkt diff --git a/collects/framework/private/search.ss b/collects/framework/private/search.rkt similarity index 100% rename from collects/framework/private/search.ss rename to collects/framework/private/search.rkt diff --git a/collects/framework/private/sig.ss b/collects/framework/private/sig.rkt similarity index 100% rename from collects/framework/private/sig.ss rename to collects/framework/private/sig.rkt diff --git a/collects/framework/private/standard-menus-items.ss b/collects/framework/private/standard-menus-items.rkt similarity index 100% rename from collects/framework/private/standard-menus-items.ss rename to collects/framework/private/standard-menus-items.rkt diff --git a/collects/framework/private/standard-menus.ss b/collects/framework/private/standard-menus.rkt similarity index 100% rename from collects/framework/private/standard-menus.ss rename to collects/framework/private/standard-menus.rkt diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.rkt similarity index 100% rename from collects/framework/private/text.ss rename to collects/framework/private/text.rkt diff --git a/collects/framework/private/version.ss b/collects/framework/private/version.rkt similarity index 100% rename from collects/framework/private/version.ss rename to collects/framework/private/version.rkt diff --git a/collects/framework/splash.ss b/collects/framework/splash.rkt similarity index 100% rename from collects/framework/splash.ss rename to collects/framework/splash.rkt diff --git a/collects/framework/test.ss b/collects/framework/test.rkt similarity index 100% rename from collects/framework/test.ss rename to collects/framework/test.rkt diff --git a/collects/frtime/animation.ss b/collects/frtime/animation.rkt similarity index 100% rename from collects/frtime/animation.ss rename to collects/frtime/animation.rkt diff --git a/collects/frtime/animation/graphics-posn-less-unit.ss b/collects/frtime/animation/graphics-posn-less-unit.rkt similarity index 100% rename from collects/frtime/animation/graphics-posn-less-unit.ss rename to collects/frtime/animation/graphics-posn-less-unit.rkt diff --git a/collects/frtime/animation/graphics-sig.ss b/collects/frtime/animation/graphics-sig.rkt similarity index 100% rename from collects/frtime/animation/graphics-sig.ss rename to collects/frtime/animation/graphics-sig.rkt diff --git a/collects/frtime/animation/graphics-unit.ss b/collects/frtime/animation/graphics-unit.rkt similarity index 100% rename from collects/frtime/animation/graphics-unit.ss rename to collects/frtime/animation/graphics-unit.rkt diff --git a/collects/frtime/animation/graphics.ss b/collects/frtime/animation/graphics.rkt similarity index 100% rename from collects/frtime/animation/graphics.ss rename to collects/frtime/animation/graphics.rkt diff --git a/collects/frtime/core/contract.ss b/collects/frtime/core/contract.rkt similarity index 100% rename from collects/frtime/core/contract.ss rename to collects/frtime/core/contract.rkt diff --git a/collects/frtime/core/dv.ss b/collects/frtime/core/dv.rkt similarity index 100% rename from collects/frtime/core/dv.ss rename to collects/frtime/core/dv.rkt diff --git a/collects/frtime/core/erl.ss b/collects/frtime/core/erl.rkt similarity index 100% rename from collects/frtime/core/erl.ss rename to collects/frtime/core/erl.rkt diff --git a/collects/frtime/core/frp.ss b/collects/frtime/core/frp.rkt similarity index 100% rename from collects/frtime/core/frp.ss rename to collects/frtime/core/frp.rkt diff --git a/collects/frtime/core/heap.ss b/collects/frtime/core/heap.rkt similarity index 100% rename from collects/frtime/core/heap.ss rename to collects/frtime/core/heap.rkt diff --git a/collects/frtime/core/mailbox.ss b/collects/frtime/core/mailbox.rkt similarity index 100% rename from collects/frtime/core/mailbox.ss rename to collects/frtime/core/mailbox.rkt diff --git a/collects/frtime/core/match.ss b/collects/frtime/core/match.rkt similarity index 100% rename from collects/frtime/core/match.ss rename to collects/frtime/core/match.rkt diff --git a/collects/frtime/core/sema-mailbox.ss b/collects/frtime/core/sema-mailbox.rkt similarity index 100% rename from collects/frtime/core/sema-mailbox.ss rename to collects/frtime/core/sema-mailbox.rkt diff --git a/collects/frtime/demos/analog-clock.ss b/collects/frtime/demos/analog-clock.rkt similarity index 100% rename from collects/frtime/demos/analog-clock.ss rename to collects/frtime/demos/analog-clock.rkt diff --git a/collects/frtime/demos/ball-on-string.ss b/collects/frtime/demos/ball-on-string.rkt similarity index 100% rename from collects/frtime/demos/ball-on-string.ss rename to collects/frtime/demos/ball-on-string.rkt diff --git a/collects/frtime/demos/delay-mouse.ss b/collects/frtime/demos/delay-mouse.rkt similarity index 100% rename from collects/frtime/demos/delay-mouse.ss rename to collects/frtime/demos/delay-mouse.rkt diff --git a/collects/frtime/demos/growing-points.ss b/collects/frtime/demos/growing-points.rkt similarity index 100% rename from collects/frtime/demos/growing-points.ss rename to collects/frtime/demos/growing-points.rkt diff --git a/collects/frtime/demos/mirror-lens.ss b/collects/frtime/demos/mirror-lens.rkt similarity index 100% rename from collects/frtime/demos/mirror-lens.ss rename to collects/frtime/demos/mirror-lens.rkt diff --git a/collects/frtime/demos/mouse.ss b/collects/frtime/demos/mouse.rkt similarity index 100% rename from collects/frtime/demos/mouse.ss rename to collects/frtime/demos/mouse.rkt diff --git a/collects/frtime/demos/needles.ss b/collects/frtime/demos/needles.rkt similarity index 100% rename from collects/frtime/demos/needles.ss rename to collects/frtime/demos/needles.rkt diff --git a/collects/frtime/demos/orbit-mouse.ss b/collects/frtime/demos/orbit-mouse.rkt similarity index 100% rename from collects/frtime/demos/orbit-mouse.ss rename to collects/frtime/demos/orbit-mouse.rkt diff --git a/collects/frtime/demos/piston.ss b/collects/frtime/demos/piston.rkt similarity index 100% rename from collects/frtime/demos/piston.ss rename to collects/frtime/demos/piston.rkt diff --git a/collects/frtime/demos/pong.ss b/collects/frtime/demos/pong.rkt similarity index 100% rename from collects/frtime/demos/pong.ss rename to collects/frtime/demos/pong.rkt diff --git a/collects/frtime/demos/push-pull-ball.ss b/collects/frtime/demos/push-pull-ball.rkt similarity index 100% rename from collects/frtime/demos/push-pull-ball.ss rename to collects/frtime/demos/push-pull-ball.rkt diff --git a/collects/frtime/demos/rotation.ss b/collects/frtime/demos/rotation.rkt similarity index 100% rename from collects/frtime/demos/rotation.ss rename to collects/frtime/demos/rotation.rkt diff --git a/collects/frtime/demos/tetris.ss b/collects/frtime/demos/tetris.rkt similarity index 100% rename from collects/frtime/demos/tetris.ss rename to collects/frtime/demos/tetris.rkt diff --git a/collects/frtime/demos/tile-game.ss b/collects/frtime/demos/tile-game.rkt similarity index 100% rename from collects/frtime/demos/tile-game.ss rename to collects/frtime/demos/tile-game.rkt diff --git a/collects/frtime/demos/ufo.ss b/collects/frtime/demos/ufo.rkt similarity index 100% rename from collects/frtime/demos/ufo.ss rename to collects/frtime/demos/ufo.rkt diff --git a/collects/frtime/frlibs/date.ss b/collects/frtime/frlibs/date.rkt similarity index 100% rename from collects/frtime/frlibs/date.ss rename to collects/frtime/frlibs/date.rkt diff --git a/collects/frtime/frlibs/etc.ss b/collects/frtime/frlibs/etc.rkt similarity index 100% rename from collects/frtime/frlibs/etc.ss rename to collects/frtime/frlibs/etc.rkt diff --git a/collects/frtime/frlibs/list.ss b/collects/frtime/frlibs/list.rkt similarity index 100% rename from collects/frtime/frlibs/list.ss rename to collects/frtime/frlibs/list.rkt diff --git a/collects/frtime/frlibs/math.ss b/collects/frtime/frlibs/math.rkt similarity index 100% rename from collects/frtime/frlibs/math.ss rename to collects/frtime/frlibs/math.rkt diff --git a/collects/frtime/frp-snip.ss b/collects/frtime/frp-snip.rkt similarity index 100% rename from collects/frtime/frp-snip.ss rename to collects/frtime/frp-snip.rkt diff --git a/collects/frtime/frtime-big.ss b/collects/frtime/frtime-big.rkt similarity index 100% rename from collects/frtime/frtime-big.ss rename to collects/frtime/frtime-big.rkt diff --git a/collects/frtime/frtime-lang-only.ss b/collects/frtime/frtime-lang-only.rkt similarity index 100% rename from collects/frtime/frtime-lang-only.ss rename to collects/frtime/frtime-lang-only.rkt diff --git a/collects/frtime/frtime.ss b/collects/frtime/frtime.rkt similarity index 100% rename from collects/frtime/frtime.ss rename to collects/frtime/frtime.rkt diff --git a/collects/frtime/gui.ss b/collects/frtime/gui.rkt similarity index 100% rename from collects/frtime/gui.ss rename to collects/frtime/gui.rkt diff --git a/collects/frtime/gui/aux-mixin-macros.ss b/collects/frtime/gui/aux-mixin-macros.rkt similarity index 100% rename from collects/frtime/gui/aux-mixin-macros.ss rename to collects/frtime/gui/aux-mixin-macros.rkt diff --git a/collects/frtime/gui/demo/bindec.ss b/collects/frtime/gui/demo/bindec.rkt similarity index 100% rename from collects/frtime/gui/demo/bindec.ss rename to collects/frtime/gui/demo/bindec.rkt diff --git a/collects/frtime/gui/demo/instr.ss b/collects/frtime/gui/demo/instr.rkt similarity index 100% rename from collects/frtime/gui/demo/instr.ss rename to collects/frtime/gui/demo/instr.rkt diff --git a/collects/frtime/gui/demo/timer.ss b/collects/frtime/gui/demo/timer.rkt similarity index 100% rename from collects/frtime/gui/demo/timer.ss rename to collects/frtime/gui/demo/timer.rkt diff --git a/collects/frtime/gui/fred.ss b/collects/frtime/gui/fred.rkt similarity index 100% rename from collects/frtime/gui/fred.ss rename to collects/frtime/gui/fred.rkt diff --git a/collects/frtime/gui/info.ss b/collects/frtime/gui/info.rkt similarity index 100% rename from collects/frtime/gui/info.ss rename to collects/frtime/gui/info.rkt diff --git a/collects/frtime/gui/mixin-macros.ss b/collects/frtime/gui/mixin-macros.rkt similarity index 100% rename from collects/frtime/gui/mixin-macros.ss rename to collects/frtime/gui/mixin-macros.rkt diff --git a/collects/frtime/gui/simple.ss b/collects/frtime/gui/simple.rkt similarity index 100% rename from collects/frtime/gui/simple.ss rename to collects/frtime/gui/simple.rkt diff --git a/collects/frtime/info.ss b/collects/frtime/info.rkt similarity index 100% rename from collects/frtime/info.ss rename to collects/frtime/info.rkt diff --git a/collects/frtime/lang-core.ss b/collects/frtime/lang-core.rkt similarity index 100% rename from collects/frtime/lang-core.ss rename to collects/frtime/lang-core.rkt diff --git a/collects/frtime/lang-ext.ss b/collects/frtime/lang-ext.rkt similarity index 100% rename from collects/frtime/lang-ext.ss rename to collects/frtime/lang-ext.rkt diff --git a/collects/frtime/lang-utils.ss b/collects/frtime/lang-utils.rkt similarity index 100% rename from collects/frtime/lang-utils.ss rename to collects/frtime/lang-utils.rkt diff --git a/collects/frtime/lang.ss b/collects/frtime/lang.rkt similarity index 100% rename from collects/frtime/lang.ss rename to collects/frtime/lang.rkt diff --git a/collects/frtime/lang/reader.ss b/collects/frtime/lang/reader.rkt similarity index 100% rename from collects/frtime/lang/reader.ss rename to collects/frtime/lang/reader.rkt diff --git a/collects/frtime/main.ss b/collects/frtime/main.rkt similarity index 100% rename from collects/frtime/main.ss rename to collects/frtime/main.rkt diff --git a/collects/frtime/opt/frtime-opt-lang.ss b/collects/frtime/opt/frtime-opt-lang.rkt similarity index 100% rename from collects/frtime/opt/frtime-opt-lang.ss rename to collects/frtime/opt/frtime-opt-lang.rkt diff --git a/collects/frtime/opt/frtime-opt.ss b/collects/frtime/opt/frtime-opt.rkt similarity index 100% rename from collects/frtime/opt/frtime-opt.ss rename to collects/frtime/opt/frtime-opt.rkt diff --git a/collects/frtime/opt/lang/reader.ss b/collects/frtime/opt/lang/reader.rkt similarity index 100% rename from collects/frtime/opt/lang/reader.ss rename to collects/frtime/opt/lang/reader.rkt diff --git a/collects/frtime/opt/lowered-equivs.ss b/collects/frtime/opt/lowered-equivs.rkt similarity index 100% rename from collects/frtime/opt/lowered-equivs.ss rename to collects/frtime/opt/lowered-equivs.rkt diff --git a/collects/frtime/reactive.ss b/collects/frtime/reactive.rkt similarity index 100% rename from collects/frtime/reactive.ss rename to collects/frtime/reactive.rkt diff --git a/collects/frtime/reactive/lang/reader.ss b/collects/frtime/reactive/lang/reader.rkt similarity index 100% rename from collects/frtime/reactive/lang/reader.ss rename to collects/frtime/reactive/lang/reader.rkt diff --git a/collects/frtime/struct.ss b/collects/frtime/struct.rkt similarity index 100% rename from collects/frtime/struct.ss rename to collects/frtime/struct.rkt diff --git a/collects/frtime/tool/frtime-tool.ss b/collects/frtime/tool/frtime-tool.rkt similarity index 100% rename from collects/frtime/tool/frtime-tool.ss rename to collects/frtime/tool/frtime-tool.rkt diff --git a/collects/frtime/tool/info.ss b/collects/frtime/tool/info.rkt similarity index 100% rename from collects/frtime/tool/info.ss rename to collects/frtime/tool/info.rkt diff --git a/collects/games/aces/info.ss b/collects/games/aces/info.rkt similarity index 100% rename from collects/games/aces/info.ss rename to collects/games/aces/info.rkt diff --git a/collects/games/blackjack/blackjack.ss b/collects/games/blackjack/blackjack.rkt similarity index 100% rename from collects/games/blackjack/blackjack.ss rename to collects/games/blackjack/blackjack.rkt diff --git a/collects/games/blackjack/info.ss b/collects/games/blackjack/info.rkt similarity index 100% rename from collects/games/blackjack/info.ss rename to collects/games/blackjack/info.rkt diff --git a/collects/games/cards.ss b/collects/games/cards.rkt similarity index 100% rename from collects/games/cards.ss rename to collects/games/cards.rkt diff --git a/collects/games/cards/base.ss b/collects/games/cards/base.rkt similarity index 100% rename from collects/games/cards/base.ss rename to collects/games/cards/base.rkt diff --git a/collects/games/cards/card-class.ss b/collects/games/cards/card-class.rkt similarity index 100% rename from collects/games/cards/card-class.ss rename to collects/games/cards/card-class.rkt diff --git a/collects/games/cards/cards.ss b/collects/games/cards/cards.rkt similarity index 100% rename from collects/games/cards/cards.ss rename to collects/games/cards/cards.rkt diff --git a/collects/games/cards/classes.ss b/collects/games/cards/classes.rkt similarity index 100% rename from collects/games/cards/classes.ss rename to collects/games/cards/classes.rkt diff --git a/collects/games/cards/constants.ss b/collects/games/cards/constants.rkt similarity index 100% rename from collects/games/cards/constants.ss rename to collects/games/cards/constants.rkt diff --git a/collects/games/cards/info.ss b/collects/games/cards/info.rkt similarity index 100% rename from collects/games/cards/info.ss rename to collects/games/cards/info.rkt diff --git a/collects/games/cards/main.ss b/collects/games/cards/main.rkt similarity index 100% rename from collects/games/cards/main.ss rename to collects/games/cards/main.rkt diff --git a/collects/games/cards/make-cards.ss b/collects/games/cards/make-cards.rkt similarity index 100% rename from collects/games/cards/make-cards.ss rename to collects/games/cards/make-cards.rkt diff --git a/collects/games/cards/region.ss b/collects/games/cards/region.rkt similarity index 100% rename from collects/games/cards/region.ss rename to collects/games/cards/region.rkt diff --git a/collects/games/cards/snipclass.ss b/collects/games/cards/snipclass.rkt similarity index 100% rename from collects/games/cards/snipclass.ss rename to collects/games/cards/snipclass.rkt diff --git a/collects/games/cards/utils.ss b/collects/games/cards/utils.rkt similarity index 100% rename from collects/games/cards/utils.ss rename to collects/games/cards/utils.rkt diff --git a/collects/games/chat-noir/chat-noir-literate.ss b/collects/games/chat-noir/chat-noir-literate.rkt similarity index 100% rename from collects/games/chat-noir/chat-noir-literate.ss rename to collects/games/chat-noir/chat-noir-literate.rkt diff --git a/collects/games/chat-noir/chat-noir-unit.ss b/collects/games/chat-noir/chat-noir-unit.rkt similarity index 100% rename from collects/games/chat-noir/chat-noir-unit.ss rename to collects/games/chat-noir/chat-noir-unit.rkt diff --git a/collects/games/chat-noir/hash.ss b/collects/games/chat-noir/hash.rkt similarity index 100% rename from collects/games/chat-noir/hash.ss rename to collects/games/chat-noir/hash.rkt diff --git a/collects/games/chat-noir/info.ss b/collects/games/chat-noir/info.rkt similarity index 100% rename from collects/games/chat-noir/info.ss rename to collects/games/chat-noir/info.rkt diff --git a/collects/games/checkers/checkers.ss b/collects/games/checkers/checkers.rkt similarity index 100% rename from collects/games/checkers/checkers.ss rename to collects/games/checkers/checkers.rkt diff --git a/collects/games/checkers/honu-bitmaps.ss b/collects/games/checkers/honu-bitmaps.rkt similarity index 100% rename from collects/games/checkers/honu-bitmaps.ss rename to collects/games/checkers/honu-bitmaps.rkt diff --git a/collects/games/checkers/info.ss b/collects/games/checkers/info.rkt similarity index 100% rename from collects/games/checkers/info.ss rename to collects/games/checkers/info.rkt diff --git a/collects/games/crazy8s/crazy8s.ss b/collects/games/crazy8s/crazy8s.rkt similarity index 100% rename from collects/games/crazy8s/crazy8s.ss rename to collects/games/crazy8s/crazy8s.rkt diff --git a/collects/games/crazy8s/info.ss b/collects/games/crazy8s/info.rkt similarity index 100% rename from collects/games/crazy8s/info.ss rename to collects/games/crazy8s/info.rkt diff --git a/collects/games/doors/doors.ss b/collects/games/doors/doors.rkt similarity index 100% rename from collects/games/doors/doors.ss rename to collects/games/doors/doors.rkt diff --git a/collects/games/doors/graph.ss b/collects/games/doors/graph.rkt similarity index 100% rename from collects/games/doors/graph.ss rename to collects/games/doors/graph.rkt diff --git a/collects/games/doors/private/utils.ss b/collects/games/doors/private/utils.rkt similarity index 100% rename from collects/games/doors/private/utils.ss rename to collects/games/doors/private/utils.rkt diff --git a/collects/games/doors/utils.ss b/collects/games/doors/utils.rkt similarity index 100% rename from collects/games/doors/utils.ss rename to collects/games/doors/utils.rkt diff --git a/collects/games/gcalc/gcalc.ss b/collects/games/gcalc/gcalc.rkt similarity index 100% rename from collects/games/gcalc/gcalc.ss rename to collects/games/gcalc/gcalc.rkt diff --git a/collects/games/gcalc/info.ss b/collects/games/gcalc/info.rkt similarity index 100% rename from collects/games/gcalc/info.ss rename to collects/games/gcalc/info.rkt diff --git a/collects/games/ginrummy/ginrummy.ss b/collects/games/ginrummy/ginrummy.rkt similarity index 100% rename from collects/games/ginrummy/ginrummy.ss rename to collects/games/ginrummy/ginrummy.rkt diff --git a/collects/games/ginrummy/info.ss b/collects/games/ginrummy/info.rkt similarity index 100% rename from collects/games/ginrummy/info.ss rename to collects/games/ginrummy/info.rkt diff --git a/collects/games/gl-board-game.ss b/collects/games/gl-board-game.rkt similarity index 100% rename from collects/games/gl-board-game.ss rename to collects/games/gl-board-game.rkt diff --git a/collects/games/gl-board-game/gl-board.ss b/collects/games/gl-board-game/gl-board.rkt similarity index 100% rename from collects/games/gl-board-game/gl-board.ss rename to collects/games/gl-board-game/gl-board.rkt diff --git a/collects/games/gl-board-game/info.ss b/collects/games/gl-board-game/info.rkt similarity index 100% rename from collects/games/gl-board-game/info.ss rename to collects/games/gl-board-game/info.rkt diff --git a/collects/games/gl-board-game/main.ss b/collects/games/gl-board-game/main.rkt similarity index 100% rename from collects/games/gl-board-game/main.ss rename to collects/games/gl-board-game/main.rkt diff --git a/collects/games/gobblet/check.ss b/collects/games/gobblet/check.rkt similarity index 100% rename from collects/games/gobblet/check.ss rename to collects/games/gobblet/check.rkt diff --git a/collects/games/gobblet/explore.ss b/collects/games/gobblet/explore.rkt similarity index 100% rename from collects/games/gobblet/explore.ss rename to collects/games/gobblet/explore.rkt diff --git a/collects/games/gobblet/gobblet.ss b/collects/games/gobblet/gobblet.rkt similarity index 100% rename from collects/games/gobblet/gobblet.ss rename to collects/games/gobblet/gobblet.rkt diff --git a/collects/games/gobblet/gui.ss b/collects/games/gobblet/gui.rkt similarity index 100% rename from collects/games/gobblet/gui.ss rename to collects/games/gobblet/gui.rkt diff --git a/collects/games/gobblet/heuristics.ss b/collects/games/gobblet/heuristics.rkt similarity index 100% rename from collects/games/gobblet/heuristics.ss rename to collects/games/gobblet/heuristics.rkt diff --git a/collects/games/gobblet/info.ss b/collects/games/gobblet/info.rkt similarity index 100% rename from collects/games/gobblet/info.ss rename to collects/games/gobblet/info.rkt diff --git a/collects/games/gobblet/model.ss b/collects/games/gobblet/model.rkt similarity index 100% rename from collects/games/gobblet/model.ss rename to collects/games/gobblet/model.rkt diff --git a/collects/games/gobblet/plays-3x3.ss b/collects/games/gobblet/plays-3x3.rkt similarity index 100% rename from collects/games/gobblet/plays-3x3.ss rename to collects/games/gobblet/plays-3x3.rkt diff --git a/collects/games/gobblet/robot.ss b/collects/games/gobblet/robot.rkt similarity index 100% rename from collects/games/gobblet/robot.ss rename to collects/games/gobblet/robot.rkt diff --git a/collects/games/gobblet/sig.ss b/collects/games/gobblet/sig.rkt similarity index 100% rename from collects/games/gobblet/sig.ss rename to collects/games/gobblet/sig.rkt diff --git a/collects/games/gobblet/test-explore.ss b/collects/games/gobblet/test-explore.rkt similarity index 100% rename from collects/games/gobblet/test-explore.ss rename to collects/games/gobblet/test-explore.rkt diff --git a/collects/games/gobblet/test-model.ss b/collects/games/gobblet/test-model.rkt similarity index 100% rename from collects/games/gobblet/test-model.ss rename to collects/games/gobblet/test-model.rkt diff --git a/collects/games/gobblet/test.ss b/collects/games/gobblet/test.rkt similarity index 100% rename from collects/games/gobblet/test.ss rename to collects/games/gobblet/test.rkt diff --git a/collects/games/gofish/gofish.ss b/collects/games/gofish/gofish.rkt similarity index 100% rename from collects/games/gofish/gofish.ss rename to collects/games/gofish/gofish.rkt diff --git a/collects/games/gofish/info.ss b/collects/games/gofish/info.rkt similarity index 100% rename from collects/games/gofish/info.ss rename to collects/games/gofish/info.rkt diff --git a/collects/games/info.ss b/collects/games/info.rkt similarity index 100% rename from collects/games/info.ss rename to collects/games/info.rkt diff --git a/collects/games/jewel/info.ss b/collects/games/jewel/info.rkt similarity index 100% rename from collects/games/jewel/info.ss rename to collects/games/jewel/info.rkt diff --git a/collects/games/lights-out/board.ss b/collects/games/lights-out/board.rkt similarity index 100% rename from collects/games/lights-out/board.ss rename to collects/games/lights-out/board.rkt diff --git a/collects/games/lights-out/boards.ss b/collects/games/lights-out/boards.rkt similarity index 100% rename from collects/games/lights-out/boards.ss rename to collects/games/lights-out/boards.rkt diff --git a/collects/games/lights-out/info.ss b/collects/games/lights-out/info.rkt similarity index 100% rename from collects/games/lights-out/info.ss rename to collects/games/lights-out/info.rkt diff --git a/collects/games/lights-out/lights-out.ss b/collects/games/lights-out/lights-out.rkt similarity index 100% rename from collects/games/lights-out/lights-out.ss rename to collects/games/lights-out/lights-out.rkt diff --git a/collects/games/main.ss b/collects/games/main.rkt similarity index 100% rename from collects/games/main.ss rename to collects/games/main.rkt diff --git a/collects/games/memory/info.ss b/collects/games/memory/info.rkt similarity index 100% rename from collects/games/memory/info.ss rename to collects/games/memory/info.rkt diff --git a/collects/games/memory/memory.ss b/collects/games/memory/memory.rkt similarity index 100% rename from collects/games/memory/memory.ss rename to collects/games/memory/memory.rkt diff --git a/collects/games/mines/gen-tiles.ss b/collects/games/mines/gen-tiles.rkt similarity index 100% rename from collects/games/mines/gen-tiles.ss rename to collects/games/mines/gen-tiles.rkt diff --git a/collects/games/mines/info.ss b/collects/games/mines/info.rkt similarity index 100% rename from collects/games/mines/info.ss rename to collects/games/mines/info.rkt diff --git a/collects/games/mines/mines.ss b/collects/games/mines/mines.rkt similarity index 100% rename from collects/games/mines/mines.ss rename to collects/games/mines/mines.rkt diff --git a/collects/games/paint-by-numbers/all-problems.ss b/collects/games/paint-by-numbers/all-problems.rkt similarity index 100% rename from collects/games/paint-by-numbers/all-problems.ss rename to collects/games/paint-by-numbers/all-problems.rkt diff --git a/collects/games/paint-by-numbers/gui.ss b/collects/games/paint-by-numbers/gui.rkt similarity index 100% rename from collects/games/paint-by-numbers/gui.ss rename to collects/games/paint-by-numbers/gui.rkt diff --git a/collects/games/paint-by-numbers/info.ss b/collects/games/paint-by-numbers/info.rkt similarity index 91% rename from collects/games/paint-by-numbers/info.ss rename to collects/games/paint-by-numbers/info.rkt index 7f1911b79a..535a9343f6 100644 --- a/collects/games/paint-by-numbers/info.ss +++ b/collects/games/paint-by-numbers/info.rkt @@ -3,7 +3,7 @@ (define game "paint-by-numbers.ss") (define game-set "Puzzle Games") (define compile-omit-paths - '("main.ss" + '("main.rkt" "hattori" "problems" "solution-sets")) diff --git a/collects/games/paint-by-numbers/main.ss b/collects/games/paint-by-numbers/main.rkt similarity index 100% rename from collects/games/paint-by-numbers/main.ss rename to collects/games/paint-by-numbers/main.rkt diff --git a/collects/games/paint-by-numbers/paint-by-numbers.ss b/collects/games/paint-by-numbers/paint-by-numbers.rkt similarity index 100% rename from collects/games/paint-by-numbers/paint-by-numbers.ss rename to collects/games/paint-by-numbers/paint-by-numbers.rkt diff --git a/collects/games/paint-by-numbers/problem.ss b/collects/games/paint-by-numbers/problem.rkt similarity index 100% rename from collects/games/paint-by-numbers/problem.ss rename to collects/games/paint-by-numbers/problem.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/build-final.ss b/collects/games/paint-by-numbers/raw-problems/build-final.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/build-final.ss rename to collects/games/paint-by-numbers/raw-problems/build-final.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/build-hattori.ss b/collects/games/paint-by-numbers/raw-problems/build-hattori.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/build-hattori.ss rename to collects/games/paint-by-numbers/raw-problems/build-hattori.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/build-rows-cols.ss b/collects/games/paint-by-numbers/raw-problems/build-rows-cols.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/build-rows-cols.ss rename to collects/games/paint-by-numbers/raw-problems/build-rows-cols.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/build-solution-sets.ss b/collects/games/paint-by-numbers/raw-problems/build-solution-sets.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/build-solution-sets.ss rename to collects/games/paint-by-numbers/raw-problems/build-solution-sets.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/raw-hattori.ss b/collects/games/paint-by-numbers/raw-problems/raw-hattori.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/raw-hattori.ss rename to collects/games/paint-by-numbers/raw-problems/raw-hattori.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/raw-kajitani.ss b/collects/games/paint-by-numbers/raw-problems/raw-kajitani.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/raw-kajitani.ss rename to collects/games/paint-by-numbers/raw-problems/raw-kajitani.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/raw-misc.ss b/collects/games/paint-by-numbers/raw-problems/raw-misc.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/raw-misc.ss rename to collects/games/paint-by-numbers/raw-problems/raw-misc.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/raw-problems.ss b/collects/games/paint-by-numbers/raw-problems/raw-problems.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/raw-problems.ss rename to collects/games/paint-by-numbers/raw-problems/raw-problems.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/size-calculation.ss b/collects/games/paint-by-numbers/raw-problems/size-calculation.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/size-calculation.ss rename to collects/games/paint-by-numbers/raw-problems/size-calculation.rkt diff --git a/collects/games/paint-by-numbers/solve.ss b/collects/games/paint-by-numbers/solve.rkt similarity index 100% rename from collects/games/paint-by-numbers/solve.ss rename to collects/games/paint-by-numbers/solve.rkt diff --git a/collects/games/parcheesi/admin-gui.ss b/collects/games/parcheesi/admin-gui.rkt similarity index 100% rename from collects/games/parcheesi/admin-gui.ss rename to collects/games/parcheesi/admin-gui.rkt diff --git a/collects/games/parcheesi/admin.ss b/collects/games/parcheesi/admin.rkt similarity index 100% rename from collects/games/parcheesi/admin.ss rename to collects/games/parcheesi/admin.rkt diff --git a/collects/games/parcheesi/best-players.ss b/collects/games/parcheesi/best-players.rkt similarity index 100% rename from collects/games/parcheesi/best-players.ss rename to collects/games/parcheesi/best-players.rkt diff --git a/collects/games/parcheesi/board.ss b/collects/games/parcheesi/board.rkt similarity index 100% rename from collects/games/parcheesi/board.ss rename to collects/games/parcheesi/board.rkt diff --git a/collects/games/parcheesi/die.ss b/collects/games/parcheesi/die.rkt similarity index 100% rename from collects/games/parcheesi/die.ss rename to collects/games/parcheesi/die.rkt diff --git a/collects/games/parcheesi/gui.ss b/collects/games/parcheesi/gui.rkt similarity index 100% rename from collects/games/parcheesi/gui.ss rename to collects/games/parcheesi/gui.rkt diff --git a/collects/games/parcheesi/info.ss b/collects/games/parcheesi/info.rkt similarity index 100% rename from collects/games/parcheesi/info.ss rename to collects/games/parcheesi/info.rkt diff --git a/collects/games/parcheesi/interfaces.ss b/collects/games/parcheesi/interfaces.rkt similarity index 100% rename from collects/games/parcheesi/interfaces.ss rename to collects/games/parcheesi/interfaces.rkt diff --git a/collects/games/parcheesi/make-bitmap.ss b/collects/games/parcheesi/make-bitmap.rkt similarity index 100% rename from collects/games/parcheesi/make-bitmap.ss rename to collects/games/parcheesi/make-bitmap.rkt diff --git a/collects/games/parcheesi/moves.ss b/collects/games/parcheesi/moves.rkt similarity index 100% rename from collects/games/parcheesi/moves.ss rename to collects/games/parcheesi/moves.rkt diff --git a/collects/games/parcheesi/parcheesi.ss b/collects/games/parcheesi/parcheesi.rkt similarity index 100% rename from collects/games/parcheesi/parcheesi.ss rename to collects/games/parcheesi/parcheesi.rkt diff --git a/collects/games/parcheesi/play-game.ss b/collects/games/parcheesi/play-game.rkt similarity index 100% rename from collects/games/parcheesi/play-game.ss rename to collects/games/parcheesi/play-game.rkt diff --git a/collects/games/parcheesi/rules.ss b/collects/games/parcheesi/rules.rkt similarity index 100% rename from collects/games/parcheesi/rules.ss rename to collects/games/parcheesi/rules.rkt diff --git a/collects/games/parcheesi/test.ss b/collects/games/parcheesi/test.rkt similarity index 100% rename from collects/games/parcheesi/test.ss rename to collects/games/parcheesi/test.rkt diff --git a/collects/games/pousse/board-size.ss b/collects/games/pousse/board-size.rkt similarity index 100% rename from collects/games/pousse/board-size.ss rename to collects/games/pousse/board-size.rkt diff --git a/collects/games/pousse/board.ss b/collects/games/pousse/board.rkt similarity index 100% rename from collects/games/pousse/board.ss rename to collects/games/pousse/board.rkt diff --git a/collects/games/pousse/counter.ss b/collects/games/pousse/counter.rkt similarity index 100% rename from collects/games/pousse/counter.ss rename to collects/games/pousse/counter.rkt diff --git a/collects/games/pousse/info.ss b/collects/games/pousse/info.rkt similarity index 100% rename from collects/games/pousse/info.ss rename to collects/games/pousse/info.rkt diff --git a/collects/games/pousse/pousse.ss b/collects/games/pousse/pousse.rkt similarity index 100% rename from collects/games/pousse/pousse.ss rename to collects/games/pousse/pousse.rkt diff --git a/collects/games/pousse/robot.ss b/collects/games/pousse/robot.rkt similarity index 100% rename from collects/games/pousse/robot.ss rename to collects/games/pousse/robot.rkt diff --git a/collects/games/pousse/utils.ss b/collects/games/pousse/utils.rkt similarity index 100% rename from collects/games/pousse/utils.ss rename to collects/games/pousse/utils.rkt diff --git a/collects/games/same/info.ss b/collects/games/same/info.rkt similarity index 100% rename from collects/games/same/info.ss rename to collects/games/same/info.rkt diff --git a/collects/games/same/same.ss b/collects/games/same/same.rkt similarity index 100% rename from collects/games/same/same.ss rename to collects/games/same/same.rkt diff --git a/collects/games/scribblings/chat-noir.scrbl b/collects/games/scribblings/chat-noir.scrbl index e705a0c166..829e9546a0 100644 --- a/collects/games/scribblings/chat-noir.scrbl +++ b/collects/games/scribblings/chat-noir.scrbl @@ -1,3 +1,3 @@ #lang scribble/doc @(require scribble/lp-include) -@(lp-include "../chat-noir/chat-noir-literate.ss") +@(lp-include "../chat-noir/chat-noir-literate.rkt") diff --git a/collects/games/scribblings/common.ss b/collects/games/scribblings/common.rkt similarity index 100% rename from collects/games/scribblings/common.ss rename to collects/games/scribblings/common.rkt diff --git a/collects/games/show-help.ss b/collects/games/show-help.rkt similarity index 100% rename from collects/games/show-help.ss rename to collects/games/show-help.rkt diff --git a/collects/games/show-scribbling.ss b/collects/games/show-scribbling.rkt similarity index 100% rename from collects/games/show-scribbling.ss rename to collects/games/show-scribbling.rkt diff --git a/collects/games/slidey/info.ss b/collects/games/slidey/info.rkt similarity index 100% rename from collects/games/slidey/info.ss rename to collects/games/slidey/info.rkt diff --git a/collects/games/slidey/slidey.ss b/collects/games/slidey/slidey.rkt similarity index 100% rename from collects/games/slidey/slidey.ss rename to collects/games/slidey/slidey.rkt diff --git a/collects/games/spider/info.ss b/collects/games/spider/info.rkt similarity index 100% rename from collects/games/spider/info.ss rename to collects/games/spider/info.rkt diff --git a/collects/games/spider/spider.ss b/collects/games/spider/spider.rkt similarity index 100% rename from collects/games/spider/spider.ss rename to collects/games/spider/spider.rkt diff --git a/collects/graphics/graphics-posn-less-unit.ss b/collects/graphics/graphics-posn-less-unit.rkt similarity index 100% rename from collects/graphics/graphics-posn-less-unit.ss rename to collects/graphics/graphics-posn-less-unit.rkt diff --git a/collects/graphics/graphics-sig.ss b/collects/graphics/graphics-sig.rkt similarity index 100% rename from collects/graphics/graphics-sig.ss rename to collects/graphics/graphics-sig.rkt diff --git a/collects/graphics/graphics-unit.ss b/collects/graphics/graphics-unit.rkt similarity index 100% rename from collects/graphics/graphics-unit.ss rename to collects/graphics/graphics-unit.rkt diff --git a/collects/graphics/graphics.ss b/collects/graphics/graphics.rkt similarity index 100% rename from collects/graphics/graphics.ss rename to collects/graphics/graphics.rkt diff --git a/collects/graphics/main.ss b/collects/graphics/main.rkt similarity index 100% rename from collects/graphics/main.ss rename to collects/graphics/main.rkt diff --git a/collects/graphics/scribblings/common.ss b/collects/graphics/scribblings/common.rkt similarity index 100% rename from collects/graphics/scribblings/common.ss rename to collects/graphics/scribblings/common.rkt diff --git a/collects/graphics/scribblings/info.ss b/collects/graphics/scribblings/info.rkt similarity index 100% rename from collects/graphics/scribblings/info.ss rename to collects/graphics/scribblings/info.rkt diff --git a/collects/graphics/turtle-examples.ss b/collects/graphics/turtle-examples.rkt similarity index 100% rename from collects/graphics/turtle-examples.ss rename to collects/graphics/turtle-examples.rkt diff --git a/collects/graphics/turtle-test.ss b/collects/graphics/turtle-test.rkt similarity index 100% rename from collects/graphics/turtle-test.ss rename to collects/graphics/turtle-test.rkt diff --git a/collects/graphics/turtles.ss b/collects/graphics/turtles.rkt similarity index 100% rename from collects/graphics/turtles.ss rename to collects/graphics/turtles.rkt diff --git a/collects/graphics/value-turtles-examples.ss b/collects/graphics/value-turtles-examples.rkt similarity index 100% rename from collects/graphics/value-turtles-examples.ss rename to collects/graphics/value-turtles-examples.rkt diff --git a/collects/graphics/value-turtles-test.ss b/collects/graphics/value-turtles-test.rkt similarity index 100% rename from collects/graphics/value-turtles-test.ss rename to collects/graphics/value-turtles-test.rkt diff --git a/collects/graphics/value-turtles.ss b/collects/graphics/value-turtles.rkt similarity index 100% rename from collects/graphics/value-turtles.ss rename to collects/graphics/value-turtles.rkt diff --git a/collects/gui-debugger/annotator.ss b/collects/gui-debugger/annotator.rkt similarity index 100% rename from collects/gui-debugger/annotator.ss rename to collects/gui-debugger/annotator.rkt diff --git a/collects/gui-debugger/debug-tool.ss b/collects/gui-debugger/debug-tool.rkt similarity index 100% rename from collects/gui-debugger/debug-tool.ss rename to collects/gui-debugger/debug-tool.rkt diff --git a/collects/gui-debugger/info.ss b/collects/gui-debugger/info.rkt similarity index 100% rename from collects/gui-debugger/info.ss rename to collects/gui-debugger/info.rkt diff --git a/collects/gui-debugger/load-sandbox.ss b/collects/gui-debugger/load-sandbox.rkt similarity index 100% rename from collects/gui-debugger/load-sandbox.ss rename to collects/gui-debugger/load-sandbox.rkt diff --git a/collects/gui-debugger/marks.ss b/collects/gui-debugger/marks.rkt similarity index 100% rename from collects/gui-debugger/marks.ss rename to collects/gui-debugger/marks.rkt diff --git a/collects/guibuilder/base.ss b/collects/guibuilder/base.rkt similarity index 100% rename from collects/guibuilder/base.ss rename to collects/guibuilder/base.rkt diff --git a/collects/guibuilder/canvas.ss b/collects/guibuilder/canvas.rkt similarity index 100% rename from collects/guibuilder/canvas.ss rename to collects/guibuilder/canvas.rkt diff --git a/collects/guibuilder/feature.ss b/collects/guibuilder/feature.rkt similarity index 100% rename from collects/guibuilder/feature.ss rename to collects/guibuilder/feature.rkt diff --git a/collects/guibuilder/guibuilder.ss b/collects/guibuilder/guibuilder.rkt similarity index 100% rename from collects/guibuilder/guibuilder.ss rename to collects/guibuilder/guibuilder.rkt diff --git a/collects/guibuilder/info.ss b/collects/guibuilder/info.rkt similarity index 100% rename from collects/guibuilder/info.ss rename to collects/guibuilder/info.rkt diff --git a/collects/guibuilder/multiple-choice.ss b/collects/guibuilder/multiple-choice.rkt similarity index 100% rename from collects/guibuilder/multiple-choice.ss rename to collects/guibuilder/multiple-choice.rkt diff --git a/collects/guibuilder/panel.ss b/collects/guibuilder/panel.rkt similarity index 100% rename from collects/guibuilder/panel.ss rename to collects/guibuilder/panel.rkt diff --git a/collects/guibuilder/readable.ss b/collects/guibuilder/readable.rkt similarity index 100% rename from collects/guibuilder/readable.ss rename to collects/guibuilder/readable.rkt diff --git a/collects/guibuilder/simple-control.ss b/collects/guibuilder/simple-control.rkt similarity index 100% rename from collects/guibuilder/simple-control.ss rename to collects/guibuilder/simple-control.rkt diff --git a/collects/guibuilder/slider-guage.ss b/collects/guibuilder/slider-guage.rkt similarity index 100% rename from collects/guibuilder/slider-guage.ss rename to collects/guibuilder/slider-guage.rkt diff --git a/collects/guibuilder/text-field.ss b/collects/guibuilder/text-field.rkt similarity index 100% rename from collects/guibuilder/text-field.ss rename to collects/guibuilder/text-field.rkt diff --git a/collects/guibuilder/tool.ss b/collects/guibuilder/tool.rkt similarity index 100% rename from collects/guibuilder/tool.ss rename to collects/guibuilder/tool.rkt diff --git a/collects/guibuilder/toolbar.ss b/collects/guibuilder/toolbar.rkt similarity index 100% rename from collects/guibuilder/toolbar.ss rename to collects/guibuilder/toolbar.rkt diff --git a/collects/guibuilder/top-level.ss b/collects/guibuilder/top-level.rkt similarity index 100% rename from collects/guibuilder/top-level.ss rename to collects/guibuilder/top-level.rkt diff --git a/collects/guibuilder/utils.ss b/collects/guibuilder/utils.rkt similarity index 100% rename from collects/guibuilder/utils.ss rename to collects/guibuilder/utils.rkt diff --git a/collects/handin-client/client-gui.ss b/collects/handin-client/client-gui.rkt similarity index 100% rename from collects/handin-client/client-gui.ss rename to collects/handin-client/client-gui.rkt diff --git a/collects/handin-client/client.ss b/collects/handin-client/client.rkt similarity index 100% rename from collects/handin-client/client.ss rename to collects/handin-client/client.rkt diff --git a/collects/handin-client/handin-multi.ss b/collects/handin-client/handin-multi.rkt similarity index 100% rename from collects/handin-client/handin-multi.ss rename to collects/handin-client/handin-multi.rkt diff --git a/collects/handin-client/info.ss b/collects/handin-client/info.rkt similarity index 100% rename from collects/handin-client/info.ss rename to collects/handin-client/info.rkt diff --git a/collects/handin-client/this-collection.ss b/collects/handin-client/this-collection.rkt similarity index 100% rename from collects/handin-client/this-collection.ss rename to collects/handin-client/this-collection.rkt diff --git a/collects/handin-client/updater.ss b/collects/handin-client/updater.rkt similarity index 100% rename from collects/handin-client/updater.ss rename to collects/handin-client/updater.rkt diff --git a/collects/handin-server/checker.ss b/collects/handin-server/checker.rkt similarity index 100% rename from collects/handin-server/checker.ss rename to collects/handin-server/checker.rkt diff --git a/collects/handin-server/info.ss b/collects/handin-server/info.rkt similarity index 100% rename from collects/handin-server/info.ss rename to collects/handin-server/info.rkt diff --git a/collects/handin-server/main.ss b/collects/handin-server/main.rkt similarity index 100% rename from collects/handin-server/main.ss rename to collects/handin-server/main.rkt diff --git a/collects/handin-server/overridden-collects/fake-teachpack/htdp/guess.ss b/collects/handin-server/overridden-collects/fake-teachpack/htdp/guess.rkt similarity index 100% rename from collects/handin-server/overridden-collects/fake-teachpack/htdp/guess.ss rename to collects/handin-server/overridden-collects/fake-teachpack/htdp/guess.rkt diff --git a/collects/handin-server/overridden-collects/fake-teachpack/htdp/master.ss b/collects/handin-server/overridden-collects/fake-teachpack/htdp/master.rkt similarity index 100% rename from collects/handin-server/overridden-collects/fake-teachpack/htdp/master.ss rename to collects/handin-server/overridden-collects/fake-teachpack/htdp/master.rkt diff --git a/collects/handin-server/private/config.ss b/collects/handin-server/private/config.rkt similarity index 100% rename from collects/handin-server/private/config.ss rename to collects/handin-server/private/config.rkt diff --git a/collects/handin-server/private/hooker.ss b/collects/handin-server/private/hooker.rkt similarity index 100% rename from collects/handin-server/private/hooker.ss rename to collects/handin-server/private/hooker.rkt diff --git a/collects/handin-server/private/lock.ss b/collects/handin-server/private/lock.rkt similarity index 100% rename from collects/handin-server/private/lock.ss rename to collects/handin-server/private/lock.rkt diff --git a/collects/handin-server/private/logger.ss b/collects/handin-server/private/logger.rkt similarity index 100% rename from collects/handin-server/private/logger.ss rename to collects/handin-server/private/logger.rkt diff --git a/collects/handin-server/private/md5.ss b/collects/handin-server/private/md5.rkt similarity index 100% rename from collects/handin-server/private/md5.ss rename to collects/handin-server/private/md5.rkt diff --git a/collects/handin-server/private/reloadable.ss b/collects/handin-server/private/reloadable.rkt similarity index 100% rename from collects/handin-server/private/reloadable.ss rename to collects/handin-server/private/reloadable.rkt diff --git a/collects/handin-server/private/run-status.ss b/collects/handin-server/private/run-status.rkt similarity index 100% rename from collects/handin-server/private/run-status.ss rename to collects/handin-server/private/run-status.rkt diff --git a/collects/handin-server/run-servlet.ss b/collects/handin-server/run-servlet.rkt similarity index 100% rename from collects/handin-server/run-servlet.ss rename to collects/handin-server/run-servlet.rkt diff --git a/collects/handin-server/sandbox.ss b/collects/handin-server/sandbox.rkt similarity index 100% rename from collects/handin-server/sandbox.ss rename to collects/handin-server/sandbox.rkt diff --git a/collects/handin-server/scribblings/common.ss b/collects/handin-server/scribblings/common.rkt similarity index 100% rename from collects/handin-server/scribblings/common.ss rename to collects/handin-server/scribblings/common.rkt diff --git a/collects/handin-server/scribblings/hook-dummy.ss b/collects/handin-server/scribblings/hook-dummy.rkt similarity index 100% rename from collects/handin-server/scribblings/hook-dummy.ss rename to collects/handin-server/scribblings/hook-dummy.rkt diff --git a/collects/handin-server/scribblings/info.ss b/collects/handin-server/scribblings/info.rkt similarity index 100% rename from collects/handin-server/scribblings/info.ss rename to collects/handin-server/scribblings/info.rkt diff --git a/collects/handin-server/utils.ss b/collects/handin-server/utils.rkt similarity index 100% rename from collects/handin-server/utils.ss rename to collects/handin-server/utils.rkt diff --git a/collects/handin-server/web-status-server.ss b/collects/handin-server/web-status-server.rkt similarity index 100% rename from collects/handin-server/web-status-server.ss rename to collects/handin-server/web-status-server.rkt diff --git a/collects/help/bug-report.ss b/collects/help/bug-report.rkt similarity index 100% rename from collects/help/bug-report.ss rename to collects/help/bug-report.rkt diff --git a/collects/help/help-utils.ss b/collects/help/help-utils.rkt similarity index 100% rename from collects/help/help-utils.ss rename to collects/help/help-utils.rkt diff --git a/collects/help/help.ss b/collects/help/help.rkt similarity index 100% rename from collects/help/help.ss rename to collects/help/help.rkt diff --git a/collects/help/info.ss b/collects/help/info.rkt similarity index 67% rename from collects/help/info.ss rename to collects/help/info.rkt index d2f4cd6ae0..717b1b5a77 100644 --- a/collects/help/info.ss +++ b/collects/help/info.rkt @@ -1,4 +1,4 @@ #lang setup/infotab -(define post-install-collection "installer.ss") +(define post-install-collection "installer.rkt") (define raco-commands '(("docs" help/help "search and view documentation" 100))) diff --git a/collects/help/installer.ss b/collects/help/installer.rkt similarity index 100% rename from collects/help/installer.ss rename to collects/help/installer.rkt diff --git a/collects/help/private/buginfo.ss b/collects/help/private/buginfo.rkt similarity index 100% rename from collects/help/private/buginfo.ss rename to collects/help/private/buginfo.rkt diff --git a/collects/help/search.ss b/collects/help/search.rkt similarity index 100% rename from collects/help/search.ss rename to collects/help/search.rkt diff --git a/collects/hierlist/hierlist.ss b/collects/hierlist/hierlist.rkt similarity index 100% rename from collects/hierlist/hierlist.ss rename to collects/hierlist/hierlist.rkt diff --git a/collects/honu/lang/reader.ss b/collects/honu/lang/reader.rkt similarity index 100% rename from collects/honu/lang/reader.ss rename to collects/honu/lang/reader.rkt diff --git a/collects/honu/main.ss b/collects/honu/main.rkt similarity index 100% rename from collects/honu/main.ss rename to collects/honu/main.rkt diff --git a/collects/honu/private/contexts.ss b/collects/honu/private/contexts.rkt similarity index 100% rename from collects/honu/private/contexts.ss rename to collects/honu/private/contexts.rkt diff --git a/collects/honu/private/debug.ss b/collects/honu/private/debug.rkt similarity index 100% rename from collects/honu/private/debug.ss rename to collects/honu/private/debug.rkt diff --git a/collects/honu/private/honu-typed-scheme.ss b/collects/honu/private/honu-typed-scheme.rkt similarity index 100% rename from collects/honu/private/honu-typed-scheme.ss rename to collects/honu/private/honu-typed-scheme.rkt diff --git a/collects/honu/private/honu.ss b/collects/honu/private/honu.rkt similarity index 100% rename from collects/honu/private/honu.ss rename to collects/honu/private/honu.rkt diff --git a/collects/honu/private/literals.ss b/collects/honu/private/literals.rkt similarity index 100% rename from collects/honu/private/literals.ss rename to collects/honu/private/literals.rkt diff --git a/collects/honu/private/macro.ss b/collects/honu/private/macro.rkt similarity index 100% rename from collects/honu/private/macro.ss rename to collects/honu/private/macro.rkt diff --git a/collects/honu/private/mzscheme.ss b/collects/honu/private/mzscheme.rkt similarity index 100% rename from collects/honu/private/mzscheme.ss rename to collects/honu/private/mzscheme.rkt diff --git a/collects/honu/private/ops.ss b/collects/honu/private/ops.rkt similarity index 100% rename from collects/honu/private/ops.ss rename to collects/honu/private/ops.rkt diff --git a/collects/honu/private/parse.ss b/collects/honu/private/parse.rkt similarity index 100% rename from collects/honu/private/parse.ss rename to collects/honu/private/parse.rkt diff --git a/collects/honu/private/util.ss b/collects/honu/private/util.rkt similarity index 100% rename from collects/honu/private/util.ss rename to collects/honu/private/util.rkt diff --git a/collects/htdp/arrow-gui.ss b/collects/htdp/arrow-gui.rkt similarity index 100% rename from collects/htdp/arrow-gui.ss rename to collects/htdp/arrow-gui.rkt diff --git a/collects/htdp/arrow.ss b/collects/htdp/arrow.rkt similarity index 100% rename from collects/htdp/arrow.ss rename to collects/htdp/arrow.rkt diff --git a/collects/htdp/asl/lang/reader.ss b/collects/htdp/asl/lang/reader.rkt similarity index 100% rename from collects/htdp/asl/lang/reader.ss rename to collects/htdp/asl/lang/reader.rkt diff --git a/collects/htdp/big-draw.ss b/collects/htdp/big-draw.rkt similarity index 100% rename from collects/htdp/big-draw.ss rename to collects/htdp/big-draw.rkt diff --git a/collects/htdp/bsl+/lang/reader.ss b/collects/htdp/bsl+/lang/reader.rkt similarity index 100% rename from collects/htdp/bsl+/lang/reader.ss rename to collects/htdp/bsl+/lang/reader.rkt diff --git a/collects/htdp/bsl/lang/reader.ss b/collects/htdp/bsl/lang/reader.rkt similarity index 100% rename from collects/htdp/bsl/lang/reader.ss rename to collects/htdp/bsl/lang/reader.rkt diff --git a/collects/htdp/bsl/language-info.ss b/collects/htdp/bsl/language-info.rkt similarity index 100% rename from collects/htdp/bsl/language-info.ss rename to collects/htdp/bsl/language-info.rkt diff --git a/collects/htdp/bsl/reader.ss b/collects/htdp/bsl/reader.rkt similarity index 100% rename from collects/htdp/bsl/reader.ss rename to collects/htdp/bsl/reader.rkt diff --git a/collects/htdp/bsl/runtime.ss b/collects/htdp/bsl/runtime.rkt similarity index 100% rename from collects/htdp/bsl/runtime.ss rename to collects/htdp/bsl/runtime.rkt diff --git a/collects/htdp/convert.ss b/collects/htdp/convert.rkt similarity index 100% rename from collects/htdp/convert.ss rename to collects/htdp/convert.rkt diff --git a/collects/htdp/dir.ss b/collects/htdp/dir.rkt similarity index 100% rename from collects/htdp/dir.ss rename to collects/htdp/dir.rkt diff --git a/collects/htdp/docs.ss b/collects/htdp/docs.rkt similarity index 100% rename from collects/htdp/docs.ss rename to collects/htdp/docs.rkt diff --git a/collects/htdp/draw-sig.ss b/collects/htdp/draw-sig.rkt similarity index 100% rename from collects/htdp/draw-sig.ss rename to collects/htdp/draw-sig.rkt diff --git a/collects/htdp/draw.ss b/collects/htdp/draw.rkt similarity index 100% rename from collects/htdp/draw.ss rename to collects/htdp/draw.rkt diff --git a/collects/htdp/elevator.ss b/collects/htdp/elevator.rkt similarity index 100% rename from collects/htdp/elevator.ss rename to collects/htdp/elevator.rkt diff --git a/collects/htdp/error.ss b/collects/htdp/error.rkt similarity index 100% rename from collects/htdp/error.ss rename to collects/htdp/error.rkt diff --git a/collects/htdp/graphing.ss b/collects/htdp/graphing.rkt similarity index 100% rename from collects/htdp/graphing.ss rename to collects/htdp/graphing.rkt diff --git a/collects/htdp/guess-gui.ss b/collects/htdp/guess-gui.rkt similarity index 100% rename from collects/htdp/guess-gui.ss rename to collects/htdp/guess-gui.rkt diff --git a/collects/htdp/guess.ss b/collects/htdp/guess.rkt similarity index 100% rename from collects/htdp/guess.ss rename to collects/htdp/guess.rkt diff --git a/collects/htdp/gui.ss b/collects/htdp/gui.rkt similarity index 100% rename from collects/htdp/gui.ss rename to collects/htdp/gui.rkt diff --git a/collects/htdp/hangman-play.ss b/collects/htdp/hangman-play.rkt similarity index 100% rename from collects/htdp/hangman-play.ss rename to collects/htdp/hangman-play.rkt diff --git a/collects/htdp/hangman-world-play.ss b/collects/htdp/hangman-world-play.rkt similarity index 100% rename from collects/htdp/hangman-world-play.ss rename to collects/htdp/hangman-world-play.rkt diff --git a/collects/htdp/hangman-world.ss b/collects/htdp/hangman-world.rkt similarity index 100% rename from collects/htdp/hangman-world.ss rename to collects/htdp/hangman-world.rkt diff --git a/collects/htdp/hangman.ss b/collects/htdp/hangman.rkt similarity index 100% rename from collects/htdp/hangman.ss rename to collects/htdp/hangman.rkt diff --git a/collects/htdp/image.ss b/collects/htdp/image.rkt similarity index 100% rename from collects/htdp/image.ss rename to collects/htdp/image.rkt diff --git a/collects/htdp/info.ss b/collects/htdp/info.rkt similarity index 100% rename from collects/htdp/info.ss rename to collects/htdp/info.rkt diff --git a/collects/htdp/isl+/lang/reader.ss b/collects/htdp/isl+/lang/reader.rkt similarity index 100% rename from collects/htdp/isl+/lang/reader.ss rename to collects/htdp/isl+/lang/reader.rkt diff --git a/collects/htdp/isl/lang/reader.ss b/collects/htdp/isl/lang/reader.rkt similarity index 100% rename from collects/htdp/isl/lang/reader.ss rename to collects/htdp/isl/lang/reader.rkt diff --git a/collects/htdp/lkup-gui.ss b/collects/htdp/lkup-gui.rkt similarity index 100% rename from collects/htdp/lkup-gui.ss rename to collects/htdp/lkup-gui.rkt diff --git a/collects/htdp/master-play.ss b/collects/htdp/master-play.rkt similarity index 100% rename from collects/htdp/master-play.ss rename to collects/htdp/master-play.rkt diff --git a/collects/htdp/master.ss b/collects/htdp/master.rkt similarity index 100% rename from collects/htdp/master.ss rename to collects/htdp/master.rkt diff --git a/collects/htdp/matrix-invisible.ss b/collects/htdp/matrix-invisible.rkt similarity index 100% rename from collects/htdp/matrix-invisible.ss rename to collects/htdp/matrix-invisible.rkt diff --git a/collects/htdp/matrix-render-sig.ss b/collects/htdp/matrix-render-sig.rkt similarity index 100% rename from collects/htdp/matrix-render-sig.ss rename to collects/htdp/matrix-render-sig.rkt diff --git a/collects/htdp/matrix-sig.ss b/collects/htdp/matrix-sig.rkt similarity index 100% rename from collects/htdp/matrix-sig.ss rename to collects/htdp/matrix-sig.rkt diff --git a/collects/htdp/matrix-unit.ss b/collects/htdp/matrix-unit.rkt similarity index 100% rename from collects/htdp/matrix-unit.ss rename to collects/htdp/matrix-unit.rkt diff --git a/collects/htdp/matrix.ss b/collects/htdp/matrix.rkt similarity index 100% rename from collects/htdp/matrix.ss rename to collects/htdp/matrix.rkt diff --git a/collects/htdp/servlet.ss b/collects/htdp/servlet.rkt similarity index 100% rename from collects/htdp/servlet.ss rename to collects/htdp/servlet.rkt diff --git a/collects/htdp/servlet2.ss b/collects/htdp/servlet2.rkt similarity index 100% rename from collects/htdp/servlet2.ss rename to collects/htdp/servlet2.rkt diff --git a/collects/htdp/show-queen.ss b/collects/htdp/show-queen.rkt similarity index 100% rename from collects/htdp/show-queen.ss rename to collects/htdp/show-queen.rkt diff --git a/collects/htdp/testing.ss b/collects/htdp/testing.rkt similarity index 100% rename from collects/htdp/testing.ss rename to collects/htdp/testing.rkt diff --git a/collects/htdp/tests/arrow-gui.ss b/collects/htdp/tests/arrow-gui.rkt similarity index 100% rename from collects/htdp/tests/arrow-gui.ss rename to collects/htdp/tests/arrow-gui.rkt diff --git a/collects/htdp/tests/arrow.ss b/collects/htdp/tests/arrow.rkt similarity index 100% rename from collects/htdp/tests/arrow.ss rename to collects/htdp/tests/arrow.rkt diff --git a/collects/htdp/tests/convert.ss b/collects/htdp/tests/convert.rkt similarity index 100% rename from collects/htdp/tests/convert.ss rename to collects/htdp/tests/convert.rkt diff --git a/collects/htdp/tests/dir.ss b/collects/htdp/tests/dir.rkt similarity index 100% rename from collects/htdp/tests/dir.ss rename to collects/htdp/tests/dir.rkt diff --git a/collects/htdp/tests/docs.ss b/collects/htdp/tests/docs.rkt similarity index 100% rename from collects/htdp/tests/docs.ss rename to collects/htdp/tests/docs.rkt diff --git a/collects/htdp/tests/draw.ss b/collects/htdp/tests/draw.rkt similarity index 100% rename from collects/htdp/tests/draw.ss rename to collects/htdp/tests/draw.rkt diff --git a/collects/htdp/tests/elevator.ss b/collects/htdp/tests/elevator.rkt similarity index 100% rename from collects/htdp/tests/elevator.ss rename to collects/htdp/tests/elevator.rkt diff --git a/collects/htdp/tests/graphing.ss b/collects/htdp/tests/graphing.rkt similarity index 100% rename from collects/htdp/tests/graphing.ss rename to collects/htdp/tests/graphing.rkt diff --git a/collects/htdp/tests/guess-gui.ss b/collects/htdp/tests/guess-gui.rkt similarity index 100% rename from collects/htdp/tests/guess-gui.ss rename to collects/htdp/tests/guess-gui.rkt diff --git a/collects/htdp/tests/guess1.ss b/collects/htdp/tests/guess1.rkt similarity index 100% rename from collects/htdp/tests/guess1.ss rename to collects/htdp/tests/guess1.rkt diff --git a/collects/htdp/tests/guess2.ss b/collects/htdp/tests/guess2.rkt similarity index 100% rename from collects/htdp/tests/guess2.ss rename to collects/htdp/tests/guess2.rkt diff --git a/collects/htdp/tests/guess3.ss b/collects/htdp/tests/guess3.rkt similarity index 100% rename from collects/htdp/tests/guess3.ss rename to collects/htdp/tests/guess3.rkt diff --git a/collects/htdp/tests/gui.ss b/collects/htdp/tests/gui.rkt similarity index 100% rename from collects/htdp/tests/gui.ss rename to collects/htdp/tests/gui.rkt diff --git a/collects/htdp/tests/hangman-error.ss b/collects/htdp/tests/hangman-error.rkt similarity index 100% rename from collects/htdp/tests/hangman-error.ss rename to collects/htdp/tests/hangman-error.rkt diff --git a/collects/htdp/tests/hangman1.ss b/collects/htdp/tests/hangman1.rkt similarity index 100% rename from collects/htdp/tests/hangman1.ss rename to collects/htdp/tests/hangman1.rkt diff --git a/collects/htdp/tests/lkup-gui.ss b/collects/htdp/tests/lkup-gui.rkt similarity index 100% rename from collects/htdp/tests/lkup-gui.ss rename to collects/htdp/tests/lkup-gui.rkt diff --git a/collects/htdp/tests/master.ss b/collects/htdp/tests/master.rkt similarity index 100% rename from collects/htdp/tests/master.ss rename to collects/htdp/tests/master.rkt diff --git a/collects/htdp/tests/matrix-client.ss b/collects/htdp/tests/matrix-client.rkt similarity index 100% rename from collects/htdp/tests/matrix-client.ss rename to collects/htdp/tests/matrix-client.rkt diff --git a/collects/htdp/tests/matrix-example.ss b/collects/htdp/tests/matrix-example.rkt similarity index 100% rename from collects/htdp/tests/matrix-example.ss rename to collects/htdp/tests/matrix-example.rkt diff --git a/collects/htdp/tests/matrix-test.ss b/collects/htdp/tests/matrix-test.rkt similarity index 100% rename from collects/htdp/tests/matrix-test.ss rename to collects/htdp/tests/matrix-test.rkt diff --git a/collects/htdp/tests/tester.ss b/collects/htdp/tests/tester.rkt similarity index 100% rename from collects/htdp/tests/tester.ss rename to collects/htdp/tests/tester.rkt diff --git a/collects/htdp/tests/world-add-line.ss b/collects/htdp/tests/world-add-line.rkt similarity index 100% rename from collects/htdp/tests/world-add-line.ss rename to collects/htdp/tests/world-add-line.rkt diff --git a/collects/htdp/tests/world-mouse.ss b/collects/htdp/tests/world-mouse.rkt similarity index 100% rename from collects/htdp/tests/world-mouse.ss rename to collects/htdp/tests/world-mouse.rkt diff --git a/collects/htdp/tests/world.ss b/collects/htdp/tests/world.rkt similarity index 100% rename from collects/htdp/tests/world.ss rename to collects/htdp/tests/world.rkt diff --git a/collects/htdp/world.ss b/collects/htdp/world.rkt similarity index 100% rename from collects/htdp/world.ss rename to collects/htdp/world.rkt diff --git a/collects/html/html-spec.ss b/collects/html/html-spec.rkt similarity index 98% rename from collects/html/html-spec.ss rename to collects/html/html-spec.rkt index ef93d19c1e..b511673c28 100644 --- a/collects/html/html-spec.ss +++ b/collects/html/html-spec.rkt @@ -1,5 +1,5 @@ -#lang scheme -(require "sgml-reader.ss") +#lang racket +(require "sgml-reader.rkt") (provide/contract [html-spec spec/c]) diff --git a/collects/html/html-structs.ss b/collects/html/html-structs.rkt similarity index 99% rename from collects/html/html-structs.ss rename to collects/html/html-structs.rkt index c77713cdb7..3db4f92744 100644 --- a/collects/html/html-structs.ss +++ b/collects/html/html-structs.rkt @@ -1,4 +1,4 @@ -#lang scheme +#lang racket (require xml) (define-struct html-element (attributes)) diff --git a/collects/html/html.ss b/collects/html/html.rkt similarity index 99% rename from collects/html/html.ss rename to collects/html/html.rkt index f899cf2216..726c1033cf 100644 --- a/collects/html/html.ss +++ b/collects/html/html.rkt @@ -1,12 +1,12 @@ -#lang scheme +#lang racket ;; copyright by Paul Graunke June 2000 AD -(require "html-structs.ss" - "html-spec.ss" - "sgml-reader.ss" +(require "html-structs.rkt" + "html-spec.rkt" + "sgml-reader.rkt" xml) -(provide (all-from-out "html-structs.ss") +(provide (all-from-out "html-structs.rkt") read-html-comments) (provide/contract [use-html-spec (parameter/c boolean?)] diff --git a/collects/html/html.scrbl b/collects/html/html.scrbl index 22e29a0a7d..5e1f729aec 100644 --- a/collects/html/html.scrbl +++ b/collects/html/html.scrbl @@ -8,7 +8,7 @@ @title{@bold{HTML}: Parsing Library} -@defmodule[html]{The @schememodname[html] library provides +@defmodule[html]{The @racketmodname[html] library provides functions to read html documents and structures to represent them.} @@ -20,38 +20,38 @@ functions to read html documents and structures to represent them.} html?]{} )]{ -Reads (X)HTML from a port, producing an @scheme[html] instance.} +Reads (X)HTML from a port, producing an @racket[html] instance.} @defproc[(read-html-as-xml [port input-port?]) (listof content/c)]{ Reads HTML from a port, producing an @xexpr compatible with the -@schememodname[xml] library (which defines @scheme[content/c]).} +@racketmodname[xml] library (which defines @racket[content/c]).} @defboolparam[read-html-comments v]{ - If @scheme[v] is not @scheme[#f], then comments are read and returned. Defaults to @scheme[#f]. + If @racket[v] is not @racket[#f], then comments are read and returned. Defaults to @racket[#f]. } @defboolparam[use-html-spec v]{ - If @scheme[v] is not @scheme[#f], then the HTML must respect the HTML specification + If @racket[v] is not @racket[#f], then the HTML must respect the HTML specification with regards to what elements are allowed to be the children of - other elements. For example, the top-level @scheme[""] - element may only contain a @scheme[""] and @scheme[""] - element. Defaults to @scheme[#f]. + other elements. For example, the top-level @racket[""] + element may only contain a @racket[""] and @racket[""] + element. Defaults to @racket[#f]. } @section{Example} -@(require (only-in (for-label scheme) +@(require (only-in (for-label racket) open-input-string string-append list cond match apply append map printf define require module) (for-label (prefix-in h: html)) (for-label (prefix-in x: xml))) @def+int[ -(module html-example scheme +(module html-example racket - (code:comment @#,t{Some of the symbols in @schememodname[html] and @schememodname[xml] conflict with}) - (code:comment @#,t{each other and with scheme/base language, so we prefix}) + (code:comment @#,t{Some of the symbols in @racketmodname[html] and @racketmodname[xml] conflict with}) + (code:comment @#,t{each other and with racket/base language, so we prefix}) (code:comment @#,t{to avoid namespace conflict.}) (require (prefix-in h: html) (prefix-in x: xml)) @@ -92,560 +92,560 @@ Reads HTML from a port, producing an @xexpr compatible with the @section{HTML Structures} -@scheme[pcdata], @scheme[entity], and @scheme[attribute] are defined -in the @schememodname[xml] documentation. +@racket[pcdata], @racket[entity], and @racket[attribute] are defined +in the @racketmodname[xml] documentation. -A @scheme[html-content] is either +A @racket[html-content] is either @itemize[ - @item[@scheme[html-element]] - @item[@scheme[pcdata]] - @item[@scheme[entity]]] + @item[@racket[html-element]] + @item[@racket[pcdata]] + @item[@racket[entity]]] @defstruct[html-element ([attributes (listof attribute)])]{ - Any of the structures below inherits from @scheme[html-element].} + Any of the structures below inherits from @racket[html-element].} @defstruct[(html-full struct:html-element) ([content (listof html-content)])]{ Any html tag that may include content also inherits from - @scheme[html-full] without adding any additional fields.} + @racket[html-full] without adding any additional fields.} @defstruct[(html html-full) ()]{ - A @scheme[html] is - @scheme[(make-html (listof attribute) (listof Contents-of-html))] + A @racket[html] is + @racket[(make-html (listof attribute) (listof Contents-of-html))] } -A @scheme[Contents-of-html] is either +A @racket[Contents-of-html] is either @itemize[ - @item{@scheme[body]} - @item{@scheme[head]} + @item{@racket[body]} + @item{@racket[head]} ] @defstruct[(div html-full)()]{ - A @scheme[div] is - @scheme[(make-div (listof attribute) (listof G2))]} + A @racket[div] is + @racket[(make-div (listof attribute) (listof G2))]} @defstruct[(center html-full)()]{ - A @scheme[center] is - @scheme[(make-center (listof attribute) (listof G2))] + A @racket[center] is + @racket[(make-center (listof attribute) (listof G2))] } @defstruct[(blockquote html-full) ()]{ - A @scheme[blockquote] is - @scheme[(make-blockquote (listof attribute) G2)] + A @racket[blockquote] is + @racket[(make-blockquote (listof attribute) G2)] } @defstruct[(ins html-full) ()]{ An Ins is - @scheme[(make-ins (listof attribute) (listof G2))] + @racket[(make-ins (listof attribute) (listof G2))] } @defstruct[(del html-full) ()]{ - A @scheme[del] is - @scheme[(make-del (listof attribute) (listof G2))] + A @racket[del] is + @racket[(make-del (listof attribute) (listof G2))] } @defstruct[(dd html-full) ()]{ - A @scheme[dd] is - @scheme[(make-dd (listof attribute) (listof G2))] + A @racket[dd] is + @racket[(make-dd (listof attribute) (listof G2))] } @defstruct[(li html-full) ()]{ - A @scheme[li] is - @scheme[(make-li (listof attribute) (listof G2))] + A @racket[li] is + @racket[(make-li (listof attribute) (listof G2))] } @defstruct[(th html-full) ()]{ - A @scheme[th] is - @scheme[(make-th (listof attribute) (listof G2))] + A @racket[th] is + @racket[(make-th (listof attribute) (listof G2))] } @defstruct[(td html-full) ()]{ -A @scheme[td] is -@scheme[(make-td (listof attribute) (listof G2))] +A @racket[td] is +@racket[(make-td (listof attribute) (listof G2))] } @defstruct[(iframe html-full) ()]{ -An @scheme[iframe] is -@scheme[(make-iframe (listof attribute) (listof G2))] +An @racket[iframe] is +@racket[(make-iframe (listof attribute) (listof G2))] } @defstruct[(noframes html-full) ()]{ -A @scheme[noframes] is -@scheme[(make-noframes (listof attribute) (listof G2))] +A @racket[noframes] is +@racket[(make-noframes (listof attribute) (listof G2))] } @defstruct[(noscript html-full) ()]{ -A @scheme[noscript] is -@scheme[(make-noscript (listof attribute) (listof G2))] +A @racket[noscript] is +@racket[(make-noscript (listof attribute) (listof G2))] } @defstruct[(style html-full) ()]{ -A @scheme[style] is -@scheme[(make-style (listof attribute) (listof pcdata))] +A @racket[style] is +@racket[(make-style (listof attribute) (listof pcdata))] } @defstruct[(script html-full) ()]{ -A @scheme[script] is -@scheme[(make-script (listof attribute) (listof pcdata))] +A @racket[script] is +@racket[(make-script (listof attribute) (listof pcdata))] } @defstruct[(basefont html-element) ()]{ -A @scheme[basefont] is -@scheme[(make-basefont (listof attribute))] +A @racket[basefont] is +@racket[(make-basefont (listof attribute))] } @defstruct[(br html-element) ()]{ -A @scheme[br] is -@scheme[(make-br (listof attribute))] +A @racket[br] is +@racket[(make-br (listof attribute))] } @defstruct[(area html-element) ()]{ -An @scheme[area] is -@scheme[(make-area (listof attribute))] +An @racket[area] is +@racket[(make-area (listof attribute))] } @defstruct[(alink html-element) ()]{ -A @scheme[alink] is -@scheme[(make-alink (listof attribute))] +A @racket[alink] is +@racket[(make-alink (listof attribute))] } @defstruct[(img html-element) ()]{ -An @scheme[img] is -@scheme[(make-img (listof attribute))] +An @racket[img] is +@racket[(make-img (listof attribute))] } @defstruct[(param html-element) ()]{ -A @scheme[param] is -@scheme[(make-param (listof attribute))] +A @racket[param] is +@racket[(make-param (listof attribute))] } @defstruct[(hr html-element) ()]{ -A @scheme[hr] is -@scheme[(make-hr (listof attribute))] +A @racket[hr] is +@racket[(make-hr (listof attribute))] } @defstruct[(input html-element) ()]{ -An @scheme[input] is -@scheme[(make-input (listof attribute))] +An @racket[input] is +@racket[(make-input (listof attribute))] } @defstruct[(col html-element) ()]{ -A @scheme[col] is -@scheme[(make-col (listof attribute))] +A @racket[col] is +@racket[(make-col (listof attribute))] } @defstruct[(isindex html-element) ()]{ -An @scheme[isindex] is -@scheme[(make-isindex (listof attribute))] +An @racket[isindex] is +@racket[(make-isindex (listof attribute))] } @defstruct[(base html-element) ()]{ -A @scheme[base] is -@scheme[(make-base (listof attribute))] +A @racket[base] is +@racket[(make-base (listof attribute))] } @defstruct[(meta html-element) ()]{ -A @scheme[meta] is -@scheme[(make-meta (listof attribute))] +A @racket[meta] is +@racket[(make-meta (listof attribute))] } @defstruct[(option html-full) ()]{ -An @scheme[option] is -@scheme[(make-option (listof attribute) (listof pcdata))] +An @racket[option] is +@racket[(make-option (listof attribute) (listof pcdata))] } @defstruct[(textarea html-full) ()]{ -A @scheme[textarea] is -@scheme[(make-textarea (listof attribute) (listof pcdata))] +A @racket[textarea] is +@racket[(make-textarea (listof attribute) (listof pcdata))] } @defstruct[(title html-full) ()]{ -A @scheme[title] is -@scheme[(make-title (listof attribute) (listof pcdata))] +A @racket[title] is +@racket[(make-title (listof attribute) (listof pcdata))] } @defstruct[(head html-full) ()]{ - A @scheme[head] is - @scheme[(make-head (listof attribute) (listof Contents-of-head))] + A @racket[head] is + @racket[(make-head (listof attribute) (listof Contents-of-head))] } -A @scheme[Contents-of-head] is either +A @racket[Contents-of-head] is either @itemize[ - @item[@scheme[base]] - @item[@scheme[isindex]] - @item[@scheme[alink]] - @item[@scheme[meta]] - @item[@scheme[object]] - @item[@scheme[script]] - @item[@scheme[style]] - @item[@scheme[title]] + @item[@racket[base]] + @item[@racket[isindex]] + @item[@racket[alink]] + @item[@racket[meta]] + @item[@racket[object]] + @item[@racket[script]] + @item[@racket[style]] + @item[@racket[title]] ] @defstruct[(tr html-full) ()]{ -A @scheme[tr] is -@scheme[(make-tr (listof attribute) (listof Contents-of-tr))] +A @racket[tr] is +@racket[(make-tr (listof attribute) (listof Contents-of-tr))] } -A @scheme[Contents-of-tr] is either +A @racket[Contents-of-tr] is either @itemize[ - @item[@scheme[td]] - @item[@scheme[th]] + @item[@racket[td]] + @item[@racket[th]] ] @defstruct[(colgroup html-full) ()]{ -A @scheme[colgroup] is -@scheme[(make-colgroup (listof attribute) (listof col))] +A @racket[colgroup] is +@racket[(make-colgroup (listof attribute) (listof col))] } @defstruct[(thead html-full) ()]{ -A @scheme[thead] is -@scheme[(make-thead (listof attribute) (listof tr))] +A @racket[thead] is +@racket[(make-thead (listof attribute) (listof tr))] } @defstruct[(tfoot html-full) ()]{ -A @scheme[tfoot] is -@scheme[(make-tfoot (listof attribute) (listof tr))] +A @racket[tfoot] is +@racket[(make-tfoot (listof attribute) (listof tr))] } @defstruct[(tbody html-full) ()]{ -A @scheme[tbody] is -@scheme[(make-tbody (listof attribute) (listof tr))] +A @racket[tbody] is +@racket[(make-tbody (listof attribute) (listof tr))] } @defstruct[(tt html-full) ()]{ -A @scheme[tt] is -@scheme[(make-tt (listof attribute) (listof G5))] +A @racket[tt] is +@racket[(make-tt (listof attribute) (listof G5))] } @defstruct[(i html-full) ()]{ -An @scheme[i] is -@scheme[(make-i (listof attribute) (listof G5))] +An @racket[i] is +@racket[(make-i (listof attribute) (listof G5))] } @defstruct[(b html-full) ()]{ -A @scheme[b] is -@scheme[(make-b (listof attribute) (listof G5))] +A @racket[b] is +@racket[(make-b (listof attribute) (listof G5))] } @defstruct[(u html-full) ()]{ -An @scheme[u] is -@scheme[(make-u (listof attribute) (listof G5))] +An @racket[u] is +@racket[(make-u (listof attribute) (listof G5))] } @defstruct[(s html-full) ()]{ -A @scheme[s] is -@scheme[(make-s (listof attribute) (listof G5))] +A @racket[s] is +@racket[(make-s (listof attribute) (listof G5))] } @defstruct[(strike html-full) ()]{ -A @scheme[strike] is -@scheme[(make-strike (listof attribute) (listof G5))] +A @racket[strike] is +@racket[(make-strike (listof attribute) (listof G5))] } @defstruct[(big html-full) ()]{ -A @scheme[big] is -@scheme[(make-big (listof attribute) (listof G5))] +A @racket[big] is +@racket[(make-big (listof attribute) (listof G5))] } @defstruct[(small html-full) ()]{ -A @scheme[small] is -@scheme[(make-small (listof attribute) (listof G5))] +A @racket[small] is +@racket[(make-small (listof attribute) (listof G5))] } @defstruct[(em html-full) ()]{ -An @scheme[em] is -@scheme[(make-em (listof attribute) (listof G5))] +An @racket[em] is +@racket[(make-em (listof attribute) (listof G5))] } @defstruct[(strong html-full) ()]{ -A @scheme[strong] is -@scheme[(make-strong (listof attribute) (listof G5))] +A @racket[strong] is +@racket[(make-strong (listof attribute) (listof G5))] } @defstruct[(dfn html-full) ()]{ -A @scheme[dfn] is -@scheme[(make-dfn (listof attribute) (listof G5))] +A @racket[dfn] is +@racket[(make-dfn (listof attribute) (listof G5))] } @defstruct[(code html-full) ()]{ -A @scheme[code] is -@scheme[(make-code (listof attribute) (listof G5))] +A @racket[code] is +@racket[(make-code (listof attribute) (listof G5))] } @defstruct[(samp html-full) ()]{ -A @scheme[samp] is -@scheme[(make-samp (listof attribute) (listof G5))] +A @racket[samp] is +@racket[(make-samp (listof attribute) (listof G5))] } @defstruct[(kbd html-full) ()]{ -A @scheme[kbd] is -@scheme[(make-kbd (listof attribute) (listof G5))] +A @racket[kbd] is +@racket[(make-kbd (listof attribute) (listof G5))] } @defstruct[(var html-full) ()]{ -A @scheme[var] is -@scheme[(make-var (listof attribute) (listof G5))] +A @racket[var] is +@racket[(make-var (listof attribute) (listof G5))] } @defstruct[(cite html-full) ()]{ -A @scheme[cite] is -@scheme[(make-cite (listof attribute) (listof G5))] +A @racket[cite] is +@racket[(make-cite (listof attribute) (listof G5))] } @defstruct[(abbr html-full) ()]{ -An @scheme[abbr] is -@scheme[(make-abbr (listof attribute) (listof G5))] +An @racket[abbr] is +@racket[(make-abbr (listof attribute) (listof G5))] } @defstruct[(acronym html-full) ()]{ -An @scheme[acronym] is -@scheme[(make-acronym (listof attribute) (listof G5))] +An @racket[acronym] is +@racket[(make-acronym (listof attribute) (listof G5))] } @defstruct[(sub html-full) ()]{ -A @scheme[sub] is -@scheme[(make-sub (listof attribute) (listof G5))] +A @racket[sub] is +@racket[(make-sub (listof attribute) (listof G5))] } @defstruct[(sup html-full) ()]{ -A @scheme[sup] is -@scheme[(make-sup (listof attribute) (listof G5))] +A @racket[sup] is +@racket[(make-sup (listof attribute) (listof G5))] } @defstruct[(span html-full) ()]{ -A @scheme[span] is -@scheme[(make-span (listof attribute) (listof G5))] +A @racket[span] is +@racket[(make-span (listof attribute) (listof G5))] } @defstruct[(bdo html-full) ()]{ -A @scheme[bdo] is -@scheme[(make-bdo (listof attribute) (listof G5))] +A @racket[bdo] is +@racket[(make-bdo (listof attribute) (listof G5))] } @defstruct[(font html-full) ()]{ -A @scheme[font] is -@scheme[(make-font (listof attribute) (listof G5))] +A @racket[font] is +@racket[(make-font (listof attribute) (listof G5))] } @defstruct[(p html-full) ()]{ -A @scheme[p] is -@scheme[(make-p (listof attribute) (listof G5))] +A @racket[p] is +@racket[(make-p (listof attribute) (listof G5))] } @defstruct[(h1 html-full) ()]{ -A @scheme[h1] is -@scheme[(make-h1 (listof attribute) (listof G5))] +A @racket[h1] is +@racket[(make-h1 (listof attribute) (listof G5))] } @defstruct[(h2 html-full) ()]{ -A @scheme[h2] is -@scheme[(make-h2 (listof attribute) (listof G5))] +A @racket[h2] is +@racket[(make-h2 (listof attribute) (listof G5))] } @defstruct[(h3 html-full) ()]{ -A @scheme[h3] is -@scheme[(make-h3 (listof attribute) (listof G5))] +A @racket[h3] is +@racket[(make-h3 (listof attribute) (listof G5))] } @defstruct[(h4 html-full) ()]{ -A @scheme[h4] is -@scheme[(make-h4 (listof attribute) (listof G5))] +A @racket[h4] is +@racket[(make-h4 (listof attribute) (listof G5))] } @defstruct[(h5 html-full) ()]{ -A @scheme[h5] is -@scheme[(make-h5 (listof attribute) (listof G5))] +A @racket[h5] is +@racket[(make-h5 (listof attribute) (listof G5))] } @defstruct[(h6 html-full) ()]{ -A @scheme[h6] is -@scheme[(make-h6 (listof attribute) (listof G5))] +A @racket[h6] is +@racket[(make-h6 (listof attribute) (listof G5))] } @defstruct[(q html-full) ()]{ -A @scheme[q] is -@scheme[(make-q (listof attribute) (listof G5))] +A @racket[q] is +@racket[(make-q (listof attribute) (listof G5))] } @defstruct[(dt html-full) ()]{ -A @scheme[dt] is -@scheme[(make-dt (listof attribute) (listof G5))] +A @racket[dt] is +@racket[(make-dt (listof attribute) (listof G5))] } @defstruct[(legend html-full) ()]{ -A @scheme[legend] is -@scheme[(make-legend (listof attribute) (listof G5))] +A @racket[legend] is +@racket[(make-legend (listof attribute) (listof G5))] } @defstruct[(caption html-full) ()]{ -A @scheme[caption] is -@scheme[(make-caption (listof attribute) (listof G5))] +A @racket[caption] is +@racket[(make-caption (listof attribute) (listof G5))] } @defstruct[(table html-full) ()]{ -A @scheme[table] is -@scheme[(make-table (listof attribute) (listof Contents-of-table))] +A @racket[table] is +@racket[(make-table (listof attribute) (listof Contents-of-table))] } -A @scheme[Contents-of-table] is either +A @racket[Contents-of-table] is either @itemize[ - @item[@scheme[caption]] - @item[@scheme[col]] - @item[@scheme[colgroup]] - @item[@scheme[tbody]] - @item[@scheme[tfoot]] - @item[@scheme[thead]] + @item[@racket[caption]] + @item[@racket[col]] + @item[@racket[colgroup]] + @item[@racket[tbody]] + @item[@racket[tfoot]] + @item[@racket[thead]] ] @defstruct[(button html-full) ()]{ -A @scheme[button] is -@scheme[(make-button (listof attribute) (listof G4))] +A @racket[button] is +@racket[(make-button (listof attribute) (listof G4))] } @defstruct[(fieldset html-full) ()]{ -A @scheme[fieldset] is -@scheme[(make-fieldset (listof attribute) (listof Contents-of-fieldset))] +A @racket[fieldset] is +@racket[(make-fieldset (listof attribute) (listof Contents-of-fieldset))] } -A @scheme[Contents-of-fieldset] is either +A @racket[Contents-of-fieldset] is either @itemize[ - @item[@scheme[legend]] + @item[@racket[legend]] @item{G2} ] @defstruct[(optgroup html-full) ()]{ -An @scheme[optgroup] is -@scheme[(make-optgroup (listof attribute) (listof option))] +An @racket[optgroup] is +@racket[(make-optgroup (listof attribute) (listof option))] } @defstruct[(select html-full) ()]{ -A @scheme[select] is -@scheme[(make-select (listof attribute) (listof Contents-of-select))] +A @racket[select] is +@racket[(make-select (listof attribute) (listof Contents-of-select))] } -A @scheme[Contents-of-select] is either +A @racket[Contents-of-select] is either @itemize[ - @item[@scheme[optgroup]] - @item[@scheme[option]] + @item[@racket[optgroup]] + @item[@racket[option]] ] @defstruct[(label html-full) ()]{ -A @scheme[label] is -@scheme[(make-label (listof attribute) (listof G6))] +A @racket[label] is +@racket[(make-label (listof attribute) (listof G6))] } @defstruct[(form html-full) ()]{ -A @scheme[form] is -@scheme[(make-form (listof attribute) (listof G3))] +A @racket[form] is +@racket[(make-form (listof attribute) (listof G3))] } @defstruct[(ol html-full) ()]{ -An @scheme[ol] is -@scheme[(make-ol (listof attribute) (listof li))] +An @racket[ol] is +@racket[(make-ol (listof attribute) (listof li))] } @defstruct[(ul html-full) ()]{ -An @scheme[ul] is -@scheme[(make-ul (listof attribute) (listof li))] +An @racket[ul] is +@racket[(make-ul (listof attribute) (listof li))] } @defstruct[(dir html-full) ()]{ -A @scheme[dir] is -@scheme[(make-dir (listof attribute) (listof li))] +A @racket[dir] is +@racket[(make-dir (listof attribute) (listof li))] } @defstruct[(menu html-full) ()]{ -A @scheme[menu] is -@scheme[(make-menu (listof attribute) (listof li))] +A @racket[menu] is +@racket[(make-menu (listof attribute) (listof li))] } @defstruct[(dl html-full) ()]{ -A @scheme[dl] is -@scheme[(make-dl (listof attribute) (listof Contents-of-dl))] +A @racket[dl] is +@racket[(make-dl (listof attribute) (listof Contents-of-dl))] } -A @scheme[Contents-of-dl] is either +A @racket[Contents-of-dl] is either @itemize[ - @item[@scheme[dd]] - @item[@scheme[dt]] + @item[@racket[dd]] + @item[@racket[dt]] ] @defstruct[(pre html-full) ()]{ -A @scheme[pre] is -@scheme[(make-pre (listof attribute) (listof Contents-of-pre))] +A @racket[pre] is +@racket[(make-pre (listof attribute) (listof Contents-of-pre))] } -A @scheme[Contents-of-pre] is either +A @racket[Contents-of-pre] is either @itemize[ @item{G9} @item{G11} @@ -653,199 +653,199 @@ A @scheme[Contents-of-pre] is either @defstruct[(object html-full) ()]{ -An @scheme[object] is -@scheme[(make-object (listof attribute) (listof Contents-of-object-applet))] +An @racket[object] is +@racket[(make-object (listof attribute) (listof Contents-of-object-applet))] } @defstruct[(applet html-full) ()]{ -An @scheme[applet] is -@scheme[(make-applet (listof attribute) (listof Contents-of-object-applet))] +An @racket[applet] is +@racket[(make-applet (listof attribute) (listof Contents-of-object-applet))] } -A @scheme[Contents-of-object-applet] is either +A @racket[Contents-of-object-applet] is either @itemize[ - @item[@scheme[param]] + @item[@racket[param]] @item{G2} ] @defstruct[(map html-full) ()]{ A Map is -@scheme[(make-map (listof attribute) (listof Contents-of-map))] +@racket[(make-map (listof attribute) (listof Contents-of-map))] } -A @scheme[Contents-of-map] is either +A @racket[Contents-of-map] is either @itemize[ - @item[@scheme[area]] - @item[@scheme[fieldset]] - @item[@scheme[form]] - @item[@scheme[isindex]] + @item[@racket[area]] + @item[@racket[fieldset]] + @item[@racket[form]] + @item[@racket[isindex]] @item{G10} ] @defstruct[(a html-full) ()]{ -An @scheme[a] is -@scheme[(make-a (listof attribute) (listof Contents-of-a))] +An @racket[a] is +@racket[(make-a (listof attribute) (listof Contents-of-a))] } -A @scheme[Contents-of-a] is either +A @racket[Contents-of-a] is either @itemize[ - @item[@scheme[label]] + @item[@racket[label]] @item{G7} ] @defstruct[(address html-full) ()]{ -An @scheme[address] is -@scheme[(make-address (listof attribute) (listof Contents-of-address))] +An @racket[address] is +@racket[(make-address (listof attribute) (listof Contents-of-address))] } -A @scheme[Contents-of-address] is either +A @racket[Contents-of-address] is either @itemize[ - @item[@scheme[p]] + @item[@racket[p]] @item{G5} ] @defstruct[(body html-full) ()]{ - A @scheme[body] is - @scheme[(make-body (listof attribute) (listof Contents-of-body))] + A @racket[body] is + @racket[(make-body (listof attribute) (listof Contents-of-body))] } -A @scheme[Contents-of-body] is either +A @racket[Contents-of-body] is either @itemize[ - @item[@scheme[del]] - @item[@scheme[ins]] + @item[@racket[del]] + @item[@racket[ins]] @item{G2} ] -A @scheme[G12] is either +A @racket[G12] is either @itemize[ - @item[@scheme[button]] - @item[@scheme[iframe]] - @item[@scheme[input]] - @item[@scheme[select]] - @item[@scheme[textarea]] + @item[@racket[button]] + @item[@racket[iframe]] + @item[@racket[input]] + @item[@racket[select]] + @item[@racket[textarea]] ] -A @scheme[G11] is either +A @racket[G11] is either @itemize[ - @item[@scheme[a]] - @item[@scheme[label]] - @item[@scheme[G12]] + @item[@racket[a]] + @item[@racket[label]] + @item[@racket[G12]] ] -A @scheme[G10] is either +A @racket[G10] is either @itemize[ - @item[@scheme[address]] - @item[@scheme[blockquote]] - @item[@scheme[center]] - @item[@scheme[dir]] - @item[@scheme[div]] - @item[@scheme[dl]] - @item[@scheme[h1]] - @item[@scheme[h2]] - @item[@scheme[h3]] - @item[@scheme[h4]] - @item[@scheme[h5]] - @item[@scheme[h6]] - @item[@scheme[hr]] - @item[@scheme[menu]] - @item[@scheme[noframes]] - @item[@scheme[noscript]] - @item[@scheme[ol]] - @item[@scheme[p]] - @item[@scheme[pre]] - @item[@scheme[table]] - @item[@scheme[ul]] + @item[@racket[address]] + @item[@racket[blockquote]] + @item[@racket[center]] + @item[@racket[dir]] + @item[@racket[div]] + @item[@racket[dl]] + @item[@racket[h1]] + @item[@racket[h2]] + @item[@racket[h3]] + @item[@racket[h4]] + @item[@racket[h5]] + @item[@racket[h6]] + @item[@racket[hr]] + @item[@racket[menu]] + @item[@racket[noframes]] + @item[@racket[noscript]] + @item[@racket[ol]] + @item[@racket[p]] + @item[@racket[pre]] + @item[@racket[table]] + @item[@racket[ul]] ] -A @scheme[G9] is either +A @racket[G9] is either @itemize[ - @item[@scheme[abbr]] - @item[@scheme[acronym]] - @item[@scheme[b]] - @item[@scheme[bdo]] - @item[@scheme[br]] - @item[@scheme[cite]] - @item[@scheme[code]] - @item[@scheme[dfn]] - @item[@scheme[em]] - @item[@scheme[i]] - @item[@scheme[kbd]] - @item[@scheme[map]] - @item[@scheme[pcdata]] - @item[@scheme[q]] - @item[@scheme[s]] - @item[@scheme[samp]] - @item[@scheme[script]] - @item[@scheme[span]] - @item[@scheme[strike]] - @item[@scheme[strong]] - @item[@scheme[tt]] - @item[@scheme[u]] - @item[@scheme[var]] + @item[@racket[abbr]] + @item[@racket[acronym]] + @item[@racket[b]] + @item[@racket[bdo]] + @item[@racket[br]] + @item[@racket[cite]] + @item[@racket[code]] + @item[@racket[dfn]] + @item[@racket[em]] + @item[@racket[i]] + @item[@racket[kbd]] + @item[@racket[map]] + @item[@racket[pcdata]] + @item[@racket[q]] + @item[@racket[s]] + @item[@racket[samp]] + @item[@racket[script]] + @item[@racket[span]] + @item[@racket[strike]] + @item[@racket[strong]] + @item[@racket[tt]] + @item[@racket[u]] + @item[@racket[var]] ] -A @scheme[G8] is either +A @racket[G8] is either @itemize[ - @item[@scheme[applet]] - @item[@scheme[basefont]] - @item[@scheme[big]] - @item[@scheme[font]] - @item[@scheme[img]] - @item[@scheme[object]] - @item[@scheme[small]] - @item[@scheme[sub]] - @item[@scheme[sup]] + @item[@racket[applet]] + @item[@racket[basefont]] + @item[@racket[big]] + @item[@racket[font]] + @item[@racket[img]] + @item[@racket[object]] + @item[@racket[small]] + @item[@racket[sub]] + @item[@racket[sup]] @item{G9} ] -A @scheme[G7] is either +A @racket[G7] is either @itemize[ @item{G8} @item{G12} ] -A @scheme[G6] is either +A @racket[G6] is either @itemize[ - @item[@scheme[a]] + @item[@racket[a]] @item{G7} ] -A @scheme[G5] is either +A @racket[G5] is either @itemize[ - @item[@scheme[label]] + @item[@racket[label]] @item{G6} ] -A @scheme[G4] is either +A @racket[G4] is either @itemize[ @item{G8} @item{G10} ] -A @scheme[G3] is either +A @racket[G3] is either @itemize[ - @item[@scheme[fieldset]] - @item[@scheme[isindex]] + @item[@racket[fieldset]] + @item[@racket[isindex]] @item{G4} @item{G11} ] -A @scheme[G2] is either +A @racket[G2] is either @itemize[ - @item[@scheme[form]] + @item[@racket[form]] @item{G3} ] diff --git a/collects/html/info.ss b/collects/html/info.rkt similarity index 100% rename from collects/html/info.ss rename to collects/html/info.rkt diff --git a/collects/html/main.rkt b/collects/html/main.rkt new file mode 100644 index 0000000000..077bcf88fd --- /dev/null +++ b/collects/html/main.rkt @@ -0,0 +1,4 @@ +#lang racket/base + +(require "html.rkt") +(provide (all-from-out "html.rkt")) diff --git a/collects/html/main.ss b/collects/html/main.ss deleted file mode 100644 index 00f10dc11d..0000000000 --- a/collects/html/main.ss +++ /dev/null @@ -1,4 +0,0 @@ -#lang scheme/base - -(require "html.ss") -(provide (all-from-out "html.ss")) diff --git a/collects/html/sgml-reader.ss b/collects/html/sgml-reader.rkt similarity index 99% rename from collects/html/sgml-reader.ss rename to collects/html/sgml-reader.rkt index 2ba6824350..2f3ee25906 100644 --- a/collects/html/sgml-reader.ss +++ b/collects/html/sgml-reader.rkt @@ -1,9 +1,9 @@ ;; copyright by Paul Graunke June 2000 AD ;; warning - this was copied from the XML collection. ;; It needs to be abstracted back in. -#lang scheme +#lang racket (require xml - (prefix-in scheme: scheme)) + (prefix-in racket: racket)) ;; Kid-lister : (Symbol -> (U (listof Symbol) #f)) (define kid-lister/c @@ -20,7 +20,7 @@ [gen-read-sgml (kid-lister/c (symbol? symbol? . -> . (or/c symbol? false/c)) . -> . (() (input-port?) . ->* . (listof content/c)))]) (define (file-position in) - (make-location 0 0 (scheme:file-position in))) + (make-location 0 0 (racket:file-position in))) ;; Start-tag ::= (make-start-tag Location Location Symbol (listof Attribute)) (define-struct (start-tag source) (name attrs)) diff --git a/collects/lang/debugger-language-interface.ss b/collects/lang/debugger-language-interface.rkt similarity index 100% rename from collects/lang/debugger-language-interface.ss rename to collects/lang/debugger-language-interface.rkt diff --git a/collects/lang/error.ss b/collects/lang/error.rkt similarity index 100% rename from collects/lang/error.ss rename to collects/lang/error.rkt diff --git a/collects/lang/htdp-advanced-reader.ss b/collects/lang/htdp-advanced-reader.rkt similarity index 100% rename from collects/lang/htdp-advanced-reader.ss rename to collects/lang/htdp-advanced-reader.rkt diff --git a/collects/lang/htdp-advanced.ss b/collects/lang/htdp-advanced.rkt similarity index 100% rename from collects/lang/htdp-advanced.ss rename to collects/lang/htdp-advanced.rkt diff --git a/collects/lang/htdp-beginner-abbr-reader.ss b/collects/lang/htdp-beginner-abbr-reader.rkt similarity index 100% rename from collects/lang/htdp-beginner-abbr-reader.ss rename to collects/lang/htdp-beginner-abbr-reader.rkt diff --git a/collects/lang/htdp-beginner-abbr.ss b/collects/lang/htdp-beginner-abbr.rkt similarity index 100% rename from collects/lang/htdp-beginner-abbr.ss rename to collects/lang/htdp-beginner-abbr.rkt diff --git a/collects/lang/htdp-beginner-reader.ss b/collects/lang/htdp-beginner-reader.rkt similarity index 100% rename from collects/lang/htdp-beginner-reader.ss rename to collects/lang/htdp-beginner-reader.rkt diff --git a/collects/lang/htdp-beginner.ss b/collects/lang/htdp-beginner.rkt similarity index 100% rename from collects/lang/htdp-beginner.ss rename to collects/lang/htdp-beginner.rkt diff --git a/collects/lang/htdp-intermediate-lambda-reader.ss b/collects/lang/htdp-intermediate-lambda-reader.rkt similarity index 100% rename from collects/lang/htdp-intermediate-lambda-reader.ss rename to collects/lang/htdp-intermediate-lambda-reader.rkt diff --git a/collects/lang/htdp-intermediate-lambda.ss b/collects/lang/htdp-intermediate-lambda.rkt similarity index 100% rename from collects/lang/htdp-intermediate-lambda.ss rename to collects/lang/htdp-intermediate-lambda.rkt diff --git a/collects/lang/htdp-intermediate-reader.ss b/collects/lang/htdp-intermediate-reader.rkt similarity index 100% rename from collects/lang/htdp-intermediate-reader.ss rename to collects/lang/htdp-intermediate-reader.rkt diff --git a/collects/lang/htdp-intermediate.ss b/collects/lang/htdp-intermediate.rkt similarity index 100% rename from collects/lang/htdp-intermediate.ss rename to collects/lang/htdp-intermediate.rkt diff --git a/collects/lang/htdp-langs.ss b/collects/lang/htdp-langs.rkt similarity index 99% rename from collects/lang/htdp-langs.ss rename to collects/lang/htdp-langs.rkt index 63b0e97a07..0396a1a496 100644 --- a/collects/lang/htdp-langs.ss +++ b/collects/lang/htdp-langs.rkt @@ -85,7 +85,7 @@ #t 'none #f - (preferences:get 'drscheme:htdp:last-set-teachpacks))) + (preferences:get 'drracket:htdp:last-set-teachpacks))) (define/override (default-settings? s) (and (super default-settings? s) @@ -201,11 +201,11 @@ [(drscheme:language:simple-settings-insert-newlines settings) (if (number? width) (parameterize ([pretty-print-columns width]) - (pretty-print converted-value port)) - (pretty-print converted-value port))] + (pretty-write converted-value port)) + (pretty-write converted-value port))] [else (parameterize ([pretty-print-columns 'infinity]) - (pretty-print converted-value port)) + (pretty-write converted-value port)) (newline port)]))))) settings width)) @@ -559,7 +559,7 @@ settings) (let ([new-tps (append old-tps (list teachpack))]) - (preferences:set 'drscheme:htdp:last-set-teachpacks new-tps) + (preferences:set 'drracket:htdp:last-set-teachpacks new-tps) (make-htdp-lang-settings (drscheme:language:simple-settings-case-sensitive settings) (drscheme:language:simple-settings-printing-style settings) @@ -573,7 +573,7 @@ (λ (settings name) (let ([new-tps (filter (λ (x) (not (equal? (cadr x) name))) (htdp-lang-settings-teachpacks settings))]) - (preferences:set 'drscheme:htdp:last-set-teachpacks new-tps) + (preferences:set 'drracket:htdp:last-set-teachpacks new-tps) (make-htdp-lang-settings (drscheme:language:simple-settings-case-sensitive settings) (drscheme:language:simple-settings-printing-style settings) @@ -584,7 +584,7 @@ (htdp-lang-settings-tracing? settings) new-tps))) (λ (settings) - (preferences:set 'drscheme:htdp:last-set-teachpacks '()) + (preferences:set 'drracket:htdp:last-set-teachpacks '()) (make-htdp-lang-settings (drscheme:language:simple-settings-case-sensitive settings) (drscheme:language:simple-settings-printing-style settings) diff --git a/collects/lang/htdp-reader.ss b/collects/lang/htdp-reader.rkt similarity index 100% rename from collects/lang/htdp-reader.ss rename to collects/lang/htdp-reader.rkt diff --git a/collects/lang/imageeq.ss b/collects/lang/imageeq.rkt similarity index 100% rename from collects/lang/imageeq.ss rename to collects/lang/imageeq.rkt diff --git a/collects/lang/info.ss b/collects/lang/info.rkt similarity index 100% rename from collects/lang/info.ss rename to collects/lang/info.rkt diff --git a/collects/lang/plt-pretty-big-text.ss b/collects/lang/plt-pretty-big-text.rkt similarity index 100% rename from collects/lang/plt-pretty-big-text.ss rename to collects/lang/plt-pretty-big-text.rkt diff --git a/collects/lang/plt-pretty-big.ss b/collects/lang/plt-pretty-big.rkt similarity index 100% rename from collects/lang/plt-pretty-big.ss rename to collects/lang/plt-pretty-big.rkt diff --git a/collects/lang/posn.ss b/collects/lang/posn.rkt similarity index 100% rename from collects/lang/posn.ss rename to collects/lang/posn.rkt diff --git a/collects/lang/prim.ss b/collects/lang/prim.rkt similarity index 100% rename from collects/lang/prim.ss rename to collects/lang/prim.rkt diff --git a/collects/lang/private/advanced-funs.ss b/collects/lang/private/advanced-funs.rkt similarity index 96% rename from collects/lang/private/advanced-funs.ss rename to collects/lang/private/advanced-funs.rkt index eea94b3150..585461c2b8 100644 --- a/collects/lang/private/advanced-funs.ss +++ b/collects/lang/private/advanced-funs.rkt @@ -8,6 +8,11 @@ scheme/port "../posn.ss" (for-syntax scheme/base)) + + (define pp + (let ([pretty-print (lambda (v) + (pretty-write v))]) + pretty-print)) (provide-and-document procedures @@ -35,7 +40,7 @@ "to print the argument to stdout (without quotes on symbols and strings, etc.)") (write (any -> void) "to print the argument to stdout (in a traditional style that is somewhere between print and display)") - (pretty-print (any -> void) + ((pp pretty-print) (any -> void) "like write, but with standard newlines and indentation") (printf (string any ... -> void) "to format the rest of the arguments according to the first argument and print it to stdout") diff --git a/collects/lang/private/and-or-map.ss b/collects/lang/private/and-or-map.rkt similarity index 100% rename from collects/lang/private/and-or-map.ss rename to collects/lang/private/and-or-map.rkt diff --git a/collects/lang/private/beginner-funs.ss b/collects/lang/private/beginner-funs.rkt similarity index 100% rename from collects/lang/private/beginner-funs.ss rename to collects/lang/private/beginner-funs.rkt diff --git a/collects/lang/private/contract-forms.ss b/collects/lang/private/contract-forms.rkt similarity index 100% rename from collects/lang/private/contract-forms.ss rename to collects/lang/private/contract-forms.rkt diff --git a/collects/lang/private/contracts/advanced-contracts.ss b/collects/lang/private/contracts/advanced-contracts.rkt similarity index 100% rename from collects/lang/private/contracts/advanced-contracts.ss rename to collects/lang/private/contracts/advanced-contracts.rkt diff --git a/collects/lang/private/contracts/beginner-contracts.ss b/collects/lang/private/contracts/beginner-contracts.rkt similarity index 100% rename from collects/lang/private/contracts/beginner-contracts.ss rename to collects/lang/private/contracts/beginner-contracts.rkt diff --git a/collects/lang/private/contracts/contract-transformers.ss b/collects/lang/private/contracts/contract-transformers.rkt similarity index 100% rename from collects/lang/private/contracts/contract-transformers.ss rename to collects/lang/private/contracts/contract-transformers.rkt diff --git a/collects/lang/private/contracts/contracts-helpers.ss b/collects/lang/private/contracts/contracts-helpers.rkt similarity index 100% rename from collects/lang/private/contracts/contracts-helpers.ss rename to collects/lang/private/contracts/contracts-helpers.rkt diff --git a/collects/lang/private/contracts/contracts-module-begin.ss b/collects/lang/private/contracts/contracts-module-begin.rkt similarity index 100% rename from collects/lang/private/contracts/contracts-module-begin.ss rename to collects/lang/private/contracts/contracts-module-begin.rkt diff --git a/collects/lang/private/contracts/contracts.ss b/collects/lang/private/contracts/contracts.rkt similarity index 100% rename from collects/lang/private/contracts/contracts.ss rename to collects/lang/private/contracts/contracts.rkt diff --git a/collects/lang/private/contracts/define-data.ss b/collects/lang/private/contracts/define-data.rkt similarity index 100% rename from collects/lang/private/contracts/define-data.ss rename to collects/lang/private/contracts/define-data.rkt diff --git a/collects/lang/private/contracts/hilighters.ss b/collects/lang/private/contracts/hilighters.rkt similarity index 100% rename from collects/lang/private/contracts/hilighters.ss rename to collects/lang/private/contracts/hilighters.rkt diff --git a/collects/lang/private/contracts/intermediate-contracts.ss b/collects/lang/private/contracts/intermediate-contracts.rkt similarity index 100% rename from collects/lang/private/contracts/intermediate-contracts.ss rename to collects/lang/private/contracts/intermediate-contracts.rkt diff --git a/collects/lang/private/firstorder.ss b/collects/lang/private/firstorder.rkt similarity index 100% rename from collects/lang/private/firstorder.ss rename to collects/lang/private/firstorder.rkt diff --git a/collects/lang/private/imageeq.ss b/collects/lang/private/imageeq.rkt similarity index 100% rename from collects/lang/private/imageeq.ss rename to collects/lang/private/imageeq.rkt diff --git a/collects/lang/private/intermediate-funs.ss b/collects/lang/private/intermediate-funs.rkt similarity index 100% rename from collects/lang/private/intermediate-funs.ss rename to collects/lang/private/intermediate-funs.rkt diff --git a/collects/lang/private/set-result.ss b/collects/lang/private/set-result.rkt similarity index 100% rename from collects/lang/private/set-result.ss rename to collects/lang/private/set-result.rkt diff --git a/collects/lang/private/teach-shared.ss b/collects/lang/private/teach-shared.rkt similarity index 100% rename from collects/lang/private/teach-shared.ss rename to collects/lang/private/teach-shared.rkt diff --git a/collects/lang/private/teach.ss b/collects/lang/private/teach.rkt similarity index 100% rename from collects/lang/private/teach.ss rename to collects/lang/private/teach.rkt diff --git a/collects/lang/private/teachhelp.ss b/collects/lang/private/teachhelp.rkt similarity index 100% rename from collects/lang/private/teachhelp.ss rename to collects/lang/private/teachhelp.rkt diff --git a/collects/lang/private/teachprims.ss b/collects/lang/private/teachprims.rkt similarity index 100% rename from collects/lang/private/teachprims.ss rename to collects/lang/private/teachprims.rkt diff --git a/collects/lang/private/todo.ss b/collects/lang/private/todo.rkt similarity index 100% rename from collects/lang/private/todo.ss rename to collects/lang/private/todo.rkt diff --git a/collects/lang/r5rs.ss b/collects/lang/r5rs.rkt similarity index 100% rename from collects/lang/r5rs.ss rename to collects/lang/r5rs.rkt diff --git a/collects/lang/run-teaching-program.ss b/collects/lang/run-teaching-program.rkt similarity index 100% rename from collects/lang/run-teaching-program.ss rename to collects/lang/run-teaching-program.rkt diff --git a/collects/lang/stepper-language-interface.ss b/collects/lang/stepper-language-interface.rkt similarity index 100% rename from collects/lang/stepper-language-interface.ss rename to collects/lang/stepper-language-interface.rkt diff --git a/collects/lang/test-error.ss b/collects/lang/test-error.rkt similarity index 100% rename from collects/lang/test-error.ss rename to collects/lang/test-error.rkt diff --git a/collects/launcher/info.ss b/collects/launcher/info.rkt similarity index 100% rename from collects/launcher/info.ss rename to collects/launcher/info.rkt diff --git a/collects/launcher/launcher-sig.ss b/collects/launcher/launcher-sig.rkt similarity index 100% rename from collects/launcher/launcher-sig.ss rename to collects/launcher/launcher-sig.rkt diff --git a/collects/launcher/launcher-unit.ss b/collects/launcher/launcher-unit.rkt similarity index 100% rename from collects/launcher/launcher-unit.ss rename to collects/launcher/launcher-unit.rkt diff --git a/collects/launcher/launcher.ss b/collects/launcher/launcher.rkt similarity index 100% rename from collects/launcher/launcher.ss rename to collects/launcher/launcher.rkt diff --git a/collects/launcher/main.ss b/collects/launcher/main.rkt similarity index 100% rename from collects/launcher/main.ss rename to collects/launcher/main.rkt diff --git a/collects/lazy/force.ss b/collects/lazy/force.rkt similarity index 100% rename from collects/lazy/force.ss rename to collects/lazy/force.rkt diff --git a/collects/lazy/info.ss b/collects/lazy/info.rkt similarity index 100% rename from collects/lazy/info.ss rename to collects/lazy/info.rkt diff --git a/collects/lazy/lang/reader.ss b/collects/lazy/lang/reader.rkt similarity index 100% rename from collects/lazy/lang/reader.ss rename to collects/lazy/lang/reader.rkt diff --git a/collects/lazy/lazy.ss b/collects/lazy/lazy.rkt similarity index 100% rename from collects/lazy/lazy.ss rename to collects/lazy/lazy.rkt diff --git a/collects/lazy/main.ss b/collects/lazy/main.rkt similarity index 100% rename from collects/lazy/main.ss rename to collects/lazy/main.rkt diff --git a/collects/lazy/mz-without-promises.ss b/collects/lazy/mz-without-promises.rkt similarity index 100% rename from collects/lazy/mz-without-promises.ss rename to collects/lazy/mz-without-promises.rkt diff --git a/collects/macro-debugger/expand.ss b/collects/macro-debugger/expand.rkt similarity index 100% rename from collects/macro-debugger/expand.ss rename to collects/macro-debugger/expand.rkt diff --git a/collects/macro-debugger/info.ss b/collects/macro-debugger/info.rkt similarity index 100% rename from collects/macro-debugger/info.ss rename to collects/macro-debugger/info.rkt diff --git a/collects/macro-debugger/model/context.ss b/collects/macro-debugger/model/context.rkt similarity index 100% rename from collects/macro-debugger/model/context.ss rename to collects/macro-debugger/model/context.rkt diff --git a/collects/macro-debugger/model/debug.ss b/collects/macro-debugger/model/debug.rkt similarity index 100% rename from collects/macro-debugger/model/debug.ss rename to collects/macro-debugger/model/debug.rkt diff --git a/collects/macro-debugger/model/deriv-c.ss b/collects/macro-debugger/model/deriv-c.rkt similarity index 100% rename from collects/macro-debugger/model/deriv-c.ss rename to collects/macro-debugger/model/deriv-c.rkt diff --git a/collects/macro-debugger/model/deriv-parser.ss b/collects/macro-debugger/model/deriv-parser.rkt similarity index 100% rename from collects/macro-debugger/model/deriv-parser.ss rename to collects/macro-debugger/model/deriv-parser.rkt diff --git a/collects/macro-debugger/model/deriv-tokens.ss b/collects/macro-debugger/model/deriv-tokens.rkt similarity index 100% rename from collects/macro-debugger/model/deriv-tokens.ss rename to collects/macro-debugger/model/deriv-tokens.rkt diff --git a/collects/macro-debugger/model/deriv-util.ss b/collects/macro-debugger/model/deriv-util.rkt similarity index 100% rename from collects/macro-debugger/model/deriv-util.ss rename to collects/macro-debugger/model/deriv-util.rkt diff --git a/collects/macro-debugger/model/deriv.ss b/collects/macro-debugger/model/deriv.rkt similarity index 100% rename from collects/macro-debugger/model/deriv.ss rename to collects/macro-debugger/model/deriv.rkt diff --git a/collects/macro-debugger/model/hiding-policies.ss b/collects/macro-debugger/model/hiding-policies.rkt similarity index 100% rename from collects/macro-debugger/model/hiding-policies.ss rename to collects/macro-debugger/model/hiding-policies.rkt diff --git a/collects/macro-debugger/model/info.ss b/collects/macro-debugger/model/info.rkt similarity index 100% rename from collects/macro-debugger/model/info.ss rename to collects/macro-debugger/model/info.rkt diff --git a/collects/macro-debugger/model/reductions-config.ss b/collects/macro-debugger/model/reductions-config.rkt similarity index 100% rename from collects/macro-debugger/model/reductions-config.ss rename to collects/macro-debugger/model/reductions-config.rkt diff --git a/collects/macro-debugger/model/reductions-engine.ss b/collects/macro-debugger/model/reductions-engine.rkt similarity index 100% rename from collects/macro-debugger/model/reductions-engine.ss rename to collects/macro-debugger/model/reductions-engine.rkt diff --git a/collects/macro-debugger/model/reductions.ss b/collects/macro-debugger/model/reductions.rkt similarity index 100% rename from collects/macro-debugger/model/reductions.ss rename to collects/macro-debugger/model/reductions.rkt diff --git a/collects/macro-debugger/model/steps.ss b/collects/macro-debugger/model/steps.rkt similarity index 100% rename from collects/macro-debugger/model/steps.ss rename to collects/macro-debugger/model/steps.rkt diff --git a/collects/macro-debugger/model/stx-util.ss b/collects/macro-debugger/model/stx-util.rkt similarity index 100% rename from collects/macro-debugger/model/stx-util.ss rename to collects/macro-debugger/model/stx-util.rkt diff --git a/collects/macro-debugger/model/trace-raw.ss b/collects/macro-debugger/model/trace-raw.rkt similarity index 100% rename from collects/macro-debugger/model/trace-raw.ss rename to collects/macro-debugger/model/trace-raw.rkt diff --git a/collects/macro-debugger/model/trace.ss b/collects/macro-debugger/model/trace.rkt similarity index 100% rename from collects/macro-debugger/model/trace.ss rename to collects/macro-debugger/model/trace.rkt diff --git a/collects/macro-debugger/model/yacc-ext.ss b/collects/macro-debugger/model/yacc-ext.rkt similarity index 100% rename from collects/macro-debugger/model/yacc-ext.ss rename to collects/macro-debugger/model/yacc-ext.rkt diff --git a/collects/macro-debugger/model/yacc-interrupted.ss b/collects/macro-debugger/model/yacc-interrupted.rkt similarity index 100% rename from collects/macro-debugger/model/yacc-interrupted.ss rename to collects/macro-debugger/model/yacc-interrupted.rkt diff --git a/collects/macro-debugger/stepper-text.ss b/collects/macro-debugger/stepper-text.rkt similarity index 100% rename from collects/macro-debugger/stepper-text.ss rename to collects/macro-debugger/stepper-text.rkt diff --git a/collects/macro-debugger/stepper.ss b/collects/macro-debugger/stepper.rkt similarity index 100% rename from collects/macro-debugger/stepper.ss rename to collects/macro-debugger/stepper.rkt diff --git a/collects/macro-debugger/syntax-browser.ss b/collects/macro-debugger/syntax-browser.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser.ss rename to collects/macro-debugger/syntax-browser.rkt diff --git a/collects/macro-debugger/syntax-browser/controller.ss b/collects/macro-debugger/syntax-browser/controller.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/controller.ss rename to collects/macro-debugger/syntax-browser/controller.rkt diff --git a/collects/macro-debugger/syntax-browser/display.ss b/collects/macro-debugger/syntax-browser/display.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/display.ss rename to collects/macro-debugger/syntax-browser/display.rkt diff --git a/collects/macro-debugger/syntax-browser/embed.ss b/collects/macro-debugger/syntax-browser/embed.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/embed.ss rename to collects/macro-debugger/syntax-browser/embed.rkt diff --git a/collects/macro-debugger/syntax-browser/frame.ss b/collects/macro-debugger/syntax-browser/frame.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/frame.ss rename to collects/macro-debugger/syntax-browser/frame.rkt diff --git a/collects/macro-debugger/syntax-browser/hrule-snip.ss b/collects/macro-debugger/syntax-browser/hrule-snip.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/hrule-snip.ss rename to collects/macro-debugger/syntax-browser/hrule-snip.rkt diff --git a/collects/macro-debugger/syntax-browser/image.ss b/collects/macro-debugger/syntax-browser/image.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/image.ss rename to collects/macro-debugger/syntax-browser/image.rkt diff --git a/collects/macro-debugger/syntax-browser/interfaces.ss b/collects/macro-debugger/syntax-browser/interfaces.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/interfaces.ss rename to collects/macro-debugger/syntax-browser/interfaces.rkt diff --git a/collects/macro-debugger/syntax-browser/keymap.ss b/collects/macro-debugger/syntax-browser/keymap.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/keymap.ss rename to collects/macro-debugger/syntax-browser/keymap.rkt diff --git a/collects/macro-debugger/syntax-browser/partition.ss b/collects/macro-debugger/syntax-browser/partition.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/partition.ss rename to collects/macro-debugger/syntax-browser/partition.rkt diff --git a/collects/macro-debugger/syntax-browser/prefs.ss b/collects/macro-debugger/syntax-browser/prefs.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/prefs.ss rename to collects/macro-debugger/syntax-browser/prefs.rkt diff --git a/collects/macro-debugger/syntax-browser/pretty-helper.ss b/collects/macro-debugger/syntax-browser/pretty-helper.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/pretty-helper.ss rename to collects/macro-debugger/syntax-browser/pretty-helper.rkt diff --git a/collects/macro-debugger/syntax-browser/pretty-printer.ss b/collects/macro-debugger/syntax-browser/pretty-printer.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/pretty-printer.ss rename to collects/macro-debugger/syntax-browser/pretty-printer.rkt diff --git a/collects/macro-debugger/syntax-browser/properties.ss b/collects/macro-debugger/syntax-browser/properties.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/properties.ss rename to collects/macro-debugger/syntax-browser/properties.rkt diff --git a/collects/macro-debugger/syntax-browser/snip-decorated.ss b/collects/macro-debugger/syntax-browser/snip-decorated.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/snip-decorated.ss rename to collects/macro-debugger/syntax-browser/snip-decorated.rkt diff --git a/collects/macro-debugger/syntax-browser/snip.ss b/collects/macro-debugger/syntax-browser/snip.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/snip.ss rename to collects/macro-debugger/syntax-browser/snip.rkt diff --git a/collects/macro-debugger/syntax-browser/text.ss b/collects/macro-debugger/syntax-browser/text.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/text.ss rename to collects/macro-debugger/syntax-browser/text.rkt diff --git a/collects/macro-debugger/syntax-browser/util.ss b/collects/macro-debugger/syntax-browser/util.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/util.ss rename to collects/macro-debugger/syntax-browser/util.rkt diff --git a/collects/macro-debugger/syntax-browser/widget.ss b/collects/macro-debugger/syntax-browser/widget.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/widget.ss rename to collects/macro-debugger/syntax-browser/widget.rkt diff --git a/collects/macro-debugger/tool.ss b/collects/macro-debugger/tool.rkt similarity index 100% rename from collects/macro-debugger/tool.ss rename to collects/macro-debugger/tool.rkt diff --git a/collects/macro-debugger/util/mpi.ss b/collects/macro-debugger/util/mpi.rkt similarity index 100% rename from collects/macro-debugger/util/mpi.ss rename to collects/macro-debugger/util/mpi.rkt diff --git a/collects/macro-debugger/view/cursor.ss b/collects/macro-debugger/view/cursor.rkt similarity index 100% rename from collects/macro-debugger/view/cursor.ss rename to collects/macro-debugger/view/cursor.rkt diff --git a/collects/macro-debugger/view/debug-format.ss b/collects/macro-debugger/view/debug-format.rkt similarity index 100% rename from collects/macro-debugger/view/debug-format.ss rename to collects/macro-debugger/view/debug-format.rkt diff --git a/collects/macro-debugger/view/debug.ss b/collects/macro-debugger/view/debug.rkt similarity index 100% rename from collects/macro-debugger/view/debug.ss rename to collects/macro-debugger/view/debug.rkt diff --git a/collects/macro-debugger/view/extensions.ss b/collects/macro-debugger/view/extensions.rkt similarity index 100% rename from collects/macro-debugger/view/extensions.ss rename to collects/macro-debugger/view/extensions.rkt diff --git a/collects/macro-debugger/view/frame.ss b/collects/macro-debugger/view/frame.rkt similarity index 100% rename from collects/macro-debugger/view/frame.ss rename to collects/macro-debugger/view/frame.rkt diff --git a/collects/macro-debugger/view/hiding-panel.ss b/collects/macro-debugger/view/hiding-panel.rkt similarity index 100% rename from collects/macro-debugger/view/hiding-panel.ss rename to collects/macro-debugger/view/hiding-panel.rkt diff --git a/collects/macro-debugger/view/info.ss b/collects/macro-debugger/view/info.rkt similarity index 100% rename from collects/macro-debugger/view/info.ss rename to collects/macro-debugger/view/info.rkt diff --git a/collects/macro-debugger/view/interfaces.ss b/collects/macro-debugger/view/interfaces.rkt similarity index 100% rename from collects/macro-debugger/view/interfaces.ss rename to collects/macro-debugger/view/interfaces.rkt diff --git a/collects/macro-debugger/view/prefs.ss b/collects/macro-debugger/view/prefs.rkt similarity index 100% rename from collects/macro-debugger/view/prefs.ss rename to collects/macro-debugger/view/prefs.rkt diff --git a/collects/macro-debugger/view/step-display.ss b/collects/macro-debugger/view/step-display.rkt similarity index 100% rename from collects/macro-debugger/view/step-display.ss rename to collects/macro-debugger/view/step-display.rkt diff --git a/collects/macro-debugger/view/stepper.ss b/collects/macro-debugger/view/stepper.rkt similarity index 100% rename from collects/macro-debugger/view/stepper.ss rename to collects/macro-debugger/view/stepper.rkt diff --git a/collects/macro-debugger/view/term-record.ss b/collects/macro-debugger/view/term-record.rkt similarity index 100% rename from collects/macro-debugger/view/term-record.ss rename to collects/macro-debugger/view/term-record.rkt diff --git a/collects/macro-debugger/view/view.ss b/collects/macro-debugger/view/view.rkt similarity index 100% rename from collects/macro-debugger/view/view.ss rename to collects/macro-debugger/view/view.rkt diff --git a/collects/macro-debugger/view/warning.ss b/collects/macro-debugger/view/warning.rkt similarity index 100% rename from collects/macro-debugger/view/warning.ss rename to collects/macro-debugger/view/warning.rkt diff --git a/collects/make/collection-sig.ss b/collects/make/collection-sig.rkt similarity index 100% rename from collects/make/collection-sig.ss rename to collects/make/collection-sig.rkt diff --git a/collects/make/collection-unit.ss b/collects/make/collection-unit.rkt similarity index 100% rename from collects/make/collection-unit.ss rename to collects/make/collection-unit.rkt diff --git a/collects/make/collection.ss b/collects/make/collection.rkt similarity index 100% rename from collects/make/collection.ss rename to collects/make/collection.rkt diff --git a/collects/make/info.ss b/collects/make/info.rkt similarity index 100% rename from collects/make/info.ss rename to collects/make/info.rkt diff --git a/collects/make/main.ss b/collects/make/main.rkt similarity index 100% rename from collects/make/main.ss rename to collects/make/main.rkt diff --git a/collects/make/make-sig.ss b/collects/make/make-sig.rkt similarity index 100% rename from collects/make/make-sig.ss rename to collects/make/make-sig.rkt diff --git a/collects/make/make-unit.ss b/collects/make/make-unit.rkt similarity index 100% rename from collects/make/make-unit.ss rename to collects/make/make-unit.rkt diff --git a/collects/make/make.ss b/collects/make/make.rkt similarity index 100% rename from collects/make/make.ss rename to collects/make/make.rkt diff --git a/collects/make/setup-extension.ss b/collects/make/setup-extension.rkt similarity index 100% rename from collects/make/setup-extension.ss rename to collects/make/setup-extension.rkt diff --git a/collects/meta/check-dists.ss b/collects/meta/check-dists.rkt similarity index 100% rename from collects/meta/check-dists.ss rename to collects/meta/check-dists.rkt diff --git a/collects/meta/checker.ss b/collects/meta/checker.rkt similarity index 100% rename from collects/meta/checker.ss rename to collects/meta/checker.rkt diff --git a/collects/meta/dist-specs.ss b/collects/meta/dist-specs.rkt similarity index 99% rename from collects/meta/dist-specs.ss rename to collects/meta/dist-specs.rkt index 2b406def7e..869ab4223f 100644 --- a/collects/meta/dist-specs.ss +++ b/collects/meta/dist-specs.rkt @@ -662,6 +662,7 @@ mz-extras :+= (- (package: "unstable") ;; -------------------- plai plt-extras :+= (package: "plai/") +plt-extras :+= (package: "rktunit/") plt-extras :+= (package: "schemeunit/") ;; ============================================================================ diff --git a/collects/meta/drdr/metadata.ss b/collects/meta/drdr/metadata.ss index ed01c30702..0418eb0742 100644 --- a/collects/meta/drdr/metadata.ss +++ b/collects/meta/drdr/metadata.ss @@ -7,7 +7,7 @@ (define suffix (filename-extension pth)) (and suffix (ormap (lambda (bs) (bytes=? suffix bs)) - (list #"ss" #"scm" #"scrbl" #"rkt")))) + (list #"ss" #"scm" #"scrbl" #"rkt" #"sls")))) (define PROP:command-line "drdr:command-line") (define PROP:timeout "drdr:timeout") diff --git a/collects/meta/drdr/pkgs.bak b/collects/meta/drdr/pkgs.bak index 28ada5da4a..66c34ab0f1 100644 --- a/collects/meta/drdr/pkgs.bak +++ b/collects/meta/drdr/pkgs.bak @@ -615,26 +615,26 @@ ("schematics" "port.plt" 1 0 #f) ("schematics" "random.plt" 1 0 #f) ("schematics" "sake.plt" 1 0 "4.0") - ("schematics" "schemeunit.plt" 3 4 "4.0") - ("schematics" "schemeunit.plt" 3 3 "4.0") - ("schematics" "schemeunit.plt" 3 2 "4.0") - ("schematics" "schemeunit.plt" 3 1 "4.0") - ("schematics" "schemeunit.plt" 3 0 "4.0") - ("schematics" "schemeunit.plt" 2 11 "4.1.0.3") - ("schematics" "schemeunit.plt" 2 10 "369.1") - ("schematics" "schemeunit.plt" 2 9 "369.1") - ("schematics" "schemeunit.plt" 2 8 "369.1") - ("schematics" "schemeunit.plt" 2 7 "369.1") - ("schematics" "schemeunit.plt" 2 6 "369.1") - ("schematics" "schemeunit.plt" 2 5 "369.1") - ("schematics" "schemeunit.plt" 2 4 "369.1") - ("schematics" "schemeunit.plt" 2 3 #f) - ("schematics" "schemeunit.plt" 2 2 #f) - ("schematics" "schemeunit.plt" 2 1 #f) - ("schematics" "schemeunit.plt" 2 0 #f) - ("schematics" "schemeunit.plt" 1 2 #f) - ("schematics" "schemeunit.plt" 1 1 #f) - ("schematics" "schemeunit.plt" 1 0 #f) + ("schematics" "rktunit.plt" 3 4 "4.0") + ("schematics" "rktunit.plt" 3 3 "4.0") + ("schematics" "rktunit.plt" 3 2 "4.0") + ("schematics" "rktunit.plt" 3 1 "4.0") + ("schematics" "rktunit.plt" 3 0 "4.0") + ("schematics" "rktunit.plt" 2 11 "4.1.0.3") + ("schematics" "rktunit.plt" 2 10 "369.1") + ("schematics" "rktunit.plt" 2 9 "369.1") + ("schematics" "rktunit.plt" 2 8 "369.1") + ("schematics" "rktunit.plt" 2 7 "369.1") + ("schematics" "rktunit.plt" 2 6 "369.1") + ("schematics" "rktunit.plt" 2 5 "369.1") + ("schematics" "rktunit.plt" 2 4 "369.1") + ("schematics" "rktunit.plt" 2 3 #f) + ("schematics" "rktunit.plt" 2 2 #f) + ("schematics" "rktunit.plt" 2 1 #f) + ("schematics" "rktunit.plt" 2 0 #f) + ("schematics" "rktunit.plt" 1 2 #f) + ("schematics" "rktunit.plt" 1 1 #f) + ("schematics" "rktunit.plt" 1 0 #f) ("schematics" "si.plt" 1 0 #f) ("schematics" "spgsql.plt" 2 3 "371.3") ("schematics" "spgsql.plt" 2 2 "371.3") diff --git a/collects/meta/drdr/render.ss b/collects/meta/drdr/render.ss index 591ee20696..76a459b964 100644 --- a/collects/meta/drdr/render.ss +++ b/collects/meta/drdr/render.ss @@ -124,11 +124,13 @@ ,@(append-map (match-lambda [(struct git-merge (hash author date msg from to)) - `((tr ([class "hash"]) (td "Commit:") (td (a ([href ,(format "http://github.com/plt/racket/commit/~a" hash)]) ,hash))) + #;`((tr ([class "hash"]) (td "Commit:") (td (a ([href ,(format "http://github.com/plt/racket/commit/~a" hash)]) ,hash))) (tr ([class "date"]) (td "Date:") (td ,(git-date->nice-date date))) (tr ([class "author"]) (td "Author:") (td ,author)) (tr ([class "msg"]) (td "Log:") (td (pre ,@msg))) - (tr ([class "merge"]) (td "Merge:") (td "From " ,from " to " ,to)))] + (tr ([class "merge"]) (td "Merge:") (td "From " ,from " to " ,to))) + ; Don't display these "meaningless" commits + empty] [(struct git-diff (hash author date msg mfiles)) (define cg-id (symbol->string (gensym 'changes))) (define ccss-id (symbol->string (gensym 'changes))) @@ -544,7 +546,7 @@ (define log->committer+title (match-lambda [(struct git-push (num author commits)) - (define lines (append-map git-commit-msg commits)) + (define lines (append-map (λ (c) (if (git-merge? c) empty (git-commit-msg c))) commits)) (define title (if (empty? lines) "" diff --git a/collects/meta/drdr/run-collect.ss b/collects/meta/drdr/run-collect.ss index c4aaa3d221..68963571d9 100644 --- a/collects/meta/drdr/run-collect.ss +++ b/collects/meta/drdr/run-collect.ss @@ -123,8 +123,8 @@ (define cwd (path->string (current-directory))) (define (rewrite s) (regexp-replace** ([rev ""] - [home ""] [tmp ""] + [home ""] [cwd ""]) s)) diff --git a/collects/meta/drdr/scm.ss b/collects/meta/drdr/scm.ss index 3c62dda6a6..4cd6367403 100644 --- a/collects/meta/drdr/scm.ss +++ b/collects/meta/drdr/scm.ss @@ -108,7 +108,7 @@ (system/output-port #:k (curry parse-push rev who) (git-path) - "--no-pager" "log" "--date=iso" "--name-only" + "--no-pager" "log" "--date=iso" "--name-only" "--no-merges" (format "~a..~a" start-commit end-commit)))) (provide/contract [struct git-push diff --git a/collects/meta/info.ss b/collects/meta/info.rkt similarity index 100% rename from collects/meta/info.ss rename to collects/meta/info.rkt diff --git a/collects/meta/props b/collects/meta/props index 566a661a0c..9fd50e0587 100644 --- a/collects/meta/props +++ b/collects/meta/props @@ -473,715 +473,728 @@ path/s is either such a string or a list of them. #| #:begin-props "collects/2htdp" responsible (matthias) -"collects/2htdp/image.ss" responsible (robby) drdr:command-line "mred-text -t ~s" -"collects/2htdp/private/check-aux.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/private/checked-cell.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/private/image-more.ss" responsible (robby) drdr:command-line "mred-text -t ~s" -"collects/2htdp/private/img-err.ss" responsible (robby) drdr:command-line "mred ~s" -"collects/2htdp/private/last.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/private/launch-many-worlds.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/private/timer.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/private/universe-image.ss" drdr:command-line "mred ~s" -"collects/2htdp/private/universe.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/private/world.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/tests/bad-draw.ss" drdr:command-line "mred ~s" -"collects/2htdp/tests/full-scene-visible.ss" drdr:command-line "mred ~s" -"collects/2htdp/tests/image-equality-performance.ss" responsible (robby) drdr:command-line "mred-text ~s" -"collects/2htdp/tests/mouse-evt.ss" drdr:command-line "" -"collects/2htdp/tests/mp.ss" drdr:command-line "" -"collects/2htdp/tests/perform-robby.ss" drdr:command-line "mred ~s" -"collects/2htdp/tests/perform-whack.ss" drdr:command-line "" -"collects/2htdp/tests/profile-robby.ss" drdr:command-line "" -"collects/2htdp/tests/release.ss" drdr:command-line "mred -t ~s" -"collects/2htdp/tests/stop.ss" drdr:command-line "mred ~s" -"collects/2htdp/tests/test-image.ss" responsible (robby) drdr:command-line "mred-text -qt ~s" -"collects/2htdp/tests/ufo-rename.ss" drdr:command-line "mred ~s" -"collects/2htdp/tests/world0-stops.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/uchat/chatter.ss" drdr:command-line "mzc -k ~s" -"collects/2htdp/uchat/server.ss" drdr:command-line "mzc -k ~s" -"collects/2htdp/universe.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/utest/balls.ss" drdr:command-line "mzc ~s" -"collects/2htdp/utest/sam.ss" drdr:command-line "mzc ~s" -"collects/2htdp/utest/shared.ss" drdr:command-line "mred-text -t ~s" +"collects/2htdp/image.rkt" responsible (robby) drdr:command-line "mred-text -t ~s" +"collects/2htdp/private/check-aux.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/private/checked-cell.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/private/image-more.rkt" responsible (robby) drdr:command-line "mred-text -t ~s" +"collects/2htdp/private/img-err.rkt" responsible (robby) drdr:command-line "mred ~s" +"collects/2htdp/private/last.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/private/launch-many-worlds.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/private/timer.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/private/universe-image.rkt" drdr:command-line "mred ~s" +"collects/2htdp/private/universe.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/private/world.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/tests/bad-draw.rkt" drdr:command-line "mred ~s" +"collects/2htdp/tests/full-scene-visible.rkt" drdr:command-line "mred ~s" +"collects/2htdp/tests/image-equality-performance.rkt" responsible (robby) drdr:command-line "mred-text ~s" +"collects/2htdp/tests/mouse-evt.rkt" drdr:command-line "" +"collects/2htdp/tests/mp.rkt" drdr:command-line "" +"collects/2htdp/tests/perform-robby.rkt" drdr:command-line "mred ~s" +"collects/2htdp/tests/perform-whack.rkt" drdr:command-line "" +"collects/2htdp/tests/profile-robby.rkt" drdr:command-line "" +"collects/2htdp/tests/release.rkt" drdr:command-line "mred -t ~s" +"collects/2htdp/tests/stop.rkt" drdr:command-line "mred ~s" +"collects/2htdp/tests/test-image.rkt" responsible (robby) drdr:command-line "mred-text -qt ~s" +"collects/2htdp/tests/ufo-rename.rkt" drdr:command-line "mred ~s" +"collects/2htdp/tests/world0-stops.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/uchat/chatter.rkt" drdr:command-line "mzc -k ~s" +"collects/2htdp/uchat/server.rkt" drdr:command-line "mzc -k ~s" +"collects/2htdp/universe.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/utest/balls.rkt" drdr:command-line "mzc ~s" +"collects/2htdp/utest/sam.rkt" drdr:command-line "mzc ~s" +"collects/2htdp/utest/shared.rkt" drdr:command-line "mred-text -t ~s" "collects/afm" responsible (mflatt) -"collects/afm/ttf-to-glyphlist.ss" drdr:command-line "mzc ~s" +"collects/afm/ttf-to-glyphlist.rkt" drdr:command-line "mzc ~s" "collects/algol60" responsible (mflatt) -"collects/algol60/bd-tool.ss" drdr:command-line "mred-text -t ~s" -"collects/algol60/tool.ss" drdr:command-line "mred-text -t ~s" +"collects/algol60/bd-tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/algol60/tool.rkt" drdr:command-line "mred-text -t ~s" "collects/browser" responsible (robby) -"collects/browser/browser-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/browser.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/bullet-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/external.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/htmltext.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/main.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/private/bullet.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/private/html.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/private/hyper.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/private/option-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/tool.ss" drdr:command-line "mred-text -t ~s" +"collects/browser/browser-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/browser.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/bullet-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/external.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/htmltext.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/private/bullet.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/private/html.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/private/hyper.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/private/option-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/tool.rkt" drdr:command-line "mred-text -t ~s" "collects/combinator-parser" responsible (kathyg) "collects/compiler" responsible (mflatt) -"collects/compiler/commands/c-ext.ss" drdr:command-line "" -"collects/compiler/commands/exe-dir.ss" drdr:command-line "" -"collects/compiler/commands/exe.ss" drdr:command-line "" -"collects/compiler/commands/pack.ss" drdr:command-line "" +"collects/compiler/commands/c-ext.rkt" drdr:command-line "" +"collects/compiler/commands/exe-dir.rkt" drdr:command-line "" +"collects/compiler/commands/exe.rkt" drdr:command-line "" +"collects/compiler/commands/pack.rkt" drdr:command-line "" "collects/defaults" responsible (robby) "collects/deinprogramm" responsible (sperber) -"collects/deinprogramm/contract/contract-test-display.ss" drdr:command-line "mred-text -t ~s" +"collects/deinprogramm/contract/contract-test-display.rkt" drdr:command-line "mred-text -t ~s" "collects/deinprogramm/convert-explicit.scm" drdr:command-line "" "collects/deinprogramm/define-record-procedures.scm" drdr:command-line "" -"collects/deinprogramm/deinprogramm-langs.ss" drdr:command-line "mred-text -t ~s" -"collects/deinprogramm/image.ss" drdr:command-line "mred-text -t ~s" +"collects/deinprogramm/deinprogramm-langs.rkt" drdr:command-line "mred-text -t ~s" +"collects/deinprogramm/image.rkt" drdr:command-line "mred-text -t ~s" "collects/deinprogramm/line3d.scm" drdr:command-line "" -"collects/deinprogramm/line3d.ss" drdr:command-line "mred-text -t ~s" +"collects/deinprogramm/line3d.rkt" drdr:command-line "mred-text -t ~s" "collects/deinprogramm/quickcheck/quickcheck.scm" drdr:command-line "" "collects/deinprogramm/quickcheck/random.scm" drdr:command-line "" -"collects/deinprogramm/run-dmda-code.ss" drdr:command-line "mzc ~s" -"collects/deinprogramm/turtle.ss" drdr:command-line "mred-text -t ~s" -"collects/deinprogramm/world.ss" drdr:command-line "mred-text -t ~s" +"collects/deinprogramm/run-dmda-code.rkt" drdr:command-line "mzc ~s" +"collects/deinprogramm/turtle.rkt" drdr:command-line "mred-text -t ~s" +"collects/deinprogramm/world.rkt" drdr:command-line "mred-text -t ~s" "collects/drscheme" responsible (robby) -"collects/drscheme/arrow.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/drscheme.ss" drdr:command-line "mzc ~s" -"collects/drscheme/main.ss" drdr:command-line "mzc ~s" -"collects/drscheme/private/app.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/auto-language.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/bindings-browser.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/bitmap-message.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/debug.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/drscheme-normal.ss" drdr:command-line "mzc ~s" -"collects/drscheme/private/eb.ss" drdr:command-line "mred-text ~s" -"collects/drscheme/private/embedded-snip-utils.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/eval.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/font.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/frame.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/help-desk.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/honu-logo.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/init.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/insert-large-letters.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/label-frame-mred.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/language-configuration.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/language-object-contract.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/language.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/launcher-mred-bootstrap.ss" drdr:command-line "mzc ~s" -"collects/drscheme/private/launcher-mz-bootstrap.ss" drdr:command-line "mzc ~s" -"collects/drscheme/private/link.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/main.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/modes.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/module-browser.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/module-language-tools.ss" drdr:command-line "mred-text ~s" -"collects/drscheme/private/module-language.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/multi-file-search.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/number-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/palaka.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/prefs-contract.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/profile-drs.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/rep.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/stick-figures.ss" drdr:command-line "mzc ~s" -"collects/drscheme/private/syncheck-debug.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/text.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/tools.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/tracing.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/unit.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/sprof.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/syncheck-drscheme-button.ss" drdr:command-line "mred-text ~s" -"collects/drscheme/syncheck.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/tool-lib.ss" drdr:command-line "mzc ~s" +"collects/drscheme/arrow.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/drscheme.rkt" drdr:command-line "mzc ~s" +"collects/drscheme/main.rkt" drdr:command-line "mzc ~s" +"collects/drscheme/private/app.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/auto-language.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/bindings-browser.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/bitmap-message.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/debug.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/drscheme-normal.rkt" drdr:command-line "mzc ~s" +"collects/drscheme/private/eb.rkt" drdr:command-line "mred-text ~s" +"collects/drscheme/private/embedded-snip-utils.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/eval.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/font.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/frame.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/help-desk.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/honu-logo.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/init.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/insert-large-letters.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/label-frame-mred.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/language-configuration.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/language-object-contract.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/language.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/launcher-mred-bootstrap.rkt" drdr:command-line "mzc ~s" +"collects/drscheme/private/launcher-mz-bootstrap.rkt" drdr:command-line "mzc ~s" +"collects/drscheme/private/link.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/modes.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/module-browser.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/module-language-tools.rkt" drdr:command-line "mred-text ~s" +"collects/drscheme/private/module-language.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/multi-file-search.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/number-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/palaka.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/prefs-contract.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/profile-drs.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/rep.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/stick-figures.rkt" drdr:command-line "mzc ~s" +"collects/drscheme/private/syncheck-debug.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/text.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/tools.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/tracing.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/sprof.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/syncheck-drscheme-button.rkt" drdr:command-line "mred-text ~s" +"collects/drscheme/syncheck.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/tool-lib.rkt" drdr:command-line "mzc ~s" "collects/dynext" responsible (mflatt) -"collects/dynext/private/macinc.ss" drdr:command-line "mzscheme -f ~s" -"collects/dynext/private/stdio.ss" drdr:command-line "" -"collects/embedded-gui/embedded-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/main.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/aligned-pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/alignment-helpers.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/button-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/cue-text.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/dllist.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/embedded-message.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/fixed-width-label-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/grey-editor.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/lines.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/locked-pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/on-show-editor.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/on-show-pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/program-editor.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/really-resized-pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/single-line-text.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/snip-lib.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/snip-wrapper.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/stretchable-editor-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/suppress-modify-editor.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/tabbable-text.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/tests/alignment-test.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/info.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/not-stetching.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/only-one-child.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/peer-stretchables.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/stretching-in-alignment.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/target-not-object.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/test-alignment.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/test-case-box.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/test-macro.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/test-show-feature-for-test-case.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/test-show-feature.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/unaligned-childless-redux.ss" drdr:command-line "" -"collects/embedded-gui/private/verthoriz-alignment.ss" drdr:command-line "mred-text -t ~s" +"collects/dynext/private/macinc.rkt" drdr:command-line "mzscheme -f ~s" +"collects/dynext/private/stdio.rkt" drdr:command-line "" +"collects/embedded-gui/embedded-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/aligned-pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/alignment-helpers.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/button-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/cue-text.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/dllist.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/embedded-message.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/fixed-width-label-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/grey-editor.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/lines.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/locked-pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/on-show-editor.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/on-show-pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/program-editor.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/really-resized-pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/single-line-text.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/snip-lib.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/snip-wrapper.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/stretchable-editor-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/suppress-modify-editor.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/tabbable-text.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/tests/alignment-test.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/info.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/not-stetching.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/only-one-child.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/peer-stretchables.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/stretching-in-alignment.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/target-not-object.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/test-alignment.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/test-case-box.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/test-macro.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/test-show-feature-for-test-case.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/test-show-feature.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/unaligned-childless-redux.rkt" drdr:command-line "" +"collects/embedded-gui/private/verthoriz-alignment.rkt" drdr:command-line "mred-text -t ~s" "collects/errortrace" responsible (mflatt) "collects/ffi" responsible (eli) -"collects/ffi/esd.ss" drdr:command-line "mzc ~s" -"collects/ffi/examples/c-printf.ss" drdr:command-line "mzc -k ~s" -"collects/ffi/examples/esd.ss" drdr:command-line "mzc ~s" -"collects/ffi/examples/magick.ss" drdr:command-line "mzc ~s" -"collects/ffi/examples/sndfile.ss" drdr:command-line "mzc ~s" -"collects/ffi/examples/tcl.ss" drdr:command-line "mzc ~s" -"collects/ffi/examples/xmmsctrl.ss" drdr:command-line "mzc ~s" -"collects/ffi/examples/xosd.ss" drdr:command-line "mzc ~s" -"collects/ffi/magick.ss" drdr:command-line "mzc ~s" -"collects/ffi/objc.ss" drdr:command-line "mzc ~s" -"collects/ffi/private/objc-doc-unsafe.ss" drdr:command-line "mzc ~s" -"collects/ffi/sndfile.ss" drdr:command-line "mzc ~s" -"collects/ffi/tcl.ss" drdr:command-line "mzc ~s" -"collects/ffi/xmmsctrl.ss" drdr:command-line "mzc ~s" -"collects/ffi/xosd.ss" drdr:command-line "mzc ~s" +"collects/ffi/esd.rkt" drdr:command-line "mzc ~s" +"collects/ffi/examples/c-printf.rkt" drdr:command-line "mzc -k ~s" +"collects/ffi/examples/esd.rkt" drdr:command-line "mzc ~s" +"collects/ffi/examples/magick.rkt" drdr:command-line "mzc ~s" +"collects/ffi/examples/sndfile.rkt" drdr:command-line "mzc ~s" +"collects/ffi/examples/tcl.rkt" drdr:command-line "mzc ~s" +"collects/ffi/examples/xmmsctrl.rkt" drdr:command-line "" +"collects/ffi/examples/xosd.rkt" drdr:command-line "mzc ~s" +"collects/ffi/examples/use-c-printf.rkt" drdr:command-line "mzc -k ~s" +"collects/ffi/examples/use-esd.rkt" drdr:command-line "mzc ~s" +"collects/ffi/examples/use-magick.rkt" drdr:command-line "mzc ~s" +"collects/ffi/examples/use-sndfile.rkt" drdr:command-line "mzc ~s" +"collects/ffi/examples/use-tcl.rkt" drdr:command-line "mzc ~s" +"collects/ffi/examples/use-xmmsctrl.rkt" drdr:command-line "" +"collects/ffi/examples/use-xosd.rkt" drdr:command-line "mzc ~s" +"collects/ffi/magick.rkt" drdr:command-line "mzc ~s" +"collects/ffi/objc.rkt" drdr:command-line "mzc ~s" +"collects/ffi/unsafe/objc.rkt" drdr:command-line "mzc ~s" +"collects/ffi/private/objc-doc-unsafe.rkt" drdr:command-line "mzc ~s" +"collects/ffi/sndfile.rkt" drdr:command-line "mzc ~s" +"collects/ffi/tcl.rkt" drdr:command-line "mzc ~s" +"collects/ffi/xmmsctrl.rkt" drdr:command-line "mzc ~s" +"collects/ffi/xosd.rkt" drdr:command-line "mzc ~s" "collects/framework" responsible (robby) -"collects/framework/collapsed-snipclass.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/comment-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/decorated-editor-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/framework-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/framework.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/gui-utils.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/keybinding-lang.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/main.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/preferences.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/autosave.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/canvas.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/collapsed-snipclass-helpers.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/color-prefs.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/color.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/comment-box.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/decorated-editor-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/editor.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/exit.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/finder.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/frame.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/group.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/handler.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/keymap.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/main.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/menu.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/number-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/preferences.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/scheme.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/search.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/standard-menus.ss" drdr:command-line "" -"collects/framework/private/text.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/splash.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/test.ss" drdr:command-line "mred-text -t ~s" +"collects/framework/collapsed-snipclass.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/comment-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/decorated-editor-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/framework-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/framework.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/gui-utils.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/keybinding-lang.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/preferences.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/autosave.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/canvas.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/collapsed-snipclass-helpers.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/color-prefs.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/color.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/comment-box.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/decorated-editor-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/editor.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/exit.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/finder.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/frame.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/group.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/handler.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/keymap.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/menu.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/number-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/preferences.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/scheme.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/search.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/standard-menus.rkt" drdr:command-line "" +"collects/framework/private/text.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/splash.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/test.rkt" drdr:command-line "mred-text -t ~s" "collects/frtime" responsible (jay gcooper) -"collects/frtime/animation/graphics.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/animation.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/analog-clock.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/ball-on-string.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/delay-mouse.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/growing-points.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/mirror-lens.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/mouse.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/needles.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/orbit-mouse.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/piston.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/pong.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/push-pull-ball.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/rotation.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/tetris.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/tile-game.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/ufo.ss" drdr:command-line "mzc ~s" -"collects/frtime/frlibs/date.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/frp-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/frtime-big.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/frtime.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/gui/aux-mixin-macros.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/gui/demo/bindec.ss" drdr:command-line "mzc ~s" -"collects/frtime/gui/demo/instr.ss" drdr:command-line "mzc ~s" -"collects/frtime/gui/demo/timer.ss" drdr:command-line "mzc ~s" -"collects/frtime/gui/fred.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/gui/mixin-macros.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/gui/simple.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/gui.ss" drdr:command-line "mzc ~s" -"collects/frtime/main.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/opt/frtime-opt-lang.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/reactive.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/tool/frtime-tool.ss" drdr:command-line "mred-text -t ~s" +"collects/frtime/animation/graphics.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/animation.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/analog-clock.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/ball-on-string.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/delay-mouse.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/growing-points.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/mirror-lens.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/mouse.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/needles.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/orbit-mouse.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/piston.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/pong.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/push-pull-ball.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/rotation.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/tetris.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/tile-game.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/ufo.rkt" drdr:command-line "mzc ~s" +"collects/frtime/frlibs/date.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/frp-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/frtime-big.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/frtime.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/gui/aux-mixin-macros.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/gui/demo/bindec.rkt" drdr:command-line "mzc ~s" +"collects/frtime/gui/demo/instr.rkt" drdr:command-line "mzc ~s" +"collects/frtime/gui/demo/timer.rkt" drdr:command-line "mzc ~s" +"collects/frtime/gui/fred.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/gui/mixin-macros.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/gui/simple.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/gui.rkt" drdr:command-line "mzc ~s" +"collects/frtime/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/opt/frtime-opt-lang.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/reactive.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/tool/frtime-tool.rkt" drdr:command-line "mred-text -t ~s" "collects/games" responsible (mflatt robby) "collects/games/aces/aces.scm" drdr:command-line "mred-text -t ~s" -"collects/games/blackjack/blackjack.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards/base.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards/card-class.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards/cards.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards/classes.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards/constants.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards/main.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards/make-cards.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards/snipclass.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards.ss" drdr:command-line "mred-text -t ~s" +"collects/games/blackjack/blackjack.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards/base.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards/card-class.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards/cards.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards/classes.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards/constants.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards/make-cards.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards/snipclass.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards.rkt" drdr:command-line "mred-text -t ~s" "collects/games/chat-noir" responsible (robby matthias) -"collects/games/chat-noir/chat-noir-literate.ss" drdr:command-line "mred-text ~s" -"collects/games/chat-noir/chat-noir-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/games/checkers/checkers.ss" drdr:command-line "mred-text -t ~s" -"collects/games/checkers/honu-bitmaps.ss" drdr:command-line "mred-text -t ~s" -"collects/games/crazy8s/crazy8s.ss" drdr:command-line "mred-text -t ~s" -"collects/games/doors/doors.ss" drdr:command-line "mred-text -t ~s" -"collects/games/doors/utils.ss" drdr:command-line "mred-text -t ~s" -"collects/games/gcalc/gcalc.ss" drdr:command-line "mred-text -t ~s" -"collects/games/ginrummy/ginrummy.ss" drdr:command-line "mred-text -t ~s" -"collects/games/gl-board-game/gl-board.ss" drdr:command-line "mred-text -t ~s" -"collects/games/gl-board-game/main.ss" drdr:command-line "mred-text -t ~s" -"collects/games/gl-board-game.ss" drdr:command-line "mred-text -t ~s" -"collects/games/gobblet/check.ss" drdr:command-line "mzc -k ~s" -"collects/games/gobblet/gobblet.ss" drdr:command-line "mred-text -t ~s" -"collects/games/gobblet/gui.ss" drdr:command-line "mred-text -t ~s" -"collects/games/gobblet/robot.ss" drdr:command-line "mzc -k ~s" -"collects/games/gobblet/test-explore.ss" drdr:command-line "mzc -k ~s" -"collects/games/gobblet/test-model.ss" drdr:command-line "mzc -k ~s" -"collects/games/gofish/gofish.ss" drdr:command-line "mred-text -t ~s" +"collects/games/chat-noir/chat-noir-literate.rkt" drdr:command-line "mred-text ~s" +"collects/games/chat-noir/chat-noir-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/checkers/checkers.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/checkers/honu-bitmaps.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/crazy8s/crazy8s.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/doors/doors.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/doors/utils.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/gcalc/gcalc.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/ginrummy/ginrummy.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/gl-board-game/gl-board.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/gl-board-game/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/gl-board-game.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/gobblet/check.rkt" drdr:command-line "mzc -k ~s" +"collects/games/gobblet/gobblet.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/gobblet/gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/gobblet/robot.rkt" drdr:command-line "mzc -k ~s" +"collects/games/gobblet/test-explore.rkt" drdr:command-line "mzc -k ~s" +"collects/games/gobblet/test-model.rkt" drdr:command-line "mzc -k ~s" +"collects/games/gofish/gofish.rkt" drdr:command-line "mred-text -t ~s" "collects/games/jewel/jewel.scm" drdr:command-line "mred-text -t ~s" "collects/games/jewel/text.scm" drdr:command-line "mred-text -t ~s" -"collects/games/lights-out/board.ss" drdr:command-line "mred-text -t ~s" -"collects/games/lights-out/lights-out.ss" drdr:command-line "mred-text -t ~s" -"collects/games/main.ss" drdr:command-line "mzc ~s" -"collects/games/memory/memory.ss" drdr:command-line "mred-text -t ~s" -"collects/games/mines/gen-tiles.ss" drdr:command-line "mred-text -t ~s" -"collects/games/mines/mines.ss" drdr:command-line "mred-text -t ~s" -"collects/games/paint-by-numbers/gui.ss" drdr:command-line "mred-text -t ~s" -"collects/games/paint-by-numbers/main.ss" drdr:command-line "" -"collects/games/paint-by-numbers/paint-by-numbers.ss" drdr:command-line "mred-text -t ~s" -"collects/games/paint-by-numbers/raw-problems/build-final.ss" drdr:command-line "mzscheme -f ~s" -"collects/games/paint-by-numbers/raw-problems/build-hattori.ss" drdr:command-line "mred -t ~s" -"collects/games/paint-by-numbers/raw-problems/build-rows-cols.ss" drdr:command-line "mzc -k ~s" -"collects/games/paint-by-numbers/raw-problems/build-solution-sets.ss" drdr:command-line "mred -t ~s" -"collects/games/paint-by-numbers/raw-problems/raw-hattori.ss" drdr:command-line "mzscheme -f ~s" -"collects/games/paint-by-numbers/raw-problems/raw-kajitani.ss" drdr:command-line "mred -t ~s" -"collects/games/paint-by-numbers/raw-problems/raw-misc.ss" drdr:command-line "mzscheme -f ~s" -"collects/games/paint-by-numbers/raw-problems/raw-problems.ss" drdr:command-line "mzscheme -f ~s" -"collects/games/paint-by-numbers/raw-problems/size-calculation.ss" drdr:command-line "mzc ~s" -"collects/games/parcheesi/admin-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/games/parcheesi/die.ss" drdr:command-line "mred-text -t ~s" -"collects/games/parcheesi/gui.ss" drdr:command-line "mred-text -t ~s" -"collects/games/parcheesi/make-bitmap.ss" drdr:command-line "mzc ~s" -"collects/games/parcheesi/parcheesi.ss" drdr:command-line "mred-text -t ~s" -"collects/games/parcheesi/play-game.ss" drdr:command-line "mred-text -t ~s" -"collects/games/parcheesi/rules.ss" drdr:command-line "mred-text -t ~s" -"collects/games/pousse/pousse.ss" drdr:command-line "mred-text -t ~s" -"collects/games/same/same.ss" drdr:command-line "mred-text -t ~s" -"collects/games/show-help.ss" drdr:command-line "mred-text -t ~s" -"collects/games/slidey/slidey.ss" drdr:command-line "mred-text -t ~s" -"collects/games/spider/spider.ss" drdr:command-line "mred-text -t ~s" -"collects/graphics/graphics-posn-less-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/graphics/graphics-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/graphics/graphics.ss" drdr:command-line "mred-text -t ~s" -"collects/graphics/main.ss" drdr:command-line "mred-text -t ~s" -"collects/graphics/turtle-examples.ss" drdr:command-line "mred-text -t ~s" -"collects/graphics/turtle-test.ss" drdr:command-line "mzc -k ~s" -"collects/graphics/turtles.ss" drdr:command-line "mred-text -t ~s" -"collects/graphics/value-turtles-examples.ss" drdr:command-line "mred-text -t ~s" -"collects/graphics/value-turtles-test.ss" drdr:command-line "mzc ~s" -"collects/graphics/value-turtles.ss" drdr:command-line "mred-text -t ~s" +"collects/games/lights-out/board.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/lights-out/lights-out.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/main.rkt" drdr:command-line "mzc ~s" +"collects/games/memory/memory.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/mines/gen-tiles.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/mines/mines.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/paint-by-numbers/gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/paint-by-numbers/main.rkt" drdr:command-line "" +"collects/games/paint-by-numbers/paint-by-numbers.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/paint-by-numbers/raw-problems/build-final.rkt" drdr:command-line "mzscheme -f ~s" +"collects/games/paint-by-numbers/raw-problems/build-hattori.rkt" drdr:command-line "mred -t ~s" +"collects/games/paint-by-numbers/raw-problems/build-rows-cols.rkt" drdr:command-line "mzc -k ~s" +"collects/games/paint-by-numbers/raw-problems/build-solution-sets.rkt" drdr:command-line "mred -t ~s" +"collects/games/paint-by-numbers/raw-problems/raw-hattori.rkt" drdr:command-line "mzscheme -f ~s" +"collects/games/paint-by-numbers/raw-problems/raw-kajitani.rkt" drdr:command-line "mred -t ~s" +"collects/games/paint-by-numbers/raw-problems/raw-misc.rkt" drdr:command-line "mzscheme -f ~s" +"collects/games/paint-by-numbers/raw-problems/raw-problems.rkt" drdr:command-line "mzscheme -f ~s" +"collects/games/paint-by-numbers/raw-problems/size-calculation.rkt" drdr:command-line "mzc ~s" +"collects/games/parcheesi/admin-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/parcheesi/die.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/parcheesi/gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/parcheesi/make-bitmap.rkt" drdr:command-line "mzc ~s" +"collects/games/parcheesi/parcheesi.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/parcheesi/play-game.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/parcheesi/rules.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/pousse/pousse.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/same/same.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/show-help.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/slidey/slidey.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/spider/spider.rkt" drdr:command-line "mred-text -t ~s" +"collects/graphics/graphics-posn-less-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/graphics/graphics-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/graphics/graphics.rkt" drdr:command-line "mred-text -t ~s" +"collects/graphics/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/graphics/turtle-examples.rkt" drdr:command-line "mred-text -t ~s" +"collects/graphics/turtle-test.rkt" drdr:command-line "mzc -k ~s" +"collects/graphics/turtles.rkt" drdr:command-line "mred-text -t ~s" +"collects/graphics/value-turtles-examples.rkt" drdr:command-line "mred-text -t ~s" +"collects/graphics/value-turtles-test.rkt" drdr:command-line "mzc ~s" +"collects/graphics/value-turtles.rkt" drdr:command-line "mred-text -t ~s" "collects/gui-debugger" responsible (gmarceau) -"collects/gui-debugger/debug-tool.ss" drdr:command-line "mred-text -t ~s" -"collects/gui-debugger/load-sandbox.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/base.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/canvas.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/feature.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/guibuilder.ss" drdr:command-line "mzc ~s" -"collects/guibuilder/multiple-choice.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/panel.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/readable.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/simple-control.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/slider-guage.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/text-field.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/tool.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/toolbar.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/top-level.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/utils.ss" drdr:command-line "mred-text -t ~s" +"collects/gui-debugger/debug-tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/gui-debugger/load-sandbox.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/base.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/canvas.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/feature.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/guibuilder.rkt" drdr:command-line "mzc ~s" +"collects/guibuilder/multiple-choice.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/panel.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/readable.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/simple-control.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/slider-guage.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/text-field.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/toolbar.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/top-level.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/utils.rkt" drdr:command-line "mred-text -t ~s" "collects/handin-client" responsible (eli) -"collects/handin-client/client-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/handin-client/handin-multi.ss" drdr:command-line "mred-text -t ~s" -"collects/handin-client/updater.ss" drdr:command-line "mzc ~s" +"collects/handin-client/client-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/handin-client/handin-multi.rkt" drdr:command-line "mred-text -t ~s" +"collects/handin-client/updater.rkt" drdr:command-line "mzc ~s" "collects/handin-server" responsible (eli) -"collects/handin-server/checker.ss" drdr:command-line "mzc ~s" -"collects/handin-server/main.ss" drdr:command-line "mzc ~s" -"collects/handin-server/overridden-collects/fake-teachpack/htdp/guess.ss" drdr:command-line "mred-text -t ~s" -"collects/handin-server/overridden-collects/fake-teachpack/htdp/master.ss" drdr:command-line "mred-text -t ~s" -"collects/handin-server/utils.ss" drdr:command-line "mzc ~s" -"collects/handin-server/web-status-server.ss" drdr:command-line "mzc ~s" +"collects/handin-server/checker.rkt" drdr:command-line "mzc ~s" +"collects/handin-server/main.rkt" drdr:command-line "mzc ~s" +"collects/handin-server/overridden-collects/fake-teachpack/htdp/guess.rkt" drdr:command-line "mred-text -t ~s" +"collects/handin-server/overridden-collects/fake-teachpack/htdp/master.rkt" drdr:command-line "mred-text -t ~s" +"collects/handin-server/utils.rkt" drdr:command-line "mzc ~s" +"collects/handin-server/web-status-server.rkt" drdr:command-line "mzc ~s" "collects/help" responsible (robby) -"collects/help/bug-report.ss" drdr:command-line "mred-text -t ~s" -"collects/help/help.ss" drdr:command-line "mzc ~s" -"collects/hierlist/hierlist.ss" drdr:command-line "mred-text -t ~s" +"collects/help/bug-report.rkt" drdr:command-line "mred-text -t ~s" +"collects/help/help.rkt" drdr:command-line "mzc ~s" +"collects/hierlist/hierlist.rkt" drdr:command-line "mred-text -t ~s" "collects/honu" responsible (mflatt rafkind) "collects/htdp" responsible (matthias) -"collects/htdp/arrow-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/arrow.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/big-draw.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/convert.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/draw.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/elevator.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/graphing.ss" drdr:command-line "mzc ~s" -"collects/htdp/guess-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/guess.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/gui.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/hangman-play.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/hangman-world-play.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/hangman-world.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/hangman.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/image.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/lkup-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/master-play.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/master.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/matrix-invisible.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/matrix-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/matrix.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/show-queen.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/arrow-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/arrow.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/convert.ss" drdr:command-line "mzc ~s" -"collects/htdp/tests/dir.ss" drdr:command-line "" -"collects/htdp/tests/draw.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/elevator.ss" drdr:command-line "mzc ~s" -"collects/htdp/tests/graphing.ss" drdr:command-line "mzc ~s" -"collects/htdp/tests/guess-gui.ss" drdr:command-line "" -"collects/htdp/tests/guess1.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/guess2.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/guess3.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/gui.ss" drdr:command-line "mzc ~s" -"collects/htdp/tests/hangman-error.ss" drdr:command-line "mzc ~s" -"collects/htdp/tests/hangman1.ss" drdr:command-line "mred -t ~s" -"collects/htdp/tests/lkup-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/master.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/matrix-client.ss" drdr:command-line "" -"collects/htdp/tests/matrix-example.ss" drdr:command-line "" -"collects/htdp/tests/matrix-test.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/world-add-line.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/world-mouse.ss" drdr:command-line "mzc ~s" -"collects/htdp/tests/world.ss" drdr:command-line "mred -t ~s" -"collects/htdp/world.ss" drdr:command-line "mred-text -t ~s" +"collects/htdp/arrow-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/arrow.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/big-draw.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/convert.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/draw.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/elevator.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/graphing.rkt" drdr:command-line "mzc ~s" +"collects/htdp/guess-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/guess.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/hangman-play.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/hangman-world-play.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/hangman-world.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/hangman.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/image.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/lkup-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/master-play.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/master.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/matrix-invisible.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/matrix-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/matrix.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/show-queen.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/arrow-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/arrow.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/convert.rkt" drdr:command-line "mzc ~s" +"collects/htdp/tests/dir.rkt" drdr:command-line "" +"collects/htdp/tests/draw.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/elevator.rkt" drdr:command-line "mzc ~s" +"collects/htdp/tests/graphing.rkt" drdr:command-line "mzc ~s" +"collects/htdp/tests/guess-gui.rkt" drdr:command-line "" +"collects/htdp/tests/guess1.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/guess2.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/guess3.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/gui.rkt" drdr:command-line "mzc ~s" +"collects/htdp/tests/hangman-error.rkt" drdr:command-line "mzc ~s" +"collects/htdp/tests/hangman1.rkt" drdr:command-line "mred -t ~s" +"collects/htdp/tests/lkup-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/master.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/matrix-client.rkt" drdr:command-line "" +"collects/htdp/tests/matrix-example.rkt" drdr:command-line "" +"collects/htdp/tests/matrix-test.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/world-add-line.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/world-mouse.rkt" drdr:command-line "mzc ~s" +"collects/htdp/tests/world.rkt" drdr:command-line "mred -t ~s" +"collects/htdp/world.rkt" drdr:command-line "mred-text -t ~s" "collects/html" responsible (jay) -"collects/lang/htdp-langs.ss" drdr:command-line "mred-text -t ~s" -"collects/lang/plt-pretty-big.ss" drdr:command-line "mred-text -t ~s" -"collects/lang/private/imageeq.ss" drdr:command-line "mred-text -t ~s" +"collects/lang/htdp-langs.rkt" drdr:command-line "mred-text -t ~s" +"collects/lang/plt-pretty-big.rkt" drdr:command-line "mred-text -t ~s" +"collects/lang/private/imageeq.rkt" drdr:command-line "mred-text -t ~s" "collects/lazy" responsible (eli) "collects/macro-debugger" responsible (ryanc) -"collects/macro-debugger/model/trace-raw.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/stepper.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/controller.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/display.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/embed.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/frame.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/hrule-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/image.ss" drdr:command-line "mred-text -qt ~s" -"collects/macro-debugger/syntax-browser/keymap.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/prefs.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/pretty-printer.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/properties.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/snip-decorated.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/snip.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/text.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/widget.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/tool.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/debug.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/extensions.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/frame.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/hiding-panel.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/prefs.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/step-display.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/stepper.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/term-record.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/view.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/warning.ss" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/model/trace-raw.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/stepper.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/controller.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/display.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/embed.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/frame.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/hrule-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/image.rkt" drdr:command-line "mred-text -qt ~s" +"collects/macro-debugger/syntax-browser/keymap.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/prefs.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/pretty-printer.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/properties.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/snip-decorated.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/text.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/widget.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/debug.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/extensions.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/frame.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/hiding-panel.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/prefs.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/step-display.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/stepper.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/term-record.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/view.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/warning.rkt" drdr:command-line "mred-text -t ~s" "collects/make" responsible (mflatt) "collects/meta" responsible (eli) -"collects/meta/check-dists.ss" drdr:command-line "" +"collects/meta/check-dists.rkt" drdr:command-line "" "collects/meta/contrib/completion/racket-completion.bash" responsible (samth sstrickl) drdr:command-line "" "collects/meta/drdr" responsible (jay) drdr:command-line "" -"collects/mred/edit-main.ss" drdr:command-line "mzc ~s" -"collects/mred/edit.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/lang/main.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/main.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/mred-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/mred.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/app.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/check.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/const.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/dynamic.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/editor.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/filedialog.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/fontdialog.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/gdi.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/helper.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/kernel.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/lock.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/messagebox.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/misc.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/moredialogs.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrcanvas.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrcontainer.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrgroupbox.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mritem.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrmenu.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrpanel.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrpopup.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrtabgroup.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrtextfield.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrtop.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrwindow.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/path-dialog.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/repl.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/snipfile.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wx.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxcanvas.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxcontainer.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxgroupbox.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxitem.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/editor-admin.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/editor-canvas.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/editor-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/editor.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/keymap.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/mline.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/snip-admin.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/snip.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/stream.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/style.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/text.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/undo.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/wx.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxmenu.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxpanel.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxtabgroup.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxtextfield.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxtop.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxwindow.ss" drdr:command-line "mred-text -t ~s" +"collects/mred/edit-main.rkt" drdr:command-line "mzc ~s" +"collects/mred/edit.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/lang/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/mred-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/mred.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/app.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/check.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/const.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/dynamic.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/editor.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/filedialog.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/fontdialog.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/gdi.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/helper.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/kernel.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/lock.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/messagebox.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/misc.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/moredialogs.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrcanvas.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrcontainer.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrgroupbox.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mritem.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrmenu.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrpanel.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrpopup.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrtabgroup.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrtextfield.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrtop.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrwindow.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/path-dialog.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/repl.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/snipfile.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wx.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxcanvas.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxcontainer.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxgroupbox.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxitem.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/editor-admin.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/editor-canvas.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/editor-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/editor.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/keymap.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/mline.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/snip-admin.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/stream.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/style.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/text.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/undo.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/wx.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxmenu.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxpanel.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxtabgroup.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxtextfield.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxtop.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxwindow.rkt" drdr:command-line "mred-text -t ~s" "collects/mrlib" responsible (robby) -"collects/mrlib/aligned-pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/bitmap-label.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/cache-image-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/click-forwarding-editor.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/close-icon.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/gif.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/graph.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/hierlist/hierlist-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/hierlist.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/image-core.ss" drdr:command-line "mred -t ~s" -"collects/mrlib/include-bitmap.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/interactive-value-port.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/matrix-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/name-message.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/path-dialog.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/plot.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/aligned-editor-container.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/aligned-pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/geometry-managed-pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/interface.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/locked-pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/pasteboard-lib.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/snip-lib.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/stretchable-editor-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/aligned-pasteboard/tests/example-min.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/example.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/insertion-without-display.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/aligned-pasteboard/tests/minimal.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin-aligned.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/more-tests-min-stretchable.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/more-tests-min.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/more-tests-text.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/more-tests.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/snip-dumper.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test-min.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/test-alignment.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/aligned-pasteboard/tests/test-locked-pasteboard.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/test-macro.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/aligned-pasteboard/tests/test.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/aligned-pasteboard/tests/test2.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/image-core-bitmap.ss" drdr:command-line "mred-test -qt ~s" -"collects/mrlib/switchable-button.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/syntax-browser.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/tab-choice.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/text-string-style-desc.ss" drdr:command-line "mred-text -t ~s" -"collects/mysterx/main.ss" drdr:command-line "mzc ~s" -"collects/mysterx/mxdemo.ss" drdr:command-line "mzc ~s" -"collects/mysterx/mysterx.ss" drdr:command-line "mzc ~s" -"collects/mysterx/private/mxmain.ss" drdr:command-line "mzc ~s" -"collects/mysterx/private/prims.ss" drdr:command-line "mzc ~s" -"collects/mzlib/contract.ss" responsible (robby) -"collects/mzlib/foreign.ss" responsible (eli) -"collects/mzlib/kw.ss" responsible (eli) -"collects/mzlib/match.ss" responsible (samth) -"collects/mzlib/pconvert.ss" responsible (robby) -"collects/mzlib/plt-match.ss" responsible (samth) -"collects/mzlib/private/shared-body.ss" drdr:command-line "" -"collects/mzlib/shared.ss" responsible (robby) -"collects/mzscheme/examples/cfile.ss" drdr:command-line "" -"collects/mzscheme/examples/curses-demo.ss" drdr:command-line "" -"collects/mzscheme/examples/fmod-ez.ss" drdr:command-line "" -"collects/mzscheme/examples/msgbox.ss" drdr:command-line "" -"collects/mzscheme/examples/tree-finish.ss" drdr:command-line "" +"collects/mrlib/aligned-pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/bitmap-label.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/cache-image-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/click-forwarding-editor.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/close-icon.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/gif.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/graph.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/hierlist/hierlist-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/hierlist.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/image-core.rkt" drdr:command-line "mred -t ~s" +"collects/mrlib/include-bitmap.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/interactive-value-port.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/matrix-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/name-message.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/path-dialog.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/plot.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/aligned-editor-container.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/aligned-pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/geometry-managed-pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/interface.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/locked-pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/pasteboard-lib.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/snip-lib.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/stretchable-editor-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/aligned-pasteboard/tests/example-min.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/example.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/insertion-without-display.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/aligned-pasteboard/tests/minimal.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin-aligned.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/more-tests-min-stretchable.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/more-tests-min.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/more-tests-text.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/more-tests.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/snip-dumper.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test-min.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/test-alignment.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/aligned-pasteboard/tests/test-locked-pasteboard.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/test-macro.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/aligned-pasteboard/tests/test.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/aligned-pasteboard/tests/test2.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/image-core-bitmap.rkt" drdr:command-line "mred-test -qt ~s" +"collects/mrlib/switchable-button.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/syntax-browser.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/tab-choice.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/text-string-style-desc.rkt" drdr:command-line "mred-text -t ~s" +"collects/mysterx/main.rkt" drdr:command-line "mzc ~s" +"collects/mysterx/mxdemo.rkt" drdr:command-line "mzc ~s" +"collects/mysterx/mysterx.rkt" drdr:command-line "mzc ~s" +"collects/mysterx/private/mxmain.rkt" drdr:command-line "mzc ~s" +"collects/mysterx/private/prims.rkt" drdr:command-line "mzc ~s" +"collects/mzlib/contract.rkt" responsible (robby) +"collects/mzlib/foreign.rkt" responsible (eli) +"collects/mzlib/kw.rkt" responsible (eli) +"collects/mzlib/match.rkt" responsible (samth) +"collects/mzlib/pconvert.rkt" responsible (robby) +"collects/mzlib/plt-match.rkt" responsible (samth) +"collects/mzlib/private/shared-body.rkt" drdr:command-line "" +"collects/mzlib/shared.rkt" responsible (robby) +"collects/mzscheme/examples/cfile.rkt" drdr:command-line "" +"collects/mzscheme/examples/curses-demo.rkt" drdr:command-line "" +"collects/mzscheme/examples/fmod-ez.rkt" drdr:command-line "" +"collects/mzscheme/examples/msgbox.rkt" drdr:command-line "" +"collects/mzscheme/examples/tree-finish.rkt" drdr:command-line "" "collects/openssl" responsible (eli) "collects/parser-tools" responsible (sowens) -"collects/parser-tools/private-lex/error-tests.ss" drdr:command-line "" +"collects/parser-tools/private-lex/error-tests.rkt" drdr:command-line "" "collects/plai" responsible (jay) -"collects/plai/private/gc-gui.ss" drdr:command-line "mred -t ~s" +"collects/plai/private/gc-gui.rkt" drdr:command-line "mred -t ~s" "collects/planet" responsible (jacobm) "collects/plot" responsible (eli) -"collects/plot/demos/demo-1.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/demo-10.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/demo-2.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/demo-3.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/demo-4.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/demo-5.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/demo-6.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/demo-7.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/demo-8.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/fit-demo-1.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/fit-demo-2.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/extend.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/main.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/plot-extend.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/plot.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/renderers.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/view.ss" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-1.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-10.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-2.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-3.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-4.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-5.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-6.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-7.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-8.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/fit-demo-1.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/fit-demo-2.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/extend.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/plot-extend.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/plot.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/renderers.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/view.rkt" drdr:command-line "mred-text -t ~s" "collects/preprocessor" responsible (eli) "collects/profile" responsible (eli) +"collects/racket/gui/base.rkt" drdr:command-line "mred -t ~s" +"collects/racket/gui/init.rkt" drdr:command-line "mred -t ~s" +"collects/racket/gui.rkt" drdr:command-line "mred -t ~s" +"collects/raco" responsible (mflatt) "collects/r5rs" responsible (mflatt) -"collects/r6rs/run.ss" drdr:command-line "mzc ~s" +"collects/r6rs/run.rkt" drdr:command-line "mzc ~s" "collects/readline" responsible (mflatt) "collects/redex" responsible (clklein) -"collects/redex/examples/arithmetic.ss" drdr:command-line "mred-text -t ~s -- --no-print" -"collects/redex/examples/beginner.ss" drdr:command-line "mzscheme -t ~s -m" -"collects/redex/examples/church.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/combinators.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/compatible-closure.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/letrec.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/mzscheme-machine/reduction-test.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/mzscheme-machine/verification-test.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/omega.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/r6rs/r6rs-tests.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/r6rs/show-examples.ss" drdr:command-line "mred-text ~s" -"collects/redex/examples/semaphores.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/subject-reduction.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/threads.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/types.ss" drdr:command-line "mzc ~s" -"collects/redex/gui.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/main.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/pict.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/private/arrow.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/private/core-layout.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/private/dot.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/private/pict.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/private/sexp-diffs.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/private/size-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/private/stepper.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/private/traces.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/tests/bitmap-test-util.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/tests/bitmap-test.ss" drdr:command-line "mzc -k ~s" -"collects/redex/tests/color-test.ss" drdr:command-line "mzc ~s" -"collects/redex/tests/core-layout-test.ss" drdr:command-line "mzc ~s" -"collects/redex/tests/hole-test.ss" drdr:command-line "mzc ~s" -"collects/redex/tests/keyword-macros-test.ss" drdr:command-line "mzc ~s" -"collects/redex/tests/matcher-test.ss" drdr:command-line "mzc ~s" -"collects/redex/tests/pict-test.ss" drdr:command-line "mzc ~s" -"collects/redex/tests/rg-test.ss" drdr:command-line "mzc ~s" -"collects/redex/tests/run-tests.ss" drdr:command-line "mred-text ~s --examples --no-bitmaps" drdr:timeout 240 -"collects/redex/tests/term-test.ss" drdr:command-line "mzc ~s" -"collects/redex/tests/tl-test.ss" drdr:command-line "mzc ~s" +"collects/redex/examples/arithmetic.rkt" drdr:command-line "mred-text -t ~s -- --no-print" +"collects/redex/examples/beginner.rkt" drdr:command-line "mzscheme -t ~s -m" +"collects/redex/examples/church.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/combinators.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/compatible-closure.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/letrec.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/mzscheme-machine/reduction-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/mzscheme-machine/verification-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/omega.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/r6rs/r6rs-tests.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/r6rs/show-examples.rkt" drdr:command-line "mred-text ~s" +"collects/redex/examples/semaphores.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/subject-reduction.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/threads.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/types.rkt" drdr:command-line "mzc ~s" +"collects/redex/gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/pict.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/private/arrow.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/private/core-layout.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/private/dot.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/private/pict.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/private/sexp-diffs.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/private/size-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/private/stepper.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/private/traces.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/tests/bitmap-test-util.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/tests/bitmap-test.rkt" drdr:command-line "mzc -k ~s" +"collects/redex/tests/color-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/tests/core-layout-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/tests/hole-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/tests/keyword-macros-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/tests/matcher-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/tests/pict-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/tests/rg-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/tests/run-tests.rkt" drdr:command-line "mred-text ~s --examples --no-bitmaps" drdr:timeout 300 +"collects/redex/tests/term-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/tests/tl-test.rkt" drdr:command-line "mzc ~s" "collects/repos-time-stamp" responsible (eli) -"collects/repos-time-stamp/time-stamp.ss" drdr:command-line "mred-text -t ~s" -"collects/rico/main.ss" drdr:command-line "" -"collects/rico/rico.ss" drdr:command-line "" -"collects/scheme/contract/private/arrow.ss" responsible (robby) -"collects/scheme/contract/private/base.ss" responsible (robby) -"collects/scheme/contract/private/ds-helpers.ss" responsible (robby) -"collects/scheme/contract/private/ds.ss" responsible (robby) -"collects/scheme/contract/private/guts.ss" responsible (robby) -"collects/scheme/contract/private/helpers.ss" responsible (robby) -"collects/scheme/gui/base.ss" drdr:command-line "mred-text -t ~s" -"collects/scheme/gui/init.ss" drdr:command-line "mred-text -t ~s" -"collects/scheme/gui.ss" drdr:command-line "mred-text -t ~s" +"collects/repos-time-stamp/time-stamp.rkt" drdr:command-line "mred-text -t ~s" +"collects/raco/main.rkt" drdr:command-line "" +"collects/raco/raco.rkt" drdr:command-line "" +"collects/scheme/contract/private/arrow.rkt" responsible (robby) +"collects/scheme/contract/private/base.rkt" responsible (robby) +"collects/scheme/contract/private/ds-helpers.rkt" responsible (robby) +"collects/scheme/contract/private/ds.rkt" responsible (robby) +"collects/scheme/contract/private/guts.rkt" responsible (robby) +"collects/scheme/contract/private/helpers.rkt" responsible (robby) +"collects/scheme/gui/base.rkt" drdr:command-line "mred-text -t ~s" +"collects/scheme/gui/init.rkt" drdr:command-line "mred-text -t ~s" +"collects/scheme/gui.rkt" drdr:command-line "mred-text -t ~s" "collects/scheme/match" responsible (samth) -"collects/scheme/match.ss" responsible (samth) -"collects/schemeunit" responsible (noel ryanc) -"collects/schemeunit/gui.ss" responsible (ryanc) drdr:command-line "mred-text -t ~s" -"collects/schemeunit/private/gui" responsible (ryanc) -"collects/schemeunit/private/gui/config.ss" drdr:command-line "mred-text -t ~s" -"collects/schemeunit/private/gui/controller.ss" drdr:command-line "mred-text -t ~s" -"collects/schemeunit/private/gui/gui.ss" drdr:command-line "mred-text -t ~s" -"collects/schemeunit/private/gui/model2rml.ss" drdr:command-line "mred-text -t ~s" -"collects/schemeunit/private/gui/rml.ss" drdr:command-line "mred-text -t ~s" -"collects/schemeunit/private/gui/view.ss" drdr:command-line "mred-text -t ~s" -"collects/schemeunit/tool.ss" responsible (ryanc) drdr:command-line "mred-text -t ~s" -"collects/scribble/run.ss" drdr:command-line "mzc ~s" -"collects/scribble/tools/drscheme-buttons.ss" drdr:command-line "mred-text ~s" -"collects/scribble/tools/private/mk-drs-bitmaps.ss" drdr:command-line "mred-text ~s" -"collects/scribblings/foreign/unsafe-foreign.ss" drdr:command-line "mzc ~s" +"collects/scheme/match.rkt" responsible (samth) +"collects/rktunit" responsible (jay noel ryanc) +"collects/schemeunit" responsible (jay) +"collects/rktunit/gui.rkt" responsible (ryanc) drdr:command-line "mred-text -t ~s" +"collects/rktunit/private/gui" responsible (ryanc) +"collects/rktunit/private/gui/config.rkt" drdr:command-line "mred-text -t ~s" +"collects/rktunit/private/gui/controller.rkt" drdr:command-line "mred-text -t ~s" +"collects/rktunit/private/gui/gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/rktunit/private/gui/model2rml.rkt" drdr:command-line "mred-text -t ~s" +"collects/rktunit/private/gui/rml.rkt" drdr:command-line "mred-text -t ~s" +"collects/rktunit/private/gui/view.rkt" drdr:command-line "mred-text -t ~s" +"collects/rktunit/tool.rkt" responsible (ryanc) drdr:command-line "mred-text -t ~s" +"collects/scribble/run.rkt" drdr:command-line "mzc ~s" +"collects/scribble/tools/drscheme-buttons.rkt" drdr:command-line "mred-text ~s" +"collects/scribble/tools/private/mk-drs-bitmaps.rkt" drdr:command-line "mred-text ~s" drdr:timeout 240 +"collects/scribblings/foreign/unsafe-foreign.rkt" drdr:command-line "mzc ~s" "collects/scribblings/framework/standard-menus.scrbl" drdr:command-line "" -"collects/scribblings/guide/contracts-examples/6.ss" drdr:command-line "mzscheme -f ~s" +"collects/scribblings/guide/contracts-examples/6.rkt" drdr:command-line "mzscheme -f ~s" "collects/scribblings/guide/read.scrbl" drdr:command-line "" -"collects/setup/main.ss" drdr:command-line "" -"collects/setup/plt-installer.ss" drdr:command-line "mred-text -t ~s" -"collects/setup/setup-go.ss" drdr:command-line "" -"collects/setup/unixstyle-install.ss" drdr:command-line "mzc ~s" -"collects/setup/winvers.ss" drdr:command-line "mzc ~s" +"collects/setup/main.rkt" drdr:command-line "" +"collects/setup/plt-installer.rkt" drdr:command-line "mred-text -t ~s" +"collects/setup/setup-go.rkt" drdr:command-line "" +"collects/setup/unixstyle-install.rkt" drdr:command-line "mzc ~s" +"collects/setup/winvers.rkt" drdr:command-line "mzc ~s" "collects/sgl" responsible (jay sowens) -"collects/sgl/bitmap.ss" drdr:command-line "mred-text -t ~s" -"collects/sgl/examples/alpha.ss" drdr:command-line "mzc ~s" -"collects/sgl/examples/gears.ss" drdr:command-line "mzc -k ~s" -"collects/sgl/examples/gl-frame.ss" drdr:command-line "mred-text -t ~s" +"collects/sgl/bitmap.rkt" drdr:command-line "mred-text -t ~s" +"collects/sgl/examples/alpha.rkt" drdr:command-line "mzc ~s" +"collects/sgl/examples/gears.rkt" drdr:command-line "mzc -k ~s" +"collects/sgl/examples/gl-frame.rkt" drdr:command-line "mred-text -t ~s" "collects/sirmail" responsible (mflatt) -"collects/sirmail/folderr.ss" drdr:command-line "mred-text -t ~s" -"collects/sirmail/main.ss" drdr:command-line "mzc ~s" -"collects/sirmail/optionr.ss" drdr:command-line "mred-text -t ~s" -"collects/sirmail/pref.ss" drdr:command-line "mred-text -t ~s" -"collects/sirmail/readr.ss" drdr:command-line "mred-text -t ~s" -"collects/sirmail/recover.ss" drdr:command-line "mzscheme -f ~s" -"collects/sirmail/sendr.ss" drdr:command-line "mred-text -t ~s" -"collects/sirmail/sirmail.ss" drdr:command-line "mzc ~s" -"collects/sirmail/sirmailr.ss" drdr:command-line "mred-text -t ~s" -"collects/sirmail/spell.ss" drdr:command-line "mred-text -t ~s" -"collects/slatex/pdf-slatex-launcher.ss" drdr:command-line "mzc ~s" -"collects/slatex/slatex-launcher.ss" drdr:command-line "mzc ~s" +"collects/sirmail/folderr.rkt" drdr:command-line "mred-text -t ~s" +"collects/sirmail/main.rkt" drdr:command-line "mzc ~s" +"collects/sirmail/optionr.rkt" drdr:command-line "mred-text -t ~s" +"collects/sirmail/pref.rkt" drdr:command-line "mred-text -t ~s" +"collects/sirmail/readr.rkt" drdr:command-line "mred-text -t ~s" +"collects/sirmail/recover.rkt" drdr:command-line "mzscheme -f ~s" +"collects/sirmail/sendr.rkt" drdr:command-line "mred-text -t ~s" +"collects/sirmail/sirmail.rkt" drdr:command-line "mzc ~s" +"collects/sirmail/sirmailr.rkt" drdr:command-line "mred-text -t ~s" +"collects/sirmail/spell.rkt" drdr:command-line "mred-text -t ~s" +"collects/slatex/pdf-slatex-launcher.rkt" drdr:command-line "mzc ~s" +"collects/slatex/slatex-launcher.rkt" drdr:command-line "mzc ~s" "collects/slideshow" responsible (mflatt robby) -"collects/slideshow/balloon.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/base.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/cmdline.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/code.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/core.ss" drdr:command-line "mred-text -t ~s" +"collects/slideshow/balloon.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/base.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/cmdline.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/code.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/core.rkt" drdr:command-line "mred-text -t ~s" "collects/slideshow/examples/interlocking-components.scm" drdr:command-line "mzc ~s" -"collects/slideshow/face.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/flash.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/initial-ones.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/main.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/param.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/pict-snipclass.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/pict.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/play.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/private/image-snipr.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/private/pict-box-lib.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/private/utils.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/run.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/slide.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/slides-to-picts.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/slideshow.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/start.ss" drdr:command-line "mzc ~s" -"collects/slideshow/step.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/tool.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/tutorial-show.ss" drdr:command-line "mzc ~s" -"collects/slideshow/viewer.ss" drdr:command-line "mred-text -t ~s" +"collects/slideshow/face.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/flash.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/initial-ones.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/param.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/pict-snipclass.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/pict.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/play.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/private/image-snipr.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/private/pict-box-lib.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/private/utils.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/run.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/slide.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/slides-to-picts.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/slideshow.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/start.rkt" drdr:command-line "mzc ~s" +"collects/slideshow/step.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/tutorial-show.rkt" drdr:command-line "mzc ~s" +"collects/slideshow/viewer.rkt" drdr:command-line "mred-text -t ~s" "collects/srfi/25/arlib.scm" drdr:command-line "" "collects/srfi/25/ix-ctor.scm" drdr:command-line "" "collects/srfi/25/op-ctor.scm" drdr:command-line "" @@ -1190,27 +1203,27 @@ path/s is either such a string or a list of them. "collects/srfi/74/blob.scm" drdr:command-line "" "collects/srfi/78/check-reference.scm" drdr:command-line "" "collects/srfi/78/examples-78.scm" drdr:command-line "" -"collects/srpersist/main.ss" drdr:command-line "" -"collects/srpersist/srpersist.ss" drdr:command-line "" +"collects/srpersist/main.rkt" drdr:command-line "" +"collects/srpersist/srpersist.rkt" drdr:command-line "" "collects/stepper" responsible (clements) -"collects/stepper/drscheme-button.ss" drdr:command-line "mred-text ~s" -"collects/stepper/private/display-break-stuff.ss" drdr:command-line "mred-text -t ~s" -"collects/stepper/private/mred-extensions.ss" drdr:command-line "mred-text -t ~s" -"collects/stepper/private/vertical-separator-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/stepper/private/xml-snip-helpers.ss" drdr:command-line "mred-text -t ~s" -"collects/stepper/stepper+xml-tool.ss" drdr:command-line "mred-text -t ~s" -"collects/stepper/stepper-tool.ss" drdr:command-line "mred-text -t ~s" -"collects/stepper/view-controller.ss" drdr:command-line "mred -t ~s" -"collects/stepper/xml-tool.ss" drdr:command-line "mred-text -t ~s" +"collects/stepper/drscheme-button.rkt" drdr:command-line "mred-text ~s" +"collects/stepper/private/display-break-stuff.rkt" drdr:command-line "mred-text -t ~s" +"collects/stepper/private/mred-extensions.rkt" drdr:command-line "mred-text -t ~s" +"collects/stepper/private/vertical-separator-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/stepper/private/xml-snip-helpers.rkt" drdr:command-line "mred-text -t ~s" +"collects/stepper/stepper+xml-tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/stepper/stepper-tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/stepper/view-controller.rkt" drdr:command-line "mred -t ~s" +"collects/stepper/xml-tool.rkt" drdr:command-line "mred-text -t ~s" "collects/string-constants" responsible (robby) "collects/swindle" responsible (eli) -"collects/swindle/tool.ss" drdr:command-line "mred-text -t ~s" +"collects/swindle/tool.rkt" drdr:command-line "mred-text -t ~s" "collects/syntax" responsible (mflatt) "collects/syntax-color" responsible (sowens) "collects/teachpack" responsible (matthias) -"collects/teachpack/2htdp/scribblings/image-gen.ss" responsible (robby) drdr:command-line "mred-text ~s" -"collects/teachpack/2htdp/scribblings/image-toc.ss" responsible (robby) -"collects/teachpack/2htdp/scribblings/image-util.ss" responsible (robby) +"collects/teachpack/2htdp/scribblings/image-gen.rkt" responsible (robby) drdr:command-line "mred-text ~s" +"collects/teachpack/2htdp/scribblings/image-toc.rkt" responsible (robby) +"collects/teachpack/2htdp/scribblings/image-util.rkt" responsible (robby) "collects/teachpack/2htdp/scribblings/image.scrbl" responsible (robby) "collects/teachpack/2htdp/universe.ss" drdr:command-line "mred-text -t ~s" "collects/teachpack/balls.ss" drdr:command-line "mzc ~s" @@ -1242,476 +1255,476 @@ path/s is either such a string or a list of them. "collects/teachpack/turtles.ss" drdr:command-line "mred-text -t ~s" "collects/teachpack/value-turtles.ss" drdr:command-line "mred-text -t ~s" "collects/teachpack/world.ss" drdr:command-line "mred-text -t ~s" -"collects/test-box-recovery/tool.ss" drdr:command-line "mred-text -t ~s" +"collects/test-box-recovery/tool.rkt" drdr:command-line "mred-text -t ~s" "collects/test-engine" responsible (kathyg) -"collects/test-engine/scheme-gui.ss" drdr:command-line "mred-text -t ~s" +"collects/test-engine/scheme-gui.rkt" drdr:command-line "mred-text -t ~s" "collects/test-engine/test-coverage.scm" drdr:command-line "mred-text -t ~s" "collects/test-engine/test-display.scm" drdr:command-line "mred-text -t ~s" "collects/test-engine/test-tool.scm" drdr:command-line "mred-text -t ~s" -"collects/tests/aligned-pasteboard/example.ss" drdr:command-line "" -"collects/tests/aligned-pasteboard/old-bugs/big-min.ss" drdr:command-line "" -"collects/tests/aligned-pasteboard/old-bugs/missing-min.ss" drdr:command-line "" -"collects/tests/aligned-pasteboard/snip-dumper.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/aligned-pasteboard/test-alignment.ss" drdr:command-line "" -"collects/tests/aligned-pasteboard/test-pasteboard-lib.ss" drdr:command-line "" -"collects/tests/aligned-pasteboard/test-snip-lib.ss" drdr:command-line "" -"collects/tests/aligned-pasteboard/test.ss" drdr:command-line "mred -f ~s" -"collects/tests/aligned-pasteboard/test2.ss" drdr:command-line "mred -f ~s" +"collects/tests/aligned-pasteboard/example.rkt" drdr:command-line "" +"collects/tests/aligned-pasteboard/old-bugs/big-min.rkt" drdr:command-line "" +"collects/tests/aligned-pasteboard/old-bugs/missing-min.rkt" drdr:command-line "" +"collects/tests/aligned-pasteboard/snip-dumper.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/aligned-pasteboard/test-alignment.rkt" drdr:command-line "" +"collects/tests/aligned-pasteboard/test-pasteboard-lib.rkt" drdr:command-line "" +"collects/tests/aligned-pasteboard/test-snip-lib.rkt" drdr:command-line "" +"collects/tests/aligned-pasteboard/test.rkt" drdr:command-line "mred -f ~s" +"collects/tests/aligned-pasteboard/test2.rkt" drdr:command-line "mred -f ~s" "collects/tests/compiler" responsible (jay) -"collects/tests/compiler/regression.ss" responsible (mflatt) -"collects/tests/compiler/zo-test.ss" drdr:command-line "mzscheme -t ~s -- -I -S -t 60 -v -R" +"collects/tests/compiler/regression.rkt" responsible (mflatt) +"collects/tests/compiler/zo-test.rkt" drdr:command-line "mzscheme -t ~s -- -I -S -t 60 -v -R" "collects/tests/deinprogramm" responsible (sperber) -"collects/tests/deinprogramm/image.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/deinprogramm/run-image-test.ss" drdr:command-line "mred-text -t ~s" +"collects/tests/deinprogramm/image.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/deinprogramm/run-image-test.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/drscheme" responsible (robby) -"collects/tests/drscheme/drscheme-test-util.ss" drdr:command-line "mred -t ~s" -"collects/tests/drscheme/io.ss" drdr:command-line "mred ~s" -"collects/tests/drscheme/language-test.ss" drdr:command-line "mred ~s" drdr:timeout 600 -"collects/tests/drscheme/module-lang-test-utils.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/drscheme/module-lang-test.ss" drdr:command-line "mred ~s" drdr:timeout 120 -"collects/tests/drscheme/randomly-click-language-dialog.ss" drdr:command-line "mzc ~s" -"collects/tests/drscheme/randomly-click-preferences.ss" drdr:command-line "mzc ~s" -"collects/tests/drscheme/randomly-click.ss" drdr:command-line "" -"collects/tests/drscheme/repl-test.ss" drdr:command-line "mred ~s" drdr:timeout 600 -"collects/tests/drscheme/sample-solutions-one-window.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/drscheme/save-teaching-lang-file.ss" drdr:command-line "mred ~s" -"collects/tests/drscheme/stepper-test.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/drscheme/syncheck-test.ss" drdr:command-line "mred ~s" -"collects/tests/drscheme/teachpack.ss" drdr:command-line "mred ~s" -"collects/tests/drscheme/time-keystrokes.ss" drdr:command-line "mred-text -t ~s" +"collects/tests/drscheme/drscheme-test-util.rkt" drdr:command-line "mred -t ~s" +"collects/tests/drscheme/io.rkt" drdr:command-line "mred ~s" +"collects/tests/drscheme/language-test.rkt" drdr:command-line "mred ~s" drdr:timeout 600 +"collects/tests/drscheme/module-lang-test-utils.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/drscheme/module-lang-test.rkt" drdr:command-line "mred ~s" drdr:timeout 120 +"collects/tests/drscheme/randomly-click-language-dialog.rkt" drdr:command-line "mzc ~s" +"collects/tests/drscheme/randomly-click-preferences.rkt" drdr:command-line "mzc ~s" +"collects/tests/drscheme/randomly-click.rkt" drdr:command-line "" +"collects/tests/drscheme/repl-test.rkt" drdr:command-line "mred ~s" drdr:timeout 600 +"collects/tests/drscheme/sample-solutions-one-window.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/drscheme/save-teaching-lang-file.rkt" drdr:command-line "mred ~s" +"collects/tests/drscheme/stepper-test.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/drscheme/syncheck-test.rkt" drdr:command-line "mred ~s" +"collects/tests/drscheme/teachpack.rkt" drdr:command-line "mred ~s" +"collects/tests/drscheme/time-keystrokes.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/framework" responsible (robby) -"collects/tests/framework/canvas.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/debug.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/exit.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/frame.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/framework-test-engine.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/group-test.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/handler-test.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/info.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/keys.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/load.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/main.ss" drdr:command-line "mred ~s" -"collects/tests/framework/mem.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/panel.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/pasteboard.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/prefs.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/scheme.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/search.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/test-suite-utils.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/text.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/utils.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/frtime/time.ss" drdr:command-line "mred-text -t ~s" +"collects/tests/framework/canvas.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/debug.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/exit.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/frame.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/framework-test-engine.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/group-test.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/handler-test.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/info.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/keys.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/load.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/main.rkt" drdr:command-line "mred ~s" drdr:timeout 240 +"collects/tests/framework/mem.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/panel.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/pasteboard.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/prefs.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/scheme.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/search.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/test-suite-utils.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/text.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/utils.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/frtime/time.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/future" responsible (jamesswaine mflatt robby) -"collects/tests/future/future.ss" drdr:command-line "mzscheme ~s" -"collects/tests/future/random-future.ss" drdr:timeout 240 +"collects/tests/future/future.rkt" drdr:command-line "mzscheme ~s" +"collects/tests/future/random-future.rkt" drdr:timeout 240 "collects/tests/macro-debugger" responsible (ryanc) -"collects/tests/macro-debugger/all-tests.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/macro-debugger/gui-tests.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/macro-debugger/tests/collects.ss" drdr:command-line "mred-text -t ~s" +"collects/tests/macro-debugger/all-tests.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/macro-debugger/gui-tests.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/macro-debugger/tests/collects.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/mred" responsible (mflatt) -"collects/tests/mred/auto.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/blits.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/dc.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/draw.ss" drdr:command-line "mzc ~s" -"collects/tests/mred/editor.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/gui-main.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/gui.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/item.ss" drdr:command-line "mzc ~s" -"collects/tests/mred/loadtest.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/mem.ss" drdr:command-line "" -"collects/tests/mred/paramz.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/png.ss" drdr:command-line "" -"collects/tests/mred/random.ss" drdr:command-line "" -"collects/tests/mred/showkey.ss" drdr:command-line "" -"collects/tests/mred/sixlib.ss" drdr:command-line "" -"collects/tests/mred/test-editor-admin.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/mred/testing.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/text-scale.ss" drdr:command-line "" -"collects/tests/mred/windowing.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/wxme-doc-random.ss" drdr:command-line "mzc ~s" -"collects/tests/mred/wxme-random.ss" drdr:command-line "" -"collects/tests/mred/wxme.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/mysterx/dhtmltests.ss" drdr:command-line "" -"collects/tests/mysterx/mystests.ss" drdr:command-line "" -"collects/tests/mzcom/test.ss" drdr:command-line "" -"collects/tests/mzscheme" responsible (mflatt) -"collects/tests/mzscheme/advanced.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/all.ss" drdr:command-line "" -"collects/tests/mzscheme/async-channel.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/awk.ss" drdr:command-line "" -"collects/tests/mzscheme/basic.ss" drdr:command-line "" -"collects/tests/mzscheme/beg-adv.ss" drdr:command-line "" -"collects/tests/mzscheme/beg-bega.ss" drdr:command-line "" -"collects/tests/mzscheme/beg-intm.ss" drdr:command-line "" -"collects/tests/mzscheme/beg-intml.ss" drdr:command-line "" -"collects/tests/mzscheme/bega-adv.ss" drdr:command-line "" -"collects/tests/mzscheme/beginner-abbr.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/beginner.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/benchmarks/common/auto.ss" drdr:command-line "mzscheme ~s -- mzscheme ctak" -"collects/tests/mzscheme/benchmarks/common/conform.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/ctak.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/destruct.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/div.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/dynamic.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/dynamic2.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/graphs.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/lattice.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/maze.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/maze2.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/mazefun.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/mk-bigloo.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/mk-chicken.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/mk-gambit.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/nestedloop.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/nqueens.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/paraffins.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/peval.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/r5rs-wrap.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/benchmarks/common/scheme.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/scheme2.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/sort1.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/tak.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/takl.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/takr.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/takr2.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/mz/expand-class.scm" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/benchmarks/mz/parsing.scm" drdr:command-line "mred -f ~s" -"collects/tests/mzscheme/benchmarks/mz/redsem.scm" drdr:command-line "mzscheme -f ~s -- --skip-struct-test" -"collects/tests/mzscheme/benchmarks/mz/ssax.scm" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/benchmarks/rx/auto.ss" drdr:command-line "mzscheme -qt ~s -- mzscheme simple" drdr:timeout 600 -"collects/tests/mzscheme/benchmarks/rx/pcre.ss" drdr:command-line "mzscheme ~s \"mz\"\"scheme\"" -"collects/tests/mzscheme/benchmarks/shootout/ackermann.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/binarytrees.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/chameneos.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/cheapconcurrency.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/fannkuch.ss" drdr:command-line "mzscheme -t ~s -- 4" -"collects/tests/mzscheme/benchmarks/shootout/fasta.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/hash.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/hash2.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/mandelbrot-generic.ss" drdr:command-line "mzscheme -t ~s -- 15" -"collects/tests/mzscheme/benchmarks/shootout/mandelbrot-unsafe.ss" drdr:command-line "mzscheme ~s 3" -"collects/tests/mzscheme/benchmarks/shootout/mandelbrot.ss" drdr:command-line "mzscheme -t ~s -- 15" -"collects/tests/mzscheme/benchmarks/shootout/meteor.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nbody-generic.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nbody-vec-generic.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nbody-vec-unsafe.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nbody-vec.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nbody.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nestedloop.ss" drdr:command-line "mzscheme -t ~s -- 2" -"collects/tests/mzscheme/benchmarks/shootout/nsieve.ss" drdr:command-line "mzscheme -t ~s -- 2" -"collects/tests/mzscheme/benchmarks/shootout/nsievebits.ss" drdr:command-line "mzscheme -t ~s -- 2" -"collects/tests/mzscheme/benchmarks/shootout/partialsums.ss" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/pidigits-gmp.ss" drdr:command-line "mzscheme ~s 10" -"collects/tests/mzscheme/benchmarks/shootout/pidigits.ss" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/random.ss" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/recursive.ss" drdr:command-line "mzscheme -t ~s -- 2" -"collects/tests/mzscheme/benchmarks/shootout/run.ss" drdr:command-line "mzscheme -t ~s -- nsieve.ss 1" -"collects/tests/mzscheme/benchmarks/shootout/spectralnorm-generic.ss" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/spectralnorm-unsafe.ss" drdr:command-line "mzscheme ~s 5" -"collects/tests/mzscheme/benchmarks/shootout/spectralnorm.ss" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/spellcheck.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/shootout/strcat.ss" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/thread-ring.ss" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/binc.ss" drdr:command-line "" -"collects/tests/mzscheme/boundmap-test.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/cache-image-snip-test.ss" drdr:command-line "mred -f ~s" -"collects/tests/mzscheme/censor.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/chaperone.ss" drdr:command-line "" -"collects/tests/mzscheme/char-set.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/chez-module.ss" drdr:command-line "" -"collects/tests/mzscheme/cm.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/cmdline.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/compat.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/compile.ss" drdr:command-line "" -"collects/tests/mzscheme/contmark.ss" drdr:command-line "" -"collects/tests/mzscheme/contract-mzlib-test.ss" drdr:command-line "" -"collects/tests/mzscheme/contract-opt-tests.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/contract-test.ss" responsible (robby) drdr:command-line "" -"collects/tests/mzscheme/control.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/date.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/deep.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/dict.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/embed-in-c.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/embed-me4.ss" drdr:command-line "" -"collects/tests/mzscheme/embed-me5.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/mzscheme/embed-me7.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/mzscheme/embed-me9.ss" drdr:command-line "" -"collects/tests/mzscheme/embed.ss" drdr:command-line "" -"collects/tests/mzscheme/etc.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/expand.ss" drdr:command-line "" -"collects/tests/mzscheme/fact.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/file.ss" drdr:command-line "" -"collects/tests/mzscheme/filelib.ss" drdr:command-line "" drdr:timeout 360 -"collects/tests/mzscheme/fixnum.ss" drdr:command-line "mzscheme -f ~s" drdr:timeout 360 -"collects/tests/mzscheme/for.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/foreign-test.c" responsible (eli) -"collects/tests/mzscheme/foreign-test.ss" responsible (eli) drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/function.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/head.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/htdp-image.ss" responsible (robby) drdr:command-line "mred -f ~s" -"collects/tests/mzscheme/htdp-test.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/htdp.ss" drdr:command-line "" -"collects/tests/mzscheme/id-table-test.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/imap.ss" drdr:command-line "" -"collects/tests/mzscheme/intermediate-lambda.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/intermediate.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/intm-adv.ss" drdr:command-line "" -"collects/tests/mzscheme/intm-intml.ss" drdr:command-line "" -"collects/tests/mzscheme/intmlam-adv.ss" drdr:command-line "" -"collects/tests/mzscheme/ktest.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/kw.ss" responsible (eli) drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/list.ss" drdr:command-line "" -"collects/tests/mzscheme/loadable.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/loadtest.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/logger.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/loop.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ltest.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/macro.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/macrolib.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/makeflat.ss" drdr:command-line "" -"collects/tests/mzscheme/makeflats.ss" drdr:command-line "" -"collects/tests/mzscheme/math.ss" drdr:command-line "" -"collects/tests/mzscheme/moddep.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/modprot.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/module-reader.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/module.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/mpair.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/mz-tests.ss" drdr:command-line "" -"collects/tests/mzscheme/mzlib-tests.ss" drdr:command-line "" -"collects/tests/mzscheme/mzq.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/name.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/namespac.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/nch.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/net.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/number.ss" drdr:command-line "" -"collects/tests/mzscheme/numstrs.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/object-old.ss" drdr:command-line "" -"collects/tests/mzscheme/object.ss" drdr:command-line "" -"collects/tests/mzscheme/oe.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/openssl.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/optimize.ss" drdr:command-line "" -"collects/tests/mzscheme/pack.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/package-gen.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/package.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/parallel.ss" drdr:command-line "" -"collects/tests/mzscheme/param.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/path.ss" drdr:command-line "" -"collects/tests/mzscheme/pathlib.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/pconvert.ss" drdr:command-line "" -"collects/tests/mzscheme/place-channel.ss" drdr:command-line "" -"collects/tests/mzscheme/port.ss" drdr:command-line "" -"collects/tests/mzscheme/portlib.ss" drdr:command-line "" -"collects/tests/mzscheme/pp-regression.ss" drdr:command-line "" -"collects/tests/mzscheme/pretty.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/procs.ss" drdr:command-line "" -"collects/tests/mzscheme/prompt-tests.ss" drdr:command-line "" -"collects/tests/mzscheme/prompt.ss" drdr:command-line "" -"collects/tests/mzscheme/quiet.ss" drdr:command-line "mzscheme -f ~s" drdr:timeout 360 -"collects/tests/mzscheme/read.ss" drdr:command-line "" -"collects/tests/mzscheme/readtable.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/restart.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/runflats.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/rx.ss" drdr:command-line "" -"collects/tests/mzscheme/sandbox.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/scheme-tests.ss" drdr:command-line "" -"collects/tests/mzscheme/serialize.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/set.ss" drdr:command-line "" -"collects/tests/mzscheme/shared-tests.ss" drdr:command-line "" -"collects/tests/mzscheme/shared.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/srfi.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/stream.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/string-mzlib.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/string.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/struct.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/structlib.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/stx.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/subprocess.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/sync.ss" drdr:command-line "" -"collects/tests/mzscheme/syntax-tests.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/syntax.ss" drdr:command-line "" -"collects/tests/mzscheme/tcp.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/testing.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/thread.ss" drdr:command-line "" -"collects/tests/mzscheme/threadlib.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/thrport.ss" drdr:command-line "" -"collects/tests/mzscheme/trace.ss" drdr:command-line "" -"collects/tests/mzscheme/trait.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ttt/listlib.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ttt/tic-bang.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ttt/tic-func.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ttt/ttt.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ttt/uinc4.ss" drdr:command-line "" -"collects/tests/mzscheme/ttt/veclib.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/udp.ss" drdr:command-line "" -"collects/tests/mzscheme/uinc.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/uinc2.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/uinc3.ss" drdr:command-line "" -"collects/tests/mzscheme/uni-norm.ss" drdr:command-line "" -"collects/tests/mzscheme/unicode.ss" drdr:command-line "" -"collects/tests/mzscheme/unit.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/unitsig.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/unsafe.ss" drdr:command-line "" -"collects/tests/mzscheme/vector.ss" drdr:command-line "" -"collects/tests/mzscheme/version.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/will.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/zo-marshal.ss" drdr:command-line "" -"collects/tests/mzscheme/ztest.ss" drdr:command-line "" +"collects/tests/mred/auto.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/blits.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/dc.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/draw.rkt" drdr:command-line "mzc ~s" +"collects/tests/mred/editor.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/gui-main.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/gui.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/item.rkt" drdr:command-line "mzc ~s" +"collects/tests/mred/loadtest.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/mem.rkt" drdr:command-line "" +"collects/tests/mred/paramz.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/png.rkt" drdr:command-line "" +"collects/tests/mred/random.rkt" drdr:command-line "" +"collects/tests/mred/showkey.rkt" drdr:command-line "" +"collects/tests/mred/sixlib.rkt" drdr:command-line "" +"collects/tests/mred/test-editor-admin.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/mred/testing.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/text-scale.rkt" drdr:command-line "" +"collects/tests/mred/windowing.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/wxme-doc-random.rkt" drdr:command-line "mzc ~s" +"collects/tests/mred/wxme-random.rkt" drdr:command-line "" +"collects/tests/mred/wxme.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/mysterx/dhtmltests.rkt" drdr:command-line "" +"collects/tests/mysterx/mystests.rkt" drdr:command-line "" +"collects/tests/mzcom/test.rkt" drdr:command-line "" +"collects/tests/racket" responsible (mflatt) +"collects/tests/racket/advanced.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/all.rkt" drdr:command-line "" +"collects/tests/racket/async-channel.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/awk.rkt" drdr:command-line "" +"collects/tests/racket/basic.rkt" drdr:command-line "" +"collects/tests/racket/beg-adv.rkt" drdr:command-line "" +"collects/tests/racket/beg-bega.rkt" drdr:command-line "" +"collects/tests/racket/beg-intm.rkt" drdr:command-line "" +"collects/tests/racket/beg-intml.rkt" drdr:command-line "" +"collects/tests/racket/bega-adv.rkt" drdr:command-line "" +"collects/tests/racket/beginner-abbr.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/beginner.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/benchmarks/common/auto.rkt" drdr:command-line "racket ~s -- racket ctak" +"collects/tests/racket/benchmarks/common/conform.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/ctak.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/destruct.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/div.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/dynamic.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/dynamic2.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/graphs.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/lattice.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/maze.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/maze2.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/mazefun.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/mk-bigloo.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/mk-chicken.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/mk-gambit.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/nestedloop.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/nqueens.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/paraffins.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/peval.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/r5rs-wrap.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/benchmarks/common/scheme.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/scheme2.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/sort1.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/tak.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/takl.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/takr.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/takr2.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/mz/expand-class.scm" drdr:command-line "racket -f ~s" +"collects/tests/racket/benchmarks/mz/parsing.scm" drdr:command-line "mred -f ~s" +"collects/tests/racket/benchmarks/mz/redsem.scm" drdr:command-line "racket -f ~s -- --skip-struct-test" +"collects/tests/racket/benchmarks/mz/ssax.scm" drdr:command-line "racket -f ~s" +"collects/tests/racket/benchmarks/rx/auto.rkt" drdr:command-line "racket -qt ~s -- racket simple" drdr:timeout 600 +"collects/tests/racket/benchmarks/rx/pcre.rkt" drdr:command-line "racket ~s \"mz\"\"scheme\"" +"collects/tests/racket/benchmarks/shootout/ackermann.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/binarytrees.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/chameneos.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/cheapconcurrency.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/fannkuch.rkt" drdr:command-line "racket -t ~s -- 4" +"collects/tests/racket/benchmarks/shootout/fasta.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/hash.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/hash2.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/mandelbrot-generic.rkt" drdr:command-line "racket -t ~s -- 15" +"collects/tests/racket/benchmarks/shootout/mandelbrot-unsafe.rkt" drdr:command-line "racket ~s 3" +"collects/tests/racket/benchmarks/shootout/mandelbrot.rkt" drdr:command-line "racket -t ~s -- 15" +"collects/tests/racket/benchmarks/shootout/meteor.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/nbody-generic.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/nbody-vec-generic.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/nbody-vec-unsafe.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/nbody-vec.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/nbody.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/nestedloop.rkt" drdr:command-line "racket -t ~s -- 2" +"collects/tests/racket/benchmarks/shootout/nsieve.rkt" drdr:command-line "racket -t ~s -- 2" +"collects/tests/racket/benchmarks/shootout/nsievebits.rkt" drdr:command-line "racket -t ~s -- 2" +"collects/tests/racket/benchmarks/shootout/partialsums.rkt" drdr:command-line "racket -t ~s -- 25" +"collects/tests/racket/benchmarks/shootout/pidigits-gmp.rkt" drdr:command-line "racket ~s 10" +"collects/tests/racket/benchmarks/shootout/pidigits.rkt" drdr:command-line "racket -t ~s -- 25" +"collects/tests/racket/benchmarks/shootout/random.rkt" drdr:command-line "racket -t ~s -- 25" +"collects/tests/racket/benchmarks/shootout/recursive.rkt" drdr:command-line "racket -t ~s -- 2" +"collects/tests/racket/benchmarks/shootout/run.rkt" drdr:command-line "racket -t ~s -- nsieve.rkt 1" +"collects/tests/racket/benchmarks/shootout/spectralnorm-generic.rkt" drdr:command-line "racket -t ~s -- 25" +"collects/tests/racket/benchmarks/shootout/spectralnorm-unsafe.rkt" drdr:command-line "racket ~s 5" +"collects/tests/racket/benchmarks/shootout/spectralnorm.rkt" drdr:command-line "racket -t ~s -- 25" +"collects/tests/racket/benchmarks/shootout/spellcheck.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/shootout/strcat.rkt" drdr:command-line "racket -t ~s -- 25" +"collects/tests/racket/benchmarks/shootout/thread-ring.rkt" drdr:command-line "racket -t ~s -- 25" +"collects/tests/racket/binc.rkt" drdr:command-line "" +"collects/tests/racket/boundmap-test.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/cache-image-snip-test.rkt" drdr:command-line "mred -f ~s" +"collects/tests/racket/censor.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/chaperone.rkt" drdr:command-line "" +"collects/tests/racket/char-set.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/chez-module.rkt" drdr:command-line "" +"collects/tests/racket/cm.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/cmdline.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/compat.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/compile.rkt" drdr:command-line "" +"collects/tests/racket/contmark.rkt" drdr:command-line "" +"collects/tests/racket/contract-mzlib-test.rkt" drdr:command-line "" +"collects/tests/racket/contract-opt-tests.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/contract-test.rkt" responsible (robby) drdr:command-line "" +"collects/tests/racket/control.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/date.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/deep.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/dict.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/embed-in-c.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/embed-me4.rkt" drdr:command-line "" +"collects/tests/racket/embed-me5.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/racket/embed-me7.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/racket/embed-me9.rkt" drdr:command-line "" +"collects/tests/racket/embed.rkt" drdr:command-line "" +"collects/tests/racket/etc.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/expand.rkt" drdr:command-line "" +"collects/tests/racket/fact.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/file.rkt" drdr:command-line "" +"collects/tests/racket/filelib.rkt" drdr:command-line "" drdr:timeout 360 +"collects/tests/racket/fixnum.rkt" drdr:command-line "racket -f ~s" drdr:timeout 360 +"collects/tests/racket/for.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/foreign-test.c" responsible (eli) +"collects/tests/racket/foreign-test.rkt" responsible (eli) drdr:command-line "racket -f ~s" +"collects/tests/racket/function.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/head.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/htdp-image.rkt" responsible (robby) drdr:command-line "mred -f ~s" +"collects/tests/racket/htdp-test.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/htdp.rkt" drdr:command-line "" +"collects/tests/racket/id-table-test.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/imap.rkt" drdr:command-line "" +"collects/tests/racket/intermediate-lambda.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/intermediate.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/intm-adv.rkt" drdr:command-line "" +"collects/tests/racket/intm-intml.rkt" drdr:command-line "" +"collects/tests/racket/intmlam-adv.rkt" drdr:command-line "" +"collects/tests/racket/ktest.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/kw.rkt" responsible (eli) drdr:command-line "racket -f ~s" +"collects/tests/racket/list.rkt" drdr:command-line "" +"collects/tests/racket/loadable.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/loadtest.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/logger.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/loop.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/ltest.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/macro.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/macrolib.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/makeflat.rkt" drdr:command-line "" +"collects/tests/racket/makeflats.rkt" drdr:command-line "" +"collects/tests/racket/math.rkt" drdr:command-line "" +"collects/tests/racket/moddep.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/modprot.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/module-reader.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/module.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/mpair.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/mz-tests.rkt" drdr:command-line "" +"collects/tests/racket/mzlib-tests.rkt" drdr:command-line "" +"collects/tests/racket/mzq.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/name.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/namespac.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/nch.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/net.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/number.rkt" drdr:command-line "" +"collects/tests/racket/numstrs.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/object-old.rkt" drdr:command-line "" +"collects/tests/racket/object.rkt" drdr:command-line "" +"collects/tests/racket/oe.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/openssl.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/optimize.rkt" drdr:command-line "" +"collects/tests/racket/pack.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/package-gen.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/package.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/parallel.rkt" drdr:command-line "" +"collects/tests/racket/param.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/path.rkt" drdr:command-line "" +"collects/tests/racket/pathlib.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/pconvert.rkt" drdr:command-line "" +"collects/tests/racket/place-channel.rkt" drdr:command-line "" +"collects/tests/racket/port.rkt" drdr:command-line "" +"collects/tests/racket/portlib.rkt" drdr:command-line "" +"collects/tests/racket/pp-regression.rkt" drdr:command-line "" +"collects/tests/racket/pretty.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/procs.rkt" drdr:command-line "" +"collects/tests/racket/prompt-tests.rkt" drdr:command-line "" +"collects/tests/racket/prompt.rkt" drdr:command-line "" +"collects/tests/racket/quiet.rkt" drdr:command-line "racket -f ~s" drdr:timeout 360 +"collects/tests/racket/read.rkt" drdr:command-line "" +"collects/tests/racket/readtable.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/restart.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/runflats.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/rx.rkt" drdr:command-line "" +"collects/tests/racket/sandbox.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/scheme-tests.rkt" drdr:command-line "" +"collects/tests/racket/serialize.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/set.rkt" drdr:command-line "" +"collects/tests/racket/shared-tests.rkt" drdr:command-line "" +"collects/tests/racket/shared.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/srfi.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/stream.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/string-mzlib.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/string.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/struct.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/structlib.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/stx.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/subprocess.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/sync.rkt" drdr:command-line "" +"collects/tests/racket/syntax-tests.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/syntax.rkt" drdr:command-line "" +"collects/tests/racket/tcp.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/testing.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/thread.rkt" drdr:command-line "" +"collects/tests/racket/threadlib.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/thrport.rkt" drdr:command-line "" +"collects/tests/racket/trace.rkt" drdr:command-line "" +"collects/tests/racket/trait.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/listlib.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/tic-bang.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/tic-func.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/ttt.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/uinc4.rkt" drdr:command-line "" +"collects/tests/racket/ttt/veclib.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/udp.rkt" drdr:command-line "" +"collects/tests/racket/uinc.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/uinc2.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/uinc3.rkt" drdr:command-line "" +"collects/tests/racket/uni-norm.rkt" drdr:command-line "" +"collects/tests/racket/unicode.rkt" drdr:command-line "" +"collects/tests/racket/unit.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/unitsig.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/unsafe.rkt" drdr:command-line "" +"collects/tests/racket/vector.rkt" drdr:command-line "" +"collects/tests/racket/version.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/will.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/zo-marshal.rkt" drdr:command-line "" +"collects/tests/racket/ztest.rkt" drdr:command-line "" "collects/tests/net" responsible (eli) "collects/tests/plai" responsible (jay) -"collects/tests/plai/gc/bad-mutators/mut-1.ss" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/mutator0.ss" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/mutator1.ss" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/mutator2.ss" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/mutator3.ss" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/mutator5.ss" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/void-app.ss" drdr:command-line "" -"collects/tests/plai/test-random-mutator.ss" responsible (jay robby) -"collects/tests/plai/web.ss" drdr:command-line "mzc -k ~s" -"collects/tests/planet/cmdline-tool.ss" drdr:command-line "" -"collects/tests/planet/examples/dummy-module.ss" drdr:command-line "" -"collects/tests/plot/run-tests.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/run-automated-tests.ss" drdr:command-line "mzc -k ~s" drdr:timeout 600 -"collects/tests/schemeunit" responsible (noel) -"collects/tests/srfi/1/run-tests.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/srfi/40/run-tests.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/srfi/43/run-tests.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/srfi/load-srfis.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/srpersist/srptests.ss" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/mut-1.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/mutator0.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/mutator1.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/mutator2.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/mutator3.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/mutator5.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/void-app.rkt" drdr:command-line "" +"collects/tests/plai/test-random-mutator.rkt" responsible (jay robby) +"collects/tests/plai/web.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/planet/cmdline-tool.rkt" drdr:command-line "" +"collects/tests/planet/examples/dummy-module.rkt" drdr:command-line "" +"collects/tests/plot/run-tests.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/run-automated-tests.rkt" drdr:command-line "mzc -k ~s" drdr:timeout 600 +"collects/tests/rktunit" responsible (jay noel) +"collects/tests/srfi/1/run-tests.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/srfi/40/run-tests.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/srfi/43/run-tests.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/srfi/load-srfis.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/srpersist/srptests.rkt" drdr:command-line "" "collects/tests/stepper" responsible (clements) -"collects/tests/stepper/already-defined.ss" drdr:command-line "" -"collects/tests/stepper/bad-letrec-test.ss" drdr:command-line "" -"collects/tests/stepper/constructor-redexes.ss" drdr:command-line "" -"collects/tests/stepper/global-prim-reduction.ss" drdr:command-line "" -"collects/tests/stepper/image-test.ss" drdr:command-line "" -"collects/tests/stepper/intermediate-y.ss" drdr:command-line "" -"collects/tests/stepper/jump-to-ui-test.ss" drdr:command-line "" -"collects/tests/stepper/lambda-test.ss" drdr:command-line "" -"collects/tests/stepper/let-test.ss" drdr:command-line "" -"collects/tests/stepper/letrec-test.ss" drdr:command-line "" -"collects/tests/stepper/local-define-struct.ss" drdr:command-line "" -"collects/tests/stepper/local-test-2.ss" drdr:command-line "" -"collects/tests/stepper/local-test.ss" drdr:command-line "" -"collects/tests/stepper/long-error-message.ss" drdr:command-line "" -"collects/tests/stepper/multiply-defined.ss" drdr:command-line "" -"collects/tests/stepper/name-chaining.ss" drdr:command-line "" -"collects/tests/stepper/no-else-clause.ss" drdr:command-line "" -"collects/tests/stepper/non-procedure.ss" drdr:command-line "" -"collects/tests/stepper/print-convert-test.ss" drdr:command-line "" -"collects/tests/stepper/printing-reducing-test.ss" drdr:command-line "" -"collects/tests/stepper/procedure-display.ss" drdr:command-line "" -"collects/tests/stepper/right-redex.ss" drdr:command-line "" -"collects/tests/stepper/structures.ss" drdr:command-line "" -"collects/tests/stepper/symbol-identifier.ss" drdr:command-line "" -"collects/tests/stepper/symbols.ss" drdr:command-line "" -"collects/tests/stepper/syntax-error-ordering.ss" drdr:command-line "" -"collects/tests/stepper/test-or.ss" drdr:command-line "" -"collects/tests/stepper/two-tests.ss" drdr:command-line "" -"collects/tests/stepper/unannotated.ss" drdr:command-line "" -"collects/tests/stepper/undefined.ss" drdr:command-line "" -"collects/tests/stepper/world-test.ss" drdr:command-line "" -"collects/tests/stepper/write-display.ss" drdr:command-line "" +"collects/tests/stepper/already-defined.rkt" drdr:command-line "" +"collects/tests/stepper/bad-letrec-test.rkt" drdr:command-line "" +"collects/tests/stepper/constructor-redexes.rkt" drdr:command-line "" +"collects/tests/stepper/global-prim-reduction.rkt" drdr:command-line "" +"collects/tests/stepper/image-test.rkt" drdr:command-line "" +"collects/tests/stepper/intermediate-y.rkt" drdr:command-line "" +"collects/tests/stepper/jump-to-ui-test.rkt" drdr:command-line "" +"collects/tests/stepper/lambda-test.rkt" drdr:command-line "" +"collects/tests/stepper/let-test.rkt" drdr:command-line "" +"collects/tests/stepper/letrec-test.rkt" drdr:command-line "" +"collects/tests/stepper/local-define-struct.rkt" drdr:command-line "" +"collects/tests/stepper/local-test-2.rkt" drdr:command-line "" +"collects/tests/stepper/local-test.rkt" drdr:command-line "" +"collects/tests/stepper/long-error-message.rkt" drdr:command-line "" +"collects/tests/stepper/multiply-defined.rkt" drdr:command-line "" +"collects/tests/stepper/name-chaining.rkt" drdr:command-line "" +"collects/tests/stepper/no-else-clause.rkt" drdr:command-line "" +"collects/tests/stepper/non-procedure.rkt" drdr:command-line "" +"collects/tests/stepper/print-convert-test.rkt" drdr:command-line "" +"collects/tests/stepper/printing-reducing-test.rkt" drdr:command-line "" +"collects/tests/stepper/procedure-display.rkt" drdr:command-line "" +"collects/tests/stepper/right-redex.rkt" drdr:command-line "" +"collects/tests/stepper/structures.rkt" drdr:command-line "" +"collects/tests/stepper/symbol-identifier.rkt" drdr:command-line "" +"collects/tests/stepper/symbols.rkt" drdr:command-line "" +"collects/tests/stepper/syntax-error-ordering.rkt" drdr:command-line "" +"collects/tests/stepper/test-or.rkt" drdr:command-line "" +"collects/tests/stepper/two-tests.rkt" drdr:command-line "" +"collects/tests/stepper/unannotated.rkt" drdr:command-line "" +"collects/tests/stepper/undefined.rkt" drdr:command-line "" +"collects/tests/stepper/world-test.rkt" drdr:command-line "" +"collects/tests/stepper/write-display.rkt" drdr:command-line "" "collects/tests/stxparse" responsible (ryanc) -"collects/tests/stxparse/stxclass.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/syntax-color/paren-tree.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/syntax-color/token-tree.ss" drdr:command-line "mzscheme -f ~s" +"collects/tests/stxparse/stxclass.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/syntax-color/paren-tree.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/syntax-color/token-tree.rkt" drdr:command-line "mzscheme -f ~s" "collects/tests/typed-scheme" responsible (samth) "collects/tests/typed-scheme/fail" drdr:command-line "" -"collects/tests/typed-scheme/fail/with-type3.ss" responsible (sstrickl) -"collects/tests/typed-scheme/nightly-run.ss" drdr:timeout 600 -"collects/tests/typed-scheme/run.ss" drdr:command-line "" drdr:timeout 600 +"collects/tests/typed-scheme/fail/with-type3.rkt" responsible (sstrickl) +"collects/tests/typed-scheme/nightly-run.rkt" drdr:timeout 600 +"collects/tests/typed-scheme/run.rkt" drdr:command-line "" drdr:timeout 600 "collects/tests/typed-scheme/xfail" drdr:command-line "" "collects/tests/units" responsible (sstrickl) -"collects/tests/units/multi-mod-sigs.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-cert.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-exptime.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-harness.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-runtime.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-unit-contracts.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-unit.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/unstable/srcloc.ss" responsible (cce) drdr:command-line "mzscheme -f ~s" -"collects/tests/utils/gui.ss" drdr:command-line "mred-text -t ~s" +"collects/tests/units/multi-mod-sigs.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-cert.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-exptime.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-harness.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-runtime.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-unit-contracts.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-unit.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/unstable/srcloc.rkt" responsible (cce) drdr:command-line "mzscheme -f ~s" +"collects/tests/utils/gui.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/web-server" responsible (jay) -"collects/tests/web-server/run-all-tests.ss" drdr:timeout 300 -"collects/tests/web-server/servlet-env/env.ss" drdr:command-line "mzc ~s" -"collects/tests/web-server/servlet-env/insta.ss" drdr:command-line "mzc -k ~s" -"collects/tests/web-server/template/examples/blog-xexpr.ss" drdr:command-line "mzc ~s" -"collects/tests/web-server/template/examples/blog.ss" drdr:command-line "mzc ~s" +"collects/tests/web-server/run-all-tests.rkt" drdr:timeout 300 +"collects/tests/web-server/servlet-env/env.rkt" drdr:command-line "mzc ~s" +"collects/tests/web-server/servlet-env/insta.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/web-server/template/examples/blog-xexpr.rkt" drdr:command-line "mzc ~s" +"collects/tests/web-server/template/examples/blog.rkt" drdr:command-line "mzc ~s" "collects/tests/xml" responsible (jay) -"collects/tests/xml/test-clark.ss" drdr:command-line "" drdr:timeout 300 -"collects/tests/xml/xml-snip-bug.ss" drdr:command-line "mred -t ~s" -"collects/texpict/balloon.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/code.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/face-demo.ss" drdr:command-line "mzc ~s" -"collects/texpict/face.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/flash.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/mrpict-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/mrpict.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/pict-value-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/private/common-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/slideshow-run.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/slideshow.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/symbol.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/texpict-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/texpict.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/utils.ss" drdr:command-line "mred-text -t ~s" +"collects/tests/xml/test-clark.rkt" drdr:command-line "" drdr:timeout 300 +"collects/tests/xml/xml-snip-bug.rkt" drdr:command-line "mred -t ~s" +"collects/texpict/balloon.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/code.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/face-demo.rkt" drdr:command-line "mzc ~s" +"collects/texpict/face.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/flash.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/mrpict-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/mrpict.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/pict-value-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/private/common-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/slideshow-run.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/slideshow.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/symbol.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/texpict-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/texpict.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/utils.rkt" drdr:command-line "mred-text -t ~s" "collects/typed" responsible (samth) -"collects/typed/framework/framework.ss" drdr:command-line "mred-text -t ~s" -"collects/typed/framework/prefs-contract.ss" drdr:command-line "mred-text -t ~s" -"collects/typed/mred/mred.ss" drdr:command-line "mred-text -t ~s" +"collects/typed/framework/framework.rkt" drdr:command-line "mred-text -t ~s" +"collects/typed/framework/prefs-contract.rkt" drdr:command-line "mred-text -t ~s" +"collects/typed/mred/mred.rkt" drdr:command-line "mred-text -t ~s" "collects/typed-scheme" responsible (samth) -"collects/unstable/debug.ss" responsible (samth) -"collects/unstable/gui/notify.ss" drdr:command-line "mred-text -t ~s" -"collects/unstable/gui/prefs.ss" drdr:command-line "mred-text -t ~s" -"collects/unstable/hash.ss" responsible (samth) -"collects/unstable/match.ss" responsible (samth) -"collects/unstable/mutated-vars.ss" responsible (samth) -"collects/unstable/poly-c.ss" responsible (samth) +"collects/unstable/debug.rkt" responsible (samth) +"collects/unstable/gui/notify.rkt" drdr:command-line "mred-text -t ~s" +"collects/unstable/gui/prefs.rkt" drdr:command-line "mred-text -t ~s" +"collects/unstable/hash.rkt" responsible (samth) +"collects/unstable/match.rkt" responsible (samth) +"collects/unstable/mutated-vars.rkt" responsible (samth) +"collects/unstable/poly-c.rkt" responsible (samth) "collects/unstable/scribblings/debug.scrbl" responsible (samth) "collects/unstable/scribblings/hash.scrbl" responsible (samth) "collects/unstable/scribblings/match.scrbl" responsible (samth) "collects/unstable/scribblings/mutated-vars.scrbl" responsible (samth) "collects/unstable/scribblings/poly-c.scrbl" responsible (samth) "collects/unstable/scribblings/sequence.scrbl" responsible (samth) -"collects/unstable/scribblings/utils.ss" responsible (samth) -"collects/unstable/sequence.ss" responsible (samth) +"collects/unstable/scribblings/utils.rkt" responsible (samth) +"collects/unstable/sequence.rkt" responsible (samth) "collects/version" responsible (eli) -"collects/version/tool.ss" drdr:command-line "mred-text -t ~s" +"collects/version/tool.rkt" drdr:command-line "mred-text -t ~s" "collects/waterworld" responsible (eli) -"collects/waterworld/waterworld.ss" drdr:command-line "mzc ~s" +"collects/waterworld/waterworld.rkt" drdr:command-line "mzc ~s" "collects/web-server" responsible (jay) -"collects/web-server/default-web-root/configuration-table.ss" drdr:command-line "" -"collects/web-server/default-web-root/htdocs/servlets/examples/add-dispatch.ss" drdr:command-line "mzc ~s" -"collects/web-server/default-web-root/htdocs/servlets/examples/bad-xexpr.ss" drdr:command-line "mzc ~s" -"collects/web-server/default-web-root/htdocs/servlets/examples/basic.ss" drdr:command-line "mzc ~s" -"collects/web-server/default-web-root/htdocs/servlets/examples/cookie.ss" drdr:command-line "mzc ~s" -"collects/web-server/default-web-root/htdocs/servlets/examples/cookie2.ss" drdr:command-line "mzc ~s" -"collects/web-server/default-web-root/htdocs/servlets/examples/digest.ss" drdr:command-line "mzc ~s" -"collects/web-server/default-web-root/htdocs/servlets/examples/english-measure-questions.ss" drdr:command-line "" -"collects/web-server/default-web-root/htdocs/servlets/examples/response.ss" drdr:command-line "mzscheme -f ~s" -"collects/web-server/main.ss" drdr:command-line "" -"collects/web-server/scribblings/tutorial/examples/dummy-10.ss" drdr:command-line "" -"collects/web-server/scribblings/tutorial/examples/dummy-3.ss" drdr:command-line "" -"collects/web-server/scribblings/tutorial/examples/iteration-1.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/iteration-10.ss" drdr:command-line "" -"collects/web-server/scribblings/tutorial/examples/iteration-2.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/iteration-3.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/iteration-4.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/iteration-5.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/iteration-6.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/iteration-7.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/iteration-8.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/iteration-9.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/model-3.ss" drdr:command-line "" -"collects/web-server/scribblings/tutorial/examples/no-use-redirect.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/send-suspend-1.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/send-suspend-2.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/test-static.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/use-redirect.ss" drdr:command-line "mzc ~s" +"collects/web-server/default-web-root/configuration-table.rkt" drdr:command-line "" +"collects/web-server/default-web-root/htdocs/servlets/examples/add-dispatch.rkt" drdr:command-line "mzc ~s" +"collects/web-server/default-web-root/htdocs/servlets/examples/bad-xexpr.rkt" drdr:command-line "mzc ~s" +"collects/web-server/default-web-root/htdocs/servlets/examples/basic.rkt" drdr:command-line "mzc ~s" +"collects/web-server/default-web-root/htdocs/servlets/examples/cookie.rkt" drdr:command-line "mzc ~s" +"collects/web-server/default-web-root/htdocs/servlets/examples/cookie2.rkt" drdr:command-line "mzc ~s" +"collects/web-server/default-web-root/htdocs/servlets/examples/digest.rkt" drdr:command-line "mzc ~s" +"collects/web-server/default-web-root/htdocs/servlets/examples/english-measure-questions.rkt" drdr:command-line "" +"collects/web-server/default-web-root/htdocs/servlets/examples/response.rkt" drdr:command-line "mzscheme -f ~s" +"collects/web-server/main.rkt" drdr:command-line "" +"collects/web-server/scribblings/tutorial/examples/dummy-10.rkt" drdr:command-line "" +"collects/web-server/scribblings/tutorial/examples/dummy-3.rkt" drdr:command-line "" +"collects/web-server/scribblings/tutorial/examples/iteration-1.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/iteration-10.rkt" drdr:command-line "" +"collects/web-server/scribblings/tutorial/examples/iteration-2.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/iteration-3.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/iteration-4.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/iteration-5.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/iteration-6.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/iteration-7.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/iteration-8.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/iteration-9.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/model-3.rkt" drdr:command-line "" +"collects/web-server/scribblings/tutorial/examples/no-use-redirect.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/send-suspend-1.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/send-suspend-2.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/test-static.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/use-redirect.rkt" drdr:command-line "mzc ~s" "collects/xml" responsible (jay) -"collects/xml/scheme-snipclass.ss" drdr:command-line "mred-text -t ~s" -"collects/xml/text-box-tool.ss" drdr:command-line "mred-text -t ~s" -"collects/xml/text-snipclass.ss" drdr:command-line "mred-text -t ~s" -"collects/xml/xml-snipclass.ss" drdr:command-line "mred-text -t ~s" +"collects/xml/scheme-snipclass.rkt" drdr:command-line "mred-text -t ~s" +"collects/xml/text-box-tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/xml/text-snipclass.rkt" drdr:command-line "mred-text -t ~s" +"collects/xml/xml-snipclass.rkt" drdr:command-line "mred-text -t ~s" "doc/release-notes/COPYING-libscheme.txt" responsible (mflatt) "doc/release-notes/COPYING.LIB" responsible (mflatt) "doc/release-notes/drscheme" responsible (robby) @@ -1738,5 +1751,66 @@ path/s is either such a string or a list of them. "src/wxmac" responsible (mflatt) "src/wxwindow" responsible (mflatt) "src/wxxt" responsible (mflatt) - +"collects/at-exp" responsible (eli) +"collects/config" responsible (mflatt eli) +"collects/embedded-gui" responsible (mflatt) +"collects/eopl" responsible (eli) +"collects/file" responsible (mflatt) +"collects/graphics" responsible (mflatt robby) +"collects/guibuilder" responsible (robby) +"collects/hierlist" responsible (mflatt) +"collects/icons" responsible (robby) +"collects/lang" responsible (mflatt robby matthias) +"collects/launcher" responsible (mflatt eli) +"collects/mred" responsible (mflatt robby) +"collects/mysterx" responsible (mflatt) +"collects/mzcom" responsible (mflatt) +"collects/mzlib" responsible (eli cce robby sstrickl mflatt) +"collects/mzscheme" responsible (mflatt) +"collects/net" responsible (eli jay) +"collects/r6rs" responsible (mflatt) +"collects/racket" responsible (mflatt) +"collects/raco" responsible (mflatt) +"collects/reader" responsible (mflatt) +"collects/rnrs" responsible (mflatt) +"collects/s-exp" responsible (mflatt eli) +"collects/raclog" responsible (jay) +"collects/tests/raclog" responsible (jay) +"collects/scheme" responsible (mflatt sstrickl samth robby eli) +"collects/scribble" responsible (mflatt eli) +"collects/scribblings" responsible (mflatt eli robby mathias) +"collects/scriblib" responsible (mflatt) +"collects/setup" responsible (mflatt) +"collects/slatex" responsible (sstrickl) +"collects/srfi" responsible (mflatt noel chongkai jay) +"collects/test-box-recovery" responsible (mflatt) +"collects/tex2page" responsible (mflatt eli jay) +"collects/texpict" responsible (mflatt robby) +"collects/trace" responsible (mflatt robby) +"collects/unstable" responsible (jay samth cce ryanc) +"collects/wxme" responsible (mflatt) +"collects/wxme/xml.rkt" responsible (jay) +"collects/tests" responsible (eli) +"collects/tests/aligned-pasteboard" responsible (unknown) +"collects/tests/file" responsible (eli) +"collects/tests/frtime" responsible (gcooper jay) +"collects/tests/honu" responsible (rafkind) +"collects/tests/html" responsible (jay) +"collects/tests/lazy" responsible (eli) +"collects/tests/match" responsible (samth) +"collects/tests/mysterx" responsible (mflatt) +"collects/tests/mzcom" responsible (mflatt) +"collects/tests/planet" responsible (robby jay) +"collects/tests/plot" responsible (eli) +"collects/tests/profile" responsible (eli) +"collects/tests/r6rs" responsible (mflatt) +"collects/tests/scribble" responsible (eli mflatt) +"collects/tests/srfi" responsible (noel chongkai jay) +"collects/tests/srpersist" responsible (unknown) +"collects/tests/slatex" responsible (jay sstrickl) +"collects/tests/syntax-color" responsible (sowens mflatt) +"collects/tests/test-engine" responsible (kathyg) +"collects/tests/unstable/generics.rkt" responsible (jay) +"collects/tests/unstable/srcloc.rkt" responsible (cce) +"collects/tests/utils" responsible (unknown) #:end-props |# diff --git a/collects/meta/spec-lang.ss b/collects/meta/spec-lang.rkt similarity index 100% rename from collects/meta/spec-lang.ss rename to collects/meta/spec-lang.rkt diff --git a/collects/meta/spec-reader.ss b/collects/meta/spec-reader.rkt similarity index 100% rename from collects/meta/spec-reader.ss rename to collects/meta/spec-reader.rkt diff --git a/collects/meta/specs.ss b/collects/meta/specs.rkt similarity index 100% rename from collects/meta/specs.ss rename to collects/meta/specs.rkt diff --git a/collects/meta/tree/file-tree.ss b/collects/meta/tree/file-tree.rkt similarity index 100% rename from collects/meta/tree/file-tree.ss rename to collects/meta/tree/file-tree.rkt diff --git a/collects/meta/tree/svn-tree.ss b/collects/meta/tree/svn-tree.rkt similarity index 100% rename from collects/meta/tree/svn-tree.ss rename to collects/meta/tree/svn-tree.rkt diff --git a/collects/meta/tree/tests.ss b/collects/meta/tree/tests.rkt similarity index 100% rename from collects/meta/tree/tests.ss rename to collects/meta/tree/tests.rkt diff --git a/collects/meta/tree/tree.ss b/collects/meta/tree/tree.rkt similarity index 100% rename from collects/meta/tree/tree.ss rename to collects/meta/tree/tree.rkt diff --git a/collects/mred/edit-main.ss b/collects/mred/edit-main.rkt similarity index 100% rename from collects/mred/edit-main.ss rename to collects/mred/edit-main.rkt diff --git a/collects/mred/edit.ss b/collects/mred/edit.rkt similarity index 100% rename from collects/mred/edit.ss rename to collects/mred/edit.rkt diff --git a/collects/mred/info.rkt b/collects/mred/info.rkt new file mode 100644 index 0000000000..9b6cbaad87 --- /dev/null +++ b/collects/mred/info.rkt @@ -0,0 +1,4 @@ +#lang setup/infotab + +(define version '(400)) +(define post-install-collection "installer.rkt") diff --git a/collects/mred/info.ss b/collects/mred/info.ss deleted file mode 100644 index 0725d8f23c..0000000000 --- a/collects/mred/info.ss +++ /dev/null @@ -1,4 +0,0 @@ -#lang setup/infotab - -(define version '(400)) -(define post-install-collection "installer.ss") diff --git a/collects/mred/installer.ss b/collects/mred/installer.rkt similarity index 100% rename from collects/mred/installer.ss rename to collects/mred/installer.rkt diff --git a/collects/mred/lang/main.ss b/collects/mred/lang/main.rkt similarity index 100% rename from collects/mred/lang/main.ss rename to collects/mred/lang/main.rkt diff --git a/collects/mred/lang/reader.ss b/collects/mred/lang/reader.rkt similarity index 100% rename from collects/mred/lang/reader.ss rename to collects/mred/lang/reader.rkt diff --git a/collects/mred/main.ss b/collects/mred/main.rkt similarity index 100% rename from collects/mred/main.ss rename to collects/mred/main.rkt diff --git a/collects/mred/mred-sig.ss b/collects/mred/mred-sig.rkt similarity index 100% rename from collects/mred/mred-sig.ss rename to collects/mred/mred-sig.rkt diff --git a/collects/mred/mred-unit.ss b/collects/mred/mred-unit.rkt similarity index 100% rename from collects/mred/mred-unit.ss rename to collects/mred/mred-unit.rkt diff --git a/collects/mred/mred.ss b/collects/mred/mred.rkt similarity index 100% rename from collects/mred/mred.ss rename to collects/mred/mred.rkt diff --git a/collects/mred/private/afm.ss b/collects/mred/private/afm.rkt similarity index 100% rename from collects/mred/private/afm.ss rename to collects/mred/private/afm.rkt diff --git a/collects/mred/private/app.ss b/collects/mred/private/app.rkt similarity index 100% rename from collects/mred/private/app.ss rename to collects/mred/private/app.rkt diff --git a/collects/mred/private/check.ss b/collects/mred/private/check.rkt similarity index 100% rename from collects/mred/private/check.ss rename to collects/mred/private/check.rkt diff --git a/collects/mred/private/const.ss b/collects/mred/private/const.rkt similarity index 100% rename from collects/mred/private/const.ss rename to collects/mred/private/const.rkt diff --git a/collects/mred/private/cycle.ss b/collects/mred/private/cycle.rkt similarity index 100% rename from collects/mred/private/cycle.ss rename to collects/mred/private/cycle.rkt diff --git a/collects/mred/private/dynamic.ss b/collects/mred/private/dynamic.rkt similarity index 100% rename from collects/mred/private/dynamic.ss rename to collects/mred/private/dynamic.rkt diff --git a/collects/mred/private/editor.ss b/collects/mred/private/editor.rkt similarity index 100% rename from collects/mred/private/editor.ss rename to collects/mred/private/editor.rkt diff --git a/collects/mred/private/filedialog.ss b/collects/mred/private/filedialog.rkt similarity index 100% rename from collects/mred/private/filedialog.ss rename to collects/mred/private/filedialog.rkt diff --git a/collects/mred/private/fontdialog.ss b/collects/mred/private/fontdialog.rkt similarity index 100% rename from collects/mred/private/fontdialog.ss rename to collects/mred/private/fontdialog.rkt diff --git a/collects/mred/private/gdi.ss b/collects/mred/private/gdi.rkt similarity index 100% rename from collects/mred/private/gdi.ss rename to collects/mred/private/gdi.rkt diff --git a/collects/mred/private/helper.ss b/collects/mred/private/helper.rkt similarity index 100% rename from collects/mred/private/helper.ss rename to collects/mred/private/helper.rkt diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.rkt similarity index 100% rename from collects/mred/private/kernel.ss rename to collects/mred/private/kernel.rkt diff --git a/collects/mred/private/kw.ss b/collects/mred/private/kw.rkt similarity index 100% rename from collects/mred/private/kw.ss rename to collects/mred/private/kw.rkt diff --git a/collects/mred/private/lock.ss b/collects/mred/private/lock.rkt similarity index 100% rename from collects/mred/private/lock.ss rename to collects/mred/private/lock.rkt diff --git a/collects/mred/private/messagebox.ss b/collects/mred/private/messagebox.rkt similarity index 100% rename from collects/mred/private/messagebox.ss rename to collects/mred/private/messagebox.rkt diff --git a/collects/mred/private/misc.ss b/collects/mred/private/misc.rkt similarity index 100% rename from collects/mred/private/misc.ss rename to collects/mred/private/misc.rkt diff --git a/collects/mred/private/moredialogs.ss b/collects/mred/private/moredialogs.rkt similarity index 100% rename from collects/mred/private/moredialogs.ss rename to collects/mred/private/moredialogs.rkt diff --git a/collects/mred/private/mrcanvas.ss b/collects/mred/private/mrcanvas.rkt similarity index 100% rename from collects/mred/private/mrcanvas.ss rename to collects/mred/private/mrcanvas.rkt diff --git a/collects/mred/private/mrcontainer.ss b/collects/mred/private/mrcontainer.rkt similarity index 100% rename from collects/mred/private/mrcontainer.ss rename to collects/mred/private/mrcontainer.rkt diff --git a/collects/mred/private/mrgroupbox.ss b/collects/mred/private/mrgroupbox.rkt similarity index 100% rename from collects/mred/private/mrgroupbox.ss rename to collects/mred/private/mrgroupbox.rkt diff --git a/collects/mred/private/mritem.ss b/collects/mred/private/mritem.rkt similarity index 100% rename from collects/mred/private/mritem.ss rename to collects/mred/private/mritem.rkt diff --git a/collects/mred/private/mrmenu.ss b/collects/mred/private/mrmenu.rkt similarity index 100% rename from collects/mred/private/mrmenu.ss rename to collects/mred/private/mrmenu.rkt diff --git a/collects/mred/private/mrmenuintf.ss b/collects/mred/private/mrmenuintf.rkt similarity index 100% rename from collects/mred/private/mrmenuintf.ss rename to collects/mred/private/mrmenuintf.rkt diff --git a/collects/mred/private/mrpanel.ss b/collects/mred/private/mrpanel.rkt similarity index 100% rename from collects/mred/private/mrpanel.ss rename to collects/mred/private/mrpanel.rkt diff --git a/collects/mred/private/mrpopup.ss b/collects/mred/private/mrpopup.rkt similarity index 100% rename from collects/mred/private/mrpopup.ss rename to collects/mred/private/mrpopup.rkt diff --git a/collects/mred/private/mrtabgroup.ss b/collects/mred/private/mrtabgroup.rkt similarity index 100% rename from collects/mred/private/mrtabgroup.ss rename to collects/mred/private/mrtabgroup.rkt diff --git a/collects/mred/private/mrtextfield.ss b/collects/mred/private/mrtextfield.rkt similarity index 100% rename from collects/mred/private/mrtextfield.ss rename to collects/mred/private/mrtextfield.rkt diff --git a/collects/mred/private/mrtop.ss b/collects/mred/private/mrtop.rkt similarity index 100% rename from collects/mred/private/mrtop.ss rename to collects/mred/private/mrtop.rkt diff --git a/collects/mred/private/mrwindow.ss b/collects/mred/private/mrwindow.rkt similarity index 100% rename from collects/mred/private/mrwindow.ss rename to collects/mred/private/mrwindow.rkt diff --git a/collects/mred/private/path-dialog.ss b/collects/mred/private/path-dialog.rkt similarity index 100% rename from collects/mred/private/path-dialog.ss rename to collects/mred/private/path-dialog.rkt diff --git a/collects/mred/private/repl.ss b/collects/mred/private/repl.rkt similarity index 100% rename from collects/mred/private/repl.ss rename to collects/mred/private/repl.rkt diff --git a/collects/mred/private/seqcontract.ss b/collects/mred/private/seqcontract.rkt similarity index 100% rename from collects/mred/private/seqcontract.ss rename to collects/mred/private/seqcontract.rkt diff --git a/collects/mred/private/snipfile.ss b/collects/mred/private/snipfile.rkt similarity index 100% rename from collects/mred/private/snipfile.ss rename to collects/mred/private/snipfile.rkt diff --git a/collects/mred/private/syntax.ss b/collects/mred/private/syntax.rkt similarity index 100% rename from collects/mred/private/syntax.ss rename to collects/mred/private/syntax.rkt diff --git a/collects/mred/private/wx.ss b/collects/mred/private/wx.rkt similarity index 100% rename from collects/mred/private/wx.ss rename to collects/mred/private/wx.rkt diff --git a/collects/mred/private/wxcanvas.ss b/collects/mred/private/wxcanvas.rkt similarity index 100% rename from collects/mred/private/wxcanvas.ss rename to collects/mred/private/wxcanvas.rkt diff --git a/collects/mred/private/wxcontainer.ss b/collects/mred/private/wxcontainer.rkt similarity index 100% rename from collects/mred/private/wxcontainer.ss rename to collects/mred/private/wxcontainer.rkt diff --git a/collects/mred/private/wxgroupbox.ss b/collects/mred/private/wxgroupbox.rkt similarity index 100% rename from collects/mred/private/wxgroupbox.ss rename to collects/mred/private/wxgroupbox.rkt diff --git a/collects/mred/private/wxitem.ss b/collects/mred/private/wxitem.rkt similarity index 100% rename from collects/mred/private/wxitem.ss rename to collects/mred/private/wxitem.rkt diff --git a/collects/mred/private/wxme/const.ss b/collects/mred/private/wxme/const.rkt similarity index 100% rename from collects/mred/private/wxme/const.ss rename to collects/mred/private/wxme/const.rkt diff --git a/collects/mred/private/wxme/cycle.ss b/collects/mred/private/wxme/cycle.rkt similarity index 100% rename from collects/mred/private/wxme/cycle.ss rename to collects/mred/private/wxme/cycle.rkt diff --git a/collects/mred/private/wxme/editor-admin.ss b/collects/mred/private/wxme/editor-admin.rkt similarity index 100% rename from collects/mred/private/wxme/editor-admin.ss rename to collects/mred/private/wxme/editor-admin.rkt diff --git a/collects/mred/private/wxme/editor-canvas.ss b/collects/mred/private/wxme/editor-canvas.rkt similarity index 100% rename from collects/mred/private/wxme/editor-canvas.ss rename to collects/mred/private/wxme/editor-canvas.rkt diff --git a/collects/mred/private/wxme/editor-snip.ss b/collects/mred/private/wxme/editor-snip.rkt similarity index 100% rename from collects/mred/private/wxme/editor-snip.ss rename to collects/mred/private/wxme/editor-snip.rkt diff --git a/collects/mred/private/wxme/editor.ss b/collects/mred/private/wxme/editor.rkt similarity index 100% rename from collects/mred/private/wxme/editor.ss rename to collects/mred/private/wxme/editor.rkt diff --git a/collects/mred/private/wxme/keymap.ss b/collects/mred/private/wxme/keymap.rkt similarity index 100% rename from collects/mred/private/wxme/keymap.ss rename to collects/mred/private/wxme/keymap.rkt diff --git a/collects/mred/private/wxme/mline.ss b/collects/mred/private/wxme/mline.rkt similarity index 100% rename from collects/mred/private/wxme/mline.ss rename to collects/mred/private/wxme/mline.rkt diff --git a/collects/mred/private/wxme/pasteboard.ss b/collects/mred/private/wxme/pasteboard.rkt similarity index 100% rename from collects/mred/private/wxme/pasteboard.ss rename to collects/mred/private/wxme/pasteboard.rkt diff --git a/collects/mred/private/wxme/private.ss b/collects/mred/private/wxme/private.rkt similarity index 100% rename from collects/mred/private/wxme/private.ss rename to collects/mred/private/wxme/private.rkt diff --git a/collects/mred/private/wxme/snip-admin.ss b/collects/mred/private/wxme/snip-admin.rkt similarity index 100% rename from collects/mred/private/wxme/snip-admin.ss rename to collects/mred/private/wxme/snip-admin.rkt diff --git a/collects/mred/private/wxme/snip-flags.ss b/collects/mred/private/wxme/snip-flags.rkt similarity index 100% rename from collects/mred/private/wxme/snip-flags.ss rename to collects/mred/private/wxme/snip-flags.rkt diff --git a/collects/mred/private/wxme/snip.ss b/collects/mred/private/wxme/snip.rkt similarity index 100% rename from collects/mred/private/wxme/snip.ss rename to collects/mred/private/wxme/snip.rkt diff --git a/collects/mred/private/wxme/stream.ss b/collects/mred/private/wxme/stream.rkt similarity index 100% rename from collects/mred/private/wxme/stream.ss rename to collects/mred/private/wxme/stream.rkt diff --git a/collects/mred/private/wxme/style.ss b/collects/mred/private/wxme/style.rkt similarity index 100% rename from collects/mred/private/wxme/style.ss rename to collects/mred/private/wxme/style.rkt diff --git a/collects/mred/private/wxme/text.ss b/collects/mred/private/wxme/text.rkt similarity index 100% rename from collects/mred/private/wxme/text.ss rename to collects/mred/private/wxme/text.rkt diff --git a/collects/mred/private/wxme/undo.ss b/collects/mred/private/wxme/undo.rkt similarity index 100% rename from collects/mred/private/wxme/undo.ss rename to collects/mred/private/wxme/undo.rkt diff --git a/collects/mred/private/wxme/wordbreak.ss b/collects/mred/private/wxme/wordbreak.rkt similarity index 100% rename from collects/mred/private/wxme/wordbreak.ss rename to collects/mred/private/wxme/wordbreak.rkt diff --git a/collects/mred/private/wxme/wx.ss b/collects/mred/private/wxme/wx.rkt similarity index 100% rename from collects/mred/private/wxme/wx.ss rename to collects/mred/private/wxme/wx.rkt diff --git a/collects/mred/private/wxmenu.ss b/collects/mred/private/wxmenu.rkt similarity index 100% rename from collects/mred/private/wxmenu.ss rename to collects/mred/private/wxmenu.rkt diff --git a/collects/mred/private/wxpanel.ss b/collects/mred/private/wxpanel.rkt similarity index 100% rename from collects/mred/private/wxpanel.ss rename to collects/mred/private/wxpanel.rkt diff --git a/collects/mred/private/wxtabgroup.ss b/collects/mred/private/wxtabgroup.rkt similarity index 100% rename from collects/mred/private/wxtabgroup.ss rename to collects/mred/private/wxtabgroup.rkt diff --git a/collects/mred/private/wxtextfield.ss b/collects/mred/private/wxtextfield.rkt similarity index 100% rename from collects/mred/private/wxtextfield.ss rename to collects/mred/private/wxtextfield.rkt diff --git a/collects/mred/private/wxtop.ss b/collects/mred/private/wxtop.rkt similarity index 100% rename from collects/mred/private/wxtop.ss rename to collects/mred/private/wxtop.rkt diff --git a/collects/mred/private/wxwindow.ss b/collects/mred/private/wxwindow.rkt similarity index 100% rename from collects/mred/private/wxwindow.ss rename to collects/mred/private/wxwindow.rkt diff --git a/collects/mrlib/aligned-pasteboard.ss b/collects/mrlib/aligned-pasteboard.rkt similarity index 100% rename from collects/mrlib/aligned-pasteboard.ss rename to collects/mrlib/aligned-pasteboard.rkt diff --git a/collects/mrlib/bitmap-label.ss b/collects/mrlib/bitmap-label.rkt similarity index 100% rename from collects/mrlib/bitmap-label.ss rename to collects/mrlib/bitmap-label.rkt diff --git a/collects/mrlib/cache-image-snip.ss b/collects/mrlib/cache-image-snip.rkt similarity index 100% rename from collects/mrlib/cache-image-snip.ss rename to collects/mrlib/cache-image-snip.rkt diff --git a/collects/mrlib/click-forwarding-editor.ss b/collects/mrlib/click-forwarding-editor.rkt similarity index 100% rename from collects/mrlib/click-forwarding-editor.ss rename to collects/mrlib/click-forwarding-editor.rkt diff --git a/collects/mrlib/close-icon.ss b/collects/mrlib/close-icon.rkt similarity index 100% rename from collects/mrlib/close-icon.ss rename to collects/mrlib/close-icon.rkt diff --git a/collects/mrlib/gif.ss b/collects/mrlib/gif.rkt similarity index 100% rename from collects/mrlib/gif.ss rename to collects/mrlib/gif.rkt diff --git a/collects/mrlib/graph.ss b/collects/mrlib/graph.rkt similarity index 100% rename from collects/mrlib/graph.ss rename to collects/mrlib/graph.rkt diff --git a/collects/mrlib/hierlist.ss b/collects/mrlib/hierlist.rkt similarity index 100% rename from collects/mrlib/hierlist.ss rename to collects/mrlib/hierlist.rkt diff --git a/collects/mrlib/hierlist/hierlist-sig.ss b/collects/mrlib/hierlist/hierlist-sig.rkt similarity index 100% rename from collects/mrlib/hierlist/hierlist-sig.ss rename to collects/mrlib/hierlist/hierlist-sig.rkt diff --git a/collects/mrlib/hierlist/hierlist-unit.ss b/collects/mrlib/hierlist/hierlist-unit.rkt similarity index 100% rename from collects/mrlib/hierlist/hierlist-unit.ss rename to collects/mrlib/hierlist/hierlist-unit.rkt diff --git a/collects/mrlib/image-core.ss b/collects/mrlib/image-core.rkt similarity index 100% rename from collects/mrlib/image-core.ss rename to collects/mrlib/image-core.rkt diff --git a/collects/mrlib/include-bitmap.ss b/collects/mrlib/include-bitmap.rkt similarity index 100% rename from collects/mrlib/include-bitmap.ss rename to collects/mrlib/include-bitmap.rkt diff --git a/collects/mrlib/interactive-value-port.ss b/collects/mrlib/interactive-value-port.rkt similarity index 100% rename from collects/mrlib/interactive-value-port.ss rename to collects/mrlib/interactive-value-port.rkt diff --git a/collects/mrlib/matrix-snip.ss b/collects/mrlib/matrix-snip.rkt similarity index 100% rename from collects/mrlib/matrix-snip.ss rename to collects/mrlib/matrix-snip.rkt diff --git a/collects/mrlib/name-message.ss b/collects/mrlib/name-message.rkt similarity index 100% rename from collects/mrlib/name-message.ss rename to collects/mrlib/name-message.rkt diff --git a/collects/mrlib/path-dialog.ss b/collects/mrlib/path-dialog.rkt similarity index 100% rename from collects/mrlib/path-dialog.ss rename to collects/mrlib/path-dialog.rkt diff --git a/collects/mrlib/plot.ss b/collects/mrlib/plot.rkt similarity index 100% rename from collects/mrlib/plot.ss rename to collects/mrlib/plot.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/aligned-editor-container.ss b/collects/mrlib/private/aligned-pasteboard/aligned-editor-container.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/aligned-editor-container.ss rename to collects/mrlib/private/aligned-pasteboard/aligned-editor-container.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/aligned-pasteboard.ss b/collects/mrlib/private/aligned-pasteboard/aligned-pasteboard.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/aligned-pasteboard.ss rename to collects/mrlib/private/aligned-pasteboard/aligned-pasteboard.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/alignment.ss b/collects/mrlib/private/aligned-pasteboard/alignment.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/alignment.ss rename to collects/mrlib/private/aligned-pasteboard/alignment.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/constants.ss b/collects/mrlib/private/aligned-pasteboard/constants.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/constants.ss rename to collects/mrlib/private/aligned-pasteboard/constants.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/geometry-managed-pasteboard.ss b/collects/mrlib/private/aligned-pasteboard/geometry-managed-pasteboard.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/geometry-managed-pasteboard.ss rename to collects/mrlib/private/aligned-pasteboard/geometry-managed-pasteboard.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/info.ss b/collects/mrlib/private/aligned-pasteboard/info.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/info.ss rename to collects/mrlib/private/aligned-pasteboard/info.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/interface.ss b/collects/mrlib/private/aligned-pasteboard/interface.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/interface.ss rename to collects/mrlib/private/aligned-pasteboard/interface.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/locked-pasteboard.ss b/collects/mrlib/private/aligned-pasteboard/locked-pasteboard.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/locked-pasteboard.ss rename to collects/mrlib/private/aligned-pasteboard/locked-pasteboard.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/pasteboard-lib.ss b/collects/mrlib/private/aligned-pasteboard/pasteboard-lib.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/pasteboard-lib.ss rename to collects/mrlib/private/aligned-pasteboard/pasteboard-lib.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/snip-lib.ss b/collects/mrlib/private/aligned-pasteboard/snip-lib.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/snip-lib.ss rename to collects/mrlib/private/aligned-pasteboard/snip-lib.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/stretchable-editor-snip.ss b/collects/mrlib/private/aligned-pasteboard/stretchable-editor-snip.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/stretchable-editor-snip.ss rename to collects/mrlib/private/aligned-pasteboard/stretchable-editor-snip.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.ss b/collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.ss rename to collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/debug.ss b/collects/mrlib/private/aligned-pasteboard/tests/debug.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/debug.ss rename to collects/mrlib/private/aligned-pasteboard/tests/debug.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.ss b/collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.ss rename to collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/example-min.ss b/collects/mrlib/private/aligned-pasteboard/tests/example-min.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/example-min.ss rename to collects/mrlib/private/aligned-pasteboard/tests/example-min.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/example.ss b/collects/mrlib/private/aligned-pasteboard/tests/example.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/example.ss rename to collects/mrlib/private/aligned-pasteboard/tests/example.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/insertion-without-display.ss b/collects/mrlib/private/aligned-pasteboard/tests/insertion-without-display.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/insertion-without-display.ss rename to collects/mrlib/private/aligned-pasteboard/tests/insertion-without-display.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/minimal.ss b/collects/mrlib/private/aligned-pasteboard/tests/minimal.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/minimal.ss rename to collects/mrlib/private/aligned-pasteboard/tests/minimal.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin-aligned.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin-aligned.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin-aligned.ss rename to collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin-aligned.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin.ss rename to collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-min-stretchable.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-min-stretchable.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/more-tests-min-stretchable.ss rename to collects/mrlib/private/aligned-pasteboard/tests/more-tests-min-stretchable.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-min.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-min.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/more-tests-min.ss rename to collects/mrlib/private/aligned-pasteboard/tests/more-tests-min.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-text.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-text.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/more-tests-text.ss rename to collects/mrlib/private/aligned-pasteboard/tests/more-tests-text.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/more-tests.ss rename to collects/mrlib/private/aligned-pasteboard/tests/more-tests.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/snip-dumper.ss b/collects/mrlib/private/aligned-pasteboard/tests/snip-dumper.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/snip-dumper.ss rename to collects/mrlib/private/aligned-pasteboard/tests/snip-dumper.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test-min.ss b/collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test-min.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test-min.ss rename to collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test-min.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test.ss b/collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test.ss rename to collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-alignment.ss b/collects/mrlib/private/aligned-pasteboard/tests/test-alignment.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/test-alignment.ss rename to collects/mrlib/private/aligned-pasteboard/tests/test-alignment.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-locked-pasteboard.ss b/collects/mrlib/private/aligned-pasteboard/tests/test-locked-pasteboard.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/test-locked-pasteboard.ss rename to collects/mrlib/private/aligned-pasteboard/tests/test-locked-pasteboard.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-macro.ss b/collects/mrlib/private/aligned-pasteboard/tests/test-macro.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/test-macro.ss rename to collects/mrlib/private/aligned-pasteboard/tests/test-macro.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.ss b/collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.ss rename to collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.ss b/collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.ss rename to collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test.ss b/collects/mrlib/private/aligned-pasteboard/tests/test.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/test.ss rename to collects/mrlib/private/aligned-pasteboard/tests/test.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test2.ss b/collects/mrlib/private/aligned-pasteboard/tests/test2.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/test2.ss rename to collects/mrlib/private/aligned-pasteboard/tests/test2.rkt diff --git a/collects/mrlib/private/image-core-bitmap.ss b/collects/mrlib/private/image-core-bitmap.rkt similarity index 100% rename from collects/mrlib/private/image-core-bitmap.ss rename to collects/mrlib/private/image-core-bitmap.rkt diff --git a/collects/mrlib/scribblings/aligned-pasteboard/common.ss b/collects/mrlib/scribblings/aligned-pasteboard/common.rkt similarity index 100% rename from collects/mrlib/scribblings/aligned-pasteboard/common.ss rename to collects/mrlib/scribblings/aligned-pasteboard/common.rkt diff --git a/collects/mrlib/scribblings/common.ss b/collects/mrlib/scribblings/common.rkt similarity index 100% rename from collects/mrlib/scribblings/common.ss rename to collects/mrlib/scribblings/common.rkt diff --git a/collects/mrlib/scribblings/graph/common.ss b/collects/mrlib/scribblings/graph/common.rkt similarity index 100% rename from collects/mrlib/scribblings/graph/common.ss rename to collects/mrlib/scribblings/graph/common.rkt diff --git a/collects/mrlib/scribblings/info.ss b/collects/mrlib/scribblings/info.rkt similarity index 100% rename from collects/mrlib/scribblings/info.ss rename to collects/mrlib/scribblings/info.rkt diff --git a/collects/mrlib/switchable-button.ss b/collects/mrlib/switchable-button.rkt similarity index 100% rename from collects/mrlib/switchable-button.ss rename to collects/mrlib/switchable-button.rkt diff --git a/collects/mrlib/syntax-browser.ss b/collects/mrlib/syntax-browser.rkt similarity index 100% rename from collects/mrlib/syntax-browser.ss rename to collects/mrlib/syntax-browser.rkt diff --git a/collects/mrlib/tab-choice.ss b/collects/mrlib/tab-choice.rkt similarity index 100% rename from collects/mrlib/tab-choice.ss rename to collects/mrlib/tab-choice.rkt diff --git a/collects/mrlib/tex-table.ss b/collects/mrlib/tex-table.rkt similarity index 100% rename from collects/mrlib/tex-table.ss rename to collects/mrlib/tex-table.rkt diff --git a/collects/mrlib/text-string-style-desc.ss b/collects/mrlib/text-string-style-desc.rkt similarity index 100% rename from collects/mrlib/text-string-style-desc.ss rename to collects/mrlib/text-string-style-desc.rkt diff --git a/collects/mysterx/info.ss b/collects/mysterx/info.rkt similarity index 66% rename from collects/mysterx/info.ss rename to collects/mysterx/info.rkt index f77d576bce..bfdfa65011 100644 --- a/collects/mysterx/info.ss +++ b/collects/mysterx/info.rkt @@ -1,5 +1,5 @@ #lang setup/infotab -(define post-install-collection "installer.ss") +(define post-install-collection "installer.rkt") (define scribblings '(("scribblings/mysterx.scrbl" (multi-page) (interop)))) diff --git a/collects/mysterx/installer.ss b/collects/mysterx/installer.rkt similarity index 100% rename from collects/mysterx/installer.ss rename to collects/mysterx/installer.rkt diff --git a/collects/mysterx/main.ss b/collects/mysterx/main.rkt similarity index 100% rename from collects/mysterx/main.ss rename to collects/mysterx/main.rkt diff --git a/collects/mysterx/mxdemo.ss b/collects/mysterx/mxdemo.rkt similarity index 100% rename from collects/mysterx/mxdemo.ss rename to collects/mysterx/mxdemo.rkt diff --git a/collects/mysterx/mysterx.ss b/collects/mysterx/mysterx.rkt similarity index 100% rename from collects/mysterx/mysterx.ss rename to collects/mysterx/mysterx.rkt diff --git a/collects/mysterx/private/filter.ss b/collects/mysterx/private/filter.rkt similarity index 100% rename from collects/mysterx/private/filter.ss rename to collects/mysterx/private/filter.rkt diff --git a/collects/mysterx/private/mxmain.ss b/collects/mysterx/private/mxmain.rkt similarity index 100% rename from collects/mysterx/private/mxmain.ss rename to collects/mysterx/private/mxmain.rkt diff --git a/collects/mysterx/private/prims.ss b/collects/mysterx/private/prims.rkt similarity index 100% rename from collects/mysterx/private/prims.ss rename to collects/mysterx/private/prims.rkt diff --git a/collects/mysterx/private/properties.ss b/collects/mysterx/private/properties.rkt similarity index 100% rename from collects/mysterx/private/properties.ss rename to collects/mysterx/private/properties.rkt diff --git a/collects/mysterx/private/style.ss b/collects/mysterx/private/style.rkt similarity index 100% rename from collects/mysterx/private/style.ss rename to collects/mysterx/private/style.rkt diff --git a/collects/mysterx/private/util.ss b/collects/mysterx/private/util.rkt similarity index 100% rename from collects/mysterx/private/util.ss rename to collects/mysterx/private/util.rkt diff --git a/collects/mysterx/scribblings/common.ss b/collects/mysterx/scribblings/common.rkt similarity index 100% rename from collects/mysterx/scribblings/common.ss rename to collects/mysterx/scribblings/common.rkt diff --git a/collects/mzcom/info.ss b/collects/mzcom/info.rkt similarity index 60% rename from collects/mzcom/info.ss rename to collects/mzcom/info.rkt index 89052888aa..d02d43a285 100644 --- a/collects/mzcom/info.ss +++ b/collects/mzcom/info.rkt @@ -1,6 +1,6 @@ #lang setup/infotab -(define post-install-collection "installer.ss") +(define post-install-collection "installer.rkt") (define scribblings '(("mzcom.scrbl" () (interop)))) diff --git a/collects/mzcom/installer.ss b/collects/mzcom/installer.rkt similarity index 100% rename from collects/mzcom/installer.ss rename to collects/mzcom/installer.rkt diff --git a/collects/mzlib/a-signature.ss b/collects/mzlib/a-signature.rkt similarity index 100% rename from collects/mzlib/a-signature.ss rename to collects/mzlib/a-signature.rkt diff --git a/collects/mzlib/a-unit.ss b/collects/mzlib/a-unit.rkt similarity index 100% rename from collects/mzlib/a-unit.ss rename to collects/mzlib/a-unit.rkt diff --git a/collects/mzlib/async-channel.ss b/collects/mzlib/async-channel.rkt similarity index 100% rename from collects/mzlib/async-channel.ss rename to collects/mzlib/async-channel.rkt diff --git a/collects/mzlib/awk.ss b/collects/mzlib/awk.rkt similarity index 100% rename from collects/mzlib/awk.ss rename to collects/mzlib/awk.rkt diff --git a/collects/mzlib/class-traced.ss b/collects/mzlib/class-traced.rkt similarity index 100% rename from collects/mzlib/class-traced.ss rename to collects/mzlib/class-traced.rkt diff --git a/collects/mzlib/class.ss b/collects/mzlib/class.rkt similarity index 100% rename from collects/mzlib/class.ss rename to collects/mzlib/class.rkt diff --git a/collects/mzlib/class100.ss b/collects/mzlib/class100.rkt similarity index 100% rename from collects/mzlib/class100.ss rename to collects/mzlib/class100.rkt diff --git a/collects/mzlib/cm-accomplice.ss b/collects/mzlib/cm-accomplice.rkt similarity index 100% rename from collects/mzlib/cm-accomplice.ss rename to collects/mzlib/cm-accomplice.rkt diff --git a/collects/mzlib/cm.ss b/collects/mzlib/cm.rkt similarity index 100% rename from collects/mzlib/cm.ss rename to collects/mzlib/cm.rkt diff --git a/collects/mzlib/cmdline.ss b/collects/mzlib/cmdline.rkt similarity index 100% rename from collects/mzlib/cmdline.ss rename to collects/mzlib/cmdline.rkt diff --git a/collects/mzlib/cml.ss b/collects/mzlib/cml.rkt similarity index 100% rename from collects/mzlib/cml.ss rename to collects/mzlib/cml.rkt diff --git a/collects/mzlib/compat.ss b/collects/mzlib/compat.rkt similarity index 100% rename from collects/mzlib/compat.ss rename to collects/mzlib/compat.rkt diff --git a/collects/mzlib/compile.ss b/collects/mzlib/compile.rkt similarity index 100% rename from collects/mzlib/compile.ss rename to collects/mzlib/compile.rkt diff --git a/collects/mzlib/contract.ss b/collects/mzlib/contract.rkt similarity index 100% rename from collects/mzlib/contract.ss rename to collects/mzlib/contract.rkt diff --git a/collects/mzlib/control.ss b/collects/mzlib/control.rkt similarity index 100% rename from collects/mzlib/control.ss rename to collects/mzlib/control.rkt diff --git a/collects/mzlib/date.ss b/collects/mzlib/date.rkt similarity index 100% rename from collects/mzlib/date.ss rename to collects/mzlib/date.rkt diff --git a/collects/mzlib/deflate.ss b/collects/mzlib/deflate.rkt similarity index 100% rename from collects/mzlib/deflate.ss rename to collects/mzlib/deflate.rkt diff --git a/collects/mzlib/defmacro.ss b/collects/mzlib/defmacro.rkt similarity index 100% rename from collects/mzlib/defmacro.ss rename to collects/mzlib/defmacro.rkt diff --git a/collects/mzlib/etc.ss b/collects/mzlib/etc.rkt similarity index 100% rename from collects/mzlib/etc.ss rename to collects/mzlib/etc.rkt diff --git a/collects/mzlib/file.ss b/collects/mzlib/file.rkt similarity index 100% rename from collects/mzlib/file.ss rename to collects/mzlib/file.rkt diff --git a/collects/mzlib/for.ss b/collects/mzlib/for.rkt similarity index 100% rename from collects/mzlib/for.ss rename to collects/mzlib/for.rkt diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.rkt similarity index 100% rename from collects/mzlib/foreign.ss rename to collects/mzlib/foreign.rkt diff --git a/collects/mzlib/include.ss b/collects/mzlib/include.rkt similarity index 100% rename from collects/mzlib/include.ss rename to collects/mzlib/include.rkt diff --git a/collects/mzlib/inflate.ss b/collects/mzlib/inflate.rkt similarity index 100% rename from collects/mzlib/inflate.ss rename to collects/mzlib/inflate.rkt diff --git a/collects/mzlib/integer-set.ss b/collects/mzlib/integer-set.rkt similarity index 100% rename from collects/mzlib/integer-set.ss rename to collects/mzlib/integer-set.rkt diff --git a/collects/mzlib/kw.ss b/collects/mzlib/kw.rkt similarity index 100% rename from collects/mzlib/kw.ss rename to collects/mzlib/kw.rkt diff --git a/collects/mzlib/list.ss b/collects/mzlib/list.rkt similarity index 100% rename from collects/mzlib/list.ss rename to collects/mzlib/list.rkt diff --git a/collects/mzlib/match.ss b/collects/mzlib/match.rkt similarity index 100% rename from collects/mzlib/match.ss rename to collects/mzlib/match.rkt diff --git a/collects/mzlib/math.ss b/collects/mzlib/math.rkt similarity index 100% rename from collects/mzlib/math.ss rename to collects/mzlib/math.rkt diff --git a/collects/mzlib/md5.ss b/collects/mzlib/md5.rkt similarity index 100% rename from collects/mzlib/md5.ss rename to collects/mzlib/md5.rkt diff --git a/collects/mzlib/os.ss b/collects/mzlib/os.rkt similarity index 100% rename from collects/mzlib/os.ss rename to collects/mzlib/os.rkt diff --git a/collects/mzlib/pconvert-prop.ss b/collects/mzlib/pconvert-prop.rkt similarity index 100% rename from collects/mzlib/pconvert-prop.ss rename to collects/mzlib/pconvert-prop.rkt diff --git a/collects/mzlib/pconvert.ss b/collects/mzlib/pconvert.rkt similarity index 100% rename from collects/mzlib/pconvert.ss rename to collects/mzlib/pconvert.rkt diff --git a/collects/mzlib/plt-match.ss b/collects/mzlib/plt-match.rkt similarity index 100% rename from collects/mzlib/plt-match.ss rename to collects/mzlib/plt-match.rkt diff --git a/collects/mzlib/port.ss b/collects/mzlib/port.rkt similarity index 100% rename from collects/mzlib/port.ss rename to collects/mzlib/port.rkt diff --git a/collects/mzlib/pregexp.ss b/collects/mzlib/pregexp.rkt similarity index 100% rename from collects/mzlib/pregexp.ss rename to collects/mzlib/pregexp.rkt diff --git a/collects/mzlib/pretty.ss b/collects/mzlib/pretty.rkt similarity index 100% rename from collects/mzlib/pretty.ss rename to collects/mzlib/pretty.rkt diff --git a/collects/mzlib/private/contract-arr-checks.ss b/collects/mzlib/private/contract-arr-checks.rkt similarity index 100% rename from collects/mzlib/private/contract-arr-checks.ss rename to collects/mzlib/private/contract-arr-checks.rkt diff --git a/collects/mzlib/private/contract-arr-obj-helpers.ss b/collects/mzlib/private/contract-arr-obj-helpers.rkt similarity index 100% rename from collects/mzlib/private/contract-arr-obj-helpers.ss rename to collects/mzlib/private/contract-arr-obj-helpers.rkt diff --git a/collects/mzlib/private/contract-arrow.ss b/collects/mzlib/private/contract-arrow.rkt similarity index 100% rename from collects/mzlib/private/contract-arrow.ss rename to collects/mzlib/private/contract-arrow.rkt diff --git a/collects/mzlib/private/contract-define.ss b/collects/mzlib/private/contract-define.rkt similarity index 100% rename from collects/mzlib/private/contract-define.ss rename to collects/mzlib/private/contract-define.rkt diff --git a/collects/mzlib/private/contract-object.ss b/collects/mzlib/private/contract-object.rkt similarity index 100% rename from collects/mzlib/private/contract-object.ss rename to collects/mzlib/private/contract-object.rkt diff --git a/collects/mzlib/private/dmhelp.ss b/collects/mzlib/private/dmhelp.rkt similarity index 100% rename from collects/mzlib/private/dmhelp.ss rename to collects/mzlib/private/dmhelp.rkt diff --git a/collects/mzlib/private/increader.ss b/collects/mzlib/private/increader.rkt similarity index 100% rename from collects/mzlib/private/increader.ss rename to collects/mzlib/private/increader.rkt diff --git a/collects/mzlib/private/info.rkt b/collects/mzlib/private/info.rkt new file mode 100644 index 0000000000..242ce99280 --- /dev/null +++ b/collects/mzlib/private/info.rkt @@ -0,0 +1,3 @@ +#lang setup/infotab + +(define compile-omit-paths '("shared-body.rkt")) diff --git a/collects/mzlib/private/info.ss b/collects/mzlib/private/info.ss deleted file mode 100644 index d0ef083e83..0000000000 --- a/collects/mzlib/private/info.ss +++ /dev/null @@ -1,3 +0,0 @@ -#lang setup/infotab - -(define compile-omit-paths '("shared-body.ss")) diff --git a/collects/mzlib/private/package-helper.ss b/collects/mzlib/private/package-helper.rkt similarity index 100% rename from collects/mzlib/private/package-helper.ss rename to collects/mzlib/private/package-helper.rkt diff --git a/collects/mzlib/private/port.ss b/collects/mzlib/private/port.rkt similarity index 100% rename from collects/mzlib/private/port.ss rename to collects/mzlib/private/port.rkt diff --git a/collects/mzlib/private/runtime-path-table.ss b/collects/mzlib/private/runtime-path-table.rkt similarity index 100% rename from collects/mzlib/private/runtime-path-table.ss rename to collects/mzlib/private/runtime-path-table.rkt diff --git a/collects/mzlib/private/shared-body.ss b/collects/mzlib/private/shared-body.rkt similarity index 100% rename from collects/mzlib/private/shared-body.ss rename to collects/mzlib/private/shared-body.rkt diff --git a/collects/mzlib/private/sigmatch.ss b/collects/mzlib/private/sigmatch.rkt similarity index 100% rename from collects/mzlib/private/sigmatch.ss rename to collects/mzlib/private/sigmatch.rkt diff --git a/collects/mzlib/private/sigutil.ss b/collects/mzlib/private/sigutil.rkt similarity index 100% rename from collects/mzlib/private/sigutil.ss rename to collects/mzlib/private/sigutil.rkt diff --git a/collects/mzlib/private/structure-helper.ss b/collects/mzlib/private/structure-helper.rkt similarity index 100% rename from collects/mzlib/private/structure-helper.ss rename to collects/mzlib/private/structure-helper.rkt diff --git a/collects/mzlib/private/stxparamkey.ss b/collects/mzlib/private/stxparamkey.rkt similarity index 100% rename from collects/mzlib/private/stxparamkey.ss rename to collects/mzlib/private/stxparamkey.rkt diff --git a/collects/mzlib/private/stxset.ss b/collects/mzlib/private/stxset.rkt similarity index 100% rename from collects/mzlib/private/stxset.ss rename to collects/mzlib/private/stxset.rkt diff --git a/collects/mzlib/private/unit-compiletime.ss b/collects/mzlib/private/unit-compiletime.rkt similarity index 100% rename from collects/mzlib/private/unit-compiletime.ss rename to collects/mzlib/private/unit-compiletime.rkt diff --git a/collects/mzlib/private/unit-contract-syntax.ss b/collects/mzlib/private/unit-contract-syntax.rkt similarity index 100% rename from collects/mzlib/private/unit-contract-syntax.ss rename to collects/mzlib/private/unit-contract-syntax.rkt diff --git a/collects/mzlib/private/unit-contract.ss b/collects/mzlib/private/unit-contract.rkt similarity index 100% rename from collects/mzlib/private/unit-contract.ss rename to collects/mzlib/private/unit-contract.rkt diff --git a/collects/mzlib/private/unit-keywords.ss b/collects/mzlib/private/unit-keywords.rkt similarity index 100% rename from collects/mzlib/private/unit-keywords.ss rename to collects/mzlib/private/unit-keywords.rkt diff --git a/collects/mzlib/private/unit-runtime.ss b/collects/mzlib/private/unit-runtime.rkt similarity index 100% rename from collects/mzlib/private/unit-runtime.ss rename to collects/mzlib/private/unit-runtime.rkt diff --git a/collects/mzlib/private/unit-syntax.ss b/collects/mzlib/private/unit-syntax.rkt similarity index 100% rename from collects/mzlib/private/unit-syntax.ss rename to collects/mzlib/private/unit-syntax.rkt diff --git a/collects/mzlib/private/unit-utils.ss b/collects/mzlib/private/unit-utils.rkt similarity index 100% rename from collects/mzlib/private/unit-utils.ss rename to collects/mzlib/private/unit-utils.rkt diff --git a/collects/mzlib/private/unitidmap.ss b/collects/mzlib/private/unitidmap.rkt similarity index 100% rename from collects/mzlib/private/unitidmap.ss rename to collects/mzlib/private/unitidmap.rkt diff --git a/collects/mzlib/process.ss b/collects/mzlib/process.rkt similarity index 100% rename from collects/mzlib/process.ss rename to collects/mzlib/process.rkt diff --git a/collects/mzlib/restart.ss b/collects/mzlib/restart.rkt similarity index 97% rename from collects/mzlib/restart.ss rename to collects/mzlib/restart.rkt index e42ebf7d59..4e1def8adf 100644 --- a/collects/mzlib/restart.ss +++ b/collects/mzlib/restart.rkt @@ -96,7 +96,8 @@ ;(when args (set! rest args)) (let ([n (make-base-empty-namespace)] [argv (if args (list->vector args) (vector))]) - (parameterize ([current-command-line-arguments argv]) + (parameterize ([current-command-line-arguments argv] + [print-as-quasiquote #f]) (thread-wait (thread (lambda () diff --git a/collects/mzlib/runtime-path.ss b/collects/mzlib/runtime-path.rkt similarity index 100% rename from collects/mzlib/runtime-path.ss rename to collects/mzlib/runtime-path.rkt diff --git a/collects/mzlib/sandbox.ss b/collects/mzlib/sandbox.rkt similarity index 100% rename from collects/mzlib/sandbox.ss rename to collects/mzlib/sandbox.rkt diff --git a/collects/mzlib/scribblings/common.ss b/collects/mzlib/scribblings/common.rkt similarity index 100% rename from collects/mzlib/scribblings/common.ss rename to collects/mzlib/scribblings/common.rkt diff --git a/collects/mzlib/scribblings/info.ss b/collects/mzlib/scribblings/info.rkt similarity index 100% rename from collects/mzlib/scribblings/info.ss rename to collects/mzlib/scribblings/info.rkt diff --git a/collects/mzlib/scribblings/match-grammar.ss b/collects/mzlib/scribblings/match-grammar.rkt similarity index 100% rename from collects/mzlib/scribblings/match-grammar.ss rename to collects/mzlib/scribblings/match-grammar.rkt diff --git a/collects/mzlib/sendevent.ss b/collects/mzlib/sendevent.rkt similarity index 100% rename from collects/mzlib/sendevent.ss rename to collects/mzlib/sendevent.rkt diff --git a/collects/mzlib/serialize.ss b/collects/mzlib/serialize.rkt similarity index 100% rename from collects/mzlib/serialize.ss rename to collects/mzlib/serialize.rkt diff --git a/collects/mzlib/shared.ss b/collects/mzlib/shared.rkt similarity index 91% rename from collects/mzlib/shared.ss rename to collects/mzlib/shared.rkt index c49edd48f5..361fc018cc 100644 --- a/collects/mzlib/shared.ss +++ b/collects/mzlib/shared.rkt @@ -16,4 +16,4 @@ (define make-check-cdr #f) ;; Include the implementation. ;; See private/shared-body.ss. - (include "private/shared-body.ss"))) + (include "private/shared-body.rkt"))) diff --git a/collects/mzlib/string.ss b/collects/mzlib/string.rkt similarity index 100% rename from collects/mzlib/string.ss rename to collects/mzlib/string.rkt diff --git a/collects/mzlib/struct.ss b/collects/mzlib/struct.rkt similarity index 100% rename from collects/mzlib/struct.ss rename to collects/mzlib/struct.rkt diff --git a/collects/mzlib/stxparam.ss b/collects/mzlib/stxparam.rkt similarity index 100% rename from collects/mzlib/stxparam.ss rename to collects/mzlib/stxparam.rkt diff --git a/collects/mzlib/surrogate.ss b/collects/mzlib/surrogate.rkt similarity index 100% rename from collects/mzlib/surrogate.ss rename to collects/mzlib/surrogate.rkt diff --git a/collects/mzlib/tar.ss b/collects/mzlib/tar.rkt similarity index 100% rename from collects/mzlib/tar.ss rename to collects/mzlib/tar.rkt diff --git a/collects/mzlib/thread.ss b/collects/mzlib/thread.rkt similarity index 100% rename from collects/mzlib/thread.ss rename to collects/mzlib/thread.rkt diff --git a/collects/mzlib/trace.ss b/collects/mzlib/trace.rkt similarity index 100% rename from collects/mzlib/trace.ss rename to collects/mzlib/trace.rkt diff --git a/collects/mzlib/traceld.ss b/collects/mzlib/traceld.rkt similarity index 100% rename from collects/mzlib/traceld.ss rename to collects/mzlib/traceld.rkt diff --git a/collects/mzlib/trait.ss b/collects/mzlib/trait.rkt similarity index 100% rename from collects/mzlib/trait.ss rename to collects/mzlib/trait.rkt diff --git a/collects/mzlib/transcr.ss b/collects/mzlib/transcr.rkt similarity index 100% rename from collects/mzlib/transcr.ss rename to collects/mzlib/transcr.rkt diff --git a/collects/mzlib/unit-exptime.ss b/collects/mzlib/unit-exptime.rkt similarity index 100% rename from collects/mzlib/unit-exptime.ss rename to collects/mzlib/unit-exptime.rkt diff --git a/collects/mzlib/unit.ss b/collects/mzlib/unit.rkt similarity index 100% rename from collects/mzlib/unit.ss rename to collects/mzlib/unit.rkt diff --git a/collects/mzlib/unit200.ss b/collects/mzlib/unit200.rkt similarity index 100% rename from collects/mzlib/unit200.ss rename to collects/mzlib/unit200.rkt diff --git a/collects/mzlib/unitsig.ss b/collects/mzlib/unitsig.rkt similarity index 100% rename from collects/mzlib/unitsig.ss rename to collects/mzlib/unitsig.rkt diff --git a/collects/mzlib/unitsig200.ss b/collects/mzlib/unitsig200.rkt similarity index 100% rename from collects/mzlib/unitsig200.ss rename to collects/mzlib/unitsig200.rkt diff --git a/collects/mzlib/zip.ss b/collects/mzlib/zip.rkt similarity index 100% rename from collects/mzlib/zip.ss rename to collects/mzlib/zip.rkt diff --git a/collects/mzscheme/examples/cfile.ss b/collects/mzscheme/examples/cfile.rkt similarity index 100% rename from collects/mzscheme/examples/cfile.ss rename to collects/mzscheme/examples/cfile.rkt diff --git a/collects/mzscheme/examples/curses-demo.ss b/collects/mzscheme/examples/curses-demo.rkt similarity index 100% rename from collects/mzscheme/examples/curses-demo.ss rename to collects/mzscheme/examples/curses-demo.rkt diff --git a/collects/mzscheme/examples/fmod-ez.ss b/collects/mzscheme/examples/fmod-ez.rkt similarity index 100% rename from collects/mzscheme/examples/fmod-ez.ss rename to collects/mzscheme/examples/fmod-ez.rkt diff --git a/collects/mzscheme/examples/msgbox.ss b/collects/mzscheme/examples/msgbox.rkt similarity index 100% rename from collects/mzscheme/examples/msgbox.ss rename to collects/mzscheme/examples/msgbox.rkt diff --git a/collects/mzscheme/examples/tree-finish.ss b/collects/mzscheme/examples/tree-finish.rkt similarity index 100% rename from collects/mzscheme/examples/tree-finish.ss rename to collects/mzscheme/examples/tree-finish.rkt diff --git a/collects/mzscheme/info.ss b/collects/mzscheme/info.rkt similarity index 75% rename from collects/mzscheme/info.ss rename to collects/mzscheme/info.rkt index 047b8d23b7..0ec5662c1f 100644 --- a/collects/mzscheme/info.ss +++ b/collects/mzscheme/info.rkt @@ -2,7 +2,7 @@ (define version '(400)) -(define post-install-collection "installer.ss") +(define post-install-collection "installer.rkt") (define scribblings '(("mzscheme.scrbl" (multi-page) (legacy)))) diff --git a/collects/mzscheme/installer.ss b/collects/mzscheme/installer.rkt similarity index 100% rename from collects/mzscheme/installer.ss rename to collects/mzscheme/installer.rkt diff --git a/collects/mzscheme/lang/reader.ss b/collects/mzscheme/lang/reader.rkt similarity index 100% rename from collects/mzscheme/lang/reader.ss rename to collects/mzscheme/lang/reader.rkt diff --git a/collects/mzscheme/main.ss b/collects/mzscheme/main.rkt similarity index 100% rename from collects/mzscheme/main.ss rename to collects/mzscheme/main.rkt diff --git a/collects/net/base64-sig.ss b/collects/net/base64-sig.rkt similarity index 100% rename from collects/net/base64-sig.ss rename to collects/net/base64-sig.rkt diff --git a/collects/net/base64-unit.ss b/collects/net/base64-unit.rkt similarity index 100% rename from collects/net/base64-unit.ss rename to collects/net/base64-unit.rkt diff --git a/collects/net/base64.ss b/collects/net/base64.rkt similarity index 100% rename from collects/net/base64.ss rename to collects/net/base64.rkt diff --git a/collects/net/cgi-sig.ss b/collects/net/cgi-sig.rkt similarity index 100% rename from collects/net/cgi-sig.ss rename to collects/net/cgi-sig.rkt diff --git a/collects/net/cgi-unit.ss b/collects/net/cgi-unit.rkt similarity index 100% rename from collects/net/cgi-unit.ss rename to collects/net/cgi-unit.rkt diff --git a/collects/net/cgi.ss b/collects/net/cgi.rkt similarity index 100% rename from collects/net/cgi.ss rename to collects/net/cgi.rkt diff --git a/collects/net/cookie-sig.ss b/collects/net/cookie-sig.rkt similarity index 100% rename from collects/net/cookie-sig.ss rename to collects/net/cookie-sig.rkt diff --git a/collects/net/cookie-unit.ss b/collects/net/cookie-unit.rkt similarity index 99% rename from collects/net/cookie-unit.ss rename to collects/net/cookie-unit.rkt index 64ff59509b..dd3342410c 100644 --- a/collects/net/cookie-unit.ss +++ b/collects/net/cookie-unit.rkt @@ -255,7 +255,7 @@ ;; appear as a block to be legal, and " may only appear as \" (define (rfc2068:quoted-string? s) (and (regexp-match? - #rx"^\"([^\"#\u0000-#\u001F]| |#\return#\newline|#\tab|\\\\\")*\"$" + #rx"^\"([^\"\u0000-\u001F]| |\r\n|\t|\\\\\")*\"$" s) s)) diff --git a/collects/net/cookie.ss b/collects/net/cookie.rkt similarity index 100% rename from collects/net/cookie.ss rename to collects/net/cookie.rkt diff --git a/collects/net/dns-sig.ss b/collects/net/dns-sig.rkt similarity index 100% rename from collects/net/dns-sig.ss rename to collects/net/dns-sig.rkt diff --git a/collects/net/dns-unit.ss b/collects/net/dns-unit.rkt similarity index 100% rename from collects/net/dns-unit.ss rename to collects/net/dns-unit.rkt diff --git a/collects/net/dns.ss b/collects/net/dns.rkt similarity index 100% rename from collects/net/dns.ss rename to collects/net/dns.rkt diff --git a/collects/net/ftp-sig.ss b/collects/net/ftp-sig.rkt similarity index 100% rename from collects/net/ftp-sig.ss rename to collects/net/ftp-sig.rkt diff --git a/collects/net/ftp-unit.ss b/collects/net/ftp-unit.rkt similarity index 100% rename from collects/net/ftp-unit.ss rename to collects/net/ftp-unit.rkt diff --git a/collects/net/ftp.ss b/collects/net/ftp.rkt similarity index 100% rename from collects/net/ftp.ss rename to collects/net/ftp.rkt diff --git a/collects/net/gifwrite.ss b/collects/net/gifwrite.rkt similarity index 100% rename from collects/net/gifwrite.ss rename to collects/net/gifwrite.rkt diff --git a/collects/net/head-sig.ss b/collects/net/head-sig.rkt similarity index 100% rename from collects/net/head-sig.ss rename to collects/net/head-sig.rkt diff --git a/collects/net/head-unit.ss b/collects/net/head-unit.rkt similarity index 100% rename from collects/net/head-unit.ss rename to collects/net/head-unit.rkt diff --git a/collects/net/head.ss b/collects/net/head.rkt similarity index 100% rename from collects/net/head.ss rename to collects/net/head.rkt diff --git a/collects/net/imap-sig.ss b/collects/net/imap-sig.rkt similarity index 100% rename from collects/net/imap-sig.ss rename to collects/net/imap-sig.rkt diff --git a/collects/net/imap-unit.ss b/collects/net/imap-unit.rkt similarity index 100% rename from collects/net/imap-unit.ss rename to collects/net/imap-unit.rkt diff --git a/collects/net/imap.ss b/collects/net/imap.rkt similarity index 100% rename from collects/net/imap.ss rename to collects/net/imap.rkt diff --git a/collects/net/mime-sig.ss b/collects/net/mime-sig.rkt similarity index 100% rename from collects/net/mime-sig.ss rename to collects/net/mime-sig.rkt diff --git a/collects/net/mime-unit.ss b/collects/net/mime-unit.rkt similarity index 100% rename from collects/net/mime-unit.ss rename to collects/net/mime-unit.rkt diff --git a/collects/net/mime-util.ss b/collects/net/mime-util.rkt similarity index 100% rename from collects/net/mime-util.ss rename to collects/net/mime-util.rkt diff --git a/collects/net/mime.ss b/collects/net/mime.rkt similarity index 100% rename from collects/net/mime.ss rename to collects/net/mime.rkt diff --git a/collects/net/nntp-sig.ss b/collects/net/nntp-sig.rkt similarity index 100% rename from collects/net/nntp-sig.ss rename to collects/net/nntp-sig.rkt diff --git a/collects/net/nntp-unit.ss b/collects/net/nntp-unit.rkt similarity index 100% rename from collects/net/nntp-unit.ss rename to collects/net/nntp-unit.rkt diff --git a/collects/net/nntp.ss b/collects/net/nntp.rkt similarity index 100% rename from collects/net/nntp.ss rename to collects/net/nntp.rkt diff --git a/collects/net/pop3-sig.ss b/collects/net/pop3-sig.rkt similarity index 100% rename from collects/net/pop3-sig.ss rename to collects/net/pop3-sig.rkt diff --git a/collects/net/pop3-unit.ss b/collects/net/pop3-unit.rkt similarity index 100% rename from collects/net/pop3-unit.ss rename to collects/net/pop3-unit.rkt diff --git a/collects/net/pop3.ss b/collects/net/pop3.rkt similarity index 100% rename from collects/net/pop3.ss rename to collects/net/pop3.rkt diff --git a/collects/net/private/rbtree.ss b/collects/net/private/rbtree.rkt similarity index 100% rename from collects/net/private/rbtree.ss rename to collects/net/private/rbtree.rkt diff --git a/collects/net/qp-sig.ss b/collects/net/qp-sig.rkt similarity index 100% rename from collects/net/qp-sig.ss rename to collects/net/qp-sig.rkt diff --git a/collects/net/qp-unit.ss b/collects/net/qp-unit.rkt similarity index 100% rename from collects/net/qp-unit.ss rename to collects/net/qp-unit.rkt diff --git a/collects/net/qp.ss b/collects/net/qp.rkt similarity index 100% rename from collects/net/qp.ss rename to collects/net/qp.rkt diff --git a/collects/net/scribblings/common.ss b/collects/net/scribblings/common.rkt similarity index 100% rename from collects/net/scribblings/common.ss rename to collects/net/scribblings/common.rkt diff --git a/collects/net/scribblings/info.ss b/collects/net/scribblings/info.rkt similarity index 100% rename from collects/net/scribblings/info.ss rename to collects/net/scribblings/info.rkt diff --git a/collects/net/sendmail-sig.ss b/collects/net/sendmail-sig.rkt similarity index 100% rename from collects/net/sendmail-sig.ss rename to collects/net/sendmail-sig.rkt diff --git a/collects/net/sendmail-unit.ss b/collects/net/sendmail-unit.rkt similarity index 100% rename from collects/net/sendmail-unit.ss rename to collects/net/sendmail-unit.rkt diff --git a/collects/net/sendmail.ss b/collects/net/sendmail.rkt similarity index 100% rename from collects/net/sendmail.ss rename to collects/net/sendmail.rkt diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.rkt similarity index 100% rename from collects/net/sendurl.ss rename to collects/net/sendurl.rkt diff --git a/collects/net/smtp-sig.ss b/collects/net/smtp-sig.rkt similarity index 100% rename from collects/net/smtp-sig.ss rename to collects/net/smtp-sig.rkt diff --git a/collects/net/smtp-unit.ss b/collects/net/smtp-unit.rkt similarity index 100% rename from collects/net/smtp-unit.ss rename to collects/net/smtp-unit.rkt diff --git a/collects/net/smtp.ss b/collects/net/smtp.rkt similarity index 100% rename from collects/net/smtp.ss rename to collects/net/smtp.rkt diff --git a/collects/net/ssl-tcp-unit.ss b/collects/net/ssl-tcp-unit.rkt similarity index 100% rename from collects/net/ssl-tcp-unit.ss rename to collects/net/ssl-tcp-unit.rkt diff --git a/collects/net/tcp-redirect.ss b/collects/net/tcp-redirect.rkt similarity index 100% rename from collects/net/tcp-redirect.ss rename to collects/net/tcp-redirect.rkt diff --git a/collects/net/tcp-sig.ss b/collects/net/tcp-sig.rkt similarity index 100% rename from collects/net/tcp-sig.ss rename to collects/net/tcp-sig.rkt diff --git a/collects/net/tcp-unit.ss b/collects/net/tcp-unit.rkt similarity index 100% rename from collects/net/tcp-unit.ss rename to collects/net/tcp-unit.rkt diff --git a/collects/net/unihead.ss b/collects/net/unihead.rkt similarity index 100% rename from collects/net/unihead.ss rename to collects/net/unihead.rkt diff --git a/collects/net/uri-codec-sig.ss b/collects/net/uri-codec-sig.rkt similarity index 100% rename from collects/net/uri-codec-sig.ss rename to collects/net/uri-codec-sig.rkt diff --git a/collects/net/uri-codec-unit.ss b/collects/net/uri-codec-unit.rkt similarity index 100% rename from collects/net/uri-codec-unit.ss rename to collects/net/uri-codec-unit.rkt diff --git a/collects/net/uri-codec.ss b/collects/net/uri-codec.rkt similarity index 100% rename from collects/net/uri-codec.ss rename to collects/net/uri-codec.rkt diff --git a/collects/net/url-sig.ss b/collects/net/url-sig.rkt similarity index 100% rename from collects/net/url-sig.ss rename to collects/net/url-sig.rkt diff --git a/collects/net/url-structs.ss b/collects/net/url-structs.rkt similarity index 100% rename from collects/net/url-structs.ss rename to collects/net/url-structs.rkt diff --git a/collects/net/url-unit.ss b/collects/net/url-unit.rkt similarity index 100% rename from collects/net/url-unit.ss rename to collects/net/url-unit.rkt diff --git a/collects/net/url.ss b/collects/net/url.rkt similarity index 100% rename from collects/net/url.ss rename to collects/net/url.rkt diff --git a/collects/openssl/info.ss b/collects/openssl/info.rkt similarity index 100% rename from collects/openssl/info.ss rename to collects/openssl/info.rkt diff --git a/collects/openssl/main.ss b/collects/openssl/main.rkt similarity index 100% rename from collects/openssl/main.ss rename to collects/openssl/main.rkt diff --git a/collects/openssl/mzssl.ss b/collects/openssl/mzssl.rkt similarity index 100% rename from collects/openssl/mzssl.ss rename to collects/openssl/mzssl.rkt diff --git a/collects/openssl/openssl.ss b/collects/openssl/openssl.rkt similarity index 100% rename from collects/openssl/openssl.ss rename to collects/openssl/openssl.rkt diff --git a/collects/parser-tools/examples/calc.ss b/collects/parser-tools/examples/calc.rkt similarity index 100% rename from collects/parser-tools/examples/calc.ss rename to collects/parser-tools/examples/calc.rkt diff --git a/collects/parser-tools/examples/read.ss b/collects/parser-tools/examples/read.rkt similarity index 100% rename from collects/parser-tools/examples/read.ss rename to collects/parser-tools/examples/read.rkt diff --git a/collects/parser-tools/info.ss b/collects/parser-tools/info.rkt similarity index 100% rename from collects/parser-tools/info.ss rename to collects/parser-tools/info.rkt diff --git a/collects/parser-tools/lex-plt-v200.ss b/collects/parser-tools/lex-plt-v200.rkt similarity index 100% rename from collects/parser-tools/lex-plt-v200.ss rename to collects/parser-tools/lex-plt-v200.rkt diff --git a/collects/parser-tools/lex-sre.ss b/collects/parser-tools/lex-sre.rkt similarity index 100% rename from collects/parser-tools/lex-sre.ss rename to collects/parser-tools/lex-sre.rkt diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.rkt similarity index 100% rename from collects/parser-tools/lex.ss rename to collects/parser-tools/lex.rkt diff --git a/collects/parser-tools/private-lex/actions.ss b/collects/parser-tools/private-lex/actions.rkt similarity index 100% rename from collects/parser-tools/private-lex/actions.ss rename to collects/parser-tools/private-lex/actions.rkt diff --git a/collects/parser-tools/private-lex/deriv.ss b/collects/parser-tools/private-lex/deriv.rkt similarity index 100% rename from collects/parser-tools/private-lex/deriv.ss rename to collects/parser-tools/private-lex/deriv.rkt diff --git a/collects/parser-tools/private-lex/error-tests.ss b/collects/parser-tools/private-lex/error-tests.rkt similarity index 99% rename from collects/parser-tools/private-lex/error-tests.ss rename to collects/parser-tools/private-lex/error-tests.rkt index 337e41e700..88876985aa 100644 --- a/collects/parser-tools/private-lex/error-tests.ss +++ b/collects/parser-tools/private-lex/error-tests.rkt @@ -1,7 +1,7 @@ #lang scheme/base (require (for-syntax scheme/base) "../lex.ss" - schemeunit) + rktunit) (define-syntax (catch-syn-error stx) (syntax-case stx () diff --git a/collects/parser-tools/private-lex/front.ss b/collects/parser-tools/private-lex/front.rkt similarity index 100% rename from collects/parser-tools/private-lex/front.ss rename to collects/parser-tools/private-lex/front.rkt diff --git a/collects/parser-tools/private-lex/re.ss b/collects/parser-tools/private-lex/re.rkt similarity index 100% rename from collects/parser-tools/private-lex/re.ss rename to collects/parser-tools/private-lex/re.rkt diff --git a/collects/parser-tools/private-lex/stx.ss b/collects/parser-tools/private-lex/stx.rkt similarity index 100% rename from collects/parser-tools/private-lex/stx.ss rename to collects/parser-tools/private-lex/stx.rkt diff --git a/collects/parser-tools/private-lex/token-syntax.ss b/collects/parser-tools/private-lex/token-syntax.rkt similarity index 100% rename from collects/parser-tools/private-lex/token-syntax.ss rename to collects/parser-tools/private-lex/token-syntax.rkt diff --git a/collects/parser-tools/private-lex/token.ss b/collects/parser-tools/private-lex/token.rkt similarity index 100% rename from collects/parser-tools/private-lex/token.ss rename to collects/parser-tools/private-lex/token.rkt diff --git a/collects/parser-tools/private-lex/unicode-chars.ss b/collects/parser-tools/private-lex/unicode-chars.rkt similarity index 100% rename from collects/parser-tools/private-lex/unicode-chars.ss rename to collects/parser-tools/private-lex/unicode-chars.rkt diff --git a/collects/parser-tools/private-lex/util.ss b/collects/parser-tools/private-lex/util.rkt similarity index 100% rename from collects/parser-tools/private-lex/util.ss rename to collects/parser-tools/private-lex/util.rkt diff --git a/collects/parser-tools/private-yacc/grammar.ss b/collects/parser-tools/private-yacc/grammar.rkt similarity index 100% rename from collects/parser-tools/private-yacc/grammar.ss rename to collects/parser-tools/private-yacc/grammar.rkt diff --git a/collects/parser-tools/private-yacc/graph.ss b/collects/parser-tools/private-yacc/graph.rkt similarity index 100% rename from collects/parser-tools/private-yacc/graph.ss rename to collects/parser-tools/private-yacc/graph.rkt diff --git a/collects/parser-tools/private-yacc/input-file-parser.ss b/collects/parser-tools/private-yacc/input-file-parser.rkt similarity index 100% rename from collects/parser-tools/private-yacc/input-file-parser.ss rename to collects/parser-tools/private-yacc/input-file-parser.rkt diff --git a/collects/parser-tools/private-yacc/lalr.ss b/collects/parser-tools/private-yacc/lalr.rkt similarity index 100% rename from collects/parser-tools/private-yacc/lalr.ss rename to collects/parser-tools/private-yacc/lalr.rkt diff --git a/collects/parser-tools/private-yacc/lr0.ss b/collects/parser-tools/private-yacc/lr0.rkt similarity index 100% rename from collects/parser-tools/private-yacc/lr0.ss rename to collects/parser-tools/private-yacc/lr0.rkt diff --git a/collects/parser-tools/private-yacc/parser-actions.ss b/collects/parser-tools/private-yacc/parser-actions.rkt similarity index 100% rename from collects/parser-tools/private-yacc/parser-actions.ss rename to collects/parser-tools/private-yacc/parser-actions.rkt diff --git a/collects/parser-tools/private-yacc/parser-builder.ss b/collects/parser-tools/private-yacc/parser-builder.rkt similarity index 100% rename from collects/parser-tools/private-yacc/parser-builder.ss rename to collects/parser-tools/private-yacc/parser-builder.rkt diff --git a/collects/parser-tools/private-yacc/table.ss b/collects/parser-tools/private-yacc/table.rkt similarity index 100% rename from collects/parser-tools/private-yacc/table.ss rename to collects/parser-tools/private-yacc/table.rkt diff --git a/collects/parser-tools/private-yacc/yacc-helper.ss b/collects/parser-tools/private-yacc/yacc-helper.rkt similarity index 100% rename from collects/parser-tools/private-yacc/yacc-helper.ss rename to collects/parser-tools/private-yacc/yacc-helper.rkt diff --git a/collects/parser-tools/yacc-to-scheme.ss b/collects/parser-tools/yacc-to-scheme.rkt similarity index 100% rename from collects/parser-tools/yacc-to-scheme.ss rename to collects/parser-tools/yacc-to-scheme.rkt diff --git a/collects/parser-tools/yacc.ss b/collects/parser-tools/yacc.rkt similarity index 100% rename from collects/parser-tools/yacc.ss rename to collects/parser-tools/yacc.rkt diff --git a/collects/plai/collector.ss b/collects/plai/collector.rkt similarity index 100% rename from collects/plai/collector.ss rename to collects/plai/collector.rkt diff --git a/collects/plai/collector/lang/reader.ss b/collects/plai/collector/lang/reader.rkt similarity index 100% rename from collects/plai/collector/lang/reader.ss rename to collects/plai/collector/lang/reader.rkt diff --git a/collects/plai/datatype.ss b/collects/plai/datatype.rkt similarity index 100% rename from collects/plai/datatype.ss rename to collects/plai/datatype.rkt diff --git a/collects/plai/info.ss b/collects/plai/info.rkt similarity index 100% rename from collects/plai/info.ss rename to collects/plai/info.rkt diff --git a/collects/plai/lang/reader.ss b/collects/plai/lang/reader.rkt similarity index 100% rename from collects/plai/lang/reader.ss rename to collects/plai/lang/reader.rkt diff --git a/collects/plai/main.ss b/collects/plai/main.rkt similarity index 100% rename from collects/plai/main.ss rename to collects/plai/main.rkt diff --git a/collects/plai/mutator.ss b/collects/plai/mutator.rkt similarity index 100% rename from collects/plai/mutator.ss rename to collects/plai/mutator.rkt diff --git a/collects/plai/mutator/lang/reader.ss b/collects/plai/mutator/lang/reader.rkt similarity index 100% rename from collects/plai/mutator/lang/reader.ss rename to collects/plai/mutator/lang/reader.rkt diff --git a/collects/plai/private/collector-exports.ss b/collects/plai/private/collector-exports.rkt similarity index 100% rename from collects/plai/private/collector-exports.ss rename to collects/plai/private/collector-exports.rkt diff --git a/collects/plai/private/command-line.ss b/collects/plai/private/command-line.rkt similarity index 100% rename from collects/plai/private/command-line.ss rename to collects/plai/private/command-line.rkt diff --git a/collects/plai/private/gc-core.ss b/collects/plai/private/gc-core.rkt similarity index 100% rename from collects/plai/private/gc-core.ss rename to collects/plai/private/gc-core.rkt diff --git a/collects/plai/private/gc-gui.ss b/collects/plai/private/gc-gui.rkt similarity index 100% rename from collects/plai/private/gc-gui.ss rename to collects/plai/private/gc-gui.rkt diff --git a/collects/plai/private/gc-transformer.ss b/collects/plai/private/gc-transformer.rkt similarity index 100% rename from collects/plai/private/gc-transformer.ss rename to collects/plai/private/gc-transformer.rkt diff --git a/collects/plai/private/random-mutator.ss b/collects/plai/private/random-mutator.rkt similarity index 100% rename from collects/plai/private/random-mutator.ss rename to collects/plai/private/random-mutator.rkt diff --git a/collects/plai/private/sandbox.ss b/collects/plai/private/sandbox.rkt similarity index 100% rename from collects/plai/private/sandbox.ss rename to collects/plai/private/sandbox.rkt diff --git a/collects/plai/private/test.ss b/collects/plai/private/test.rkt similarity index 100% rename from collects/plai/private/test.ss rename to collects/plai/private/test.rkt diff --git a/collects/plai/random-mutator.ss b/collects/plai/random-mutator.rkt similarity index 100% rename from collects/plai/random-mutator.ss rename to collects/plai/random-mutator.rkt diff --git a/collects/plai/scribblings/fake-collector.ss b/collects/plai/scribblings/fake-collector.rkt similarity index 100% rename from collects/plai/scribblings/fake-collector.ss rename to collects/plai/scribblings/fake-collector.rkt diff --git a/collects/plai/scribblings/fake-mutator.ss b/collects/plai/scribblings/fake-mutator.rkt similarity index 100% rename from collects/plai/scribblings/fake-mutator.ss rename to collects/plai/scribblings/fake-mutator.rkt diff --git a/collects/plai/scribblings/fake-web.ss b/collects/plai/scribblings/fake-web.rkt similarity index 100% rename from collects/plai/scribblings/fake-web.ss rename to collects/plai/scribblings/fake-web.rkt diff --git a/collects/plai/test-harness.ss b/collects/plai/test-harness.rkt similarity index 100% rename from collects/plai/test-harness.ss rename to collects/plai/test-harness.rkt diff --git a/collects/plai/web.ss b/collects/plai/web.rkt similarity index 100% rename from collects/plai/web.ss rename to collects/plai/web.rkt diff --git a/collects/plai/web/lang/reader.ss b/collects/plai/web/lang/reader.rkt similarity index 100% rename from collects/plai/web/lang/reader.ss rename to collects/plai/web/lang/reader.rkt diff --git a/collects/planet/cachepath.ss b/collects/planet/cachepath.rkt similarity index 73% rename from collects/planet/cachepath.ss rename to collects/planet/cachepath.rkt index 1772533f7b..fb83724caf 100644 --- a/collects/planet/cachepath.ss +++ b/collects/planet/cachepath.rkt @@ -1,14 +1,14 @@ (module cachepath mzscheme - (require "config.ss") + (require "config.rkt") (provide get-planet-cache-path) ;; get-planet-cache-path : -> path[absolute, file] - ;; the path to the cache.ss file for the planet installation + ;; the path to the cache.rktd file for the planet installation ;; (n.b. this used to have the side effect of creating the path ;; if it didn't exist, but since this function may be run at ;; setup time and setup-time programs must not create this sort ;; of directory, it doesn't do that anymore) (define (get-planet-cache-path) - (let ((path (build-path (PLANET-DIR) "cache.ss"))) + (let ((path (build-path (PLANET-DIR) "cache.rktd"))) path))) diff --git a/collects/planet/config.ss b/collects/planet/config.rkt similarity index 100% rename from collects/planet/config.ss rename to collects/planet/config.rkt diff --git a/collects/planet/info.ss b/collects/planet/info.rkt similarity index 100% rename from collects/planet/info.ss rename to collects/planet/info.rkt diff --git a/collects/planet/lang/reader.ss b/collects/planet/lang/reader.rkt similarity index 100% rename from collects/planet/lang/reader.ss rename to collects/planet/lang/reader.rkt diff --git a/collects/planet/parsereq.ss b/collects/planet/parsereq.rkt similarity index 100% rename from collects/planet/parsereq.ss rename to collects/planet/parsereq.rkt diff --git a/collects/planet/planet-archives.ss b/collects/planet/planet-archives.rkt similarity index 100% rename from collects/planet/planet-archives.ss rename to collects/planet/planet-archives.rkt diff --git a/collects/planet/planet.ss b/collects/planet/planet.rkt similarity index 98% rename from collects/planet/planet.ss rename to collects/planet/planet.rkt index 2536551d89..6b4c733028 100644 --- a/collects/planet/planet.ss +++ b/collects/planet/planet.rkt @@ -13,10 +13,10 @@ PLANNED FEATURES: mzlib/match raco/command-name - "config.ss" - "private/planet-shared.ss" - "private/command.ss" - "util.ss") + "config.rkt" + "private/planet-shared.rkt" + "private/command.rkt" + "util.rkt") (define erase? (make-parameter #f)) (define displayer (make-parameter (λ () (show-installed-packages)))) @@ -34,7 +34,7 @@ PLANNED FEATURES: ["create" "create a PLaneT archive from a directory" "\nCreate a PLaneT archive in the current directory whose contents are the directory ." #:once-each - [("-f" "--force") ("force a package to be created even if its info.ss file contains" + [("-f" "--force") ("force a package to be created even if its info.rkt file contains" "errors.") (force-package-building? #t)] #:args (path) @@ -42,7 +42,7 @@ PLANNED FEATURES: ["install" "download and install a given package" " Download and install the package that - (require (planet \"file.ss\" ( ))) + (require (planet \"file.rkt\" ( ))) would install" #:args (owner pkg maj min) (begin diff --git a/collects/planet/private/command.ss b/collects/planet/private/command.rkt similarity index 100% rename from collects/planet/private/command.ss rename to collects/planet/private/command.rkt diff --git a/collects/planet/private/data.ss b/collects/planet/private/data.rkt similarity index 100% rename from collects/planet/private/data.ss rename to collects/planet/private/data.rkt diff --git a/collects/planet/private/define-config.ss b/collects/planet/private/define-config.rkt similarity index 100% rename from collects/planet/private/define-config.ss rename to collects/planet/private/define-config.rkt diff --git a/collects/planet/private/linkage.ss b/collects/planet/private/linkage.rkt similarity index 100% rename from collects/planet/private/linkage.ss rename to collects/planet/private/linkage.rkt diff --git a/collects/planet/private/planet-shared.ss b/collects/planet/private/planet-shared.rkt similarity index 100% rename from collects/planet/private/planet-shared.ss rename to collects/planet/private/planet-shared.rkt diff --git a/collects/planet/private/prefix-dispatcher.ss b/collects/planet/private/prefix-dispatcher.rkt similarity index 100% rename from collects/planet/private/prefix-dispatcher.ss rename to collects/planet/private/prefix-dispatcher.rkt diff --git a/collects/planet/private/short-syntax-helpers.ss b/collects/planet/private/short-syntax-helpers.rkt similarity index 100% rename from collects/planet/private/short-syntax-helpers.ss rename to collects/planet/private/short-syntax-helpers.rkt diff --git a/collects/planet/resolver.ss b/collects/planet/resolver.rkt similarity index 100% rename from collects/planet/resolver.ss rename to collects/planet/resolver.rkt diff --git a/collects/planet/terse-info.ss b/collects/planet/terse-info.rkt similarity index 100% rename from collects/planet/terse-info.ss rename to collects/planet/terse-info.rkt diff --git a/collects/planet/util.ss b/collects/planet/util.rkt similarity index 89% rename from collects/planet/util.ss rename to collects/planet/util.rkt index f4cf303d95..7dfaa67844 100644 --- a/collects/planet/util.ss +++ b/collects/planet/util.rkt @@ -1,12 +1,12 @@ #lang scheme -(require "config.ss" - "planet-archives.ss" +(require "config.rkt" + "planet-archives.rkt" - "private/planet-shared.ss" - "private/linkage.ss" + "private/planet-shared.rkt" + "private/linkage.rkt" - "resolver.ss" + "resolver.rkt" net/url xml/xml @@ -129,7 +129,7 @@ ;; erase-metadata : pkg -> void ;; clears out any references to the given package in planet's metadata files -;; (i.e., linkage and info.ss cache; not hard links which are not considered metadata) +;; (i.e., linkage and info.rkt cache; not hard links which are not considered metadata) (define (erase-metadata p) (remove-infodomain-entries (pkg-path p)) (remove-linkage-to! p)) @@ -140,7 +140,7 @@ ;; remove-infodomain-entries : path -> void (define (remove-infodomain-entries path) (let* ([pathbytes (path->bytes path)] - [cache-file (build-path (PLANET-DIR) "cache.ss")]) + [cache-file (build-path (PLANET-DIR) "cache.rktd")]) (when (file-exists? cache-file) (let ([cache-lines (with-input-from-file cache-file read)]) (call-with-output-file cache-file @@ -289,7 +289,7 @@ [_ ((dynamic-require 'scribble/xref 'xref-transfer-info) renderer ci xref)] [ri (send renderer resolve (list doc) (list dest-dir) ci)]) (send renderer set-external-tag-path - "/servlets/doc-search.ss") + "/servlets/doc-search.rkt") (send renderer render (list doc) (list (if multi-page? @@ -304,7 +304,7 @@ (define SCRIBBLE-DOCUMENT-DIR "planet-docs/") ;; scribble-entry? : Any -> Boolean -;; Recognizes valid list entries in info.ss's scribblings field. +;; Recognizes valid list entries in info.rkt's scribblings field. (define scribble-entry? (match-lambda [(or (list (? string?)) @@ -315,14 +315,14 @@ [_ #f])) ;; scribble-flags? : Any -> Boolean -;; Recognizes a list of flags from an info.ss scribblings entry. +;; Recognizes a list of flags from an info.rkt scribblings entry. (define scribble-flags? (match-lambda [(list (? symbol?) ...) #t] [_ #f])) ;; scribble-category : Any -> Boolean -;; Recognizes a category descriptor from an info.ss scribblings entry. +;; Recognizes a category descriptor from an info.rkt scribblings entry. (define scribble-category? (match-lambda [(or (list (? symbol?)) @@ -330,12 +330,12 @@ [_ #f])) ;; scribble-entry-file : ScribbleEntry -> String -;; Produces the filename of an info.ss scribblings entry. +;; Produces the filename of an info.rkt scribblings entry. (define scribble-entry-file (match-lambda [(list file _ ...) file])) ;; scribble-entry-flags : ScribbleEntry -> (Listof Symbol) -;; Produces the list of flags from an info.ss scribblings entry. +;; Produces the list of flags from an info.rkt scribblings entry. (define scribble-entry-flags (match-lambda [(list _) null] @@ -361,16 +361,16 @@ [warnings '()] [critical-errors '()]) - (define info.ss + (define info.rkt (let ([real-info - (check-info.ss-sanity + (check-info.rkt-sanity dir (λ (msg . args) (set! announcements (cons (apply format msg args) announcements))) (λ (bad) (set! warnings (cons bad warnings))) (λ (err) (set! critical-errors (cons err critical-errors))))]) - (or real-info (λ (x [y (λ () (error 'info.ss (format "undefined field: ~a" x)))]) (y))))) + (or real-info (λ (x [y (λ () (error 'info.rkt (format "undefined field: ~a" x)))]) (y))))) - (let ([scribble-files (info.ss 'scribblings (λ () '()))]) + (let ([scribble-files (info.rkt 'scribblings (λ () '()))]) (define (outdir file-str) (let* ([filename (file-name-from-path file-str)] @@ -378,7 +378,7 @@ (build-path SCRIBBLE-DOCUMENT-DIR (bytes->path (cadr pathname))))) (when (and (build-scribble-docs?) - (file-exists? (build-path (collection-path "setup") "scribble.ss"))) + (file-exists? (build-path (collection-path "setup") "scribble.rkt"))) (with-handlers ([exn:fail? (lambda (e) (set! critical-errors @@ -573,61 +573,61 @@ (finished (void)))))) (error 'display-archived-plt-file "The given file was not found in the given package"))) -;; check-info.ss-sanity : path (string -> void) (string -> void) (string -> void) -> info.ss-fn | #f -;; gets all the info.ss fields that planet will use (using the info.ss file +;; check-info.rkt-sanity : path (string -> void) (string -> void) (string -> void) -> info.rkt-fn | #f +;; gets all the info.rkt fields that planet will use (using the info.rkt file ;; from the current directory) and calls the announce, warn, and fail functions with strings -;; that describe how PLaneT sees the info.ss file. NOTA BENE: if this function calls fail, it may +;; that describe how PLaneT sees the info.rkt file. NOTA BENE: if this function calls fail, it may ;; also warn on the same field, and the warning may not make sense. This is based on the ;; assumption that errors will be turned into some kind of critical failure that obliterates ;; all the other information produced. -(define (check-info.ss-sanity dir announce warn fail) +(define (check-info.rkt-sanity dir announce warn fail) (with-handlers ([exn:fail:read? (λ (e) - (fail (format "Package has an unreadable info.ss file. ~a" (render-exn e))) + (fail (format "Package has an unreadable info.rkt file. ~a" (render-exn e))) #f)] [exn:fail:syntax? (λ (e) - (fail (format "Package's info.ss has an syntactically ill-formed info.ss file: ~a" (render-exn e))) + (fail (format "Package's info.rkt has an syntactically ill-formed info.rkt file: ~a" (render-exn e))) #f)]) (let ([i* (get-info/full dir)]) (cond [(not i*) - (warn "Package has no info.ss file. This means it will not have a description or documentation on the PLaneT web site.")] + (warn "Package has no info.rkt file. This means it will not have a description or documentation on the PLaneT web site.")] [else (let ([i (λ (field) (i* field (λ () #f)))]) (checkinfo i fail [name ; field name string? ; check (announce "Name: ~a\n" name) ; success action - (warn "Package's info.ss file has no name field.") ;failure action + (warn "Package's info.rkt file has no name field.") ;failure action ] [blurb (λ (b) (and (list? b) (andmap xexpr? b))) (announce "Package blurb: ~s\n" blurb) (unless blurb - (warn "Package's info.ss does not contain a blurb field. Without a blurb field, the package will have no description on planet.plt-scheme.org."))] + (warn "Package's info.rkt does not contain a blurb field. Without a blurb field, the package will have no description on planet.plt-scheme.org."))] [release-notes (λ (b) (and (list? b) (andmap xexpr? b))) (announce "Release notes: ~s\n" release-notes) (unless release-notes - (warn "Package's info.ss does not contain a release-notes field. Without a release-notes field, the package will not have any listed release information on planet.plt-scheme.org beyond the contents of the blurb field."))] + (warn "Package's info.rkt does not contain a release-notes field. Without a release-notes field, the package will not have any listed release information on planet.plt-scheme.org beyond the contents of the blurb field."))] [categories (λ (s) (and (list? s) (andmap symbol? s))) (cond [(ormap illegal-category categories) => (λ (bad-cat) - (fail (format "Package's info.ss file contains illegal category \"~a\". The legal categories are: ~a\n" + (fail (format "Package's info.rkt file contains illegal category \"~a\". The legal categories are: ~a\n" bad-cat legal-categories)))] [else (announce "Categories: ~a\n" categories)]) (unless categories - (warn "Package's info.ss file does not contain a category listing. It will be placed in the Miscellaneous category."))] + (warn "Package's info.rkt file does not contain a category listing. It will be placed in the Miscellaneous category."))] [doc.txt string? (announce "doc.txt file: ~a\n" doc.txt) (when doc.txt - (warn "Package's info.ss contains a doc.txt entry, which is now considered deprecated. The preferred method of documentation for PLaneT packages is now Scribble (see the Scribble documentation included in the PLT Scheme distribution for more information)."))] + (warn "Package's info.rkt contains a doc.txt entry, which is now considered deprecated. The preferred method of documentation for PLaneT packages is now Scribble (see the Scribble documentation included in the PLT Scheme distribution for more information)."))] [html-docs (lambda (s) (and (list? s) (andmap string? s))) (warn "Package specifies an html-docs entry. The preferred method of documentation for PLaneT packages is now Scribble (see the Scribble documentation included in the PLT Scheme distribution for more information).")] @@ -644,23 +644,23 @@ [(url-string? homepage) (announce "Home page: ~a\n" homepage)] [else - (fail (format "The value of the package's info.ss homepage field, ~s, does not appear to be a legal URL." homepage))])] + (fail (format "The value of the package's info.rkt homepage field, ~s, does not appear to be a legal URL." homepage))])] [primary-file (λ (x) (or (string? x) (and (list? x) (andmap string? x)))) (begin (cond [(string? primary-file) (unless (file-in-current-directory? primary-file) - (warn (format "Package's info.ss primary-file field is ~s, a file that does not exist in the package." + (warn (format "Package's info.rkt primary-file field is ~s, a file that does not exist in the package." primary-file)))] [(pair? primary-file) (let ([bad-files (filter (λ (f) (not (file-in-current-directory? f))) primary-file)]) (unless (null? bad-files) - (warn (format "Package's info.ss primary-file field is ~s, which contains non-existant files ~s." + (warn (format "Package's info.rkt primary-file field is ~s, which contains non-existant files ~s." primary-file bad-files))))]) (announce "Primary file: ~a\n" primary-file)) (unless primary-file - (warn "Package's info.ss does not contain a primary-file field. The package's listing on planet.plt-scheme.org will not have a valid require line for your package."))] + (warn "Package's info.rkt does not contain a primary-file field. The package's listing on planet.plt-scheme.org will not have a valid require line for your package."))] [required-core-version core-version? (announce "Required mzscheme version: ~a\n" required-core-version)] @@ -668,7 +668,7 @@ (λ (x) (and (list? x) (srfi1:lset<= equal? x '("3xx" "4.x")))) (announce "Repositories: ~s\n" repositories) - (warn "Package's info.ss does not contain a repositories field. The package will be listed in all repositories by default.")] + (warn "Package's info.rkt does not contain a repositories field. The package will be listed in all repositories by default.")] [version string? (announce "Version description: ~a\n" version)]))]) @@ -715,7 +715,7 @@ (string->mz-version s))) ;; checkinfo: syntax -;; given an info.ss function, a failure function, and a bunch of fields to check, +;; given an info.rkt function, a failure function, and a bunch of fields to check, ;; goes through the checklist calling either the success or the failure branch ;; of each check as appropriate (define-syntax checkinfo @@ -739,7 +739,7 @@ (let ([checked (check id)]) (unless checked on-fail - (fail (format "Package's info.ss contained a malformed ~a field." 'id))) + (fail (format "Package's info.rkt contained a malformed ~a field." 'id))) on-success)] [else on-fail]))) fn fail clauses ...)])) diff --git a/collects/plot/demos/demo-1.ss b/collects/plot/demos/demo-1.rkt similarity index 100% rename from collects/plot/demos/demo-1.ss rename to collects/plot/demos/demo-1.rkt diff --git a/collects/plot/demos/demo-10.ss b/collects/plot/demos/demo-10.rkt similarity index 100% rename from collects/plot/demos/demo-10.ss rename to collects/plot/demos/demo-10.rkt diff --git a/collects/plot/demos/demo-2.ss b/collects/plot/demos/demo-2.rkt similarity index 100% rename from collects/plot/demos/demo-2.ss rename to collects/plot/demos/demo-2.rkt diff --git a/collects/plot/demos/demo-3.ss b/collects/plot/demos/demo-3.rkt similarity index 100% rename from collects/plot/demos/demo-3.ss rename to collects/plot/demos/demo-3.rkt diff --git a/collects/plot/demos/demo-4.ss b/collects/plot/demos/demo-4.rkt similarity index 100% rename from collects/plot/demos/demo-4.ss rename to collects/plot/demos/demo-4.rkt diff --git a/collects/plot/demos/demo-5.ss b/collects/plot/demos/demo-5.rkt similarity index 100% rename from collects/plot/demos/demo-5.ss rename to collects/plot/demos/demo-5.rkt diff --git a/collects/plot/demos/demo-6.ss b/collects/plot/demos/demo-6.rkt similarity index 100% rename from collects/plot/demos/demo-6.ss rename to collects/plot/demos/demo-6.rkt diff --git a/collects/plot/demos/demo-7.ss b/collects/plot/demos/demo-7.rkt similarity index 100% rename from collects/plot/demos/demo-7.ss rename to collects/plot/demos/demo-7.rkt diff --git a/collects/plot/demos/demo-8.ss b/collects/plot/demos/demo-8.rkt similarity index 100% rename from collects/plot/demos/demo-8.ss rename to collects/plot/demos/demo-8.rkt diff --git a/collects/plot/demos/fit-demo-1.ss b/collects/plot/demos/fit-demo-1.rkt similarity index 100% rename from collects/plot/demos/fit-demo-1.ss rename to collects/plot/demos/fit-demo-1.rkt diff --git a/collects/plot/demos/fit-demo-2.ss b/collects/plot/demos/fit-demo-2.rkt similarity index 100% rename from collects/plot/demos/fit-demo-2.ss rename to collects/plot/demos/fit-demo-2.rkt diff --git a/collects/plot/extend.ss b/collects/plot/extend.rkt similarity index 100% rename from collects/plot/extend.ss rename to collects/plot/extend.rkt diff --git a/collects/plot/fit-low-level.ss b/collects/plot/fit-low-level.rkt similarity index 100% rename from collects/plot/fit-low-level.ss rename to collects/plot/fit-low-level.rkt diff --git a/collects/plot/fit.ss b/collects/plot/fit.rkt similarity index 100% rename from collects/plot/fit.ss rename to collects/plot/fit.rkt diff --git a/collects/plot/info.ss b/collects/plot/info.rkt similarity index 71% rename from collects/plot/info.ss rename to collects/plot/info.rkt index 1b657cf9f9..3e04e6ed0d 100644 --- a/collects/plot/info.ss +++ b/collects/plot/info.rkt @@ -1,6 +1,6 @@ #lang setup/infotab -(define pre-install-collection "pre-installer.ss") +(define pre-install-collection "pre-installer.rkt") (define scribblings '(("plot.scrbl" (multi-page) (gui-library 50)))) diff --git a/collects/plot/main.ss b/collects/plot/main.rkt similarity index 100% rename from collects/plot/main.ss rename to collects/plot/main.rkt diff --git a/collects/plot/math.ss b/collects/plot/math.rkt similarity index 100% rename from collects/plot/math.ss rename to collects/plot/math.rkt diff --git a/collects/plot/plot-extend.ss b/collects/plot/plot-extend.rkt similarity index 100% rename from collects/plot/plot-extend.ss rename to collects/plot/plot-extend.rkt diff --git a/collects/plot/plot.ss b/collects/plot/plot.rkt similarity index 100% rename from collects/plot/plot.ss rename to collects/plot/plot.rkt diff --git a/collects/plot/plplot.ss b/collects/plot/plplot.rkt similarity index 100% rename from collects/plot/plplot.ss rename to collects/plot/plplot.rkt diff --git a/collects/plot/pre-installer.ss b/collects/plot/pre-installer.rkt similarity index 100% rename from collects/plot/pre-installer.ss rename to collects/plot/pre-installer.rkt diff --git a/collects/plot/renderer-helpers.ss b/collects/plot/renderer-helpers.rkt similarity index 100% rename from collects/plot/renderer-helpers.ss rename to collects/plot/renderer-helpers.rkt diff --git a/collects/plot/renderers.ss b/collects/plot/renderers.rkt similarity index 100% rename from collects/plot/renderers.ss rename to collects/plot/renderers.rkt diff --git a/collects/plot/view.ss b/collects/plot/view.rkt similarity index 100% rename from collects/plot/view.ss rename to collects/plot/view.rkt diff --git a/collects/preprocessor/info.ss b/collects/preprocessor/info.rkt similarity index 100% rename from collects/preprocessor/info.ss rename to collects/preprocessor/info.rkt diff --git a/collects/preprocessor/mzpp-run.ss b/collects/preprocessor/mzpp-run.rkt similarity index 100% rename from collects/preprocessor/mzpp-run.ss rename to collects/preprocessor/mzpp-run.rkt diff --git a/collects/preprocessor/mzpp.ss b/collects/preprocessor/mzpp.rkt similarity index 100% rename from collects/preprocessor/mzpp.ss rename to collects/preprocessor/mzpp.rkt diff --git a/collects/preprocessor/mztext-run.ss b/collects/preprocessor/mztext-run.rkt similarity index 100% rename from collects/preprocessor/mztext-run.ss rename to collects/preprocessor/mztext-run.rkt diff --git a/collects/preprocessor/mztext.ss b/collects/preprocessor/mztext.rkt similarity index 100% rename from collects/preprocessor/mztext.ss rename to collects/preprocessor/mztext.rkt diff --git a/collects/preprocessor/pp-run.ss b/collects/preprocessor/pp-run.rkt similarity index 100% rename from collects/preprocessor/pp-run.ss rename to collects/preprocessor/pp-run.rkt diff --git a/collects/preprocessor/pp-utils.ss b/collects/preprocessor/pp-utils.rkt similarity index 100% rename from collects/preprocessor/pp-utils.ss rename to collects/preprocessor/pp-utils.rkt diff --git a/collects/profile/analyzer.ss b/collects/profile/analyzer.rkt similarity index 100% rename from collects/profile/analyzer.ss rename to collects/profile/analyzer.rkt diff --git a/collects/profile/main.ss b/collects/profile/main.rkt similarity index 100% rename from collects/profile/main.ss rename to collects/profile/main.rkt diff --git a/collects/profile/render-graphviz.ss b/collects/profile/render-graphviz.rkt similarity index 100% rename from collects/profile/render-graphviz.ss rename to collects/profile/render-graphviz.rkt diff --git a/collects/profile/render-text.ss b/collects/profile/render-text.rkt similarity index 100% rename from collects/profile/render-text.ss rename to collects/profile/render-text.rkt diff --git a/collects/profile/sampler.ss b/collects/profile/sampler.rkt similarity index 100% rename from collects/profile/sampler.ss rename to collects/profile/sampler.rkt diff --git a/collects/profile/scribblings/info.ss b/collects/profile/scribblings/info.rkt similarity index 100% rename from collects/profile/scribblings/info.ss rename to collects/profile/scribblings/info.rkt diff --git a/collects/profile/structs.ss b/collects/profile/structs.rkt similarity index 100% rename from collects/profile/structs.ss rename to collects/profile/structs.rkt diff --git a/collects/profile/utils.ss b/collects/profile/utils.rkt similarity index 100% rename from collects/profile/utils.ss rename to collects/profile/utils.rkt diff --git a/collects/r5rs/info.ss b/collects/r5rs/info.rkt similarity index 100% rename from collects/r5rs/info.ss rename to collects/r5rs/info.rkt diff --git a/collects/r5rs/init.ss b/collects/r5rs/init.rkt similarity index 100% rename from collects/r5rs/init.ss rename to collects/r5rs/init.rkt diff --git a/collects/r5rs/lang.ss b/collects/r5rs/lang.rkt similarity index 100% rename from collects/r5rs/lang.ss rename to collects/r5rs/lang.rkt diff --git a/collects/r5rs/lang/reader.ss b/collects/r5rs/lang/reader.rkt similarity index 100% rename from collects/r5rs/lang/reader.ss rename to collects/r5rs/lang/reader.rkt diff --git a/collects/r5rs/main.ss b/collects/r5rs/main.rkt similarity index 100% rename from collects/r5rs/main.ss rename to collects/r5rs/main.rkt diff --git a/collects/r5rs/private/r5rs-trans.ss b/collects/r5rs/private/r5rs-trans.rkt similarity index 100% rename from collects/r5rs/private/r5rs-trans.ss rename to collects/r5rs/private/r5rs-trans.rkt diff --git a/collects/r5rs/r5rs.ss b/collects/r5rs/r5rs.rkt similarity index 100% rename from collects/r5rs/r5rs.ss rename to collects/r5rs/r5rs.rkt diff --git a/collects/r5rs/run.ss b/collects/r5rs/run.rkt similarity index 100% rename from collects/r5rs/run.ss rename to collects/r5rs/run.rkt diff --git a/collects/r6rs/info.ss b/collects/r6rs/info.rkt similarity index 100% rename from collects/r6rs/info.ss rename to collects/r6rs/info.rkt diff --git a/collects/r6rs/lang/reader.ss b/collects/r6rs/lang/reader.rkt similarity index 68% rename from collects/r6rs/lang/reader.ss rename to collects/r6rs/lang/reader.rkt index e055f3af5d..559dfe7c5e 100644 --- a/collects/r6rs/lang/reader.ss +++ b/collects/r6rs/lang/reader.rkt @@ -3,5 +3,6 @@ r6rs #:wrapper1 with-r6rs-reader-parameters +#:language-info '#(scheme/language-info get-info #f) (require "../private/readtable.ss") diff --git a/collects/r6rs/main.ss b/collects/r6rs/main.rkt similarity index 100% rename from collects/r6rs/main.ss rename to collects/r6rs/main.rkt diff --git a/collects/r6rs/private/base-for-syntax.ss b/collects/r6rs/private/base-for-syntax.rkt similarity index 100% rename from collects/r6rs/private/base-for-syntax.ss rename to collects/r6rs/private/base-for-syntax.rkt diff --git a/collects/r6rs/private/check-pattern.ss b/collects/r6rs/private/check-pattern.rkt similarity index 100% rename from collects/r6rs/private/check-pattern.ss rename to collects/r6rs/private/check-pattern.rkt diff --git a/collects/r6rs/private/conds.ss b/collects/r6rs/private/conds.rkt similarity index 100% rename from collects/r6rs/private/conds.ss rename to collects/r6rs/private/conds.rkt diff --git a/collects/r6rs/private/encode-name.ss b/collects/r6rs/private/encode-name.rkt similarity index 100% rename from collects/r6rs/private/encode-name.ss rename to collects/r6rs/private/encode-name.rkt diff --git a/collects/r6rs/private/exns.ss b/collects/r6rs/private/exns.rkt similarity index 100% rename from collects/r6rs/private/exns.ss rename to collects/r6rs/private/exns.rkt diff --git a/collects/r6rs/private/find-version.ss b/collects/r6rs/private/find-version.rkt similarity index 100% rename from collects/r6rs/private/find-version.ss rename to collects/r6rs/private/find-version.rkt diff --git a/collects/r6rs/private/identifier-syntax.ss b/collects/r6rs/private/identifier-syntax.rkt similarity index 100% rename from collects/r6rs/private/identifier-syntax.ss rename to collects/r6rs/private/identifier-syntax.rkt diff --git a/collects/r6rs/private/inline-rules.ss b/collects/r6rs/private/inline-rules.rkt similarity index 100% rename from collects/r6rs/private/inline-rules.ss rename to collects/r6rs/private/inline-rules.rkt diff --git a/collects/r6rs/private/io-conds.ss b/collects/r6rs/private/io-conds.rkt similarity index 100% rename from collects/r6rs/private/io-conds.ss rename to collects/r6rs/private/io-conds.rkt diff --git a/collects/r6rs/private/no-set.ss b/collects/r6rs/private/no-set.rkt similarity index 100% rename from collects/r6rs/private/no-set.ss rename to collects/r6rs/private/no-set.rkt diff --git a/collects/r6rs/private/num-inline.ss b/collects/r6rs/private/num-inline.rkt similarity index 100% rename from collects/r6rs/private/num-inline.ss rename to collects/r6rs/private/num-inline.rkt diff --git a/collects/r6rs/private/parse-ref.ss b/collects/r6rs/private/parse-ref.rkt similarity index 100% rename from collects/r6rs/private/parse-ref.ss rename to collects/r6rs/private/parse-ref.rkt diff --git a/collects/r6rs/private/ports.ss b/collects/r6rs/private/ports.rkt similarity index 99% rename from collects/r6rs/private/ports.ss rename to collects/r6rs/private/ports.rkt index 1849237864..1afde1a9d9 100644 --- a/collects/r6rs/private/ports.ss +++ b/collects/r6rs/private/ports.rkt @@ -1044,7 +1044,7 @@ (display " " p) (display b p))) (display ")" p)))]))]) - (pretty-print v port))) + (pretty-write v port))) ;; ---------------------------------------- diff --git a/collects/r6rs/private/prelims.ss b/collects/r6rs/private/prelims.rkt similarity index 100% rename from collects/r6rs/private/prelims.ss rename to collects/r6rs/private/prelims.rkt diff --git a/collects/r6rs/private/qq-gen.ss b/collects/r6rs/private/qq-gen.rkt similarity index 100% rename from collects/r6rs/private/qq-gen.ss rename to collects/r6rs/private/qq-gen.rkt diff --git a/collects/r6rs/private/readtable.ss b/collects/r6rs/private/readtable.rkt similarity index 100% rename from collects/r6rs/private/readtable.ss rename to collects/r6rs/private/readtable.rkt diff --git a/collects/r6rs/private/reconstruct.ss b/collects/r6rs/private/reconstruct.rkt similarity index 100% rename from collects/r6rs/private/reconstruct.ss rename to collects/r6rs/private/reconstruct.rkt diff --git a/collects/r6rs/private/records-core.ss b/collects/r6rs/private/records-core.rkt similarity index 100% rename from collects/r6rs/private/records-core.ss rename to collects/r6rs/private/records-core.rkt diff --git a/collects/r6rs/private/records-explicit.ss b/collects/r6rs/private/records-explicit.rkt similarity index 100% rename from collects/r6rs/private/records-explicit.ss rename to collects/r6rs/private/records-explicit.rkt diff --git a/collects/r6rs/private/vector-types.ss b/collects/r6rs/private/vector-types.rkt similarity index 100% rename from collects/r6rs/private/vector-types.ss rename to collects/r6rs/private/vector-types.rkt diff --git a/collects/r6rs/run.ss b/collects/r6rs/run.rkt similarity index 100% rename from collects/r6rs/run.ss rename to collects/r6rs/run.rkt diff --git a/collects/racket/base/lang/reader.ss b/collects/racket/base/lang/reader.rkt similarity index 100% rename from collects/racket/base/lang/reader.ss rename to collects/racket/base/lang/reader.rkt diff --git a/collects/racket/cmdline.rkt b/collects/racket/cmdline.rkt index a61b387735..2c0371802c 100644 --- a/collects/racket/cmdline.rkt +++ b/collects/racket/cmdline.rkt @@ -1,6 +1,9 @@ -#lang scheme/base +#lang racket/base -(require (for-syntax scheme/base)) +;; Minimize imports here, because `raco setup' has to load this file +;; and its dependencies from source + +(require (for-syntax racket/base)) (provide command-line parse-command-line) diff --git a/collects/racket/contract/base.ss b/collects/racket/contract/base.rkt similarity index 100% rename from collects/racket/contract/base.ss rename to collects/racket/contract/base.rkt diff --git a/collects/racket/contract/exists.ss b/collects/racket/contract/exists.rkt similarity index 100% rename from collects/racket/contract/exists.ss rename to collects/racket/contract/exists.rkt diff --git a/collects/racket/contract/private/arrow.ss b/collects/racket/contract/private/arrow.rkt similarity index 100% rename from collects/racket/contract/private/arrow.ss rename to collects/racket/contract/private/arrow.rkt diff --git a/collects/racket/contract/private/base.ss b/collects/racket/contract/private/base.rkt similarity index 86% rename from collects/racket/contract/private/base.ss rename to collects/racket/contract/private/base.rkt index 293b66f0a1..14f71a3b04 100644 --- a/collects/racket/contract/private/base.ss +++ b/collects/racket/contract/private/base.rkt @@ -27,21 +27,21 @@ improve method arity mismatch contract violation error messages? (syntax-case stx () [(_ c v pos neg name loc) (syntax/loc stx - (apply-contract c v pos neg name loc))] + (apply-contract c v pos neg name loc (current-contract-region)))] [(_ c v pos neg) (syntax/loc stx - (apply-contract c v pos neg #f (build-source-location #f)))] + (apply-contract c v pos neg #f (build-source-location #f) (current-contract-region)))] [(_ c v pos neg src) (raise-syntax-error 'contract (string-append "please update contract application to new protocol " "(either 4 or 6 arguments)"))])) -(define (apply-contract c v pos neg name loc) +(define (apply-contract c v pos neg name loc usr) (let* ([c (coerce-contract 'contract c)]) (check-source-location! 'contract loc) (((contract-projection c) - (make-blame loc name (contract-name c) pos neg #t)) + (make-blame loc name (contract-name c) pos neg usr #t)) v))) (define-syntax (recursive-contract stx) diff --git a/collects/racket/contract/private/basic-opters.ss b/collects/racket/contract/private/basic-opters.rkt similarity index 100% rename from collects/racket/contract/private/basic-opters.ss rename to collects/racket/contract/private/basic-opters.rkt diff --git a/collects/racket/contract/private/blame.ss b/collects/racket/contract/private/blame.rkt similarity index 88% rename from collects/racket/contract/private/blame.ss rename to collects/racket/contract/private/blame.rkt index a0311aa122..5e6f106965 100644 --- a/collects/racket/contract/private/blame.ss +++ b/collects/racket/contract/private/blame.rkt @@ -34,7 +34,7 @@ (hash/recur (blame-original? b)))) (define-struct blame - [source value contract positive negative original?] + [source value contract positive negative user original?] #:property prop:equal+hash (list blame=? blame-hash blame-hash)) @@ -64,12 +64,17 @@ [contract-message (show/write (blame-contract b))] [value-message (if (blame-value b) (format " on ~a" (show/display (blame-value b))) - "")]) - (format "~a~a broke the contract ~a~a; ~a" + "")] + [user-message (if (or (blame-original? b) + (equal? (blame-positive b) (blame-user b))) + "" + (format " given to ~a" (show/display (blame-user b))))]) + (format "~a~a broke the contract ~a~a~a; ~a" source-message positive-message contract-message value-message + user-message custom-message))) (define ((show f) v) diff --git a/collects/racket/contract/private/ds-helpers.ss b/collects/racket/contract/private/ds-helpers.rkt similarity index 100% rename from collects/racket/contract/private/ds-helpers.ss rename to collects/racket/contract/private/ds-helpers.rkt diff --git a/collects/racket/contract/private/ds.ss b/collects/racket/contract/private/ds.rkt similarity index 100% rename from collects/racket/contract/private/ds.ss rename to collects/racket/contract/private/ds.rkt diff --git a/collects/racket/contract/private/guts.ss b/collects/racket/contract/private/guts.rkt similarity index 100% rename from collects/racket/contract/private/guts.ss rename to collects/racket/contract/private/guts.rkt diff --git a/collects/racket/contract/private/helpers.ss b/collects/racket/contract/private/helpers.rkt similarity index 100% rename from collects/racket/contract/private/helpers.ss rename to collects/racket/contract/private/helpers.rkt diff --git a/collects/racket/contract/private/legacy.ss b/collects/racket/contract/private/legacy.rkt similarity index 97% rename from collects/racket/contract/private/legacy.ss rename to collects/racket/contract/private/legacy.rkt index 5b80fbbe46..d912b62e41 100644 --- a/collects/racket/contract/private/legacy.ss +++ b/collects/racket/contract/private/legacy.rkt @@ -21,7 +21,8 @@ name (unpack-blame pos) "<>" - #t) + #t + name) x fmt args)) @@ -58,7 +59,8 @@ name (unpack-blame (if original? pos neg)) (unpack-blame (if original? neg pos)) - original?))))) + original? + name))))) (define (legacy-property name) (define-values [ prop pred get ] diff --git a/collects/racket/contract/private/misc.ss b/collects/racket/contract/private/misc.rkt similarity index 100% rename from collects/racket/contract/private/misc.ss rename to collects/racket/contract/private/misc.rkt diff --git a/collects/racket/contract/private/object.ss b/collects/racket/contract/private/object.rkt similarity index 100% rename from collects/racket/contract/private/object.ss rename to collects/racket/contract/private/object.rkt diff --git a/collects/racket/contract/private/opt-guts.ss b/collects/racket/contract/private/opt-guts.rkt similarity index 100% rename from collects/racket/contract/private/opt-guts.ss rename to collects/racket/contract/private/opt-guts.rkt diff --git a/collects/racket/contract/private/opt.ss b/collects/racket/contract/private/opt.rkt similarity index 100% rename from collects/racket/contract/private/opt.ss rename to collects/racket/contract/private/opt.rkt diff --git a/collects/racket/contract/private/prop.ss b/collects/racket/contract/private/prop.rkt similarity index 100% rename from collects/racket/contract/private/prop.ss rename to collects/racket/contract/private/prop.rkt diff --git a/collects/racket/contract/private/provide.ss b/collects/racket/contract/private/provide.rkt similarity index 100% rename from collects/racket/contract/private/provide.ss rename to collects/racket/contract/private/provide.rkt diff --git a/collects/racket/contract/regions.ss b/collects/racket/contract/regions.rkt similarity index 100% rename from collects/racket/contract/regions.ss rename to collects/racket/contract/regions.rkt diff --git a/collects/racket/file.rkt b/collects/racket/file.rkt index 522b93f167..a1430bd8f4 100644 --- a/collects/racket/file.rkt +++ b/collects/racket/file.rkt @@ -149,9 +149,23 @@ ;; race condition, but something has gone really wrong ;; if the file disappears. f - ;; Error here bails out through above `with-handlers' - (build-path (collection-path "defaults") - "plt-prefs.ss"))))] + ;; Look for old PLT Scheme pref file: + (let ([alt-f (case (system-type) + [(windows) + (build-path (find-system-path 'pref-dir) + 'up "PLT Scheme" "plt-prefs.ss")] + [(macosx) + (build-path (find-system-path 'pref-dir) + "org.plt-scheme.prefs.ss")] + [(unix) + (expand-user-path "~/.plt-scheme/plt-prefs.ss")])]) + (if (file-exists? alt-f) + alt-f + ;; Last chance: check for a "defaults" collection: + ;; (error here in case there's no "defaults" + ;; bails out through above `with-handlers') + (build-path (collection-path "defaults") + "racket-prefs.rktd"))))))] [prefs (with-pref-params (lambda () (with-input-from-file pref-file read)))]) diff --git a/collects/racket/gui/info.rkt b/collects/racket/gui/info.rkt new file mode 100644 index 0000000000..b86b2b0ff9 --- /dev/null +++ b/collects/racket/gui/info.rkt @@ -0,0 +1,3 @@ +#lang setup/infotab + +(define post-install-collection "installer.rkt") diff --git a/collects/racket/gui/info.ss b/collects/racket/gui/info.ss deleted file mode 100644 index d7e366323d..0000000000 --- a/collects/racket/gui/info.ss +++ /dev/null @@ -1,3 +0,0 @@ -#lang setup/infotab - -(define post-install-collection "installer.ss") diff --git a/collects/racket/gui/installer.ss b/collects/racket/gui/installer.rkt similarity index 100% rename from collects/racket/gui/installer.ss rename to collects/racket/gui/installer.rkt diff --git a/collects/racket/gui/lang/reader.ss b/collects/racket/gui/lang/reader.rkt similarity index 100% rename from collects/racket/gui/lang/reader.ss rename to collects/racket/gui/lang/reader.rkt diff --git a/collects/racket/lang/reader.ss b/collects/racket/lang/reader.rkt similarity index 100% rename from collects/racket/lang/reader.ss rename to collects/racket/lang/reader.rkt diff --git a/collects/racket/load/lang/reader.rkt b/collects/racket/load/lang/reader.rkt new file mode 100644 index 0000000000..6bd1e2d149 --- /dev/null +++ b/collects/racket/load/lang/reader.rkt @@ -0,0 +1,4 @@ +#lang s-exp syntax/module-reader +racket/load + +#:language-info '#(racket/language-info get-info #f) diff --git a/collects/racket/match/compiler.ss b/collects/racket/match/compiler.rkt similarity index 100% rename from collects/racket/match/compiler.ss rename to collects/racket/match/compiler.rkt diff --git a/collects/racket/match/define-forms.ss b/collects/racket/match/define-forms.rkt similarity index 100% rename from collects/racket/match/define-forms.ss rename to collects/racket/match/define-forms.rkt diff --git a/collects/racket/match/gen-match.ss b/collects/racket/match/gen-match.rkt similarity index 100% rename from collects/racket/match/gen-match.ss rename to collects/racket/match/gen-match.rkt diff --git a/collects/racket/match/legacy-match.ss b/collects/racket/match/legacy-match.rkt similarity index 100% rename from collects/racket/match/legacy-match.ss rename to collects/racket/match/legacy-match.rkt diff --git a/collects/racket/match/match-expander.ss b/collects/racket/match/match-expander.rkt similarity index 100% rename from collects/racket/match/match-expander.ss rename to collects/racket/match/match-expander.rkt diff --git a/collects/racket/match/match.ss b/collects/racket/match/match.rkt similarity index 100% rename from collects/racket/match/match.ss rename to collects/racket/match/match.rkt diff --git a/collects/racket/match/parse-helper.ss b/collects/racket/match/parse-helper.rkt similarity index 100% rename from collects/racket/match/parse-helper.ss rename to collects/racket/match/parse-helper.rkt diff --git a/collects/racket/match/parse-legacy.ss b/collects/racket/match/parse-legacy.rkt similarity index 100% rename from collects/racket/match/parse-legacy.ss rename to collects/racket/match/parse-legacy.rkt diff --git a/collects/racket/match/parse-quasi.ss b/collects/racket/match/parse-quasi.rkt similarity index 100% rename from collects/racket/match/parse-quasi.ss rename to collects/racket/match/parse-quasi.rkt diff --git a/collects/racket/match/parse.ss b/collects/racket/match/parse.rkt similarity index 100% rename from collects/racket/match/parse.ss rename to collects/racket/match/parse.rkt diff --git a/collects/racket/match/patterns.ss b/collects/racket/match/patterns.rkt similarity index 100% rename from collects/racket/match/patterns.ss rename to collects/racket/match/patterns.rkt diff --git a/collects/racket/match/reorder.ss b/collects/racket/match/reorder.rkt similarity index 100% rename from collects/racket/match/reorder.ss rename to collects/racket/match/reorder.rkt diff --git a/collects/racket/match/runtime.ss b/collects/racket/match/runtime.rkt similarity index 100% rename from collects/racket/match/runtime.ss rename to collects/racket/match/runtime.rkt diff --git a/collects/racket/match/split-rows.ss b/collects/racket/match/split-rows.rkt similarity index 100% rename from collects/racket/match/split-rows.ss rename to collects/racket/match/split-rows.rkt diff --git a/collects/racket/match/struct.ss b/collects/racket/match/struct.rkt similarity index 100% rename from collects/racket/match/struct.ss rename to collects/racket/match/struct.rkt diff --git a/collects/racket/pretty.rkt b/collects/racket/pretty.rkt index b290856004..cab3c20b88 100644 --- a/collects/racket/pretty.rkt +++ b/collects/racket/pretty.rkt @@ -877,12 +877,16 @@ (expr-found pport graph-ref)) (pre-print pport obj) (cond - [(pair? obj) (pp-pair obj extra depth - pair? car cdr pair-open pair-close - qd)] - [(mpair? obj) (pp-pair obj extra depth - mpair? mcar mcdr mpair-open mpair-close - qd)] + [(pair? obj) + (let ([qd (to-quoted out qd "`")]) + (pp-pair obj extra depth + pair? car cdr pair-open pair-close + qd))] + [(mpair? obj) + (let ([qd (to-quoted out qd "`")]) + (pp-pair obj extra depth + mpair? mcar mcdr mpair-open mpair-close + qd))] [(vector? obj) (let ([qd (to-quoted out qd "`")]) (out "#") diff --git a/collects/racket/private/lang/reader.ss b/collects/racket/private/lang/reader.rkt similarity index 100% rename from collects/racket/private/lang/reader.ss rename to collects/racket/private/lang/reader.rkt diff --git a/collects/racket/promise.rkt b/collects/racket/promise.rkt index 02fce13e0e..0d91e9da98 100644 --- a/collects/racket/promise.rkt +++ b/collects/racket/promise.rkt @@ -90,20 +90,24 @@ (provide (rename-out [delay/thread* delay/thread])) (define (delay/thread thunk group) - (define (run) - (call-with-exception-handler - (lambda (e) (pset! p (make-reraise e)) (kill-thread (current-thread))) - (lambda () (pset! p (call-with-values thunk list))))) - (define p - (make-promise/thread - (make-running-thread - (object-name thunk) - (if group - (parameterize ([current-thread-group (make-thread-group)]) (thread run)) - (thread run))))) - p) + (unless (or (not group) + (thread-group? group)) + (raise-type-error 'delay/thread "thread group" group)) + (let () + (define (run) + (call-with-exception-handler + (lambda (e) (pset! p (make-reraise e)) (kill-thread (current-thread))) + (lambda () (pset! p (call-with-values thunk list))))) + (define p + (make-promise/thread + (make-running-thread + (object-name thunk) + (if group + (parameterize ([current-thread-group group]) (thread run)) + (thread run))))) + p)) (define-syntax delay/thread* - (let ([kwds (list (cons '#:group #'#t))]) + (let ([kwds (list (cons '#:group #'(make-thread-group)))]) (lambda (stx) (make-delayer stx #'delay/thread kwds)))) (define-struct (promise/idle promise/thread) () @@ -122,54 +126,63 @@ (provide (rename-out [delay/idle* delay/idle])) (define (delay/idle thunk wait-for work-while tick use*) - (define use (cond [(use* . <= . 0) 0] [(use* . >= . 1) 1] [else use*])) - (define work-time (* tick use)) - (define rest-time (- tick work-time)) - (define (work) - (call-with-exception-handler - (lambda (e) (pset! p (make-reraise e)) (kill-thread (current-thread))) - (lambda () (pset! p (call-with-values thunk list))))) - (define (run) - ;; this thread is dedicated to controlling the worker thread, so it's - ;; possible to dedicate messages to signaling a `force'. - (define force-evt (thread-receive-evt)) - (sync wait-for force-evt) - (pset! p (make-running-thread (object-name thunk) controller-thread)) - (let ([worker (parameterize ([current-thread-group (make-thread-group)]) - (thread work))]) - (cond - [(and (use . >= . 1) (equal? work-while always-evt)) - ;; as if it was pre-forced - (thread-wait worker)] - [(use . <= . 0) - ;; work only when explicitly forced - (thread-suspend worker) - (sync force-evt) - (thread-wait worker)] - [else - (thread-suspend worker) - (let loop () - ;; rest, then wait for idle time, then resume working - (if (eq? (begin0 (or (sync/timeout rest-time force-evt) - (sync work-while force-evt)) - (thread-resume worker)) - force-evt) - ;; forced during one of these => let it run to completion - (thread-wait worker) - ;; not forced - (unless (sync/timeout work-time worker) - (thread-suspend worker) - (loop))))]))) - ;; I don't think that a thread-group here is needed, but it doesn't hurt - (define controller-thread - (parameterize ([current-thread-group (make-thread-group)]) - (thread run))) - ;; the thunk is not really used in the above, make it a function that returns - ;; the controller thread so it can be forced (used in the `prop:force') - (define p (make-promise/idle - (procedure-rename (lambda () controller-thread) - (or (object-name thunk) 'idle-thread)))) - p) + (unless (evt? wait-for) + (raise-type-error 'delay/idle "evt" wait-for)) + (unless (evt? work-while) + (raise-type-error 'delay/idle "evt" work-while)) + (unless (and (real? tick) (not (negative? tick))) + (raise-type-error 'delay/idle "nonnegative real" tick)) + (unless (real? use*) + (raise-type-error 'delay/idle "real" use*)) + (let () + (define use (cond [(use* . <= . 0) 0] [(use* . >= . 1) 1] [else use*])) + (define work-time (* tick use)) + (define rest-time (- tick work-time)) + (define (work) + (call-with-exception-handler + (lambda (e) (pset! p (make-reraise e)) (kill-thread (current-thread))) + (lambda () (pset! p (call-with-values thunk list))))) + (define (run) + ;; this thread is dedicated to controlling the worker thread, so it's + ;; possible to dedicate messages to signaling a `force'. + (define force-evt (thread-receive-evt)) + (sync wait-for force-evt) + (pset! p (make-running-thread (object-name thunk) controller-thread)) + (let ([worker (parameterize ([current-thread-group (make-thread-group)]) + (thread work))]) + (cond + [(and (use . >= . 1) (equal? work-while always-evt)) + ;; as if it was pre-forced + (thread-wait worker)] + [(use . <= . 0) + ;; work only when explicitly forced + (thread-suspend worker) + (sync force-evt) + (thread-wait worker)] + [else + (thread-suspend worker) + (let loop () + ;; rest, then wait for idle time, then resume working + (if (eq? (begin0 (or (sync/timeout rest-time force-evt) + (sync work-while force-evt)) + (thread-resume worker)) + force-evt) + ;; forced during one of these => let it run to completion + (thread-wait worker) + ;; not forced + (unless (sync/timeout work-time worker) + (thread-suspend worker) + (loop))))]))) + ;; I don't think that a thread-group here is needed, but it doesn't hurt + (define controller-thread + (parameterize ([current-thread-group (make-thread-group)]) + (thread run))) + ;; the thunk is not really used in the above, make it a function that returns + ;; the controller thread so it can be forced (used in the `prop:force') + (define p (make-promise/idle + (procedure-rename (lambda () controller-thread) + (or (object-name thunk) 'idle-thread)))) + p)) (define-syntax delay/idle* (let ([kwds (list (cons '#:wait-for #'(system-idle-evt)) (cons '#:work-while #'(system-idle-evt)) diff --git a/collects/racket/signature/lang/reader.ss b/collects/racket/signature/lang/reader.rkt similarity index 100% rename from collects/racket/signature/lang/reader.ss rename to collects/racket/signature/lang/reader.rkt diff --git a/collects/racket/unit/lang/reader.ss b/collects/racket/unit/lang/reader.rkt similarity index 100% rename from collects/racket/unit/lang/reader.ss rename to collects/racket/unit/lang/reader.rkt diff --git a/collects/racket/unsafe/ops.ss b/collects/racket/unsafe/ops.rkt similarity index 100% rename from collects/racket/unsafe/ops.ss rename to collects/racket/unsafe/ops.rkt diff --git a/collects/schelog/COPYING b/collects/raclog/COPYING similarity index 100% rename from collects/schelog/COPYING rename to collects/raclog/COPYING diff --git a/collects/schelog/history b/collects/raclog/history similarity index 100% rename from collects/schelog/history rename to collects/raclog/history diff --git a/collects/raclog/info.rkt b/collects/raclog/info.rkt new file mode 100644 index 0000000000..9c3dee9b95 --- /dev/null +++ b/collects/raclog/info.rkt @@ -0,0 +1,4 @@ +#lang setup/infotab + +(define scribblings + '(("raclog.scrbl" (multi-page) (tool)))) diff --git a/collects/raclog/main.rkt b/collects/raclog/main.rkt new file mode 100644 index 0000000000..3956960b71 --- /dev/null +++ b/collects/raclog/main.rkt @@ -0,0 +1,3 @@ +#lang racket +(require "raclog.rkt") +(provide (all-from-out "raclog.rkt")) \ No newline at end of file diff --git a/collects/raclog/raclog.rkt b/collects/raclog/raclog.rkt new file mode 100644 index 0000000000..9e78ae3a1f --- /dev/null +++ b/collects/raclog/raclog.rkt @@ -0,0 +1,339 @@ +#lang racket +(require scheme/stxparam + "unify.rkt") + +;Dorai Sitaram +;1989, revised Feb. 1993, Mar. 1997 + +(define-syntax %let + (syntax-rules () + ((%let (x ...) . e) + (let ((x (_)) ...) + . e)))) + +(define %= unify) + +(define-syntax %or + (syntax-rules () + ((%or g ...) + (lambda (__fk) + (let/raclog-cc __sk + (let/raclog-cc __fk + (__sk ((logic-var-val* g) __fk))) + ... + (__fk 'fail)))))) + +(define-syntax %and + (syntax-rules () + ((%and g ...) + (lambda (__fk) + (let* ((__fk ((logic-var-val* g) __fk)) + ...) + __fk))))) + +(define-syntax-parameter ! + (λ (stx) (raise-syntax-error '! "May only be used syntactically inside %rel or %cut-delimiter expression." stx))) + +(define-syntax %cut-delimiter + (syntax-rules () + ((%cut-delimiter g) + (lambda (__fk) + (let ((this-! (lambda (__fk2) __fk))) + (syntax-parameterize + ([! (make-rename-transformer #'this-!)]) + ((logic-var-val* g) __fk))))))) + +(define-syntax %rel + (syntax-rules () + ((%rel (v ...) ((a ...) subgoal ...) ...) + (lambda __fmls + (lambda (__fk) + (let/raclog-cc __sk + (let ((this-! (lambda (fk1) __fk))) + (syntax-parameterize + ([! (make-rename-transformer #'this-!)]) + (%let (v ...) + (let/raclog-cc __fk + (let* ((__fk ((%= __fmls (list a ...)) __fk)) + (__fk ((logic-var-val* subgoal) __fk)) + ...) + (__sk __fk))) + ... + (__fk 'fail)))))))))) + +(define %fail + (lambda (fk) (fk 'fail))) + +(define %true + (lambda (fk) fk)) + +(define-syntax %is + (syntax-rules () + ((%is v e) + (lambda (__fk) + ((%= v (%is/fk e __fk)) __fk))))) +(define-syntax %is/fk + (syntax-rules (quote) + ((%is/fk (quote x) fk) (quote x)) + ((%is/fk (x ...) fk) + ((%is/fk x fk) ...)) + ((%is/fk x fk) + (if (and (logic-var? x) (unbound-logic-var? x)) + (fk 'fail) (logic-var-val* x))))) + +(define ((make-binary-arithmetic-relation f) x y) + (%and (%is #t (number? x)) + (%is #t (number? y)) + (%is #t (f x y)))) + +(define %=:= (make-binary-arithmetic-relation =)) +(define %> (make-binary-arithmetic-relation >)) +(define %>= (make-binary-arithmetic-relation >=)) +(define %< (make-binary-arithmetic-relation <)) +(define %<= (make-binary-arithmetic-relation <=)) +(define %=/= (make-binary-arithmetic-relation (compose not =))) + +(define (%constant x) + (lambda (fk) + (if (constant? x) fk (fk 'fail)))) + +(define (%compound x) + (lambda (fk) + (if (is-compound? x) fk (fk 'fail)))) + +(define (%var x) + (lambda (fk) (if (var? x) fk (fk 'fail)))) + +(define (%nonvar x) + (lambda (fk) (if (var? x) (fk 'fail) fk))) + +(define ((make-negation p) . args) + ;basically inlined cut-fail + (lambda (fk) + (if (let/raclog-cc k + ((apply p args) (lambda (d) (k #f)))) + (fk 'fail) + fk))) + +(define %/= + (make-negation %=)) + +(define (%== x y) + (lambda (fk) (if (ident? x y) fk (fk 'fail)))) + +(define (%/== x y) + (lambda (fk) (if (ident? x y) (fk 'fail) fk))) + +(define (%freeze s f) + (lambda (fk) + ((%= (freeze s) f) fk))) + +(define (%melt f s) + (lambda (fk) + ((%= (melt f) s) fk))) + +(define (%melt-new f s) + (lambda (fk) + ((%= (melt-new f) s) fk))) + +(define (%copy s c) + (lambda (fk) + ((%= (copy s) c) fk))) + +(define (%not g) + (lambda (fk) + (if (let/raclog-cc k + ((logic-var-val* g) (lambda (d) (k #f)))) + (fk 'fail) fk))) + +(define (%empty-rel . args) + %fail) + +(define-syntax %assert! + (syntax-rules () + ((_ rel-name (v ...) ((a ...) subgoal ...) ...) + (set! rel-name + (let ((__old-rel rel-name) + (__new-addition (%rel (v ...) ((a ...) subgoal ...) ...))) + (lambda __fmls + (%or (apply __old-rel __fmls) + (apply __new-addition __fmls)))))))) + +(define-syntax %assert-after! + (syntax-rules () + ((_ rel-name (v ...) ((a ...) subgoal ...) ...) + (set! rel-name + (let ((__old-rel rel-name) + (__new-addition (%rel (v ...) ((a ...) subgoal ...) ...))) + (lambda __fmls + (%or (apply __new-addition __fmls) + (apply __old-rel __fmls)))))))) + +(define (set-cons e s) + (if (member e s) s (cons e s))) + +(define-struct goal-with-free-vars (vars subgoal)) + +(define-syntax %free-vars + (syntax-rules () + ((%free-vars (v ...) g) + (make-goal-with-free-vars + (list v ...) + g)))) + +(define ((make-bag-of kons) lv goal bag) + (let ((fvv '())) + (when (goal-with-free-vars? goal) + (set! fvv (goal-with-free-vars-vars goal)) + (set! goal (goal-with-free-vars-subgoal goal))) + (make-bag-of-aux kons fvv lv goal bag))) + +(define (make-bag-of-aux kons fvv lv goal bag) + (lambda (fk) + (let/raclog-cc sk + (let ((lv2 (cons fvv lv))) + (let* ((acc '()) + (fk-final + (lambda (d) + (sk ((separate-bags fvv bag acc) fk)))) + (fk-retry (goal fk-final))) + (set! acc (kons (logic-var-val* lv2) acc)) + (fk-retry 'retry)))))) + +(define (separate-bags fvv bag acc) + (let ((bags (let loop ((acc acc) + (current-fvv #f) (current-bag '()) + (bags '())) + (if (null? acc) + (cons (cons current-fvv current-bag) bags) + (let ((x (car acc))) + (let ((x-fvv (car x)) (x-lv (cdr x))) + (if (or (not current-fvv) (equal? x-fvv current-fvv)) + (loop (cdr acc) x-fvv (cons x-lv current-bag) bags) + (loop (cdr acc) x-fvv (list x-lv) + (cons (cons current-fvv current-bag) bags))))))))) + (if (null? bags) (%= bag '()) + (let ((fvv-bag (cons fvv bag))) + (let loop ((bags bags)) + (if (null? bags) %fail + (%or (%= fvv-bag (car bags)) + (loop (cdr bags))))))))) + +(define %bag-of (make-bag-of cons)) +(define %set-of (make-bag-of set-cons)) + +(define (%bag-of-1 x g b) + (%and (%bag-of x g b) + (%= b (cons (_) (_))))) + +(define (%set-of-1 x g s) + (%and (%set-of x g s) + (%= s (cons (_) (_))))) + +(define *more-fk* (box (λ (d) (error '%more "No active %which")))) + +(define-syntax %which + (syntax-rules () + ((%which (v ...) g) + (with-raclog-prompt + (%let (v ...) + (set-box! *more-fk* + ((logic-var-val* g) + (lambda (d) + (set-box! *more-fk* #f) + (abort-to-raclog-prompt #f)))) + (abort-to-raclog-prompt + (list (cons 'v (logic-var-val* v)) + ...))))))) + +(define (%more) + (with-raclog-prompt + (if (unbox *more-fk*) + ((unbox *more-fk*) 'more) + #f))) + +(define raclog-prompt-tag (make-continuation-prompt-tag 'raclog)) +(define (abort-to-raclog-prompt a) + (abort-current-continuation raclog-prompt-tag (λ () a))) +(define-syntax-rule (with-raclog-prompt e ...) + (call-with-continuation-prompt (λ () e ...) raclog-prompt-tag)) +(define-syntax-rule (let/raclog-cc k e ...) + (call-with-current-continuation (λ (k) e ...) raclog-prompt-tag)) + +(define (%member x y) + (%let (xs z zs) + (%or + (%= y (cons x xs)) + (%and (%= y (cons z zs)) + (%member x zs))))) + +(define (%if-then-else p q r) + (%cut-delimiter + (%or + (%and p ! q) + r))) + +(define %append + (%rel (x xs ys zs) + (('() ys ys)) + (((cons x xs) ys (cons x zs)) + (%append xs ys zs)))) + +(define %repeat + (%rel () + (()) + (() (%repeat)))) + +(define fk? (symbol? . -> . any)) +(define goal/c + (or/c goal-with-free-vars? + (fk? . -> . fk?))) +(define relation/c + (->* () () #:rest (listof unifiable?) goal/c)) + +; XXX Add contracts in theses macro expansions +(provide %and %assert! %assert-after! %cut-delimiter %free-vars %is %let + %or %rel %which !) +(provide/contract + [goal/c contract?] + [logic-var? (any/c . -> . boolean?)] + [atom? (any/c . -> . boolean?)] + [atomic-struct? (any/c . -> . boolean?)] + [compound-struct? (any/c . -> . boolean?)] + [compound? (any/c . -> . boolean?)] + [unifiable? (any/c . -> . boolean?)] + [answer-value? (any/c . -> . boolean?)] + [answer? (any/c . -> . boolean?)] + [%/= (unifiable? unifiable? . -> . goal/c)] + [%/== (unifiable? unifiable? . -> . goal/c)] + [%< (unifiable? unifiable? . -> . goal/c)] + [%<= (unifiable? unifiable? . -> . goal/c)] + [%= (unifiable? unifiable? . -> . goal/c)] + [%=/= (unifiable? unifiable? . -> . goal/c)] + [%=:= (unifiable? unifiable? . -> . goal/c)] + [%== (unifiable? unifiable? . -> . goal/c)] + [%> (unifiable? unifiable? . -> . goal/c)] + [%>= (unifiable? unifiable? . -> . goal/c)] + [%append (unifiable? unifiable? unifiable? . -> . goal/c)] + [%bag-of (unifiable? goal/c unifiable? . -> . goal/c)] + [%bag-of-1 (unifiable? goal/c unifiable? . -> . goal/c)] + [%compound (unifiable? . -> . goal/c)] + [%constant (unifiable? . -> . goal/c)] + [%copy (unifiable? unifiable? . -> . goal/c)] + [%empty-rel relation/c] + [%fail goal/c] + [%freeze (unifiable? unifiable? . -> . goal/c)] + [%if-then-else (goal/c goal/c goal/c . -> . goal/c)] + [%melt (unifiable? unifiable? . -> . goal/c)] + [%melt-new (unifiable? unifiable? . -> . goal/c)] + [%member (unifiable? unifiable? . -> . goal/c)] + [%nonvar (unifiable? . -> . goal/c)] + [%not (goal/c . -> . goal/c)] + [%more (-> answer?)] + [%repeat (-> goal/c)] + [use-occurs-check? (parameter/c boolean?)] + [%set-of (unifiable? goal/c unifiable? . -> . goal/c)] + [%set-of-1 (unifiable? goal/c unifiable? . -> . goal/c)] + [%true goal/c] + [%var (unifiable? . -> . goal/c)] + [_ (-> logic-var?)]) diff --git a/collects/raclog/raclog.scrbl b/collects/raclog/raclog.scrbl new file mode 100644 index 0000000000..beeea59bdf --- /dev/null +++ b/collects/raclog/raclog.scrbl @@ -0,0 +1,1426 @@ +#lang scribble/manual +@(require scribble/eval + (for-syntax racket) + (for-label raclog + (except-in racket _))) + +@(define raclog-eval (make-base-eval)) +@(raclog-eval '(require raclog)) + +@title{@bold{Raclog}: Prolog-style logic programming in Racket} + +@author{Dorai Sitaram} + +@margin-note{Adapted from Schelog by Dorai Sitaram for Racket by Dorai Sitaram, John Clements, and Jay McCarthy.} + +@defmodule[raclog] + +Raclog is an @emph{embedding} of +Prolog-style logic programming in Racket. ``Embedding'' +means you don't lose Racket: You can use Prolog-style and +conventional Racket code fragments alongside each other. +Raclog contains the full repertoire of Prolog features, +including meta-logical and second-order (``set'') +predicates, leaving out only those features that could more +easily and more efficiently be done with Racket +subexpressions. + +The Raclog implementation uses the approach to logic +programming for Scheme described in Felleisen @cite{mf:prolog} and +Haynes @cite{logick}. In contrast to earlier Lisp simulations of +Prolog @cite{campbell}, +which used explicit continuation +arguments to store failure (backtrack) information, the +Felleisen and Haynes model uses the implicit reified +continuations of Scheme. In Racket these are provided by the operator +@racket[call-with-current-continuation] (aka @racket[call/cc]). This +allows Raclog to be an @emph{embedding}, ie, logic +programming is not built as a new language on top of Racket, +but is used alongside Racket's other features. Both styles +of programming may be mixed to any extent that a project +needs. + +The Raclog user does not need to know about the +implementation mechanism or about @racket[call/cc] and +continuations to get on with the business of +doing logic programming with Raclog. + +This text is a gentle introduction to Raclog syntax +and programming. It assumes a working knowledge of +Racket and an awareness of, if not actual programming +experience with, Prolog. If you need assistance for Prolog, +you may consult @cite["bratko" "ok:prolog" "aop"] or +many other excellent books and +online documents available. + +@table-of-contents[] + +@section[#:tag "simple"]{Simple Goals and Queries} + +Raclog objects are the same as Racket objects. However, there +are two subsets of these objects that are of special +interest to Raclog: @emph{goals} and @emph{predicates}. We +will first look at some simple goals. +@secref{predicates} will introduce predicates and ways +of making complex goals using predicates. + +A goal is an object whose truth or falsity we can check. A +goal that turns out to be true is said to succeed. +A goal that turns out to be false is said to +fail. + +Two simple goals that are provided in Raclog are: +@racketblock[ +%true +%fail +] + +The goal @racket[%true] succeeds. The goal @racket[%fail] +always fails. + +(The names of all Raclog primitive objects +start with @litchar{%}. This is to avoid clashes with the names +of conventional Racket objects of related meaning. +User-created objects in Raclog are not required to +follow this convention.) + +A Raclog user can @emph{query} a goal by wrapping it in a +@racket[%which]-form. + +@racketblock[ +(%which () %true) +] + +evaluates to @racketresult[()], indicating success, whereas: + +@racketblock[ +(%which () %fail) +] + +evaluates to @racket[#f], indicating failure. + +Note 1: The second subexpression of the @racket[%which]-form +is the empty list @racketresult[()]. Later (@secref{solving-goals}), +we will see @racket[%which]es +with other lists as the second subform. + +Henceforth, we will use the notation: + +@interaction[(eval:alts E 'F)] + +to say that @racket[E] @emph{evaluates to} @racket[F]. Thus, + +@interaction[#:eval raclog-eval (%which () %true)] + +@section[#:tag "predicates"]{Predicates} + +More interesting goals are created by applying a special +kind of Raclog object called a @emph{predicate} (or +@emph{relation}) to other +Raclog objects. Raclog comes with some primitive +predicates, such as the arithmetic operators +@racket[%=:=] and @racket[%<], +standing for arithmetic ``equal'' and ``less than'' +respectively. For example, the following are some goals +involving these predicates: + +@interaction[ + #:eval raclog-eval + (%which () (%=:= 1 1)) + (%which () (%< 1 2)) + (%which () (%=:= 1 2)) + (%which () (%< 1 1)) + ] + +Other arithmetic predicates are +@racket[%>] (``greater than''), +@racket[%<=] (``less than or equal''), +@racket[%>=] (``greater than or equal''), and +@racket[%=/=] (``not equal''). + +Raclog predicates are not to be confused with conventional +Racket predicates (such as @racket[<] and @racket[=]). Raclog +predicates, when applied to arguments, produce goals +that +may either succeed or fail. Racket predicates, when applied +to arguments, yield a boolean value. Henceforth, we will +use the term ``predicate'' to mean Raclog predicates. +Conventional predicates will be explicitly called ``Racket +predicates''. + +@subsection[#:tag "facts"]{Predicates Introducing Facts} + +Users can create their own predicates using the Raclog form +@racket[%rel]. For example, let's +define the predicate @racket[%knows]: + +@racketblock+eval[#:eval raclog-eval +(define %knows + (%rel () + [('Odysseus 'TeX)] + [('Odysseus 'Racket)] + [('Odysseus 'Prolog)] + [('Odysseus 'Penelope)] + [('Penelope 'TeX)] + [('Penelope 'Prolog)] + [('Penelope 'Odysseus)] + [('Telemachus 'TeX)] + [('Telemachus 'calculus)])) +] + +The expression has the expected meaning. Each +@emph{clause} in the @racket[%rel] establishes a @emph{fact}: +Odysseus +knows TeX, Telemachus knows calculus, &c. In general, if we +apply the predicate to the arguments in any one of its +clauses, we will get a successful goal. Thus, since +@racket[%knows] has a clause that reads +@racket[[('Odysseus 'TeX)]], the goal +@racket[(%knows 'Odysseus 'TeX)] +will be true. + +We can now get answers for the following types of queries: + +@interaction[#:eval raclog-eval +(%which () + (%knows 'Odysseus 'TeX)) +(%which () + (%knows 'Telemachus 'Racket)) +] + +@subsection[#:tag "rules"]{Predicates with Rules} + +Predicates can be more complicated than the above bald +recitation of facts. The predicate clauses can be @emph{rules}, eg, + +@racketblock+eval[#:eval raclog-eval +(define %computer-literate + (%rel (person) + [(person) + (%knows person 'TeX) + (%knows person 'Racket)] + [(person) + (%knows person 'TeX) + (%knows person 'Prolog)])) +] + +This defines the predicate +@racket[%computer-literate] in +terms of the predicate @racket[%knows]. In effect, a person is +defined as computer-literate if they know TeX and +Racket, @emph{or} TeX and Prolog. + +Note that this use of +@racket[%rel] employs a local @emph{logic variable} called @racket[_person]. +In general, a @racket[%rel]-expression can have a list of symbols +as its second subform. These name new logic variables that +can be used within the body of the @racket[%rel]. + +The following query can now be answered: + +@interaction[#:eval raclog-eval +(%which () + (%computer-literate 'Penelope)) +] + +Since Penelope knows TeX and Prolog, she is computer-literate. + +@subsection[#:tag "solving-goals"]{Solving Goals} + +The above queries are yes/no questions. Raclog programming +allows more: We can formulate a goal with @emph{uninstantiated} +logic variables and then ask the querying process to +provide, if possible, values for these variables that cause +the goal to succeed. For instance, the query: + +@interaction[#:eval raclog-eval +(%which (what) + (%knows 'Odysseus what)) +] + +asks for an instantiation of the logic variable @racket[_what] +that satisfies the goal @racket[(%knows 'Odysseus what)]. +In other words, we are asking, ``What does Odysseus know?'' + +Note that this use of @racket[%which] --- like @racket[%rel] +in the definition of @racket[%computer-literate] --- +uses a local logic +variable, @racket[_what]. In general, the second subform of +@racket[%which] can be a list of local logic variables. The +@racket[%which]-query returns an answer that is a list of +bindings, one for each logic variable mentioned in its +second subform. Thus, + +@interaction[#:eval raclog-eval +(%which (what) + (%knows 'Odysseus what)) +] + +But that is not all that wily Odysseus knows. Raclog +provides a zero-argument procedure (``thunk'') called +@racket[%more] +that @emph{retries} the goal in the last +@racket[%which]-query for a different solution. + +@interaction[#:eval raclog-eval +(%more) +] + +We can keep pumping for more solutions: + +@interaction[#:eval raclog-eval +(%more) +(%more) +(%more) +] + +The final @racket[#f] shows that there are no more +solutions. This is because there are no more clauses in the +@racket[%knows] predicate that list Odysseus as knowing anything +else. + +@subsection[#:tag "assert"]{Asserting Extra Clauses} + +We can add more clauses to a predicate after it has already +been defined with a @racket[%rel]. Raclog provides the +@racket[%assert!] form for this purpose. Eg, + +@racketblock+eval[#:eval raclog-eval +(%assert! %knows () + [('Odysseus 'archery)]) +] + +tacks on a new clause at the end of the existing clauses +of the @racket[%knows] +predicate. Now, the query: + +@interaction[#:eval raclog-eval +(%which (what) + (%knows 'Odysseus what)) +] + +gives TeX, Racket, Prolog, and Penelope, as before, but +a subsequent @racket[(%more)] yields a new result: +@interaction-eval[#:eval raclog-eval (begin (%more) (%more) (%more))] +@interaction[#:eval raclog-eval +(%more) +] + +The Raclog form @racket[%assert-after!] is similar to @racket[%assert!] but +adds clauses @emph{before} any of the current clauses. + +Both @racket[%assert!] and @racket[%assert-after!] assume that the variable +they are adding to already names a predicate (presumably +defined using @racket[%rel]). +In order to allow defining a predicate entirely through +@racket[%assert!]s, Raclog provides an empty predicate value +@racket[%empty-rel]. @racket[%empty-rel] takes any number of arguments +and always fails. A typical use of the +@racket[%empty-rel] and @racket[%assert!] combination: + +@racketblock+eval[#:eval raclog-eval +(define %parent %empty-rel) + +(%assert! %parent () + [('Laertes 'Odysseus)]) + +(%assert! %parent () + [('Odysseus 'Telemachus)] + [('Penelope 'Telemachus)]) +] + +(Raclog does not provide a predicate for @emph{retracting} +assertions, since we can keep track of older versions of +predicates using conventional Racket features (@racket[let] and @racket[set!]).) + +@subsection[#:tag "local-vars"]{Local Variables} + +The local logic variables of @racket[%rel]- and +@racket[%which]-expressions are in reality introduced by the +Raclog syntactic form called @racket[%let]. (@racket[%rel] and +@racket[%which] are macros written using @racket[%let].) + +@racket[%let] introduces new lexically scoped logic variables. +Supposing, instead of + +@interaction[#:eval raclog-eval +(%which (what) + (%knows 'Odysseus what)) +] + +we had asked + +@interaction[#:eval raclog-eval +(%let (what) + (%which () + (%knows 'Odysseus what))) +] + +This query, too, succeeds five times, since +Odysseus knows five things. However, @racket[%which] emits +bindings only for the local variables that @emph{it} +introduces. Thus, this query emits @racketresult[()] five times before +@racket[(%more)] finally returns @racket[#f]. + +@section[#:tag "racket-w-logic"]{Using Conventional Racket Expressions in Raclog} + +The arguments of Raclog predicates can be any Racket +objects. In particular, composite structures such as lists, +vectors, strings, hash tables, etc can be used, as also Racket expressions +using the full array of Racket's construction and +decomposition operators. For instance, consider the +following goal: + +@racketblock[ +(%member x '(1 2 3)) +] + +Here, @racket[%member] is a predicate, @racket[x] is a logic +variable, and @racket['(1 2 3)] is a structure. Given a suitably +intuitive definition for @racket[%member], the above goal +succeeds for @racket[x] = @racketresult[1], @racketresult[2], and @racketresult[3]. + +Now to defining predicates like @racket[%member]: + +@racketblock[ +(define %member + (%rel (x y xs) + [(x (cons x xs))] + [(x (cons y xs)) + (%member x xs)])) +] + +Ie, @racket[%member] is defined with three local variables: +@racket[x], @racket[y], @racket[xs]. It has two +clauses, identifying the two ways of determining membership. + +The first clause of @racket[%member] states a fact: For any +@racket[x], @racket[x] is a member of a list whose head is also @racket[x]. + +The second clause of @racket[%member] is a rule: @racket[x] is a +member of a list if we can show that it is a member of the +@emph{tail} of that list. In other words, the original +@racket[%member] goal is translated into a @emph{sub}goal, which is also +a @racket[%member] goal. + +Note that the variable @racket[y] in the definition of +@racket[%member] occurs only once in the second clause. As such, +it doesn't need you to make the effort of naming it. (Names +help only in matching a second occurrence to a first.) Raclog +lets you use the expression @racket[(_)] to denote an anonymous +variable. (Ie, @racket[_] is a thunk that generates a fresh +anonymous variable at each call.) The predicate @racket[%member] can be +rewritten as + +@racketblock[ +(define %member + (%rel (x xs) + [(x (cons x (_)))] + [(x (cons (_) xs)) + (%member x xs)])) +] + +@subsection[#:tag "constructors"]{Constructors} + +We can use constructors --- Racket procedures for creating +structures --- to simulate data types in Raclog. For +instance, let's define a natural-number data-type where +@racket[0] denotes zero, and @racket[(succ x)] denotes the natural number +whose immediate predecessor is @racket[x]. The constructor +@racket[succ] can +be defined in Racket as: + +@racketblock+eval[#:eval raclog-eval +(define succ + (lambda (x) + (vector 'succ x))) +] + +Addition and multiplication can be defined as: + +@racketblock+eval[#:eval raclog-eval +(define %add + (%rel (x y z) + [(0 y y)] + [((succ x) y (succ z)) + (%add x y z)])) + +(define %times + (%rel (x y z z1) + [(0 y 0)] + [((succ x) y z) + (%times x y z1) + (%add y z1 z)])) +] + +We can do a lot of arithmetic with this in place. For +instance, the factorial predicate looks like: + +@racketblock+eval[#:eval raclog-eval +(define %factorial + (%rel (x y y1) + [(0 (succ 0))] + [((succ x) y) + (%factorial x y1) + (%times (succ x) y1 y)])) +] + +@subsection[#:tag "is"]{@racket[\%is]} + +The above is a very inefficient way to do arithmetic, +especially when the underlying language Racket offers +excellent arithmetic facilities (including a comprehensive +number ``tower'' and exact rational arithmetic). One +problem with using Racket calculations directly in Raclog +clauses is that the expressions used may contain logic +variables that need to be dereferenced. Raclog provides +the predicate @racket[%is] that takes care of this. The goal + +@racketblock[ +(%is _X _E) +] + +unifies @racket[_X] with the value of @racket[_E] considered as a +Racket expression. @racket[_E] can have logic variables, but +usually they should at least be bound, as unbound variables +may not be palatable values to the Racket operators used in +@racket[_E]. + +We can now directly use the numbers of Racket to write a +more efficient @racket[%factorial] predicate: + +@racketblock+eval[#:eval raclog-eval +(define %factorial + (%rel (x y x1 y1) + [(0 1)] + [(x y) (%is x1 (- x 1)) + (%factorial x1 y1) + (%is y (* y1 x))])) +] + +A price that this efficiency comes with is that we can +use @racket[%factorial] only with its first argument already +instantiated. In many cases, this is not an unreasonable +constraint. In fact, given this limitation, there is +nothing to prevent us from using Racket's factorial +directly: + +@racketblock+eval[#:eval raclog-eval +(define %factorial + (%rel (x y) + [(x y) + (%is y (racket-factorial + x))])) +] + +or better yet, ``in-line'' any calls to @racket[%factorial] with +@racket[%is]-expressions calling @racket[racket-factorial], where the +latter is defined in the usual manner: + +@racketblock+eval[#:eval raclog-eval +(define racket-factorial + (lambda (n) + (if (= n 0) 1 + (* n (factorial + (- n 1)))))) +] + +@subsection[#:tag "lexical-scoping"]{Lexical Scoping} + +One can use Racket's lexical scoping to enhance predicate +definition. Here is a list-reversal predicate defined using +a hidden auxiliary predicate: + +@racketblock+eval[#:eval raclog-eval +(define %reverse + (letrec + ([revaux + (%rel (x y z w) + [('() y y)] + [((cons x y) z w) + (revaux y + (cons x z) w)])]) + (%rel (x y) + [(x y) (revaux x '() y)]))) +] + +@racket[(revaux _X _Y _Z)] uses @racket[_Y] as an accumulator for +reversing @racket[_X] into @racket[_Z]. (@racket[_Y] starts out as @racketresult[()]. +Each head of @racket[_X] is @racket[cons]ed on to @racket[_Y]. Finally, when +@racket[_X] has wound down to @racketresult[()], @racket[_Y] contains the reversed +list and can be returned as @racket[_Z].) + +@racket[revaux] is used purely as a helper predicate for +@racket[%reverse], and so it can be concealed within a lexical +contour. We use @racket[letrec] instead of @racket[let] because +@racket[revaux] is a recursive procedure. + +@subsection[#:tag "type-predicates"]{Type Predicates} + +Raclog provides a couple of predicates that let the user +probe the type of objects. + +The goal +@racketblock[ +(%constant _X) +] + +succeeds if @racket[_X] is an @emph{atomic} object. + +The predicate @racket[%compound], the negation of @racket[%constant], +checks if its argument is not an atomic object. + +The above are merely the logic-programming equivalents of +corresponding Racket predicates. Users can use the +predicate @racket[%is] and Racket predicates to write more type +checks in Raclog. Thus, to test if @racket[_X] is a string, the +following goal could be used: + +@racketblock[ +(%is #t (string? _X)) +] + +User-defined Racket predicates, in addition to primitive Racket +predicates, can be thus imported. + +@section[#:tag "backtracking"]{Backtracking} + +It is helpful to go into the following evaluation (@secref{rules}) +in a +little detail: + +@racketblock+eval[#:eval raclog-eval +(%which () + (%computer-literate 'Penelope)) +] + +The starting goal +is: + +@(define goal litchar) +@racketblock[ +G0 = (%computer-literate Penelope) +] + +(I've taken out the quote because @racketresult[Penelope] is the result +of evaluating @racket['Penelope].) + +Raclog tries to match this with the head of the first +clause of @racket[%computer-literate]. It succeeds, generating a +binding @racket[[person . Penelope]]. + +But this means it now has two new goals --- @emph{subgoals} +--- to solve. These are the goals in the body of the +matching clause, with the logic variables substituted by +their instantiations: + +@racketblock[ +G1 = (%knows Penelope TeX) +G2 = (%knows Penelope Racket) +] + +For @goal{G1}, Raclog attempts matches with the clauses of +@racket[%knows], and succeeds at the fifth try. (There are no +subgoals in this case, because the bodies of these ``fact'' +clauses are empty, in contrast to the ``rule'' clauses of +@racket[%computer-literate].) +Raclog then tries to solve @goal{G2} against the clauses of +@racket[%knows], and since there is no clause stating that +Penelope knows Racket, it fails. + +All is not lost though. Raclog now @emph{backtracks} to the +goal that was solved just before, viz., @goal{G1}. It +@emph{retries} @goal{G1}, ie, tries to solve it in a +different way. +This entails searching down the previously unconsidered +@racket[%knows] +clauses for @goal{G1}, ie, the sixth onwards. Obviously, +Raclog fails again, because the fact that Penelope knows +TeX occurs only once. + +Raclog now backtracks to the goal before @goal{G1}, ie, +@goal{G0}. We abandon the current successful match with the +first clause-head of @racket[%computer-literate], and try the +next clause-head. Raclog succeeds, again producing a binding +@racket[[person . Penelope]], and two new subgoals: + +@racketblock[ +G3 = (%knows Penelope TeX) +G4 = (%knows Penelope Prolog) +] + +It is now easy to trace that Raclog finds both @goal{G3} and @goal{G4} to be +true. Since both of @goal{G0}'s subgoals are true, @goal{G0} is +itself considered true. And this is what Raclog reports. The +interested reader can now trace why the +following query has a different denouement: + +@interaction[#:eval raclog-eval +(%which () + (%computer-literate 'Telemachus)) +] + +@section[#:tag "unification"]{Unification} + +When we say that a goal matches with a clause-head, we mean +that the predicate and argument positions line up. Before +making this comparison, Raclog dereferences all already +bound logic variables. The resulting structures are then +compared to see if they are recursively identical. Thus, +@racket[1] unifies with @racket[1], and @racket[(list 1 2)] with @racket['(1 2)]; but @racket[1] and +@racket[2] do not unify, and neither do @racket['(1 2)] and @racket['(1 3)]. + +In general, there could be quite a few uninstantiated logic +variables in the compared objects. Unification will then +endeavor to find the most natural way of binding these +variables so that we arrive at structurally identical +objects. Thus, @racket[(list _x 1)], where @racket[_x] is an unbound logic +variable, unifies with @racket['(0 1)], producing the +binding +@racket[[_x 0]]. + +Unification is thus a goal, and Raclog makes the unification predicate +available to the user as @racket[%=]. Eg, + +@interaction[#:eval raclog-eval +(%which (x) + (%= (list x 1) '(0 1))) +] + +Raclog also provides the predicate @racket[%/=], the @emph{negation} of +@racket[%=]. @racket[(%/= _X _Y)] succeeds if and only if @racket[_X] does +@emph{not} unify with @racket[_Y]. + +Unification goals constitute the basic subgoals that all +Raclog goals devolve to. A goal succeeds because all the +eventual unification subgoals that it decomposes to in at +least one of its subgoal-branching succeeded. It fails +because every possible subgoal-branching was thwarted by the +failure of a crucial unification subgoal. + +Going back to the example in @secref{backtracking}, the goal +@racket[(%computer-literate 'Penelope)] succeeds because +(a) it unified with +@racket[(%computer-literate person)]; and then (b) with the binding +@racket[[person . Penelope]] in place, @racket[(%knows person 'TeX)] +unified with @racket[(%knows 'Penelope 'TeX)] and +@racket[(%knows person 'Prolog)] unified with @racket[(%knows 'Penelope 'Prolog)]. + +In contrast, the goal @racket[(%computer-literate 'Telemachus)] +fails because, with @racket[[person . Telemachus]], +the subgoals @racket[(%knows person 'Racket)] and +@racket[(%knows person 'Prolog)] have no facts they can +unify with. + +@subsection{The Occurs Check} + +A robust unification algorithm uses the @deftech{occurs check}, which ensures that a logic variable +isn't bound to a structure that contains itself. +Not performing the check can cause the unification +to go into an infinite loop in some cases. On the +other hand, performing the occurs check greatly +increases the time taken by unification, even in cases +that wouldn't require the check. + +Raclog uses the global parameter +@racket[use-occurs-check?] to decide whether to +use the occurs check. By default, this variable is +@racket[#f], ie, Raclog disables the occurs check. To +enable the check, + +@racketblock[ +(use-occurs-check? #t) +] + +@section[#:tag "and-or"]{Conjuctions and Disjunctions} + +Goals may be combined using the forms @racket[%and] +and @racket[%or] +to form compound goals. (For @racket[%not], see @secref{not}.) +Eg, + +@interaction[#:eval raclog-eval +(%which (x) + (%and (%member x '(1 2 3)) + (%< x 3))) +] + +gives solutions for @racket[_x] that satisfy both the +argument goals of the @racket[%and]. +Ie, @racket[_x] should both be a member of @racket['(1 2 3)] +@emph{and} be less than @racket[3]. Typing @racket[(%more)] gives another solution: + +@interaction[#:eval raclog-eval +(%more) +(%more) +] + +There are no more solutions, because @racket[[x 3]] satisfies +the first but not the second goal. + +Similarly, the query + +@interaction[#:eval raclog-eval +(%which (x) + (%or (%member x '(1 2 3)) + (%member x '(3 4 5)))) +] + +lists all @racket[_x] that are members of either list. + +@interaction[#:eval raclog-eval +(%more) +(%more) +(%more) +(%more) +(%more) +] + +(Yes, @racket[([x 3])] is listed twice.) + +We can rewrite the predicate @racket[%computer-literate] +from @secref{rules} using @racket[%and] and @racket[%or]: + +@racketblock+eval[#:eval raclog-eval +(define %computer-literate + (%rel (person) + [(person) + (%or + (%and (%knows person + 'TeX) + (%knows person + 'Racket)) + (%and (%knows person + 'TeX) + (%knows person + 'Prolog)))])) +] + +Or, more succinctly: + +@racketblock+eval[#:eval raclog-eval +(define %computer-literate + (%rel (person) + [(person) + (%and (%knows person + 'TeX) + (%or (%knows person + 'Racket) + (%knows person + 'Prolog)))])) +] + +We can even dispense with the @racket[%rel] altogether: + +@racketblock+eval[#:eval raclog-eval +(define %computer-literate + (lambda (person) + (%and (%knows person + 'TeX) + (%or (%knows person + 'Racket) + (%knows person + 'Prolog))))) +] + +This last looks like a conventional Racket predicate +definition, and is arguably +the most readable format for a Racket programmer. + +@section[#:tag "lv-manip"]{Manipulating Raclog Variables} + +Raclog provides special predicates for probing logic +variables, without risking their getting bound. + +@subsection[#:tag "var"]{Checking for Variables} + +The goal + +@racketblock[ +(%== _X _Y) +] + +succeeds if @racket[_X] and @racket[_Y] are @emph{identical} objects. This +is not quite the unification predicate @racket[%=], for @racket[%==] +doesn't touch unbound objects the way @racket[%=] does. Eg, +@racket[%==] will not equate an unbound logic variable with a +bound one, nor will it equate two unbound logic variables +unless they are the @emph{same} variable. + +The predicate @racket[%/==] is the negation of @racket[%==]. + +The goal + +@racketblock[ +(%var _X) +] + +succeeds if @racket[_X] isn't completely bound --- ie, it has at +least one unbound logic variable in its innards. + +The predicate @racket[%nonvar] is the negation of @racket[%var]. + +@subsection[#:tag "freeze"]{Preserving Variables} + +Raclog lets the user protect a term with variables from +unification by allowing that term to be treated as a +(completely) bound object. The predicates provided for this +purpose are +@racket[%freeze], +@racket[%melt], @racket[%melt-new], and @racket[%copy]. + +The goal + +@racketblock[ +(%freeze _S _F) +] + +unifies @racket[_F] to the frozen version of @racket[_S]. Any lack +of bindings in @racket[_S] are preserved no matter how much you +toss @racket[_F] about. + +The goal + +@racketblock[ +(%melt _F _S) +] + +retrieves the object frozen in @racket[_F] into @racket[_S]. + +The goal + +@racketblock[ +(%melt-new _F _S) +] + +is similar to @racket[%melt], +except that when @racket[_S] is made, the unbound variables in +@racket[_F] are replaced by brand-new unbound variables. + +The goal + +@racketblock[ +(%copy _S _C) +] + +is an abbreviation for @racket[(%freeze _S _F)] +followed by @racket[(%melt-new _F _C)]. + +@section[#:tag "cut"]{The Cut (@racket[!])} + +The cut (called @racket[!]) is a special goal that is used to +prune backtracking options. Like the @racket[%true] goal, the +cut goal too succeeds, when accosted by the Raclog +subgoaling engine. However, when a further subgoal down the +line fails, and time comes to retry the cut goal, Raclog +will refuse to try alternate clauses for the predicate in +whose definition the cut occurs. In other words, the cut +causes Raclog to commit to all the decisions made from the +time that the predicate was selected to match a subgoal till +the time the cut was satisfied. + +For example, consider again the @racket[%factorial] +predicate, as defined in @secref{is}: + +@racketblock+eval[#:eval raclog-eval +(define %factorial + (%rel (x y x1 y1) + [(0 1)] + [(x y) (%is x1 (- x 1)) + (%factorial x1 y1) + (%is y (* y1 x))])) +] + +Clearly, + +@interaction[#:eval raclog-eval +(%which () + (%factorial 0 1)) +(%which (n) + (%factorial 0 n)) +] + +But what if we asked for @racket[(%more)] for either query? +Backtracking will try +the second clause of @racket[%factorial], and sure enough the +clause-head unifies, producing binding @racket[[x . 0]]. +We now get three subgoals. Solving the first, we get @racket[[x1 . -1]], and then we have to solve @racket[(%factorial -1 y1)]. It +is easy to see there is no end to this, as we fruitlessly +try to get the factorials of numbers that get more and more +negative. + +If we placed a cut at the first clause: + +@racketblock[ +... +[(0 1) !] +... +] + +the attempt to find more solutions for @racket[(%factorial 0 1)] is nipped in the bud. + +Calling @racket[%factorial] with a @emph{negative} number would still cause an +infinite loop. To take care of that problem as well, we +use another cut: + +@racketblock+eval[#:eval raclog-eval +(define %factorial + (%rel (x y x1 y1) + [(0 1) !] + [(x y) (%< x 0) ! %fail] + [(x y) (%is x1 (- x 1)) + (%factorial x1 y1) + (%is y (* y1 x))])) +] + +@interaction[#:eval raclog-eval +(%which () + (%factorial 0 1)) +(%more) +(%which () + (%factorial -1 1)) +] + +Using @emph{raw} cuts as above can get very confusing. For this +reason, it is advisable to use it hidden away in +well-understood abstractions. Two such common abstractions +are the conditional and negation. + +@subsection[#:tag "if-then-else"]{Conditional Goals} + +An ``if ... then ... else ...'' predicate can be defined +as follows + +@racketblock+eval[#:eval raclog-eval +(define %if-then-else + (%rel (p q r) + [(p q r) p ! q] + [(p q r) r])) +] + +(Note that for the first time we have predicate arguments that +are themselves goals.) + +Consider the goal + +@racketblock[ +G0 = (%if-then-else Gbool Gthen Gelse) +] + +We first unify @goal{G0} with the first clause-head, +giving +@racket[[p . Gbool]], @racket[[q . Gthen]], @racket[[r . Gelse]]. @goal{Gbool} can +now either succeed or fail. + +Case 1: If @goal{Gbool} fails, backtracking will cause the +@goal{G0} to unify with the second clause-head. @racket[r] is bound +to @goal{Gelse}, and so @goal{Gelse} is tried, as expected. + +Case 2: If @goal{Gbool} succeeds, the cut commits to this +clause of the @racket[%if-then-else]. We now try @goal{Gthen}. If +@goal{Gthen} should now fail --- or even if we simply retry for +more solutions --- we are guaranteed that the second +clause-head will not be tried. If it were not for the cut, +@goal{G0} would attempt to unify with the second clause-head, which will +of course succeed, and @goal{Gelse} @emph{will} be tried. + +@subsection[#:tag "not"]{Negation as Failure} + +Another common abstraction using the cut is @emph{negation}. +The negation of goal @goal{G} is defined as @racket[(%not G)], where +the predicate @racket[%not] is defined as follows: + +@racketblock+eval[#:eval raclog-eval +(define %not + (%rel () + [(g) g ! %fail] + [(g) %true])) +] + +Thus, @racket[g]'s negation is deemed a failure if @racket[g] +succeeds, and a success if @racket[g] fails. This is of course +confusing goal failure with falsity. In some cases, this +view of negation is actually helpful. + +@section[#:tag "set-of"]{Set Predicates} + +The goal + +@racketblock[ +(%bag-of _X _G _Bag) +] + +unifies with @racket[_Bag] the list of all instantiations of +@racket[_X] for which @racket[_G] succeeds. Thus, the following query +asks for all the things known --- ie, the collection of things +such that someone knows them: + +@interaction[#:eval raclog-eval +(%which (things-known) + (%let (someone x) + (%bag-of x (%knows someone x) + things-known))) +] + +This is the only solution for this goal: + +@interaction[#:eval raclog-eval +(%more) +] + +Note that some things --- eg, TeX --- are enumerated +more than once. This is because more than one person knows +TeX. To remove duplicates, use the predicate +@racket[%set-of] +instead of @racket[%bag-of]: + +@interaction[#:eval raclog-eval +(%which (things-known) + (%let (someone x) + (%set-of x (%knows someone x) + things-known))) +] + +In the above, the free variable @racket[_someone] in the +@racket[%knows]-goal is used as if it +were existentially quantified. In contrast, Prolog's +versions of +@racket[%bag-of] and @racket[%set-of] fix it for each solution of the +set-predicate goal. We can do it too with some additional +syntax that identifies the free variable. +Eg, + +@interaction[#:eval raclog-eval +(%which (someone things-known) + (%let (x) + (%bag-of x + (%free-vars (someone) + (%knows someone x)) + things-known))) +] + +The bag of things known by @emph{one} someone is +returned. That someone is Odysseus. The query can be +retried for more solutions, each listing the things known by +a different someone: + +@interaction[#:eval raclog-eval +(%more) +(%more) +(%more) +(%more) +] + +Raclog also provides two variants of these set predicates, +viz., @racket[%bag-of-1] and @racket[%set-of-1]. These act like @racket[%bag-of] +and @racket[%set-of] but fail if the resulting bag or set is empty. + +@section[#:tag "glossary"]{Glossary of Raclog Primitives} + +@(define-syntax (defpred stx) + (syntax-case stx () + [(_ (id arg ...) pre ...) + (syntax/loc stx + (defproc (id arg ...) + goal/c + pre ...))])) +@(define-syntax-rule (defgoal id pre ...) + (defthing id goal/c pre ...)) + +@subsection{Racket Predicates} + +@defproc[(logic-var? [x any/c]) boolean?]{Identifies a logic variable.} + +@defproc[(atomic-struct? [x any/c]) boolean?]{Identifies structures that the @scheme[(current-inspector)] cannot inspect.} + +@defproc[(atom? [x any/c]) boolean?]{Identifies atomic values that may appear in Raclog programs. Equivalent to the contract @racket[(or/c boolean? number? string? bytes? char? symbol? regexp? pregexp? byte-regexp? byte-pregexp? keyword? null? procedure? void? set? atomic-struct?)].} + +@defproc[(compound-struct? [x any/c]) boolean?]{Identifies structures that the @scheme[(current-inspector)] can inspect.} + +@defproc[(compound? [x any/c]) boolean?]{Identifies compound values that may appear in Raclog programs. Equivalent to the contract @racket[(or/c pair? vector? mpair? box? hash? compound-struct?)].} + +@defproc[(unifiable? [x any/c]) boolean?]{Identifies values that may appear in Raclog programs. Essentialy either an @racket[atom?], @racket[logic-var?], or @racket[compound?] that contains @scheme[unifiable?]s.} + +@defproc[(answer-value? [x any/c]) boolean?]{Identifies values that may appear in @racket[answer?]. Essentially @racket[unifiable?]s that do not contain @racket[logic-var?]s.} + +@defproc[(answer? [x any/c]) boolean?]{Identifies answers returned by @racket[%more] and @racket[%which]. Equivalent to the contract @racket[(or/c false/c (listof (cons/c symbol? answer-value?)))].} + +@defthing[goal/c contract?]{A contract for goals.} + +@subsection{User Interface} + +@defform[(%which (V ...) G ...) + #:contracts ([V identifier?] + [G goal/c])]{ +Returns an @racket[answer?] +of the variables @racket[V], ..., that satisfies all of @racket[G], +... If @racket[G], ..., cannot be satisfied, returns @racket[#f]. +Calling the thunk @racket[%more] produces more +instantiations, if available.} + +@defproc[(%more) answer?]{ +The thunk @racket[%more] produces more instantiations of the +variables in the most recent @racket[%which]-form that satisfy the +goals in that @racket[%which]-form. If no more solutions can +be found, @racket[%more] returns @racket[#f].} + +@subsection{Relations} + +@defform/subs[(%rel (V ...) clause ...) + ([clause [(E ...) G ...]]) + #:contracts ([V identifier?] + [E expression?] + [G goal/c])]{ +Returns a predicate function. +Each clause @racket[C] signifies +that the goal created by applying the predicate object to +anything that matches @racket[(E ...)] is deemed to succeed if all +the goals @racket[G], ..., can, in their turn, be shown to succeed.} + +@defpred[(%empty-rel [E unifiable?] ...)]{ +The goal @racket[(%empty-rel E ...)] always fails. The @emph{value} +@racket[%empty-rel] is used as a starting value for predicates +that can later be enhanced with @racket[%assert!] and @racket[%assert-after!].} + +@defform[(%assert! Pname (V ...) clause ...) + #:contracts ([Pname identifier?] + [V identifier?])]{ +Adds the clauses +@racket[clauses], ..., to the @emph{end} of the predicate that is the value of +the Racket variable @racket[Pname]. The variables @racket[V], ..., are +local logic variables for @racket[clause], ....} + +@defform[(%assert-after! Pname (V ...) clause ...) + #:contracts ([Pname identifier?] + [V identifier?])]{ +Like @racket[%assert!], but adds the new clauses to the @emph{front} +of the existing predicate.} + +@subsection{Raclog Variables} + +@defproc[(_) logic-var?]{ +A thunk that produces a new logic variable. Can be +used in situations where we want a logic variable but +don't want to name it. (@racket[%let], in contrast, introduces new +lexical names for the logic variables it creates.) +} + +@defform[(%let (V ...) expr ...) + #:contracts ([V identifier?])]{ +Introduces @racket[V], ..., as +lexically scoped logic variables to be used in @racket[expr], ...} + +@subsection{Cut} + +@defform[(%cut-delimiter . any)]{ +Introduces a cut point. See @secref{cut}.} + +@defidform[!]{ +The cut goal, see @secref{cut}. + +May only be used syntactically inside @racket[%cut-delimiter] or @racket[%rel].} + +@subsection{Raclogal Operators} + +@defgoal[%fail]{ +The goal @racket[%fail] always fails.} + +@defgoal[%true]{ +The goal @racket[%true] succeeds. Fails on retry.} + +@defpred[(%repeat)]{ +The goal @racket[(%repeat)] always succeeds (even on retries). +Useful for failure-driven loops.} + +@defform[(%and G ...) #:contracts ([G goal/c])]{ +The goal @racket[(%and G ...)] succeeds if all the goals +@racket[G], ..., succeed.} + +@defform[(%or G ...) #:contracts ([G goal/c])]{ +The goal @racket[(%or G ...)] succeeds if one of @racket[G], ..., tried +in that order, succeeds.} + +@defpred[(%not [G goal/c])]{ +The goal @racket[(%not G)] succeeds if @racket[G] fails.} + +@defpred[(%if-then-else [G1 goal/c] [G2 goal/c] [G3 goal/c])]{ +The goal @racket[(%if-then-else G1 G2 G3)] tries @racket[G1] first: if it +succeeds, tries @racket[G2]; if not, tries @racket[G3].} + +@subsection{Unification} + +@defpred[(%= [E1 unifiable?] [E2 unifiable?])]{ +The goal @racket[(%= E1 E2)] succeeds if @racket[E1] can be unified with +@racket[E2]. Any resulting bindings for logic variables are kept.} + +@defpred[(%/= [E1 unifiable?] [E2 unifiable?])]{@racket[%/=] is the negation of @racket[%=]. +The goal @racket[(%/= E1 E2)] succeeds if @racket[E1] can not be unified +with @racket[E2].} + +@defpred[(%== [E1 unifiable?] [E2 unifiable?])]{ +The goal @racket[(%== E1 E2)] succeeds if @racket[E1] is @emph{identical} +to @racket[E2]. They should be structurally equal. If containing +logic variables, they should have the same variables in the +same position. Unlike a @racket[%=]-call, this goal will not bind +any logic variables.} + +@defpred[(%/== [E1 unifiable?] [E2 unifiable?])]{ +@racket[%/==] is the negation of @racket[%==]. +The goal @racket[(%/== E1 E2)] succeeds if @racket[E1] and @racket[E2] are not +identical.} + +@defform[(%is E1 E2)]{ +The goal @racket[(%is E1 E2)] unifies with @racket[E1] the result of +evaluating @racket[E2] as a Racket expression. @racket[E2] may contain +logic variables, which are dereferenced automatically. +Fails if @racket[E2] contains unbound logic variables.} + +@defparam[use-occurs-check? on? boolean?]{ +If this is false (the default), +Raclog's unification will not use the occurs check. +If it is true, the occurs check is enabled.} + +@subsection{Numeric Predicates} + +@defpred[(%< [E1 unifiable?] [E2 unifiable?])]{ +The goal @racket[(%< E1 E2)] succeeds if @racket[E1] and @racket[E2] are bound to +numbers and @racket[E1] is less than @racket[E2].} + +@defpred[(%<= [E1 unifiable?] [E2 unifiable?])]{ +The goal @racket[(%<= E1 E2)] succeeds if @racket[E1] and @racket[E2] are bound to +numbers and @racket[E1] is less than or equal to @racket[E2].} + +@defpred[(%=/= [E1 unifiable?] [E2 unifiable?])]{ +The goal @racket[(%=/= E1 E2)] succeeds if @racket[E1] and @racket[E2] are bound to +numbers and @racket[E1] is not equal to @racket[E2].} + +@defpred[(%=:= [E1 unifiable?] [E2 unifiable?])]{ +The goal @racket[(%=:= E1 E2)] succeeds if @racket[E1] and @racket[E2] are bound to +numbers and @racket[E1] is equal to @racket[E2].} + +@defpred[(%> [E1 unifiable?] [E2 unifiable?])]{ +The goal @racket[(%> E1 E2)] succeeds if @racket[E1] and @racket[E2] are bound to +numbers and @racket[E1] is greater than @racket[E2].} + +@defpred[(%>= [E1 unifiable?] [E2 unifiable?])]{ +The goal @racket[(%>= E1 E2)] succeeds if @racket[E1] and @racket[E2] are bound to +numbers and @racket[E1] is greater than or equal to @racket[E2].} + +@subsection{List Predicates} + +@defpred[(%append [E1 unifiable?] [E2 unifiable?] [E3 unifiable?])]{ +The goal @racket[(%append E1 E2 E3)] succeeds if @racket[E3] is unifiable +with the list obtained by appending @racket[E1] and @racket[E2].} + +@defpred[(%member [E1 unifiable?] [E2 unifiable?])]{ +The goal @racket[(%member E1 E2)] succeeds if @racket[E1] is a member +of the list in @racket[E2].} + +@subsection{Set Predicates} + +@defpred[(%set-of [E1 unifiable?] [G goal/c] [E2 unifiable?])]{ +The goal @racket[(%set-of E1 G E2)] unifies with @racket[E2] the @emph{set} +of all the +instantiations of @racket[E1] for which goal @racket[G] succeeds.} + +@defpred[(%set-of-1 [E1 unifiable?] [G goal/c] [E2 unifiable?])]{ +Similar to @racket[%set-of], but fails if the set is empty.} + +@defpred[(%bag-of [E1 unifiable?] [G goal/c] [E2 unifiable?])]{ +The goal @racket[(%bag-of E1 G E2)] unifies with @racket[E2] the @emph{bag} +(multiset) +of all the +instantiations of @racket[E1] for which goal @racket[G] succeeds.} + +@defpred[(%bag-of-1 [E1 unifiable?] [G goal/c] [E2 unifiable?])]{ +Similar to @racket[%bag-of], but fails if the bag is empty.} + +@defform[(%free-vars (V ...) G) + #:contracts ([V identifier?] + [G goal/c])]{ +Identifies +the occurrences of the variables @racket[V], ..., in goal +@racket[G] as free. It is used to avoid existential quantification +in calls to set predicates (@racket[%bag-of], @racket[%set-of], &c.).} + +@subsection{Raclog Predicates} + +@defpred[(%compound [E unifiable?])]{ +The goal @racket[(%compound E)] succeeds if @racket[E] is a compound +value.} + +@defpred[(%constant [E unifiable?])]{ +The goal @racket[(%constant E)] succeeds if @racket[E] is an atomic +value.} + +@defpred[(%var [E unifiable?])]{ +The goal @racket[(%var E)] succeeds if @racket[E] is not completely +instantiated, ie, it has at least one unbound variable in +it.} + +@defpred[(%nonvar [E unifiable?])]{ +@racket[%nonvar] is the negation of @racket[%var]. +The goal @racket[(%nonvar E)] succeeds if @racket[E] is completely +instantiated, ie, it has no unbound variable in it.} + +@subsection{Raclog Variable Manipulation} + +@defpred[(%freeze [S unifiable?] [F unifiable?])]{ +The goal @racket[(%freeze S F)] unifies with @racket[F] a new frozen +version of the structure in @racket[S]. Freezing implies that all +the unbound variables are preserved. @racket[F] can henceforth be +used as @emph{bound} object with no fear of its variables +getting bound by unification.} + +@defpred[(%melt [F unifiable?] [S unifiable?])]{ +The goal @racket[(%melt F S)] unifies @racket[S] with the thawed +(original) form of the frozen structure in @racket[F].} + +@defpred[(%melt-new [F unifiable?] [S unifiable?])]{ +The goal @racket[(%melt-new F S)] unifies @racket[S] with a thawed +@emph{copy} of the frozen structure in @racket[F]. This means +new logic variables are used for unbound logic variables in +@racket[F].} + +@defpred[(%copy [F unifiable?] [S unifiable?])]{ +The goal @racket[(%copy F S)] unifies with @racket[S] a copy of the +frozen structure in @racket[F].} + +@bibliography[ + @bib-entry[#:key "aop" + #:author "Leon Sterling and Ehud Shapiro" + #:url "http://mitpress.mit.edu/book-home.tcl?isbn=0262193388" + #:title "The Art of Prolog, 2nd Edition" + #:location "MIT Press" + #:date "1994" + #:is-book? #t] + @bib-entry[#:key "bratko" + #:author "Ivan Bratko" + #:title "Prolog Programming for Artificial Intelligence" + #:location "Addison-Wesley" + #:date "1986" + #:is-book? #t] + @bib-entry[#:key "campbell" + #:author "J A Campbell (editor)" + #:title "Implementations of Prolog" + #:location "Ellis Horwood" + #:date "1984" + #:is-book? #t] + @bib-entry[#:key "ok:prolog" + #:author "Richard A O'Keefe" + #:url "http://mitpress.mit.edu/book-home.tcl?isbn=0262150395" + #:title "The Craft of Prolog" + #:location "MIT Press" + #:date "1990" + #:is-book? #t] + @bib-entry[#:key "logick" + #:author "Christopher T Haynes" + #:title "Logic continuations" + #:location "J Logic Program, vol 4, 157--176" + #:date "1987"] + @bib-entry[#:key "mf:prolog" + #:author "Matthias Felleisen" + #:title "Transliterating Prolog into Scheme" + #:location "Indiana U Comp Sci Dept Tech Report #182" + #:date "1985"] + ] \ No newline at end of file diff --git a/collects/raclog/unify.rkt b/collects/raclog/unify.rkt new file mode 100644 index 0000000000..32ad5921b8 --- /dev/null +++ b/collects/raclog/unify.rkt @@ -0,0 +1,536 @@ +#lang racket +(provide (all-defined-out)) + +; same hash +(define (make-immutable-hash*) (make-immutable-hash empty)) +(define (make-immutable-hasheqv*) (make-immutable-hasheqv empty)) +(define (make-immutable-hasheq*) (make-immutable-hasheq empty)) +(define (same-hash-make ht) + (match ht + [(? immutable?) + (match ht + [(? hash-equal?) make-immutable-hash*] + [(? hash-eqv?) make-immutable-hasheqv*] + [(? hash-eq?) make-immutable-hasheq*])] + [(? hash-weak?) + (match ht + [(? hash-equal?) make-weak-hash] + [(? hash-eqv?) make-weak-hasheqv] + [(? hash-eq?) make-weak-hasheq])] + [_ + (match ht + [(? hash-equal?) make-hash] + [(? hash-eqv?) make-hasheqv] + [(? hash-eq?) make-hasheq])])) +(define (same-hash-kind? x y) + (eq? (same-hash-make x) (same-hash-make y))) +(define (same-hash-map f ht) + (define new-ht ((same-hash-make ht))) + (if (immutable? ht) + (for/fold ([new-ht new-ht]) + ([(k v) (in-hash ht)]) + (hash-set new-ht k (f v))) + (begin + (for ([(k v) (in-hash ht)]) + (hash-set! new-ht k (f v))) + new-ht))) + +; compound structs +(require unstable/sequence) +(define (in-compound-struct s) + (define-values (stype _) (struct-info s)) + (define-values (name init-field-cnt auto-field-cnt accessor-proc mutator-proc immutable-k-list super-type skipped?) (struct-type-info stype)) + (define total-field-cnt (+ init-field-cnt) + #;(compound-struct-type-field-cnt stype)) + (sequence-lift (curry accessor-proc s) (in-range total-field-cnt))) + +(define (compound-struct-map f s) + (define-values (stype _) (struct-info s)) + (define make (struct-type-make-constructor stype)) + (apply make + (for/list ([e (in-compound-struct s)]) + (f e)))) +(define (compound-struct-ormap f s) + (for/or ([e (in-compound-struct s)]) + (f e))) +(define (compound-struct-andmap f s) + (for/and ([e (in-compound-struct s)]) + (f e))) +(define (compound-struct-same? x y) + (define-values (xtype _) (struct-info x)) + ((struct-type-make-predicate xtype) y)) +(define (compound-struct-cmp x y =) + (and (compound-struct-same? x y) + (for/and ([ex (in-compound-struct x)] + [ey (in-compound-struct y)]) + (= ex ey)))) + +(define-struct logic-var (val) #:mutable) + +(define *unbound* '_) + +;;unbound refs point to themselves +(define (make-ref [val *unbound*]) + (make-logic-var val)) + +(define _ make-ref) +(define (unbound-logic-var? r) + (and (logic-var? r) (eq? (logic-var-val r) *unbound*))) +(define (unbind-ref! r) + (set-logic-var-val! r *unbound*)) + +(define-struct frozen (val)) +(define (freeze-ref r) + (make-ref (make-frozen r))) +(define (thaw-frozen-ref r) + (frozen-val (logic-var-val r))) +(define (frozen-logic-var? r) + (frozen? (logic-var-val r))) + +(define-syntax (uni-match stx) + (syntax-case + stx (? logic-var? cons mcons box vector? hash? compound-struct? atom? else) + [(_ v + [(? logic-var? lv) logic-var-expr ...] + [(cons cl cr) cons-expr ...] + [(mcons mcl mcr) mcons-expr ...] + [(box bv) box-expr ...] + [(? vector? vec) vector-expr ...] + [(? hash? hash) hash-expr ...] + [(? compound-struct? cs) cs-expr ...] + [(? atom? x) atom-expr ...]) + (syntax/loc stx + (match v + [(? logic-var? lv) logic-var-expr ...] + [(cons cl cr) cons-expr ...] + [(mcons mcl mcr) mcons-expr ...] + [(box bv) box-expr ...] + [(? vector? vec) vector-expr ...] + [(? hash? hash) hash-expr ...] + [(? compound-struct? cs) cs-expr ...] + [(? atom? x) atom-expr ...]))] + [(_ v + [(? logic-var? lv) logic-var-expr ...] + [(cons cl cr) cons-expr ...] + [(mcons mcl mcr) mcons-expr ...] + [(box bv) box-expr ...] + [(? vector? vec) vector-expr ...] + [(? hash? hash) hash-expr ...] + [(? compound-struct? cs) cs-expr ...] + [(? atom? x) atom-expr ...] + [else else-expr ...]) + (syntax/loc stx + (match v + [(? logic-var? lv) logic-var-expr ...] + [(cons cl cr) cons-expr ...] + [(mcons mcl mcr) mcons-expr ...] + [(box bv) box-expr ...] + [(? vector? vec) vector-expr ...] + [(? hash? hash) hash-expr ...] + [(? compound-struct? cs) cs-expr ...] + [(? atom? x) atom-expr ...] + [else else-expr ...]))])) + +(define (logic-var-val* v) + (uni-match + v + [(? logic-var? s) + (if (frozen-logic-var? s) s + (logic-var-val* (logic-var-val s)))] + [(cons l r) + (cons (logic-var-val* l) (logic-var-val* r))] + [(mcons l r) + (mcons (logic-var-val* l) (logic-var-val* r))] + [(box v) (box (logic-var-val* v))] + [(? vector? v) + (vector-map logic-var-val* v)] + [(? hash? v) (same-hash-map logic-var-val* v)] + [(? compound-struct? v) (compound-struct-map logic-var-val* v)] + [(? atom? s) s])) + +(define use-occurs-check? (make-parameter #f)) + +(define (occurs-in? var term) + (and (use-occurs-check?) + (let loop ([term term]) + (or (eqv? var term) + (uni-match + term + [(? logic-var? term) + (cond [(unbound-logic-var? term) #f] + [(frozen-logic-var? term) #f] + [else (loop (logic-var-val term))])] + [(cons l r) + (or (loop l) (loop r))] + [(mcons l r) + (or (loop l) (loop r))] + [(box v) (loop v)] + [(? vector? v) + (for/or ([e (in-vector v)]) (loop e))] + [(? hash? ht) + (for/or ([(k v) (in-hash ht)]) (or (loop k) (loop v)))] + [(? compound-struct? cs) (compound-struct-ormap loop cs)] + [(? atom? x) #f]))))) + +(define (constant? x) + (uni-match + x + [(? logic-var? x) + (cond [(unbound-logic-var? x) #f] + [(frozen-logic-var? x) #t] + [else (constant? (logic-var-val x))])] + [(cons l r) #f] + [(mcons l r) #f] + [(box v) #f] + [(? vector? v) #f] + [(? hash? v) #f] + [(? compound-struct? v) #f] + [(? atom? x) #t])) + +(define (is-compound? x) + (uni-match + x + [(? logic-var? x) + (cond [(unbound-logic-var? x) #f] + [(frozen-logic-var? x) #f] + [else (is-compound? (logic-var-val x))])] + [(cons l r) #t] + [(mcons l r) #t] + [(box v) #t] + [(? vector? v) #t] + [(? hash? v) #t] + [(? compound-struct? v) #t] + [(? atom? x) #f])) + +(define (var? x) + (uni-match + x + [(? logic-var? x) + (cond [(unbound-logic-var? x) #t] + [(frozen-logic-var? x) #f] + [else (var? (logic-var-val x))])] + [(cons l r) (or (var? l) (var? r))] + [(mcons l r) (or (var? l) (var? r))] + [(box v) (var? v)] + [(? vector? v) + (for/or ([e (in-vector v)]) (var? e))] + [(? hash? ht) + (for/or ([(k v) (in-hash ht)]) (var? v))] + [(? compound-struct? cs) (compound-struct-ormap var? cs)] + [(? atom? x) #f])) + +(define (freeze v) + (define dict (make-hasheq)) + (define (loop s) + (uni-match + s + [(? logic-var? s) + (if (or (unbound-logic-var? s) (frozen-logic-var? s)) + (hash-ref! dict s + (lambda () + (freeze-ref s))) + (loop (logic-var-val s)))] + [(cons l r) + (cons (loop l) (loop r))] + [(mcons l r) + (mcons (loop l) (loop r))] + [(box v) (box (loop v))] + [(? vector? v) + (vector-map loop v)] + [(? hash? v) + (same-hash-map loop v)] + [(? compound-struct? cs) (compound-struct-map loop cs)] + [(? atom? s) s])) + (loop v)) + +(define (melt f) + (uni-match + f + [(? logic-var? f) + (cond [(unbound-logic-var? f) f] + [(frozen-logic-var? f) (thaw-frozen-ref f)] + [else (melt (logic-var-val f))])] + [(cons l r) + (cons (melt l) (melt r))] + [(mcons l r) + (mcons (melt l) (melt r))] + [(box v) (box (melt v))] + [(? vector? v) + (vector-map melt v)] + [(? hash? v) + (same-hash-map melt v)] + [(? compound-struct? cs) (compound-struct-map melt cs)] + [(? atom? s) s])) + +(define (melt-new f) + (define dict (make-hasheq)) + (define (loop s) + (uni-match + s + [(? logic-var? f) + (cond [(unbound-logic-var? f) f] + [(frozen-logic-var? f) + (hash-ref! dict f _)] + [else (loop (logic-var-val f))])] + [(cons l r) + (cons (loop l) (loop r))] + [(mcons l r) + (mcons (loop l) (loop r))] + [(box v) (box (loop v))] + [(? vector? v) + (vector-map loop v)] + [(? hash? v) + (same-hash-map loop v)] + [(? compound-struct? cs) + (compound-struct-map loop cs)] + [(? atom? s) s])) + (loop f)) + +(define (copy s) + (melt-new (freeze s))) + +(define (ident? x y) + (uni-match + x + [(? logic-var? x) + (cond [(unbound-logic-var? x) + (cond [(logic-var? y) + (cond [(unbound-logic-var? y) (eq? x y)] + [(frozen-logic-var? y) #f] + [else (ident? x (logic-var-val y))])] + [else #f])] + [(frozen-logic-var? x) + (cond [(logic-var? y) + (cond [(unbound-logic-var? y) #f] + [(frozen-logic-var? y) (eq? x y)] + [else (ident? x (logic-var-val y))])] + [else #f])] + [else (ident? (logic-var-val x) y)])] + [(cons xl xr) + (uni-match + y + [(? logic-var? y) + (cond [(unbound-logic-var? y) #f] + [(frozen-logic-var? y) #f] + [else (ident? x (logic-var-val y))])] + [(cons yl yr) + (and (ident? xl yl) (ident? xr yr))] + [(mcons yl yr) #f] + [(box v) #f] + [(? vector? y) #f] + [(? hash? y) #f] + [(? compound-struct? y) #f] + [(? atom? y) #f])] + [(mcons xl xr) + (uni-match + y + [(? logic-var? y) + (cond [(unbound-logic-var? y) #f] + [(frozen-logic-var? y) #f] + [else (ident? x (logic-var-val y))])] + [(cons yl yr) #f] + [(mcons yl yr) + (and (ident? xl yl) (ident? xr yr))] + [(box v) #f] + [(? vector? y) #f] + [(? hash? y) #f] + [(? compound-struct? y) #f] + [(? atom? y) #f])] + [(box xv) + (uni-match + y + [(? logic-var? y) + (cond [(unbound-logic-var? y) #f] + [(frozen-logic-var? y) #f] + [else (ident? x (logic-var-val y))])] + [(cons yl yr) #f] + [(mcons yl yr) #f] + [(box yv) (ident? xv yv)] + [(? vector? y) #f] + [(? hash? y) #f] + [(? compound-struct? y) #f] + [(? atom? y) #f])] + [(? vector? x) + (uni-match + y + [(? logic-var? y) + (cond [(unbound-logic-var? y) #f] + [(frozen-logic-var? y) #f] + [else (ident? x (logic-var-val y))])] + [(cons yl yr) #f] + [(mcons yl yr) #f] + [(box v) #f] + [(? vector? y) + (if (= (vector-length x) + (vector-length y)) + (for/and ([xe (in-vector x)] + [ye (in-vector y)]) + (ident? xe ye)) + #f)] + [(? hash? y) #f] + [(? compound-struct? y) #f] + [(? atom? y) #f])] + [(? hash? x) + (uni-match + y + [(? logic-var? y) + (cond [(unbound-logic-var? y) #f] + [(frozen-logic-var? y) #f] + [else (ident? x (logic-var-val y))])] + [(cons yl yr) #f] + [(mcons yl yr) #f] + [(box v) #f] + [(? vector? y) #f] + [(? hash? y) + (and (same-hash-kind? x y) + (= (hash-count x) (hash-count y)) + (for/and ([(xk xv) (in-hash x)]) + ; XXX not using ident? for key comparison + (and (hash-has-key? y xk) + (ident? xv (hash-ref y xk)))))] + [(? compound-struct? y) #f] + [(? atom? y) #f])] + [(? compound-struct? x) + (uni-match + y + [(? logic-var? y) + (cond [(unbound-logic-var? y) #f] + [(frozen-logic-var? y) #f] + [else (ident? x (logic-var-val y))])] + [(cons yl yr) #f] + [(mcons yl yr) #f] + [(box v) #f] + [(? vector? y) #f] + [(? hash? y) #f] + [(? compound-struct? y) + (compound-struct-cmp x y ident?)] + [(? atom? y) #f])] + [(? atom? x) + (uni-match + y + [(? logic-var? y) + (cond [(unbound-logic-var? y) #f] + [(frozen-logic-var? y) #f] + [else (ident? x (logic-var-val y))])] + [(cons yl yr) #f] + [(mcons yl yr) #f] + [(box v) #f] + [(? vector? y) #f] + [(? hash? y) #f] + [(? compound-struct? y) #f] + [(? atom? y) (eqv? x y)])])) + +(define (unify t1 t2) + (lambda (fk) + (define (cleanup-n-fail s) + (for-each unbind-ref! s) + (fk 'fail)) + (define (unify1 t1 t2 s) + (cond [(eqv? t1 t2) s] + [(logic-var? t1) + (cond [(unbound-logic-var? t1) + (cond [(occurs-in? t1 t2) + (cleanup-n-fail s)] + [else + (set-logic-var-val! t1 t2) + (list* t1 s)])] + [(frozen-logic-var? t1) + (cond [(logic-var? t2) + (cond [(unbound-logic-var? t2) + (unify1 t2 t1 s)] + [(frozen-logic-var? t2) + (cleanup-n-fail s)] + [else + (unify1 t1 (logic-var-val t2) s)])] + [else (cleanup-n-fail s)])] + [else + (unify1 (logic-var-val t1) t2 s)])] + [(logic-var? t2) (unify1 t2 t1 s)] + [(and (pair? t1) (pair? t2)) + (unify1 (cdr t1) (cdr t2) + (unify1 (car t1) (car t2) s))] + [(and (mpair? t1) (mpair? t2)) + (unify1 (mcdr t1) (mcdr t2) + (unify1 (mcar t1) (mcar t2) s))] + [(and (box? t1) (box? t2)) + (unify1 (unbox t1) (unbox t2) s)] + [(and (vector? t1) (vector? t2)) + (if (= (vector-length t1) + (vector-length t2)) + (for/fold ([s s]) + ([v1 (in-vector t1)] + [v2 (in-vector t2)]) + (unify1 v1 v2 s)) + (cleanup-n-fail s))] + [(and (hash? t1) (hash? t2)) + (if (and (same-hash-kind? t1 t2) + (= (hash-count t1) (hash-count t2))) + (for/fold ([s s]) + ([(xk xv) (in-hash t1)]) + (if (hash-has-key? t2 xk) + (unify1 xv (hash-ref t2 xk) s) + (cleanup-n-fail s))) + (cleanup-n-fail s))] + [(and (compound-struct? t1) (compound-struct? t2)) + (if (compound-struct-same? t1 t2) + (for/fold ([s s]) + ([e1 (in-compound-struct t1)] + [e2 (in-compound-struct t2)]) + (unify1 e1 e2 s)) + (cleanup-n-fail s))] + [(and (atom? t1) (atom? t2)) + (if (equal? t1 t2) s + (cleanup-n-fail s))] + [else + (cleanup-n-fail s)])) + (define s (unify1 t1 t2 empty)) + (lambda (d) + (cleanup-n-fail s)))) + +(define-syntax-rule (or* x f ...) + (or (f x) ...)) + +(define (atomic-struct? v) + (not (compound-struct? v))) +(define (compound-struct? v) + (let-values ([(stype skipped?) (struct-info v)]) + (and stype (not skipped?)))) + +(define (atom? x) + (or* x boolean? number? string? bytes? char? symbol? + regexp? pregexp? byte-regexp? byte-pregexp? + keyword? null? procedure? void? set? + atomic-struct?)) +(define (compound? x) + (or* x pair? vector? mpair? box? hash? compound-struct?)) + +(define (answer-value? x) + (uni-match + x + [(? logic-var? x) #f] + [(cons l r) (and (answer-value? l) (answer-value? r))] + [(mcons l r) (and (answer-value? l) (answer-value? r))] + [(box v) (answer-value? v)] + [(? vector? v) (for/and ([e (in-vector v)]) (answer-value? e))] + [(? hash? ht) (for/and ([(k v) (in-hash ht)]) (and (answer-value? k) (answer-value? v)))] + [(? compound-struct? cs) (compound-struct-andmap answer-value? cs)] + [(? atom? x) #t] + [else #f])) +(define answer? + (match-lambda + [#f #t] + [(list (cons (? symbol?) (? answer-value?)) ...) #t] + [_ #f])) +(define (unifiable? x) + (uni-match + x + [(? logic-var? x) #t] + [(cons l r) (and (unifiable? l) (unifiable? r))] + [(mcons l r) (and (unifiable? l) (unifiable? r))] + [(box v) (unifiable? v)] + [(? vector? v) (for/and ([e (in-vector v)]) (unifiable? e))] + [(? hash? ht) (for/and ([(k v) (in-hash ht)]) (and #;(answer-value? k) ; No constraint, but won't be used XXX + (unifiable? v)))] + [(? compound-struct? cs) (compound-struct-andmap unifiable? cs)] + [(? atom? x) #t] + [else #f])) \ No newline at end of file diff --git a/collects/raco/all-tools.ss b/collects/raco/all-tools.rkt similarity index 100% rename from collects/raco/all-tools.ss rename to collects/raco/all-tools.rkt diff --git a/collects/raco/command-name.ss b/collects/raco/command-name.rkt similarity index 96% rename from collects/raco/command-name.ss rename to collects/raco/command-name.rkt index c1693d85c9..e07da148ed 100644 --- a/collects/raco/command-name.ss +++ b/collects/raco/command-name.rkt @@ -1,4 +1,4 @@ -#lang scheme/base +#lang racket/base (provide current-command-name program+command-name diff --git a/collects/raco/info.rkt b/collects/raco/info.rkt new file mode 100644 index 0000000000..dafedf44e4 --- /dev/null +++ b/collects/raco/info.rkt @@ -0,0 +1,6 @@ +#lang setup/infotab + +(define compile-omit-paths '("main.rkt")) + +(define racket-launcher-libraries '("main.rkt")) +(define racket-launcher-names '("raco")) diff --git a/collects/raco/info.ss b/collects/raco/info.ss deleted file mode 100644 index 62887e73b9..0000000000 --- a/collects/raco/info.ss +++ /dev/null @@ -1,6 +0,0 @@ -#lang setup/infotab - -(define compile-omit-paths '("main.ss")) - -(define racket-launcher-libraries '("main.ss")) -(define racket-launcher-names '("raco")) diff --git a/collects/raco/main.ss b/collects/raco/main.rkt similarity index 100% rename from collects/raco/main.ss rename to collects/raco/main.rkt diff --git a/collects/raco/raco.rkt b/collects/raco/raco.rkt new file mode 100644 index 0000000000..ac2a63636d --- /dev/null +++ b/collects/raco/raco.rkt @@ -0,0 +1,89 @@ +#lang scheme/base +(require "command-name.ss" + "all-tools.ss") + +(define (find-by-prefix hash str) + (let ([trie (make-hash)]) + (for ([key (in-hash-keys hash)]) + (for/fold ([trie trie]) ([c (string->list key)]) + (let ([next (hash-ref trie c (lambda () (make-hash)))]) + (if (hash-ref next #f #f) + (hash-set! next #f null) + (hash-set! next #f key)) + (hash-set! trie c next) + next))) + (let ([t (for/fold ([trie trie]) ([c (string->list str)]) + (and trie + (hash-ref trie c #f)))]) + (and t + (let ([s (hash-ref t #f #f)]) + (if (string? s) + (hash-ref hash s) + 'ambiguous)))))) + +(let* ([cmdline (vector->list (current-command-line-arguments))] + [cmdline (if (and (pair? cmdline) + (equal? "help" (car cmdline)) + (pair? (cdr cmdline)) + (not (regexp-match? #rx"^-" (cadr cmdline)))) + (list* (cadr cmdline) "--help" (cddr cmdline)) + cmdline)] + [tools (all-tools)] + [show-all? + (cond + [(null? cmdline) #f] + [(or (equal? (car cmdline) "--help") + (equal? (car cmdline) "-h")) + #t] + [(regexp-match? #rx"^-" (car cmdline)) + (fprintf (current-error-port) "~a: A flag must follow a command: ~a\n\n" + (find-system-path 'run-file) + (car cmdline)) + #f] + [(or (hash-ref tools (car cmdline) #f) + (find-by-prefix tools (car cmdline))) + => (lambda (tool) + (if (eq? 'ambiguous tool) + (begin + (fprintf (current-error-port) "~a: Ambiguous command prefix: ~a\n\n" + (find-system-path 'run-file) + (car cmdline)) + #f) + (parameterize ([current-command-line-arguments + (list->vector (cdr cmdline))] + [current-command-name (car tool)]) + (dynamic-require (cadr tool) #f) + (exit))))] + [(equal? (car cmdline) "help") #t] + [else + (fprintf (current-error-port) "~a: Unrecognized command: ~a\n\n" + (find-system-path 'run-file) + (car cmdline)) + #f])]) + (fprintf (current-error-port) "Usage: raco