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

@@ -11,6 +11,10 @@ concrete IdiomFre of Idiom = CatFre **
ExistNP np =
mkClause "il" True False (agrP3 Masc Sg)
(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 = {
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")
(insertComplement (\\_ => (np.s ! Nom).ton)
(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 = {
s = \\t,a,p,_ =>