started Czech with a mini-like coverage

This commit is contained in:
Aarne Ranta committed 2020-04-01 11:07:09 +02:00
1 parent 8f46b09647
commit 7c275c1c28
23 files changed
+1492

No files matched your search

+8
View File
@@ -0,0 +1,8 @@
concrete TextCze of Text = CatCze ** open ResCze in {
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} ;
}