Sign in
gfiber
/
kernel
/
bruno
/
20c45108e62e49198b5a8fa939d805849408a7a9
/
.
/
arch
/
m68knommu
/
platform
/
68328
/
bootlogo.pl
blob: b04ae3f50da52a1827648c17b0dd24151bd89034 [
file
] [
log
] [
blame
]
$_
=
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
$_
;