From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 20 Mar 2003 03:51:14 +0000 (+0000)
Subject: Add --suppress-noise command-line option.
X-Git-Tag: 20090517-FFI~1943
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b1e601dd18730ed735c78f34ed07fcd2e4df446f;p=mit-scheme.git

Add --suppress-noise command-line option.
---

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index e77b6a8e4..5c141945f 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,8 +1,10 @@
 /* -*-C-*-
 
-$Id: boot.c,v 9.113 2003/02/14 18:48:11 cph Exp $
+$Id: boot.c,v 9.114 2003/03/20 03:51:08 cph Exp $
 
-Copyright 1988-2002 Massachusetts Institute of Technology
+Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
+Copyright 1992,1993,1994,1995,1996,1997 Massachusetts Institute of Technology
+Copyright 2000,2001,2002,2003 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -384,10 +386,13 @@ DEFUN (Start_Scheme, (Start_Prim, File_Name),
   OS_initialize ();
   if (I_Am_Master)
     {
-      outf_console ("MIT/GNU Scheme running under %s\n", OS_Variant);
-      OS_announcement ();
-      outf_console ("\n");
-      outf_flush_console ();
+      if (!option_suppress_noise)
+	{
+	  outf_console ("MIT/GNU Scheme running under %s\n", OS_Variant);
+	  OS_announcement ();
+	  outf_console ("\n");
+	  outf_flush_console ();
+	}
       Current_State_Point = SHARP_F;
       Fluid_Bindings = EMPTY_LIST;
       INIT_FIXED_OBJECTS ();
@@ -737,3 +742,9 @@ DEFINE_PRIMITIVE ("RELOAD-RETRIEVE-STRING", Prim_reload_retrieve_string, 0, 0, 0
     PRIMITIVE_RETURN (result);
   }
 }
+
+DEFINE_PRIMITIVE ("SUPPRESS-NOISE", Prim_suppress_noise, 0, 0, 0)
+{
+  PRIMITIVE_HEADER (0);
+  PRIMITIVE_RETURN (BOOLEAN_TO_OBJECT (option_suppress_noise));
+}
diff --git a/v7/src/microcode/option.c b/v7/src/microcode/option.c
index 9e226995c..302fb1824 100644
--- a/v7/src/microcode/option.c
+++ b/v7/src/microcode/option.c
@@ -1,8 +1,10 @@
 /* -*-C-*-
 
-$Id: option.c,v 1.59 2003/02/14 18:28:22 cph Exp $
+$Id: option.c,v 1.60 2003/03/20 03:51:11 cph Exp $
 
-Copyright (c) 1990-2002 Massachusetts Institute of Technology
+Copyright 1990,1991,1992,1993,1994,1995 Massachusetts Institute of Technology
+Copyright 1996,1997,1998,1999,2000,2001 Massachusetts Institute of Technology
+Copyright 2002,2003 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -118,6 +120,7 @@ int option_force_interactive;
 int option_disable_core_dump;
 int option_band_specified;
 int option_empty_list_eq_false;
+int option_suppress_noise;
 
 /* String options */
 CONST char ** option_library_path = 0;
@@ -658,6 +661,7 @@ DEFUN (parse_standard_options, (argc, argv), int argc AND CONST char ** argv)
   option_argument ("utab", 1, (&option_raw_utab));
   option_argument ("utabmd", 1, (&option_raw_utabmd));
   option_argument ("empty-list-eq-false", 0, (&option_empty_list_eq_false));
+  option_argument ("suppress-noise", 0, (&option_suppress_noise));
 #ifdef HAS_COMPILER_SUPPORT
   option_argument ("compiler", 0, (&option_compiler_defaults));
   option_argument ("edwin", 0, (&option_edwin_defaults));
@@ -1157,6 +1161,7 @@ DEFUN_VOID (describe_options)
   describe_boolean_option ("emacs subprocess", option_emacs_subprocess);
   describe_boolean_option ("force interactive", option_force_interactive);
   describe_boolean_option ("disable core dump", option_disable_core_dump);
+  describe_boolean_option ("suppress noise", option_suppress_noise);
   if (option_unused_argc == 0)
     outf_fatal ("  no unused arguments\n");
   else
diff --git a/v7/src/microcode/option.h b/v7/src/microcode/option.h
index 41cf39fab..76e422900 100644
--- a/v7/src/microcode/option.h
+++ b/v7/src/microcode/option.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: option.h,v 1.14 2003/02/14 18:28:22 cph Exp $
+$Id: option.h,v 1.15 2003/03/20 03:51:14 cph Exp $
 
-Copyright (c) 1990-1999 Massachusetts Institute of Technology
+Copyright 1990,1991,1992,1993,1995,2003 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -38,6 +38,7 @@ extern int option_emacs_subprocess;
 extern int option_force_interactive;
 extern int option_disable_core_dump;
 extern int option_empty_list_eq_false;
+extern int option_suppress_noise;
 
 /* String options */
 extern CONST char ** option_library_path;