blob: 72c77ed680a6849bacc7e08900d9843c70410a10 (
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
--# -path=.:alltenses
concrete QueryGer of Query = open
ParadigmsGer,
SyntaxGer,
ExtraGer,
(G = GrammarGer),
SymbolicGer,
Prelude
in {
flags coding = utf8 ;
-- for a baseline: just change these lexical entries
oper
about_Prep = on_Prep ;
also_AdV = lin AdV (ss "auch") ;
as_Prep = mkPrep "als" nominative ;
at_Prep = mkPrep "bei" dative ;
called_A = mkA "gekannt" ;
give_V = mkV "zeigen" ;
information_N = mkN "Information" ;
other_A = mkA "ander" ;
name_N = mkN "Name" "Namen" masculine ;
nickname_N = mkN "Spitzname" "Spitznamen" masculine ;
located_A = mkA "situiert" ;
employed_A = mkA "beschäftigt" ;
work_V = mkV "arbeiten" ;
position_N = mkN "Position" ;
organization_N = mkN "Organisation" ;
place_N = mkN "Stelle" ;
person_N = mkN "Persone" ;
location_N = mkN "Lage" ;
region_N = mkN "Region" ;
subregion_N = mkN "Teilbereich" "Teilbereiche" masculine ;
lincat
Move = Utt ; ---- Text ;
Query = Utt ;
Answer = Utt ;
Set = NP ;
Relation = {cn : CN ; prep : Prep} ;
Kind = CN ;
Property = AP ; ---- {vp : VP ; typ : PropTyp} ;
Individual = NP ;
Activity = VP ;
Name = NP ;
Loc = NP ;
Org = NP ;
Pers = NP ;
[Individual] = [NP] ;
lin
MQuery q = q ;
MAnswer a = a ;
QSet s = mkUtt politeImpForm (mkImp (mkVP (mkV2 give_V) s)) ;
QWhere s = mkUtt (mkQS (mkQCl where_IAdv s)) ;
QInfo s = mkUtt politeImpForm (mkImp (mkVP (mkV2 give_V)
(mkNP all_Predet (mkNP aPl_Det (mkCN information_N (mkAdv (mkPrep "über" accusative) s)))))) ;
QCalled i = mkUtt (mkQS (mkQCl (mkIP whichSg_IDet (mkCN other_A name_N)) i have_V2)) ;
AKind s k = mkUtt (mkCl s (mkNP aPl_Det k)) ;
AProp s p = mkUtt (mkCl s p) ;
AAct s p = mkUtt (mkCl s p) ;
SAll k = mkNP all_Predet (mkNP aPl_Det k) ;
SOne k = mkNP a_Det k ;
SIndef k = mkNP someSg_Det k ;
SPlural k = mkNP aPl_Det k ;
SOther k = mkNP aPl_Det (mkCN other_A k) ;
SInd i = i ;
SInds is = mkNP and_Conj is ;
KRelSet r s = mkCN r.cn (mkAdv r.prep s) ;
KRelKind k r s = mkCN k (mkRS (mkRCl which_RP (mkVP (mkNP aPl_Det (mkCN r.cn (mkAdv r.prep s)))))) ;
KRelPair k r = mkCN k (mkAdv with_Prep (mkNP (mkQuant they_Pron) plNum r.cn)) ;
KProp p k = mkCN p k ;
KAct p k = mkCN k (mkRS (mkRCl which_RP p)) ;
KRel r = r.cn ;
IName n = n ;
NLoc n = n ;
NOrg n = n ;
NPers n = n;
ACalled is = mkVP also_AdV (mkVP (mkAP (mkA2 called_A (mkPrep "" nominative)) (mkNP or_Conj is))) ;
BaseIndividual = mkListNP ;
ConsIndividual = mkListNP ;
oper
-- lexical constructors
mkName : Str -> NP =
\s -> mkNP (mkPN s) ;
mkRelation : N -> {cn : CN ; prep : Prep} =
\s -> {cn = mkCN s ; prep = possess_Prep} ;
-- lexicon
lincat
JobTitle = CN ;
lin
Located i = mkAP (mkA2 located_A in_Prep) i ;
Employed i = mkAP (mkA2 employed_A at_Prep) i ;
Work i = mkVP (mkV2 work_V at_Prep) i ;
HaveTitle t = mkVP have_V2 (mkNP the_Det (mkCN position_N (mkAdv possess_Prep (mkNP t)))) ;
HaveTitleOrg t i = mkVP (mkVP have_V2 (mkNP the_Det (mkCN position_N (mkAdv possess_Prep (mkNP t))))) (mkAdv in_Prep i) ;
Organization = mkCN organization_N ;
Place = mkCN place_N ;
Person = mkCN person_N ;
Location = mkRelation location_N ;
Region = mkRelation region_N ;
Subregion = mkRelation subregion_N ;
RName = mkRelation name_N ;
RNickname = mkRelation nickname_N ;
-- JobTitles
JobTitle1 = mkCN (mkN "'JobTitle1") ;
JobTitle2 = mkCN (mkN "'JobTitle2") ;
JobTitle3 = mkCN (mkN "'JobTitle3") ;
JobTitle4 = mkCN (mkN "'JobTitle4") ;
-- Locations
Location1 = mkName "'Location1" ;
Location2 = mkName "'Location2" ;
Location3 = mkName "'Location3" ;
Location4 = mkName "'Location4" ;
-- Organizations
Organization1 = mkName "'Organization1" ;
Organization2 = mkName "'Organization2" ;
Organization3 = mkName "'Organization3" ;
Organization4 = mkName "'Organization4" ;
-- Persons
Person1 = mkName "'Person1" ;
Person2 = mkName "'Person2" ;
Person3 = mkName "'Person3" ;
Person4 = mkName "'Person4" ;
}
|
