(make-sxml port) -> list
(make-sxml string) -> list
If given a string containing XML, returns an SXML expression; a list. If given a port, repeatedly reads the port until it is exhausted, then returns as for string.
Example:
>> (define a (open-input-file "xml.txt")) :: #f >> (define b (make-sxml a)) :: #f >> b ::
(*TOP* (html (@ (xmlns . "http://www.w3.org/1999/xhtml") (xml:lang . "en")) (head (title "MOSVM Reference: Mailto-Url?") (link (@ (rel . "stylesheet") (href . "/wiki/style.css") (type . "text/css")))) (body (div (@ (class . "commands")) (ul (li (@ (class . "top")) (a (@ (href . "/wiki/MOSVM%20Reference")) "MOSVM Reference")) (li (a (@ (href . "/wiki/@list")) "List Nodes")) (li (a (@ (href . "/wiki/@additions")) "Recently Added")) (li (a (@ (href . "/wiki/@changes")) "Recently Changed"))) (ul (li (@ (class . "top")) (a (@ (href . "/wiki/Mailto-Url%3f")) "Mailto-Url?")) (li (a (@ (href . "/wiki/Mailto-Url%3f/edit")) "Edit Node")) (li (a (@ (href . "/wiki/Mailto-Url%3f/diffs")) "Node Changes")) (li (a (@ (href . "/wiki/Mailto-Url%3f/refs")) "Node References"))) (form (@ (action . "/wiki/Mailto-Url?") (method . "post")) (ul (li (@ (class . "t>> (get-sxml-item b 1)
op")) (a (@ (href . "/wiki/Eric")) "User: Eric")) (li (input (@ (class . "button") (type . "submit") (name . "action") (value . "Logout"))))))) (div (@ (class . "content")) (h2 "Mailto-Url?") (p "(mailto-url? argument) -> boolean ") (p "Returns true if the given argument is a " (a (@ (class . "near") (href . "<mailto-Url>")) "<mailt" "o-url>") ", otherwise false. ")))))