Catcrypt tools: Roll out progress indicator stuff from hashsum.

[u/mdw/catacomb] / .gdbinit

define mp-print
  call (void)fputs("$arg0 = ", stdout)
  if $arg0 == 0
    call (void)fputs("(null)", stdout)
  else
    call (void)mp_writefile($arg0, stdout, 10)
  end
  call (void)putchar('\n')
end

define mp-printr
  call (void)fputs("$arg1 = ", stdout)
  if $arg1 == 0
    call (void)fputs("(null)", stdout)
  else
    if $arg0 == 16
      call (void)fputs("0x", stdout)
    else
      if $arg0 == 8
	call (void)fputs("0", stdout)
      else
	if $arg0 != 10
	  call (void)fputs("$arg0:", stdout)
	end
      end
    end
    call (void)mp_writefile($arg1, stdout, $arg0)
  end
  call (void)putchar('\n')
end

document mp-print
Print a Catacomb MP as a base-10 integer to stdout.
end