26 lines
538 B
Plaintext
26 lines
538 B
Plaintext
|
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)
|