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,5 +1,4 @@
--# -path=.:../romance:../common:../abstract:../../prelude
--# -coding=latin1
--1 French Lexical Paradigms
--
@@ -34,6 +33,7 @@ resource ParadigmsFre =
CatFre in {
flags optimize=all ;
coding=utf8 ;
--2 Parameters
--
@@ -55,15 +55,15 @@ oper
-- Prepositions used in many-argument functions are either strings
-- (including the 'accusative' empty string) or strings that
-- amalgamate with the following word (the 'genitive' "de" and the
-- 'dative' "à").
-- 'dative' "à").
accusative : Prep ; -- direct object case
genitive : Prep ; -- genitive, constructed with "de"
dative : Prep ; -- dative, usually constructed with "à"
dative : Prep ; -- dative, usually constructed with "à"
mkPrep : overload {
mkPrep : Str -> Prep ; -- simple preposition (other than "de" and "à")
mkPrep : Str -> Prep -> Prep ; -- complex preposition e.g. "à côté de"
mkPrep : Str -> Prep ; -- simple preposition (other than "de" and "à")
mkPrep : Str -> Prep -> Prep ; -- complex preposition e.g. "à côté de"
} ;
@@ -92,11 +92,11 @@ oper
--3 Compound nouns
--
-- Some nouns are ones where the first part is inflected as a noun but
-- the second part is not inflected. e.g. "numéro de téléphone".
-- the second part is not inflected. e.g. "numéro de téléphone".
-- They could be formed in syntax, but we give a shortcut here since
-- they are frequent in lexica.
mkN : N -> Str -> N -- compound noun, e.g. numéro + de téléphone
mkN : N -> Str -> N -- compound noun, e.g. numéro + de téléphone
} ;
@@ -108,13 +108,13 @@ oper
mkN2 : N -> Prep -> N2 ; -- e.g. fille + genitive
-- The most common cases are the genitive "de" and the dative "à",
-- The most common cases are the genitive "de" and the dative "à",
-- with the empty preposition.
deN2 : N -> N2 ; --%
aN2 : N -> N2 ; --%
-- Three-place relational nouns ("la connection de x à y") need two prepositions.
-- Three-place relational nouns ("la connection de x à y") need two prepositions.
mkN3 : N -> Prep -> Prep -> N3 ; -- e.g. connection + genitive + dative
@@ -122,7 +122,7 @@ oper
--3 Relational common noun phrases
--
-- In some cases, you may want to make a complex $CN$ into a
-- relational noun (e.g. "la vieille église de"). However, $N2$ and
-- relational noun (e.g. "la vieille église de"). However, $N2$ and
-- $N3$ are purely lexical categories. But you can use the $AdvCN$
-- and $PrepNP$ constructions to build phrases like this.
@@ -148,9 +148,9 @@ oper
-- masculine singular. The heuristic takes into account certain
-- deviant endings: "banal-banale-banaux", "chinois-chinoise-chinois",
-- "heureux-heureuse-heureux", "italien-italienne", "jeune-jeune",
-- "amer-amère", "carré- - -carrément", "joli- - -joliment".
-- "amer-amère", "carré- - -carrément", "joli- - -joliment".
mkA : (cher : Str) -> A ; -- predictable, e.g. cher-chère
mkA : (cher : Str) -> A ; -- predictable, e.g. cher-chère
-- Often just the feminine singular is deviant.
@@ -183,7 +183,7 @@ oper
--
-- Two-place adjectives need a preposition for their second argument.
mkA2 : A -> Prep -> A2 ; -- e.g. supérieur + dative
mkA2 : A -> Prep -> A2 ; -- e.g. supérieur + dative
--2 Adverbs
@@ -199,7 +199,7 @@ oper
-- Adverbs modifying adjectives and sentences can also be formed.
mkAdA : Str -> AdA ; -- modify adjective, e.g. très
mkAdA : Str -> AdA ; -- modify adjective, e.g. très
--2 Verbs
@@ -212,7 +212,7 @@ oper
-- latter with plural present indicative forms as "finissons".
-- The regular verb function in the first conjugation recognizes
-- these endings, as well as the variations among
-- "aimer, céder, placer, peser, jeter, placer, manger, assiéger, payer".
-- "aimer, céder, placer, peser, jeter, placer, manger, assiéger, payer".
--
-- Sometimes, however, it is not predictable which variant of the "er"
-- conjugation is to be selected. Then it is better to use the function
@@ -243,13 +243,13 @@ oper
} ;
-- The function $mkV$ gives the default compound auxiliary "avoir".
-- To change it to "être", use the following function.
-- To change it to "être", use the following function.
etreV : V -> V ; -- force auxiliary to be être (default avoir)
etreV : V -> V ; -- force auxiliary to be être (default avoir)
-- This function turns a verb into reflexive, which implies the auxiliary "être".
-- This function turns a verb into reflexive, which implies the auxiliary "être".
reflV : V -> V ; -- reflexive, implies auxiliary être, e.g. se demander
reflV : V -> V ; -- reflexive, implies auxiliary être, e.g. se demander
--3 Two-place verbs
@@ -288,7 +288,7 @@ oper
subjVS : V -> VS ;
mkVV : V -> VV ; -- plain infinitive: "je veux parler"
deVV : V -> VV ; -- "j'essaie de parler"
aVV : V -> VV ; -- "j'arrive à parler"
aVV : V -> VV ; -- "j'arrive à parler"
mkV2S : overload {
mkV2S : V -> V2S ;
mkV2S : V -> Prep -> V2S ;
@@ -419,7 +419,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
} ;
V0 : Type = V ;
@@ -511,8 +511,8 @@ oper
v2V : V2 -> V ;
v2V v = v ** {lock_V = <>} ;
mmkV3 : V -> Prep -> Prep -> V3 ; -- parler, à, de
dirV3 : V -> Prep -> V3 ; -- donner,_,à
mmkV3 : V -> Prep -> Prep -> V3 ; -- parler, à, de
dirV3 : V -> Prep -> V3 ; -- donner,_,à
dirdirV3 : V -> V3 ; -- donner,_,_
getVerbT : (VF => Str) -> Bool = \v -> case last (v ! (VFin (VPres Indic) Sg P3)) of {