Add files via upload

profiles/lib/country_data.lua

@@ -0,0 +1,116 @@
+-- Assigns extra_speeds list based on location tag
+-- based on reading https://wiki.openstreetmap.org/wiki/Key:motorroad
+-- and https://wiki.openstreetmap.org/wiki/OSM_tags_for_routing/Access_restrictions
+-- (esp #Alternative_ideas)
+-- We treat all cases of motorroad="yes" as no access.
+-- pass in way data and speed to set.
+-- 
+
+local Set = require('lib/set')
+local Sequence = require('lib/sequence')
+
+local country_data = {}
+
+local clist = Set
+{
+  'Worldwide',
+  'AUS',
+  'AUT',
+  'tyrol',
+  'BLR',
+  'BEL',
+  'BRA',
+  'CHN',
+  'DNK',
+  'FRA',
+  'FIN',
+  'DEU',
+  'GRC',
+  'HKG',
+  'HUN',
+  'ISL',
+  'IRL',
+  'ITA',
+  'NLD',
+  'NOR',
+  'OMN',
+  'PHL',
+  'POL',
+  'ROU',
+  'RUS',
+  'SVK',
+  'ESP',
+  'SWE',
+  'CHE',
+  'THA',
+  'TUR',
+  'UKR',
+  'GBR',
+  'USA'
+}
+
+local cnames = Sequence
+{
+  Australia = "AUS",
+  Austria = "AUT",
+  Belarus = "BLR",
+  Belgium = "BEL",
+  Brazil = "BRA",
+  China = "CHN",
+  Denmark = "DNK",
+  France = "FRA",
+  Finland = "FIN",
+  Germany = "DEU",
+  Greece = "GRC",
+  Hong_Kong = "HKG",
+  Hungary = "HUN",
+  Iceland = "ISL",
+  Ireland = "IRL",
+  Italy = "ITA",
+  Netherlands = "NLD",
+  Norway = "NOR",
+  Oman = "OMN",
+  Philippines = "PHL",
+  Poland = "POL",
+  Romania = "ROU",
+  Russia = "RUS",
+  Slovakia = "SVK",
+  Spain = "ESP",
+  Sweden = "SWE",
+  Switzerland = "CHE",
+  Thailand = "THA",
+  Turkey = "TUR",
+  Ukraine = "UKR",
+  United_Kingdom = "GBR",
+  United_States_of_America = "USA"
+}
+
+function country_data.inAccessSet(country)
+  if clist[country] then
+    return true
+  end
+  return false
+end
+
+function country_data.getCnameEntry(country)
+  if cnames[country] then
+    return cnames[country]
+  end
+  nob = string.gsub(country, ' ', '_')
+  if cnames[nob] then
+    return cnames[nob]
+  end
+  return false
+end
+
+function country_data.getAccessProfile(country, profile)
+  if clist[country] then
+    if countries[country][profile] then
+      return countries[country][profile] 
+    end
+  end
+  return countries['Worldwide'][profile]
+end
+
+return country_data
+