mirror of
https://git.code.sf.net/p/openocd/code
synced 2024-11-14 10:27:13 +00:00
36597636f2
Some file miss completely the license tag. Add the SPDX tag, using the same GPL-2.0-or-later license of the OpenOCD project. The SPDX tag on files *.c is incorrect, as it should use the C99 single line comment using '//'. But current checkpatch doesn't allow C99 comments, so keep using standard C comments, by now. Change-Id: I24bd362eeb6b74f09aceb9b757d45cbfa4afe334 Signed-off-by: Antonio Borneo <borneo.antonio@gmail.com> Reviewed-on: https://review.openocd.org/c/openocd/+/7160 Tested-by: jenkins
127 lines
3.2 KiB
Perl
Executable File
127 lines
3.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# SPDX-License-Identifier: GPL-2.0-or-later
|
|
|
|
# Automatically generates the StellarisParts struct in src/flash/nor/stellaris.c
|
|
# Uses the header files from TI/Luminary's StellarisWare complete Firmware Development Package
|
|
# available from: http://www.luminarymicro.com/products/software_updates.html
|
|
|
|
$comment = "// Autogenerated by contrib/gen-stellaris-part-header.pl
|
|
// From Stellaris Firmware Development Package revision";
|
|
|
|
$struct_header = "static const struct {
|
|
uint8_t class;
|
|
uint8_t partno;
|
|
const char *partname;
|
|
} StellarisParts[] = {
|
|
";
|
|
|
|
$struct_footer = "\t{0xFF, 0x00, \"Unknown Part\"}\n};\n";
|
|
|
|
$#ARGV == 1 || die "Usage: $0 <inc directory> <output file>\n";
|
|
-d $ARGV[0] || die $ARGV[0]." is not a directory\n";
|
|
$dir = $ARGV[0];
|
|
-f $ARGV[1] || die $ARGV[1]." is not a file\n";
|
|
$file = $ARGV[1];
|
|
print STDERR "Scanning $dir, Updating $file\n";
|
|
|
|
opendir(DIR, $dir) || die "can't open $dir: $!";
|
|
@files = readdir(DIR);
|
|
closedir(DIR);
|
|
|
|
@header_files = sort(grep(/lm.+\.h/, @files));
|
|
|
|
$ver = 0;
|
|
$new_struct = $struct_header;
|
|
process_file(@header_files);
|
|
$new_struct .= $struct_footer;
|
|
|
|
$dump = "$comment $ver\n$new_struct";
|
|
{
|
|
local($/, *INPUT);
|
|
open(INPUT, $file) || die "can't open $file: $!";
|
|
$contents = <INPUT>;
|
|
close(INPUT);
|
|
}
|
|
|
|
$old_struct = qr/((^\/\/.*?\n)*)\Q$struct_header\E.*?$struct_footer/sm;
|
|
$contents =~ s/$old_struct/$dump/;
|
|
open(OUTPUT, ">$file") || die "can't open file $file for writing: $!";
|
|
print OUTPUT $contents;
|
|
close(OUTPUT);
|
|
|
|
sub process_file {
|
|
foreach $h_file (@_) {
|
|
($base) = ($h_file =~ m/lm..(.{3,7})\.h/ig);
|
|
$base = uc($base);
|
|
local($/, *FILE);
|
|
open(FILE, "$dir/$h_file");
|
|
$content = <FILE>;
|
|
close(FILE);
|
|
$invalid = 0;
|
|
if ($content =~ /This is part of revision (\d+) of/) {
|
|
if ($ver != 0 and $ver != $1) {
|
|
print STDERR "File version mismatch: $ver != $1\n";
|
|
$ver = max($ver, $1);
|
|
} else {
|
|
$ver = $1;
|
|
}
|
|
}
|
|
|
|
if ($content =~ /SYSCTL_DID0_CLASS_[^M].+?0x(\S+)/s) {
|
|
$class = hex($1) >> 16;
|
|
} else {
|
|
# attempt another way to get class
|
|
if ($content =~ /\s(\S+)-class/) {
|
|
$class = getclass($1);
|
|
if ($class eq 0xFF) {
|
|
print STDERR "$h_file unknown class\n";
|
|
$invalid = 1;
|
|
}
|
|
} else {
|
|
print STDERR "$h_file is missing SYSCTL_DID0_CLASS_\n";
|
|
$class = 0;
|
|
$invalid = 1;
|
|
}
|
|
}
|
|
|
|
if ($content =~ /SYSCTL_DID1_PRTNO_$base.+0x(\S+)/) {
|
|
$prtno = hex($1);
|
|
$base = "LM3S" . $base;
|
|
} else {
|
|
# LM4F have a changed header
|
|
if ($content =~ /SYSCTL_DID1_PRTNO_LM4F$base.+?0x(\S+)/s) {
|
|
$prtno = hex($1);
|
|
$base = "LM4F" . $base;
|
|
} else {
|
|
print STDERR "$h_file is missing SYSCTL_DID1_PRTNO\n";
|
|
$prtno = 0;
|
|
$invalid = 1;
|
|
}
|
|
}
|
|
$new_member = sprintf "{0x%02X, 0x%02X, \"%s\"},", $class, $prtno >> 16, $base;
|
|
if ($invalid == 1) {
|
|
#$new_struct .= "\t//$new_member\t// Invalid\n";
|
|
} else {
|
|
$new_struct .= "\t$new_member\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
sub getclass {
|
|
$class = $_[0];
|
|
if ($class =~ /Sandstorm/i) {
|
|
return 0;
|
|
} elsif ($class =~ /Fury/i) {
|
|
return 1;
|
|
} elsif ($class =~ /DustDevil/i) {
|
|
return 3;
|
|
} elsif ($class =~ /Tempest/i) {
|
|
return 4;
|
|
} elsif ($class =~ /Blizzard/i) {
|
|
return 5;
|
|
} elsif ($class =~ /Firestorm/i) {
|
|
return 6;
|
|
}
|
|
return 0xFF;
|
|
}
|