Skip to main content
  • Home
  • login
  • Browse the archive

    swh mirror partner logo
swh logo
SoftwareHeritage
Software
Heritage
Mirror
Features
  • Search

  • Downloads

  • Save code now

  • Add forge now

  • Help

  • 0df96af
  • /
  • util
  • /
  • mkbuildinf.pl
Raw File
Permalinks

To reference or cite the objects present in the Software Heritage archive, permalinks based on SoftWare Hash IDentifiers (SWHIDs) must be used.
Select below a type of object currently browsed in order to display its associated SWHID and permalink.

  • content
  • directory
content badge Iframe embedding
swh:1:cnt:ffa8a39933f13806d33cf3d9b16b2081bfc17b28
directory badge Iframe embedding
swh:1:dir:3e9b3d1b6b34b3383cba27a67cdc85ab45fba869
mkbuildinf.pl
#!/usr/local/bin/perl

my ($cflags, $platform) = @ARGV;

$cflags = "compiler: $cflags";
$date = localtime();
print <<"END_OUTPUT";
#ifndef MK1MF_BUILD
    /* auto-generated by util/mkbuildinf.pl for crypto/cversion.c */
    #define CFLAGS cflags
    /*
     * Generate CFLAGS as an array of individual characters. This is a
     * workaround for the situation where CFLAGS gets too long for a C90 string
     * literal
     */
    static const char cflags[] = {
END_OUTPUT
my $ctr = 0;
foreach my $c (split //, $cflags) {
    # Max 18 characters per line
    if  (($ctr++ % 18) == 0) {
        if ($ctr != 1) {
            print "\n";
        }
        print "        ";
    }
    print "'$c',";
}
print <<"END_OUTPUT";
'\\0'
    };
    #define PLATFORM "platform: $platform"
    #define DATE "built on: $date"
#endif
END_OUTPUT

ENEA — Copyright (C), ENEA. License: GNU AGPLv3+.
Legal notes  ::  JavaScript license information ::  Web API

back to top