protoize headers.

diff --git a/v7/src/microcode/artutl.c b/v7/src/microcode/artutl.c
index 35afbebb023fe8827e127f2a03f2bd6f1c673c6b..6628948d5d81b015f7d644d58b972f74b1295c12 100644 (file)
--- a/v7/src/microcode/artutl.c
+++ b/v7/src/microcode/artutl.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/artutl.c,v 1.5 1990/09/08 01:38:18 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/artutl.c,v 1.6 1992/01/15 02:17:15 jinx Exp $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -40,15 +40,13 @@ MIT in each case. */
 /* Conversions between Scheme types and C types. */
 
 long
-fixnum_to_long (fixnum)
-     SCHEME_OBJECT fixnum;
+DEFUN (fixnum_to_long, (fixnum), SCHEME_OBJECT fixnum)
 {
   return (FIXNUM_TO_LONG (fixnum));
 }
 
 SCHEME_OBJECT
-double_to_fixnum (value)
-     double value;
+DEFUN (double_to_fixnum, (value), double value)
 {
 #ifdef HAVE_DOUBLE_TO_LONG_BUG
   fast long temp = ((long) value);
@@ -59,22 +57,21 @@ double_to_fixnum (value)
 }
 \f
 Boolean
-integer_to_long_p (n)
-     fast SCHEME_OBJECT n;
+DEFUN (integer_to_long_p, (n), fast SCHEME_OBJECT n)
 {
   return ((FIXNUM_P (n)) || (BIGNUM_TO_LONG_P (n)));
 }
 
 long
-integer_to_long (n)
-     fast SCHEME_OBJECT n;
+DEFUN (integer_to_long,
+       (n),
+       fast SCHEME_OBJECT n)
 {
   return ((FIXNUM_P (n)) ? (FIXNUM_TO_LONG (n)) : (bignum_to_long (n)));
 }
 
 SCHEME_OBJECT
-long_to_integer (number)
-     long number;
+DEFUN (long_to_integer, (number), long number)
 {
   return
     ((LONG_TO_FIXNUM_P (number))
@@ -83,22 +80,19 @@ long_to_integer (number)
 }
 
 Boolean
-integer_to_double_p (n)
-     fast SCHEME_OBJECT n;
+DEFUN (integer_to_double_p, (n), fast SCHEME_OBJECT n)
 {
   return ((FIXNUM_P (n)) || (BIGNUM_TO_DOUBLE_P (n)));
 }
 
 double
-integer_to_double (n)
-     fast SCHEME_OBJECT n;
+DEFUN (integer_to_double, (n), fast SCHEME_OBJECT n)
 {
   return ((FIXNUM_P (n)) ? (FIXNUM_TO_DOUBLE (n)) : (bignum_to_double (n)));
 }
 
 SCHEME_OBJECT
-double_to_integer (x)
-     fast double x;
+DEFUN (double_to_integer, (x), fast double x)
 {
   return
     ((DOUBLE_TO_FIXNUM_P (x))
@@ -107,8 +101,7 @@ double_to_integer (x)
 }
 
 double
-double_truncate (x)
-     fast double x;
+DEFUN (double_truncate, (x), fast double x)
 {
   double iptr;
   (void) modf (x, (&iptr));
@@ -118,8 +111,7 @@ double_truncate (x)
 /* Conversions between Scheme types and Scheme types. */
 
 SCHEME_OBJECT
-bignum_to_fixnum (bignum)
-     fast SCHEME_OBJECT bignum;
+DEFUN (bignum_to_fixnum, (bignum), fast SCHEME_OBJECT bignum)
 {
   return
     ((BIGNUM_TO_FIXNUM_P (bignum))
@@ -128,8 +120,7 @@ bignum_to_fixnum (bignum)
 }
 
 SCHEME_OBJECT
-bignum_to_integer (bignum)
-     fast SCHEME_OBJECT bignum;
+DEFUN (bignum_to_integer, (bignum), fast SCHEME_OBJECT bignum)
 {
   return
     ((BIGNUM_TO_FIXNUM_P (bignum))
@@ -138,8 +129,7 @@ bignum_to_integer (bignum)
 }
 
 SCHEME_OBJECT
-bignum_to_flonum (bignum)
-     fast SCHEME_OBJECT bignum;
+DEFUN (bignum_to_flonum, (bignum), fast SCHEME_OBJECT bignum)
 {
   return
     ((BIGNUM_TO_FLONUM_P (bignum))
@@ -148,8 +138,7 @@ bignum_to_flonum (bignum)
 }
 \f
 Boolean
-flonum_integer_p (x)
-     SCHEME_OBJECT x;
+DEFUN (flonum_integer_p, (x), SCHEME_OBJECT x)
 {
   extern double modf ();
   double iptr;
@@ -157,24 +146,23 @@ flonum_integer_p (x)
 }
 
 SCHEME_OBJECT
-flonum_floor (x)
-     SCHEME_OBJECT x;
+DEFUN (flonum_floor, (x), SCHEME_OBJECT x)
 {
   extern double floor ();
   return (double_to_flonum (floor (FLONUM_TO_DOUBLE (x))));
 }
 
 SCHEME_OBJECT
-flonum_ceiling (x)
-     SCHEME_OBJECT x;
+DEFUN (flonum_ceiling, (x), SCHEME_OBJECT x)
 {
   extern double ceil ();
   return (double_to_flonum (ceil (FLONUM_TO_DOUBLE (x))));
 }
 
 SCHEME_OBJECT
-flonum_round (x)
-     SCHEME_OBJECT x;
+DEFUN (flonum_round,
+       (x),
+       SCHEME_OBJECT x)
 {
   fast double dx = (FLONUM_TO_DOUBLE (x));
   return
@@ -182,8 +170,7 @@ flonum_round (x)
 }
 
 SCHEME_OBJECT
-flonum_normalize (x)
-     SCHEME_OBJECT x;
+DEFUN (flonum_normalize, (x), SCHEME_OBJECT x)
 {
   extern double frexp ();
   int exponent;
@@ -193,9 +180,7 @@ flonum_normalize (x)
 }
 
 SCHEME_OBJECT
-flonum_denormalize (x, e)
-     SCHEME_OBJECT x;
-     SCHEME_OBJECT e;
+DEFUN (flonum_denormalize, (x, e), SCHEME_OBJECT x AND SCHEME_OBJECT e)
 {
   extern double ldexp ();
   return (double_to_flonum (ldexp ((FLONUM_TO_DOUBLE (x)),
@@ -205,30 +190,25 @@ flonum_denormalize (x, e)
 /* Generic Integer Operations */
 
 Boolean
-integer_zero_p (n)
-     SCHEME_OBJECT n;
+DEFUN (integer_zero_p, (n), SCHEME_OBJECT n)
 {
   return ((FIXNUM_P (n)) ? (FIXNUM_ZERO_P (n)) : (BIGNUM_ZERO_P (n)));
 }
 
 Boolean
-integer_negative_p (n)
-     SCHEME_OBJECT n;
+DEFUN (integer_negative_p, (n), SCHEME_OBJECT n)
 {
   return ((FIXNUM_P (n)) ? (FIXNUM_NEGATIVE_P (n)) : (BIGNUM_NEGATIVE_P (n)));
 }
 
 Boolean
-integer_positive_p (n)
-     SCHEME_OBJECT n;
+DEFUN (integer_positive_p, (n), SCHEME_OBJECT n)
 {
   return ((FIXNUM_P (n)) ? (FIXNUM_POSITIVE_P (n)) : (BIGNUM_POSITIVE_P (n)));
 }
 
 Boolean
-integer_equal_p (n, m)
-     SCHEME_OBJECT n;
-     SCHEME_OBJECT m;
+DEFUN (integer_equal_p, (n, m), SCHEME_OBJECT n AND SCHEME_OBJECT m)
 {
   return
     ((FIXNUM_P (n))
@@ -239,9 +219,7 @@ integer_equal_p (n, m)
 }
 
 Boolean
-integer_less_p (n, m)
-     SCHEME_OBJECT n;
-     SCHEME_OBJECT m;
+DEFUN (integer_less_p, (n, m), SCHEME_OBJECT n AND SCHEME_OBJECT m)
 {
   return
     ((FIXNUM_P (n))
@@ -252,8 +230,7 @@ integer_less_p (n, m)
 }
 
 SCHEME_OBJECT
-integer_negate (n)
-     SCHEME_OBJECT n;
+DEFUN (integer_negate, (n), SCHEME_OBJECT n)
 {
   return
     ((FIXNUM_P (n))
@@ -262,9 +239,7 @@ integer_negate (n)
 }
 \f
 SCHEME_OBJECT
-integer_add (n, m)
-     SCHEME_OBJECT n;
-     SCHEME_OBJECT m;
+DEFUN (integer_add, (n, m), SCHEME_OBJECT n AND SCHEME_OBJECT m)
 {
   return
     ((FIXNUM_P (n))
@@ -276,8 +251,7 @@ integer_add (n, m)
 }
 
 SCHEME_OBJECT
-integer_add_1 (n)
-     SCHEME_OBJECT n;
+DEFUN (integer_add_1, (n), SCHEME_OBJECT n)
 {
   return
     ((FIXNUM_P (n))
@@ -286,9 +260,7 @@ integer_add_1 (n)
 }
 
 SCHEME_OBJECT
-integer_subtract (n, m)
-     SCHEME_OBJECT n;
-     SCHEME_OBJECT m;
+DEFUN (integer_subtract, (n, m), SCHEME_OBJECT n AND SCHEME_OBJECT m)
 {
   return
     ((FIXNUM_P (n))
@@ -300,8 +272,7 @@ integer_subtract (n, m)
 }
 
 SCHEME_OBJECT
-integer_subtract_1 (n)
-     SCHEME_OBJECT n;
+DEFUN (integer_subtract_1, (n), SCHEME_OBJECT n)
 {
   return
     ((FIXNUM_P (n))
@@ -310,9 +281,7 @@ integer_subtract_1 (n)
 }
 
 SCHEME_OBJECT
-integer_multiply (n, m)
-     SCHEME_OBJECT n;
-     SCHEME_OBJECT m;
+DEFUN (integer_multiply, (n, m), SCHEME_OBJECT n AND SCHEME_OBJECT m)
 {
   extern SCHEME_OBJECT Mul ();
   fast SCHEME_OBJECT result;
@@ -331,11 +300,9 @@ integer_multiply (n, m)
 }
 \f
 Boolean
-integer_divide (n, d, q, r)
-     SCHEME_OBJECT n;
-     SCHEME_OBJECT d;
-     SCHEME_OBJECT * q;
-     SCHEME_OBJECT * r;
+DEFUN (integer_divide, (n, d, q, r),
+       SCHEME_OBJECT n AND SCHEME_OBJECT d
+       AND SCHEME_OBJECT * q AND SCHEME_OBJECT * r)
 {
   if (FIXNUM_P (n))
     {
@@ -396,9 +363,7 @@ integer_divide (n, d, q, r)
 }
 \f
 SCHEME_OBJECT
-integer_quotient (n, d)
-     SCHEME_OBJECT n;
-     SCHEME_OBJECT d;
+DEFUN (integer_quotient, (n, d), SCHEME_OBJECT n AND SCHEME_OBJECT d)
 {
   if (FIXNUM_P (n))
     {
@@ -435,9 +400,7 @@ integer_quotient (n, d)
 }
 
 SCHEME_OBJECT
-integer_remainder (n, d)
-     SCHEME_OBJECT n;
-     SCHEME_OBJECT d;
+DEFUN (integer_remainder, (n, d), SCHEME_OBJECT n AND SCHEME_OBJECT d)
 {
   if (FIXNUM_P (n))
     {

diff --git a/v7/src/microcode/fixnum.c b/v7/src/microcode/fixnum.c
index c83dcbda531b1a625f8766402ed4d8eb942a612b..e0ab8b6634f130270bab0d46a087cac0a4c0d7a9 100644 (file)
--- a/v7/src/microcode/fixnum.c
+++ b/v7/src/microcode/fixnum.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fixnum.c,v 9.33 1991/02/16 07:54:26 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fixnum.c,v 9.34 1992/01/15 02:20:49 jinx Exp $
 
 Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -41,8 +41,7 @@ MIT in each case. */
 #include "prims.h"
 
 static long
-arg_fixnum (n)
-     int n;
+DEFUN (arg_fixnum, (n), int n)
 {
   fast SCHEME_OBJECT argument = (ARG_REF (n));
   if (! (FIXNUM_P (argument)))
@@ -51,8 +50,7 @@ arg_fixnum (n)
 }
 
 static long
-arg_unsigned_fixnum (n)
-     int n;
+DEFUN (arg_unsigned_fixnum, (n), int n)
 {
   fast SCHEME_OBJECT argument = (ARG_REF (n));
   if (! (FIXNUM_P (argument)))

diff --git a/v7/src/microcode/flonum.c b/v7/src/microcode/flonum.c
index 715fe95fe660838171b9491736f9c6097a59f597..e41180ff28a6cdb3303a77034fde42feb4625980 100644 (file)
--- a/v7/src/microcode/flonum.c
+++ b/v7/src/microcode/flonum.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/flonum.c,v 9.36 1991/10/17 09:09:38 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/flonum.c,v 9.37 1992/01/15 02:22:53 jinx Exp $
 
-Copyright (c) 1987-91 Massachusetts Institute of Technology
+Copyright (c) 1987-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -41,8 +41,7 @@ MIT in each case. */
 extern int errno;
 
 double
-arg_flonum (arg_number)
-     int arg_number;
+DEFUN (arg_flonum, (arg_number), int arg_number)
 {
   SCHEME_OBJECT argument = (ARG_REF (arg_number));
   if (! (FLONUM_P (argument)))
@@ -56,8 +55,7 @@ arg_flonum (arg_number)
 #define FLONUM_SIZE ((BYTES_TO_WORDS (sizeof (double))) + 1)
 
 SCHEME_OBJECT
-double_to_flonum (value)
-     double value;
+DEFUN (double_to_flonum, (value), double value)
 {
   ALIGN_FLOAT (Free);
   Primitive_GC_If_Needed (FLONUM_SIZE);
@@ -187,7 +185,7 @@ DEFINE_PRIMITIVE ("FLONUM-ATAN", Prim_flonum_atan, 1, 1, 0)
 
 DEFINE_PRIMITIVE ("FLONUM-ATAN2", Prim_flonum_atan2, 2, 2, 0)
 {
-  extern double atan2 ();
+  extern double EXFUN (atan2, (double, double));
   PRIMITIVE_HEADER (2);
   {
     fast double y = (arg_flonum (1));
@@ -203,7 +201,7 @@ DEFINE_PRIMITIVE ("FLONUM-SQRT", Prim_flonum_sqrt, 1, 1, 0)
 
 DEFINE_PRIMITIVE ("FLONUM-EXPT", Prim_flonum_expt, 2, 2, 0)
 {
-  extern double pow ();
+  extern double EXFUN (pow, (double, double));
   PRIMITIVE_HEADER (2);
   FLONUM_RESULT (pow ((arg_flonum (1)), (arg_flonum (2))));
 }