a stemmed version of DictEngFin and ParseFin - now works without trouble!

2013-03-15 15:07:14 +00:00
parent 2295f491c7
commit 23a310be57
9 changed files with 40215 additions and 7 deletions
--- a/lib/src/finnish/stemmed/StemFin.gf
+++ b/lib/src/finnish/stemmed/StemFin.gf
@@ -278,4 +278,27 @@ oper
      False => glue x y 
      } ;

+-- for Symbol
+
+  defaultStemEnding : SNForm -> Str = \c -> case c of {
+      0 => "" ;
+      1 => "" ;
+      2 => "a" ;
+      3 => "na" ;
+      4 => "ii" ;
+      5 => "ie" ;
+      6 => "ia" ;
+      7 => "i" ;
+      8 => "i" ;
+      9 => "ihi"
+      } ; 
+  bindIfS : SNForm -> Str = \c -> case c of {
+    0|1 => [] ;
+    _ => BIND
+    } ;
+  bindColonIfS : SNForm -> Str = \c -> case c of {
+    0|1 => [] ;
+    _ => BIND ++ ":" ++ BIND
+    } ;
+
 }