mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-29 22:42:52 -06:00
14 lines
305 B
Plaintext
14 lines
305 B
Plaintext
concrete TextJap of Text = CatJap ** open ResJap, Prelude in {
|
|
|
|
flags coding = utf8 ;
|
|
|
|
lin
|
|
|
|
TEmpty = ss "" ;
|
|
|
|
TFullStop phr txt = {s = phr.s ++ "." ++ txt.s} ;
|
|
|
|
TQuestMark phr txt = {s = phr.s ++ "?" ++ txt.s} ;
|
|
|
|
TExclMark phr txt = {s = phr.s ++ "!" ++ txt.s} ;
|
|
} |