mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 13:09:33 -06:00
48 lines
1.7 KiB
Plaintext
48 lines
1.7 KiB
Plaintext
concrete SentencesFre of Sentences = NumeralFre ** SentencesI - [
|
|
IsMass,
|
|
QProp,
|
|
IFemale, YouFamFemale, YouPolFemale, WeFemale, YouPlurFamFemale, YouPlurPolFemale, YouPlurPolMale, TheyFemale,
|
|
PYesToNo,
|
|
SHaveNo,SHaveNoMass,
|
|
Superlative
|
|
]
|
|
with
|
|
(Syntax = SyntaxFre),
|
|
(Symbolic = SymbolicFre),
|
|
(Lexicon = LexiconFre) **
|
|
open SyntaxFre, ExtraFre, (P = ParadigmsFre), Prelude in {
|
|
|
|
lincat
|
|
Superlative = {s : Ord ; isPre : Bool} ;
|
|
lin
|
|
IsMass m q = mkCl (mkNP the_Det m) q ; -- le vin allemand est bon
|
|
QProp a =
|
|
lin QS {s = \\_ => (EstcequeS (mkS a)).s} ;
|
|
IFemale =
|
|
{name = mkNP i8fem_Pron ; isPron = True ; poss = mkQuant i_Pron} ;
|
|
YouFamFemale =
|
|
{name = mkNP youSg8fem_Pron ; isPron = True ; poss = mkQuant youSg_Pron} ;
|
|
YouPolFemale =
|
|
{name = mkNP youPol8fem_Pron ; isPron = True ; poss = mkQuant youPol_Pron} ;
|
|
WeFemale =
|
|
{name = mkNP we8fem_Pron ; isPron = True ; poss = mkQuant we_Pron} ;
|
|
YouPlurFamFemale =
|
|
{name = mkNP youPl8fem_Pron ; isPron = True ; poss = mkQuant youPl_Pron} ;
|
|
YouPlurPolMale =
|
|
{name = mkNP youPl_Pron ; isPron = True ; poss = mkQuant youPol_Pron};
|
|
YouPlurPolFemale =
|
|
{name = mkNP youPl8fem_Pron ; isPron = True ; poss = mkQuant youPol_Pron};
|
|
TheyFemale =
|
|
{name = mkNP they8fem_Pron ; isPron = True ; poss = mkQuant they_Pron} ;
|
|
|
|
|
|
PYesToNo = mkPhrase (lin Utt (ss "si")) ;
|
|
|
|
SHaveNo p k = mkS negativePol (mkCl p.name have_de (mkNP aPl_Det k)) ;
|
|
SHaveNoMass p k = mkS negativePol (mkCl p.name (ComplCN have_de k)) ;
|
|
|
|
oper
|
|
have_de : V2 = P.mkV2 (P.mkV have_V2) P.genitive ;
|
|
|
|
}
|