diff options
Diffstat (limited to 'libf2c/libU77')
47 files changed, 53 insertions, 352 deletions
diff --git a/libf2c/libU77/access_.c b/libf2c/libU77/access_.c index fefdebb0d8d..a2439e825a9 100644 --- a/libf2c/libU77/access_.c +++ b/libf2c/libU77/access_.c @@ -45,17 +45,9 @@ Boston, MA 02111-1307, USA. */ # define F_OK 0 #endif -#ifdef KR_headers -void g_char (); - -integer G77_access_0 (name, mode, Lname, Lmode) - char *name, *mode; - ftnlen Lname, Lmode; -#else void g_char(const char *a, ftnlen alen, char *b); integer G77_access_0 (const char *name, const char *mode, ftnlen Lname, ftnlen Lmode) -#endif { char *buff; char *bp, *blast; diff --git a/libf2c/libU77/alarm_.c b/libf2c/libU77/alarm_.c index e7f9c2ddcc4..fd3842a425a 100644 --- a/libf2c/libU77/alarm_.c +++ b/libf2c/libU77/alarm_.c @@ -29,32 +29,18 @@ Boston, MA 02111-1307, USA. */ #ifndef RETSIGTYPE /* we shouldn't rely on this... */ -#ifdef KR_headers -#define RETSIGTYPE int -#else #define RETSIGTYPE void #endif -#endif typedef RETSIGTYPE (*sig_type)(); -#ifdef KR_headers -extern sig_type signal(); -#else #include <signal.h> typedef int (*sig_proc)(int); -#endif #ifndef SIG_ERR #define SIG_ERR ((sig_type) -1) #endif -#ifdef KR_headers -integer G77_alarm_0 (seconds, proc) - integer *seconds; - sig_type proc; -#else integer G77_alarm_0 (integer *seconds, sig_proc proc) -#endif { int status; #if defined (HAVE_ALARM) && defined (SIGALRM) diff --git a/libf2c/libU77/chdir_.c b/libf2c/libU77/chdir_.c index 9bd53fb95d7..a071a6d7728 100644 --- a/libf2c/libU77/chdir_.c +++ b/libf2c/libU77/chdir_.c @@ -32,17 +32,9 @@ Boston, MA 02111-1307, USA. */ #include "f2c.h" -#ifdef KR_headers -void g_char (); - -integer G77_chdir_0 (name, Lname) - char *name; - ftnlen Lname; -#else void g_char(const char *a, ftnlen alen, char *b); integer G77_chdir_0 (const char *name, const ftnlen Lname) -#endif { char *buff; char *bp, *blast; diff --git a/libf2c/libU77/chmod_.c b/libf2c/libU77/chmod_.c index d482d9ed828..dfe0d361608 100644 --- a/libf2c/libU77/chmod_.c +++ b/libf2c/libU77/chmod_.c @@ -41,19 +41,10 @@ Boston, MA 02111-1307, USA. */ #define CHMOD_PATH "/bin/chmod" #endif -#ifdef KR_headers -extern void s_cat (); -void g_char (); - -integer G77_chmod_0 (name, mode, Lname, Lmode) - char *name, *mode; - ftnlen Lname, Lmode; -#else extern void s_cat(char *lp, char *rpp[], ftnlen rnp[], ftnlen *np, ftnlen ll); void g_char(const char *a, ftnlen alen, char *b); integer G77_chmod_0 (/* const */ char *name, /* const */ char *mode, const ftnlen Lname, const ftnlen Lmode) -#endif { char *buff; char *bp, *blast; diff --git a/libf2c/libU77/config.hin b/libf2c/libU77/config.hin index 2f20872a4cf..9848d06b0ec 100644 --- a/libf2c/libU77/config.hin +++ b/libf2c/libU77/config.hin @@ -33,6 +33,12 @@ /* Define as the path of the `chmod' program. */ #undef CHMOD_PATH +/* Define if your gettimeofday takes only one argument. */ +#undef GETTIMEOFDAY_ONE_ARGUMENT + +/* Define if your gettimeofday takes a time zome argument. */ +#undef HAVE_TIMEZONE + /* Define if you have the alarm function. */ #undef HAVE_ALARM @@ -54,6 +60,9 @@ /* Define if you have the getrusage function. */ #undef HAVE_GETRUSAGE +/* Define if you have the gettimeofday function. */ +#undef HAVE_GETTIMEOFDAY + /* Define if you have the getuid function. */ #undef HAVE_GETUID diff --git a/libf2c/libU77/configure b/libf2c/libU77/configure index f25748f99f0..6eb7f25a812 100755 --- a/libf2c/libU77/configure +++ b/libf2c/libU77/configure @@ -995,14 +995,13 @@ EOF fi - echo $ac_n "checking whether time.h and sys/time.h may both be included""... $ac_c" 1>&6 -echo "configure:1001: checking whether time.h and sys/time.h may both be included" >&5 +echo "configure:1000: checking whether time.h and sys/time.h may both be included" >&5 if eval "test \"`echo '$''{'ac_cv_header_time'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1006 "configure" +#line 1005 "configure" #include "confdefs.h" #include <sys/types.h> #include <sys/time.h> @@ -1011,7 +1010,7 @@ int main() { struct tm *tp; ; return 0; } EOF -if { (eval echo configure:1015: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then +if { (eval echo configure:1014: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_header_time=yes else @@ -1036,17 +1035,17 @@ for ac_hdr in limits.h unistd.h sys/time.h string.h stdlib.h \ do ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6 -echo "configure:1040: checking for $ac_hdr" >&5 +echo "configure:1039: checking for $ac_hdr" >&5 if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1045 "configure" +#line 1044 "configure" #include "confdefs.h" #include <$ac_hdr> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:1050: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:1049: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` if test -z "$ac_err"; then rm -rf conftest* @@ -1074,12 +1073,12 @@ done echo $ac_n "checking for working const""... $ac_c" 1>&6 -echo "configure:1078: checking for working const" >&5 +echo "configure:1077: checking for working const" >&5 if eval "test \"`echo '$''{'ac_cv_c_const'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1083 "configure" +#line 1082 "configure" #include "confdefs.h" int main() { @@ -1128,7 +1127,7 @@ ccp = (char const *const *) p; ; return 0; } EOF -if { (eval echo configure:1132: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then +if { (eval echo configure:1131: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_c_const=yes else @@ -1149,12 +1148,12 @@ EOF fi echo $ac_n "checking for size_t""... $ac_c" 1>&6 -echo "configure:1153: checking for size_t" >&5 +echo "configure:1152: checking for size_t" >&5 if eval "test \"`echo '$''{'ac_cv_type_size_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1158 "configure" +#line 1157 "configure" #include "confdefs.h" #include <sys/types.h> #if STDC_HEADERS @@ -1182,12 +1181,12 @@ EOF fi echo $ac_n "checking for mode_t""... $ac_c" 1>&6 -echo "configure:1186: checking for mode_t" >&5 +echo "configure:1185: checking for mode_t" >&5 if eval "test \"`echo '$''{'ac_cv_type_mode_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1191 "configure" +#line 1190 "configure" #include "confdefs.h" #include <sys/types.h> #if STDC_HEADERS @@ -1216,12 +1215,12 @@ fi echo $ac_n "checking for pid_t""... $ac_c" 1>&6 -echo "configure:1220: checking for pid_t" >&5 +echo "configure:1219: checking for pid_t" >&5 if eval "test \"`echo '$''{'ac_cv_type_pid_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1225 "configure" +#line 1224 "configure" #include "confdefs.h" #include <sys/types.h> #if STDC_HEADERS @@ -1249,12 +1248,12 @@ EOF fi echo $ac_n "checking for st_blksize in struct stat""... $ac_c" 1>&6 -echo "configure:1253: checking for st_blksize in struct stat" >&5 +echo "configure:1252: checking for st_blksize in struct stat" >&5 if eval "test \"`echo '$''{'ac_cv_struct_st_blksize'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1258 "configure" +#line 1257 "configure" #include "confdefs.h" #include <sys/types.h> #include <sys/stat.h> @@ -1262,7 +1261,7 @@ int main() { struct stat s; s.st_blksize; ; return 0; } EOF -if { (eval echo configure:1266: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then +if { (eval echo configure:1265: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_struct_st_blksize=yes else @@ -1283,12 +1282,12 @@ EOF fi echo $ac_n "checking for st_blocks in struct stat""... $ac_c" 1>&6 -echo "configure:1287: checking for st_blocks in struct stat" >&5 +echo "configure:1286: checking for st_blocks in struct stat" >&5 if eval "test \"`echo '$''{'ac_cv_struct_st_blocks'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1292 "configure" +#line 1291 "configure" #include "confdefs.h" #include <sys/types.h> #include <sys/stat.h> @@ -1296,7 +1295,7 @@ int main() { struct stat s; s.st_blocks; ; return 0; } EOF -if { (eval echo configure:1300: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then +if { (eval echo configure:1299: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_struct_st_blocks=yes else @@ -1319,12 +1318,12 @@ else fi echo $ac_n "checking for st_rdev in struct stat""... $ac_c" 1>&6 -echo "configure:1323: checking for st_rdev in struct stat" >&5 +echo "configure:1322: checking for st_rdev in struct stat" >&5 if eval "test \"`echo '$''{'ac_cv_struct_st_rdev'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1328 "configure" +#line 1327 "configure" #include "confdefs.h" #include <sys/types.h> #include <sys/stat.h> @@ -1332,7 +1331,7 @@ int main() { struct stat s; s.st_rdev; ; return 0; } EOF -if { (eval echo configure:1336: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then +if { (eval echo configure:1335: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_struct_st_rdev=yes else @@ -1353,12 +1352,12 @@ EOF fi echo $ac_n "checking whether struct tm is in sys/time.h or time.h""... $ac_c" 1>&6 -echo "configure:1357: checking whether struct tm is in sys/time.h or time.h" >&5 +echo "configure:1356: checking whether struct tm is in sys/time.h or time.h" >&5 if eval "test \"`echo '$''{'ac_cv_struct_tm'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1362 "configure" +#line 1361 "configure" #include "confdefs.h" #include <sys/types.h> #include <time.h> @@ -1366,7 +1365,7 @@ int main() { struct tm *tp; tp->tm_sec; ; return 0; } EOF -if { (eval echo configure:1370: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then +if { (eval echo configure:1369: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_struct_tm=time.h else @@ -1388,7 +1387,7 @@ fi echo $ac_n "checking for gethostname in -lsocket""... $ac_c" 1>&6 -echo "configure:1392: checking for gethostname in -lsocket" >&5 +echo "configure:1391: checking for gethostname in -lsocket" >&5 ac_lib_var=`echo socket'_'gethostname | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 @@ -1396,7 +1395,7 @@ else ac_save_LIBS="$LIBS" LIBS="-lsocket $LIBS" cat > conftest.$ac_ext <<EOF -#line 1400 "configure" +#line 1399 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -1407,7 +1406,7 @@ int main() { gethostname() ; return 0; } EOF -if { (eval echo configure:1411: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:1410: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -1433,12 +1432,12 @@ for ac_func in symlink getcwd getwd lstat gethostname strerror clock \ getrusage times alarm getlogin getgid getuid kill link ttyname do echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 -echo "configure:1437: checking for $ac_func" >&5 +echo "configure:1436: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1442 "configure" +#line 1441 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func(); below. */ @@ -1461,7 +1460,7 @@ $ac_func(); ; return 0; } EOF -if { (eval echo configure:1465: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:1464: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else @@ -1490,12 +1489,12 @@ done for ac_func in gettimeofday do echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 -echo "configure:1494: checking for $ac_func" >&5 +echo "configure:1493: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1499 "configure" +#line 1498 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func(); below. */ @@ -1518,7 +1517,7 @@ $ac_func(); ; return 0; } EOF -if { (eval echo configure:1522: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:1521: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else @@ -1544,19 +1543,19 @@ done if test "$ac_cv_func_gettimeofday" = yes; then echo $ac_n "checking for struct timezone""... $ac_c" 1>&6 -echo "configure:1548: checking for struct timezone" >&5 +echo "configure:1547: checking for struct timezone" >&5 if eval "test \"`echo '$''{'g77_cv_struct_timezone'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1553 "configure" +#line 1552 "configure" #include "confdefs.h" #include <sys/time.h> int main() { struct timezone tz; ; return 0; } EOF -if { (eval echo configure:1560: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then +if { (eval echo configure:1559: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* g77_cv_struct_timezone=yes else @@ -1577,7 +1576,7 @@ EOF else cat > conftest.$ac_ext <<EOF -#line 1581 "configure" +#line 1580 "configure" #include "confdefs.h" #ifdef TIME_WITH_SYS_TIME @@ -1600,7 +1599,7 @@ main () exit (0); } EOF -if { (eval echo configure:1604: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null +if { (eval echo configure:1603: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null then cat >> confdefs.h <<\EOF #define HAVE_TIMEZONE 1 @@ -1616,12 +1615,12 @@ fi fi echo $ac_n "checking whether gettimeofday can accept two arguments""... $ac_c" 1>&6 -echo "configure:1620: checking whether gettimeofday can accept two arguments" >&5 +echo "configure:1619: checking whether gettimeofday can accept two arguments" >&5 if eval "test \"`echo '$''{'emacs_cv_gettimeofday_two_arguments'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1625 "configure" +#line 1624 "configure" #include "confdefs.h" #ifdef TIME_WITH_SYS_TIME @@ -1647,7 +1646,7 @@ int main() { gettimeofday (&time, DUMMY); ; return 0; } EOF -if { (eval echo configure:1651: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:1650: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* emacs_cv_gettimeofday_two_arguments=yes else diff --git a/libf2c/libU77/configure.in b/libf2c/libU77/configure.in index 13fa524129f..fefc1940788 100644 --- a/libf2c/libU77/configure.in +++ b/libf2c/libU77/configure.in @@ -70,17 +70,6 @@ fi dnl Checks for header files. AC_HEADER_STDC -dnl We could do this if we didn't know we were using gcc -dnl AC_MSG_CHECKING(for prototype-savvy compiler) -dnl AC_CACHE_VAL(ac_cv_sys_proto, -dnl [AC_TRY_LINK(, -dnl dnl looks screwy because TRY_LINK expects a function body -dnl [return 0;} int foo (int * bar) {], -dnl ac_cv_sys_proto=yes, -dnl [ac_cv_sys_proto=no -dnl AC_DEFINE(KR_headers)])]) -dnl AC_MSG_RESULT($ac_cv_sys_proto) - AC_HEADER_TIME AC_CHECK_HEADERS(limits.h unistd.h sys/time.h string.h stdlib.h \ sys/param.h sys/times.h) diff --git a/libf2c/libU77/ctime_.c b/libf2c/libU77/ctime_.c index a855cb59539..c80f6f6866b 100644 --- a/libf2c/libU77/ctime_.c +++ b/libf2c/libU77/ctime_.c @@ -39,14 +39,7 @@ Boston, MA 02111-1307, USA. */ /* may need sys/time.h & long arg for stime (bsd, svr1-3) */ -#ifdef KR_headers -/* Character */ void G77_ctime_0 (chtime, Lchtime, xstime) - char *chtime; - longint * xstime; - ftnlen Lchtime; -#else /* Character */ void G77_ctime_0 (char *chtime, const ftnlen Lchtime, longint * xstime) -#endif { int i, l; int s_copy (); diff --git a/libf2c/libU77/datetime_.c b/libf2c/libU77/datetime_.c index 62b06b6ad3b..68fe411464d 100644 --- a/libf2c/libU77/datetime_.c +++ b/libf2c/libU77/datetime_.c @@ -33,11 +33,7 @@ Boston, MA 02111-1307, USA. */ #endif #include "f2c.h" -#ifdef KR_headers -VOID s_copy (); -#else void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb); -#endif int G77_date_and_time_0 (char *date, char *fftime, char *zone, integer *values, ftnlen date_len, diff --git a/libf2c/libU77/dtime_.c b/libf2c/libU77/dtime_.c index 19100e698de..ab821d7ad6b 100644 --- a/libf2c/libU77/dtime_.c +++ b/libf2c/libU77/dtime_.c @@ -51,12 +51,7 @@ Boston, MA 02111-1307, USA. */ different to all others. */ static long clk_tck = 0; -#ifdef KR_headers -double G77_dtime_0 (tarray) - real tarray[2]; -#else double G77_dtime_0 (real tarray[2]) -#endif { #if defined (_WIN32) static int win32_platform = -1; diff --git a/libf2c/libU77/etime_.c b/libf2c/libU77/etime_.c index 88eead3fbb4..b613e89a89d 100644 --- a/libf2c/libU77/etime_.c +++ b/libf2c/libU77/etime_.c @@ -51,12 +51,7 @@ Boston, MA 02111-1307, USA. */ different to all others. */ static long clk_tck = 0; -#ifdef KR_headers -double G77_etime_0 (tarray) - real tarray[2]; -#else double G77_etime_0 (real tarray[2]) -#endif { #if defined (_WIN32) static int win32_platform = -1; diff --git a/libf2c/libU77/fgetc_.c b/libf2c/libU77/fgetc_.c index 49f39830d2c..66a3e2d6341 100644 --- a/libf2c/libU77/fgetc_.c +++ b/libf2c/libU77/fgetc_.c @@ -26,14 +26,7 @@ Boston, MA 02111-1307, USA. */ #include "f2c.h" #include "fio.h" -#ifdef KR_headers -integer G77_fgetc_0 (lunit, c, Lc) - integer *lunit; - ftnlen Lc; /* should be 1 */ - char *c; -#else integer G77_fgetc_0 (const integer *lunit, char *c, ftnlen Lc) -#endif { int err; FILE *f = f__units[*lunit].ufd; @@ -56,13 +49,7 @@ integer G77_fgetc_0 (const integer *lunit, char *c, ftnlen Lc) return 0; } } -#ifdef KR_headers -integer G77_fget_0 (c, Lc) - ftnlen Lc; /* should be 1 */ - char *c; -#else integer G77_fget_0 (char *c, const ftnlen Lc) -#endif { integer five = 5; diff --git a/libf2c/libU77/flush1_.c b/libf2c/libU77/flush1_.c index 451915debac..71b09c7bbbe 100644 --- a/libf2c/libU77/flush1_.c +++ b/libf2c/libU77/flush1_.c @@ -25,16 +25,9 @@ Boston, MA 02111-1307, USA. */ /* This flushes a single unit, c.f. libI77 version. */ -#ifdef KR_headers -extern integer G77_fnum_0 (); - -/* Subroutine */ int G77_flush1_0 (lunit) - integer *lunit; -#else extern integer G77_fnum_0 (integer *); /* Subroutine */ int G77_flush1_0 (const integer *lunit) -#endif { if (*lunit>=MXUNIT || *lunit<0) err(1,101,"flush"); diff --git a/libf2c/libU77/fnum_.c b/libf2c/libU77/fnum_.c index 0a3ba013e06..cdd3399f43b 100644 --- a/libf2c/libU77/fnum_.c +++ b/libf2c/libU77/fnum_.c @@ -22,12 +22,7 @@ Boston, MA 02111-1307, USA. */ #include "f2c.h" #include "fio.h" -#ifdef KR_headers -integer G77_fnum_0 (lunit) - integer *lunit; -#else integer G77_fnum_0 (integer *lunit) -#endif { if (*lunit>=MXUNIT || *lunit<0) err(1,101,"fnum"); diff --git a/libf2c/libU77/fputc_.c b/libf2c/libU77/fputc_.c index 5a1109e8d4f..fe527e5112f 100644 --- a/libf2c/libU77/fputc_.c +++ b/libf2c/libU77/fputc_.c @@ -26,14 +26,7 @@ Boston, MA 02111-1307, USA. */ #include "f2c.h" #include "fio.h" -#ifdef KR_headers -integer G77_fputc_0 (lunit, c, Lc) - integer *lunit; - ftnlen Lc; /* should be 1 */ - char *c; -#else integer G77_fputc_0 (const integer *lunit, const char *c, const ftnlen Lc) -#endif { int err; FILE *f = f__units[*lunit].ufd; @@ -51,13 +44,7 @@ integer G77_fputc_0 (const integer *lunit, const char *c, const ftnlen Lc) return 0; } -#ifdef KR_headers -integer G77_fput_0 (c, Lc) - ftnlen Lc; /* should be 1 */ - char *c; -#else integer G77_fput_0 (const char *c, const ftnlen Lc) -#endif { integer six = 6; diff --git a/libf2c/libU77/fstat_.c b/libf2c/libU77/fstat_.c index da5434ad0b7..cf64d4e3c9c 100644 --- a/libf2c/libU77/fstat_.c +++ b/libf2c/libU77/fstat_.c @@ -26,17 +26,9 @@ Boston, MA 02111-1307, USA. */ #include <sys/types.h> #include <sys/stat.h> -#ifdef KR_headers -extern integer G77_fnum_0 (); - -integer G77_fstat_0 (lunit, statb) - integer *lunit; - integer statb[13]; -#else extern integer G77_fnum_0 (const integer *); integer G77_fstat_0 (const integer *lunit, integer statb[13]) -#endif { int err; struct stat buf; diff --git a/libf2c/libU77/gerror_.c b/libf2c/libU77/gerror_.c index 6f5943c1dce..61c00523abe 100644 --- a/libf2c/libU77/gerror_.c +++ b/libf2c/libU77/gerror_.c @@ -32,14 +32,8 @@ Boston, MA 02111-1307, USA. */ extern char *sys_errlist []; # define strerror(i) (sys_errlist[i]) #endif -#ifdef KR_headers -extern void s_copy (); -/* Subroutine */ int G77_gerror_0 (str, Lstr) - char *str; ftnlen Lstr; -#else extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb); /* Subroutine */ int G77_gerror_0 (char *str, ftnlen Lstr) -#endif { char * s; diff --git a/libf2c/libU77/getcwd_.c b/libf2c/libU77/getcwd_.c index e757803896a..4b1c8a98fbc 100644 --- a/libf2c/libU77/getcwd_.c +++ b/libf2c/libU77/getcwd_.c @@ -37,14 +37,8 @@ Boston, MA 02111-1307, USA. */ extern char *getcwd (); #endif -#ifdef KR_headers -extern void s_copy (); -integer G77_getcwd_0 (str, Lstr) - char *str; ftnlen Lstr; -#else extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb); integer G77_getcwd_0 (char *str, const ftnlen Lstr) -#endif { int i; char *ret; @@ -62,14 +56,8 @@ integer G77_getcwd_0 (char *str, const ftnlen Lstr) # include <sys/param.h> extern char *getwd (); -#ifdef KR_headers -extern VOID s_copy (); -integer G77_getcwd_0 (str, Lstr) - char *str; ftnlen Lstr; -#else extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb); integer G77_getcwd_0 (char *str, const ftnlen Lstr) -#endif { char pathname[MAXPATHLEN]; size_t l; @@ -84,14 +72,8 @@ integer G77_getcwd_0 (char *str, const ftnlen Lstr) #else /* !HAVE_GETWD && !HAVE_GETCWD */ -#ifdef KR_headers -extern VOID s_copy (); -integer G77_getcwd_0 (str, Lstr) - char *str; ftnlen Lstr; -#else extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb); integer G77_getcwd_0 (char *str, const ftnlen Lstr) -#endif { return errno = ENOSYS; } diff --git a/libf2c/libU77/getgid_.c b/libf2c/libU77/getgid_.c index b489bacc6ed..b831fc218f4 100644 --- a/libf2c/libU77/getgid_.c +++ b/libf2c/libU77/getgid_.c @@ -26,11 +26,7 @@ Boston, MA 02111-1307, USA. */ #include <errno.h> /* for ENOSYS */ #include "f2c.h" -#ifdef KR_headers -integer G77_getgid_0 () -#else integer G77_getgid_0 (void) -#endif { #if defined (HAVE_GETGID) return getgid (); diff --git a/libf2c/libU77/getlog_.c b/libf2c/libU77/getlog_.c index 82cb564a67a..98310144eab 100644 --- a/libf2c/libU77/getlog_.c +++ b/libf2c/libU77/getlog_.c @@ -41,14 +41,8 @@ Boston, MA 02111-1307, USA. */ /* SGI also has character*(*) function getlog() */ -#ifdef KR_headers -extern VOID s_copy (); -/* Subroutine */ int G77_getlog_0 (str, Lstr) - char *str; ftnlen Lstr; -#else extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb); /* Subroutine */ int G77_getlog_0 (char *str, const ftnlen Lstr) -#endif { size_t i; char *p; diff --git a/libf2c/libU77/getpid_.c b/libf2c/libU77/getpid_.c index fa484785957..c31cc048e48 100644 --- a/libf2c/libU77/getpid_.c +++ b/libf2c/libU77/getpid_.c @@ -25,11 +25,7 @@ Boston, MA 02111-1307, USA. */ #include <sys/types.h> #include "f2c.h" -#ifdef KR_headers -integer G77_getpid_0 () -#else integer G77_getpid_0 (void) -#endif { return getpid (); } diff --git a/libf2c/libU77/getuid_.c b/libf2c/libU77/getuid_.c index 408ff0ab600..7db9c5928c2 100644 --- a/libf2c/libU77/getuid_.c +++ b/libf2c/libU77/getuid_.c @@ -26,11 +26,7 @@ Boston, MA 02111-1307, USA. */ #include <errno.h> /* for ENOSYS */ #include "f2c.h" -#ifdef KR_headers -integer G77_getuid_0 () -#else integer G77_getuid_0 (void) -#endif { #if defined (HAVE_GETUID) return getuid (); diff --git a/libf2c/libU77/gmtime_.c b/libf2c/libU77/gmtime_.c index 8036b5aabe4..0c4e6a9c579 100644 --- a/libf2c/libU77/gmtime_.c +++ b/libf2c/libU77/gmtime_.c @@ -33,12 +33,7 @@ Boston, MA 02111-1307, USA. */ #endif #include "f2c.h" -#ifdef KR_headers -/* Subroutine */ int G77_gmtime_0 (xstime, tarray) - integer *xstime, tarray[9]; -#else /* Subroutine */ int G77_gmtime_0 (const integer * xstime, integer tarray[9]) -#endif { struct tm *lt; time_t stime = *xstime; diff --git a/libf2c/libU77/idate_.c b/libf2c/libU77/idate_.c index 572efd956eb..b4c29f2e366 100644 --- a/libf2c/libU77/idate_.c +++ b/libf2c/libU77/idate_.c @@ -37,12 +37,7 @@ Boston, MA 02111-1307, USA. */ /* libU77 one: */ -#ifdef KR_headers -/* Subroutine */ int G77_idate_0 (iarray) - int iarray[3]; -#else /* Subroutine */ int G77_idate_0 (int iarray[3]) -#endif { struct tm *lt; time_t tim; diff --git a/libf2c/libU77/ierrno_.c b/libf2c/libU77/ierrno_.c index 557b53a4664..ed7d4e7ec4f 100644 --- a/libf2c/libU77/ierrno_.c +++ b/libf2c/libU77/ierrno_.c @@ -22,11 +22,7 @@ Boston, MA 02111-1307, USA. */ #include <errno.h> #include "f2c.h" -#ifdef KR_headers -integer G77_ierrno_0 () -#else integer G77_ierrno_0 (void) -#endif { return errno; } diff --git a/libf2c/libU77/irand_.c b/libf2c/libU77/irand_.c index 2bf14ccee26..83496891a21 100644 --- a/libf2c/libU77/irand_.c +++ b/libf2c/libU77/irand_.c @@ -31,12 +31,7 @@ Boston, MA 02111-1307, USA. */ /* Note this is per SunOS -- other s may have no arg. */ -#ifdef KR_headers -integer G77_irand_0 (flag) - integer *flag; -#else integer G77_irand_0 (integer *flag) -#endif { switch (*flag) { case 0: diff --git a/libf2c/libU77/isatty_.c b/libf2c/libU77/isatty_.c index 92c33468f53..3d803b34d28 100644 --- a/libf2c/libU77/isatty_.c +++ b/libf2c/libU77/isatty_.c @@ -25,16 +25,9 @@ Boston, MA 02111-1307, USA. */ #include "f2c.h" #include "fio.h" -#ifdef KR_headers -extern integer G77_fnum_0 (); - -logical G77_isatty_0 (lunit) - integer *lunit; -#else extern integer G77_fnum_0 (integer *); logical G77_isatty_0 (integer *lunit) -#endif { if (*lunit>=MXUNIT || *lunit<0) err(1,101,"isatty"); diff --git a/libf2c/libU77/itime_.c b/libf2c/libU77/itime_.c index ad47872dc8d..8fbfcc394fc 100644 --- a/libf2c/libU77/itime_.c +++ b/libf2c/libU77/itime_.c @@ -33,12 +33,7 @@ Boston, MA 02111-1307, USA. */ #endif #include "f2c.h" -#ifdef KR_headers -/* Subroutine */ int G77_itime_0 (tarray) - integer tarray[3]; -#else /* Subroutine */ int G77_itime_0 (integer tarray[3]) -#endif { struct tm *lt; time_t tim; diff --git a/libf2c/libU77/kill_.c b/libf2c/libU77/kill_.c index 99197bd02e7..d133fa562f9 100644 --- a/libf2c/libU77/kill_.c +++ b/libf2c/libU77/kill_.c @@ -26,12 +26,7 @@ Boston, MA 02111-1307, USA. */ /* fixme: bsd, svr1-3 use int, not pid_t */ -#ifdef KR_headers -integer G77_kill_0 (pid, signum) - integer *pid, *signum; -#else integer G77_kill_0 (const integer *pid, const integer *signum) -#endif { #if defined (HAVE_KILL) return kill ((pid_t) *pid, *signum) ? errno : 0; diff --git a/libf2c/libU77/link_.c b/libf2c/libU77/link_.c index 003fac8ffe2..1f46e2e893c 100644 --- a/libf2c/libU77/link_.c +++ b/libf2c/libU77/link_.c @@ -34,16 +34,9 @@ Boston, MA 02111-1307, USA. */ #include <errno.h> /* for ENOSYS */ #include "f2c.h" -#ifdef KR_headers -void g_char (); - -integer G77_link_0 (path1, path2, Lpath1, Lpath2) - char *path1, *path2; ftnlen Lpath1, Lpath2; -#else void g_char(const char *a, ftnlen alen, char *b); integer G77_link_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2) -#endif { #if defined (HAVE_LINK) char *buff1, *buff2; diff --git a/libf2c/libU77/lstat_.c b/libf2c/libU77/lstat_.c index 801f6aad1af..5a1831bbc13 100644 --- a/libf2c/libU77/lstat_.c +++ b/libf2c/libU77/lstat_.c @@ -30,18 +30,9 @@ Boston, MA 02111-1307, USA. */ /* lstat isn't posix */ -#ifdef KR_headers -void g_char(); - -integer G77_lstat_0 (name, statb, Lname) - char *name; - integer statb[13]; - ftnlen Lname; -#else void g_char(const char *a, ftnlen alen, char *b); integer G77_lstat_0 (const char *name, integer statb[13], const ftnlen Lname) -#endif { #if HAVE_LSTAT char *buff; diff --git a/libf2c/libU77/ltime_.c b/libf2c/libU77/ltime_.c index d4afa878cea..ea5b1b9911c 100644 --- a/libf2c/libU77/ltime_.c +++ b/libf2c/libU77/ltime_.c @@ -33,12 +33,7 @@ Boston, MA 02111-1307, USA. */ #endif #include "f2c.h" -#ifdef KR_headers -/* Subroutine */ int G77_ltime_0 (xstime, tarray) - integer *xstime, tarray[9]; -#else /* Subroutine */ int G77_ltime_0 (const integer * xstime, integer tarray[9]) -#endif { struct tm *lt; time_t stime = *xstime; diff --git a/libf2c/libU77/mclock_.c b/libf2c/libU77/mclock_.c index 6b7e81b1e04..cf6abb44988 100644 --- a/libf2c/libU77/mclock_.c +++ b/libf2c/libU77/mclock_.c @@ -33,11 +33,7 @@ Boston, MA 02111-1307, USA. */ /* Reported by wd42ej@sgi83.wwb.noaa.gov (Russ Jones AUTO-Sun3) on AIX. */ -#ifdef KR_headers -longint G77_mclock_0 () -#else longint G77_mclock_0 (void) -#endif { #if HAVE_CLOCK return clock (); diff --git a/libf2c/libU77/perror_.c b/libf2c/libU77/perror_.c index 26d8582dbcc..1d3c3f2ec69 100644 --- a/libf2c/libU77/perror_.c +++ b/libf2c/libU77/perror_.c @@ -28,12 +28,7 @@ Boston, MA 02111-1307, USA. */ #endif #include "f2c.h" -#ifdef KR_headers -/* Subroutine */ int G77_perror_0 (str, Lstr) - char *str; ftnlen Lstr; -#else /* Subroutine */ int G77_perror_0 (const char *str, const ftnlen Lstr) -#endif { char buff[1000]; char *bp, *blast; diff --git a/libf2c/libU77/rand_.c b/libf2c/libU77/rand_.c index 165aee1220c..55604615b0b 100644 --- a/libf2c/libU77/rand_.c +++ b/libf2c/libU77/rand_.c @@ -34,12 +34,7 @@ Boston, MA 02111-1307, USA. */ /* Note this is per SunOS -- other s may have no arg. */ -#ifdef KR_headers -double G77_rand_0 (flag) - integer *flag; -#else double G77_rand_0 (integer *flag) -#endif { switch (*flag) { case 0: diff --git a/libf2c/libU77/rename_.c b/libf2c/libU77/rename_.c index 9583001c421..335b592aa21 100644 --- a/libf2c/libU77/rename_.c +++ b/libf2c/libU77/rename_.c @@ -29,16 +29,9 @@ Boston, MA 02111-1307, USA. */ #include <errno.h> #include "f2c.h" -#ifdef KR_headers -void g_char (); - -integer G77_rename_0 (path1, path2, Lpath1, Lpath2) - char *path1, *path2; ftnlen Lpath1, Lpath2; -#else void g_char(const char *a, ftnlen alen, char *b); integer G77_rename_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2) -#endif { char *buff1, *buff2; char *bp, *blast; diff --git a/libf2c/libU77/sleep_.c b/libf2c/libU77/sleep_.c index 36e1b8d9a7b..081bc5b7bca 100644 --- a/libf2c/libU77/sleep_.c +++ b/libf2c/libU77/sleep_.c @@ -25,12 +25,7 @@ Boston, MA 02111-1307, USA. */ #include "f2c.h" /* Subroutine */ -#ifdef KR_headers -int G77_sleep_0 (seconds) - integer *seconds; -#else int G77_sleep_0 (const integer *seconds) -#endif { (void) sleep ((unsigned int) *seconds); return 0; diff --git a/libf2c/libU77/srand_.c b/libf2c/libU77/srand_.c index 8edc62e4fe0..12280187e2c 100644 --- a/libf2c/libU77/srand_.c +++ b/libf2c/libU77/srand_.c @@ -25,12 +25,7 @@ Boston, MA 02111-1307, USA. */ #include "f2c.h" /* Subroutine */ -#ifdef KR_headers -int G77_srand_0 (seed) - integer *seed; -#else int G77_srand_0 (const integer *seed) -#endif { srand ((unsigned int) *seed); return 0; diff --git a/libf2c/libU77/stat_.c b/libf2c/libU77/stat_.c index b24f3892221..4c89248c2df 100644 --- a/libf2c/libU77/stat_.c +++ b/libf2c/libU77/stat_.c @@ -27,18 +27,9 @@ Boston, MA 02111-1307, USA. */ #include <sys/stat.h> #include "f2c.h" -#ifdef KR_headers -void g_char (); - -integer G77_stat_0 (name, statb, Lname) - char *name; - integer statb[13]; - ftnlen Lname; -#else void g_char(const char *a, ftnlen alen, char *b); integer G77_stat_0 (const char *name, integer statb[13], const ftnlen Lname) -#endif { char *buff; char *bp, *blast; diff --git a/libf2c/libU77/symlnk_.c b/libf2c/libU77/symlnk_.c index 4b0bf24541d..6f24841c13e 100644 --- a/libf2c/libU77/symlnk_.c +++ b/libf2c/libU77/symlnk_.c @@ -33,16 +33,9 @@ Boston, MA 02111-1307, USA. */ #endif #include "f2c.h" -#ifdef KR_headers -void g_char (); - -integer G77_symlnk_0 (path1, path2, Lpath1, Lpath2) - char *path1, *path2; ftnlen Lpath1, Lpath2; -#else void g_char(const char *a, ftnlen alen, char *b); integer G77_symlnk_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2) -#endif { #if HAVE_SYMLINK char *buff1, *buff2; diff --git a/libf2c/libU77/sys_clock_.c b/libf2c/libU77/sys_clock_.c index 86ee2fdefd5..d35faad053c 100644 --- a/libf2c/libU77/sys_clock_.c +++ b/libf2c/libU77/sys_clock_.c @@ -43,12 +43,7 @@ Boston, MA 02111-1307, USA. */ #include <errno.h> /* for ENOSYS */ #include "f2c.h" -#ifdef KR_headers -int G77_system_clock_0 (count, count_rate, count_max) - integer *count, *count_rate, *count_max; -#else int G77_system_clock_0 (integer *count, integer *count_rate, integer *count_max) -#endif { #if defined (HAVE_TIMES) struct tms buffer; diff --git a/libf2c/libU77/time_.c b/libf2c/libU77/time_.c index 73894b0b413..621da3aa9b7 100644 --- a/libf2c/libU77/time_.c +++ b/libf2c/libU77/time_.c @@ -35,11 +35,7 @@ Boston, MA 02111-1307, USA. */ /* As well as this external function some compilers have an intrinsic subroutine which fills a character argument (which is the VMS way) -- caveat emptor. */ -#ifdef KR_headers -longint G77_time_0 () -#else longint G77_time_0 (void) -#endif { /* There are potential problems with the cast of the time_t here. */ return time (NULL); diff --git a/libf2c/libU77/ttynam_.c b/libf2c/libU77/ttynam_.c index c7610fb0c87..3175f053902 100644 --- a/libf2c/libU77/ttynam_.c +++ b/libf2c/libU77/ttynam_.c @@ -35,16 +35,9 @@ Boston, MA 02111-1307, USA. */ #include <errno.h> /* for ENOSYS */ #include "f2c.h" -#ifdef KR_headers -extern void s_copy (); -extern integer G77_fnum_0 (); -/* Character */ void G77_ttynam_0 (ret_val, ret_val_len, lunit) - char *ret_val; ftnlen ret_val_len; integer *lunit -#else extern integer G77_fnum_0 (integer *lunit); extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb); /* Character */ void G77_ttynam_0 (char *ret_val, ftnlen ret_val_len, integer *lunit) -#endif { #if defined (HAVE_TTYNAME) size_t i; diff --git a/libf2c/libU77/umask_.c b/libf2c/libU77/umask_.c index 203acfa916f..347da2d8554 100644 --- a/libf2c/libU77/umask_.c +++ b/libf2c/libU77/umask_.c @@ -23,12 +23,7 @@ Boston, MA 02111-1307, USA. */ #include <sys/stat.h> #include "f2c.h" -#ifdef KR_headers -integer G77_umask_0 (mask) - integer *mask; -#else integer G77_umask_0 (integer *mask) -#endif { return umask ((mode_t) *mask); } diff --git a/libf2c/libU77/unlink_.c b/libf2c/libU77/unlink_.c index cd00559b29a..004002e5d1d 100644 --- a/libf2c/libU77/unlink_.c +++ b/libf2c/libU77/unlink_.c @@ -33,16 +33,9 @@ Boston, MA 02111-1307, USA. */ #endif #include "f2c.h" -#ifdef KR_headers -void g_char (); - -integer G77_unlink_0 (str, Lstr) - char *str; ftnlen Lstr; -#else void g_char(const char *a, ftnlen alen, char *b); integer G77_unlink_0 (const char *str, const ftnlen Lstr) -#endif { char *buff; char *bp, *blast; diff --git a/libf2c/libU77/vxtidate_.c b/libf2c/libU77/vxtidate_.c index e5963af42e6..6211f135adf 100644 --- a/libf2c/libU77/vxtidate_.c +++ b/libf2c/libU77/vxtidate_.c @@ -38,12 +38,7 @@ Boston, MA 02111-1307, USA. */ /* VMS style: */ /* Subroutine */ -#ifdef KR_headers -int G77_vxtidate_y2kbug_0 (m, d, y) - integer *y, *m, *d; -#else int G77_vxtidate_y2kbug_0 (integer *m, integer *d, integer *y) -#endif { struct tm *lt; time_t tim; @@ -57,12 +52,7 @@ int G77_vxtidate_y2kbug_0 (integer *m, integer *d, integer *y) #ifdef PIC extern const char *G77_Non_Y2K_Compliance_Message; -# ifdef KR_headers -int G77_vxtidate_y2kbuggy_0 (m, d, y) - integer *y, *m, *d; -# else int G77_vxtidate_y2kbuggy_0 (integer *m, integer *d, integer *y) -# endif { extern int G77_abort_0(); fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message); diff --git a/libf2c/libU77/vxttime_.c b/libf2c/libU77/vxttime_.c index e45cc05d055..99d3f50edce 100644 --- a/libf2c/libU77/vxttime_.c +++ b/libf2c/libU77/vxttime_.c @@ -39,13 +39,7 @@ Boston, MA 02111-1307, USA. */ #include "f2c.h" /* Subroutine */ -#ifdef KR_headers -void G77_vxttime_0 (chtime, Lchtime) - char chtime[8]; - ftnlen Lchtime; -#else void G77_vxttime_0 (char chtime[8], const ftnlen Lchtime) -#endif { time_t tim; char *ctim; |