.gdbinit

# .gdbinit file for debugging Mozilla

# Don't stop for the SIG32/33/etc signals that Flash produces
handle SIG32 noprint nostop pass
handle SIG33 noprint nostop pass
handle SIGPIPE noprint nostop pass

# Show the concrete types behind nsIFoo
set print object on

# run when using the auto-solib-add trick
def prun
        tbreak main
        run
 set auto-solib-add 0
        cont
end

# run -mail, when using the auto-solib-add trick
def pmail
        tbreak main
        run -mail
 set auto-solib-add 0
        cont
end

# Define a "pu" command to display PRUnichar * strings (100 chars max)
# Also allows an optional argument for how many chars to print as long as
# it's less than 100.
def pu
  set $uni = $arg0
  if $argc == 2
    set $limit = $arg1
    if $limit > 100
      set $limit = 100
    end
  else
    set $limit = 100
  end
  # scratch array with space for 100 chars plus null terminator.  Make
  # sure to not use ' ' as the char so this copy/pastes well.
  set $scratch = "____________________________________________________________________________________________________"
  set $i = 0
  set $scratch_idx = 0
  while (*$uni && $i++ < $limit)
    if (*$uni < 0x80)
      set $scratch[$scratch_idx++] = *(char*)$uni++
    else
      if ($scratch_idx > 0)
 set $scratch[$scratch_idx] = '\0'
 print $scratch
 set $scratch_idx = 0
      end
      print /x *(short*)$uni++
    end
  end
  if ($scratch_idx > 0)
    set $scratch[$scratch_idx] = '\0'
    print $scratch
  end
end

# Define a "ps" command to display subclasses of nsAC?String.  Note that
# this assumes strings as of Gecko 1.9 (well, and probably a few
# releases before that as well); going back far enough will get you
# to string classes that this function doesn't work for.
def ps
  set $str = $arg0
  if (sizeof(*$str.mData) == 1 && ($str.mFlags & 1) != 0)
    print $str.mData
  else
    pu $str.mData $str.mLength
  end
end

# Thanks to cjones
# http://blog.mozilla.com/cjones/2010/04/30/print-nstarrays-in-gdb/
##
## nsTArray
##
def ptarray
  if $argc == 0
    help ptarray
  else
  set $size = $arg0.mHdr->mLength
  set $capacity = $arg0.mHdr->mCapacity
  set $size_max = $size - 1
                set $elts = $arg0.Elements()
 end
 if $argc == 1
  set $i = 0
  while $i < $size
   printf "elem[%u]: ", $i
   p *($elts + $i)
   set $i++
  end
 end
 if $argc == 2
  set $idx = $arg1
  if $idx < 0 || $idx > $size_max
   printf "idx1, idx2 are not in acceptable range: [0..%u].\n", $size_max
  else
   printf "elem[%u]: ", $idx
   p *($elts + $idx)
  end
 end
 if $argc == 3
   set $start_idx = $arg1
   set $stop_idx = $arg2
   if $start_idx > $stop_idx
     set $tmp_idx = $start_idx
     set $start_idx = $stop_idx
     set $stop_idx = $tmp_idx
   end
   if $start_idx < 0 || $stop_idx < 0 || $start_idx > $size_max || $stop_idx > $size_max
     printf "idx1, idx2 are not in acceptable range: [0..%u].\n", $size_max
   else
     set $i = $start_idx
  while $i <= $stop_idx
   printf "elem[%u]: ", $i
   p *($elts + $i)
   set $i++
  end
   end
 end
 if $argc > 0
  printf "nsTArray length = %u\n", $size
  printf "nsTArray capacity = %u\n", $capacity
  printf "Element "
  whatis *$elts
 end
end

document ptarray
 Prints nsTArray information.
 Syntax: ptarray   
 Note: idx, idx1 and idx2 must be in acceptable range [0...size()-1].
 Examples:
 ptarray a - Prints tarray content, size, capacity and T typedef
 ptarray a 0 - Prints element[idx] from tarray
 ptarray a 1 2 - Prints elements in range [idx1..idx2] from tarray
end