mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-21 18:59:32 -06:00
query language versions merged
This commit is contained in:
38
examples/query/TestQuerySwe.gf
Normal file
38
examples/query/TestQuerySwe.gf
Normal file
@@ -0,0 +1,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" ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user