GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-17 11:00:12 -06:00
Code Issues Packages Projects Releases Wiki Activity

Make adjectives depend on agreement; Fix reflexives

Browse Source
This commit is contained in:
Inari Listenmaa
2017-10-02 15:22:11 +02:00
parent 9c77f9d990
commit 5b91023e0e
8 changed files with 42 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/basque/ResEus.gf
View File

@@ -199,10 +199,6 @@ oper
--- { Abs => "hargle"; Erg => "bargle" }
-- the field .agr. is of type Agr.
buru_NP : NounPhrase =
empty_NP ** { s = \\_ => "buru" ;
stem = "buru" } ;
empty_NP : NounPhrase = { s = \\_ => [] ;
stem = [] ;
agr = Hau ;
@@ -252,15 +248,23 @@ oper
inanPron : (x1,_,_,_,x5 : Str) -> Agr -> Pronoun = \zer,zeri,zerk,zere,zertaz,a ->
persPron zer zeri zerk zere zertaz a ** { anim = Inan } ;
reflPron : Agr => Str = table {
Ni => "neure" ;
Hi _ => "heure" ;
Gu => "geure" ;
Zu => "zeure" ;
Zuek => "zeuen" ;
hau => "haren" } ;
--------------------------------------------------------------------
-- Adjective and AP
Adjective : Type = {s : AForm => Str ; ph : Phono} ;
Adjective : Type = { s : AForm => Str ; ph : Phono } ;
Adjective2 : Type = Adjective ** { compl : Postposizio } ;
AdjPhrase : Type = {s : Str ; ph : Phono ; typ : APType} ;
AdjPhrase : Type = { s : Agr => Str ;
ph : Phono ;
typ : APType} ;
regAdj : Str -> Adjective = \s ->
let stem : Str = case last s of {