added PassV2, PassVPSlash

2026-06-28 12:26:30 -06:00 · 2024-07-24 09:48:08 +02:00
parent 9b12c13057
commit d198de7395
6 changed files with 37 additions and 8 deletions
@@ -243,17 +243,23 @@ resource ParadigmsTur = open
            case getHarConP base of {
              SVow => tk 1 base ;
              _    => softBase
-            }
+            } ;
+          h = getHarmony base
      in lin V {
           s = inf ;
           stems = table {
                      VBase Hard => base ;
                      VBase Soft => softBase ;
                      VProg => progBase ;
-                      VFut => futBase
+                      VFuture => futBase ;
+                      VPass => case last base of {
+                                 #vowel => base + "n" ;
+                                 "l"    => base + suffixStr h passiveInSuffix ;
+                                 _      => base + suffixStr h passiveIlSuffix
+                               }
                   } ;
           aoristType = aoristType ;
-           h = getHarmony base
+           h = h
         } ;

    -- Implementation of noun paradigms