1998-01-16 15:13:05 +03:00
|
|
|
/************************************************
|
|
|
|
|
|
|
|
env.h -
|
|
|
|
|
|
|
|
$Author$
|
|
|
|
$Revision$
|
|
|
|
$Date$
|
|
|
|
created at: Mon Jul 11 11:53:03 JST 1994
|
|
|
|
|
|
|
|
************************************************/
|
|
|
|
#ifndef ENV_H
|
|
|
|
#define ENV_H
|
|
|
|
|
|
|
|
extern struct FRAME {
|
|
|
|
int argc;
|
|
|
|
VALUE *argv;
|
|
|
|
ID last_func;
|
1998-01-16 15:19:22 +03:00
|
|
|
VALUE last_class;
|
1998-01-16 15:13:05 +03:00
|
|
|
VALUE cbase;
|
|
|
|
struct FRAME *prev;
|
|
|
|
char *file;
|
|
|
|
int line;
|
|
|
|
int iter;
|
|
|
|
} *the_frame;
|
|
|
|
|
1998-01-16 15:19:22 +03:00
|
|
|
void gc_mark_frame _((struct FRAME *));
|
|
|
|
|
1998-01-16 15:13:05 +03:00
|
|
|
extern struct SCOPE {
|
|
|
|
struct RBasic super;
|
|
|
|
ID *local_tbl;
|
|
|
|
VALUE *local_vars;
|
|
|
|
int flag;
|
|
|
|
} *the_scope;
|
|
|
|
|
|
|
|
#define SCOPE_ALLOCA 0
|
|
|
|
#define SCOPE_MALLOC 1
|
|
|
|
#define SCOPE_NOSTACK 2
|
|
|
|
|
|
|
|
extern int rb_in_eval;
|
|
|
|
|
1998-01-16 15:19:22 +03:00
|
|
|
extern VALUE the_class;
|
1998-01-16 15:13:05 +03:00
|
|
|
|
|
|
|
struct RVarmap {
|
|
|
|
struct RBasic super;
|
|
|
|
ID id;
|
|
|
|
VALUE val;
|
|
|
|
struct RVarmap *next;
|
|
|
|
};
|
|
|
|
extern struct RVarmap *the_dyna_vars;
|
|
|
|
|
|
|
|
#endif /* ENV_H */
|