GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-08 18:52:50 -06:00
Code Issues Packages Projects Releases Wiki 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 efcec8e7e9
commit be301d8a5e
135 changed files with 2828 additions and 2810 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/src/romance/SentenceRomance.gf
View File

@@ -1,8 +1,8 @@
--# -coding=latin1
incomplete concrete SentenceRomance of Sentence =
CatRomance ** open Prelude, CommonRomance, ResRomance in {
flags optimize=all_subs ;
coding=utf8 ;
lin
PredVP np vp = mkClausePol np.isNeg (np.s ! Nom).comp np.hasClit np.isPol np.a vp ;
@@ -17,14 +17,14 @@ incomplete concrete SentenceRomance of Sentence =
{-
SlashVP np vps =
-- agreement decided afterwards: la fille qu'il a trouvée
-- agreement decided afterwards: la fille qu'il a trouvée
{s = \\agr =>
let
vp = case <vps.c2.c, vps.c2.isDir> of {
<Acc,True> => insertAgr agr vps ; -- la fille qu'il a trouvée decided here
<Acc,True> => insertAgr agr vps ; -- la fille qu'il a trouvée decided here
_ => vps
}
in (mkClausePol np.isNeg (np.s ! Nom).comp np.hasClit np.isPol np.a vp).s ; -- à qui montre-t-il sa maison
in (mkClausePol np.isNeg (np.s ! Nom).comp np.hasClit np.isPol np.a vp).s ; -- à qui montre-t-il sa maison
c2 = vps.c2 -- np.hasClit decides inversion
} ;
-}
@@ -49,7 +49,7 @@ incomplete concrete SentenceRomance of Sentence =
let
vp : ResRomance.VP = case <vps.c2.c, vps.c2.isDir> of {
<Acc,True> => insertAgr agr0 vps ; -- la fille qu'il a trouvée is decided here
<Acc,True> => insertAgr agr0 vps ; -- la fille qu'il a trouvée is decided here
_ => vps
} ;