feat: 9.5.9

nanopass/doc/language-api.ss

@@ -0,0 +1,77 @@
+(define-language Lannotated
+  (entry Defn)
+  (terminals
+    (record-constructor-descriptor (rcd))
+    (record-type-descriptor (rtd))
+    (exact-integer (tag level tag-mask))
+    (datum (handler record-name pred all-pred all-term-pred
+             accessor maker))
+    (box (b))
+    (syntax (stx))
+    (identifier (id))
+    (dots (dots))
+    (null (null)))
+  (Defn (def)
+    (define-language id ref (maybe id0) rtd rcd tag-mask
+      (term* ...) nt* ...)) 
+  (Terminal (term)
+    (id (id* ...) b (maybe handler) pred))
+  (Nonterminal (nt)
+    (id (id* ...) b rtd rcd tag pred all-pred all-term-pred
+        prod* ...))
+  (Production (prod)
+    (production pattern (maybe pretty-prod) rtd tag pred maker field* ...)
+    (terminal ref (maybe pretty-prod))
+    (nonterminal ref (maybe pretty-prod)))
+  (Pattern (pattern)
+    id
+    ref
+    null
+    (maybe ref)
+    (pattern dots)
+    (pattern0 dots pattern1 ... . pattern2)
+    (pattern0 . pattern1))
+  (PrettyProduction (pretty-prod)
+    (procedure handler)
+    (pretty pattern))
+  (Field (field)
+    (ref level accessor)
+    (optional ref level accessor))
+  (Reference (ref)
+    (reference id0 id1 b)))
+
+(define-language Llanguage
+  (entry Defn)
+  (terminals
+    (box (b))
+    (syntax (stx))
+    (identifier (id))
+    (datum (handler))
+    (dots (dots))
+    (null (null)))
+  (Defn (def)
+    (define-language id cl* ...))
+  (Clause (cl)
+    (entry ref)
+    (nongenerative-id id)
+    (terminals term* ...)
+    (id (id* ...) b prod* ...))
+  (Terminal (term)
+    simple-term
+    (=> simple-term handler))
+  (SimpleTerminal (simple-term)
+    (id (id* ...) b))
+  (Production (prod)
+    pattern
+    (=> pattern0 pattern1)
+    (-> pattern handler))
+  (Pattern (pattern)
+    id
+    ref
+    null
+    (maybe ref)
+    (pattern dots)
+    (pattern0 dots pattern1 ... . pattern2)
+    (pattern0 . pattern1))
+  (Reference (ref)
+    (reference id0 id1 b)))