my $exe = "";
my $ihex = "";
my $objdump = "avr-objdump";
+my $platform = "";
for my $arg (@ARGV) {
if ($arg =~ /^-DIDENT_(.+)=0x(.+)$/) {
$ident_flags{lc($1)} = uc($2);
}
- elsif ($arg =~ /^-DIDENT_(.+)=(.+)$/) {
+ elsif ($arg =~ /^-DIDENT_(.+)="(.+)"$/) {
$ident_flags{lc($1)} = $2;
}
elsif ($arg =~ /^--ihex=(.+)$/) {
elsif ($arg =~ /^--objdump=(.+)$/) {
$objdump = $1;
}
+ elsif ($arg =~ /^--platform=(.+)$/) {
+ $platform = $1;
+ }
}
my $deluge_support = "no";
}
close(EXE);
$ident_flags{"deluge_support"} = $deluge_support;
+$ident_flags{"platform"} = $platform;
open ( IHEX, $ihex ) or die "Cannot open ihex file: $!\n";