Send Beginners mailing list submissions to
[email protected]
To subscribe or unsubscribe via the World Wide Web, visit
http://www.haskell.org/mailman/listinfo/beginners
or, via email, send a message with subject or body 'help' to
[email protected]
You can reach the person managing the list at
[email protected]
When replying, please edit your Subject line so it is more specific
than "Re: Contents of Beginners digest..."
Today's Topics:
1. How can I replace content of tag in xml file with haxml.
(Dontdie YCH)
----------------------------------------------------------------------
Message: 1
Date: Wed, 17 Sep 2014 18:17:00 +0900
From: Dontdie YCH <[email protected]>
To: [email protected]
Subject: [Haskell-beginners] How can I replace content of tag in xml
file with haxml.
Message-ID:
<captm4gmxpy4t9ebuhvhdte6fi0_hhj24fn12s5ap1amqlrz...@mail.gmail.com>
Content-Type: text/plain; charset=UTF-8
I'm trying to replace `CurrentURI` tag's contents using HaXml.
from,
```
<?xml version="1.0"?>
<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/";
s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/";>
<s:Body>
<u:SetAVTransportURI xmlns:u="urn:schemas-upnp-org:service:AVTransport:1">
<InstanceID>0</InstanceID>
<CurrentURI>AAAAAAAAAAAA</CurrentURI>
<CurrentURIMetaData/>
</u:SetAVTransportURI>
</s:Body>
</s:Envelope>
```
to,
```
<?xml version="1.0"?>
<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/";
s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/";>
<s:Body>
<u:SetAVTransportURI xmlns:u="urn:schemas-upnp-org:service:AVTransport:1">
<InstanceID>0</InstanceID>
<CurrentURI>BBBBBBBBBBBBBB</CurrentURI>
<CurrentURIMetaData/>
</u:SetAVTransportURI>
</s:Body>
</s:Envelope>
```
I had look around, hxt, xml-light, and haxml. I found `onContents`
function from `Text.XML.HaXml.Wrappers` module and It looks like way
to go.
```
?: xml <- readFile "SetAVTransportURI.xml" :: IO String
?: let doc = xmlParse "dumb" xml
?: doc
Document (Prolog (Just (XMLDecl "1.0" Nothing Nothing)) [] Nothing [])
[] (Elem (N "s:Envelope") [(N
"xmlns:s",http://schemas.xmlsoap.org/soap/envelope/),(N
"s:encodingStyle",http://schemas.xmlsoap.org/soap/encoding/)] [CString
False "\n " file dumb at line 2 col 125,CElem (Elem (N "s:Body") []
[CString False "\n " file dumb at line 3 col 11,CElem (Elem (N
"u:SetAVTransportURI") [(N
"xmlns:u",urn:schemas-upnp-org:service:AVTransport:1)] [CString False
"\n " file dumb at line 4 col 79,CElem (Elem (N "InstanceID") []
[CString False "0\n " file dumb at line 5 col 19]) file dumb at
line 5 col 7,CString False "\n " file dumb at line 6 col
20,CElem (Elem (N "CurrentURI") [] [CString False "\n" file dumb at
line 7 col 19,CMisc (Comment " #EXTM3U ") file dumb at line 8 col
1,CMisc (Comment " #EXTINF:5850,\52628\49437\53945\49440\50689\54868
\47609\47329\44284\44053 140909 HDTV x264 720p AC3 \50864\47532\47568
\45433\51020 - nature boy ") file dumb at line 9 col 1,CMisc
(Comment " http://192.168.219.2:8200/MediaItems/587.mkv ") file dumb
at line 10 col 1,CMisc (Comment " #EXTM3U ") file dumb at line 11 col
1,CMisc (Comment "
#EXTINF:6411,The.Adventures.of.Tintin.2011.1080p.BluRay.x264.YIFY ")
file dumb at line 12 col 1,CString False
"http://192.168.219.2:8200/MediaItems/165.mp4\n " file dumb at
line 13 col 1]) file dumb at line 7 col 7,CString False "\n "
file dumb at line 14 col 20,CElem (Elem (N "CurrentURIMetaData") []
[]) file dumb at line 15 col 7,CString False "\n " file dumb at
line 15 col 28]) file dumb at line 4 col 5,CString False "\n " file
dumb at line 16 col 27]) file dumb at line 3 col 3,CString False
"\n" file dumb at line 17 col 12]) [Comment "\nOrignal header from
captured packets.\n\nPOST /smp_18_ HTTP/1.1\nHost:
192.168.219.6:7676\nSOAPAction:
\"urn:schemas-upnp-org:service:AVTransport:1#SetAVTransportURI\"\nAccept-Language:
en-us;q=1, en;q=0.5\nAccept-Encoding: gzip\nContent-Type: text/xml;
charset=\"utf-8\"\nUser-Agent: gupnp-av-cp GUPnP/0.20.12
DLNADOC/1.50\nConnection: Keep-Alive\nContent-Length: 1405\n"]
?: onContent (Text.XML.HaXml.Combinators.deep $ tag "CurrentURI") doc
-- this result is not what I want.
Document (Prolog (Just (XMLDecl "1.0" Nothing Nothing)) [] Nothing [])
[] (Elem (N "CurrentURI") [] [CString False "\n" file dumb at line 7
col 19,CMisc (Comment " #EXTM3U ") file dumb at line 8 col 1,CMisc
(Comment " #EXTINF:5850,\52628\49437\53945\49440\50689\54868
\47609\47329\44284\44053 140909 HDTV x264 720p AC3 \50864\47532\47568
\45433\51020 - nature boy ") file dumb at line 9 col 1,CMisc
(Comment " http://192.168.219.2:8200/MediaItems/587.mkv ") file dumb
at line 10 col 1,CMisc (Comment " #EXTM3U ") file dumb at line 11 col
1,CMisc (Comment "
#EXTINF:6411,The.Adventures.of.Tintin.2011.1080p.BluRay.x264.YIFY ")
file dumb at line 12 col 1,CString False
"http://192.168.219.2:8200/MediaItems/165.mp4\n " file dumb at
line 13 col 1]) [Comment "\nOrignal header from captured
packets.\n\nPOST /smp_18_ HTTP/1.1\nHost:
192.168.219.6:7676\nSOAPAction:
\"urn:schemas-upnp-org:service:AVTransport:1#SetAVTransportURI\"\nAccept-Language:
en-us;q=1, en;q=0.5\nAccept-Encoding: gzip\nContent-Type: text/xml;
charset=\"utf-8\"\nUser-Agent: gupnp-av-cp GUPnP/0.20.12
DLNADOC/1.50\nConnection: Keep-Alive\nContent-Length: 1405\n"]
?:
```
How can I write filter to replace `CurrentURI` tag?
1. find 'CurrentURI' tag
2. replace content with some string
3. return modified whole document not just specific tag
Or, Where can I found tutorial or example for haxml? Yes, I'm reading
now haxml document. But needs some overview document.
Any advice would be appreciated.
Thanks.
------------------------------
Subject: Digest Footer
_______________________________________________
Beginners mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/beginners
------------------------------
End of Beginners Digest, Vol 75, Issue 12
*****************************************
