From d78396aaf98750cb0506b8c220afc4dfef3377a2 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 4 Feb 2008 17:16:06 +0000 Subject: [PATCH] remove unused blurb fields svn: r8526 --- collects/errortrace/info.ss | 8 +------- collects/ffi/info.ss | 4 +--- collects/games/info.ss | 14 +------------- collects/help/doc.txt | 10 ---------- collects/launcher/info.ss | 5 +---- collects/macro-debugger/syntax-browser/info.ss | 5 +---- collects/mysterx/info.ss | 6 ------ collects/mzcom/info.ss | 3 --- collects/mztake/info.ss | 1 - collects/net/info.ss | 7 +------ collects/openssl/info.ss | 4 +--- collects/planet/info.ss | 6 +----- collects/readline/info.ss | 5 +---- collects/scribble/info.ss | 1 - collects/skipper/info.ss | 1 - collects/slatex/info.ss | 8 -------- collects/srfi/info.ss | 5 +---- collects/srpersist/info.ss | 4 +--- collects/swindle/info.ss | 1 - collects/test-box-recovery/info.ss | 1 - collects/trace/info.ss | 5 +---- collects/xml/info.ss | 2 -- 22 files changed, 12 insertions(+), 94 deletions(-) diff --git a/collects/errortrace/info.ss b/collects/errortrace/info.ss index 8852331a44..f816abef5a 100644 --- a/collects/errortrace/info.ss +++ b/collects/errortrace/info.ss @@ -1,9 +1,3 @@ (module info setup/infotab (define name "Errortrace") - (define doc.txt "doc.txt") - (define blurb - (list - "Errortrace is a Poor Man's stack-trace-on-exceptions/profiler for " - "MzScheme. Errortrace is not a complete debugger, and a real debugger " - "in DrScheme is imminent; meanwhile, using errortrace might be better " - "than nothing."))) + (define doc.txt "doc.txt")) diff --git a/collects/ffi/info.ss b/collects/ffi/info.ss index affec3aee5..e6fbf843d2 100644 --- a/collects/ffi/info.ss +++ b/collects/ffi/info.ss @@ -1,4 +1,2 @@ (module info setup/infotab - (define name "Foreign Function Interfaces") - (define blurb - '("A few foreign interfaces to various libraries."))) + (define name "Foreign Function Interfaces")) diff --git a/collects/games/info.ss b/collects/games/info.ss index 9b0d1c847a..c44aac2807 100644 --- a/collects/games/info.ss +++ b/collects/games/info.ss @@ -7,17 +7,5 @@ (list "cards" "paint-by-numbers" "same" "lights-out" "aces" "spider" "memory" "pousse" "crazy8s" "gcalc" "parcheesi" "gl-board-game" - "jewel" "doors")) - (define blurb - (list "Demos a few small " - '(a ((MZSCHEME " -(begin - (require (lib |mred.ss| |mred|)) - (parameterize ([current-custodian (make-custodian)]) - (parameterize ([current-eventspace (make-eventspace)]) - (queue-callback - (lambda () - (exit-handler void) - (dynamic-require (quote (lib |games.ss| |games|)) #f))))))")) "games") - " implemented in Scheme."))) + "jewel" "doors"))) diff --git a/collects/help/doc.txt b/collects/help/doc.txt index c5359692c2..587db88195 100644 --- a/collects/help/doc.txt +++ b/collects/help/doc.txt @@ -355,13 +355,3 @@ Each index entry is a list of four strings: "How to Create Help Desk Documents" See plt/doc/mzscheme/hdindex for an example. - - -The _'blurb field_ of the _info.ss_ file -- - - - - - - - - - - - - - - - - - - - - -The 'blurb field of the info.txt file should be a list of xexprs (see the -xml documentation for information on the xexpr datatype) that correspond to -the html that help desk can parse. If a collection's info.ss file returns -such a list, the blurb is inserted into the ``installed components'' page -of the help desk documentation. diff --git a/collects/launcher/info.ss b/collects/launcher/info.ss index 57a1a19241..0bdd5500d6 100644 --- a/collects/launcher/info.ss +++ b/collects/launcher/info.ss @@ -1,6 +1,3 @@ (module info setup/infotab - (define name "Launcher") - (define blurb - (list "Lets you run your program as a stand-alone program, " - "with out starting up DrScheme first."))) + (define name "Launcher")) diff --git a/collects/macro-debugger/syntax-browser/info.ss b/collects/macro-debugger/syntax-browser/info.ss index 77058401d1..860fd45e4b 100644 --- a/collects/macro-debugger/syntax-browser/info.ss +++ b/collects/macro-debugger/syntax-browser/info.ss @@ -1,5 +1,2 @@ (module info setup/infotab - (define name "Macro Debugger - Syntax Browser") - (define blurb '("The syntax-browser displays lexical context and hygiene information " - "on syntax objects using colors and highlighting.")) - ) + (define name "Macro Debugger - Syntax Browser")) diff --git a/collects/mysterx/info.ss b/collects/mysterx/info.ss index 24fa3bc858..6789beb0af 100644 --- a/collects/mysterx/info.ss +++ b/collects/mysterx/info.ss @@ -3,10 +3,4 @@ (module info setup/infotab (define name "MysterX") (define doc.txt "doc.txt") - (define blurb - (list - "MysterX is an extension that lets you use Scheme to script " - "ActiveX controls and other COM components under Windows. " - "MysterX also has a programmable Web browser with support for " - "Dynamic HTML.")) (define post-install-collection "installer.ss")) diff --git a/collects/mzcom/info.ss b/collects/mzcom/info.ss index 30e1d02b7e..0980552232 100644 --- a/collects/mzcom/info.ss +++ b/collects/mzcom/info.ss @@ -3,7 +3,4 @@ (module info setup/infotab (define name "MzCOM") (define doc.txt "doc.txt") - (define blurb - (list - "MzCOM is a COM class that makes Scheme available to any COM client.")) (define post-install-collection "installer.ss")) diff --git a/collects/mztake/info.ss b/collects/mztake/info.ss index 08c7516c1c..0f081bbcf7 100644 --- a/collects/mztake/info.ss +++ b/collects/mztake/info.ss @@ -1,7 +1,6 @@ (module info setup/infotab (define name "MzTake Debugger") (define tools '(("debug-tool.ss"))) - (define blurb '("MzTake is a scripted debugger for PLT Scheme.")) (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 f3fa54a47f..c1698afcce 100644 --- a/collects/net/info.ss +++ b/collects/net/info.ss @@ -1,8 +1,3 @@ (module info setup/infotab (define name "Net") - (define doc.txt "doc.txt") - - (define blurb - (list - "The net collection provides a suite of libraries to handle standard " - "internet-based protocols."))) + (define doc.txt "doc.txt")) diff --git a/collects/openssl/info.ss b/collects/openssl/info.ss index b491b12dee..73c66d2c34 100644 --- a/collects/openssl/info.ss +++ b/collects/openssl/info.ss @@ -1,5 +1,3 @@ (module info setup/infotab (define name "SSL Driver") - (define scribblings '(("openssl.scrbl"))) - (define blurb '("The SSL collection provides a driver for using the OpenSSL " - "secure connection library."))) + (define scribblings '(("openssl.scrbl")))) diff --git a/collects/planet/info.ss b/collects/planet/info.ss index fc9c7b1fa2..8bc6e2f3b2 100644 --- a/collects/planet/info.ss +++ b/collects/planet/info.ss @@ -2,8 +2,4 @@ (define name "PLaneT") (define doc.txt "doc.txt") (define mzscheme-launcher-names '("planet")) - (define mzscheme-launcher-libraries '("planet.ss")) - (define blurb - (list - "The PLaneT collection provides a suite of libraries to implement the " - "PLaneT module distribution system."))) + (define mzscheme-launcher-libraries '("planet.ss"))) diff --git a/collects/readline/info.ss b/collects/readline/info.ss index 2a228c59ed..209880e956 100644 --- a/collects/readline/info.ss +++ b/collects/readline/info.ss @@ -1,7 +1,4 @@ (module info setup/infotab (define name "readline") - (define scribblings '(("readline.scrbl"))) - (define blurb - `("The readline collection provides glue for using GNU's readline library" - " with the MzScheme read-eval-print-loop."))) + (define scribblings '(("readline.scrbl")))) diff --git a/collects/scribble/info.ss b/collects/scribble/info.ss index 6b190494fc..377ded9acf 100644 --- a/collects/scribble/info.ss +++ b/collects/scribble/info.ss @@ -1,6 +1,5 @@ (module info setup/infotab (define name "Scribble") - (define blurb '("Text and documention typesetting.")) (define mzscheme-launcher-names '("scribble")) (define mzscheme-launcher-libraries '("scribble.ss")) (define compile-omit-files '("test-reader.ss"))) diff --git a/collects/skipper/info.ss b/collects/skipper/info.ss index 26e8a5c7aa..b21a93a68f 100644 --- a/collects/skipper/info.ss +++ b/collects/skipper/info.ss @@ -1,7 +1,6 @@ (module info setup/infotab (define name "Skipper") #;(define tools '(("debug-tool.ss"))) - (define blurb '("Experimental Debugger")) #;(define tool-names '("Skipper")) #;(define tool-icons '(("icon-big.png" "skipper"))) ) diff --git a/collects/slatex/info.ss b/collects/slatex/info.ss index e6636c336d..b89ffc0ab2 100644 --- a/collects/slatex/info.ss +++ b/collects/slatex/info.ss @@ -7,14 +7,6 @@ ;(define tools (list (list "slatex-lang.ss"))) ;(define tool-names (list "SLaTeX Language")) - (define blurb - (list "SLaTeX is a pre-processor for LaTeX that formats Scheme code. " - "For more information, see " - `(tt () "slatxdoc.dvi") - " in the " - `(tt () ,(path->string (build-path (collection-path "slatex") "slatex-code"))) - " directory on this machine.")) - (define mzscheme-launcher-names (list "SLaTeX" "PDF SLaTeX")) (define mzscheme-launcher-libraries (list "slatex-launcher.ss" diff --git a/collects/srfi/info.ss b/collects/srfi/info.ss index 0713ccecaa..12b8ceefe1 100644 --- a/collects/srfi/info.ss +++ b/collects/srfi/info.ss @@ -32,9 +32,6 @@ (module info setup/infotab (define name "srfi") - (define doc.txt "doc.txt") - - (define blurb '("SRFI collects together ports to PLT Scheme of the Scheme Request for Implementation libraries. For further details about the SRFI process see " (a ((href "http://srfi.schemers.org/")) "http://srfi.schemers.org/"))) - ) + (define doc.txt "doc.txt")) ;;; info.ss ends here diff --git a/collects/srpersist/info.ss b/collects/srpersist/info.ss index d0c5fa4a98..53b10d310d 100644 --- a/collects/srpersist/info.ss +++ b/collects/srpersist/info.ss @@ -6,6 +6,4 @@ (module info setup/infotab (define name "SrPersist") (define doc.txt "doc.txt") - (define compile-omit-files '("info.ss" "srpersist.ss")) - (define blurb - '("SrPersist is an extension for using ODBC databases from Scheme."))) + (define compile-omit-files '("info.ss" "srpersist.ss"))) diff --git a/collects/swindle/info.ss b/collects/swindle/info.ss index 56c3fcc7a8..1f75b38cec 100644 --- a/collects/swindle/info.ss +++ b/collects/swindle/info.ss @@ -3,7 +3,6 @@ (module info setup/infotab ;; (define name "Swindle") - (define blurb '("Swindle extensions for MzScheme -- CLOS and more.")) (define mzscheme-launcher-names '("swindle")) (define mzscheme-launcher-flags '(("-li" "swindle"))) ;; diff --git a/collects/test-box-recovery/info.ss b/collects/test-box-recovery/info.ss index 0977c7088a..d6c03c6f7a 100644 --- a/collects/test-box-recovery/info.ss +++ b/collects/test-box-recovery/info.ss @@ -2,7 +2,6 @@ (module info setup/infotab (define doc.txt "doc.txt") (define name "Test Box Recovery") - (define blurb '("Tool for v370 and later to open old programs with test-case boxes")) (define categories '(devtools)) (define required-core-version "370") (define tools (list '("tool.ss"))) diff --git a/collects/trace/info.ss b/collects/trace/info.ss index 41f18c1b63..1f6d386513 100644 --- a/collects/trace/info.ss +++ b/collects/trace/info.ss @@ -1,6 +1,3 @@ (module info setup/infotab (define name "Calltrace") - (define doc.txt "doc.txt") - (define blurb - (list - "Calltrace is a simple annotater that enables call tracing."))) + (define doc.txt "doc.txt")) diff --git a/collects/xml/info.ss b/collects/xml/info.ss index ea517c872e..dd4f01f518 100644 --- a/collects/xml/info.ss +++ b/collects/xml/info.ss @@ -3,7 +3,5 @@ (define doc.txt "doc.txt") ;; 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 blurb - `("The XML collection provides functions for reading, writing, and manipulating XML documents.")) (define tools '(("text-box-tool.ss"))) (define tool-names '("Text Box")))