1 files changed, 105 insertions, 0 deletions
diff --git a/yarv.h b/yarv.h
new file mode 100644
index 000000000..9d21bfc46
--- /dev/null
+++ b/yarv.h
@@ -0,0 +1,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