add toJsonString extensions members

HLWeil · HLWeil · commit ab3898052db8 · 2024-06-14T11:20:23.000+02:00
diff --git a/src/Json/Assay.fs b/src/Json/Assay.fs
@@ -176,6 +176,9 @@ module AssayExtensions =
                 Assay.encoder obj
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
+        member this.ToJsonString(?spaces) = 
+            ArcAssay.toJsonString(?spaces=spaces) this
+
         static member fromCompressedJsonString (s: string) =
             try Decode.fromJsonString (Compression.decode Assay.decoderCompressed) s with
             | e -> failwithf "Error. Unable to parse json string to ArcStudy: %s" e.Message
@@ -185,6 +188,9 @@ module AssayExtensions =
                 let spaces = defaultArg spaces 0
                 Encode.toJsonString spaces (Compression.encode Assay.encoderCompressed obj)
 
+        member this.ToCompressedJsonString(?spaces) = 
+            ArcAssay.toCompressedJsonString(?spaces=spaces) this
+
         static member fromROCrateJsonString (s:string) = 
             Decode.fromJsonString Assay.ROCrate.decoder s
 
@@ -194,10 +200,16 @@ module AssayExtensions =
                 Assay.ROCrate.encoder studyName obj
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
+        member this.ToROCrateJsonString(?studyName, ?spaces) = 
+            ArcAssay.toROCrateJsonString(?studyName=studyName, ?spaces=spaces) this
+
         static member toISAJsonString(?spaces) =
             fun (obj:ArcAssay) ->
                 Assay.ISAJson.encoder obj
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
         static member fromISAJsonString (s:string) = 
-            Decode.fromJsonString Assay.ISAJson.decoder s
+            Decode.fromJsonString Assay.ISAJson.decoder s
+
+        member this.ToISAJsonString(?spaces) =
+            ArcAssay.toISAJsonString(?spaces=spaces) this
diff --git a/src/Json/Comment.fs b/src/Json/Comment.fs
@@ -74,6 +74,9 @@ module CommentExtensions =
                 Comment.encoder c
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)                  
 
+        member this.toJsonString(?spaces) = 
+            Comment.toJsonString(?spaces=spaces) this
+
         static member fromROCrateJsonString (s:string) = 
             Decode.fromJsonString Comment.ROCrate.decoder s
 
@@ -83,14 +86,19 @@ module CommentExtensions =
                 Comment.ROCrate.encoder c
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
+        member this.toROCrateJsonString(?spaces) = 
+            Comment.toROCrateJsonString(?spaces=spaces) this
+
+        static member fromISAJsonString (s:string) = 
+            Decode.fromJsonString Comment.ISAJson.decoder s
+
         static member toISAJsonString(?spaces) =
             fun (c:Comment) ->
                 Comment.ISAJson.encoder c
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
-        static member fromISAJsonString (s:string) = 
-            Decode.fromJsonString Comment.ISAJson.decoder s
-
+        member this.toISAJsonString(?spaces) =
+            Comment.toISAJsonString(?spaces=spaces) this
     //let fromFile (path : string) = 
     //    File.ReadAllText path 
     //    |> fromString
diff --git a/src/Json/Investigation.fs b/src/Json/Investigation.fs
@@ -224,6 +224,9 @@ module InvestigationExtensions =
                 Investigation.encoder obj
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)                  
 
+        member this.ToJsonString(?spaces) = 
+            ArcInvestigation.toJsonString(?spaces=spaces) this
+
         static member fromCompressedJsonString (s: string) =
             try Decode.fromJsonString (Compression.decode Investigation.decoderCompressed) s with
             | e -> failwithf "Error. Unable to parse json string to ArcStudy: %s" e.Message
@@ -233,6 +236,9 @@ module InvestigationExtensions =
                 let spaces = defaultArg spaces 0
                 Encode.toJsonString spaces (Compression.encode Investigation.encoderCompressed obj)
 
+        member this.ToCompressedJsonString(?spaces) = 
+            ArcInvestigation.toCompressedJsonString(?spaces=spaces) this
+
         static member fromROCrateJsonString (s:string) = 
             Decode.fromJsonString Investigation.ROCrate.decoder s
 
@@ -242,10 +248,16 @@ module InvestigationExtensions =
                 Investigation.ROCrate.encoder obj
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
+        member this.ToROCrateJsonString(?spaces) = 
+            ArcInvestigation.toROCrateJsonString(?spaces=spaces) this
+
         static member toISAJsonString(?spaces) =
             fun (obj:ArcInvestigation) ->
                 Investigation.ISAJson.encoder obj
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
         static member fromISAJsonString (s:string) = 
-            Decode.fromJsonString Investigation.ISAJson.decoder s
+            Decode.fromJsonString Investigation.ISAJson.decoder s
+
+        member this.ToISAJsonString(?spaces) =
+            ArcInvestigation.toISAJsonString(?spaces=spaces) this
diff --git a/src/Json/OntologyAnnotation.fs b/src/Json/OntologyAnnotation.fs
@@ -141,6 +141,9 @@ module OntologyAnnotationExtensions =
                 OntologyAnnotation.encoder obj
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)                  
 
+        member this.ToJsonString(?spaces) =
+            OntologyAnnotation.toJsonString(?spaces=spaces) this
+
         static member fromROCrateJsonString (s:string) = 
             Decode.fromJsonString OntologyAnnotation.ROCrate.decoderDefinedTerm s
 
@@ -150,10 +153,16 @@ module OntologyAnnotationExtensions =
                 OntologyAnnotation.ROCrate.encoderDefinedTerm obj
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
+        member this.ToROCrateJsonString(?spaces) =
+            OntologyAnnotation.toROCrateJsonString(?spaces=spaces) this
+
+        static member fromISAJsonString (s:string) = 
+            Decode.fromJsonString OntologyAnnotation.ISAJson.decoder s
+
         static member toISAJsonString(?spaces) =
             fun (obj:OntologyAnnotation) ->
                 OntologyAnnotation.ISAJson.encoder obj
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
-        static member fromISAJsonString (s:string) = 
-            Decode.fromJsonString OntologyAnnotation.ISAJson.decoder s
+        member this.ToISAJsonString(?spaces) =
+            OntologyAnnotation.toISAJsonString(?spaces=spaces) this
diff --git a/src/Json/OntologySourceReference.fs b/src/Json/OntologySourceReference.fs
@@ -82,6 +82,9 @@ module OntologySourceReferenceExtensions =
                 OntologySourceReference.encoder obj
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)                  
 
+        member this.ToJsonString(?spaces) =
+            OntologySourceReference.toJsonString(?spaces=spaces) this
+
         static member fromROCrateJsonString (s:string) = 
             Decode.fromJsonString OntologySourceReference.ROCrate.decoder s
 
@@ -91,10 +94,16 @@ module OntologySourceReferenceExtensions =
                 OntologySourceReference.ROCrate.encoder obj
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
+        member this.ToROCrateJsonString(?spaces) =
+            OntologySourceReference.toROCrateJsonString(?spaces=spaces) this
+
+        static member fromISAJsonString (s:string) = 
+            Decode.fromJsonString OntologySourceReference.ISAJson.decoder s
+
         static member toISAJsonString(?spaces) =
             fun (obj:OntologySourceReference) ->
                 OntologySourceReference.ISAJson.encoder obj
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
-        static member fromISAJsonString (s:string) = 
-            Decode.fromJsonString OntologySourceReference.ISAJson.decoder s
+        member this.ToISAJsonString(?spaces) =
+            OntologySourceReference.toISAJsonString(?spaces=spaces) this
diff --git a/src/Json/Person.fs b/src/Json/Person.fs
@@ -209,6 +209,9 @@ module PersonExtensions =
                 Person.encoder obj
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)                  
 
+        member this.toJsonString(?spaces) =
+            Person.toJsonString(?spaces=spaces) this
+
         static member fromROCrateJsonString (s:string) = 
             Decode.fromJsonString Person.ROCrate.decoder s
 
@@ -218,10 +221,16 @@ module PersonExtensions =
                 Person.ROCrate.encoder obj
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
+        member this.toROCrateJsonString(?spaces) =
+            Person.toROCrateJsonString(?spaces=spaces) this
+
+        static member fromISAJsonString (s:string) = 
+            Decode.fromJsonString Person.ISAJson.decoder s
+
         static member toISAJsonString(?spaces) =
             fun (obj:Person) ->
                 Person.ISAJson.encoder obj
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
-        static member fromISAJsonString (s:string) = 
-            Decode.fromJsonString Person.ISAJson.decoder s
+        member this.toISAJsonString(?spaces) =
+            Person.toISAJsonString(?spaces=spaces) this
diff --git a/src/Json/Process/Component.fs b/src/Json/Process/Component.fs
@@ -55,10 +55,16 @@ module ComponentExtensions =
                 Component.ISAJson.encoder f
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
+        member this.toISAJsonString(?spaces) =
+            Component.toISAJsonString(?spaces=spaces) this
+
         static member fromROCrateJsonString (s:string) =
             Decode.fromJsonString Component.ROCrate.decoder s
 
         static member toROCrateJsonString(?spaces) =
             fun (f:Component) ->
                 Component.ROCrate.encoder f
-                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+
+        member this.toROCrateJsonString(?spaces) =
+            Component.toROCrateJsonString(?spaces=spaces) this
diff --git a/src/Json/Process/Data.fs b/src/Json/Process/Data.fs
@@ -139,10 +139,16 @@ module DataExtensions =
                 Data.ISAJson.encoder f
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
+        member this.toISAJsonString(?spaces) = 
+            Data.toISAJsonString(?spaces=spaces) this
+
         static member fromROCrateJsonString (s:string) =
             Decode.fromJsonString Data.ROCrate.decoder s
 
         static member toROCrateJsonString(?spaces) =
             fun (f:Data) ->
                 Data.ROCrate.encoder f
-                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+
+        member this.toROCrateJsonString(?spaces) =
+            Data.toROCrateJsonString(?spaces=spaces) this
diff --git a/src/Json/Process/DataFile.fs b/src/Json/Process/DataFile.fs
@@ -52,10 +52,16 @@ module DataFileExtensions =
                 DataFile.ISAJson.encoder f
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
+        member this.ToISAJsonString(?spaces) =
+            DataFile.toISAJsonString(?spaces=spaces) this
+
         static member fromROCrateJsonString (s:string) =
             Decode.fromJsonString DataFile.ROCrate.decoder s
 
         static member toROCrateJsonString(?spaces) =    
             fun (f:DataFile) ->
                 DataFile.ROCrate.encoder f
-                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+
+        member this.ToROCrateJsonString(?spaces) =
+            DataFile.toROCrateJsonString(?spaces=spaces) this
diff --git a/src/Json/Process/Factor.fs b/src/Json/Process/Factor.fs
@@ -42,3 +42,6 @@ module FactorExtensions =
             fun (f:Factor) ->
                 Factor.ISAJson.encoder f
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
+
+        member this.ToISAJsonString(?spaces) =
+            Factor.toISAJsonString(?spaces=spaces) this
diff --git a/src/Json/Process/FactorValue.fs b/src/Json/Process/FactorValue.fs
@@ -52,4 +52,7 @@ module FactorValueExtensions =
         static member toISAJsonString(?spaces) =
             fun (f:FactorValue) ->
                 FactorValue.ISAJson.encoder f
-                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+
+        member this.ToISAJsonString(?spaces) =
+            FactorValue.toISAJsonString(?spaces=spaces) this
diff --git a/src/Json/Process/Material.fs b/src/Json/Process/Material.fs
@@ -83,10 +83,16 @@ module MaterialExtensions =
                 Material.ISAJson.encoder f
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
+        member this.ToISAJsonString(?spaces) =
+            Material.toISAJsonString(?spaces=spaces) this
+
         static member fromROCrateJsonString (s:string) =
             Decode.fromJsonString Material.ROCrate.decoder s
 
         static member toROCrateJsonString(?spaces) =
             fun (f:Material) ->
                 Material.ROCrate.encoder f
-                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+
+        member this.ToROCrateJsonString(?spaces) =
+            Material.toROCrateJsonString(?spaces=spaces) this
diff --git a/src/Json/Process/MaterialAttribute.fs b/src/Json/Process/MaterialAttribute.fs
@@ -37,3 +37,6 @@ module MaterialAttributeExtensions =
                 fun (v:MaterialAttribute) ->
                     MaterialAttribute.ISAJson.encoder v
                     |> Encode.toJsonString (Encode.defaultSpaces spaces)
+
+            member this.ToJsonString(?spaces) =
+                MaterialAttribute.toISAJsonString(?spaces=spaces) this
diff --git a/src/Json/Process/MaterialAttributeValue.fs b/src/Json/Process/MaterialAttributeValue.fs
@@ -51,10 +51,16 @@ module MaterialAttributeValueExtensions =
                 MaterialAttributeValue.ISAJson.encoder f
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
+        member this.ToISAJsonString(?spaces) =
+            MaterialAttributeValue.toISAJsonString(?spaces=spaces) this
+
         static member fromROCrateJsonString (s:string) = 
             Decode.fromJsonString MaterialAttributeValue.ROCrate.decoder s
 
         static member toROCrateJsonString(?spaces) =
             fun (f:MaterialAttributeValue) ->
                 MaterialAttributeValue.ROCrate.encoder f
-                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+
+        member this.ToROCrateJsonString(?spaces) =
+            MaterialAttributeValue.toROCrateJsonString(?spaces=spaces) this
diff --git a/src/Json/Process/MaterialType.fs b/src/Json/Process/MaterialType.fs
@@ -45,4 +45,7 @@ module MaterialTypeExtensions =
         static member toISAJsonString(?spaces) =
             fun (f:MaterialType) ->
                 MaterialType.ISAJson.encoder f
-                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+
+        member this.ToISAJsonString(?spaces) =
+            MaterialType.toISAJsonString(?spaces=spaces) this
diff --git a/src/Json/Process/Process.fs b/src/Json/Process/Process.fs
@@ -101,10 +101,16 @@ module ProcessExtensions =
                 Process.ISAJson.encoder f
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
+        member this.ToISAJsonString(?spaces) =
+            Process.toISAJsonString(?spaces=spaces) this
+
         static member fromROCrateString (s:string) =
             Decode.fromJsonString Process.ROCrate.decoder s
 
         static member toROCrateString(?studyName:string,?assayName:string,?spaces) =
             fun (f:Process) ->
                 Process.ROCrate.encoder studyName assayName f
-                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+
+        member this.ToROCrateString(?studyName:string,?assayName:string,?spaces) =
+            Process.toROCrateString(?studyName=studyName,?assayName=assayName,?spaces=spaces) this
diff --git a/src/Json/Process/ProcessInput.fs b/src/Json/Process/ProcessInput.fs
@@ -60,4 +60,7 @@ module ProcessInputExtensions =
         static member toISAJsonString(?spaces) =
             fun (f:ProcessInput) ->
                 ProcessInput.ISAJson.encoder f
-                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+
+        member this.ToISAJsonString(?spaces) =
+            ProcessInput.toISAJsonString(?spaces=spaces) this
diff --git a/src/Json/Process/ProcessOutput.fs b/src/Json/Process/ProcessOutput.fs
@@ -57,10 +57,16 @@ module ProcessOutputExtensions =
                 ProcessOutput.ISAJson.encoder f
                 |> Encode.toJsonString (Encode.defaultSpaces spaces)
 
+        member this.toISAJsonString(?spaces) = 
+            ProcessOutput.toISAJsonString(?spaces=spaces) this
+
         static member fromROCrateJsonString (s:string) =
             Decode.fromJsonString ProcessOutput.ROCrate.decoder s
 
         static member toROCrateJsonString(?spaces) =
             fun (f:ProcessOutput) ->
                 ProcessOutput.ROCrate.encoder f
-                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+                |> Encode.toJsonString (Encode.defaultSpaces spaces)
+
+        member this.toROCrateJsonString(?spaces) =
+            ProcessOutput.toROCrateJsonString(?spaces=spaces) this
diff --git a/src/Json/Process/ProcessParameterValue.fs b/src/Json/Process/ProcessParameterValue.fs
diff --git a/src/Json/Process/Protocol.fs b/src/Json/Process/Protocol.fs
diff --git a/src/Json/Process/ProtocolParameter.fs b/src/Json/Process/ProtocolParameter.fs
diff --git a/src/Json/Process/Sample.fs b/src/Json/Process/Sample.fs
diff --git a/src/Json/Process/Source.fs b/src/Json/Process/Source.fs
diff --git a/src/Json/Publication.fs b/src/Json/Publication.fs
diff --git a/src/Json/Study.fs b/src/Json/Study.fs
diff --git a/src/Json/Table/Templates.fs b/src/Json/Table/Templates.fs
