1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
/**********************************************************************
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
|
