diff --git a/Makefile b/Makefile index 304fa28..303dad9 100644 --- a/Makefile +++ b/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: diff --git a/pkg-def.scm b/pkg-def.scm index c5d077c..9756515 100644 --- a/pkg-def.scm +++ b/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)" "" #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))))) ) diff --git a/start-extended-web-server b/start-extended-web-server index 75af5ea..b863e19 100755 --- a/start-extended-web-server +++ b/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: \ No newline at end of file +;;; End: diff --git a/start-surflet-server b/start-surflet-server index 25ccca2..d38c98b 100755 --- a/start-surflet-server +++ b/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 diff --git a/start-web-server b/start-web-server index dc6aa8c..4c5d725 100755 --- a/start-web-server +++ b/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: \ No newline at end of file +;;; End: