Module Types

module Types: sig .. end

Types of OSM objects

type osm_id =

`\|`	`OSMId of string`

module StringMap: Core.Std.Map.S

type osm_tags = string StringMap.t

val empty_tags : osm_tags

val add_tag : osm_tags -> string -> string -> osm_tags

val find_tag : osm_tags -> string -> string option

module OSMId_Comparator: Comparator.S 
       with type t = osm_id

module OSMMap: Core.Std.Map.S 
       with type Key.t = OSMId_Comparator.t 
       with type Key.comparator_witness = OSMId_Comparator.comparator_witness

type osm_node =

`\|`	`OSMNode of osm_node_t`

type osm_node_t = {

	`id : osm_id;`
	`latitude : float;`
	`longitude : float;`
	`version : string;`
	`changeset : string;`
	`user : string;`
	`uid : string;`
	`timestamp : string;`
	`tags : osm_tags;`

}

type osm_way =

`\|`	`OSMWay of osm_way_t`

type osm_way_t = {

	`id : osm_id;`
	`version : string;`
	`changeset : string;`
	`user : string;`
	`uid : string;`
	`timestamp : string;`
	`tags : osm_tags;`
	`nodes : osm_id list;`

}

type osm_relation_member =

`\|`	`OSMRelationMember of osm_relation_member_t`

type osm_relation_member_t = {

	`ref : osm_id;`
	`type_ : string;`
	`role : string;`

}

type osm_relation =

`\|`	`OSMRelation of osm_relation_t`

type osm_relation_t = {

	`id : osm_id;`
	`version : string;`
	`changeset : string;`
	`user : string;`
	`uid : string;`
	`timestamp : string;`
	`tags : osm_tags;`
	`members : osm_relation_member list;`

}

type osm =

`\|`	`OSM of osm_t`

type osm_t = {

	`nodes : osm_node OSMMap.t;`
	`ways : osm_way OSMMap.t;`
	`relations : osm_relation OSMMap.t;`

}

val empty_osm : osm