[Jscheme-user] Re: cool use of jscheme

[Ken A. <kan...@bb...>]

Very nice!


At 09:43 AM 3/3/2004 -0800, david wrote:

>(still cannot post directly to the list)

Did you get a sourceforge account?  Did sourceforge let you on the list?  I've had some trouble with this on other groups.

>I have been using this trick trick to run a webapp server 
>without a proper install of tomcat or jetty. All you 
>need are the jars in the classpath and some scheme
>like this.. which I put in a jar as init.scm.
>It does not unpack the war file by default so all
>the jars can be read only.
>
>
>
>
>(load "elf/classpath.scm")
>(map (lambda (u) (addClasspathUrl u)) '(
>     "/usr/share/davud/jars/javax.servlet.jar"
>     "/usr/share/davud/jars/org.mortbay.jetty.jar"
>     "/usr/share/davud/jars/org.mortbay.jmx.jar"
>     "/usr/share/davud/jars/jscheme.jar"
>     "/usr/share/davud/jars/ant.jar"
>     "/usr/share/davud/jars/jasper-compiler.jar"
>     "/usr/share/davud/jars/jasper-runtime.jar"
>     "/usr/share/davud/jars/jcert.jar"
>     "/usr/share/davud/jars/jmxri.jar"
>     "/usr/share/davud/jars/jmxtools.jar"
>     "/usr/share/davud/jars/jnet.jar"
>     "/usr/share/davud/jars/jsse.jar"
>     "/usr/share/davud/jars/xercesImpl.jar"
>     "/usr/share/davud/jars/xml-apis.jar"))
>     
>
>(import "java.io.*")
>(import "java.net.*")
>(import "org.mortbay.util.*")
>(import "org.mortbay.http.*")
>(import "org.mortbay.jetty.servlet.*")
>(import "org.mortbay.http.handler.*")
>(import "org.mortbay.servlet.*")     
>(define server (org.mortbay.jetty.Server.))
>(define listener (SocketListener.))
>(.setPort listener 8088); 
>(.addListener server listener)
>
>
>(define r2 (HashUserRealm. "Slide DAV Server"))
>
>(.put r2  (String. "root") (String. "root"))
>(.addUserToRole r2 "root" "guest")
>(.addUserToRole r2 "root" "user")
>(.addUserToRole r2 "root" "root")
>
>
>(.put r2  (String. "david") (String. "david"))
>(.addUserToRole r2 "david" "guest")
>(.addUserToRole r2 "david" "user")
>(.addUserToRole r2 "david" "root")
>
>(.put r2  (String. "ed") (String. "david"))
>(.addUserToRole r2 "ed" "guest")
>(.addUserToRole r2 "ed" "user")
>(.addUserToRole r2 "ed" "root")
>(.addRealm server r2)
>(.addWebApplication server "/dav" "/tmp/slide.war")
>(.addWebApplication server "/" "/usr/share/davud/jars/JSPWiki.war")
>(.start server)