GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-30 23:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files

34
lib/src/french/MorphoFre.gf
View File

@@ -1,5 +1,4 @@
--# -path=.:../romance:../common:../../prelude
--# -coding=latin1
--1 A Simple French Resource Morphology
--
@@ -13,13 +12,14 @@ resource MorphoFre = CommonRomance, ResFre **
open PhonoFre, Prelude, Predef in {
flags optimize=noexpand ;
coding=utf8 ;
--2 Front vowels
--
-- In verb conjugation, we will need the concept of frontal vowel.
oper
voyelleFront : Strs = strs {"e" ; "i" ; "y" ; "é" ; "è"} ;
voyelleFront : Strs = strs {"e" ; "i" ; "y" ; "é" ; "è"} ;
preVoyelleFront : (_,_ : Str) -> Str = \t,u -> pre {t ; u / voyelleFront} ;
@@ -110,7 +110,7 @@ oper
in
mkAdj grand (grand + "s") grande (grande + "ment") ;
-- Masculine form used for adverbial; also covers "carré".
-- Masculine form used for adverbial; also covers "carré".
adjJoli : Str -> Adj = \joli ->
mkAdj joli (joli + "s") (joli + "e") (joli + "ment") ;
@@ -134,7 +134,7 @@ oper
adjCher : Str -> Adj = \cher ->
let {ch = Predef.tk 2 cher} in
mkAdj cher (cher + "s") (ch + "ère") (ch + "èrement") ;
mkAdj cher (cher + "s") (ch + "ère") (ch + "èrement") ;
mkAdjReg : Str -> Adj = \creux ->
case Predef.dp 3 creux of {
@@ -148,7 +148,7 @@ oper
"s" => adjFrancais creux ;
"x" => adjFrancais creux ;
"e" => adjJeune creux ;
"é" => adjJoli creux ;
"é" => adjJoli creux ;
"i" => adjJoli creux ;
_ => adjGrand creux
}
@@ -265,7 +265,7 @@ oper
_ + "a" => <affixPasseA,1> ;
_ + "it" => <affixPasseI,2> ;
_ + "ut" => <affixPasseU,2> ;
_ + "nt" => <affixPasse "in" "în",3> ;
_ + "nt" => <affixPasse "in" "în",3> ;
_ => Predef.error ("cannot form past tense from" ++ tint)
} ;
tin = Predef.tk affpasse.p2 tint ;
@@ -372,21 +372,21 @@ oper
} ;
affixPlMes : (_,_ : Str) -> Affixe =
\è, â -> lesAffixes (â + "mes") (â + "tes") (è + "rent") ;
\è, â -> lesAffixes (â + "mes") (â + "tes") (è + "rent") ;
affixPasseAi : Number => Affixe = table {
Sg => affixSgAi ;
Pl => affixPlMes "è" "â"
Pl => affixPlMes "è" "â"
} ;
affixPasseS : (i,î : Str) -> Number => Affixe = \i,î -> table {
affixPasseS : (i,î : Str) -> Number => Affixe = \i,î -> table {
Sg => table {p => i + affixSgS ! p} ;
Pl => affixPlMes i î
Pl => affixPlMes i î
} ;
affixSImparfSse : (i,î : Str) -> Number => Affixe = \i,î -> table {
affixSImparfSse : (i,î : Str) -> Number => Affixe = \i,î -> table {
Sg => table {
P3 => î + "t" ;
P3 => î + "t" ;
p => i + "ss" + affixSgE ! p
} ;
Pl => table {p => i + "ss" + affixSPres ! Pl ! p}
@@ -394,14 +394,14 @@ oper
AffixPasse : Type = {ps : Number => Affixe ; si : Number => Affixe} ;
affixPasse : (_,_ : Str) -> AffixPasse = \i, î ->
{ps = affixPasseS i î ; si = affixSImparfSse i î} ;
affixPasse : (_,_ : Str) -> AffixPasse = \i, î ->
{ps = affixPasseS i î ; si = affixSImparfSse i î} ;
affixPasseA : AffixPasse = {ps = affixPasseAi ; si = affixSImparfSse "a" "â"} ;
affixPasseA : AffixPasse = {ps = affixPasseAi ; si = affixSImparfSse "a" "â"} ;
affixPasseI : AffixPasse = affixPasse "i" "î" ;
affixPasseI : AffixPasse = affixPasse "i" "î" ;
affixPasseU : AffixPasse = affixPasse "u" "û" ;
affixPasseU : AffixPasse = affixPasse "u" "û" ;
affixPasseNonExist : AffixPasse =
let {aff : Number => Affixe =