1 files changed, 0 insertions, 64 deletions
diff --git a/next-lib/src/interlingua/MorphoIna.gf b/next-lib/src/interlingua/MorphoIna.gf
deleted file mode 100644
index 3ad94282a..000000000
--- a/next-lib/src/interlingua/MorphoIna.gf
+++ /dev/null
@@ -1,64 +0,0 @@
---# -path=.:../../prelude
-
---1 A Simple Interlingua Resource Morphology
---
--- Aarne Ranta 2003--2005
--- JP Bernardy 2007
---
--- This resource morphology contains definitions needed in the resource
--- syntax. To build a lexicon, it is better to use $ParadigmsIna$, which
--- gives a higher-level access to this module.
-
-resource MorphoIna = ResIna ** open Prelude, (Predef=Predef) in {
-
-  flags optimize=all ;
-
---2 Nouns
---
--- For conciseness and abstraction, we define a worst-case macro for
--- noun inflection. It is used for defining special case that
--- only need one string as argument.
-
-oper
-    CommonNoun  : Type = {s : Number => Str};  -- nouns are inflected in number
-
-    nounGen : Str -> Str -> CommonNoun = \mec,mecs -> 
-      {s = table {Sg => mec;
-		  Pl => mecs
-	 };
-      };
-
-    nounReg : Str -> CommonNoun = \cas -> 
-      let s = case last cas of {
-	    "a" | "e" | "i" | "o" | "u" => "s" ;
-	  "c" => "hes";
-	  _ => "es" 
-	    }
-      in nounGen cas (cas + s) ;
-
---2 Determiners
-
-    mkDeterminer : Number -> Str -> {s : Case => Str ; n : Number} = \n,s ->
-      {s = \\c=>casePrep "" c ++ s ; n = n} ;
-
-    mkIDeterminer : Number -> Str -> {s : Str ; n : Number} = \n,s ->
-      {s = s ; n = n} ;
-
---2 Adjectives
---
--- To form the adjectival and the adverbial forms, 3 strings are needed
--- in the worst case. (bon, melior, optime)
-
-  Adjective = {s : AForm => Str} ;
-
--- However, most adjectives can be inflected using the final character.
-
-  regAdjective : Str -> Adjective = \clar -> 
-    mkAdjective clar ("plus" ++ clar) ("le" ++ "plus" ++ clar) ; 
-
---3 Verbs
-
-  -- defined in resina
-
-} ;
-