mirror of
https://github.com/luau-lang/luau.git
synced 2024-11-15 22:35:43 +08:00
30 lines
1.2 KiB
Agda
30 lines
1.2 KiB
Agda
{-# OPTIONS --rewriting #-}
|
||
|
||
module Luau.Run where
|
||
|
||
open import Agda.Builtin.Equality using (_≡_; refl)
|
||
open import Luau.Heap using (Heap; ∅)
|
||
open import Luau.Syntax using (Block; val; return; _∙_; done)
|
||
open import Luau.OpSem using (_⊢_⟶*_⊣_; refl; step)
|
||
open import Properties.Step using (stepᴮ; step; return; done; error)
|
||
open import Luau.RuntimeError using (RuntimeErrorᴮ)
|
||
|
||
data RunResult {a} (H : Heap a) (B : Block a) : Set where
|
||
return : ∀ v {B′ H′} → (H ⊢ B ⟶* (return (val v) ∙ B′) ⊣ H′) → RunResult H B
|
||
done : ∀ {H′} → (H ⊢ B ⟶* done ⊣ H′) → RunResult H B
|
||
error : ∀ {B′ H′} → (RuntimeErrorᴮ H′ B′) → (H ⊢ B ⟶* B′ ⊣ H′) → RunResult H B
|
||
|
||
{-# TERMINATING #-}
|
||
run′ : ∀ {a} H B → RunResult {a} H B
|
||
run′ H B with stepᴮ H B
|
||
run′ H B | step H′ B′ D with run′ H′ B′
|
||
run′ H B | step H′ B′ D | return V D′ = return V (step D D′)
|
||
run′ H B | step H′ B′ D | done D′ = done (step D D′)
|
||
run′ H B | step H′ B′ D | error E D′ = error E (step D D′)
|
||
run′ H _ | return V refl = return V refl
|
||
run′ H _ | done refl = done refl
|
||
run′ H B | error E = error E refl
|
||
|
||
run : ∀ {a} B → RunResult {a} ∅ B
|
||
run = run′ ∅
|