luau/prototyping/Examples/Syntax.agda

module Examples.Syntax where

open import Agda.Builtin.Equality using (_≡_; refl)
open import FFI.Data.String using (_++_)
open import Luau.Syntax using (var; _$_; return; nil; function_⟨_⟩_end; done; _∙_)
open import Luau.Syntax.ToString using (exprToString; blockToString)

f = var "f"
x = var "x"

ex1 : exprToString(f $ x) ≡
  "f(x)"
ex1 = refl

ex2 : blockToString(return nil ∙ done) ≡
  "return nil"
ex2 = refl

ex3 : blockToString(function "f" ⟨ "x" ⟩ return x ∙ done end ∙ return f ∙ done) ≡
  "local function f(x)\n" ++
  "  return x\n" ++
  "end\n" ++
  "return f"
ex3 = refl