building Finnish lexicon

This commit is contained in:
aarne
2005-06-27 09:02:45 +00:00
parent 19d635046c
commit 10d6757558
3 changed files with 114 additions and 90 deletions

View File

@@ -20,6 +20,8 @@
resource ParadigmsFin =
open (Predef=Predef), Prelude, SyntaxFin, CategoriesFin in {
flags optimize=values ;
--2 Parameters
--
-- To abstract over gender, number, and (some) case names,
@@ -324,7 +326,7 @@ reg3N = \vesi,veden,vesi
"aa" | "ee" | "ii" | "oo" | "uu" | "yy" | "ää" | "öö" => sPuu vesi ;
"ie" | "uo" | "yö" => sSuo vesi ;
"is" => sNauris (vesi + ("t" + a)) ;
"ut" | "yt" => sRae vesi (ves + ("en" + a)) ;
"ut" | "yt" | "as" | "äs" => sRae_vesi ; ---- (ves + ("en" + a)) ;
"us" | "ys" =>
ifTok CommonNoun d "s"
(sTilaus vesi (veden + a))