c7da1fe381
This commit was generated using the following script:
# ========================
#!/bin/sh
# Find scripts
find -path './.git' -prune -o '(' -name '*.gdb' -o -name '*.pl' -o -name '*.py' -o -name '*.sh' ')' -print | xargs sed -i '
# Remove Mbed TLS declaration if it occurs before the copyright line
1,/Copyright.*Arm/I {
/This file is part of/,$ {
/Copyright.*Arm/I! d
}
}
# Convert non-standard header in scripts/abi_check.py to the format used in the other scripts
/"""/,/"""/ {
# Cut copyright declaration
/Copyright.*Arm/I {
h
N
d
}
# Paste copyright declaration
/"""/ {
x
/./ {
s/^/# / # Add #
x # Replace orignal buffer with Copyright declaration
p # Print original buffer, insert newline
i\
s/.*// # Clear original buffer
}
x
}
}
/Copyright.*Arm/I {
# Print copyright declaration
p
# Read the two lines immediately following the copyright declaration
N
N
# Insert Apache header if it is missing
/SPDX/! {
i\
# SPDX-License-Identifier: Apache-2.0\
#\
# Licensed under the Apache License, Version 2.0 (the "License"); you may\
# not use this file except in compliance with the License.\
# You may obtain a copy of the License at\
#\
# http://www.apache.org/licenses/LICENSE-2.0\
#\
# Unless required by applicable law or agreed to in writing, software\
# distributed under the License is distributed on an "AS IS" BASIS, WITHOUT\
# WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\
# See the License for the specific language governing permissions and\
# limitations under the License.
# Insert Mbed TLS declaration if it is missing
/This file is part of/! i\
#\
# This file is part of Mbed TLS (https://tls.mbed.org)
}
# Clear copyright declaration from buffer
D
}
'
# ========================
Signed-off-by: Bence Szépkúti <bence.szepkuti@arm.com>
93 lines
3.5 KiB
Perl
Executable File
93 lines
3.5 KiB
Perl
Executable File
#! /usr/bin/env perl
|
|
|
|
# Generate query_config.c
|
|
#
|
|
# The file query_config.c contains a C function that can be used to check if
|
|
# a configuration macro is defined and to retrieve its expansion in string
|
|
# form (if any). This facilitates querying the compile time configuration of
|
|
# the library, for example, for testing.
|
|
#
|
|
# The query_config.c is generated from the current configuration at
|
|
# include/mbedtls/config.h. The idea is that the config.h contains ALL the
|
|
# compile time configurations available in Mbed TLS (commented or uncommented).
|
|
# This script extracts the configuration macros from the config.h and this
|
|
# information is used to automatically generate the body of the query_config()
|
|
# function by using the template in scripts/data_files/query_config.fmt.
|
|
#
|
|
# Usage: ./scripts/generate_query_config.pl without arguments
|
|
#
|
|
# Copyright (C) 2018-2019, Arm Limited, All Rights Reserved
|
|
# SPDX-License-Identifier: Apache-2.0
|
|
#
|
|
# Licensed under the Apache License, Version 2.0 (the "License"); you may
|
|
# not use this file except in compliance with the License.
|
|
# You may obtain a copy of the License at
|
|
#
|
|
# http://www.apache.org/licenses/LICENSE-2.0
|
|
#
|
|
# Unless required by applicable law or agreed to in writing, software
|
|
# distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
|
|
# WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
# See the License for the specific language governing permissions and
|
|
# limitations under the License.
|
|
#
|
|
# This file is part of Mbed TLS (https://tls.mbed.org)
|
|
|
|
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/test/query_config.c";
|
|
|
|
# Excluded macros from the generated query_config.c. For example, macros that
|
|
# have commas or function-like macros cannot be transformed into strings easily
|
|
# using the preprocessor, so they should be excluded or the preprocessor will
|
|
# throw errors.
|
|
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': $!";
|
|
|
|
# This variable will contain the string to replace in the CHECK_CONFIG of the
|
|
# format file
|
|
my $config_check = "";
|
|
|
|
while (my $line = <CONFIG_FILE>) {
|
|
if ($line =~ /^(\/\/)?\s*#\s*define\s+(MBEDTLS_\w+).*/) {
|
|
my $name = $2;
|
|
|
|
# Skip over the macro that prevents multiple inclusion
|
|
next if "MBEDTLS_CONFIG_H" eq $name;
|
|
|
|
# Skip over the macro if it is in the ecluded list
|
|
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";
|
|
}
|
|
}
|
|
|
|
# Read the full format file into a string
|
|
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);
|
|
|
|
# Replace the body of the query_config() function with the code we just wrote
|
|
$query_config_format =~ s/CHECK_CONFIG/$config_check/g;
|
|
|
|
# Rewrite the query_config.c file
|
|
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);
|