some reformatting and reorganization

svn: r4828

collects/handin-server/handin-server.ss

@@ -1,4 +1,3 @@
-#cs
 (module handin-server mzscheme
   (require (lib "thread.ss")
            (lib "port.ss")
@@ -7,8 +6,8 @@
            (lib "date.ss")
            (lib "list.ss")
            (lib "string.ss")
-	   "md5.ss"
-	   "lock.ss"
+           "private/md5.ss"
+           "private/lock.ss"
            "web-status-server.ss"
            "run-status.ss")
 

collects/handin-server/private/lock.ss

@@ -1,4 +1,3 @@
-
 (module lock mzscheme
   (require (lib "list.ss"))
 

collects/handin-server/status-web-root/servlets/status.ss

@@ -1,4 +1,3 @@
-
 (module status mzscheme
   (require (lib "file.ss")
            (lib "list.ss")
@@ -7,7 +6,7 @@
            (lib "unitsig.ss")
            (lib "servlet-sig.ss" "web-server")
            (lib "response-structs.ss" "web-server")
-	   (lib "md5.ss" "handin-server")
+           (lib "md5.ss" "handin-server" "private")
            (lib "uri-codec.ss" "net"))
 
   (provide status-servlet)
@@ -296,4 +295,3 @@
 
 (require status)
 status-servlet
-

collects/handin-server/web-status-server.ss

@@ -1,4 +1,3 @@
-
 (module web-status-server mzscheme
   (require (lib "unitsig.ss")
            (lib "web-server-unit.ss" "web-server")
@@ -58,19 +57,13 @@
 
     (define config@
       (let ([file (make-temporary-file)])
-	(with-output-to-file file
-	  (lambda ()
-	    (write config))
-	  'truncate)
-	(begin0
-	 (load-configuration file)
-	 (delete-file file))))
+        (with-output-to-file file (lambda () (write config)) 'truncate)
+        (begin0 (load-configuration file) (delete-file file))))
 
     (define-values/invoke-unit/sig web-server^
       (compound-unit/sig
        (import)
-       (link
-	[T : net:tcp^ ((make-ssl-tcp@
+       (link [T : net:tcp^ ((make-ssl-tcp@
                              "server-cert.pem" "private-key.pem" #f #f
                              #f #f #f))]
              [C : web-config^ (config@)]
@@ -81,4 +74,3 @@
     (putenv "HANDIN_SERVER_DIR" (path->string (current-directory)))
 
     (serve)))
-