util/mkbuildinf.pl

   1 #! /usr/bin/env perl
   2 # Copyright 2014-2016 The OpenSSL Project Authors. All Rights Reserved.
   3 #
   4 # Licensed under the OpenSSL license (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
   8
   9
  10 my ($cflags, $platform) = @ARGV;
  11
  12 $cflags = "compiler: $cflags";
  13 $date = localtime();
  14 print <<"END_OUTPUT";
  15 /* auto-generated by util/mkbuildinf.pl for crypto/cversion.c */
  16 #define CFLAGS cflags
  17 /*
  18  * Generate CFLAGS as an array of individual characters. This is a
  19  * workaround for the situation where CFLAGS gets too long for a C90 string
  20  * literal
  21  */
  22 static const char cflags[] = {
  23 END_OUTPUT
  24 my $ctr = 0;
  25 foreach my $c (split //, $cflags) {
  26     $c =~ s|([\\'])|\\$1|;
  27     # Max 16 characters per line
  28     if  (($ctr++ % 16) == 0) {
  29         if ($ctr != 1) {
  30             print "\n";
  31         }
  32         print "    ";
  33     }
  34     print "'$c',";
  35 }
  36 print <<"END_OUTPUT";
  37 '\\0'
  38 };
  39 #define PLATFORM "platform: $platform"
  40 #define DATE "built on: $date"
  41 END_OUTPUT