blob: 85d42ff0d42424478c485361fcc653a61d308bbd (
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
|
instance LexQueryFre of LexQuery =
open SyntaxFre, (M = MakeStructuralFre), ParadigmsFre, ExtraFre, IrregFre in {
oper
located_A : A = mkA "situé" ;
giveMe = \np -> mkVP (mkV2 (mkV "montrer")) np ; ---
know_V2 = IrregFre.savoir_V2 ;
-- structural words
about_Prep : Prep = mkPrep "sur" ;
all_NP : NP = mkNP (mkPN "tout") ; ---
also_AdV : AdV = mkAdV "aussi" ;
also_AdA : AdA = mkAdA "aussi" ;
as_Prep : Prep = mkPrep "pour" ; --- only used for "vad har X för Y"
at_Prep : Prep = mkPrep "chez" ; --- | mkPrep "hos" | mkPrep "vid" ;
that_RP = which_RP ;
participlePropCN : Prop -> CN -> CN = variants {} ;
vpAP _ = mkAP (mkA "nonexistant") ; --- not used, see LexQuery.participlePropCN
called_A : A = mkA "appelé" ;
information_N : N = mkN "information" feminine ;
other_A : A = prefixA (mkA "autre") ;
otherwise_AdV : AdV = mkAdV "autrement" ;
otherwise_AdA : AdA = mkAdA "autrement" ;
what_IQuant : IQuant = which_IQuant ;
}
|
