forked from GitHub/gf-core
fc2f5b0a1a
To silence warnings and avoid potential problems after changing the default encoding to UTF-8.
12 lines
343 B
Plaintext
12 lines
343 B
Plaintext
concrete TextPes of Text = CommonX - [Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] ** {
|
||
flags coding=utf8;
|
||
-- This works for the special punctuation marks of Persian.
|
||
|
||
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} ;
|
||
|
||
}
|