Automatic whitespace removal

src/finnish/NumeralFin.gf

@@ -6,39 +6,39 @@ concrete NumeralFin of Numeral = CatFin [Numeral,Digits] **  open Prelude, Parad
 flags optimize = all_subs ;
     coding=utf8 ;
 
-lincat 
+lincat
   Sub1000000 = {s : CardOrd => Str ; n : MorphoFin.Number} ;
   Digit = {s : CardOrd => Str} ;
   Sub10, Sub100, Sub1000 = {s : NumPlace => CardOrd => Str ; n : MorphoFin.Number} ;
 
-lin 
+lin
   num x = x ;
   n2 = kaksi_toinenN ;
-  n3 = co 
+  n3 = co
     (nhn (mkSubst "a" "kolme" "kolme" "kolme" "kolmea" "kolmeen" "kolmi" "kolmi"
     "kolmien" "kolmia" "kolmiin"))
     (ordN "a" "kolmas") ;
   n4 = co (snoun2nounBind (mkN "neljä")) (ordN "ä" "neljäs") ;
   n5 = co (snoun2nounBind (mkN "viisi" "viiden" "viisiä")) (ordN "ä" "viides") ;
-  n6 = co (snoun2nounBind (mkN "kuusi" "kuuden" "kuusia")) (ordN "a" "kuudes") ; 
-  n7 = co 
-    (nhn (mkSubst "ä" "seitsemän" "seitsemä" "seitsemä" "seitsemää" 
+  n6 = co (snoun2nounBind (mkN "kuusi" "kuuden" "kuusia")) (ordN "a" "kuudes") ;
+  n7 = co
+    (nhn (mkSubst "ä" "seitsemän" "seitsemä" "seitsemä" "seitsemää"
     "seitsemään" "seitsemi" "seitsemi" "seitsemien" "seitsemiä"
     "seitsemiin"))
     (ordN "ä" "seitsemäs") ;
-  n8 = co 
-    (nhn (mkSubst "a" "kahdeksan" "kahdeksa" "kahdeksa" "kahdeksaa" 
+  n8 = co
+    (nhn (mkSubst "a" "kahdeksan" "kahdeksa" "kahdeksa" "kahdeksaa"
     "kahdeksaan" "kahdeksi" "kahdeksi" "kahdeksien" "kahdeksia"
     "kahdeksiin"))
     (ordN "a" "kahdeksas") ;
   n9 = co
-     (nhn (mkSubst "ä" "yhdeksän" "yhdeksä" "yhdeksä" "yhdeksää" 
+     (nhn (mkSubst "ä" "yhdeksän" "yhdeksä" "yhdeksä" "yhdeksää"
     "yhdeksään" "yhdeksi" "yhdeksi" "yhdeksien" "yhdeksiä" "yhdeksiin"))
      (ordN "ä" "yhdeksäs") ;
 
-  pot01 = 
+  pot01 =
    {s = table {
-      NumAttr => \\_ => [] ; 
+      NumAttr => \\_ => [] ;
       NumIndep => yksi_ensiN.s
       } ;
     n = Sg
@@ -55,14 +55,14 @@ lin
 
   pot1 d = {n = Pl ; s = \\_,c => d.s ! c ++ BIND ++ kymmentaN.s ! c} ;
   pot1plus d e = {
-    n = Pl ; 
+    n = Pl ;
     s = \\_,c => d.s ! c ++ BIND ++ kymmentaN.s ! c ++ BIND ++ e.s ! NumIndep ! c
     } ;
   pot1as2 n = n ;
   pot2 d = {n = Pl ; s = \\_,c => d.s ! NumAttr ! c ++ nBIND d.n ++ sataaN.s ! d.n ! c} ; ----
   pot2plus d e = {
-    n = Pl ; 
-    s = \\_,c => d.s ! NumAttr ! c ++ nBIND d.n ++ sataaN.s ! d.n ! c ++ 
+    n = Pl ;
+    s = \\_,c => d.s ! NumAttr ! c ++ nBIND d.n ++ sataaN.s ! d.n ! c ++
                  BIND ++ e.s ! NumIndep ! c
     } ;
   pot2as3 n = {n = n.n  ; s = n.s ! NumIndep} ;
@@ -85,38 +85,38 @@ oper
 
 -- Too much trouble to infer vowel, cf. "kuudes" vs. "viides".
 
---  ordN : Str -> Str -> {s : NForm => Str} = \a,sadas -> 
-  ordN : Str -> Str -> CommonNoun = \a,sadas -> 
+--  ordN : Str -> Str -> {s : NForm => Str} = \a,sadas ->
+  ordN : Str -> Str -> CommonNoun = \a,sadas ->
     let
       sada = init sadas
     in
-    snoun2nounBind (mkN 
+    snoun2nounBind (mkN
       sadas (sada + "nnen") (sada + "tt" + a) (sada + "nten" + a) (sada + "nteen")
       (sada + "nsien") (sada + "nsi" + a) (sada + "nsin" + a)
       (sada + "nsiss" + a) (sada + "nsiin")) ;
 
-param 
+param
   NumPlace = NumIndep | NumAttr  ;
 
 oper
-  yksiN = co 
-    (nhn (mkSubst "ä" "yksi" "yhde" "yhte" "yhtä" "yhteen" "yksi" "yksi" 
-     "yksien" "yksiä" "yksiin")) 
+  yksiN = co
+    (nhn (mkSubst "ä" "yksi" "yhde" "yhte" "yhtä" "yhteen" "yksi" "yksi"
+     "yksien" "yksiä" "yksiin"))
     (ordN "ä" "yhdes") ; -- yhdestoista
-  yksi_ensiN = co 
-    (nhn (mkSubst "ä" "yksi" "yhde" "yhte" "yhtä" "yhteen" "yksi" "yksi" 
-     "yksien" "yksiä" "yksiin")) 
+  yksi_ensiN = co
+    (nhn (mkSubst "ä" "yksi" "yhde" "yhte" "yhtä" "yhteen" "yksi" "yksi"
+     "yksien" "yksiä" "yksiin"))
     (snoun2nounBind (mkN "ensimmäinen")) ; -- ensimmäinen ---- sadasensimmäinentuhannes
-  kaksi_toinenN = co 
-    (nhn (mkSubst "a" "kaksi" "kahde" "kahte" "kahta" "kahteen" "kaksi" "kaksi" 
+  kaksi_toinenN = co
+    (nhn (mkSubst "a" "kaksi" "kahde" "kahte" "kahta" "kahteen" "kaksi" "kaksi"
      "kaksien" "kaksia" "kaksiin"))
-    (snoun2nounBind (mkN "toinen")) ; 
-  kymmenenN = co 
-    (nhn (mkSubst "ä" "kymmenen" "kymmene" "kymmene" "kymmentä" 
-    "kymmeneen" "kymmeni" "kymmeni" "kymmenien" "kymmeniä" "kymmeniin")) 
+    (snoun2nounBind (mkN "toinen")) ;
+  kymmenenN = co
+    (nhn (mkSubst "ä" "kymmenen" "kymmene" "kymmene" "kymmentä"
+    "kymmeneen" "kymmeni" "kymmeni" "kymmenien" "kymmeniä" "kymmeniin"))
     (ordN "ä" "kymmenes") ;
-  sataN = co 
-    (snoun2nounBind (mkN "sata")) 
+  sataN = co
+    (snoun2nounBind (mkN "sata"))
     (ordN "a" "sadas") ;
 
   tuhatN = co
@@ -137,7 +137,7 @@ oper
       NCard (NCase Sg Nom) => "sataa" ;
       k => sataN.s ! k
       }
-    } 
+    }
   } ;
 
   tuhattaN = {s = table {
@@ -150,11 +150,11 @@ oper
   } ;
 
 
-  lincat 
+  lincat
     Dig = TDigit ;
 
   lin
-    IDig d = d ; 
+    IDig d = d ;
 
     IIDig d i = {
       s = \\o => d.s ! NCard (NCase Sg Nom) ++ BIND ++ i.s ! o ;
@@ -187,4 +187,3 @@ oper
     } ;
 
 }
-