[disorder] / scripts / make-version-string

#! /usr/bin/perl -w
use strict;
sub output {
    print @_ or die "$0: stdout: $!\n";
}
my @csv = `../config.status --version`;
my $version;
my $options;
my $cc;
my $compiler;
for(@csv) {
    chomp;
    if(/disorder config\.status (\S+)/) {
	$version = $1;
    }
    if(/with options \"(.*)\"/) {
	$options = $1;
    }
}
if(exists $ENV{CC}) {
    $cc = $ENV{CC};
    $cc =~ s/\s+/ /g;
    my @cv = `$cc --version`;
    $compiler = $cv[0];
}
die "no version found\n" unless defined $version;
output("DisOrder $version\n");
output(" configure options: $options\n") if defined $options;
output(" compiler: $cc\n") if defined $compiler;
output(" version: $compiler\n") if defined $cc;
close STDOUT or die "$0: stdout: $!\n";
Commit	Line	Data
a05e4467 RK	1	#! /usr/bin/perl -w
	2	use strict;
	3	sub output {
	4	print @_ or die "$0: stdout: $!\n";
	5	}
	6	my @csv = `../config.status --version`;
	7	my $version;
	8	my $options;
	9	my $cc;
	10	my $compiler;
	11	for(@csv) {
	12	chomp;
	13	if(/disorder config\.status (\S+)/) {
	14	$version = $1;
	15	}
	16	if(/with options \"(.*)\"/) {
	17	$options = $1;
	18	}
	19	}
	20	if(exists $ENV{CC}) {
	21	$cc = $ENV{CC};
	22	$cc =~ s/\s+/ /g;
	23	my @cv = `$cc --version`;
	24	$compiler = $cv[0];
	25	}
	26	die "no version found\n" unless defined $version;
	27	output("DisOrder $version\n");
	28	output(" configure options: $options\n") if defined $options;
	29	output(" compiler: $cc\n") if defined $compiler;
	30	output(" version: $compiler\n") if defined $cc;
	31	close STDOUT or die "$0: stdout: $!\n";