stuff

2026-06-04 11:42:48 -07:00
parent e180dc955d
commit fdb40dcb92
6 changed files with 334 additions and 83 deletions
@@ -143,3 +143,35 @@
                 | #gsc_err_nyi{}
                 | #gsc_err_empty_file{}
                 | #gsc_err{}.
+
+
+%----------------------------
+% tree type for parsing
+%----------------------------
+
+% @doc stem record
+-record(ns, {meta :: any(),
+             kids :: list(any())}).
+
+% @doc `ntree(S, L)' is a "node tree" (meaning stems
+% have values and children)
+%
+% for the purposes of the compiler, the key observation
+% is that a flat list of tokens is already a forest
+-type ntree(S, L) :: #ns{meta :: S, kids :: [ntree(S, L)]}
+                   | L.
+
+% @doc forest is just a list of trees
+-type nforest(S, L) :: [ntree(S, L)].
+
+
+% aliases
+
+-type nt(S, L) :: ntree(S, L).
+-type nf(S, L) :: nforest(S, L).
+
+-type ntree()   :: ntree(any(), any()).
+-type nforest() :: [ntree()].
+
+-type nt() :: ntree().
+-type nf() :: nforest().