1*0a6a1f1dSLionel Sambuc#!/usr/local/bin/perl 2*0a6a1f1dSLionel Sambuc 3*0a6a1f1dSLionel Sambucmy ($cflags, $platform) = @ARGV; 4*0a6a1f1dSLionel Sambuc 5*0a6a1f1dSLionel Sambuc$cflags = "compiler: $cflags"; 6*0a6a1f1dSLionel Sambuc$date = localtime(); 7*0a6a1f1dSLionel Sambucprint <<"END_OUTPUT"; 8*0a6a1f1dSLionel Sambuc#ifndef MK1MF_BUILD 9*0a6a1f1dSLionel Sambuc /* auto-generated by util/mkbuildinf.pl for crypto/cversion.c */ 10*0a6a1f1dSLionel Sambuc #define CFLAGS cflags 11*0a6a1f1dSLionel Sambuc /* 12*0a6a1f1dSLionel Sambuc * Generate CFLAGS as an array of individual characters. This is a 13*0a6a1f1dSLionel Sambuc * workaround for the situation where CFLAGS gets too long for a C90 string 14*0a6a1f1dSLionel Sambuc * literal 15*0a6a1f1dSLionel Sambuc */ 16*0a6a1f1dSLionel Sambuc static const char cflags[] = { 17*0a6a1f1dSLionel SambucEND_OUTPUT 18*0a6a1f1dSLionel Sambucmy $ctr = 0; 19*0a6a1f1dSLionel Sambucforeach my $c (split //, $cflags) { 20*0a6a1f1dSLionel Sambuc # Max 18 characters per line 21*0a6a1f1dSLionel Sambuc if (($ctr++ % 18) == 0) { 22*0a6a1f1dSLionel Sambuc if ($ctr != 1) { 23*0a6a1f1dSLionel Sambuc print "\n"; 24*0a6a1f1dSLionel Sambuc } 25*0a6a1f1dSLionel Sambuc print " "; 26*0a6a1f1dSLionel Sambuc } 27*0a6a1f1dSLionel Sambuc print "'$c',"; 28*0a6a1f1dSLionel Sambuc} 29*0a6a1f1dSLionel Sambucprint <<"END_OUTPUT"; 30*0a6a1f1dSLionel Sambuc'\\0' 31*0a6a1f1dSLionel Sambuc }; 32*0a6a1f1dSLionel Sambuc #define PLATFORM "platform: $platform" 33*0a6a1f1dSLionel Sambuc #define DATE "built on: $date" 34*0a6a1f1dSLionel Sambuc#endif 35*0a6a1f1dSLionel SambucEND_OUTPUT 36