masterkain / macruby

Ruby 1.9 ported to run directly on top of Mac OS X core technologies. Trunk mirror.

This URL has Read+Write access

macruby / debug.h
100644 49 lines (37 sloc) 1.547 kb
raw blame history 
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

/**********************************************************************
 
  debug.h - YARV Debug function interface
 
  $Author: nobu $
  created at: 04/08/25 02:33:49 JST
 
  Copyright (C) 2004-2007 Koichi Sasada
 
**********************************************************************/
 
#ifndef RUBY_DEBUG_H
#define RUBY_DEBUG_H
 
#include "ruby/ruby.h"
#include "ruby/node.h"
 
#define dpv(h,v) ruby_debug_print_value(-1, 0, h, v)
#define dp(v)    ruby_debug_print_value(-1, 0, "", v)
#define dpi(i)   ruby_debug_print_id(-1, 0, "", i)
#define dpn(n)   ruby_debug_print_node(-1, 0, "", n)
 
#define bp()     ruby_debug_breakpoint()
 
VALUE ruby_debug_print_value(int level, int debug_level, const char *header, VALUE v);
ID    ruby_debug_print_id(int level, int debug_level, const char *header, ID id);
NODE *ruby_debug_print_node(int level, int debug_level, const char *header, const NODE *node);
int   ruby_debug_print_indent(int level, int debug_level, int indent_level);
void  ruby_debug_breakpoint(void);
void  ruby_debug_gc_check_func(void);
 
#include "vm_core.h"
#if ENABLE_DEBUG_LOGGING 
# include <libgen.h>
extern bool ruby_dlog_enabled;
extern FILE *ruby_dlog_file;
# define DLOG(mod, fmt, args...) 					  \
    if (UNLIKELY(ruby_dlog_enabled)) { 					  \
	fprintf(ruby_dlog_file, "%s:%d %s ",				  \
		basename((char *)rb_sourcefile()), rb_sourceline(), mod); \
	fprintf(ruby_dlog_file, fmt, ##args); 				  \
	fprintf(ruby_dlog_file, "\n");              			  \
    }
#else
# define DLOG(mod, fmt, args...)
#endif
 
#endif /* RUBY_DEBUG_H */