How to extract a specific branch of a XML tree in HXT

Question

Giving the example:

<pous>
  <pou>
    <interface>
      ...
    </interface>
    <body>
      <FBD>
        ...
      </FBD>
    </body>
  </pou>
  <pou>
    <interface>
      ...
    </interface>
    <body>
      <SFC>
        ...
      </SFC>
    </body>
  </pou>
</pous>

I know how to obtain all the "pou" using the function atTag:

atTag:: (ArrowXml a) => String -> a XmlTree XmlTree
atTag tag = deep (isElem >>> hasName tag)

But how to I extract only the "pou" with the the SFC tag? Is there a clean way to do it?

Thank you in advance!

bheklilr · Accepted Answer · 2015-04-24T15:52:45.450

1

You want to use filterA for this example

application
    = processChildren
    $ getChildren                    -- Gets the children of "pous"
    >>> filterA hasSFC
    where hasSFC =  hasName "pou"    -- Include all "pou" elements
                >>> getChildren      -- that have children
                >>> getChildren      -- that have children
                >>> hasName "SFC"    -- that have a "SFC" element

main = do
    runX $
        readDocument [] "input.xml" >>>
        application                 >>>
        writeDocument [withIndent yes] "output.xml"

edited Apr 24 '15 at 15:52

answered Apr 24 '15 at 14:29

bheklilr

53,530
6
107
163

I adapted your idea in my code and it has done the trick. Thank you very much!! :) – Yoanribeiro Apr 26 '15 at 10:39

score 0 · Answer 2 · edited May 23 '17 at 12:14

0

Try using Haskell XPath and:

/*/pou[body[SFC]]

Further reference "XPath find all elements with specific child node"

edited May 23 '17 at 12:14

Community

1
1

answered Apr 24 '15 at 13:58

malpka

83
1
5

How to extract a specific branch of a XML tree in HXT

2 Answers2