1 files changed, 51 insertions, 0 deletions
diff --git a/src/SomhairlesDream.Cli/Program.fs b/src/SomhairlesDream.Cli/Program.fs
new file mode 100644
index 0000000..0d9ed1c
--- /dev/null
+++ b/src/SomhairlesDream.Cli/Program.fs
@@ -0,0 +1,51 @@
+namespace SomhairlesDream.Cli
+
+open System
+open System.IO
+open SomhairlesDream.Modeling
+
+module Program =
+    let private bridgeFailure (message: string) =
+        message.StartsWith("blender bridge:", StringComparison.OrdinalIgnoreCase)
+
+    let private run options =
+        let bridge = BlenderProcessBridge(options.Python, options.StageRoot) :> IArtifactBridge
+
+        let pipelineOptions : PipelineOptions =
+            { ArtifactRoot = options.OutputRoot
+              Ids = options.Ids
+              Render = options.Render
+              Bridge = bridge
+              Clock = fun () -> DateTimeOffset.UtcNow
+              OnEvent = ignore }
+
+        match Pipeline.run pipelineOptions with
+        | Ok _ ->
+            let manifestPath = Path.Combine(options.OutputRoot, options.Ids.ProjectId, options.Ids.RunId, "manifest.json")
+            printfn "%s" (Path.GetFullPath(manifestPath))
+            0
+        | Error message ->
+            eprintfn "%s" message
+            if bridgeFailure message then 3 else 4
+
+    let private verify path =
+        match ArtifactVerifier.verify path with
+        | Ok _ ->
+            printfn "%s" (Path.GetFullPath(path))
+            0
+        | Error message ->
+            eprintfn "%s" message
+            4
+
+    [<EntryPoint>]
+    let main argv =
+        match Arguments.parse argv with
+        | Ok Help ->
+            printfn "%s" Arguments.usage
+            0
+        | Ok(Run options) -> run options
+        | Ok(Verify path) -> verify path
+        | Error message ->
+            eprintfn "%s" message
+            eprintfn "%s" Arguments.usage
+            2