From f5461eb3d4eb2605b546a4ed202c12bcdaa1f4e4 Mon Sep 17 00:00:00 2001
From: "john.j.camilleri" <john.j.camilleri@chalmers.se>
Date: Mon, 16 Sep 2013 07:17:27 +0000
Subject: Remove contribs and examples

Everything has now been moved to a separate repository at
https://github.com/GrammaticalFramework/gf-contrib
The contents of the examples folder are build during SetupWeb
---
 examples/tutorial/syntax/MorphoEng.gf | 69 -----------------------------------
 1 file changed, 69 deletions(-)
 delete mode 100644 examples/tutorial/syntax/MorphoEng.gf

(limited to 'examples/tutorial/syntax/MorphoEng.gf')

diff --git a/examples/tutorial/syntax/MorphoEng.gf b/examples/tutorial/syntax/MorphoEng.gf
deleted file mode 100644
index b2255d0d4..000000000
--- a/examples/tutorial/syntax/MorphoEng.gf
+++ /dev/null
@@ -1,69 +0,0 @@
---# -path=.:prelude
-
-resource MorphoEng = open Prelude in {
-
-  -- the lexicon construction API
-
-    oper
-      mkN : overload {
-        mkN : (bus : Str) -> Noun ;
-        mkN : (man,men : Str) -> Noun ;
-      } ;
-
-      mkA : (warm : Str) -> Adjective ;
-
-      mkV : overload {
-        mkV : (kiss : Str) -> Verb ;
-        mkV : (do,does : Str) -> Verb ;
-      } ;
-
-      mkV2 : overload {
-        mkV2 : (love : Verb) -> Verb2 ;
-        mkV2 : (talk : Verb) -> (about : Str) -> Verb2 ;
-      } ;
-
-  -- grammar-internal definitions
-
-    param
-      Number = Sg | Pl ;
-
-    oper
-      Noun, Verb : Type = {s : Number => Str} ;
-      Adjective : Type = {s : Str} ;
-      Verb2 : Type = Verb ** {c : Str} ;
-
-      mkN = overload {
-        mkN : (bus : Str) -> Noun = \s -> mkNoun s (add_s s) ;
-        mkN : (man,men : Str) -> Noun = mkNoun ;
-      } ;
-
-      mkA : (warm : Str) -> Adjective = ss ;
-
-      mkV = overload {
-        mkV : (kiss : Str) -> Verb = \s -> mkVerb s (add_s s) ;
-        mkV : (do,does : Str) -> Verb = mkVerb ;
-      } ;
-
-      mkV2 = overload {
-        mkV2 : (love : Verb) -> Verb2 = \love -> love ** {c = []} ;
-        mkV2 : (talk : Verb) -> (about : Str) -> Verb2 = 
-          \talk,about -> talk ** {c = about} ;
-      } ;
-
-      add_s : Str -> Str = \w -> case w of {
-        _ + "oo"                           => w + "s" ;   -- bamboo
-        _ + ("s" | "z" | "x" | "sh" | "o") => w + "es" ;  -- bus, hero
-        _ + ("a" | "o" | "u" | "e") + "y"  => w + "s" ;   -- boy
-        x + "y"                            => x + "ies" ; -- fly
-        _                                  => w + "s"     -- car
-      } ;
-
-      mkNoun : Str -> Str -> Noun = \x,y -> {
-        s = table {
-          Sg => x ;
-          Pl => y
-          }
-        } ;
-
-      mkVerb : Str -> Str -> Verb = \x,y -> mkNoun y x ;
-  }
-- 
cgit v1.2.3