raw2splash

Hermit-at-1.1.3,一款bootloader

#!/usr/bin/perl -w
use strict;

$| = 1;		# autoflush stdout
print <<'EOF';
/*
 * Copyright (c) 2001 Blue Mug, Inc.  All Rights Reserved.
 */

unsigned char splash_bits[] __attribute__ ((section(".splash"))) =
{

EOF

open(FOLD, "|fold -s -w72");
while (defined (my $c = getc)) {
    printf FOLD "0x%02x, ", ord($c);
}
close(FOLD);

print "\n\n};\n";