summaryrefslogtreecommitdiff
path: root/examples/query/QueryEng.gf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/query/QueryEng.gf')
-rw-r--r--examples/query/QueryEng.gf111
1 files changed, 0 insertions, 111 deletions
diff --git a/examples/query/QueryEng.gf b/examples/query/QueryEng.gf
deleted file mode 100644
index 77f2cfda8..000000000
--- a/examples/query/QueryEng.gf
+++ /dev/null
@@ -1,111 +0,0 @@
---# -path=.:present
-
-concrete QueryEng of Query = QueryI with
- (Syntax = SyntaxEng),
- (Lang = LangEng),
- (LexQuery = LexQueryEng) **
-open
- LexQueryEng,
- ParadigmsEng,
- IrregEng,
- SyntaxEng,
- ExtraEng,
- (L = LangEng),
- (M = MakeStructuralEng),
- Prelude
-in {
-
--- lexicon
-
-lin
- Located = relAP (mkAP located_A) in_Prep ;
-
- In = relVP UseCopula in_Prep ;
-
- Employed =
- relAP (mkAP (mkA "employed")) at_Prep
--- | relAP (mkAP (mkA "employed")) by8agent_Prep
- | relAP (mkAP (mkA "paid")) by8agent_Prep
- | relAP (mkAP (mkA "active")) at_Prep
- | relAP (mkAP (mkA "professionally active")) at_Prep
- | relVP (mkVP (mkV "work")) at_Prep
- | relVP (mkVP (mkV "collaborate")) in_Prep
- ;
-
- HaveTitle =
- relAP (mkAP (mkA "employed")) as_Prep
--- | relVP UseCopula noPrep
- | relVP (mkVP (mkV "work")) as_Prep
--- | relVP (mkVP have_V2 (mkNP the_Det (mkCN (mkN2 (mkN "title"))))) possess_Prep
- ;
-
- EmployedAt s =
- relAP (mkAP (mkA2 (mkA "employed") at_Prep) s) as_Prep
--- | relAP (mkAP (mkA2 (mkA "employed") by8agent_Prep) s) as_Prep
- | relVP (mkVP (mkV2 (mkV "work") at_Prep) s) as_Prep
- ;
-
- HaveTitleAt t =
- relAP (mkAP (mkA2 (mkA "employed") as_Prep) (mkNP t)) at_Prep
--- | relAP (mkAP (mkA2 (mkA "employed") as_Prep) (mkNP t)) by8agent_Prep
- | relVP (mkVP (mkNP a_Det t)) at_Prep
- | relVP (mkVP (mkV2 (mkV "work") as_Prep) (mkNP t)) at_Prep
--- | relVP (mkVP have_V2 (mkNP the_Det (mkCN (mkN2 (mkN "title")) (mkNP t)))) at_Prep
- ;
-
- Named n = propAP (mkAP (mkA2 (mkA "named") []) n) ;
- Start n = propVP (mkVP (mkV2 "start" with_Prep) n) ;
-
- Organization = mkCN (mkN "organization") ;
- Company = mkCN (mkN "company") ;
- Place = mkCN (mkN "place") ;
- Person =
- mkCN (mkN "person" "people")
- | mkCN (mkN "person") ;
-
- Location = mkFunction "location" ;
- Region = mkFunction "region" ;
- Subregion = mkFunction "subregion" | mkFunction "sub-region" ;
- FName = mkFunction "name" ;
- FNickname = mkFunction "nickname" ;
- FJobTitle = mkFunction "job title" | mkFunction "job" | mkFunction "position" |
- mkFunction "appointment" | mkFunction "job position" | mkFunction "mandate" |
- mkFunction "title" | mkFunction "capacity" ;
-
- SJobTitle t = mkNP a_Det t ;
-
-oper
- mkCountry : Str -> Str -> {np : NP ; a : A} =
- \n,a -> {np = mkNP (mkPN n) ; a = mkA a} ;
-
- mkName : Str -> NP =
- \s -> mkNP (mkPN s) ;
- mkFunction : Str -> Fun =
- \s -> {cn = mkCN (mkN s) ; prep = possess_Prep} ;
-
-lin
--- 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" ;
-
-}