moving a few things to deprecated

1 files changed, 0 insertions, 106 deletions

diff --git a/old-lib/resource/turkish/ResTur.gf b/old-lib/resource/turkish/ResTur.gf
deleted file mode 100644
index 1fc1a8157..000000000
--- a/old-lib/resource/turkish/ResTur.gf
+++ /dev/null
@@ -1,106 +0,0 @@
---# -path=.:../abstract:../common:../../prelude
-
-resource ResTur = ParamX ** open Prelude, Predef in {
-
---2 For $Noun$
-
-  param
-    Case = Nom | Acc | Dat | Gen | Loc | Ablat | Abess ;
-
-    Species = Indef | Def ;
-
-    VForm = 
-       VPres      Number Person
-     | VPast      Number Person
-     | VFuture    Number Person
-     | VAorist    Number Person
-     | VImperative
-     | VInfinitive
-     ;
-
-  oper
-    Agr = {n : Number ; p : Person} ;
-
--- For $Verb$.
-
-    Verb : Type = {
-      s : VForm => Str
-      } ;
-
---2 For $Numeral$
-  param
-    DForm = unit | ten ;
-
--- For $Numeral$.
-  oper
-    mkNum : Str -> Str -> {s : DForm => Str} = 
-      \two, twenty ->
-      {s = table {
-         unit => two ; 
-         ten  => twenty
-         }
-      } ;
-      
-    mkNP : (ben,beni,bana,banin,bende,benden:Str) -> Number -> Person ->
-     {s : Case => Str ; a : Agr} =
-     \ben,beni,bana,banin,bende,benden,n,p -> {
-     s = table {
-       Nom => ben ;
-       Acc => beni ;
-       Dat => bana ;
-       Gen => banin ;
-       Loc => bende ;
-       Abl => benden
-       } ;
-     a = {n=n; p=p} ;
-     } ;
-
-  oper
-    harmony4 : Str -> Str -> Str
-      = \base,suffix0 ->
-          let c : Str = 
-               case base of {
-                 _+c@("ı"|"a"|"i"|"e"|"u"|"o"|"ü"|"ö")+
-                 ("b"|"v"|"d"|"z"|"j"|"c"|"g"|"ğ"|"l"|"r"|"m"|"n"|"y"|"p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h")* => c ;
-                 _ => error "harmony4"
-               } ;
-              h : Str =
-               case c of {
-                 ("ı"|"a") => "ı" ;
-                 ("i"|"e") => "i" ;
-                 ("u"|"o") => "u" ;
-                 ("ü"|"ö") => "ü"
-               } ;
-              suffix : Str = 
-               case suffix0 of {
-                  s1@(("b"|"v"|"d"|"z"|"j"|"c"|"g"|"ğ"|"l"|"r"|"m"|"n"|"y"|"p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h")*)
-                 +   ("ı"|"a"|"i"|"e"|"u"|"o"|"ü"|"ö")
-                 +s2 => s1+h+s2 ;
-                 s => s
-               }
-          in base + suffix ;
-
-    harmony2 : Str -> Str -> Str
-      = \base,suffix0 ->
-          let c : Str = 
-               case base of {
-                 _+c@("ı"|"a"|"i"|"e"|"u"|"o"|"ü"|"ö")+
-                 ("b"|"v"|"d"|"z"|"j"|"c"|"g"|"ğ"|"l"|"r"|"m"|"n"|"y"|"p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h")* => c ;
-                 _ => error "harmony4"
-               } ;
-              h : Str =
-               case c of {
-                 ("ı"|"a") => "ı" ;
-                 ("i"|"e") => "i" ;
-                 ("u"|"o") => "u" ;
-                 ("ü"|"ö") => "ü"
-               } ;
-              suffix : Str = 
-               case suffix0 of {
-                  s1@(("b"|"v"|"d"|"z"|"j"|"c"|"g"|"ğ"|"l"|"r"|"m"|"n"|"y"|"p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h")*)
-                 +   ("ı"|"a"|"i"|"e"|"u"|"o"|"ü"|"ö")
-                 +s2 => s1+h+s2 ;
-                 s => s
-               }
-          in base + suffix ;
-}