mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-03 16:22:52 -06:00
12 lines
323 B
Plaintext
12 lines
323 B
Plaintext
concrete TextPes of Text = CommonX - [Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] ** {
|
||
|
||
-- 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} ;
|
||
|
||
}
|