Changeset 09f0ee in git for Singular/tesths.cc

Timestamp:

Aug 4, 1999, 5:38:27 PM (25 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

c32232aa1a81fe568b2e6ee5bca289571e27ff70

Parents:

019f80f3af1dbf6c4b2f012d1f608452a56c6339

Message:

* help system improvements


git-svn-id: file:///usr/local/Singular/svn/trunk@3402 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/tesths.cc (modified) (8 diffs)

Singular/tesths.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: tesths.cc,v 1.65 1999-08-03 17:28:11 obachman Exp $ */
+/* $Id: tesths.cc,v 1.66 1999-08-04 15:38:27 obachman Exp $ */
 
 /*
@@ -80 +80 @@
 #endif
   {LON_BROWSER,           1,  0,  LONG_OPTION_RETURN},
-  {LON_EMACS,             0,  0,  LONG_OPTION_RETURN},
   {LON_NO_STDLIB,         0,  0,  LONG_OPTION_RETURN},
   {LON_NO_RC,             0,  0,  LONG_OPTION_RETURN},
@@ -92 +91 @@
   {LON_TICKS_PER_SEC,     1,  0,  LONG_OPTION_RETURN},
 // undocumented options
+  {LON_EMACS,             0,  0,  LONG_OPTION_RETURN},
 #ifdef HAVE_MPSR
   {LON_MP_TRANSP,         1,  0,  LONG_OPTION_RETURN},
@@ -105 +105 @@
 {
   const char*   name;    // as in option
+
   const char*   arg_name;// name of argument, if has_arg > 0
   const char*   help;    // (short) help string
@@ -112 +113 @@
 
 // mention only documented options here
+// or let help string start with // then option is like undocumented 
 static struct sing_option sing_longopts[] =
 {
@@ -118 +120 @@
 #endif
   {LON_BROWSER,     "BROWSER",  "Display help in BROWSER ([x,tk]info, netscape)",       ""},
-  {LON_EMACS,       0,          "Support singular-emacs mode",                          0},
   {LON_HELP,        0,          "Print help message and exit",                          0},
   {LON_QUIET,       0,          "Do not print start-up banner and library load messages", 0},
@@ -141 +142 @@
 #endif
   {LON_TICKS_PER_SEC, "TICKS",    "Sets unit of timer to TICKS per second",             "1"},
+  // option whose help should not clutter up the normal help stuff
+  {LON_EMACS,       0,          "// Support singular-emacs mode",                          0},
   { 0, 0, 0, 0 }
 };
@@ -188 +191 @@
   {
     sopt = mainGetSingOption(longopts[i].name);
-    if (sopt != NULL)
+    if (sopt != NULL && sopt->help != NULL
+#ifdef NDEBUG
+        && *(sopt->help) != '/'
+#endif  
+        )
     {
       if (longopts[i].has_arg > 0)