#ifndef DEBASE_INTERNALS
#define DEBASE_INTERNALS

#include "ruby.h"
#include "ruby/debug.h"

typedef struct rb_trace_arg_struct rb_trace_point_t;

/* Debase::Context */
/* flags */
#define CTX_FL_SUSPEND      (1<<1)
#define CTX_FL_TRACING      (1<<2)
#define CTX_FL_SKIPPED      (1<<3)
#define CTX_FL_IGNORE       (1<<4)
#define CTX_FL_DEAD         (1<<5)
#define CTX_FL_WAS_RUNNING  (1<<6)
#define CTX_FL_ENABLE_BKPT  (1<<7)
#define CTX_FL_STEPPED      (1<<8)
#define CTX_FL_FORCE_MOVE   (1<<9)
#define CTX_FL_CATCHING     (1<<10)
#define CTX_FL_UPDATE_STACK (1<<11)

/* macro functions */
#define CTX_FL_TEST(c,f)  ((c)->flags & (f))
#define CTX_FL_SET(c,f)   do { (c)->flags |= (f); } while (0)
#define CTX_FL_UNSET(c,f) do { (c)->flags &= ~(f); } while (0)

#define IS_THREAD_ALIVE(t) (rb_funcall((t), idAlive, 0) == Qtrue)
#define TRACE_POINT (rb_tracearg_from_tracepoint(trace_point))

/* types */
typedef enum {CTX_STOP_NONE, CTX_STOP_STEP, CTX_STOP_BREAKPOINT, CTX_STOP_CATCHPOINT} ctx_stop_reason;

typedef struct debug_frame_t
{
    struct debug_frame_t *prev;
    const char *file;
    int line;
    VALUE binding;
    VALUE self;
} debug_frame_t;

typedef struct debug_context {
  debug_frame_t *stack;
  int stack_size;

  VALUE thread;
  int thnum;
  int flags;
  
  ctx_stop_reason stop_reason;
  int stop_next;
  int stop_line;
  int stop_frame;
  int thread_pause;

  /* dest_frame uses calced_stack_size for stepping */
  int dest_frame;
  int calced_stack_size;

  char *last_file;
  int last_line;
  int init_stack_size;
  int script_finished;
  int hit_user_code;
} debug_context_t;

typedef struct
{
  debug_context_t *context;
  VALUE context_object;
  VALUE path;
  VALUE lineno;
} inspector_data_t;

/* functions */
extern VALUE Init_context(VALUE mDebase);
extern VALUE context_create(VALUE thread, VALUE cDebugThread);
extern void reset_stepping_stop_points(debug_context_t *context);
extern VALUE Context_ignored(VALUE self);
extern void fill_stack(debug_context_t *context, const rb_debug_inspector_t *inspector);
extern void clear_stack(debug_context_t *context);

/* locked threads container */
/* types */
typedef struct locked_thread_t {
    VALUE thread;
    struct locked_thread_t *next;
} locked_thread_t;

/* functions */
extern int is_in_locked(VALUE thread_id);
extern void add_to_locked(VALUE thread);
extern VALUE remove_from_locked();
extern VALUE enable_trace_points();

/* breakpoints and catchpoints */
/* types */
typedef struct
{
  VALUE enabled;
  VALUE source;
  VALUE expr;
  int line;
  int id;
} breakpoint_t;

extern VALUE catchpoint_hit_count(VALUE catchpoints, VALUE exception, VALUE *exception_name);
extern VALUE breakpoint_find(VALUE breakpoints, VALUE source, VALUE pos, VALUE trace_point);
extern void Init_breakpoint(VALUE mDebase);

extern void breakpoint_init_variables();
extern void context_init_variables();
#endif