mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-28 01:18:57 -06:00
Merge branch 'master' of github.com:GrammaticalFramework/gf-rgl
This commit is contained in:
@@ -250,7 +250,7 @@ concrete NounSom of Noun = CatSom ** open ResSom, Prelude in {
|
|||||||
mod = \\st,n,c =>
|
mod = \\st,n,c =>
|
||||||
cn.mod ! st ! n ! Abs -- If there was something before, it is now in Abs
|
cn.mod ! st ! n ! Abs -- If there was something before, it is now in Abs
|
||||||
++ andConj st cn.modtype -- If the sentence is already modified, any new modifier needs to be introduced with conjunction
|
++ andConj st cn.modtype -- If the sentence is already modified, any new modifier needs to be introduced with conjunction
|
||||||
++ ap.s ! AF n c ;
|
++ ap.s ! AF n c ++ " " ++ ap.compar ;
|
||||||
modtype = AMod
|
modtype = AMod
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
@@ -23,6 +23,10 @@ Lang: PhrUtt NoPConj (UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (DetCN (DetQ
|
|||||||
LangSom: bisad BIND daasi bisad BIND dan waa ka weyn tahay
|
LangSom: bisad BIND daasi bisad BIND dan waa ka weyn tahay
|
||||||
Lang: PhrUtt NoPConj (UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (DetCN (DetQuant that_Quant NumSg) (UseN cat_N)) (UseComp (CompAP (ComparA big_A (DetCN (DetQuant this_Quant NumSg) (UseN cat_N)))))))) NoVoc
|
Lang: PhrUtt NoPConj (UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (DetCN (DetQuant that_Quant NumSg) (UseN cat_N)) (UseComp (CompAP (ComparA big_A (DetCN (DetQuant this_Quant NumSg) (UseN cat_N)))))))) NoVoc
|
||||||
|
|
||||||
|
-- LangEng: house bigger than car
|
||||||
|
LangSom: guri ka weyn baabuur
|
||||||
|
Lang: PhrUtt NoPConj (UttNP (AdjCN (ComparA big_A (MassNP (UseN car_N))) (UseN house_N))) NoVoc
|
||||||
|
|
||||||
-- LangEng: that cat is biggest
|
-- LangEng: that cat is biggest
|
||||||
LangSom: bisad BIND daasi waa ugu weyn tahay
|
LangSom: bisad BIND daasi waa ugu weyn tahay
|
||||||
Lang: PhrUtt NoPConj (UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (DetCN (DetQuant that_Quant NumSg) (UseN cat_N)) (UseComp (CompAP (AdjOrd (OrdSuperl big_A))))))) NoVoc
|
Lang: PhrUtt NoPConj (UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (DetCN (DetQuant that_Quant NumSg) (UseN cat_N)) (UseComp (CompAP (AdjOrd (OrdSuperl big_A))))))) NoVoc
|
||||||
|
|||||||
Reference in New Issue
Block a user