autogenerate parts of the syntax

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 SentenceMkd of Sentence = CatMkd ** open Prelude,ResMkd in {
+  flags
+    coding = "UTF-8" ;
+  lin PredVP np vp = {present = \\a => np.s ++ vp.present ! a ! np.n ! np.p ;
+                      aorist = np.s ++ vp.aorist ! np.n ! np.p ;
+                      participle = {aorist = \\a => np.s ++ vp.participle.aorist ! a ! 
+                                                             case np.n of {
+                                                               Sg => GSg np.g;
+                                                               Pl => GPl
+                                                             };
+                                    perfect = \\a => np.s ++ vp.participle.perfect ! a}} ;
+}