chkpt

src/Syntax.idr

@@ -0,0 +1,58 @@
+module Syntax
+
+-- Good enough start, lets parse
+-- This is informed by pi-forall and others and is somewhat low level
+
+Name = String
+
+data Term : Type where
+
+TyTerm = Term
+
+data Literal = LString String | LInt Int | LBool Bool
+data RigCount = Rig0 | RigW
+data Plicity = Implicit | Explicit | Eq
+
+public export
+data Pattern
+  = PatVar Name
+  | PatCon Name (List (Pattern, RigCount))
+  | PatWild
+  | PatLit Literal
+
+-- could be a pair, but I suspect stuff will be added?
+public export
+data CaseAlt = MkAlt Pattern Term
+
+public export
+data Term
+  = Var Name
+  | Ann Term TyTerm
+  | Lit Literal
+  | Let Name Term Term
+  | Pi Name Plicity Term Term
+  | App Term Term
+  | Lam Pattern Term
+  | Case Term (List CaseAlt)
+  | Wildcard
+  | ParseError String
+
+-- derive some stuff - I'd like json, eq, show, ...
+
+data Decl : Type where
+
+Telescope: Type
+Telescope = List Decl -- pi-forall, always typeSig? 
+
+data ConstrDef = MkCDef Name Telescope
+
+data Decl
+  = TypeSig Name RigCount TyTerm
+  | Def Name Term
+  | Data Name Telescope (List ConstrDef)
+
+record Module where
+  constructor MkModule
+  name : Name
+  imports : List Name
+  decls : List Decl