version 2 of doc

This commit is contained in:
aarne
2004-09-25 21:49:21 +00:00
parent 2eae406aa7
commit a06dcaab30
4 changed files with 505 additions and 385 deletions

View File

@@ -75,6 +75,9 @@ flags lexer=codevars ; unlexer=code ; startcat=Stm ;
ESub = binopt "_sub" ;
EMul = binopt "_mul" ;
ELt t = binop ("invokestatic" ++ t.s ++ "runtime/lt" ++ paren (t.s ++ t.s) ++ "i") ;
EAppNil val f = instr (
"invokestatic" ++ f.s ++ paren [] ++ val.s
) ;
EApp args val f exps = instr (
exps.s ++
"invokestatic" ++ f.s ++ paren args.s ++ val.s
@@ -83,11 +86,8 @@ flags lexer=codevars ; unlexer=code ; startcat=Stm ;
TNum t = t ;
TInt = ss "i" ;
TFloat = ss "f" ;
NilTyp = ss [] ;
ConsTyp = cc2 ;
NilExp = ss [] ;
OneExp _ e = e ;
ConsExp _ _ = cc2 ;
}