gf-3.6: lib/src/persian/TextPes.gf
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} ;
}