splitted idls + simple merging

microsoft · Jan 21, 2018 · 4a784fd · 4a784fd
1 parent 88ca7ea
commit 4a784fd
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/TS.fsx b/TS.fsx
@@ -143,7 +143,15 @@ module InputIdlJson =
     type InputIdlJsonType = JsonProvider<"inputfiles/sample.webidl.json">
 
     let inputIdl =
-        File.ReadAllText(GlobalVars.inputFolder + @"/browser.webidl.json") |> InputIdlJsonType.Parse
+        let jsons = 
+            DirectoryInfo(GlobalVars.inputFolder + @"/idls").GetFiles()
+            |> Array.map (fun file -> file.FullName |> File.ReadAllText |> InputIdlJsonType.Parse)
+
+        let inline extractJsonArray f =
+            jsons |> Array.collect f |> Array.map (fun item -> (^a: (member JsonValue: JsonValue) item)) |> JsonValue.Array;
+
+        let list = [| ("typedefs", extractJsonArray (fun json -> json.Typedefs)) |]
+        InputIdlJsonType.Root(JsonValue.Record list)
 
     let allTypedefsMap =
         inputIdl.Typedefs |> toNameMap

diff --git a/inputfiles/browser.webidl.json → inputfiles/idls/Web IDL.webidl.json b/inputfiles/browser.webidl.json → inputfiles/idls/Web IDL.webidl.json