r7rs datum ast

2026-08-20 22:05:57 -06:00
parent 6c29f3779a
commit f9ed1274d9
9 changed files with 138 additions and 3 deletions
@@ -0,0 +1,25 @@
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE AllowAmbiguousTypes #-}
+module Gyehoek.Language
+  ( Language(..)
+  ) where
+
+import Data.Kind (Type)
+import Gyehoek.Prelude
+import Language.SexpGrammar (Position, Grammar, (:-), Sexp)
+
+
+class Language l where
+  type Program l :: Type
+  languageName :: Text
+  programGrammar :: forall t. Grammar Position (List Sexp :- t) (Program l :- t)
+
+readProgramFile
+  :: forall l es. Language l
+  => FilePath -> Eff es (Program l)
+readProgramFile fp = _
+
+readProgramStringPos
+  :: forall l. Language l
+  => Position -> Text -> Either Text (Program l)
+readProgramStringPos pos s = _