msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

Fix punctuation to use SOFT_BIND and BIND in the whole RGL

Browse Source
This commit is contained in:
Inari Listenmaa
2017-06-30 15:28:27 +02:00
parent 7a04b65fb1
commit a742d54515
26 changed files with 57 additions and 95 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/common/TextX.gf
View File

@@ -1,11 +1,11 @@
concrete TextX of Text = CommonX ** {
concrete TextX of Text = CommonX ** open Prelude in {
-- This will work for almost all languages except Spanish.
lin
TEmpty = {s = []} ;
TFullStop x xs = {s = x.s ++ "." ++ xs.s} ;
TQuestMark x xs = {s = x.s ++ "?" ++ xs.s} ;
TExclMark x xs = {s = x.s ++ "!" ++ xs.s} ;
TFullStop x xs = {s = x.s ++ SOFT_BIND ++ "." ++ xs.s} ;
TQuestMark x xs = {s = x.s ++ SOFT_BIND ++ "?" ++ xs.s} ;
TExclMark x xs = {s = x.s ++ SOFT_BIND ++ "!" ++ xs.s} ;
}