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

Also add flags coding=utf8 to silence warnings.
This commit is contained in:
hallgren
2014-08-19 19:42:05 +00:00
parent efcec8e7e9
commit be301d8a5e
135 changed files with 2828 additions and 2810 deletions

View File

@@ -4,6 +4,7 @@ concrete ConstructionIta of Construction = CatIta **
open SyntaxIta, SymbolicIta, ParadigmsIta,
(L = LexiconIta), (E = ExtraIta), (I = IrregIta), (R = ResIta), (C = CommonRomance),
Prelude in {
flags coding=utf8 ;
lin

View File

@@ -1,9 +1,9 @@
--# -path=.:../romance:../abstract:../common:prelude
--# -coding=latin1
instance DiffIta of DiffRomance = open CommonRomance, PhonoIta, BeschIta, Prelude in {
flags optimize=all ;
coding=utf8 ;
param
Prepos = P_di | P_a | P_da | P_in | P_su | P_con ;
@@ -154,7 +154,7 @@ instance DiffIta of DiffRomance = open CommonRomance, PhonoIta, BeschIta, Prelud
quelPron : AAgr => Str = aagrForms "quale" "quale" "quali" "quali" ;
partQIndir = "ciò" ;
partQIndir = "ciò" ;
reflPron : Number -> Person -> Case -> Str =
let

View File

@@ -11,6 +11,7 @@ incomplete concrete DocumentationItaFunctor of Documentation = CatIta ** open
Prelude,
HTML
in {
flags coding=utf8 ;
lincat

View File

@@ -1,5 +1,4 @@
--# -path=.:../romance:../common:../../prelude
--# -coding=latin1
--1 A Simple Italian Resource Morphology
--
@@ -13,6 +12,7 @@ resource MorphoIta = CommonRomance, ResIta **
open PhonoIta, Prelude, Predef in {
flags optimize=all ;
coding=utf8 ;
@@ -67,7 +67,7 @@ oper
; g = Fem} ;
_ + "e" => {s = numForms vino (vin + "i")
; g = Masc} ;
_ + "à" | "ù" => {s = numForms vino vino
_ + "à" | "ù" => {s = numForms vino vino
; g = Fem} ;
_ => {s = numForms vino vino
; g = Masc}

View File

@@ -1,5 +1,4 @@
--# -path=.:../romance:../common:../abstract:../../prelude
--# -coding=latin1
--1 Italian Lexical Paradigms
--
@@ -34,6 +33,7 @@ resource ParadigmsIta = BeschIta **
CatIta in {
flags optimize=all ;
coding=utf8 ;
--2 Parameters
--
@@ -149,13 +149,13 @@ oper
mkA : overload {
-- For regular adjectives, all forms are derived from the
-- masculine singular. Comparison is formed by "più".
-- masculine singular. Comparison is formed by "più".
mkA : (bianco : Str) -> A ; -- predictable adjective
-- Five forms are needed in the worst
-- case (masc and fem singular, masc plural, adverbial), given that
-- comparison is formed by "più".
-- comparison is formed by "più".
mkA : (solo,sola,soli,sole,solamente : Str) -> A ; -- irregular adjective
@@ -367,7 +367,7 @@ oper
{s = table {Posit => a.s ! Posit ; _ => b.s ! Posit} ;
isPre = a.isPre ; lock_A = <>} ;
compADeg a =
{s = table {Posit => a.s ! Posit ; _ => \\f => "più" ++ a.s ! Posit ! f} ;
{s = table {Posit => a.s ! Posit ; _ => \\f => "più" ++ a.s ! Posit ! f} ;
isPre = a.isPre ;
lock_A = <>} ;
regADeg a = compADeg (regA a) ;
@@ -426,7 +426,7 @@ oper
mkVQ v = v ** {lock_VQ = <>} ;
mkV2Q v p = mk2V2 v p ** {lock_V2Q = <>} ;
mmkV3 : V -> Prep -> Prep -> V3 ; -- parler, à, de
mmkV3 : V -> Prep -> Prep -> V3 ; -- parler, à, de
mmkV3 v p q = v ** {c2 = p ; c3 = q ; lock_V3 = <>} ;
dirV3 v p = mmkV3 v accusative p ;
dirdirV3 v = dirV3 v dative ;
@@ -437,7 +437,7 @@ oper
mkV3 = overload {
mkV3 : V -> V3 = dirdirV3 ; -- donner,_,_
mkV3 : V -> Prep -> V3 = dirV3 ; -- placer,_,sur
mkV3 : V -> Prep -> Prep -> V3 = mmkV3 -- parler, à, de
mkV3 : V -> Prep -> Prep -> V3 = mmkV3 -- parler, à, de
} ;
mkV2S = overload {

View File

@@ -1,5 +1,5 @@
--# -coding=latin1
resource PhonoIta = open Prelude in {
flags coding=utf8 ;
--3 Elision
--
@@ -8,7 +8,7 @@ resource PhonoIta = open Prelude in {
oper
vocale : Strs = strs {
"a" ; "e" ; "h" ; "i" ; "o" ; "u" ; "è" ; "y" ; "A" ; "E" ; "I" ; "O" ; "U" ; "H"
"a" ; "e" ; "h" ; "i" ; "o" ; "u" ; "è" ; "y" ; "A" ; "E" ; "I" ; "O" ; "U" ; "H"
} ;
sImpuro : Strs = strs {

View File

@@ -10,6 +10,7 @@ concrete TerminologyIta of Terminology = CatIta ** open
Prelude
in {
flags coding=utf8 ;
lincat