From 904924c33720c3481f738966f32e9c34736f92cf Mon Sep 17 00:00:00 2001
From: Chloe Brown <chloe.brown.00@outlook.com>
Date: Tue, 10 Aug 2021 19:11:38 +0100
Subject: Rewrite so only valid modules can be constructed.

---
 src/Wasm/Validation/Context.agda | 63 ----------------------------------------
 1 file changed, 63 deletions(-)
 delete mode 100644 src/Wasm/Validation/Context.agda

(limited to 'src/Wasm/Validation/Context.agda')

diff --git a/src/Wasm/Validation/Context.agda b/src/Wasm/Validation/Context.agda
deleted file mode 100644
index f7c2564..0000000
--- a/src/Wasm/Validation/Context.agda
+++ /dev/null
@@ -1,63 +0,0 @@
-{-# OPTIONS --without-K --safe #-}
-
-------------------------------------------------------------------------
--- Type Context
-
-module Wasm.Validation.Context where
-
-open import Data.Fin using (Fin; toℕ; fromℕ<)
-open import Data.List using (List; length; lookup)
-open import Data.Maybe using (Maybe; just; nothing)
-open import Data.Nat using (_<?_; _^_)
-open import Data.Unit using (⊤)
-open import Relation.Nullary using (yes; no)
-open import Wasm.Constants
-open import Wasm.Expression.Types
-open import Wasm.Expression.Utilities using (module Indices)
-
-record Context : Set where
-  field
-    types : List FuncType
-    funcs : List FuncType
-    tables : List TableType
-    mems   : List MemType
-    globals : List GlobalType
-    elems   : List RefType
-    datas   : List ⊤
-    locals  : List ValType
-    labels  : List ResultType
-    return  : Maybe ResultType
-    refs    : List Indices.FuncIdx
-
-  private
-    get : ∀ {A} → List A → Fin 2^32 → Maybe A
-    get xs idx with toℕ idx <? length xs
-    ... | yes idx<∣xs∣ = just (lookup xs (fromℕ< idx<∣xs∣))
-    ... | no _         = nothing
-
-  getType : Indices.TypeIdx → Maybe FuncType
-  getType = get types
-
-  getFunc : Indices.FuncIdx → Maybe FuncType
-  getFunc = get funcs
-
-  getTable : Indices.TableIdx → Maybe TableType
-  getTable = get tables
-
-  getMem : Indices.MemIdx → Maybe MemType
-  getMem = get mems
-
-  getGlobal : Indices.GlobalIdx → Maybe GlobalType
-  getGlobal = get globals
-
-  getElem : Indices.ElemIdx → Maybe RefType
-  getElem = get elems
-
-  getData : Indices.DataIdx → Maybe ⊤
-  getData = get datas
-
-  getLocal : Indices.LocalIdx → Maybe ValType
-  getLocal = get locals
-
-  getLabel : Indices.LabelIdx → Maybe ResultType
-  getLabel = get labels
-- 
cgit v1.2.3