summaryrefslogtreecommitdiff
path: root/examples/query/QueryFre.gf
diff options
context:
space:
mode:
authorjohn.j.camilleri <john.j.camilleri@chalmers.se>2013-09-16 07:17:27 +0000
committerjohn.j.camilleri <john.j.camilleri@chalmers.se>2013-09-16 07:17:27 +0000
commitf5461eb3d4eb2605b546a4ed202c12bcdaa1f4e4 (patch)
tree946c9e8542b8e8271b6b529a95c0400fa6613cb4 /examples/query/QueryFre.gf
parent8e1c6cca407c82fc09569d80c231b8d256735989 (diff)
Remove contribs and examples
Everything has now been moved to a separate repository at https://github.com/GrammaticalFramework/gf-contrib The contents of the examples folder are build during SetupWeb
Diffstat (limited to 'examples/query/QueryFre.gf')
-rw-r--r--examples/query/QueryFre.gf135
1 files changed, 0 insertions, 135 deletions
diff --git a/examples/query/QueryFre.gf b/examples/query/QueryFre.gf
deleted file mode 100644
index 8fd24473b..000000000
--- a/examples/query/QueryFre.gf
+++ /dev/null
@@ -1,135 +0,0 @@
---# -path=.:present
-
-concrete QueryFre of Query = QueryI -
- [namePrep, propCalled, SFun, SAll, IWhat]
-with
- (Syntax = SyntaxFre),
- (Lang = LangFre),
- (LexQuery = LexQueryFre) **
-open
- LexQueryFre,
- ParadigmsFre,
- IrregFre,
- SyntaxFre,
- ExtraFre,
- (L = LangFre),
- (M = MakeStructuralFre),
- Prelude
-in {
-
--- deviations from functor
-oper
--- prep not "av"
- namePrep = possess_Prep ;
--- verb "heta"
- propCalled : NP -> Prop = \i ->
- propVP (mkVP (mkAdV "aussi") (mkVP (mkV2 (reflV (mkV "appeler"))) i)) ;
-
-lin
- SAll k = mkNP all_Predet (mkNP thePl_Det k) | mkNP thePl_Det k ;
- SFun s r = mkNP (mkNP the_Quant plNum r.cn) (mkAdv r.prep s) ;
- IWhat = mkIP (mkIDet which_IQuant) | mkIP (mkIDet which_IQuant pluralNum) ;
-
-
--- lexicon
-
-lin
- Located = relAP (mkAP located_A) in_Prep ;
-
- In = relVP useCopula in_Prep ;
-
- Employed =
- relAP (mkAP (mkA "employé")) by8agent_Prep
- | relAP (mkAP (mkA "payé")) by8agent_Prep
- | relAP (mkAP (mkA "actif")) at_Prep
- | relAP (mkAP (mkA "professionnellement actif")) at_Prep
- | relVP (mkVP (mkV "travailler")) at_Prep
- ;
-
- HaveTitle =
- relAP (mkAP (mkA "employé")) som_Prep
- | relVP useCopula noPrep
- | relVP (mkVP (mkV "travailler")) som_Prep
- | relVP (mkVP have_V2 (mkNP the_Det (mkCN (mkN2 (mkN "titre" masculine) noPrep))))
- possess_Prep
- ;
-
- EmployedAt s =
- relAP (mkAP (mkA2 (mkA "employé") at_Prep) s) som_Prep
- | relAP (mkAP (mkA2 (mkA "employé") by8agent_Prep) s) som_Prep
- | relVP (mkVP (mkV2 (mkV "travailler") at_Prep) s) som_Prep
- ;
-
- HaveTitleAt t =
- relAP (mkAP (mkA2 (mkA "employé") som_Prep) (mkNP t)) at_Prep
- | relAP (mkAP (mkA2 (mkA "employé") som_Prep) (mkNP t)) by8agent_Prep
- | relVP (mkVP (mkNP a_Det t)) at_Prep
- | relVP (mkVP (mkV2 (mkV "travailler") som_Prep) (mkNP t)) at_Prep
- | relVP (mkVP have_V2 (mkNP the_Det (mkCN (mkN2 (mkN "titre") noPrep)
- (mkNP t)))) at_Prep
- ;
-
- Named n = propAP (mkAP (mkA2 called_A (mkPrep [])) n) ;
- Start n = propVP (mkVP (mkV2 (mkV "commencer") with_Prep) n) ;
-
- Organization = mkCN (mkN "organisation" feminine) ;
- Company = mkCN (mkN "entreprise") ;
- Place = mkCN (mkN "lieu") | mkCN (mkN "endroit") ;
- Person =
- mkCN (mkN "personne")
- | mkCN (mkN "personne" "gens" feminine) ;
-
- Location = mkFunctionP (mkN "localité") possess_Prep ;
- Region = mkFunctionP (mkN "région" feminine) possess_Prep ;
- Subregion = mkFunctionP (mkN "sous-région" feminine) possess_Prep ;
- FName = mkFunctionP (mkN "nom") possess_Prep ;
- FNickname = mkFunctionP (mkN "surnom") possess_Prep ;
- FJobTitle =
- mkFunctionP (mkN "titre" masculine) possess_Prep
- | mkFunctionP (mkN "position" feminine) possess_Prep ;
-
- 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} ;
- mkFunctionP : N -> Prep -> Fun =
- \n,p -> {cn = mkCN n ; prep = p} ;
-
- som_Prep = mkPrep "comme" ;
-
- noPrep = mkPrep [] ;
-
- useCopula = mkVP être_V ;
-
-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" ;
-
-}