mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-30 06:52:49 -06:00
15 lines
316 B
Plaintext
15 lines
316 B
Plaintext
concrete TextJpn of Text = CatJpn ** open ResJpn, Prelude in {
|
||
|
||
flags coding = utf8 ;
|
||
|
||
lin
|
||
|
||
TEmpty = {s = ""} ;
|
||
|
||
TFullStop phr txt = {s = phr.s ++ "。" ++ txt.s} ;
|
||
|
||
TQuestMark phr txt = {s = phr.s ++ "？" ++ txt.s} ;
|
||
|
||
TExclMark phr txt = {s = phr.s ++ "！" ++ txt.s} ;
|
||
}
|