11 lines
165 B
Perl
11 lines
165 B
Perl
|
|
||
|
|
$_ = join("", <>);
|
||
|
|
|
||
|
|
s/(0x[0-9a-f]{2})/sprintf("0x%.2x",ord(pack("b8",unpack("B8",chr(hex($1))))))/gei;
|
||
|
|
|
||
|
|
s/^ / .byte /gm;
|
||
|
|
s/[,};]+$//gm;
|
||
|
|
s/^static.*//gm;
|
||
|
|
|
||
|
|
print $_;
|