1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
#!/usr/bin/env perl
#
# %CopyrightBegin%
#
# Copyright Ericsson AB 1999-2009. All Rights Reserved.
#
# The contents of this file are subject to the Erlang Public License,
# Version 1.1, (the "License"); you may not use this file except in
# compliance with the License. You should have received a copy of the
# Erlang Public License along with this software. If not, it can be
# retrieved online at http://www.erlang.org/.
#
# Software distributed under the License is distributed on an "AS IS"
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
# the License for the specific language governing rights and limitations
# under the License.
#
# %CopyrightEnd%
#
use strict;
use File::Copy;
# This program generates global constants that contains
# config.h, CFLAGS and LDFLAGS
my $file = "";
my %constants = ();
my $prev_file = "";
while (@ARGV) {
my $d = shift;
if ( $d =~ /^-o$/ ) {
$file = shift or die("-o requires argument");
open FILE, "<$file" or next;
$prev_file = do { local $/; <FILE> };
close FILE;
next;
}
if ( $d =~ /^-f/ ) {
my $var = shift or die("-f requires two argument");
my $value = shift or die("-f requires two argument");
open FILE, "<$value";
$value = do { local $/; <FILE> };
close FILE;
$value =~ s/\n/\\n\\\n/g;
$constants{$var} = $value;
}
if ( $d =~ /^-v/ ) {
my $var = shift or die("-v requires two argument");
my $value = shift;
$constants{$var} = $value;
}
}
foreach(keys %constants) {
my $value = $constants{$_};
$value =~ s/"/\\"/g;
$constants{$_} = $value
}
# Did we want output to a file?
open(my $oldout, ">&STDOUT") or die "Can't dup STDOUT: $!";
if ( $file ) {
open STDOUT, ">$file.tmp" or die("can't open $file for writing");
}
my(@prog) = split('/', $0);
my($prog) = $prog[$#prog];
print "/* Warning: Do not edit this file.\n";
print " Auto-generated by '$prog'.*/\n";
foreach(keys %constants) {
print "const char* erts_build_flags_$_ = \"$constants{$_}\";\n"
}
open(STDOUT, ">&", $oldout) or die "Can't dup \$oldout: $!";
open FILE, "<$file.tmp";
my $new_file = do { local $/; <FILE> };
close FILE;
if ($new_file ne $prev_file) {
move("$file.tmp","$file");
} else {
unlink("$file.tmp");
}
|
