blob: da20230e985cf46f0700064c2618ad78b0c8cab6 (
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
|
--# -path=.:present
concrete TestQuerySwe of TestQuery = QuerySwe **
open
LexQuerySwe,
ParadigmsSwe,
IrregSwe,
SyntaxSwe,
ExtraSwe,
(L = LangSwe),
(M = MakeStructuralSwe),
Prelude
in {
-- test lexicon
lin
USA = mkCountry "USA" "amerikansk" ;
Bulgaria = mkCountry "Bulgarien" "bulgarisk" ;
California = mkCountry "Kalifornien" "Kalifornisk" ;
OblastSofiya = mkName "Oblast Sofiya" ;
CEO = mkCN (mkN "VD" "VD:ar") ;
ChiefInformationOfficer = mkCN (mkN "chefsinformatör" "chefsinformatörer") ;
Microsoft = mkName "Microsoft" ;
Google = mkName "Google" ;
SergeyBrin = mkName "Sergey Brin" ;
LarryPage = mkName "Larry Page" ;
EricSchmidt = mkName "Eric Schmidt" ;
MarissaMayer = mkName "Marissa Mayer" ;
UdiManber = mkName "Udi Manber" ;
CarlGustavJung = mkName "Carl Gustav Jung" ;
Jung = mkName "Jung" ;
BenFried = mkName "Ben Fried" ;
}
|
