mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
(Fre) Fix bug in predicative adj + add unit test
This commit is contained in:
@@ -75,7 +75,8 @@ oper
|
||||
mkAdj' : (_,_,_,_,_ : Str) -> Adj ;
|
||||
mkAdj' vieux vieil vieille vieuxs vieillement = {
|
||||
s = table {
|
||||
ASg Masc _ => pre {#voyelle => vieil ; "h" => vieil ; _ => vieux} ;
|
||||
ASg Masc AAttr => pre {#voyelle => vieil ; "h" => vieil ; _ => vieux} ;
|
||||
ASg Masc APred => vieux ; -- `ce vin est nouveau et bon', not *nouvel et bon
|
||||
ASg Fem _ => vieille ;
|
||||
APl g => genForms vieuxs (vieille + "s") ! g ;
|
||||
AA => vieillement
|
||||
|
||||
24
src/french/unittests/attributive-predicative.gftest
Normal file
24
src/french/unittests/attributive-predicative.gftest
Normal file
@@ -0,0 +1,24 @@
|
||||
-- Attributive forms: special form before vowel
|
||||
Lang: UttNP (DetCN (DetQuant IndefArt NumSg) (AdjCN (PositA old_A) (UseN friend_N)))
|
||||
LangFre: un vieil ami
|
||||
|
||||
Lang: UttNP (DetCN (DetQuant IndefArt NumSg) (AdjCN (PositA new_A) (UseN friend_N)))
|
||||
LangFre: un nouvel ami
|
||||
|
||||
-- Regular form before consonant
|
||||
Lang: UttNP (DetCN (DetQuant IndefArt NumSg) (AdjCN (PositA old_A) (UseN dog_N)))
|
||||
LangFre: un vieux chien
|
||||
|
||||
Lang: UttNP (DetCN (DetQuant IndefArt NumSg) (AdjCN (PositA new_A) (UseN wine_N)))
|
||||
LangFre: un nouveau vin
|
||||
|
||||
-- Predicative forms: always regular form
|
||||
Lang: PredVP (DetCN (DetQuant (PossPron i_Pron) NumSg) (UseN dog_N)) (UseComp (CompAP (PositA old_A)))
|
||||
LangFre: mon chien est vieux
|
||||
|
||||
Lang: UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (DetCN (DetQuant this_Quant NumSg) (UseN wine_N)) (UseComp (CompAP (PositA new_A)))))
|
||||
LangFre: ce vin est nouveau
|
||||
|
||||
-- Regular form even before a vowel: not *nouvel et bon
|
||||
Lang: PredVP (DetCN (DetQuant this_Quant NumSg) (UseN wine_N)) (UseComp (CompAP (ConjAP and_Conj (BaseAP (PositA new_A) (PositA good_A)))))
|
||||
LangFre: ce vin est nouveau et bon
|
||||
Reference in New Issue
Block a user