mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-24 02:12:50 -06:00
polite imperative except Scand,Rus; todo in Ita,Spa
This commit is contained in:
@@ -19,7 +19,7 @@ incomplete concrete CatRomance of Cat =
|
||||
s : AAgr => RTense => Anteriority => Polarity => Mood => Str ;
|
||||
c2 : Compl
|
||||
} ;
|
||||
Imp = {s : Polarity => AAgr => Str} ;
|
||||
Imp = {s : Polarity => ImpForm => Gender => Str} ;
|
||||
|
||||
-- Question
|
||||
|
||||
|
||||
@@ -8,8 +8,9 @@ incomplete concrete PhraseRomance of Phrase =
|
||||
|
||||
UttS s = {s = s.s ! Indic} ;
|
||||
UttQS qs = {s = qs.s ! QDir} ;
|
||||
UttImpSg pol imp = {s = pol.s ++ imp.s ! pol.p ! aagr Fem Sg} ;
|
||||
UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! aagr Fem Pl} ;
|
||||
UttImpSg pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Sg False ! Fem} ;
|
||||
UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Pl False ! Fem} ;
|
||||
UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Sg True ! Fem} ;
|
||||
|
||||
UttIP ip = {s = ip.s ! Nom} ; --- Acc also
|
||||
UttIAdv iadv = iadv ;
|
||||
|
||||
@@ -8,7 +8,12 @@ incomplete concrete SentenceRomance of Sentence =
|
||||
|
||||
PredSCVP sc vp = mkClause sc.s (agrP3 Masc Sg) vp ;
|
||||
|
||||
ImpVP = mkImperative P2 ;
|
||||
ImpVP vp = {
|
||||
s = \\p,i,g => case i of {
|
||||
ImpF n True => (mkImperative P2 vp).s ! p ! (aagr g Pl) ; --- fix for Spa,Ita
|
||||
ImpF n False => (mkImperative P2 vp).s ! p ! (aagr g n)
|
||||
}
|
||||
} ;
|
||||
|
||||
SlashV2 np v2 =
|
||||
{s = \\ag =>case <v2.c2.c,v2.c2.isDir> of {
|
||||
|
||||
Reference in New Issue
Block a user