diff --git a/collects/algol60/info.ss b/collects/algol60/info.ss index 5171a0ea87..6f744b1167 100644 --- a/collects/algol60/info.ss +++ b/collects/algol60/info.ss @@ -1,7 +1,7 @@ -(module info setup/infotab - (define name "Algol 60") - (define tools '(("tool.ss"))) - (define tool-names '("Algol 60")) - (define scribblings '(("algol60.scrbl"))) - (define doc-categories '(other))) +#lang setup/infotab +(define name "Algol 60") +(define tools '(("tool.ss"))) +(define tool-names '("Algol 60")) +(define scribblings '(("algol60.scrbl"))) +(define doc-categories '(other)) diff --git a/collects/browser/info.ss b/collects/browser/info.ss index 135587fd5c..7596ba4915 100644 --- a/collects/browser/info.ss +++ b/collects/browser/info.ss @@ -1,5 +1,5 @@ -(module info setup/infotab - (define name "Browser") - (define tools (list (list "tool.ss"))) - (define tool-names (list "Browser"))) +#lang setup/infotab +(define name "Browser") +(define tools (list (list "tool.ss"))) +(define tool-names (list "Browser")) diff --git a/collects/browser/private/info.ss b/collects/browser/private/info.ss index 5df861143e..5f826c28f4 100644 --- a/collects/browser/private/info.ss +++ b/collects/browser/private/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "Browser private")) +#lang setup/infotab + +(define name "Browser private") diff --git a/collects/combinator-parser/info.ss b/collects/combinator-parser/info.ss index 423b09f7d9..ed9cf79bf0 100644 --- a/collects/combinator-parser/info.ss +++ b/collects/combinator-parser/info.ss @@ -1,4 +1,3 @@ +#lang setup/infotab -(module info setup/infotab - (define name "Combinator parser")) - +(define name "Combinator parser") diff --git a/collects/combinator-parser/private-combinator/info.ss b/collects/combinator-parser/private-combinator/info.ss index a0b53fccac..8ac9a3c7b9 100644 --- a/collects/combinator-parser/private-combinator/info.ss +++ b/collects/combinator-parser/private-combinator/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "Combinator-parser private-combinator")) +#lang setup/infotab + +(define name "Combinator-parser private-combinator") diff --git a/collects/compiler/info.ss b/collects/compiler/info.ss index 8b2eeebb9f..4bb023e87a 100644 --- a/collects/compiler/info.ss +++ b/collects/compiler/info.ss @@ -1,9 +1,9 @@ +#lang setup/infotab -(module info setup/infotab - (define name "mzc") +(define name "mzc") - (define scribblings '(("cffi.scrbl"))) - (define doc-categories '((foreign -1))) +(define scribblings '(("cffi.scrbl"))) +(define doc-categories '((foreign -1))) - (define mzscheme-launcher-libraries (list "main.ss")) - (define mzscheme-launcher-names (list "mzc"))) +(define mzscheme-launcher-libraries (list "main.ss")) +(define mzscheme-launcher-names (list "mzc")) diff --git a/collects/compiler/private/info.ss b/collects/compiler/private/info.ss index f8917bcc0f..432accd33d 100644 --- a/collects/compiler/private/info.ss +++ b/collects/compiler/private/info.ss @@ -1,3 +1,3 @@ +#lang setup/infotab -(module info setup/infotab - (define name "mzc private")) +(define name "mzc private") diff --git a/collects/config/info.ss b/collects/config/info.ss index 124e0ac80b..93ed1c1fd4 100644 --- a/collects/config/info.ss +++ b/collects/config/info.ss @@ -1,3 +1,4 @@ -(module info setup/infotab - (define name "Config") - (define scribblings '(("config.scrbl")))) +#lang setup/infotab + +(define name "Config") +(define scribblings '(("config.scrbl"))) diff --git a/collects/drscheme/info.ss b/collects/drscheme/info.ss index dc199b59cc..b99110b3a5 100644 --- a/collects/drscheme/info.ss +++ b/collects/drscheme/info.ss @@ -1,7 +1,7 @@ -(module info setup/infotab - (define name "DrScheme") - (define tools (list "syncheck.ss" (list "time-keystrokes.ss" "private"))) - (define tool-names (list "Check Syntax" "Time Keystrokes")) - (define mred-launcher-names (list "DrScheme")) - (define mred-launcher-libraries (list "drscheme.ss"))) +#lang setup/infotab +(define name "DrScheme") +(define tools (list "syncheck.ss" (list "time-keystrokes.ss" "private"))) +(define tool-names (list "Check Syntax" "Time Keystrokes")) +(define mred-launcher-names (list "DrScheme")) +(define mred-launcher-libraries (list "drscheme.ss")) diff --git a/collects/drscheme/private/info.ss b/collects/drscheme/private/info.ss index 36d2586e7c..1ab7b46d88 100644 --- a/collects/drscheme/private/info.ss +++ b/collects/drscheme/private/info.ss @@ -1,5 +1,3 @@ -(module info setup/infotab - (define name "DrScheme private")) +#lang setup/infotab - - +(define name "DrScheme private") diff --git a/collects/dynext/info.ss b/collects/dynext/info.ss index f368f862d1..2be97e5d1c 100644 --- a/collects/dynext/info.ss +++ b/collects/dynext/info.ss @@ -1,5 +1,4 @@ +#lang setup/infotab -(module info setup/infotab - (define name "Dynext") - (define scribblings '(("dynext.scrbl" (multi-page))))) - +(define name "Dynext") +(define scribblings '(("dynext.scrbl" (multi-page)))) diff --git a/collects/embedded-gui/info.ss b/collects/embedded-gui/info.ss index 8b7dcd9459..c35fa00d50 100644 --- a/collects/embedded-gui/info.ss +++ b/collects/embedded-gui/info.ss @@ -1,4 +1,3 @@ -(module info setup/infotab - (define name "Embedded GUI")) - +#lang setup/infotab +(define name "Embedded GUI") diff --git a/collects/eopl/info.ss b/collects/eopl/info.ss index fcef128eec..43b71f1e77 100644 --- a/collects/eopl/info.ss +++ b/collects/eopl/info.ss @@ -1,14 +1,15 @@ -(module info setup/infotab - (require (lib "string-constant.ss" "string-constants")) - - (define name "EoPL") - (define tools (list "eopl-tool.ss")) - (define tool-icons (list "eopl-small.gif")) - (define tool-names (list "Essentials of Programming Languages")) - (define tool-urls (list "http://www.cs.indiana.edu/eopl/")) - - (define textbook-pls - (list (list '("eopl-small.gif" "eopl") - "Essentials of Programming Languages" - (string-constant teaching-languages) - "Essentials of Programming Languages (2nd ed.)")))) +#lang setup/infotab + +(require string-constants/string-constant) + +(define name "EoPL") +(define tools (list "eopl-tool.ss")) +(define tool-icons (list "eopl-small.gif")) +(define tool-names (list "Essentials of Programming Languages")) +(define tool-urls (list "http://www.cs.indiana.edu/eopl/")) + +(define textbook-pls + (list (list '("eopl-small.gif" "eopl") + "Essentials of Programming Languages" + (string-constant teaching-languages) + "Essentials of Programming Languages (2nd ed.)"))) diff --git a/collects/eopl/private/info.ss b/collects/eopl/private/info.ss index 066e14c2be..49147e5bc5 100644 --- a/collects/eopl/private/info.ss +++ b/collects/eopl/private/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "EoPL private")) +#lang setup/infotab + +(define name "EoPL private") diff --git a/collects/errortrace/info.ss b/collects/errortrace/info.ss index c5c5cff9a0..97b51a045a 100644 --- a/collects/errortrace/info.ss +++ b/collects/errortrace/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "Errortrace")) +#lang setup/infotab + +(define name "Errortrace") diff --git a/collects/errortrace/scribblings/info.ss b/collects/errortrace/scribblings/info.ss index 2fab5f5d7d..432db6c85f 100644 --- a/collects/errortrace/scribblings/info.ss +++ b/collects/errortrace/scribblings/info.ss @@ -1,3 +1,4 @@ -(module info setup/infotab - (define name "Errortrace documentation") - (define scribblings '(("errortrace.scrbl" (multi-page))))) +#lang setup/infotab + +(define name "Errortrace documentation") +(define scribblings '(("errortrace.scrbl" (multi-page)))) diff --git a/collects/ffi/info.ss b/collects/ffi/info.ss index e6fbf843d2..ca9655d1e1 100644 --- a/collects/ffi/info.ss +++ b/collects/ffi/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "Foreign Function Interfaces")) +#lang setup/infotab + +(define name "Foreign Function Interfaces") diff --git a/collects/file/info.ss b/collects/file/info.ss index 1773142178..e273cd402a 100644 --- a/collects/file/info.ss +++ b/collects/file/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "File")) +#lang setup/infotab + +(define name "File") diff --git a/collects/file/scribblings/info.ss b/collects/file/scribblings/info.ss index 2666bf9bfd..3946d7aed2 100644 --- a/collects/file/scribblings/info.ss +++ b/collects/file/scribblings/info.ss @@ -1,3 +1,4 @@ -(module info setup/infotab - (define name "File documentation") - (define scribblings '(("file.scrbl" (multi-page))))) +#lang setup/infotab + +(define name "File documentation") +(define scribblings '(("file.scrbl" (multi-page)))) diff --git a/collects/framework/info.ss b/collects/framework/info.ss index f45e083566..e239b6c98c 100644 --- a/collects/framework/info.ss +++ b/collects/framework/info.ss @@ -1,3 +1,3 @@ -(module info setup/infotab - (define name "Framework")) +#lang setup/infotab +(define name "Framework")) diff --git a/collects/framework/private/info.ss b/collects/framework/private/info.ss index be4957fa7e..a131dee464 100644 --- a/collects/framework/private/info.ss +++ b/collects/framework/private/info.ss @@ -1,3 +1,4 @@ -(module info setup/infotab - (define name "Framework private") - (define compile-omit-files '("standard-menus.ss"))) +#lang setup/infotab + +(define name "Framework private") +(define compile-omit-files '("standard-menus.ss")) diff --git a/collects/frtime/demos/gui/info.ss b/collects/frtime/demos/gui/info.ss index 78a4c770ff..eb3faf555c 100644 --- a/collects/frtime/demos/gui/info.ss +++ b/collects/frtime/demos/gui/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "frtime gui wrapper")) +#lang setup/infotab + +(define name "frtime gui wrapper") diff --git a/collects/frtime/info.ss b/collects/frtime/info.ss index 6120457096..921a151f1a 100644 --- a/collects/frtime/info.ss +++ b/collects/frtime/info.ss @@ -1,8 +1,9 @@ -(module info setup/infotab - (define name "frtime") +#lang setup/infotab - (define scribblings '(("frtime.scrbl" ()))) - (define compile-subcollections (list (list "frtime" "demos" "gui"))) - (define tools (list "frtime-tool.ss")) - (define tool-icons (list '("clock.png" "frtime"))) - (define tool-names (list "FrTime Languages"))) +(define name "frtime") + +(define scribblings '(("frtime.scrbl" ()))) +(define compile-subcollections '(("frtime" "demos" "gui"))) +(define tools '("frtime-tool.ss")) +(define tool-icons '(("clock.png" "frtime"))) +(define tool-names '("FrTime Languages")) diff --git a/collects/games/aces/info.ss b/collects/games/aces/info.ss index 3d92bc8da7..a1efd0930e 100644 --- a/collects/games/aces/info.ss +++ b/collects/games/aces/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Aces") - (define game "aces.scm") - (define game-set "Card Games")) +#lang setup/infotab + +(define name "Aces") +(define game "aces.scm") +(define game-set "Card Games") diff --git a/collects/games/blackjack/info.ss b/collects/games/blackjack/info.ss index f46b9b5c8a..91600b9391 100644 --- a/collects/games/blackjack/info.ss +++ b/collects/games/blackjack/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Blackjack") - (define game "blackjack.ss") - (define game-set "Card Games")) +#lang setup/infotab + +(define name "Blackjack") +(define game "blackjack.ss") +(define game-set "Card Games") diff --git a/collects/games/cards/info.ss b/collects/games/cards/info.ss index 1f64f12dea..00d5f7a68f 100644 --- a/collects/games/cards/info.ss +++ b/collects/games/cards/info.ss @@ -1,4 +1,4 @@ -(module info setup/infotab - (define name "Game Cards") - (define scribblings '(("cards.scrbl")))) +#lang setup/infotab +(define name "Game Cards") +(define scribblings '(("cards.scrbl"))) diff --git a/collects/games/checkers/info.ss b/collects/games/checkers/info.ss index 81810f0939..3819068fc9 100644 --- a/collects/games/checkers/info.ss +++ b/collects/games/checkers/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Checkers") - (define game "checkers.ss") - (define game-set "Board Games")) +#lang setup/infotab + +(define name "Checkers") +(define game "checkers.ss") +(define game-set "Board Games") diff --git a/collects/games/crazy8s/info.ss b/collects/games/crazy8s/info.ss index 73615f0966..62d046aaed 100644 --- a/collects/games/crazy8s/info.ss +++ b/collects/games/crazy8s/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Crazy 8s") - (define game "crazy8s.ss") - (define game-set "Card Games")) +#lang setup/infotab + +(define name "Crazy 8s") +(define game "crazy8s.ss") +(define game-set "Card Games") diff --git a/collects/games/doors/info.ss b/collects/games/doors/info.ss index c40968046b..d8c360fdfc 100644 --- a/collects/games/doors/info.ss +++ b/collects/games/doors/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "Doors game library")) +#lang setup/infotab + +(define name "Doors game library") diff --git a/collects/games/gcalc/info.ss b/collects/games/gcalc/info.ss index 946fc7a6c2..cd2510e46d 100644 --- a/collects/games/gcalc/info.ss +++ b/collects/games/gcalc/info.ss @@ -1,3 +1,4 @@ -(module info setup/infotab - (define name "GCalc") - (define game "gcalc.ss")) +#lang setup/infotab + +(define name "GCalc") +(define game "gcalc.ss") diff --git a/collects/games/ginrummy/info.ss b/collects/games/ginrummy/info.ss index 1ae0eac0a4..656fb15e49 100644 --- a/collects/games/ginrummy/info.ss +++ b/collects/games/ginrummy/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Rummy") - (define game "ginrummy.ss") - (define game-set "Card Games")) +#lang setup/infotab + +(define name "Rummy") +(define game "ginrummy.ss") +(define game-set "Card Games") diff --git a/collects/games/gl-board-game/info.ss b/collects/games/gl-board-game/info.ss index a495af692a..03df90ea7e 100644 --- a/collects/games/gl-board-game/info.ss +++ b/collects/games/gl-board-game/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "3D board game library")) +#lang setup/infotab + +(define name "3D board game library") diff --git a/collects/games/gobblet/info.ss b/collects/games/gobblet/info.ss index 4f922e95ba..c4c0f46e27 100644 --- a/collects/games/gobblet/info.ss +++ b/collects/games/gobblet/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Gobblet") - (define game "gobblet.ss") - (define game-set "Board Games")) +#lang setup/infotab + +(define name "Gobblet") +(define game "gobblet.ss") +(define game-set "Board Games") diff --git a/collects/games/gofish/info.ss b/collects/games/gofish/info.ss index aa70f34f7d..ccefee6ff6 100644 --- a/collects/games/gofish/info.ss +++ b/collects/games/gofish/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Go Fish") - (define game "gofish.ss") - (define game-set "Card Games")) +#lang setup/infotab + +(define name "Go Fish") +(define game "gofish.ss") +(define game-set "Card Games") diff --git a/collects/games/info.ss b/collects/games/info.ss index 15c68e07a8..72a4fbd5d5 100644 --- a/collects/games/info.ss +++ b/collects/games/info.ss @@ -1,10 +1,8 @@ -(module info setup/infotab - (define name "Games") - (define mred-launcher-libraries (list "games.ss")) - (define mred-launcher-names (list "PLT Games")) - (define doc-sub-collections - (list "cards" "paint-by-numbers" "same" "lights-out" "aces" "spider" - "memory" "pousse" "crazy8s" - "gcalc" "parcheesi" "gl-board-game" - "jewel" "doors"))) +#lang setup/infotab +(define name "Games") +(define mred-launcher-libraries (list "games.ss")) +(define mred-launcher-names (list "PLT Games")) +(define doc-sub-collections + '("cards" "paint-by-numbers" "same" "lights-out" "aces" "spider" "memory" + "pousse" "crazy8s" "gcalc" "parcheesi" "gl-board-game" "jewel" "doors")) diff --git a/collects/games/jewel/info.ss b/collects/games/jewel/info.ss index 67c9d53ce6..530d6e8a20 100644 --- a/collects/games/jewel/info.ss +++ b/collects/games/jewel/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Jewel") - (define game "jewel.scm") - (define game-set "Puzzle Games")) +#lang setup/infotab + +(define name "Jewel") +(define game "jewel.scm") +(define game-set "Puzzle Games") diff --git a/collects/games/lights-out/info.ss b/collects/games/lights-out/info.ss index 2a6bc71999..b5930cfb92 100644 --- a/collects/games/lights-out/info.ss +++ b/collects/games/lights-out/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Lights Out") - (define game-set "Puzzle Games") - (define game "lights-out.ss")) +#lang setup/infotab + +(define name "Lights Out") +(define game-set "Puzzle Games") +(define game "lights-out.ss") diff --git a/collects/games/memory/info.ss b/collects/games/memory/info.ss index aaadeef323..f68f2c3461 100644 --- a/collects/games/memory/info.ss +++ b/collects/games/memory/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Memory") - (define game "memory.ss") - (define game-set "Card Games")) +#lang setup/infotab + +(define name "Memory") +(define game "memory.ss") +(define game-set "Card Games") diff --git a/collects/games/mines/info.ss b/collects/games/mines/info.ss index 8f71c2417a..8b286af017 100644 --- a/collects/games/mines/info.ss +++ b/collects/games/mines/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Minesweeper") - (define game-set "Puzzle Games") - (define game "mines.ss")) +#lang setup/infotab + +(define name "Minesweeper") +(define game-set "Puzzle Games") +(define game "mines.ss") diff --git a/collects/games/paint-by-numbers/info.ss b/collects/games/paint-by-numbers/info.ss index a60f8cb224..a6a786b1f0 100644 --- a/collects/games/paint-by-numbers/info.ss +++ b/collects/games/paint-by-numbers/info.ss @@ -1,25 +1,21 @@ -(module info setup/infotab - (define name "Paint by Numbers") - (define game "paint-by-numbers.ss") - (define game-set "Puzzle Games") - (define compile-omit-files '( - ;; Skipped because it's huge - lots - ;; of data-encoding units - "all-problems.ss" - - ;; Skipped because it requires - ;; all-problems.ss - "paint-by-numbers.ss" - - ;; Skipped because these are used - ;; only to build the huge units. - "build-hattori.ss" - "build-kajitani.ss" - "build-problems.ss" - "raw-hattori.ss" - "raw-kajitani.ss" - "raw-problems.ss" - "raw-misc.ss" - "build-rows-cols.ss" - "count-missing.ss" - "main.ss"))) +#lang setup/infotab + +(define name "Paint by Numbers") +(define game "paint-by-numbers.ss") +(define game-set "Puzzle Games") +(define compile-omit-files + '(;; Skipped because it's huge - lots of data-encoding units + "all-problems.ss" + ;; Skipped because it requires all-problems.ss + "paint-by-numbers.ss" + ;; Skipped because these are used only to build the huge units. + "build-hattori.ss" + "build-kajitani.ss" + "build-problems.ss" + "raw-hattori.ss" + "raw-kajitani.ss" + "raw-problems.ss" + "raw-misc.ss" + "build-rows-cols.ss" + "count-missing.ss" + "main.ss")) diff --git a/collects/games/parcheesi/info.ss b/collects/games/parcheesi/info.ss index 97457e85a2..ffe6bba729 100644 --- a/collects/games/parcheesi/info.ss +++ b/collects/games/parcheesi/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Parcheesi") - (define game "parcheesi.ss") - (define game-set "Board Games")) +#lang setup/infotab + +(define name "Parcheesi") +(define game "parcheesi.ss") +(define game-set "Board Games") diff --git a/collects/games/pousse/info.ss b/collects/games/pousse/info.ss index 5a2298dcff..cf7f82e9bc 100644 --- a/collects/games/pousse/info.ss +++ b/collects/games/pousse/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Pousse") - (define game "pousse.ss") - (define game-set "Board Games")) +#lang setup/infotab + +(define name "Pousse") +(define game "pousse.ss") +(define game-set "Board Games") diff --git a/collects/games/same/info.ss b/collects/games/same/info.ss index 3758d5300a..4ef2b2ab3d 100644 --- a/collects/games/same/info.ss +++ b/collects/games/same/info.ss @@ -1,5 +1,5 @@ -(module info setup/infotab - (define name "Same") - (define game-set "Puzzle Games") - (define game "same.ss")) +#lang setup/infotab +(define name "Same") +(define game-set "Puzzle Games") +(define game "same.ss") diff --git a/collects/games/slidey/info.ss b/collects/games/slidey/info.ss index 71c7224d59..5e37d2f546 100644 --- a/collects/games/slidey/info.ss +++ b/collects/games/slidey/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Slidey") - (define game-set "Puzzle Games") - (define game "slidey.ss")) +#lang setup/infotab + +(define name "Slidey") +(define game-set "Puzzle Games") +(define game "slidey.ss") diff --git a/collects/games/spider/info.ss b/collects/games/spider/info.ss index b2238804de..8c5652621b 100644 --- a/collects/games/spider/info.ss +++ b/collects/games/spider/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Spider") - (define game "spider.ss") - (define game-set "Card Games")) +#lang setup/infotab + +(define name "Spider") +(define game "spider.ss") +(define game-set "Card Games") diff --git a/collects/graphics/info.ss b/collects/graphics/info.ss index ef341e4582..39d89ce11d 100644 --- a/collects/graphics/info.ss +++ b/collects/graphics/info.ss @@ -1,5 +1,4 @@ +#lang setup/infotab -(module info setup/infotab - (define name "Graphics") - (define compile-omit-files '("value-turex.ss" "value-turtle-lib.ss"))) - +(define name "Graphics") +(define compile-omit-files '("value-turex.ss" "value-turtle-lib.ss")) diff --git a/collects/graphics/scribblings/info.ss b/collects/graphics/scribblings/info.ss index 67c62d0a2a..2e73e7db75 100644 --- a/collects/graphics/scribblings/info.ss +++ b/collects/graphics/scribblings/info.ss @@ -1,3 +1,4 @@ -(module info setup/infotab - (define name "Graphics documentation") - (define scribblings '(("graphics.scrbl" (multi-page))))) +#lang setup/infotab + +(define name "Graphics documentation") +(define scribblings '(("graphics.scrbl" (multi-page)))) diff --git a/collects/guibuilder/info.ss b/collects/guibuilder/info.ss index f82266dd88..7ae694d3a3 100644 --- a/collects/guibuilder/info.ss +++ b/collects/guibuilder/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "GUI Builder") - (define tools '(("tool.ss"))) - (define tool-names '("GUI Builder"))) +#lang setup/infotab + +(define name "GUI Builder") +(define tools '(("tool.ss"))) +(define tool-names '("GUI Builder")) diff --git a/collects/handin-client/info.ss b/collects/handin-client/info.ss index 553270078c..5fc3ca8f09 100644 --- a/collects/handin-client/info.ss +++ b/collects/handin-client/info.ss @@ -1,42 +1,41 @@ -(module info setup/infotab - ;; Modify these definitions to enable & customize the tool. - ;; (Detailed instructions are in the handin-server collection's doc.txt) - ;; Also replace the "server-cert.pem" files. +#lang setup/infotab - ;; Your course name (used for menus, button label, collection name etc) - (define name "Course") +;; Modify these definitions to enable & customize the tool. +;; (Detailed instructions are in the handin-server collection's doc.txt) +;; Also replace the "server-cert.pem" files. - ;; The handin tool is disabled by default, uncomment these three lines to - ;; enable it - ;(define tools `("client-gui.ss")) - ;(define tool-names `(,name)) - ;(define tool-icons `("icon.png")) - ;; Modify the provided "icon.png" file to your school/lab/etc logo. +;; Your course name (used for menus, button label, collection name etc) +(define name "Course") - ;; You must define a server:port for the client to be functional - ;(define server:port "localhost:7979") +;; The handin tool is disabled by default, uncomment these three lines to +;; enable it +;(define tools `("client-gui.ss")) +;(define tool-names `(,name)) +;(define tool-icons `("icon.png")) +;; Modify the provided "icon.png" file to your school/lab/etc logo. - ;; The following are optional. Uncomment and fill in - ;; the values to add a menu item under "Help" to open - ;; the specified web page (using the user's chosen web - ;; browser.) - ;(define web-menu-name "Course Homepage") - ;(define web-address "http://www.university.edu/course/") +;; You must define a server:port for the client to be functional +;(define server:port "localhost:7979") - ;; Auto-updater section (see handin-server/doc.txt for details) - ;(define enable-auto-update #t) ; enable auto-update? - ;(define version-filename "handin-version") - ;(define package-filename "handin.plt") +;; The following are optional. Uncomment and fill in +;; the values to add a menu item under "Help" to open +;; the specified web page (using the user's chosen web +;; browser.) +;(define web-menu-name "Course Homepage") +;(define web-address "http://www.university.edu/course/") - ;; Multi-file submission section (see handin-server/doc.txt for details) - ;(define enable-multifile-handin #t) ; enable multi-file? - ;(define selection-mode 'extended) ; mode for file choose, usually 'extended - ;(define selection-default ; suffixes to auto-choose (string or string-list) - ; '("*.scm;*.ss" "*.scm;*.ss;*.txt")) +;; Auto-updater section (see handin-server/doc.txt for details) +;(define enable-auto-update #t) ; enable auto-update? +;(define version-filename "handin-version") +;(define package-filename "handin.plt") - ;; Client configuration - ;(define password-keep-minutes 5) ; client remembers entered password 5 mins +;; Multi-file submission section (see handin-server/doc.txt for details) +;(define enable-multifile-handin #t) ; enable multi-file? +;(define selection-mode 'extended) ; mode for file choose, usually 'extended +;(define selection-default ; suffixes to auto-choose (string or string-list) +; '("*.scm;*.ss" "*.scm;*.ss;*.txt")) - (define requires '(("mred") ("openssl"))) +;; Client configuration +;(define password-keep-minutes 5) ; client remembers entered password 5 mins - ) +(define requires '(("mred") ("openssl"))) diff --git a/collects/handin-server/info.ss b/collects/handin-server/info.ss index 2261c34bfb..c6804e6e6d 100644 --- a/collects/handin-server/info.ss +++ b/collects/handin-server/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "Handin Server")) +#lang setup/infotab + +(define name "Handin Server") diff --git a/collects/help/info.ss b/collects/help/info.ss index f6b82e031f..f53fdce341 100644 --- a/collects/help/info.ss +++ b/collects/help/info.ss @@ -1,4 +1,4 @@ -; help collection -(module info setup/infotab - (define name "Help") - (define post-install-collection "installer.ss")) +#lang setup/infotab + +(define name "Help") +(define post-install-collection "installer.ss") diff --git a/collects/hierlist/info.ss b/collects/hierlist/info.ss index 6cc2002434..fd3f77d416 100644 --- a/collects/hierlist/info.ss +++ b/collects/hierlist/info.ss @@ -1,3 +1,3 @@ +#lang setup/infotab -(module info setup/infotab - (define name "Hierarchical list widget")) +(define name "Hierarchical list widget") diff --git a/collects/honu-module/info.ss b/collects/honu-module/info.ss index 0577a87a32..ece1feefd3 100644 --- a/collects/honu-module/info.ss +++ b/collects/honu-module/info.ss @@ -1,4 +1,3 @@ +#lang setup/infotab -(module info setup/infotab - (define name "#honu")) - +(define name "#honu") diff --git a/collects/htdch/colors/info.ss b/collects/htdch/colors/info.ss index a26ee200d3..79cdae7b2e 100644 --- a/collects/htdch/colors/info.ss +++ b/collects/htdch/colors/info.ss @@ -1,5 +1,6 @@ -(module info setup/infotab - (define name "Colors Teachpack") - (define assume-virtual-sources #t) - (define install-collection "installer.ss") - #;(define pre-install-collection "pre-installer.ss")) +#lang setup/infotab + +(define name "Colors Teachpack") +(define assume-virtual-sources #t) +(define install-collection "installer.ss") +;; (define pre-install-collection "pre-installer.ss") diff --git a/collects/htdch/draw/info.ss b/collects/htdch/draw/info.ss index c87a0c3e26..de65ce6c02 100644 --- a/collects/htdch/draw/info.ss +++ b/collects/htdch/draw/info.ss @@ -1,5 +1,6 @@ -(module info setup/infotab - (define name "Draw Teachpack") - (define assume-virtual-sources #t) - (define install-collection "installer.ss") - #;(define pre-install-collection "pre-installer.ss")) +#lang setup/infotab + +(define name "Draw Teachpack") +(define assume-virtual-sources #t) +(define install-collection "installer.ss") +;; (define pre-install-collection "pre-installer.ss") diff --git a/collects/htdch/geometry/info.ss b/collects/htdch/geometry/info.ss index 7e25113112..1ebb605a66 100644 --- a/collects/htdch/geometry/info.ss +++ b/collects/htdch/geometry/info.ss @@ -1,5 +1,6 @@ -(module info setup/infotab - (define name "Geometry Teachpack") - (define assume-virtual-sources #t) - (define install-collection "installer.ss") - #;(define pre-install-collection "pre-installer.ss")) +#lang setup/infotab + +(define name "Geometry Teachpack") +(define assume-virtual-sources #t) +(define install-collection "installer.ss") +;; (define pre-install-collection "pre-installer.ss") diff --git a/collects/htdch/graphics/info.ss b/collects/htdch/graphics/info.ss index ab6a3bdd13..ee881b10d1 100644 --- a/collects/htdch/graphics/info.ss +++ b/collects/htdch/graphics/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Java Graphics Teachpack") - (define assume-virtual-sources #t) - (define install-collection "installer.ss")) +#lang setup/infotab + +(define name "Java Graphics Teachpack") +(define assume-virtual-sources #t) +(define install-collection "installer.ss") diff --git a/collects/htdch/idraw/info.ss b/collects/htdch/idraw/info.ss index 6806a9887a..41a4e4f49a 100644 --- a/collects/htdch/idraw/info.ss +++ b/collects/htdch/idraw/info.ss @@ -1,5 +1,6 @@ -(module info setup/infotab - (define name "Imperative Draw Teachpack") - (define assume-virtual-sources #t) - (define install-collection "installer.ss") - #;(define pre-install-collection "pre-installer.ss")) +#lang setup/infotab + +(define name "Imperative Draw Teachpack") +(define assume-virtual-sources #t) +(define install-collection "installer.ss") +;; (define pre-install-collection "pre-installer.ss") diff --git a/collects/htdch/info.ss b/collects/htdch/info.ss index d32ca60d11..dedaf0aa74 100644 --- a/collects/htdch/info.ss +++ b/collects/htdch/info.ss @@ -1,9 +1,9 @@ -(module info setup/infotab - (define name "htdch") - (define compile-subcollections - (list - (list "htdch" "draw") - (list "htdch" "geometry") - (list "htdch" "colors") - (list "htdch" "graphics") - (list "htdch" "idraw")))) +#lang setup/infotab + +(define name "htdch") +(define compile-subcollections + '(("htdch" "draw") + ("htdch" "geometry") + ("htdch" "colors") + ("htdch" "graphics") + ("htdch" "idraw"))) diff --git a/collects/htdp/info.ss b/collects/htdp/info.ss index 04ab7bb718..5ff1957b44 100644 --- a/collects/htdp/info.ss +++ b/collects/htdp/info.ss @@ -1,8 +1,9 @@ -(module info setup/infotab - (define name "HtDP Teachpacks") - (define compile-omit-files - '("hangman-world.ss" "hangman-world-play.ss" - ;; TEMPORARY DISABLE THESE FILES UNTIL FIXED - ;; "matrix.ss" "matrix-client.ss" "matrix-invisible.ss" - ;; "matrix-render-sig.ss" "matrix-sig.ss" "matrix-unit.ss" - ))) +#lang setup/infotab + +(define name "HtDP Teachpacks") +(define compile-omit-files + '("hangman-world.ss" "hangman-world-play.ss" + ;; TEMPORARY DISABLE THESE FILES UNTIL FIXED + ;; "matrix.ss" "matrix-client.ss" "matrix-invisible.ss" + ;; "matrix-render-sig.ss" "matrix-sig.ss" "matrix-unit.ss" + )) diff --git a/collects/html/info.ss b/collects/html/info.ss index b419498459..dc05937f50 100644 --- a/collects/html/info.ss +++ b/collects/html/info.ss @@ -1,9 +1,7 @@ -(module info setup/infotab - (define name "HTML") - (define scribblings '(("html.scrbl"))) - (define compile-omit-files - '("dtd.ss" "dtdr.ss" "dtds.ss" "dtd-ast.ss" - "case.ss" "html-structs.ss" - "entity-expander.ss" "generate-code.ss" - "sgml.ss"))) +#lang setup/infotab +(define name "HTML") +(define scribblings '(("html.scrbl"))) +(define compile-omit-files + '("dtd.ss" "dtdr.ss" "dtds.ss" "dtd-ast.ss" "case.ss" "html-structs.ss" + "entity-expander.ss" "generate-code.ss" "sgml.ss")) diff --git a/collects/lang/info.ss b/collects/lang/info.ss index efd046afed..e585065856 100644 --- a/collects/lang/info.ss +++ b/collects/lang/info.ss @@ -1,15 +1,16 @@ -(module info setup/infotab - (require (lib "string-constant.ss" "string-constants")) - - (define name "HtDP Languages") - (define tools (list "htdp-langs.ss")) - (define tool-icons (list '("htdp-icon.gif" "icons"))) - (define tool-names (list "How to Design Programs")) - (define tool-urls (list "http://www.htdp.org/")) - - (define textbook-pls - (list (list '("htdp-icon.gif" "icons") - "How to Design Programs" - (string-constant teaching-languages) - (string-constant how-to-design-programs) - (string-constant beginning-student))))) +#lang setup/infotab + +(require string-constants/string-constant) + +(define name "HtDP Languages") +(define tools (list "htdp-langs.ss")) +(define tool-icons (list '("htdp-icon.gif" "icons"))) +(define tool-names (list "How to Design Programs")) +(define tool-urls (list "http://www.htdp.org/")) + +(define textbook-pls + (list (list '("htdp-icon.gif" "icons") + "How to Design Programs" + (string-constant teaching-languages) + (string-constant how-to-design-programs) + (string-constant beginning-student)))) diff --git a/collects/lang/private/info.ss b/collects/lang/private/info.ss index 7636303280..3954b55cf0 100644 --- a/collects/lang/private/info.ss +++ b/collects/lang/private/info.ss @@ -1,3 +1,3 @@ -(module info setup/infotab - (define name "HtDP Languages Private")) +#lang setup/infotab +(define name "HtDP Languages Private") diff --git a/collects/launcher/info.ss b/collects/launcher/info.ss index 0bdd5500d6..cb7d958fd7 100644 --- a/collects/launcher/info.ss +++ b/collects/launcher/info.ss @@ -1,3 +1,3 @@ -(module info setup/infotab - (define name "Launcher")) +#lang setup/infotab +(define name "Launcher") diff --git a/collects/lazy/info.ss b/collects/lazy/info.ss index d3e56d28f7..00fe75c481 100644 --- a/collects/lazy/info.ss +++ b/collects/lazy/info.ss @@ -1,10 +1,10 @@ -(module info setup/infotab - (require (lib "string-constant.ss" "string-constants")) - (define name "Lazy Scheme") - (define scribblings '(("lazy.scrbl"))) - (define drscheme-language-modules '(("lazy.ss" "lazy"))) - (define drscheme-language-positions - `((,(string-constant experimental-languages) "Lazy Scheme"))) - (define drscheme-language-numbers '((1000 -500))) - (define drscheme-language-one-line-summaries '("Lazy Scheme")) -) +#lang setup/infotab + +(require string-constants/string-constant) +(define name "Lazy Scheme") +(define scribblings '(("lazy.scrbl"))) +(define drscheme-language-modules '(("lazy.ss" "lazy"))) +(define drscheme-language-positions + `((,(string-constant experimental-languages) "Lazy Scheme"))) +(define drscheme-language-numbers '((1000 -500))) +(define drscheme-language-one-line-summaries '("Lazy Scheme")) diff --git a/collects/macro-debugger/info.ss b/collects/macro-debugger/info.ss index 232746efb7..daf5f050b8 100644 --- a/collects/macro-debugger/info.ss +++ b/collects/macro-debugger/info.ss @@ -1,5 +1,5 @@ +#lang setup/infotab -(module info setup/infotab - (define name "Macro Debugger") - (define tools '(["tool.ss"])) - (define tool-names '("Macro Stepper"))) +(define name "Macro Debugger") +(define tools '(["tool.ss"])) +(define tool-names '("Macro Stepper")) diff --git a/collects/macro-debugger/model/info.ss b/collects/macro-debugger/model/info.ss index b4752e5ab8..0c51c45aec 100644 --- a/collects/macro-debugger/model/info.ss +++ b/collects/macro-debugger/model/info.ss @@ -1,3 +1,3 @@ +#lang setup/infotab -(module info setup/infotab - (define name "Macro Debugger expansion model")) +(define name "Macro Debugger expansion model") diff --git a/collects/macro-debugger/syntax-browser/info.ss b/collects/macro-debugger/syntax-browser/info.ss index 860fd45e4b..680225ff04 100644 --- a/collects/macro-debugger/syntax-browser/info.ss +++ b/collects/macro-debugger/syntax-browser/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "Macro Debugger - Syntax Browser")) +#lang setup/infotab + +(define name "Macro Debugger - Syntax Browser") diff --git a/collects/macro-debugger/view/info.ss b/collects/macro-debugger/view/info.ss index 3df725025f..12eb0a75ef 100644 --- a/collects/macro-debugger/view/info.ss +++ b/collects/macro-debugger/view/info.ss @@ -1,4 +1,4 @@ +#lang setup/infotab -(module info setup/infotab - (define name "Macro Debugger view") - (define compile-omit-files '("browse-deriv.ss" "show-deriv.ss"))) +(define name "Macro Debugger view") +(define compile-omit-files '("browse-deriv.ss" "show-deriv.ss")) diff --git a/collects/make/info.ss b/collects/make/info.ss index 8be612acad..8eae1895ea 100644 --- a/collects/make/info.ss +++ b/collects/make/info.ss @@ -1,3 +1,3 @@ +#lang setup/infotab -(module info setup/infotab - (define name "Make")) +(define name "Make") diff --git a/collects/mred/info.ss b/collects/mred/info.ss index f1395d5cea..dbebf9d742 100644 --- a/collects/mred/info.ss +++ b/collects/mred/info.ss @@ -1,5 +1,5 @@ +#lang setup/infotab -(module info setup/infotab - (define name "MrEd") - (define version '(400)) - (define post-install-collection "script-installer.ss")) +(define name "MrEd") +(define version '(400)) +(define post-install-collection "script-installer.ss") diff --git a/collects/mred/lang/info.ss b/collects/mred/lang/info.ss index 478026bab9..7c53b53ccc 100644 --- a/collects/mred/lang/info.ss +++ b/collects/mred/lang/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "MrEd #lang")) +#lang setup/infotab + +(define name "MrEd #lang") diff --git a/collects/mred/private/info.ss b/collects/mred/private/info.ss index a6d217d12b..427ddc9b94 100644 --- a/collects/mred/private/info.ss +++ b/collects/mred/private/info.ss @@ -1,3 +1,3 @@ +#lang setup/infotab -(module info setup/infotab - (define name "MrEd private")) +(define name "MrEd private") diff --git a/collects/mrlib/info.ss b/collects/mrlib/info.ss index 3fd2268cd7..5bbfefcb16 100644 --- a/collects/mrlib/info.ss +++ b/collects/mrlib/info.ss @@ -1,3 +1,3 @@ -(module info setup/infotab - (define name "MrLib")) +#lang setup/infotab +(define name "MrLib") diff --git a/collects/mrlib/private/info.ss b/collects/mrlib/private/info.ss index cb062ca7df..197731624a 100644 --- a/collects/mrlib/private/info.ss +++ b/collects/mrlib/private/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "MrLib private")) +#lang setup/infotab + +(define name "MrLib private") diff --git a/collects/mrlib/scribblings/info.ss b/collects/mrlib/scribblings/info.ss index 7cf6a42bfd..aded43ac30 100644 --- a/collects/mrlib/scribblings/info.ss +++ b/collects/mrlib/scribblings/info.ss @@ -1,3 +1,4 @@ -(module info setup/infotab - (define name "MrLib documentation") - (define scribblings '(("mrlib.scrbl" (multi-page))))) +#lang setup/infotab + +(define name "MrLib documentation") +(define scribblings '(("mrlib.scrbl" (multi-page)))) diff --git a/collects/mysterx/info.ss b/collects/mysterx/info.ss index 4698a934d3..0a525e3f75 100644 --- a/collects/mysterx/info.ss +++ b/collects/mysterx/info.ss @@ -1,5 +1,4 @@ -;; info.ss for mysterx collection +#lang setup/infotab -(module info setup/infotab - (define name "MysterX") - (define post-install-collection "installer.ss")) +(define name "MysterX") +(define post-install-collection "installer.ss") diff --git a/collects/mzcom/info.ss b/collects/mzcom/info.ss index 3827a32b38..62b7047e9d 100644 --- a/collects/mzcom/info.ss +++ b/collects/mzcom/info.ss @@ -1,5 +1,4 @@ -;; info.ss for mzcom collection +#lang setup/infotab -(module info setup/infotab - (define name "MzCOM") - (define post-install-collection "installer.ss")) +(define name "MzCOM") +(define post-install-collection "installer.ss") diff --git a/collects/mzlib/info.ss b/collects/mzlib/info.ss index f63a8e3915..886e5a29f5 100644 --- a/collects/mzlib/info.ss +++ b/collects/mzlib/info.ss @@ -1,4 +1,3 @@ +#lang setup/infotab -(module info setup/infotab - (define name "MzLib")) - +(define name "MzLib") diff --git a/collects/mzlib/private/info.ss b/collects/mzlib/private/info.ss index 60463f3bf7..117ffa69cf 100644 --- a/collects/mzlib/private/info.ss +++ b/collects/mzlib/private/info.ss @@ -1,4 +1,4 @@ +#lang setup/infotab -(module info setup/infotab - (define name "MzLib private") - (define compile-omit-files '("shared-body.ss"))) +(define name "MzLib private") +(define compile-omit-files '("shared-body.ss")) diff --git a/collects/mzscheme/info.ss b/collects/mzscheme/info.ss index feb0d2201d..53559b3f0f 100644 --- a/collects/mzscheme/info.ss +++ b/collects/mzscheme/info.ss @@ -1,5 +1,5 @@ +#lang setup/infotab -(module info setup/infotab - (define name "MzScheme") - (define version '(400)) - (define scribblings '(("mzscheme.scrbl" (multi-page))))) +(define name "MzScheme") +(define version '(400)) +(define scribblings '(("mzscheme.scrbl" (multi-page)))) diff --git a/collects/mzscheme/lang/info.ss b/collects/mzscheme/lang/info.ss index 865500f76e..e4749ae574 100644 --- a/collects/mzscheme/lang/info.ss +++ b/collects/mzscheme/lang/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "MzScheme #lang")) +#lang setup/infotab + +(define name "MzScheme #lang") diff --git a/collects/mztake/info.ss b/collects/mztake/info.ss index 0f081bbcf7..28f0236c08 100644 --- a/collects/mztake/info.ss +++ b/collects/mztake/info.ss @@ -1,6 +1,6 @@ -(module info setup/infotab - (define name "MzTake Debugger") - (define tools '(("debug-tool.ss"))) - (define tool-names '("MzTake Debugger")) - (define tool-icons '(("emblem-ohno.png" "mztake" "icons"))) -) +#lang setup/infotab + +(define name "MzTake Debugger") +(define tools '(("debug-tool.ss"))) +(define tool-names '("MzTake Debugger")) +(define tool-icons '(("emblem-ohno.png" "mztake" "icons"))) diff --git a/collects/net/info.ss b/collects/net/info.ss index d8eaade098..5386eabcd1 100644 --- a/collects/net/info.ss +++ b/collects/net/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "Net")) +#lang setup/infotab + +(define name "Net") diff --git a/collects/net/scribblings/info.ss b/collects/net/scribblings/info.ss index 49b934568a..8a7034cad0 100644 --- a/collects/net/scribblings/info.ss +++ b/collects/net/scribblings/info.ss @@ -1,3 +1,4 @@ -(module info setup/infotab - (define name "Net documentation") - (define scribblings '(("net.scrbl" (multi-page))))) +#lang setup/infotab + +(define name "Net documentation") +(define scribblings '(("net.scrbl" (multi-page)))) diff --git a/collects/openssl/info.ss b/collects/openssl/info.ss index 73c66d2c34..e1d58ba9bc 100644 --- a/collects/openssl/info.ss +++ b/collects/openssl/info.ss @@ -1,3 +1,4 @@ -(module info setup/infotab - (define name "SSL Driver") - (define scribblings '(("openssl.scrbl")))) +#lang setup/infotab + +(define name "SSL Driver") +(define scribblings '(("openssl.scrbl"))) diff --git a/collects/parser-tools/info.ss b/collects/parser-tools/info.ss index ea6e25a0ab..156be43e69 100644 --- a/collects/parser-tools/info.ss +++ b/collects/parser-tools/info.ss @@ -1,4 +1,3 @@ +#lang setup/infotab -(module info setup/infotab - (define name "Parser-tools")) - +(define name "Parser-tools")) diff --git a/collects/parser-tools/private-lex/info.ss b/collects/parser-tools/private-lex/info.ss index e69d150abb..3b81d2f364 100644 --- a/collects/parser-tools/private-lex/info.ss +++ b/collects/parser-tools/private-lex/info.ss @@ -1,5 +1,4 @@ +#lang setup/infotab -(module info setup/infotab - (define compile-omit-files (list "error-tests.ss")) - (define name "Parser-tools private-lex")) - +(define compile-omit-files (list "error-tests.ss")) +(define name "Parser-tools private-lex") diff --git a/collects/parser-tools/private-yacc/info.ss b/collects/parser-tools/private-yacc/info.ss index 43ffe3bcfd..280d6273f0 100644 --- a/collects/parser-tools/private-yacc/info.ss +++ b/collects/parser-tools/private-yacc/info.ss @@ -1,3 +1,3 @@ -(module info setup/infotab - (define name "Parser-tools private-yacc")) +#lang setup/infotab +(define name "Parser-tools private-yacc") diff --git a/collects/planet/doc.txt b/collects/planet/doc.txt index 266264fd0e..e7a9b79426 100644 --- a/collects/planet/doc.txt +++ b/collects/planet/doc.txt @@ -573,14 +573,14 @@ installation; it is a good idea to add it. An example info.ss file looks like this: -(module info (lib "infotab.ss" "setup") - (define name "My Application") - (define blurb - (list "My application runs 60% faster on 20% less peanut " - "butter. It even shows a fancy graphic!")) - (define primary-file "my-app.ss") - (define doc.txt "doc.txt") - (define categories '(system xml))) +#lang setup/infotab +(define name "My Application") +(define blurb + '("My application runs 60% faster on 20% less peanut " + "butter. It even shows a fancy graphic!")) +(define primary-file "my-app.ss") +(define doc.txt "doc.txt") +(define categories '(system xml)) See the PLT mzc: MzScheme Compiler Manual, chapter 7 for more information on info.ss files. diff --git a/collects/planet/info.ss b/collects/planet/info.ss index e8c55124e7..8fb57d1b72 100644 --- a/collects/planet/info.ss +++ b/collects/planet/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "PLaneT") - (define mzscheme-launcher-names '("planet")) - (define mzscheme-launcher-libraries '("planet.ss"))) +#lang setup/infotab + +(define name "PLaneT") +(define mzscheme-launcher-names '("planet")) +(define mzscheme-launcher-libraries '("planet.ss")) diff --git a/collects/plot/info.ss b/collects/plot/info.ss index c4ce3a88d5..ea90aedaac 100644 --- a/collects/plot/info.ss +++ b/collects/plot/info.ss @@ -1,3 +1,4 @@ -(module info setup/infotab - (define name "Plot library") - (define pre-install-collection "pre-installer.ss")) +#lang setup/infotab + +(define name "Plot library") +(define pre-install-collection "pre-installer.ss") diff --git a/collects/preprocessor/info.ss b/collects/preprocessor/info.ss index fdbf1d6990..d36f2576d9 100644 --- a/collects/preprocessor/info.ss +++ b/collects/preprocessor/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Preprocessor") - (define mzscheme-launcher-names '("mzpp" "mztext")) - (define mzscheme-launcher-libraries '("mzpp-run.ss" "mztext-run.ss"))) +#lang setup/infotab + +(define name "Preprocessor") +(define mzscheme-launcher-names '("mzpp" "mztext")) +(define mzscheme-launcher-libraries '("mzpp-run.ss" "mztext-run.ss")) diff --git a/collects/profj/comb-parsers/info.ss b/collects/profj/comb-parsers/info.ss index 047db02848..d65f2e692d 100644 --- a/collects/profj/comb-parsers/info.ss +++ b/collects/profj/comb-parsers/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "ProfessorJ: parser")) +#lang setup/infotab + +(define name "ProfessorJ: parser") diff --git a/collects/profj/info.ss b/collects/profj/info.ss index 501cd8bd4f..9360155eae 100644 --- a/collects/profj/info.ss +++ b/collects/profj/info.ss @@ -1,19 +1,20 @@ -(module info setup/infotab - (require (lib "string-constant.ss" "string-constants")) - (define name "ProfessorJ") - (define tools (list (list "tool.ss") (list "test-tool.ss"))) - (define tool-names '("ProfessorJ" "ProfessorJ Testing")) - (define install-collection "installer.ss") - (define pre-install-collection "pre-installer.ss") - (define compile-subcollections - '(("profj" "parsers") - ("profj" "comb-parsers") - ("profj" "libs" "java" "lang") - ("profj" "libs" "java" "io") - ("profj" "libs" "java" "util"))) - (define textbook-pls - (list (list '("htdch-icon.png" "profj") - "How to Design Classes" - (string-constant experimental-languages) - "ProfessorJ" - "Beginner")))) +#lang setup/infotab + +(require string-constants/string-constant) +(define name "ProfessorJ") +(define tools (list (list "tool.ss") (list "test-tool.ss"))) +(define tool-names '("ProfessorJ" "ProfessorJ Testing")) +(define install-collection "installer.ss") +(define pre-install-collection "pre-installer.ss") +(define compile-subcollections + '(("profj" "parsers") + ("profj" "comb-parsers") + ("profj" "libs" "java" "lang") + ("profj" "libs" "java" "io") + ("profj" "libs" "java" "util"))) +(define textbook-pls + (list (list '("htdch-icon.png" "profj") + "How to Design Classes" + (string-constant experimental-languages) + "ProfessorJ" + "Beginner"))) diff --git a/collects/profj/libs/java/io/info.ss b/collects/profj/libs/java/io/info.ss index 33bcef89ae..4f02b8804f 100644 --- a/collects/profj/libs/java/io/info.ss +++ b/collects/profj/libs/java/io/info.ss @@ -1,3 +1,4 @@ -(module info setup/infotab - (define name "ProfessorJ: libs java io") - #;(define install-collection "installer.ss")) +#lang setup/infotab + +(define name "ProfessorJ: libs java io") +;; (define install-collection "installer.ss") diff --git a/collects/profj/libs/java/lang/info.ss b/collects/profj/libs/java/lang/info.ss index 421e029d47..a3aa845c60 100644 --- a/collects/profj/libs/java/lang/info.ss +++ b/collects/profj/libs/java/lang/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "ProfessorJ: libs java lang") - (define assume-virtual-sources #t) - #;(define install-collection "installer.ss")) +#lang setup/infotab + +(define name "ProfessorJ: libs java lang") +(define assume-virtual-sources #t) +;; (define install-collection "installer.ss") diff --git a/collects/profj/libs/java/tester/info.ss b/collects/profj/libs/java/tester/info.ss index 05dd5ceef6..05f3536343 100644 --- a/collects/profj/libs/java/tester/info.ss +++ b/collects/profj/libs/java/tester/info.ss @@ -1,3 +1,4 @@ -(module info setup/infotab - (define name "ProfessorJ: libs java tester") - #;(define install-collection "installer.ss")) +#lang setup/infotab + +(define name "ProfessorJ: libs java tester") +;; (define install-collection "installer.ss") diff --git a/collects/profj/libs/java/util/info.ss b/collects/profj/libs/java/util/info.ss index e64b04d546..9a5d1ffa36 100644 --- a/collects/profj/libs/java/util/info.ss +++ b/collects/profj/libs/java/util/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "ProfessorJ: libs java util") - (define assume-virtual-sources #t) - #;(define install-collection "installer.ss")) +#lang setup/infotab + +(define name "ProfessorJ: libs java util") +(define assume-virtual-sources #t) +;; (define install-collection "installer.ss") diff --git a/collects/profj/parsers/info.ss b/collects/profj/parsers/info.ss index 21dd99a266..933671c8ea 100644 --- a/collects/profj/parsers/info.ss +++ b/collects/profj/parsers/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "ProfessorJ: parsers")) +#lang setup/infotab + +(define name "ProfessorJ: parsers") diff --git a/collects/profjWizard/info.ss b/collects/profjWizard/info.ss index 21d94d8d70..ebfbd6163b 100644 --- a/collects/profjWizard/info.ss +++ b/collects/profjWizard/info.ss @@ -1,14 +1,14 @@ -(module info setup/infotab - (define name "ProfessorJ Wizard") - (define tools '(("tool.ss"))) - (define tool-names '("ProfessorJ Wizard")) - ;; (define compile-subcollections - ;; '(("profj" "parsers") - ;; ("profj" "libs" "java" "lang") - ;; ("profj" "libs" "java" "io"))) - (define compile-omit-files - '("draw-txt0.ss" - "macro-class.scm" - "view0.scm" - "data-defs0.scm")) - ) +#lang setup/infotab + +(define name "ProfessorJ Wizard") +(define tools '(("tool.ss"))) +(define tool-names '("ProfessorJ Wizard")) +;; (define compile-subcollections +;; '(("profj" "parsers") +;; ("profj" "libs" "java" "lang") +;; ("profj" "libs" "java" "io"))) +(define compile-omit-files + '("draw-txt0.ss" + "macro-class.scm" + "view0.scm" + "data-defs0.scm")) diff --git a/collects/r5rs/info.ss b/collects/r5rs/info.ss index ca3b4db9ae..2cb07e8e46 100644 --- a/collects/r5rs/info.ss +++ b/collects/r5rs/info.ss @@ -1,9 +1,9 @@ +#lang setup/infotab -(module info setup/infotab - (define name "R5RS") +(define name "R5RS") - (define scribblings '(("r5rs.scrbl" (multi-page)))) - (define doc-categories '((language -1))) +(define scribblings '(("r5rs.scrbl" (multi-page)))) +(define doc-categories '((language -1))) - (define mzscheme-launcher-names '("PLT R5RS")) - (define mzscheme-launcher-libraries '("run.ss"))) +(define mzscheme-launcher-names '("PLT R5RS")) +(define mzscheme-launcher-libraries '("run.ss")) diff --git a/collects/r5rs/lang/info.ss b/collects/r5rs/lang/info.ss index cc5b93cd8d..01c70ccf46 100644 --- a/collects/r5rs/lang/info.ss +++ b/collects/r5rs/lang/info.ss @@ -1,3 +1,3 @@ +#lang setup/infotab -(module info setup/infotab - (define name "R5RS Languages")) +(define name "R5RS Languages") diff --git a/collects/readline/info.ss b/collects/readline/info.ss index 209880e956..22720f52c7 100644 --- a/collects/readline/info.ss +++ b/collects/readline/info.ss @@ -1,4 +1,4 @@ +#lang setup/infotab -(module info setup/infotab - (define name "readline") - (define scribblings '(("readline.scrbl")))) +(define name "readline") +(define scribblings '(("readline.scrbl"))) diff --git a/collects/repos-time-stamp/info.ss b/collects/repos-time-stamp/info.ss index e11666b3f9..af0e2e0086 100644 --- a/collects/repos-time-stamp/info.ss +++ b/collects/repos-time-stamp/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Repository Time Stamp") - (define tools (list "time-stamp.ss")) - (define tool-names (list "Repository Time Stamp"))) +#lang setup/infotab + +(define name "Repository Time Stamp") +(define tools (list "time-stamp.ss")) +(define tool-names (list "Repository Time Stamp")) diff --git a/collects/s-exp/info.ss b/collects/s-exp/info.ss index d7b2b2b1a6..d7c7e13b95 100644 --- a/collects/s-exp/info.ss +++ b/collects/s-exp/info.ss @@ -1,3 +1,3 @@ +#lang setup/infotab -(module info setup/infotab - (define name "S-expression Module")) +(define name "S-expression Module") diff --git a/collects/s-exp/lang/info.ss b/collects/s-exp/lang/info.ss index f5ea5abac9..2c9b257feb 100644 --- a/collects/s-exp/lang/info.ss +++ b/collects/s-exp/lang/info.ss @@ -1,3 +1,3 @@ +#lang setup/infotab -(module info setup/infotab - (define name "S-expression Module reader")) +(define name "S-expression Module reader") diff --git a/collects/scheme/gui/info.ss b/collects/scheme/gui/info.ss index 0a4d235f7b..4c34a49874 100644 --- a/collects/scheme/gui/info.ss +++ b/collects/scheme/gui/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "Scheme GUI language")) +#lang setup/infotab + +(define name "Scheme GUI language") diff --git a/collects/scheme/info.ss b/collects/scheme/info.ss index 3839149202..57e04363f7 100644 --- a/collects/scheme/info.ss +++ b/collects/scheme/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "Scheme")) +#lang setup/infotab + +(define name "Scheme") diff --git a/collects/scheme/signature/info.ss b/collects/scheme/signature/info.ss index 133ad94082..45f885f9c6 100644 --- a/collects/scheme/signature/info.ss +++ b/collects/scheme/signature/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "Scheme signature language")) +#lang setup/infotab + +(define name "Scheme signature language") diff --git a/collects/scheme/unit/info.ss b/collects/scheme/unit/info.ss index 44576632a0..d21bf414af 100644 --- a/collects/scheme/unit/info.ss +++ b/collects/scheme/unit/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "Scheme unit language")) +#lang setup/infotab + +(define name "Scheme unit language") diff --git a/collects/scribble/doc/info.ss b/collects/scribble/doc/info.ss index 414f9d22c2..9dd9e2e938 100644 --- a/collects/scribble/doc/info.ss +++ b/collects/scribble/doc/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "Scribble Doc Reader")) +#lang setup/infotab + +(define name "Scribble Doc Reader") diff --git a/collects/scribble/info.ss b/collects/scribble/info.ss index 377ded9acf..eb45b45dff 100644 --- a/collects/scribble/info.ss +++ b/collects/scribble/info.ss @@ -1,5 +1,6 @@ -(module info setup/infotab - (define name "Scribble") - (define mzscheme-launcher-names '("scribble")) - (define mzscheme-launcher-libraries '("scribble.ss")) - (define compile-omit-files '("test-reader.ss"))) +#lang setup/infotab + +(define name "Scribble") +(define mzscheme-launcher-names '("scribble")) +(define mzscheme-launcher-libraries '("scribble.ss")) +(define compile-omit-files '("test-reader.ss")) diff --git a/collects/scribblings/acks/info.ss b/collects/scribblings/acks/info.ss index 683a6fe67f..a6bfbb5d83 100644 --- a/collects/scribblings/acks/info.ss +++ b/collects/scribblings/acks/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: Acknowledgments") - (define scribblings '(("acks.scrbl"))) - (define doc-categories '(omit))) +#lang setup/infotab + +(define name "Scribblings: Acknowledgments") +(define scribblings '(("acks.scrbl"))) +(define doc-categories '(omit)) diff --git a/collects/scribblings/drscheme/info.ss b/collects/scribblings/drscheme/info.ss index 6fc9c5a9c8..82d9ba61c3 100644 --- a/collects/scribblings/drscheme/info.ss +++ b/collects/scribblings/drscheme/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: DrScheme") - (define scribblings '(("drscheme.scrbl" (multi-page)))) - (define doc-categories '((tool 1)))) +#lang setup/infotab + +(define name "Scribblings: DrScheme") +(define scribblings '(("drscheme.scrbl" (multi-page)))) +(define doc-categories '((tool 1))) diff --git a/collects/scribblings/foreign/info.ss b/collects/scribblings/foreign/info.ss index b68b1f1fdd..fd69acb2a4 100644 --- a/collects/scribblings/foreign/info.ss +++ b/collects/scribblings/foreign/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: FFI") - (define scribblings '(("foreign.scrbl" (multi-page)))) - (define doc-categories '((foreign 1)))) +#lang setup/infotab + +(define name "Scribblings: FFI") +(define scribblings '(("foreign.scrbl" (multi-page)))) +(define doc-categories '((foreign 1))) diff --git a/collects/scribblings/framework/info.ss b/collects/scribblings/framework/info.ss index f926a7d3bc..0283263b69 100644 --- a/collects/scribblings/framework/info.ss +++ b/collects/scribblings/framework/info.ss @@ -1,3 +1,4 @@ -(module info setup/infotab - (define name "Scribblings: Framework") - (define scribblings '(("framework.scrbl" (#;multi-page))))) +#lang setup/infotab + +(define name "Scribblings: Framework") +(define scribblings '(("framework.scrbl" (#;multi-page)))) diff --git a/collects/scribblings/gui/info.ss b/collects/scribblings/gui/info.ss index 06ac2ada67..ab3f68b155 100644 --- a/collects/scribblings/gui/info.ss +++ b/collects/scribblings/gui/info.ss @@ -1,4 +1,4 @@ -(module info setup/infotab - (define name "Scribblings: GUI") - (define scribblings '(("gui.scrbl" (multi-page))))) +#lang setup/infotab +(define name "Scribblings: GUI") +(define scribblings '(("gui.scrbl" (multi-page))))) diff --git a/collects/scribblings/guide/info.ss b/collects/scribblings/guide/info.ss index d3cc25800b..3b441aab4a 100644 --- a/collects/scribblings/guide/info.ss +++ b/collects/scribblings/guide/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: Guide") - (define scribblings '(("guide.scrbl" (multi-page)))) - (define doc-categories '(getting-started))) +#lang setup/infotab + +(define name "Scribblings: Guide") +(define scribblings '(("guide.scrbl" (multi-page)))) +(define doc-categories '(getting-started)) diff --git a/collects/scribblings/honu/info.ss b/collects/scribblings/honu/info.ss index 11a5750d9b..2d5ba55506 100644 --- a/collects/scribblings/honu/info.ss +++ b/collects/scribblings/honu/info.ss @@ -1,5 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: Honu") - (define scribblings '(("honu.scrbl" (multi-page)))) - (define doc-categories '(other))) +#lang setup/infotab +(define name "Scribblings: Honu") +(define scribblings '(("honu.scrbl" (multi-page)))) +(define doc-categories '(other)) diff --git a/collects/scribblings/htdp-langs/info.ss b/collects/scribblings/htdp-langs/info.ss index 0c5f5504ae..3c72bcc852 100644 --- a/collects/scribblings/htdp-langs/info.ss +++ b/collects/scribblings/htdp-langs/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: HtDP Languages") - (define scribblings '(("htdp-langs.scrbl" (multi-page)))) - (define doc-categories '((language -1)))) +#lang setup/infotab + +(define name "Scribblings: HtDP Languages") +(define scribblings '(("htdp-langs.scrbl" (multi-page)))) +(define doc-categories '((language -1))) diff --git a/collects/scribblings/info.ss b/collects/scribblings/info.ss index cd469741c0..7c2f286d01 100644 --- a/collects/scribblings/info.ss +++ b/collects/scribblings/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "Scribblings")) +#lang setup/infotab + +(define name "Scribblings") diff --git a/collects/scribblings/inside/info.ss b/collects/scribblings/inside/info.ss index 7f91d4b24b..477dcc24a5 100644 --- a/collects/scribblings/inside/info.ss +++ b/collects/scribblings/inside/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: Inside PLT Scheme") - (define scribblings '(("inside.scrbl" (multi-page)))) - (define doc-categories '(foreign))) +#lang setup/infotab + +(define name "Scribblings: Inside PLT Scheme") +(define scribblings '(("inside.scrbl" (multi-page)))) +(define doc-categories '(foreign)) diff --git a/collects/scribblings/license/info.ss b/collects/scribblings/license/info.ss index ade1eebc19..b1685d8677 100644 --- a/collects/scribblings/license/info.ss +++ b/collects/scribblings/license/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: License") - (define scribblings '(("license.scrbl"))) - (define doc-categories '(omit))) +#lang setup/infotab + +(define name "Scribblings: License") +(define scribblings '(("license.scrbl"))) +(define doc-categories '(omit)) diff --git a/collects/scribblings/master-index/info.ss b/collects/scribblings/master-index/info.ss index 53c4f04b7f..296f953500 100644 --- a/collects/scribblings/master-index/info.ss +++ b/collects/scribblings/master-index/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: Master Index") - (define scribblings '(("master-index.scrbl" (depends-all-main no-depend-on)))) - (define doc-categories '(omit))) +#lang setup/infotab + +(define name "Scribblings: Master Index") +(define scribblings '(("master-index.scrbl" (depends-all-main no-depend-on)))) +(define doc-categories '(omit)) diff --git a/collects/scribblings/more/info.ss b/collects/scribblings/more/info.ss index a42d2fe446..87e7e9d171 100644 --- a/collects/scribblings/more/info.ss +++ b/collects/scribblings/more/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: More") - (define scribblings '(("more.scrbl" ()))) - (define doc-categories '((getting-started 1)))) +#lang setup/infotab + +(define name "Scribblings: More") +(define scribblings '(("more.scrbl" ()))) +(define doc-categories '((getting-started 1))) diff --git a/collects/scribblings/mzc/info.ss b/collects/scribblings/mzc/info.ss index 53aeb9b6fc..ab1c01f72d 100644 --- a/collects/scribblings/mzc/info.ss +++ b/collects/scribblings/mzc/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: mzc") - (define scribblings '(("mzc.scrbl" (multi-page)))) - (define doc-categories '(tool))) +#lang setup/infotab + +(define name "Scribblings: mzc") +(define scribblings '(("mzc.scrbl" (multi-page)))) +(define doc-categories '(tool)) diff --git a/collects/scribblings/mzc/plt.scrbl b/collects/scribblings/mzc/plt.scrbl index 5bb84fe0f0..8d5e0222e2 100644 --- a/collects/scribblings/mzc/plt.scrbl +++ b/collects/scribblings/mzc/plt.scrbl @@ -122,11 +122,11 @@ For example, the @filepath{info.ss} file in the @filepath{sirmail} collection might contain the following @scheme[info] declaration: @schemeblock[ -(module info setup/infotab - (define name "SirMail") - (define mred-launcher-libraries (list "sirmail.ss")) - (define mred-launcher-names (list "SirMail")) - (define requires (list (list "mred")))) +#lang setup/infotab +(define name "SirMail") +(define mred-launcher-libraries (list "sirmail.ss")) +(define mred-launcher-names (list "SirMail")) +(define requires (list (list "mred"))) ] Then, the @filepath{sirmail.plt} file (created by the command-line diff --git a/collects/scribblings/quick/info.ss b/collects/scribblings/quick/info.ss index 19bb761453..c0d3833458 100644 --- a/collects/scribblings/quick/info.ss +++ b/collects/scribblings/quick/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: Quick") - (define scribblings '(("quick.scrbl" ()))) - (define doc-categories '((getting-started 2)))) +#lang setup/infotab + +(define name "Scribblings: Quick") +(define scribblings '(("quick.scrbl" ()))) +(define doc-categories '((getting-started 2))) diff --git a/collects/scribblings/reference/info.scrbl b/collects/scribblings/reference/info.scrbl index 13d968ea1f..956774a5f2 100644 --- a/collects/scribblings/reference/info.scrbl +++ b/collects/scribblings/reference/info.scrbl @@ -45,13 +45,13 @@ grammar of @scheme[_info-module]: For example, the following declaration could be the @filepath{info.ss} library of the @filepath{help} collection. It contains definitions for three info tags, @scheme[name], @scheme[mzscheme-launcher-libraries], and -@scheme[mzscheme-launcher-names]. +@scheme[mzscheme-launcher-names]. (Note the use of #lang!!!!!!) @schemeblock[ -(module info setup/infotab - (define name "Help") - (define mzscheme-launcher-libraries '("help.ss")) - (define mzscheme-launcher-names '("PLT Help"))) +#lang setup/infotab +(define name "Help") +(define mzscheme-launcher-libraries '("help.ss")) +(define mzscheme-launcher-names '("PLT Help")) ] The @scheme[name] tag is required for @exec{setup-plt} to recognize diff --git a/collects/scribblings/reference/info.ss b/collects/scribblings/reference/info.ss index a3e98f2ee5..20415eb15a 100644 --- a/collects/scribblings/reference/info.ss +++ b/collects/scribblings/reference/info.ss @@ -1,5 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: Reference") - (define scribblings '(("reference.scrbl" (multi-page)))) - (define doc-categories '(language))) +#lang setup/infotab +(define name "Scribblings: Reference") +(define scribblings '(("reference.scrbl" (multi-page)))) +(define doc-categories '(language)) diff --git a/collects/scribblings/release/info.ss b/collects/scribblings/release/info.ss index 442094958b..d7a1b1b12b 100644 --- a/collects/scribblings/release/info.ss +++ b/collects/scribblings/release/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: Release Notes") - (define scribblings '(("release.scrbl"))) - (define doc-categories '(omit))) +#lang setup/infotab + +(define name "Scribblings: Release Notes") +(define scribblings '(("release.scrbl"))) +(define doc-categories '(omit)) diff --git a/collects/scribblings/scribble/how-to.scrbl b/collects/scribblings/scribble/how-to.scrbl index 2e66bd9e33..c66e8566eb 100644 --- a/collects/scribblings/scribble/how-to.scrbl +++ b/collects/scribblings/scribble/how-to.scrbl @@ -60,9 +60,9 @@ EOS @filepath{info.ss} module, here's a suitable complete module: @schemeblock[ - (module info setup/infotab - (define name "Some documentation") - (define scribblings '(("manual.scrbl" ())))) + #lang setup/infotab + (define name "Some documentation") + (define scribblings '(("manual.scrbl" ()))) ]} @item{Run @exec{setup-plt} to build your documentation. For a diff --git a/collects/scribblings/scribble/info.ss b/collects/scribblings/scribble/info.ss index 0ee0084bb2..933d3c2560 100644 --- a/collects/scribblings/scribble/info.ss +++ b/collects/scribblings/scribble/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: Scribble") - (define scribblings '(("scribble.scrbl" (multi-page)))) - (define doc-categories '(tool))) +#lang setup/infotab + +(define name "Scribblings: Scribble") +(define scribblings '(("scribble.scrbl" (multi-page)))) +(define doc-categories '(tool)) diff --git a/collects/scribblings/setup-plt/info.ss b/collects/scribblings/setup-plt/info.ss index db2590410a..d5f8fc9d03 100644 --- a/collects/scribblings/setup-plt/info.ss +++ b/collects/scribblings/setup-plt/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: setup-plt") - (define scribblings '(("setup-plt.scrbl" (multi-page)))) - (define doc-categories '(tool))) +#lang setup/infotab + +(define name "Scribblings: setup-plt") +(define scribblings '(("setup-plt.scrbl" (multi-page)))) +(define doc-categories '(tool)) diff --git a/collects/scribblings/slideshow/info.ss b/collects/scribblings/slideshow/info.ss index 7a56136e3a..d86da3af74 100644 --- a/collects/scribblings/slideshow/info.ss +++ b/collects/scribblings/slideshow/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: Slideshow") - (define scribblings '(("slideshow.scrbl" (multi-page)))) - (define doc-categories '(tool))) +#lang setup/infotab + +(define name "Scribblings: Slideshow") +(define scribblings '(("slideshow.scrbl" (multi-page)))) +(define doc-categories '(tool)) diff --git a/collects/scribblings/start/info.ss b/collects/scribblings/start/info.ss index 6839a78450..b2a71143c5 100644 --- a/collects/scribblings/start/info.ss +++ b/collects/scribblings/start/info.ss @@ -1,4 +1,6 @@ -(module info setup/infotab - (define name "Scribblings: Start") - (define scribblings '(("start.scrbl" (main-doc-root always-run depends-all-main no-depend-on)))) - (define doc-categories '(omit))) +#lang setup/infotab + +(define name "Scribblings: Start") +(define scribblings + '(("start.scrbl" (main-doc-root always-run depends-all-main no-depend-on)))) +(define doc-categories '(omit)) diff --git a/collects/scribblings/tools/info.ss b/collects/scribblings/tools/info.ss index 351fb7c656..3f6c631708 100644 --- a/collects/scribblings/tools/info.ss +++ b/collects/scribblings/tools/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Scribblings: Tools") - (define scribblings '(("tools.scrbl" (multi-page)))) - (define doc-categories '(other))) +#lang setup/infotab + +(define name "Scribblings: Tools") +(define scribblings '(("tools.scrbl" (multi-page)))) +(define doc-categories '(other)) diff --git a/collects/scribblings/tools/tools.scrbl b/collects/scribblings/tools/tools.scrbl index 0764449a82..2df683bc35 100644 --- a/collects/scribblings/tools/tools.scrbl +++ b/collects/scribblings/tools/tools.scrbl @@ -145,7 +145,7 @@ Phase 2 functions: @item{@scheme[drscheme:language:get-language-extensions]} } -If the tools raises an error as it is loaded, invoked, or as +If the tool raises an error as it is loaded, invoked, or as the @scheme[phase1] or @scheme[phase2] thunks are called, DrScheme catches the error and displays a message box. Then, DrScheme continues to start up, without the tool. @@ -153,9 +153,9 @@ DrScheme continues to start up, without the tool. For example, if the @File{info.ss} file in a collection contains: @schemeblock[ -(module info (lib "infotab.ss" "setup") - (define name "Tool Name") - (define tools (list (list "tool.ss")))) +#lang setup/infotab +(define name "Tool Name") +(define tools (list (list "tool.ss"))) ] then the same collection would be expected to contain a @File{tool.ss} file. It might contain something like this: @@ -259,14 +259,14 @@ The lists must have the same length. As an example, the @italic{Essentials of Programming Languages} language specification's @File{info.ss} looks like this: @schemeblock[ -(module info (lib "infotab.ss" "setup") - (require (lib "string-constant.ss" "string-constants")) - (define name "EoPL Support") - (define drscheme-language-modules - (list "eopl-lang.ss")) - (define drscheme-language-positions - (list (list (string-constant teaching-languages) - "Essentials of Programming Languages")))) +#lang setup/infotab +(require string-constants/string-constant) +(define name "EoPL Support") +(define drscheme-language-modules + (list "eopl-lang.ss")) +(define drscheme-language-positions + (list (list (string-constant teaching-languages) + "Essentials of Programming Languages"))) ] This @File{info.ss} file indicates that there is a single language in this collection. The module that implements the diff --git a/collects/scribblings/user-master-index/info.ss b/collects/scribblings/user-master-index/info.ss index d88ba19ed4..6db8dd2755 100644 --- a/collects/scribblings/user-master-index/info.ss +++ b/collects/scribblings/user-master-index/info.ss @@ -1,4 +1,6 @@ -(module info setup/infotab - (define name "Scribblings: User Master Index") - (define scribblings '(("master-index.scrbl" (user-doc depends-all no-depend-on)))) - (define doc-categories '(omit))) +#lang setup/infotab + +(define name "Scribblings: User Master Index") +(define scribblings + '(("master-index.scrbl" (user-doc depends-all no-depend-on)))) +(define doc-categories '(omit)) diff --git a/collects/scribblings/user-start/info.ss b/collects/scribblings/user-start/info.ss index 2831560bee..e4b6a352ec 100644 --- a/collects/scribblings/user-start/info.ss +++ b/collects/scribblings/user-start/info.ss @@ -1,4 +1,6 @@ -(module info setup/infotab - (define name "Scribblings: User Start") - (define scribblings '(("user-start.scrbl" (user-doc-root depends-all always-run no-depend-on)))) - (define doc-categories '(omit))) +#lang setup/infotab + +(define name "Scribblings: User Start") +(define scribblings + '(("user-start.scrbl" (user-doc-root depends-all always-run no-depend-on)))) +(define doc-categories '(omit)) diff --git a/collects/setup/getinfo.ss b/collects/setup/getinfo.ss index 7bc9b2d0c4..1580c34606 100644 --- a/collects/setup/getinfo.ss +++ b/collects/setup/getinfo.ss @@ -1,225 +1,187 @@ +#lang scheme/base -(module getinfo mzscheme +(require scheme/match scheme/contract planet/cachepath) - (require (lib "match.ss") - (lib "list.ss") - (lib "etc.ss") - - (lib "contract.ss") - - (lib "cachepath.ss" "planet")) +;; in addition to infodomain/compiled/cache.ss, getinfo will look in this +;; file to find mappings. PLaneT uses this to put info about installed +;; planet packages. +(define user-infotable (get-planet-cache-path)) - (define info? (opt-> (symbol?) ((-> any/c)) any/c)) - (define path-or-string? (lambda (x) (or (path? x) (string? x)))) - - ;; in addition to infodomain/compiled/cache.ss, getinfo will look in this - ;; file to find mappings. PLaneT uses this to put info about installed - ;; planet packages. - (define user-infotable (get-planet-cache-path)) +;; get-info : (listof path-or-string) -> info/#f +(define (get-info coll-path) + (let* ([coll-path (map (lambda (x) (if (path? x) (path->string x) x)) coll-path)] + [dir (apply collection-path coll-path)]) + (get-info/full dir))) - ;; get-info : (listof path-or-string) -> info/#f - (define (get-info coll-path) - (let* ([coll-path (map (lambda (x) (if (path? x) (path->string x) x)) coll-path)] - [dir (apply collection-path coll-path)]) - (get-info/full dir))) +;; get-info/full : path -> info/#f +(define (get-info/full dir) + (define file (build-path dir "info.ss")) + (define (contents) + (with-input-from-file file + (lambda () + (begin0 (read) + (unless (eof-object? (read)) + (error "info file has multiple expressions in ~a" file)))))) + (and (file-exists? file) + (parameterize ([read-accept-reader #t] + [current-reader-guard + (lambda (x) + (if (equal? x 'setup/infotab/lang/reader) + x + (error "info file has illegal #lang or #reader in ~a" file)) + x)]) + (match (contents) + [(list 'module 'info + (or '(lib "infotab.ss" "setup") 'setup/infotab) + expr ...) + (dynamic-require file '#%info-lookup)] + [else (error 'get-info + "info file does not contain a module of the right shape: \"~a\"" + file)])))) - ;; get-info/full : path -> info/#f - (define (get-info/full dir) - (let ([file (build-path dir "info.ss")]) - (if (file-exists? file) - (begin - (with-input-from-file file - (lambda () - (let ([r (read)]) - (unless (eof-object? (read)) - (error "info.ss file has multiple expressions in ~a" dir)) - (match r - [('module 'info (or '(lib "infotab.ss" "setup") 'setup/infotab) - expr ...) - 'ok] - [else (error - 'get-info - "info file does not contain a module of the right shape: \"~a\"" - file)])))) - (dynamic-require file '#%info-lookup)) - #f))) +;; directory-record = (make-directory-record nat nat key path (listof symbol)) +;; eg: (make-directory-record 1 0 '(lib "mzlib") #"mzlib" '(name)) +(define-struct directory-record (maj min spec path syms)) - ;; directory-record = (make-directory-record nat nat key path (listof symbol)) - ;; eg: (make-directory-record 1 0 '(lib "mzlib") #"mzlib" '(name)) - (define-struct directory-record (maj min spec path syms)) - - (define-struct table (insert ; directory-record (listof directory-record) - ; -> (listof directory-record) - ht ; hashtable[symbol -o> directory-record] - paths ; (listof (cons path boolean)) - )) - - (define preferred-table #f) - (define all-available-table #f) +(define-struct table (insert ; directory-record (listof directory-record) + ; -> (listof directory-record) + ht ; hashtable[symbol -o> directory-record] + paths ; (listof (cons path boolean)) + ) + #:mutable) - ;; reset-relevant-directories-state! : -> void - (define (reset-relevant-directories-state!) - (set! preferred-table - (make-table - (lambda (i l) - (cond - [(null? l) - (list i)] - [else - (match-let ([($ directory-record my-maj my-min _ _ _) i] - [($ directory-record their-maj their-min _ _ _) (car l)]) - (if (or (> my-maj their-maj) - (and (= my-maj their-maj) (>= my-min their-min))) - (list i) - l))])) - #f #f)) - (set! all-available-table - (make-table cons #f #f))) - - (reset-relevant-directories-state!) +(define preferred-table #f) +(define all-available-table #f) - ;; populate-table : table -> void - (define (populate-table! t) - ;; Use the colls ht because a collection might be in multiple - ;; collection paths, and we only want one - (let ([colls (make-hash-table 'equal)]) - (for-each - (lambda (f+root-dir) - (let ([f (car f+root-dir)] - [root-dir (cdr f+root-dir)]) - (when (file-exists? f) - (for-each - (lambda (i) - (match i - [((? bytes? pathbytes) - ((? symbol? fields) ...) - key ;; anything is okay here - (? integer? maj) - (? integer? min)) - (let ((old-items (hash-table-get - colls - key - (lambda () '()))) - (new-item - (make-directory-record - maj - min - key - (let ([p (bytes->path pathbytes)]) - (if (and (relative-path? p) root-dir) - (build-path root-dir p) - p)) - fields))) - (hash-table-put! colls - key - ((table-insert t) new-item old-items)))] - [_ - (error 'find-relevant-directories - "bad info-domain cache entry: ~e in: ~a" - i - f)])) - (let ([l (with-input-from-file f read)]) - (cond - [(list? l) l] - [(eof-object? l) '()] ;; allow completely empty files - [else - (error 'find-relevant-directories - "bad info-domain cache file: ~a" - f)])))))) - (reverse (table-paths t))) - ;; For each coll, invert the mapping, adding the col name to the list - ;; for each sym: - (hash-table-for-each - colls - (lambda (key vals) - (for-each - (lambda (val) - (match val - [($ directory-record maj min spec path syms) - (for-each - (lambda (sym) - (hash-table-put! - (table-ht t) - sym - (cons val - (hash-table-get (table-ht t) sym (lambda () null))))) - syms)] - [_ (error 'get-info - "Internal error: invalid info-domain value format: ~s" val)])) - vals))))) - - (define find-relevant-directories - (opt-lambda (syms [key 'preferred]) - (map directory-record-path (find-relevant-directory-records syms key)))) - - (define find-relevant-directory-records - (opt-lambda (syms [key 'preferred]) - (define t (cond - [(eq? key 'preferred) preferred-table] - [(eq? key 'all-available) all-available-table] - [else (error 'find-relevant-directories "Invalid key: ~s" key)])) - - ;; A list of (cons cache.ss-path root-dir-path) - ;; If root-dir-path is not #f, then paths in the cache.ss - ;; file are relative to it. #f is used for the planet cache.ss file. - (define search-path - (cons (cons user-infotable #f) - (map (lambda (coll) - (cons (build-path coll "info-domain" "compiled" "cache.ss") - coll)) - (current-library-collection-paths)))) - - (unless (equal? (table-paths t) search-path) - (set-table-ht! t (make-hash-table)) - (set-table-paths! t search-path) - (populate-table! t)) - - (let ([unsorted - (if (= (length syms) 1) - ;; Simple case: look up in table - (hash-table-get (table-ht t) (car syms) (lambda () null)) - ;; Use a hash table, because the same collection might work - ;; for multiple syms - (let ([result (make-hash-table 'equal)]) - (for-each - (lambda (sym) - (let ([l (hash-table-get (table-ht t) sym (lambda () null))]) - (for-each (lambda (c) (hash-table-put! result c #t)) - l))) - syms) - ;; Extract the relevant collections: - (hash-table-map result (lambda (k v) k))))]) - (sort unsorted - (lambda (a b) - (compare-directories (directory-record-path a) - (directory-record-path b))))))) - - (define (compare-directories a b) - (bytessort-key a) (dir->sort-key b))) - - ;; dir->sort-key : path -> bytes - ;; extracts the name of the directory, dropping any "."s it finds at the ends. - (define (dir->sort-key path) - (let-values ([(base name dir?) (split-path path)]) - (cond - [(eq? name 'same) (dir->sort-key base)] - [else (path->bytes name)]))) - - (provide/contract - (reset-relevant-directories-state! (-> any)) - (get-info ((listof path-or-string?) . -> . (or/c info? boolean?))) - (get-info/full (path? . -> . (or/c info? boolean?))) - (find-relevant-directories (opt-> ((listof symbol?)) - ((lambda (x) (or (eq? x 'preferred) - (eq? x 'all-available)))) - (listof path?))) - (struct directory-record - ([maj integer?] - [min integer?] - [spec any/c] - [path path?] - [syms (listof symbol?)])) - (find-relevant-directory-records (opt-> ((listof symbol?)) - ((lambda (x) (or (eq? x 'preferred) - (eq? x 'all-available)))) - (listof directory-record?))))) +;; reset-relevant-directories-state! : -> void +(define (reset-relevant-directories-state!) + (set! preferred-table + (make-table + (lambda (i l) + (if (null? l) + (list i) + (match-let ([(struct directory-record (my-maj my-min _ _ _)) i] + [(struct directory-record (their-maj their-min _ _ _)) + (car l)]) + (if (or (> my-maj their-maj) + (and (= my-maj their-maj) (>= my-min their-min))) + (list i) + l)))) + #f #f)) + (set! all-available-table (make-table cons #f #f))) + +(reset-relevant-directories-state!) + +;; populate-table : table -> void +(define (populate-table! t) + ;; Use the colls ht because a collection might be in multiple + ;; collection paths, and we only want one + (let ([colls (make-hash-table 'equal)]) + (for ([f+root-dir (reverse (table-paths t))]) + (let ([f (car f+root-dir)] + [root-dir (cdr f+root-dir)]) + (when (file-exists? f) + (for ([i (let ([l (with-input-from-file f read)]) + (cond [(list? l) l] + [(eof-object? l) '()] ;; allow completely empty files + [else (error 'find-relevant-directories + "bad info-domain cache file: ~a" f)]))]) + (match i + [(list (? bytes? pathbytes) + (list (? symbol? fields) ...) + key ;; anything is okay here + (? integer? maj) + (? integer? min)) + (let ([old-items (hash-table-get colls key null)] + [new-item + (make-directory-record + maj min key + (let ([p (bytes->path pathbytes)]) + (if (and (relative-path? p) root-dir) + (build-path root-dir p) + p)) + fields)]) + (hash-table-put! colls key + ((table-insert t) new-item old-items)))] + [_ (error 'find-relevant-directories + "bad info-domain cache entry: ~e in: ~a" i f)]))))) + ;; For each coll, invert the mapping, adding the col name to the list + ;; for each sym: + (for* ([(key vals) colls] + [val vals]) + (match val + [(struct directory-record (maj min spec path syms)) + (for ([sym syms]) + (hash-table-put! (table-ht t) sym + (cons val (hash-table-get (table-ht t) sym null))))] + [_ (error 'get-info + "Internal error: invalid info-domain value format: ~s" val)])))) + +(define (find-relevant-directories syms [key 'preferred]) + (map directory-record-path (find-relevant-directory-records syms key))) + +(define (find-relevant-directory-records syms [key 'preferred]) + (define t + (cond [(eq? key 'preferred) preferred-table] + [(eq? key 'all-available) all-available-table] + [else (error 'find-relevant-directories "Invalid key: ~s" key)])) + ;; A list of (cons cache.ss-path root-dir-path) + ;; If root-dir-path is not #f, then paths in the cache.ss + ;; file are relative to it. #f is used for the planet cache.ss file. + (define search-path + (cons (cons user-infotable #f) + (map (lambda (coll) + (cons (build-path coll "info-domain" "compiled" "cache.ss") + coll)) + (current-library-collection-paths)))) + (unless (equal? (table-paths t) search-path) + (set-table-ht! t (make-hash-table)) + (set-table-paths! t search-path) + (populate-table! t)) + (let ([unsorted + (if (= (length syms) 1) + ;; Simple case: look up in table + (hash-table-get (table-ht t) (car syms) null) + ;; Use a hash table, because the same collection might work + ;; for multiple syms + (let ([result (make-hash-table 'equal)]) + (for* ([sym syms] + [c (hash-table-get (table-ht t) sym null)]) + (hash-table-put! result c #t)) + ;; Extract the relevant collections: + (hash-table-map result (lambda (k v) k))))]) + (sort unsorted + (lambda (a b) + (compare-directories (directory-record-path a) + (directory-record-path b)))))) + +(define (compare-directories a b) + (bytessort-key a) (dir->sort-key b))) + +;; dir->sort-key : path -> bytes +;; extracts the name of the directory, dropping any "."s it finds at the ends. +(define (dir->sort-key path) + (let-values ([(base name dir?) (split-path path)]) + (if (eq? name 'same) (dir->sort-key base) (path->bytes name)))) + +(define info? (->* [symbol?] [(-> any/c)] any/c)) +(define path-or-string? (lambda (x) (or (path? x) (string? x)))) + +(provide/contract + (reset-relevant-directories-state! (-> any)) + (get-info ((listof path-or-string?) . -> . (or/c info? boolean?))) + (get-info/full (path? . -> . (or/c info? boolean?))) + (find-relevant-directories + (->* [(listof symbol?)] + [(lambda (x) (memq x '(preferred all-available)))] + (listof path?))) + (struct directory-record + ([maj integer?] + [min integer?] + [spec any/c] + [path path?] + [syms (listof symbol?)])) + (find-relevant-directory-records + (->* [(listof symbol?)] + [(lambda (x) (memq x '(preferred all-available)))] + (listof directory-record?)))) diff --git a/collects/setup/info.ss b/collects/setup/info.ss index c8addf01b5..a1e2930ed0 100644 --- a/collects/setup/info.ss +++ b/collects/setup/info.ss @@ -1,9 +1,8 @@ -(module info setup/infotab - (define name "Setup PLT") +#lang setup/infotab - (define compile-omit-files - (list "main.ss")) +(define name "Setup PLT") - (define mzscheme-launcher-libraries (list "main.ss")) - (define mzscheme-launcher-names (list "Setup PLT")) - ) +(define compile-omit-files '("main.ss")) + +(define mzscheme-launcher-libraries '("main.ss")) +(define mzscheme-launcher-names '("Setup PLT")) diff --git a/collects/setup/infotab.ss b/collects/setup/infotab.ss index 2cb910e42f..5bdf871b6f 100644 --- a/collects/setup/infotab.ss +++ b/collects/setup/infotab.ss @@ -1,68 +1,65 @@ ;; Defines a language to be used by info.ss files -(module infotab mzscheme - (define-syntax info-module-begin - (lambda (stx) - (syntax-case stx () - [(mod-beg defn ...) - (let ([names (let loop ([defns (syntax->list (syntax (defn ...)))] - [r '()]) - (if (null? defns) - (reverse r) - (loop (cdr defns) - (syntax-case (car defns) (define) - [(define var val) - (cons (syntax var) r)] - ;; In case it gets expanded: - [(define-values (var) val) - (cons (syntax var) r)] - [(require lib) r] ; ignore these (see below) - [_else (raise-syntax-error - 'infotab-module - "not a well-formed definition" - stx - (car defns))]))))]) - (let ([dup (check-duplicate-identifier names)]) - (when dup - (raise-syntax-error - 'infotab-module - "duplicate definition" - stx - dup))) - (with-syntax ([(name ...) names]) - (syntax - (#%plain-module-begin - defn ... - (define #%info-lookup - (case-lambda - [(n) (#%info-lookup n (lambda () (error 'info.ss "no info for ~a" n)))] - [(n fail) - (unless (and (procedure? fail) - (procedure-arity-includes? fail 0)) - (error - 'info.ss - "expected second argument to be a procedure that takes no arguments, got: ~e" - fail)) - (case n - [(name) name] - ... - [else (fail)])])) - (define (#%info-domain) '(name ...)) - (provide #%info-lookup #%info-domain)))))]))) +#lang mzscheme - (define-syntax (limited-require stx) +(define-syntax info-module-begin + (lambda (stx) (syntax-case stx () - [(_ lib) (member (syntax-object->datum #'lib) - '((lib "string-constant.ss" "string-constants"))) - (syntax/loc stx (require lib))])) + [(mod-beg defn ...) + (let ([names (let loop ([defns (syntax->list (syntax (defn ...)))] + [r '()]) + (if (null? defns) + (reverse r) + (loop (cdr defns) + (syntax-case (car defns) (define) + [(define var val) + (cons (syntax var) r)] + ;; In case it gets expanded: + [(define-values (var) val) + (cons (syntax var) r)] + [(require lib) r] ; ignore these (see below) + [_else (raise-syntax-error + 'infotab-module + "not a well-formed definition" + stx (car defns))]))))]) + (let ([dup (check-duplicate-identifier names)]) + (when dup + (raise-syntax-error 'infotab-module "duplicate definition" stx dup))) + (with-syntax ([(name ...) names]) + (syntax + (#%plain-module-begin + defn ... + (define #%info-lookup + (case-lambda + [(n) (#%info-lookup n (lambda () (error 'info.ss "no info for ~a" n)))] + [(n fail) + (unless (and (procedure? fail) + (procedure-arity-includes? fail 0)) + (error + 'info.ss + "expected second argument to be a procedure that takes no arguments, got: ~e" + fail)) + (case n + [(name) name] + ... + [else (fail)])])) + (define (#%info-domain) '(name ...)) + (provide #%info-lookup #%info-domain)))))]))) - (provide (rename info-module-begin #%module-begin) - #%app #%datum #%top - define quote - list cons car cdr quasiquote unquote unquote-splicing - list* append reverse - string-append - path->string build-path collection-path - system-library-subpath - (rename limited-require require))) +(define-syntax (limited-require stx) + (syntax-case stx () + [(_ lib) (member (syntax-object->datum #'lib) + '((lib "string-constant.ss" "string-constants") + string-constants/string-constant)) + (syntax/loc stx (require lib))])) + +(provide (rename info-module-begin #%module-begin) + #%app #%datum #%top + define quote + list cons car cdr quasiquote unquote unquote-splicing + list* append reverse + string-append + path->string build-path collection-path + system-library-subpath + (rename limited-require require)) diff --git a/collects/setup/infotab/lang/reader.ss b/collects/setup/infotab/lang/reader.ss new file mode 100644 index 0000000000..7416d72b27 --- /dev/null +++ b/collects/setup/infotab/lang/reader.ss @@ -0,0 +1,2 @@ +(module reader syntax/module-reader + setup/infotab) diff --git a/collects/sgl/info.ss b/collects/sgl/info.ss index a881af216d..cccded2b4e 100644 --- a/collects/sgl/info.ss +++ b/collects/sgl/info.ss @@ -1,8 +1,8 @@ -(module info setup/infotab - (define name "sgl") - (define pre-install-collection "makefile.ss") - (define compile-omit-files (list)) - (define virtual-sources '("gl-info.ss")) - (define clean (list (build-path "compiled" "native" (system-library-subpath)) - "compiled" - ))) +#lang setup/infotab + +(define name "sgl") +(define pre-install-collection "makefile.ss") +(define compile-omit-files (list)) +(define virtual-sources '("gl-info.ss")) +(define clean (list (build-path "compiled" "native" (system-library-subpath)) + "compiled")) diff --git a/collects/sirmail/info.ss b/collects/sirmail/info.ss index d54f9db7fc..1b6ba11309 100644 --- a/collects/sirmail/info.ss +++ b/collects/sirmail/info.ss @@ -1,10 +1,7 @@ +#lang setup/infotab -(module info setup/infotab - (define name "SirMail") - (define mred-launcher-libraries (list "sirmail.ss")) - (define mred-launcher-names (list "SirMail")) - (define compile-omit-files '("recover.ss")) - (define requires '(("mred") ("openssl")))) - - - +(define name "SirMail") +(define mred-launcher-libraries (list "sirmail.ss")) +(define mred-launcher-names (list "SirMail")) +(define compile-omit-files '("recover.ss")) +(define requires '(("mred") ("openssl"))) diff --git a/collects/skipper/info.ss b/collects/skipper/info.ss index b21a93a68f..825847f51d 100644 --- a/collects/skipper/info.ss +++ b/collects/skipper/info.ss @@ -1,6 +1,6 @@ -(module info setup/infotab - (define name "Skipper") - #;(define tools '(("debug-tool.ss"))) - #;(define tool-names '("Skipper")) - #;(define tool-icons '(("icon-big.png" "skipper"))) -) +#lang setup/infotab + +(define name "Skipper") +;; (define tools '(("debug-tool.ss"))) +;; (define tool-names '("Skipper")) +;; (define tool-icons '(("icon-big.png" "skipper"))) diff --git a/collects/slatex/info.ss b/collects/slatex/info.ss index b89ffc0ab2..1dd0fd1717 100644 --- a/collects/slatex/info.ss +++ b/collects/slatex/info.ss @@ -1,15 +1,12 @@ +#lang setup/infotab -(module info setup/infotab - (define name "SLaTeX") +(define name "SLaTeX") - (define scribblings '(("slatex-wrap.scrbl"))) +(define scribblings '(("slatex-wrap.scrbl"))) - ;(define tools (list (list "slatex-lang.ss"))) - ;(define tool-names (list "SLaTeX Language")) +;; (define tools (list (list "slatex-lang.ss"))) +;; (define tool-names (list "SLaTeX Language")) - (define mzscheme-launcher-names (list "SLaTeX" "PDF SLaTeX")) - (define mzscheme-launcher-libraries - (list "slatex-launcher.ss" - "pdf-slatex-launcher.ss")) - - ) +(define mzscheme-launcher-names '("SLaTeX" "PDF SLaTeX")) +(define mzscheme-launcher-libraries '("slatex-launcher.ss" + "pdf-slatex-launcher.ss")) diff --git a/collects/slideshow/info.ss b/collects/slideshow/info.ss index 0dbee2c09d..922e8e2747 100644 --- a/collects/slideshow/info.ss +++ b/collects/slideshow/info.ss @@ -1,11 +1,10 @@ +#lang setup/infotab -(module info setup/infotab - (define name "Slideshow") - (define tools (list '("tool.ss"))) - (define tool-names (list "Slideshow")) - (define tool-icons (list (list "slideshow.png" "slideshow"))) - (define tool-urls (list "http://www.plt-scheme.org/software/slideshow/")) - (define mred-launcher-libraries (list "start.ss")) - (define mred-launcher-names (list "Slideshow")) - (define compile-omit-files - (list "initial-ones.ss" "pict-snipclass.ss"))) +(define name "Slideshow") +(define tools (list '("tool.ss"))) +(define tool-names (list "Slideshow")) +(define tool-icons (list (list "slideshow.png" "slideshow"))) +(define tool-urls (list "http://www.plt-scheme.org/software/slideshow/")) +(define mred-launcher-libraries (list "start.ss")) +(define mred-launcher-names (list "Slideshow")) +(define compile-omit-files (list "initial-ones.ss" "pict-snipclass.ss")) diff --git a/collects/srfi/1/info.ss b/collects/srfi/1/info.ss index 14edb74ac0..23b7d209b0 100644 --- a/collects/srfi/1/info.ss +++ b/collects/srfi/1/info.ss @@ -1,16 +1,16 @@ -(module info setup/infotab +#lang setup/infotab - (define name "SRFI 1") +(define name "SRFI 1") - (define compile-omit-files - '("alist-test.ss" - "all-srfi-1-tests.ss" - "cons-test.ss" - "delete-test.ss" - "filter-test.ss" - "fold-test.ss" - "lset-test.ss" - "misc-test.ss" - "predicate-test.ss" - "search-test.ss" - "selector-test.ss"))) +(define compile-omit-files + '("alist-test.ss" + "all-srfi-1-tests.ss" + "cons-test.ss" + "delete-test.ss" + "filter-test.ss" + "fold-test.ss" + "lset-test.ss" + "misc-test.ss" + "predicate-test.ss" + "search-test.ss" + "selector-test.ss")) diff --git a/collects/srfi/19/info.ss b/collects/srfi/19/info.ss index e0042d9931..c055fd0a48 100644 --- a/collects/srfi/19/info.ss +++ b/collects/srfi/19/info.ss @@ -1,4 +1,4 @@ -(module info setup/infotab +#lang setup/infotab - (define name "SRFI 19") - (define compile-omit-files `("tests.ss"))) +(define name "SRFI 19") +(define compile-omit-files `("tests.ss")) diff --git a/collects/srfi/info.ss b/collects/srfi/info.ss index 3c1659a3fa..a5681d1981 100644 --- a/collects/srfi/info.ss +++ b/collects/srfi/info.ss @@ -1,36 +1,3 @@ -;;; -;;; ---- info file for SRFI collection +#lang setup/infotab -;;; Time-stamp: <03/03/27 19:29:44 solsona> -;;; -;;; Copyright (C) 2002 by Noel Welsh. -;;; -;;; This file is part of SRFI. - -;;; SRFI is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU Lesser General Public -;;; License as published by the Free Software Foundation; either -;;; version 2.1 of the License, or (at your option) any later version. - -;;; SRFI is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; Lesser General Public License for more details. - -;;; You should have received a copy of the GNU Lesser General Public -;;; License along with SRFI; if not, write to the Free Software -;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - -;;; Author: Noel Welsh -;; -;; -;; Commentary: -;; -;; This file tell mzc how to compile the srfi collection. As -;; compilation takes place when installing a .plt it is essential that -;; this file is updated whenever a new release is made. - -(module info setup/infotab - (define name "srfi")) - -;;; info.ss ends here +(define name "srfi") diff --git a/collects/srpersist/info.ss b/collects/srpersist/info.ss index ae9222e757..5c23fb0199 100644 --- a/collects/srpersist/info.ss +++ b/collects/srpersist/info.ss @@ -1,8 +1,5 @@ -;; info.ss for srpersist collection +#lang setup/infotab -;; no .zo compilation necessary, since all the -;; real code is in C++ - -(module info setup/infotab - (define name "SrPersist") - (define compile-omit-files '("info.ss" "srpersist.ss"))) +(define name "SrPersist") +;; no .zo compilation necessary, since all the real code is in C++ +(define compile-omit-files '("info.ss" "srpersist.ss")) diff --git a/collects/stepper/info.ss b/collects/stepper/info.ss index 6206ef5536..6e8f9f8707 100644 --- a/collects/stepper/info.ss +++ b/collects/stepper/info.ss @@ -1,18 +1,17 @@ -(module info setup/infotab - (define name "Stepper") +#lang setup/infotab - (define tools '(("stepper+xml-tool.ss") - ;; ("debugger-tool.ss") - )) +(define name "Stepper") - (define tool-names (list "The Stepper" - ;; "The Debugger" - )) +(define tools '(("stepper+xml-tool.ss") + ;; ("debugger-tool.ss") + )) - (define tool-icons (list '("foot-up.png" "icons") - ;; #f - )) +(define tool-names (list "The Stepper" + ;; "The Debugger" + )) - (define compile-omit-files `("debugger-tool.ss")) +(define tool-icons (list '("foot-up.png" "icons") + ;; #f + )) - ) +(define compile-omit-files `("debugger-tool.ss")) diff --git a/collects/stepper/private/info.ss b/collects/stepper/private/info.ss index a1e2733843..677eba023a 100644 --- a/collects/stepper/private/info.ss +++ b/collects/stepper/private/info.ss @@ -1,3 +1,3 @@ -(module info setup/infotab - (define name "Stepper private")) - +#lang setup/infotab + +(define name "Stepper private") diff --git a/collects/string-constants/info.ss b/collects/string-constants/info.ss index ccba48813a..7c9466a3ed 100644 --- a/collects/string-constants/info.ss +++ b/collects/string-constants/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "String constants")) +#lang setup/infotab + +(define name "String constants") diff --git a/collects/swindle/info.ss b/collects/swindle/info.ss index 1f75b38cec..d7d9ede764 100644 --- a/collects/swindle/info.ss +++ b/collects/swindle/info.ss @@ -1,33 +1,31 @@ ;;; Written by Eli Barzilay: Maze is Life! (eli@barzilay.org) +#lang setup/infotab -(module info setup/infotab - ;; - (define name "Swindle") - (define mzscheme-launcher-names '("swindle")) - (define mzscheme-launcher-flags '(("-li" "swindle"))) - ;; - ;; This simple interface is not enough, use tool.ss instead - ;; (define drscheme-language-modules - ;; '(("swindle.ss" "swindle") - ;; ("turbo.ss" "swindle") - ;; ("html.ss" "swindle"))) - ;; (define drscheme-language-positions - ;; '(("Swindle" "Full Swindle") - ;; ("Swindle" "Swindle without CLOS") - ;; ("Swindle" "HTML Swindle"))) - ;; (define drscheme-language-numbers - ;; '((-900 0) (-900 1) (-900 2))) - ;; (define drscheme-language-one-line-summaries - ;; '("Scheme with Full Swindle extensions" - ;; "Scheme with Swindle without the object system" - ;; "Scheme with the HTML and Swindle extensions")) - ;; (define drscheme-language-urls - ;; '("http://www.barzilay.org/Swindle/" - ;; "http://www.barzilay.org/Swindle/" - ;; "http://www.barzilay.org/Swindle/")) - ;; - (define tools '(("tool.ss"))) - (define tool-names '("Swindle")) - (define tool-icons '(("swindle-icon.png" "swindle"))) - (define tool-urls '("http://www.barzilay.org/Swindle/")) - ) +(define name "Swindle") +(define mzscheme-launcher-names '("swindle")) +(define mzscheme-launcher-flags '(("-li" "swindle"))) + +;; This simple interface is not enough, use tool.ss instead +;; (define drscheme-language-modules +;; '(("swindle.ss" "swindle") +;; ("turbo.ss" "swindle") +;; ("html.ss" "swindle"))) +;; (define drscheme-language-positions +;; '(("Swindle" "Full Swindle") +;; ("Swindle" "Swindle without CLOS") +;; ("Swindle" "HTML Swindle"))) +;; (define drscheme-language-numbers +;; '((-900 0) (-900 1) (-900 2))) +;; (define drscheme-language-one-line-summaries +;; '("Scheme with Full Swindle extensions" +;; "Scheme with Swindle without the object system" +;; "Scheme with the HTML and Swindle extensions")) +;; (define drscheme-language-urls +;; '("http://www.barzilay.org/Swindle/" +;; "http://www.barzilay.org/Swindle/" +;; "http://www.barzilay.org/Swindle/")) + +(define tools '(("tool.ss"))) +(define tool-names '("Swindle")) +(define tool-icons '(("swindle-icon.png" "swindle"))) +(define tool-urls '("http://www.barzilay.org/Swindle/")) diff --git a/collects/syntax-color/info.ss b/collects/syntax-color/info.ss index f1af08605f..fc3e9a44a4 100644 --- a/collects/syntax-color/info.ss +++ b/collects/syntax-color/info.ss @@ -1,4 +1,3 @@ -(module info setup/infotab - (define name "Syntax Color")) - +#lang setup/infotab +(define name "Syntax Color") diff --git a/collects/syntax/info.ss b/collects/syntax/info.ss index 4b3ed7158e..7aaae1d2a7 100644 --- a/collects/syntax/info.ss +++ b/collects/syntax/info.ss @@ -1,4 +1,3 @@ +#lang setup/infotab -(module info setup/infotab - (define name "Syntax Utilities")) - +(define name "Syntax Utilities") diff --git a/collects/teachpack/info.ss b/collects/teachpack/info.ss index 3050524582..2ad8365615 100644 --- a/collects/teachpack/info.ss +++ b/collects/teachpack/info.ss @@ -1,5 +1,5 @@ -(module info setup/infotab - (define name "Teachpacks") - (define scribblings '(("teachpacks.scrbl" (multi-page)))) - (define compile-omit-files '()) - ) +#lang setup/infotab + +(define name "Teachpacks") +(define scribblings '(("teachpacks.scrbl" (multi-page)))) +(define compile-omit-files '()) diff --git a/collects/test-box-recovery/info.ss b/collects/test-box-recovery/info.ss index 49acc04739..7370abb202 100644 --- a/collects/test-box-recovery/info.ss +++ b/collects/test-box-recovery/info.ss @@ -1,8 +1,7 @@ +#lang setup/infotab -(module info setup/infotab - (define name "Test Box Recovery") - (define categories '(devtools)) - (define required-core-version "370") - (define tools (list '("tool.ss"))) - (define tool-names (list "Test Box Recovery"))) - +(define name "Test Box Recovery") +(define categories '(devtools)) +(define required-core-version "370") +(define tools (list '("tool.ss"))) +(define tool-names (list "Test Box Recovery")) diff --git a/collects/tests/drscheme/info.ss b/collects/tests/drscheme/info.ss index 5a7aa05b20..ecc496a64a 100644 --- a/collects/tests/drscheme/info.ss +++ b/collects/tests/drscheme/info.ss @@ -1,10 +1,11 @@ -(module info setup/infotab - (define name "DrScheme Test Suite") - (define compile-omit-files - '("config-lang-test.ss" "drscheme-jr.ss" "drscheme-test.ss" - "event-efficency.ss" ;"language-test.ss" - "launcher.ss" - "line-art.ss" "menu-test.ss" "repl-test-tmp.ss" - "pr-144.ss" "pr-246.ss" "pr-39.ss" "pr-46.ss" "pr-48.ss" - "pr-51.ss" "pr-58.ss" "pr-80.ss" "pr-99.ss" - "sig.ss" "sixlib.ss"))) +#lang setup/infotab + +(define name "DrScheme Test Suite") +(define compile-omit-files + '("config-lang-test.ss" "drscheme-jr.ss" "drscheme-test.ss" + "event-efficency.ss" ;"language-test.ss" + "launcher.ss" + "line-art.ss" "menu-test.ss" "repl-test-tmp.ss" + "pr-144.ss" "pr-246.ss" "pr-39.ss" "pr-46.ss" "pr-48.ss" + "pr-51.ss" "pr-58.ss" "pr-80.ss" "pr-99.ss" + "sig.ss" "sixlib.ss")) diff --git a/collects/tests/framework/info.ss b/collects/tests/framework/info.ss index bd91a8a15d..ce7c9e7420 100644 --- a/collects/tests/framework/info.ss +++ b/collects/tests/framework/info.ss @@ -1,3 +1,4 @@ -(module info setup/infotab - (define name "Framework Test Suite") - (define compile-omit-files '("key-specs.ss" "utils.ss" "receive-sexps-port.ss"))) +#lang setup/infotab + +(define name "Framework Test Suite") +(define compile-omit-files '("key-specs.ss" "utils.ss" "receive-sexps-port.ss")) diff --git a/collects/tests/info.ss b/collects/tests/info.ss index 5dcb2e8cfd..edb283b8a4 100644 --- a/collects/tests/info.ss +++ b/collects/tests/info.ss @@ -1,8 +1,9 @@ -(module info setup/infotab - (define name "Test Suites") - (define doc-subcollections (list "tester")) - (define compile-subcollections '(("tests" "drscheme") - ("tests" "framework") - ("tests" "utils"))) - (define tools (list '("tool.ss" "drscheme"))) - (define tool-names (list "DrScheme Test Suites"))) +#lang setup/infotab + +(define name "Test Suites") +(define doc-subcollections '("tester")) +(define compile-subcollections '(("tests" "drscheme") + ("tests" "framework") + ("tests" "utils"))) +(define tools '(("tool.ss" "drscheme"))) +(define tool-names '("DrScheme Test Suites")) diff --git a/collects/tests/utils/info.ss b/collects/tests/utils/info.ss index 8d62ee784f..cba7928516 100644 --- a/collects/tests/utils/info.ss +++ b/collects/tests/utils/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "Testing Utilities")) +#lang setup/infotab + +(define name "Testing Utilities") diff --git a/collects/tex2page/info.ss b/collects/tex2page/info.ss index cd8e6ee7bc..15ca9e69d8 100644 --- a/collects/tex2page/info.ss +++ b/collects/tex2page/info.ss @@ -1,6 +1,6 @@ +#lang setup/infotab -(module info setup/infotab - (define name "tex2page") +(define name "tex2page") - (define mzscheme-launcher-libraries (list "start.ss")) - (define mzscheme-launcher-names (list "tex2page"))) +(define mzscheme-launcher-libraries (list "start.ss")) +(define mzscheme-launcher-names (list "tex2page")) diff --git a/collects/texpict/info.ss b/collects/texpict/info.ss index 69419bd0f3..d0eaa698f1 100644 --- a/collects/texpict/info.ss +++ b/collects/texpict/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "Texpict")) +#lang setup/infotab + +(define name "Texpict") diff --git a/collects/texpict/private/info.ss b/collects/texpict/private/info.ss index 1c832784ea..f773d75d81 100644 --- a/collects/texpict/private/info.ss +++ b/collects/texpict/private/info.ss @@ -1,3 +1,3 @@ +#lang setup/infotab -(module info setup/infotab - (define name "Texpict private")) +(define name "Texpict private") diff --git a/collects/trace/info.ss b/collects/trace/info.ss index c3c68f4e73..77709eca03 100644 --- a/collects/trace/info.ss +++ b/collects/trace/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "Calltrace")) +#lang setup/infotab + +(define name "Calltrace") diff --git a/collects/trace/scribblings/info.ss b/collects/trace/scribblings/info.ss index 5a7041417b..3772a20587 100644 --- a/collects/trace/scribblings/info.ss +++ b/collects/trace/scribblings/info.ss @@ -1,3 +1,4 @@ -(module info setup/infotab - (define name "Calltrace documentation") - (define scribblings '(("trace.scrbl" ())))) +#lang setup/infotab + +(define name "Calltrace documentation") +(define scribblings '(("trace.scrbl" ()))) diff --git a/collects/version/info.ss b/collects/version/info.ss index 8d5d84df62..293614647e 100644 --- a/collects/version/info.ss +++ b/collects/version/info.ss @@ -1,4 +1,5 @@ -(module info setup/infotab - (define name "Version") - (define tools (list "tool.ss")) - (define tool-names (list "Version"))) +#lang setup/infotab + +(define name "Version") +(define tools (list "tool.ss")) +(define tool-names (list "Version")) diff --git a/collects/waterworld/info.ss b/collects/waterworld/info.ss index 0b5c7f4135..b2e86d91dc 100644 --- a/collects/waterworld/info.ss +++ b/collects/waterworld/info.ss @@ -1,2 +1,3 @@ -(module info setup/infotab - (define name "WaterWorld")) +#lang setup/infotab + +(define name "WaterWorld") diff --git a/collects/web-server/info.ss b/collects/web-server/info.ss index edbb51da90..e66d06ce4f 100644 --- a/collects/web-server/info.ss +++ b/collects/web-server/info.ss @@ -1,9 +1,8 @@ -(module info setup/infotab - (define name "Web Server") - (define scribblings '(("scribblings/web-server.scrbl" (multi-page)))) - (define doc-categories '(tool)) +#lang setup/infotab - (define mzscheme-launcher-libraries - (list "main.ss")) - (define mzscheme-launcher-names - (list "PLT Web Server"))) +(define name "Web Server") +(define scribblings '(("scribblings/web-server.scrbl" (multi-page)))) +(define doc-categories '(tool)) + +(define mzscheme-launcher-libraries '("main.ss")) +(define mzscheme-launcher-names '("PLT Web Server")) diff --git a/collects/web-server/scribblings/info.ss b/collects/web-server/scribblings/info.ss index 839b578989..ac3d52ca08 100644 --- a/collects/web-server/scribblings/info.ss +++ b/collects/web-server/scribblings/info.ss @@ -1,3 +1,3 @@ -(module info setup/infotab - (define name "Web Server documentation")) +#lang setup/infotab +(define name "Web Server documentation") diff --git a/collects/wxme/info.ss b/collects/wxme/info.ss index 7d2da300da..3f19ea5a84 100644 --- a/collects/wxme/info.ss +++ b/collects/wxme/info.ss @@ -1,4 +1,3 @@ +#lang setup/infotab -(module info setup/infotab - (define name "WXME")) - +(define name "WXME") diff --git a/collects/xml/info.ss b/collects/xml/info.ss index d29c9d348c..897799cb9d 100644 --- a/collects/xml/info.ss +++ b/collects/xml/info.ss @@ -1,6 +1,8 @@ -(module info setup/infotab - (define name "XML") - ;; the XML tool has been moved to the stepper collection, so that - ;; the stepper can create xml snips. See collects/stepper/tool.ss for (a bit) more information - (define tools '(("text-box-tool.ss"))) - (define tool-names '("Text Box"))) +#lang setup/infotab + +(define name "XML") +;; the XML tool has been moved to the stepper collection, so that the +;; stepper can create xml snips. See collects/stepper/tool.ss for (a +;; bit) more information +(define tools '(("text-box-tool.ss"))) +(define tool-names '("Text Box")) diff --git a/collects/xml/private/info.ss b/collects/xml/private/info.ss index bc11536405..42e6c03aa7 100644 --- a/collects/xml/private/info.ss +++ b/collects/xml/private/info.ss @@ -1,6 +1,3 @@ +#lang setup/infotab -(module info setup/infotab - (define name "XML private")) - - - +(define name "XML private"))