mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-14 07:20:35 -08:00
Code Issues Projects Releases Wiki Activity

Mend identify on unix platforms

Browse source 
Copied from Perforce
 Change: 20299
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1998-10-28 17:36:55 +00:00
parent 74de6d4e49
commit e6e1f3deac
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
mps/qa/test/script/platform
View file

@ -138,7 +138,7 @@ sub identify {
%identify = ();
if ($PLATFORM =~ /^nt/) {
&identify_nt;
} elsif ($PLATFORM =~ /^unix/) {
} elsif ($PLATFORM =~ /__unix/) {
&identify_unix;
}
$identify{"time"} = localtime;
@ -153,7 +153,7 @@ sub envvar {
sub comvar {
my ($var, $com, $pat) = @_;
if (open(COM, $com)) {
if (open(COM, $com." 2>&1 |")) {
while (<COM>) {
chop;
if ($pat eq "" || /$pat/) {
@ -170,13 +170,13 @@ sub identify_nt {
&envvar("user", "USERNAME");
&envvar("OS", "OS");
&envvar("arch", "PROCESSOR_ARCHITECTURE");
&comvar("c_version", "cl /? 2>&1 |", "");
&comvar("c_version", "cl /?", "");
}
sub identify_unix {
&comvar("machine", "uname -n", "");
&comvar("user", "whoami", "");
&comvar("c_version", "gcc -v 2>&1 |", "version");
&comvar("c_version", "gcc -v", "version");
&comvar("OS", "uname", "");
&comvar("arch", "arch", "");
}