mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-10-28 10:13:17 -06:00
20 lines
882 B
Plaintext
20 lines
882 B
Plaintext
concrete RelativeSwa of Relative = CatSwa ** open Prelude, ResSwa in {
|
|
flags optimize=all_subs ; coding=utf8 ;
|
|
lin
|
|
RelCl cl = {s = \\t,a,b,_ => "ambapo" ++ cl.s ! t ! a ! b ; c = npNom} ;
|
|
RelVP rp vp = {s = \\t,a,b,ag => let f = agrFeatures ag in
|
|
rp.s ! ag ++ vp.s ! t ! a ! b ! f ++ vp.obj ! f ; c = npNom} ;
|
|
RelSlash rp cl = {s = \\t,a,b,ag => rp.s ! ag ++ cl.s ! t ! a ! b ++ cl.c2 ; c = NPAcc} ;
|
|
IdRP = {s = relPron} ;
|
|
FunRP p np rp = {s = \\ag => p.s ! Sg ! G1 ++ np.s ! NPoss ++ rp.s ! ag} ;
|
|
oper
|
|
relPron : Agr => Str = table {
|
|
Ag G1 Sg _ => "ambaye" ; Ag G1 Pl _ => "ambao" ;
|
|
Ag G2 Sg _ => "ambao" ; Ag G2 Pl _ => "ambayo" ;
|
|
Ag G3 Sg _ => "ambalo" ; Ag G3 Pl _ => "ambayo" ;
|
|
Ag G4 Sg _ => "ambacho" ; Ag G4 Pl _ => "ambavyo" ;
|
|
Ag G5 Sg _ => "ambayo" ; Ag G5 Pl _ => "ambazo" ;
|
|
_ => "ambayo"
|
|
} ;
|
|
}
|