From fc2f5b0a1aa0b7da4286f1c9e3ad91f1dc04c545 Mon Sep 17 00:00:00 2001 From: hallgren Date: Mon, 25 Nov 2013 18:17:12 +0000 Subject: [PATCH] Add explicit character encoding specifications in 39 more RGL modules To silence warnings and avoid potential problems after changing the default encoding to UTF-8. --- lib/src/amharic/IdiomAmh.gf | 1 + lib/src/amharic/RelativeAmh.gf | 1 + lib/src/arabic/AdverbAra.gf | 1 + lib/src/arabic/IdiomAra.gf | 1 + lib/src/arabic/PhraseAra.gf | 1 + lib/src/arabic/RelativeAra.gf | 1 + lib/src/catalan/ExtraCatAbs.gf | 1 + lib/src/chinese/IdiomChi.gf | 2 +- lib/src/danish/DiffDan.gf | 1 + lib/src/danish/ParadigmsDan.gf | 1 + lib/src/dutch/ExtraDutAbs.gf | 2 +- lib/src/dutch/IrregDutAbs.gf | 1 + lib/src/estonian/ConjunctionEst.gf | 2 +- lib/src/estonian/ExtraEst.gf | 2 +- lib/src/estonian/ExtraEstAbs.gf | 1 + lib/src/finnish/CatFin.gf | 1 + lib/src/finnish/ExtraFinAbs.gf | 1 + lib/src/finnish/IdiomFin.gf | 2 +- lib/src/finnish/QuestionFin.gf | 1 + lib/src/finnish/VerbFin.gf | 1 + lib/src/french/NumeralFre.gf | 1 + lib/src/german/ExtraGerAbs.gf | 2 +- lib/src/german/IdiomGer.gf | 1 + lib/src/maltese/AdverbMlt.gf | 2 +- lib/src/maltese/IrregMlt.gf | 2 +- lib/src/persian/TextPes.gf | 2 +- lib/src/polish/ExtraPolAbs.gf | 1 + lib/src/romance/AdjectiveRomance.gf | 2 +- lib/src/romance/CommonRomance.gf | 1 + lib/src/romance/ResRomance.gf | 1 + lib/src/romanian/BeschRon.gf | 1 + lib/src/romanian/SymbolRon.gf | 2 +- lib/src/russian/SymbolRus.gf | 2 +- lib/src/scandinavian/CatScand.gf | 1 + lib/src/scandinavian/CommonScand.gf | 1 + lib/src/scandinavian/DiffScand.gf | 1 + lib/src/spanish/NumeralSpa.gf | 1 + lib/src/swedish/ExtraSweAbs.gf | 2 +- lib/src/turkish/IrregTurAbs.gf | 1 + 39 files changed, 39 insertions(+), 13 deletions(-) diff --git a/lib/src/amharic/IdiomAmh.gf b/lib/src/amharic/IdiomAmh.gf index bcdf28f78..bbb98411d 100644 --- a/lib/src/amharic/IdiomAmh.gf +++ b/lib/src/amharic/IdiomAmh.gf @@ -1,4 +1,5 @@ concrete IdiomAmh of Idiom = CatAmh ** open Prelude, ResAmh in { + flags coding=utf8; ---- ---- flags optimize=all_subs ; ---- diff --git a/lib/src/amharic/RelativeAmh.gf b/lib/src/amharic/RelativeAmh.gf index 9558ba0d3..b92b3f500 100644 --- a/lib/src/amharic/RelativeAmh.gf +++ b/lib/src/amharic/RelativeAmh.gf @@ -1,4 +1,5 @@ concrete RelativeAmh of Relative = CatAmh ** open ResAmh in { + flags coding=utf8; ---- ---- flags optimize=all_subs ; ---- diff --git a/lib/src/arabic/AdverbAra.gf b/lib/src/arabic/AdverbAra.gf index 5c2cbdfb6..d7a90387a 100644 --- a/lib/src/arabic/AdverbAra.gf +++ b/lib/src/arabic/AdverbAra.gf @@ -1,4 +1,5 @@ concrete AdverbAra of Adverb = CatAra ** open ResAra, Prelude in { + flags coding=utf8; lin PositAdvAdj a = {s = a.s ! APosit Masc Sg Indef Acc} ; diff --git a/lib/src/arabic/IdiomAra.gf b/lib/src/arabic/IdiomAra.gf index d185c5aa7..fbfc5f9b3 100644 --- a/lib/src/arabic/IdiomAra.gf +++ b/lib/src/arabic/IdiomAra.gf @@ -1,4 +1,5 @@ concrete IdiomAra of Idiom = CatAra ** open Prelude, ResAra in { + flags coding=utf8; -- -- flags optimize=all_subs ; -- diff --git a/lib/src/arabic/PhraseAra.gf b/lib/src/arabic/PhraseAra.gf index 2604ac4cb..4eb8e9146 100644 --- a/lib/src/arabic/PhraseAra.gf +++ b/lib/src/arabic/PhraseAra.gf @@ -2,6 +2,7 @@ concrete PhraseAra of Phrase = CatAra ** open ParamX, Prelude, ResAra in { + flags coding=utf8; lin PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ! Masc ++ voc.s} ;--FIXME diff --git a/lib/src/arabic/RelativeAra.gf b/lib/src/arabic/RelativeAra.gf index 13cf7c5f1..3cc0a9cd2 100644 --- a/lib/src/arabic/RelativeAra.gf +++ b/lib/src/arabic/RelativeAra.gf @@ -1,4 +1,5 @@ concrete RelativeAra of Relative = CatAra ** open ResAra in { + flags coding=utf8; -- -- flags optimize=all_subs ; -- diff --git a/lib/src/catalan/ExtraCatAbs.gf b/lib/src/catalan/ExtraCatAbs.gf index d9d371500..892d3bac6 100644 --- a/lib/src/catalan/ExtraCatAbs.gf +++ b/lib/src/catalan/ExtraCatAbs.gf @@ -2,6 +2,7 @@ -- Romance languages. abstract ExtraCatAbs = ExtraRomanceAbs ** { + flags coding=utf8; fun diff --git a/lib/src/chinese/IdiomChi.gf b/lib/src/chinese/IdiomChi.gf index b1591af6f..2fd5ccb5e 100644 --- a/lib/src/chinese/IdiomChi.gf +++ b/lib/src/chinese/IdiomChi.gf @@ -1,5 +1,5 @@ concrete IdiomChi of Idiom = CatChi ** open Prelude, ResChi in { - + flags coding=utf8; lin ---- formal subject, e.g. it is hot ?? now empty subject ImpersCl vp = mkClause [] vp ; diff --git a/lib/src/danish/DiffDan.gf b/lib/src/danish/DiffDan.gf index 47584fd55..daf6157a2 100644 --- a/lib/src/danish/DiffDan.gf +++ b/lib/src/danish/DiffDan.gf @@ -1,3 +1,4 @@ +--# -coding=latin1 instance DiffDan of DiffScand = open CommonScand, Prelude in { -- Parameters. diff --git a/lib/src/danish/ParadigmsDan.gf b/lib/src/danish/ParadigmsDan.gf index 9ce6ceef3..dd6a89dfd 100644 --- a/lib/src/danish/ParadigmsDan.gf +++ b/lib/src/danish/ParadigmsDan.gf @@ -1,4 +1,5 @@ --# -path=.:../scandinavian:../common:../abstract:../../prelude +--# -coding=latin1 --1 Danish Lexical Paradigms -- diff --git a/lib/src/dutch/ExtraDutAbs.gf b/lib/src/dutch/ExtraDutAbs.gf index 1d088653d..df65c8c39 100644 --- a/lib/src/dutch/ExtraDutAbs.gf +++ b/lib/src/dutch/ExtraDutAbs.gf @@ -5,7 +5,7 @@ abstract ExtraDutAbs = Extra [ VV,VP,Conj,IComp,ICompAP,IAdvAdv,Adv,AP,IAdv, VPSlash, NominalizeVPSlashNP] ** { - + flags coding=utf8; --{ -- -- fun diff --git a/lib/src/dutch/IrregDutAbs.gf b/lib/src/dutch/IrregDutAbs.gf index bd6b3f61f..ba27a6dfb 100644 --- a/lib/src/dutch/IrregDutAbs.gf +++ b/lib/src/dutch/IrregDutAbs.gf @@ -1,3 +1,4 @@ +--# -coding=latin1 abstract IrregDutAbs = Cat ** { fun bakken_V : V ; -- to fry diff --git a/lib/src/estonian/ConjunctionEst.gf b/lib/src/estonian/ConjunctionEst.gf index 015494a6a..043da6481 100644 --- a/lib/src/estonian/ConjunctionEst.gf +++ b/lib/src/estonian/ConjunctionEst.gf @@ -1,7 +1,7 @@ concrete ConjunctionEst of Conjunction = CatEst ** open ResEst, Coordination, Prelude in { - flags optimize=all_subs ; + flags optimize=all_subs ; coding=utf8; lin diff --git a/lib/src/estonian/ExtraEst.gf b/lib/src/estonian/ExtraEst.gf index d6d1157a0..d1b67f89d 100644 --- a/lib/src/estonian/ExtraEst.gf +++ b/lib/src/estonian/ExtraEst.gf @@ -1,6 +1,6 @@ concrete ExtraEst of ExtraEstAbs = CatEst ** open ResEst, MorphoEst, Coordination, Prelude, NounEst, StructuralEst, (R = ParamX) in { - + flags coding=utf8; lin GenNP np = { s,sp = \\_,_ => np.s ! NPCase Gen ; diff --git a/lib/src/estonian/ExtraEstAbs.gf b/lib/src/estonian/ExtraEstAbs.gf index 7c6e58780..0f16b97bb 100644 --- a/lib/src/estonian/ExtraEstAbs.gf +++ b/lib/src/estonian/ExtraEstAbs.gf @@ -1,3 +1,4 @@ +--# -coding=latin1 abstract ExtraEstAbs = Extra [ GenNP, VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI, diff --git a/lib/src/finnish/CatFin.gf b/lib/src/finnish/CatFin.gf index 162cdad44..34ac724cd 100644 --- a/lib/src/finnish/CatFin.gf +++ b/lib/src/finnish/CatFin.gf @@ -1,3 +1,4 @@ +--# -coding=latin1 concrete CatFin of Cat = CommonX ** open ResFin, StemFin, Prelude in { flags optimize=all_subs ; diff --git a/lib/src/finnish/ExtraFinAbs.gf b/lib/src/finnish/ExtraFinAbs.gf index d8b7cfb43..2432e06d6 100644 --- a/lib/src/finnish/ExtraFinAbs.gf +++ b/lib/src/finnish/ExtraFinAbs.gf @@ -1,3 +1,4 @@ +--# -coding=latin1 abstract ExtraFinAbs = Extra [ GenNP,GenIP,GenRP, VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI, diff --git a/lib/src/finnish/IdiomFin.gf b/lib/src/finnish/IdiomFin.gf index e485e5d3d..145b09a7d 100644 --- a/lib/src/finnish/IdiomFin.gf +++ b/lib/src/finnish/IdiomFin.gf @@ -1,7 +1,7 @@ concrete IdiomFin of Idiom = CatFin ** open MorphoFin, ParadigmsFin, Prelude in { - flags optimize=all_subs ; + flags optimize=all_subs ; coding=utf8; lin ExistNP np = diff --git a/lib/src/finnish/QuestionFin.gf b/lib/src/finnish/QuestionFin.gf index dd736cf4c..264f33e23 100644 --- a/lib/src/finnish/QuestionFin.gf +++ b/lib/src/finnish/QuestionFin.gf @@ -1,3 +1,4 @@ +--# -coding=latin1 concrete QuestionFin of Question = CatFin ** open ResFin, Prelude in { flags optimize=all_subs ; diff --git a/lib/src/finnish/VerbFin.gf b/lib/src/finnish/VerbFin.gf index 69bb63ee1..1ac36ab25 100644 --- a/lib/src/finnish/VerbFin.gf +++ b/lib/src/finnish/VerbFin.gf @@ -1,5 +1,6 @@ --1 Verb Phrases in Finnish +--# -coding=latin1 concrete VerbFin of Verb = CatFin ** open Prelude, ResFin, StemFin in { flags optimize=all_subs ; diff --git a/lib/src/french/NumeralFre.gf b/lib/src/french/NumeralFre.gf index dd7ad3760..81d849b1f 100644 --- a/lib/src/french/NumeralFre.gf +++ b/lib/src/french/NumeralFre.gf @@ -1,3 +1,4 @@ +--# -coding=latin1 concrete NumeralFre of Numeral = CatFre [Numeral,Digits] ** open CommonRomance, ResRomance, MorphoFre, Prelude in { diff --git a/lib/src/german/ExtraGerAbs.gf b/lib/src/german/ExtraGerAbs.gf index 09c1100b3..d2e157024 100644 --- a/lib/src/german/ExtraGerAbs.gf +++ b/lib/src/german/ExtraGerAbs.gf @@ -3,7 +3,7 @@ abstract ExtraGerAbs = Extra [ VPS,ListVPS,BaseVPS,ConsVPS,ConjVPS,MkVPS,PredVPS,EmptyRelSlash, VPSlash,PassVPSlash,CompIQuant, Temp,Tense,Pol,S,NP,VV,VP,Conj,IAdv,IQuant,IComp,ICompAP,IAdvAdv,Adv,AP] ** { - + flags coding=utf8; fun PPzuAdv : CN -> Adv ; -- zum Lied, zur Flasche TImpfSubj : Tense ; -- ich möchte... --# notpresent diff --git a/lib/src/german/IdiomGer.gf b/lib/src/german/IdiomGer.gf index aa9845113..8edde356a 100644 --- a/lib/src/german/IdiomGer.gf +++ b/lib/src/german/IdiomGer.gf @@ -1,3 +1,4 @@ +--# -coding=latin1 concrete IdiomGer of Idiom = CatGer ** open MorphoGer, ParadigmsGer, Prelude in { diff --git a/lib/src/maltese/AdverbMlt.gf b/lib/src/maltese/AdverbMlt.gf index b1f570c36..e0bf8f2be 100644 --- a/lib/src/maltese/AdverbMlt.gf +++ b/lib/src/maltese/AdverbMlt.gf @@ -5,7 +5,7 @@ -- Licensed under LGPL concrete AdverbMlt of Adverb = CatMlt ** open ResMlt, Prelude in { - + flags coding=utf8; lin -- A -> Adv diff --git a/lib/src/maltese/IrregMlt.gf b/lib/src/maltese/IrregMlt.gf index 2390a9161..34b58065d 100644 --- a/lib/src/maltese/IrregMlt.gf +++ b/lib/src/maltese/IrregMlt.gf @@ -7,7 +7,7 @@ --# -path=.:prelude:../abstract:../common concrete IrregMlt of IrregMltAbs = CatMlt ** open ParadigmsMlt in { - + flags coding=utf8; {- Known irregular verbs in Maltese: - ĦA diff --git a/lib/src/persian/TextPes.gf b/lib/src/persian/TextPes.gf index aecef148f..4601a928d 100644 --- a/lib/src/persian/TextPes.gf +++ b/lib/src/persian/TextPes.gf @@ -1,5 +1,5 @@ concrete TextPes of Text = CommonX - [Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] ** { - + flags coding=utf8; -- This works for the special punctuation marks of Persian. lin diff --git a/lib/src/polish/ExtraPolAbs.gf b/lib/src/polish/ExtraPolAbs.gf index 6b7b7dc0f..12deee7a7 100644 --- a/lib/src/polish/ExtraPolAbs.gf +++ b/lib/src/polish/ExtraPolAbs.gf @@ -1,5 +1,6 @@ abstract ExtraPolAbs = Cat, Extra [AP,CN,Pron,ProDrop] ** { +flags coding=utf8; -- in Polish there exists a distinction between -- attributes describing a quality of some object (e.g. cold water) -- and qualifying that object (e.g. sparkling water). diff --git a/lib/src/romance/AdjectiveRomance.gf b/lib/src/romance/AdjectiveRomance.gf index 03aa4b5be..5be6fe69a 100644 --- a/lib/src/romance/AdjectiveRomance.gf +++ b/lib/src/romance/AdjectiveRomance.gf @@ -1,6 +1,6 @@ incomplete concrete AdjectiveRomance of Adjective = CatRomance ** open CommonRomance, ResRomance, Prelude in { - + flags coding=utf8; lin PositA a = { diff --git a/lib/src/romance/CommonRomance.gf b/lib/src/romance/CommonRomance.gf index 421cf12fb..0761067b1 100644 --- a/lib/src/romance/CommonRomance.gf +++ b/lib/src/romance/CommonRomance.gf @@ -6,6 +6,7 @@ -- which depends on [DiffRomance DiffRomance.html]. -- +--# -coding=latin1 resource CommonRomance = ParamX ** open Prelude in { flags optimize=all ; diff --git a/lib/src/romance/ResRomance.gf b/lib/src/romance/ResRomance.gf index bc01c81fe..61d4e7f68 100644 --- a/lib/src/romance/ResRomance.gf +++ b/lib/src/romance/ResRomance.gf @@ -1,6 +1,7 @@ --1 Romance auxiliary operations. -- +--# -coding=latin1 interface ResRomance = DiffRomance ** open CommonRomance, Prelude in { flags optimize=all ; diff --git a/lib/src/romanian/BeschRon.gf b/lib/src/romanian/BeschRon.gf index 66042eadb..9efb10e7b 100644 --- a/lib/src/romanian/BeschRon.gf +++ b/lib/src/romanian/BeschRon.gf @@ -1,3 +1,4 @@ +--# -coding=latin1 resource BeschRon = open Prelude, MorphoRon,CatRon in { flags optimize=noexpand ; diff --git a/lib/src/romanian/SymbolRon.gf b/lib/src/romanian/SymbolRon.gf index 4de701c19..69a32cdc6 100644 --- a/lib/src/romanian/SymbolRon.gf +++ b/lib/src/romanian/SymbolRon.gf @@ -1,7 +1,7 @@ --# -path=.:../abstract:../common:../prelude concrete SymbolRon of Symbol = CatRon ** open Prelude, ResRon in { - +flags coding=utf8; lin SymbPN i = mkSymb i.s ; IntPN i = mkSymb i.s ; diff --git a/lib/src/russian/SymbolRus.gf b/lib/src/russian/SymbolRus.gf index 4af44b317..3ee9bab79 100644 --- a/lib/src/russian/SymbolRus.gf +++ b/lib/src/russian/SymbolRus.gf @@ -1,7 +1,7 @@ --# -path=.:../abstract:../common concrete SymbolRus of Symbol = CatRus ** open Prelude, ResRus in { - +flags coding=utf8; {- TODO! -} lin SymbPN i = {s = table {_ => i.s} ; g = Neut; anim = Inanimate } ; diff --git a/lib/src/scandinavian/CatScand.gf b/lib/src/scandinavian/CatScand.gf index 6f5f8e5f9..157e7cd41 100644 --- a/lib/src/scandinavian/CatScand.gf +++ b/lib/src/scandinavian/CatScand.gf @@ -1,3 +1,4 @@ +--# -coding=latin1 incomplete concrete CatScand of Cat = CommonX -[Tense,Temp] ** open (RS = ResScand), Prelude, CommonScand, (R = ParamX) in { diff --git a/lib/src/scandinavian/CommonScand.gf b/lib/src/scandinavian/CommonScand.gf index 4f246ab03..a66ccbdf0 100644 --- a/lib/src/scandinavian/CommonScand.gf +++ b/lib/src/scandinavian/CommonScand.gf @@ -3,6 +3,7 @@ -- 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 ; diff --git a/lib/src/scandinavian/DiffScand.gf b/lib/src/scandinavian/DiffScand.gf index 4010b7c12..e60a896d8 100644 --- a/lib/src/scandinavian/DiffScand.gf +++ b/lib/src/scandinavian/DiffScand.gf @@ -1,3 +1,4 @@ +--# -coding=latin1 interface DiffScand = open CommonScand, Prelude in { --1 Differences between Scandinavian languages diff --git a/lib/src/spanish/NumeralSpa.gf b/lib/src/spanish/NumeralSpa.gf index fea62d408..1f6924a8f 100644 --- a/lib/src/spanish/NumeralSpa.gf +++ b/lib/src/spanish/NumeralSpa.gf @@ -1,3 +1,4 @@ +--# -coding=latin1 concrete NumeralSpa of Numeral = CatSpa [Numeral,Digits] ** open CommonRomance, ResRomance, MorphoSpa, Prelude in { diff --git a/lib/src/swedish/ExtraSweAbs.gf b/lib/src/swedish/ExtraSweAbs.gf index 2a2cf34b5..331d01d3e 100644 --- a/lib/src/swedish/ExtraSweAbs.gf +++ b/lib/src/swedish/ExtraSweAbs.gf @@ -3,7 +3,7 @@ -- Scandinavian languages. abstract ExtraSweAbs = ExtraScandAbs -[FocAP] ** { - +flags coding=utf8; cat ReflNP ; PronAD ; -- relational pronouns which can act like adjectives and -- determiners. 'fler' diff --git a/lib/src/turkish/IrregTurAbs.gf b/lib/src/turkish/IrregTurAbs.gf index 91b14e958..389311197 100644 --- a/lib/src/turkish/IrregTurAbs.gf +++ b/lib/src/turkish/IrregTurAbs.gf @@ -3,6 +3,7 @@ -- (c) 2009 Server Çimen under LGPL abstract IrregTurAbs = Cat ** { + flags coding=utf8; fun eat_V : V ; fear_V : V ;