* Error in make check building guile-lib for guile 2.0. trap-enable unbound
@ 2011-03-04 16:59 dsmich
2011-03-04 21:33 ` Neil Jerram
0 siblings, 1 reply; 9+ messages in thread
From: dsmich @ 2011-03-04 16:59 UTC (permalink / raw)
To: guile-devel
[-- Attachment #1: Type: text/plain, Size: 1698 bytes --]
Howdy Guilers,
As some of you know, I've been slowing bringing scwm back up to speed. I've gotten quite far but the next major hurdle is gtk+, so I am attempting to build and install that. The first thing needed is guile-lib, which builds fine for me from git but has the following error output.
$ guile --version
guile (GNU Guile) 2.0.0.63-fd029
And I'm using libgc from the 7.2alpha5 tarball.
Here is the important part of make check output. (also attached is the full make check output)
trap-enable is not mentioned in the guile NEWS.
PASS: search.basic.scm
Backtrace:
In module/ice-9/boot-9.scm:
170: 11 [catch #t #<catch-closure 10ea2c0> ...]
In unknown file:
?: 10 [catch-closure]
In module/ice-9/boot-9.scm:
62: 9 [call-with-prompt prompt0 ...]
In module/ice-9/eval.scm:
389: 8 [eval # #]
In module/ice-9/boot-9.scm:
1917: 7 [save-module-excursion #<procedure 10f5840 at module/ice-9/boot-9.scm:3339:3 ()>]
3346: 6 [#<procedure 10f5840 at module/ice-9/boot-9.scm:3339:3 ()>]
1189: 5 [%start-stack load-stack ...]
1194: 4 [#<procedure 1105990 ()>]
In unknown file:
?: 3 [primitive-load "/home/dsmith/src/guile-lib/unit-tests/./statprof.scm"]
In module/ice-9/eval.scm:
349: 2 [eval #<memoized (trap-enable (quote traps))> ()]
356: 1 [eval #<memoized trap-enable> ()]
In unknown file:
?: 0 [memoize-variable-access! #<memoized trap-enable> #<directory # fea090>]
ERROR: In procedure memoize-variable-access!:
ERROR: Unbound variable: trap-enable
Some deprecated features have been used. Set the environment
variable GUILE_WARN_DEPRECATED to "detailed" and rerun the
program to get more information. Set it to "no" to suppress
this message.
FAIL: statprof.scm
-Dale
[-- Attachment #2: make.out --]
[-- Type: application/octet-stream, Size: 41069 bytes --]
Making check in src
make[1]: Entering directory `/home/dsmith/src/guile-lib/src'
make[1]: Nothing to be done for `check'.
make[1]: Leaving directory `/home/dsmith/src/guile-lib/src'
Making check in doc
make[1]: Entering directory `/home/dsmith/src/guile-lib/doc'
make[1]: Nothing to be done for `check'.
make[1]: Leaving directory `/home/dsmith/src/guile-lib/doc'
Making check in examples
make[1]: Entering directory `/home/dsmith/src/guile-lib/examples'
make[1]: Nothing to be done for `check'.
make[1]: Leaving directory `/home/dsmith/src/guile-lib/examples'
Making check in unit-tests
make[1]: Entering directory `/home/dsmith/src/guile-lib/unit-tests'
make check-TESTS
make[2]: Entering directory `/home/dsmith/src/guile-lib/unit-tests'
Running test suite: main-suite ----------------------------------------
Running test suite: <test-api>-suite ----------------------------------
Running test case: test-api
;;; WARNING (New API, update your API form ((<test-api>)))
1 run, 0 failed
PASS: api.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-async-queue>-suite --------------------------
Running test case: test-consume
1 run, 0 failed
PASS: container.async-queue.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-tsort>-suite --------------------------------
Running test case: test-tsortq
1 run, 0 failed
PASS: graph.topological-sort.scm
*** HtmlPrag Tests ***
(html->shtml "<a>>")
==> (*TOP* (a ">"))
;; Passed.
(html->shtml "<a<>")
==> (*TOP* (a "<" ">"))
;; Passed.
(html->shtml "<>")
==> (*TOP* "<" ">")
;; Passed.
(html->shtml "< >")
==> (*TOP* "<" ">")
;; Passed.
(html->shtml "< a>")
==> (*TOP* (a))
;; Passed.
(html->shtml "< a / >")
==> (*TOP* (a))
;; Passed.
(html->shtml "<a<")
==> (*TOP* (a "<"))
;; Passed.
(html->shtml "<a<b")
==> (*TOP* (a (b)))
;; Passed.
(html->shtml "><a>")
==> (*TOP* ">" (a))
;; Passed.
(html->shtml "</>")
==> (*TOP*)
;; Passed.
(html->shtml "<\">")
==> (*TOP* "<" "\"" ">")
;; Passed.
(html->shtml "<a>xxx<plaintext>aaa
bbb
c<c<c")
==> (*TOP* (a "xxx" (plaintext "aaa
" "bbb
" "c<c<c")))
;; Passed.
(html->shtml "aaa<!-- xxx -->bbb")
==> (*TOP* "aaa" (*COMMENT* " xxx ") "bbb")
;; Passed.
(html->shtml "aaa<! -- xxx -->bbb")
==> (*TOP* "aaa" (*COMMENT* " xxx ") "bbb")
;; Passed.
(html->shtml "aaa<!-- xxx --->bbb")
==> (*TOP* "aaa" (*COMMENT* " xxx -") "bbb")
;; Passed.
(html->shtml "aaa<!-- xxx ---->bbb")
==> (*TOP* "aaa" (*COMMENT* " xxx --") "bbb")
;; Passed.
(html->shtml "aaa<!-- xxx -y-->bbb")
==> (*TOP* "aaa" (*COMMENT* " xxx -y") "bbb")
;; Passed.
(html->shtml "aaa<!----->bbb")
==> (*TOP* "aaa" (*COMMENT* "-") "bbb")
;; Passed.
(html->shtml "aaa<!---->bbb")
==> (*TOP* "aaa" (*COMMENT* "") "bbb")
;; Passed.
(html->shtml "aaa<!--->bbb")
==> (*TOP* "aaa" (*COMMENT* "->bbb"))
;; Passed.
(html->shtml "<hr>")
==> (*TOP* (hr))
;; Passed.
(html->shtml "<hr/>")
==> (*TOP* (hr))
;; Passed.
(html->shtml "<hr />")
==> (*TOP* (hr))
;; Passed.
(html->shtml "<hr noshade>")
==> (*TOP* (hr (@ (noshade))))
;; Passed.
(html->shtml "<hr noshade/>")
==> (*TOP* (hr (@ (noshade))))
;; Passed.
(html->shtml "<hr noshade />")
==> (*TOP* (hr (@ (noshade))))
;; Passed.
(html->shtml "<hr noshade / >")
==> (*TOP* (hr (@ (noshade))))
;; Passed.
(html->shtml "<hr noshade=1 />")
==> (*TOP* (hr (@ (noshade "1"))))
;; Passed.
(html->shtml "<hr noshade=1/>")
==> (*TOP* (hr (@ (noshade "1"))))
;; Passed.
(html->shtml "<q>aaa<p/>bbb</q>ccc</p>ddd")
==> (*TOP* (q "aaa" (p) "bbb") "ccc" "ddd")
;; Passed.
(html->shtml "<")
==> (*TOP* "<")
;; Passed.
(html->shtml ">")
==> (*TOP* ">")
;; Passed.
(html->shtml "Gilbert & Sullivan")
==> (*TOP* "Gilbert & Sullivan")
;; Passed.
(html->shtml "Gilbert & Sullivan")
==> (*TOP* "Gilbert & Sullivan")
;; Passed.
(html->shtml "Gilbert & Sullivan")
==> (*TOP* "Gilbert & Sullivan")
;; Passed.
(html->shtml "Copyright © Foo")
==> (*TOP* "Copyright " (*ENTITY* "additional" "copy") " Foo")
;; Passed.
(html->shtml "aaa©bbb")
==> (*TOP* "aaa" (*ENTITY* "additional" "copy") "bbb")
;; Passed.
(html->shtml "aaa©")
==> (*TOP* "aaa" (*ENTITY* "additional" "copy"))
;; Passed.
(html->shtml "*")
==> (*TOP* "*")
;; Passed.
(html->shtml "*")
==> (*TOP* "*")
;; Passed.
(html->shtml "*x")
==> (*TOP* "*x")
;; Passed.
(html->shtml "—")
==> (*TOP* "\x97")
;; Passed.
(html->shtml "Ϩ")
==> (*TOP* (*ENTITY* "additional-char" "1000"))
;; Passed.
(html->shtml "B")
==> (*TOP* "B")
;; Passed.
(html->shtml "¢")
==> (*TOP* "¢")
;; Passed.
(html->shtml "ÿ")
==> (*TOP* "ÿ")
;; Passed.
(html->shtml "Ā")
==> (*TOP* (*ENTITY* "additional-char" "256"))
;; Passed.
(html->shtml "B")
==> (*TOP* "B")
;; Passed.
(html->shtml "&42;")
==> (*TOP* "&42;")
;; Passed.
(html->shtml "aaa©bbb&ccc<ddd&>eee*fffϨgggZhhh")
==> (*TOP* "aaa" (*ENTITY* "additional" "copy") "bbb&ccc<ddd&>eee*fff" (*ENTITY* "additional-char" "1000") "gggZhhh")
;; Passed.
(html->shtml "<IMG src=\"http://pics.ebay.com/aw/pics/listings/ebayLogo_38x16.gif\" border=0 width=\"38\" height=\"16\" HSPACE=5 VSPACE=0\">2</FONT>")
==> (*TOP* (img (@ (src "http://pics.ebay.com/aw/pics/listings/ebayLogo_38x16.gif") (border "0") (width "38") (height "16") (hspace "5") (vspace "0"))) "2")
;; Passed.
(html->shtml "<aaa bbb=ccc\"ddd>eee")
==> (*TOP* (aaa (@ (bbb "ccc") (ddd)) "eee"))
;; Passed.
(html->shtml "<aaa bbb=ccc \"ddd>eee")
==> (*TOP* (aaa (@ (bbb "ccc") (ddd)) "eee"))
;; Passed.
(html->shtml "<HTML><Head><Title>My Title</Title></Head><Body BGColor=\"white\" Foo=42>This is a <B><I>bold-italic</B></I> test of </Erk>broken HTML.<br>Yes it is.</Body></HTML>")
==> (*TOP* (html (head (title "My Title")) (body (@ (bgcolor "white") (foo "42")) "This is a " (b (i "bold-italic")) " test of " "broken HTML." (br) "Yes it is.")))
;; Passed.
(html->shtml "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">")
==> (*TOP* (*DECL* DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"))
;; Passed.
(html->shtml "<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"en\">")
==> (*TOP* (html (@ (xmlns "http://www.w3.org/1999/xhtml") (lang "en") (lang "en"))))
;; Passed.
(html->shtml "<html:html xmlns:html=\"http://www.w3.org/TR/REC-html40\"><html:head><html:title>Frobnostication</html:title></html:head><html:body><html:p>Moved to <html:a href=\"http://frob.com\">here.</html:a></html:p></html:body></html:html>")
==> (*TOP* (html (@ (xmlns:html "http://www.w3.org/TR/REC-html40")) (head (title "Frobnostication")) (body (p "Moved to " (a (@ (href "http://frob.com")) "here.")))))
;; Passed.
(html->shtml "<RESERVATION xmlns:HTML=\"http://www.w3.org/TR/REC-html40\"><NAME HTML:CLASS=\"largeSansSerif\">Layman, A</NAME><SEAT CLASS=\"Y\" HTML:CLASS=\"largeMonotype\">33B</SEAT><HTML:A HREF=\"/cgi-bin/ResStatus\">Check Status</HTML:A><DEPARTURE>1997-05-24T07:55:00+1</DEPARTURE></RESERVATION>")
==> (*TOP* (reservation (@ (xmlns:HTML "http://www.w3.org/TR/REC-html40")) (name (@ (class "largeSansSerif")) "Layman, A") (seat (@ (class "Y") (class "largeMonotype")) "33B") (a (@ (href "/cgi-bin/ResStatus")) "Check Status") (departure "1997-05-24T07:55:00+1")))
;; Passed.
(html->shtml "<html><head><title></title><title>whatever</title></head><body><a href=\"url\">link</a><p align=center><ul compact style=\"aa\"><p>BLah<!-- comment <comment> --> <i> italic <b> bold <tt> ened </i> still < bold </b></body><P> But not done yet...")
==> (*TOP* (html (head (title) (title "whatever")) (body (a (@ (href "url")) "link") (p (@ (align "center")) (ul (@ (compact) (style "aa")))) (p "BLah" (*COMMENT* " comment <comment> ") " " (i " italic " (b " bold " (tt " ened "))) " still < bold ")) (p " But not done yet...")))
;; Passed.
(html->shtml "<?xml version=\"1.0\" encoding=\"UTF-8\"?>")
==> (*TOP* (*PI* xml "version=\"1.0\" encoding=\"UTF-8\""))
;; Passed.
(html->shtml "<?php php_info(); ?>")
==> (*TOP* (*PI* php "php_info(); "))
;; Passed.
(html->shtml "<?php php_info(); ?")
==> (*TOP* (*PI* php "php_info(); ?"))
;; Passed.
(html->shtml "<?php php_info(); ")
==> (*TOP* (*PI* php "php_info(); "))
;; Passed.
(html->shtml "<?foo bar ? baz > blort ?>")
==> (*TOP* (*PI* foo "bar ? baz > blort "))
;; Passed.
(html->shtml "<?foo b?>x")
==> (*TOP* (*PI* foo "b") "x")
;; Passed.
(html->shtml "<?foo ?>x")
==> (*TOP* (*PI* foo "") "x")
;; Passed.
(html->shtml "<?foo ?>x")
==> (*TOP* (*PI* foo "") "x")
;; Passed.
(html->shtml "<?foo?>x")
==> (*TOP* (*PI* foo "") "x")
;; Passed.
(html->shtml "<?f?>x")
==> (*TOP* (*PI* f "") "x")
;; Passed.
(html->shtml "<??>x")
==> (*TOP* (*PI* #f "") "x")
;; Passed.
(html->shtml "<?>x")
==> (*TOP* (*PI* #f ">x"))
;; Passed.
(html->shtml "<foo bar=\"baz\">blort")
==> (*TOP* (foo (@ (bar "baz")) "blort"))
;; Passed.
(html->shtml "<foo bar='baz'>blort")
==> (*TOP* (foo (@ (bar "baz")) "blort"))
;; Passed.
(html->shtml "<foo bar=\"baz'>blort")
==> (*TOP* (foo (@ (bar "baz'>blort"))))
;; Passed.
(html->shtml "<foo bar='baz\">blort")
==> (*TOP* (foo (@ (bar "baz\">blort"))))
;; Passed.
(html->shtml "<p>A</p><script>line0 <
line1
<line2></script><p>B</p>")
==> (*TOP* (p "A") (script "line0 <
" "line1
" "<line2>") (p "B"))
;; Passed.
(html->shtml "<xmp>a<b>c</XMP>d")
==> (*TOP* (xmp "a<b>c") "d")
;; Passed.
(html->shtml "<XMP>a<b>c</xmp>d")
==> (*TOP* (xmp "a<b>c") "d")
;; Passed.
(html->shtml "<xmp>a<b>c</foo:xmp>d")
==> (*TOP* (xmp "a<b>c") "d")
;; Passed.
(html->shtm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-xml-pragmatic>-suite ------------------------
Running test case: test-all
1 run, 0 failed
l "<foo:xmp>a<b>c</xmp>d")
==> (*TOP* (xmp "a<b>c") "d")
;; Passed.
(html->shtml "<foo:xmp>a<b>c</foo:xmp>d")
==> (*TOP* (xmp "a<b>c") "d")
;; Passed.
(html->shtml "<foo:xmp>a<b>c</bar:xmp>d")
==> (*TOP* (xmp "a<b>c") "d")
;; Passed.
(html->shtml "<xmp>a</b>c</xmp>d")
==> (*TOP* (xmp "a</b>c") "d")
;; Passed.
(html->shtml "<xmp>a</b >c</xmp>d")
==> (*TOP* (xmp "a</b >c") "d")
;; Passed.
(html->shtml "<xmp>a</ b>c</xmp>d")
==> (*TOP* (xmp "a</ b>c") "d")
;; Passed.
(html->shtml "<xmp>a</ b >c</xmp>d")
==> (*TOP* (xmp "a</ b >c") "d")
;; Passed.
(html->shtml "<xmp>a</b:x>c</xmp>d")
==> (*TOP* (xmp "a</b:x>c") "d")
;; Passed.
(html->shtml "<xmp>a</b::x>c</xmp>d")
==> (*TOP* (xmp "a</b::x>c") "d")
;; Passed.
(html->shtml "<xmp>a</b:::x>c</xmp>d")
==> (*TOP* (xmp "a</b:::x>c") "d")
;; Passed.
(html->shtml "<xmp>a</b:>c</xmp>d")
==> (*TOP* (xmp "a</b:>c") "d")
;; Passed.
(html->shtml "<xmp>a</b::>c</xmp>d")
==> (*TOP* (xmp "a</b::>c") "d")
;; Passed.
(html->shtml "<xmp>a</xmp:b>c</xmp>d")
==> (*TOP* (xmp "a</xmp:b>c") "d")
;; Passed.
(html->shtml "<P>real1</P>
<XMP>
alpha
<P>fake</P>
bravo
</XMP
<P>real2</P>")
==> (*TOP* (p "real1") "
" (xmp "
" "alpha
" "<P>fake</P>
" "bravo
") (p "real2"))
;; Passed.
(html->shtml "<P>real1</P>
<XMP>
alpha
<P>fake</P>
bravo
</XMP
<P>real2</P>")
==> (*TOP* (p "real1") "
" (xmp "
" "alpha
" "<P>fake</P>
" "bravo
") (p "real2"))
;; Passed.
(html->shtml "<xmp>a</xmp>x")
==> (*TOP* (xmp "a") "x")
;; Passed.
(html->shtml "<xmp>a
</xmp>x")
==> (*TOP* (xmp "a
") "x")
;; Passed.
(html->shtml "<xmp></xmp>x")
==> (*TOP* (xmp) "x")
;; Passed.
(html->shtml "<xmp>a</xmp")
==> (*TOP* (xmp "a"))
;; Passed.
(html->shtml "<xmp>a</xm")
==> (*TOP* (xmp "a</xm"))
;; Passed.
(html->shtml "<xmp>a</x")
==> (*TOP* (xmp "a</x"))
;; Passed.
(html->shtml "<xmp>a</")
==> (*TOP* (xmp "a</"))
;; Passed.
(html->shtml "<xmp>a<")
==> (*TOP* (xmp "a<"))
;; Passed.
(html->shtml "<xmp>a")
==> (*TOP* (xmp "a"))
;; Passed.
(html->shtml "<xmp>")
==> (*TOP* (xmp))
;; Passed.
(html->shtml "<xmp")
==> (*TOP* (xmp))
;; Passed.
(html->shtml "<xmp x=42 ")
==> (*TOP* (xmp (@ (x "42"))))
;; Passed.
(html->shtml "<xmp x= ")
==> (*TOP* (xmp (@ (x))))
;; Passed.
(html->shtml "<xmp x ")
==> (*TOP* (xmp (@ (x))))
;; Passed.
(html->shtml "<xmp x")
==> (*TOP* (xmp (@ (x))))
;; Passed.
(html->shtml "<script>xxx")
==> (*TOP* (script "xxx"))
;; Passed.
(html->shtml "<script/>xxx")
==> (*TOP* (script) "xxx")
;; Passed.
(shtml->html '(p))
==> "<p></p>"
;; Passed.
(shtml->html '(p "CONTENT"))
==> "<p>CONTENT</p>"
;; Passed.
(shtml->html '(br))
==> "<br />"
;; Passed.
(shtml->html '(br "CONTENT"))
==> "<br />"
;; Passed.
(shtml->html '(hr (@ (clear "all"))))
==> "<hr clear=\"all\" />"
;; Passed.
(shtml->html '(hr (@ (noshade))))
==> "<hr noshade />"
;; Passed.
(shtml->html '(hr (@ (noshade #t))))
==> "<hr noshade />"
;; Passed.
(shtml->html '(hr (@ (noshade "noshade"))))
==> "<hr noshade=\"noshade\" />"
;; Passed.
(shtml->html '(hr (@ (aaa "bbbccc"))))
==> "<hr aaa=\"bbbccc\" />"
;; Passed.
(shtml->html '(hr (@ (aaa "bbb'ccc"))))
==> "<hr aaa=\"bbb'ccc\" />"
;; Passed.
(shtml->html '(hr (@ (aaa "bbb\"ccc"))))
==> "<hr aaa='bbb\"ccc' />"
;; Passed.
(shtml->html '(hr (@ (aaa "bbb\"ccc'ddd"))))
==> "<hr aaa=\"bbb"ccc'ddd\" />"
;; Passed.
(shtml->html '(*PI* xml "version=\"1.0\" encoding=\"UTF-8\""))
==> "<?xml version=\"1.0\" encoding=\"UTF-8\"?>"
;; Passed.
(shtml->html '(*DECL* DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"))
==> "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">"
;; Passed.
*** All Tests PASSED *** Passed: 125 Failed: 0
PASS: htmlprag.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-logging>-suite ------------------------------
Running test case: test-log-to-one-port
Running test case: test-log-to-default-logger
Running test case: test-log-to-registered-logger
3 run, 0 failed
PASS: logging.logger.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-match-bind>-suite ---------------------------
Running test case: test-s///
Running test case: test-s///g
2 run, 0 failed
PASS: match-bind.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-golden-sect>-suite --------------------------
Running test case: test-gs-function
1 run, 0 failed
PASS: math.minima.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-factorization>-suite ------------------------
Running test case: test-factor-function
Running test suite: <test-prime-lists>-suite --------------------------
Running test case: test-recognizes-first100
Running test case: test-prime>
Running test case: test-prime<
Running test case: test-primes>
Running test case: test-primes<
6 run, 0 failed
PASS: math.primes.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-md5>-suite ----------------------------------
Running test case: test-default-port
Running test case: test-given-port
2 run, 0 failed
PASS: md5.scm
WARNING: (guile-user): `run' imported from both (unit-test) and (os process)
Running test suite: main-suite ----------------------------------------
Running test suite: <test-proc>-suite ---------------------------------
Running test case: test-exit-code
Running test case: test-pipeline
Some deprecated features have been used. Set the environment
variable GUILE_WARN_DEPRECATED to "detailed" and rerun the
program to get more information. Set it to "no" to suppress
this message.
WARNING: (guile-user): `run' imported from both (unit-test) and (os process)
Running test suite: main-suite ----------------------------------------
Running test suite: <test-proc>-suite ---------------------------------
Running test case: test-exit-code
Running test case: test-pipeline
2 run, 0 failed
PASS: os.process.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-dfs>-suite ----------------------------------
Running test case: test-number-search
Running test suite: <test-binary-search>-suite ------------------------
Running test case: test-binary-edges
Running test case: test-binary-results
3 run, 0 failed
PASS: search.basic.scm
Backtrace:
In module/ice-9/boot-9.scm:
170: 11 [catch #t #<catch-closure 9422c0> ...]
In unknown file:
?: 10 [catch-closure]
In module/ice-9/boot-9.scm:
62: 9 [call-with-prompt prompt0 ...]
In module/ice-9/eval.scm:
389: 8 [eval # #]
In module/ice-9/boot-9.scm:
1917: 7 [save-module-excursion #<procedure 94d840 at module/ice-9/boot-9.scm:3339:3 ()>]
3346: 6 [#<procedure 94d840 at module/ice-9/boot-9.scm:3339:3 ()>]
1189: 5 [%start-stack load-stack ...]
1194: 4 [#<procedure 95d990 ()>]
In unknown file:
?: 3 [primitive-load "/home/dsmith/src/guile-lib/unit-tests/./statprof.scm"]
In module/ice-9/eval.scm:
349: 2 [eval #<memoized (trap-enable (quote traps))> ()]
356: 1 [eval #<memoized trap-enable> ()]
In unknown file:
?: 0 [memoize-variable-access! #<memoized trap-enable> #<directory # 841090>]
ERROR: In procedure memoize-variable-access!:
ERROR: Unbound variable: trap-enable
Some deprecated features have been used. Set the environment
variable GUILE_WARN_DEPRECATED to "detailed" and rerun the
program to get more information. Set it to "no" to suppress
this message.
FAIL: statprof.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-scheme-kwargs>-suite ------------------------
Running test case: test-lambda/kwargs
1 run, 0 failed
PASS: scheme.kwargs.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-basic-completion>-suite ---------------------
Running test case: test-all-completions
Running test case: test-too-long-dropped
Running test case: test-complete
Running test suite: <test-ci-completion>-suite ------------------------
Running test case: test-all-completions
Running test case: test-too-long-dropped
Running test case: test-complete
6 run, 0 failed
PASS: string.completion.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-expansion>-suite ----------------------------
Running test case: test-beginning-expansion
Running test case: test-ending-expansion
Running test case: test-middle-expansion
Running test case: test-alternate-tab-size
Running test suite: <test-escape>-suite -------------------------------
Running test case: test-single-escape-char
Running test case: test-multiple-escape-chars
Running test suite: <test-collapse>-suite -----------------------------
Running test case: test-basic-collapse
Running test case: test-choose-other-char
Running test case: test-choose-maximum-repeats
9 run, 0 failed
PASS: string.transform.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-string-wrapper>-suite -----------------------
Running test case: test-util-equivalent-to-class
Running test case: test-fill-equivalent-to-joined-lines
Running test case: test-no-collapse-ws
Running test case: test-no-word-break
4 run, 0 failed
PASS: string.wrap.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-sxml-fold>-suite ----------------------------
Running test case: test-fold
Running test case: test-fold-layout
2 run, 0 failed
PASS: sxml.fold.scm
body: "]]>"
Result: ()
body: "abcd]]>"
Result: ("abcd" "")
body: "abcd]]]>"
Result: ("abcd" "" "]" "")
body: "abcd]]]]>"
Result: ("abcd" "" "]" "" "]" "")
body: "abcd]]]]]>"
Result: ("abcd" "" "]" "" "]" "" "]" "")
body: "abcd]]]a]]>"
Result: ("abcd" "" "]" "" "]]" "" "a" "")
body: "abc%r%ndef%n]]>"
Result: ("abc" " NL" "def" " NL")
body: "%r%n%r%n]]>"
Result: ("" " NL" "" " NL")
body: "%r%n%r%na]]>"
Result: ("" " NL" "" " NL" "a" "")
body: "%r%r%r%na]]>"
Result: ("" " NL" "" " NL" "" " NL" "a" "")
body: "abc&!!!]]>"
Result: ("abc" "&" "" "" "!!!" "")
body: "abc]]>>&]]]>and]]>"
Result: ("abc" "" "]]" "" "" ">" "" "&" "gt" "" "" "&" "amp" "" ";" "" "]" "" "]]" "" "" ">" "and" "")
input: ""
Result: ()
input: "href='http://a%tb%r%n%r%n%nc'"
Result: ((href . "http://a b c"))
input: "href='http://a%tb%r%r%n%rc'"
Result: ((href . "http://a b c"))
input: "_1 ='12&' _2= \"%r%n%t12 3\">"
Result: ((_1 . "12&") (_2 . " 12
3"))
input: "%tAbc='<&>
'%nNext='12&ent;34' />"
Result: ((Abc . "<&>
") (Next . "12<xx>34"))
input: "%tAbc='<&>
'%nNext='12&ent;34' />"
Result: ((Abc . "<&>\r") (Next . "12<xx>34"))
input: "%tAbc='<&>
'%nNext='12&en;34' />"
Result: ((Abc . "<&>
") (Next . "12\"xx'34"))
input: "%tAbc='<&>
'%nNext='12&ent;34' />"
Result: ((Abc . "<&>
") (Next . "12<&T;>34"))
input: "html:href='http://a%tb%r%n%r%n%nc'"
Result: (((html . href) . "http://a b c"))
input: "html:href='ref1' html:src='ref2'"
Result: (((html . href) . "ref1") ((html . src) . "ref2"))
input: "html:href='ref1' xml:html='ref2'"
Result: (((html . href) . "ref1") ((xml . html) . "ref2"))
body: ""
Result: () #<eof>
body: " "
Result: (" ") #<eof>
body: "<BR/>"
Result: () (START . BR)
body: " <BR />"
Result: (" ") (START . BR)
body: " <"
Result: (" ") (ENTITY-REF . lt)
body: " a<"
Result: (" a") (ENTITY-REF . lt)
body: " a <"
Result: (" a ") (ENTITY-REF . lt)
body: " <!-- comment--> a a<BR/>"
Result: (" " " a a") (START . BR)
body: " <!-- comment-->%ra a<BR/>"
Result: (" " "" "
" "a a") (START . BR)
body: " <!-- comment-->%r%na a<BR/>"
Result: (" " "" "
" "a a") (START . BR)
body: " <!-- comment-->%r%na%t%r%r%na<BR/>"
Result: (" " "" "
" "a\t" "
" "" "
" "a") (START . BR)
body: "a<!-- comment--> a a<BR/>"
Result: ("a" " a a") (START . BR)
body: "!<BR/>"
Result: ("" "!") (START . BR)
body: "!%n<BR/>"
Result: ("" "!" "
") (START . BR)
body: "%t!%n<BR/>"
Result: ("\t" "!" "
") (START . BR)
body: "%t!%na a<BR/>"
Result: ("\t" "!" "
a a") (START . BR)
body: "%t!%ra a<BR/>"
Result: ("\t" "!" "" "
" "a a") (START . BR)
body: "%t!%r%na a<BR/>"
Result: ("\t" "!" "" "
" "a a") (START . BR)
body: " %ta ! b <BR/>"
Result: (" \ta " "!" " b ") (START . BR)
body: " %ta   b <BR/>"
Result: (" \ta " " " " b ") (START . BR)
body: "<![CDATA[<]]><BR/>"
Result: ("<") (START . BR)
body: "<![CDATA[]]]><BR/>"
Result: ("]") (START . BR)
body: "%t<![CDATA[<]]><BR/>"
Result: ("\t" "<") (START . BR)
body: "%t<![CDATA[<]]>a b<BR/>"
Result: ("\t" "<" "a b") (START . BR)
body: "%t<![CDATA[<]]> a b<BR/>"
Result: ("\t" "<" " a b") (START . BR)
body: "%td <![CDATA[ <%r%r%n]]> a b<BR/>"
Result: ("\td " " <" "
" "" "
" " a b") (START . BR)#<procedure 1383720 at module/ice-9/eval.scm:378:13 (a b c)>
#<procedure 1395cf0 at module/ice-9/eval.scm:378:13 (a b c)>
#<procedure 1395420 at module/ice-9/eval.scm:378:13 (a b c)>
Parsing: <BR/>
((BR))
Parsing: <BR></BR>
((BR))
Parsing: <A HREF='URL'> link <I>itlink </I> &amp;</A>
((A (@ (HREF "URL")) " link " (I "itlink ") " " "&" "amp;"))
Parsing: <A HREF='URL' xml:space='preserve'> link <I>itlink </I> &amp;</A>
((A (@ (HREF "URL") ((xml . space) "preserve")) " link " (I "itlink ") " " "&" "amp;"))
Parsing: <A HREF='URL' xml:space='preserve'> link <I xml:space='default'>itlink </I> &amp;</A>
((A (@ (HREF "URL") ((xml . space) "preserve")) " link " (I (@ ((xml . space) "default")) "itlink ") " " "&" "amp;"))
Parsing: <itemize><item>This is item 1 </item>%n<!-- Just:a comment --><item>Item 2</item>%n </itemize>
((itemize (item "This is item 1 ") "
" (item "Item 2") "
"))
Parsing: <P><![CDATA[<BR>%n<![CDATA[<BR>]]>]]></P>
((P "<BR>" "
" "<![CDATA[<BR>" "]]" "" ">"))
Parsing: <P><![CDATA[<BR>%r<![CDATA[<BR>]]>]]></P>
((P "<BR>" "
" "<![CDATA[<BR>" "]]" "" ">"))
Parsing: <?xml version='1.0'?>%n%n<Reports TStamp='1'></Reports>
((Reports (@ (TStamp "1"))))
Parsing: %n<?PI xxx?><!-- Comment %n -%r-->%n<?PI1 zzz?><T/>
((T))
Parsing: <!DOCTYPE T SYSTEM 'system1' ><!-- comment -->%n<T/>
((T))
Parsing: <!DOCTYPE T PUBLIC '//EN/T' "system1" [ <!ELEMENT a 'aa'> ]>%n<?pi?><T/>
((T))
Parsing: <BR/>
((BR))
Parsing: <BR></BR>
((BR))
Parsing: <BR>aa</BR>
((BR "aa"))
Parsing: <BR>a<I>a</I></BR>
((BR "a" (I "a")))
Parsing: <DIV>Example: "&example;"</DIV>
((DIV "Example: \"" (P "An ampersand (" "&" ") may be escaped numerically (" "&" "#38;) or with a general entity (" "&" "amp;).") "\""))
Parsing: <DIV>Example: "&example;" <P/></DIV>
((DIV "Example: \"" (Q (I "example:") " ex" "!") "?" "\" " (P)))
Parsing: <DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>
(((URI1 . DIV) (@ (B "B") ((URI1 . B) "A")) (*NAMESPACES* ((A URI1 . URI1) (*DEFAULT* URI1 . URI1))) ((URI1 . P) (*NAMESPACES* ((*DEFAULT* #f . #f) (A URI1 . URI1) (*DEFAULT* URI1 . URI1))) (BR (*NAMESPACES* ((*DEFAULT* #f . #f) (A URI1 . URI1) (*DEFAULT* URI1 . URI1)))))))
Parsing: <DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>
(((UA . DIV) (@ (B "B") ((UA . B) "A")) (*NAMESPACES* ((A UA . URI1) (*DEFAULT* UA . URI1) (#f UA . URI1))) ((UA . P) (*NAMESPACES* ((*DEFAULT* #f . #f) (A UA . URI1) (*DEFAULT* UA . URI1) (#f UA . URI1))) (BR (*NAMESPACES* ((*DEFAULT* #f . #f) (A UA . URI1) (*DEFAULT* UA . URI1) (#f UA . URI1)))))))
Parsing: <DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>
(((UA . DIV) (@ (B "B") ((UA . B) "A")) (*NAMESPACES* ((*DEFAULT* UA . URI1) (A UA . URI1) (#f UA . URI1))) ((UA . P) (*NAMESPACES* ((*DEFAULT* #f . #f) (*DEFAULT* UA . URI1) (A UA . URI1) (#f UA . URI1))) (BR (*NAMESPACES* ((*DEFAULT* #f . #f) (*DEFAULT* UA . URI1) (A UA . URI1) (#f UA . URI1)))))))
Parsing: <DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>
(((UA . DIV) (@ (B "B") ((UA . B) "A") ((URI2 . B) "xx")) (*NAMESPACES* ((*DEFAULT* UA . URI1) (A UA . URI1) (C URI2 . URI2) (#f UA . URI1))) ((UA . P) (*NAMESPACES* ((*DEFAULT* #f . #f) (*DEFAULT* UA . URI1) (A UA . URI1) (C URI2 . URI2) (#f UA . URI1))) (BR (*NAMESPACES* ((*DEFAULT* #f . #f) (*DEFAULT* UA . URI1) (A UA . URI1) (C URI2 . URI2) (#f UA . URI1)))))))
input: " <BR/>"
Result: (*TOP* (BR))
input: "<BR></BR>"
Result: (*TOP* (BR))
input: " <BR CLEAR='ALL'
CLASS='Class1'/>"
Result: (*TOP* (BR (@ (CLEAR "ALL") (CLASS "Class1"))))
input: " <A HREF='URL'> link <I>itlink </I> &amp;</A>"
Result: (*TOP* (A (@ (HREF "URL"))
" link "
(I "itlink ")
" &"))
input: " <A HREF='URL' xml:space='preserve'> link <I>itlink </I> &amp;</A>"
Result: (*TOP* (A (@ (xml:space "preserve") (HREF "URL"))
" link "
(I "itlink ")
" &"))
input: " <A HREF='URL' xml:space='preserve'> link <I xml:space='default'>itlink </I> &amp;</A>"
Result: (*TOP* (A (@ (xml:space "preserve") (HREF "URL"))
" link "
(I (@ (xml:space "default")) "itlink ")
" &"))
input: " <P><?pi1 p1 content ?>?<?pi2 pi2? content? ??></P>"
Result: (*TOP* (P (*PI* pi1 "p1 content ")
"?"
(*PI* pi2 "pi2? content? ?")))
input: " <P>some text <![CDATA[<]]>1
"<B>strong</B>"\r</P>"
Result: (*TOP* (P "some text <1
\"" (B "strong") "\"
"))
input: " <P><![CDATA[<BR>
<![CDATA[<BR>]]>]]></P>"
Result: (*TOP* (P "<BR>
<![CDATA[<BR>]]>"))
input: "<T1><T2>it's\r
and that
</T2>\r
\r
</T1>"
Result: (*TOP* (T1 (T2 "it's
and that
") "
"))
input: "<T1><T2>it's\rand that
</T2>\r
\r
</T1>"
Result: (*TOP* (T1 (T2 "it's
and that
") "
"))
input: "<!DOCTYPE T SYSTEM 'system1' ><!-- comment -->
<T/>"
Result: (*TOP* (T))
input: "<?xml version='1.0'?>
<WEIGHT unit=\"pound\">
<NET certified='certified'> 67 </NET>
<GROSS> 95 </GROSS>
</WEIGHT>"
Result: (*TOP* (*PI* xml "version='1.0'")
(WEIGHT
(@ (unit "pound"))
"
"
(NET (@ (certified "certified")) " 67 ")
"
"
(GROSS " 95 ")
"
"))
input: "<DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>"
Result: (*TOP* (URI1:DIV (@ (URI1:B "A") (B "B")) (URI1:P (BR))))
input: "<DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>"
Result: (*TOP* (@ (*NAMESPACES* (UA "URI1")))
(UA:DIV (@ (UA:B "A") (B "B")) (UA:P (BR))))
input: "<x xmlns:edi='http://ecommerce.org/schema'><!-- the 'taxClass' attribute's ns http://ecommerce.org/schema --><lineItem edi:taxClass='exempt'>Baby food</lineItem>
</x>"
Result: (*TOP* (x (lineItem
(@ (http://ecommerce.org/schema:taxClass "exempt"))
"Baby food")
"
"))
input: "<x xmlns:edi='http://ecommerce.org/schema'><!-- the 'taxClass' attribute's ns http://ecommerce.org/schema --><lineItem edi:taxClass='exempt'>Baby food</lineItem></x>"
Result: (*TOP* (@ (*NAMESPACES*
(EDI "http://ecommerce.org/schema")))
(x (lineItem
(@ (EDI:taxClass "exempt"))
"Baby food")))
input: "<bk:book xmlns:bk='urn:loc.gov:books' xmlns:isbn='urn:ISBN:0-395-36341-6'><bk:title>Cheaper by the Dozen</bk:title><isbn:number>1568491379</isbn:number></bk:book>"
Result: (*TOP* (urn:loc.gov:books:book
(urn:loc.gov:books:title "Cheaper by the Dozen")
(urn:ISBN:0-395-36341-6:number "1568491379")))
input: "<!-- initially, the default namespace is 'books' --><book xmlns='urn:loc.gov:books' xmlns:isbn='urn:ISBN:0-395-36341-6'><title>Cheaper by the Dozen</title><isbn:number>1568491379</isbn:number><notes><!-- make HTML the default namespace for some commentary --><p xmlns='urn:w3-org-ns:HTML'>This is a <i>funny</i> book!</p></notes></book>"
Result: (*TOP* (urn:loc.gov:books:book
(urn:loc.gov:books:title "Cheaper by the Dozen")
(urn:ISBN:0-395-36341-6:number "1568491379")
(urn:loc.gov:books:notes
(urn:w3-org-ns:HTML:p
"This is a "
(urn:w3-org-ns:HTML:i "funny")
" book!"))))
input: "<Beers><!-- the default namespace is now that of HTML --><table xmlns='http://www.w3.org/TR/REC-html40'><th><td>Name</td><td>Origin</td><td>Description</td></th><tr><!-- no default namespace inside table cells --><td><brandName xmlns=\"\">Huntsman</brandName></td><td><origin xmlns=''>Bath, UK</origin></td><td><details xmlns=''><class>Bitter</class><hop>Fuggles</hop><pro>Wonderful hop, light alcohol, good summer beer</pro><con>Fragile; excessive variance pub to pub</con></details></td></tr></table></Beers>"
Result: (*TOP* (@ (*NAMESPACES*
(html "http://www.w3.org/TR/REC-html40")))
(Beers (html:table
(html:th
(html:td "Name")
(html:td "Origin")
(html:td "Description"))
(html:tr
(html:td (brandName "Huntsman"))
(html:td (origin "Bath, UK"))
(html:td
(details
(class "Bitter")
(hop "Fuggles")
(pro "Wonderful hop, light alcohol, good summer beer")
(con "Fragile; excessive variance pub to pub")))))))
input: "<!-- 1 --><RESERVATION xmlns:HTML='http://www.w3.org/TR/REC-html40'><!-- 2 --><NAME HTML:CLASS=\"largeSansSerif\">Layman, A</NAME><!-- 3 --><SEAT CLASS='Y' HTML:CLASS=\"largeMonotype\">33B</SEAT><!-- 4 --><HTML:A HREF='/cgi-bin/ResStatus'>Check Status</HTML:A><!-- 5 --><DEPARTURE>1997-05-24T07:55:00+1</DEPARTURE></RESERVATION>"
Result: (*TOP* (@ (*NAMESPACES*
(HTML "http://www.w3.org/TR/REC-html40")))
(RESERVATION
(NAME (@ (HTML:CLASS "largeSansSerif"))
"Layman, A")
(SEAT (@ (HTML:CLASS "largeMonotype") (CLASS "Y"))
"33B")
(HTML:A
(@ (HREF "/cgi-bin/ResStatus"))
"Check Status")
(DEPARTURE "1997-05-24T07:55:00+1")))
input: "<?xml version='1.0' encoding='utf-8' standalone='yes'?><!-- this can be decoded as US-ASCII or iso-8859-1 as well, since it contains no characters outside the US-ASCII repertoire --><rdf:RDF xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#' xmlns:rdfs='http://www.w3.org/2000/01/rdf-schema#' xmlns='http://www.w3.org/2001/02/infoset#'><rdfs:Class ID='Boolean'/><Boolean ID='Boolean.true'/><Boolean ID='Boolean.false'/><!--Info item classes--><rdfs:Class ID='InfoItem'/><rdfs:Class ID='Document' rdfs:subClassOf='#InfoItem'/><rdfs:Class ID='Element' rdfs:subClassOf='#InfoItem'/><rdfs:Class ID='Attribute' rdfs:subClassOf='#InfoItem'/><rdfs:Class ID='InfoItemSet'
rdfs:subClassOf='http://www.w3.org/1999/02/22-rdf-syntax-ns#Bag'/><rdfs:Class ID='AttributeSet' rdfs:subClassOf='#InfoItemSet'/><!--Info item properties--><rdfs:Property ID='allDeclarationsProcessed'><rdfs:domain resource='#Document'/><rdfs:range resource='#Boolean'/></rdfs:Property><rdfs:Property ID='attributes'><rdfs:domain resource='#Element'/><rdfs:range resource='#AttributeSet'/></rdfs:Property></rdf:RDF>"
Result: (*TOP* (@ (*NAMESPACES*
(RDF "http://www.w3.org/1999/02/22-rdf-syntax-ns#")
(RDFS "http://www.w3.org/2000/01/rdf-schema#")
(ISET "http://www.w3.org/2001/02/infoset#")))
(*PI* xml
"version='1.0' encoding='utf-8' standalone='yes'")
(RDF:RDF
(RDFS:Class (@ (ID "Boolean")))
(ISET:Boolean (@ (ID "Boolean.true")))
(ISET:Boolean (@ (ID "Boolean.false")))
(RDFS:Class (@ (ID "InfoItem")))
(RDFS:Class
(@ (RDFS:subClassOf "#InfoItem") (ID "Document")))
(RDFS:Class
(@ (RDFS:subClassOf "#InfoItem") (ID "Element")))
(RDFS:Class
(@ (RDFS:subClassOf "#InfoItem")
(ID "Attribute")))
(RDFS:Class
(@ (RDFS:subClassOf
"http://www.w3.org/1999/02/22-rdf-syntax-ns#Bag")
(ID "InfoItemSet")))
(RDFS:Class
(@ (RDFS:subClassOf "#InfoItemSet")
(ID "AttributeSet")))
(RDFS:Property
(@ (ID "allDeclarationsProcessed"))
(RDFS:domain (@ (resource "#Document")))
(RDFS:range (@ (resource "#Boolean"))))
(RDFS:Property
(@ (ID "attributes"))
(RDFS:domain (@ (resource "#Element")))
(RDFS:range (@ (resource "#AttributeSet"))))))
input: "<?xml version='1.0'?><rdf:RDF
xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#'
xmlns='http://my.netscape.com/rdf/simple/0.9/'>
<channel>
<title>Daemon News Mall</title>
<link>http://mall.daemonnews.org/</link>
<description>Central source for all your BSD needs</description>
</channel>
<item>
<title>Daemon News Jan/Feb Issue NOW Available! Subscribe $24.95</title>
<link>http://mall.daemonnews.org/?page=shop/flypage&product_id=880</link>
</item>
<item>
<title>The Design and Implementation of the 4.4BSD Operating System $54.95</title>
<link>http://mall.daemonnews.org/?page=shop/flypage&product_id=912&category_id=1761</link>
</item>
</rdf:RDF>"
Result: (*TOP* (@ (*NAMESPACES*
(RDF "http://www.w3.org/1999/02/22-rdf-syntax-ns#")
(RSS "http://my.netscape.com/rdf/simple/0.9/")
(ISET "http://www.w3.org/2001/02/infoset#")))
(*PI* xml "version='1.0'")
(RDF:RDF
"
"
(RSS:channel
"
"
(RSS:title "Daemon News Mall")
"
"
(RSS:link "http://mall.daemonnews.org/")
"
"
(RSS:description
"Central source for all your BSD needs")
"
")
"
"
(RSS:item
"
"
(RSS:title
"Daemon News Jan/Feb Issue NOW Available! Subscribe $24.95")
"
"
(RSS:link
"http://mall.daemonnews.org/?page=shop/flypage&product_id=880")
"
")
"
"
(RSS:item
"
"
(RSS:title
"The Design and Implementation of the 4.4BSD Operating System $54.95")
"
"
(RSS:link
"http://mall.daemonnews.org/?page=shop/flypage&product_id=912&category_id=1761")
"
")
"
"))
input: "<Forecasts TStamp='958082142'><TAF TStamp='958066200' LatLon='36.583, -121.850' BId='724915' SName='KMRY, MONTEREY PENINSULA'><VALID TRange='958068000, 958154400'>111730Z 111818</VALID><PERIOD TRange='958068000, 958078800'><PREVAILING>31010KT P6SM FEW030</PREVAILING></PERIOD><PERIOD TRange='958078800, 958104000' Title='FM2100'><PREVAILING>29016KT P6SM FEW040</PREVAILING></PERIOD><PERIOD TRange='958104000, 958154400' Title='FM0400'><PREVAILING>29010KT P6SM SCT200</PREVAILING><VAR Title='BECMG 0708' TRange='958114800, 958118400'>VRB05KT</VAR></PERIOD></TAF></Forecasts>"
Result: (*TOP* (Forecasts
(@ (TStamp "958082142"))
(TAF (@ (TStamp "958066200")
(SName "KMRY, MONTEREY PENINSULA")
(LatLon "36.583, -121.850")
(BId "724915"))
(VALID (@ (TRange "958068000, 958154400"))
"111730Z 111818")
(PERIOD
(@ (TRange "958068000, 958078800"))
(PREVAILING "31010KT P6SM FEW030"))
(PERIOD
(@ (Title "FM2100")
(TRange "958078800, 958104000"))
(PREVAILING "29016KT P6SM FEW040"))
(PERIOD
(@ (Title "FM0400")
(TRange "958104000, 958154400"))
(PREVAILING "29010KT P6SM SCT200")
(VAR (@ (Title "BECMG 0708")
(TRange "958114800, 958118400"))
"VRB05KT")))))
All tests passed
Running test suite: main-suite ----------------------------------------
Running test suite: <test-ssax>-suite ---------------------------------
Running test case: test-ssax
;;; WARNING (declared content type #<input: string 251d820> (NMTOKEN not verified yet))
;;; WARNING (Skipping PI: #<input: string 852680> (xml
))
;;; WARNING (Skipping PI: #<input: string 8524e0> (PI
))
;;; WARNING (Skipping PI: #<input: string 8524e0> (PI1
))
Warning: DOCTYPE DECL T system1 found and skipped
Warning: Internal DTD subset is not currently handled
Warning: DOCTYPE DECL T system1 found and skipped
;;; WARNING (Skipping PI: #<input: string 8521a0> (pi
))
;;; WARNING (DOCTYPE DECL #<input: string 2168750> (T system1 found and skipped))
1 run, 0 failed
Some deprecated features have been used. Set the environment
variable GUILE_WARN_DEPRECATED to "detailed" and rerun the
program to get more information. Set it to "no" to suppress
this message.
PASS: sxml.ssax.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-xml-transform>-suite ------------------------
Running test case: test-all
1 run, 0 failed
PASS: sxml.transform.scm
WARNING: (guile-user): imported module (sxml xpath) overrides core binding `filter'
Running test suite: main-suite ----------------------------------------
Running test suite: <test-xml-xpath>-suite ----------------------------
Running test case: test-all
1 run, 0 failed
PASS: sxml.xpath.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-color>-suite --------------------------------
Running test case: test-accepted-attributes
Running test case: test-clear-reset-equivalence
Running test case: test-underline-underscore-equivalence
Running test suite: <test-colorize-string>-suite ----------------------
Running test case: test-ends-in-reset
Running test case: test-skips-bad-attrs
5 run, 0 failed
PASS: term.ansi-color.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-texinfo>-suite ------------------------------
Running test case: test-read-verbatim-body
Running test case: test-read-arguments
Running test case: test-complete-start-command
Running test case: test-read-char-data
Running test case: test-texinfo->stexinfo
5 run, 0 failed
PASS: texinfo.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-texinfo-docbook>-suite ----------------------
Running test case: test-flatten
1 run, 0 failed
PASS: texinfo.docbook.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-texinfo-serialize>-suite --------------------
Running test case: test-serialize
1 run, 0 failed
PASS: texinfo.serialize.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-parse-lalr>-suite ---------------------------
Running test case: test-calc-parser
1 run, 0 failed
PASS: text.parse-lalr.scm
====================
1 of 25 tests failed
====================
make[2]: *** [check-TESTS] Error 1
make[2]: Leaving directory `/home/dsmith/src/guile-lib/unit-tests'
make[1]: *** [check-am] Error 2
make[1]: Leaving directory `/home/dsmith/src/guile-lib/unit-tests'
make: *** [check-recursive] Error 1
^ permalink raw reply [flat|nested] 9+ messages in thread
* Re: Error in make check building guile-lib for guile 2.0. trap-enable unbound
2011-03-04 16:59 Error in make check building guile-lib for guile 2.0. trap-enable unbound dsmich
@ 2011-03-04 21:33 ` Neil Jerram
2011-03-04 21:56 ` dsmich
2011-03-05 13:30 ` Ludovic Courtès
0 siblings, 2 replies; 9+ messages in thread
From: Neil Jerram @ 2011-03-04 21:33 UTC (permalink / raw)
To: dsmich; +Cc: guile-devel
<dsmich@roadrunner.com> writes:
> Howdy Guilers,
>
> As some of you know, I've been slowing bringing scwm back up to speed.
> I've gotten quite far but the next major hurdle is gtk+, so I am
> attempting to build and install that. The first thing needed is
> guile-lib, which builds fine for me from git but has the following
> error output.
I had a feeling that a lot (or even maybe all) of guile-lib got merged
into the main Guile distribution. So are you sure you still need
separate guile-lib at all?
> PASS: search.basic.scm
> Backtrace:
> In module/ice-9/boot-9.scm:
> 170: 11 [catch #t #<catch-closure 10ea2c0> ...]
> In unknown file:
> ?: 10 [catch-closure]
> In module/ice-9/boot-9.scm:
> 62: 9 [call-with-prompt prompt0 ...]
> In module/ice-9/eval.scm:
> 389: 8 [eval # #]
> In module/ice-9/boot-9.scm:
> 1917: 7 [save-module-excursion #<procedure 10f5840 at module/ice-9/boot-9.scm:3339:3 ()>]
> 3346: 6 [#<procedure 10f5840 at module/ice-9/boot-9.scm:3339:3 ()>]
> 1189: 5 [%start-stack load-stack ...]
> 1194: 4 [#<procedure 1105990 ()>]
> In unknown file:
> ?: 3 [primitive-load "/home/dsmith/src/guile-lib/unit-tests/./statprof.scm"]
> In module/ice-9/eval.scm:
> 349: 2 [eval #<memoized (trap-enable (quote traps))> ()]
> 356: 1 [eval #<memoized trap-enable> ()]
> In unknown file:
> ?: 0 [memoize-variable-access! #<memoized trap-enable> #<directory # fea090>]
There's certainly a statprof.scm in core Guile, which doesn't use
trap-enable.
Regards,
Neil
^ permalink raw reply [flat|nested] 9+ messages in thread
* Re: Error in make check building guile-lib for guile 2.0. trap-enable unbound
2011-03-04 21:33 ` Neil Jerram
@ 2011-03-04 21:56 ` dsmich
2011-03-05 13:30 ` Ludovic Courtès
1 sibling, 0 replies; 9+ messages in thread
From: dsmich @ 2011-03-04 21:56 UTC (permalink / raw)
To: Neil Jerram; +Cc: guile-devel
---- Neil Jerram <neil@ossau.uklinux.net> wrote:
> <dsmich@roadrunner.com> writes:
>
> > Howdy Guilers,
> >
> > As some of you know, I've been slowing bringing scwm back up to speed.
> > I've gotten quite far but the next major hurdle is gtk+, so I am
> > attempting to build and install that. The first thing needed is
> > guile-lib, which builds fine for me from git but has the following
> > error output.
>
> I had a feeling that a lot (or even maybe all) of guile-lib got merged
> into the main Guile distribution. So are you sure you still need
> separate guile-lib at all?
One of g-wrap or guile-gnome (or both?) use the test framework from guile-lib for "make check".
-Dale
^ permalink raw reply [flat|nested] 9+ messages in thread
* Re: Error in make check building guile-lib for guile 2.0. trap-enable unbound
2011-03-04 21:33 ` Neil Jerram
2011-03-04 21:56 ` dsmich
@ 2011-03-05 13:30 ` Ludovic Courtès
2011-03-06 10:51 ` Neil Jerram
1 sibling, 1 reply; 9+ messages in thread
From: Ludovic Courtès @ 2011-03-05 13:30 UTC (permalink / raw)
To: guile-devel
Hi Neil,
Neil Jerram <neil@ossau.uklinux.net> writes:
> I had a feeling that a lot (or even maybe all) of guile-lib got merged
> into the main Guile distribution. So are you sure you still need
> separate guile-lib at all?
Only (sxml ...), (texinfo ...), and (statprof) got merged, IIRC. The
other modules are still unique to Guile-Lib:
http://www.nongnu.org/guile-lib/doc/ref/
I changed Guile-Lib in Git to not install those modules that come with
2.0 when using 2.0.
Thanks,
Ludo’.
^ permalink raw reply [flat|nested] 9+ messages in thread
* Re: Error in make check building guile-lib for guile 2.0. trap-enable unbound
2011-03-05 13:30 ` Ludovic Courtès
@ 2011-03-06 10:51 ` Neil Jerram
2011-03-07 18:57 ` dsmich
0 siblings, 1 reply; 9+ messages in thread
From: Neil Jerram @ 2011-03-06 10:51 UTC (permalink / raw)
To: Ludovic Courtès; +Cc: guile-devel
ludo@gnu.org (Ludovic Courtès) writes:
> Hi Neil,
>
> Neil Jerram <neil@ossau.uklinux.net> writes:
>
>> I had a feeling that a lot (or even maybe all) of guile-lib got merged
>> into the main Guile distribution. So are you sure you still need
>> separate guile-lib at all?
>
> Only (sxml ...), (texinfo ...), and (statprof) got merged, IIRC. The
> other modules are still unique to Guile-Lib:
>
> http://www.nongnu.org/guile-lib/doc/ref/
Ah, thanks.
> I changed Guile-Lib in Git to not install those modules that come with
> 2.0 when using 2.0.
Sounds good. That may do the trick, if Dale's only problem was picking
up the wrong (old) version of statprof.scm.
Neil
^ permalink raw reply [flat|nested] 9+ messages in thread
* Re: Error in make check building guile-lib for guile 2.0. trap-enable unbound
2011-03-06 10:51 ` Neil Jerram
@ 2011-03-07 18:57 ` dsmich
2011-03-07 21:14 ` Ludovic Courtès
0 siblings, 1 reply; 9+ messages in thread
From: dsmich @ 2011-03-07 18:57 UTC (permalink / raw)
To: Ludovic Courtès, Neil Jerram; +Cc: guile-devel
[-- Attachment #1: Type: text/plain, Size: 3310 bytes --]
---- Neil Jerram <neil@ossau.uklinux.net> wrote:
> ludo@gnu.org (Ludovic Courtès) writes:
>
> > Hi Neil,
> >
> > Neil Jerram <neil@ossau.uklinux.net> writes:
> >
> >> I had a feeling that a lot (or even maybe all) of guile-lib got merged
> >> into the main Guile distribution. So are you sure you still need
> >> separate guile-lib at all?
> >
> > Only (sxml ...), (texinfo ...), and (statprof) got merged, IIRC. The
> > other modules are still unique to Guile-Lib:
> >
> > http://www.nongnu.org/guile-lib/doc/ref/
>
> Ah, thanks.
>
> > I changed Guile-Lib in Git to not install those modules that come with
> > 2.0 when using 2.0.
>
> Sounds good. That may do the trick, if Dale's only problem was picking
> up the wrong (old) version of statprof.scm.
Well, I'm seeing that and other errors too.
With the latest guile-lib from git, on a Debian Squeeze system, I get a failure building the info file:
make[1]: Entering directory `/home/dsmith/src/guile-lib/doc'
guile --debug --use-srfi=13 -l ./guile-library.scm \
-c '(for-each (lambda (m) (format #t "~a.scm\n" (string-join (map symbol->string m) "/"))) (map car *modules*))' \
> guile-libraryscmfiles
../dev-environ ./make-texinfo.scm ./guile-library.scm >guile-library.texi
;;; WARNING (Unknown stexi command, not rendering (expr ...))
;;; WARNING (Unknown stexi command, not rendering (expr ...))
;;; WARNING (Unknown stexi command, not rendering (expr ...))
;;; WARNING (Unknown stexi command, not rendering (r-exp ...))
;;; WARNING (Unknown stexi command, not rendering (expr ...))
restore=: && backupdir=".am$$" && \
am__cwd=`pwd` && CDPATH="${ZSH_VERSION+.}:" && cd . && \
rm -rf $backupdir && mkdir $backupdir && \
if (/bin/sh /home/dsmith/src/guile-lib/missing --run makeinfo --version) >/dev/null 2>&1; then \
for f in guile-library.info guile-library.info-[0-9] guile-library.info-[0-9][0-9] guile-library.i[0-9] guile-library.i[0-9][0-9]; do \
if test -f $f; then mv $f $backupdir; restore=mv; else :; fi; \
done; \
else :; fi && \
cd "$am__cwd"; \
if /bin/sh /home/dsmith/src/guile-lib/missing --run makeinfo -I . \
-o guile-library.info guile-library.texi; \
then \
rc=0; \
CDPATH="${ZSH_VERSION+.}:" && cd .; \
else \
rc=$?; \
CDPATH="${ZSH_VERSION+.}:" && cd . && \
$restore $backupdir/* `echo "./guile-library.info" | sed 's|[^/]*$||'`; \
fi; \
rm -rf $backupdir; exit $rc
/home/dsmith/src/guile-lib/doc//guile-library.texi:2204: Cross reference to nonexistent node `SRFI-1 Fold and Map' (perhaps incorrect sectioning?).
makeinfo: Removing output file `guile-library.info' due to errors; use --force to preserve.
Forging ahead with make -k only has that one error.
Then make check -k has two failures and three warnings:
FAIL: api.scm
FAIL: statprof.scm
WARNING: (guile-user): `run' imported from both (unit-test) and (os process)
WARNING: (guile-user): `run' imported from both (unit-test) and (os process)
WARNING: (guile-user): imported module (sxml xpath) overrides core binding `filter'
The full make check -k output is attached.
-Dale
[-- Attachment #2: make.out --]
[-- Type: application/octet-stream, Size: 42089 bytes --]
Making check in src
make[1]: Entering directory `/home/dsmith/src/guile-lib/src'
make[1]: Nothing to be done for `check'.
make[1]: Leaving directory `/home/dsmith/src/guile-lib/src'
Making check in doc
make[1]: Entering directory `/home/dsmith/src/guile-lib/doc'
restore=: && backupdir=".am$$" && \
am__cwd=`pwd` && CDPATH="${ZSH_VERSION+.}:" && cd . && \
rm -rf $backupdir && mkdir $backupdir && \
if (/bin/sh /home/dsmith/src/guile-lib/missing --run makeinfo --version) >/dev/null 2>&1; then \
for f in guile-library.info guile-library.info-[0-9] guile-library.info-[0-9][0-9] guile-library.i[0-9] guile-library.i[0-9][0-9]; do \
if test -f $f; then mv $f $backupdir; restore=mv; else :; fi; \
done; \
else :; fi && \
cd "$am__cwd"; \
if /bin/sh /home/dsmith/src/guile-lib/missing --run makeinfo -I . \
-o guile-library.info guile-library.texi; \
then \
rc=0; \
CDPATH="${ZSH_VERSION+.}:" && cd .; \
else \
rc=$?; \
CDPATH="${ZSH_VERSION+.}:" && cd . && \
$restore $backupdir/* `echo "./guile-library.info" | sed 's|[^/]*$||'`; \
fi; \
rm -rf $backupdir; exit $rc
/home/dsmith/src/guile-lib/doc//guile-library.texi:2204: Cross reference to nonexistent node `SRFI-1 Fold and Map' (perhaps incorrect sectioning?).
makeinfo: Removing output file `guile-library.info' due to errors; use --force to preserve.
make[1]: *** [guile-library.info] Error 1
make[1]: Target `check' not remade because of errors.
make[1]: Leaving directory `/home/dsmith/src/guile-lib/doc'
Making check in examples
make[1]: Entering directory `/home/dsmith/src/guile-lib/examples'
make[1]: Nothing to be done for `check'.
make[1]: Leaving directory `/home/dsmith/src/guile-lib/examples'
Making check in unit-tests
make[1]: Entering directory `/home/dsmith/src/guile-lib/unit-tests'
make check-TESTS
make[2]: Entering directory `/home/dsmith/src/guile-lib/unit-tests'
Running test suite: main-suite ----------------------------------------
Running test suite: <test-api>-suite ----------------------------------
Running test case: test-api
test-api: exception in test: (misc-error #f "~A ~S" ("Public API has been removed" (fold)) #f)
1 run, 1 failed
FAIL: api.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-async-queue>-suite --------------------------
Running test case: test-consume
1 run, 0 failed
PASS: container.async-queue.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-tsort>-suite --------------------------------
Running test case: test-tsortq
1 run, 0 failed
PASS: graph.topological-sort.scm
*** HtmlPrag Tests ***
(html->shtml "<a>>")
==> (*TOP* (a ">"))
;; Passed.
(html->shtml "<a<>")
==> (*TOP* (a "<" ">"))
;; Passed.
(html->shtml "<>")
==> (*TOP* "<" ">")
;; Passed.
(html->shtml "< >")
==> (*TOP* "<" ">")
;; Passed.
(html->shtml "< a>")
==> (*TOP* (a))
;; Passed.
(html->shtml "< a / >")
==> (*TOP* (a))
;; Passed.
(html->shtml "<a<")
==> (*TOP* (a "<"))
;; Passed.
(html->shtml "<a<b")
==> (*TOP* (a (b)))
;; Passed.
(html->shtml "><a>")
==> (*TOP* ">" (a))
;; Passed.
(html->shtml "</>")
==> (*TOP*)
;; Passed.
(html->shtml "<\">")
==> (*TOP* "<" "\"" ">")
;; Passed.
(html->shtml "<a>xxx<plaintext>aaa
bbb
c<c<c")
==> (*TOP* (a "xxx" (plaintext "aaa
" "bbb
" "c<c<c")))
;; Passed.
(html->shtml "aaa<!-- xxx -->bbb")
==> (*TOP* "aaa" (*COMMENT* " xxx ") "bbb")
;; Passed.
(html->shtml "aaa<! -- xxx -->bbb")
==> (*TOP* "aaa" (*COMMENT* " xxx ") "bbb")
;; Passed.
(html->shtml "aaa<!-- xxx --->bbb")
==> (*TOP* "aaa" (*COMMENT* " xxx -") "bbb")
;; Passed.
(html->shtml "aaa<!-- xxx ---->bbb")
==> (*TOP* "aaa" (*COMMENT* " xxx --") "bbb")
;; Passed.
(html->shtml "aaa<!-- xxx -y-->bbb")
==> (*TOP* "aaa" (*COMMENT* " xxx -y") "bbb")
;; Passed.
(html->shtml "aaa<!----->bbb")
==> (*TOP* "aaa" (*COMMENT* "-") "bbb")
;; Passed.
(html->shtml "aaa<!---->bbb")
==> (*TOP* "aaa" (*COMMENT* "") "bbb")
;; Passed.
(html->shtml "aaa<!--->bbb")
==> (*TOP* "aaa" (*COMMENT* "->bbb"))
;; Passed.
(html->shtml "<hr>")
==> (*TOP* (hr))
;; Passed.
(html->shtml "<hr/>")
==> (*TOP* (hr))
;; Passed.
(html->shtml "<hr />")
==> (*TOP* (hr))
;; Passed.
(html->shtml "<hr noshade>")
==> (*TOP* (hr (@ (noshade))))
;; Passed.
(html->shtml "<hr noshade/>")
==> (*TOP* (hr (@ (noshade))))
;; Passed.
(html->shtml "<hr noshade />")
==> (*TOP* (hr (@ (noshade))))
;; Passed.
(html->shtml "<hr noshade / >")
==> (*TOP* (hr (@ (noshade))))
;; Passed.
(html->shtml "<hr noshade=1 />")
==> (*TOP* (hr (@ (noshade "1"))))
;; Passed.
(html->shtml "<hr noshade=1/>")
==> (*TOP* (hr (@ (noshade "1"))))
;; Passed.
(html->shtml "<q>aaa<p/>bbb</q>ccc</p>ddd")
==> (*TOP* (q "aaa" (p) "bbb") "ccc" "ddd")
;; Passed.
(html->shtml "<")
==> (*TOP* "<")
;; Passed.
(html->shtml ">")
==> (*TOP* ">")
;; Passed.
(html->shtml "Gilbert & Sullivan")
==> (*TOP* "Gilbert & Sullivan")
;; Passed.
(html->shtml "Gilbert & Sullivan")
==> (*TOP* "Gilbert & Sullivan")
;; Passed.
(html->shtml "Gilbert & Sullivan")
==> (*TOP* "Gilbert & Sullivan")
;; Passed.
(html->shtml "Copyright © Foo")
==> (*TOP* "Copyright " (*ENTITY* "additional" "copy") " Foo")
;; Passed.
(html->shtml "aaa©bbb")
==> (*TOP* "aaa" (*ENTITY* "additional" "copy") "bbb")
;; Passed.
(html->shtml "aaa©")
==> (*TOP* "aaa" (*ENTITY* "additional" "copy"))
;; Passed.
(html->shtml "*")
==> (*TOP* "*")
;; Passed.
(html->shtml "*")
==> (*TOP* "*")
;; Passed.
(html->shtml "*x")
==> (*TOP* "*x")
;; Passed.
(html->shtml "—")
==> (*TOP* "\x97")
;; Passed.
(html->shtml "Ϩ")
==> (*TOP* (*ENTITY* "additional-char" "1000"))
;; Passed.
(html->shtml "B")
==> (*TOP* "B")
;; Passed.
(html->shtml "¢")
==> (*TOP* "¢")
;; Passed.
(html->shtml "ÿ")
==> (*TOP* "ÿ")
;; Passed.
(html->shtml "Ā")
==> (*TOP* (*ENTITY* "additional-char" "256"))
;; Passed.
(html->shtml "B")
==> (*TOP* "B")
;; Passed.
(html->shtml "&42;")
==> (*TOP* "&42;")
;; Passed.
(html->shtml "aaa©bbb&ccc<ddd&>eee*fffϨgggZhhh")
==> (*TOP* "aaa" (*ENTITY* "additional" "copy") "bbb&ccc<ddd&>eee*fff" (*ENTITY* "additional-char" "1000") "gggZhhh")
;; Passed.
(html->shtml "<IMG src=\"http://pics.ebay.com/aw/pics/listings/ebayLogo_38x16.gif\" border=0 width=\"38\" height=\"16\" HSPACE=5 VSPACE=0\">2</FONT>")
==> (*TOP* (img (@ (src "http://pics.ebay.com/aw/pics/listings/ebayLogo_38x16.gif") (border "0") (width "38") (height "16") (hspace "5") (vspace "0"))) "2")
;; Passed.
(html->shtml "<aaa bbb=ccc\"ddd>eee")
==> (*TOP* (aaa (@ (bbb "ccc") (ddd)) "eee"))
;; Passed.
(html->shtml "<aaa bbb=ccc \"ddd>eee")
==> (*TOP* (aaa (@ (bbb "ccc") (ddd)) "eee"))
;; Passed.
(html->shtml "<HTML><Head><Title>My Title</Title></Head><Body BGColor=\"white\" Foo=42>This is a <B><I>bold-italic</B></I> test of </Erk>broken HTML.<br>Yes it is.</Body></HTML>")
==> (*TOP* (html (head (title "My Title")) (body (@ (bgcolor "white") (foo "42")) "This is a " (b (i "bold-italic")) " test of " "broken HTML." (br) "Yes it is.")))
;; Passed.
(html->shtml "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">")
==> (*TOP* (*DECL* DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"))
;; Passed.
(html->shtml "<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"en\">")
==> (*TOP* (html (@ (xmlns "http://www.w3.org/1999/xhtml") (lang "en") (lang "en"))))
;; Passed.
(html->shtml "<html:html xmlns:html=\"http://www.w3.org/TR/REC-html40\"><html:head><html:title>Frobnostication</html:title></html:head><html:body><html:p>Moved to <html:a href=\"http://frob.com\">here.</html:a></html:p></html:body></html:html>")
==> (*TOP* (html (@ (xmlns:html "http://www.w3.org/TR/REC-html40")) (head (title "Frobnostication")) (body (p "Moved to " (a (@ (href "http://frob.com")) "here.")))))
;; Passed.
(html->shtml "<RESERVATION xmlns:HTML=\"http://www.w3.org/TR/REC-html40\"><NAME HTML:CLASS=\"largeSansSerif\">Layman, A</NAME><SEAT CLASS=\"Y\" HTML:CLASS=\"largeMonotype\">33B</SEAT><HTML:A HREF=\"/cgi-bin/ResStatus\">Check Status</HTML:A><DEPARTURE>1997-05-24T07:55:00+1</DEPARTURE></RESERVATION>")
==> (*TOP* (reservation (@ (xmlns:HTML "http://www.w3.org/TR/REC-html40")) (name (@ (class "largeSansSerif")) "Layman, A") (seat (@ (class "Y") (class "largeMonotype")) "33B") (a (@ (href "/cgi-bin/ResStatus")) "Check Status") (departure "1997-05-24T07:55:00+1")))
;; Passed.
(html->shtml "<html><head><title></title><title>whatever</title></head><body><a href=\"url\">link</a><p align=center><ul compact style=\"aa\"><p>BLah<!-- comment <comment> --> <i> italic <b> bold <tt> ened </i> still < bold </b></body><P> But not done yet...")
==> (*TOP* (html (head (title) (title "whatever")) (body (a (@ (href "url")) "link") (p (@ (align "center")) (ul (@ (compact) (style "aa")))) (p "BLah" (*COMMENT* " comment <comment> ") " " (i " italic " (b " bold " (tt " ened "))) " still < bold ")) (p " But not done yet...")))
;; Passed.
(html->shtml "<?xml version=\"1.0\" encoding=\"UTF-8\"?>")
==> (*TOP* (*PI* xml "version=\"1.0\" encoding=\"UTF-8\""))
;; Passed.
(html->shtml "<?php php_info(); ?>")
==> (*TOP* (*PI* php "php_info(); "))
;; Passed.
(html->shtml "<?php php_info(); ?")
==> (*TOP* (*PI* php "php_info(); ?"))
;; Passed.
(html->shtml "<?php php_info(); ")
==> (*TOP* (*PI* php "php_info(); "))
;; Passed.
(html->shtml "<?foo bar ? baz > blort ?>")
==> (*TOP* (*PI* foo "bar ? baz > blort "))
;; Passed.
(html->shtml "<?foo b?>x")
==> (*TOP* (*PI* foo "b") "x")
;; Passed.
(html->shtml "<?foo ?>x")
==> (*TOP* (*PI* foo "") "x")
;; Passed.
(html->shtml "<?foo ?>x")
==> (*TOP* (*PI* foo "") "x")
;; Passed.
(html->shtml "<?foo?>x")
==> (*TOP* (*PI* foo "") "x")
;; Passed.
(html->shtml "<?f?>x")
==> (*TOP* (*PI* f "") "x")
;; Passed.
(html->shtml "<??>x")
==> (*TOP* (*PI* #f "") "x")
;; Passed.
(html->shtml "<?>x")
==> (*TOP* (*PI* #f ">x"))
;; Passed.
(html->shtml "<foo bar=\"baz\">blort")
==> (*TOP* (foo (@ (bar "baz")) "blort"))
;; Passed.
(html->shtml "<foo bar='baz'>blort")
==> (*TOP* (foo (@ (bar "baz")) "blort"))
;; Passed.
(html->shtml "<foo bar=\"baz'>blort")
==> (*TOP* (foo (@ (bar "baz'>blort"))))
;; Passed.
(html->shtml "<foo bar='baz\">blort")
==> (*TOP* (foo (@ (bar "baz\">blort"))))
;; Passed.
(html->shtml "<p>A</p><script>line0 <
line1
<line2></script><p>B</p>")
==> (*TOP* (p "A") (script "line0 <
" "line1
" "<line2>") (p "B"))
;; Passed.
(html->shtml "<xmp>a<b>c</XMP>d")
==> (*TOP* (xmp "a<b>c") "d")
;; Passed.
(html->shtml "<XMP>a<b>c</xmp>d")
==> (*TOP* (xmp "a<b>c") "d")
;; Passed.
(html->shtml "<xmp>a<b>c</foo:xmp>d")
==> (*TOP* (xmp "a<b>c") "d")
;; Passed.
(html->shtml "<foo:xmp>a<b>c</xmp>d")
==> (*TOP* (xmp "a<b>c") "d")
;; Passed.
(html->shtml "<foo:xmp>a<b>c</foo:xmp>d")
==> (*TOP* (xmp "a<b>c") "d")
;; Passed.
(html->shtml "<foo:xmp>a<b>c</bar:xmp>d")
==> (*TOP* (xmp "a<b>c") "d")
;; Passed.
(html->shtml "<xmp>a</b>c</xmp>d")
==> (*TOP* (xmp "a</b>c") "d")
;; Passed.
(html->shtml "<xmp>a</b >c</xmp>d")
==> (*TOP* (xmp "a</b >c") "d")
;; Passed.
(html->shtml "<xmp>a</ b>c</xmp>d")
==> (*TOP* (xmp "a</ b>c") "d")
;; Passed.
(html->shtml "<xmp>a</ b >c</xmp>d")
==> (*TOP* (xmp "a</ b >c") "d")
;; Passed.
(html->shtml "<xmp>a</b:x>c</xmp>d")
==> (*TOP* (xmp "a</b:x>c") "d")
;; Passed.
(html->shtml "<xmp>a</b::x>c</xmp>d")
==> (*TOP* (xmp "a</b::x>c") "d")
;; Passed.
(html->shtml "<xmp>a</b:::x>c</xmp>d")
==> (*TOP* (xmp "a</b:::x>c") "d")
;; Passed.
(html->shtml "<xmp>a</b:>c</xmp>d")
==> (*TOP* (xmp "a</b:>c") "d")
;; Passed.
(html->shtml "<xmp>a</b::>c</xmp>d")
==> (*TOP* (xmp "a</b::>c") "d")
;; Passed.
(html->shtml "<xmp>a</xmp:b>c</xmp>d")
==> (*TOP* (xmp "a</xmp:b>c") "d")
;; Passed.
(html->shtml "<P>real1</P>
<XMP>
alpha
<P>fake</P>
bravo
</XMP
<P>real2</P>")
==> (*TOP* (p "real1") "
" (xmp "
" "alpha
" "<P>fake</P>
" "bravo
") (p "real2"))
;; Passed.
(html->shtml "<P>real1</P>
<XMP>
alpha
<P>fake</P>
bravo
</XMP
<P>real2</P>")
==> (*TOP* (p "real1") "
" (xmp "
" "alpha
" "<P>fake</P>
" "bravo
") (p "real2"))
;; Passed.
(html->shtml "<xmp>a</xmp>x")
==> (*TOP* (xmp "a") "x")
;; Passed.
(html->shtml "<xmp>a
</xmp>x")
==> (*TOP* (xmp "a
") "x")
;; Passed.
(html->shtml "<xmp></xmp>x")
==> (*TOP* (xmp) "x")
;; Passed.
(html->shtml "<xmp>a</xmp")
==> (*TOP* (xmp "a"))
;; Passed.
(html->shtml "<xmp>a</xm")
==> (*TOP* (xmp "a</xm"))
;; Passed.
(html->shtml "<xmp>a</x")
==> (*TOP* (xmp "a</x"))
;; Passed.
(html->shtml "<xmp>a</")
==> (*TOP* (xmp "a</"))
;; Passed.
(html->shtml "<xmp>a<")
==> (*TOP* (xmp "a<"))
;; Passed.
(html->shtml "<xmp>a")
==> (*TOP* (xmp "a"))
;; Passed.
(html->shtml "<xmp>")
==> (*TOP* (xmp))
;; Passed.
(html->shtml "<xmp")
==> (*TOP* (xmp))
;; Passed.
(html->shtml "<xmp x=42 ")
==> (*TOP* (xmp (@ (x "42"))))
;; Passed.
(html->shtml "<xmp x= ")
==> (*TOP* (xmp (@ (x))))
;; Passed.
(html->shtml "<xmp x ")
==> (*TOP* (xmp (@ (x))))
;; Passed.
(html->shtml "<xmp x")
==> (*TOP* (xmp (@ (x))))
;; Passed.
(html->shtml "<script>xxx")
==> (*TOP* (script "xxx"))
;; Passed.
(html->shtml "<script/>xxx")
==> (*TOP* (script) "xxx")
;; Passed.
(shtml->html '(p))
==> "<p></p>"
;; Passed.
(shtml->html '(p "CONTENT"))
==> "<p>CONTENT</p>"
;; Passed.
(shtml->html '(br))
==> "<br />"
;; Passed.
(shtml->html '(br "CONTENT"))
==> "<br />"
;; Passed.
(shtml->html '(hr (@ (clear "all"))))
==> "<hr clear=\"all\" />"
;; Passed.
(shtml->html '(hr (@ (noshade))))
==> "<hr noshade />"
;; Passed.
(shtml->html '(hr (@ (noshade #t))))
==> "<hr noshade />"
;; Passed.
(shtml->html '(hr (@ (noshade "noshade"))))
==> "<hr noshade=\"noshade\" />"
;; Passed.
(shtml->html '(hr (@ (aaa "bbbccc"))))
==> "<hr aaa=\"bbbccc\" />"
;; Passed.
(shtml->html '(hr (@ (aaa "bbb'ccc"))))
==> "<hr aaa=\"bbb'ccc\" />"
;; Passed.
(shtml->html '(hr (@ (aaa "bbb\"ccc"))))
==> "<hr aaa='bbb\"ccc' />"
;; Passed.
(shtml->html '(hr (@ (aaa "bbb\"ccc'ddd"))))
==> "<hr aaa=\"bbb"ccc'ddd\" />"
;; Passed.
(shtml->html '(*PI* xml "version=\"1.0\" encoding=\"UTF-8\""))
==> "<?xml version=\"1.0\" encoding=\"UTF-8\"?>"
;; Passed.
(shtml->html '(*DECL* DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"))
==> "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">"
;; Passed.
*** All Tests PASSED *** Passed: 125 Failed: 0
Running test suite: main-suite ----------------------------------------
Running test suite: <test-xml-pragmatic>-suite ------------------------
Running test case: test-all
1 run, 0 failed
PASS: htmlprag.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-logging>-suite ------------------------------
Running test case: test-log-to-one-port
Running test case: test-log-to-default-logger
Running test case: test-log-to-registered-logger
3 run, 0 failed
PASS: logging.logger.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-match-bind>-suite ---------------------------
Running test case: test-s///
Running test case: test-s///g
2 run, 0 failed
PASS: match-bind.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-golden-sect>-suite --------------------------
Running test case: test-gs-function
1 run, 0 failed
PASS: math.minima.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-factorization>-suite ------------------------
Running test case: test-factor-function
Running test suite: <test-prime-lists>-suite --------------------------
Running test case: test-recognizes-first100
Running test case: test-prime>
Running test case: test-prime<
Running test case: test-primes>
Running test case: test-primes<
6 run, 0 failed
PASS: math.primes.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-md5>-suite ----------------------------------
Running test case: test-default-port
Running test case: test-given-port
2 run, 0 failed
PASS: md5.scm
WARNING: (guile-user): `run' imported from both (unit-test) and (os process)
Running test suite: main-suite ----------------------------------------
Running test suite: <test-proc>-suite ---------------------------------
Running test case: test-exit-code
Running test case: test-pipeline
Some deprecated features have been used. Set the environment
variable GUILE_WARN_DEPRECATED to "detailed" and rerun the
program to get more information. Set it to "no" to suppress
this message.
WARNING: (guile-user): `run' imported from both (unit-test) and (os process)
Running test suite: main-suite ----------------------------------------
Running test suite: <test-proc>-suite ---------------------------------
Running test case: test-exit-code
Running test case: test-pipeline
2 run, 0 failed
PASS: os.process.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-dfs>-suite ----------------------------------
Running test case: test-number-search
Running test suite: <test-binary-search>-suite ------------------------
Running test case: test-binary-edges
Running test case: test-binary-results
3 run, 0 failed
PASS: search.basic.scm
Backtrace:
In module/ice-9/boot-9.scm:
170: 11 [catch #t #<catch-closure 1c42c80> ...]
In unknown file:
?: 10 [catch-closure]
In module/ice-9/boot-9.scm:
62: 9 [call-with-prompt prompt0 ...]
In module/ice-9/eval.scm:
389: 8 [eval # #]
In module/ice-9/boot-9.scm:
1917: 7 [save-module-excursion #<procedure 1c4d840 at module/ice-9/boot-9.scm:3339:3 ()>]
3346: 6 [#<procedure 1c4d840 at module/ice-9/boot-9.scm:3339:3 ()>]
1189: 5 [%start-stack load-stack ...]
1194: 4 [#<procedure 1c5c990 ()>]
In unknown file:
?: 3 [primitive-load "/home/dsmith/src/guile-lib/unit-tests/./statprof.scm"]
In module/ice-9/eval.scm:
349: 2 [eval #<memoized (trap-enable (quote traps))> ()]
356: 1 [eval #<memoized trap-enable> ()]
In unknown file:
?: 0 [memoize-variable-access! #<memoized trap-enable> #<directory # 1b40090>]
ERROR: In procedure memoize-variable-access!:
ERROR: Unbound variable: trap-enable
Some deprecated features have been used. Set the environment
variable GUILE_WARN_DEPRECATED to "detailed" and rerun the
program to get more information. Set it to "no" to suppress
this message.
FAIL: statprof.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-scheme-kwargs>-suite ------------------------
Running test case: test-lambda/kwargs
1 run, 0 failed
PASS: scheme.kwargs.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-basic-completion>-suite ---------------------
Running test case: test-all-completions
Running test case: test-too-long-dropped
Running test case: test-complete
Running test suite: <test-ci-completion>-suite ------------------------
Running test case: test-all-completions
Running test case: test-too-long-dropped
Running test case: test-complete
6 run, 0 failed
PASS: string.completion.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-expansion>-suite ----------------------------
Running test case: test-beginning-expansion
Running test case: test-ending-expansion
Running test case: test-middle-expansion
Running test case: test-alternate-tab-size
Running test suite: <test-escape>-suite -------------------------------
Running test case: test-single-escape-char
Running test case: test-multiple-escape-chars
Running test suite: <test-collapse>-suite -----------------------------
Running test case: test-basic-collapse
Running test case: test-choose-other-char
Running test case: test-choose-maximum-repeats
9 run, 0 failed
PASS: string.transform.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-string-wrapper>-suite -----------------------
Running test case: test-util-equivalent-to-class
Running test case: test-fill-equivalent-to-joined-lines
Running test case: test-no-collapse-ws
Running test case: test-no-word-break
4 run, 0 failed
PASS: string.wrap.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-sxml-fold>-suite ----------------------------
Running test case: test-fold
Running test case: test-fold-layout
2 run, 0 failed
PASS: sxml.fold.scm
body: "]]>"
Result: ()
body: "abcd]]>"
Result: ("abcd" "")
body: "abcd]]]>"
Result: ("abcd" "" "]" "")
body: "abcd]]]]>"
Result: ("abcd" "" "]" "" "]" "")
body: "abcd]]]]]>"
Result: ("abcd" "" "]" "" "]" "" "]" "")
body: "abcd]]]a]]>"
Result: ("abcd" "" "]" "" "]]" "" "a" "")
body: "abc%r%ndef%n]]>"
Result: ("abc" " NL" "def" " NL")
body: "%r%n%r%n]]>"
Result: ("" " NL" "" " NL")
body: "%r%n%r%na]]>"
Result: ("" " NL" "" " NL" "a" "")
body: "%r%r%r%na]]>"
Result: ("" " NL" "" " NL" "" " NL" "a" "")
body: "abc&!!!]]>"
Result: ("abc" "&" "" "" "!!!" "")
body: "abc]]>>&]]]>and]]>"
Result: ("abc" "" "]]" "" "" ">" "" "&" "gt" "" "" "&" "amp" "" ";" "" "]" "" "]]" "" "" ">" "and" "")
input: ""
Result: ()
input: "href='http://a%tb%r%n%r%n%nc'"
Result: ((href . "http://a b c"))
input: "href='http://a%tb%r%r%n%rc'"
Result: ((href . "http://a b c"))
input: "_1 ='12&' _2= \"%r%n%t12 3\">"
Result: ((_1 . "12&") (_2 . " 12
3"))
input: "%tAbc='<&>
'%nNext='12&ent;34' />"
Result: ((Abc . "<&>
") (Next . "12<xx>34"))
input: "%tAbc='<&>
'%nNext='12&ent;34' />"
Result: ((Abc . "<&>\r") (Next . "12<xx>34"))
input: "%tAbc='<&>
'%nNext='12&en;34' />"
Result: ((Abc . "<&>
") (Next . "12\"xx'34"))
input: "%tAbc='<&>
'%nNext='12&ent;34' />"
Result: ((Abc . "<&>
") (Next . "12<&T;>34"))
input: "html:href='http://a%tb%r%n%r%n%nc'"
Result: (((html . href) . "http://a b c"))
input: "html:href='ref1' html:src='ref2'"
Result: (((html . href) . "ref1") ((html . src) . "ref2"))
input: "html:href='ref1' xml:html='ref2'"
Result: (((html . href) . "ref1") ((xml . html) . "ref2"))
body: ""
Result: () #<eof>
body: " "
Result: (" ") #<eof>
body: "<BR/>"
Result: () (START . BR)
body: " <BR />"
Result: (" ") (START . BR)
body: " <"
Result: (" ") (ENTITY-REF . lt)
body: " a<"
Result: (" a") (ENTITY-REF . lt)
body: " a <"
Result: (" a ") (ENTITY-REF . lt)
body: " <!-- comment--> a a<BR/>"
Result: (" " " a a") (START . BR)
body: " <!-- comment-->%ra a<BR/>"
Result: (" " "" "
" "a a") (START . BR)
body: " <!-- comment-->%r%na a<BR/>"
Result: (" " "" "
" "a a") (START . BR)
body: " <!-- comment-->%r%na%t%r%r%na<BR/>"
Result: (" " "" "
" "a\t" "
" "" "
" "a") (START . BR)
body: "a<!-- comment--> a a<BR/>"
Result: ("a" " a a") (START . BR)
body: "!<BR/>"
Result: ("" "!") (START . BR)
body: "!%n<BR/>"
Result: ("" "!" "
") (START . BR)
body: "%t!%n<BR/>"
Result: ("\t" "!" "
") (START . BR)
body: "%t!%na a<BR/>"
Result: ("\t" "!" "
a a") (START . BR)
body: "%t!%ra a<BR/>"
Result: ("\t" "!" "" "
" "a a") (START . BR)
body: "%t!%r%na a<BR/>"
Result: ("\t" "!" "" "
" "a a") (START . BR)
body: " %ta ! b <BR/>"
Result: (" \ta " "!" " b ") (START . BR)
body: " %ta   b <BR/>"
Result: (" \ta " " " " b ") (START . BR)
body: "<![CDATA[<]]><BR/>"
Result: ("<") (START . BR)
body: "<![CDATA[]]]><BR/>"
Result: ("]") (START . BR)
body: "%t<![CDATA[<]]><BR/>"
Result: ("\t" "<") (START . BR)
body: "%t<![CDATA[<]]>a b<BR/>"
Result: ("\t" "<" "a b") (START . BR)
body: "%t<![CDATA[<]]> a b<BR/>"
Result: ("\t" "<" " a b") (START . BR)
body: "%td <![CDATA[ <%r%r%n]]> a b<BR/>"
Result: ("\td " " <" "
" "" "
" " a b") (START . BR)#<procedure 2b62cc0 at module/ice-9/eval.scm:378:13 (a b c)>
#<procedure 2b623f0 at module/ice-9/eval.scm:378:13 (a b c)>
#<procedure 2b65900 at module/ice-9/eval.scm:378:13 (a b c)>
Parsing: <BR/>
((BR))
Parsing: <BR></BR>
((BR))
Parsing: <A HREF='URL'> link <I>itlink </I> &amp;</A>
((A (@ (HREF "URL")) " link " (I "itlink ") " " "&" "amp;"))
Parsing: <A HREF='URL' xml:space='preserve'> link <I>itlink </I> &amp;</A>
((A (@ (HREF "URL") ((xml . space) "preserve")) " link " (I "itlink ") " " "&" "amp;"))
Parsing: <A HREF='URL' xml:space='preserve'> link <I xml:space='default'>itlink </I> &amp;</A>
((A (@ (HREF "URL") ((xml . space) "preserve")) " link " (I (@ ((xml . space) "default")) "itlink ") " " "&" "amp;"))
Parsing: <itemize><item>This is item 1 </item>%n<!-- Just:a comment --><item>Item 2</item>%n </itemize>
((itemize (item "This is item 1 ") "
" (item "Item 2") "
"))
Parsing: <P><![CDATA[<BR>%n<![CDATA[<BR>]]>]]></P>
((P "<BR>" "
" "<![CDATA[<BR>" "]]" "" ">"))
Parsing: <P><![CDATA[<BR>%r<![CDATA[<BR>]]>]]></P>
((P "<BR>" "
" "<![CDATA[<BR>" "]]" "" ">"))
Parsing: <?xml version='1.0'?>%n%n<Reports TStamp='1'></Reports>
((Reports (@ (TStamp "1"))))
Parsing: %n<?PI xxx?><!-- Comment %n -%r-->%n<?PI1 zzz?><T/>
((T))
Parsing: <!DOCTYPE T SYSTEM 'system1' ><!-- comment -->%n<T/>
((T))
Parsing: <!DOCTYPE T PUBLIC '//EN/T' "system1" [ <!ELEMENT a 'aa'> ]>%n<?pi?><T/>
((T))
Parsing: <BR/>
((BR))
Parsing: <BR></BR>
((BR))
Parsing: <BR>aa</BR>
((BR "aa"))
Parsing: <BR>a<I>a</I></BR>
((BR "a" (I "a")))
Parsing: <DIV>Example: "&example;"</DIV>
((DIV "Example: \"" (P "An ampersand (" "&" ") may be escaped numerically (" "&" "#38;) or with a general entity (" "&" "amp;).") "\""))
Parsing: <DIV>Example: "&example;" <P/></DIV>
((DIV "Example: \"" (Q (I "example:") " ex" "!") "?" "\" " (P)))
Parsing: <DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>
(((URI1 . DIV) (@ (B "B") ((URI1 . B) "A")) (*NAMESPACES* ((A URI1 . URI1) (*DEFAULT* URI1 . URI1))) ((URI1 . P) (*NAMESPACES* ((*DEFAULT* #f . #f) (A URI1 . URI1) (*DEFAULT* URI1 . URI1))) (BR (*NAMESPACES* ((*DEFAULT* #f . #f) (A URI1 . URI1) (*DEFAULT* URI1 . URI1)))))))
Parsing: <DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>
(((UA . DIV) (@ (B "B") ((UA . B) "A")) (*NAMESPACES* ((A UA . URI1) (*DEFAULT* UA . URI1) (#f UA . URI1))) ((UA . P) (*NAMESPACES* ((*DEFAULT* #f . #f) (A UA . URI1) (*DEFAULT* UA . URI1) (#f UA . URI1))) (BR (*NAMESPACES* ((*DEFAULT* #f . #f) (A UA . URI1) (*DEFAULT* UA . URI1) (#f UA . URI1)))))))
Parsing: <DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>
(((UA . DIV) (@ (B "B") ((UA . B) "A")) (*NAMESPACES* ((*DEFAULT* UA . URI1) (A UA . URI1) (#f UA . URI1))) ((UA . P) (*NAMESPACES* ((*DEFAULT* #f . #f) (*DEFAULT* UA . URI1) (A UA . URI1) (#f UA . URI1))) (BR (*NAMESPACES* ((*DEFAULT* #f . #f) (*DEFAULT* UA . URI1) (A UA . URI1) (#f UA . URI1)))))))
Parsing: <DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>
(((UA . DIV) (@ (B "B") ((UA . B) "A") ((URI2 . B) "xx")) (*NAMESPACES* ((*DEFAULT* UA . URI1) (A UA . URI1) (C URI2 . URI2) (#f UA . URI1))) ((UA . P) (*NAMESPACES* ((*DEFAULT* #f . #f) (*DEFAULT* UA . URI1) (A UA . URI1) (C URI2 . URI2) (#f UA . URI1))) (BR (*NAMESPACES* ((*DEFAULT* #f . #f) (*DEFAULT* UA . URI1) (A UA . URI1) (C URI2 . URI2) (#f UA . URI1)))))))
input: " <BR/>"
Result: (*TOP* (BR))
input: "<BR></BR>"
Result: (*TOP* (BR))
input: " <BR CLEAR='ALL'
CLASS='Class1'/>"
Result: (*TOP* (BR (@ (CLEAR "ALL") (CLASS "Class1"))))
input: " <A HREF='URL'> link <I>itlink </I> &amp;</A>"
Result: (*TOP* (A (@ (HREF "URL"))
" link "
(I "itlink ")
" &"))
input: " <A HREF='URL' xml:space='preserve'> link <I>itlink </I> &amp;</A>"
Result: (*TOP* (A (@ (xml:space "preserve") (HREF "URL"))
" link "
(I "itlink ")
" &"))
input: " <A HREF='URL' xml:space='preserve'> link <I xml:space='default'>itlink </I> &amp;</A>"
Result: (*TOP* (A (@ (xml:space "preserve") (HREF "URL"))
" link "
(I (@ (xml:space "default")) "itlink ")
" &"))
input: " <P><?pi1 p1 content ?>?<?pi2 pi2? content? ??></P>"
Result: (*TOP* (P (*PI* pi1 "p1 content ")
"?"
(*PI* pi2 "pi2? content? ?")))
input: " <P>some text <![CDATA[<]]>1
"<B>strong</B>"\r</P>"
Result: (*TOP* (P "some text <1
\"" (B "strong") "\"
"))
input: " <P><![CDATA[<BR>
<![CDATA[<BR>]]>]]></P>"
Result: (*TOP* (P "<BR>
<![CDATA[<BR>]]>"))
input: "<T1><T2>it's\r
and that
</T2>\r
\r
</T1>"
Result: (*TOP* (T1 (T2 "it's
and that
") "
"))
input: "<T1><T2>it's\rand that
</T2>\r
\r
</T1>"
Result: (*TOP* (T1 (T2 "it's
and that
") "
"))
input: "<!DOCTYPE T SYSTEM 'system1' ><!-- comment -->
<T/>"
Result: (*TOP* (T))
input: "<?xml version='1.0'?>
<WEIGHT unit=\"pound\">
<NET certified='certified'> 67 </NET>
<GROSS> 95 </GROSS>
</WEIGHT>"
Result: (*TOP* (*PI* xml "version='1.0'")
(WEIGHT
(@ (unit "pound"))
"
"
(NET (@ (certified "certified")) " 67 ")
"
"
(GROSS " 95 ")
"
"))
input: "<DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>"
Result: (*TOP* (URI1:DIV (@ (URI1:B "A") (B "B")) (URI1:P (BR))))
input: "<DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>"
Result: (*TOP* (@ (*NAMESPACES* (UA "URI1")))
(UA:DIV (@ (UA:B "A") (B "B")) (UA:P (BR))))
input: "<x xmlns:edi='http://ecommerce.org/schema'><!-- the 'taxClass' attribute's ns http://ecommerce.org/schema --><lineItem edi:taxClass='exempt'>Baby food</lineItem>
</x>"
Result: (*TOP* (x (lineItem
(@ (http://ecommerce.org/schema:taxClass "exempt"))
"Baby food")
"
"))
input: "<x xmlns:edi='http://ecommerce.org/schema'><!-- the 'taxClass' attribute's ns http://ecommerce.org/schema --><lineItem edi:taxClass='exempt'>Baby food</lineItem></x>"
Result: (*TOP* (@ (*NAMESPACES*
(EDI "http://ecommerce.org/schema")))
(x (lineItem
(@ (EDI:taxClass "exempt"))
"Baby food")))
input: "<bk:book xmlns:bk='urn:loc.gov:books' xmlns:isbn='urn:ISBN:0-395-36341-6'><bk:title>Cheaper by the Dozen</bk:title><isbn:number>1568491379</isbn:number></bk:book>"
Result: (*TOP* (urn:loc.gov:books:book
(urn:loc.gov:books:title "Cheaper by the Dozen")
(urn:ISBN:0-395-36341-6:number "1568491379")))
input: "<!-- initially, the default namespace is 'books' --><book xmlns='urn:loc.gov:books' xmlns:isbn='urn:ISBN:0-395-36341-6'><title>Cheaper by the Dozen</title><isbn:number>1568491379</isbn:number><notes><!-- make HTML the default namespace for some commentary --><p xmlns='urn:w3-org-ns:HTML'>This is a <i>funny</i> book!</p></notes></book>"
Result: (*TOP* (urn:loc.gov:books:book
(urn:loc.gov:books:title "Cheaper by the Dozen")
(urn:ISBN:0-395-36341-6:number "1568491379")
(urn:loc.gov:books:notes
(urn:w3-org-ns:HTML:p
"This is a "
(urn:w3-org-ns:HTML:i "funny")
" book!"))))
input: "<Beers><!-- the default namespace is now that of HTML --><table xmlns='http://www.w3.org/TR/REC-html40'><th><td>Name</td><td>Origin</td><td>Description</td></th><tr><!-- no default namespace inside table cells --><td><brandName xmlns=\"\">Huntsman</brandName></td><td><origin xmlns=''>Bath, UK</origin></td><td><details xmlns=''><class>Bitter</class><hop>Fuggles</hop><pro>Wonderful hop, light alcohol, good summer beer</pro><con>Fragile; excessive variance pub to pub</con></details></td></tr></table></Beers>"
Result: (*TOP* (@ (*NAMESPACES*
(html "http://www.w3.org/TR/REC-html40")))
(Beers (html:table
(html:th
(html:td "Name")
(html:td "Origin")
(html:td "Description"))
(html:tr
(html:td (brandName "Huntsman"))
(html:td (origin "Bath, UK"))
(html:td
(details
(class "Bitter")
(hop "Fuggles")
(pro "Wonderful hop, light alcohol, good summer beer")
(con "Fragile; excessive variance pub to pub")))))))
input: "<!-- 1 --><RESERVATION xmlns:HTML='http://www.w3.org/TR/REC-html40'><!-- 2 --><NAME HTML:CLASS=\"largeSansSerif\">Layman, A</NAME><!-- 3 --><SEAT CLASS='Y' HTML:CLASS=\"largeMonotype\">33B</SEAT><!-- 4 --><HTML:A HREF='/cgi-bin/ResStatus'>Check Status</HTML:A><!-- 5 --><DEPARTURE>1997-05-24T07:55:00+1</DEPARTURE></RESERVATION>"
Result: (*TOP* (@ (*NAMESPACES*
(HTML "http://www.w3.org/TR/REC-html40")))
(RESERVATION
(NAME (@ (HTML:CLASS "largeSansSerif"))
"Layman, A")
(SEAT (@ (HTML:CLASS "largeMonotype") (CLASS "Y"))
"33B")
(HTML:A
(@ (HREF "/cgi-bin/ResStatus"))
"Check Status")
(DEPARTURE "1997-05-24T07:55:00+1")))
input: "<?xml version='1.0' encoding='utf-8' standalone='yes'?><!-- this can be decoded as US-ASCII or iso-8859-1 as well, since it contains no characters outside the US-ASCII repertoire --><rdf:RDF xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#' xmlns:rdfs='http://www.w3.org/2000/01/rdf-schema#' xmlns='http://www.w3.org/2001/02/infoset#'><rdfs:Class ID='Boolean'/><Boolean ID='Boolean.true'/><Boolean ID='Boolean.false'/><!--Info item classes--><rdfs:Class ID='InfoItem'/><rdfs:Class ID='Document' rdfs:subClassOf='#InfoItem'/><rdfs:Class ID='Element' rdfs:subClassOf='#InfoItem'/><rdfs:Class ID='Attribute' rdfs:subClassOf='#InfoItem'/><rdfs:Class ID='InfoItemSet'
rdfs:subClassOf='http://www.w3.org/1999/02/22-rdf-syntax-ns#Bag'/><rdfs:Class ID='AttributeSet' rdfs:subClassOf='#InfoItemSet'/><!--Info item properties--><rdfs:Property ID='allDeclarationsProcessed'><rdfs:domain resource='#Document'/><rdfs:range resource='#Boolean'/></rdfs:Property><rdfs:Property ID='attributes'><rdfs:domain resource='#Element'/><rdfs:range resource='#AttributeSet'/></rdfs:Property></rdf:RDF>"
Result: (*TOP* (@ (*NAMESPACES*
(RDF "http://www.w3.org/1999/02/22-rdf-syntax-ns#")
(RDFS "http://www.w3.org/2000/01/rdf-schema#")
(ISET "http://www.w3.org/2001/02/infoset#")))
(*PI* xml
"version='1.0' encoding='utf-8' standalone='yes'")
(RDF:RDF
(RDFS:Class (@ (ID "Boolean")))
(ISET:Boolean (@ (ID "Boolean.true")))
(ISET:Boolean (@ (ID "Boolean.false")))
(RDFS:Class (@ (ID "InfoItem")))
(RDFS:Class
(@ (RDFS:subClassOf "#InfoItem") (ID "Document")))
(RDFS:Class
(@ (RDFS:subClassOf "#InfoItem") (ID "Element")))
(RDFS:Class
(@ (RDFS:subClassOf "#InfoItem")
(ID "Attribute")))
(RDFS:Class
(@ (RDFS:subClassOf
"http://www.w3.org/1999/02/22-rdf-syntax-ns#Bag")
(ID "InfoItemSet")))
(RDFS:Class
(@ (RDFS:subClassOf "#InfoItemSet")
(ID "AttributeSet")))
(RDFS:Property
(@ (ID "allDeclarationsProcessed"))
(RDFS:domain (@ (resource "#Document")))
(RDFS:range (@ (resource "#Boolean"))))
(RDFS:Property
(@ (ID "attributes"))
(RDFS:domain (@ (resource "#Element")))
(RDFS:range (@ (resource "#AttributeSet"))))))
input: "<?xml version='1.0'?><rdf:RDF
xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#'
xmlns='http://my.netscape.com/rdf/simple/0.9/'>
<channel>
<title>Daemon News Mall</title>
<link>http://mall.daemonnews.org/</link>
<description>Central source for all your BSD needs</description>
</channel>
<item>
<title>Daemon News Jan/Feb Issue NOW Available! Subscribe $24.95</title>
<link>http://mall.daemonnews.org/?page=shop/flypage&product_id=880</link>
</item>
<item>
<title>The Design and Implementation of the 4.4BSD Operating System $54.95</title>
<link>http://mall.daemonnews.org/?page=shop/flypage&product_id=912&category_id=1761</link>
</item>
</rdf:RDF>"
Result: (*TOP* (@ (*NAMESPACES*
(RDF "http://www.w3.org/1999/02/22-rdf-syntax-ns#")
(RSS "http://my.netscape.com/rdf/simple/0.9/")
(ISET "http://www.w3.org/2001/02/infoset#")))
(*PI* xml "version='1.0'")
(RDF:RDF
"
"
(RSS:channel
"
"
(RSS:title "Daemon News Mall")
"
"
(RSS:link "http://mall.daemonnews.org/")
"
"
(RSS:description
"Central source for all your BSD needs")
"
")
"
"
(RSS:item
"
"
(RSS:title
"Daemon News Jan/Feb Issue NOW Available! Subscribe $24.95")
"
"
(RSS:link
"http://mall.daemonnews.org/?page=shop/flypage&product_id=880")
"
")
"
"
(RSS:item
"
"
(RSS:title
"The Design and Implementation of the 4.4BSD Operating System $54.95")
"
"
(RSS:link
"http://mall.daemonnews.org/?page=shop/flypage&product_id=912&category_id=1761")
"
")
"
"))
input: "<Forecasts TStamp='958082142'><TAF TStamp='958066200' LatLon='36.583, -121.850' BId='724915' SName='KMRY, MONTEREY PENINSULA'><VALID TRange='958068000, 958154400'>111730Z 111818</VALID><PERIOD TRange='958068000, 958078800'><PREVAILING>31010KT P6SM FEW030</PREVAILING></PERIOD><PERIOD TRange='958078800, 958104000' Title='FM2100'><PREVAILING>29016KT P6SM FEW040</PREVAILING></PERIOD><PERIOD TRange='958104000, 958154400' Title='FM0400'><PREVAILING>29010KT P6SM SCT200</PREVAILING><VAR Title='BECMG 0708' TRange='958114800, 958118400'>VRB05KT</VAR></PERIOD></TAF></Forecasts>"
Result: (*TOP* (Forecasts
(@ (TStamp "958082142"))
(TAF (@ (TStamp "958066200")
(SName "KMRY, MONTEREY PENINSULA")
(LatLon "36.583, -121.850")
(BId "724915"))
(VALID (@ (TRange "958068000, 958154400"))
"111730Z 111818")
(PERIOD
(@ (TRange "958068000, 958078800"))
(PREVAILING "31010KT P6SM FEW030"))
(PERIOD
(@ (Title "FM2100")
(TRange "958078800, 958104000"))
(PREVAILING "29016KT P6SM FEW040"))
(PERIOD
(@ (Title "FM0400")
(TRange "958104000, 958154400"))
(PREVAILING "29010KT P6SM SCT200")
(VAR (@ (Title "BECMG 0708")
(TRange "958114800, 958118400"))
"VRB05KT")))))
All tests passed
Running test suite: main-suite ----------------------------------------
Running test suite: <test-ssax>-suite ---------------------------------
Running test case: test-ssax
Warning: DOCTYPE DECL T system1 found and skipped
Warning: Internal DTD subset is not currently handled
Warning: DOCTYPE DECL T system1 found and skipped
1 run, 0 failed
Some deprecated features have been used. Set the environment
variable GUILE_WARN_DEPRECATED to "detailed" and rerun the
program to get more information. Set it to "no" to suppress
this message.
PASS: sxml.ssax.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-xml-transform>-suite ------------------------
Running test case: test-all
1 run, 0 failed
PASS: sxml.transform.scm
WARNING: (guile-user): imported module (sxml xpath) overrides core binding `filter'
Running test suite: main-suite ----------------------------------------
Running test suite: <test-xml-xpath>-suite ----------------------------
Running test case: test-all
1 run, 0 failed
PASS: sxml.xpath.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-color>-suite --------------------------------
Running test case: test-accepted-attributes
Running test case: test-clear-reset-equivalence
Running test case: test-underline-underscore-equivalence
Running test suite: <test-colorize-string>-suite ----------------------
Running test case: test-ends-in-reset
Running test case: test-skips-bad-attrs
5 run, 0 failed
PASS: term.ansi-color.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-texinfo>-suite ------------------------------
Running test case: test-read-verbatim-body
Running test case: test-read-arguments
Running test case: test-complete-start-command
Running test case: test-read-char-data
Running test case: test-texinfo->stexinfo
5 run, 0 failed
PASS: texinfo.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-texinfo-docbook>-suite ----------------------
Running test case: test-flatten
1 run, 0 failed
PASS: texinfo.docbook.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-texinfo-serialize>-suite --------------------
Running test case: test-serialize
1 run, 0 failed
PASS: texinfo.serialize.scm
Running test suite: main-suite ----------------------------------------
Running test suite: <test-parse-lalr>-suite ---------------------------
Running test case: test-calc-parser
1 run, 0 failed
PASS: text.parse-lalr.scm
====================
2 of 25 tests failed
====================
make[2]: *** [check-TESTS] Error 1
make[2]: Leaving directory `/home/dsmith/src/guile-lib/unit-tests'
make[1]: *** [check-am] Error 2
make[1]: Target `check' not remade because of errors.
make[1]: Leaving directory `/home/dsmith/src/guile-lib/unit-tests'
make[1]: Entering directory `/home/dsmith/src/guile-lib'
make[1]: Nothing to be done for `check-am'.
make[1]: Leaving directory `/home/dsmith/src/guile-lib'
make: *** [check-recursive] Error 1
make: Target `check' not remade because of errors.
^ permalink raw reply [flat|nested] 9+ messages in thread
* Re: Error in make check building guile-lib for guile 2.0. trap-enable unbound
2011-03-07 18:57 ` dsmich
@ 2011-03-07 21:14 ` Ludovic Courtès
2011-03-26 12:38 ` Andy Wingo
0 siblings, 1 reply; 9+ messages in thread
From: Ludovic Courtès @ 2011-03-07 21:14 UTC (permalink / raw)
To: dsmich; +Cc: guile-devel, Neil Jerram
Hi Dale,
<dsmich@roadrunner.com> writes:
[...]
> /home/dsmith/src/guile-lib/doc//guile-library.texi:2204: Cross reference to nonexistent node `SRFI-1 Fold and Map' (perhaps incorrect sectioning?).
> makeinfo: Removing output file `guile-library.info' due to errors; use --force to preserve.
[...]
> FAIL: api.scm
This one is my fault: it’s because ‘(sxml fold)’ in Guile-Lib exports
‘fold’, but the one in Guile doesn’t.
There are several ways to fix this, such as:
1. Document the API change in Guile-Lib, tell users to use SRFI-1.
2. Always install Guile-Lib’s ‘(sxml fold)’, for backward
compatibility.
Thoughts?
> FAIL: statprof.scm
Commit f8926d8bff047a9ef4f6d13d29dc5fc643c445a4 fixes this.
Thanks,
Ludo’.
^ permalink raw reply [flat|nested] 9+ messages in thread
* Re: Error in make check building guile-lib for guile 2.0. trap-enable unbound
2011-03-07 21:14 ` Ludovic Courtès
@ 2011-03-26 12:38 ` Andy Wingo
2011-03-26 15:50 ` Ludovic Courtès
0 siblings, 1 reply; 9+ messages in thread
From: Andy Wingo @ 2011-03-26 12:38 UTC (permalink / raw)
To: Ludovic Courtès; +Cc: Neil Jerram, guile-devel
On Mon 07 Mar 2011 22:14, ludo@gnu.org (Ludovic Courtès) writes:
> Thoughts?
Thanks for dealing with Guile-lib's bugs! I went ahead and pushed a
0.2.0 release.
Regards,
Andy
--
http://wingolog.org/
^ permalink raw reply [flat|nested] 9+ messages in thread
* Re: Error in make check building guile-lib for guile 2.0. trap-enable unbound
2011-03-26 12:38 ` Andy Wingo
@ 2011-03-26 15:50 ` Ludovic Courtès
0 siblings, 0 replies; 9+ messages in thread
From: Ludovic Courtès @ 2011-03-26 15:50 UTC (permalink / raw)
To: guile-devel
Hello!
Andy Wingo <wingo@pobox.com> writes:
> On Mon 07 Mar 2011 22:14, ludo@gnu.org (Ludovic Courtès) writes:
>
>> Thoughts?
>
> Thanks for dealing with Guile-lib's bugs! I went ahead and pushed a
> 0.2.0 release.
Excellent! (I see 8942bd0cf6192526af5490a7c26ff1cef0fe3916 makes it
clear that (sxml fold) doesn’t export ‘fold’, which is probably the
right thing.)
Thanks,
Ludo’.
^ permalink raw reply [flat|nested] 9+ messages in thread
end of thread, other threads:[~2011-03-26 15:50 UTC | newest]
Thread overview: 9+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2011-03-04 16:59 Error in make check building guile-lib for guile 2.0. trap-enable unbound dsmich
2011-03-04 21:33 ` Neil Jerram
2011-03-04 21:56 ` dsmich
2011-03-05 13:30 ` Ludovic Courtès
2011-03-06 10:51 ` Neil Jerram
2011-03-07 18:57 ` dsmich
2011-03-07 21:14 ` Ludovic Courtès
2011-03-26 12:38 ` Andy Wingo
2011-03-26 15:50 ` Ludovic Courtès
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).