summaryrefslogtreecommitdiff
path: root/doc/tutorial/MorphoEng.gf
diff options
context:
space:
mode:
Diffstat (limited to 'doc/tutorial/MorphoEng.gf')
-rw-r--r--doc/tutorial/MorphoEng.gf33
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")
- } ;
-
- }