+ Install example scripts

+ Use library search path to find SUnet in example scripts
+ Add option to install without SSAX

Makefile

@@ -6,14 +6,14 @@ distname = sunet-$(version_id)
 
 distdir = /tmp
 
-DISTFILES = COPYING README RELEASE \
-	    pkg-def.scm install-lib-module.scm install-lib.scm install-pkg \
-	    Makefile scheme/packages.scm \
-	    start-web-server \
-	    scheme/httpd/*.scm scheme/httpd/surflets/*.scm \
-	    scheme/ftpd/*.scm scheme/lib/*.scm \
-	    doc/pdf/sunet.pdf doc/html \
-	    doc/latex/*.tex doc/latex/*.sty doc/latex/*.t2p doc/latex/*.hdir \
+DISTFILES = COPYING README RELEASE						\
+	    pkg-def.scm install-lib-module.scm install-lib.scm install-pkg	\
+	    Makefile scheme/packages.scm					\
+	    start-web-server start-extended-web-server start-surflet-server	\
+	    scheme/httpd/*.scm scheme/httpd/surflets/*.scm			\
+	    scheme/ftpd/*.scm scheme/lib/*.scm					\
+	    doc/pdf/sunet.pdf doc/html						\
+	    doc/latex/*.tex doc/latex/*.sty doc/latex/*.t2p doc/latex/*.hdir 	\
 	    web-server
 
 sunet-$(version_id).tar.gz:

pkg-def.scm

@@ -1,17 +1,29 @@
-(define-package "sunet" (2 1) ()
-  (install-directory-contents "scheme" 'scheme)
-  (install-directory "web-server" 'misc-shared)
-  (install-directory-contents "doc" 'doc)
+(define-package "sunet" (2 1) 
+  ((options (with-surflets "Install with SUrflets (requires SSAX)" "<yes/no>" #t #t #t
+                           ,parse-boolean ,show-boolean)))
+  (let ((surflets? (get-option-value 'with-surflets)))
+    (install-directory-contents "scheme" 'scheme)
+    (install-directory "web-server" 'misc-shared)
+    (install-file "start-web-server" 'misc-shared "web-server")
+    (install-file "start-extended-web-server" 'misc-shared "web-server")
+    (if surflets?
+        (install-file "start-surflet-server" 'misc-shared "web-server"))
+    (install-directory-contents "doc" 'doc)
 
-  (let ((doc-dir (get-directory 'doc #t))
-        (misc-shared-dir (get-directory 'misc-shared #t)))
-    (create-symlink (string-append doc-dir "/html")
-                    (string-append misc-shared-dir "/web-server/root/htdocs/sunet-manual")))
+    (let ((doc-dir (get-directory 'doc #t))
+          (misc-shared-dir (get-directory 'misc-shared #t)))
+      (create-symlink (string-append doc-dir "/html")
+                      (string-append misc-shared-dir 
+                                     "/web-server/root/htdocs/sunet-manual")))
+    
 
-  (let ((scheme-dir (get-directory 'scheme #t)))
-    (write-to-load-script
-     `((user)
-       (config)
-       (load ,(string-append scheme-dir "/packages.scm"))
-       (user))))
+    (let ((scheme-dir (get-directory 'scheme #t)))
+      (write-to-load-script
+       `((user)
+         (config)
+         (load ,(string-append scheme-dir "/packages.scm"))
+         ,@(if surflets?
+               `((load ,(string-append scheme-dir "/httpd/surflets/packages.scm")))
+               '())
+         (user)))))
 )

start-extended-web-server

@@ -1,6 +1,6 @@
 #!/bin/sh
 echo "Loading..."
-exec scsh +lpsd -ll packages.scm -dm -o http-test -e main -s "$0" "$@"
+exec scsh -lel sunet-2.1/load.scm -dm -o http-test -e main -s "$0" "$@"
 !#
 
 (define-structure http-test
@@ -160,4 +160,4 @@ exec scsh +lpsd -ll packages.scm -dm -o http-test -e main -s "$0" "$@"
 
 ;;; Local Variables:
 ;;; mode:scheme
-;;; End:
+;;; End:

start-surflet-server

@@ -1,12 +1,7 @@
 #!/bin/sh
 echo "Loading..."
-# $sunetscheme is either $SUNET/scheme or $PWD/scheme
-# Kind of a hack, I know.  We're still waiting for this library
-#installing system.
-sunetscheme=${SUNET:-$PWD}/scheme
-ssaxhome=${SSAX:-../SSAX} # path to SSAX
 
-exec scsh -lm $sunetscheme/packages.scm -lm $ssaxhome/lib/packages.scm -lm $sunetscheme/httpd/surflets/packages.scm -dm -o surflet-server -e main -s "$0" "$@"
+exec scsh -lel sunet-2.1/load.scm -lel ssax/load.scm -dm -o surflet-server -e main -s "$0" "$@"
 !#
 
 (define-structure surflet-server

start-web-server

@@ -1,6 +1,6 @@
 #!/bin/sh
 echo "Loading..."
-exec scsh +lpsd -ll packages.scm -dm -o http-test -e main -s "$0" "$@"
+exec scsh -lel sunet-2.1/load.scm -dm -o http-test -e main -s "$0" "$@"
 !#
 
 (define-structure http-test
@@ -137,4 +137,4 @@ exec scsh +lpsd -ll packages.scm -dm -o http-test -e main -s "$0" "$@"
 
 ;;; Local Variables:
 ;;; mode:scheme
-;;; End:
+;;; End: