GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki 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

29
examples/gfcc/ResImper.gf
View File

@@ -1,13 +1,34 @@
resource ResImper = open Prelude, Precedence in {
oper
PrecExp : Type = {s : PrecTerm} ;
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} =
ex : PrecExp -> Str = \exp -> exp.s ! p0 ;
infixL : Prec -> Str -> PrecExp -> PrecExp -> PrecExp =
\p,h,x,y -> {s = mkInfixL h p x.s y.s} ;
infixN : Prec -> Str -> PrecExp -> PrecExp -> PrecExp =
\p,h,x,y -> {s = mkInfix h p x.s y.s} ;
constant : Str -> {s : PrecTerm} = \c -> {s = mkConst c} ;
constant : Str -> PrecExp = \c -> {s = mkConst c} ;
param
Size = Zero | One | More ;
oper
nextSize : Size -> Size = \n -> case n of {
Zero => One ;
_ => More
} ;
separator : Str -> Size -> Str = \t,n -> case n of {
Zero => [] ;
_ => t
} ;
-- for JVM
Instr : Type = {s, s3 : Str} ; -- code, labels
instr : Str -> Instr = \s -> statement s ** {s3 = []} ; ----
instrc : Str -> Instr -> Instr = \s,i -> statement (s ++ i.s) ** {s3 = i.s3} ; ----
binop : Str -> SS -> SS -> SS = \op, x, y ->
ss (x.s ++ y.s ++ op ++ ";") ;
}