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

Also add flags coding=utf8 to silence warnings.

lib/src/afrikaans/LexiconAfr.gf

@@ -1,4 +1,3 @@
---# -coding=latin1
 --# -path=.:../common:../abstract:../../prelude
 
 -- work by Aarne Ranta
@@ -7,6 +6,7 @@ concrete LexiconAfr of Lexicon = CatAfr **
   open Prelude, ParadigmsAfr, IrregAfr in {
 
 flags 
+  coding=utf8 ;
   optimize=all_subs ;
 
 lin
@@ -50,7 +50,7 @@ lin
   paint_V2A = mkV2A (mkV "skilder") noPrep ;
   paris_PN = mkPN "Parys" ;
   red_A = mkA "rooi" ;
-  say_VS = mkVS (mkV "sê") ;
+  say_VS = mkVS (mkV "sê") ;
   see_V2 = mkV2 (mkV "sien") ;
   sell_V3 = mkV3 (mkV "verkoop") ;
   send_V3 = mkV3 (mkV "stuur") (mkPrep "na") ;
@@ -77,7 +77,7 @@ back_N = mkN "agterkant" neuter ;
 bank_N = mkN "bank" neuter ;
 bark_N = mkN "blaf" neuter ;
 belly_N = mkN "maag" neuter ;
-bird_N = mkN "voël" "voëls" neuter ;
+bird_N = mkN "voël" "voëls" neuter ;
 bite_V2 = mkV2 (mkV "byt") ;
 black_A = mkA "swart" ;
 blood_N = mkN "bloed" neuter ;
@@ -188,7 +188,7 @@ hunt_V2 = mkV2 "jag" ;
 husband_N = mkN "man" "mans" neuter ;
 ice_N = mkN "ys" neuter ;
 important_A = mkA "belangrik" ;
-industry_N = mkN "industrie" "industrieë" neuter ;
+industry_N = mkN "industrie" "industrieë" neuter ;
 iron_N = mkN "yster" neuter ;
 jump_V = mkV "spring" ;
 kill_V2 = mkV2 "dood" ;
@@ -205,7 +205,7 @@ learn_V2 = mkV2 "leer" ;
 leather_N = mkN "leer" neuter ;
 leave_V2 = mkV2 (mkV "verlaat") ;
 leg_N = mkN "been" neuter ;
-lie_V = mkV "lê" ;
+lie_V = mkV "lê" ;
 like_V2 = mkV2 (mkV "hou") van_Prep ;
 listen_V2 = mkV2 "luister" ;
 live_V = mkV "leef" ;
@@ -251,8 +251,8 @@ put_V2 = mkV2 "sit" ;
 queen_N = mkN "koningin" neuter ;
 question_N = mkN "vraag" neuter ;
 radio_N = mkN "radio" neuter ;
-rain_N = mkN "reën" "reëns" neuter ;
-rain_V0 = mkV "reën" ;
+rain_N = mkN "reën" "reëns" neuter ;
+rain_V0 = mkV "reën" ;
 read_V2 = mkV2 (mkV "lees") ;
 ready_A = mkA "reg" ;
 reason_N = mkN "rede" neuter ;
@@ -269,7 +269,7 @@ rotten_A = mkA "vrot" ;
 round_A = mkA "rond" ;
 rub_V2 = mkV2 (mkV "vryf") ;
 rubber_N = mkN "rubber" neuter ;
-rule_N = mkN "reël" "reël" neuter ;
+rule_N = mkN "reël" "reël" neuter ;
 run_V = zijnV (mkV "hardloop") ;
 salt_N = mkN "sout" neuter ;
 sand_N = mkN "sand" neuter ;

lib/src/afrikaans/MorphoAfr.gf

@@ -1,9 +1,8 @@
---# -coding=latin1
 --# -path=.:../common:../../prelude
 --
 ----1 A Simple Afrman 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 $ParadigmsAfr$, which
@@ -36,7 +35,7 @@ resource MorphoAfr = ResAfr ** 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 +51,14 @@ resource MorphoAfr = ResAfr ** 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/afrikaans/NumeralAfr.gf

@@ -1,8 +1,8 @@
---# -coding=latin1
 
 concrete NumeralAfr of Numeral = CatAfr ** open ResAfr, Prelude in {
 
 flags optimize = all_subs ;
+  coding=utf8 ;
 
 lincat 
   Digit = {s : DForm => CardOrd => Str ; en : Str} ;
@@ -24,7 +24,7 @@ lin
 
   pot01 = {
     s = \\f => table {
-          NCard g _ => "een" ; ---- "één" ;
+          NCard g _ => "een" ; ---- "één" ;
           NOrd af => (regAdjective "eerste").s ! Posit ! af
           } ; 
     n = Sg ;
@@ -103,7 +103,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 Neutr Nom ;
 

lib/src/afrikaans/ResAfr.gf

@@ -1,4 +1,3 @@
---# -coding=latin1
 --# -path=.:../abstract:../common
 
 --1 Afrch auxiliary operations.
@@ -8,6 +7,7 @@
 resource ResAfr = ParamX ** open Prelude in {
 
   flags optimize=all ;
+  coding=utf8 ;
 
 --2 For $Noun$
 
@@ -33,36 +33,36 @@ resource ResAfr = ParamX ** open Prelude in {
      g = g
      } ;
 
---Volgens Afrikaanse Woordelys & Spelreëls, 2009
+--Volgens Afrikaanse Woordelys & Spelreëls, 2009
 --
 -- Uitsonderings wat in die leksikon hanteer moet word:
 -- 
 -- * enige uitsonderings wat in die AWS vermeld word
 -- * enige woord wat in die mv. "te" kry, soos lig, ligte
--- * enige meerlettergrepige woord wat met "ie","ël","el","em","en","ng","ior","er","êr","erd","aar","aard","ier"
+-- * enige meerlettergrepige woord wat met "ie","ël","el","em","en","ng","ior","er","êr","erd","aar","aard","ier"
 --    eindig wat nie 'n "s" in die mv. kry nie
--- * eiename wat nie reëlmatig verbuig
+-- * eiename wat nie reëlmatig verbuig
 -- * woorde met wisselvorme in die mv. moet as sinonieme in die leksikon hanteer word
 --
     regNoun : Str -> Noun = \s -> case s of {
       _ + #cons + ("i" | "o" | "u" ) => mkNoun s (s + "'s") Neutr ; --ski, ski's --R13.7
-      #cons* + ("ie" | "oe") =>mkNoun s (s + "ë") Neutr ; --knie, knieë --R13.10
-      #cons* + ("ee") =>mkNoun s (init s + "ë") Neutr ; --fee, feë --R13.10
+      #cons* + ("ie" | "oe") =>mkNoun s (s + "ë") Neutr ; --knie, knieë --R13.10
+      #cons* + ("ee") =>mkNoun s (init s + "ë") Neutr ; --fee, feë --R13.10
       #cons* + "a" => mkNoun s (s + "'s") Neutr ; --ma, ma's R13.7
-      _ + ("a" | "e" | "ie" | "ee" | "é" | "ê" | "ô") => mkNoun s (s + "s") Neutr ; --gogga, goggas --R13.5
+      _ + ("a" | "e" | "ie" | "ee" | "é" | "ê" | "ô") => mkNoun s (s + "s") Neutr ; --gogga, goggas --R13.5
       
-      b + v@("oo") + "g" => mkNoun s (b + init v + "ë") Neutr ; --boog, boë --R13.11
-      b + v@("e"|"ie"|"o"|"oe") + "g" => mkNoun s (b + v + "ë") Neutr ; --kroeg, kroeë --R13.11
+      b + v@("oo") + "g" => mkNoun s (b + init v + "ë") Neutr ; --boog, boë --R13.11
+      b + v@("e"|"ie"|"o"|"oe") + "g" => mkNoun s (b + v + "ë") Neutr ; --kroeg, kroeë --R13.11
       b + v@("aa") + "g" => mkNoun s (b + init v + "e") Neutr ; --kraag, krae --R13.11
       b + v@("a") + "g" => mkNoun s (b + v + "e") Neutr ; --dag, dae --R13.11
       b + v@("ei"|"eu"|"oe"|"ou"|"ie"|"y"|"ui") + "g" => mkNoun s (b + v + "e") Neutr ; --tuig, tuie --R13.1
       
-      _ + ("oir" | "ion" | "je") => mkNoun s (s + "s") Neutr ; --uit Nederlandse reël
+      _ + ("oir" | "ion" | "je") => mkNoun s (s + "s") Neutr ; --uit Nederlandse reël
       
       _ + ("rm" | "lm") => mkNoun s (s + "s") Neutr ; --R13.3
       
       ? + ? + ? + _ + 
-        ("ël" |"el" | "em" | "um" | "ing" | "or" | "ior" | "er" | "êr" | "erd" | "aar" | "aard" | "ier") => -- unstressed
+        ("ël" |"el" | "em" | "um" | "ing" | "or" | "ior" | "er" | "êr" | "erd" | "aar" | "aard" | "ier") => -- unstressed
                                             mkNoun s (s + "s") Neutr ; --R13.3
       
       ? + ? + _ + (#cons + "en") => mkNoun s (s + "s") Neutr ; --R13.3
@@ -118,15 +118,15 @@ resource ResAfr = ParamX ** open Prelude in {
       let 
         se : Str = case s of {
           b + v@("aal"|"baar"|"eel"|"loos") => b + init (init v) + last v + "e" ; --p288
-          _ + ("agtig"|"ant"|"ent"|"êr"|"ies"|"ig"|"lik"|"matig"|"s") => s + "e" ; --p288
+          _ + ("agtig"|"ant"|"ent"|"êr"|"ies"|"ig"|"lik"|"matig"|"s") => s + "e" ; --p288
           b + "ief" => b + "iewe" ; --p288
           
           --b + ("ei"|"eu"|"oe"|"ou"|"ie"|"y"|"ui") + ?  => endCons s + "e" ;
           b + v@("ou"|"y") + "d"  => b + v + "e" ; --koud, koue / wyd, wye
           
-          --b + v@("oo"|"ee") + "d" => b + init v + "ë" ; --leeg, leë
-          b + v@("oo"|"ee") + ("g"|"d") => b + init v + "ë" ; --leeg, leë
-          b + v@("e"|"ie"|"o"|"oe") + "g" => b + v + "ë" ; --moeg, moeë
+          --b + v@("oo"|"ee") + "d" => b + init v + "ë" ; --leeg, leë
+          b + v@("oo"|"ee") + ("g"|"d") => b + init v + "ë" ; --leeg, leë
+          b + v@("e"|"ie"|"o"|"oe") + "g" => b + v + "ë" ; --moeg, moeë
           b + v@("aa") + "g" => b + init v + "e" ; --vaag, vae
           b + v@("a") + "g" => b + v + "e" ; --kan nog nie aan 'n voorbeeld dink nie
           
@@ -141,7 +141,7 @@ resource ResAfr = ParamX ** open Prelude in {
           b + v@("aa"|"ee"|"oo"|"uu") + "r" => se + "der" ;
           b + v@("a"|"i"|"o"|"u" ) + c@#cons => b + v + c + c + "er" ; --dom, dommer
           _ + "r" => se + "der" ;
-          _ + "ë" => se + "r" ;
+          _ + "ë" => se + "r" ;
           _ + "e" => se + "r" ;
           _ => se + "er"
           } ;