From 2b77d3e0b05d59c9e7c5a9d50b3a850ddeed82dd Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Fri, 24 Aug 2012 06:30:10 +0000
Subject: extended mini resource grammar in examples, with Eng, Ita, Cmn
 (Mandarin Chinese by Jolene)

---
 examples/extmini/ParadigmsEng.gf | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 examples/extmini/ParadigmsEng.gf

(limited to 'examples/extmini/ParadigmsEng.gf')

diff --git a/examples/extmini/ParadigmsEng.gf b/examples/extmini/ParadigmsEng.gf
new file mode 100644
index 000000000..ce46159d8
--- /dev/null
+++ b/examples/extmini/ParadigmsEng.gf
@@ -0,0 +1,36 @@
+resource ParadigmsEng = GrammarEng [N,A,V] ** 
+  open ResEng, GrammarEng, Prelude in {
+
+oper
+  mkN = overload {
+    mkN : (dog : Str) -> N 
+      = \n -> lin N (regNoun n) ;
+    mkN : (man, men : Str) -> N 
+      = \s,p -> lin N (mkNoun s p) ;
+    } ;
+
+  mkPN : (john : Str) -> PN
+     = \s -> lin PN (ss s) ;  
+
+  mkA = overload {
+    mkA : (small : Str) -> A 
+      = \a -> lin A (mkAdj a) ;
+    } ;
+
+  mkV = overload {
+    mkV : (walk : Str) -> V 
+      = \v -> lin V (regVerb v) ;
+    mkV : (go,goes,went,gone : Str) -> V 
+      = \p1,p2,p3,p4 -> lin V (mkVerb p1 p2 p3 p4) ;
+    } ;
+
+  mkV2 = overload {
+    mkV2 : Str -> V2
+      = \s -> lin V2 (regVerb s ** {c = []}) ;
+    mkV2 : V -> V2
+      = \v -> lin V2 (v ** {c = []}) ;
+    mkV2 : V -> Str -> V2
+      = \v,p -> lin V2 (v ** {c = p}) ;
+    } ;
+
+}
-- 
cgit v1.2.3