From 11d0fb47c292a0ca25a9c377499d2b221d97a5cb Mon Sep 17 00:00:00 2001
From: Volpeon <github@volpeon.ink>
Date: Fri, 26 May 2023 07:40:13 +0200
Subject: Init

---
 src/Data/JLD/Model/ActiveContext.hs | 44 +++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 src/Data/JLD/Model/ActiveContext.hs

(limited to 'src/Data/JLD/Model/ActiveContext.hs')

diff --git a/src/Data/JLD/Model/ActiveContext.hs b/src/Data/JLD/Model/ActiveContext.hs
new file mode 100644
index 0000000..5423036
--- /dev/null
+++ b/src/Data/JLD/Model/ActiveContext.hs
@@ -0,0 +1,44 @@
+module Data.JLD.Model.ActiveContext ( ActiveContext (..), newActiveContext, lookupTerm, containsProtectedTerm,) where
+
+import Data.JLD.Prelude
+
+import Data.JLD.Model.Direction (Direction)
+import Data.JLD.Model.InverseContext (InverseContext)
+import Data.JLD.Model.Language (Language)
+import Data.JLD.Model.TermDefinition (TermDefinition (..))
+
+import Data.Map.Strict qualified as M (lookup)
+import Data.RDF (IRIRef)
+import Text.URI (URI)
+
+data ActiveContext = ActiveContext
+    { activeContextTerms :: Map Text TermDefinition
+    , activeContextBaseIri :: Maybe IRIRef
+    , activeContextBaseUrl :: Maybe URI
+    , activeContextInverseContext :: InverseContext
+    , activeContextPreviousContext :: Maybe ActiveContext
+    , activeContextVocabularyMapping :: Maybe Text
+    , activeContextDefaultLanguage :: Maybe Language
+    , activeContextDefaultBaseDirection :: Maybe Direction
+    }
+    deriving (Eq, Show)
+
+newActiveContext :: (ActiveContext -> ActiveContext) -> ActiveContext
+newActiveContext fn =
+    fn
+        ActiveContext
+            { activeContextTerms = mempty
+            , activeContextBaseIri = Nothing
+            , activeContextBaseUrl = Nothing
+            , activeContextInverseContext = mempty
+            , activeContextPreviousContext = Nothing
+            , activeContextVocabularyMapping = Nothing
+            , activeContextDefaultLanguage = Nothing
+            , activeContextDefaultBaseDirection = Nothing
+            }
+
+lookupTerm :: Text -> ActiveContext -> Maybe TermDefinition
+lookupTerm key ActiveContext{..} = M.lookup key activeContextTerms
+
+containsProtectedTerm :: ActiveContext -> Bool
+containsProtectedTerm = activeContextTerms .> any termDefinitionProtectedFlag
-- 
cgit v1.2.3-54-g00ecf