Convert many RGL modules from Latin-1 to UTF-8 to speed up compilation

Also add flags coding=utf8 to silence warnings.

lib/src/dutch/ExtraDut.gf

@@ -1,8 +1,8 @@
---# -coding=latin1
 concrete ExtraDut of ExtraDutAbs = CatDut ** 
   open ResDut, MorphoDut, Coordination, Prelude, IrregDut, (P = ParadigmsDut) in 
 {
 
+  flags coding=utf8 ;
 
   lincat
     VPI   = {s : Bool => Str} ;
@@ -32,7 +32,7 @@ concrete ExtraDut of ExtraDutAbs = CatDut **
 --
 --    TImpfSubj  = {s = [] ; t = Past ; m = MConjunct} ;   --# notpresent
 --
---    moegen_VV = auxVV mögen_V ;
+--    moegen_VV = auxVV mögen_V ;
 --
 --} 
 
@@ -59,7 +59,7 @@ lin
           let verb = vpi.s ! o ! agr 
           in case o of {
             Main => subj ++ verb ;
-            Inv  => verb ++ subj ;   ---- älskar henne och sover jag
+            Inv  => verb ++ subj ;   ---- älskar henne och sover jag
             Sub  => subj ++ verb 
             }
         } ;

lib/src/dutch/IrregDutAbs.gf

@@ -1,5 +1,5 @@
---# -coding=latin1
 abstract IrregDutAbs = Cat ** {
+  flags coding=utf8 ;
 
 fun bakken_V : V ; -- to fry
 fun bannen_V : V ; -- to ban
@@ -158,7 +158,7 @@ fun vouwen_V : V ; -- to fold
 fun vragen_V : V ; -- to ask
 fun vreten_V : V ; -- to eat, to devour
 fun vriezen_V : V ; -- to freeze ("it's freezing")
-fun vrijen_V : V ; -- vreeën / vrijden gevreeën / gevrijd to make love
+fun vrijen_V : V ; -- vreeën / vrijden gevreeën / gevrijd to make love
 fun wassen_V : V ; -- to wash
 fun wegen_V : V ; -- to weigh
 fun werpen_V : V ; -- to throw

lib/src/dutch/LexiconDut.gf

@@ -1,5 +1,4 @@
 --# -path=.:../common:../abstract:../../prelude
---# -coding=latin1
 
 -- work by Aarne Ranta
 
@@ -7,6 +6,7 @@ concrete LexiconDut of Lexicon = CatDut **
   open Prelude, ParadigmsDut, IrregDut in {
 
 flags 
+    coding=utf8 ;
   optimize=all_subs ;
 
 lin
@@ -183,7 +183,7 @@ hunt_V2 = mkV2 "jagen" ;
 husband_N = mkN "man" utrum ;
 ice_N = mkN "ijs" neuter ;
 important_A = mkA "belangrijk" ;
-industry_N = mkN "industrie" "industrieën" utrum ;
+industry_N = mkN "industrie" "industrieën" utrum ;
 iron_N = mkN "ijzer" neuter ;
 jump_V = springen_V ;
 kill_V2 = mkV2 "dooden" ;

lib/src/dutch/MorphoDut.gf

@@ -1,9 +1,8 @@
 --# -path=.:../common:../../prelude
---# -coding=latin1
 --
 ----1 A Simple Dutman Resource Morphology
 ----
----- Aarne Ranta & Harald Hammarström 2002 -- 2006
+---- Aarne Ranta & Harald Hammarström 2002 -- 2006
 ----
 ---- This resource morphology contains definitions needed in the resource
 ---- syntax. To build a lexicon, it is better to use $ParadigmsDut$, which
@@ -11,6 +10,7 @@
 --
 resource MorphoDut = ResDut ** open Prelude, (Predef=Predef) in 
 {
+flags coding=utf8 ;
 --{
 --
 --  flags optimize=all ;
@@ -36,7 +36,7 @@ resource MorphoDut = ResDut ** open Prelude, (Predef=Predef) in
 --
 --  genitS : Str -> Str = \hund -> case hund of {
 --    _ + ("el" | "en" | "er") => hund + "s" ;
---    _ + ("s" | "ß" | "sch" | "st" | "x" | "z") => hund + "es" ;
+--    _ + ("s" | "ß" | "sch" | "st" | "x" | "z") => hund + "es" ;
 --    _ => hund + variants {"s" ; "es"}
 --    } ;
 --  pluralN : Str -> Str = \hund -> case hund of {
@@ -52,14 +52,14 @@ resource MorphoDut = ResDut ** open Prelude, (Predef=Predef) in
 ---- Duden, p. 119
 --
 --  verbT : Str -> Str = \v -> case v of {
---    _ + ("t" | "d") => v + "et" ; -- gründen, reden, betten
+--    _ + ("t" | "d") => v + "et" ; -- gründen, reden, betten
 --    _ + ("ch" | "k" | "p" | "t" | "g" | "b" | "d" | "f" | "s") + 
---        ("m" | "n") => v + "et" ; -- atmen, widmen, öffnen, rechnen
---    _ => v + "t"                  -- lernen, lärmen, qualmen etc
+--        ("m" | "n") => v + "et" ; -- atmen, widmen, öffnen, rechnen
+--    _ => v + "t"                  -- lernen, lärmen, qualmen etc
 --    } ;
 --
 --  verbST : Str -> Str = \v -> case v of {
---    _ + ("s" | "ss" | "ß" | "sch" | "x" | "z") => v + "t" ;
+--    _ + ("s" | "ss" | "ß" | "sch" | "x" | "z") => v + "t" ;
 --    _ => v + "st"
 --    } ;
 --

lib/src/dutch/NumeralDut.gf

@@ -1,7 +1,7 @@
---# -coding=latin1
 concrete NumeralDut of Numeral = CatDut [Numeral,Digits] ** open ResDut, Prelude in {
 
 flags optimize = all_subs ;
+    coding=utf8 ;
 
 lincat 
   Digit = {s : DForm => CardOrd => Str ; en : Str} ;
@@ -23,7 +23,7 @@ lin
 
   pot01 = {
     s = \\f => table {
-          NCard g _ => "een" ; ---- "één" ;
+          NCard g _ => "een" ; ---- "één" ;
           NOrd af => (regAdjective "eerst").s ! Posit ! af
           } ; 
     n = Sg ;
@@ -102,7 +102,7 @@ lin
            DTeen => cardOrd dreizehn (dreizehn + "de") ;
            DTen  => cardOrd dreissig (dreissig + "ste")
            } ;
-     en = case drei of {_ + "e" => "ën" ; _ => "en"}
+     en = case drei of {_ + "e" => "ën" ; _ => "en"}
      } ;
   invNum : CardOrd = NCard Utr Nom ;
 

lib/src/dutch/ResDut.gf

@@ -1,5 +1,4 @@
 --# -path=.:../abstract:../common
---# -coding=latin1
 
 --1 Dutch auxiliary operations.
 --
@@ -8,6 +7,7 @@
 resource ResDut = ParamX ** open Prelude, Predef in {
 
   flags optimize=all ;
+    coding=utf8 ;
 
 --2 For $Noun$
 
@@ -33,7 +33,7 @@ resource ResDut = ParamX ** open Prelude, Predef in {
      } ;
 
     regNoun : Str -> Noun = \s -> case s of {
-      _ + ("a" | "o" | "y" | "u" | "oe" | "é") => mkNoun s (s + "'s") Utr ;
+      _ + ("a" | "o" | "y" | "u" | "oe" | "é") => mkNoun s (s + "'s") Utr ;
       _ + ("oir" | "ion" | "je") => mkNoun s (s + "s") Neutr ;
       ? + ? + ? + _ + 
         ("el" | "em" | "en" | "er" | "erd" | "aar" | "aard" | "ie") => -- unstressed
@@ -41,7 +41,7 @@ resource ResDut = ParamX ** open Prelude, Predef in {
       _ +                     ("i"|"u")  => mkNoun s (endCons s + "en") Utr ;
       b + v@("aa"|"ee"|"oo"|"uu") + c@?  => mkNoun s (b + shortVoc v c + "en") Utr ; 
       b + ("ei"|"eu"|"oe"|"ou"|"ie"|"ij"|"ui") + ? => mkNoun s (endCons s + "en") Utr ;
-      _ + "ie" => mkNoun s (s + "ën") Utr ;
+      _ + "ie" => mkNoun s (s + "ën") Utr ;
       b + v@("a"|"e"|"i"|"o"|"u" ) + c@? => mkNoun s (b + v + c + c + "en") Utr ;
       _ => mkNoun s (endCons s + "en") Utr
       } ;