support for reflexive verbs

2024-10-31 13:21:27 +01:00
parent 9e52b2d8a3
commit abf4cd4cb2
4 changed files with 120 additions and 58 deletions
@@ -15,5 +15,11 @@ lincat Interj = {s : Str} ;
 lincat Voc = {s : Str} ;

 linref N,N2,N3 = \n -> n.s ! Indef ! Sg ;
+linref V, VA, VV, VS, VQ, V2, V2S, V2Q, V3, V2A, V2V = 
+  \v -> v.present ! Sg ! P1 ++
+        case v.isRefl of {
+          True  => "се" ;
+          False => []
+        } ;

 }