From 28c60fa26b77c96d0572ba3ea9970fa0cd93754b Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Mon, 17 Nov 1997 15:48:15 +0000
Subject: [PATCH] Improve output format for option display

Copied from Perforce
 Change: 19010
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/script/optproc | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/mps/qa/test/script/optproc b/mps/qa/test/script/optproc
index f3d845baf50..da9ad1f43f4 100644
--- a/mps/qa/test/script/optproc
+++ b/mps/qa/test/script/optproc
@@ -133,7 +133,7 @@ sub explainoptions {
  foreach $key (@keys) {
   $optname = "MMQA_$key";
   if (&optioncode($key)) {
-   $optcode = "-".&optioncode($key)." <value>";
+   $optcode = "-".&optioncode($key)." <val>";
   } elsif (&flagcode($key)) {
    $optcode = "-[no]".&flagcode($key);
   } else {
@@ -149,7 +149,9 @@ sub displayalloptions {
 }
 
 format OPTLIST =
- @<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<< @*
+ @<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $optname, $optcode, $optcur
+~~                                  ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+$optcur
 .