e0a651945c
Add copyright to most .pl files This does NOT cover any .pl file that has other copyright in it. Most of those are Andy's but some are public domain. Fix typo's in some existing files. Reviewed-by: Richard Levitte <levitte@openssl.org>
28 lines
1.1 KiB
Perl
Executable file
28 lines
1.1 KiB
Perl
Executable file
#! /usr/bin/env perl
|
|
# Copyright 2008-2016 The OpenSSL Project Authors. All Rights Reserved.
|
|
#
|
|
# Licensed under the OpenSSL license (the "License"). You may not use
|
|
# this file except in compliance with the License. You can obtain a copy
|
|
# in the file LICENSE in the source distribution or at
|
|
# https://www.openssl.org/source/license.html
|
|
|
|
# pull APPLINK_MAX value from applink.c...
|
|
$applink_c=$0;
|
|
$applink_c=~s|[^/\\]+$||g;
|
|
$applink_c.="applink.c";
|
|
open(INPUT,$applink_c) || die "can't open $applink_c: $!";
|
|
@max=grep {/APPLINK_MAX\s+(\d+)/} <INPUT>;
|
|
close(INPUT);
|
|
($#max==0) or die "can't find APPLINK_MAX in $applink_c";
|
|
|
|
$max[0]=~/APPLINK_MAX\s+(\d+)/;
|
|
$N=$1; # number of entries in OPENSSL_UplinkTable not including
|
|
# OPENSSL_UplinkTable[0], which contains this value...
|
|
|
|
1;
|
|
|
|
# Idea is to fill the OPENSSL_UplinkTable with pointers to stubs
|
|
# which invoke 'void OPENSSL_Uplink (ULONG_PTR *table,int index)';
|
|
# and then dereference themselves. Latter shall result in endless
|
|
# loop *unless* OPENSSL_Uplink does not replace 'table[index]' with
|
|
# something else, e.g. as 'table[index]=unimplemented;'...
|