agda-spa/Main.agda

{-# OPTIONS --guardedness #-}
module Main where

open import Language hiding (_++_)
open import Data.Vec using (Vec; _∷_; [])
open import IO
open import Level using (0ℓ)
open import Data.String using (_++_)
import Analysis.Constant as ConstantAnalysis
import Analysis.Sign as SignAnalysis

testCode : Stmt
testCode =
    ⟨ "zero" ← (# 0) ⟩ then
    ⟨ "pos" ← ((` "zero") Expr.+ (# 1)) ⟩ then
    ⟨ "neg" ← ((` "zero") Expr.- (# 1)) ⟩ then
    ⟨ "unknown" ← ((` "pos") Expr.+ (` "neg")) ⟩

testCodeCond₁ : Stmt
testCodeCond₁ =
    ⟨ "var" ← (# 1) ⟩ then
    if (` "var") then (
        ⟨ "var" ← ((` "var") Expr.+ (# 1)) ⟩
    ) else (
        ⟨ "var" ← ((` "var") Expr.- (# 1)) ⟩ then
        ⟨ "var" ← (# 1) ⟩
    )

testCodeCond₂ : Stmt
testCodeCond₂ =
    ⟨ "var" ← (# 1) ⟩ then
    if (` "var") then (
        ⟨ "x" ← (# 1) ⟩
    ) else (
        ⟨ noop ⟩
    )

testProgram : Program
testProgram = record
    { rootStmt = testCode
    }

open SignAnalysis.WithProg testProgram using (analyze-correct) renaming (output to output-Sign)
open ConstantAnalysis.WithProg testProgram using (analyze-correct) renaming (output to output-Const)

main = run {0ℓ} (putStrLn (output-Const ++ "\n" ++ output-Sign))