mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-09 11:12:51 -06:00
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:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -11,6 +11,7 @@ incomplete concrete DocumentationItaFunctor of Documentation = CatIta ** open
|
||||
Prelude,
|
||||
HTML
|
||||
in {
|
||||
flags coding=utf8 ;
|
||||
|
||||
|
||||
lincat
|
||||
|
||||
@@ -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}
|
||||
|
||||
@@ -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 {
|
||||
|
||||
@@ -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 {
|
||||
|
||||
@@ -10,6 +10,7 @@ concrete TerminologyIta of Terminology = CatIta ** open
|
||||
Prelude
|
||||
|
||||
in {
|
||||
flags coding=utf8 ;
|
||||
|
||||
|
||||
lincat
|
||||
|
||||
Reference in New Issue
Block a user