blob: e7ce15ba343f0c70ee92132136df3a597ce08d33 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
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)) ;
}
|
