mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-10 05:29:30 -06:00
34 lines
928 B
Plaintext
34 lines
928 B
Plaintext
instance LexAttemptoFre of LexAttempto =
|
|
open ExtraFre, SyntaxFre, ParadigmsFre, ConstructX,
|
|
MakeStructuralFre,
|
|
IrregFre, (P = Prelude) in {
|
|
|
|
oper
|
|
possible_A = mkA "possible" ;
|
|
necessary_A = mkA "nécessaire" ;
|
|
own_A = mkA "propre" ;
|
|
have_VV = SyntaxFre.must_VV ;
|
|
provably_Adv = mkAdv "démontrablement" ;
|
|
provable_A = mkA "démontrable" ;
|
|
false_A = mkA "faux" ;
|
|
such_A = mkA "tel" "telle" ;
|
|
|
|
genitiveNP np cn = mkNP (mkNP the_Art cn) (SyntaxFre.mkAdv possess_Prep np) ;
|
|
|
|
each_Det = every_Det ; ----
|
|
|
|
that_Subj = mkSubj "que" ; ---- qu'
|
|
|
|
comma_and_Conj = mkConj [] ", et" plural ;
|
|
comma_or_Conj = mkConj [] ", ou" singular ;
|
|
slash_Conj = mkConj [] "/" singular ;
|
|
|
|
whose_IDet = mkIDet (mkIQuant "de qui") ; ----
|
|
|
|
eachOf np = mkNP (mkPredet "chacun" "chacune" genitive P.True) np ;
|
|
|
|
adj_thatCl : A -> S -> Cl = \a,s ->
|
|
mkCl (mkVP (mkVP (mkAP a)) (SyntaxFre.mkAdv that_Subj s)) ;
|
|
|
|
}
|