blob: 4781a1476b511f18fd8f4be246f7ef2c6a0b3586 [file] [log] [blame] [raw]
#!/usr/bin/perl
use warnings;
use strict;
# Things that shouldn't be enabled.
# Notes:
# - POLARSSL_X509_ALLOW_EXTENSIONS_NON_V3 and
# POLARSSL_X509_ALLOW_UNSUPPORTED_CRITICAL_EXTENSION could be enabled if the
# respective tests were adapted
my @excluded = qw(
POLARSSL_HAVE_INT8
POLARSSL_HAVE_INT16
POLARSSL_HAVE_SSE2
POLARSSL_PLATFORM_NO_STD_FUNCTIONS
POLARSSL_ECP_DP_M221_ENABLED
POLARSSL_ECP_DP_M383_ENABLED
POLARSSL_ECP_DP_M511_ENABLED
POLARSSL_NO_DEFAULT_ENTROPY_SOURCES
POLARSSL_NO_PLATFORM_ENTROPY
POLARSSL_SSL_HW_RECORD_ACCEL
POLARSSL_X509_ALLOW_EXTENSIONS_NON_V3
POLARSSL_X509_ALLOW_UNSUPPORTED_CRITICAL_EXTENSION
POLARSSL_ZLIB_SUPPORT
POLARSSL_PKCS11_C
_ALT\s*$
);
my $include_dir;
if( @ARGV ) {
die "Invalid number of arguments" if scalar @ARGV != 1;
($include_dir) = @ARGV;
-d $include_dir or die "No such directory: $include_dir\n";
} else {
$include_dir = 'include/polarssl';
unless( -d $include_dir ) {
chdir '..' or die;
-d $include_dir
or die "Without arguments, must be run from root or scripts\n"
}
}
my $config_file = "$include_dir/config.h";
open my $config_read, '<', $config_file or die "read $config_file: $!\n";
my @config_lines = <$config_read>;
close $config_read;
my $exclude_re = join '|', @excluded;
open my $config_write, '>', $config_file or die "write $config_file: $!\n";
my $done;
for my $line (@config_lines) {
if ($line =~ /name SECTION: Module configuration options/) {
$done = 1;
}
if (!$done && $line =~ m!^//\s?#define! && $line !~ /$exclude_re/) {
$line =~ s!^//!!;
}
print $config_write $line;
}
close $config_write;
__END__