GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 08:58:55 -06:00
Code Issues Packages Projects Releases Wiki 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

@@ -11,6 +11,10 @@ concrete IdiomFre of Idiom = CatFre **
ExistNP np = ExistNP np =
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,_ =>

8
src/italian/IdiomIta.gf
View File

@@ -23,6 +23,14 @@ concrete IdiomIta of Idiom = CatIta **
(insertClit3 (elision "ci" "c'" "ci") (insertClit3 (elision "ci" "c'" "ci")
(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,_ =>