{- |

Module : $Header$

ClassExpression : Manchester syntax parser for OWL 2

Copyright : (c) Felix Gabriel Mance

License : GPLv2 or higher, see LICENSE.txt

Maintainer : f.mance@jacobs-university.de

Stability : provisional

Portability : portable

Parser from Manchester Syntax to Manchester Abstract Syntax

<http://www.w3.org/TR/2009/NOTE-owl2-manchester-syntax-20091027/>

-}

module OWL2.ManchesterParse where

import OWL2.AS

import OWL2.MS

import OWL2.Parse

import OWL.Keywords

import OWL.ColonKeywords

import Common.Keywords

import Common.Lexer

import Common.Parsec

import Common.AnnoParser (commentLine)

import Common.Token (criticalKeywords)

import Common.Utils (nubOrd)

import Text.ParserCombinators.Parsec

import Data.Char

import qualified Data.Map as Map

optAnnos :: CharParser st a -> CharParser st (Annotations, a)

optAnnos p = do

as <- option noAnnos $ annotations

a <- p

return (as, a)

annotations :: CharParser st Annotations

annotations = do

pkeyword annotationsC

fmap Annotations $ sepByComma $ optAnnos annotation

descriptionAnnotatedList :: CharParser st [(Annotations, ClassExpression)]

descriptionAnnotatedList = sepByComma $ optAnnos description

annotationPropertyFrame :: CharParser st [Frame]

annotationPropertyFrame = do

pkeyword annotationPropertyC

ap <- uriP

x <- flat $ many $ apBit

return [AnnotationFrame ap x]

apBit :: CharParser st [AnnotationBit]

apBit = do

pkeyword subPropertyOfC

x <- sepByComma $ optAnnos uriP

return [AnnotationSubPropertyOf $ AnnotatedList x]

<|> do

pkeyword rangeC

x <- sepByComma $ optAnnos uriP

return [AnnotationDOR AnnRange $ AnnotatedList x ]

<|> do

pkeyword domainC

x <- sepByComma $ optAnnos uriP

return [AnnotationDOR AnnDomain $ AnnotatedList x ]

<|> do

x <- annotations

return [AnnotationAnnotations x]

datatypeFrame :: CharParser st [Frame]

datatypeFrame = do

pkeyword datatypeC

duri <- datatypeUri

as1 <- many annotations

ms <- optionMaybe $ do

pkeyword equivalentToC

al <- annotations

dr <- dataRange

return (al, dr)

as2 <- many annotations

return [DatatypeFrame duri (as1 ++ as2) ms]

classFrame :: CharParser st [Frame]

classFrame = do

pkeyword classC

iri <- uriP

plain <- flat $ many $ classFrameBit

if null plain then return [ClassFrame iri []]

else return [ClassFrame iri plain]

classFrameBit ::CharParser st [ClassFrameBit]

classFrameBit = do

pkeyword subClassOfC

ds <- descriptionAnnotatedList

return [ClassSubClassOf $ AnnotatedList ds]

<|> do

e <- equivOrDisjoint

ds <- descriptionAnnotatedList

return [ClassEquivOrDisjoint e $ AnnotatedList ds]

<|> do

pkeyword disjointUnionOfC

as <- annotations

ds <- sepByComma description

return [ClassDisjointUnion as ds]

<|> do

pkeyword hasKeyC

as <- annotations

o <- sepByComma objectPropertyExpr

return [ClassHasKey as o []]

<|> do

as <- annotations

return [ClassAnnotations as]

objPropExprAList :: CharParser st [(Annotations, ObjectPropertyExpression)]

objPropExprAList = sepByComma $ optAnnos objectPropertyExpr

objectFrameBit :: CharParser st [ObjectFrameBit]

objectFrameBit = do

r <- domainOrRange

ds <- descriptionAnnotatedList

return [ObjectDomainOrRange r $ AnnotatedList ds]

<|> do

characterKey

ds <- sepByComma $ optAnnos objectPropertyCharacter

return [ObjectCharacteristics $ AnnotatedList ds]

<|> do

subPropertyKey

ds <- objPropExprAList

return [ObjectSubPropertyOf $ AnnotatedList ds]

<|> do

e <- equivOrDisjoint

ds <- objPropExprAList

return [ObjectEquivOrDisjoint e $ AnnotatedList ds]

<|> do

pkeyword inverseOfC

ds <- objPropExprAList

return [ObjectInverse $ AnnotatedList ds]

<|> do

pkeyword subPropertyChainC

as <- annotations

os <- sepBy1 objectPropertyExpr (keyword oS)

return [ObjectSubPropertyChain as os]

<|> do

as <- annotations

return [ObjectAnnotations as]

objectPropertyFrame :: CharParser st [Frame]

objectPropertyFrame = do

pkeyword objectPropertyC

ouri <- uriP

as <- flat $ many $ objectFrameBit

return $ if null as

then [ObjectPropertyFrame ouri []]

else [ObjectPropertyFrame ouri as]

dataPropExprAList :: CharParser st [(Annotations, DataPropertyExpression)]

dataPropExprAList = sepByComma $ optAnnos uriP

dataFrameBit :: CharParser st [DataFrameBit]

dataFrameBit = do

pkeyword domainC

ds <- descriptionAnnotatedList

return [DataPropDomain $ AnnotatedList ds]

<|> do

pkeyword rangeC

ds <- sepByComma $ optAnnos dataRange

return [DataPropRange $ AnnotatedList ds]

<|> do

characterKey

as <- annotations

keyword functionalS

return [DataFunctional as]

<|> do

subPropertyKey

ds <- dataPropExprAList

return [DataSubPropertyOf $ AnnotatedList ds]

<|> do

e <- equivOrDisjoint

ds <- dataPropExprAList

return [DataEquivOrDisjoint e $ AnnotatedList ds]

<|> do

as <- annotations

return [DataAnnotations as]

dataPropertyFrame :: CharParser st [Frame]

dataPropertyFrame = do

pkeyword dataPropertyC

duri <- uriP

as <- flat $ many $ dataFrameBit

return $ if null as

then [DataPropertyFrame duri []]

else [DataPropertyFrame duri as]

fact :: CharParser st Fact

fact = do

pn <- option Positive $ keyword notS >> return Negative

u <- uriP

do

c <- literal

return $ DataPropertyFact pn u c

<|> do

t <- individualUri

return $ ObjectPropertyFact pn (ObjectProp u) t

iFrameBit :: CharParser st [IndividualBit]

iFrameBit = do

pkeyword typesC

ds <- descriptionAnnotatedList

return [IndividualTypes $ AnnotatedList ds]

<|> do

s <- sameOrDifferent

is <- sepByComma $ optAnnos individualUri

return [IndividualSameOrDifferent s $ AnnotatedList is]

<|> do

pkeyword factsC

fs <- sepByComma $ optAnnos $ fact

return [IndividualFacts $ AnnotatedList fs]

individualFrame :: CharParser st [Frame]

individualFrame = do

pkeyword individualC

iuri <- individualUri

as <- flat $ many $ iFrameBit

return $ if null as

then [IndividualFrame iuri []]

else [IndividualFrame iuri as]

misc :: CharParser st Frame

misc = do

e <- equivOrDisjointKeyword classesC

as <- annotations

ds <- sepByComma description

return $ MiscEquivOrDisjointClasses e as ds

<|> do

e <- equivOrDisjointKeyword propertiesC

as <- annotations

es <- sepByComma objectPropertyExpr

-- indistinguishable from dataProperties

return $ MiscEquivOrDisjointObjProp e as es

<|> do

s <- sameOrDifferentIndu

as <- annotations

is <- sepByComma individualUri

return $ MiscSameOrDifferent s as is

frames :: CharParser st [Frame]

frames = flat $ many $ datatypeFrame <|> classFrame

<|> objectPropertyFrame <|> dataPropertyFrame <|> individualFrame

<|> annotationPropertyFrame <|> single misc

basicSpec :: CharParser st OntologyDocument

basicSpec = do

nss <- many nsEntry

option () $ pkeyword ontologyC >> uriP >> return ()

many importEntry

many annotations

as <- frames

return emptyOntologyDoc

{ mOntology = emptyOntologyD

{ ontologyFrame = as

, muri = dummyQName }

, prefixDeclaration = Map.fromList $

[ ("owl", "http://www.w3.org/2002/07/owl#")

, ("rdf", "http://www.w3.org/1999/02/22-rdf-syntax-ns#")

, ("rdfs", "http://www.w3.org/2000/01/rdf-schema#")

, ("xsd", "http://www.w3.org/2001/XMLSchema#")

-- , ("", showQU dummyQName ++ "#") -- uncomment for API v3

, ("owl2xml", "http://www.w3.org/2006/12/owl2-xml#") ]

++ map (\ (p, q) -> (p, showQU q)) nss }