summaryrefslogtreecommitdiff
path: root/examples/gfcc/Imper.gf
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
commite9e80fc389365e24d4300d7d5390c7d833a96c50 (patch)
treef0b58473adaa670bd8fc52ada419d8cad470ee03 /examples/gfcc/Imper.gf
parentb96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff)
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'examples/gfcc/Imper.gf')
-rw-r--r--examples/gfcc/Imper.gf51
1 files changed, 0 insertions, 51 deletions
diff --git a/examples/gfcc/Imper.gf b/examples/gfcc/Imper.gf
deleted file mode 100644
index ff0e133ee..000000000
--- a/examples/gfcc/Imper.gf
+++ /dev/null
@@ -1,51 +0,0 @@
-abstract Imper = {
-
- cat
- Program ;
- Rec ListTyp ;
- Typ ;
- IsNum Typ ;
- ListTyp ;
- Fun ListTyp Typ ;
- Stm ;
- Exp Typ ;
- Var Typ ;
- ListExp ListTyp ;
-
- fun
- Empty : Program ;
- Funct : (AS : ListTyp) -> (V : Typ) ->
- (Fun AS V -> Rec AS) -> Program ;
- FunctNil : (V : Typ) ->
- Stm -> (Fun NilTyp V -> Program) -> Program ;
- RecOne : (A : Typ) -> (Var A -> Stm) -> Program -> Rec (ConsTyp A NilTyp) ;
- 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 ;
- 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 TInt ;
- EFloat : Int -> Int -> Exp TFloat ;
- ELt : (n : Typ) -> IsNum n -> Exp n -> Exp n -> Exp TInt ;
- EAdd, EMul, ESub : (n : Typ) -> IsNum n -> Exp n -> Exp n -> Exp n ;
- EAppNil : (V : Typ) -> Fun NilTyp V -> Exp V ;
- EApp : (AS : ListTyp) -> (V : Typ) -> Fun AS V -> ListExp AS -> Exp V ;
-
- TInt, TFloat : Typ ;
- isNumInt : IsNum TInt ; isNumFloat : IsNum TFloat ;
- NilTyp : ListTyp ;
- ConsTyp : Typ -> ListTyp -> ListTyp ;
-
- OneExp : (A : Typ) -> Exp A -> ListExp (ConsTyp A NilTyp) ;
- ConsExp : (A : Typ) -> (AS : ListTyp) ->
- Exp A -> ListExp AS -> ListExp (ConsTyp A AS) ;
-}