GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-30 06:52:49 -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

2
lib/src/romance/AdjectiveRomance.gf
View File

@@ -42,7 +42,7 @@ incomplete concrete AdjectiveRomance of Adjective =
} ;
SentAP ap sc = {
s = \\a => ap.s ! a ++ sc.s ; --- mood
s = \\a => ap.s ! a ++ sc.s ! dative ; -- prête à dormir --- mood
isPre = False
} ;

3
lib/src/romance/CatRomance.gf
View File

@@ -1,4 +1,4 @@
incomplete concrete CatRomance of Cat = CommonX
incomplete concrete CatRomance of Cat = CommonX - [SC]
** open Prelude, CommonRomance, ResRomance, (R = ParamX) in {
flags optimize=all_subs ;
@@ -15,6 +15,7 @@ incomplete concrete CatRomance of Cat = CommonX
c2 : Compl
} ;
SC = {s : Case => Str} ; -- de dormir / à dormir
-- Sentence

2
lib/src/romance/NounRomance.gf
View File

@@ -147,7 +147,7 @@ incomplete concrete NounRomance of Noun =
g = g
} ;
SentCN cn sc = let g = cn.g in {
s = \\n => cn.s ! n ++ sc.s ;
s = \\n => cn.s ! n ++ sc.s ! genitive ; -- raison de dormir
g = g
} ;
AdvCN cn sc = let g = cn.g in {

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