20 lines
480 B
Perl
20 lines
480 B
Perl
#!/usr/bin/perl
|
|
# author: pancake <youterm.com>
|
|
# MakeName (0X804C1AF, "the_forker");
|
|
# MakeRptCmt (0X804C1B6, "comentari chachi\n");
|
|
|
|
open FD, "<".$ARGV[0] or die "Cannot open file\n";
|
|
print "fs symbols\n";
|
|
while(<FD>) {
|
|
$str=$_;
|
|
if ($str=~/MakeName[^X]*.([^,]*)[^"]*.([^"]*)/) {
|
|
print "f sym.$2 @ 0x$1\n";
|
|
}
|
|
elsif ($str=~/MakeRptCmt[^X]*.([^,]*)[^"]*.([^"]*)/) {
|
|
$cmt = $2;
|
|
$off = $1;
|
|
$cmt=~s/\\n//g;
|
|
print "CC $cmt @ 0x$off\n";
|
|
}
|
|
}
|