making parsing ImperC work

This commit is contained in:
aarne
2004-09-22 20:42:21 +00:00
parent 8cd24e0b91
commit 6c3c14dfcf
6 changed files with 51 additions and 31 deletions

View File

@@ -67,4 +67,6 @@ resource ResImper = {
ss (s ++ ";" ++ i.s) ** {s2 = v ++ i.s2 ; s3 = i.s3} ;
binop : Str -> SS -> SS -> SS = \op, x, y ->
ss (x.s ++ y.s ++ op ++ ";") ;
binopt : Str -> SS -> SS -> SS -> SS = \op, x, y, t ->
ss (x.s ++ y.s ++ t.s ++ op ++ ";") ;
}