Add fromOboEntries function to OboOntology type

playground.fsx

@@ -2,6 +2,7 @@
 #r "FsOboParser.dll"
 
 #r "nuget: IsaDotNet"
+//#r "nuget: FsOboParser"
 
 open FsOboParser
 
@@ -10,7 +11,7 @@ open System.IO
 
 let testPath = Path.Combine(__SOURCE_DIRECTORY__,  "./../../nfdi4plants/arc-validate/ErrorClassOntology.obo")
 
-OboEntries.fromFile true testPath
+//OboEntries.fromFile true testPath
 let testOntology = OboOntology.fromFile true testPath
 
 let testTerms = [
@@ -26,6 +27,13 @@ testOntology.GetChildOntologyAnnotations(testTerms.Head.Id)
 testOntology.GetChildOntologyAnnotations(testTerms.Head.Id, Depth = 1)
 testOntology.GetChildOntologyAnnotations(testTerms.Head.Id, Depth = 2)
 
+let performanceTerms = List.init 7000000 (fun i -> OboTerm.Create($"lol:{i}"))
+let performanceOboOntology = OboOntology.create performanceTerms []
+OboOntology.toFile @"C:\Repos\CSBiology\FsOboParser\performanceOntology.obo" performanceOboOntology
+
+let x = OboOntology.fromFile false @"C:\Repos\CSBiology\FsOboParser\performanceOntology.obo"
+
+
 //let fileLines = File.ReadAllLines testPath
 
 //OboTerm.fromLines true ((fileLines |> Seq.ofArray).GetEnumerator()) 0

src/FsOboParser/FastOboGraph.fs

@@ -1,6 +1,7 @@
 namespace FsOboParser
 
-//open OboTerm
+
+//open type OboTerm
 
 
 ////########################################

src/FsOboParser/OboOntology.fs

@@ -45,6 +45,21 @@ type OboOntology =
         System.IO.File.ReadAllLines path
         |> OboOntology.fromLines verbose
 
+    /// Takes a list of OboEntries and returns the OboOntology based on it.
+    static member fromOboEntries entries =
+
+        let rec loop terms typedefs entries =
+            match entries with
+            | h :: t ->
+                match h with
+                | Term term         -> loop (term :: terms) typedefs t
+                | TypeDef typedef   -> loop terms (typedef :: typedefs) t
+            | [] -> terms, typedefs
+
+        let terms, typedefs = loop [] [] entries
+
+        OboOntology.create terms typedefs
+
     /// Writes an OBO Ontology to term and type def stanzas in line form.
     static member toLines (oboOntology : OboOntology) =
         seq {