forked from GitHub/gf-core
112 lines
3.1 KiB
Plaintext
112 lines
3.1 KiB
Plaintext
--# -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" ;
|
|
|
|
}
|