Get everything compiling

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
Danila Fedorin 2024-04-13 14:13:44 -07:00
parent 44f04e4020
commit 8dc5c40eae
2 changed files with 7 additions and 8 deletions

View File

@ -37,6 +37,7 @@ data BasicStmt : Set where
_←_ : String Expr BasicStmt _←_ : String Expr BasicStmt
noop : BasicStmt noop : BasicStmt
infixr 2 _then_
data Stmt : Set where data Stmt : Set where
⟨_⟩ : BasicStmt Stmt ⟨_⟩ : BasicStmt Stmt
_then_ : Stmt Stmt Stmt _then_ : Stmt Stmt Stmt

View File

@ -6,18 +6,16 @@ open import Data.Vec using (Vec; _∷_; [])
open import IO open import IO
open import Level using (0) open import Level using (0)
testCode : Vec Stmt _ testCode : Stmt
testCode = testCode =
("zero" (# 0)) "zero" (# 0) then
("pos" ((` "zero") Expr.+ (# 1))) "pos" ((` "zero") Expr.+ (# 1)) then
("neg" ((` "zero") Expr.- (# 1))) "neg" ((` "zero") Expr.- (# 1)) then
("unknown" ((` "pos") Expr.+ (` "neg"))) "unknown" ((` "pos") Expr.+ (` "neg"))
[]
testProgram : Program testProgram : Program
testProgram = record testProgram = record
{ length = _ { rootStmt = testCode
; stmts = testCode
} }
open WithProg testProgram using (output) open WithProg testProgram using (output)