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

@@ -1,8 +1,8 @@
--# -coding=latin1
incomplete concrete CatScand of Cat =
CommonX -[Tense,Temp] ** open (RS = ResScand), Prelude, CommonScand, (R = ParamX) in {
flags optimize=all_subs ;
coding=utf8 ;
lincat
@@ -46,7 +46,7 @@ incomplete concrete CatScand of Cat =
a1 : Polarity => Agr => Str ; -- A1 inte ---s3
n2 : Agr => Str ; -- N2 dig ---s5
a2 : Str ; -- A2 idag ---s6
ext : Str ; -- S-Ext att hon går ---s7
ext : Str ; -- S-Ext att hon går ---s7
en2,ea2,eext : Bool -- indicate if the field exists
} ;
VPSlash = CommonScand.VP ** {

View File

@@ -3,10 +3,10 @@
-- This module contains operations that are shared by the Scandinavian
-- languages, without dependence on parameters.
--# -coding=latin1
resource CommonScand = ParamX ** open Prelude in {
flags optimize=all ;
coding=utf8 ;
param
Species = Indef | Def ;
@@ -38,7 +38,7 @@ param
| ACompar
| ASuperl AFormSup ;
-- The $Number$ in $Weak$ only matters in "lilla"/"små".
-- The $Number$ in $Weak$ only matters in "lilla"/"små".
AFormPos = Strong GenNum | Weak Number ;
AFormSup = SupStrong | SupWeak ;
@@ -274,10 +274,10 @@ oper
fin : Str ; -- V1 har ---s1
inf : Str -- V2 sagt ---s4
} ;
a1 : Polarity => Agr => Str ; -- A1 inte ---s3 själv/själva/självt
a1 : Polarity => Agr => Str ; -- A1 inte ---s3 själv/själva/självt
n2 : Agr => Str ; -- N2 dig ---s5
a2 : Str ; -- A2 idag ---s6
ext : Str ; -- S-Ext att hon går ---s7
ext : Str ; -- S-Ext att hon går ---s7
--- ea1,ev2, --- these depend on params of v and a1
en2,ea2,eext : Bool -- indicate if the field exists
} ;

View File

@@ -1,5 +1,5 @@
--# -coding=latin1
interface DiffScand = open CommonScand, Prelude in {
flags coding=utf8 ;
--1 Differences between Scandinavian languages
@@ -19,7 +19,7 @@ interface DiffScand = open CommonScand, Prelude in {
detDef : Species ;
-- Danish and Norwegian verbs, but not Swedish verbs,
-- have two possible compound-tense auxiliaries ("have" or "være").
-- have two possible compound-tense auxiliaries ("have" or "være").
Verb : Type ;
@@ -58,7 +58,7 @@ interface DiffScand = open CommonScand, Prelude in {
relPron : Gender => Number => RCase => Str ;
-- Pronoun "sådan" used in $Relative.RelCl$.
-- Pronoun "sådan" used in $Relative.RelCl$.
pronSuch : GenNum => Str ;

View File

@@ -1,6 +1,6 @@
--# -coding=latin1
incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
open CommonScand,Coordination,ResScand, ParamX in {
flags coding=utf8 ;
lin
GenNP np = {
s,sp = \\n,_,_,g => np.s ! NPPoss (gennum (ngen2gen g) n) Nom ;
@@ -68,7 +68,7 @@ incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
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
}
} ;
@@ -111,5 +111,5 @@ incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
UseFoc t p foc = {s = t.s ++ p.s ++ foc.s ! t.t ! t.a ! p.p} ;
oper NONEXIST : Str = "#¿@§X?X&%/" ;
oper NONEXIST : Str = "#¿@§X?X&%/" ;
}