cxml-devel August 2008

cxml-devel@common-lisp.net

3 participants
4 discussions

[cxml-devel] Fwd: Problem with cxml-xmls:map-node?
by Daniel Katz 19 Aug '08

19 Aug '08

Hi - I'm exploring cxml, and I'm running into trouble using the cxml- xmls:map-node. I don't know whether I'm doing something stupid or whether it's a bug, so I thought I'd ask here. I began by following the example in the Quick-Start Guide (http:// common-lisp.net/project/cxml/quickstart.html#id54132) and found myself in the debugger with an error related to namespaces: > > CL-USER> (with-open-file (out > "example.out" :direction :output :element-type '(unsigned-byte 8)) > (cxml-xmls:map-node (cxml:make-character-stream- > sink out) > '("test" (("a" "b")) > ("child" nil)))) > > serializing with :INCLUDE-NAMESPACE-URI, but node was created > without namespace URI > [Condition of type SIMPLE-ERROR] > > Restarts: > 0: [ABORT] Return to SLIME's top level. > 1: [ABORT-BREAK] Reset this process > 2: [ABORT] Kill this process > > Backtrace: > 0: ((:INTERNAL CXML-XMLS::WALK CXML-XMLS::MAP-NODE/LNAMES) > '("test" (("a" "b")) ("child" NIL))) > 1: (CXML-XMLS::MAP-NODE/LNAMES #<CXML::NAMESPACE-NORMALIZER > #x8D0290E> '("test" (("a" "b")) ("child" NIL)) 'T) > 2: (#<Anonymous Function #x8D04486>) I have to admit that I didn't find this error to be very useful in terms of understanding what the problem is. My second attempt was to avoid constructing the xmls-style data by hand but to instead take the output of a cxml parse. Suffice it to say that I ran into the same issue: > CL-USER> (with-open-file (out "foo.out" :direction :output :element- > type '(unsigned-byte 8)) > (cxml-xmls:map-node (cxml:make-character-stream- > sink out) > (cxml:parse-file > "foo.xml" (cxml-xmls:make-xmls-builder)))) > > > serializing with :INCLUDE-NAMESPACE-URI, but node was created > without namespace URI > [Condition of type SIMPLE-ERROR] > > Restarts: > 0: [ABORT] Return to SLIME's top level. > 1: [ABORT-BREAK] Reset this process > 2: [ABORT] Kill this process > > Backtrace: > 0: ((:INTERNAL CXML-XMLS::WALK CXML-XMLS::MAP-NODE/LNAMES) > '("foo" NIL " > " > ("bar" (("quux" "quux")) " > baz > ") > " > ")) > 1: (CXML-XMLS::MAP-NODE/LNAMES #<CXML::NAMESPACE-NORMALIZER > #x8CFCF86> '("foo" NIL " > " > ("bar" (("quux" "quux")) " > baz > ") > " > ") 'T) > 2: (#<Anonymous Function #x8C7D31E>) > 3: (SWANK::EVAL-REGION "(with-open-file (out \"foo.out\" > :direction :output > :element-type '(unsigned-byte 8)) > (cxml-xmls:map-node (cxml:make-character-stream-sink out) > (cxml:parse-file \"foo.xml\" (cxml-xmls:make-xmls- > builder)))) > ") So now I'm sort of at a loss for what to do next. And my basic question once again is: am I doing something stupid? Or is the xmls- style serialization facility broken? Thanks. Dan

1 1

[cxml-devel] Bug in validating XSD:DATE
by Chaitanya Gupta 18 Aug '08

18 Aug '08

If I have an RNC file which looks like this: start = element foo { element bar { text }, element baz { xsd:date } } and try to validate against this schema an XML which looks like this: <foo> <bar>haha!</bar> <baz>2008-09-09T22:00:00</baz> </foo> (Note that the value of 'baz' should have been a date, not a date-time) I get the following error/backtrace: `NIL' is not of the expected type `NUMBER' [Condition of type TYPE-ERROR] Restarts: 0: [ABORT-REQUEST] Abort handling SLIME request. 1: [ABORT] Abort entirely from this (lisp) process. Backtrace: 0: (SWANK::DEBUG-IN-EMACS #<TYPE-ERROR @ #x117dba9a>) 1: (SWANK:SWANK-DEBUGGER-HOOK #<TYPE-ERROR @ #x117dba9a> #<Function SWANK-DEBUGGER-HOOK>) 2: (ERROR TYPE-ERROR :DATUM NIL :EXPECTED-TYPE NUMBER :FORMAT-CONTROL "~@<`~s' is not of the expected type `~s'~:@>" :FORMAT-ARGUMENTS (NIL NUMBER)) 3: (CXML-TYPES::PARSE-TIME NIL NIL NIL NIL #1="0" #1# #1# NIL NIL ...) 4: ((METHOD CXML-TYPES::PARSE/XSD (CXML-TYPES:DATE-TYPE T T)) #<CXML-TYPES:DATE-TYPE > "2008-09-09T22:00:00" #<CXML-RNG::VALIDATOR @ #x117cb302>) 5: ((METHOD CXML-TYPES::PARSE/XSD :AROUND (CXML-TYPES:XSD-TYPE T T)) #<CXML-TYPES:DATE-TYPE > "2008-09-09T22:00:00" #<CXML-RNG::VALIDATOR @ #x117cb302>) 6: ((:INTERNAL (:EFFECTIVE-METHOD 3 NIL NIL T T) 0) #<CXML-TYPES:DATE-TYPE > "2008-09-09T22:00:00" #<CXML-RNG::VALIDATOR @ #x117cb302>) 7: ((METHOD CXML-TYPES:VALIDP (CXML-TYPES:XSD-TYPE T)) #<CXML-TYPES:DATE-TYPE > "2008-09-09T22:00:00" #<CXML-RNG::VALIDATOR @ #x117cb302>) 8: ((METHOD CXML-RNG::|DATA'| (T CXML-RNG:DATA T)) #<CXML-RNG::VALIDATOR @ #x117cb302> #<CXML-RNG:DATA @ #x117c65a2> "2008-09-09T22:00:00") Attached is a patch which fixes this. Now I get the expected error: text node not valid, was expecting a text node of type #<DATE-TYPE > [ Error at line 3, column 33 in #<PURI:URI file://+/Users/chaitanya/tmp/test.xml> ] [Condition of type CXML-RNG:RNG-ERROR] On a side note, I think that the error reporting can be improved a bit. e.g. the element inside which the validation error was encountered, can that also be reported? Chaitanya diff --git a/types.lisp b/types.lisp index 26f89fa..1d481c6 100644 --- a/types.lisp +++ b/types.lisp @@ -1049,11 +1049,11 @@ (num (str) (and str (parse-number:parse-number str)))) (setf (values y m d h min s tz-h tz-m) - (values (* (int y) (if minusp -1 1)) + (values (and y (* (int y) (if minusp -1 1))) (int m) (int d) (int h) (int min) (num s) (int tz-h) (int tz-m)))) - (let ((day-limit (day-limit m y))) + (let ((day-limit (and m y (day-limit m y)))) ;; check ranges (cond ((and y m d h min s

1 0

[cxml-devel] Problem compiling PARSE-SCHEMA on ACL
by Chaitanya Gupta 18 Aug '08

18 Aug '08

Hi, When I try to call PARSE-SCHEMA in ACL, I get this error -- attempt to call the undefined function (SETF CXML-RNG::GRAMMAR-START) with args: #S(CXML-RNG::DEFINITION :NAME :START :COMBINE-METHOD NIL :HEAD-P NIL :REDEFINITION NIL :CHILD ...) #S(CXML-RNG::GRAMMAR :START NIL :PARENT NIL :DEFINITIONS #<EQUAL hash-table with 0 entries @ #x13904c62>). [Condition of type UNDEFINED-FUNCTION] This happens because GRAMMAR is defined after PARSE-SCHEMA in parse.lisp. Same issue with the DEFN-CHILD accessor for DEFINITION. If I move the definition of PARSE-SCHEMA to the end of the file, for example, the issue is fixed. Chaitanya

2 4

[cxml-devel] out of synch with cl-ppcre
by Ben Hyde 16 Aug '08

16 Aug '08

The code around *convert-char-class-to-hash* in nppcre.lisp fails now since cl-ppcre::convert-char-class-to-hash is no more. I was able to get things to compile by commenting it out. I haven't a clue what that's going to break ...

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

cxml-devel August 2008