Parse branches

2025-09-07 22:15:25 -06:00
parent 43107e7435
commit 46f2bbcc9b
5 changed files with 136 additions and 54 deletions
--- a/ldtext/LDText.fs
+++ b/ldtext/LDText.fs
@@ -1,13 +1,20 @@
 module LDText

 module Ast =
-    type Rung = Step list
+    type Rung =
+        | Rung of Step list

    and Instr = { Op: string; Args: Operand list }

+    and BranchArm =
+        | BranchArm of Step list
+
+    and Branch =
+        | Branch of BranchArm list
+
    and Step =
        | StepInstr of Instr
-        | StepBranch of Step list
+        | StepBranch of Branch

    and Operand =
        | OperandHole