26 lines
538 B
Agda
26 lines
538 B
Agda
module Main where
|
||
|
||
open import Language
|
||
open import Analysis.Sign
|
||
open import Data.Vec using (Vec; _∷_; [])
|
||
open import IO
|
||
open import Level using (0ℓ)
|
||
|
||
testCode : Vec Stmt _
|
||
testCode =
|
||
("zero" ← (# 0)) ∷
|
||
("pos" ← ((` "zero") Expr.+ (# 1))) ∷
|
||
("neg" ← ((` "zero") Expr.- (# 1))) ∷
|
||
("unknown" ← ((` "pos") Expr.+ (` "neg"))) ∷
|
||
[]
|
||
|
||
testProgram : Program
|
||
testProgram = record
|
||
{ length = _
|
||
; stmts = testCode
|
||
}
|
||
|
||
open WithProg testProgram using (output)
|
||
|
||
main = run {0ℓ} (putStrLn output)
|