comma instead of dot and space separator in Romance decimals

src/catalan/NumeralCat.gf

@@ -140,11 +140,12 @@ param
     Dig = TDigit ;
 
   lin
-    IDig d = d ;
+    IDig d = d ** {tail = T1} ;
 
     IIDig d i = {
-      s = \\o => d.s ! NCard Masc ++ BIND ++ i.s ! o ;
-      n = Pl
+      s = \\o => d.s ! NCard Masc ++ spaceIf i.tail ++ i.s ! o ;
+      n = Pl ;
+      tail = inc i.tail
     } ;
 
     D_0 = mkDig "0" ;
@@ -166,12 +167,24 @@ param
       } ;
     IFrac d i = {
      s = \\o => d.s ! NCard Masc ++
-                if_then_Str d.hasDot BIND (BIND++"."++BIND) ++
+                if_then_Str d.hasDot BIND (BIND++","++BIND) ++
                 i.s ! o ;
      n = Pl ;
      hasDot=True
      } ;
 
+  oper
+    spaceIf : DTail -> Str = \t -> case t of {
+      T3 => SOFT_SPACE ;
+      _  => BIND
+      } ;
+
+    inc : DTail -> DTail = \t -> case t of {
+      T1 => T2 ;
+      T2 => T3 ;
+      T3 => T1
+      } ;
+
   oper
     mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ;
     mkDig : Str -> TDigit = \c -> mk2Dig c (c + ":o") ;