Commit 759ea4d3 authored by david's avatar david

Revision: cxml--devel--1.0--patch-88

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Mon Feb  9 14:38:11 CET 2004
Standard-date: 2004-02-09 13:38:11 GMT
Modified-files: domtest.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-88
Summary: URI-Vergleich

URI-Vergleich
parent 571ca993
......@@ -223,16 +223,33 @@
|scheme| |path| |host| |file| |name| |query| |fragment| |isAbsolute|)
element
|isAbsolute|
`(let ((uri ,(%intern |actual|)))
(and (string-equal ,|scheme| (net.uri:uri-scheme uri))
(equal ,|host| (net.uri:uri-host uri))
(equal ,|path| (net.uri:uri-path uri))
(equal ,|file| "???")
(equal ,|name| "???")
(equal ,|query| (net.uri:uri-query uri))
(equal ,|fragment| (net.uri:uri-fragment uri))
;; isabsolute
nil))))
`(let ((uri (net.uri:parse-uri ,(%intern |actual|))))
(flet ((uri-directory (path)
(namestring
(make-pathname :directory (pathname-directory path))))
(uri-file (path)
(namestring (make-pathname :name (pathname-name path)
:type (pathname-type path))))
(uri-name (path)
(pathname-name path))
(maybe-equal (expected actual)
(if expected
(equal expected actual)
t)))
(and (string-equal ,(parse-java-literal |scheme|)
(net.uri:uri-scheme uri))
(maybe-equal ,(parse-java-literal |host|)
(net.uri:uri-host uri))
(maybe-equal ,(parse-java-literal |path|)
(uri-directory (net.uri:uri-path uri)))
(maybe-equal ,(parse-java-literal |file|)
(uri-file (net.uri:uri-path uri)))
(maybe-equal ,(parse-java-literal |name|)
(uri-name (net.uri:uri-path uri)))
(maybe-equal ,(parse-java-literal |query|)
(net.uri:uri-query uri))
(maybe-equal ,(parse-java-literal |fragment|)
(net.uri:uri-fragment uri)))))))
;;;; Statements uebersetzen
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment