diff options
| author | aarne <aarne@chalmers.se> | 2010-03-02 19:27:34 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-03-02 19:27:34 +0000 |
| commit | dbe5a210b7d4a7940d9ffc76d862f6be2526bb37 (patch) | |
| tree | c0479e1a30bce75252235d158b79b96d5cd32b33 /examples/gfcc/ResImperEng.gf | |
| parent | e4748e998453b979af46983a079f2ec3d307ada4 (diff) | |
cleaned up gfcc ; added gfcc script
Diffstat (limited to 'examples/gfcc/ResImperEng.gf')
| -rw-r--r-- | examples/gfcc/ResImperEng.gf | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/examples/gfcc/ResImperEng.gf b/examples/gfcc/ResImperEng.gf deleted file mode 100644 index 87cb30a54..000000000 --- a/examples/gfcc/ResImperEng.gf +++ /dev/null @@ -1,16 +0,0 @@ -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 ++ "."); - -} |
