-module(xml_xpath).
-include_lib("xmerl/include/xmerl.hrl").

-export([main/0]).

main() ->
   XMLDocument =
      "<inventory title=\"OmniCorp Store #45x10^3\">
        <section name=\"health\">
          <item upc=\"123456789\" stock=\"12\">
            <name>Invisibility Cream</name>
            <price>14.50</price>
            <description>Makes you invisible</description>
          </item>
          <item upc=\"445322344\" stock=\"18\">
            <name>Levitation Salve</name>
            <price>23.99</price>
            <description>Levitate yourself for up to 3 hours per application</description>
          </item>
        </section>
        <section name=\"food\">
          <item upc=\"485672034\" stock=\"653\">
            <name>Blork and Freen Instameal</name>
            <price>4.95</price>
            <description>A tasty meal in a tablet; just add water</description>
          </item>
          <item upc=\"132957764\" stock=\"44\">
            <name>Grob winglets</name>
            <price>3.56</price>
            <description>Tender winglets of Grob. Just add water</description>
          </item>
        </section>
      </inventory>",
   {Document,_} = xmerl_scan:string(XMLDocument),

   io:format("First item:\n~s\n",
      [lists:flatten(
         xmerl:export_simple(
            [hd(xmerl_xpath:string("//item[1]", Document))],
            xmerl_xml, [{prolog, ""}]))]),

   io:format("Prices:\n"),
   [ io:format("~s\n",[Content#xmlText.value])
      || #xmlElement{content = [Content|_]} <- xmerl_xpath:string("//price", Document)],

   io:format("Names:\n"),
   [ Content#xmlText.value
      || #xmlElement{content = [Content|_]} <- xmerl_xpath:string("//name", Document)].