Author: tim.bunce
Date: Fri Jul 10 07:39:00 2009
New Revision: 814
Added:
trunk/.gdbinit
Log:
Added .gdbinit http://cpansearch.perl.org/src/GOZER/mod_perl-1.31/.gdbinit
which I was reminded of by Josh ben Jore's
http://yapc10.org/yn2009/talk/1973
Added: trunk/.gdbinit
==============================================================================
--- (empty file)
+++ trunk/.gdbinit Fri Jul 10 07:39:00 2009
@@ -0,0 +1,195 @@
+# From http://cpansearch.perl.org/src/GOZER/mod_perl-1.31/.gdbinit
+
+#some handy debugging macros, hopefully you'll never need them
+#some don't quite work, like dump_hv and hv_fetch,
+#where's the bloody manpage for .gdbinit syntax?
+
+define thttpd
+ run -X -f `pwd`/t/conf/httpd.conf -d `pwd`/t
+# set $sv = perl_eval_pv("$Apache::ErrLog = '/tmp/mod_perl_error_log'",1)
+end
+
+define httpd
+ run -X -d `pwd`
+ set $sv = perl_eval_pv("$Apache::ErrLog =
Apache->server_root_relative('logs/error_log')", 1)
+ #printf "error_log = %s\n", ((XPV*) ($sv)->sv_any )->xpv_pv
+end
+
+define STpvx
+ print ((XPV*) (PL_stack_base [ax + ($arg0)] )->sv_any )->xpv_pv
+end
+
+define TOPs
+ print ((XPV*) (**sp)->sv_any )->xpv_pv
+end
+
+define curstash
+ print ((XPVHV*) (PL_curstash)->sv_any)->xhv_name
+end
+
+define defstash
+ print ((XPVHV*) (PL_defstash)->sv_any)->xhv_name
+end
+
+define curinfo
+ printf "%d:%s\n", PL_curcop->cop_line, \
+ ((XPV*)(*(XPVGV*)PL_curcop->cop_filegv->sv_any)\
+ ->xgv_gp->gp_sv->sv_any)->xpv_pv
+end
+
+define SvPVX
+print ((XPV*) ($arg0)->sv_any )->xpv_pv
+end
+
+define SvCUR
+ print ((XPV*) ($arg0)->sv_any )->xpv_cur
+end
+
+define SvLEN
+ print ((XPV*) ($arg0)->sv_any )->xpv_len
+end
+
+define SvEND
+ print (((XPV*) ($arg0)->sv_any )->xpv_pv + ((XPV*)($arg0)->sv_any
)->xpv_cur) - 1
+end
+
+define SvSTASH
+ print ((XPVHV*)((XPVMG*)($arg0)->sv_any )->xmg_stash)->sv_any->xhv_name
+end
+
+define SvTAINTED
+ print ((($arg0)->sv_flags & (0x00002000 |0x00004000 |0x00008000 )) &&
Perl_sv_tainted ($arg0))
+end
+
+define SvTRUE
+ print ( !$arg0 ? 0 : (($arg0)->sv_flags & 0x00040000 )
?
((PL_Xpv = (XPV*)($arg0)->sv_any ) && (*PL_Xpv ->xpv_pv > '0' || PL_Xpv
->xpv_cur > 1 || (PL_Xpv ->xpv_cur && *PL_Xpv ->xpv_pv != '0')) ? 1
: 0) :
(($arg0)->sv_flags & 0x00010000 ) ? ((XPVIV*) ($arg0)->sv_any
)->xiv_iv != 0 : (($arg0)->sv_flags & 0x00020000 ) ?
((XPVNV*)($arg0)->sv_any )->xnv_nv != 0.0 : Perl_sv_2bool ($arg0) )
+end
+
+define GvHV
+ set $hv = (((((XPVGV*)($arg0)->sv_any ) ->xgv_gp) )->gp_hv)
+end
+
+define GvSV
+ print ((XPV*) ((((XPVGV*)($arg0)->sv_any ) ->xgv_gp) ->gp_sv )->sv_any
)->xpv_pv
+end
+
+define GvNAME
+ print (((XPVGV*)($arg0)->sv_any ) ->xgv_name)
+end
+
+define GvFILEGV
+ print ((XPV*)
((((XPVGV*)$arg0->filegv)->xgv_gp)->gp_sv)->sv_any)->xpv_pv
+end
+
+define CvNAME
+ print ((XPVGV*)(((XPVCV*)($arg0)->sv_any)->xcv_gv)->sv_any)->xgv_name
+end
+
+define CvSTASH
+ print
((XPVHV*)(((XPVGV*)(((XPVCV*)($arg0)->sv_any)->xcv_gv)->sv_any)->xgv_stash)->sv_any)->xhv_name
+end
+
+define CvDEPTH
+ print ((XPVCV*)($arg0)->sv_any )->xcv_depth
+end
+
+define CvFILEGV
+ print ((XPV*) ((((XPVGV*)((XPVCV*)($arg0)->sv_any
)->xcv_filegv)->xgv_gp)->gp_sv)->sv_any)->xpv_pv
+end
+
+define SVOPpvx
+ print ((XPV*) ( ((SVOP*)$arg0)->op_sv)->sv_any )->xpv_pv
+end
+
+define HvNAME
+ print ((XPVHV*)$arg0->sv_any)->xhv_name
+end
+
+define HvKEYS
+ print ((XPVHV*) ($arg0)->sv_any)->xhv_keys
+end
+
+define AvFILL
+ print ((XPVAV*) ($arg0)->sv_any)->xav_fill
+end
+
+define dumpav
+ set $n = ((XPVAV*) ($arg0)->sv_any)->xav_fill
+ set $i = 0
+ while $i <= $n
+ set $sv = *Perl_av_fetch($arg0, $i, 0)
+ printf "[%u] -> `%s'\n", $i, ((XPV*) ($sv)->sv_any )->xpv_pv
+ set $i = $i + 1
+ end
+end
+
+define dumphv
+ set $n = ((XPVHV*) ($arg0)->sv_any)->xhv_keys
+ set $i = 0
+ set $key = 0
+ set $klen = 0
+ Perl_hv_iterinit($arg0)
+ while $i <= $n
+ set $sv = Perl_hv_iternextsv($arg0, &$key, &$klen)
+ printf "%s = `%s'\n", $key, ((XPV*) ($sv)->sv_any )->xpv_pv
+ set $i = $i + 1
+ end
+end
+
+define hvfetch
+ set $klen = strlen($arg1)
+ set $sv = *Perl_hv_fetch($arg0, $arg1, $klen, 0)
+ printf "%s = `%s'\n", $arg1, ((XPV*) ($sv)->sv_any )->xpv_pv
+end
+
+define hvINCval
+ set $hv = (((((XPVGV*)(PL_incgv)->sv_any)->xgv_gp))->gp_hv)
+ set $klen = strlen($arg0)
+ set $sv = *Perl_hv_fetch($hv, $arg0, $klen, 0)
+ printf "%s = `%s'\n", $arg0, ((XPV*) ($sv)->sv_any )->xpv_pv
+end
+
+define dumpany
+ set $sv = Perl_newSVpv("use Data::Dumper; Dumper \\",0)
+ set $void = Perl_sv_catpv($sv, $arg0)
+ set $dump = perl_eval_pv(((XPV*) ($sv)->sv_any )->xpv_pv, 1)
+ printf "%s = `%s'\n", $arg0, ((XPV*) ($dump)->sv_any )->xpv_pv
+end
+
+define dumpanyrv
+ set $rv = Perl_newRV((SV*)$arg0)
+ set $rvpv = perl_get_sv("main::DumpAnyRv", 1)
+ set $void = Perl_sv_setsv($rvpv, $rv)
+ set $sv = perl_eval_pv("use Data::Dumper; Dumper $::DumpAnyRv",1)
+ printf "`%s'\n", ((XPV*) ($sv)->sv_any )->xpv_pv
+end
+
+define svpeek
+ set $pv = Perl_sv_peek((SV*)$arg0)
+ printf "%s\n", $pv
+end
+
+define caller
+ set $sv = perl_eval_pv("scalar caller", 1)
+ printf "caller = %s\n", ((XPV*) ($sv)->sv_any )->xpv_pv
+end
+
+define cluck
+ set $sv = perl_eval_pv("Carp::cluck(); `tail '$Apache::ErrLog'`", 1)
+ printf "%s\n", ((XPV*) ($sv)->sv_any )->xpv_pv
+end
+
+define longmess
+ set $sv = perl_eval_pv("Carp::longmess()", 1)
+ printf "%s\n", ((XPV*) ($sv)->sv_any )->xpv_pv
+end
+
+define shortmess
+ set $sv = perl_eval_pv("Carp::shortmess()", 1)
+ printf "%s\n", ((XPV*) ($sv)->sv_any )->xpv_pv
+end
+
+define perl_get_sv
+ set $sv = perl_get_sv($arg0, 0)
+ printf "%s\n", $sv ? ((XPV*) ((SV*)$sv)->sv_any)->xpv_pv : "undef"
+end
--~--~---------~--~----~------------~-------~--~----~
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [email protected]
-~----------~----~----~----~------~----~------~--~---
