making TryPol compile

This commit is contained in:
aarne
2009-10-23 16:11:54 +00:00
parent 4f6bd2f1d6
commit 5f5e3f1d69
5 changed files with 11 additions and 15 deletions

View File

@@ -13,7 +13,7 @@ concrete GrammarPol of Grammar =
RelativePol,
ConjunctionPol,
PhrasePol,
TextPol,
TextX - [CAdv],
StructuralPol,
IdiomPol
** { flags startcat = Phr ; unlexer = text ; lexer = text ;} ;

View File

@@ -1,9 +0,0 @@
concrete TextPol of Text = {
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} ;
}