84 lines
5.0 KiB
Scheme
84 lines
5.0 KiB
Scheme
(module url mzscheme
|
|
(require "../../private/internal-hp.ss")
|
|
|
|
(provide (all-defined))
|
|
|
|
(define url-helpdesk-root
|
|
(format "http://~a:~a/servlets/" internal-host (internal-port)))
|
|
|
|
(define url-helpdesk-home (string-append url-helpdesk-root "home.ss"))
|
|
(define url-helpdesk-results (string-append url-helpdesk-root "results.ss"))
|
|
(define url-helpdesk-master-index (string-append url-helpdesk-root "master-index.ss"))
|
|
|
|
|
|
(define (url-home-subpage subpage-str)
|
|
(string-append url-helpdesk-home "?subpage=" subpage-str))
|
|
|
|
(define (version-major)
|
|
; TODO: Fix this
|
|
(cond [(regexp-match #px"^(\\d+).*$" (version))
|
|
=> cadr]
|
|
[else "352"]))
|
|
|
|
(define (url-manual-on-doc-server manual)
|
|
(format "http://download.plt-scheme.org/doc/~a/html/~a/"
|
|
(version-major) manual))
|
|
|
|
(define (url-static doc manual path)
|
|
(format "~astatic.ss/~a/~a/~a"
|
|
url-helpdesk-root doc manual path))
|
|
|
|
(define url-external-announcement-list-archive "http://list.cs.brown.edu/pipermail/plt-announce/")
|
|
(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-batch (url-home-subpage "batch"))
|
|
(define url-helpdesk-books (url-home-subpage "books"))
|
|
(define url-helpdesk-cgi (url-home-subpage "cgi"))
|
|
(define url-helpdesk-databases (url-home-subpage "databases"))
|
|
(define url-helpdesk-documentation (url-home-subpage "documentation"))
|
|
(define url-helpdesk-drscheme (url-home-subpage "drscheme"))
|
|
(define url-helpdesk-drscheme-faq (url-static "doc1" "drscheme" "drscheme-Z-H-5.html#node_chap_5"))
|
|
(define url-helpdesk-drscheme-manual (url-static "doc1" "drscheme" "index.htm"))
|
|
(define url-helpdesk-faq (url-home-subpage "faq"))
|
|
(define url-helpdesk-graphics (url-home-subpage "graphics"))
|
|
(define url-helpdesk-help (url-home-subpage "help"))
|
|
(define url-helpdesk-how-to-search (url-home-subpage "how-to-search"))
|
|
(define url-helpdesk-interface-essentials (url-static "doc1" "drscheme" "drscheme-Z-H-2.html#node_chap_2"))
|
|
(define url-helpdesk-known-bugs (url-home-subpage "known-bugs"))
|
|
(define url-helpdesk-languages (url-home-subpage "languages"))
|
|
(define url-helpdesk-libraries (url-home-subpage "libraries"))
|
|
(define url-helpdesk-license (url-home-subpage "license"))
|
|
(define url-helpdesk-manuals (url-home-subpage "manuals"))
|
|
(define url-helpdesk-mailing-lists (url-home-subpage "mailing-lists"))
|
|
(define url-helpdesk-mzlib (url-static "doc1" "mzlib" "mzlib.html"))
|
|
(define url-helpdesk-patches (url-home-subpage "patches"))
|
|
(define url-helpdesk-program-design (url-home-subpage "program-design"))
|
|
(define url-helpdesk-release (url-home-subpage "release"))
|
|
(define url-helpdesk-release-notes (url-home-subpage "release-notes"))
|
|
(define url-helpdesk-script (url-home-subpage "script"))
|
|
(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-stand-alone (url-home-subpage "stand-alone"))
|
|
(define url-helpdesk-system (url-home-subpage "system"))
|
|
(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"))
|
|
(define url-helpdesk-teachpacks-for-htdc (url-static "doc1" "teachpack-htdc" "index.html#HtDC"))
|
|
(define url-helpdesk-teach-yourself (url-static "doc1" "t-y-scheme" "index.htm"))
|
|
(define url-helpdesk-tour (url-home-subpage "tour"))
|
|
(define url-helpdesk-why-drscheme (url-home-subpage "why-drscheme"))
|
|
|
|
)
|