msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests 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 c1690ecc4d
commit 4c38803eea
135 changed files with 2828 additions and 2810 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/swedish/IdiomSwe.gf
+6 -6
View File
@@ -1,8 +1,8 @@
--# -coding=latin1
concrete IdiomSwe of Idiom = CatSwe **
open MorphoSwe, ParadigmsSwe, IrregSwe, Prelude in {
flags optimize=all_subs ;
coding=utf8 ;
oper
utr = ParadigmsSwe.utrum ;
@@ -51,9 +51,9 @@ concrete IdiomSwe of Idiom = CatSwe **
} ;
ProgrVP vp =
insertObj (\\a => "att" ++ infVP vp a) (predV (partV hålla_V "på")) ;
insertObj (\\a => "att" ++ infVP vp a) (predV (partV hålla_V "på")) ;
ImpPl1 vp = {s = ["låt oss"] ++ infVP vp {g = Utr ; n = Pl ; p = P1}} ;
ImpPl1 vp = {s = ["låt oss"] ++ infVP vp {g = Utr ; n = Pl ; p = P1}} ;
SelfAdvVP vp = insertObj (\\a => sjalv a.g a.n) vp ;
SelfAdVVP vp = insertAdVAgr (\\a => sjalv a.g a.n) vp ;
@@ -64,9 +64,9 @@ concrete IdiomSwe of Idiom = CatSwe **
oper
sjalv : Gender -> Number -> Str = \g,n -> case <g,n> of {
<Utr,Sg> => "själv" ;
<Neutr,Sg> => "självt" ;
_ => "själva"
<Utr,Sg> => "själv" ;
<Neutr,Sg> => "självt" ;
_ => "själva"
} ;