GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-01 11:38:34 -06:00
Code Issues Packages Projects Releases Wiki 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
src/greek/SymbolGre.gf
+1 -1
View File
@@ -32,7 +32,7 @@ lin
SymbS sy = {s = \\_ => sy.s} ;
SymbNum n = {s = \\_,_ => n.s ; isNum = True ; n = Pl} ;
SymbOrd n = {s = \\_,_,_,_ => n.s ++ "." ; adv= table { Posit => " " ; Compar => " " ; Superl => " "}} ;
SymbOrd n = {s = \\_,_,_,_ => glue n.s "." ; adv= table { Posit => " " ; Compar => " " ; Superl => " "}} ;
lincat
src/greek/TextGre.gf
+4 -4
View File
@@ -1,11 +1,11 @@
concrete TextGre of Text = CatGre ** {
concrete TextGre of Text = CatGre ** open Prelude in {
flags coding=utf8 ;
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} ;
}