Changeset 15159

Timestamp:

Dec 29, 2011, 4:20:04 AM (13 years ago)

Author:

Gary Byers

Message:

Conditionalize out support for treating a single command-line
argument as an image name. This is a minor incompatible change,
but relieves some users of the stigma and shame of writing shell
script wrappers.

File:

• trunk/source/lisp-kernel/pmcl-kernel.c (modified) (3 diffs)

trunk/source/lisp-kernel/pmcl-kernel.c

@@ -1089 +1089 @@
   }
   fprintf(dbgout, "usage: %s <options>\n", program_name);
+#ifdef SINGLE_ARG_SHORTHAND
   fprintf(dbgout, "\t or %s <image-name>\n", program_name);
+#endif
   fprintf(dbgout, "\t where <options> are one or more of:\n");
   if (other_args && *other_args) {
@@ -1895 +1897 @@
 
   program_name = argv[0];
+#ifdef SINGLE_ARG_SHORTHAND
   if ((argc == 2) && (*argv[1] != '-')) {
 #ifdef WINDOWS
@@ -1906 +1909 @@
 #endif
   } else {
+#endif  /* SINGLE_ARG_SHORTHAND */
     process_options(argc,argv,utf_16_argv);
-  }
+#ifdef SINGLE_ARG_SHORTHAND
+  }
+#endif
   if (lisp_heap_gc_threshold != DEFAULT_LISP_HEAP_GC_THRESHOLD) {
     lisp_heap_threshold_set_from_command_line = true;