changed names of resource-1.3; added a note on homepage on release

1 files changed, 0 insertions, 100 deletions

diff --git a/examples/uusisuomi/Verbal.gf b/examples/uusisuomi/Verbal.gf
deleted file mode 100644
index fbc60fed5..000000000
--- a/examples/uusisuomi/Verbal.gf
+++ /dev/null
@@ -1,100 +0,0 @@
---# -path=.:alltenses
-
-resource Verbal = ResFin ** 
-  open MorphoFin,Declensions,Conjugations,CatFin,Prelude in {
-
-  flags optimize=noexpand ;
-
-  oper
-
-  mkV = overload {
-    mkV : (huutaa : Str) -> V = mk1V ;
-    mkV : (huutaa,huusi : Str) -> V = mk2V ;
-    mkV : (
-      huutaa,huudan,huutaa,huutavat,huutakaa,huudetaan,
-      huusin,huusi,huusisi,huutanut,huudettu,huutanee : Str) -> V = mk12V ;
-  } ;
-
-  showV : V -> Utt = \v -> ss (
-   v.s ! Inf Inf1 ++
-   v.s ! Presn  Sg P1 ++
-   v.s ! Presn  Sg P3 ++
-   v.s ! Presn  Pl P3 ++
-   v.s ! Imper Pl ++
-   v.s ! Pass True ++
-   v.s ! Impf   Sg P1 ++
-   v.s ! Impf   Sg P3 ++
-   v.s ! Condit Sg P3 ++
-   v.s ! PastPartAct (AN (NCase Sg Nom)) ++
-   v.s ! PastPartPass (AN (NCase Sg Nom))
-   ) ** {lock_Utt = <>} ;
-
-  mk1V : Str -> V = \s -> vforms2V (vForms1 s) ;
-  mk2V : (_,_ : Str) -> V = \s,t -> vforms2V (vForms2 s t) ;
-
-  mk12V : (
-      huutaa,huudan,huutaa,huutavat,huutakaa,huudetaan,
-      huusin,huusi,huusisi,huutanut,huudettu,huutanee : Str) -> V = 
-     \a,b,c,d,e,f,g,h,i,j,k,l -> 
-        vforms2V (vForms12 a b c d e f g h i j k l) ;
-
-  vForms1 : Str -> VForms = \ottaa ->
-    let
-      a = last ottaa ;
-      otta = init ottaa ; 
-      ott  = init otta ;
-      ots  = init ott + "s" ;
-      ota  = weakGrade otta ;
-      otin = init (Declensions.strongGrade (init ott)) + "elin" ;
-      ot   = init ota ;
-    in
-    case ottaa of {
-      _ + ("e" | "i" | "o" | "u" | "y" | "ö") + ("a" | "ä") =>
-        cHukkua ottaa (ota + "n") ;
-      _ + ("l" | "n" | "r") + ("taa" | "tää") => 
-        cOttaa ottaa (ota + "n") (ots + "in") (ots + "i") ;
-      ("" | C_) + ("a" | "e" | "i" | "o" | "u") + C_ + _ + 
-        ("a" | "e" | "i" | "o" | "u") + _ + "aa" => 
-        cOttaa ottaa (ota + "n") (ot + "in") (ott + "i") ;
-      ("" | C_) + ("a" | "e" | "i") + _ + "aa" => 
-        cOttaa ottaa (ota + "n") (ot + "oin") (ott + "oi") ;
-      _ + ("aa" | "ää") => 
-        cOttaa ottaa (ota + "n") (ot + "in") (ott + "i") ;
-      _ + ("ella" | "ellä") => 
-        cKuunnella ottaa otin ;
-      _ + ("osta" | "östä") => 
-        cJuosta ottaa (init ott + "ksen") ;
-      _ + ("st" | "nn" | "ll" | "rr") + ("a" | "ä") => 
-        cJuosta ottaa (ott + "en") ;
-      _ + ("ita" | "itä") => 
-        cHarkita ottaa ;
-      _ + ("eta" | "etä" | "ota" | "ata" | "uta" | "ytä" | "ätä" | "ötä") => 
-        cPudota ottaa (Declensions.strongGrade ott + "si") ;
-      _ + ("da" | "dä") => 
-        cJuoda ottaa ;
-      _ => Predef.error (["expected infinitive, found"] ++ ottaa) 
-    } ;   
-
-  vForms2 : (_,_ : Str) -> VForms = \huutaa,huusi ->
-    let
-      huuda = weakGrade (init huutaa) ;
-      huusin = weakGrade huusi + "n" ;
-      autoin = weakGrade (init huusi) + "in" ;
-    in 
-    case <huutaa,huusi> of {
-      <_ + ("taa" | "tää"), _ + ("oi" | "öi")> =>
-        cOttaa huutaa (huuda + "n") autoin huusi ;
-      <_ + ("aa" | "ää"), _ + "i"> =>
-        cOttaa huutaa (huuda + "n") huusin huusi ;
-      <_ + ("eta" | "etä"), _ + "eni"> =>
-        cValjeta huutaa huusi ;
-      <_ + ("sta" | "stä"), _ + "si"> =>
-        vForms1 huutaa ; -- pestä, halkaista
-      <_ + ("ta" | "tä"), _ + "si"> =>
-        cPudota huutaa huusi ;
-      <_ + ("lla" | "llä"), _ + "li"> =>
-        cKuunnella huutaa huusin ;
-      _ => vForms1 huutaa
-      } ;
-
-}