Japanese RGL by Liza Zimina - almost complete!

This commit is contained in:
aarne
2012-04-18 11:29:32 +00:00
parent c5308e99da
commit 7b2ae94895
20 changed files with 3153 additions and 0 deletions

View File

@@ -0,0 +1,14 @@
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} ;
}