diff options
| author | aarne <unknown> | 2004-09-17 22:02:35 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-09-17 22:02:35 +0000 |
| commit | 6ec3a53d3cd1666696430d25e1d0c746f3c7dde8 (patch) | |
| tree | ee8ad62e4fb72a9bee1a953f3e35bb723bc870c5 /examples/gfcc/ResImper.gf | |
| parent | ecc132dccfc7617ed413f21ee37539475081f8ec (diff) | |
C compiler
Diffstat (limited to 'examples/gfcc/ResImper.gf')
| -rw-r--r-- | examples/gfcc/ResImper.gf | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/examples/gfcc/ResImper.gf b/examples/gfcc/ResImper.gf new file mode 100644 index 000000000..d77322d75 --- /dev/null +++ b/examples/gfcc/ResImper.gf @@ -0,0 +1,13 @@ +resource ResImper = open Prelude, Precedence in { + + oper + continue : Str -> SS -> SS = \s -> infixSS ";" (ss s); + statement : Str -> SS = \s -> postfixSS ";" (ss s); + ex : {s : PrecTerm} -> Str = \exp -> exp.s ! p0 ; + infixL : + Prec -> Str -> {s : PrecTerm} -> {s : PrecTerm} -> {s : PrecTerm} = + \p,h,x,y -> {s = mkInfixL h p x.s y.s} ; + + constant : Str -> {s : PrecTerm} = \c -> {s = mkConst c} ; + +}
\ No newline at end of file |
