]>
git.ipfire.org Git - thirdparty/openssl.git/blob - util/dofile.pl
2 # Copyright 2016-2018 The OpenSSL Project Authors. All Rights Reserved.
4 # Licensed under the Apache License 2.0 (the "License"). You may not use
5 # this file except in compliance with the License. You can obtain a copy
6 # in the file LICENSE in the source distribution or at
7 # https://www.openssl.org/source/license.html
9 # Reads one or more template files and runs it through Text::Template
11 # It is assumed that this scripts is called with -Mconfigdata, a module
12 # that holds configuration data in %config
18 use lib
"$FindBin::Bin/perl";
19 use OpenSSL
::fallback
"$FindBin::Bin/../external/perl/MODULES.txt";
21 use OpenSSL
::Template
;
23 # We expect to get a lot of information from configdata, so check that
24 # it was part of our commandline.
25 die "You must run this script with -Mconfigdata\n"
26 if !exists($config{target
});
28 # Check options ######################################################
31 # declares ORIGINATOR as the originating script.
32 # -i .ext Like Perl's edit-in-place -i flag
37 "WARNING: do not edit!",
39 . (defined($opts{o
}) ?
" by $opts{o}" : "")
40 . (scalar(@ARGV) > 0 ?
" from " .join(", ", @ARGV) : "")
43 if (defined($opts{s
})) {
45 open VARS
, $opts{s
} or die "Couldn't open $opts{s}, $!";
46 my $contents = <VARS
>;
51 die "Must have input files"
52 if defined($opts{i
}) and scalar(@ARGV) == 0;
54 # Template setup #####################################################
56 my @template_settings =
58 ?
map { { TYPE
=> 'FILE', SOURCE
=> $_, FILENAME
=> $_ } } @ARGV
59 : ( { TYPE
=> 'FILEHANDLE', SOURCE
=> \
*STDIN
, FILENAME
=> '<stdin>' } );
61 # Error callback; print message, set status, return "stop processing"
65 print STDERR
$args{error
};
70 # Engage! ############################################################
72 my $prepend = <<"_____";
73 use File
::Spec
::Functions
;
74 use lib
"$FindBin::Bin/../Configurations";
75 use lib
'$config{builddir}';
79 foreach (@template_settings) {
80 my $template = OpenSSL
::Template
->new(%$_);
81 die "Couldn't create template: $Text::Template::ERROR"
82 if !defined($template);
84 my $result = $template->fill_in(%$_,
85 HASH
=> { config
=> \
%config,
87 disabled
=> \
%disabled,
88 withargs
=> \
%withargs,
89 unified_info
=> \
%unified_info,
90 autowarntext
=> \
@autowarntext },
91 BROKEN
=> \
&errorcallback
,
93 # To ensure that global variables and functions
94 # defined in one template stick around for the
95 # next, making them combinable
96 PACKAGE
=> 'OpenSSL::safe');
99 if (defined($opts{i
})) {
100 my $in = $_->{FILENAME
};
102 $out =~ s/$opts{i}$//;
103 die "Cannot replace file in-place $in"
106 or die "Can't open $out, $!";