a4d3273fc7
Accept Windows line endings in input files on any platform. This makes the scripts work even when running a Unix perl with a source tree that has Windows line endings, as happens for example on our Travis Windows instances. This change is harmless in the common case where the input has the platform's default line endings. Signed-off-by: Gilles Peskine <Gilles.Peskine@arm.com>
88 lines
2.7 KiB
Perl
Executable file
88 lines
2.7 KiB
Perl
Executable file
#!/usr/bin/env perl
|
|
#
|
|
# Copyright The Mbed TLS Contributors
|
|
# 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.
|
|
|
|
use strict;
|
|
|
|
my ($include_dir, $data_dir, $feature_file);
|
|
|
|
if( @ARGV ) {
|
|
die "Invalid number of arguments" if scalar @ARGV != 3;
|
|
($include_dir, $data_dir, $feature_file) = @ARGV;
|
|
|
|
-d $include_dir or die "No such directory: $include_dir\n";
|
|
-d $data_dir or die "No such directory: $data_dir\n";
|
|
} else {
|
|
$include_dir = 'include/mbedtls';
|
|
$data_dir = 'scripts/data_files';
|
|
$feature_file = 'library/version_features.c';
|
|
|
|
unless( -d $include_dir && -d $data_dir ) {
|
|
chdir '..' or die;
|
|
-d $include_dir && -d $data_dir
|
|
or die "Without arguments, must be run from root or scripts\n"
|
|
}
|
|
}
|
|
|
|
my $feature_format_file = $data_dir.'/version_features.fmt';
|
|
|
|
my @sections = ( "System support", "mbed TLS modules",
|
|
"mbed TLS feature support" );
|
|
|
|
my $line_separator = $/;
|
|
undef $/;
|
|
|
|
open(FORMAT_FILE, '<:crlf', "$feature_format_file") or die "Opening feature format file '$feature_format_file': $!";
|
|
my $feature_format = <FORMAT_FILE>;
|
|
close(FORMAT_FILE);
|
|
|
|
$/ = $line_separator;
|
|
|
|
open(CONFIG_H, '<:crlf', "$include_dir/config.h") || die("Failure when opening config.h: $!");
|
|
|
|
my $feature_defines = "";
|
|
my $in_section = 0;
|
|
|
|
while (my $line = <CONFIG_H>)
|
|
{
|
|
next if ($in_section && $line !~ /#define/ && $line !~ /SECTION/);
|
|
next if (!$in_section && $line !~ /SECTION/);
|
|
|
|
if ($in_section) {
|
|
if ($line =~ /SECTION/) {
|
|
$in_section = 0;
|
|
next;
|
|
}
|
|
|
|
my ($define) = $line =~ /#define (\w+)/;
|
|
$feature_defines .= "#if defined(${define})\n";
|
|
$feature_defines .= " \"${define}\",\n";
|
|
$feature_defines .= "#endif /* ${define} */\n";
|
|
}
|
|
|
|
if (!$in_section) {
|
|
my ($section_name) = $line =~ /SECTION: ([\w ]+)/;
|
|
my $found_section = grep $_ eq $section_name, @sections;
|
|
|
|
$in_section = 1 if ($found_section);
|
|
}
|
|
};
|
|
|
|
$feature_format =~ s/FEATURE_DEFINES\n/$feature_defines/g;
|
|
|
|
open(ERROR_FILE, ">$feature_file") or die "Opening destination file '$feature_file': $!";
|
|
print ERROR_FILE $feature_format;
|
|
close(ERROR_FILE);
|