1
0
forked from GitHub/gf-rgl

some fixes for Shae

This commit is contained in:
aarne
2004-06-23 11:57:17 +00:00
parent 845ecf08fe
commit 5d2ad2193f
2 changed files with 19 additions and 4 deletions

View File

@@ -336,6 +336,21 @@ oper
VPart a => gewesen ! a
} ;
-- auxiliary verbs
verbumAux : (_,_,_,_ : Str) -> Verbum = \konnen,kann,kannst,gekonnt ->
let gekonn = (adjReg gekonnt).s in
table {
VInf => konnen ;
VInd Sg P1 => kann ;
VInd Sg P2 => kannst ;
VInd Sg P3 => kann ;
VInd Pl P2 => konnen ;
VInd Pl _ => konnen ;
VImp Sg => nonExist ;
VImp Pl => nonExist ;
VPart a => gekonn ! a
} ;
-- The verb "have":
verbumHaben : Verbum = let {