mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-10-29 02:13:18 -06:00
added Human/NonHuman gender to select the right relative pronoun
This commit is contained in:
1 parent
9265270a0c
commit
44ea945c8c
13 files changed
+82
-65
No files matched your search
@@ -7,7 +7,7 @@ concrete AdjectiveHun of Adjective = CatHun ** open ResHun, Prelude in {
|
||||
-- : A -> AP ;
|
||||
PositA a = emptyAP ** {
|
||||
s = \\n,c =>
|
||||
let adj : Noun = (a ** {s = a.s ! Posit}) in
|
||||
let adj : Noun = (a ** {s = a.s ! Posit; g = NonHuman}) in
|
||||
caseFromStem glue adj c n ;
|
||||
} ;
|
||||
|
||||
@@ -35,7 +35,7 @@ concrete AdjectiveHun of Adjective = CatHun ** open ResHun, Prelude in {
|
||||
-- : A -> AP ; -- warmer
|
||||
UseComparA a = emptyAP ** {
|
||||
s = \\n,c =>
|
||||
let adj : Noun = (a ** {s = a.s ! Compar}) in
|
||||
let adj : Noun = (a ** {s = a.s ! Compar; g = NonHuman}) in
|
||||
caseFromStem glue adj c n ;
|
||||
} ;
|
||||
|
||||
|
||||
Reference in new issue
Block a user