mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

Sort output from "qa options"

Browse source 
Copied from Perforce
 Change: 20280
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1998-10-26 15:21:44 +00:00
parent be5fc9f944
commit daf385080e
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
mps/qa/test/script/optproc
View file

@ -1,5 +1,5 @@
#!/usr/local/perl -w
# $HopeName: MMQA_harness!script:optproc(trunk.10) $
# $HopeName: MMQA_harness!script:optproc(trunk.11) $
#
# subroutines for processing options to qa commands
# Each command can specify which options it requires,
@ -54,16 +54,15 @@ sub parseoptions {
$qa_opt_val = shift(@ARGV);
&setonceoption($qa_options{$1}, $qa_opt_val);
} else {
$flag = $1;
if ($1 =~ /^no/) { # prefix "no" negates any flag
$flag = $1;
$flag =~ s/^no//;
$qa_opt_val = "off";
} else {
$qa_opt_val = "on";
$flag = $1;
}
unless ($qa_flags{$flag}) {
die "Unrecognized option or flag: $1.\n";
die "Unrecognized option or flag: $flag.\n";
}
&setonceoption($qa_flags{$flag}, $qa_opt_val);
}
@ -176,7 +175,7 @@ sub explainoptions {
write;
print "\n";
foreach $key (@keys) {
foreach $key (sort @keys) {
$optname = "MMQA_$key";
if (&optioncode($key)) {
$optcode = "-".&optioncode($key)." <val>";