From: Drew Crampsie <drewc@tech.coop>
Date: Thu, 12 Jan 2006 01:47:27 +0000 (-0800)
Subject: added bin/start.lisp in preparation of distributable LoL
X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/a9355c10aba8ad5e2cdb20a0138dc294ad634f85

added bin/start.lisp in preparation of distributable LoL

darcs-hash:20060112014727-5417e-cd62cdfb53180941afcaccf346bf43d43619484d.gz
---

diff --git a/bin/start.lisp b/bin/start.lisp
new file mode 100644
index 0000000..3a89ff5
--- /dev/null
+++ b/bin/start.lisp
@@ -0,0 +1,86 @@
+;; -*- lisp -*-
+
+(in-package :common-lisp-user)
+
+#+cmu
+(defun init-cmu-mp ()
+  ;; this isn't strictly necessary, but scheduling feels very coarse
+  ;; without startup-idle-and-top-level-loops, leading to answer delays
+  ;; of about 1s per request.
+  (unless (find-if
+           #'(lambda (proc) (string= (mp:process-name proc) "Top Level Loop"))
+           (mp:all-processes))
+    (mp::startup-idle-and-top-level-loops)))
+
+#+cmu
+(init-cmu-mp)
+
+;;;; * UCW server initialization "script" 
+
+;;;; This file is meant to be loaded by ucwctl, but you can use it a
+;;;; general "startup ucw" file as well. You should customize this
+;;;; script to load/prepare your application.
+
+;;;; ** Loadup dependencies
+
+;;;; Load arnesi first so we can set arnesi::*call/cc-returns* before
+;;;; ucw is compiled and loaded.
+(asdf:oos 'asdf:load-op :arnesi)
+(setf arnesi::*call/cc-returns* nil)
+
+;;;; Load up UCW itself
+(asdf:oos 'asdf:load-op :ucw)
+
+(in-package :it.bese.ucw-user)
+
+#+(and sbcl sb-unicode)
+(setf (external-format-for :slime) :utf-8-unix
+      (external-format-for :url)   :utf-8
+      (external-format-for :http-emacsen)  :utf-8-unix
+	  (external-format-for :http-lispish)  :utf-8)
+
+;;;; Load the default applications systems
+
+(asdf:oos 'asdf:load-op :ucw.examples)
+(asdf:oos 'asdf:load-op :ucw.admin)
+(asdf:oos 'asdf:load-op :lisp-on-lines)
+(asdf:oos 'asdf:load-op :lisp-on-lines.example)
+
+;;;; Let there be swank.
+(swank:create-server :port 4007)
+
+;;;; Finally startup the server
+
+;;;; ** Finally startup the server
+
+(ucw:create-server :backend :araneida
+
+		   ;; :httpd
+		   ;; :mod-lisp
+		   ;; :aserve
+                   :host "merlin.tech.coop"
+                   :port 8082
+                   :applications (list 
+                                       lol::*lol-example-application*)
+                   :inspect-components nil
+                   :log-root-directory (make-pathname :name nil :type nil
+                                                      :directory (append (pathname-directory *load-truename*)
+                                                                         (list :up "logs"))
+                                                      :defaults *load-truename*)
+                   :log-level +info+
+                   :start-p t)
+
+;;;; ** Allocate one database connection per thread :
+
+(defmethod araneida:handle-request-response :around ((handler ucw::ucw-handler) method request)
+  (clsql:with-database (my-db '("localhost" "lol" "lol" "lol") :pool t)
+    (clsql:with-default-database (my-db)
+      (call-next-method))))
+
+(publish-directory (server.backend *default-server*) #P"/home/drewc/src/site/lisp-on-lines/wwwroot/dojo/" "/dojo/")
+(publish-directory (server.backend *default-server*) #P"/home/drewc/src/site/lisp-on-lines/wwwroot/prototype/" "/prototype/")
+
+(publish-directory (server.backend *default-server*) #P"/home/drewc/src/sunrise/wwwroot/" "/")
+
+
+