{-# LANGUAGE OverloadedStrings #-}
--------------------------------------------------------------------------------
-- See end of this file for licence information.
--------------------------------------------------------------------------------
-- |
-- Module : Swish.RDF.Vocabulary.Geo
-- Copyright : (c) 2011 Douglas Burke
-- License : GPL V2
--
-- Maintainer : Douglas Burke
-- Stability : experimental
-- Portability : OverloadedStrings
--
-- This module defines some commonly used vocabulary terms from the Geo
-- vocabulary (, WGS84 Geo Positioning: an RDF vocabulary).
--
-- Note that unlike some of the existing vocabularies in Swish, the Geo
-- one matches the case and spelling of the RDF terms; so we
-- use 'geolat' rather than @geoLat@.
--
--------------------------------------------------------------------------------
module Swish.RDF.Vocabulary.Geo
(
namespaceGEO
-- * Classes
, geoSpatialThing
, geoPoint
-- * Properties
, geolocation
, geolat
, geolong
, geolat_long
)
where
import Swish.Namespace (Namespace, ScopedName, makeNamespace, makeNSScopedName)
import Swish.QName (LName)
import Data.Maybe (fromMaybe)
import Network.URI (URI, parseURI)
------------------------------------------------------------
-- Namespace
------------------------------------------------------------
geoURI :: URI
geoURI = fromMaybe (error "Internal error processing Geo URI") $ parseURI "http://www.w3.org/2003/01/geo/wgs84_pos#"
-- | Maps @geo@ to .
namespaceGEO :: Namespace
namespaceGEO = makeNamespace (Just "geo") geoURI
------------------------------------------------------------
-- Terms
------------------------------------------------------------
toG :: LName -> ScopedName
toG = makeNSScopedName namespaceGEO
-- | @geo:location@.
geolocation :: ScopedName
geolocation = toG "location"
-- | @geo:lat@.
geolat :: ScopedName
geolat = toG "lat"
-- | @geo:long@.
geolong :: ScopedName
geolong = toG "long"
-- | @geo:lat_long@ (it is suggested that this not be used when generating RDF statements).
geolat_long :: ScopedName
geolat_long = toG "lat_long"
-- | @geo:SpatialThing@.
geoSpatialThing :: ScopedName
geoSpatialThing = toG "SpatialThing"
-- | @geo:Point@.
geoPoint :: ScopedName
geoPoint = toG "Point"
--------------------------------------------------------------------------------
--
-- Copyright (c) 2011 Douglas Burke
-- All rights reserved.
--
-- This file is part of Swish.
--
-- Swish is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- Swish is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with Swish; if not, write to:
-- The Free Software Foundation, Inc.,
-- 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--------------------------------------------------------------------------------