diff options
author | kou <kou@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2007-10-21 12:25:41 +0000 |
---|---|---|
committer | kou <kou@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2007-10-21 12:25:41 +0000 |
commit | 0b27c831f2198f669c58baab6dcd8f70aee09d47 (patch) | |
tree | a22bfc3448e3d593e46f24ffc61498e5459efba2 /lib | |
parent | 57a639494a2a002f496a945979e2bf499b0d9fdb (diff) |
* reverted commit miss in r13747.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@13748 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'lib')
-rw-r--r-- | lib/rss/.gdbinit | 499 | ||||
-rw-r--r-- | lib/rss/prelude.rb | 25 |
2 files changed, 0 insertions, 524 deletions
diff --git a/lib/rss/.gdbinit b/lib/rss/.gdbinit deleted file mode 100644 index 5f67324456..0000000000 --- a/lib/rss/.gdbinit +++ /dev/null @@ -1,499 +0,0 @@ -define rp - if (VALUE)$arg0 & RUBY_FIXNUM_FLAG - printf "FIXNUM: %d\n", $arg0 >> 1 - else - if ((VALUE)$arg0 & ~(~(VALUE)0<<RUBY_SPECIAL_SHIFT)) == RUBY_SYMBOL_FLAG - printf "SYMBOL(%d)\n", $arg0 >> RUBY_SPECIAL_SHIFT - else - if $arg0 == RUBY_Qfalse - echo false\n - else - if $arg0 == RUBY_Qtrue - echo true\n - else - if $arg0 == RUBY_Qnil - echo nil\n - else - if $arg0 == RUBY_Qundef - echo undef\n - else - if (VALUE)$arg0 & RUBY_IMMEDIATE_MASK - echo immediate\n - else - set $flags = ((struct RBasic*)$arg0)->flags - if ($flags & RUBY_T_MASK) == RUBY_T_NONE - printf "T_NONE: " - print (struct RBasic *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_NIL - printf "T_NIL: " - print (struct RBasic *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_OBJECT - printf "T_OBJECT: " - print (struct RObject *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_CLASS - printf "T_CLASS: " - print (struct RClass *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_ICLASS - printf "T_ICLASS: " - print (struct RClass *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_MODULE - printf "T_MODULE: " - print (struct RClass *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_FLOAT - printf "T_FLOAT: %.16g ", (((struct RFloat*)$arg0)->value) - print (struct RFloat *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_STRING - printf "T_STRING: " - set print address off - output (char *)(($flags & RUBY_FL_USER1) ? \ - ((struct RString*)$arg0)->as.heap.ptr : \ - ((struct RString*)$arg0)->as.ary) - set print address on - printf " encoding:%d ", ($flags & (RUBY_FL_USER8|RUBY_FL_USER9|RUBY_FL_USER10|RUBY_FL_USER11)) >> RUBY_ENCODING_SHIFT - if ($flags & (RUBY_FL_USER12|RUBY_FL_USER13)) == 0 - printf "coderange:unknown " - else - if ($flags & (RUBY_FL_USER12|RUBY_FL_USER13)) == RUBY_FL_USER12 - printf "coderange:single " - else - if ($flags & (RUBY_FL_USER12|RUBY_FL_USER13)) == RUBY_FL_USER13 - printf "coderange:single " - else - printf "coderange:broken " - end - end - end - print (struct RString *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_REGEXP - printf "T_REGEXP: " - set print address off - output ((struct RRegexp*)$arg0)->str - set print address on - printf " " - print (struct RRegexp *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_ARRAY - printf "T_ARRAY: len=%d ", ((struct RArray*)$arg0)->len - print (struct RArray *)$arg0 - x/xw ((struct RArray*)$arg0)->ptr - else - if ($flags & RUBY_T_MASK) == RUBY_T_FIXNUM - printf "T_FIXNUM: " - print (struct RBasic *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_HASH - printf "T_HASH: ", - if ((struct RHash *)$arg0)->ntbl - printf "len=%d ", ((struct RHash *)$arg0)->ntbl->num_entries - end - print (struct RHash *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_STRUCT - printf "T_STRUCT: len=%d ", \ - (($flags & (RUBY_FL_USER1|RUBY_FL_USER2)) ? \ - ($flags & (RUBY_FL_USER1|RUBY_FL_USER2)) >> (RUBY_FL_USHIFT+1) : \ - ((struct RStruct *)$arg0)->as.heap.len) - print (struct RStruct *)$arg0 - x/xw (($flags & (RUBY_FL_USER1|RUBY_FL_USER2)) ? \ - ((struct RStruct *)$arg0)->as.ary : \ - ((struct RStruct *)$arg0)->as.heap.len) - else - if ($flags & RUBY_T_MASK) == RUBY_T_BIGNUM - printf "T_BIGNUM: sign=%d len=%d ", \ - (($flags & RUBY_FL_USER1) != 0), \ - (($flags & RUBY_FL_USER2) ? \ - ($flags & (RUBY_FL_USER5|RUBY_FL_USER4|RUBY_FL_USER3)) >> (RUBY_FL_USHIFT+3) : \ - ((struct RBignum*)$arg0)->as.heap.len) - if $flags & RUBY_FL_USER2 - printf "(embed) " - end - print (struct RBignum *)$arg0 - x/xw (($flags & RUBY_FL_USER2) ? \ - ((struct RBignum*)$arg0)->as.ary : \ - ((struct RBignum*)$arg0)->as.heap.digits) - else - if ($flags & RUBY_T_MASK) == RUBY_T_FILE - printf "T_FILE: " - print (struct RFile *)$arg0 - output *((struct RFile *)$arg0)->fptr - printf "\n" - else - if ($flags & RUBY_T_MASK) == RUBY_T_TRUE - printf "T_TRUE: " - print (struct RBasic *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_FALSE - printf "T_FALSE: " - print (struct RBasic *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_DATA - printf "T_DATA: " - print (struct RData *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_MATCH - printf "T_MATCH: " - print (struct RMatch *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_SYMBOL - printf "T_SYMBOL: " - print (struct RBasic *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_VALUES - printf "T_VALUES: " - print (struct RValues *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_BLOCK - printf "T_BLOCK: " - print (struct RBasic *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_UNDEF - printf "T_UNDEF: " - print (struct RBasic *)$arg0 - else - if ($flags & RUBY_T_MASK) == RUBY_T_NODE - printf "T_NODE(" - output (enum node_type)(($flags&RUBY_NODE_TYPEMASK)>>RUBY_NODE_TYPESHIFT) - printf "): " - print *(NODE *)$arg0 - else - printf "unknown: " - print (struct RBasic *)$arg0 - end - end - end - end - end - end - end - end - end - end - end - end - end - end - end - end - end - end - end - end - end - end - end - end - end - end - end - end - end - end - end -end -document rp - Print a Ruby's VALUE. -end - -define nd_type - print (enum node_type)((((NODE*)$arg0)->flags&RUBY_NODE_TYPEMASK)>>RUBY_NODE_TYPESHIFT) -end -document nd_type - Print a Ruby' node type. -end - -define nd_file - print ((NODE*)$arg0)->nd_file -end -document nd_file - Print the source file name of a node. -end - -define nd_line - print ((unsigned int)((((NODE*)$arg0)->flags>>RUBY_NODE_LSHIFT)&RUBY_NODE_LMASK)) -end -document nd_line - Print the source line number of a node. -end - -# Print members of ruby node. - -define nd_head - printf "u1.node: " - rp $arg0.u1.node -end - -define nd_alen - printf "u2.argc: " - p $arg0.u2.argc -end - -define nd_next - printf "u3.node: " - rp $arg0.u3.node -end - - -define nd_cond - printf "u1.node: " - rp $arg0.u1.node -end - -define nd_body - printf "u2.node: " - rp $arg0.u2.node -end - -define nd_else - printf "u3.node: " - rp $arg0.u3.node -end - - -define nd_orig - printf "u3.value: " - rp $arg0.u3.value -end - - -define nd_resq - printf "u2.node: " - rp $arg0.u2.node -end - -define nd_ensr - printf "u3.node: " - rp $arg0.u3.node -end - - -define nd_1st - printf "u1.node: " - rp $arg0.u1.node -end - -define nd_2nd - printf "u2.node: " - rp $arg0.u2.node -end - - -define nd_stts - printf "u1.node: " - rp $arg0.u1.node -end - - -define nd_entry - printf "u3.entry: " - p $arg0.u3.entry -end - -define nd_vid - printf "u1.id: " - p $arg0.u1.id -end - -define nd_cflag - printf "u2.id: " - p $arg0.u2.id -end - -define nd_cval - printf "u3.value: " - rp $arg0.u3.value -end - - -define nd_cnt - printf "u3.cnt: " - p $arg0.u3.cnt -end - -define nd_tbl - printf "u1.tbl: " - p $arg0.u1.tbl -end - - -define nd_var - printf "u1.node: " - rp $arg0.u1.node -end - -define nd_ibdy - printf "u2.node: " - rp $arg0.u2.node -end - -define nd_iter - printf "u3.node: " - rp $arg0.u3.node -end - - -define nd_value - printf "u2.node: " - rp $arg0.u2.node -end - -define nd_aid - printf "u3.id: " - p $arg0.u3.id -end - - -define nd_lit - printf "u1.value: " - rp $arg0.u1.value -end - - -define nd_frml - printf "u1.node: " - rp $arg0.u1.node -end - -define nd_rest - printf "u2.argc: " - p $arg0.u2.argc -end - -define nd_opt - printf "u1.node: " - rp $arg0.u1.node -end - - -define nd_recv - printf "u1.node: " - rp $arg0.u1.node -end - -define nd_mid - printf "u2.id: " - p $arg0.u2.id -end - -define nd_args - printf "u3.node: " - rp $arg0.u3.node -end - - -define nd_noex - printf "u1.id: " - p $arg0.u1.id -end - -define nd_defn - printf "u3.node: " - rp $arg0.u3.node -end - - -define nd_old - printf "u1.id: " - p $arg0.u1.id -end - -define nd_new - printf "u2.id: " - p $arg0.u2.id -end - - -define nd_cfnc - printf "u1.cfunc: " - p $arg0.u1.cfunc -end - -define nd_argc - printf "u2.argc: " - p $arg0.u2.argc -end - - -define nd_cname - printf "u1.id: " - p $arg0.u1.id -end - -define nd_super - printf "u3.node: " - rp $arg0.u3.node -end - - -define nd_modl - printf "u1.id: " - p $arg0.u1.id -end - -define nd_clss - printf "u1.value: " - rp $arg0.u1.value -end - - -define nd_beg - printf "u1.node: " - rp $arg0.u1.node -end - -define nd_end - printf "u2.node: " - rp $arg0.u2.node -end - -define nd_state - printf "u3.state: " - p $arg0.u3.state -end - -define nd_rval - printf "u2.value: " - rp $arg0.u2.value -end - - -define nd_nth - printf "u2.argc: " - p $arg0.u2.argc -end - - -define nd_tag - printf "u1.id: " - p $arg0.u1.id -end - -define nd_tval - printf "u2.value: " - rp $arg0.u2.value -end - -define rb_p - call rb_p($arg0) -end - -define rb_id2name - call rb_id2name($arg0) -end - -define rb_classname - call classname($arg0) - rb_p $ - print *(struct RClass*)$arg0 -end - -define rb_backtrace - call rb_backtrace() -end diff --git a/lib/rss/prelude.rb b/lib/rss/prelude.rb deleted file mode 100644 index 8d6f70657e..0000000000 --- a/lib/rss/prelude.rb +++ /dev/null @@ -1,25 +0,0 @@ - -# Mutex - -class Mutex - def synchronize - self.lock - begin - yield - ensure - self.unlock - end - end -end - -# Thread - -class Thread - MUTEX_FOR_THREAD_EXCLUSIVE = Mutex.new - def self.exclusive - MUTEX_FOR_THREAD_EXCLUSIVE.synchronize{ - yield - } - end -end - |