mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-03 00:02:50 -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:
@@ -1,8 +1,8 @@
|
||||
--# -coding=latin1
|
||||
incomplete concrete CatScand of Cat =
|
||||
CommonX -[Tense,Temp] ** open (RS = ResScand), Prelude, CommonScand, (R = ParamX) in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
coding=utf8 ;
|
||||
|
||||
lincat
|
||||
|
||||
@@ -46,7 +46,7 @@ incomplete concrete CatScand of Cat =
|
||||
a1 : Polarity => Agr => Str ; -- A1 inte ---s3
|
||||
n2 : Agr => Str ; -- N2 dig ---s5
|
||||
a2 : Str ; -- A2 idag ---s6
|
||||
ext : Str ; -- S-Ext att hon går ---s7
|
||||
ext : Str ; -- S-Ext att hon går ---s7
|
||||
en2,ea2,eext : Bool -- indicate if the field exists
|
||||
} ;
|
||||
VPSlash = CommonScand.VP ** {
|
||||
|
||||
@@ -3,10 +3,10 @@
|
||||
-- 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 ;
|
||||
coding=utf8 ;
|
||||
|
||||
param
|
||||
Species = Indef | Def ;
|
||||
@@ -38,7 +38,7 @@ param
|
||||
| ACompar
|
||||
| ASuperl AFormSup ;
|
||||
|
||||
-- The $Number$ in $Weak$ only matters in "lilla"/"små".
|
||||
-- The $Number$ in $Weak$ only matters in "lilla"/"små".
|
||||
|
||||
AFormPos = Strong GenNum | Weak Number ;
|
||||
AFormSup = SupStrong | SupWeak ;
|
||||
@@ -274,10 +274,10 @@ oper
|
||||
fin : Str ; -- V1 har ---s1
|
||||
inf : Str -- V2 sagt ---s4
|
||||
} ;
|
||||
a1 : Polarity => Agr => Str ; -- A1 inte ---s3 själv/själva/självt
|
||||
a1 : Polarity => Agr => Str ; -- A1 inte ---s3 själv/själva/självt
|
||||
n2 : Agr => Str ; -- N2 dig ---s5
|
||||
a2 : Str ; -- A2 idag ---s6
|
||||
ext : Str ; -- S-Ext att hon går ---s7
|
||||
ext : Str ; -- S-Ext att hon går ---s7
|
||||
--- ea1,ev2, --- these depend on params of v and a1
|
||||
en2,ea2,eext : Bool -- indicate if the field exists
|
||||
} ;
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
--# -coding=latin1
|
||||
interface DiffScand = open CommonScand, Prelude in {
|
||||
flags coding=utf8 ;
|
||||
|
||||
--1 Differences between Scandinavian languages
|
||||
|
||||
@@ -19,7 +19,7 @@ interface DiffScand = open CommonScand, Prelude in {
|
||||
detDef : Species ;
|
||||
|
||||
-- Danish and Norwegian verbs, but not Swedish verbs,
|
||||
-- have two possible compound-tense auxiliaries ("have" or "være").
|
||||
-- have two possible compound-tense auxiliaries ("have" or "være").
|
||||
|
||||
Verb : Type ;
|
||||
|
||||
@@ -58,7 +58,7 @@ interface DiffScand = open CommonScand, Prelude in {
|
||||
|
||||
relPron : Gender => Number => RCase => Str ;
|
||||
|
||||
-- Pronoun "sådan" used in $Relative.RelCl$.
|
||||
-- Pronoun "sådan" used in $Relative.RelCl$.
|
||||
|
||||
pronSuch : GenNum => Str ;
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
--# -coding=latin1
|
||||
incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
|
||||
open CommonScand,Coordination,ResScand, ParamX in {
|
||||
flags coding=utf8 ;
|
||||
lin
|
||||
GenNP np = {
|
||||
s,sp = \\n,_,_,g => np.s ! NPPoss (gennum (ngen2gen g) n) Nom ;
|
||||
@@ -68,7 +68,7 @@ incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
|
||||
let verb = vpi.s ! o ! agr
|
||||
in case o of {
|
||||
Main => subj ++ verb ;
|
||||
Inv => verb ++ subj ; ---- älskar henne och sover jag
|
||||
Inv => verb ++ subj ; ---- älskar henne och sover jag
|
||||
Sub => subj ++ verb
|
||||
}
|
||||
} ;
|
||||
@@ -111,5 +111,5 @@ incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
|
||||
|
||||
UseFoc t p foc = {s = t.s ++ p.s ++ foc.s ! t.t ! t.a ! p.p} ;
|
||||
|
||||
oper NONEXIST : Str = "#¿@§X?X&%/" ;
|
||||
oper NONEXIST : Str = "#¿@§X?X&%/" ;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user