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