blob: c38885a25c652e16a454f69bbff17ce22a42ea1b (
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
34
35
36
37
38
39
|
instance LexAttemptoUrd of LexAttempto =
open
ExtraUrd,
SyntaxUrd,
ParadigmsUrd,
ConstructX,
(M = MakeStructuralUrd)
-- IrregUrd
in {
oper
possible_A = mkA "mmkn" ;
necessary_A = mkA "Zrwry" ;
own_A = mkA "apna" ;
have_VV = mkVV have_V ;
provably_Adv = ParadigmsUrd.mkAdv "sabt" ;
provable_A = mkA "sabt" ;
false_A = mkA "GlT" ;
such_A = mkA "aisa" ;
genitiveNP np = mkNP (GenNP np) ;
kilogram_CN = mkCN (mkN "klwgram") ;
each_Det = ExtraUrd.each_Det ;
that_Subj = M.mkSubj "kh" ;
comma_and_Conj = mkConj [] "awr" plural ;
comma_or_Conj = mkConj [] "ya" singular ;
slash_Conj = mkConj [] "/" singular ;
whose_IDet = M.mkIDet "ks ka" singular ;
eachOf np = mkNP (mkNP each_Det) (SyntaxUrd.mkAdv part_Prep np) ;
adj_thatCl : A -> S -> Cl = \a,s -> mkCl (mkVP (mkAP (mkAP a) s)) ;
}
|
