GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 17:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

german AForm and verb endings

Browse Source
This commit is contained in:
aarne
2006-01-16 09:24:38 +00:00
parent bc8bfdea4d
commit de492a866a
5 changed files with 59 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
lib/resource-1.0/german/ParamGer.gf
View File

@@ -35,7 +35,7 @@ resource ParamGer = ParamX ** {
-- The predicative form of adjectives is not inflected further.
param AForm = APred | AMod Adjf GenNum Case ;
param AForm = APred | AMod GenNum Case ;
--2 For $Verb$
@@ -93,8 +93,23 @@ resource ParamGer = ParamX ** {
GPl => Pl
} ;
-- Used in $NounGer$.
agrAdj : Gender -> Adjf -> Number -> Case -> AForm = \g,a,n,c ->
AMod a (gennum g n) c ;
let
gn = gennum g n ;
e = AMod (GSg Fem) Nom ;
en = AMod (GSg Masc) Acc ;
in
case a of {
Strong => AMod gn c ;
_ => case <gn,c> of {
<GSg _, Nom> => e ;
<GSg Masc,Acc> => en ;
<GSg _, Acc> => e ;
_ => en
}
} ;
-- This is used twice in NounGer.