From 92a106339f5948e30119664dfe9dce1b66afe81b Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Thu, 21 Jun 2012 06:22:47 +0000
Subject: QueryFre instances, don't compile yet because of type discrepancies

---
 examples/query/small/patentsQuery/LexQueryFre.gf | 25 ++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 examples/query/small/patentsQuery/LexQueryFre.gf

(limited to 'examples/query/small/patentsQuery/LexQueryFre.gf')

diff --git a/examples/query/small/patentsQuery/LexQueryFre.gf b/examples/query/small/patentsQuery/LexQueryFre.gf
new file mode 100644
index 000000000..5fb4e603e
--- /dev/null
+++ b/examples/query/small/patentsQuery/LexQueryFre.gf
@@ -0,0 +1,25 @@
+instance LexQueryFre of LexQuery = open ParadigmsFre, SyntaxFre, ExtraFre, IrregFre, Prelude in {
+
+oper
+  about_Prep = on_Prep ;
+  also_AdV = lin AdV (ss "aussi") ;
+  as_Prep = mkPrep "comme" ;
+  at_Prep = mkPrep "chez" ;
+  called_A = mkA "appelé" ;
+  give_V3 = mkV3 (mkV "montrer") ;
+  information_N = mkN "information" ;
+  other_A = prefixA (mkA "autre") ;
+  name_N = mkN "nom" ;
+  all_NP = mkName "tout" ; ----
+
+-- 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 = which_RP ;
+
+}
\ No newline at end of file
-- 
cgit v1.2.3