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 die "Must have input files"
44 if defined($opts{i}) and scalar(@ARGV) == 0;
46 # Template setup #####################################################
48 my @template_settings =
50 ? map { { TYPE => 'FILE', SOURCE => $_, FILENAME => $_ } } @ARGV
51 : ( { TYPE => 'FILEHANDLE', SOURCE => \*STDIN, FILENAME => '<stdin>' } );
53 # Error callback; print message, set status, return "stop processing"
57 print STDERR $args{error};
62 # Engage! ############################################################
64 my $prepend = <<"_____";
65 use File::Spec::Functions;
67 $prepend .= <<"_____" if defined $target{perl_platform};
68 use lib "$FindBin::Bin/../Configurations";
69 use lib '$config{builddir}';
73 foreach (@template_settings) {
74 my $template = OpenSSL::Template->new(%$_);
75 die "Couldn't create template: $Text::Template::ERROR"
76 if !defined($template);
78 my $result = $template->fill_in(%$_,
79 HASH => { config => \%config,
81 disabled => \%disabled,
82 withargs => \%withargs,
83 unified_info => \%unified_info,
84 autowarntext => \@autowarntext },
85 BROKEN => \&errorcallback,
87 # To ensure that global variables and functions
88 # defined in one template stick around for the
89 # next, making them combinable
90 PACKAGE => 'OpenSSL::safe');
93 if (defined($opts{i})) {
94 my $in = $_->{FILENAME};
96 $out =~ s/$opts{i}$//;
97 die "Cannot replace file in-place $in"
100 or die "Can't open $out, $!";