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

romance Inf ; %, included

Browse Source
This commit is contained in:
aarne
2005-05-26 13:18:17 +00:00
parent 0cc8911950
commit 63ee4ef12d
10 changed files with 522 additions and 490 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/resource/romance/ClauseRomance.gf
View File

@@ -161,6 +161,16 @@ incomplete concrete ClauseRomance of Clause = CategoriesRomance **
QPredAdv subj adv =
sats2quest (mkSatsCopula (intNounPhrase subj) adv.s) ;
----- anteriority _ ; gender and number of Adj
IPredV _ v =
sats2verbPhrase (mkSats pronImpers v) ;
IPredV2 _ v y =
sats2verbPhrase (mkSatsObject pronImpers v y) ;
IPredAP _ adj =
sats2verbPhrase (mkSatsCopula pronImpers (adj.s ! AF Masc Sg)) ;
{-
-- Use VPs

7
lib/resource/romance/SyntaxRomance.gf
View File

@@ -430,7 +430,7 @@ oper
param
VPForm = VPF Anteriority VF ;
Anteriority = Simul | Anter ;
VIForm = VIInfinit | VIImperat Bool Number ;
VIForm = VIInfinit | VIImperat Bool Number ; ---- | VIGerund ;
oper
VerbPhrase = {s : VIForm => Gender => Number => Person => Str} ;
@@ -1312,16 +1312,13 @@ negNe, negPas : Str ;
in
{s = \\b,f,_ => cl.s ! b ! f} ;
-- VIForm = VIInfinit | VIImperat Bool Number ;
-- VerbPhrase = {s : VIForm => Gender => Number => Person => Str} ;
sats2verbPhrase : Sats -> VerbPhrase =
\sats -> {s = \\vi,g,n,p => ---- b,cf =>
let
b = True ; ----
lui = sats.s3 ;
dire = verbVIForm {s = sats.s4 ; aux = sats.aux}
vi sats.g sats.n sats.p sats.g2 sats.n2 ;
vi g n p sats.g2 sats.n2 ;
ai = dire.p1 ;
dit = dire.p2 ;
toujours = sats.s5 ;