summaryrefslogtreecommitdiff
path: root/examples/gfcc/ResImper.gf
diff options
context:
space:
mode:
authoraarne <unknown>2004-09-17 22:02:35 +0000
committeraarne <unknown>2004-09-17 22:02:35 +0000
commit6ec3a53d3cd1666696430d25e1d0c746f3c7dde8 (patch)
treeee8ad62e4fb72a9bee1a953f3e35bb723bc870c5 /examples/gfcc/ResImper.gf
parentecc132dccfc7617ed413f21ee37539475081f8ec (diff)
C compiler
Diffstat (limited to 'examples/gfcc/ResImper.gf')
-rw-r--r--examples/gfcc/ResImper.gf13
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