summaryrefslogtreecommitdiff
path: root/examples/query/small/patentsQuery/LexQueryEng.gf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/query/small/patentsQuery/LexQueryEng.gf')
-rw-r--r--examples/query/small/patentsQuery/LexQueryEng.gf26
1 files changed, 26 insertions, 0 deletions
diff --git a/examples/query/small/patentsQuery/LexQueryEng.gf b/examples/query/small/patentsQuery/LexQueryEng.gf
new file mode 100644
index 000000000..5e543aabb
--- /dev/null
+++ b/examples/query/small/patentsQuery/LexQueryEng.gf
@@ -0,0 +1,26 @@
+instance LexQueryEng of LexQuery = open ParadigmsEng, SyntaxEng, ExtraEng, IrregEng in {
+
+oper
+-- structural words
+ about_Prep = mkPrep "about" ;
+ all_NP = mkNP (mkPN "all") ; ---
+ also_AdV = mkAdV "also" | mkAdV "otherwise" ;
+ as_Prep = mkPrep "as" ;
+ at_Prep = mkPrep "at" ;
+ called_A = mkA "called" | mkA "named" ;
+ give_V3 = mkV3 give_V ;
+ information_N = mkN "information" ;
+ other_A = mkA "other" ;
+ name_N = mkN "name" ;
+
+-- lexical constructors
+ mkName : Str -> NP =
+ \s -> mkNP (mkPN s) ;
+
+oper
+ mkRelation : Str -> {cn : CN ; prep : Prep} =
+ \s -> {cn = mkCN (mkN s) ; prep = possess_Prep} ;
+
+ that_RP = ExtraEng.that_RP ;
+
+} \ No newline at end of file