scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
sunet/scheme/httpd/surflets/load-surflet-server.scm

38 lines
1.1 KiB
Scheme
Raw Normal View History

opens packages and structures for servlet-server in right order note: needs (r5rs-) SSAX to be present
2002-09-20 15:25:20 -04:00
; reads package description in the right order
Be more flexible with paths; use $SUNETHOME and $SSAXPATH if set or reasonable default values if not. In particular, work around the dependency of config on cwd.
2002-09-26 08:13:01 -04:00
; in the end, the server can be started via (server)
opens packages and structures for servlet-server in right order note: needs (r5rs-) SSAX to be present
2002-09-20 15:25:20 -04:00
(batch 'on)
Be more flexible with paths; use $SUNETHOME and $SSAXPATH if set or reasonable default values if not. In particular, work around the dependency of config on cwd.
2002-09-26 08:13:01 -04:00
(define *ASSUMED-SUNET-HOME*
(in 'scsh '(run (match:substring
(regexp-search (rx (submatch (* any) "sunet")) (cwd))
1))))
(define *SUNET-PACKAGE*
(in 'scsh `(run (string-append
(or (getenv "SUNETHOME")
,*ASSUMED-SUNET-HOME*)
"/packages.scm"))))
(define *SSAX-PACKAGE*
(in 'scsh `(run (string-append
(or (getenv "SSAXPATH")
(string-append ,*ASSUMED-SUNET-HOME* "/SSAX"))
"/lib/packages.scm"))))
Rename SERVLET --> SURFLET
2003-01-19 11:57:27 -05:00
(define *SURFLET-PACKAGE*
Be more flexible with paths; use $SUNETHOME and $SSAXPATH if set or reasonable default values if not. In particular, work around the dependency of config on cwd.
2002-09-26 08:13:01 -04:00
(in 'scsh `(run (string-append
(or (getenv "SUNETHOME")
,*ASSUMED-SUNET-HOME*)
"/httpd/servlets/packages.scm"))))
Rename SERVLET --> SURFLET
2003-01-19 11:57:27 -05:00
(define *SURFLET-SERVER*
Be more flexible with paths; use $SUNETHOME and $SSAXPATH if set or reasonable default values if not. In particular, work around the dependency of config on cwd.
2002-09-26 08:13:01 -04:00
(in 'scsh `(run (string-append
(or (getenv "SUNETHOME")
,*ASSUMED-SUNET-HOME*)
"/httpd/servlets/start-servlet-server"))))
(config `(load ,*SUNET-PACKAGE*))
(config `(load ,*SSAX-PACKAGE*))
Rename SERVLET --> SURFLET
2003-01-19 11:57:27 -05:00
(config `(load ,*SURFLET-PACKAGE*))
(config `(load ,*SURFLET-SERVER*))
opens packages and structures for servlet-server in right order note: needs (r5rs-) SSAX to be present
2002-09-20 15:25:20 -04:00
(user)
Rename SERVLET --> SURFLET
2003-01-19 11:57:27 -05:00
(open 'surflet-server)
Be more flexible with paths; use $SUNETHOME and $SSAXPATH if set or reasonable default values if not. In particular, work around the dependency of config on cwd.
2002-09-26 08:13:01 -04:00
(batch 'off)
(in 'scsh '(run (display "type (server) to start the server\n")))