autogenerate parts of the syntax

2026-06-27 11:56:29 -06:00 · 2026-03-19 15:25:04 +01:00
parent 0cd3450e08
commit ce2f785f92
6 changed files with 102 additions and 8 deletions
@@ -0,0 +1,12 @@
+concrete VerbMkd of Verb = CatMkd ** open Prelude,ResMkd in {
+  flags
+    coding = "UTF-8" ;
+  lin ComplSlash vps np = {present = \\a,n,p => vps.present ! a ! n
+                                                  ! p
+                                                  ++ np.s;
+                           aorist = \\n,p => vps.aorist ! n ! p ++ np.s;
+                           imperfect = \\a,n,p => vps.imperfect ! a ! n ! p ++ np.s;
+                           imperative = \\a,n => vps.imperative ! a ! n ++ np.s;
+                           participle = {aorist = \\a,gn => vps.participle.aorist ! a ! gn ++ np.s;
+                                         perfect = \\a => vps.participle.perfect ! a ++ np.s}} ;
+}