improve LDContext Dictionary access speed

Author: HLWeil

src/Core/Helper/Collections.fs

@@ -88,6 +88,32 @@ module Dictionary =
             )
         dict
 
+
+module StringDictionary = 
+
+    open System.Collections.Generic
+
+    let ofSeq (s : seq<string*string>) : Dictionary<string,string> = 
+        s
+        |> dict
+        #if !FABLE_COMPILER
+        |> Dictionary
+        #else 
+        |> unbox
+        #endif
+
+    let inline tryFind (key : string) (dict : Dictionary<string,'T>) =
+        let b,v = dict.TryGetValue key
+        if b then Some v 
+        else None
+
+    let inline addOrUpdate (key : string) (value : 'T) (dict : Dictionary<string,'T>) =
+        if dict.ContainsKey key then
+            dict.[key] <- value
+        else
+            dict.Add(key,value)
+
+
 module ResizeArray =  
 
     open System.Collections.Generic

src/Json/StringTable.fs

@@ -1,4 +1,4 @@
-namespace rec ARCtrl.Json
+namespace rec ARCtrl.Json
 
 open Thoth.Json.Core
 
@@ -27,7 +27,7 @@ module StringTable =
         Decode.array Decode.string
 
     let encodeString (otm : StringTableMap) (s : string) =
-        match Dictionary.tryFind s otm with
+        match StringDictionary.tryFind s otm with
         | Some i -> Encode.int i
         | None ->
             let i = otm.Count

src/ROCrate/LDContext.fs

@@ -4,19 +4,6 @@ open System.Collections.Generic
 open ARCtrl.Helper
 open Fable.Core
 
-module Dictionary = 
-
-    let ofSeq (s : seq<'Key*'T>) = 
-        let dict = Dictionary()
-        s
-        |> Seq.iter dict.Add
-        dict
-
-    let tryFind (key : 'Key) (dict : Dictionary<'Key,'T>) =
-        let b,v = dict.TryGetValue key
-        if b then Some v 
-        else None
-
 module IRIHelper =
 
     open ARCtrl.Helper.Regex
@@ -67,28 +54,28 @@ type LDContext(?mappings : Dictionary<string,string>, ?baseContexts : ResizeArra
     let compactReverseMappings : Dictionary<string,string*string> = Dictionary()
 
     let addReverseMapping (key : string) (value : string) =
-        Dictionary.addOrUpdate value key reverseMappings
+        StringDictionary.addOrUpdate value key reverseMappings
         match value with
         | IRIHelper.CompactIri (prefix,suffix) ->
-            Dictionary.addOrUpdate prefix (suffix,key) compactReverseMappings
-            match Dictionary.tryFind prefix mappings with
+            StringDictionary.addOrUpdate prefix (suffix,key) compactReverseMappings
+            match StringDictionary.tryFind prefix mappings with
             | Some prefix ->
                 let iri = IRIHelper.combine prefix suffix
-                Dictionary.addOrUpdate iri key reverseMappings
+                StringDictionary.addOrUpdate iri key reverseMappings
             | None -> ()
         | _ ->
-            match Dictionary.tryFind key compactReverseMappings with
+            match StringDictionary.tryFind key compactReverseMappings with
             | Some (suffix,term) ->
                 let iri = IRIHelper.combine value suffix
-                Dictionary.addOrUpdate iri term reverseMappings
+                StringDictionary.addOrUpdate iri term reverseMappings
             | None -> ()
 
     do for kvp in mappings do
         addReverseMapping kvp.Key kvp.Value
 
     let rec tryFindTerm (term : string) : string option =
         let definition = 
-            match Dictionary.tryFind term mappings with
+            match StringDictionary.tryFind term mappings with
             | Some v -> Some v
             | None ->
                 baseContexts
@@ -103,7 +90,7 @@ type LDContext(?mappings : Dictionary<string,string>, ?baseContexts : ResizeArra
         | None -> None
 
     let tryFindIri (iri : string) =
-        match Dictionary.tryFind iri reverseMappings with
+        match StringDictionary.tryFind iri reverseMappings with
         | Some v -> Some v
         | None -> 
             baseContexts
@@ -124,7 +111,7 @@ type LDContext(?mappings : Dictionary<string,string>, ?baseContexts : ResizeArra
         and set(value) = name <- value
 
     member this.AddMapping(term,definition) =
-        Dictionary.addOrUpdate term definition mappings
+        StringDictionary.addOrUpdate term definition mappings
         addReverseMapping term definition
 
     member this.TryResolveTerm(term : string) =
@@ -151,7 +138,7 @@ type LDContext(?mappings : Dictionary<string,string>, ?baseContexts : ResizeArra
             | _ -> false
 
     static member fromMappingSeq(mappings : seq<string*string>) =
-        LDContext(Dictionary.ofSeq mappings)
+        LDContext(StringDictionary.ofSeq mappings)
 
     /// Append first context as base context to the second one inplace
     static member combine_InPlace (baseContext : LDContext) (specificContext : LDContext) : LDContext =