34 lines
1.5 KiB
Scheme
34 lines
1.5 KiB
Scheme
(module howtoprogram mzscheme
|
|
(require "private/util.ss"
|
|
"private/headelts.ss"
|
|
"../private/manuals.ss"
|
|
(lib "servlet.ss" "web-server"))
|
|
(provide interface-version timeout start)
|
|
(define interface-version 'v1)
|
|
(define timeout +inf.0)
|
|
(define (start initial-request)
|
|
(report-errors-to-browser send/finish)
|
|
`(html
|
|
(head ,hd-css ,@hd-links (title "Program Design"))
|
|
(body
|
|
(h1 "Program Design")
|
|
,(color-highlight `(h2 "For Students"))
|
|
"The textbook " (i "How to Design Programs")
|
|
" provides an introduction to programming using the DrScheme"
|
|
" environment. The book is not distributed with DrScheme, but it"
|
|
" is available online at "
|
|
(pre " " (a ([href "http://www.htdp.org/"] [target "_top"])
|
|
"http://www.htdp.org/"))
|
|
(p)
|
|
"Help Desk provides the following interactive support for the textbook:"
|
|
(ul (li (b (a ([href "/servlets/teachpacks.ss"])
|
|
"Teachpack documentation"))))
|
|
(p)
|
|
,(color-highlight `(h2 "For Experienced Programmers"))
|
|
(ul (li (b (a ((href ,(get-manual-index "t-y-scheme")))
|
|
"Teach Yourself Scheme in Fixnum Days"))
|
|
": For programmers with lots of experience in other languages"))
|
|
,(color-highlight `(h2 "For Teachers and Researchers"))
|
|
(ul (li (b (a ([href "/servlets/research/why.ss"]) "Why DrScheme?"))
|
|
": PLT's vision "))))))
|