%PDF-
%PDF-
Mini Shell
Mini Shell
#! /usr/bin/env perl -w
use 5.10.0;
use strict;
use FindBin;
use lib "$FindBin::Bin/../openssl/util/perl/OpenSSL";
use Text::Template;
our $src_dir = "../openssl";
my @openssl_headers = shift @ARGV;
my @crypto_headers = shift @ARGV;
my $include_tmpl = Text::Template->new(TYPE => 'FILE',
SOURCE => 'include.h.tmpl',
DELIMITERS => [ "%%-", "-%%" ]);
my $include_conf_tmpl = Text::Template->new(TYPE => 'FILE',
SOURCE => 'include_config.tmpl',
DELIMITERS => [ "%%-", "-%%" ]);
my $include_asm_tmpl = Text::Template->new(TYPE => 'FILE',
SOURCE => 'include_asm.h.tmpl',
DELIMITERS => [ "%%-", "-%%" ]);
my $include_no_asm_tmpl = Text::Template->new(TYPE => 'FILE',
SOURCE => 'include_no-asm.h.tmpl',
DELIMITERS => [ "%%-", "-%%" ]);
gen_headers(@openssl_headers, 'openssl');
gen_headers(@crypto_headers, 'crypto');
sub gen_headers {
my @headers = split / /, $_[0];
my $inc_dir = $_[1];
foreach my $header_name (@headers) {
print("Generating headers for: $header_name\n");
# Populate and write header file that will be placed OpenSSL's include
# directory.
my $include = $include_tmpl->fill_in(HASH => { name => $header_name });
open(INCLUDE, "> $src_dir/include/${inc_dir}/${header_name}.h");
print INCLUDE "$include";
close(INCLUDE);
#
# Poplulate and write the header in the config directory (currently the same
# directory as this file) which will determine which include to use
# depending on if asm is available or not.
my $include_conf = $include_conf_tmpl->fill_in(
HASH => { name => $header_name });
open(INCLUDE_CONF, "> ./${header_name}.h");
print INCLUDE_CONF "$include_conf";
close(INCLUDE_CONF);
# Poplulate and write the asm header.
my $include_asm = $include_asm_tmpl->fill_in(
HASH => { asmdir => 'asm', incdir => $inc_dir, name => $header_name });
open(INCLUDE_ASM, "> ./${header_name}_asm.h");
print INCLUDE_ASM "$include_asm";
close(INCLUDE_ASM);
# Poplulate and write the no-asm header.
my $include_no_asm = $include_no_asm_tmpl->fill_in(
HASH => { asmdir => 'no-asm',
incdir => $inc_dir,
name => $header_name });
open(INCLUDE_NO_ASM, "> ./${header_name}_no-asm.h");
print INCLUDE_NO_ASM "$include_no_asm";
close(INCLUDE_NO_ASM);
}
}
Zerion Mini Shell 1.0