(compile) ( ast -- )

Vocabulary

fjsc

Inputs

ast

an object

Outputs

None

Definition

IN: fjsc

GENERIC: (compile) ( ast -- )

Methods

USING: fjsc make ;

M: ast-array (compile) "factor.push_data(" , (literal) "," , ;


USING: fjsc kernel ;

M: ast-comment (compile) drop ;


USING: accessors fjsc kernel make ;

M: ast-define (compile)
    "factor.define_word(\"" , dup name>> , "\",\"source\"," ,
    expression>> (compile) "," , ;


USING: accessors fjsc ;

M: ast-expression (compile) values>> do-expressions ;


USING: fjsc make ;

M: ast-hashtable (compile)
    "factor.push_data(" , (literal) "," , ;


USING: fjsc make ;

M: ast-identifier (compile) (literal) ".execute(" , ;


USING: accessors fjsc make ;

M: ast-in (compile) "factor.set_in(\"" , name>> , "\"," , ;


USING: fjsc make ;

M: ast-number (compile) "factor.push_data(" , (literal) "," , ;


USING: accessors fjsc make ;

M: ast-quotation (compile)
    "factor.push_data(factor.make_quotation(\"source\"," ,
    values>> do-expressions ")," , ;


USING: fjsc kernel ;

M: ast-stack-effect (compile) drop ;


USING: fjsc make ;

M: ast-string (compile) "factor.push_data(" , (literal) "," , ;


USING: accessors fjsc make ;

M: ast-use (compile) "factor.use(\"" , name>> , "\"," , ;


USING: accessors fjsc make sequences ;

M: ast-using (compile)
    "factor.using([" , names>>
    [ "," , ] [ "\"" , , "\"" , ] interleave "]," , ;


USING: fjsc make ;

M: ast-word (compile) "factor.push_data(" , (literal) "," , ;