1
0
forked from GitHub/gf-rgl

romance Inf ; %, included

This commit is contained in:
aarne
2005-05-26 13:18:17 +00:00
parent 607ccdfc52
commit 40064cd2d5
3 changed files with 19 additions and 9 deletions

View File

@@ -751,7 +751,7 @@ the previous page</i>.)
<p> <p>
Danish Danish
<p> <p>
English English:
<p> <p>
Finnish Finnish
<p> <p>
@@ -763,7 +763,8 @@ German
<p> <p>
Italian: Italian:
no omission of unstressed subject pronouns; no omission of unstressed subject pronouns;
some verbs in Basic should be reflexive some verbs in Basic should be reflexive;
bad forms of reflexive infinitives
<p> <p>
Norwegian: Norwegian:
possessives <i>bilen min</i> not included possessives <i>bilen min</i> not included
@@ -773,10 +774,12 @@ Russian
Spanish: Spanish:
no omission of unstressed subject pronouns; no omission of unstressed subject pronouns;
no switch to dative case for human objects; no switch to dative case for human objects;
some verbs in Basic should be reflexive some verbs in Basic should be reflexive;
bad forms of reflexive infinitives;
spurious parameter for verb auxiliary inherited from Romance
<p> <p>
Swedish Swedish:

View File

@@ -161,6 +161,16 @@ incomplete concrete ClauseRomance of Clause = CategoriesRomance **
QPredAdv subj adv = QPredAdv subj adv =
sats2quest (mkSatsCopula (intNounPhrase subj) adv.s) ; 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 -- Use VPs

View File

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