GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-20 10:19:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

some fixes for Shae

Browse Source
This commit is contained in:
aarne
2004-06-23 11:57:17 +00:00
parent e5df982c93
commit d4e30498f6
8 changed files with 193 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lib/resource-0.6/german/MorphoGer.gf
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 {

8
lib/resource-0.6/german/StructuralGer.gf
View File

@@ -92,13 +92,13 @@ lin
CanVV =
mkVerbSimple (verbSehen "können" "kann" "gekonnt") ** {isAux = True} ; ---
mkVerbSimple (verbumAux "können" "kann" "kannst" "gekonnt") ** {isAux = True} ;
CanKnowVV =
mkVerbSimple (verbSehen "können" "kann" "gekonnt") ** {isAux = True} ; ---
mkVerbSimple (verbumAux "können" "kann" "kannst" "gekonnt") ** {isAux = True} ;
MustVV =
mkVerbSimple (verbSehen "müssen" "muss" "gemusst") ** {isAux = True} ; ---
mkVerbSimple (verbumAux "müssen" "muss" "musst" "gemusst") ** {isAux = True} ;
WantVV =
mkVerbSimple (verbSehen "wollen" "will" "gewollt") ** {isAux = True} ; ---
mkVerbSimple (verbumAux "wollen" "will" "willst" "gewollt") ** {isAux = True} ;
EverywhereNP = ss "überall" ;