From franks-muc at web.de  Wed Nov 18 22:30:51 2009
From: franks-muc at web.de (Frank Schorr)
Date: Wed, 18 Nov 2009 23:30:51 +0100
Subject: [xuriella-devel] problem running xuriella
Message-ID: <2018140524@web.de>

I'm on Lispworks 5.02 windows 32 and wanted to give xuriella a try, and here is what I found:

1. number.lisp does not compile

;;; Compiling file c:\lisp\libraries\xuriella\number.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; XURIELLA::XSL-NUMBER-VALUE
; (TOP-LEVEL-FORM 3)
; XURIELLA::PATTERN-THUNK-MATCHES-P
; XURIELLA::ANCESTORS-USING-COUNT-AND-FROM
; XURIELLA::NODE-POSITION-AMONG-SIBLINGS
; XURIELLA::NODE-TYPE
; XURIELLA::COMPUTE-NUMBER-LIST

**++++ Error between functions:
#\&#945; is not of type BASE-CHAR.
; XURIELLA::FORMAT-NUMBER-TOKEN
; XURIELLA::GROUP-NUMBERS
; XURIELLA::FORMAT-NUMBER-LIST
; XURIELLA::PARSE-NUMBER-FORMAT
; (TOP-LEVEL-FORM 4)
; *** 1 error detected, no fasl file produced.
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP (:FORCE T) 216BA053> on
#<XURIELLA-SYSTEM::CLOSURE-SOURCE-FILE "number" 2180937B>.

I commented out this form:

(xpath::deflexer (format-lexer :ignore-whitespace nil)
;; zzz just enough unicode "support" here to pass the tests
(#.(format nil "([a-zA-Z0-9~A]+)" (code-char 945)) (x) (values :format x))
(#.(format nil "([^a-zA-Z0-9~A]+)" (code-char 945)) (x) (values :text x)))

and number.lisp compiles. Is this form needed?

2. profile.lisp does not compile

;;; Compiling file c:\lisp\libraries\xuriella\profile.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFVAR XURIELLA::*PROFILING-CALLERS*)
; (DEFVAR XURIELLA::*SAMPLES*)
; XURIELLA::CLEAR-COUNTER
; XURIELLA::COUNTER-
; XURIELLA::REPORT-COUNTER
; XURIELLA:ENABLE-PROFILING
; XURIELLA:DISABLE-PROFILING
; XURIELLA::INVOKE-TEMPLATE/PROFILE
; XURIELLA::INVOKE-WITH-PROFILE-COUNTER
; (SUBFUNCTION (DEFSETF XURIELLA::DATA-CALLS) (DEFSTRUCT XURIELLA::PROFILE-DATA))
; (SUBFUNCTION (DEFSETF XURIELLA::DATA-SELF-RUN) (DEFSTRUCT XURIELLA::PROFILE-DATA))
; (SUBFUNCTION (DEFSETF XURIELLA::DATA-SELF-REAL) (DEFSTRUCT XURIELLA::PROFILE-DATA))
; (SUBFUNCTION (DEFSETF XURIELLA::DATA-TOTAL-RUN) (DEFSTRUCT XURIELLA::PROFILE-DATA))
; (SUBFUNCTION (DEFSETF XURIELLA::DATA-TOTAL-REAL) (DEFSTRUCT XURIELLA::PROFILE-DATA))
; (SUBFUNCTION (DEFSETF XURIELLA::DATA-TEMPLATE) (DEFSTRUCT XURIELLA::PROFILE-DATA))
; (SUBFUNCTION XURIELLA::MAKE-PROFILE-DATA (DEFSTRUCT XURIELLA::PROFILE-DATA))
; XURIELLA::GROUP-AND-SORT-SAMPLES

**++++ Error in XURIELLA::REPORT-SAMPLES:
Unknown LOOP keyword in (... LOOP::IN BASE-URIS COLLECT (CONS ID BASE-URI)).
; XURIELLA:REPORT
; (TOP-LEVEL-FORM 3)
; *** 1 error detected, no fasl file produced.

I replaced this form

(sort (loop
for base-uri being each hash-key
using (hash-value id)
in base-uris
collect (cons id base-uri))
#'<
:key #'car)

with

(sort (loop
for base-uri being each hash-key
in base-uris
using (hash-value id)
collect (cons id base-uri))
#'<
:key #'car)

may be lispworks specific...

3. I tried the example from the home page

(defmacro with-stylesheet ((stylesheet-pathname) &body body)
`(invoke-with-stylesheet (lambda () , at body) ,stylesheet-pathname))

(defun invoke-with-stylesheet (fn stylesheet-pathname)
(xuriella:apply-stylesheet (pathname stylesheet-pathname)
(cxml:with-xml-output (stp:make-builder)
(funcall fn))))

(defun show-directory ()
(with-stylesheet ("directory.xsl")
(cxml:with-element "directory"
(let ((directory (user-homedir-pathname)))
(cxml:attribute "namestring" (namestring directory))
(dolist (file (directory (merge-pathnames "*.*" directory)))
(cxml:with-element "file"
(cxml:text (enough-namestring file directory))))))))

(show-directory)

Error: The value "directory" of CXML-STP-IMPL::NAME is not of type RUNES:ROD.
1 (continue) Supply a new value of CXML-STP-IMPL::NAME.
2 (abort) Abort job 22 :(BIND-STANDARD-STREAMS-AND-EXECUTE #<EDITOR::EDITOR-OUTPUT-STREAM #<EDITOR:BUFFER Background Output> 21A1CEBB> (FUNCALL-BACKGROUND-JOB-AUX #<CAPI:EDITOR-PANE CAPI:EDITOR-PANE 21C78D9B> BACKGROUND-REGION-EVAL (# # # # T NIL NIL)))

Type :b for backtrace, :c <option number> to proceed, or :? for other options

CL-USER 1 : 1 > :b :verbose
Call to CXML-STP:MAKE-ELEMENT (offset 270)
CXML-STP-IMPL::NAME : "directory"
CXML-STP-IMPL::URI : NIL
DBG::G : "directory"

Call to (METHOD SAX:START-ELEMENT (CXML-STP-IMPL::BUILDER T T T T)) (offset 30)
CXML-STP-IMPL::BUILDER : #<CXML-STP-IMPL::BUILDER 200E246F>
CXML-STP-IMPL::URI : NIL
CXML-STP-IMPL::LNAME : "directory"
CXML-STP-IMPL::QNAME : "directory"
CXML-STP-IMPL::ATTRS : (#S(SAX::STANDARD-ATTRIBUTE :NAMESPACE-URI NIL :LOCAL-NAME "namestring" :QNAME "namestring" :VALUE "C:\\lisp\\" :SPECIFIED-P NIL))
CLOS::.ISL. : :DONT-KNOW

Call to CXML::MAYBE-EMIT-START-TAG (offset 272)
&WHOLE : ((NIL "directory" "directory") #S(SAX::STANDARD-ATTRIBUTE :NAMESPACE-URI NIL :LOCAL-NAME "namestring" :QNAME "namestring" :VALUE "C:\\lisp\\" :SPECIFIED-P NIL))
DBG::\(URI\ ...\) : (NIL "directory" "directory")
CXML::URI : NIL
DBG::\(LNAME\ ...\) : ("directory" "directory")
CXML::LNAME : "directory"
DBG::\(QNAME\) : ("directory")
CXML::QNAME : "directory"
DBG::ATTRIBUTES : (#S(SAX::STANDARD-ATTRIBUTE :NAMESPACE-URI NIL :LOCAL-NAME "namestring" :QNAME "namestring" :VALUE "C:\\lisp\\" :SPECIFIED-P NIL))

Call to CXML::INVOKE-WITH-ELEMENT* (offset 97)
CXML::FN : #<anonymous interpreted function 200E892A>
CXML::PREFIX : NIL
CXML::LNAME : "file"
CXML::QNAME : "file"

Call to CXML::INVOKE-WITH-ELEMENT* (offset 345)
CXML::FN : #<anonymous interpreted function 200E1BEA>
CXML::PREFIX : NIL
CXML::LNAME : "directory"
CXML::QNAME : "directory"
CXML::QNAME : "directory"
CXML::URI : NIL
CXML::*CURRENT-ELEMENT* : ((NIL "directory" "directory") #S(SAX::STANDARD-ATTRIBUTE :NAMESPACE-URI NIL :LOCAL-NAME "namestring" :QNAME "namestring" :VALUE "C:\\lisp\\" :SPECIFIED-P NIL))
CXML::*CURRENT-NAMESPACE-BINDINGS* : NIL

Call to FUNCALL (offset 25)
FUNCTION : #<anonymous interpreted function 200E2A12>
SYSTEM::ARGUMENTS : NIL

Call to CXML::INVOKE-WITH-XML-OUTPUT (offset 152)
CXML::FN : #<anonymous interpreted function 200E1532>
CXML::SINK : #<CXML-STP-IMPL::BUILDER 200E246F>
CXML::*SINK* : #<CXML-STP-IMPL::BUILDER 200E246F>
CXML::*CURRENT-ELEMENT* : NIL
CXML::*UNPARSE-NAMESPACE-BINDINGS* : (("") ("xmlns" . "http://www.w3.org/2000/xmlns/") ("xml" . "http://www.w3.org/XML/1998/namespace"))
CXML::*CURRENT-NAMESPACE-BINDINGS* : NIL

Interpreted call to INVOKE-WITH-STYLESHEET:
FN : #<anonymous interpreted function 200E2A12>
STYLESHEET-PATHNAME : "directory.xsl"

Interpreted call to SHOW-DIRECTORY:

Call to EVAL (offset 113)
EXP : (SHOW-DIRECTORY)

It is far beyond my skills to find out what's going wrong here.

Can someone please help me to make a working xuriella ?

Thanks,
Frank
______________________________________________________
GRATIS f?r alle WEB.DE-Nutzer: Die maxdome Movie-FLAT!
Jetzt freischalten unter http://movieflat.web.de