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.
2013-11-25 18:17:12 +00:00
parent 1c34005ffc
commit fc2f5b0a1a
39 changed files with 39 additions and 13 deletions
--- 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 ;
 ----
--- 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 ;
 ----
--- 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} ;
--- 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 ;
 --
--- 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
--- 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 ;
 --
--- 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

--- 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 ;
--- 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.
--- 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
 --
--- 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
--- 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
--- 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

--- 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 ;
--- 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,
--- 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 ;
--- 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,
--- 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 = 
--- 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 ;
--- 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 ;
--- 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 {

--- 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
--- 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 {

--- 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
--- 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
--- 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
--- 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).
--- 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 = {
--- 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 ;
--- 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 ;
--- 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 ; 
--- 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 ;
--- 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 } ;
--- 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 {

--- 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 ;
--- 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
--- 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 {

--- 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'
--- 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 ;