From fff9b01aa91cf8f2f2b78641d6234cda459370f1 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 5 Oct 2005 07:47:26 +0000
Subject: ENglish

---
 examples/gfcc/ResImperEng.gf | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 examples/gfcc/ResImperEng.gf

(limited to 'examples/gfcc/ResImperEng.gf')

diff --git a/examples/gfcc/ResImperEng.gf b/examples/gfcc/ResImperEng.gf
new file mode 100644
index 000000000..87cb30a54
--- /dev/null
+++ b/examples/gfcc/ResImperEng.gf
@@ -0,0 +1,16 @@
+resource ResImperEng = open Predef, Prelude in {
+
+  oper
+    indef = pre {"a" ; 
+                  "an" / strs {"a" ; "e" ; "i" ; "o" ; "A" ; "E" ; "I" ; "O" }} ;
+
+    constant : Str -> SS  = ss ;
+    prefix   : Str -> SS -> SS -> SS = \f,x,y -> 
+      ss ("the" ++ f ++ "of" ++ x.s ++ "and" ++ y.s) ;
+    comparison : Str -> SS -> SS -> SS = \f,x,y -> 
+      ss (x.s ++ "is" ++ f ++ "than" ++ y.s) ;
+    continues : Str -> SS -> SS = \s,t -> ss (s ++ "." ++ t.s) ; 
+    continue  : Str -> SS -> SS = \s,t -> ss (s ++        t.s) ; 
+    statement : Str -> SS       = \s   -> ss (s ++ "."); 
+
+}
-- 
cgit v1.2.3