added common to darcs in resource-1.4

This commit is contained in:
aarne
2008-06-09 08:40:09 +00:00
parent 3c2f45da85
commit db28875ee4
6 changed files with 245 additions and 0 deletions

View File

@@ -0,0 +1,11 @@
concrete TextX of Text = CommonX ** {
-- This will work for almost all languages except Spanish.
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} ;
}