mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
8978d52ac8
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@28122 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
502 lines
7.1 KiB
Text
502 lines
7.1 KiB
Text
define rp
|
||
if ($arg0 & 0x1)
|
||
echo T_FIXNUM\n
|
||
print (long)$arg0 >> 1
|
||
else
|
||
if ($arg0 == 0)
|
||
echo T_FALSE\n
|
||
else
|
||
if ($arg0 == 2)
|
||
echo T_TRUE\n
|
||
else
|
||
if ($arg0 == 4)
|
||
echo T_NIL\n
|
||
else
|
||
if ($arg0 == 6)
|
||
echo T_UNDEF\n
|
||
else
|
||
if (($arg0 & 0xff) == 0x0e)
|
||
echo T_SYMBOL\n
|
||
output $arg0 >> 8
|
||
echo \n
|
||
call rb_id2name($arg0 >> 8)
|
||
else
|
||
set $rbasic = (struct RBasic*)$arg0
|
||
# output $rbasic
|
||
# echo \ =\
|
||
# output *$rbasic
|
||
# echo \n
|
||
set $flags = (*$rbasic).flags & 0x3f
|
||
if ($flags == 0x01)
|
||
echo T_NIL\n
|
||
echo impossible\n
|
||
else
|
||
if ($flags == 0x02)
|
||
echo T_OBJECT\n
|
||
print *(struct RObject*)$rbasic
|
||
else
|
||
if ($flags == 0x03)
|
||
echo T_CLASS\n
|
||
print *(struct RClass*)$rbasic
|
||
# rb_classname($arg0)
|
||
else
|
||
if ($flags == 0x04)
|
||
echo T_ICLASS\n
|
||
print *(struct RClass*)$rbasic
|
||
else
|
||
if ($flags == 0x05)
|
||
echo T_MODULE\n
|
||
print *(struct RClass*)$rbasic
|
||
else
|
||
if ($flags == 0x06)
|
||
echo T_FLOAT\n
|
||
print *(struct RFloat*)$rbasic
|
||
else
|
||
if ($flags == 0x07)
|
||
echo T_STRING\n
|
||
print *(struct RString*)$rbasic
|
||
else
|
||
if ($flags == 0x08)
|
||
echo T_REGEXP\n
|
||
print *(struct RRegexp*)$rbasic
|
||
else
|
||
if ($flags == 0x09)
|
||
echo T_ARRAY\n
|
||
print *(struct RArray*)$rbasic
|
||
else
|
||
if ($flags == 0x0a)
|
||
echo T_FIXNUM\n
|
||
echo impossible\n
|
||
else
|
||
if ($flags == 0x0b)
|
||
echo T_HASH\n
|
||
print *(struct RHash*)$rbasic
|
||
else
|
||
if ($flags == 0x0c)
|
||
echo T_STRUCT\n
|
||
print *(struct RStruct*)$rbasic
|
||
else
|
||
if ($flags == 0x0d)
|
||
echo T_BIGNUM\n
|
||
print *(struct RBignum*)$rbasic
|
||
else
|
||
if ($flags == 0x0e)
|
||
echo T_FILE\n
|
||
print *(struct RFile*)$rbasic
|
||
else
|
||
if ($flags == 0x20 || $flags == 0x10)
|
||
echo T_TRUE\n
|
||
echo impossible\n
|
||
else
|
||
if ($flags == 0x21 || $flags == 0x11)
|
||
echo T_FALSE\n
|
||
echo impossible\n
|
||
else
|
||
if ($flags == 0x22 || $flags == 0x12)
|
||
echo T_DATA\n
|
||
print *(struct RData*)$rbasic
|
||
else
|
||
if ($flags == 0x23 || $flags == 0x13)
|
||
echo T_MATCH\n
|
||
print *(struct RMatch*)$rbasic
|
||
else
|
||
if ($flags == 0x24 || $flags == 0x14)
|
||
echo T_SYMBOL\n
|
||
echo impossible\n
|
||
else
|
||
if ($flags == 0x3c || $flags == 0x1c)
|
||
echo T_UNDEF\n
|
||
echo impossible\n
|
||
else
|
||
if ($flags == 0x3b)
|
||
echo T_BLOCK\n
|
||
else
|
||
if ($flags == 0x3d || $flags == 0x1d)
|
||
echo T_VARMAP\n
|
||
else
|
||
if ($flags == 0x3e || $flags == 0x1e)
|
||
echo T_SCOPE\n
|
||
else
|
||
if ($flags == 0x3f || $flags == 0x1f)
|
||
echo T_NODE\n
|
||
print (NODE*)$arg0
|
||
else
|
||
echo Unknown\n
|
||
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
|
||
ruby<EFBFBD><EFBFBD><EFBFBD>Ȥ߹<EFBFBD><EFBFBD>ߥ<EFBFBD><EFBFBD>֥<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȥ<EFBFBD>ɽ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
end
|
||
|
||
define nd_type
|
||
print (enum node_type)((((NODE*)$arg0)->flags>>node_typemask)&node_typeshift)
|
||
end
|
||
document nd_type
|
||
ruby node <20>η<EFBFBD><CEB7><EFBFBD>ɽ<EFBFBD><C9BD>
|
||
end
|
||
|
||
define nd_file
|
||
print ((NODE*)$arg0)->nd_file
|
||
end
|
||
document nd_file
|
||
node <20>Υ<EFBFBD><CEA5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ե<EFBFBD><D5A5><EFBFBD><EFBFBD><EFBFBD>̾<EFBFBD><CCBE>ɽ<EFBFBD><C9BD>
|
||
end
|
||
|
||
define nd_line
|
||
print ((unsigned int)((((NODE*)$arg0)->flags>>node_lshift)&node_lmask))
|
||
end
|
||
document nd_line
|
||
node <20>ι<EFBFBD><CEB9>ֹ<EFBFBD><D6B9><EFBFBD>ɽ<EFBFBD><C9BD>
|
||
end
|
||
|
||
# ruby node <20>Υ<EFBFBD><CEA5><EFBFBD><EFBFBD>Ф<EFBFBD>ɽ<EFBFBD><C9BD>
|
||
|
||
define nd_head
|
||
print "u1.node"
|
||
what $arg0.u1.node
|
||
p $arg0.u1.node
|
||
end
|
||
|
||
define nd_alen
|
||
print "u2.argc"
|
||
what $arg0.u2.argc
|
||
p $arg0.u2.argc
|
||
end
|
||
|
||
define nd_next
|
||
print "u3.node"
|
||
what $arg0.u3.node
|
||
p $arg0.u3.node
|
||
end
|
||
|
||
|
||
define nd_cond
|
||
print "u1.node"
|
||
what $arg0.u1.node
|
||
p $arg0.u1.node
|
||
end
|
||
|
||
define nd_body
|
||
print "u2.node"
|
||
what $arg0.u2.node
|
||
p $arg0.u2.node
|
||
end
|
||
|
||
define nd_else
|
||
print "u3.node"
|
||
what $arg0.u3.node
|
||
p $arg0.u3.node
|
||
end
|
||
|
||
|
||
define nd_orig
|
||
print "u3.value"
|
||
what $arg0.u3.value
|
||
p $arg0.u3.value
|
||
end
|
||
|
||
|
||
define nd_resq
|
||
print "u2.node"
|
||
what $arg0.u2.node
|
||
p $arg0.u2.node
|
||
end
|
||
|
||
define nd_ensr
|
||
print "u3.node"
|
||
what $arg0.u3.node
|
||
p $arg0.u3.node
|
||
end
|
||
|
||
|
||
define nd_1st
|
||
print "u1.node"
|
||
what $arg0.u1.node
|
||
p $arg0.u1.node
|
||
end
|
||
|
||
define nd_2nd
|
||
print "u2.node"
|
||
what $arg0.u2.node
|
||
p $arg0.u2.node
|
||
end
|
||
|
||
|
||
define nd_stts
|
||
print "u1.node"
|
||
what $arg0.u1.node
|
||
p $arg0.u1.node
|
||
end
|
||
|
||
|
||
define nd_entry
|
||
print "u3.entry"
|
||
what $arg0.u3.entry
|
||
p $arg0.u3.entry
|
||
end
|
||
|
||
define nd_vid
|
||
print "u1.id"
|
||
what $arg0.u1.id
|
||
p $arg0.u1.id
|
||
end
|
||
|
||
define nd_cflag
|
||
print "u2.id"
|
||
what $arg0.u2.id
|
||
p $arg0.u2.id
|
||
end
|
||
|
||
define nd_cval
|
||
print "u3.value"
|
||
what $arg0.u3.value
|
||
p $arg0.u3.value
|
||
end
|
||
|
||
|
||
define nd_cnt
|
||
print "u3.cnt"
|
||
what $arg0.u3.cnt
|
||
p $arg0.u3.cnt
|
||
end
|
||
|
||
define nd_tbl
|
||
print "u1.tbl"
|
||
what $arg0.u1.tbl
|
||
p $arg0.u1.tbl
|
||
end
|
||
|
||
|
||
define nd_var
|
||
print "u1.node"
|
||
what $arg0.u1.node
|
||
p $arg0.u1.node
|
||
end
|
||
|
||
define nd_ibdy
|
||
print "u2.node"
|
||
what $arg0.u2.node
|
||
p $arg0.u2.node
|
||
end
|
||
|
||
define nd_iter
|
||
print "u3.node"
|
||
what $arg0.u3.node
|
||
p $arg0.u3.node
|
||
end
|
||
|
||
|
||
define nd_value
|
||
print "u2.node"
|
||
what $arg0.u2.node
|
||
p $arg0.u2.node
|
||
end
|
||
|
||
define nd_aid
|
||
print "u3.id"
|
||
what $arg0.u3.id
|
||
p $arg0.u3.id
|
||
end
|
||
|
||
|
||
define nd_lit
|
||
print "u1.value"
|
||
what $arg0.u1.value
|
||
p $arg0.u1.value
|
||
end
|
||
|
||
|
||
define nd_frml
|
||
print "u1.node"
|
||
what $arg0.u1.node
|
||
p $arg0.u1.node
|
||
end
|
||
|
||
define nd_rest
|
||
print "u2.argc"
|
||
what $arg0.u2.argc
|
||
p $arg0.u2.argc
|
||
end
|
||
|
||
define nd_opt
|
||
print "u1.node"
|
||
what $arg0.u1.node
|
||
p $arg0.u1.node
|
||
end
|
||
|
||
|
||
define nd_recv
|
||
print "u1.node"
|
||
what $arg0.u1.node
|
||
p $arg0.u1.node
|
||
end
|
||
|
||
define nd_mid
|
||
print "u2.id"
|
||
what $arg0.u2.id
|
||
p $arg0.u2.id
|
||
end
|
||
|
||
define nd_args
|
||
print "u3.node"
|
||
what $arg0.u3.node
|
||
p $arg0.u3.node
|
||
end
|
||
|
||
|
||
define nd_noex
|
||
print "u1.id"
|
||
what $arg0.u1.id
|
||
p $arg0.u1.id
|
||
end
|
||
|
||
define nd_defn
|
||
print "u3.node"
|
||
what $arg0.u3.node
|
||
p $arg0.u3.node
|
||
end
|
||
|
||
|
||
define nd_old
|
||
print "u1.id"
|
||
what $arg0.u1.id
|
||
p $arg0.u1.id
|
||
end
|
||
|
||
define nd_new
|
||
print "u2.id"
|
||
what $arg0.u2.id
|
||
p $arg0.u2.id
|
||
end
|
||
|
||
|
||
define nd_cfnc
|
||
print "u1.cfunc"
|
||
what $arg0.u1.cfunc
|
||
p $arg0.u1.cfunc
|
||
end
|
||
|
||
define nd_argc
|
||
print "u2.argc"
|
||
what $arg0.u2.argc
|
||
p $arg0.u2.argc
|
||
end
|
||
|
||
|
||
define nd_cname
|
||
print "u1.id"
|
||
what $arg0.u1.id
|
||
p $arg0.u1.id
|
||
end
|
||
|
||
define nd_super
|
||
print "u3.node"
|
||
what $arg0.u3.node
|
||
p $arg0.u3.node
|
||
end
|
||
|
||
|
||
define nd_modl
|
||
print "u1.id"
|
||
what $arg0.u1.id
|
||
p $arg0.u1.id
|
||
end
|
||
|
||
define nd_clss
|
||
print "u1.value"
|
||
what $arg0.u1.value
|
||
p $arg0.u1.value
|
||
end
|
||
|
||
|
||
define nd_beg
|
||
print "u1.node"
|
||
what $arg0.u1.node
|
||
p $arg0.u1.node
|
||
end
|
||
|
||
define nd_end
|
||
print "u2.node"
|
||
what $arg0.u2.node
|
||
p $arg0.u2.node
|
||
end
|
||
|
||
define nd_state
|
||
print "u3.state"
|
||
what $arg0.u3.state
|
||
p $arg0.u3.state
|
||
end
|
||
|
||
define nd_rval
|
||
print "u2.value"
|
||
what $arg0.u2.value
|
||
p $arg0.u2.value
|
||
end
|
||
|
||
|
||
define nd_nth
|
||
print "u2.argc"
|
||
what $arg0.u2.argc
|
||
p $arg0.u2.argc
|
||
end
|
||
|
||
|
||
define nd_tag
|
||
print "u1.id"
|
||
what $arg0.u1.id
|
||
p $arg0.u1.id
|
||
end
|
||
|
||
define nd_tval
|
||
print "u2.value"
|
||
what $arg0.u2.value
|
||
p $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 $
|
||
p *(struct RClass*)$arg0
|
||
end
|
||
|
||
define rb_backtrace
|
||
call rb_backtrace()
|
||
end
|