GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-16 06:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

gfcc in Types

Browse Source
This commit is contained in:
aarne
2004-12-20 07:57:05 +00:00
parent 8caa3ed737
commit 6e1f41b26a
7 changed files with 125 additions and 153 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
examples/gfcc/ResImper.gf
View File

@@ -61,6 +61,14 @@ resource ResImper = open Predef in {
-- operations for JVM
param TypIdent = TIInt | TIFloat ; -- to be continued
oper
typInstr : Str -> TypIdent -> Str = \instr,t -> case t of {
TIInt => "i" + instr ;
TIFloat => "f" + instr
} ;
Instr : Type = {s,s2,s3 : Str} ; -- code, variables, labels
instr : Str -> Instr = \s ->
statement s ** {s2,s3 = []} ;
@@ -72,6 +80,6 @@ resource ResImper = open Predef in {
ss (s ++ ";" ++ i.s) ** {s2 = v ++ i.s2 ; s3 = i.s3} ;
binop : Str -> SS -> SS -> SS = \op, x, y ->
ss (x.s ++ y.s ++ op ++ ";") ;
binopt : Str -> SS -> SS -> SS -> SS = \op, t ->
binop (t.s ++ op) ;
binopt : Str -> TypIdent -> SS -> SS -> SS = \op, t ->
binop (typInstr op t) ;
}