Blame test/generate_buildtest.pl

Packit Service 084de1
#! /usr/bin/env perl
Packit Service 084de1
# Copyright 2016-2018 The OpenSSL Project Authors. All Rights Reserved.
Packit Service 084de1
#
Packit Service 084de1
# Licensed under the OpenSSL license (the "License").  You may not use
Packit Service 084de1
# this file except in compliance with the License.  You can obtain a copy
Packit Service 084de1
# in the file LICENSE in the source distribution or at
Packit Service 084de1
# https://www.openssl.org/source/license.html
Packit Service 084de1
Packit Service 084de1
use strict;
Packit Service 084de1
use warnings;
Packit Service 084de1
Packit Service 084de1
# First argument is name;
Packit Service 084de1
my $name = shift @ARGV;
Packit Service 084de1
my $name_uc = uc $name;
Packit Service 084de1
# All other arguments are ignored for now
Packit Service 084de1
Packit Service 084de1
print <<"_____";
Packit Service 084de1
/*
Packit Service 084de1
 * Generated with test/generate_buildtest.pl, to check that such a simple
Packit Service 084de1
 * program builds.
Packit Service 084de1
 */
Packit Service 084de1
#include <openssl/opensslconf.h>
Packit Service 084de1
#ifndef OPENSSL_NO_STDIO
Packit Service 084de1
# include <stdio.h>
Packit Service 084de1
#endif
Packit Service 084de1
#ifndef OPENSSL_NO_${name_uc}
Packit Service 084de1
# include <openssl/$name.h>
Packit Service 084de1
#endif
Packit Service 084de1
Packit Service 084de1
int main(void)
Packit Service 084de1
{
Packit Service 084de1
    return 0;
Packit Service 084de1
}
Packit Service 084de1
_____