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

Flags to work in nt

Browse source 
Copied from Perforce
 Change: 18498
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1997-07-25 16:30:26 +01:00
parent 63e0f704aa
commit 5e277a8d97
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
mps/qa/test/script/commands/index
View file

@ -6,6 +6,8 @@
&options();
print $platform_phylum."\n";
require "headread";
open(IF, ">tmp_index");
@ -13,7 +15,7 @@ open(IF, ">tmp_index");
while ($testfile = <*.c>) {
&readheader($testfile, 0);
$testnum=$testfile;
$testnum=~s/.c//;
$testnum=~s/\.c//;
$testname = $test_header{"summary"};
unless ($testname) {
print "unknown test: ".$testnum."\n";
@ -23,6 +25,12 @@ while ($testfile = <*.c>) {
}
close(IF);
system("sort -n tmp_index");
if ($platform_phylum eq "unix") {
$sort_options = "-n";
} elsif ($platform_phylum eq "pc") {
$sort_options = "<"; # there's no numeric sort option, unfortunately
}
system("sort $sort_options tmp_index");
system("rm tmp_index");