diff --git a/collects/help/servlets/home.ss b/collects/help/servlets/home.ss index 4eef2710de..08177e9edf 100644 --- a/collects/help/servlets/home.ss +++ b/collects/help/servlets/home.ss @@ -196,6 +196,10 @@ (h3 "Teach Yourself Scheme in Fixnum Days") (p (a ((href, url-helpdesk-teach-yourself)) " Teach Yourself Scheme in Fixnum Days") (br) "- an introduction to Scheme by Dorai Sitaram"))) + ("databases" "Databases" + ((p "For ODBC databases see " (a ([href ,url-helpdesk-srpersist]) "SrPersist") ".") + (p "For bindings to MySQL, SQLite, PostGreSQL, and more see " + (a ([href ,url-external-planet]) "PLaneT") "."))) ;; was: /servlets/scheme/doc.ss ("documentation" "Documentation" (,(make-header-text "How to use DrScheme") @@ -409,15 +413,44 @@ ((p "There are two mailing lists: the discussion list and the announcements only list.") (h3 "Archives") (p "The lists are archived:" - (ul (li (a ((href ,url-external-discussion-list-archive)) "Discussions") - " - " (a ((href ,url-external-discussion-list-archive-old)) "(old archive)")) - (li (a ((href ,url-external-announcement-list-archive)) "Announcements only")))) + (ul (li (a ([href ,url-external-discussion-list-archive]) "Discussions") + " - " (a ([href ,url-external-discussion-list-archive-old]) "(old archive)")) + (li (a ([href ,url-external-announcement-list-archive]) "Announcements only")))) (h3 "Subscribing") (p "Visit the " (a ((href ,url-external-mailing-list-subscription)) "subscription page") " to join the mailing lists."))) ;; + ("mrflow" "MrFlow" + ((p "MrFlow is a user friendly, interactive static debugger for DrScheme that" + (ul (li "highlights operations that may cause errors;") + (li "computes invariants describing the set of values each program expression can assume; and") + (li "provides a graphical explanation for each invariant."))) + (p "The programmer can browse this information, and then resume program development " + "with an improved understanding of the program's execution behavior, and in " + "particular of potential run-time errors.") + (p "See the " (a ([href ,url-external-mrflow]) "MrFlow") " web-site."))) + ;; + ("mrspidey" "MrSpidey" + ((p "MrSpidey is a static debugger for DrScheme v103p1.") + (p "See the " (a ([href ,url-external-mrspidey]) "MrSpidey") " web-site."))) + ;; + ("mzcom" "MzCom" + ((p "MzCOM is a COM class containing an embedded MzScheme. With MzCOM, " + "you can run Scheme code from your favorite COM host environment, " + "such as Visual BASIC, Delphi, Visual FoxPro, Visual C++, or even PLT's MysterX.") + (p "See the " (a ([href ,url-external-mzcom]) "MzCom") " web-site."))) + ;; + ("mysterx" "MysterX" + ((p "MysterX (\"Mister X\") is a toolkit for building Windows applications " + "within DrScheme or MzScheme using ActiveX and COM components. " + "Dynamic HTML is used for component presentation and event-handling.") + (p "See the " (a ([href ,url-external-mysterx]) "MysterX") " web-site."))) + ;; + ("odbc" "ODBC" + ((p "See " (a ([href ,url-helpdesk-srpersist]) "SrPersist") "."))) + ;; ("patches" "Downloadable Patches" ((p (a ([name "patches"] [value "Downloadable patches"])) "The following Web page may contain downloadable patches to fix " @@ -468,6 +501,11 @@ ("Stepper release notes" "stepper" "HISTORY") ("MrFlow release notes" "mrflow" "HISTORY"))))))))) ;; + ("srpersist" "SrPersist" + ((p "SrPersist (\"Sister Persist\") is a set of Scheme bindings for the Open " + "Database Connectivity (ODBC) standard.") + (p "See the " (a ([href ,url-external-srpersist ]) "SrPersist") " web-site."))) + ;; ("software" "Software" ((ul (li (a ((href ,url-helpdesk-drscheme)) "DrScheme") ": The programming environment") (li (a ((href ,url-helpdesk-languages)) "Languages") ": The family of languages " diff --git a/collects/help/servlets/private/url.ss b/collects/help/servlets/private/url.ss index ebacf05f48..63e751ea47 100644 --- a/collects/help/servlets/private/url.ss +++ b/collects/help/servlets/private/url.ss @@ -30,9 +30,14 @@ (define url-external-discussion-list-archive "http://list.cs.brown.edu/pipermail/plt-scheme/") (define url-external-discussion-list-archive-old "http://www.cs.utah.edu/plt/mailarch/") (define url-external-mailing-list-subscription "http://www.plt-scheme.org/maillist/") + (define url-external-mrflow "http://www.plt-scheme.org/software/mrflow/") + (define url-external-mrspidey "http://www.plt-scheme.org/software/mrspidey/") + (define url-external-mysterx "http://www.plt-scheme.org/software/mysterx/") + (define url-external-mzcom "http://www.plt-scheme.org/software/mzcom/") (define url-external-send-bug-report "http://bugs.plt-scheme.org/") (define url-external-tour-of-drscheme "http://www.plt-scheme.org/software/drscheme/tour/") (define url-external-planet "http://planet.plt-scheme.org/") + (define url-external-srpersist "http://www.plt-scheme.org/software/srpersist/") (define url-helpdesk-acknowledge (url-home-subpage "acknowledge")) (define url-helpdesk-books (url-home-subpage "books")) @@ -57,6 +62,7 @@ (define url-helpdesk-release-notes (url-home-subpage "release-notes")) (define url-helpdesk-search (url-home-subpage "search")) (define url-helpdesk-software (url-home-subpage "software")) + (define url-helpdesk-srpersist (url-home-subpage "srpersist")) (define url-helpdesk-teachpacks (url-home-subpage "teachpacks")) (define url-helpdesk-teachscheme (url-home-subpage "teachscheme")) (define url-helpdesk-teachpacks-for-htdp (url-static "doc1" "teachpack" "index.html#HtDP")) diff --git a/collects/help/servlets/resources/libext.ss b/collects/help/servlets/resources/libext.ss deleted file mode 100644 index 9bb6e9414e..0000000000 --- a/collects/help/servlets/resources/libext.ss +++ /dev/null @@ -1,35 +0,0 @@ -(module libext mzscheme - (require "../private/headelts.ss" - "../private/util.ss" - (lib "servlet.ss" "web-server")) - (provide interface-version timeout start) - (define interface-version 'v1) - (define timeout +inf.0) - (define (start initial-request) - (with-errors-to-browser - send/finish - (lambda () - `(html - (head ,hd-css ,@hd-links (title "Libraries")) - (body - (h1 "Libraries") - (a ([name "libraries"] [value "extensions"])) - (a ([name "mrspidey"] [value "mrspidey"])) - (a ([name "static debugger"] [value "static debugger"])) - (a ([name "mysterx"] [value "mysterx"])) - (a ([name "mzcom"] [value "mzcom"])) - (a ([name "COM"] [value "COM"])) - (a ([name "srpersist"] [value "srpersist"])) - (a ([name "ODBC"] [value "ODBC"])) - (a ([name "databases"] [value "databases"])) - "Many libraries and extensions are available for PLT software. " - "See the " - (a ([href "http://www.cs.utah.edu/plt/develop/"] - [target "_top"]) - "PLT libraries and extensions") - " page for a comprehensive listing." - (p) - "If you write a PLT library or extension, we would like to hear about" - " it! Please send a message about it to Matthew Flatt at " - (TT "mflatt@cs.utah.edu") " so we can list it. " - "Thanks for your efforts!")))))) \ No newline at end of file