Get everything compiling
Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
parent
44f04e4020
commit
8dc5c40eae
|
@ -37,6 +37,7 @@ data BasicStmt : Set where
|
|||
_←_ : String → Expr → BasicStmt
|
||||
noop : BasicStmt
|
||||
|
||||
infixr 2 _then_
|
||||
data Stmt : Set where
|
||||
⟨_⟩ : BasicStmt → Stmt
|
||||
_then_ : Stmt → Stmt → Stmt
|
||||
|
|
14
Main.agda
14
Main.agda
|
@ -6,18 +6,16 @@ open import Data.Vec using (Vec; _∷_; [])
|
|||
open import IO
|
||||
open import Level using (0ℓ)
|
||||
|
||||
testCode : Vec Stmt _
|
||||
testCode : Stmt
|
||||
testCode =
|
||||
("zero" ← (# 0)) ∷
|
||||
("pos" ← ((` "zero") Expr.+ (# 1))) ∷
|
||||
("neg" ← ((` "zero") Expr.- (# 1))) ∷
|
||||
("unknown" ← ((` "pos") Expr.+ (` "neg"))) ∷
|
||||
[]
|
||||
⟨ "zero" ← (# 0) ⟩ then
|
||||
⟨ "pos" ← ((` "zero") Expr.+ (# 1)) ⟩ then
|
||||
⟨ "neg" ← ((` "zero") Expr.- (# 1)) ⟩ then
|
||||
⟨ "unknown" ← ((` "pos") Expr.+ (` "neg")) ⟩
|
||||
|
||||
testProgram : Program
|
||||
testProgram = record
|
||||
{ length = _
|
||||
; stmts = testCode
|
||||
{ rootStmt = testCode
|
||||
}
|
||||
|
||||
open WithProg testProgram using (output)
|
||||
|
|
Loading…
Reference in New Issue
Block a user