forked from GitHub/gf-core
39 lines
890 B
Plaintext
39 lines
890 B
Plaintext
--# -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" ;
|
|
|
|
}
|