From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 10 Feb 1992 13:53:34 +0000 (+0000)
Subject: const => CONST
X-Git-Tag: 20090517-FFI~9819
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=320df05792fbb37849518f94deac7b89b2e9a5a6;p=mit-scheme.git

const => CONST
---

diff --git a/v7/src/microcode/bchdmp.c b/v7/src/microcode/bchdmp.c
index c8d7230c9..1d5e93cdc 100644
--- a/v7/src/microcode/bchdmp.c
+++ b/v7/src/microcode/bchdmp.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchdmp.c,v 9.59 1992/02/03 22:40:39 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchdmp.c,v 9.60 1992/02/10 13:53:22 jinx Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -235,7 +235,7 @@ DEFUN (fasdump_exit, (length), long length)
   }
 #else
   {
-    extern int EXFUN (truncate, (const char *, unsigned long));
+    extern int EXFUN (truncate, (CONST char *, unsigned long));
 
     result = (close (dump_file) == 0);
     truncate (dump_file_name, length);
@@ -244,7 +244,7 @@ DEFUN (fasdump_exit, (length), long length)
 
   if (length == 0)
   {
-    extern int EXFUN (unlink, (const char *));
+    extern int EXFUN (unlink, (CONST char *));
 
     (void) (unlink (dump_file_name));
   }
diff --git a/v7/src/microcode/bchdrn.c b/v7/src/microcode/bchdrn.c
index 121f20a0f..3858092ad 100644
--- a/v7/src/microcode/bchdrn.c
+++ b/v7/src/microcode/bchdrn.c
@@ -1,8 +1,8 @@
 /* -*- C -*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchdrn.c,v 1.2 1991/11/04 16:54:41 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchdrn.c,v 1.3 1992/02/10 13:53:03 jinx Exp $
 
-Copyright (c) 1991 Massachusetts Institute of Technology
+Copyright (c) 1991-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -44,10 +44,10 @@ MIT in each case. */
 
 extern char * EXFUN (error_name, (int));
 extern int EXFUN (retrying_file_operation,
-		  (/* no prototype because (const char *) != (char *) */
-		   int (*)(),
+		  (/* no prototype because (CONST char *) != (char *) */
+		   int EXFUN((*), ()),
 		   int, char *, long, long, char *, char *, long *,
-		   int (*)(char *, char *)));
+		   int EXFUN((*), (char *, char *))));
 
 #ifdef HAVE_SYSV_SHARED_MEMORY
 
diff --git a/v7/src/microcode/bchgcc.h b/v7/src/microcode/bchgcc.h
index a9325ae2f..ff5a1be50 100644
--- a/v7/src/microcode/bchgcc.h
+++ b/v7/src/microcode/bchgcc.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchgcc.h,v 9.42 1991/11/04 16:49:35 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchgcc.h,v 9.43 1992/02/10 13:52:43 jinx Exp $
 
-Copyright (c) 1987-1991 Massachusetts Institute of Technology
+Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -48,10 +48,10 @@ MIT in each case. */
 extern char * EXFUN (error_name, (int));
 
 extern int EXFUN (retrying_file_operation,
-		  (/* no prototype because (const char *) != (char *) */
-		   int (*)(),
+		  (/* no prototype because (CONST char *) != (char *) */
+		   int EXFUN((*), ()),
 		   int, char *, long, long, char *, char *, long *,
-		   int (*)(char *, char *)));
+		   int EXFUN((*), (char *, char *))));
 
 extern int EXFUN (io_error_retry_p, (char *, char *));
 extern int EXFUN (io_error_always_abort, (char *, char *));
diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index 3a9411622..b245077b2 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/boot.c,v 9.71 1991/10/29 22:55:11 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/boot.c,v 9.72 1992/02/10 13:52:23 jinx Exp $
 
-Copyright (c) 1988-1991 Massachusetts Institute of Technology
+Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -50,7 +50,7 @@ extern void EXFUN (Clear_Memory, (int, int, int));
 extern void EXFUN (Setup_Memory, (int, int, int));
 extern void EXFUN (compiler_initialize, (long fasl_p));
 
-static void EXFUN (Start_Scheme, (int, const char *));
+static void EXFUN (Start_Scheme, (int, CONST char *));
 static void EXFUN (Enter_Interpreter, (void));
 
 CONST char * scheme_program_name;
@@ -400,7 +400,7 @@ extern unsigned long
 
 extern void EXFUN (gc_death,
 		   (long code, char *, SCHEME_OBJECT *, SCHEME_OBJECT *));
-extern void EXFUN (stack_death, (const char *));
+extern void EXFUN (stack_death, (CONST char *));
 
 extern char
   gc_death_message_buffer[];
diff --git a/v7/src/microcode/default.h b/v7/src/microcode/default.h
index a2db61528..73cd11af8 100644
--- a/v7/src/microcode/default.h
+++ b/v7/src/microcode/default.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/default.h,v 9.37 1991/09/24 22:39:20 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/default.h,v 9.38 1992/02/10 13:52:06 jinx Exp $
 
-Copyright (c) 1988-1991 Massachusetts Institute of Technology
+Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -113,7 +113,7 @@ do									\
 {									\
   if (!(CONSTANT_SPACE_SEALED ()))					\
   {									\
-    extern void EXFUN (stack_death, (const char *));			\
+    extern void EXFUN (stack_death, (CONST char *));			\
 									\
     stack_death (name);							\
     /*NOTREACHED */							\
diff --git a/v7/src/microcode/findprim.c b/v7/src/microcode/findprim.c
index 74dfad9bc..32751e4db 100644
--- a/v7/src/microcode/findprim.c
+++ b/v7/src/microcode/findprim.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/findprim.c,v 9.45 1992/01/20 17:35:57 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/findprim.c,v 9.46 1992/02/10 13:53:34 jinx Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -80,8 +80,8 @@ MIT in each case. */
 
 #include <ctype.h>
 
-extern int EXFUN (strcmp, (const char *, const char *));
-extern int EXFUN (strlen, (const char *));
+extern int EXFUN (strcmp, (CONST char *, CONST char *));
+extern int EXFUN (strlen, (CONST char *));
 
 typedef int boolean;
 #define TRUE 1
diff --git a/v7/src/microcode/uxio.c b/v7/src/microcode/uxio.c
index d21f639b7..a7f2ec31a 100644
--- a/v7/src/microcode/uxio.c
+++ b/v7/src/microcode/uxio.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxio.c,v 1.19 1992/02/10 13:26:10 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxio.c,v 1.20 1992/02/10 13:51:37 jinx Exp $
 
 Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
@@ -238,7 +238,7 @@ DEFUN (OS_channel_write_dump_file, (channel, buffer, nbytes),
   return ((scr < 0) ? 0 : scr);
 }
 
-extern int EXFUN (strlen, (const char *));
+extern int EXFUN (strlen, (CONST char *));
 
 void
 DEFUN (OS_channel_write_string, (channel, string),
diff --git a/v7/src/microcode/uxsock.c b/v7/src/microcode/uxsock.c
index 3093b686d..623962af5 100644
--- a/v7/src/microcode/uxsock.c
+++ b/v7/src/microcode/uxsock.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxsock.c,v 1.7 1992/02/03 23:45:31 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxsock.c,v 1.8 1992/02/10 13:51:18 jinx Exp $
 
-Copyright (c) 1990-92 Massachusetts Institute of Technology
+Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -46,8 +46,8 @@ MIT in each case. */
 #include "uxio.h"
 #include "prims.h"
 
-extern struct servent * EXFUN (getservbyname, (const char *, const char *));
-extern struct hostent * EXFUN (gethostbyname, (const char *));
+extern struct servent * EXFUN (getservbyname, (CONST char *, CONST char *));
+extern struct hostent * EXFUN (gethostbyname, (CONST char *));
 
 Tchannel
 DEFUN (OS_open_tcp_stream_socket, (host, port), char * host AND int port)
@@ -109,7 +109,7 @@ DEFUN (OS_open_unix_stream_socket, (filename), CONST char * filename)
 {
 #ifdef HAVE_UNIX_SOCKETS
   int s;
-  extern char * EXFUN (strncpy, (char *, const char *, size_t));
+  extern char * EXFUN (strncpy, (char *, CONST char *, size_t));
   STD_UINT_SYSTEM_CALL
     (syscall_socket, s, (UX_socket (AF_UNIX, SOCK_STREAM, 0)));
   {
diff --git a/v7/src/microcode/uxtty.c b/v7/src/microcode/uxtty.c
index 430cb994c..52867e778 100644
--- a/v7/src/microcode/uxtty.c
+++ b/v7/src/microcode/uxtty.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxtty.c,v 1.7 1992/01/20 18:50:53 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxtty.c,v 1.8 1992/02/10 13:51:02 jinx Exp $
 
-Copyright (c) 1990, 1991 Massachusetts Institute of Technology
+Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -118,7 +118,7 @@ DEFUN (tputs_write_char, (c), char c)
 void
 DEFUN_VOID (UX_initialize_tty)
 {
-  extern int EXFUN (atoi, (const char *));
+  extern int EXFUN (atoi, (CONST char *));
   extern Tchannel EXFUN (OS_open_fd, (int fd));
   input_channel = (OS_open_fd (STDIN_FILENO));
   (CHANNEL_INTERNAL (input_channel)) = 1;
@@ -188,7 +188,7 @@ DEFUN_VOID (UX_initialize_tty)
     tty_command_clear = "\f";
   else
     {
-      extern void EXFUN (tputs, (const char *, int, void (*) (char)));
+      extern void EXFUN (tputs, (CONST char *, int, void (*) (char)));
       char * command = tputs_output_scan;
       tputs (tty_command_clear, tty_y_size, tputs_write_char);
       (*tputs_output_scan++) = '\0';