106 lines
2.2 KiB
C
106 lines
2.2 KiB
C
/**********************************************************************
|
|
|
|
yarv.h -
|
|
|
|
$Author$
|
|
$Date$
|
|
|
|
Copyright (C) 2004-2006 Koichi Sasada
|
|
|
|
**********************************************************************/
|
|
|
|
|
|
#include <ruby.h>
|
|
#include <node.h>
|
|
#include "yarvcore.h"
|
|
|
|
#ifndef _YARV_H_INCLUDED_
|
|
#define _YARV_H_INCLUDED_
|
|
|
|
|
|
VALUE yarv_yield(VALUE val);
|
|
|
|
/* original API */
|
|
|
|
#if YARVEXT
|
|
RUBY_EXTERN int yarvIsWorking;
|
|
#define IS_YARV_WORKING() (yarvIsWorking)
|
|
#define SET_YARV_START() (yarvIsWorking = 1)
|
|
#define SET_YARV_STOP() (yarvIsWorking = 0)
|
|
#else
|
|
#define IS_YARV_WORKING() 1
|
|
#define SET_YARV_START()
|
|
#define SET_YARV_STOP()
|
|
#endif
|
|
|
|
|
|
#if YARV_THREAD_MODEL == 2
|
|
|
|
extern yarv_thread_t *yarvCurrentThread;
|
|
extern yarv_vm_t *theYarvVM;
|
|
|
|
static inline VALUE
|
|
yarv_get_current_running_thread_value(void)
|
|
{
|
|
return yarvCurrentThread->self;
|
|
}
|
|
|
|
static inline yarv_thread_t *
|
|
yarv_get_current_running_thread(void)
|
|
{
|
|
return yarvCurrentThread;
|
|
}
|
|
|
|
#define GET_VM() theYarvVM
|
|
#define GET_THREAD() yarvCurrentThread
|
|
|
|
static inline void
|
|
yarv_set_current_running_thread_raw(yarv_thread_t *th)
|
|
{
|
|
yarvCurrentThread = th;
|
|
}
|
|
|
|
static inline void
|
|
yarv_set_current_running_thread(yarv_thread_t *th)
|
|
{
|
|
yarv_set_current_running_thread_raw(th);
|
|
th->vm->running_thread = th;
|
|
}
|
|
|
|
#else
|
|
#error "unsupported thread model"
|
|
#endif
|
|
|
|
void rb_vm_change_state();
|
|
|
|
VALUE th_invoke_yield(yarv_thread_t *th, int argc, VALUE *argv);
|
|
|
|
VALUE th_call0(yarv_thread_t *th, VALUE klass, VALUE recv,
|
|
VALUE id, ID oid, int argc, const VALUE *argv,
|
|
NODE * body, int nosuper);
|
|
|
|
VALUE *yarv_svar(int);
|
|
|
|
VALUE th_call_super(yarv_thread_t *th, int argc, const VALUE *argv);
|
|
|
|
VALUE yarv_backtrace(int lev);
|
|
|
|
VALUE yarvcore_eval_parsed(NODE *node, VALUE file);
|
|
|
|
VALUE th_invoke_proc(yarv_thread_t *th, yarv_proc_t *proc,
|
|
VALUE self, int argc, VALUE *argv);
|
|
VALUE th_make_proc(yarv_thread_t *th, yarv_control_frame_t *cfp,
|
|
yarv_block_t *block);
|
|
VALUE th_make_env_object(yarv_thread_t *th, yarv_control_frame_t *cfp);
|
|
VALUE yarvcore_eval(VALUE self, VALUE str, VALUE file, VALUE line);
|
|
|
|
int yarv_block_given_p(void);
|
|
|
|
VALUE yarv_load(char *);
|
|
VALUE yarv_obj_is_proc(VALUE);
|
|
int th_get_sourceline(yarv_control_frame_t *);
|
|
VALUE th_backtrace(yarv_thread_t *, int);
|
|
void yarv_bug(void);
|
|
|
|
#endif
|