msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

doc

Browse Source
This commit is contained in:
aarne
2004-09-18 09:24:51 +00:00
parent 96890f5fad
commit 518d44f759
5 changed files with 220 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
examples/gfcc/ImperC.gf
View File

@@ -3,36 +3,44 @@
concrete ImperC of Imper = open Prelude, Precedence, ResImper in {
flags lexer=codevars ; unlexer=code ; startcat=Stm ;
-- code inside function bodies
lincat
Stm = SS ;
Typ = SS ;
Exp = {s : PrecTerm} ;
Exp = PrecExp ;
Var = SS ;
lin
Decl typ cont = continue (typ.s ++ cont.$0) cont ;
Assign _ x exp = statement (x.s ++ "=" ++ ex exp) ;
Assign _ x exp = continue (x.s ++ "=" ++ ex exp) ;
Return _ exp = statement ("return" ++ ex exp) ;
While exp loop = statement ("while" ++ paren (ex exp) ++ loop.s) ;
Block stm = ss ("{" ++ stm.s ++ "}") ;
None = ss ";" ;
Next stm cont = ss (stm.s ++ cont.s) ;
While exp loop = continue ("while" ++ paren (ex exp) ++ loop.s) ;
Block stm = continue ("{" ++ stm.s ++ "}") ;
End = statement [] ;
EVar _ x = constant x.s ;
EInt n = constant n.s ;
EFloat a b = constant (a.s ++ "." ++ b.s) ;
EMulI = infixL p3 "*" ;
EMulF = infixL p3 "*" ;
EAddI = infixL p2 "+" ;
EAddF = infixL p2 "+" ;
ELtI = infixN p1 "<" ;
ELtF = infixN p1 "<" ;
TInt = ss "int" ;
TFloat = ss "float" ;
-- top-level code consisting of function definitions
lincat
Program = SS ;
Typs = SS ;
Fun = SS ;
Body = {s,s2 : Str} ;
Exps = SS ;
Body = {s,s2 : Str ; size : Size} ;
Exps = {s : Str ; size : Size} ;
lin
Empty = ss [] ;
@@ -43,12 +51,21 @@ flags lexer=codevars ; unlexer=code ; startcat=Stm ;
cont.s
) ;
BodyNil stm = stm ** {s2 = []} ;
BodyCons typ _ body = {s = body.s ; s2 = typ.s ++ body.$0 ++ "," ++ body.s2} ;
NilTyp = ss [] ;
ConsTyp = cc2 ;
BodyNil stm = stm ** {s2 = [] ; size = Zero} ;
BodyCons typ _ body = {
s = body.s ;
s2 = typ.s ++ body.$0 ++ separator "," body.size ++ body.s2 ;
size = nextSize body.size
} ;
EApp args val f exps = constant (f.s ++ paren exps.s) ;
NilExp = ss [] ;
ConsExp _ _ e es = ss (ex e ++ "," ++ es.s) ;
NilExp = ss [] ** {size = Zero} ;
ConsExp _ _ e es = {
s = ex e ++ separator "," es.size ++ es.s ;
size = nextSize es.size
} ;
}