summaryrefslogtreecommitdiff
path: root/src/SomhairlesDream.Cli/Program.fs
diff options
context:
space:
mode:
authorSomhairle H. Marisol <[email protected]>2026-09-21 00:58:15 +0800
committerSomhairle H. Marisol <[email protected]>2026-09-21 00:58:15 +0800
commit7b29dbff7e43e87741476f47df17ad1582b16546 (patch)
tree4c9d0832b4e4edd77e59e9cb0a88abf5e729a9f9 /src/SomhairlesDream.Cli/Program.fs
parent47add3088d50f12c5f48591f26c53cdb59d8283b (diff)
downloadsomhairles-dream-fsharp-7b29dbff7e43e87741476f47df17ad1582b16546.tar.gz
feat(pipeline): add runnable artifact pipeline increment
[Change Nature] - This commit adds the first runnable increment of the F# artifact pipeline: CLI, server, frontend bundle, stage fixture, and tests. It is feature work, not a bug fix. [New Capability] - CLI `run` executes the three-step Blender fixture through the process bridge and writes GLBs, step logs, events, and a manifest; `verify` validates a manifest without Blender. - Server exposes run start, run-scoped SSE, artifact manifest/file routes, and serves the Fable frontend from its build output. - Frontend starts runs, follows run-scoped SSE progress, and links the artifact manifest on completion. [Implementation] - Shared layer holds domain, run state, replay, and artifact contracts; Modeling holds the pipeline, 120s bridge timeout, and result-file protocol; stage/blender/fixture.py owns geometry in Python (bpy owns geometry, F# owns orchestration). - Fable bundle is regenerated into public/ and copied by the server project; solution includes all projects with warnings-as-errors. - README documents build, Fable, server, interpreter/env, fixture limitations, and current verification status. [Impact] - Verified: 40/40 solution tests pass; Release build 0 warnings/errors; real CLI run with bpy 5.0.1 produced 3 GLBs, 3 logs, and a verify-clean manifest; isolated-port server smoke flow succeeded. - Not yet verified: browser end-to-end behavior and production fidelity. Artifacts and caches are gitignored.
Diffstat (limited to 'src/SomhairlesDream.Cli/Program.fs')
-rw-r--r--src/SomhairlesDream.Cli/Program.fs51
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