kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

.gdbinit: colorize

Browse source 
* .gdbinit: colorize prompt and output headers, so boundaries get
  clearer.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@39274 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu 2013-02-16 05:46:06 +00:00
parent bb7e19c8e9
commit 3d490d209a
1 changed files with 108 additions and 93 deletions
Download patch file Download diff file Expand all files Collapse all files

201
.gdbinit
View file

@ -1,4 +1,19 @@
define ruby_gdb_init
if !$color_type
set $color_type = "\033[31m"
end
if !$color_highlite
set $color_highlite = "\033[36m"
end
if !$color_end
set $color_end = "\033[m"
end
end
set prompt \033[36m(gdb)\033[m\040
define rp define rp
ruby_gdb_init
if ruby_dummy_gdb_enums.special_consts if ruby_dummy_gdb_enums.special_consts
end end
if (VALUE)($arg0) & RUBY_FIXNUM_FLAG if (VALUE)($arg0) & RUBY_FIXNUM_FLAG
@ -10,54 +25,54 @@ define rp
printf "SYMBOL(:%c)\n", $id printf "SYMBOL(:%c)\n", $id
else else
if $id == idDot2 if $id == idDot2
echo SYMBOL(:..)\n printf "%sSYMBOL%s(:..)\n", $color_type, $color_end
else else
if $id == idDot3 if $id == idDot3
echo SYMBOL(:...)\n printf "%sSYMBOL%s(:...)\n", $color_type, $color_end
else else
if $id == idUPlus if $id == idUPlus
echo SYMBOL(:+@)\n printf "%sSYMBOL%s(:+@)\n", $color_type, $color_end
else else
if $id == idUMinus if $id == idUMinus
echo SYMBOL(:-@)\n printf "%sSYMBOL%s(:-@)\n", $color_type, $color_end
else else
if $id == idPow if $id == idPow
echo SYMBOL(:**)\n printf "%sSYMBOL%s(:**)\n", $color_type, $color_end
else else
if $id == idCmp if $id == idCmp
echo SYMBOL(:<=>)\n printf "%sSYMBOL%s(:<=>)\n", $color_type, $color_end
else else
if $id == idLTLT if $id == idLTLT
echo SYMBOL(:<<)\n printf "%sSYMBOL%s(:<<)\n", $color_type, $color_end
else else
if $id == idLE if $id == idLE
echo SYMBOL(:<=)\n printf "%sSYMBOL%s(:<=)\n", $color_type, $color_end
else else
if $id == idGE if $id == idGE
echo SYMBOL(:>=)\n printf "%sSYMBOL%s(:>=)\n", $color_type, $color_end
else else
if $id == idEq if $id == idEq
echo SYMBOL(:==)\n printf "%sSYMBOL%s(:==)\n", $color_type, $color_end
else else
if $id == idEqq if $id == idEqq
echo SYMBOL(:===)\n printf "%sSYMBOL%s(:===)\n", $color_type, $color_end
else else
if $id == idNeq if $id == idNeq
echo SYMBOL(:!=)\n printf "%sSYMBOL%s(:!=)\n", $color_type, $color_end
else else
if $id == idEqTilde if $id == idEqTilde
echo SYMBOL(:=~)\n printf "%sSYMBOL%s(:=~)\n", $color_type, $color_end
else else
if $id == idNeqTilde if $id == idNeqTilde
echo SYMBOL(:!~)\n printf "%sSYMBOL%s(:!~)\n", $color_type, $color_end
else else
if $id == idAREF if $id == idAREF
echo SYMBOL(:[])\n printf "%sSYMBOL%s(:[])\n", $color_type, $color_end
else else
if $id == idASET if $id == idASET
echo SYMBOL(:[]=)\n printf "%sSYMBOL%s(:[]=)\n", $color_type, $color_end
else else
printf "SYMBOL(%ld)\n", $id printf "%sSYMBOL%s(%ld)\n", $color_type, $color_end, $id
end end
end end
end end
@ -90,42 +105,42 @@ define rp
else else
if (VALUE)($arg0) & RUBY_IMMEDIATE_MASK if (VALUE)($arg0) & RUBY_IMMEDIATE_MASK
if ((VALUE)($arg0) & RUBY_FLONUM_MASK) == RUBY_FLONUM_FLAG if ((VALUE)($arg0) & RUBY_FLONUM_MASK) == RUBY_FLONUM_FLAG
printf "FLONUM: %g\n", (double)rb_float_value($arg0) printf "%sFLONUM%s: %g\n", $color_type, $color_end, (double)rb_float_value($arg0)
else else
echo immediate\n echo immediate\n
end end
else else
set $flags = ((struct RBasic*)($arg0))->flags set $flags = ((struct RBasic*)($arg0))->flags
if ($flags & RUBY_T_MASK) == RUBY_T_NONE if ($flags & RUBY_T_MASK) == RUBY_T_NONE
printf "T_NONE: " printf "%sT_NONE%s: ", $color_type, $color_end
print (struct RBasic *)($arg0) print (struct RBasic *)($arg0)
else else
if ($flags & RUBY_T_MASK) == RUBY_T_NIL if ($flags & RUBY_T_MASK) == RUBY_T_NIL
printf "T_NIL: " printf "%sT_NIL%s: ", $color_type, $color_end
print (struct RBasic *)($arg0) print (struct RBasic *)($arg0)
else else
if ($flags & RUBY_T_MASK) == RUBY_T_OBJECT if ($flags & RUBY_T_MASK) == RUBY_T_OBJECT
printf "T_OBJECT: " printf "%sT_OBJECT%s: ", $color_type, $color_end
print (struct RObject *)($arg0) print (struct RObject *)($arg0)
else else
if ($flags & RUBY_T_MASK) == RUBY_T_CLASS if ($flags & RUBY_T_MASK) == RUBY_T_CLASS
printf "T_CLASS%s: ", ($flags & RUBY_FL_SINGLETON) ? "*" : "" printf "%sT_CLASS%s%s: ", ($flags & RUBY_FL_SINGLETON) ? "*" : "", $color_type, $color_end
rp_class $arg0 rp_class $arg0
else else
if ($flags & RUBY_T_MASK) == RUBY_T_ICLASS if ($flags & RUBY_T_MASK) == RUBY_T_ICLASS
printf "T_ICLASS: " printf "%sT_ICLASS%s: ", $color_type, $color_end
rp_class $arg0 rp_class $arg0
else else
if ($flags & RUBY_T_MASK) == RUBY_T_MODULE if ($flags & RUBY_T_MASK) == RUBY_T_MODULE
printf "T_MODULE: " printf "%sT_MODULE%s: ", $color_type, $color_end
rp_class $arg0 rp_class $arg0
else else
if ($flags & RUBY_T_MASK) == RUBY_T_FLOAT if ($flags & RUBY_T_MASK) == RUBY_T_FLOAT
printf "T_FLOAT: %.16g ", (((struct RFloat*)($arg0))->float_value) printf "%sT_FLOAT%s: %.16g ", $color_type, $color_end, (((struct RFloat*)($arg0))->float_value)
print (struct RFloat *)($arg0) print (struct RFloat *)($arg0)
else else
if ($flags & RUBY_T_MASK) == RUBY_T_STRING if ($flags & RUBY_T_MASK) == RUBY_T_STRING
printf "T_STRING: " printf "%sT_STRING%s: ", $color_type, $color_end
set print address off set print address off
output (char *)(($flags & RUBY_FL_USER1) ? \ output (char *)(($flags & RUBY_FL_USER1) ? \
((struct RString*)($arg0))->as.heap.ptr : \ ((struct RString*)($arg0))->as.heap.ptr : \
@ -163,7 +178,7 @@ define rp
if ($flags & RUBY_T_MASK) == RUBY_T_REGEXP if ($flags & RUBY_T_MASK) == RUBY_T_REGEXP
set $regsrc = ((struct RRegexp*)($arg0))->src set $regsrc = ((struct RRegexp*)($arg0))->src
set $rsflags = ((struct RBasic*)$regsrc)->flags set $rsflags = ((struct RBasic*)$regsrc)->flags
printf "T_REGEXP: " printf "%sT_REGEXP%s: ", $color_type, $color_end
set print address off set print address off
output (char *)(($rsflags & RUBY_FL_USER1) ? \ output (char *)(($rsflags & RUBY_FL_USER1) ? \
((struct RString*)$regsrc)->as.heap.ptr : \ ((struct RString*)$regsrc)->as.heap.ptr : \
@ -187,7 +202,7 @@ define rp
if ($flags & RUBY_T_MASK) == RUBY_T_ARRAY if ($flags & RUBY_T_MASK) == RUBY_T_ARRAY
if ($flags & RUBY_FL_USER1) if ($flags & RUBY_FL_USER1)
set $len = (($flags & (RUBY_FL_USER3|RUBY_FL_USER4)) >> (RUBY_FL_USHIFT+3)) set $len = (($flags & (RUBY_FL_USER3|RUBY_FL_USER4)) >> (RUBY_FL_USHIFT+3))
printf "T_ARRAY: len=%ld ", $len printf "%sT_ARRAY%s: len=%ld ", $color_type, $color_end, $len
printf "(embed) " printf "(embed) "
if ($len == 0) if ($len == 0)
printf "{(empty)} " printf "{(empty)} "
@ -197,7 +212,7 @@ define rp
end end
else else
set $len = ((struct RArray*)($arg0))->as.heap.len set $len = ((struct RArray*)($arg0))->as.heap.len
printf "T_ARRAY: len=%ld ", $len printf "%sT_ARRAY%s: len=%ld ", $color_type, $color_end, $len
if ($flags & RUBY_FL_USER2) if ($flags & RUBY_FL_USER2)
printf "(shared) shared=" printf "(shared) shared="
output/x ((struct RArray*)($arg0))->as.heap.aux.shared output/x ((struct RArray*)($arg0))->as.heap.aux.shared
@ -215,18 +230,18 @@ define rp
print (struct RArray *)($arg0) print (struct RArray *)($arg0)
else else
if ($flags & RUBY_T_MASK) == RUBY_T_FIXNUM if ($flags & RUBY_T_MASK) == RUBY_T_FIXNUM
printf "T_FIXNUM: " printf "%sT_FIXNUM%s: ", $color_type, $color_end
print (struct RBasic *)($arg0) print (struct RBasic *)($arg0)
else else
if ($flags & RUBY_T_MASK) == RUBY_T_HASH if ($flags & RUBY_T_MASK) == RUBY_T_HASH
printf "T_HASH: ", printf "%sT_HASH%s: ", $color_type, $color_end,
if ((struct RHash *)($arg0))->ntbl if ((struct RHash *)($arg0))->ntbl
printf "len=%ld ", ((struct RHash *)($arg0))->ntbl->num_entries printf "len=%ld ", ((struct RHash *)($arg0))->ntbl->num_entries
end end
print (struct RHash *)($arg0) print (struct RHash *)($arg0)
else else
if ($flags & RUBY_T_MASK) == RUBY_T_STRUCT if ($flags & RUBY_T_MASK) == RUBY_T_STRUCT
printf "T_STRUCT: len=%ld ", \ printf "%sT_STRUCT%s: len=%ld ", $color_type, $color_end, \
(($flags & (RUBY_FL_USER1|RUBY_FL_USER2)) ? \ (($flags & (RUBY_FL_USER1|RUBY_FL_USER2)) ? \
($flags & (RUBY_FL_USER1|RUBY_FL_USER2)) >> (RUBY_FL_USHIFT+1) : \ ($flags & (RUBY_FL_USER1|RUBY_FL_USER2)) >> (RUBY_FL_USHIFT+1) : \
((struct RStruct *)($arg0))->as.heap.len) ((struct RStruct *)($arg0))->as.heap.len)
@ -236,7 +251,7 @@ define rp
((struct RStruct *)($arg0))->as.heap.ptr) ((struct RStruct *)($arg0))->as.heap.ptr)
else else
if ($flags & RUBY_T_MASK) == RUBY_T_BIGNUM if ($flags & RUBY_T_MASK) == RUBY_T_BIGNUM
printf "T_BIGNUM: sign=%d len=%ld ", \ printf "%sT_BIGNUM%s: sign=%d len=%ld ", $color_type, $color_end, \
(($flags & RUBY_FL_USER1) != 0), \ (($flags & RUBY_FL_USER1) != 0), \
(($flags & RUBY_FL_USER2) ? \ (($flags & RUBY_FL_USER2) ? \
($flags & (RUBY_FL_USER5|RUBY_FL_USER4|RUBY_FL_USER3)) >> (RUBY_FL_USHIFT+3) : \ ($flags & (RUBY_FL_USER5|RUBY_FL_USER4|RUBY_FL_USER3)) >> (RUBY_FL_USHIFT+3) : \
@ -250,59 +265,59 @@ define rp
((struct RBignum*)($arg0))->as.heap.digits) ((struct RBignum*)($arg0))->as.heap.digits)
else else
if ($flags & RUBY_T_MASK) == RUBY_T_RATIONAL if ($flags & RUBY_T_MASK) == RUBY_T_RATIONAL
printf "T_RATIONAL: " printf "%sT_RATIONAL%s: ", $color_type, $color_end
print (struct RRational *)($arg0) print (struct RRational *)($arg0)
else else
if ($flags & RUBY_T_MASK) == RUBY_T_COMPLEX if ($flags & RUBY_T_MASK) == RUBY_T_COMPLEX
printf "T_COMPLEX: " printf "%sT_COMPLEX%s: ", $color_type, $color_end
print (struct RComplex *)($arg0) print (struct RComplex *)($arg0)
else else
if ($flags & RUBY_T_MASK) == RUBY_T_FILE if ($flags & RUBY_T_MASK) == RUBY_T_FILE
printf "T_FILE: " printf "%sT_FILE%s: ", $color_type, $color_end
print (struct RFile *)($arg0) print (struct RFile *)($arg0)
output *((struct RFile *)($arg0))->fptr output *((struct RFile *)($arg0))->fptr
printf "\n" printf "\n"
else else
if ($flags & RUBY_T_MASK) == RUBY_T_TRUE if ($flags & RUBY_T_MASK) == RUBY_T_TRUE
printf "T_TRUE: " printf "%sT_TRUE%s: ", $color_type, $color_end
print (struct RBasic *)($arg0) print (struct RBasic *)($arg0)
else else
if ($flags & RUBY_T_MASK) == RUBY_T_FALSE if ($flags & RUBY_T_MASK) == RUBY_T_FALSE
printf "T_FALSE: " printf "%sT_FALSE%s: ", $color_type, $color_end
print (struct RBasic *)($arg0) print (struct RBasic *)($arg0)
else else
if ($flags & RUBY_T_MASK) == RUBY_T_DATA if ($flags & RUBY_T_MASK) == RUBY_T_DATA
if ((struct RTypedData *)($arg0))->typed_flag == 1 if ((struct RTypedData *)($arg0))->typed_flag == 1
printf "T_DATA(%s): ", ((struct RTypedData *)($arg0))->type->wrap_struct_name printf "%sT_DATA%s(%s): ", $color_type, $color_end, ((struct RTypedData *)($arg0))->type->wrap_struct_name
print (struct RTypedData *)($arg0) print (struct RTypedData *)($arg0)
else else
printf "T_DATA: " printf "%sT_DATA%s: ", $color_type, $color_end
print (struct RData *)($arg0) print (struct RData *)($arg0)
end end
else else
if ($flags & RUBY_T_MASK) == RUBY_T_MATCH if ($flags & RUBY_T_MASK) == RUBY_T_MATCH
printf "T_MATCH: " printf "%sT_MATCH%s: ", $color_type, $color_end
print (struct RMatch *)($arg0) print (struct RMatch *)($arg0)
else else
if ($flags & RUBY_T_MASK) == RUBY_T_SYMBOL if ($flags & RUBY_T_MASK) == RUBY_T_SYMBOL
printf "T_SYMBOL: " printf "%sT_SYMBOL%s: ", $color_type, $color_end
print (struct RBasic *)($arg0) print (struct RBasic *)($arg0)
else else
if ($flags & RUBY_T_MASK) == RUBY_T_UNDEF if ($flags & RUBY_T_MASK) == RUBY_T_UNDEF
printf "T_UNDEF: " printf "%sT_UNDEF%s: ", $color_type, $color_end
print (struct RBasic *)($arg0) print (struct RBasic *)($arg0)
else else
if ($flags & RUBY_T_MASK) == RUBY_T_NODE if ($flags & RUBY_T_MASK) == RUBY_T_NODE
printf "T_NODE(" printf "%sT_NODE%s(", $color_type, $color_end
output (enum node_type)(($flags&RUBY_NODE_TYPEMASK)>>RUBY_NODE_TYPESHIFT) output (enum node_type)(($flags&RUBY_NODE_TYPEMASK)>>RUBY_NODE_TYPESHIFT)
printf "): " printf "): "
print *(NODE *)($arg0) print *(NODE *)($arg0)
else else
if ($flags & RUBY_T_MASK) == RUBY_T_ZOMBIE if ($flags & RUBY_T_MASK) == RUBY_T_ZOMBIE
printf "T_ZOMBIE: " printf "%sT_ZOMBIE%s: ", $color_type, $color_end
print (struct RData *)($arg0) print (struct RData *)($arg0)
else else
printf "unknown: " printf "%sunknown%s: ", $color_type, $color_end
print (struct RBasic *)($arg0) print (struct RBasic *)($arg0)
end end
end end
@ -378,257 +393,257 @@ end
# Print members of ruby node. # Print members of ruby node.
define nd_head define nd_head
printf "u1.node: " printf "%su1.node%s: ", $color_highlite, $color_end
rp ($arg0).u1.node rp ($arg0).u1.node
end end
define nd_alen define nd_alen
printf "u2.argc: " printf "%su2.argc%s: ", $color_highlite, $color_end
p ($arg0).u2.argc p ($arg0).u2.argc
end end
define nd_next define nd_next
printf "u3.node: " printf "%su3.node%s: ", $color_highlite, $color_end
rp ($arg0).u3.node rp ($arg0).u3.node
end end
define nd_cond define nd_cond
printf "u1.node: " printf "%su1.node%s: ", $color_highlite, $color_end
rp ($arg0).u1.node rp ($arg0).u1.node
end end
define nd_body define nd_body
printf "u2.node: " printf "%su2.node%s: ", $color_highlite, $color_end
rp ($arg0).u2.node rp ($arg0).u2.node
end end
define nd_else define nd_else
printf "u3.node: " printf "%su3.node%s: ", $color_highlite, $color_end
rp ($arg0).u3.node rp ($arg0).u3.node
end end
define nd_orig define nd_orig
printf "u3.value: " printf "%su3.value%s: ", $color_highlite, $color_end
rp ($arg0).u3.value rp ($arg0).u3.value
end end
define nd_resq define nd_resq
printf "u2.node: " printf "%su2.node%s: ", $color_highlite, $color_end
rp ($arg0).u2.node rp ($arg0).u2.node
end end
define nd_ensr define nd_ensr
printf "u3.node: " printf "%su3.node%s: ", $color_highlite, $color_end
rp ($arg0).u3.node rp ($arg0).u3.node
end end
define nd_1st define nd_1st
printf "u1.node: " printf "%su1.node%s: ", $color_highlite, $color_end
rp ($arg0).u1.node rp ($arg0).u1.node
end end
define nd_2nd define nd_2nd
printf "u2.node: " printf "%su2.node%s: ", $color_highlite, $color_end
rp ($arg0).u2.node rp ($arg0).u2.node
end end
define nd_stts define nd_stts
printf "u1.node: " printf "%su1.node%s: ", $color_highlite, $color_end
rp ($arg0).u1.node rp ($arg0).u1.node
end end
define nd_entry define nd_entry
printf "u3.entry: " printf "%su3.entry%s: ", $color_highlite, $color_end
p ($arg0).u3.entry p ($arg0).u3.entry
end end
define nd_vid define nd_vid
printf "u1.id: " printf "%su1.id%s: ", $color_highlite, $color_end
p ($arg0).u1.id p ($arg0).u1.id
end end
define nd_cflag define nd_cflag
printf "u2.id: " printf "%su2.id%s: ", $color_highlite, $color_end
p ($arg0).u2.id p ($arg0).u2.id
end end
define nd_cval define nd_cval
printf "u3.value: " printf "%su3.value%s: ", $color_highlite, $color_end
rp ($arg0).u3.value rp ($arg0).u3.value
end end
define nd_cnt define nd_cnt
printf "u3.cnt: " printf "%su3.cnt%s: ", $color_highlite, $color_end
p ($arg0).u3.cnt p ($arg0).u3.cnt
end end
define nd_tbl define nd_tbl
printf "u1.tbl: " printf "%su1.tbl%s: ", $color_highlite, $color_end
p ($arg0).u1.tbl p ($arg0).u1.tbl
end end
define nd_var define nd_var
printf "u1.node: " printf "%su1.node%s: ", $color_highlite, $color_end
rp ($arg0).u1.node rp ($arg0).u1.node
end end
define nd_ibdy define nd_ibdy
printf "u2.node: " printf "%su2.node%s: ", $color_highlite, $color_end
rp ($arg0).u2.node rp ($arg0).u2.node
end end
define nd_iter define nd_iter
printf "u3.node: " printf "%su3.node%s: ", $color_highlite, $color_end
rp ($arg0).u3.node rp ($arg0).u3.node
end end
define nd_value define nd_value
printf "u2.node: " printf "%su2.node%s: ", $color_highlite, $color_end
rp ($arg0).u2.node rp ($arg0).u2.node
end end
define nd_aid define nd_aid
printf "u3.id: " printf "%su3.id%s: ", $color_highlite, $color_end
p ($arg0).u3.id p ($arg0).u3.id
end end
define nd_lit define nd_lit
printf "u1.value: " printf "%su1.value%s: ", $color_highlite, $color_end
rp ($arg0).u1.value rp ($arg0).u1.value
end end
define nd_frml define nd_frml
printf "u1.node: " printf "%su1.node%s: ", $color_highlite, $color_end
rp ($arg0).u1.node rp ($arg0).u1.node
end end
define nd_rest define nd_rest
printf "u2.argc: " printf "%su2.argc%s: ", $color_highlite, $color_end
p ($arg0).u2.argc p ($arg0).u2.argc
end end
define nd_opt define nd_opt
printf "u1.node: " printf "%su1.node%s: ", $color_highlite, $color_end
rp ($arg0).u1.node rp ($arg0).u1.node
end end
define nd_recv define nd_recv
printf "u1.node: " printf "%su1.node%s: ", $color_highlite, $color_end
rp ($arg0).u1.node rp ($arg0).u1.node
end end
define nd_mid define nd_mid
printf "u2.id: " printf "%su2.id%s: ", $color_highlite, $color_end
p ($arg0).u2.id p ($arg0).u2.id
end end
define nd_args define nd_args
printf "u3.node: " printf "%su3.node%s: ", $color_highlite, $color_end
rp ($arg0).u3.node rp ($arg0).u3.node
end end
define nd_noex define nd_noex
printf "u1.id: " printf "%su1.id%s: ", $color_highlite, $color_end
p ($arg0).u1.id p ($arg0).u1.id
end end
define nd_defn define nd_defn
printf "u3.node: " printf "%su3.node%s: ", $color_highlite, $color_end
rp ($arg0).u3.node rp ($arg0).u3.node
end end
define nd_old define nd_old
printf "u1.id: " printf "%su1.id%s: ", $color_highlite, $color_end
p ($arg0).u1.id p ($arg0).u1.id
end end
define nd_new define nd_new
printf "u2.id: " printf "%su2.id%s: ", $color_highlite, $color_end
p ($arg0).u2.id p ($arg0).u2.id
end end
define nd_cfnc define nd_cfnc
printf "u1.cfunc: " printf "%su1.cfunc%s: ", $color_highlite, $color_end
p ($arg0).u1.cfunc p ($arg0).u1.cfunc
end end
define nd_argc define nd_argc
printf "u2.argc: " printf "%su2.argc%s: ", $color_highlite, $color_end
p ($arg0).u2.argc p ($arg0).u2.argc
end end
define nd_cname define nd_cname
printf "u1.id: " printf "%su1.id%s: ", $color_highlite, $color_end
p ($arg0).u1.id p ($arg0).u1.id
end end
define nd_super define nd_super
printf "u3.node: " printf "%su3.node%s: ", $color_highlite, $color_end
rp ($arg0).u3.node rp ($arg0).u3.node
end end
define nd_modl define nd_modl
printf "u1.id: " printf "%su1.id%s: ", $color_highlite, $color_end
p ($arg0).u1.id p ($arg0).u1.id
end end
define nd_clss define nd_clss
printf "u1.value: " printf "%su1.value%s: ", $color_highlite, $color_end
rp ($arg0).u1.value rp ($arg0).u1.value
end end
define nd_beg define nd_beg
printf "u1.node: " printf "%su1.node%s: ", $color_highlite, $color_end
rp ($arg0).u1.node rp ($arg0).u1.node
end end
define nd_end define nd_end
printf "u2.node: " printf "%su2.node%s: ", $color_highlite, $color_end
rp ($arg0).u2.node rp ($arg0).u2.node
end end
define nd_state define nd_state
printf "u3.state: " printf "%su3.state%s: ", $color_highlite, $color_end
p ($arg0).u3.state p ($arg0).u3.state
end end
define nd_rval define nd_rval
printf "u2.value: " printf "%su2.value%s: ", $color_highlite, $color_end
rp ($arg0).u2.value rp ($arg0).u2.value
end end
define nd_nth define nd_nth
printf "u2.argc: " printf "%su2.argc%s: ", $color_highlite, $color_end
p ($arg0).u2.argc p ($arg0).u2.argc
end end
define nd_tag define nd_tag
printf "u1.id: " printf "%su1.id%s: ", $color_highlite, $color_end
p ($arg0).u1.id p ($arg0).u1.id
end end
define nd_tval define nd_tval
printf "u2.value: " printf "%su2.value%s: ", $color_highlite, $color_end
rp ($arg0).u2.value rp ($arg0).u2.value
end end