bughz
/
sigar
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

-MSigarBuild -e version_file

This commit is contained in:
Doug MacEachern 2009-07-11 08:06:35 -07:00
parent dc2d72f66b
commit 5320b7bf2a
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
bindings/SigarBuild.pm
View File

@ -10,7 +10,7 @@ use POSIX ();
use vars qw(@ISA @EXPORT); use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter); @ISA = qw(Exporter);
@EXPORT = qw(cppflags ldflags libs os src inline_src); @EXPORT = qw(cppflags ldflags libs os src inline_src version_file);
sub archname { sub archname {
my $os = lc $^O; my $os = lc $^O;
@ -207,9 +207,18 @@ sub build_date {
return POSIX::strftime("%m/%d/%Y %I:%M %p", localtime); return POSIX::strftime("%m/%d/%Y %I:%M %p", localtime);
} }
sub find_file {
my $file = shift;
for my $dir (qw(../.. .. .)) {
my $pfile = "$dir/$file";
return $pfile if -e $pfile;
}
return $file;
}
sub version_properties { sub version_properties {
my $props = {}; my $props = {};
my $file = $_[0] || 'version.properties'; my $file = $_[0] || find_file('version.properties');
open my $fh, $file or die "open $file: $!"; open my $fh, $file or die "open $file: $!";
while (<$fh>) { while (<$fh>) {
chomp; chomp;
@ -236,6 +245,10 @@ sub version_properties {
sub version_file { sub version_file {
my($source, $dest) = @_; my($source, $dest) = @_;
unless ($source) {
$dest = 'sigar_version.c';
$source = find_file("src/$dest.in");
}
my $props = version_properties(); my $props = version_properties();
my(%filters); my(%filters);
while (my($key,$val) = each %$props) { while (my($key,$val) = each %$props) {