diff options
| author | aarne <aarne@cs.chalmers.se> | 2005-12-19 16:31:40 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2005-12-19 16:31:40 +0000 |
| commit | bfbe2e3d47e5f1904846609c80058f0561d76ede (patch) | |
| tree | e41e9d1f35e48afa7049b0d05362d10df7078ae6 /doc/tutorial/MorphoEng.gf | |
| parent | 7878cd5e0ad8d8097a1f7a6b9885b4825fc47686 (diff) | |
resource examples
Diffstat (limited to 'doc/tutorial/MorphoEng.gf')
| -rw-r--r-- | doc/tutorial/MorphoEng.gf | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/doc/tutorial/MorphoEng.gf b/doc/tutorial/MorphoEng.gf deleted file mode 100644 index a6a25b08c..000000000 --- a/doc/tutorial/MorphoEng.gf +++ /dev/null @@ -1,33 +0,0 @@ ---# -path=.:prelude - -resource MorphoEng = open Prelude in { - - param - Number = Sg | Pl ; - - oper - Noun, Verb : Type = {s : Number => Str} ; - - mkNoun : Str -> Str -> Noun = \x,y -> { - s = table { - Sg => x ; - Pl => y - } - } ; - - regNoun : Str -> Noun = \s -> case last s of { - "s" | "z" => mkNoun s (s + "es") ; - "y" => mkNoun s (init s + "ies") ; - _ => mkNoun s (s + "s") - } ; - - mkVerb : Str -> Str -> Verb = \x,y -> mkNoun y x ; - - regVerb : Str -> Verb = \s -> case last s of { - "s" | "z" => mkVerb s (s + "es") ; - "y" => mkVerb s (init s + "ies") ; - "o" => mkVerb s (s + "es") ; - _ => mkVerb s (s + "s") - } ; - - } |
