123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475 |
- use strict;
- my $config_file = "./include/mbedtls/config.h";
- my $query_config_format_file = "./scripts/data_files/query_config.fmt";
- my $query_config_file = "./programs/ssl/query_config.c";
- my @excluded = qw(
- MBEDTLS_SSL_CIPHERSUITES
- MBEDTLS_PARAM_FAILED
- );
- my $excluded_re = join '|', @excluded;
- open(CONFIG_FILE, "$config_file") or die "Opening config file '$config_file': $!";
- my $config_check = "";
- while (my $line = <CONFIG_FILE>) {
- if ($line =~ /^(\/\/)?\s*#\s*define\s+(MBEDTLS_\w+).*/) {
- my $name = $2;
-
- next if "MBEDTLS_CONFIG_H" eq $name;
-
- next if $name =~ /$excluded_re/;
- $config_check .= "#if defined($name)\n";
- $config_check .= " if( strcmp( \"$name\", config ) == 0 )\n";
- $config_check .= " {\n";
- $config_check .= " MACRO_EXPANSION_TO_STR( $name );\n";
- $config_check .= " return( 0 );\n";
- $config_check .= " }\n";
- $config_check .= "#endif /* $name */\n";
- $config_check .= "\n";
- }
- }
- local $/;
- open(FORMAT_FILE, "$query_config_format_file") or die "Opening query config format file '$query_config_format_file': $!";
- my $query_config_format = <FORMAT_FILE>;
- close(FORMAT_FILE);
- $query_config_format =~ s/CHECK_CONFIG/$config_check/g;
- open(QUERY_CONFIG_FILE, ">$query_config_file") or die "Opening destination file '$query_config_file': $!";
- print QUERY_CONFIG_FILE $query_config_format;
- close(QUERY_CONFIG_FILE);
|