#!/usr/bin/perl


open(O,"psp-objdump -D png.o|") || die("Can't run psp-objdump");
while(<O>) {
  $l=$_;
  $l =~ s/[\r\n]//;
  if ($l =~ /reginfo/) { close(O); next; }
  if ($l =~ /^[ 0-9a-f]+:\s+(.*?)\s/) {
	push(@code,"0x".$1);
	if ($1 !~ /^00/) { die($1); }
  }
}
close(O);
open(SC,">shellcode.h") || die("shellcode.h: $!");
print SC "unsigned int code[]={\n";
print SC "    ".join(', ',@code)."\n";
print SC "};\n";
close(SC);