68 lines
2.6 KiB
Perl
68 lines
2.6 KiB
Perl
|
#! /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);
|
||
|
|
}
|
||
|
|
}
|