Added stationlist generation tools
[quandoparte] / application / resources / stations / generatelist.xq
1 <stations>
2 {
3 for $doc in ('nord.osm', 
4              'centronord.osm', 
5              'centrosud.osm', 
6              'sud.osm', 
7              'sicilia.osm', 
8              'puglia.osm', 
9              'sardegna.osm')
10 for $node in doc($doc)//node
11 where $node/tag[@k='name'] and (
12 $node/tag[@k='operator'] and (
13 fn:contains($node//tag[@k='operator']/@v, 'RFI') or 
14 fn:contains($node//tag[@k='operator']/@v, 'Centostazioni') or 
15 fn:contains($node//tag[@k='operator']/@v, 'Grandi Stazioni')))
16 return 
17 <station>
18 <pos>{
19 data($node/@lon)
20 },{
21 data($node/@lat)
22 }
23 </pos>
24 <name>
25 {
26 data($node//tag[@k='name']/@v)
27 }
28 </name>
29 </station>
30 }
31 </stations>