diff options
| author | aarne <unknown> | 2004-09-25 08:24:11 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-09-25 08:24:11 +0000 |
| commit | 5a208ce3ea26726d15e814c0498680597cca45fa (patch) | |
| tree | 89ca12f9b6f9fe16cf4bcd6d165e13f3021ce619 /examples/gfcc/Imper.gf | |
| parent | ff2a2895c08b667894b565c8d39f0bf63d85492a (diff) | |
compiler works on abs and fibonacci
Diffstat (limited to 'examples/gfcc/Imper.gf')
| -rw-r--r-- | examples/gfcc/Imper.gf | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/examples/gfcc/Imper.gf b/examples/gfcc/Imper.gf index 28ac3d4bd..06b2f9d95 100644 --- a/examples/gfcc/Imper.gf +++ b/examples/gfcc/Imper.gf @@ -24,13 +24,15 @@ abstract Imper = PredefAbs ** { RecCons : (A : Typ) -> (AS : ListTyp) -> (Var A -> Rec AS) -> Program -> Rec (ConsTyp A AS) ; - Decl : (A : Typ) -> (Var A -> Stm) -> Stm ; - Assign : (A : Typ) -> Var A -> Exp A -> Stm -> Stm ; - Return : (A : Typ) -> Exp A -> Stm ; - While : Exp TInt -> Stm -> Stm -> Stm ; - IfElse : Exp TInt -> Stm -> Stm -> Stm -> Stm ; - Block : Stm -> Stm -> Stm ; - End : Stm ; + Decl : (A : Typ) -> (Var A -> Stm) -> Stm ; + Assign : (A : Typ) -> Var A -> Exp A -> Stm -> Stm ; + While : Exp TInt -> Stm -> Stm -> Stm ; + IfElse : Exp TInt -> Stm -> Stm -> Stm -> Stm ; + Block : Stm -> Stm -> Stm ; + Printf : (A : Typ) -> Exp A -> Stm -> Stm ; + Return : (A : Typ) -> Exp A -> Stm ; + Returnv : Stm ; + End : Stm ; EVar : (A : Typ) -> Var A -> Exp A ; EInt : Int -> Exp (TNum TInt) ; |
