msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

ExistNPAdv in Fre and Ita

Browse Source
This commit is contained in:
aarneranta
2021-06-09 18:19:24 +02:00
parent 0ee2377c99
commit b6f37abe91
2 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/french/IdiomFre.gf
View File

@@ -12,6 +12,10 @@ concrete IdiomFre of Idiom = CatFre **
mkClause "il" True False (agrP3 Masc Sg) mkClause "il" True False (agrP3 Masc Sg)
(insertClit3 "y" (insertComplement (\\_ => (np.s ! Acc).ton) (predV avoir_V))) ; (insertClit3 "y" (insertComplement (\\_ => (np.s ! Acc).ton) (predV avoir_V))) ;
ExistNPAdv np adv =
mkClause "il" True False (agrP3 Masc Sg)
(insertAdv adv.s (insertClit3 "y" (insertComplement (\\_ => (np.s ! Acc).ton) (predV avoir_V)))) ;
ExistIP ip = { ExistIP ip = {
s = \\t,a,p,_ => s = \\t,a,p,_ =>
ip.s ! Nom ++ ip.s ! Nom ++

8
src/italian/IdiomIta.gf
View File

@@ -24,6 +24,14 @@ concrete IdiomIta of Idiom = CatIta **
(insertComplement (\\_ => (np.s ! Nom).ton) (insertComplement (\\_ => (np.s ! Nom).ton)
(predV copula))) ; (predV copula))) ;
ExistNPAdv np adv =
let npa = complAgr np.a in
mkClause [] True False (agrP3 npa.g npa.n)
(insertAdv adv.s
(insertClit3 (elision "ci" "c'" "ci")
(insertComplement (\\_ => (np.s ! Nom).ton)
(predV copula)))) ;
ExistIP ip = { ExistIP ip = {
s = \\t,a,p,_ => s = \\t,a,p,_ =>
ip.s ! Nom ++ ip.s ! Nom ++