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

participle agreement

Browse Source
This commit is contained in:
aarne
2006-01-20 12:25:18 +00:00
parent de7e50a92a
commit b21eeaa2df
4 changed files with 76 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
lib/resource-1.0/romance/CommonRomance.gf
View File

@@ -20,18 +20,33 @@ resource CommonRomance = ParamRomance ** open Prelude in {
Noun = {s : Number => Str ; g : Gender} ;
VP : Type = {
s : Agr => VPForm => {
fin : Str ; -- ai
inf : Str -- dit
s : VPForm => {
fin : Agr => Str ; -- ai
inf : AAgr => Str -- dit
} ;
a1 : Polarity => (Str * Str) ; -- ne-pas
c1 : Str ; -- le
c2 : Str ; -- lui
n2 : Agr => Str ; -- content(e) ; à ma mère
a2 : Str ; -- hier
ext : Str ; -- que je dors
agr : VPAgr ; -- dit/dite dep. on verb, subj, and clitic
neg : Polarity => (Str * Str) ; -- ne-pas
clit1 : Agr => Str ; -- se
clit2 : Str ; -- lui
comp : Agr => Str ; -- content(e) ; à ma mère
adv : Str ; -- hier
ext : Str ; -- que je dors
} ;
appVPAgr : VPAgr -> AAgr -> AAgr = \vp,agr ->
case vp of {
VPAgrNone => aagr Masc Sg ;
VPAgrSubj => agr ;
VPAgrClit a => a
} ;
param
VPAgr =
VPAgrNone -- elle a dormi
| VPAgrSubj -- elle est partie, elle s'est vue
| VPAgrClit -- elle les a vues
{g : Gender ; n : Number} ;
}
{-