move/collapse web-server docs, scribble doc improvements

svn: r8262

collects/scribblings/guide/guide.scrbl

@@ -118,7 +118,7 @@ executable.
 "top"]} describes tools for using Scheme to access libraries that are
 normally used by C programs.
 
-@italic{@secref[#:doc '(lib "web-server/docs/reference/web-reference.scrbl")
+@italic{@secref[#:doc '(lib "web-server/docs/web-server.scrbl")
 "top"]} describes the PLT Scheme web server, which supports servlets
 implemented in Scheme.
 

collects/scribblings/scribble/how-to.scrbl

@@ -51,7 +51,17 @@ EOS
         gets large enough that you want it split into multiple pages,
         add the @scheme['multi-page] option (omitting the quote, since
         the whole right-hand side of the definition is already
-        quoted).}
+        quoted).
+
+        As usual, the @filepath{info.ss} module also needs a
+        @schemeidfont{name} field. If you do not already have an
+        @filepath{info.ss} module, here's a suitable complete module:
+
+        @schemeblock[
+          (module info setup/infotab
+            (define name "Some documentation")
+            (define scribblings '(("manual.scrbl" ()))))
+        ]}
 
   @item{Run @exec{setup-plt} to build your documentation. For a
         collection, optionally supply @Flag{l} followed by the

collects/scribblings/scribble/scribble.scrbl

@@ -7,7 +7,14 @@
        #:tag "top"]{@bold{Scribble}: PLT Documentation Tool}
 
 Scribble is a collection of tools for creating prose documents,
-especially those that document libraries.
+especially those that document libraries, and especially for HTML and
+PDF (via LaTeX) output.
+
+This document itself is written using Scribble. At the time that it
+was written, its source was available at
+@(let ([url "http://svn.plt-scheme.org/plt/trunk/collects/scribblings/scribble/"])
+   (link url url))
+starting with the @filepath{scribble.scrbl} file.
 
 @table-of-contents[]
 

collects/web-server/docs/configuration.scrbl

@@ -1,5 +1,5 @@
 #lang scribble/doc
-@require["../web-server.ss"]
+@require["web-server.ss"]
 
 @title[#:tag "configuration"
        #:style 'toc]{Configuration}

collects/web-server/docs/dispatchers.scrbl

@@ -1,5 +1,5 @@
 #lang scribble/doc
-@(require "../web-server.ss"
+@(require "web-server.ss"
           (for-syntax scheme/base))
 
 @(define-syntax (a-dispatcher stx)

collects/web-server/docs/faq.scrbl

@@ -1,9 +1,7 @@
 #lang scribble/doc
-@require["../web-server.ss"]
+@require["web-server.ss"]
 
-@title{Web Server User Guide}
-
-@table-of-contents[]
+@title{Troubleshooting}
 
 @section{General}
 
@@ -13,5 +11,3 @@ In quirks mode, IE does not parse your page as XML, in particular it will not re
 "empty tag shorthand", e.g. "<img src='...' />", whereas the @web-server uses @scheme[(lib "xml.ss" "xml")]
 to format XML, which uses empty tag shorthand by default. You can change the default with the @scheme[empty-tag-shorthand]
 parameter: @scheme[(empty-tag-shorthand 'never)].
-
-@index-section[]

collects/web-server/docs/info.ss

@@ -0,0 +1,3 @@
+(module info setup/infotab
+  (define name "Web Server documentation"))
+

collects/web-server/docs/lang.scrbl

@@ -1,5 +1,5 @@
 #lang scribble/doc
-@require["../web-server.ss"]
+@require["web-server.ss"]
 
 @title[#:tag "lang"
        #:style 'toc]{Web Language Servlets}
@@ -14,7 +14,7 @@ is different and what API is provided.
 @section[#:tag "lang-servlets"]{Definition}
 @require[(for-label "dummy-language-servlet.ss")] ; to give a binding context
 
-@declare-exporting[web-server/docs/reference/dummy-language-servlet]
+@declare-exporting[web-server/docs/dummy-language-servlet]
 
 A @defterm{Web language servlet} is a module written in the
 @scheme[(lib "lang.ss" "web-server")] module language. It should provide

collects/web-server/docs/managers.scrbl

@@ -1,5 +1,5 @@
 #lang scribble/doc
-@require["../web-server.ss"]
+@require["web-server.ss"]
 
 @title[#:tag "managers"
        #:style 'toc]{Continuation Managers}

collects/web-server/docs/private.scrbl

@@ -1,5 +1,5 @@
 #lang scribble/doc
-@require["../web-server.ss"]
+@require["web-server.ss"]
 
 @title[#:tag "private"
        #:style 'toc]{Internal}

collects/web-server/docs/running.scrbl

@@ -1,5 +1,5 @@
 #lang scribble/doc
-@require["../web-server.ss"]
+@require["web-server.ss"]
 
 @title[#:tag "run.ss"
        #:style 'toc]{Running the Web Server}
@@ -12,24 +12,26 @@ are through a command-line tool or through a function call.
 @; ------------------------------------------------------------
 @section[#:tag "command-line-tools"]{Command-line Tools}
 
-Two command-line utilities are provided with the @web-server :
+One command-line utility is provided with the @|web-server|:
 
-@exec{plt-web-server-text [-f <file-name> -p <port> -a <ip-address>]}
+@commandline{plt-web-server [-f <file-name> -p <port> -a <ip-address>]}
 
-@exec{plt-web-server [-f <file-name> -p <port> -a <ip-address>]}
-
-The first runs the @web-server with MzScheme, while the second runs
-the server with MrEd, providing a graphical UI. The optional file-name
-argument specifies the path to a @scheme[configuration-table] S-expression
-(see @secref["configuration-table.ss"].) If this is not provided, the default
-configuration shipped with the server is used. The optional port and ip-address
-arguments override the corresponding portions of the @scheme[configuration-table].
+The optional file-name argument specifies the path to a
+@scheme[configuration-table] S-expression (see
+@secref["configuration-table.ss"].) If this is not provided, the
+default configuration shipped with the server is used. The optional
+port and ip-address arguments override the corresponding portions of
+the @scheme[configuration-table].
 
 The @scheme[configuration-table] is given to @scheme[configuration-table->web-config\@]
 and used to construct a @scheme[web-config^] unit,
 and is linked with the @scheme[web-server\@] unit. The resulting unit is invoked, and
 the server runs until the process is killed.
 
+To run the web server with MrEd, use
+
+@commandline{mred -l- web-server/gui [-f <file-name> -p <port> -a <ip-address>]}
+
 @; ------------------------------------------------------------
 @section[#:tag "web-server.ss"]{Functional}
 @require[(for-label web-server/web-server)]

collects/web-server/docs/servlet-env.scrbl

@@ -1,5 +1,5 @@
 #lang scribble/doc
-@require["../web-server.ss"]
+@require["web-server.ss"]
 
 @title[#:tag "servlet-env.ss"
        #:style 'toc]{Environment}

collects/web-server/docs/servlet.scrbl

@@ -1,5 +1,5 @@
 #lang scribble/doc
-@require["../web-server.ss"]
+@require["web-server.ss"]
 
 @title[#:tag "servlet"
        #:style 'toc]{Scheme Servlets}
@@ -14,11 +14,11 @@ of these servlets. This API is provided by @filepath{servlet.ss}.
 @section[#:tag "module-servlets"]{Definition}
 @require[(for-label "dummy-servlet.ss")] ; to give a binding context
 
-@declare-exporting[web-server/docs/reference/dummy-servlet]
+@declare-exporting[web-server/docs/dummy-servlet]
 
 A @defterm{servlet} is a module that provides the following:
 
-@defthing[interface-version (or/c 'v1 'v2)]{
+@defthing[interface-version (one-of/c 'v1 'v2)]{
  A symbol indicating the servlet interface the servlet conforms
  to. This influences the other provided identifiers.
 }

collects/web-server/docs/web-config-unit.scrbl

@@ -1,5 +1,5 @@
 #lang scribble/doc
-@require["../web-server.ss"]
+@require["web-server.ss"]
 
 @title[#:tag "web-config-unit.ss"]{Web Config Unit}
 @require[(for-label web-server/web-config-unit)]

collects/web-server/docs/web-server-unit.scrbl

@@ -1,5 +1,5 @@
 #lang scribble/doc
-@require["../web-server.ss"]
+@require["web-server.ss"]
 
 @title[#:tag "web-server-unit.ss"]{Web Server Unit}
 @require[(for-label web-server/web-server-sig)]

collects/web-server/docs/web-server.scrbl

@@ -1,7 +1,7 @@
 #lang scribble/doc
-@require["../web-server.ss"]
+@require["web-server.ss"]
 
-@title[#:tag "web-server-ref"]{Web Server Reference Manual}
+@title[#:tag "web-server-ref"]{@bold{Web Server}: Reference Manual}
 @author{Jay McCarthy (jay@"@"plt-scheme.org)}
 
 The @web-server collection provides libraries that can be used to
@@ -22,6 +22,8 @@ develop Web applications in Scheme.
 
 @include-section["private.scrbl"]
 
+@include-section["faq.scrbl"]
+
 @; ------------------------------------------------------------
 @section[#:tag "ack"]{Acknowledgements}
 

collects/web-server/gui.ss

@@ -1,7 +1,7 @@
 #lang scheme/base
 (require (lib "class.ss")
          (lib "mred.ss" "mred"))
-(require "launch.ss")
+(require "private/launch.ss")
 
 (define shutdown (serve))
 

collects/web-server/info.ss

@@ -1,9 +1,8 @@
 (module info setup/infotab
   (define name "Web Server")  
-  (define scribblings '(("docs/reference/web-reference.scrbl" (multi-page main-doc))
-                        ("docs/guide/web-guide.scrbl" (multi-page main-doc))))
+  (define scribblings '(("docs/web-server.scrbl" (multi-page main-doc))))
   
   (define mzscheme-launcher-libraries
-    (list "private/main.ss"))
+    (list "main.ss"))
   (define mzscheme-launcher-names
     (list "PLT Web Server")))

collects/web-server/main.ss

@@ -0,0 +1,5 @@
+#lang scheme/base
+(require "private/launch.ss"
+         (only-in "web-server.ss" do-not-return))
+(void (serve))
+(do-not-return)

collects/web-server/private/main.ss

@@ -1,5 +0,0 @@
-#lang scheme/base
-(require "launch.ss"
-         (only-in "../web-server.ss" do-not-return))
-(serve)
-(do-not-return)