2007-05-02 01:07:00 +00:00
|
|
|
/*
|
2008-03-04 05:21:33 +00:00
|
|
|
* $Id: context.h 118 2008-03-03 11:21:33Z baconevi $
|
2007-05-02 01:07:00 +00:00
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#ifndef _ASE_STX_CONTEXT_H_
|
|
|
|
|
#define _ASE_STX_CONTEXT_H_
|
|
|
|
|
|
|
|
|
|
#include <ase/stx/stx.h>
|
|
|
|
|
|
|
|
|
|
#define PUSH_OBJECT 0xA0
|
|
|
|
|
#define SEND_UNARY_MESSAGE 0xB0
|
|
|
|
|
#define HALT 0xFF
|
|
|
|
|
|
|
|
|
|
#define ASE_STX_CONTEXT_SIZE 4
|
|
|
|
|
#define ASE_STX_CONTEXT_IP 0
|
|
|
|
|
#define ASE_STX_CONTEXT_METHOD 1
|
|
|
|
|
#define ASE_STX_CONTEXT_ARGUMENTS 2
|
|
|
|
|
#define ASE_STX_CONTEXT_TEMPORARIES 3
|
|
|
|
|
|
|
|
|
|
struct ase_stx_context_t
|
|
|
|
|
{
|
|
|
|
|
ase_stx_objhdr_t header;
|
|
|
|
|
ase_word_t ip;
|
|
|
|
|
ase_word_t method;
|
|
|
|
|
ase_word_t arguments;
|
|
|
|
|
ase_word_t temporaries;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
typedef struct ase_stx_context_t ase_stx_context_t;
|
|
|
|
|
|
|
|
|
|
#ifdef __cplusplus
|
|
|
|
|
extern "C" {
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
ase_word_t ase_stx_new_context (ase_stx_t* stx,
|
|
|
|
|
ase_word_t method, ase_word_t args, ase_word_t temp);
|
|
|
|
|
int ase_stx_run_context (ase_stx_t* stx, ase_word_t context);
|
|
|
|
|
|
|
|
|
|
#ifdef __cplusplus
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#endif
|
