@@ -33,6 +33,14 @@ VALUE erlix_atom_size(VALUE self){ return INT2FIX(l); } +VALUE erlix_atom_inspect(VALUE self){ + VALUE ret=rb_str_new2("#<ErlixAtom:"); + ID concat=rb_intern("concat"); + rb_funcall(ret,concat,1,rb_funcall(self,rb_intern("to_s"),0)); + rb_funcall(ret,concat,1,rb_str_new2(">")); + return ret; +} + VALUE erlix_atom_etype(VALUE self){ return rb_str_new2("atom"); } @@ -44,6 +52,7 @@ void init_erlix_atom(){ rb_define_method(erlix_cErlixAtom,"initialize",erlix_atom_init,1); rb_define_method(erlix_cErlixAtom,"size",erlix_atom_size,0); rb_define_method(erlix_cErlixAtom,"etype",erlix_atom_etype,0); + rb_define_method(erlix_cErlixAtom,"inspect",erlix_atom_inspect,0); rb_include_module(erlix_cErlixAtom,erlix_mErlixTerm); } src/erlix_atom.c @@ -16,6 +16,7 @@ VALUE erlix_atom_alloc(VALUE klass); VALUE erlix_atom_init(VALUE self,VALUE string); VALUE erlix_atom_size(VALUE self); VALUE erlix_atom_etype(VALUE self); +VALUE erlix_atom_inspect(VALUE self); void init_erlix_atom(); src/erlix_atom.h @@ -39,6 +39,14 @@ VALUE erlix_binary_size(VALUE self){ return INT2FIX(l); } +VALUE erlix_binary_inspect(VALUE self){ + VALUE ret=rb_str_new2("#<ErlixBinary:"); + ID concat=rb_intern("concat"); + rb_funcall(ret,concat,1,rb_funcall(self,rb_intern("to_s"),0)); + rb_funcall(ret,concat,1,rb_str_new2(">")); + return ret; +} + VALUE erlix_binary_etype(VALUE self){ return rb_str_new2("binary"); } @@ -50,6 +58,7 @@ void init_erlix_binary(){ rb_define_method(erlix_cErlixBinary,"initialize",erlix_binary_init,1); rb_define_method(erlix_cErlixBinary,"data",erlix_binary_data,0); rb_define_method(erlix_cErlixBinary,"size",erlix_binary_size,0); + rb_define_method(erlix_cErlixBinary,"inspect",erlix_binary_inspect,0); rb_define_method(erlix_cErlixBinary,"etype",erlix_binary_etype,0); rb_include_module(erlix_cErlixBinary,erlix_mErlixTerm); src/erlix_binary.c @@ -16,6 +16,7 @@ VALUE erlix_binary_alloc(VALUE klass); VALUE erlix_binary_init(VALUE self,VALUE string); VALUE erlix_binary_data(VALUE self); VALUE erlix_binary_size(VALUE self); +VALUE erlix_binary_inspect(VALUE self); VALUE erlix_binary_etype(VALUE self); void init_erlix_binary(); src/erlix_binary.h @@ -36,6 +36,14 @@ VALUE erlix_float_to_fix(VALUE self){ return rb_float_new(l); } +VALUE erlix_float_inspect(VALUE self){ + VALUE ret=rb_str_new2("#<ErlixFloat:"); + ID concat=rb_intern("concat"); + rb_funcall(ret,concat,1,rb_funcall(self,rb_intern("to_s"),0)); + rb_funcall(ret,concat,1,rb_str_new2(">")); + return ret; +} + VALUE erlix_float_etype(VALUE self){ return rb_str_new2("float"); } @@ -46,6 +54,7 @@ void init_erlix_float(){ rb_define_alloc_func(erlix_cErlixFloat,erlix_float_alloc); rb_define_method(erlix_cErlixFloat,"initialize",erlix_float_init,1); rb_define_method(erlix_cErlixFloat,"to_i",erlix_float_to_fix,0); + rb_define_method(erlix_cErlixFloat,"inspect",erlix_float_inspect,0); rb_define_method(erlix_cErlixFloat,"etype",erlix_float_etype,0); rb_include_module(erlix_cErlixFloat,erlix_mErlixTerm); src/erlix_float.c @@ -16,6 +16,7 @@ VALUE erlix_float_alloc(VALUE klass); VALUE erlix_float_init(VALUE self,VALUE fixnum); VALUE erlix_float_to_fix(VALUE self); VALUE erlix_float_size(VALUE self); +VALUE erlix_float_inspect(VALUE self); VALUE erlix_float_etype(VALUE self); void init_erlix_float(); src/erlix_float.h @@ -36,6 +36,14 @@ VALUE erlix_int_to_fix(VALUE self){ return INT2FIX(l); } +VALUE erlix_int_inspect(VALUE self){ + VALUE ret=rb_str_new2("#<ErlixInt:"); + ID concat=rb_intern("concat"); + rb_funcall(ret,concat,1,rb_funcall(self,rb_intern("to_s"),0)); + rb_funcall(ret,concat,1,rb_str_new2(">")); + return ret; +} + VALUE erlix_int_etype(VALUE self){ return rb_str_new2("int"); } @@ -46,6 +54,7 @@ void init_erlix_int(){ rb_define_alloc_func(erlix_cErlixInt,erlix_int_alloc); rb_define_method(erlix_cErlixInt,"initialize",erlix_int_init,1); rb_define_method(erlix_cErlixInt,"to_i",erlix_int_to_fix,0); + rb_define_method(erlix_cErlixInt,"inspect",erlix_int_inspect,0); rb_define_method(erlix_cErlixInt,"etype",erlix_int_etype,0); rb_include_module(erlix_cErlixInt,erlix_mErlixTerm); src/erlix_int.c @@ -16,6 +16,8 @@ VALUE erlix_int_alloc(VALUE klass); VALUE erlix_int_init(VALUE self,VALUE fixnum); VALUE erlix_int_to_fix(VALUE self); VALUE erlix_int_size(VALUE self); +VALUE erlix_int_inspect(VALUE self); + VALUE erlix_int_etype(VALUE self); void init_erlix_int(); src/erlix_int.h @@ -161,6 +161,14 @@ VALUE erlix_list_size(VALUE self){ return INT2FIX(len); } +VALUE erlix_list_inspect(VALUE self){ + VALUE ret=rb_str_new2("#<ErlixList:"); + ID concat=rb_intern("concat"); + rb_funcall(ret,concat,1,rb_funcall(self,rb_intern("to_s"),0)); + rb_funcall(ret,concat,1,rb_str_new2(">")); + return ret; +} + VALUE erlix_list_etype(VALUE self){ return rb_str_new2("list"); } @@ -175,6 +183,7 @@ void init_erlix_list(){ rb_define_method(erlix_cErlixList,"cons",erlix_list_cons,1); rb_define_method(erlix_cErlixList,"to_a",erlix_list_to_ary,0); rb_define_method(erlix_cErlixList,"size",erlix_list_size,0); + rb_define_method(erlix_cErlixList,"inspect",erlix_list_inspect,0); rb_define_method(erlix_cErlixList,"etype",erlix_list_etype,0); rb_define_singleton_method(erlix_cErlixList,"[]",erlix_list_create,-1); src/erlix_list.c @@ -19,6 +19,7 @@ VALUE erlix_list_head(VALUE self); VALUE erlix_list_tail(VALUE self); VALUE erlix_list_cons(VALUE self,VALUE head); VALUE erlix_list_size(VALUE self); +VALUE erlix_list_inspect(VALUE self); VALUE erlix_list_etype(VALUE self); void init_erlix_list(); src/erlix_list.h @@ -41,6 +41,13 @@ VALUE erlix_pid_init(VALUE self,VALUE econn){ return self; } +VALUE erlix_pid_inspect(VALUE self){ + VALUE ret=rb_str_new2("#<ErlixPid:"); + ID concat=rb_intern("concat"); + rb_funcall(ret,concat,1,rb_funcall(self,rb_intern("to_s"),0)); + rb_funcall(ret,concat,1,rb_str_new2(">")); + return ret; +} VALUE erlix_pid_etype(VALUE self){ return rb_str_new2("pid"); @@ -51,6 +58,7 @@ void init_erlix_pid(){ rb_define_alloc_func(erlix_cErlixPid,erlix_pid_alloc); rb_define_method(erlix_cErlixPid,"initialize",erlix_pid_init,1); + rb_define_method(erlix_cErlixPid,"inspect",erlix_pid_inspect,0); rb_define_method(erlix_cErlixPid,"etype",erlix_pid_etype,0); rb_include_module(erlix_cErlixPid,erlix_mErlixTerm); src/erlix_pid.c @@ -15,6 +15,7 @@ VALUE erlix_pid_alloc(VALUE klass); VALUE erlix_pid_init(VALUE self,VALUE econn); VALUE erlix_pid_size(VALUE self); +VALUE erlix_pid_inspect(VALUE self); VALUE erlix_pid_etype(VALUE self); void init_erlix_pid(); src/erlix_pid.h @@ -31,6 +31,13 @@ VALUE erlix_ref_init(VALUE self){ return self; } +VALUE erlix_ref_inspect(VALUE self){ + VALUE ret=rb_str_new2("#<ErlixRef:"); + ID concat=rb_intern("concat"); + rb_funcall(ret,concat,1,rb_funcall(self,rb_intern("to_s"),0)); + rb_funcall(ret,concat,1,rb_str_new2(">")); + return ret; +} VALUE erlix_ref_etype(VALUE self){ return rb_str_new2("ref"); @@ -41,6 +48,7 @@ void init_erlix_ref(){ rb_define_alloc_func(erlix_cErlixRef,erlix_ref_alloc); rb_define_method(erlix_cErlixRef,"initialize",erlix_ref_init,0); + rb_define_method(erlix_cErlixRef,"inspect",erlix_ref_inspect,0); rb_define_method(erlix_cErlixRef,"etype",erlix_ref_etype,0); rb_include_module(erlix_cErlixRef,erlix_mErlixTerm); src/erlix_ref.c @@ -14,6 +14,7 @@ VALUE erlix_REF_alloc(VALUE klass); VALUE erlix_REF_init(VALUE self); +VALUE erlix_ref_inspect(VALUE self); VALUE erlix_REF_etype(VALUE self); void init_erlix_REF(); src/erlix_ref.h @@ -121,6 +121,14 @@ VALUE erlix_tuple_size(VALUE self){ return INT2FIX(len); } +VALUE erlix_tuple_inspect(VALUE self){ + VALUE ret=rb_str_new2("#<ErlixTuple:"); + ID concat=rb_intern("concat"); + rb_funcall(ret,concat,1,rb_funcall(self,rb_intern("to_s"),0)); + rb_funcall(ret,concat,1,rb_str_new2(">")); + return ret; +} + VALUE erlix_tuple_etype(VALUE self){ return rb_str_new2("tuple"); } @@ -134,6 +142,7 @@ void init_erlix_tuple(){ rb_define_method(erlix_cErlixTuple,"[]",erlix_tuple_nth,1); rb_define_method(erlix_cErlixTuple,"to_a",erlix_tuple_to_ary,0); rb_define_method(erlix_cErlixTuple,"size",erlix_tuple_size,0); + rb_define_method(erlix_cErlixTuple,"inspect",erlix_tuple_inspect,0); rb_define_method(erlix_cErlixTuple,"etype",erlix_tuple_etype,0); rb_define_singleton_method(erlix_cErlixTuple, "[]", erlix_tuple_create, -1); src/erlix_tuple.c @@ -18,6 +18,7 @@ VALUE erlix_tuple_create(int argc,VALUE *argv,VALUE klass); VALUE erlix_tuple_nth(VALUE self,VALUE index); VALUE erlix_tuple_to_ary(VALUE self); VALUE erlix_tuple_size(VALUE self); +VALUE erlix_tuple_inspect(VALUE self); VALUE erlix_tuple_etype(VALUE self); src/erlix_tuple.h @@ -36,6 +36,14 @@ VALUE erlix_uint_to_fix(VALUE self){ return INT2FIX(l); } +VALUE erlix_uint_inspect(VALUE self){ + VALUE ret=rb_str_new2("#<ErlixUInt:"); + ID concat=rb_intern("concat"); + rb_funcall(ret,concat,1,rb_funcall(self,rb_intern("to_s"),0)); + rb_funcall(ret,concat,1,rb_str_new2(">")); + return ret; +} + VALUE erlix_uint_etype(VALUE self){ return rb_str_new2("unsigned int"); } @@ -46,6 +54,7 @@ void init_erlix_uint(){ rb_define_alloc_func(erlix_cErlixUInt,erlix_uint_alloc); rb_define_method(erlix_cErlixUInt,"initialize",erlix_uint_init,1); rb_define_method(erlix_cErlixUInt,"to_i",erlix_uint_to_fix,0); + rb_define_method(erlix_cErlixUInt,"inspect",erlix_uint_inspect,0); rb_define_method(erlix_cErlixUInt,"etype",erlix_uint_etype,0); rb_include_module(erlix_cErlixUInt,erlix_mErlixTerm); src/erlix_uint.c @@ -16,6 +16,7 @@ VALUE erlix_uint_alloc(VALUE klass); VALUE erlix_uint_init(VALUE self,VALUE fixnum); VALUE erlix_uint_to_fix(VALUE self); VALUE erlix_uint_size(VALUE self); +VALUE erlix_uint_inspect(VALUE self); VALUE erlix_uint_etype(VALUE self); void init_erlix_uint(); src/erlix_uint.h b52abe69e7a0b08dc25549ebd97dd872af40e7e1 KDr2 kdr2@x-macro.com http://github.com/KDr2/erlix/commit/7f1a5371e8ab36838f809fcc72828601e804a0ac 7f1a5371e8ab36838f809fcc72828601e804a0ac 2009-07-21T02:18:03-07:00 2009-07-21T02:18:03-07:00 add method ErlixTerm#inspect 07a14addd927b05fd48a45a50b1a6a7bda7c7fac KDr2 kdr2@x-macro.com