[Bese-devel] Configuring New Applications to Launch with ucwctl

[AJ Armstrong]

Hello, all

I am developing an install script (ebuild) for ucw-dev for Gentoo.
Everything is working fine, including dependancy building, and the example,
l10n and admin applications work fine out of the box - both if launched from
sbcl (using (load "start.lisp")) and if launched as a service (using
/usr/bin/ucwctl -l sbcl start).

Notably, when launched using ucwctl, the settings in /etc/ucw/conf.lisp seem
to be significant.

The issue appears when I install the ucw-intro application (from Ties
Stuij's UCW Intro).  It loads just fine when launched from sbcl (load "
start.lisp"), but launching with ucwctl fails with the errors listed at the
end of this post (in the ucw.dribble log).

To install the ucw-intro sample code, I did the following:

(1) Created a directory with the asd file and lisp files.
(2) Made a symlink to the asd file from the /etc/ucw/applications.d
directory
(3) Changed /etc/ucw/start.lisp to include the following:

 (eval-when (:compile-toplevel :load-toplevel :execute)
(asdf:oos 'asdf:load-op :ucw)
(asdf:oos 'asdf:load-op :ucw.admin)
(asdf:oos 'asdf:load-op :ucw.examples)

#+(or (and sbcl sb-unicode) (and clisp unicode))
(asdf:oos 'asdf:load-op :ucw.examples.l10n)
(asdf:oos 'asdf:load-op :ucw-intro))

;;;; Tell UCW which apps to serve
(setf ucw.system:*ucw-applications* '(ucw-user::*example-application*
#+(or (and sbcl sb-unicode) (and clisp unicode))
ucw-user::*l10n-example-application*
ucw::*admin-application*
ucw-intro::*ucw-intro-application*))


(4) Changed /etc/ucw/conf.lisp to include the following:

  (setf *ucw-applications-directory* "/etc/ucw/applications.d/")

...

#+ (or allegro openmcl)
(progn
(setf *ucw-systems* '(:ucw.admin :ucw.examples :ucw-intro))
(setf *ucw-applications* '(ucw-user::*example-application*
ucw::*admin-application*
ucw-intro::*ucw-intro-application*)))


(5) Other than that, things are as per the latest ucw-dev tarball.



LAST SEVERAL EVENTS  FROM UCW.DRIBBLE (Apologies for Long Post)
------------------------------------------------------------------------------------------

35: (SB-FASL::INTERNAL-LOAD
#P"/etc/ucw/start.lisp"
#P"/etc/ucw/start.lisp"
:ERROR
NIL
NIL
NIL
:DEFAULT)

36: (LOAD "/etc/ucw/start.lisp")

37: (SB-INT:EVAL-IN-LEXENV (LOAD (POP CL-LAUNCH:*ARGUMENTS*))
#<NULL-LEXENV>)

38: (SB-FASL::LOAD-AS-SOURCE
#<SB-IMPL::STRING-INPUT-STREAM {1002F9F701}>
NIL
NIL)

39: (LOAD #<SB-IMPL::STRING-INPUT-STREAM {1002F9F701}>)

40: (CL-LAUNCH::LOAD-STRING "(load (pop cl-launch:*arguments*))")

41: (CL-LAUNCH::RUN
:PATHS
("/etc/ucw/applications.d/")
:LOAD
NIL
:SYSTEM
NIL
:DUMP
NIL
:RESTART
NIL
:INIT
"(load (pop cl-launch:*arguments*))"
:QUIT
NIL)

42: (SB-INT:EVAL-IN-LEXENV
(FUNCALL (INTERN (STRING :RUN) :CL-LAUNCH)
:PATHS
'("/etc/ucw/applications.d/")
:INIT
"(load (pop cl-launch:*arguments*))"
:QUIT
NIL)
#<NULL-LEXENV>)
43: (SB-INT:EVAL-IN-LEXENV
(PROGN
(SET-DISPATCH-MACRO-CHARACTER #\#
#\!
#'(LAMBDA (STREAM CHAR SB-DEBUG:ARG)
(DECLARE (IGNORE CHAR SB-DEBUG:ARG))
(VALUES (READ-LINE STREAM))))
(LOAD "/usr/bin/cl-launch" :VERBOSE NIL :PRINT NIL)
(FUNCALL (INTERN (STRING :RUN) :CL-LAUNCH)
:PATHS
'("/etc/ucw/applications.d/")
:INIT
"(load (pop cl-launch:*arguments*))"
:QUIT
NIL))
#<NULL-LEXENV>)

44: (SB-IMPL::PROCESS-EVAL-OPTIONS
((SB-EXT:DISABLE-DEBUGGER)
"(progn(set-dispatch-macro-character #\\# #\\! #'(lambda(stream char
arg)(declare(ignore char arg))(values (read-line stream))))(load
\"/usr/bin/cl-launch\" :verbose nil :print nil)
(funcall(intern(string :run):cl-launch) :paths
'(\"/etc/ucw/applications.d/\" ) :init \"(load (pop
cl-launch:*arguments*))\" :quit nil))"))

45: (SB-IMPL::TOPLEVEL-INIT)

46: ((LABELS SB-IMPL::RESTART-LISP))

unhandled condition in --disable-debugger mode, quitting
;
; compilation unit aborted
; caught 1 fatal ERROR condition
; caught 2 STYLE-WARNING conditions


-- 
--------------
AJ Armstrong (aja)
aja at clanarmstrong.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060727/7739b318/attachment.html>