punctuation added to NDTrans

This commit is contained in:
aarne
2014-03-11 20:57:17 +00:00
parent 69b113324e
commit 4ca5ffc892
6 changed files with 49 additions and 2 deletions

View File

@@ -12,5 +12,14 @@ concrete NDTransFin of NDTrans =
flags
literal=Symb ;
lincat
TransUnit = {s : Str} ;
lin
SFullstop p = {s = p.s ++ "."} ;
SQuestmark p = {s = p.s ++ "?"} ;
SExclmark p = {s = p.s ++ "!"} ;
SUnmarked p = {s = p.s} ;
}