added PassV2, PassVPSlash

2024-07-24 09:48:08 +02:00
parent 9b12c13057
commit d198de7395
6 changed files with 37 additions and 8 deletions
@@ -1,4 +1,4 @@
-concrete ExtendTur of Extend = CatTur ** open ResTur in {
+concrete ExtendTur of Extend = CatTur ** open ResTur, SuffixTur, Predef in {

  lin
    GenModNP num np cn = {
@@ -13,4 +13,14 @@ concrete ExtendTur of Extend = CatTur ** open ResTur in {

    PositAdVAdj a = {s = a.s ! Sg ! Nom} ;

+    PassVPSlash vps = {
+      s = mkVerbForms {
+            s = vps.stems ! VPass ++ BIND ++ suffixStr vps.h infinitiveSuffix ;
+            stems = \\_ => vps.stems ! VPass ;
+            aoristType = vps.aoristType ;
+            h = vps.h ;
+          } ;
+      compl = []
+    } ;
+
 }