mirror of
https://github.com/RIOT-OS/RIOT.git
synced 2024-12-29 04:50:03 +01:00
27 lines
693 B
Perl
27 lines
693 B
Perl
#! /usr/bin/perl
|
|
|
|
$h = '[0-9A-Fa-f]';
|
|
$n = 1;
|
|
while (<stdin>) {
|
|
next unless /^\s*$h+:\s+($h{8})/;
|
|
$data[$n++] = "0x$1";
|
|
}
|
|
$data[0] = $n;
|
|
#$size = $ARGV[0];
|
|
#$size =~ tr/a-z/A-Z/;
|
|
#$size .= '_SIZE';
|
|
|
|
open H, ">$ARGV[0].h" or die "unable to write boot.h\n";
|
|
print H "/* automatically generated from $ARGV[0].armasm */\n";
|
|
#print H "#define $size $n\n";
|
|
print H "extern const unsigned int ${ARGV[0]}[];\n";
|
|
close H;
|
|
|
|
open C, ">$ARGV[0].c" or die "unable to write boot.c\n";
|
|
print C "/* automatically generated from $ARGV[0].armasm */\n";
|
|
print C "#include \"$ARGV[0].h\"\n";
|
|
print C "const unsigned int ${ARGV[0]}[] = {\n";
|
|
print C "\t", join(', ', @data), "\n";
|
|
print C "};\n";
|
|
close C;
|