generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

New make target "report" to run util/selftest.pl

Browse Source
This commit is contained in:
Ulf Möller
2000-02-23 23:47:05 +00:00
parent 49976df599
commit d7f0ab5ff4
3 changed files with 35 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
util/selftest.pl
View File

@@ -17,6 +17,7 @@ my $options="??";
my $last="??";
my $ok=0;
my $cc="cc";
my $cversion="??";
my $sep="-----------------------------------------------------------------------------\n";
open(OUT,">$report") or die;
@@ -38,13 +39,19 @@ if (open(IN,"<Makefile.ssl")) {
$version=$1 if (/^VERSION=(.*)$/);
$platform=$1 if (/^PLATFORM=(.*)$/);
$options=$1 if (/^OPTIONS=(.*)$/);
$cc=$1 if (/^CC=(.*)$/);
$cc=$1 if (/^CC= *(.*)$/);
}
close(IN);
} else {
print OUT "Error running config: no Makefile.ssl!\n";
print OUT "Error running config!\n";
}
$cversion=`$cc -v 2>&1`;
$cversion=`$cc -V 2>&1` if $cversion =~ "usage";
$cversion =~ s/Reading specs.*\n//;
$cversion =~ s/usage.*\n//;
chomp $cversion;
if (open(IN,"<CHANGES")) {
while(<IN>) {
if (/\*\) (.{0,55})/) {
@@ -61,8 +68,11 @@ print OUT "OS (uname): $uname";
print OUT "OS (config): $os\n";
print OUT "Target (default): $platform0\n";
print OUT "Target: $platform\n";
print OUT "Compiler: $cversion\n";
print OUT "\n";
goto err;
print "Checking compiler...\n";
if (open(TEST,">test.c")) {
print TEST "#include <stdio.h>\nmain(){printf(\"Hello world\\n\");}\n";
@@ -149,3 +159,4 @@ while (<IN>) {
print;
}
print "Test report in file $report\n";