mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-27 03:46:29 -06:00
added GenRP to Extend Fin,Fre,Ger,Ita,Swe
This commit is contained in:
@@ -1,6 +1,7 @@
|
||||
--# -path=alltenses:../common:../abstract:../romance
|
||||
concrete ExtendIta of Extend = CatIta ** ExtendRomanceFunctor -
|
||||
[
|
||||
GenRP,
|
||||
PassVPSlash, PassAgentVPSlash
|
||||
]
|
||||
-- don't forget to put the names of your own
|
||||
@@ -16,6 +17,19 @@ concrete ExtendIta of Extend = CatIta ** ExtendRomanceFunctor -
|
||||
ParadigmsIta in {
|
||||
-- put your own definitions here
|
||||
|
||||
lin
|
||||
GenRP nu cn = {
|
||||
s = \\_b,_aagr,_c => "di cui" ++ num ++ cn.s ! n ;
|
||||
a = aagr g n ;
|
||||
hasAgr = True
|
||||
} where {
|
||||
g = cn.g ;
|
||||
n = nu.n ;
|
||||
num = if_then_Str nu.isNum (nu.s ! g) []
|
||||
} ;
|
||||
|
||||
|
||||
|
||||
|
||||
lin PassVPSlash vps = passVPSlash vps [] ;
|
||||
PassAgentVPSlash vps np = passVPSlash
|
||||
|
||||
Reference in New Issue
Block a user