forked from GitHub/gf-core
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:
@@ -1,5 +1,4 @@
|
||||
--# -path=.:../romance:../common:../abstract:../../prelude
|
||||
--# -coding=latin1
|
||||
|
||||
--1 Catalan Lexical Paradigms
|
||||
--
|
||||
@@ -35,7 +34,7 @@ resource ParadigmsCat =
|
||||
|
||||
flags
|
||||
optimize=all ;
|
||||
-- coding = utf8 ;
|
||||
coding = utf8 ;
|
||||
|
||||
--2 Parameters
|
||||
--
|
||||
@@ -93,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. "número de telèfon".
|
||||
-- the second part is not inflected. e.g. "número de telèfon".
|
||||
-- They could be formed in syntax, but we give a shortcut here since
|
||||
-- they are frequent in lexica.
|
||||
|
||||
compN : N -> Str -> N ; -- compound, e.g. "número" + "de telèfon"
|
||||
compN : N -> Str -> N ; -- compound, e.g. "número" + "de telèfon"
|
||||
|
||||
|
||||
--3 Relational nouns
|
||||
@@ -112,9 +111,9 @@ oper
|
||||
deN2 : N -> N2 ; -- relation with genitive
|
||||
aN2 : N -> N2 ; -- relation with dative
|
||||
|
||||
-- Three-place relational nouns ("la connexió de x a y") need two prepositions.
|
||||
-- Three-place relational nouns ("la connexió de x a y") need two prepositions.
|
||||
|
||||
mkN3 : N -> Prep -> Prep -> N3 ; -- e.g. connexió + genitive + dative
|
||||
mkN3 : N -> Prep -> Prep -> N3 ; -- e.g. connexió + genitive + dative
|
||||
|
||||
|
||||
--3 Relational common noun phrases
|
||||
@@ -194,7 +193,7 @@ oper
|
||||
|
||||
mkV : overload {
|
||||
|
||||
-- Regular verbs are ones inflected like "cantar", "perdre", "tÈmer", "perdre", "servir", "dormir"
|
||||
-- Regular verbs are ones inflected like "cantar", "perdre", "tÈmer", "perdre", "servir", "dormir"
|
||||
-- The regular verb function works for models I, IIa, IIb and IIa
|
||||
-- The module $BeschCat$ gives the complete set of "Bescherelle" conjugations.
|
||||
|
||||
@@ -332,7 +331,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 => "més" ++ a.s ! Posit ! f} ;
|
||||
{s = table {Posit => a.s ! Posit ; _ => \\f => "més" ++ a.s ! Posit ! f} ;
|
||||
isPre = a.isPre ;
|
||||
lock_A = <>} ;
|
||||
regADeg a = compADeg (regA a) ;
|
||||
@@ -341,18 +340,18 @@ oper
|
||||
mkAdV x = ss x ** {lock_AdV = <>} ;
|
||||
mkAdA x = ss x ** {lock_AdA = <>} ;
|
||||
|
||||
regV x = -- cantar, perdre, témer, dormir
|
||||
regV x = -- cantar, perdre, témer, dormir
|
||||
case (Predef.dp 3 x) of {
|
||||
--regular changes in stem
|
||||
"iar" => canviar_16 x ; --esglaiar with non-smart paradigm
|
||||
"jar" => envejar_48 x ;
|
||||
"çar" => començar_22 x ;
|
||||
"çar" => començar_22 x ;
|
||||
"gir" => fugir_58 x ;
|
||||
"ure" => beure_11 x ;
|
||||
"xer" => créixer_33 x ; --conèixer,aparèixer with regAltV
|
||||
"xer" => créixer_33 x ; --conèixer,aparèixer with regAltV
|
||||
|
||||
_ + "re" => perdre_83 x ;
|
||||
_ + "er" => verbEr x ; --handles accents in infinitives and c/ç, g/j
|
||||
_ + "er" => verbEr x ; --handles accents in infinitives and c/ç, g/j
|
||||
_ + "ir" => dormir_44 x ; --inchoative verbs with regAltV
|
||||
_ + "ur" => dur_45 x ;
|
||||
_ => cantar_15 x } ;
|
||||
@@ -372,7 +371,7 @@ oper
|
||||
<_+"re",_+"ig"> => veure_118 x ;
|
||||
<_+"ar",_+"ig"> => anar_4 x ;
|
||||
|
||||
<"xer" ,_+ "c"> => conèixer_27 x ; --créixer, merèixer with regV
|
||||
<"xer" ,_+ "c"> => conèixer_27 x ; --créixer, merèixer with regV
|
||||
<_+"er",_+ "c"> => valer_114 x ;
|
||||
<_+"re",_+ "c"> => doldre_42 x ; --participles of type dolgut
|
||||
--for absolt, pres, ... use mk3V
|
||||
@@ -398,19 +397,19 @@ oper
|
||||
<"rir", _+"ixo",_+"rt"> => cobrir_20 x ; --cob|rir cob|ert
|
||||
<_+"ir",_+"ixo",_+"rt"> => complir_25 x ; --compl|ir compl|ert
|
||||
|
||||
<_+"ir",_+"ixo",_+"ït"> => lluir_64 x ; --lluir lluïm lluït
|
||||
<_+"ir",_+"ixo",_+"ït"> => lluir_64 x ; --lluir lluïm lluït
|
||||
|
||||
<"dre",_,"nut"> => vendre_116 x ;
|
||||
|
||||
<_+"re",_+"c",_+"t"> => absoldre_1 x ; --c in sgP1 and subj, not in part
|
||||
|
||||
<_+"re",_,_+"es"> => prendre_87 x ;
|
||||
<_+"re",_,_+"ès"> => atendre_8 x ;
|
||||
<_+"re",_,_+"ès"> => atendre_8 x ;
|
||||
<_+"re",_,_+"as"> => raure_91 x ;
|
||||
<_+"re",_,_+"às"> => romandre_97 x ;
|
||||
<_+"re",_,_+"às"> => romandre_97 x ;
|
||||
<_+"re",_,_+"os"> => cloure_19 x ;
|
||||
<_+"re",_,_+"ós"> => confondre_28 x ;
|
||||
<_+"re",_,_+"òs"> => recloure_93 x ;
|
||||
<_+"re",_,_+"ós"> => confondre_28 x ;
|
||||
<_+"re",_,_+"òs"> => recloure_93 x ;
|
||||
|
||||
<_,_,_> => regAltV x y } ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user