feat: application/ld+json.GetLexicon() ( Fixes #22 )

Author: StartAutomating

JSON-LD.types.ps1xml

@@ -102,6 +102,44 @@ foreach ($rdfProperty in $graphTypes['rdf:property']) {
 $jsonSchema
 
 
+                    </Script>
+      </ScriptMethod>
+      <ScriptMethod>
+        <Name>GetLexicon</Name>
+        <Script>
+                        
+param($graph = $this)
+
+$jsonSchema = $this.GetJsonSchema($graph)
+if (-not $jsonSchema.'$id') {
+    throw "Missing $jsonSchema.$id"
+    return
+}
+
+$domain, $relativePath = $jsonSchema.'$id' -replace '^$' -split '/'
+if (-not $domain) { return}
+if (-not $relativePath ) { return }
+$domain = @($domain -split '\.')
+[Array]::Reverse($domain)
+$nsid = $domain, $relativePath -join '.'
+
+
+$jsonSchema.psobject.properties.Remove('$id')
+
+[Ordered]@{
+    lexicon = 1
+    id = $nsid
+    defs = [Ordered]@{
+        main = [Ordered]@{
+            type = 'record'
+            description = $jsonSchema.description
+            record = $jsonSchema
+        }
+    }
+}
+
+
+
                     </Script>
       </ScriptMethod>
     </Members>