3#include "internal/ruby_parser.h"
4#include "internal/symbol.h"
5#include "internal/warnings.h"
24node_gc_mark(
void *ptr)
27 rb_gc_mark((
VALUE)data->ast);
31node_memsize(
const void *ptr)
34 return rb_ast_memsize(data->ast);
41 RUBY_TYPED_FREE_IMMEDIATELY,
61 obj = rb_ast_node_alloc(rb_cNode);
62 setup_node(obj, ast, node);
73 return rb_parser_set_context(rb_parser_new(), NULL, 0);
79 if (!ast->body.root) {
81 rb_exc_raise(GET_EC()->errinfo);
84 return ast_new_internal(ast, (
NODE *)ast->body.root);
90 return rb_ast_parse_str(str, keep_script_lines, error_tolerant, keep_tokens);
99 VALUE vparser = ast_parse_new();
100 if (
RTEST(keep_script_lines)) rb_parser_set_script_lines(vparser,
Qtrue);
101 if (
RTEST(error_tolerant)) rb_parser_error_tolerant(vparser);
102 if (
RTEST(keep_tokens)) rb_parser_keep_tokens(vparser);
103 ast = rb_parser_compile_string_path(vparser,
Qnil, str, 1);
104 return ast_parse_done(ast);
110 return rb_ast_parse_file(path, keep_script_lines, error_tolerant, keep_tokens);
122 VALUE vparser = ast_parse_new();
123 if (
RTEST(keep_script_lines)) rb_parser_set_script_lines(vparser,
Qtrue);
124 if (
RTEST(error_tolerant)) rb_parser_error_tolerant(vparser);
125 if (
RTEST(keep_tokens)) rb_parser_keep_tokens(vparser);
126 ast = rb_parser_compile_file_path(vparser,
Qnil, f, 1);
128 return ast_parse_done(ast);
132lex_array(
VALUE array,
int index)
134 VALUE str = rb_ary_entry(array, index);
137 if (!rb_enc_asciicompat(rb_enc_get(str))) {
138 rb_raise(rb_eArgError,
"invalid source encoding");
145rb_ast_parse_array(
VALUE array,
VALUE keep_script_lines,
VALUE error_tolerant,
VALUE keep_tokens)
149 array = rb_check_array_type(array);
150 VALUE vparser = ast_parse_new();
151 if (
RTEST(keep_script_lines)) rb_parser_set_script_lines(vparser,
Qtrue);
152 if (
RTEST(error_tolerant)) rb_parser_error_tolerant(vparser);
153 if (
RTEST(keep_tokens)) rb_parser_keep_tokens(vparser);
154 ast = rb_parser_compile_generic(vparser, lex_array,
Qnil, array, 1);
155 return ast_parse_done(ast);
161node_find(
VALUE self,
const int node_id)
168 if (nd_node_id(data->node) == node_id)
return self;
170 ary = node_children(data->ast, data->node);
176 VALUE result = node_find(child, node_id);
177 if (
RTEST(result))
return result;
184extern VALUE rb_e_script;
187rb_script_lines_for(
VALUE path,
bool add)
191 CONST_ID(script_lines,
"SCRIPT_LINES__");
196 rb_hash_aset(hash, path, lines = rb_ary_new());
198 else if (!RB_TYPE_P((lines = rb_hash_lookup(hash, path)),
T_ARRAY)) {
204script_lines(
VALUE path)
206 return rb_script_lines_for(path,
false);
214 if (!rb_frame_info_p(location)) {
215 rb_raise(
rb_eTypeError,
"Thread::Backtrace::Location object expected");
218 node_id = rb_get_node_id_from_frame_info(location);
233 if (rb_frame_info_p(body)) {
234 iseq = rb_get_iseq_from_frame_info(body);
235 node_id = rb_get_node_id_from_frame_info(body);
241 iseq = vm_proc_iseq(body);
243 if (!rb_obj_is_iseq((
VALUE)iseq))
return Qnil;
246 iseq = rb_method_iseq(body);
249 node_id = ISEQ_BODY(iseq)->location.node_id;
256 lines = ISEQ_BODY(iseq)->variable.script_lines;
258 VALUE path = rb_iseq_path(iseq);
259 int e_option = RSTRING_LEN(path) == 2 && memcmp(RSTRING_PTR(path),
"-e", 2) == 0;
261 if (
NIL_P(lines) && rb_iseq_from_eval_p(iseq) && !e_option) {
262 rb_raise(rb_eArgError,
"cannot get AST for method defined in eval");
265 if (!
NIL_P(lines) || !
NIL_P(lines = script_lines(path))) {
266 node = rb_ast_parse_array(lines, keep_script_lines, error_tolerant, keep_tokens);
269 node = rb_ast_parse_str(rb_e_script, keep_script_lines, error_tolerant, keep_tokens);
272 node = rb_ast_parse_file(path, keep_script_lines, error_tolerant, keep_tokens);
275 return node_find(node, node_id);
279rb_ast_node_alloc(
VALUE klass)
288node_type_to_str(
const NODE *node)
290 return (ruby_node_name(nd_type(node)) +
rb_strlen_lit(
"NODE_"));
299 return rb_sym_intern_ascii_cstr(node_type_to_str(data->node));
308 return INT2FIX(nd_node_id(data->node));
311#define NEW_CHILD(ast, node) node ? ast_new_internal(ast, node) : Qnil
314rb_ary_new_from_node_args(
rb_ast_t *ast,
long n, ...)
323 for (i=0; i<n; i++) {
325 node = va_arg(ar,
NODE *);
326 rb_ary_push(ary, NEW_CHILD(ast, node));
335 VALUE ary = rb_ary_new();
337 rb_ary_push(ary, NEW_CHILD(ast, node->nd_head));
338 }
while (node->nd_next &&
339 nd_type_p(node->nd_next, NODE_BLOCK) &&
340 (node = RNODE_BLOCK(node->nd_next), 1));
342 rb_ary_push(ary, NEW_CHILD(ast, node->nd_next));
351 VALUE ary = rb_ary_new();
352 rb_ary_push(ary, NEW_CHILD(ast, node->nd_head));
354 while (node->nd_next && nd_type_p(node->nd_next, NODE_LIST)) {
355 node = RNODE_LIST(node->nd_next);
356 rb_ary_push(ary, NEW_CHILD(ast, node->nd_head));
358 rb_ary_push(ary, NEW_CHILD(ast, node->nd_next));
366 if (!
id)
return Qnil;
367 if (!rb_id2str(
id))
return Qnil;
375 CONST_ID(rest,
"NODE_SPECIAL_NO_NAME_REST");
382 return NODE_NAMED_REST_P(rest_arg) ? NEW_CHILD(ast, rest_arg) : no_name_rest();
390 enum node_type
type = nd_type(node);
393 return dump_block(ast, RNODE_BLOCK(node));
395 return rb_ary_new_from_node_args(ast, 3, RNODE_IF(node)->nd_cond, RNODE_IF(node)->nd_body, RNODE_IF(node)->nd_else);
397 return rb_ary_new_from_node_args(ast, 3, RNODE_UNLESS(node)->nd_cond, RNODE_UNLESS(node)->nd_body, RNODE_UNLESS(node)->nd_else);
399 return rb_ary_new_from_node_args(ast, 2, RNODE_CASE(node)->nd_head, RNODE_CASE(node)->nd_body);
401 return rb_ary_new_from_node_args(ast, 2, RNODE_CASE2(node)->nd_head, RNODE_CASE2(node)->nd_body);
403 return rb_ary_new_from_node_args(ast, 2, RNODE_CASE3(node)->nd_head, RNODE_CASE3(node)->nd_body);
405 return rb_ary_new_from_node_args(ast, 3, RNODE_WHEN(node)->nd_head, RNODE_WHEN(node)->nd_body, RNODE_WHEN(node)->nd_next);
407 return rb_ary_new_from_node_args(ast, 3, RNODE_IN(node)->nd_head, RNODE_IN(node)->nd_body, RNODE_IN(node)->nd_next);
410 return rb_ary_push(rb_ary_new_from_node_args(ast, 2, RNODE_WHILE(node)->nd_cond, RNODE_WHILE(node)->nd_body),
411 RBOOL(RNODE_WHILE(node)->nd_state));
414 return rb_ary_new_from_node_args(ast, 2, RNODE_ITER(node)->nd_iter, RNODE_ITER(node)->nd_body);
416 return rb_ary_new_from_node_args(ast, 1, RNODE_FOR_MASGN(node)->nd_var);
418 return rb_ary_new_from_node_args(ast, 1, RNODE_BREAK(node)->nd_stts);
420 return rb_ary_new_from_node_args(ast, 1, RNODE_NEXT(node)->nd_stts);
422 return rb_ary_new_from_node_args(ast, 1, RNODE_RETURN(node)->nd_stts);
424 return rb_ary_new_from_node_args(ast, 0);
426 return rb_ary_new_from_node_args(ast, 0);
428 return rb_ary_new_from_node_args(ast, 1, RNODE_BEGIN(node)->nd_body);
430 return rb_ary_new_from_node_args(ast, 3, RNODE_RESCUE(node)->nd_head, RNODE_RESCUE(node)->nd_resq, RNODE_RESCUE(node)->nd_else);
432 return rb_ary_new_from_node_args(ast, 3, RNODE_RESBODY(node)->nd_args, RNODE_RESBODY(node)->nd_body, RNODE_RESBODY(node)->nd_head);
434 return rb_ary_new_from_node_args(ast, 2, RNODE_ENSURE(node)->nd_head, RNODE_ENSURE(node)->nd_ensr);
438 VALUE ary = rb_ary_new();
441 rb_ary_push(ary, NEW_CHILD(ast, RNODE_AND(node)->nd_1st));
442 if (!RNODE_AND(node)->nd_2nd || !nd_type_p(RNODE_AND(node)->nd_2nd,
type))
444 node = RNODE_AND(node)->nd_2nd;
446 rb_ary_push(ary, NEW_CHILD(ast, RNODE_AND(node)->nd_2nd));
450 if (NODE_NAMED_REST_P(RNODE_MASGN(node)->nd_args)) {
451 return rb_ary_new_from_node_args(ast, 3, RNODE_MASGN(node)->nd_value, RNODE_MASGN(node)->nd_head, RNODE_MASGN(node)->nd_args);
454 return rb_ary_new_from_args(3, NEW_CHILD(ast, RNODE_MASGN(node)->nd_value),
455 NEW_CHILD(ast, RNODE_MASGN(node)->nd_head),
459 if (NODE_REQUIRED_KEYWORD_P(RNODE_LASGN(node)->nd_value)) {
460 return rb_ary_new_from_args(2, var_name(RNODE_LASGN(node)->nd_vid),
ID2SYM(rb_intern(
"NODE_SPECIAL_REQUIRED_KEYWORD")));
462 return rb_ary_new_from_args(2, var_name(RNODE_LASGN(node)->nd_vid), NEW_CHILD(ast, RNODE_LASGN(node)->nd_value));
464 if (NODE_REQUIRED_KEYWORD_P(RNODE_DASGN(node)->nd_value)) {
465 return rb_ary_new_from_args(2, var_name(RNODE_DASGN(node)->nd_vid),
ID2SYM(rb_intern(
"NODE_SPECIAL_REQUIRED_KEYWORD")));
467 return rb_ary_new_from_args(2, var_name(RNODE_DASGN(node)->nd_vid), NEW_CHILD(ast, RNODE_DASGN(node)->nd_value));
469 return rb_ary_new_from_args(2, var_name(RNODE_IASGN(node)->nd_vid), NEW_CHILD(ast, RNODE_IASGN(node)->nd_value));
471 return rb_ary_new_from_args(2, var_name(RNODE_CVASGN(node)->nd_vid), NEW_CHILD(ast, RNODE_CVASGN(node)->nd_value));
473 return rb_ary_new_from_args(2, var_name(RNODE_GASGN(node)->nd_vid), NEW_CHILD(ast, RNODE_GASGN(node)->nd_value));
475 if (RNODE_CDECL(node)->nd_vid) {
476 return rb_ary_new_from_args(2,
ID2SYM(RNODE_CDECL(node)->nd_vid), NEW_CHILD(ast, RNODE_CDECL(node)->nd_value));
478 return rb_ary_new_from_args(3, NEW_CHILD(ast, RNODE_CDECL(node)->nd_else),
ID2SYM(RNODE_COLON2(RNODE_CDECL(node)->nd_else)->nd_mid), NEW_CHILD(ast, RNODE_CDECL(node)->nd_value));
480 return rb_ary_new_from_args(4, NEW_CHILD(ast, RNODE_OP_ASGN1(node)->nd_recv),
481 ID2SYM(RNODE_OP_ASGN1(node)->nd_mid),
482 NEW_CHILD(ast, RNODE_OP_ASGN1(node)->nd_index),
483 NEW_CHILD(ast, RNODE_OP_ASGN1(node)->nd_rvalue));
485 return rb_ary_new_from_args(5, NEW_CHILD(ast, RNODE_OP_ASGN2(node)->nd_recv),
486 RBOOL(RNODE_OP_ASGN2(node)->nd_aid),
487 ID2SYM(RNODE_OP_ASGN2(node)->nd_vid),
488 ID2SYM(RNODE_OP_ASGN2(node)->nd_mid),
489 NEW_CHILD(ast, RNODE_OP_ASGN2(node)->nd_value));
490 case NODE_OP_ASGN_AND:
491 return rb_ary_new_from_args(3, NEW_CHILD(ast, RNODE_OP_ASGN_AND(node)->nd_head),
ID2SYM(idANDOP),
492 NEW_CHILD(ast, RNODE_OP_ASGN_AND(node)->nd_value));
493 case NODE_OP_ASGN_OR:
494 return rb_ary_new_from_args(3, NEW_CHILD(ast, RNODE_OP_ASGN_OR(node)->nd_head),
ID2SYM(idOROP),
495 NEW_CHILD(ast, RNODE_OP_ASGN_OR(node)->nd_value));
497 return rb_ary_new_from_args(3, NEW_CHILD(ast, RNODE_OP_CDECL(node)->nd_head),
498 ID2SYM(RNODE_OP_CDECL(node)->nd_aid),
499 NEW_CHILD(ast, RNODE_OP_CDECL(node)->nd_value));
501 return rb_ary_new_from_args(3, NEW_CHILD(ast, RNODE_CALL(node)->nd_recv),
502 ID2SYM(RNODE_CALL(node)->nd_mid),
503 NEW_CHILD(ast, RNODE_CALL(node)->nd_args));
505 return rb_ary_new_from_args(3, NEW_CHILD(ast, RNODE_OPCALL(node)->nd_recv),
506 ID2SYM(RNODE_OPCALL(node)->nd_mid),
507 NEW_CHILD(ast, RNODE_OPCALL(node)->nd_args));
509 return rb_ary_new_from_args(3, NEW_CHILD(ast, RNODE_QCALL(node)->nd_recv),
510 ID2SYM(RNODE_QCALL(node)->nd_mid),
511 NEW_CHILD(ast, RNODE_QCALL(node)->nd_args));
513 return rb_ary_new_from_args(2,
ID2SYM(RNODE_FCALL(node)->nd_mid),
514 NEW_CHILD(ast, RNODE_FCALL(node)->nd_args));
516 return rb_ary_new_from_args(1,
ID2SYM(RNODE_VCALL(node)->nd_mid));
518 return rb_ary_new_from_node_args(ast, 1, RNODE_SUPER(node)->nd_args);
520 return rb_ary_new_from_node_args(ast, 0);
522 return dump_array(ast, RNODE_LIST(node));
524 return rb_ary_new_from_node_args(ast, 0);
526 return rb_ary_new_from_node_args(ast, 1, RNODE_HASH(node)->nd_head);
528 return rb_ary_new_from_node_args(ast, 1, RNODE_YIELD(node)->nd_head);
530 return rb_ary_new_from_args(1, var_name(RNODE_LVAR(node)->nd_vid));
532 return rb_ary_new_from_args(1, var_name(RNODE_DVAR(node)->nd_vid));
534 return rb_ary_new_from_args(1,
ID2SYM(RNODE_IVAR(node)->nd_vid));
536 return rb_ary_new_from_args(1,
ID2SYM(RNODE_CONST(node)->nd_vid));
538 return rb_ary_new_from_args(1,
ID2SYM(RNODE_CVAR(node)->nd_vid));
540 return rb_ary_new_from_args(1,
ID2SYM(RNODE_GVAR(node)->nd_vid));
542 snprintf(name,
sizeof(name),
"$%ld", RNODE_NTH_REF(node)->nd_nth);
543 return rb_ary_new_from_args(1,
ID2SYM(rb_intern(name)));
546 name[1] = (char)RNODE_BACK_REF(node)->nd_nth;
548 return rb_ary_new_from_args(1,
ID2SYM(rb_intern(name)));
550 if (RNODE_MATCH2(node)->nd_args) {
551 return rb_ary_new_from_node_args(ast, 3, RNODE_MATCH2(node)->nd_recv, RNODE_MATCH2(node)->nd_value, RNODE_MATCH2(node)->nd_args);
553 return rb_ary_new_from_node_args(ast, 2, RNODE_MATCH2(node)->nd_recv, RNODE_MATCH2(node)->nd_value);
555 return rb_ary_new_from_node_args(ast, 2, RNODE_MATCH3(node)->nd_recv, RNODE_MATCH3(node)->nd_value);
560 return rb_ary_new_from_args(1, RNODE_LIT(node)->nd_lit);
562 return rb_ary_new_from_node_args(ast, 1, RNODE_ONCE(node)->nd_body);
568 struct RNode_LIST *n = RNODE_DSTR(node)->nd_next;
571 head = NEW_CHILD(ast, n->nd_head);
572 next = NEW_CHILD(ast, n->nd_next);
574 return rb_ary_new_from_args(3, RNODE_DSTR(node)->nd_lit, head, next);
577 return rb_ary_new_from_node_args(ast, 1, RNODE_EVSTR(node)->nd_body);
579 return rb_ary_new_from_node_args(ast, 2, RNODE_ARGSCAT(node)->nd_head, RNODE_ARGSCAT(node)->nd_body);
581 return rb_ary_new_from_node_args(ast, 2, RNODE_ARGSPUSH(node)->nd_head, RNODE_ARGSPUSH(node)->nd_body);
583 return rb_ary_new_from_node_args(ast, 1, RNODE_SPLAT(node)->nd_head);
584 case NODE_BLOCK_PASS:
585 return rb_ary_new_from_node_args(ast, 2, RNODE_BLOCK_PASS(node)->nd_head, RNODE_BLOCK_PASS(node)->nd_body);
587 return rb_ary_new_from_args(2,
ID2SYM(RNODE_DEFN(node)->nd_mid), NEW_CHILD(ast, RNODE_DEFN(node)->nd_defn));
589 return rb_ary_new_from_args(3, NEW_CHILD(ast, RNODE_DEFS(node)->nd_recv),
ID2SYM(RNODE_DEFS(node)->nd_mid), NEW_CHILD(ast, RNODE_DEFS(node)->nd_defn));
591 return rb_ary_new_from_node_args(ast, 2, RNODE_ALIAS(node)->nd_1st, RNODE_ALIAS(node)->nd_2nd);
593 return rb_ary_new_from_args(2,
ID2SYM(RNODE_VALIAS(node)->nd_alias),
ID2SYM(RNODE_VALIAS(node)->nd_orig));
595 return rb_ary_new_from_node_args(ast, 1, RNODE_UNDEF(node)->nd_undef);
597 return rb_ary_new_from_node_args(ast, 3, RNODE_CLASS(node)->nd_cpath, RNODE_CLASS(node)->nd_super, RNODE_CLASS(node)->nd_body);
599 return rb_ary_new_from_node_args(ast, 2, RNODE_MODULE(node)->nd_cpath, RNODE_MODULE(node)->nd_body);
601 return rb_ary_new_from_node_args(ast, 2, RNODE_SCLASS(node)->nd_recv, RNODE_SCLASS(node)->nd_body);
603 return rb_ary_new_from_args(2, NEW_CHILD(ast, RNODE_COLON2(node)->nd_head),
ID2SYM(RNODE_COLON2(node)->nd_mid));
605 return rb_ary_new_from_args(1,
ID2SYM(RNODE_COLON3(node)->nd_mid));
610 return rb_ary_new_from_node_args(ast, 2, RNODE_DOT2(node)->nd_beg, RNODE_DOT2(node)->nd_end);
612 return rb_ary_new_from_node_args(ast, 0);
614 return rb_ary_new_from_node_args(ast, 0);
616 return rb_ary_new_from_node_args(ast, 0);
618 return rb_ary_new_from_node_args(ast, 0);
620 return rb_ary_new_from_node_args(ast, 0);
622 return rb_ary_new_from_node_args(ast, 1, RNODE_DEFINED(node)->nd_head);
624 return rb_ary_new_from_node_args(ast, 1, RNODE_POSTEXE(node)->nd_body);
626 return rb_ary_new_from_args(3, NEW_CHILD(ast, RNODE_ATTRASGN(node)->nd_recv),
ID2SYM(RNODE_ATTRASGN(node)->nd_mid), NEW_CHILD(ast, RNODE_ATTRASGN(node)->nd_args));
628 return rb_ary_new_from_node_args(ast, 1, RNODE_LAMBDA(node)->nd_body);
630 return rb_ary_new_from_node_args(ast, 2, RNODE_OPT_ARG(node)->nd_body, RNODE_OPT_ARG(node)->nd_next);
632 return rb_ary_new_from_node_args(ast, 2, RNODE_KW_ARG(node)->nd_body, RNODE_KW_ARG(node)->nd_next);
634 if (NODE_NAMED_REST_P(RNODE_POSTARG(node)->nd_1st)) {
635 return rb_ary_new_from_node_args(ast, 2, RNODE_POSTARG(node)->nd_1st, RNODE_POSTARG(node)->nd_2nd);
637 return rb_ary_new_from_args(2, no_name_rest(),
638 NEW_CHILD(ast, RNODE_POSTARG(node)->nd_2nd));
641 struct rb_args_info *ainfo = &RNODE_ARGS(node)->nd_ainfo;
642 return rb_ary_new_from_args(10,
644 NEW_CHILD(ast, ainfo->pre_init),
645 NEW_CHILD(ast, (
NODE *)ainfo->opt_args),
646 var_name(ainfo->first_post_arg),
648 NEW_CHILD(ast, ainfo->post_init),
649 (ainfo->rest_arg == NODE_SPECIAL_EXCESSIVE_COMMA
650 ?
ID2SYM(rb_intern(
"NODE_SPECIAL_EXCESSIVE_COMMA"))
651 : var_name(ainfo->rest_arg)),
652 (ainfo->no_kwarg ?
Qfalse : NEW_CHILD(ast, (
NODE *)ainfo->kw_args)),
653 (ainfo->no_kwarg ?
Qfalse : NEW_CHILD(ast, ainfo->kw_rest_arg)),
654 var_name(ainfo->block_arg));
659 int i, size = tbl ? tbl->size : 0;
660 VALUE locals = rb_ary_new_capa(size);
661 for (i = 0; i < size; i++) {
662 rb_ary_push(locals, var_name(tbl->ids[i]));
664 return rb_ary_new_from_args(3, locals, NEW_CHILD(ast, (
NODE *)RNODE_SCOPE(node)->nd_args), NEW_CHILD(ast, RNODE_SCOPE(node)->nd_body));
668 VALUE rest = rest_arg(ast, RNODE_ARYPTN(node)->rest_arg);
669 return rb_ary_new_from_args(4,
670 NEW_CHILD(ast, RNODE_ARYPTN(node)->nd_pconst),
671 NEW_CHILD(ast, RNODE_ARYPTN(node)->pre_args),
673 NEW_CHILD(ast, RNODE_ARYPTN(node)->post_args));
677 VALUE pre_rest = rest_arg(ast, RNODE_FNDPTN(node)->pre_rest_arg);
678 VALUE post_rest = rest_arg(ast, RNODE_FNDPTN(node)->post_rest_arg);
679 return rb_ary_new_from_args(4,
680 NEW_CHILD(ast, RNODE_FNDPTN(node)->nd_pconst),
682 NEW_CHILD(ast, RNODE_FNDPTN(node)->args),
687 VALUE kwrest = RNODE_HSHPTN(node)->nd_pkwrestarg == NODE_SPECIAL_NO_REST_KEYWORD ?
ID2SYM(rb_intern(
"NODE_SPECIAL_NO_REST_KEYWORD")) :
688 NEW_CHILD(ast, RNODE_HSHPTN(node)->nd_pkwrestarg);
690 return rb_ary_new_from_args(3,
691 NEW_CHILD(ast, RNODE_HSHPTN(node)->nd_pconst),
692 NEW_CHILD(ast, RNODE_HSHPTN(node)->nd_pkwargs),
696 return rb_ary_new_from_node_args(ast, 0);
699 case NODE_RIPPER_VALUES:
704 rb_bug(
"node_children: unknown node: %s", ruby_node_name(
type));
713 return node_children(data->ast, data->node);
722 return INT2NUM(nd_first_lineno(data->node));
731 return INT2NUM(nd_first_column(data->node));
740 return INT2NUM(nd_last_lineno(data->node));
749 return INT2NUM(nd_last_column(data->node));
758 return rb_ast_tokens(data->ast);
773 rb_str_catf(str,
":%s@%d:%d-%d:%d>",
774 node_type_to_str(data->node),
775 nd_first_lineno(data->node), nd_first_column(data->node),
776 nd_last_lineno(data->node), nd_last_column(data->node));
786 VALUE ret = data->ast->body.script_lines;
VALUE rb_define_class_under(VALUE outer, const char *name, VALUE super)
Defines a class under the namespace of outer.
VALUE rb_define_module_under(VALUE outer, const char *name)
Defines a module under the namespace of outer.
#define rb_str_new2
Old name of rb_str_new_cstr.
#define INT2FIX
Old name of RB_INT2FIX.
#define ID2SYM
Old name of RB_ID2SYM.
#define CLASS_OF
Old name of rb_class_of.
#define T_HASH
Old name of RUBY_T_HASH.
#define Qtrue
Old name of RUBY_Qtrue.
#define INT2NUM
Old name of RB_INT2NUM.
#define Qnil
Old name of RUBY_Qnil.
#define Qfalse
Old name of RUBY_Qfalse.
#define T_ARRAY
Old name of RUBY_T_ARRAY.
#define NIL_P
Old name of RB_NIL_P.
#define CONST_ID
Old name of RUBY_CONST_ID.
#define rb_ary_new2
Old name of rb_ary_new_capa.
VALUE rb_eTypeError
TypeError exception.
VALUE rb_obj_class(VALUE obj)
Queries the class of an object.
VALUE rb_funcall(VALUE recv, ID mid, int n,...)
Calls a method.
VALUE rb_file_open_str(VALUE fname, const char *fmode)
Identical to rb_file_open(), except it takes the pathname as a Ruby's string instead of C's.
VALUE rb_io_close(VALUE io)
Closes the IO.
VALUE rb_obj_is_proc(VALUE recv)
Queries if the given object is a proc.
VALUE rb_str_append(VALUE dst, VALUE src)
Identical to rb_str_buf_append(), except it converts the right hand side before concatenating.
#define rb_strlen_lit(str)
Length of a string literal.
#define rb_str_new_cstr(str)
Identical to rb_str_new, except it assumes the passed pointer is a pointer to a C string.
VALUE rb_const_get_at(VALUE space, ID name)
Identical to rb_const_defined_at(), except it returns the actual defined value.
int rb_const_defined_at(VALUE space, ID name)
Identical to rb_const_defined(), except it doesn't look for parent classes.
VALUE rb_class_path(VALUE mod)
Identical to rb_mod_name(), except it returns #<Class: ...> style inspection for anonymous modules.
void rb_undef_alloc_func(VALUE klass)
Deletes the allocator function of a class.
#define DECIMAL_SIZE_OF(expr)
An approximation of decimal representation size.
VALUE type(ANYARGS)
ANYARGS-ed function type.
#define RARRAY_LEN
Just another name of rb_array_len.
#define RARRAY_AREF(a, i)
#define StringValue(v)
Ensures that the parameter object is a String.
#define RUBY_TYPED_DEFAULT_FREE
This is a value you can set to rb_data_type_struct::dfree.
#define TypedData_Get_Struct(obj, type, data_type, sval)
Obtains a C struct from inside of a wrapper Ruby object.
#define TypedData_Make_Struct(klass, type, data_type, sval)
Identical to TypedData_Wrap_Struct, except it allocates a new data region internally instead of takin...
#define RTEST
This is an old name of RB_TEST.
This is the struct that holds necessary info for a struct.
uintptr_t ID
Type that represents a Ruby identifier such as a variable name.
uintptr_t VALUE
Type that represents a Ruby object.