00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013 #ifndef NODE_H
00014 #define NODE_H
00015
00016 #if defined(__cplusplus)
00017 extern "C" {
00018 #endif
00019
00020 enum node_type {
00021 NODE_METHOD,
00022 NODE_FBODY,
00023 NODE_CFUNC,
00024 NODE_SCOPE,
00025 NODE_BLOCK,
00026 NODE_IF,
00027 NODE_CASE,
00028 NODE_WHEN,
00029 NODE_OPT_N,
00030 NODE_WHILE,
00031 NODE_UNTIL,
00032 NODE_ITER,
00033 NODE_FOR,
00034 NODE_BREAK,
00035 NODE_NEXT,
00036 NODE_REDO,
00037 NODE_RETRY,
00038 NODE_BEGIN,
00039 NODE_RESCUE,
00040 NODE_RESBODY,
00041 NODE_ENSURE,
00042 NODE_AND,
00043 NODE_OR,
00044 NODE_NOT,
00045 NODE_MASGN,
00046 NODE_LASGN,
00047 NODE_DASGN,
00048 NODE_DASGN_CURR,
00049 NODE_GASGN,
00050 NODE_IASGN,
00051 NODE_CDECL,
00052 NODE_CVASGN,
00053 NODE_CVDECL,
00054 NODE_OP_ASGN1,
00055 NODE_OP_ASGN2,
00056 NODE_OP_ASGN_AND,
00057 NODE_OP_ASGN_OR,
00058 NODE_CALL,
00059 NODE_FCALL,
00060 NODE_VCALL,
00061 NODE_SUPER,
00062 NODE_ZSUPER,
00063 NODE_ARRAY,
00064 NODE_ZARRAY,
00065 NODE_HASH,
00066 NODE_RETURN,
00067 NODE_YIELD,
00068 NODE_LVAR,
00069 NODE_DVAR,
00070 NODE_GVAR,
00071 NODE_IVAR,
00072 NODE_CONST,
00073 NODE_CVAR,
00074 NODE_NTH_REF,
00075 NODE_BACK_REF,
00076 NODE_MATCH,
00077 NODE_MATCH2,
00078 NODE_MATCH3,
00079 NODE_LIT,
00080 NODE_STR,
00081 NODE_DSTR,
00082 NODE_XSTR,
00083 NODE_DXSTR,
00084 NODE_EVSTR,
00085 NODE_DREGX,
00086 NODE_DREGX_ONCE,
00087 NODE_ARGS,
00088 NODE_ARGSCAT,
00089 NODE_ARGSPUSH,
00090 NODE_SPLAT,
00091 NODE_TO_ARY,
00092 NODE_SVALUE,
00093 NODE_BLOCK_ARG,
00094 NODE_BLOCK_PASS,
00095 NODE_DEFN,
00096 NODE_DEFS,
00097 NODE_ALIAS,
00098 NODE_VALIAS,
00099 NODE_UNDEF,
00100 NODE_CLASS,
00101 NODE_MODULE,
00102 NODE_SCLASS,
00103 NODE_COLON2,
00104 NODE_COLON3,
00105 NODE_CREF,
00106 NODE_DOT2,
00107 NODE_DOT3,
00108 NODE_FLIP2,
00109 NODE_FLIP3,
00110 NODE_ATTRSET,
00111 NODE_SELF,
00112 NODE_NIL,
00113 NODE_TRUE,
00114 NODE_FALSE,
00115 NODE_DEFINED,
00116 NODE_NEWLINE,
00117 NODE_POSTEXE,
00118 NODE_ALLOCA,
00119 NODE_DMETHOD,
00120 NODE_BMETHOD,
00121 NODE_MEMO,
00122 NODE_IFUNC,
00123 NODE_DSYM,
00124 NODE_ATTRASGN,
00125 NODE_LAST
00126 };
00127
00128 typedef struct RNode {
00129 unsigned long flags;
00130 char *nd_file;
00131 union {
00132 struct RNode *node;
00133 ID id;
00134 VALUE value;
00135 VALUE (*cfunc)(ANYARGS);
00136 ID *tbl;
00137 } u1;
00138 union {
00139 struct RNode *node;
00140 ID id;
00141 long argc;
00142 VALUE value;
00143 } u2;
00144 union {
00145 struct RNode *node;
00146 ID id;
00147 long state;
00148 struct global_entry *entry;
00149 long cnt;
00150 VALUE value;
00151 } u3;
00152 } NODE;
00153
00154 #define RNODE(obj) (R_CAST(RNode)(obj))
00155
00156 #define nd_type(n) ((int)(((RNODE(n))->flags>>FL_USHIFT)&0xff))
00157 #define nd_set_type(n,t) \
00158 RNODE(n)->flags=((RNODE(n)->flags&~FL_UMASK)|(((t)<<FL_USHIFT)&FL_UMASK))
00159
00160 #define NODE_LSHIFT (FL_USHIFT+8)
00161 #define NODE_LMASK (((long)1<<(sizeof(NODE*)*CHAR_BIT-NODE_LSHIFT))-1)
00162 #define nd_line(n) ((unsigned int)(((RNODE(n))->flags>>NODE_LSHIFT)&NODE_LMASK))
00163 #define nd_set_line(n,l) \
00164 RNODE(n)->flags=((RNODE(n)->flags&~(-1<<NODE_LSHIFT))|(((l)&NODE_LMASK)<<NODE_LSHIFT))
00165
00166 #define nd_head u1.node
00167 #define nd_alen u2.argc
00168 #define nd_next u3.node
00169
00170 #define nd_cond u1.node
00171 #define nd_body u2.node
00172 #define nd_else u3.node
00173
00174 #define nd_orig u3.value
00175
00176 #define nd_resq u2.node
00177 #define nd_ensr u3.node
00178
00179 #define nd_1st u1.node
00180 #define nd_2nd u2.node
00181
00182 #define nd_stts u1.node
00183
00184 #define nd_entry u3.entry
00185 #define nd_vid u1.id
00186 #define nd_cflag u2.id
00187 #define nd_cval u3.value
00188
00189 #define nd_cnt u3.cnt
00190 #define nd_tbl u1.tbl
00191
00192 #define nd_var u1.node
00193 #define nd_ibdy u2.node
00194 #define nd_iter u3.node
00195
00196 #define nd_value u2.node
00197 #define nd_aid u3.id
00198
00199 #define nd_lit u1.value
00200
00201 #define nd_frml u1.node
00202 #define nd_rest u2.argc
00203 #define nd_opt u1.node
00204
00205 #define nd_recv u1.node
00206 #define nd_mid u2.id
00207 #define nd_args u3.node
00208
00209 #define nd_noex u1.id
00210 #define nd_defn u3.node
00211
00212 #define nd_old u1.id
00213 #define nd_new u2.id
00214
00215 #define nd_cfnc u1.cfunc
00216 #define nd_argc u2.argc
00217
00218 #define nd_cpath u1.node
00219 #define nd_super u3.node
00220
00221 #define nd_modl u1.id
00222 #define nd_clss u1.value
00223
00224 #define nd_beg u1.node
00225 #define nd_end u2.node
00226 #define nd_state u3.state
00227 #define nd_rval u2.value
00228
00229 #define nd_nth u2.argc
00230
00231 #define nd_tag u1.id
00232 #define nd_tval u2.value
00233
00234 #define NEW_NODE(t,a0,a1,a2) rb_node_newnode((t),(VALUE)(a0),(VALUE)(a1),(VALUE)(a2))
00235
00236 #define NEW_METHOD(n,x) NEW_NODE(NODE_METHOD,x,n,0)
00237 #define NEW_FBODY(n,i,o) NEW_NODE(NODE_FBODY,n,i,o)
00238 #define NEW_DEFN(i,a,d,p) NEW_NODE(NODE_DEFN,p,i,NEW_RFUNC(a,d))
00239 #define NEW_DEFS(r,i,a,d) NEW_NODE(NODE_DEFS,r,i,NEW_RFUNC(a,d))
00240 #define NEW_CFUNC(f,c) NEW_NODE(NODE_CFUNC,f,c,0)
00241 #define NEW_IFUNC(f,c) NEW_NODE(NODE_IFUNC,f,c,0)
00242 #define NEW_RFUNC(b1,b2) NEW_SCOPE(block_append(b1,b2))
00243 #define NEW_SCOPE(b) NEW_NODE(NODE_SCOPE,local_tbl(),0,(b))
00244 #define NEW_BLOCK(a) NEW_NODE(NODE_BLOCK,a,0,0)
00245 #define NEW_IF(c,t,e) NEW_NODE(NODE_IF,c,t,e)
00246 #define NEW_UNLESS(c,t,e) NEW_IF(c,e,t)
00247 #define NEW_CASE(h,b) NEW_NODE(NODE_CASE,h,b,0)
00248 #define NEW_WHEN(c,t,e) NEW_NODE(NODE_WHEN,c,t,e)
00249 #define NEW_OPT_N(b) NEW_NODE(NODE_OPT_N,0,b,0)
00250 #define NEW_WHILE(c,b,n) NEW_NODE(NODE_WHILE,c,b,n)
00251 #define NEW_UNTIL(c,b,n) NEW_NODE(NODE_UNTIL,c,b,n)
00252 #define NEW_FOR(v,i,b) NEW_NODE(NODE_FOR,v,b,i)
00253 #define NEW_ITER(v,i,b) NEW_NODE(NODE_ITER,v,b,i)
00254 #define NEW_BREAK(s) NEW_NODE(NODE_BREAK,s,0,0)
00255 #define NEW_NEXT(s) NEW_NODE(NODE_NEXT,s,0,0)
00256 #define NEW_REDO() NEW_NODE(NODE_REDO,0,0,0)
00257 #define NEW_RETRY() NEW_NODE(NODE_RETRY,0,0,0)
00258 #define NEW_BEGIN(b) NEW_NODE(NODE_BEGIN,0,b,0)
00259 #define NEW_RESCUE(b,res,e) NEW_NODE(NODE_RESCUE,b,res,e)
00260 #define NEW_RESBODY(a,ex,n) NEW_NODE(NODE_RESBODY,n,ex,a)
00261 #define NEW_ENSURE(b,en) NEW_NODE(NODE_ENSURE,b,0,en)
00262 #define NEW_RETURN(s) NEW_NODE(NODE_RETURN,s,0,0)
00263 #define NEW_YIELD(a,s) NEW_NODE(NODE_YIELD,a,0,s)
00264 #define NEW_LIST(a) NEW_ARRAY(a)
00265 #define NEW_ARRAY(a) NEW_NODE(NODE_ARRAY,a,1,0)
00266 #define NEW_ZARRAY() NEW_NODE(NODE_ZARRAY,0,0,0)
00267 #define NEW_HASH(a) NEW_NODE(NODE_HASH,a,0,0)
00268 #define NEW_NOT(a) NEW_NODE(NODE_NOT,0,a,0)
00269 #define NEW_MASGN(l,r) NEW_NODE(NODE_MASGN,l,0,r)
00270 #define NEW_GASGN(v,val) NEW_NODE(NODE_GASGN,v,val,rb_global_entry(v))
00271 #define NEW_LASGN(v,val) NEW_NODE(NODE_LASGN,v,val,local_cnt(v))
00272 #define NEW_DASGN(v,val) NEW_NODE(NODE_DASGN,v,val,0)
00273 #define NEW_DASGN_CURR(v,val) NEW_NODE(NODE_DASGN_CURR,v,val,0)
00274 #define NEW_IASGN(v,val) NEW_NODE(NODE_IASGN,v,val,0)
00275 #define NEW_CDECL(v,val,path) NEW_NODE(NODE_CDECL,v,val,path)
00276 #define NEW_CVASGN(v,val) NEW_NODE(NODE_CVASGN,v,val,0)
00277 #define NEW_CVDECL(v,val) NEW_NODE(NODE_CVDECL,v,val,0)
00278 #define NEW_OP_ASGN1(p,id,a) NEW_NODE(NODE_OP_ASGN1,p,id,a)
00279 #define NEW_OP_ASGN2(r,i,o,val) NEW_NODE(NODE_OP_ASGN2,r,val,NEW_OP_ASGN22(i,o))
00280 #define NEW_OP_ASGN22(i,o) NEW_NODE(NODE_OP_ASGN2,i,o,rb_id_attrset(i))
00281 #define NEW_OP_ASGN_OR(i,val) NEW_NODE(NODE_OP_ASGN_OR,i,val,0)
00282 #define NEW_OP_ASGN_AND(i,val) NEW_NODE(NODE_OP_ASGN_AND,i,val,0)
00283 #define NEW_GVAR(v) NEW_NODE(NODE_GVAR,v,0,rb_global_entry(v))
00284 #define NEW_LVAR(v) NEW_NODE(NODE_LVAR,v,0,local_cnt(v))
00285 #define NEW_DVAR(v) NEW_NODE(NODE_DVAR,v,0,0)
00286 #define NEW_IVAR(v) NEW_NODE(NODE_IVAR,v,0,0)
00287 #define NEW_CONST(v) NEW_NODE(NODE_CONST,v,0,0)
00288 #define NEW_CVAR(v) NEW_NODE(NODE_CVAR,v,0,0)
00289 #define NEW_NTH_REF(n) NEW_NODE(NODE_NTH_REF,0,n,local_cnt('~'))
00290 #define NEW_BACK_REF(n) NEW_NODE(NODE_BACK_REF,0,n,local_cnt('~'))
00291 #define NEW_MATCH(c) NEW_NODE(NODE_MATCH,c,0,0)
00292 #define NEW_MATCH2(n1,n2) NEW_NODE(NODE_MATCH2,n1,n2,0)
00293 #define NEW_MATCH3(r,n2) NEW_NODE(NODE_MATCH3,r,n2,0)
00294 #define NEW_LIT(l) NEW_NODE(NODE_LIT,l,0,0)
00295 #define NEW_STR(s) NEW_NODE(NODE_STR,s,0,0)
00296 #define NEW_DSTR(s) NEW_NODE(NODE_DSTR,s,1,0)
00297 #define NEW_XSTR(s) NEW_NODE(NODE_XSTR,s,0,0)
00298 #define NEW_DXSTR(s) NEW_NODE(NODE_DXSTR,s,0,0)
00299 #define NEW_DSYM(s) NEW_NODE(NODE_DSYM,s,0,0)
00300 #define NEW_EVSTR(n) NEW_NODE(NODE_EVSTR,0,(n),0)
00301 #define NEW_CALL(r,m,a) NEW_NODE(NODE_CALL,r,m,a)
00302 #define NEW_FCALL(m,a) NEW_NODE(NODE_FCALL,0,m,a)
00303 #define NEW_VCALL(m) NEW_NODE(NODE_VCALL,0,m,0)
00304 #define NEW_SUPER(a) NEW_NODE(NODE_SUPER,0,0,a)
00305 #define NEW_ZSUPER() NEW_NODE(NODE_ZSUPER,0,0,0)
00306 #define NEW_ARGS(f,o,r) NEW_NODE(NODE_ARGS,o,r,f)
00307 #define NEW_ARGSCAT(a,b) NEW_NODE(NODE_ARGSCAT,a,b,0)
00308 #define NEW_ARGSPUSH(a,b) NEW_NODE(NODE_ARGSPUSH,a,b,0)
00309 #define NEW_SPLAT(a) NEW_NODE(NODE_SPLAT,a,0,0)
00310 #define NEW_TO_ARY(a) NEW_NODE(NODE_TO_ARY,a,0,0)
00311 #define NEW_SVALUE(a) NEW_NODE(NODE_SVALUE,a,0,0)
00312 #define NEW_BLOCK_ARG(v) NEW_NODE(NODE_BLOCK_ARG,v,0,local_cnt(v))
00313 #define NEW_BLOCK_PASS(b) NEW_NODE(NODE_BLOCK_PASS,0,b,0)
00314 #define NEW_ALIAS(n,o) NEW_NODE(NODE_ALIAS,o,n,0)
00315 #define NEW_VALIAS(n,o) NEW_NODE(NODE_VALIAS,o,n,0)
00316 #define NEW_UNDEF(i) NEW_NODE(NODE_UNDEF,0,i,0)
00317 #define NEW_CLASS(n,b,s) NEW_NODE(NODE_CLASS,n,NEW_SCOPE(b),(s))
00318 #define NEW_SCLASS(r,b) NEW_NODE(NODE_SCLASS,r,NEW_SCOPE(b),0)
00319 #define NEW_MODULE(n,b) NEW_NODE(NODE_MODULE,n,NEW_SCOPE(b),0)
00320 #define NEW_COLON2(c,i) NEW_NODE(NODE_COLON2,c,i,0)
00321 #define NEW_COLON3(i) NEW_NODE(NODE_COLON3,0,i,0)
00322 #define NEW_CREF(c) (NEW_NODE(NODE_CREF,0,0,c))
00323 #define NEW_DOT2(b,e) NEW_NODE(NODE_DOT2,b,e,0)
00324 #define NEW_DOT3(b,e) NEW_NODE(NODE_DOT3,b,e,0)
00325 #define NEW_ATTRSET(a) NEW_NODE(NODE_ATTRSET,a,0,0)
00326 #define NEW_SELF() NEW_NODE(NODE_SELF,0,0,0)
00327 #define NEW_NIL() NEW_NODE(NODE_NIL,0,0,0)
00328 #define NEW_TRUE() NEW_NODE(NODE_TRUE,0,0,0)
00329 #define NEW_FALSE() NEW_NODE(NODE_FALSE,0,0,0)
00330 #define NEW_DEFINED(e) NEW_NODE(NODE_DEFINED,e,0,0)
00331 #define NEW_NEWLINE(n) NEW_NODE(NODE_NEWLINE,0,0,n)
00332 #define NEW_PREEXE(b) NEW_SCOPE(b)
00333 #define NEW_POSTEXE() NEW_NODE(NODE_POSTEXE,0,0,0)
00334 #define NEW_DMETHOD(b) NEW_NODE(NODE_DMETHOD,0,0,b)
00335 #define NEW_BMETHOD(b) NEW_NODE(NODE_BMETHOD,0,0,b)
00336 #define NEW_ATTRASGN(r,m,a) NEW_NODE(NODE_ATTRASGN,r,m,a)
00337
00338 #define NOEX_PUBLIC 0
00339 #define NOEX_NOSUPER 1
00340 #define NOEX_PRIVATE 2
00341 #define NOEX_PROTECTED 4
00342 #define NOEX_MASK 6
00343
00344 #define NOEX_UNDEF NOEX_NOSUPER
00345
00346 NODE *rb_compile_cstr (const char*, const char*, int, int);
00347 NODE *rb_compile_string (const char*, VALUE, int);
00348 NODE *rb_compile_file (const char*, VALUE, int);
00349
00350 void rb_add_method (VALUE, ID, NODE *, int);
00351 NODE *rb_node_newnode (enum node_type,VALUE,VALUE,VALUE);
00352
00353 NODE* rb_method_node (VALUE klass, ID id);
00354
00355 struct global_entry *rb_global_entry (ID);
00356 VALUE rb_gvar_get (struct global_entry *);
00357 VALUE rb_gvar_set (struct global_entry *, VALUE);
00358 VALUE rb_gvar_defined (struct global_entry *);
00359
00360 typedef unsigned int rb_event_t;
00361
00362 #define RUBY_EVENT_NONE 0x00
00363 #define RUBY_EVENT_LINE 0x01
00364 #define RUBY_EVENT_CLASS 0x02
00365 #define RUBY_EVENT_END 0x04
00366 #define RUBY_EVENT_CALL 0x08
00367 #define RUBY_EVENT_RETURN 0x10
00368 #define RUBY_EVENT_C_CALL 0x20
00369 #define RUBY_EVENT_C_RETURN 0x40
00370 #define RUBY_EVENT_RAISE 0x80
00371 #define RUBY_EVENT_ALL 0xff
00372
00373 typedef void (*rb_event_hook_func_t) (rb_event_t,NODE*,VALUE,ID,VALUE);
00374 void rb_add_event_hook (rb_event_hook_func_t,rb_event_t);
00375 int rb_remove_event_hook (rb_event_hook_func_t);
00376
00377 #if defined(__cplusplus)
00378 }
00379 #endif
00380
00381 #endif
00382
