{- |

Module : $Header$

Copyright : (c) Klaus L�ttich, Uni Bremen 2004

License : similar to LGPL, see HetCATS/LICENSE.txt or LIZENZ.txt

Maintainer : luettich@tzi.de

Stability : provisional

Portability : portable

Signatures for DL logics, as extension of CASL signatures.

-}

module CASL_DL.Sign where

import qualified Data.Map as Map

import Common.Id

import Common.Doc

import Common.DocUtils

import CASL.AS_Basic_CASL

import CASL_DL.AS_CASL_DL

import Data.List

import OWL_DL.AS (QName)

import OWL_DL.ReadWrite ()

data CASL_DLSign =

CASL_DLSign { annoProperties :: Map.Map SIMPLE_ID PropertyType

, annoPopertySens :: [AnnoAppl]

} deriving (Show, Eq)

data PropertyType = AnnoProperty

| OntoProperty deriving (Show,Eq)

data AnnoAppl = AnnoAppl SIMPLE_ID Id AnnoLiteral

deriving (Show,Eq)

data AnnoLiteral = AL_Term (TERM DL_FORMULA)

| AL_URI QName

| AL_Id Id

deriving (Show,Eq)

emptyCASL_DLSign :: CASL_DLSign

emptyCASL_DLSign = CASL_DLSign Map.empty []

addCASL_DLSign :: CASL_DLSign -> CASL_DLSign -> CASL_DLSign

addCASL_DLSign a b = a

{ annoProperties =

Map.unionWithKey (throwAnnoError "CASL_DL.Sign.addCASL_DLSign:")

(annoProperties a) (annoProperties b)

, annoPopertySens = union (annoPopertySens a) (annoPopertySens b)

}

throwAnnoError :: String -> SIMPLE_ID

-> PropertyType -> PropertyType -> PropertyType

throwAnnoError s k e1 e2 =

if e1 == e2

then e1

else error (s++" Annotation Properties and Ontology Properties \

\must have distinct names! ("++show k++")")

diffCASL_DLSign :: CASL_DLSign -> CASL_DLSign -> CASL_DLSign

diffCASL_DLSign a b = a

{ annoProperties = Map.difference (annoProperties a) (annoProperties b)

, annoPopertySens = (annoPopertySens a) \\ (annoPopertySens b)

}

isSubCASL_DLSign :: CASL_DLSign -> CASL_DLSign -> Bool

isSubCASL_DLSign a b =

Map.isSubmapOf (annoProperties a) (annoProperties b) &&

(annoPopertySens a `isSublistOf` annoPopertySens b)

instance Pretty CASL_DLSign where

pretty = text . show

isSublistOf :: (Eq a) => [a] -> [a] -> Bool

isSublistOf [] _ = True

isSublistOf _ [] = False

isSublistOf ys l@(_:l')

| length ys <= length l = (ys `isPrefixOf` l) || (ys `isSublistOf` l')

| otherwise = False