The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

#ifndef SMOP_Mold_H
#define SMOP_Mold_H

#include <smop/base.h>


/* Please see
http://www.perlfoundation.org/perl6/index.cgi?smop_mold
*/
extern SMOP__Object* SMOP__Mold;
extern SMOP__Object* SMOP__Mold__Frame;
SMOP__Object* SMOP__Mold_create(int registers,SMOP__Object** constants,int opcodes_len,int *opcodes); 
SMOP__Object* SMOP__Mold__Frame_create(SMOP__Object* interpreter,SMOP__Object* mold);
void mold_reg_set(SMOP__Object* interpreter,SMOP__Object* moldframe, int regnum, SMOP__Object* value);
void mold_back_set(SMOP__Object* interpreter,SMOP__Object* moldframe, SMOP__Object* value);

void smop_mold_message_init(SMOP__Object* interpreter);
void smop_mold_message_destr(SMOP__Object* interpreter);
void smop_mold_init();
void smop_mold_destr();
#endif