GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-01 07:12:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

added case (de or a) to Romance infinitive noun and adj complements

Browse Source
This commit is contained in:
aarne
2011-10-27 08:10:48 +00:00
parent 8c3449fe0e
commit da8a6dc329
12 changed files with 16 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/src/romance/SentenceRomance.gf
View File

@@ -6,7 +6,7 @@ incomplete concrete SentenceRomance of Sentence =
lin
PredVP np vp = mkClause (np.s ! Nom).comp np.hasClit np.isPol np.a vp ;
PredSCVP sc vp = mkClause sc.s False False (agrP3 Masc Sg) vp ;
PredSCVP sc vp = mkClause (sc.s ! Nom) False False (agrP3 Masc Sg) vp ;
ImpVP vp = {
s = \\p,i,g => case i of {
@@ -47,9 +47,9 @@ incomplete concrete SentenceRomance of Sentence =
c2 = slash.c2
} ;
EmbedS s = {s = conjThat ++ s.s ! Indic} ; --- mood
EmbedQS qs = {s = qs.s ! QIndir} ;
EmbedVP vp = {s = infVP vp (agrP3 Masc Sg)} ; --- agr ---- compl
EmbedS s = {s = \\_ => conjThat ++ s.s ! Indic} ; --- mood
EmbedQS qs = {s = \\_ => qs.s ! QIndir} ;
EmbedVP vp = {s = \\c => prepCase c ++ infVP vp (agrP3 Masc Sg)} ; --- agr ---- compl
UseCl t p cl = {
s = \\o => t.s ++ p.s ++ cl.s ! DDir ! t.t ! t.a ! p.p ! o