GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-01 03:28:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

make CompoundN more flexible

Browse Source
This commit is contained in:
Krasimir Angelov
2023-10-25 11:19:00 +02:00
parent fa8cef4112
commit 01e5165537
13 changed files with 68 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/italian/ParadigmsIta.gf
+6 -6
View File
@@ -378,11 +378,11 @@ oper
in_Prep = {s = [] ; c = CPrep P_in ; isDir = False ; lock_Prep = <>} ;
su_Prep = {s = [] ; c = CPrep P_su ; isDir = False ; lock_Prep = <>} ;
mk2N x y g = mkNounIrreg x y g ** {lock_N = <>} ;
regN x = mkNomReg x ** {lock_N = <>} ;
compN x y = {s = \\n => x.s ! n ++ y ; g = x.g ; lock_N = <>} ;
femN x = {s = x.s ; g = feminine ; lock_N = <>} ;
mascN x = {s = x.s ; g = masculine ; lock_N = <>} ;
mk2N x y g = mkNounIrreg x y g ** {relType=NRelPrep P_da; lock_N = <>} ;
regN x = mkNomReg x ** {relType=NRelPrep P_da; lock_N = <>} ;
compN x y = x ** {s = \\n => x.s ! n ++ y} ;
femN x = {s = x.s ; g = feminine ; relType=NRelPrep P_da; lock_N = <>} ;
mascN x = {s = x.s ; g = masculine ; relType=NRelPrep P_da; lock_N = <>} ;
mk2N2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ;
@@ -518,7 +518,7 @@ oper
mkN = overload {
mkN : (cane : Str) -> N = regN ;
mkN : (carne : Str) -> Gender -> N = \n,g -> {s = (regN n).s ; g = g ; lock_N = <>} ;
mkN : (carne : Str) -> Gender -> N = \n,g -> (regN n) ** {g = g} ;
mkN : (uomo,uomini : Str) -> Gender -> N = mk2N ;
mkN : N -> Str -> N = compN
} ;