Use different graph operations to implement construction

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
2024-04-25 23:10:41 -07:00
parent b134c143ca
commit c00c8e3e85
4 changed files with 239 additions and 197 deletions
--- a/Language.agda
+++ b/Language.agda
@@ -52,20 +52,17 @@ record Program : Set where
    field
        rootStmt : Stmt

-    private
-        buildResult = buildCfg rootStmt empty
-
    graph : Graph
-    graph = proj₁ buildResult
+    graph = buildCfg rootStmt

    State : Set
    State = Graph.Index graph

    initialState : State
-    initialState = Utils.proj₁ (proj₁ (proj₂ buildResult))
+    initialState = proj₁ (buildCfg-input rootStmt)

    finalState : State
-    finalState = Utils.proj₂ (proj₁ (proj₂ buildResult))
+    finalState = proj₁ (buildCfg-output rootStmt)

    private
        vars-Set : StringSet