diff options
author | N.N. <matju@users.sourceforge.net> | 2005-10-04 02:12:44 +0000 |
---|---|---|
committer | N.N. <matju@users.sourceforge.net> | 2005-10-04 02:12:44 +0000 |
commit | a7dc40f29086515c31667490c03211812b84e2ed (patch) | |
tree | 71e6e490e08d6afb03295098f6beb204f616ad6b /externals/gridflow/bin/backtrace | |
parent | 31beef22c1f976ee0d0b7d10157e726f234cff4e (diff) |
added the remainder of the files (or almost) from GF 0.8.0
svn path=/trunk/; revision=3651
Diffstat (limited to 'externals/gridflow/bin/backtrace')
-rwxr-xr-x | externals/gridflow/bin/backtrace | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/externals/gridflow/bin/backtrace b/externals/gridflow/bin/backtrace new file mode 100755 index 00000000..ac1358af --- /dev/null +++ b/externals/gridflow/bin/backtrace @@ -0,0 +1,18 @@ +#!/usr/bin/env ruby +if ARGV.length != 1 + puts "usage: core.rb <corefile>" + exit 1 +end +qfile=ARGV[0].gsub /'/, "\\\\'" +x=`gdb --batch -c '#{qfile}'`.split"\n" +m=/`([^']+)/.match x[0] +f=File.open("/tmp/backtrace_#{$$}.gdb","w") +f.puts"bt" +f.puts"quit" +f.close +cmd="gdb #{m[1]} #{qfile} --command=/tmp/backtrace_#{$$}.gdb" +x=`#{cmd}`.split("\n") +i=nil +x.each_with_index {|line,i| break if /^#0/ =~ line } +x[0..i]=[] +puts x |