source: XMLF90/doc/Tutorial/xpath/i.twoelements.f90 @ 6

Last change on this file since 6 was 6, checked in by ymipsl, 13 years ago

Import des sources XMLF90

File size: 835 bytes
Line 
1program twoelements
2use flib_xpath
3
4type(xml_t) :: fxml
5
6integer  :: status
7character(len=100)  :: what, price, currency
8type(dictionary_t)  :: attributes
9
10call open_xmlfile("inventory.xml",fxml,status)
11!
12do
13  call get_node(fxml,path="//description", &
14                pcdata=what,status=status)
15  if (status < 0)   exit                   ! No more items
16  !
17  ! Price comes right after description...
18  !
19  call get_node(fxml,path="//price", &
20                attributes=attributes,pcdata=price,status=status)
21  if (status /= 0) stop "missing price element!"
22 
23  call get_value(attributes,"currency",currency,status)
24  if (status /= 0) stop "missing currency attribute!"
25 
26  write(unit=*,fmt="(6a)") "Appliance: ", trim(what), &
27                           ". Price: ", trim(price), " ", trim(currency)
28enddo
29end program twoelements
Note: See TracBrowser for help on using the repository browser.