diff options
524 files changed, 0 insertions, 72280 deletions
diff --git a/gnu/egcs/libf2c/ChangeLog b/gnu/egcs/libf2c/ChangeLog deleted file mode 100644 index 6d16a161263..00000000000 --- a/gnu/egcs/libf2c/ChangeLog +++ /dev/null @@ -1,1551 +0,0 @@ -Mon May 10 17:33:45 1999 Craig Burley <craig@jcb-sc.com> - - Update to Netlib version of 1999-05-10: - * changes.netlib, libF77/Version.c, libF77/abort_.c, - libF77/c_log.c, libF77/ef1asc_.c, libF77/s_rnge.c, - libF77/s_stop.c, libI77/Version.c, libI77/open.c, - readme.netlib: See changes.netlib for info. - -Fri May 7 9:33:55 1999 Donn Terry (donn@interix.com) - - * libU77/dtime_.c (G77_dtime_0): Standard-conforming error check. - * libU77/etime_.c (G77_etime_0): Likewise. - -Mon May 3 19:15:07 1999 Craig Burley <craig@jcb-sc.com> - - * libU77/u77-test.f (main): Declare ABORT as intrinsic. - -1999-05-03 Craig Burley <craig@jcb-sc.com> - - * libU77/u77-test.f: Reverse order of two arguments to - CTIME_subr, DTIME_subr, ETIME_subr, and TTYNAM_subr. - -Mon May 3 11:21:35 1999 Craig Burley <craig@jcb-sc.com> - - * libF77/c_log.c: Cope with partial overlap a la z_log.c. - (Change likely to be made to netlib version shortly.) - -Mon May 3 11:12:38 1999 Craig Burley <craig@jcb-sc.com> - - Update to Netlib version of 1999-05-03: - * changes.netlib, libF77/Version.c, libF77/c_cos.c, - libF77/c_exp.c, libF77/c_sin.c, libF77/d_cnjg.c, - libF77/dtime_.c, libF77/etime_.c, libF77/getenv_.c, - libF77/r_cnjg.c, libF77/z_cos.c, libF77/z_exp.c, - libF77/z_log.c, libF77/z_sin.c, libI77/Version.c, - libI77/err.c, libI77/open.c, libI77/rdfmt.c, readme.netlib: - See changes.netlib for info. - -Mon May 3 10:52:53 1999 Craig Burley <craig@jcb-sc.com> - - * libF77/c_cos.c, libF77/c_div.c, libF77/c_exp.c, libF77/c_log.c, - libF77/c_sin.c, libF77/c_sqrt.c, libF77/d_cnjg.c, libF77/pow_zi.c, - libF77/r_cnjg.c, libF77/z_cos.c, libF77/z_div.c, libF77/z_exp.c, - libF77/z_log.c, libF77/z_sin.c, libF77/z_sqrt.c: Revert back to - netlib versions as of f2c-19990501. - -Sun May 2 01:38:50 1999 Craig Burley <craig@jcb-sc.com> - - * libU77/u77-test.f (main): Declare FTELL as intrinsic. - -Sun May 2 01:13:37 1999 Craig Burley <craig@jcb-sc.com> - - * libU77/u77-test.f (main): List libU77 intrinsics - not currently tested. - Add tests for TIME8, CTIME_subr, IARGC, TTYNAM_subr, - GETENV, FDATE_subr, DTIME_subr, ETIME_subr, DATE, ITIME, - FTELL_subr, MCLOCK, MCLOCK8, and CPU_TIME. - Trim blanks off the ends of some printed strings. - -Sun May 2 00:06:45 1999 Craig Burley <craig@jcb-sc.com> - - * libU77/u77-test.f (main): Just warn about FSTAT gid - disagreement, as it's expected on some systems. - -Sat May 1 23:57:18 1999 Craig Burley <craig@jcb-sc.com> - - * libU77/u77-test.f: Generalize sum-checking to - use a new function, which allows for some slop. - Clean up some commentary. - (issum): The new function. - (sgladd): Deleted subroutine. - -Sat May 1 23:35:18 1999 Craig Burley <craig@jcb-sc.com> - - * libU77/u77-test.f: Modify to be more like testsuite - version, bringing patches to that version here. - Add suitable commentary. - -Sat Apr 24 11:02:48 1999 Craig Burley <craig@jcb-sc.com> - - * Makefile.in (s-libi77, s-libf77, s-libu77): Revert - the patch from <hjl@gnu.org>, as per the commentary. - -Sat Apr 17 17:33:30 1999 Craig Burley <craig@jcb-sc.com> - - From H.J. Lu <hjl@gnu.org>: - * Makefile.in (s-libi77): Depend on i77. - (s-libf77): Depend on i77. - (s-libu77): Depend on u77. - -Mon Apr 12 21:38:14 1999 Mumit Khan <khan@xraylith.wisc.edu> - - * libF77/getenv_.c: Include stdlib.h. - -Sun Apr 11 23:30:42 1999 Mumit Khan <khan@xraylith.wisc.edu> - - * libU77/dtime_.c: Handle all variants of WIN32. - * libU77/etime_.c: Likewise. - - * libU77/aclocal.m4: New file. - * libU77/configure.in (LIBU77_HAVE_STRUCT_TIMEZONE): Add test. - * libU77/acconfig.h (HAVE_STRUCT_TIMEZONE): Add macro. - * libU77/datetime_c.c (G77_date_and_time_0): Use. - * libU77/config.hin: Regenerate. - * libU77/configure: Likewise. - -Wed Mar 31 13:50:24 1999 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * configure.in (extra_includes): Don't attempt to calculate the - location of the gcc src or obj directories. Instead rely on - precomputed variables, $topsrcdir and $r, to obtain these values. - Set -I flags appropriately. - -1999-03-28 Dave Love <fx@gnu.org> - - * configure: Rebuilt. - - * configure.in: Fix integer size tests: sanity check first; search - toplevel include dir (from Rainer Orth); only mess with ac_cpp - once; use -DIN_GCC -DHAVE_CONFIG_H. - - * configure.in: Use `g77_cv_...', not `f77_cv_...'. - -Wed Mar 24 22:41:28 1999 Mumit Khan <khan@xraylith.wisc.edu> - - * configure.in (AC_PREREQ): Update to 2.13. - (AC_EXEEXT): Call to find possible file extension. - (compiler_name): Use. - * configure: Regenerate. - -1999-03-17 Craig Burley <craig@jcb-sc.com> - - Update to Netlib version of 1999-03-17: - * libF77/F77_aloc.c, libF77/README.netlib, libF77/dtime_.c, - libF77/etime_.c, libF77/signal1.h0, libI77/Version.c, - libI77/dfe.c, libI77/endfile.c, libI77/lread.c, - libI77/sfe.c, readme.netlib, changes.netlib: - See changes.netlib for info. - -1999-03-06 Craig Burley <craig@jcb-sc.com> - - Mon Dec 21 23:03:54 1998 Hans-Peter Nilsson <hp@axis.se>: - * libI77/Makefile.in (all *.o except VersionI.o): Added dependence - on respective .c file. - * libF77/Makefile.in (all .o except VersionF.o): Similarly. - * libU77/Makefile.in (date_.o): Added dependence on date_.c - -1999-03-06 Craig Burley <craig@jcb-sc.com> - - Rename non-Y2K-compliant intrinsics: - * Makefile.in (F2CEXT): Now two versions each of - `date' and `vxtidt'. - * f2cext.c (date_, vxtidate_): Split into two versions, - the existing one calling a new "y2kbuggy" routine that - does not exist, and a new one named with "y2kbug" that - calls the newly renamed underlying routine. - * libU77/date_.c (G77_date_y2kbug_0): Rename from G77_date_0. - * libU77/vxtidate_.c (G77_vxtidate_y2kbug_0): Rename from - G77_vxtidate_0. - * libU77/Version.c: Bump version. - -1999-03-03 Craig Burley <craig@jcb-sc.com> - - * libU77/vxtidate_.c (G77_vxtidate_0): Truncate - year to last two digits (i.e. modulo 100), as per - documentation and (documented) Y2K non-compliance. - -1999-02-20 Craig Burley <craig@jcb-sc.com> - - From Krister Walfridsson <cato@df.lth.se>: - * libU77/lstat_.c (G77_lstat_0): Kill spurious setting - of element 6 to zero, as it undid the previous setting. - -1999-02-15 Craig Burley <craig@jcb-sc.com> - - * f2c.h: Delete my (old) email address. - -1999-02-14 Craig Burley <craig@jcb-sc.com> - - * libU77/Version.c: Bump ("update" below) to date of last change. - * libI77/Version.c: Bump to date of last change. - -Tue Feb 9 18:13:30 GMT 1999 Nathan Sidwell <nathan@acm.org> - - * Makefile.in (distclean): Move Makefile deletion to end of - commands. - -1999-01-15 Dave Love <fx@gnu.org> - - * libU77/datetime_.c (G77_date_and_time_0): Return milliseconds as - such, not as microseconds. - (s_copy): Declare. - -1998-11-26 Manfred Hollstein <manfred@s-direktnet.de> - - * configure.in (compiler_name): Add check to detect if this - language's compiler has been built. - * configure: Regenerate. - -Mon Nov 23 16:52:22 1998 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * configure.in: Use AC_PREREQ(2.12.1). - * libF77/configure.in: Likewise. - * libI77/configure.in: Likewise. - * libU77/configure.in: Likewise. - -1998-10-24 Dave Love <d.love@dl.ac.uk> - - * configure.in: Touch g2c.h in AC_OUTPUT after multilib - disturbance. - -1998-10-23 Dave Love <d.love@dl.ac.uk> - - * f2cext.c: Include math.h. - -1998-10-19 Dave Love <d.love@dl.ac.uk> - - * configure: Regenerate. - - * configure.in: Use AC_CONFIG_AUX_DIR. - -1998-10-12 Dave Love <fx@gnu.org> - - * libI77/open.c (_XOPEN_SOURCE): Define. - -1998-10-12 Dave Love <fx@gnu.org> - - * Makefile.in (.SUFFIXES): Don't use any. - (all-unilib): New target, like old all. - (all): Use it. - (.PHONY): Add all-unilib. - -1998-10-12 Dave Love <d.love@dl.ac.uk> - - * configure.in: Reorder Makefile, g2c.h in AC_OUTPUT. - -Tue Oct 6 21:16:58 1998 Jeffrey A Law (law@cygnus.com) - - * Makefile.in: Revert last patch. - -Mon Oct 5 01:16:10 1998 H.J. Lu (hjl@gnu.org) - - * Makefile.in (s-libi77): Depend on i77. - (s-libf77): Depend on i77. - (s-libu77): Depend on u77. - -1998-09-30 Dave Love <d.love@dl.ac.uk> - - * Makefile.in (f2cext.c): Depend on g2c.h. - -1998-09-30 Robert Lipe <robertl@dgii.com> - - * Makefile.in (all): Correct dependencies so --disable-multilibs - works again. - (distclean): Correct typo. - -1998-09-28 Dave Love <d.love@dl.ac.uk> - - * libI77/open.c: Back out part of last Netlib update affecting - scratch files which clashed with the g77 variations and broke - implicit endfile on rewind. - -1998-09-21 Dave Love <d.love@dl.ac.uk> - - * libI77/Version.c: Update. - -Mon Sep 21 12:27:27 1998 Robert Lipe <robertl@dgii.com> - - * Makefile.in (distclean, clean, uninstall, install, all): Add - multilib support. - * configure.in: Likewise. - * configure: Regenerate. - * libF77/Makefile.in, libU77/Makefile.in, libI77/Makefile.in (clean): - Explictly remove stamp in parent's directory. - -1998-09-20 Dave Love <d.love@dl.ac.uk> - - * libI77/sfe.c (e_wdfe): Set f__init to avoid spurious recursive - i/o error from formatted direct i/o. - -Thu Sep 10 14:57:25 1998 Kamil Iskra <iskra@student.uci.agh.edu.pl> - - * Makefile.in (install): Add missing "else true;". - -1998-09-09 Craig Burley <burley@gnu.org> - - * configure.in: Test $srcdir, not $subdir (probable typo). - Clarify commentary, fix a bit of spacing. - -1998-09-07 Dave Love <d.love@dl.ac.uk> - - * ChangeLog.egcs: Deleted. Entries merged here. - -1998-09-07 Dave Love <d.love@dl.ac.uk> - - * libI77/sfe.c, libI77/dfe.c: Revert last change. - -1998-09-06 Dave Love <d.love@dl.ac.uk> - - From Toon to fix spurious recursive i/o errors: - * libI77/sfe.c (e_wdfe): Set f__init. - - * libI77/dfe.c (c_dfe): Check and set f__init. - (s_rdfe, s_wdfe): Don't check and set f__init. - -Fri Sep 4 18:40:32 1998 Craig Burley <burley@gnu.org> - - * libU77/sys_clock_.c (G77_system_clock_0): Fix indentation. - -Tue Sep 1 10:06:06 1998 Craig Burley <burley@gnu.org> - - * libF77/Version.c: Update. - * libU77/Version.c: Update. - * libI77/Version.c: Update. - -Wed Aug 26 23:19:40 1998 Jeffrey A Law (law@cygnus.com) - - * Makefile.in (FLAGS_TO_PASS): Fix typo. - -1998-08-11 Dave Love <d.love@dl.ac.uk> - - * README: Update from Craig. - -1998-07-24 Dave Love <d.love@dl.ac.uk> - - * Makefile.in (s-libe77, ${srcdir}/configure, g2c.h, Makefile) - (config.status, rebuilt): Rely on VPATH, dropping explicit use of - $(srcdir) in various places. - -1998-07-19 Dave Love <d.love@dl.ac.uk> - - * Makefile.in (all): Depend on s-libe77, not e77. - (.PHONY): Remove e77. - -Thu Jul 16 00:58:52 1998 Jeffrey A Law (law@cygnus.com) - - * libU77/Makefile.in: Missed one config.h.in -> config.hin change. - - * g2c.hin: Renamed from g2c.h.in. - * Makefile.in, configure.in: Changed as needed. - * configure: Rebuilt. - - * libU77/config.hin: Renamed from libU77/config.h.in. - * Makefile.in, configure.in: Changed as needed. - * configure: Rebuilt. - -Tue Jul 14 21:35:30 1998 Gerald Pfeifer <pfeifer@dbai.tuwien.ac.at> - - * Makefile.in (all): Invoke $(MAKE) instead of just make. - -Tue Jul 14 02:16:34 1998 Jeffrey A Law (law@cygnus.com) - - * Makefile.in: stamp-lib* -> s-lib*. - * libU77/Makefile.in: Likewise. - * libF77/Makefile.in: Likewise. - * libI77/Makefile.in: Likewise. - - * libU77/Makefile.in (ALL_CFLAGS): Add -I$(F2C_H_DIR). - -Mon Jul 13 13:31:03 1998 Craig Burley <burley@gnu.org> - - * libU77/u77-test.f: Double-check ETIME results, just - like 0.5.24 does. - -1998-07-10 Dave Love <d.love@dl.ac.uk> - - * Makefile.in: Re-write build procedure mainly to honour - dependencies correctly but also allow making in the build - directory by configuring the relevant variables. The lib[FIU]77 - subdirs do dependency checking of their objects. Stamp files - dictate when to run (new) archive targets in subdirs. Some - tidying of variables. Supply full set of standard targets. - - * configure.in: Move much of testing to new configures in - subdirs. Tidy up handling of RANLIB etc. - - * stamp-h.in, libF77/configure.in, libI77/configure.in: - * libF77/configure, libI77/configure: New files. - - * libF77/Makefile.in, libI77/Makefile.in, libU77/Makefile.in: - Change in step with libf2c/Makefile.in. - -1998-07-09 Dave Love <d.love@dl.ac.uk> - - * libU77/Makefile.in (check): Wrap -lg2c ... -lm around $(LIBS) in - case of static link. - - * libU77/Version.c, libI77/Version.c: Update version info. - - * libU77/sys_clock_.c: Replace TIMES conditional stuff removed in - error by last change. - -1998-07-06 Mike Stump <mrs@wrs.com> - - * Makefile.in (clean): Don't remove Makefiles, that is done in - distclean. - -1998-07-06 Dave Love <d.love@dl.ac.uk> - - * libU77/Makefile.in (lib): Change variable lib to LIBS. - -1998-07-06 Robert Lipe <robertl@dgii.com> - - * libU77/configure.in: Look for -lsocket, add to LIBS if found. - - * libU77/Makefile.in (lib): Use LIBS from above. - -1998-07-05 Dave Love <d.love@dl.ac.uk> - - * f2cext.c (system_clock_): Remove (just f90 intrinsic). - - * Makefile.in (F2CEXT): Remove sclock. - (UOBJ): Add libU77/datetime_.o. - - * libU77/config.h.in: Add HAVE_GETTIMEOFDAY. - - * libU77/configure.in: Check for gettimeofday. - - * libU77/datetime_.c: New file. - - * libU77/sys_clock_.c: Allow optional args. - - * libU77/Makefile.in (G77DIR): Fix for current directory - structure. - (SRCS, OBJS): Add datetime. - - * libU77/u77-test.f: Call date_and_time. Call system_clock - omitting args. - -1998-06-29 Dave Love <d.love@dl.ac.uk> - - * libI77/wsfe.c (s_wsfe): Fix setting of f__curunit lost in - previous change. - * libI77/rsfe.c (s_rsfe): Likewise. - -Sat Jun 27 23:04:49 1998 Jeffrey A Law (law@cygnus.com) - - * Makefile.in (FLAGS_TO_PASS, case G2C_H_DIR): Use $(TARGET_SUBDIR) - instead of hardcoding "libraries". - -1998-06-26 Manfred Hollstein <manfred@s-direktnet.de> - - * Makefile.in (gcc_version_trigger): Add new macro. - (config.status): Add dependency upon $(gcc_version_trigger). - - * configure.in (gcc_version_trigger): New variable; initialize - using value from toplevel configure; add AC_SUBST for it. - (gcc_version): Change initialization to use this new variable. - * configure: Regenerate. - -1998-06-24 Manfred Hollstein <manfred@s-direktnet.de> - - * Makefile.in (version): Rename to gcc_version. - * configure.in (version): Likewise. - (gcc_version): Add code to use an option passed from parent configure. - * configure: Regenerate. - -1998-06-23 Dave Love <d.love@dl.ac.uk> - - * libI77/backspace.c, libI77/dfe.c, libI77/due.c, libI77/iio.c: - * libI77/lread.c, libI77/sfe.c, libI77/sue.c, libI77/wsfe.c: Update - to Netlib version of 1998-06-18. - -1998-06-21 Dave Love <d.love@dl.ac.uk> - - * configure.in (version, target_alias): Define. - - * Makefile.in (version, target_alias, libsubdir): Define. - (install): Remove check for libsubdir. - -Sat Jun 13 03:46:40 1998 Craig Burley <burley@gnu.org> - - * Makefile.in (install): Don't install if $(libsubdir) - is empty; issue a diagnostic saying top-level Makefile - must pass it in instead, and exit. - - * Makefile.in (g2c.h): Rename from f2c.h. - - * Makefile.in, libF77/Makefile.in, libI77/Makefile.in: - * libU77/Makefile.in: Rewrite config and var assignment - sections to be even more minimal than before, and to - more clearly documented what macros are expected to be - set and to what sorts of values. Eliminate CROSS and - related stuff, since there's no such things as CROSS - in egcs. Rename GCC_FOR_TARGET to CC throughout. - * Makefile.in (stamp-libi77, stamp-libf77, stamp-libu77): - Eliminate CROSS. - * configure.in: Eliminate CROSS. - - Rename libf2c.a and f2c.h to libg2c.a and g2c.h, - normalize and simplify g77/libg2c build process: - * Makefile.in: Remove all stuff pertaining to - installation, cleaning, and so on. Parent Makefile - does all that now. Pass F2C_H_DIR, - G2C_H_DIR, and GCC_H_DIR, the pathnames for the - directories containing f2c.h, g2c.h, and other - #include files, to subdirectory Makefiles. - (stamp-libf77, stamp-libi77, stamp-libu77): - Don't specify `-f Makefile' anymore, it's not needed - now that subdirectory makefile's from netlib are - renamed to makefile.netlib in g77 source (and to - makefile.ori by configuration process, in case they're - still around somehow). - (stamp-libe77): Don't make libE77 dir unless it doesn't - exist, if it does just delete all objects in it. - Compile using $(GCC_FOR_TARGET), not $(CC). - (rebuilt): Remove this and all subordinate targets, - as parent Makefile now handles all that. - (*clean): Remove. - * configure.in (Pad_UDread, ALWAYS_FLUSH, WANT_LEAD_0): - Remove these and commentary to new f2c.h file. - AC_OUTPUT g2c.h instead of f2c.h. Remove old commentary - regarding concatenation. - * g2c.h.in: Rename from f2c.h.in, add appropriate - commentary. - * f2c.h: New file, a wrapper for g2c.h that does - libg2c-specific stuff. - * libF77/Makefile.in, libI77/Makefile.in, libU77/Makefile.in: - Change $(ALL_CFLAGS) to use F2C_H_DIR, G2C_H_DIR, and GCC_H_DIR - macros. Remove F2C_H macro, replace use with explicit - dependencies on f2c.h and g2c.h. - (*clean): Remove. - -Mon Apr 27 22:52:31 1998 Richard Henderson <rth@cygnus.com> - - * libU77/ltime_.c: Bounce the ftnint argument through a local time_t. - * libU77/gmtime_.c: Likewise. - -Sun Apr 26 18:07:56 1998 Richard Henderson <rth@cygnus.com> - - * configure.in: Adjust include paths in F2C_INTEGER and F2C_LONGINT - tests to work out of the build directory. - -1998-05-20 Dave Love <d.love@dl.ac.uk> - - * Makefile.in ($(lib)): Use shell loop instead of unportable - make variable substitution. - -Tue May 19 12:50:27 1998 Craig Burley <burley@gnu.org> - - Break up main() into separate .o's so making and - linking against shared libraries with non-Fortran - main() routines is easier: - * Makefile.in (MISC): Add setarg.o and setsig.o. - * libF77/Makefile.in (MISC): Ditto. - * libF77/setarg.c: New file, contains f_setarg(). - * libF77/setsig.c: New file, contains f_setsig(). - * libF77/getarg_.c: Rename xarg* to f__xarg*. - * libF77/iargc_.c: Ditto - -Sat May 2 16:44:46 1998 Craig Burley <burley@gnu.org> - - * libF77/signal_.c, libI77/dfe.c, libI77/due.c, - libI77/wsfe.c: Tweaks to eliminate unnecessary - differences vs. netlib libf2c. - -Fri May 1 11:57:45 1998 Craig Burley <burley@gnu.org> - - Update to Netlib version of 1998-04-20: - * libF77/dtime_.c, libF77/etime_.c, libF77/h_dnnt.c, - libF77/h_nint.c, libF77/i_dnnt.c, libF77/i_nint.c, - libF77/main.c, libF77/s_paus.c, libF77/signal1.h0, - libI77/backspace.c, libI77/close.c, libI77/dfe.c, - libI77/endfile.c, libI77/err.c, libI77/fio.h, - libI77/iio.c, libI77/ilnw.c, libI77/lread.c, - libI77/lwrite.c, libI77/open.c, libI77/rawio.h, - libI77/sfe.c, libI77/util.c, libI77/wrtfmt.c, - libI77/wsfe.c, libI77/wsle.c, libI77/wsne.c: - See changes.netlib for info. - -Sun Apr 26 09:13:41 1998 Craig Burley <burley@gnu.org> - - * libU77/hostnm_.c (G77_hostnm_0): Fix off-by-one error - that was trashing the byte just beyond the CHARACTER*(*) - argument. - -Wed Mar 4 16:32:46 1998 Craig Burley <burley@gnu.org> - - * libU77/u77-test.f: Don't bother declaring etime. - Use `implicit none' and declare mask and lenstr. - Do ETIME/DTIME consistency check before loop, then - use loop to verify that dtime "ticks" at some point. - Check ETIME array-sum using single-precision add, to - avoid spurious complaint on systems (like x86) that - use more precision for intermediate results. - Fix `Results of ETIME and DTIME...' message to print - pertinent values (r1 and r2 instead of i and j). - Change loop from 10M to 1K repeated up to 1000 times - or until dtime "ticks". - Print the number of 1K loops needed to see this tick. - Answer a commented question. - Split up a long line of output and do other prettying. - Preset lognam in case GETLOG fails to overwrite it. - -Sat Feb 28 15:32:15 1998 Craig Burley <burley@gnu.org> - - * libI77/open.c (f_open): Use sizeof(buf) instead of - 256, for the usual reasons. - -1998-02-17 Dave Love <d.love@dl.ac.uk> - - * libU77/u77-test.f: Tweak some o/p. - - * libU77/Makefile.in (check): Use -L for new directory structure. - - * Makefile.in (check): Run the u77 check. - (config.status, Makefile): New targets. - -Wed Feb 11 01:46:20 1998 Manfred Hollstein <manfred@s-direktnet.de> - - * Makefile.in ($(lib)): Call $(AR) repeatedly to avoid overflowing - argument size limit on ancious System V. - -Sun Feb 8 00:32:17 1998 Manfred Hollstein <manfred@s-direktnet.de> - - * Makefile.in: Add `info install-info clean-info check dvi' targets. - -Mon Feb 2 11:08:49 1998 Richard Henderson <rth@cygnus.com> - - * configure.in: Update F2C_INTEGER and F2C_LONGINT tests - for the new placement in the hierarchy. - -Sun Feb 1 02:36:33 1998 Richard Henderson <rth@cygnus.com> - - * Previous contents of gcc/f/runtime moved into toplevel - "libf2c" directory. - -Sun Feb 1 01:42:47 1998 Mumit Khan <khan@xraylith.wisc.edu> - - * libU77/configure.in (getlogin,getgid,getuid, kill,link,ttyname): - Check. - * libU77/config.h.in (HAVE_GETLOGIN, HAVE_GETGID, HAVE_GETUID, - HAVE_KILL, HAVE_LINK, HAVE_TTYNAME): New defs. - * libU77/getlog_.c: Conditionalize for target platform. Set errno - to ENOSYS if target libc doesn't have the function. - * libU77/getgid_.c: Likewise. - * libU77/getuid_.c: Likewise. - * libU77/kill_.c: Likewise. - * libU77/link_.c: Likewise. - * libU77/ttynam_.c: Likewise. - -Sun Jan 18 20:01:37 1998 Toon Moene <toon@moene.indiv.nluug.nl> - - * libI77/backspace.c: (f_back): Use type `uiolen' to determine size - of record length specifier. - -Sat Jan 17 22:40:31 1998 Mumit Khan <khan@xraylith.wisc.edu> - - * libU77/configure.in (sys/param.h,sys/times.h): Check. - (times,alarm): Likewise. - * libU77/config.h.in (HAVE_SYS_PARAM_H, HAVE_SYS_TIMES_H) - (HAVE_ALARM, HAVE_TIMES): New defs. - * libU77/alarm_.c: Conditionalize for target platform. Set errno - to ENOSYS if target libc doesn't have the function. - * libU77/dtime_.c: Likewise. - * libU77/etime_.c: Likewise. - * libU77/sys_clock_.c: Likewise. - - * configure.in (NON_UNIX_STDIO): Define if MINGW32. - (NON_ANSI_RW_MODE): Do not define for CYGWIN32 or MINGW32. - - * libI77/rawio.h: Don't providing conflicting declarations for - read() and write(). MINGW32 header files use "const" quals. - - * libF77/s_paus.c: _WIN32 does not have pause(). - -Mon Apr 27 22:52:31 1998 Richard Henderson <rth@cygnus.com> - - * libU77/ltime_.c: Bounce the ftnint argument through a local time_t. - * libU77/gmtime_.c: Likewise. - -Sun Apr 26 18:07:56 1998 Richard Henderson <rth@cygnus.com> - - * configure.in: Adjust include paths in F2C_INTEGER and F2C_LONGINT - tests to work out of the build directory. - -Tue Dec 23 22:56:01 1997 Craig Burley <burley@gnu.org> - - * libF77/signal_.c (G77_signal_0): Return type is - now `void *', to cope with returning previous signal - handler on 64-bit systems like Alphas. - * f2cext.c (signal_): Changed accordingly. - -Tue Nov 18 09:49:04 1997 Mumit Khan (khan@xraylith.wisc.edu) - - * libI77/close.c (f_exit): Reset f__init so that f_clos does not - (incorrectly) think there is an I/O recursion when program is - interrupted. - -Sat Nov 1 18:03:42 1997 Jeffrey A Law (law@cygnus.com) - - * libF77/signal_.c: Undo last change until we can fix it right. - -Wed Oct 29 01:01:04 1997 Mumit Khan <khan@brahma.xraylith.wisc.edu> - - * configure.in: Set CC to CC_FOR_TARGET when cross-compiling. - -Fri Oct 24 11:15:22 1997 Mumit Khan <khan@brahma.xraylith.wisc.edu> - - * libI77/close.c (f_exit): Reset f__init so that f_clos does not - (incorrectly) think there is an I/O recursion when program is - interrupted. - -Wed Oct 15 10:06:29 1997 Richard Henderson <rth@cygnus.com> - - * libF77/signal_.c (G77_signal_0): Make return type sig_pf as well. - * libI77/fio.h: Include <string.h> if STDC_HEADERS. - * libU77/chmod_.c: Likewise. - -Tue Oct 7 18:22:10 1997 Richard Henderson <rth@cygnus.com> - - * Makefile.in (CGFLAGS): Don't force -g0. - * libF77/Makefile.in, libI77/Makefile.in, libU77/Makefile.in: Likewise. - -Mon Oct 6 14:16:46 1997 Jeffrey A Law (law@cygnus.com) - - * Makefile.in (distclean): Do a better job at cleaning up. - -1997-10-03 Dave Love <d.love@dl.ac.uk> - - * configure.in: Check for tempnam (best because it obeys TMPDIR). - * libI77/open.c: Use it. - * libI77/err.c: New message # 132. - -Wed Oct 1 01:46:16 1997 Philippe De Muyter <phdm@info.ucl.ac.be> - - * libU77/sys_clock_.c: File renamed from system_clock_.c. - * libU77/Makefile.in, Makefile.in : Reference sys_clock_.*, not - system_clock_.*. - * libU77/dtime_.c (clk_tck): Try also HZ macro. - * libU77/access.c (G77_access_0): Check malloc return value against 0, - not NULL. - * libU77/getlog_.c, libU77/ttynam_.c, libU77/chdir_.c: Ditto. - * libU77/chmod_.c, libU77/rename_.c: Ditto. - -Tue Sep 30 00:41:39 1997 Craig Burley <burley@gnu.ai.mit.edu> - - Do a better job of printing the offending FORMAT string - when producing a diagnostic: - * libI77/err.c (f__fmtlen): New variable to hold operating - length of format string. - (f__fatal): Use new variable to limit length of printed string. - * libI77/fmt.c (f_s): Don't skip spaces after closing paren, - so nicer message results (and nested case already skips them). - (pars_f): Record operating length of format string as indicated - by a successful call to f_s, or ad-hoc-calculate it if failure, - limiting the length to 80 characters (and stopping at NUL). - (do_fio): Use new variable to limit length of printed string. - * libI77/fmt.h (f__fmtlen): Declare new variable. - * libI77/lread.c (c_le): Set new variable to known length. - -Mon Sep 29 16:30:31 1997 Craig Burley <burley@gnu.ai.mit.edu> - - Update to Netlib version of 1997-09-23: - * libF77/dtime_.c (dtime_), libF77/etime_.c (dtime_): - Return `double' instead of `float' (these are not used - in g77's version of libf2c). - * libI77/fmt.c, libI77/fmt.h, libI77/rdfmt.c, libI77/wrtfmt.c: - Support machines with 64-bit pointers and 32-bit ints (e.g. - Linux on DEC Alpha). - -1997-09-19 Dave Love <d.love@dl.ac.uk> - - * libU77/dtime_.c (G77_dtime_0): Fix types in HAVE_GETRUSAGE case - so as not to truncate results to integer values. - * libU77/Version.c: Bump. - -Thu Sep 18 16:58:46 1997 Jeffrey A Law (law@cygnus.com) - - * Makefile.in (stamp-lib): Don't use '$?', explicitly - list the variables containing the object files to include - in libf2c.a - -Tue Sep 9 00:33:24 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Version 0.5.21 released. - -Mon Sep 8 19:39:01 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libI77/close.c (f_exit): Fix thinko, inverted test - of whether initialization done, so exiting now closes - open units again. - -Fri Sep 5 00:18:17 1997 Jeffrey A Law (law@cygnus.com) - - * Makefile.in (clean): Don't remove config.cache. - (distclean): Do it here instead. - -Tue Aug 26 20:14:08 1997 Robert Lipe (robertl@dgii.com) - - * hostnm_.c: Include errno.h - -Tue Aug 26 01:42:21 1997 Craig Burley <burley@gnu.ai.mit.edu> - - From Jim Wilson: - * configure.in: Make sure RANLIB_TEST is set also. - - From Robert Lipe <robertl@dgii.com>: - * libU77/getcwd_.c, libU77/hostnm_.c, libU77/lstat_.c: - Also #include <errno.h>, to define ENOSYS. - -Tue Aug 26 01:25:58 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Makefile.in (stamp-lib): Put all f2cext.c objects in - a temp directory named libE77, then `ar' them all at - once into libf2c.a, to get the job done a bit faster. - Still remove the objects (and libE77 directory) afterward. - -Mon Aug 25 23:26:05 1997 H.J. Lu (hjl@gnu.ai.mit.edu) - - * Makefile.in (mostlyclean, clean): Check if Makefile exists - before using it. Remove stamp-*. - (stamp-libi77, stamp-libf77, stamp-libu77): New. - (stamp-lib): Only depend on stamp-libi77 stamp-libf77 - stamp-libu77 - -Sun Aug 24 05:04:35 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libU77/rand_.c (G77_rand_0), libU77/dtime_.c (G77_dtime_0), - libU77/etime_.c (G77_etime_0), libU77/secnds_.c (G77_secnds_0), - libU77/second_.c (G77_second_0): Really return `double', not - `doublereal', since the result is cast to `float'. - * f2cext.c: (rand_, dtime_, etime_, secnds_, second_): Ditto. - (erf_, erfc_, besj0_, besj1_, besjn_, besy0_, besy1_, - besyn_, dbesj0_, dbesj1_, dbesjn_, dbesy0_, dbesy1_, - dbesyn_): All of these return `double', not `doublereal', - as they either have `float' or `double' results. - * libU77/bes.c (besj0_, besj1_, besjn_, besy0_, besy1_, - besyn_): Ditto. - * libU77/dbes.c (dbesj0_, dbesj1_, dbesjn_, dbesy0_, dbesy1_, - dbesyn_): Ditto. - - Update to Netlib version of 1997-08-16: - * libI77/iio.c: Fix bug in internal writes to an array - of character strings. - - * Makefile.in (UOBJ): Restore fixes made by Dan Pettet I - lost, which included the addition of mclock_.o already noted - below, plus adding symlnk_.o. - -Thu Aug 21 03:58:34 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Makefile.in (UOBJ): Add mclock_.o, thanks to Mumit Khan! - -1997-08-21 Dave Love <d.love@dl.ac.uk> - - * libU77/alarm_.c: Fix return type: `integer'. - -Mon Aug 11 20:12:42 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Makefile.in ($(lib), stamp-lib): Ensure that library - gets fully updated even if updating was aborted earlier. - - * libU77/hostnm_.c (G77_hostnm_0): Return ENOSYS and stuff - in errno if system has no gethostname() function. - - * libU77/lstat_.c (G77_lstat_0): Return ENOSYS and stuff - in errno if system has no lstat() function. - - * libU77/getcwd_.c (G77_getcwd_0): Return ENOSYS and stuff - in errno if system has no getcwd() or getwd() function. - Test HAVE_GETCWD properly. - - * libU77/symlnk_.c (G77_symlink_0): Return ENOSYS and stuff - in errno if system has no symlink() function. - - * libU77/mclock_.c (G77_mclock_0): Return -1 if system - has no clock() function. - -Mon Aug 11 01:55:36 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Makefile.in (F2CEXT): Add `alarm' to this list. - - * f2cext.c (alarm_): Fix some typos in this function. - Delete third `status' argument. - - * libU77/alarm_.c: Delete third `status' argument, - as caller gets this from function result; return - status value as function result for caller. - - * configure.in: Rename `ac_cv_struct_FILE' to - `g77_cv_struct_FILE' according to 1997-06-26 change. - -1997-08-06 Dave Love <d.love@dl.ac.uk> - - * libU77/vxtidate_.c: Correct day/month argument order. - * f2cext.c: Likewise. - -1997-07-07 Dave Love <d.love@dl.ac.uk> - - * f2cext.c: Add alarm_. - - * Makefile.in, libU77/Makefile.in: Add alarm_. - - * libU77/alarm_.c: New file. - -1997-06-26 Dave Love <d.love@dl.ac.uk> - - * configure.in: Generally use prefix `g77_' for cached values - we've invented, not `ac_'. - -Tue Jun 24 18:50:06 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libI77/ilnw.c (s_wsni): Call f_init() here. - (s_wsli): Ditto. - (e_wsli): Turn off "doing I/O" flag here. - -1997-06-20 Dave Love <d.love@dl.ac.uk> - - * runtime/configure.in: Check for cygwin32 after Mumit Khan (but - differently); if cygwin32 define NON_UNIX_STDIO and don't define - NON_ANSI_RW_MODES. - -Tue Jun 01 06:26:29 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libI77/rsne.c (nl_init): Don't call f_init() here, - since s_rsne() already does. - (c_lir): Call f_init() here instead. - * libI77/rsli.c (e_rsli): Turn off "doing I/O" flag here. - * libI77/sue.c (e_rsue): Ditto. - -Sun Jun 22 23:27:22 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libI77/fio.h (err): Mark I/O as no longer in progress - before returning a non-zero error indicator (since - that tells the caller to jump over the remaining I/O - calls, including the corresponding `e_whatever' call). - * libI77/err.c (endif): Ditto. - * libI77/sfe.c (e_wsfe): Ditto. - * libI77/lread.c (ERR): Ditto. - * libI77/lread.c (l_read): Ditto by having quad case - use ERR, not return, to return non-zero error code. - -Sat Jun 21 12:31:28 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libI77/open.c (fk_open): Temporarily turn off - "doing I/O" flag during f_open() call to avoid recursive - I/O error. - -Tue Jun 17 22:40:47 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * err.c, close.c, rewind.c, inquire.c, backspace.c, endfile.c, - iio.c, open.c, Version.c, sfe.c, wsle.c, rsne.c, sue.c, rsfe.c, - lread.c, wsfe.c, fio.h, due.c, dfe.c: Change f__init from - `flag' to `int' and to signal not just whether initialization - has happened (bit 0), but also whether I/O is in progress - already (bit 1). Consistently produce a clear diagnostic - in cases of recursive I/O. Avoid infinite recursion in - f__fatal, in case sig_die triggers another error. Don't - output info on internals if not initialized in f__fatal. Don't - bother closing units in f_exit if initialization hasn't - happened. - -Tue Jun 10 12:57:44 1997 Craig Burley <burley@gnu.ai.mit.edu> - - Update to Netlib version of 1997-06-09: - * libI77/err.c, libI77/lread.c, libI77/rdfmt.c, - libI77/wref.c: Move some #include's around. - -Mon Jun 9 18:11:56 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libU77/kill_.c (kill_): KR_headers version needed - `*' in front of args in decls. - -Sun May 25 03:16:53 1997 Craig Burley <burley@gnu.ai.mit.edu> - - Update to Netlib version of 1997-05-24: - * libF77/README, libF77/Version.c, libF77/main.c, - libF77/makefile, libF77/s_paus.c, libF77/signal1.h, - libF77/signal_.c, libF77/z_div.c, libI77/Notice, - libI77/README, libI77/Version.c, libI77/dfe.c, - libI77/err.c, libI77/fmt.c, libI77/makefile, - libI77/rawio.h: Apply many, but not all, of the changes - made to libf2c since last update. - * libF77/Makefile.in (MISC), Makefile.in (MISC): Rename - exit.o to exit_.o to go along with Netlib. - * libF77/signal.c: Make the prologue much simpler than - Netlib has it. - -Sun May 18 20:56:02 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libU77/unlink_.c, libU77/stat_.c, libU77/symlnk_.c, - libU77/chmod_.c: g_char first arg is const. - - * libU77/chmod_.c: s_cat expects ftnlen[], not int[] or - integer[], change types of array and variables - accordingly. - -May 7 1997 Daniel Pettet <dan.pettet@bchydro.bc.ca> - - * libU77/dbes_.c: Commented out the code in the - same way the bes* routines are commented out. This - was done because corresponding C routines are referenced - directly in com-rt.def. - -Mon May 5 13:56:02 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libU77/stat_.c: Reverse KR/ANSI decls of g_char(). - -Apr 18 1997 Daniel Pettet <dan.pettet@bchydro.bc.ca> - - * libF77/F77_aloc.c, libF77/abort_.c, libF77/derf_.c, - libF77/derfc_.c, libF77/ef1asc_.c, libF77/ef1cmc_.c, - libF77/erf_.c, libF77/erfc_.c, libF77/exit.c, - libF77/getarg_.c, libF77/getenv_.c, libF77/iargc_.c, - libF77/s_cat.c, libF77/signal_.c, libF77/system_.c, - libI77/close.c, libI77/ftell_.c, libU77/access_.c, - libU77/bes.c, libU77/chdir_.c, libU77/chmod_.c, libU77/ctime_.c, - libU77/date_.c, libU77/dbes.c, libU77/dtime_.c, libU77/etime_.c, - libU77/fdate_.c, libU77/fgetc_.c, libU77/flush1_.c, - libU77/fnum_.c, libU77/fputc_.c, libU77/fstat_.c, - libU77/gerror_.c, libU77/getcwd_.c, libU77/getgid_.c, - libU77/getlog_.c, libU77/getpid_.c, libU77/getuid_.c, - libU77/gmtime_.c, libU77/hostnm_.c, libU77/idate_.c, - libU77/ierrno_.c, libU77/irand_.c, libU77/isatty_.c, - libU77/itime_.c, libU77/kill_.c, libU77/link_.c, - libU77/lnblnk_.c, libU77/ltime_.c, libU77/mclock_.c, - libU77/perror_.c, libU77/rand_.c, libU77/rename_.c, - libU77/secnds_.c, libU77/second_.c, libU77/sleep_.c, - libU77/srand_.c, libU77/stat_.c, libU77/symlnk_.c, - libU77/system_clock_.c, libU77/time_.c, libU77/ttynam_.c, - libU77/umask_.c, libU77/unlink_.c, libU77/vxtidate_.c, - libU77/vxttime_.c: Completed renaming routines that are directly - callable from g77 to internal names of the form - G77_xxxx_0 that are known as intrinsics by g77. - -Apr 8 1997 Daniel Pettet <dan.pettet@bchydro.bc.ca> - - * Makefile.in: Add libU77/mclock_.o and libU77/symlnk_.o to UOBJ. - * libU77/Makefile.in: Add mclock_.c to SRCS. - Add mclock_.o and symlnk_.o to OBJS. - Add mclock_.o dependency. - -Apr 8 1997 Daniel Pettet <dan.pettet@bchydro.bc.ca> - - * libU77/symlnk_.c: Added a couple of (char*) casts to malloc - to silence the compiler. - -1997-03-17 Dave Love <d.love@dl.ac.uk> - - * libU77/access_.c, libU77/chdir_.c, libU77/chmod_.c, - libU77/link_.c, libU77/lstat_.c, libU77/rename_.c, libU77/stat_.c, - libU77/symlnk_.c, libU77/u77-test.f, libU77/unlink_.c: Strip - trailing blanks from file names for consistency with other - implementations (notably Sun's). - - * libU77/chmod_.c: Quote the file name given to the shell. - -Mon Mar 10 00:19:17 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libI77/uio.c (do_ud) [PAD_UDread]: Add semicolon to err() - invocation when macro not defined (from Mumit Khan - <khan@xraylith.wisc.edu>). - -Fri Feb 28 13:16:50 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Version 0.5.20 released. - -Wed Feb 26 20:28:53 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Makefile.in: $(MAKE) invocations now explicitly - specify `-f Makefile', just in case the `makefile's - from the netlib distribution would get used instead. - -Mon Feb 24 16:43:39 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libU77/Makefile.in (check): Specify driver, and - don't bother enabling already-enabled intrinsic groups. - Also, get the $(srcdir) version of u77-test.f. - -Sat Feb 22 14:08:42 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libU77/u77-test.f: Explicitly declare intrinsics, get - rid of useless CHARACTER declarations on intrinsics (maybe - someday appropriate to implement meaning of that in g77 - and restore them?). - Add spin loop just to fatten up the timings a bit. - Clarify ETIME output as having three fields. - Call TIME with CHARACTER*8, not CHARACTER*6, argument. - Call new SECOND intrinsic subroutine, after calling - new DUMDUM subroutine just to ensure the correct value - doesn't get left around in a register or something. - -Thu Feb 20 15:22:42 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libU77/bes.c: Comment out all the code, as g77 avoids actually - calling it, going directly to the system's library instead. - -Mon Feb 17 02:27:41 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libU77/fgetc_.c (fgetc_): Allow return value to be - CHARACTER*(*), properly handle CHARACTER*0 and blank-pad - CHARACTER*n where n>1. - -Tue Feb 11 14:12:19 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Makefile.in: Clarify role of $(srcdir) here. Fix - various targets accordingly. Don't rely at all on - gcc/f/include/ being a link to gcc/include/ -- just - use it directly. - (${srcdir}/configure, ${srcdir}/libU77/configure): - Remove the config.cache files in build directory before - cd'ing to source directory as well. - - * libF77/Makefile.in, libI77/Makefile.in (ALL_CFLAGS): - Include `-I.' to pick up build directory. - Use gcc/include/ directly. - * libU77/Makefile.in (ALL_CFLAGS): Include `-I$(srcdir)' - to pick up source directory. - (OBJS): Fix typo in `chmod_.o' (was `chmod.o'). - -Mon Feb 10 12:54:47 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Makefile.in (UOBJ), libU77/Makefile.in (OBJS): Add - libU77/chmod_.o to list of objects. - * libU77/chmod_.c: Fix up headers. - Fix implementation to not prematurely truncate command - string and make room for trailing null. - - * libU77/ctime_.c: Incoming xstime argument is now longint. - * libU77/mclock_.c: Now returns longint. - * libU77/time_.c: Now returns longint. - -1997-02-10 Dave Love <d.love@dl.ac.uk> - - * etime_.c, dtime_.c: Typo rounded times to seconds. - - * date_.c: Add missing return. - - * hostnm_.c: #include unistd.h. - -Sat Feb 8 03:30:19 1997 Craig Burley <burley@gnu.ai.mit.edu> - - INTEGER*8 support built in to f2c.h and libf2c (since - gcc will be used to compile relevant code anyway): - * Makefile.in, libF77/Makefile.in: Add pow_qq.o, - qbitbits.o, and qbitshft.o to $POW and $F90BIT macros, - as appropriate. - * f2c.h.in: Define appropriate types and macros. - Place #error directive correctly. - * configure.in: Determine appropriate types for long - integer (F2C_LONGINT). - Meanwhile, quote strings in #error, for consistency. - Fix restoring of ac_cpp macro. - * configure: Regenerated using autoconf-2.12. - - * libF77/Version.c, libI77/Version.c, libU77/Version.c: - Update version numbers. - Change names and code for g77-specific version-printing - routines (shorter names should be safer to link on - weird, 8-char systems). - - * libF77/c_cos.c, libF77/c_div.c, libF77/c_exp.c, - libF77/c_log.c, libF77/c_sin.c, libF77/c_sqrt.c, - libF77/d_cnjg.c, libF77/pow_zi.c, libF77/r_cnjg.c, - libF77/z_cos.c, libF77/z_div.c, libF77/z_exp.c, - libF77/z_log.c, libF77/z_sin.c, libF77/z_sqrt.c: - Changed to work properly even when result is aliased - with any inputs. - - * libF77/makefile, libI77/makefile: Leave these in - the g77 distribution, so it is easier to track changes - to official libf2c. - - * libF77/signal_.c: Eliminate redundant `return 0;'. - - * libI77/fio.h (err, errfl): Fix these so they work - (and must be expressed) as statements. - Fix up many users of err() to include trailing semicolon. - - * Incorporate changes by Bell Labs to libf2c through 1997-02-07. - -1997-02-06 Dave Love <d.love@dl.ac.uk> - - * libU77/etime_.c, libU77/dtime_.c: Fix getrusage stuff. - - * libU77/config.h.in: Regenerate for HAVE_GETRUSAGE. - - * libU77/Makefile.in, libI77/Makefile.in, libF77/Makefile.in: - Redo *clean targets; distclean and maintainer-clean remove the stage? - and include links. This probably want looking at further. - -Wed Feb 5 00:21:23 1997 Craig Burley <burley@gnu.ai.mit.edu> - - Add libU77 library from Dave Love <d.love@dl.ac.uk>: - * Makefile.in: Add libU77 directory, rules, etc. - * configure.in: New libU77 directory, Makefile, etc. - - * Makefile.in, libF77/Makefile.in, libI77/Makefile.in, - libU77/Makefile.in: Reorganize these so $(AR) commands - handled by the top-level Makefile instead of the - subordinates. This permits it to do $(AR) only when - one or more object files actually change, instead of - having to force-update it as was necessary before. - And that had the disadvantage of requiring, e.g., user - root to have access to $(AR) to the library simply to - install g77, which might be problematic on an NFS setup. - (mostlyclean, clean, distclean, maintainer-clean): - Properly handle these rules. - - * Makefile.in: Don't invoke config.status here -- let - compiler-level stuff handle all that. - - * libI77/err.c [MISSING_FILE_ELEMS]: Declare malloc in this case - too, so it doesn't end up as an integer. - -Sat Feb 1 02:43:48 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libF77/Makefile.in: More fixup for $(F90BIT) -- wasn't - in list for ar command, and it wasn't correctly listed - in the list of things depending on f2c.h. - - * f2c.h.in: Fix up #error directive. - -1997-01-31 Dave Love <d.love@dl.ac.uk> - - * libF77/Makefile.in ($(lib)): Add $(F90BIT); shouldn't exclude - stuff f2c needs so we can share the library. - -Sat Jan 18 19:39:03 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * configure.in: No longer define ALWAYS_FLUSH, the - resulting performance is too low. - -Wed Dec 18 12:06:02 1996 Craig Burley <burley@gnu.ai.mit.edu> - - Patch from Mumit Khan <khan@xraylith.wisc.edu>: - * libF77/s_paus.c: Add __CYGWIN32__ to list of macros - controlling how to pause. - -Sun Dec 1 21:25:27 1996 Craig Burley <burley@gnu.ai.mit.edu> - - * configure: Regenerated using autoconf-2.12. - -Mon Nov 25 21:16:15 1996 Craig Burley <burley@gnu.ai.mit.edu> - - * configure: Regenerated using autoconf-2.11. - -1996-11-19 Dave Love <d.love@dl.ac.uk> - - * libI77/backspace.c: Include sys/types.h for size_t. - -Wed Nov 6 14:17:27 1996 Craig Burley <burley@gnu.ai.mit.edu> - - * f2c.h.in: Properly comment out the unsupported stuff so - we don't get build-time errors. - - * libF77/Version.c, libI77/Version.c: Restore macro definition - of version information. - - * libI77/Makefile.in (OBJ) [foo]: Add ftell_.o to list of objects. - - * libI77/uio.c (do_ud): Fix up casts in PAD_UDread case just - like they were fixed in the other case. - -Thu Oct 31 22:27:45 1996 Craig Burley <burley@gnu.ai.mit.edu> - - * libI77/ftell_.c (fseek_): Map incoming whence argument to - system's actual SEEK_CUR, SEEK_SET, or SEEK_END macro for - fseek(), and crash (gracefully) if the argument is invalid. - -1996-10-19 Dave Love <d.love@dl.ac.uk> - - * configure.in: Add check that we have the tools to cross-compile - if appropriate. - (NO_EOF_CHAR_CHECK,Skip_f2c_Undefs): Define. - - * libF77/Makefile.in (F90BIT): New routines from Netlib. - - * f2c.h.in: - Use more sanitary #error (indented for K&R compliance if necessary) if - f2c_i2 defined. - Sync with Netlib: Add `uninteger'. (Commented out) integer*8 stuff. - bit_{test,clear,set} macros. - -1996-10-19 Dave Love <d.love@dl.ac.uk> - - Update to Netlib version of 1996-09-26. - - * libI77/Version.c: Use <stdio.h>, not "stdio.h". - * libF77/Version.c: Likewise. - -Wed Aug 28 13:25:29 1996 Dave Love <d.love@dl.ac.uk> - - * libI77/rsne.c (x_rsne): Use size_t instead of int. - - * libI77/endfile.c (copy): Use size_t in place of int. - -Wed Aug 28 13:22:20 1996 Dave Love <d.love@dl.ac.uk> - - * libI77/backspace.c (f_back): Cast fread arg to size_t. - -Tue Aug 27 19:11:30 1996 Dave Love <d.love@dl.ac.uk> - - * libI77/Version.c: Supply */ to avoid apparent nested comment. - -Tue Aug 20 09:21:43 1996 Dave Love <d.love@dl.ac.uk> - - * libF77/Makefile.in (ALL_CFLAGS): Fix missing ../ for include. - * libI77/Makefile.in (ALL_CFLAGS): Likewise. - -Sat Aug 17 13:00:47 1996 Dave Love <d.love@dl.ac.uk> - - * libF77/qbitshft.c, libF77/qbitbits.c, libF77/lbitshft.c, - libF77/lbitbits.c: New file from Netlib. qbit... not currently - compiled. - -Sun Jul 7 18:06:33 1996 Dave Love <d.love@dl.ac.uk> - - * libF77/z_sqrt.c, libF77/z_sin.c, libF77/z_exp.c, libF77/z_log.c, - libF77/system_.c, libF77/z_cos.c, libF77/signal_.c, - libF77/s_stop.c, libF77/sig_die.c, libF77/s_paus.c, - libF77/s_rnge.c, libF77/s_cat.c, libF77/r_tan.c, libF77/r_tanh.c, - libF77/r_sinh.c, libF77/r_sqrt.c, libF77/r_sin.c, libF77/r_mod.c, - libF77/r_nint.c, libF77/r_lg10.c, libF77/r_log.c, libF77/r_exp.c, - libF77/r_int.c, libF77/r_cosh.c, libF77/r_atn2.c, libF77/r_cos.c, - libF77/r_asin.c, libF77/r_atan.c, libF77/r_acos.c, - libF77/pow_dd.c, libF77/pow_zz.c, libF77/main.c, libF77/i_dnnt.c, - libF77/i_nint.c, libF77/h_dnnt.c, libF77/h_nint.c, libF77/exit.c, - libF77/d_tan.c, libF77/d_tanh.c, libF77/d_sqrt.c, libF77/d_sin.c, - libF77/d_sinh.c, libF77/d_mod.c, libF77/d_nint.c, libF77/d_log.c, - libF77/d_int.c, libF77/d_lg10.c, libF77/d_cosh.c, libF77/d_exp.c, - libF77/d_atn2.c, libF77/d_cos.c, libF77/d_atan.c, libF77/d_acos.c, - libF77/d_asin.c, libF77/c_sqrt.c, libF77/cabs.c, libF77/c_sin.c, - libF77/c_exp.c, libF77/c_log.c, libF77/c_cos.c, libF77/F77_aloc.c, - libF77/abort_.c, libI77/xwsne.c, libI77/wref.c, libI77/util.c, - libI77/uio.c, libI77/rsne.c, libI77/rdfmt.c, libI77/rawio.h, - libI77/open.c, libI77/lread.c, libI77/inquire.c, libI77/fio.h, - libI77/err.c, libI77/endfile.c, libI77/close.c: - Use #include <...>, not #include "..." for mkdeps - -Sat Jul 6 21:39:21 1996 Dave Love <d.love@dl.ac.uk> - - * libI77/ftell_.c: Added from Netlib distribution. - -Sat Mar 30 20:57:24 1996 Dave Love <d.love@dl.ac.uk> - - * configure.in: Eliminate explicit use of - {RANLIB,AR}_FOR_TARGET. - * Makefile.in: Likewise. - * libF77/Makefile.in: Likewise. - * libI77/Makefile.in: Likewise. - * configure: Regenerated. - -Sat Mar 30 21:02:03 1996 Dave Love <d.love@dl.ac.uk> - - * Makefile.in: Eliminate explicit use of - {RANLIB,AR}_FOR_TARGET. - -Tue Mar 26 23:39:59 1996 Dave Love <d.love@dl.ac.uk> - - * Makefile.in: Remove hardwired RANLIB and RANLIB_TEST (unnoted - change). - -Mon Mar 25 21:04:56 1996 Craig Burley <burley@gnu.ai.mit.edu> - - * Incorporate changes by Bell Labs to libf2c through 1996-03-23, - including changes to dmg and netlib email addresses. - -Tue Mar 19 13:10:02 1996 Craig Burley <burley@gnu.ai.mit.edu> - - * Incorporate changes by AT&T/Bellcore to libf2c through 1996-03-19. - - * Makefile.in (rebuilt): New target. - - * libF77/Makefile.in, libI77/Makefile.in: Use $AR_FOR_TARGET, not - $AR. - -Tue Mar 19 12:53:19 1996 Dave Love <d.love@dl.ac.uk> - - * configure.in (ac_cpp): #include <stdio.h> instead - of <features.h>. - -Tue Mar 19 12:52:09 1996 Mumit Khan <khan@xraylith.wisc.edu> - - * configure.in (ac_cpp): For f2c integer type, - add -I$srcdir/../.. to make it work on mips-ultrix4.2. - -Sat Mar 9 17:37:15 1996 Craig Burley <burley@gnu.ai.mit.edu> - - * libI77/Makefile.in (.c.o): Add -DAllow_TYQUAD, to enable - I/O support for INTEGER*8. - * f2c.h.in: Turn on longint type. - -Fri Dec 29 18:22:01 1995 Craig Burley <burley@gnu.ai.mit.edu> - - * Makefile.in: Reorganize the *clean rules to more closely - parallel gcc's. - - * libF77/Makefile.in, libI77/Makefile.in: Ignore error from $(AR) - command, in case just doing an install and installer has no write - access to library (this is a kludge fix -- perhaps install targets - should never try updating anything?). - -Sat Nov 18 19:37:22 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * Version 0.5.17 released. - -Thu Nov 16 07:20:35 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * Incorporate changes by AT&T/Bellcore to libf2c through 1995-11-15. - -Fri Sep 22 02:19:59 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * libI77/backspace.c, libI77/close.c, libI77/endfile.c, - libI77/fio.h, libI77/inquire.c, libI77/rawio.h, - libF77/s_paus.c: Not an MSDOS system if GO32 - is defined, in the sense that the run-time environment - is thus more UNIX-like. - -Wed Sep 20 02:24:51 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * libF77/Makefile.in, libI77/Makefile.in: Comment out `ld -r -x' - and `mv' line pairs, since `-x' isn't supported on systems - such as Solaris, and these lines don't seem to do anything - useful after all. - -Wed Aug 30 15:58:35 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * Version 0.5.16 released. - - * Incorporate changes by AT&T/Bellcore to libf2c through 950829. - -Mon Aug 28 12:50:34 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * libF77/Makefile.in, libI77/Makefile.in ($(lib)): Force ar'ing - and ranlib'ing of libf2c.a, else after rm'ing libf2c.a and - doing a make, only libI77 or libF77 would be added to - the newly created archive. - Also, instead of `$?' list all targets explicitly so all - objects are updated in libf2c.a even if only one actually - needs recompiling, for similar reason -- we can't easily tell - if a given object is really up-to-date in libf2c.a, or even - present there. - -Sun Aug 27 14:54:24 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * libF77/Makefile.in, libI77/Makefile.in: Fix spacing so - initial tabs are present in all appropriate places. - Move identical $(AR) commands in if then/else clauses - to single command preceding if. - (.c.o, Version[FI].o): Use $@ instead of $* because AIX (RS/6000) - says $@ means source, not object, basename, and $@ seems to work - everywhere. - -Wed Aug 23 15:44:25 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * libF77/system_.c (system_): Declare as returning `ftnint', - consistent with signal_, instead of defaulting to `int'. - Hope dmg@research.att.com agrees, else probably will - change to whatever he determines is correct (and change - g77 accordingly). - -Thu Aug 17 08:46:17 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * libI77/rsne.c (s_rsne): Call f_init if not already done. - -Thu Aug 17 04:35:28 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * Incorporate changes by Bellcore to libf2c through 950817. - And this text is for EMACS: (foo at bar). - -Wed Aug 16 17:33:06 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * libF77/Makefile.in, libI77/Makefile.in (CFLAGS): Put -g1 - after configured CFLAGS but before GCC_CFLAGS, so by default - the libraries are built with minimal debugging information. - -Fri Jul 28 10:30:15 1995 Dave Love <d.love@dl.ac.uk> - - * libI77/open.c (f_open): Call f_init if not already done. - -Sat Jul 1 19:31:56 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * libF77/system_.c (system_): Make buff one byte bigger so - following byte doesn't get overwritten by call with large - string. - -Tue Jun 27 23:28:16 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * Incorporate changes by Bellcore to libf2c through 950613. - - * libF77/Version.c (__G77_LIBF77_VERSION__): Add this string - to track g77 mods to libf2c. - - * libI77/Version.c (__G77_LIBI77_VERSION__): Add this string - to track g77 mods to libf2c. - - * libI77/rawio.h: #include <rawio.h> only conditionally, - using macro intended for that purpose. - -Fri May 19 11:20:00 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * configure.in: Incorporate change made by d.love, - - * configure: Regenerated. - -Wed Apr 26 21:08:57 BST 1995 Dave Love <d.love@dl.ac.uk> - - * configure.in: Fix quoting problem in atexit check. - - * configure: Regenerated (with current autoconf). - -Wed Mar 15 12:49:58 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * Incorporate changes by Bellcore to libf2c through 950315. - -Sun Mar 5 18:54:29 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * README: Tell people not to read lib[fi]77/README. - -Wed Feb 15 14:30:58 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * configure.in: Update copyright notice at top of file. - - * f2c.h.in (f2c_i2): Make sure defining this crashes compilations. - - * libI77/Makefile.in (F2C_H): Fix typo in definition of this - symbol (was FF2C_H=...). - -Sun Feb 12 13:39:36 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * README: Remove some obsolete items. - Add date. - - * TODO: Add date. - -Sat Feb 11 22:07:54 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * Makefile.in (libf77, libi77): Add rules to .PHONY list. - - * f2c.h.in (flag): Make same type as friends. - - * libF77/Makefile.in (libf77): Rename to $(lib), remove from - .PHONY list. Fix some typos. - - * libI77/Makefile.in (libi77): Rename to $(lib), remove from - .PHONY list. Fix some typos. - -Thu Feb 2 12:22:41 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * Makefile.in (libF77/Makefile): Fix typos in this rule's name - and dependencies. - - * libF77/Makefile.in (libf77): Add rule to .PHONY list. - - * libI77/Makefile.in (libi77): Add rule to .PHONY list. - -Local Variables: -add-log-time-format: current-time-string -End: diff --git a/gnu/egcs/libf2c/Makefile.bsd-wrapper b/gnu/egcs/libf2c/Makefile.bsd-wrapper deleted file mode 100644 index f0ab150a735..00000000000 --- a/gnu/egcs/libf2c/Makefile.bsd-wrapper +++ /dev/null @@ -1,163 +0,0 @@ -# $OpenBSD: Makefile.bsd-wrapper,v 1.8 2005/01/09 22:27:07 espie Exp $ - -NOLINT= - -LIBIBERTY_INCLUDES=$(.CURDIR)/../../lib/libiberty/include -EGCS_DIR= $(.CURDIR)/.. -.if defined(MAKEOBJDIR) -OBJDIR=${MAKEOBJDIR} -.elif defined(OBJMACHINE) -OBJDIR= obj.${MACHINE} -.else -OBJDIR= obj -.endif -EGCS_OBJDIR!= if [ -d $(EGCS_DIR)/$(OBJDIR) ]; then \ - echo $(EGCS_DIR)/$(OBJDIR); \ - else \ - echo $(EGCS_DIR); \ - fi - -# for libfrtbegin -SUBDIR=libF77 -#SUBDIR=libF77 libI77 libU77 -LIB=g2c - -I77_SRCS= backspace.c close.c dfe.c dolio.c due.c endfile.c err.c \ - fmt.c fmtlib.c iio.c ilnw.c inquire.c lread.c lwrite.c open.c \ - rdfmt.c rewind.c rsfe.c rsli.c rsne.c sfe.c sue.c typesize.c uio.c \ - util.c wref.c wrtfmt.c wsfe.c wsle.c wsne.c xwsne.c \ - ftell_.c - -U77_SRCS = gerror_.c perror_.c ierrno_.c itime_.c time_.c \ - unlink_.c fnum_.c getpid_.c getuid_.c getgid_.c kill_.c rand_.c \ - srand_.c irand_.c sleep_.c idate_.c ctime_.c etime_.c \ - dtime_.c isatty_.c ltime_.c fstat_.c stat_.c \ - lstat_.c access_.c link_.c getlog_.c ttynam_.c getcwd_.c symlnk_.c \ - vxttime_.c vxtidate_.c gmtime_.c fdate_.c secnds_.c \ - bes.c dbes.c \ - chdir_.c chmod_.c lnblnk_.c hostnm_.c rename_.c fgetc_.c fputc_.c \ - umask_.c sys_clock_.c date_.c second_.c flush1_.c mclock_.c \ - alarm_.c datetime_.c - -DEFS=-DAllow_TYQUAD -DSTDC_HEADERS=1 -D_POSIX_SOURCE=1 -DHAVE_TEMPNAM=1 \ --DNON_ANSI_RW_MODES=1 -DNO_EOF_CHAR_CHECK=1 -DSkip_f2c_Undefs=1 \ --DRETSIGTYPE=void -DIEEE_drem=1 -DHAVE_CONFIG_H \ --I${LIBIBERTY_INCLUDES} -IlibU77 -I${.CURDIR}/libI77 -I${.OBJDIR} -I${.CURDIR} - -MISC = F77_aloc.c s_rnge.c abort_.c getarg_.c iargc_.c\ - getenv_.c signal_.c s_stop.c s_paus.c system_.c cabs.c\ - derf_.c derfc_.c erf_.c erfc_.c sig_die.c exit_.c setarg.c setsig.c -POW = pow_ci.c pow_dd.c pow_di.c pow_hh.c pow_ii.c pow_ri.c pow_zi.c pow_zz.c \ - pow_qq.c -CX = c_abs.c c_cos.c c_div.c c_exp.c c_log.c c_sin.c c_sqrt.c -DCX = z_abs.c z_cos.c z_div.c z_exp.c z_log.c z_sin.c z_sqrt.c -REAL = r_abs.c r_acos.c r_asin.c r_atan.c r_atn2.c r_cnjg.c r_cos.c\ - r_cosh.c r_dim.c r_exp.c r_imag.c r_int.c\ - r_lg10.c r_log.c r_mod.c r_nint.c r_sign.c\ - r_sin.c r_sinh.c r_sqrt.c r_tan.c r_tanh.c -DBL = d_abs.c d_acos.c d_asin.c d_atan.c d_atn2.c\ - d_cnjg.c d_cos.c d_cosh.c d_dim.c d_exp.c\ - d_imag.c d_int.c d_lg10.c d_log.c d_mod.c\ - d_nint.c d_prod.c d_sign.c d_sin.c d_sinh.c\ - d_sqrt.c d_tan.c d_tanh.c -INT = i_abs.c i_dim.c i_dnnt.c i_indx.c i_len.c i_mod.c i_nint.c i_sign.c -HALF = h_abs.c h_dim.c h_dnnt.c h_indx.c h_len.c h_mod.c h_nint.c h_sign.c -CMP = l_ge.c l_gt.c l_le.c l_lt.c hl_ge.c hl_gt.c hl_le.c hl_lt.c -EFL = ef1asc_.c ef1cmc_.c -CHAR = s_cat.c s_cmp.c s_copy.c -F90BIT = lbitbits.c lbitshft.c qbitbits.c qbitshft.c -F77_SRCS=${MISC} ${POW} ${CX} ${DCX} ${REAL} ${DBL} ${INT} \ -${HALF} ${CMP} ${EFL} ${CHAR} ${F90BIT} - -VERSION_SRCS=${.OBJDIR}/VersionI.c ${.OBJDIR}/VersionF.c ${.OBJDIR}/VersionU.c - -F2CEXT = abort derf derfc ef1asc ef1cmc erf erfc exit getarg getenv iargc \ - signal system flush ftell fseek access besj0 besj1 besjn besy0 besy1 \ - besyn chdir chmod ctime date dbesj0 dbesj1 dbesjn dbesy0 dbesy1 dbesyn \ - dtime etime fdate fgetc fget flush1 fnum fputc fput fstat gerror \ - getcwd getgid getlog getpid getuid gmtime hostnm idate ierrno irand \ - isatty itime kill link lnblnk lstat ltime mclock perror rand rename \ - secnds second sleep srand stat symlnk time ttynam umask unlink \ - vxtidt vxttim alarm - -F2CO=${F2CEXT:S/^/libE77\/L/:S/$/.o/} -OBJS+=${F2CO} -F2CGO=${F2CO:.o=.go} -F2CPO=${F2CO:.o=.po} -F2CSO=${F2CO:.o=.so} - -${F2CO}: f2cext.c - @echo "${COMPILE.c} -D${.TARGET:T:R} $> -o ${.TARGET}" - @${COMPILE.c} -D${.TARGET:T:R} $> -o ${.TARGET}.o - @${LD} -x -r ${.TARGET}.o -o ${.TARGET} - @rm -f ${.TARGET}.o - -${F2CGO}: f2cext.c - @echo "${COMPILE.c} -g -D${.TARGET:T:R} $> -o ${.TARGET}" - @${COMPILE.c} -g -D${.TARGET:T:R} $> -o ${.TARGET}.o - @${LD} -X -r ${.TARGET}.o -o ${.TARGET} - @rm -f ${.TARGET}.o - -${F2CPO}: f2cext.c - @echo "${COMPILE.c} -p -D${.TARGET:T:R} $> -o ${.TARGET}" - @${COMPILE.c} -p -D${.TARGET:T:R} $> -o ${.TARGET}.o - @${LD} -X -r ${.TARGET}.o -o ${.TARGET} - @rm -f ${.TARGET}.o - -${F2CSO}: f2cext.c - @echo "${COMPILE.c} ${PICFLAG} -DPIC -D${.TARGET:T:R} $> -o ${.TARGET}" - @${COMPILE.c} ${PICFLAG} -DPIC -D${.TARGET:T:R} $> -o ${.TARGET}.o - @${LD} -x -r ${.TARGET}.o -o ${.TARGET} - @rm -f ${.TARGET}.o - -CLEANFILES=${VERSION_SRCS} config.cache config.status config.log Makefile \ -libU77/config.log libU77/config.h libU77/config.status libU77/Makefile \ -libI77/config.log libI77/config.status libI77/Makefile \ -libF77/config.log libF77/config.status libF77/Makefile \ -g2c.h - - -CFLAGS+=${DEFS} - -SRCS+= ${I77_SRCS:S/^/libI77\//} -SRCS+= ${U77_SRCS:S/^/libU77\//} -SRCS+= ${F77_SRCS:S/^/libF77\//} -SRCS+= ${VERSION_SRCS} - -${.OBJDIR}/VersionI.c: libI77/Version.c - ln -sf $> $@ - -${.OBJDIR}/VersionU.c: libU77/Version.c - ln -sf $> $@ - -${.OBJDIR}/VersionF.c: libF77/Version.c - ln -sf $> $@ - -all: config.status - -# CPPFLAGS=-I${.CURDIR}/../gcc/obj \ - -config.status: Makefile.in configure - mkdir -p libE77 - cd ${.CURDIR}/../gcc && \ - make -f Makefile.bsd-wrapper config.status tree-check.h - # fake g771 existence - cd $(EGCS_OBJDIR)/gcc && touch f771 - CPPFLAGS="$(CFLAGS)" \ - PATH="/bin:/usr/bin:/sbin:/usr/sbin" \ - r=$(EGCS_OBJDIR) \ - INSTALL_PROGRAM="${INSTALL} ${INSTALL_COPY} ${INSTALL_STRIP}" \ - /bin/sh ${.CURDIR}/configure \ - --prefix=/usr --with-local-prefix=/usr ${CF} \ - && touch config.status - -# Configuring is needed for g2c.h to be built -prereq depend: config.status - -includes: - install -C -o ${BINOWN} -g ${BINGRP} -m ${NONBINMODE} \ - ${.CURDIR}/f2c.h ${DESTDIR}/usr/include - install -C -o ${BINOWN} -g ${BINGRP} -m ${NONBINMODE} \ - g2c.h ${DESTDIR}/usr/include - -.include <bsd.lib.mk> diff --git a/gnu/egcs/libf2c/Makefile.in b/gnu/egcs/libf2c/Makefile.in deleted file mode 100644 index 9075360fe9b..00000000000 --- a/gnu/egcs/libf2c/Makefile.in +++ /dev/null @@ -1,262 +0,0 @@ -# Makefile for GNU F77 compiler runtime. -# Copyright (C) 1995-1998 Free Software Foundation, Inc. -# Contributed by Dave Love (d.love@dl.ac.uk). -# -#This file is part of GNU Fortran. -# -#GNU Fortran is free software; you can redistribute it and/or modify -#it under the terms of the GNU General Public License as published by -#the Free Software Foundation; either version 2, or (at your option) -#any later version. -# -#GNU Fortran is distributed in the hope that it will be useful, -#but WITHOUT ANY WARRANTY; without even the implied warranty of -#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#GNU General Public License for more details. -# -#You should have received a copy of the GNU General Public License -#along with GNU Fortran; see the file COPYING. If not, write to -#the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -#02111-1307, USA. - -SHELL = /bin/sh - -#### Start of system configuration section. #### - -srcdir = @srcdir@ -VPATH = @srcdir@ -prefix = @prefix@ -exec_prefix = @exec_prefix@ -target_alias = @target_alias@ -gcc_version = @gcc_version@ -gcc_version_trigger = @gcc_version_trigger@ - -libdir = $(exec_prefix)/lib -libsubdir = $(libdir)/gcc-lib/$(target_alias)/$(gcc_version) - -# Multilib support variables. -MULTISRCTOP = -MULTIBUILDTOP = -MULTIDIRS = -MULTISUBDIR = -MULTIDO = true -MULTICLEAN = true - -# Not configured per top-level version, since that doesn't get passed -# down at configure time, but overrridden by the top-level install -# target. -INSTALL = @INSTALL@ -INSTALL_PROGRAM = @INSTALL_PROGRAM@ -INSTALL_DATA = @INSTALL_DATA@ - -AR = @AR@ -AR_FLAGS = rc - -RANLIB = @RANLIB@ - -CC = @CC@ -CFLAGS = @CFLAGS@ - -# List of variables to pass to sub-makes. -# Quote this way so that it can be used to set shell variables too. -# Currently no use for PICFLAG, RUNTESTFLAGS -- check usage. -FLAGS_TO_PASS= \ - CC='$(CC)' \ - CFLAGS='$(CFLAGS)' \ - CPPFLAGS='$(CPPFLAGS)' \ - AR='$(AR)' \ - RANLIB='$(RANLIB)' \ - PICFLAG='$(PICFLAG)' \ - RUNTESTFLAGS='$(RUNTESTFLAGS)' \ - prefix='$(prefix)' \ - exec_prefix='$(exec_prefix)' \ - libdir='$(libdir)' \ - libsubdir='$(libsubdir)' \ - tooldir='$(tooldir)' - -LIBG2C = libg2c.a - -SUBDIRS = libI77 libF77 libU77 - -F2CEXT = abort derf derfc ef1asc ef1cmc erf erfc exit getarg getenv iargc \ - signal system flush ftell fseek access besj0 besj1 besjn besy0 besy1 \ - besyn chdir chmod ctime dbesj0 dbesj1 dbesjn dbesy0 dbesy1 dbesyn \ - dtime etime fdate fgetc fget flush1 fnum fputc fput fstat gerror \ - getcwd getgid getlog getpid getuid gmtime hostnm idate ierrno irand \ - isatty itime kill link lnblnk lstat ltime mclock perror rand rename \ - secnds second sleep srand stat symlnk time ttynam umask unlink \ - vxttim alarm \ - date_y2kbuggy date_y2kbug vxtidt_y2kbuggy vxtidt_y2kbug - -.SUFFIXES: - -# The logic here is partly dictated by the desire to keep the lib?77 -# subdirs for compatibility with the Netlib version and because libU77 -# has a different copyright; then the libe77 bit (EXTERNALly-callable -# versions) is funny. Given that, as well as keeping things as simple -# as possible we want (at least) the following: -# * Allow make to be run at the top level (all-target-libf2c), at this -# level, or the subdirs of this level. In the latter case we only -# compile, rather than updating libg2c.a; -# * A robust set of dependencies, so that we rebuild (as little as -# possible) if a configuration file, g2c.h or any lib?77/*.c file -# changes; -# * Avoid unnecessary running of ar and ranlib; -# * Expose parallelism where reasonable, but not as a priority. - -# The intended top-level target here does a non-multilib build (via -# the dependency) and then (perhaps) builds multilibs. - -all: all-unilib - $(MULTIDO) $(FLAGS_TO_PASS) multi-do DO="all-unilib" - -# `all-unilib' is the overall target in the absence of multilibs, -# meant to be invoked via multi-do for multilibs. - -# Its dependencies can be satisfied in parallel. The [fiu]77 targets -# update stamp files (see the subdir makefiles) which the $(LIBG2C) -# target checks in the sub make to decide whether to run ar/ranlib. -# (Probably only one stamp file is really needed.) The stamp files -# s-lib[fiu]77 are intentionally not targets, since we're only meant -# to come in at the level of this target. The [fiu]77 targets always -# invoke sub makes to check dependencies in the subdirs, else we'd -# have to maintain them at this level; we live with the overhead of -# some recursive makes which may do nothing. - -all-unilib: i77 f77 u77 s-libe77 - $(MAKE) $(FLAGS_TO_PASS) $(LIBG2C) - -i77 f77 u77: g2c.h - -# This target should normally only get invoked via `all-unilib' -- -# after all's well in the subdirs -- actually to assemble the library. -# The stamp file dependencies are just to check whether libg2c.a is -# up-to-date (to avoid running ar regardless) -- the files should -# always have been created by a successful `all-unilib'. - -$(LIBG2C): s-libi77 s-libf77 s-libu77 s-libe77 - rm -f $(LIBG2C) - set -e; \ - for i in $(SUBDIRS); \ - do (cd $$i && $(MAKE) $(FLAGS_TO_PASS) LIBG2C=../$(LIBG2C) archive); \ - done - objs=""; for i in $(F2CEXT); do objs="$$objs libE77/L$$i.o"; done; \ - $(AR) $(AR_FLAGS) $(LIBG2C) $$objs - $(RANLIB) $(LIBG2C) - -i77: - cd libI77; $(MAKE) $(FLAGS_TO_PASS) all - -f77: - cd libF77; $(MAKE) $(FLAGS_TO_PASS) all - -u77: - cd libU77; $(MAKE) $(FLAGS_TO_PASS) all - -s-libe77: f2cext.c - if [ -d libE77 ]; then rm -f libE77/*.o; else mkdir libE77; fi - for name in $(F2CEXT); \ - do \ - echo $${name}; \ - $(CC) -c -I. -I$(srcdir) -I../../include $(CPPFLAGS) $(CFLAGS) \ - -DL$${name} $(srcdir)/f2cext.c \ - -o libE77/L$${name}.o; \ - if [ $$? -eq 0 ] ; then true; else exit 1; fi; \ - done - echo timestamp >s-libe77 - -f2cext.c: g2c.h - -${srcdir}/configure: configure.in - rm -f config.cache - cd $(srcdir) && autoconf - -# Dependence on Makefile serializes for parallel make. -g2c.h: g2c.hin config.status Makefile -# Might try to avoid rebuilding everything if Makefile or configure -# changes and g2c.h doesn't; see also the Makefile rule. Should -# depend on another stamp file rather than using the commented-out -# lines below, since g2c.h isn't necessarily brought up to date. -# mv g2c.h g2c.x - $(SHELL) config.status -# $(SHELL) $(srcdir)/../move-if-change g2c.h g2c.x && mv g2c.x g2c.h - -Makefile: Makefile.in config.status -# Autoconf doc uses `./config.status'. Is there a good reason to use $(SHELL)? - $(SHELL) config.status - -config.status: configure $(gcc_version_trigger) -# Make sure we don't pick up a site config file and that configure -# gets run with correct values of variables such as CC. - CONFIG_SITE=no-such-file $(FLAGS_TO_PASS) \ - $(SHELL) config.status --recheck - -info install-info clean-info dvi TAGS dist installcheck installdirs: - -check: - cd libU77; $(MAKE) G77DIR=../../../gcc/ check - -install: all - $(INSTALL_DATA) $(LIBG2C) $(libsubdir)/$(MULTISUBDIR)/$(LIBG2C).n - ( cd $(libsubdir)/$(MULTISUBDIR) ; $(RANLIB) $(LIBG2C).n ) - mv -f $(libsubdir)/$(MULTISUBDIR)/$(LIBG2C).n $(libsubdir)/$(MULTISUBDIR)/$(LIBG2C) - $(INSTALL_DATA) g2c.h $(libsubdir)/include/g2c.h - @if [ -f f2c-install-ok -o -f $(srcdir)/f2c-install-ok ]; then \ - echo ''; \ - echo 'Warning: g77 no longer installs libf2c.a or f2c.h.'; \ - echo ' You must do so yourself. For more information,'; \ - echo ' read "Distributing Binaries" in the g77 docs.'; \ - echo ' (To turn off this warning, delete the file'; \ - echo ' f2c-install-ok in the source or build directory.)'; \ - echo ''; \ - else true; fi - $(MULTIDO) $(FLAGS_TO_PASS) multi-do DO="$@" - -install-strip: - $(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' install - -uninstall: - rm -f $(libsubdir)/$(MULTISUBDIR)/include/g2c.h $(libsubdir)/$(MULTISUBDIR)/$(LIBG2C) - $(MULTIDO) $(FLAGS_TO_PASS) multi-do DO="$@" - -mostlyclean: - rm -f $(LIBG2C) - $(MAKE) DO=$@ DODIRS="$(SUBDIRS)" $(FLAGS_TO_PASS) subdir_do; \ - $(MULTICLEAN) multi-clean DO=$@ - rm -fr libE77 s-libe77 - -clean: mostlyclean - rm -f config.log - $(MAKE) DO=$@ DODIRS="$(SUBDIRS)" $(FLAGS_TO_PASS) subdir_do; \ - $(MULTICLEAN) multi-clean DO=$@ - -distclean: clean - rm -f g2c.h s-libe77 - $(MAKE) DO=$@ DODIRS="$(SUBDIRS)" $(FLAGS_TO_PASS) subdir_do; \ - $(MULTICLEAN) multi-clean DO=distclean - rm -f config.cache config.status Makefile - -maintainer-clean: - -rebuilt: configure - -.PHONY: rebuilt mostlyclean clean distclean maintainer-clean all \ - i77 f77 u77 check uninstall install-strip dist \ - installcheck installdirs all-unilib - -subdir_do: - @rootpre=`pwd`/; export rootpre; \ - srcrootpre=`cd $(srcdir); pwd`/; export srcrootpre; \ - for i in .. $(DODIRS); do \ - if [ x$$i != x.. ]; then \ - if [ -f ./$$i/Makefile ]; then \ - if (cd ./$$i; $(MAKE) $(FLAGS_TO_PASS) $(DO)); then \ - true; \ - else \ - exit 1; \ - fi; \ - else true; fi; \ - else true; fi; \ - done - -# multidoings may be added here by configure. diff --git a/gnu/egcs/libf2c/README b/gnu/egcs/libf2c/README deleted file mode 100644 index 008654b3c77..00000000000 --- a/gnu/egcs/libf2c/README +++ /dev/null @@ -1,109 +0,0 @@ -1998-08-11 - -This directory contains the libf2c library packaged for use with g77 -to configure and build automatically (in principle!) as part of the -top-level configure and make steps. g77 names this library `libg2c' -to avoid conflicts with existing copies of `libf2c' on a system. - -Some small changes have been made vis-a-vis the netlib distribution of -libf2c, which comes from <ftp:bell-labs.com/netlib/f2c/> and is maintained -(excellently) by David M. Gay <dmg@bell-labs.com>. See the Notice files -for copyright information. We usually try to get g77-specific changes -rolled back into the libf2c distribution. - -Files that come directly from netlib are either maintained in the -libf2c directory under their original names or, if they are not pertinent -for g77's version of libf2c, under their original names with `.netlib' -appended. For example, permissions.netlib is a copy of f2c's top-level -`permissions' file in the netlib distribution. In this case, it applies -only to the relevant portions of the libF77/ and libI77/ directories; it -does not apply to the libU77/ directory, which is distributed under -different licensing arrangements. Similarly, the `makefile.netlib' files -in the libF77/ and libI77/ subdirectories are copies of the respective -`makefile' files in the netlib distribution, but are not used when -building g77's version of libf2c. - -The README.netlib files in libF77/ and libI77/ thus might be -interesting, but should not be taken as guidelines for how to -configure and build libf2c in g77's distribution. - -* Read permissions.netlib for licensing conditions that apply to - distributing programs containing portions of code in the libF77/ and - libI77/ subdirectories. Also read disclaimer.netlib. - -* Read libU77/COPYING.LIB for licensing conditions that apply to - distributing programs containing portions of code in the libU77/ - subdirectory. - -Among the user-visible changes (choices) g77 makes in its version of libf2c: - -- f2c.h configured to default to padding unformatted direct reads - (#define Pad_UDread), because that's the behavior most users - expect. - -- f2c.h configured to default to outputting leading zeros before - decimal points in formatted and list-directed output, to be compatible - with many other compilers (#define WANT_LEAD_0). Either way is - standard-conforming, however, and you should try to avoid writing - code that assumes one format or another. - -- dtime_() and etime_() are from Dave Love's libU77, not from - netlib's libF77. - -- Routines that are intended to be called directly via user code - (as in `CALL EXIT', but not the support routines for `OPEN') - have been renamed from `<name>' to `G77_<name>_0'. This, in - combination with g77 recognizing these names as intrinsics and - calling them directly by those names, reduces the likelihood of - interface mismatches occurring due to use of compiler options - that change code generation, and permits use of these names as - both intrinsics and user-supplied routines in applications (as - required by the Fortran standards). f2cext.c contains "jacket" - routines named `<name>' that call `G77_<name>_0', to support - code that relies on calling the relevant routines as `EXTERNAL' - routines. - - Note that the `_0' in the name denotes version 0 of the *interface*, - not the *implementation*, of a routine. The interface of a - given routine *must not change* -- instead, introduce a new copy - of the code, with an increment (e.g. `_1') suffix, having the - new interface. Whether the previous interface is maintained is - not as important as ensuring the routine implementing the new - interface is never successfully linked to a call in existing, - e.g. previously compiled, code that expects the old interface. - -- Version.c in the subdirectories contains g77-specific version - information and a routine (per subdirectory) to print both the - netlib and g77 version information when called. The `g77 -v' - command is designed to trigger this, by compiling, linking, and - running a small program that calls the routines in sequence. - -- libF77/main.c no longer contains the actual code to copy the - argc and argv values into globals or to set up the signal-handling - environment. These have been removed to libF77/setarg.c and - libF77/setsig.c, respectively. libF77/main.c contains procedure - calls to the new code in place of the code itself. This should - simplify linking executables with a main() function other than - that in libF77/main.c (such as one written by the user in C or - C++). See the g77 documentation for more information. - -- Complex-arithmetic support routines in libF77/ take a different approach - to avoiding problems resulting from aliased input and output arguments, - which should avoid particularly unusual alias problems that netlib - libf2c might suffer from. - -- libF77/signal_.c supports systems with 64-bit pointers and 32-bit - integers. - -- I/O routines in libI77/ have code to detect attempts to do recursive - I/O more "directly", mainly to lead to a clearer diagnostic than - typically occurs under such conditions. - -- Formatted-I/O routines in libI77/ have code to pretty-print a FORMAT - string when printing a fatal diagnostic involving formatted I/O. - -- libI77/open.c supports a more robust, perhaps more secure, method - of naming temporary files on some systems. - -- Some g77-specific handling of building under Microsoft operating - systems exists, mainly in libI77/. diff --git a/gnu/egcs/libf2c/TODO b/gnu/egcs/libf2c/TODO deleted file mode 100644 index 84cbb0c733d..00000000000 --- a/gnu/egcs/libf2c/TODO +++ /dev/null @@ -1,14 +0,0 @@ -980709 - -TODO list for the g77 library - -* Investigate building shared libraries on systems we know about - (probably using libtool). - -* Better test cases. - -* Allow the library to be stripped to save space. (The install-strip - makefile target now allows this, should it be easily invocable.) - -* An interface to IEEE maths functions from libc where this makes - sense. diff --git a/gnu/egcs/libf2c/changes.netlib b/gnu/egcs/libf2c/changes.netlib deleted file mode 100644 index a5252202bdb..00000000000 --- a/gnu/egcs/libf2c/changes.netlib +++ /dev/null @@ -1,3016 +0,0 @@ -31 Aug. 1989: - 1. A(min(i,j)) now is translated correctly (where A is an array). - 2. 7 and 8 character variable names are allowed (but elicit a - complaint under -ext). - 3. LOGICAL*1 is treated as LOGICAL, with just one error message - per LOGICAL*1 statement (rather than one per variable declared - in that statement). [Note that LOGICAL*1 is not in Fortran 77.] - Like f77, f2c now allows the format in a read or write statement - to be an integer array. - -5 Sept. 1989: - Fixed botch in argument passing of substrings of equivalenced -variables. - -15 Sept. 1989: - Warn about incorrect code generated when a character-valued -function is not declared external and is passed as a parameter -(in violation of the Fortran 77 standard) before it is invoked. -Example: - - subroutine foo(a,b) - character*10 a,b - call goo(a,b) - b = a(3) - end - -18 Sept. 1989: - Complain about overlapping initializations. - -20 Sept. 1989: - Warn about names declared EXTERNAL but never referenced; -include such names as externs in the generated C (even -though most C compilers will discard them). - -24 Sept. 1989: - New option -w8 to suppress complaint when COMMON or EQUIVALENCE -forces word alignment of a double. - Under -A (for ANSI C), ensure that floating constants (terminated -by 'f') contain either a decimal point or an exponent field. - Repair bugs sometimes encountered with CHAR and ICHAR intrinsic -functions. - Restore f77's optimizations for copying and comparing character -strings of length 1. - Always assume floating-point valued routines in libF77 return -doubles, even under -R. - Repair occasional omission of arguments in routines having multiple -entry points. - Repair bugs in computing offsets of character strings involved -in EQUIVALENCE. - Don't omit structure qualification when COMMON variables are used -as FORMATs or internal files. - -2 Oct. 1989: - Warn about variables that appear only in data stmts; don't emit them. - Fix bugs in character DATA for noncharacter variables -involved in EQUIVALENCE. - Treat noncharacter variables initialized (at least partly) with -character data as though they were equivalenced -- put out a struct -and #define the variables. This eliminates the hideous and nonportable -numeric values that were used to initialize such variables. - Treat IMPLICIT NONE as IMPLICIT UNDEFINED(A-Z) . - Quit when given invalid options. - -8 Oct. 1989: - Modified naming scheme for generated intermediate variables; -more are recycled, fewer distinct ones used. - New option -W nn specifies nn characters/word for Hollerith -data initializing non-character variables. - Bug fix: x(i:min(i+10,j)) used to elicit "Can't handle opcode 31 yet". - Integer expressions of the form (i+const1) - (i+const2), where -i is a scalar integer variable, are now simplified to (const1-const2); -this leads to simpler translation of some substring expressions. - Initialize uninitialized portions of character string arrays to 0 -rather than to blanks. - -9 Oct. 1989: - New option -c to insert comments showing original Fortran source. - New option -g to insert line numbers of original Fortran source. - -10 Oct. 1989: - ! recognized as in-line comment delimiter (a la Fortran 88). - -24 Oct. 1989: - New options to ease coping with systems that want the structs -that result from COMMON blocks to be defined just once: - -E causes uninitialized COMMON blocks to be declared Extern; -if Extern is undefined, f2c.h #defines it to be extern. - -ec causes a separate .c file to be emitted for each -uninitialized COMMON block: COMMON /ABC/ yields abc_com.c; -thus one can compile *_com.c into a library to ensure -precisely one definition. - -e1c is similar to -ec, except that everything goes into -one file, along with comments that give a sed script for -splitting the file into the pieces that -ec would give. -This is for use with netlib's "execute f2c" service (for which --ec is coerced into -e1c, and the sed script will put everything -but the COMMON definitions into f2c_out.c ). - -28 Oct. 1989: - Convert "i = i op ..." into "i op= ...;" even when i is a -dummy argument. - -13 Nov. 1989: - Name integer constants (passed as arguments) c__... rather -than c_... so - common /c/stuff - call foo(1) - ... -is translated correctly. - -19 Nov. 1989: - Floating-point constants are now kept as strings unless they -are involved in constant expressions that get simplified. The -floating-point constants kept as strings can have arbitrarily -many significant figures and a very large exponent field (as -large as long int allows on the machine on which f2c runs). -Thus, for example, the body of - - subroutine zot(x) - double precision x(6), pi - parameter (pi=3.1415926535897932384626433832795028841972) - x(1) = pi - x(2) = pi+1 - x(3) = 9287349823749272.7429874923740978492734D-298374 - x(4) = .89 - x(5) = 4.0005 - x(6) = 10D7 - end - -now gets translated into - - x[1] = 3.1415926535897932384626433832795028841972; - x[2] = 4.1415926535897931; - x[3] = 9.2873498237492727429874923740978492734e-298359; - x[4] = (float).89; - x[5] = (float)4.0005; - x[6] = 1e8; - -rather than the former - - x[1] = 3.1415926535897931; - x[2] = 4.1415926535897931; - x[3] = 0.; - x[4] = (float)0.89000000000000003; - x[5] = (float)4.0004999999999997; - x[6] = 100000000.; - - Recognition of f77 machine-constant intrinsics deleted, i.e., -epbase, epprec, epemin, epemax, eptiny, ephuge, epmrsp. - -22 Nov. 1989: - Workarounds for glitches on some Sun systems... - libf77: libF77/makefile modified to point out possible need -to compile libF77/main.c with -Donexit=on_exit . - libi77: libI77/wref.c (and libI77/README) modified so non-ANSI -systems can compile with USE_STRLEN defined, which will cause - sprintf(b = buf, "%#.*f", d, x); - n = strlen(b) + d1; -rather than - n = sprintf(b = buf, "%#.*f", d, x) + d1; -to be compiled. - -26 Nov. 1989: - Longer names are now accepted (up to 50 characters); names may -contain underscores (in which case they will have two underscores -appended, to avoid clashes with library names). - -28 Nov. 1989: - libi77 updated: - 1. Allow 3 (or, on Crays, 4) digit exponents under format Ew.d . - 2. Try to get things right on machines where ints have 16 bits. - -29 Nov. 1989: - Supplied missing semicolon in parameterless subroutines that -have multiple entry points (all of them parameterless). - -30 Nov. 1989: - libf77 and libi77 revised to use types from f2c.h. - f2c now types floating-point valued C library routines as "double" -rather than "doublereal" (for use with nonstandard C compilers for -which "double" is IEEE double extended). - -1 Dec. 1989: - f2c.h updated to eliminate #defines rendered unnecessary (and, -indeed, dangerous) by change of 26 Nov. to long names possibly -containing underscores. - libi77 further revised: yesterday's change omitted two tweaks to fmt.h -(tweaks which only matter if float and real or double and doublereal are -different types). - -2 Dec. 1989: - Better error message (than "bad tag") for NAMELIST, which no longer -inhibits C output. - -4 Dec. 1989: - Allow capital letters in hex constants (f77 extension; e.g., -x'a012BCd', X'A012BCD' and x'a012bcd' are all treated as the integer -167848909). - libi77 further revised: lio.c lio.h lread.c wref.c wrtfmt.c tweaked -again to allow float and real or double and doublereal to be different. - -6 Dec. 1989: - Revised f2c.h -- required for the following... - Simpler looking translations for abs, min, max, using #defines in -revised f2c.h . - libi77: more corrections to types; additions for NAMELIST. - Corrected casts in some I/O calls. - Translation of NAMELIST; libi77 must still be revised. Currently -libi77 gives you a run-time error message if you attempt NAMELIST I/O. - -7 Dec. 1989: - Fixed bug that prevented local integer variables that appear in DATA -stmts from being ASSIGNed statement labels. - Fillers (for DATA statements initializing EQUIVALENCEd variables and -variables in COMMON) typed integer rather than doublereal (for slightly -more portability, e.g. to Crays). - libi77: missing return values supplied in a few places; some tests -reordered for better working on the Cray. - libf77: better accuracy for complex divide, complex square root, -real mod function (casts to double; double temporaries). - -9 Dec. 1989: - Fixed bug that caused needless (albeit harmless) empty lines to be -inserted in the C output when a comment line contained trailing blanks. - Further tweak to type of fillers: allow doublereal fillers if the -struct has doublereal data. - -11 Dec. 1989: - Alteration of rule for producing external (C) names from names that -contain underscores. Now the external name is always obtained by -appending a pair of underscores. - -12 Dec. 1989: - C production inhibited after most errors. - -15 Dec. 1989: - Fixed bug in headers for subroutines having two or more character -strings arguments: the length arguments were reversed. - -19 Dec. 1989: - f2c.h libf77 libi77: adjusted so #undefs in f2c.h should not foil -compilation of libF77 and libI77. - libf77: getenv_ adjusted to work with unsorted environments. - libi77: the iostat= specifier should now work right with internal I/O. - -20 Dec. 1989: - f2c bugs fixed: In the absence of an err= specifier, the iostat= -specifier was generally set wrong. Character strings containing -explicit nulls (\0) were truncated at the first null. - Unlabeled DO loops recognized; must be terminated by ENDDO. -(Don't ask for CYCLE, EXIT, named DO loops, or DO WHILE.) - -29 Dec. 1989: - Nested unlabeled DO loops now handled properly; new warning for -extraneous text at end of FORMAT. - -30 Dec. 1989: - Fixed bug in translating dble(real(...)), dble(sngl(...)), and -dble(float(...)), where ... is either of type double complex or -is an expression requiring assignment to intermediate variables (e.g., -dble(real(foo(x+1))), where foo is a function and x is a variable). -Regard nonblank label fields on continuation lines as an error. - -3 Jan. 1990: - New option -C++ yields output that should be understood -by C++ compilers. - -6 Jan. 1989: - -a now excludes variables that appear in a namelist from those -that it makes automatic. (As before, it also excludes variables -that appear in a common, data, equivalence, or save statement.) - The syntactically correct Fortran - read(*,i) x - end -now yields syntactically correct C (even though both the Fortran -and C are buggy -- no FORMAT has not been ASSIGNed to i). - -7 Jan. 1990: - libi77: routines supporting NAMELIST added. Surrounding quotes -made optional when no ambiguity arises in a list or namelist READ -of a character-string value. - -9 Jan. 1990: - f2c.src made available. - -16 Jan. 1990: - New options -P to produce ANSI C or C++ prototypes for procedures -defined. Change to -A and -C++: f2c tries to infer prototypes for -invoked procedures unless the new -!P option is given. New warning -messages for inconsistent calling sequences among procedures within -a single file. Most of f2c/src is affected. - f2c.h: typedefs for procedure arguments added; netlib's f2c service -will insert appropriate typedefs for use with older versions of f2c.h. - -17 Jan. 1990: - f2c/src: defs.h exec.c format.c proc.c putpcc.c version.c xsum0.out -updated. Castargs and protofile made extern in defs.h; exec.c -modified so superfluous else clauses are diagnosed; unused variables -omitted from declarations in format.c proc.c putpcc.c . - -21 Jan. 1990: - No C emitted for procedures declared external but not referenced. - f2c.h: more new types added for use with -P. - New feature: f2c accepts as arguments files ending in .p or .P; -such files are assumed to be prototype files, such as produced by -the -P option. All prototype files are read before any Fortran files -and apply globally to all Fortran files. Suitable prototypes help f2c -warn about calling-sequence errors and can tell f2c how to type -procedures declared external but not explicitly typed; the latter is -mainly of interest for users of the -A and -C++ options. (Prototype -arguments are not available to netlib's "execute f2c" service.) - New option -it tells f2c to try to infer types of untyped external -arguments from their use as parameters to prototyped or previously -defined procedures. - f2c/src: many minor cleanups; most modules changed. Individual -files in f2c/src are now in "bundle" format. The former f2c.1 is -now f2c.1t; "f2c.1t from f2c" and "f2c.1t from f2c/src" are now the -same, as are "f2c.1 from f2c" and "f2c.1 from f2c/src". People who -do not obtain a new copy of "all from f2c/src" should at least add - fclose(sortfp); -after the call on do_init_data(outfile, sortfp) in format_data.c . - -22 Jan. 1990: - Cleaner man page wording (thanks to Doug McIlroy). - -it now also applies to all untyped EXTERNAL procedures, not just -arguments. - -23 Jan. 01:34:00 EST 1990: - Bug fixes: under -A and -C++, incorrect C was generated for -subroutines having multiple entries but no arguments. - Under -A -P, subroutines of no arguments were given prototype -calling sequence () rather than (void). - Character-valued functions elicited erroneous warning messages -about inconsistent calling sequences when referenced by another -procedure in the same file. - f2c.1t: omit first appearance of libF77.a in FILES section; -load order of libraries is -lF77 -lI77, not vice versa (bug -introduced in yesterday's edits); define .F macro for those whose --man lacks it. (For a while after yesterday's fixes were posted, -f2c.1t was out of date. Sorry!) - -23 Jan. 9:53:24 EST 1990: - Character substring expressions involving function calls having -character arguments (including the intrinsic len function) yielded -incorrect C. - Procedures defined after invocation (in the same file) with -conflicting argument types also got an erroneous message about -the wrong number of arguments. - -24 Jan. 11:44:00 EST 1990: - Bug fixes: -p omitted #undefs; COMMON block names containing -underscores had their C names incorrectly computed; a COMMON block -having the name of a previously defined procedure wreaked havoc; -if all arguments were .P files, f2c tried reading the second as a -Fortran file. - New feature: -P emits comments showing COMMON block lengths, so one -can get warnings of incompatible COMMON block lengths by having f2c -read .P (or .p) files. Now by running f2c twice, first with -P -!c -(or -P!c), then with *.P among the arguments, you can be warned of -inconsistent COMMON usage, and COMMON blocks having inconsistent -lengths will be given the maximum length. (The latter always did -happen within each input file; now -P lets you extend this behavior -across files.) - -26 Jan. 16:44:00 EST 1990: - Option -it made less aggressive: untyped external procedures that -are invoked are now typed by the rules of Fortran, rather than by -previous use of procedures to which they are passed as arguments -before being invoked. - Option -P now includes information about references, i.e., called -procedures, in the prototype files (in the form of special comments). -This allows iterative invocations of f2c to infer more about untyped -external names, particularly when multiple Fortran files are involved. - As usual, there are some obscure bug fixes: -1. Repair of erroneous warning messages about inconsistent number of -arguments that arose when a character dummy parameter was discovered -to be a function or when multiple entry points involved character -variables appearing in a previous entry point. -2. Repair of memory fault after error msg about "adjustable character -function". -3. Under -U, allow MAIN_ as a subroutine name (in the same file as a -main program). -4. Change for consistency: a known function invoked as a subroutine, -then as a function elicits a warning rather than an error. - -26 Jan. 22:32:00 EST 1990: - Fixed two bugs that resulted in incorrect C for substrings, within -the body of a character-valued function, of the function's name, when -those substrings were arguments to another function (even implicitly, -as in character-string assignment). - -28 Jan. 18:32:00 EST 1990: - libf77, libi77: checksum files added; "make check" looks for -transmission errors. NAMELIST read modified to allow $ rather than & -to precede a namelist name, to allow $ rather than / to terminate -input where the name of another variable would otherwise be expected, -and to regard all nonprinting ASCII characters <= ' ' as spaces. - -29 Jan. 02:11:00 EST 1990: - "fc from f2c" added. - -it option made the default; -!it turns it off. Type information is -now updated in a previously missed case. - -P option tweaked again; message about when rerunning f2c may change -prototypes or declarations made more accurate. - New option -Ps implies -P and returns exit status 4 if rerunning -f2c -P with prototype inputs might change prototypes or declarations. -Now you can execute a crude script like - - cat *.f >zap.F - rm -f zap.P - while :; do - f2c -Ps -!c zap.[FP] - case $? in 4) ;; *) break;; esac - done - -to get a file zap.P of the best prototypes f2c can determine for *.f . - -Jan. 29 07:30:21 EST 1990: - Forgot to check for error status when setting return code 4 under -Ps; -error status (1, 2, 3, or, for caught signal, 126) now takes precedence. - -Jan 29 14:17:00 EST 1990: - Incorrect handling of - open(n,'filename') -repaired -- now treated as - open(n,file='filename') -(and, under -ext, given an error message). - New optional source file memset.c for people whose systems don't -provide memset, memcmp, and memcpy; #include <string.h> in mem.c -changed to #include "string.h" so BSD people can create a local -string.h that simply says #include <strings.h> . - -Jan 30 10:34:00 EST 1990: - Fix erroneous warning at end of definition of a procedure with -character arguments when the procedure had previously been called with -a numeric argument instead of a character argument. (There were two -warnings, the second one incorrectly complaining of a wrong number of -arguments.) - -Jan 30 16:29:41 EST 1990: - Fix case where -P and -Ps erroneously reported another iteration -necessary. (Only harm is the extra iteration.) - -Feb 3 01:40:00 EST 1990: - Supply semicolon occasionally omitted under -c . - Try to force correct alignment when numeric variables are initialized -with character data (a non-standard and non-portable practice). You -must use the -W option if your code has such data statements and is -meant to run on a machine with other than 4 characters/word; e.g., for -code meant to run on a Cray, you would specify -W8 . - Allow parentheses around expressions in output lists (in write and -print statements). - Rename source files so their names are <= 12 characters long -(so there's room to append .Z and still have <= 14 characters); -renamed files: formatdata.c niceprintf.c niceprintf.h safstrncpy.c . - f2c material made available by anonymous ftp from research.att.com -(look in dist/f2c ). - -Feb 3 03:49:00 EST 1990: - Repair memory fault that arose from use (in an assignment or -call) of a non-argument variable declared CHARACTER*(*). - -Feb 9 01:35:43 EST 1990: - Fix erroneous error msg about bad types in - subroutine foo(a,adim) - dimension a(adim) - integer adim - Fix improper passing of character args (and possible memory fault) -in the expression part of a computed goto. - Fix botched calling sequences in array references involving -functions having character args. - Fix memory fault caused by invocation of character-valued functions -of no arguments. - Fix botched calling sequence of a character*1-valued function -assigned to a character*1 variable. - Fix bug in error msg for inconsistent number of args in prototypes. - Allow generation of C output despite inconsistencies in prototypes, -but give exit code 8. - Simplify include logic (by removing some bogus logic); never -prepend "/usr/include/" to file names. - Minor cleanups (that should produce no visible change in f2c's -behavior) in intr.c parse.h main.c defs.h formatdata.c p1output.c . - -Feb 10 00:19:38 EST 1990: - Insert (integer) casts when floating-point expressions are used -as subscripts. - Make SAVE stmt (with no variable list) override -a . - Minor cleanups: change field to Field in struct Addrblock (for the -benefit of buggy C compilers); omit system("/bin/cp ...") in misc.c . - -Feb 13 00:39:00 EST 1990: - Error msg fix in gram.dcl: change "cannot make %s parameter" -to "cannot make into parameter". - -Feb 14 14:02:00 EST 1990: - Various cleanups (invisible on systems with 4-byte ints), thanks -to Dave Regan: vaxx.c eliminated; %d changed to %ld various places; -external names adjusted for the benefit of stupid systems (that ignore -case and recognize only 6 significant characters in external names); -buffer shortened in xsum.c (e.g. for MS-DOS); fopen modes distinguish -text and binary files; several unused functions eliminated; missing -arg supplied to an unlikely fatalstr invocation. - -Thu Feb 15 19:15:53 EST 1990: - More cleanups (invisible on systems with 4 byte ints); casts inserted -so most complaints from cyntax(1) and lint(1) go away; a few (int) -versus (long) casts corrected. - -Fri Feb 16 19:55:00 EST 1990: - Recognize and translate unnamed Fortran 8x do while statements. - Fix bug that occasionally caused improper breaking of character -strings. - New error message for attempts to provide DATA in a type-declaration -statement. - -Sat Feb 17 11:43:00 EST 1990: - Fix infinite loop clf -> Fatal -> done -> clf after I/O error. - Change "if (addrp->vclass = CLPROC)" to "if (addrp->vclass == CLPROC)" -in p1_addr (in p1output.c); this was probably harmless. - Move a misplaced } in lex.c (which slowed initkey()). - Thanks to Gary Word for pointing these things out. - -Sun Feb 18 18:07:00 EST 1990: - Detect overlapping initializations of arrays and scalar variables -in previously missed cases. - Treat logical*2 as logical (after issuing a warning). - Don't pass string literals to p1_comment(). - Correct a cast (introduced 16 Feb.) in gram.expr; this matters e.g. -on a Cray. - Attempt to isolate UNIX-specific things in sysdep.c (a new source -file). Unless sysdep.c is compiled with SYSTEM_SORT defined, the -intermediate files created for DATA statements are now sorted in-core -without invoking system(). - -Tue Feb 20 16:10:35 EST 1990: - Move definition of binread and binwrite from init.c to sysdep.c . - Recognize Fortran 8x tokens < <= == >= > <> as synonyms for -.LT. .LE. .EQ. .GE. .GT. .NE. - Minor cleanup in putpcc.c: fully remove simoffset(). - More discussion of system dependencies added to libI77/README. - -Tue Feb 20 21:44:07 EST 1990: - Minor cleanups for the benefit of EBCDIC machines -- try to remove -the assumption that 'a' through 'z' are contiguous. (Thanks again to -Gary Word.) Also, change log2 to log_2 (shouldn't be necessary). - -Wed Feb 21 06:24:56 EST 1990: - Fix botch in init.c introduced in previous change; only matters -to non-ASCII machines. - -Thu Feb 22 17:29:12 EST 1990: - Allow several entry points to mention the same array. Protect -parameter adjustments with if's (for the case that an array is not -an argument to all entrypoints). - Under -u, allow - subroutine foo(x,n) - real x(n) - integer n - Compute intermediate variables used to evaluate dimension expressions -at the right time. Example previously mistranslated: - subroutine foo(x,k,m,n) - real x(min(k,m,n)) - ... - write(*,*) x - Detect duplicate arguments. (The error msg points to the first -executable stmt -- not wonderful, but not worth fixing.) - Minor cleanup of min/max computation (sometimes slightly simpler). - -Sun Feb 25 09:39:01 EST 1990: - Minor tweak to multiple entry points: protect parameter adjustments -with if's only for (array) args that do not appear in all entry points. - Minor tweaks to format.c and io.c (invisible unless your compiler -complained at the duplicate #defines of IOSUNIT and IOSFMT or at -comparisons of p1gets(...) with NULL). - -Sun Feb 25 18:40:10 EST 1990: - Fix bug introduced Feb. 22: if a subprogram contained DATA and the -first executable statement was labeled, then the label got lost. -(Just change INEXEC to INDATA in p1output.c; it occurs just once.) - -Mon Feb 26 17:45:10 EST 1990: - Fix bug in handling of " and ' in comments. - -Wed Mar 28 01:43:06 EST 1990: -libI77: - 1. Repair nasty I/O bug: opening two files and closing the first -(after possibly reading or writing it), then writing the second caused -the last buffer of the second to be lost. - 2. Formatted reads of logical values treated all letters other than -t or T as f (false). - libI77 files changed: err.c rdfmt.c Version.c - (Request "libi77 from f2c" -- you can't get these files individually.) - -f2c itself: - Repair nasty bug in translation of - ELSE IF (condition involving complicated abs, min, or max) --- auxiliary statements were emitted at the wrong place. - Supply semicolon previously omitted from the translation of a label -(of a CONTINUE) immediately preceding an ELSE IF or an ELSE. This -bug made f2c produce invalid C. - Correct a memory fault that occurred (on some machines) when the -error message "adjustable dimension on non-argument" should be given. - Minor tweaks to remove some harmless warnings by overly chatty C -compilers. - Argument arays having constant dimensions but a variable lower bound -(e.g., x(n+1:n+3)) had a * omitted from scalar arguments involved in -the array offset computation. - -Wed Mar 28 18:47:59 EST 1990: -libf77: add exit(0) to end of main [return(0) encounters a Cray bug] - -Sun Apr 1 16:20:58 EDT 1990: - Avoid dereferencing null when processing equivalences after an error. - -Fri Apr 6 08:29:49 EDT 1990: - Calls involving alternate return specifiers omitted processing -needed for things like min, max, abs, and // (concatenation). - INTEGER*2 PARAMETERs were treated as INTEGER*4. - Convert some O(n^2) parsing to O(n). - -Tue Apr 10 20:07:02 EDT 1990: - When inconsistent calling sequences involve differing numbers of -arguments, report the first differing argument rather than the numbers -of arguments. - Fix bug under -a: formatted I/O in which either the unit or the -format was a local character variable sometimes resulted in invalid C -(a static struct initialized with an automatic component). - Improve error message for invalid flag after elided -. - Complain when literal table overflows, rather than infinitely -looping. (The complaint mentions the new and otherwise undocumented --NL option for specifying a larger literal table.) - New option -h for forcing strings to word (or, with -hd, double-word) -boundaries where possible. - Repair a bug that could cause improper splitting of strings. - Fix bug (cast of c to doublereal) in - subroutine foo(c,r) - double complex c - double precision r - c = cmplx(r,real(c)) - end - New include file "sysdep.h" has some things from defs.h (and -elsewhere) that one may need to modify on some systems. - Some large arrays that were previously statically allocated are now -dynamically allocated when f2c starts running. - f2c/src files changed: - README cds.c defs.h f2c.1 f2c.1t format.c formatdata.c init.c - io.c lex.c main.c makefile mem.c misc.c names.c niceprintf.c - output.c parse_args.c pread.c put.c putpcc.c sysdep.h - version.c xsum0.out - -Wed Apr 11 18:27:12 EDT 1990: - Fix bug in argument consistency checking of character, complex, and -double complex valued functions. If the same source file contained a -definition of such a function with arguments not explicitly typed, -then subsequent references to the function might get erroneous -warnings of inconsistent calling sequences. - Tweaks to sysdep.h for partially ANSI systems. - New options -kr and -krd cause f2c to use temporary variables to -enforce Fortran evaluation-order rules with pernicious, old-style C -compilers that apply the associative law to floating-point operations. - -Sat Apr 14 15:50:15 EDT 1990: - libi77: libI77 adjusted to allow list-directed and namelist I/O -of internal files; bug in namelist I/O of logical and character arrays -fixed; list input of complex numbers adjusted to permit d or D to -denote the start of the exponent field of a component. - f2c itself: fix bug in handling complicated lower-bound -expressions for character substrings; e.g., min and max did not work -right, nor did function invocations involving character arguments. - Switch to octal notation, rather than hexadecimal, for nonprinting -characters in character and string constants. - Fix bug (when neither -A nor -C++ was specified) in typing of -external arguments of type complex, double complex, or character: - subroutine foo(c) - external c - complex c -now results in - /* Complex */ int (*c) (); -(as, indeed, it once did) rather than - complex (*c) (); - -Sat Apr 14 22:50:39 EDT 1990: - libI77/makefile: updated "make check" to omit lio.c - lib[FI]77/makefile: trivial change: define CC = cc, reference $(CC). - (Request, e.g., "libi77 from f2c" -- you can't ask for individual -files from lib[FI]77.) - -Wed Apr 18 00:56:37 EDT 1990: - Move declaration of atof() from defs.h to sysdep.h, where it is -now not declared if stdlib.h is included. (NeXT's stdlib.h has a -#define atof that otherwise wreaks havoc.) - Under -u, provide a more intelligible error message (than "bad tag") -for an attempt to define a function without specifying its type. - -Wed Apr 18 17:26:27 EDT 1990: - Recognize \v (vertical tab) in Hollerith as well as quoted strings; -add recognition of \r (carriage return). - New option -!bs turns off recognition of escapes in character strings -(\0, \\, \b, \f, \n, \r, \t, \v). - Move to sysdep.c initialization of some arrays whose initialization -assumed ASCII; #define Table_size in sysdep.h rather than using -hard-coded 256 in allocating arrays of size 1 << (bits/byte). - -Thu Apr 19 08:13:21 EDT 1990: - Warn when escapes would make Hollerith extend beyond statement end. - Omit max() definition from misc.c (should be invisible except on -systems that erroneously #define max in stdlib.h). - -Mon Apr 23 22:24:51 EDT 1990: - When producing default-style C (no -A or -C++), cast switch -expressions to (int). - Move "-lF77 -lI77 -lm -lc" to link_msg, defined in sysdep.c . - Add #define scrub(x) to sysdep.h, with invocations in format.c and -formatdata.c, so that people who have systems like VMS that would -otherwise create multiple versions of intermediate files can -#define scrub(x) unlink(x) - -Tue Apr 24 18:28:36 EDT 1990: - Pass string lengths once rather than twice to a function of character -arguments involved in comparison of character strings of length 1. - -Fri Apr 27 13:11:52 EDT 1990: - Fix bug that made f2c gag on concatenations involving char(...) on -some systems. - -Sat Apr 28 23:20:16 EDT 1990: - Fix control-stack bug in - if(...) then - else if (complicated condition) - else - endif -(where the complicated condition causes assignment to an auxiliary -variable, e.g., max(a*b,c)). - -Mon Apr 30 13:30:10 EDT 1990: - Change fillers for DATA with holes from substructures to arrays -(in an attempt to make things work right with C compilers that have -funny padding rules for substructures, e.g., Sun C compilers). - Minor cleanup of exec.c (should not affect generated C). - -Mon Apr 30 23:13:51 EDT 1990: - Fix bug in handling return values of functions having multiple -entry points of differing return types. - -Sat May 5 01:45:18 EDT 1990: - Fix type inference bug in - subroutine foo(x) - call goo(x) - end - subroutine goo(i) - i = 3 - end -Instead of warning of inconsistent calling sequences for goo, -f2c was simply making i a real variable; now i is correctly -typed as an integer variable, and f2c issues an error message. - Adjust error messages issued at end of declarations so they -don't blame the first executable statement. - -Sun May 6 01:29:07 EDT 1990: - Fix bug in -P and -Ps: warn when the definition of a subprogram adds -information that would change prototypes or previous declarations. - -Thu May 10 18:09:15 EDT 1990: - Fix further obscure bug with (default) -it: inconsistent calling -sequences and I/O statements could interact to cause a memory fault. -Example: - SUBROUTINE FOO - CALL GOO(' Something') ! Forgot integer first arg - END - SUBROUTINE GOO(IUNIT,MSG) - CHARACTER*(*)MSG - WRITE(IUNIT,'(1X,A)') MSG - END - -Fri May 11 16:49:11 EDT 1990: - Under -!c, do not delete any .c files (when there are errors). - Avoid dereferencing 0 when a fatal error occurs while reading -Fortran on stdin. - -Wed May 16 18:24:42 EDT 1990: - f2c.ps made available. - -Mon Jun 4 12:53:08 EDT 1990: - Diagnose I/O units of invalid type. - Add specific error msg about dummy arguments in common. - -Wed Jun 13 12:43:17 EDT 1990: - Under -A, supply a missing "[1]" for CHARACTER*1 variables that appear -both in a DATA statement and in either COMMON or EQUIVALENCE. - -Mon Jun 18 16:58:31 EDT 1990: - Trivial updates to f2c.ps . ("Fortran 8x" --> "Fortran 90"; omit -"(draft)" from "(draft) ANSI C".) - -Tue Jun 19 07:36:32 EDT 1990: - Fix incorrect code generated for ELSE IF(expression involving -function call passing non-constant substring). - Under -h, preserve the property that strings are null-terminated -where possible. - Remove spaces between # and define in lex.c output.c parse.h . - -Mon Jun 25 07:22:59 EDT 1990: - Minor tweak to makefile to reduce unnecessary recompilations. - -Tue Jun 26 11:49:53 EDT 1990: - Fix unintended truncation of some integer constants on machines -where casting a long to (int) may change the value. E.g., when f2c -ran on machines with 16-bit ints, "i = 99999" was being translated -to "i = -31073;". - -Wed Jun 27 11:05:32 EDT 1990: - Arrange for CHARACTER-valued PARAMETERs to honor their length -specifications. Allow CHAR(nn) in expressions defining such PARAMETERs. - -Fri Jul 20 09:17:30 EDT 1990: - Avoid dereferencing 0 when a FORMAT statement has no label. - -Thu Jul 26 11:09:39 EDT 1990: - Remarks about VOID and binread,binwrite added to README. - Tweaks to parse_args: should be invisible unless your compiler -complained at (short)*store. - -Thu Aug 2 02:07:58 EDT 1990: - f2c.ps: change the first line of page 5 from - include stuff -to - include 'stuff' - -Tue Aug 14 13:21:24 EDT 1990: - libi77: libI77 adjusted to treat tabs as spaces in list input. - -Fri Aug 17 07:24:53 EDT 1990: - libi77: libI77 adjusted so a blank='ZERO' clause (upper case Z) -in an open of a currently open file works right. - -Tue Aug 28 01:56:44 EDT 1990: - Fix bug in warnings of inconsistent calling sequences: if an -argument to a subprogram was never referenced, then a previous -invocation of the subprogram (in the same source file) that -passed something of the wrong type for that argument did not -elicit a warning message. - -Thu Aug 30 09:46:12 EDT 1990: - libi77: prevent embedded blanks in list output of complex values; -omit exponent field in list output of values of magnitude between -10 and 1e8; prevent writing stdin and reading stdout or stderr; -don't close stdin, stdout, or stderr when reopening units 5, 6, 0. - -Tue Sep 4 12:30:57 EDT 1990: - Fix bug in C emitted under -I2 or -i2 for INTEGER*4 FUNCTION. - Warn of missing final END even if there are previous errors. - -Fri Sep 7 13:55:34 EDT 1990: - Remark about "make xsum.out" and "make f2c" added to README. - -Tue Sep 18 23:50:01 EDT 1990: - Fix null dereference (and, on some systems, writing of bogus *_com.c -files) under -ec or -e1c when a prototype file (*.p or *.P) describes -COMMON blocks that do not appear in the Fortran source. - libi77: - Add some #ifdef lines (#ifdef MSDOS, #ifndef MSDOS) to avoid -references to stat and fstat on non-UNIX systems. - On UNIX systems, add component udev to unit; decide that old -and new files are the same iff both the uinode and udev components -of unit agree. - When an open stmt specifies STATUS='OLD', use stat rather than -access (on UNIX systems) to check the existence of the file (in case -directories leading to the file have funny permissions and this is -a setuid or setgid program). - -Thu Sep 27 16:04:09 EDT 1990: - Supply missing entry for Impldoblock in blksize array of cpexpr -(in expr.c). No examples are known where this omission caused trouble. - -Tue Oct 2 22:58:09 EDT 1990: - libf77: test signal(...) == SIG_IGN rather than & 01 in main(). - libi77: adjust rewind.c so two successive rewinds after a write -don't clobber the file. - -Thu Oct 11 18:00:14 EDT 1990: - libi77: minor cleanups: add #include "fcntl.h" to endfile.c, err.c, -open.c; adjust g_char in util.c for segmented memories; in f_inqu -(inquire.c), define x appropriately when MSDOS is defined. - -Mon Oct 15 20:02:11 EDT 1990: - Add #ifdef MSDOS pointer adjustments to mem.c; treat NAME= as a -synonym for FILE= in OPEN statements. - -Wed Oct 17 16:40:37 EDT 1990: - libf77, libi77: minor cleanups: _cleanup() and abort() invocations -replaced by invocations of sig_die in main.c; some error messages -previously lost in buffers will now appear. - -Mon Oct 22 16:11:27 EDT 1990: - libf77: separate sig_die from main (for folks who don't want to use -the main in libF77). - libi77: minor tweak to comments in README. - -Fri Nov 2 13:49:35 EST 1990: - Use two underscores rather than one in generated temporary variable -names to avoid conflict with COMMON names. f2c.ps updated to reflect -this change and the NAME= extension introduced 15 Oct. - Repair a rare memory fault in io.c . - -Mon Nov 5 16:43:55 EST 1990: - libi77: changes to open.c (and err.c): complain if an open stmt -specifies new= and the file already exists (as specified by Fortrans 77 -and 90); allow file= to be omitted in open stmts and allow -status='replace' (Fortran 90 extensions). - -Fri Nov 30 10:10:14 EST 1990: - Adjust malloc.c for unusual systems whose sbrk() can return values -not properly aligned for doubles. - Arrange for slightly more helpful and less repetitive warnings for -non-character variables initialized with character data; these warnings -are (still) suppressed by -w66. - -Fri Nov 30 15:57:59 EST 1990: - Minor tweak to README (about changing VOID in f2c.h). - -Mon Dec 3 07:36:20 EST 1990: - Fix spelling of "character" in f2c.1t. - -Tue Dec 4 09:48:56 EST 1990: - Remark about link_msg and libf2c added to f2c/README. - -Thu Dec 6 08:33:24 EST 1990: - Under -U, render label nnn as L_nnn rather than Lnnn. - -Fri Dec 7 18:05:00 EST 1990: - Add more names from f2c.h (e.g. integer, real) to the c_keywords -list of names to which an underscore is appended to avoid confusion. - -Mon Dec 10 19:11:15 EST 1990: - Minor tweaks to makefile (./xsum) and README (binread/binwrite). - libi77: a few modifications for POSIX systems; meant to be invisible -elsewhere. - -Sun Dec 16 23:03:16 EST 1990: - Fix null dereference caused by unusual erroneous input, e.g. - call foo('abc') - end - subroutine foo(msg) - data n/3/ - character*(*) msg - end -(Subroutine foo is illegal because the character statement comes after a -data statement.) - Use decimal rather than hex constants in xsum.c (to prevent -erroneous warning messages about constant overflow). - -Mon Dec 17 12:26:40 EST 1990: - Fix rare extra underscore in character length parameters passed -for multiple entry points. - -Wed Dec 19 17:19:26 EST 1990: - Allow generation of C despite error messages about bad alignment -forced by equivalence. - Allow variable-length concatenations in I/O statements, such as - open(3, file=bletch(1:n) // '.xyz') - -Fri Dec 28 17:08:30 EST 1990: - Fix bug under -p with formats and internal I/O "units" in COMMON, -as in - COMMON /FIGLEA/F - CHARACTER*20 F - F = '(A)' - WRITE (*,FMT=F) 'Hello, world!' - END - -Tue Jan 15 12:00:24 EST 1991: - Fix bug when two equivalence groups are merged, the second with -nonzero offset, and the result is then merged into a common block. -Example: - INTEGER W(3), X(3), Y(3), Z(3) - COMMON /ZOT/ Z - EQUIVALENCE (W(1),X(1)), (X(2),Y(1)), (Z(3),X(1)) -***** W WAS GIVEN THE WRONG OFFSET - Recognize Fortran 90's optional NML= in NAMELIST READs and WRITEs. -(Currently NML= and FMT= are treated as synonyms -- there's no -error message if, e.g., NML= specifies a format.) - libi77: minor adjustment to allow internal READs from character -string constants in read-only memory. - -Fri Jan 18 22:56:15 EST 1991: - Add comment to README about needing to comment out the typedef of -size_t in sysdep.h on some systems, e.g. Sun 4.1. - Fix misspelling of "statement" in an error message in lex.c - -Wed Jan 23 00:38:48 EST 1991: - Allow hex, octal, and binary constants to have the qualifying letter -(z, x, o, or b) either before or after the quoted string containing the -digits. For now this change will not be reflected in f2c.ps . - -Tue Jan 29 16:23:45 EST 1991: - Arrange for character-valued statement functions to give results of -the right length (that of the statement function's name). - -Wed Jan 30 07:05:32 EST 1991: - More tweaks for character-valued statement functions: an error -check and an adjustment so a right-hand side of nonconstant length -(e.g., a substring) is handled right. - -Wed Jan 30 09:49:36 EST 1991: - Fix p1_head to avoid printing (char *)0 with %s. - -Thu Jan 31 13:53:44 EST 1991: - Add a test after the cleanup call generated for I/O statements with -ERR= or END= clauses to catch the unlikely event that the cleanup -routine encounters an error. - -Mon Feb 4 08:00:58 EST 1991: - Minor cleanup: omit unneeded jumps and labels from code generated for -some NAMELIST READs and WRITEs with IOSTAT=, ERR=, and/or END=. - -Tue Feb 5 01:39:36 EST 1991: - Change Mktemp to mktmp (for the benefit of systems so brain-damaged -that they do not distinguish case in external names -- and that for -some reason want to load mktemp). Try to get xsum0.out right this -time (it somehow didn't get updated on 4 Feb. 1991). - Add note to libi77/README about adjusting the interpretation of -RECL= specifiers in OPENs for direct unformatted I/O. - -Thu Feb 7 17:24:42 EST 1991: - New option -r casts values of REAL functions, including intrinsics, -to REAL. This only matters for unportable code like - real r - r = asin(1.) - if (r .eq. asin(1.)) ... -[The behavior of such code varies with the Fortran compiler used -- -and sometimes is affected by compiler options.] For now, the man page -at the end of f2c.ps is the only part of f2c.ps that reflects this new -option. - -Fri Feb 8 18:12:51 EST 1991: - Cast pointer differences passed as arguments to the appropriate type. -This matters, e.g., with MSDOS compilers that yield a long pointer -difference but have int == short. - Disallow nonpositive dimensions. - -Fri Feb 15 12:24:15 EST 1991: - Change %d to %ld in sprintf call in putpower in putpcc.c. - Free more memory (e.g. allowing translation of larger Fortran -files under MS-DOS). - Recognize READ (character expression) and WRITE (character expression) -as formatted I/O with the format given by the character expression. - Update year in Notice. - -Sat Feb 16 00:42:32 EST 1991: - Recant recognizing WRITE(character expression) as formatted output --- Fortran 77 is not symmetric in its syntax for READ and WRITE. - -Mon Mar 4 15:19:42 EST 1991: - Fix bug in passing the real part of a complex argument to an intrinsic -function. Omit unneeded parentheses in nested calls to intrinsics. -Example: - subroutine foo(x, y) - complex y - x = exp(sin(real(y))) + exp(imag(y)) - end - -Fri Mar 8 15:05:42 EST 1991: - Fix a comment in expr.c; omit safstrncpy.c (which had bugs in -cases not used by f2c). - -Wed Mar 13 02:27:23 EST 1991: - Initialize firstmemblock->next in mem_init in mem.c . [On most -systems it was fortuituously 0, but with System V, -lmalloc could -trip on this missed initialization.] - -Wed Mar 13 11:47:42 EST 1991: - Fix a reference to freed memory. - -Wed Mar 27 00:42:19 EST 1991: - Fix a memory fault caused by such illegal Fortran as - function foo - x = 3 - logical foo ! declaration among executables - foo=.false. ! used to suffer memory fault - end - -Fri Apr 5 08:30:31 EST 1991: - Fix loss of % in some format expressions, e.g. - write(*,'(1h%)') - Fix botch introduced 27 March 1991 that caused subroutines with -multiple entry points to have extraneous declarations of ret_val. - -Fri Apr 5 12:44:02 EST 1991 - Try again to omit extraneous ret_val declarations -- this morning's -fix was sometimes wrong. - -Mon Apr 8 13:47:06 EDT 1991: - Arrange for s_rnge to have the right prototype under -A -C . - -Wed Apr 17 13:36:03 EDT 1991: - New fatal error message for apparent invocation of a recursive -statement function. - -Thu Apr 25 15:13:37 EDT 1991: - F2c and libi77 adjusted so NAMELIST works with -i2. (I forgot -about -i2 when adding NAMELIST.) This required a change to f2c.h -(that only affects NAMELIST I/O under -i2.) Man-page description of --i2 adjusted to reflect that -i2 stores array lengths in short ints. - -Fri Apr 26 02:54:41 EDT 1991: - Libi77: fix some bugs in NAMELIST reading of multi-dimensional arrays -(file rsne.c). - -Thu May 9 02:13:51 EDT 1991: - Omit a trailing space in expr.c (could cause a false xsum value if -a mailer drops the trailing blank). - -Thu May 16 13:14:59 EDT 1991: - Libi77: increase LEFBL in lio.h to overcome a NeXT bug. - Tweak for compilers that recognize "nested" comments: inside comments, -turn /* into /+ (as well as */ into +/). - -Sat May 25 11:44:25 EDT 1991: - libf77: s_rnge: declare line long int rather than int. - -Fri May 31 07:51:50 EDT 1991: - libf77: system_: officially return status. - -Mon Jun 17 16:52:53 EDT 1991: - Minor tweaks: omit unnecessary declaration of strcmp (that caused -trouble on a system where strcmp was a macro) from misc.c; add -SHELL = /bin/sh to makefiles. - Fix a dereference of null when a CHARACTER*(*) declaration appears -(illegally) after DATA. Complain only once per subroutine about -declarations appearing after DATA. - -Mon Jul 1 00:28:13 EDT 1991: - Add test and error message for illegal use of subroutine names, e.g. - SUBROUTINE ZAP(A) - ZAP = A - END - -Mon Jul 8 21:49:20 EDT 1991: - Issue a warning about things like - integer i - i = 'abc' -(which is treated as i = ichar('a')). [It might be nice to treat 'abc' -as an integer initialized (in a DATA statement) with 'abc', but -other matters have higher priority.] - Render - i = ichar('A') -as - i = 'A'; -rather than - i = 65; -(which assumes ASCII). - -Fri Jul 12 07:41:30 EDT 1991: - Note added to README about erroneous definitions of __STDC__ . - -Sat Jul 13 13:38:54 EDT 1991: - Fix bugs in double type convesions of complex values, e.g. -sngl(real(...)) or dble(real(...)) (where ... is complex). - -Mon Jul 15 13:21:42 EDT 1991: - Fix bug introduced 8 July 1991 that caused erroneous warnings -"ichar([first char. of] char. string) assumed for conversion to numeric" -when a subroutine had an array of character strings as an argument. - -Wed Aug 28 01:12:17 EDT 1991: - Omit an unused function in format.c, an unused variable in proc.c . - Under -r8, promote complex to double complex (as the man page claims). - -Fri Aug 30 17:19:17 EDT 1991: - f2c.ps updated: slightly expand description of intrinsics and,or,xor, -not; add mention of intrinsics lshift, rshift; add note about f2c -accepting Fortran 90 inline comments (starting with !); update Cobalt -Blue address. - -Tue Sep 17 07:17:33 EDT 1991: - libI77: err.c and open.c modified to use modes "rb" and "wb" -when (f)opening unformatted files; README updated to point out -that it may be necessary to change these modes to "r" and "w" -on some non-ANSI systems. - -Tue Oct 15 10:25:49 EDT 1991: - Minor tweaks that make some PC compilers happier: insert some -casts, add args to signal functions. - Change -g to emit uncommented #line lines -- and to emit more of them; -update fc, f2c.1, f2c.1t, f2c.ps to reflect this. - Change uchar to Uchar in xsum.c . - Bring gram.c up to date. - -Thu Oct 17 09:22:05 EDT 1991: - libi77: README, fio.h, sue.c, uio.c changed so the length field -in unformatted sequential records has type long rather than int -(unless UIOLEN_int is #defined). This is for systems where sizeof(int) -can vary, depending on the compiler or compiler options. - -Thu Oct 17 13:42:59 EDT 1991: - libi77: inquire.c: when MSDOS is defined, don't strcmp units[i].ufnm -when it is NULL. - -Fri Oct 18 15:16:00 EDT 1991: - Correct xsum0.out in "all from f2c/src" (somehow botched on 15 Oct.). - -Tue Oct 22 18:12:56 EDT 1991: - Fix memory fault when a character*(*) argument is used (illegally) -as a dummy variable in the definition of a statement function. (The -memory fault occurred when the statement function was invoked.) - Complain about implicit character*(*). - -Thu Nov 14 08:50:42 EST 1991: - libi77: change uint to Uint in fmt.h, rdfmt.c, wrtfmt.c; this change -should be invisible unless you're running a brain-damaged system. - -Mon Nov 25 19:04:40 EST 1991: - libi77: correct botches introduced 17 Oct. 1991 and 14 Nov. 1991 -(change uint to Uint in lwrite.c; other changes that only matter if -sizeof(int) != sizeof(long)). - Add a more meaningful error message when bailing out due to an attempt -to invoke a COMMON variable as a function. - -Sun Dec 1 19:29:24 EST 1991: - libi77: uio.c: add test for read failure (seq. unformatted reads); -adjust an error return from EOF to off end of record. - -Tue Dec 10 17:42:28 EST 1991: - Add tests to prevent memory faults with bad uses of character*(*). - -Thu Dec 12 11:24:41 EST 1991: - libi77: fix bug with internal list input that caused the last -character of each record to be ignored; adjust error message in -internal formatted input from "end-of-file" to "off end of record" -if the format specifies more characters than the record contains. - -Wed Dec 18 17:48:11 EST 1991: - Fix bug in translating nonsensical ichar invocations involving -concatenations. - Fix bug in passing intrinsics lle, llt, lge, lgt as arguments; -hl_le was being passed rather than l_le, etc. - libf77: adjust length parameters from long to ftnlen, for -compiling with f2c_i2 defined. - -Sat Dec 21 15:30:57 EST 1991: - Allow DO nnn ... to end with an END DO statement labelled nnn. - -Tue Dec 31 13:53:47 EST 1991: - Fix bug in handling dimension a(n**3,2) -- pow_ii was called -incorrectly. - Fix bug in translating - subroutine x(abc,n) - character abc(n) - write(abc,'(i10)') 123 - end -(omitted declaration and initialiation of abc_dim1). - Complain about dimension expressions of such invalid types -as complex and logical. - -Fri Jan 17 11:54:20 EST 1992: - Diagnose some illegal uses of main program name (rather than -memory faulting). - libi77: (1) In list and namelist input, treat "r* ," and "r*," -alike (where r is a positive integer constant), and fix a bug in -handling null values following items with repeat counts (e.g., -2*1,,3). (2) For namelist reading of a numeric array, allow a new -name-value subsequence to terminate the current one (as though the -current one ended with the right number of null values). -(3) [lio.h, lwrite.c]: omit insignificant zeros in list and namelist -output. (Compile with -DOld_list_output to get the old behavior.) - -Sat Jan 18 15:58:01 EST 1992: - libi77: make list output consistent with F format by printing .1 -rather than 0.1 (introduced yesterday). - -Wed Jan 22 08:32:43 EST 1992: - libi77: add comment to README pointing out preconnection of -Fortran units 5, 6, 0 to stdin, stdout, stderr (respectively). - -Mon Feb 3 11:57:53 EST 1992: - libi77: fix namelist read bug that caused the character following -a comma to be ignored. - -Fri Feb 28 01:04:26 EST 1992: - libf77: fix buggy z_sqrt.c (double precision square root), which -misbehaved for arguments in the southwest quadrant. - -Thu Mar 19 15:05:18 EST 1992: - Fix bug (introduced 17 Jan 1992) in handling multiple entry points -of differing types (with implicitly typed entries appearing after -the first executable statement). - Fix memory fault in the following illegal Fortran: - double precision foo(i) -* illegal: above should be "double precision function foo(i)" - foo = i * 3.2 - entry moo(i) - end - Note about ANSI_Libraries (relevant, e.g., to IRIX 4.0.1 and AIX) -added to README. - Abort zero divides during constant simplification. - -Sat Mar 21 01:27:09 EST 1992: - Tweak ckalloc (misc.c) for systems where malloc(0) = 0; this matters -for subroutines with multiple entry points but no arguments. - Add "struct memblock;" to init.c (irrelevant to most compilers). - -Wed Mar 25 13:31:05 EST 1992: - Fix bug with IMPLICIT INTEGER*4(...): under -i2 or -I2, the *4 was -ignored. - -Tue May 5 09:53:55 EDT 1992: - Tweaks to README; e.g., ANSI_LIbraries changed to ANSI_Libraries . - -Wed May 6 23:49:07 EDT 1992 - Under -A and -C++, have subroutines return 0 (even if they have -no * arguments). - Adjust libi77 (rsne.c and lread.c) for systems where ungetc is -a macro. Tweak lib[FI]77/makefile to use unique intermediate file -names (for parallel makes). - -Tue May 19 09:03:05 EDT 1992: - Adjust libI77 to make err= work with internal list and formatted I/O. - -Sat May 23 18:17:42 EDT 1992: - Under -A and -C++, supply "return 0;" after the code generated for -a STOP statement -- the C compiler doesn't know that s_stop won't -return. - New (mutually exclusive) options: - -f treats all input lines as free-format lines, - honoring text that appears after column 72 - and not padding lines shorter than 72 characters - with blanks (which matters if a character string - is continued across 2 or more lines). - -72 treats text appearing after column 72 as an error. - -Sun May 24 09:45:37 EDT 1992: - Tweak description of -f in f2c.1 and f2c.1t; update f2c.ps . - -Fri May 29 01:17:15 EDT 1992: - Complain about externals used as variables. Example - subroutine foo(a,b) - external b - a = a*b ! illegal use of b; perhaps should be b() - end - -Mon Jun 15 11:15:27 EDT 1992: - Fix bug in handling namelists with names that have underscores. - -Sat Jun 27 17:30:59 EDT 1992: - Under -A and -C++, end Main program aliases with "return 0;". - Under -A and -C++, use .P files and usage in previous subprograms -in the current file to give prototypes for functions declared EXTERNAL -but not invoked. - Fix memory fault under -d1 -P . - Under -A and -C++, cast arguments to the right types in calling -a function that has been defined in the current file or in a .P file. - Fix bug in handling multi-dimensional arrays with array references -in their leading dimensions. - Fix bug in the intrinsic cmplx function when the first argument -involves an expression for which f2c generates temporary variables, -e.g. cmplx(abs(real(a)),1.) . - -Sat Jul 18 07:36:58 EDT 1992: - Fix buglet with -e1c (invisible on most systems) temporary file -f2c_functions was unlinked before being closed. - libf77: fix bugs in evaluating m**n for integer n < 0 and m an -integer different from 1 or a real or double precision 0. -Catch SIGTRAP (to print "Trace trap" before aborting). Programs -that previously erroneously computed 1 for 0**-1 may now fault. -Relevant routines: main.c pow_di.c pow_hh.c pow_ii.c pow_ri.c . - -Sat Jul 18 08:40:10 EDT 1992: - libi77: allow namelist input to end with & (e.g. &end). - -Thu Jul 23 00:14:43 EDT 1992 - Append two underscores rather than one to C keywords used as -local variables to avoid conflicts with similarly named COMMON blocks. - -Thu Jul 23 11:20:55 EDT 1992: - libf77, libi77 updated to assume ANSI prototypes unless KR_headers -is #defined. - libi77 now recognizes a Z format item as in Fortran 90; -the implementation assumes 8-bit bytes and botches character strings -on little-endian machines (by printing their bytes from right to -left): expect this bug to persist; fixing it would require a -change to the I/O calling sequences. - -Tue Jul 28 15:18:33 EDT 1992: - libi77: insert missed "#ifdef KR_headers" lines around getnum -header in rsne.c. Version not updated. - -NOTE: "index from f2c" now ends with current timestamps of files in -"all from f2c/src", sorted by time. To bring your source up to date, -obtain source files with a timestamp later than the time shown in your -version.c. - -Fri Aug 14 08:07:09 EDT 1992: - libi77: tweak wrt_E in wref.c to avoid signing NaNs. - -Sun Aug 23 19:05:22 EDT 1992: - fc: supply : after O in getopt invocation (for -O1 -O2 -O3). - -Mon Aug 24 18:37:59 EDT 1992: - Recant above tweak to fc: getopt is dumber than I thought; -it's necessary to say -O 1 (etc.). - libF77/README: add comments about ABORT, ERF, DERF, ERFC, DERFC, -GETARG, GETENV, IARGC, SIGNAL, and SYSTEM. - -Tue Oct 27 01:57:42 EST 1992: - libf77, libi77: - 1. Fix botched indirection in signal_.c. - 2. Supply missing l_eof = 0 assignment to s_rsne() in rsne.c (so -end-of-file on other files won't confuse namelist reads of external -files). - 3. Prepend f__ to external names that are only of internal -interest to lib[FI]77. - -Thu Oct 29 12:37:18 EST 1992: - libf77: Fix botch in signal_.c when KR_headers is #defined; -add CFLAGS to makefile. - libi77: trivial change to makefile for consistency with -libF77/makefile. - -Wed Feb 3 02:05:16 EST 1993: - Recognize types INTEGER*1, LOGICAL*1, LOGICAL*2, INTEGER*8. -INTEGER*8 is not well tested and will only work reasonably on -systems where int = 4 bytes, long = 8 bytes; on such systems, -you'll have to modify f2c.h appropriately, changing integer -from long to int and adding typedef long longint. You'll also -have to compile libI77 with Allow_TYQUAD #defined and adjust -libF77/makefile to compile pow_qq.c. In the f2c source, changes -for INTEGER*8 are delimited by #ifdef TYQUAD ... #endif. You -can omit the INTEGER*8 changes by compiling with NO_TYQUAD -#defined. Otherwise, the new command-line option -!i8 -disables recognition of INTEGER*8. - libf77: add pow_qq.c - libi77: add #ifdef Allow_TYQUAD stuff. Changes for INTEGER*1, -LOGICAL*1, and LOGICAL*2 came last 23 July 1992. Fix bug in -backspace (that only bit when the last character of the second -or subsequent buffer read was the previous newline). Guard -against L_tmpnam being too small in endfile.c. For MSDOS, -close and reopen files when copying to truncate. Lengthen -LINTW (buffer size in lwrite.c). - Add \ to the end of #define lines that get broken. - Fix bug in handling NAMELIST of items in EQUIVALENCE. - Under -h (or -hd), convert Hollerith to integer in general expressions -(e.g., assignments), not just when they're passed as arguments, and -blank-pad rather than 0-pad the Hollerith to a multiple of -sizeof(integer) or sizeof(doublereal). - Add command-line option -s, which instructs f2c preserve multi- -dimensional subscripts (by emitting and using appropriate #defines). - Fix glitch (with default type inferences) in examples like - call foo('abc') - end - subroutine foo(goo) - end -This gave two warning messages: - Warning on line 4 of y.f: inconsistent calling sequences for foo: - here 1, previously 2 args and string lengths. - Warning on line 4 of y.f: inconsistent calling sequences for foo: - here 2, previously 1 args and string lengths. -Now the second Warning is suppressed. - Complain about all inconsistent arguments, not just the first. - Switch to automatic creation of "all from f2c/src". For folks -getting f2c source via ftp, this means f2c/src/all.Z is now an -empty file rather than a bundle. - Separate -P and -A: -P no longer implies -A. - -Thu Feb 4 00:32:20 EST 1993: - Fix some glitches (introduced yesterday) with -h . - -Fri Feb 5 01:40:38 EST 1993: - Fix bug in types conveyed for namelists (introduced 3 Feb. 1993). - -Fri Feb 5 21:26:43 EST 1993: - libi77: tweaks to NAMELIST and open (after comments by Harold -Youngren): - 1. Reading a ? instead of &name (the start of a namelist) causes - the namelist being sought to be written to stdout (unit 6); - to omit this feature, compile rsne.c with -DNo_Namelist_Questions. - 2. Reading the wrong namelist name now leads to an error message - and an attempt to skip input until the right namelist name is found; - to omit this feature, compile rsne.c with -DNo_Bad_Namelist_Skip. - 3. Namelist writes now insert newlines before each variable; to omit - this feature, compile xwsne.c with -DNo_Extra_Namelist_Newlines. - 4. For OPEN of sequential files, ACCESS='APPEND' (or - access='anything else starting with "A" or "a"') causes the file to - be positioned at end-of-file, so a write will append to the file. - (This is nonstandard, but does not require modifying data - structures.) - -Mon Feb 8 14:40:37 EST 1993: - Increase number of continuation lines allowed from 19 to 99, -and allow changing this limit with -NC (e.g. -NC200 for 200 lines). - Treat control-Z (at the beginning of a line) as end-of-file: see -the new penultimate paragraph of README. - Fix a rarely seen glitch that could make an error messages to say -"line 0". - -Tue Feb 9 02:05:40 EST 1993 - libi77: change some #ifdef MSDOS lines to #ifdef NON_UNIX_STDIO, -and, in err.c under NON_UNIX_STDIO, avoid close(creat(name,0666)) -when the unit has another file descriptor for name. - -Tue Feb 9 17:12:49 EST 1993 - libi77: more tweaks for NON_UNIX_STDIO: use stdio routines -rather than open, close, creat, seek, fdopen (except for f__isdev). - -Fri Feb 12 15:49:33 EST 1993 - Update src/gram.c (which was forgotten in the recent updates). -Most folks regenerate it anyway (wity yacc or bison). - -Thu Mar 4 17:07:38 EST 1993 - Increase default max labels in computed gotos and alternate returns -to 257, and allow -Nl1234 to specify this number. - Tweak put.c to check p->tag == TADDR in realpart() and imagpart(). - Adjust fc script to allow .r (RATFOR) files and -C (check subscripts). - Avoid declaring strchr in niceprintf.c under -DANSI_Libraries . - gram.c updated again. - libi77: err.c, open.c: take declaration of fdopen from rawio.h. - -Sat Mar 6 07:09:11 EST 1993 - libi77: uio.c: adjust off-end-of-record test for sequential -unformatted reads to respond to err= rather than end= . - -Sat Mar 6 16:12:47 EST 1993 - Treat scalar arguments of the form (v) and v+0, where v is a variable, -as expressions: assign to a temporary variable, and pass the latter. - gram.c updated. - -Mon Mar 8 09:35:38 EST 1993 - "f2c.h from f2c" updated to add types logical1 and integer1 for -LOGICAL*1 and INTEGER*1. ("f2c.h from f2c" is supposed to be the -same as "f2c.h from f2c/src", which was updated 3 Feb. 1993.) - -Mon Mar 8 17:57:55 EST 1993 - Fix rarely seen bug that could cause strange casts in function -invocations (revealed by an example with msdos/f2c.exe). - msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only). - -Fri Mar 12 12:37:01 EST 1993 - Fix bug with -s in handling subscripts involving min, max, and -complicated expressions requiring temporaries. - Fix bug in handling COMMONs that need padding by a char array. - msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only). - -Fri Mar 12 17:16:16 EST 1993 - libf77, libi77: updated for compiling under C++. - -Mon Mar 15 16:21:37 EST 1993 - libi77: more minor tweaks (for -DKR_headers); Version.c not changed. - -Thu Mar 18 12:37:30 EST 1993 - Flag -r (for discarding carriage-returns on systems that end lines -with carriage-return/newline pairs, e.g. PCs) added to xsum, and -xsum.c converted to ANSI/ISO syntax (with K&R syntax available with --DKR_headers). [When time permits, the f2c source will undergo a -similar conversion.] - libi77: tweaks to #includes in endfile.c, err.c, open.c, rawio.h; -Version.c not changed. - f2c.ps updated (to pick up revision of 2 Feb. 1993 to f2c.1). - -Fri Mar 19 09:19:26 EST 1993 - libi77: add (char *) casts to malloc and realloc invocations -in err.c, open.c; Version.c not changed. - -Tue Mar 30 07:17:15 EST 1993 - Fix bug introduced 6 March 1993: possible memory corruption when -loops in data statements involve constant subscripts, as in - DATA (GUNIT(1,I),I=0,14)/15*-1/ - -Tue Mar 30 16:17:42 EST 1993 - Fix bug with -s: (floating-point array item)*(complex item) -generates an _subscr() reference for the floating-point array, -but a #define for the _subscr() was omitted. - -Tue Apr 6 12:11:22 EDT 1993 - libi77: adjust error returns for formatted inputs to flush the current -input line when err= is specified. To restore the old behavior (input -left mid-line), either adjust the #definition of errfl in fio.h or omit -the invocation of f__doend in err__fl (in err.c). - -Tue Apr 6 13:30:04 EDT 1993 - Fix bug revealed in - subroutine foo(i) - call goo(int(i)) - end -which now passes a copy of i, rather than i itself. - -Sat Apr 17 11:41:02 EDT 1993 - Adjust appending of underscores to conform with f2c.ps ("A Fortran -to C Converter"): names that conflict with C keywords or f2c type -names now have just one underscore appended (rather than two); add -"integer1", "logical1", "longint" to the keyword list. - Append underscores to names that appear in EQUIVALENCE and are -component names in a structure declared in f2c.h, thus avoiding a -problem caused by the #defines emitted for equivalences. Example: - complex a - equivalence (i,j) - a = 1 ! a.i went awry because of #define i - j = 2 - write(*,*) a, i - end - Adjust line-breaking logic to avoid splitting very long constants -(and names). Example: - ! The next line starts with tab and thus is a free-format line. - a=.012345689012345689012345689012345689012345689012345689012345689012345689 - end - Omit extraneous "return 0;" from entry stubs emitted for multiple -entry points of type character, complex, or double complex. - -Sat Apr 17 14:35:05 EDT 1993 - Fix bug (introduced 4 Feb.) in separating -P from -A that kept f2c -from re-reading a .P file written without -A or -C++ describing a -routine with an external argument. [See the just-added note about -separating -P from -A in the changes above for 3 Feb. 1993.] - Fix bug (type UNKNOWN for V in the example below) revealed by - subroutine a() - external c - call b(c) - end - subroutine b(v) - end - -Sun Apr 18 19:55:26 EDT 1993 - Fix wrong calling sequence for mem() in yesterday's addition to -equiv.c . - -Wed Apr 21 17:39:46 EDT 1993 - Fix bug revealed in - - ASSIGN 10 TO L1 - GO TO 20 - 10 ASSIGN 30 TO L2 - STOP 10 - - 20 ASSIGN 10 TO L2 ! Bug here because 10 had been assigned - ! to another label, then defined. - GO TO L2 - 30 END - -Fri Apr 23 18:38:50 EDT 1993 - Fix bug with -h revealed in - CHARACTER*9 FOO - WRITE(FOO,'(I6)') 1 - WRITE(FOO,'(I6)') 2 ! struct icilist io___3 botched - END - -Tue Apr 27 16:08:28 EDT 1993 - Tweak to makefile: remove "size f2c". - -Tue May 4 23:48:20 EDT 1993 - libf77: tweak signal_ line of f2ch.add . - -Tue Jun 1 13:47:13 EDT 1993 - Fix bug introduced 3 Feb. 1993 in handling multiple entry -points with differing return types -- the postfix array in proc.c -needed a new entry for integer*8 (which resulted in wrong -Multitype suffixes for non-integral types). - For (default) K&R C, generate VOID rather than int functions for -functions of Fortran type character, complex, and double complex. - msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only). - -Tue Jun 1 23:11:15 EDT 1993 - f2c.h: add Multitype component g and commented type longint. - proc.c: omit "return 0;" from stubs for complex and double complex -entries (when entries have multiple types); add test to avoid memory -fault with illegal combinations of entry types. - -Mon Jun 7 12:00:47 EDT 1993 - Fix memory fault in - common /c/ m - integer m(1) - data m(1)/1/, m(2)/2/ ! one too many initializers - end - msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only). - -Fri Jun 18 13:55:51 EDT 1993 - libi77: change type of signal_ in f2ch.add; change type of il in -union Uint from long to integer (for machines like the DEC Alpha, -where integer should be the same as int). Version.c not changed. - Tweak gram.dcl and gram.head: add semicolons after some rules that -lacked them, and remove an extraneous semicolon. These changes are -completely transparent to our local yacc programs, but apparently -matter on some VMS systems. - -Wed Jun 23 01:02:56 EDT 1993 - Update "fc" shell script, and bring f2c.1 and f2c.1t up to date: -they're meant to be linked with (i.e., the same as) src/f2c.1 and -src/f2c.1t . [In the last update of f2c.1* (2 Feb. 1993), only -src/f2c.1 and src/f2c.1t got changed -- a mistake.] - -Wed Jun 23 09:04:31 EDT 1993 - libi77: fix bug in format reversions for internal writes. -Example: - character*60 lines(2) - write(lines,"('n =',i3,2(' more text',i3))") 3, 4, 5, 6 - write(*,*) 'lines(1) = ', lines(1) - write(*,*) 'lines(2) = ', lines(2) - end -gave an error message that began "iio: off end of record", rather -than giving the correct output: - - lines(1) = n = 3 more text 4 more text 5 - lines(2) = more text 6 more text - -Thu Aug 5 11:31:14 EDT 1993 - libi77: lread.c: fix bug in handling repetition counts for logical -data (during list or namelist input). Change struct f__syl to -struct syl (for buggy compilers). - -Sat Aug 7 16:05:30 EDT 1993 - libi77: lread.c (again): fix bug in namelist reading of incomplete -logical arrays. - Fix minor calling-sequence errors in format.c, output.c, putpcc.c: -should be invisible. - -Mon Aug 9 09:12:38 EDT 1993 - Fix erroneous cast under -A in translating - character*(*) function getc() - getc(2:3)=' ' !wrong cast in first arg to s_copy - end - libi77: lread.c: fix bug in namelist reading of an incomplete array -of numeric data followed by another namelist item whose name starts -with 'd', 'D', 'e', or 'E'. - -Fri Aug 20 13:22:10 EDT 1993 - Fix bug in do while revealed by - subroutine skdig (line, i) - character line*(*), ch*1 - integer i - logical isdigit - isdigit(ch) = ch.ge.'0' .and. ch.le.'9' - do while (isdigit(line(i:i))) ! ch__1[0] was set before - ! "while(...) {...}" - i = i + 1 - enddo - end - -Fri Aug 27 08:22:54 EDT 1993 - Add #ifdefs to avoid declaring atol when it is a macro; version.c -not updated. - -Wed Sep 8 12:24:26 EDT 1993 - libi77: open.c: protect #include "sys/..." with -#ifndef NON_UNIX_STDIO; Version date not changed. - -Thu Sep 9 08:51:21 EDT 1993 - Adjust "include" to interpret file names relative to the directory -of the file that contains the "include". - -Fri Sep 24 00:56:12 EDT 1993 - Fix offset error resulting from repeating the same equivalence -statement twice. Example: - real a(2), b(2) - equivalence (a(2), b(2)) - equivalence (a(2), b(2)) - end - Increase MAXTOKENLEN (to roughly the largest allowed by ANSI C). - -Mon Sep 27 08:55:09 EDT 1993 - libi77: endfile.c: protect #include "sys/types.h" with -#ifndef NON_UNIX_STDIO; Version.c not changed. - -Fri Oct 15 15:37:26 EDT 1993 - Fix rarely seen parsing bug illustrated by - subroutine foo(xabcdefghij) - character*(*) xabcdefghij - IF (xabcdefghij.NE.'##') GOTO 40 - 40 end -in which the spacing in the IF line is crucial. - -Thu Oct 21 13:55:11 EDT 1993 - Give more meaningful error message (then "unexpected character in -cds") when constant simplification leads to Infinity or NaN. - -Wed Nov 10 15:01:05 EST 1993 - libi77: backspace.c: adjust, under -DMSDOS, to cope with MSDOS -text files, as handled by some popular PC C compilers. Beware: -the (defective) libraries associated with these compilers assume lines -end with \r\n (conventional MS-DOS text files) -- and ftell (and -hence the current implementation of backspace) screws up if lines with -just \n. - -Thu Nov 18 09:37:47 EST 1993 - Give a better error (than "control stack empty") for an extraneous -ENDDO. Example: - enddo - end - Update comments about ftp in "readme from f2c". - -Sun Nov 28 17:26:50 EST 1993 - Change format of time stamp in version.c to yyyymmdd. - Sort parameter adjustments (or complain of impossible dependencies) -so that dummy arguments are referenced only after being adjusted. -Example: - subroutine foo(a,b) - integer a(2) ! a must be adjusted before b - double precision b(a(1),a(2)) - call goo(b(3,4)) - end - Adjust structs for initialized common blocks and equivalence classes -to omit the trailing struct component added to force alignment when -padding already forces the desired alignment. Example: - PROGRAM TEST - COMMON /Z/ A, CC - CHARACTER*4 CC - DATA cc /'a'/ - END -now gives - struct { - integer fill_1[1]; - char e_2[4]; - } z_ = { {0}, {'a', ' ', ' ', ' '} }; -rather than -struct { - integer fill_1[1]; - char e_2[4]; - real e_3; - } z_ = { {0}, {'a', ' ', ' ', ' '}, (float)0. }; - -Wed Dec 8 16:24:43 EST 1993 - Adjust lex.c to recognize # nnn "filename" lines emitted by cpp; -this affects the file names and line numbers in error messages and -the #line lines emitted under -g. - Under -g, arrange for a file that starts with an executable -statement to have the first #line line indicate line 1, rather -than the line number of the END statement ending the main program. - Adjust fc script to run files ending in .F through /lib/cpp. - Fix bug ("Impossible tag 2") in - if (t .eq. (0,2)) write(*,*) 'Bug!' - end - libi77: iio.c: adjust internal formatted reads to treat short records -as though padded with blanks (rather than causing an "off end of record" -error). - -Wed Dec 15 15:19:15 EST 1993 - fc: adjusted for .F files to pass -D and -I options to cpp. - -Fri Dec 17 20:03:38 EST 1993 - Fix botch introduced 28 Nov. 1993 in vax.c; change "version of" -to "version". - -Tue Jan 4 15:39:52 EST 1994 - msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only). - -Wed Jan 19 08:55:19 EST 1994 - Arrange to accept - integer Nx, Ny, Nz - parameter (Nx = 10, Ny = 20) - parameter (Nz = max(Nx, Ny)) - integer c(Nz) - call foo(c) - end -rather than complaining "Declaration error for c: adjustable dimension -on non-argument". The necessary changes cause some hitherto unfolded -constant expressions to be folded. - Accept BYTE as a synonym for INTEGER*1. - -Thu Jan 27 08:57:40 EST 1994 - Fix botch in changes of 19 Jan. 1994 that broke entry points with -multi-dimensional array arguments that did not appear in the subprogram -argument list and whose leading dimensions depend on arguments. - -Mon Feb 7 09:24:30 EST 1994 - Remove artifact in "fc" script that caused -O to be ignored: - 87c87 - < # lcc ignores -O... - --- - > CFLAGS="$CFLAGS $O" - -Sun Feb 20 17:04:58 EST 1994 - Fix bugs reading .P files for routines with arguments of type -INTEGER*1, INTEGER*8, LOGICAL*2. - Fix glitch in reporting inconsistent arguments for routines involving -character arguments: "arg n" had n too large by the number of -character arguments. - -Tue Feb 22 20:50:08 EST 1994 - Trivial changes to data.c format.c main.c niceprintf.c output.h and -sysdep.h (consistency improvements). - libI77: lread.c: check for NULL return from realloc. - -Fri Feb 25 23:56:08 EST 1994 - output.c, sysdep.h: arrange for -DUSE_DTOA to use dtoa.c and g_fmt.c -for correctly rounded decimal values on IEEE-arithmetic machines -(plus machines with VAX and IBM-mainframe arithmetic). These -routines are available from netlib's fp directory. - msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only); the -former uses -DUSE_DTOA to keep 12 from printing as 12.000000000000001. - vax.c: fix wrong arguments to badtag and frchain introduced -28 Nov. 1993. - Source for f2c converted to ANSI/ISO format, with the K&R format -available by compilation with -DKR_headers . - Arrange for (double precision expression) relop (single precision -constant) to retain the single-precision nature of the constant. -Example: - double precision t - if (t .eq. 0.3) ... - -Mon Feb 28 11:40:24 EST 1994 - README updated to reflect a modification just made to netlib's -"dtoa.c from fp": -96a97,105 -> Also add the rule -> -> dtoa.o: dtoa.c -> $(CC) -c $(CFLAGS) -DMALLOC=ckalloc -DIEEE... dtoa.c -> -> (without the initial tab) to the makefile, where IEEE... is one of -> IEEE_MC68k, IEEE_8087, VAX, or IBM, depending on your machine's -> arithmetic. See the comments near the start of dtoa.c. -> - -Sat Mar 5 09:41:52 EST 1994 - Complain about functions with the name of a previously declared -common block (which is illegal). - New option -d specifies the directory for output .c and .P files; -f2c.1 and f2c.1t updated. The former undocumented debug option -dnnn -is now -Dnnn. - -Thu Mar 10 10:21:44 EST 1994 - libf77: add #undef min and #undef max lines to s_paus.c s_stop.c -and system_.c; Version.c not changed. - libi77: add -DPad_UDread lines to uio.c and explanation to README: - Some buggy Fortran programs use unformatted direct I/O to write - an incomplete record and later read more from that record than - they have written. For records other than the last, the unwritten - portion of the record reads as binary zeros. The last record is - a special case: attempting to read more from it than was written - gives end-of-file -- which may help one find a bug. Some other - Fortran I/O libraries treat the last record no differently than - others and thus give no help in finding the bug of reading more - than was written. If you wish to have this behavior, compile - uio.c with -DPad_UDread . -Version.c not changed. - -Tue Mar 29 17:27:54 EST 1994 - Adjust make_param so dimensions involving min, max, and other -complicated constant expressions do not provoke error messages -about adjustable dimensions on non-arguments. - Fix botch introduced 19 Jan 1994: "adjustable dimension on non- -argument" messages could cause some things to be freed twice. - -Tue May 10 07:55:12 EDT 1994 - Trivial changes to exec.c, p1output.c, parse_args.c, proc.c, -and putpcc.c: change arguments from - type foo[] -to - type *foo -for consistency with defs.h. For most compilers, this makes no -difference. - -Thu Jun 2 12:18:18 EDT 1994 - Fix bug in handling FORMAT statements that have adjacent character -(or Hollerith) strings: an extraneous \002 appeared between the -strings. - libf77: under -DNO_ONEXIT, arrange for f_exit to be called just -once; previously, upon abnormal termination (including stop statements), -it was called twice. - -Mon Jun 6 15:52:57 EDT 1994 - libf77: Avoid references to SIGABRT and SIGIOT if neither is defined; -Version.c not changed. - libi77: Add cast to definition of errfl() in fio.h; this only matters -on systems with sizeof(int) < sizeof(long). Under -DNON_UNIX_STDIO, -use binary mode for direct formatted files (to avoid any confusion -connected with \n characters). - -Fri Jun 10 16:47:31 EDT 1994 - Fix bug under -A in handling unreferenced (and undeclared) -external arguments in subroutines with multiple entry points. Example: - subroutine m(fcn,futil) - external fcn,futil - call fcn - entry mintio(i1) ! (D_fp)0 rather than (U_fp)0 for futil - end - -Wed Jun 15 10:38:14 EDT 1994 - Allow char(constant expression) function in parameter declarations. -(This was probably broken in the changes of 29 March 1994.) - -Fri Jul 1 23:54:00 EDT 1994 - Minor adjustments to makefile (rule for f2c.1 commented out) and -sysdep.h (#undef KR_headers if __STDC__ is #defined, and base test -for ANSI_Libraries and ANSI_Prototypes on KR_headers rather than -__STDC__); version.c touched but not changed. - libi77: adjust fp.h so local.h is only needed under -DV10; -Version.c not changed. - -Tue Jul 5 03:05:46 EDT 1994 - Fix segmentation fault in - subroutine foo(a,b,k) - data i/1/ - double precision a(k,1) ! sequence error: must precede data - b = a(i,1) - end - libi77: Fix bug (introduced 6 June 1994?) in reopening files under -NON_UNIX_STDIO. - Fix some error messages caused by illegal Fortran. Examples: -* 1. - x(i) = 0 !Missing declaration for array x - call f(x) !Said Impossible storage class 8 in routine mkaddr - end !Now says invalid use of statement function x -* 2. - f = g !No declaration for g; by default it's a real variable - call g !Said invalid class code 2 for function g - end !Now says g cannot be called -* 3. - intrinsic foo !Invalid intrinsic name - a = foo(b) !Said intrcall: bad intrgroup 0 - end !Now just complains about line 1 - -Tue Jul 5 11:14:26 EDT 1994 - Fix glitch in handling erroneous statement function declarations. -Example: - a(j(i) - i) = a(j(i) - i) + 1 ! bad statement function - call foo(a(3)) ! Said Impossible type 0 in routine mktmpn - end ! Now warns that i and j are not used - -Wed Jul 6 17:31:25 EDT 1994 - Tweak test for statement functions that (illegally) call themselves; -f2c will now proceed to check for other errors, rather than bailing -out at the first recursive statement function reference. - Warn about but retain divisions by 0 (instead of calling them -"compiler errors" and quiting). On IEEE machines, this permits - double precision nan, ninf, pinf - nan = 0.d0/0.d0 - pinf = 1.d0/0.d0 - ninf = -1.d0/0.d0 - write(*,*) 'nan, pinf, ninf = ', nan, pinf, ninf - end -to print - nan, pinf, ninf = NaN Infinity -Infinity - libi77: wref.c: protect with #ifdef GOOD_SPRINTF_EXPONENT an -optimization that requires exponents to have 2 digits when 2 digits -suffice. lwrite.c wsfe.c (list and formatted external output): -omit ' ' carriage-control when compiled with -DOMIT_BLANK_CC . -Off-by-one bug fixed in character count for list output of character -strings. Omit '.' in list-directed printing of Nan, Infinity. - -Mon Jul 11 13:05:33 EDT 1994 - src/gram.c updated. - -Tue Jul 12 10:24:42 EDT 1994 - libi77: wrtfmt.c: under G11.4, write 0. as " .0000 " rather -than " .0000E+00". - -Thu Jul 14 17:55:46 EDT 1994 - Fix glitch in changes of 6 July 1994 that could cause erroneous -"division by zero" warnings (or worse). Example: - subroutine foo(a,b) - y = b - a = a / y ! erroneous warning of division by zero - end - -Mon Aug 1 16:45:17 EDT 1994 - libi77: lread.c rsne.c: for benefit of systems with a buggy stdio.h, -declare ungetc when neither KR_headers nor ungetc is #defined. -Version.c not changed. - -Wed Aug 3 01:53:00 EDT 1994 - libi77: lwrite.c (list output): do not insert a newline when -appending an oversize item to an empty line. - -Mon Aug 8 00:51:01 EDT 1994 - Fix bug (introduced 3 Feb. 1993) that, under -i2, kept LOGICAL*2 -variables from appearing in INQUIRE statements. Under -I2, allow -LOGICAL*4 variables to appear in INQUIRE. Fix intrinsic function -LEN so it returns a short value under -i2, a long value otherwise. - exec.c: fix obscure memory fault possible with bizarre (and highly -erroneous) DO-loop syntax. - -Fri Aug 12 10:45:57 EDT 1994 - libi77: fix glitch that kept ERR= (in list- or format-directed input) -from working after a NAMELIST READ. - -Thu Aug 25 13:58:26 EDT 1994 - Suppress -s when -C is specified. - Give full pathname (netlib@research.att.com) for netlib in readme and -src/README. - -Wed Sep 7 22:13:20 EDT 1994 - libi77: typesize.c: adjust to allow types LOGICAL*1, LOGICAL*2, -INTEGER*1, and (under -DAllow_TYQUAD) INTEGER*8 in NAMELISTs. - -Fri Sep 16 17:50:18 EDT 1994 - Change name adjustment for reserved words: instead of just appending -"_" (a single underscore), append "_a_" to local variable names to avoid -trouble when a common block is named a reserved word and the same -reserved word is also a local variable name. Example: - common /const/ a,b,c - real const(3) - equivalence (const(1),a) - a = 1.234 - end - Arrange for ichar() to treat characters as unsigned. - libf77: s_cmp.c: treat characters as unsigned in comparisons. -These changes for unsignedness only matter for strings that contain -non-ASCII characters. Now ichar() should always be >= 0. - -Sat Sep 17 11:19:32 EDT 1994 - fc: set rc=$? before exit (to get exit code right in trap code). - -Mon Sep 19 17:49:43 EDT 1994 - libf77: s_paus.c: flush stderr after PAUSE; add #ifdef MSDOS stuff. - libi77: README: point out general need for -DMSDOS under MS-DOS. - -Tue Sep 20 11:42:30 EDT 1994 - Fix bug in comparing identically named common blocks, in which -all components have the same names and types, but at least one is -dimensioned (1) and the other is not dimensioned. Example: - subroutine foo - common /ab/ a - a=1. !!! translated correctly to ab_1.a = (float)1.; - end - subroutine goo - common /ab/ a(1) - a(1)=2. !!! translated erroneously to ab_1.a[0] = (float)2. - end - -Tue Sep 27 23:47:34 EDT 1994 - Fix bug introduced 16 Sept. 1994: don't add _a_ to C keywords -used as external names. In fact, return to earlier behavior of -appending __ to C keywords unless they are used as external names, -in which case they get just one underscore appended. - Adjust constant handling so integer and logical PARAMETERs retain -type information, particularly under -I2. Example: - SUBROUTINE FOO - INTEGER I - INTEGER*1 I1 - INTEGER*2 I2 - INTEGER*4 I4 - LOGICAL L - LOGICAL*1 L1 - LOGICAL*2 L2 - LOGICAL*4 L4 - PARAMETER (L=.FALSE., L1=.FALSE., L2=.FALSE., L4=.FALSE.) - PARAMETER (I=0,I1=0,I2=0,I4=0) - CALL DUMMY(I, I1, I2, I4, L, L1, L2, L4) - END - f2c.1t: Change f\^2c to f2c (omit half-narrow space) in line following -".SH NAME" for benefit of systems that cannot cope with troff commands -in this context. - -Wed Sep 28 12:45:19 EDT 1994 - libf77: s_cmp.c fix glitch in -DKR_headers version introduced -12 days ago. - -Thu Oct 6 09:46:53 EDT 1994 - libi77: util.c: omit f__mvgbt (which is never used). - f2c.h: change "long" to "long int" to facilitate the adjustments -by means of sed described above. Comment out unused typedef of Long. - -Fri Oct 21 18:02:24 EDT 1994 - libf77: add s_catow.c and adjust README to point out that changing -"s_cat.o" to "s_catow.o" in the makefile will permit the target of a -concatenation to appear on its right-hand side (contrary to the -Fortran 77 Standard and at the cost of some run-time efficiency). - -Wed Nov 2 00:03:58 EST 1994 - Adjust -g output to contain only one #line line per statement, -inserting \ before the \n ending lines broken because of their -length [this insertion was recanted 10 Dec. 1994]. This change -accommodates an idiocy in the ANSI/ISO C standard, which leaves -undefined the behavior of #line lines that occur within the arguments -to a macro call. - -Wed Nov 2 14:44:27 EST 1994 - libi77: under compilation with -DALWAYS_FLUSH, flush buffers at -the end of each write statement, and test (via the return from -fflush) for write failures, which can be caught with an ERR= -specifier in the write statement. This extra flushing slows -execution, but can abort execution or alter the flow of control -when a disk fills up. - f2c/src/io.c: Add ERR= test to e_wsle invocation (end of -list-directed external output) to catch write failures when libI77 -is compiled with -DALWAYS_FLUSH. - -Thu Nov 3 10:59:13 EST 1994 - Fix bug in handling dimensions involving certain intrinsic -functions of constant expressions: the expressions, rather than -pointers to them, were passed. Example: - subroutine subtest(n,x) - real x(2**n,n) ! pow_ii(2,n) was called; now it's pow_ii(&c__2,n) - x(2,2)=3. - end - -Tue Nov 8 23:56:30 EST 1994 - malloc.c: remove assumption that only malloc calls sbrk. This -appears to make malloc.c useful on RS6000 systems. - -Sun Nov 13 13:09:38 EST 1994 - Turn off constant folding of integers used in floating-point -expressions, so the assignment in - subroutine foo(x) - double precision x - x = x*1000000*500000 - end -is rendered as - *x = *x * 1000000 * 500000; -rather than as - *x *= 1783793664; - -Sat Dec 10 16:31:40 EST 1994 - Supply a better error message (than "Impossible type 14") for - subroutine foo - foo = 3 - end - Under -g, convey name of included files to #line lines. - Recant insertion of \ introduced (under -g) 2 Nov. 1994. - -Thu Dec 15 14:33:55 EST 1994 - New command-line option -Idir specifies directories in which to -look for non-absolute include files (after looking in the directory -of the current input file). There can be several -Idir options, each -specifying one directory. All -Idir options are considered, from -left to right, until a suitably named file is found. The -I2 and -I4 -command-line options have precedence, so directories named 2 or 4 -must be spelled by some circumlocation, such as -I./2 . - f2c.ps updated to mention the new -Idir option, correct a typo, -and bring the man page at the end up to date. - lex.c: fix bug in reading line numbers in #line lines. - fc updated to pass -Idir options to f2c. - -Thu Dec 29 09:48:03 EST 1994 - Fix bug (e.g., addressing fault) in diagnosing inconsistency in -the type of function eta in the following example: - function foo(c1,c2) - double complex foo,c1,c2 - double precision eta - foo = eta(c1,c2) - end - function eta(c1,c2) - double complex eta,c1,c2 - eta = c1*c2 - end - -Mon Jan 2 13:27:26 EST 1995 - Retain casts for SNGL (or FLOAT) that were erroneously optimized -away. Example: - subroutine foo(a,b) - double precision a,b - a = float(b) ! now rendered as *a = (real) (*b); - end - Use float (rather than double) temporaries in certain expressions -of type complex. Example: the temporary for sngl(b) in - complex a - double precision b - a = sngl(b) - (3.,4.) -is now of type float. - -Fri Jan 6 00:00:27 EST 1995 - Adjust intrinsic function cmplx to act as dcmplx (returning -double complex rather than complex) if either of its args is of -type double precision. The double temporaries used prior to 2 Jan. -1995 previously gave it this same behavior. - -Thu Jan 12 12:31:35 EST 1995 - Adjust -krd to use double temporaries in some calculations of -type complex. - libf77: pow_[dhiqrz][hiq].c: adjust x**i to work on machines -that sign-extend right shifts when i is the most negative integer. - -Wed Jan 25 00:14:42 EST 1995 - Fix memory fault in handling overlapping initializations in - block data - common /zot/ d - double precision d(3) - character*6 v(4) - real r(2) - equivalence (d(3),r(1)), (d(1),v(1)) - data v/'abcdef', 'ghijkl', 'mnopqr', 'stuvwx'/ - data r/4.,5./ - end - names.c: add "far", "huge", "near" to c_keywords (causing them -to have __ appended when used as local variables). - libf77: add s_copyow.c, an alternative to s_copy.c for handling -(illegal) character assignments where the right- and left-hand -sides overlap, as in a(2:4) = a(1:3). - -Thu Jan 26 14:21:19 EST 1995 - libf77: roll s_catow.c and s_copyow.c into s_cat.c and s_copy.c, -respectively, allowing the left-hand side of a character assignment -to appear on its right-hand side unless s_cat.c and s_copy.c are -compiled with -DNO_OVERWRITE (which is a bit more efficient). -Fortran 77 forbids the left-hand side from participating in the -right-hand side (of a character assignment), but Fortran 90 allows it. - libi77: wref.c: fix glitch in printing the exponent of 0 when -GOOD_SPRINTF_EXPONENT is not #defined. - -Fri Jan 27 12:25:41 EST 1995 - Under -C++ -ec (or -C++ -e1c), surround struct declarations with - #ifdef __cplusplus - extern "C" { - #endif -and - #ifdef __cplusplus - } - #endif -(This isn't needed with cfront, but apparently is necessary with -some other C++ compilers.) - libf77: minor tweak to s_copy.c: copy forward whenever possible -(for better cache behavior). - -Wed Feb 1 10:26:12 EST 1995 - Complain about parameter statements that assign values to dummy -arguments, as in - subroutine foo(x) - parameter(x = 3.4) - end - -Sat Feb 4 20:22:02 EST 1995 - fc: omit "lib=/lib/num/lib.lo". - -Wed Feb 8 08:41:14 EST 1995 - Minor changes to exec.c, putpcc.c to avoid "bad tag" or "error -in frexpr" with certain invalid Fortran. - -Sat Feb 11 08:57:39 EST 1995 - Complain about integer overflows, both in simplifying integer -expressions, and in converting integers from decimal to binary. - Fix a memory fault in putcx1() associated with invalid input. - -Thu Feb 23 11:20:59 EST 1995 - Omit MAXTOKENLEN; realloc token if necessary (to handle very long -strings). - -Fri Feb 24 11:02:00 EST 1995 - libi77: iio.c: z_getc: insert (unsigned char *) to allow internal -reading of characters with high-bit set (on machines that sign-extend -characters). - -Tue Mar 14 18:22:42 EST 1995 - Fix glitch (in io.c) in handling 0-length strings in format -statements, as in - write(*,10) - 10 format(' ab','','cd') - libi77: lread.c and rsfe.c: adjust s_rsle and s_rsfe to check for -end-of-file (to prevent infinite loops with empty read statements). - -Wed Mar 22 10:01:46 EST 1995 - f2c.ps: adjust discussion of -P on p. 7 to reflect a change made -3 Feb. 1993: -P no longer implies -A. - -Fri Apr 21 18:35:00 EDT 1995 - fc script: remove absolute paths (since PATH specifies only standard -places). On most systems, it's still necessary to adjust the PATH -assignment at the start of fc to fit the local conventions. - -Fri May 26 10:03:17 EDT 1995 - fc script: add recognition of -P and .P files. - libi77: iio.c: z_wnew: fix bug in handling T format items in internal -writes whose last item is written to an earlier position than some -previous item. - -Wed May 31 11:39:48 EDT 1995 - libf77: added subroutine exit(rc) (with integer return code rc), -which works like a stop statement but supplies rc as the program's -return code. - -Fri Jun 2 11:56:50 EDT 1995 - Fix memory fault in - parameter (x=2.) - data x /2./ - end -This now elicits two error messages; the second ("too many -initializers"), though not desirable, seems hard to eliminate -without considerable hassle. - -Mon Jul 17 23:24:20 EDT 1995 - Fix botch in simplifying constants in certain complex -expressions. Example: - subroutine foo(s,z) - double complex z - double precision s, M, P - parameter ( M = 100.d0, P = 2.d0 ) - z = M * M / s * dcmplx (1.d0, P/M) -*** The imaginary part of z was miscomputed *** - end - Under -ext, complain about nonintegral dimensions. - -Fri Jul 21 11:18:36 EDT 1995 - Fix glitch on line 159 of init.c: change - "(shortlogical *)0)", -to - "(shortlogical *)0", -This affects multiple entry points when some but not all have -arguments of type logical*2. - libi77: adjust lwrite.c, wref.c, wrtfmt.c so compiling with --DWANT_LEAD_0 causes formatted writes of floating-point numbers of -magnitude < 1 to have an explicit 0 before the decimal point (if the -field-width permits it). Note that the Fortran 77 Standard leaves it -up to the implementation whether to supply these superfluous zeros. - -Tue Aug 1 09:25:56 EDT 1995 - Permit real (or double precision) parameters in dimension expressions. - -Mon Aug 7 08:04:00 EDT 1995 - Append "_eqv" rather than just "_" to names that that appear in -EQUIVALENCE statements as well as structs in f2c.h (to avoid a -conflict when these names also name common blocks). - -Tue Aug 8 12:49:02 EDT 1995 - Modify yesterday's change: merge st_fields with c_keywords, to -cope with equivalences introduced to permit initializing numeric -variables with character data. DATA statements causing these -equivalences can appear after executable statements, so the only -safe course is to rename all local variable with names in the -former st_fields list. This has the unfortunate side effect that -the common local variable "i" will henceforth be renamed "i__". - -Wed Aug 30 00:19:32 EDT 1995 - libf77: add F77_aloc, now used in s_cat and system_ (to allocate -memory and check for failure in so doing). - libi77: improve MSDOS logic in backspace.c. - -Wed Sep 6 09:06:19 EDT 1995 - libf77: Fix return type of system_ (integer) under -DKR_headers. - libi77: Move some f_init calls around for people who do not use -libF77's main(); now open and namelist read statements that are the -first I/O statements executed should work right in that context. -Adjust namelist input to treat a subscripted name whose subscripts do -not involve colons similarly to the name without a subscript: accept -several values, stored in successive elements starting at the -indicated subscript. Adjust namelist output to quote character -strings (avoiding confusion with arrays of character strings). - -Thu Sep 7 00:36:04 EDT 1995 - Fix glitch in integer*8 exponentiation function: it's pow_qq, not -pow_qi. - libi77: fix some bugs with -DAllow_TYQUAD (for integer*8); when -looking for the &name that starts NAMELIST input, treat lines whose -first nonblank character is something other than &, $, or ? as -comment lines (i.e., ignore them), unless rsne.c is compiled with --DNo_Namelist_Comments. - -Thu Sep 7 09:05:40 EDT 1995 - libi77: rdfmt.c: one more tweak for -DAllow_TYQUAD. - -Tue Sep 19 00:03:02 EDT 1995 - Adjust handling of floating-point subscript bounds (a questionable -f2c extension) so subscripts in the generated C are of integral type. - Move #define of roundup to proc.c (where its use is commented out); -version.c left at 19950918. - -Wed Sep 20 17:24:19 EDT 1995 - Fix bug in handling ichar() under -h. - -Thu Oct 5 07:52:56 EDT 1995 - libi77: wrtfmt.c: fix bug with t editing (f__cursor was not always -zeroed in mv_cur). - -Tue Oct 10 10:47:54 EDT 1995 - Under -ext, warn about X**-Y and X**+Y. Following the original f77, -f2c treats these as X**(-Y) and X**(+Y), respectively. (They are not -allowed by the official Fortran 77 Standard.) Some Fortran compilers -give a bizarre interpretation to larger contexts, making multiplication -noncommutative: they treat X**-Y*Z as X**(-Y*Z) rather than X**(-Y)*Z, -which, following the rules of Fortran 77, is the same as (X**(-Y))*Z. - -Wed Oct 11 13:27:05 EDT 1995 - libi77: move defs of f__hiwater, f__svic, f__icptr from wrtfmt.c -to err.c. This should work around a problem with buggy loaders and -sometimes leads to smaller executable programs. - -Sat Oct 21 23:54:22 EDT 1995 - Under -h, fix bug in the treatment of ichar('0') in arithmetic -expressions. - Demote to -dneg (a new command-line option not mentioned in the -man page) imitation of the original f77's treatment of unary minus -applied to a REAL operand (yielding a DOUBLE PRECISION result). -Previously this imitation (which was present for debugging) occurred -under (the default) -!R. It is still suppressed by -R. - -Tue Nov 7 23:52:57 EST 1995 - Adjust assigned GOTOs to honor SAVE declarations. - Add comments about ranlib to lib[FI]77/README and makefile. - -Tue Dec 19 22:54:06 EST 1995 - libf77: s_cat.c: fix bug when 2nd or later arg overlaps lhs. - -Tue Jan 2 17:54:00 EST 1996 - libi77: rdfmt.c: move #include "ctype.h" up before "stdlib.h"; no -change to Version.c. - -Sun Feb 25 22:20:20 EST 1996 - Adjust expr.c to permit raising the integer constants 1 and -1 to -negative constant integral powers. - Avoid faulting when -T and -d are not followed by a directory name -(immediately, without intervening spaces). - -Wed Feb 28 12:49:01 EST 1996 - Fix a glitch in handling complex parameters assigned a "wrong" type. -Example: - complex d, z - parameter(z = (0d0,0d0)) - data d/z/ ! elicited "non-constant initializer" - call foo(d) - end - -Thu Feb 29 00:53:12 EST 1996 - Fix bug in handling character parameters assigned a char() value. -Example: - character*2 b,c - character*1 esc - parameter(esc = char(27)) - integer i - data (b(i:i),i=1,2)/esc,'a'/ - data (c(i:i),i=1,2)/esc,'b'/ ! memory fault - call foo(b,c) - end - -Fri Mar 1 23:44:51 EST 1996 - Fix glitch in evaluating .EQ. and .NE. when both operands are -logical constants (.TRUE. or .FALSE.). - -Fri Mar 15 17:29:54 EST 1996 - libi77: lread.c, rsfe.c: honor END= in READ stmts with empty iolist. - -Tue Mar 19 23:08:32 EST 1996 - lex.c: arrange for a "statement" consisting of a single short bogus -keyword to elicit an error message showing the whole keyword. The -error message formerly omitted the last letter of the bad keyword. - libf77: s_cat.c: supply missing break after overlap detection. - -Mon May 13 23:35:26 EDT 1996 - Recognize Fortran 90's /= as a synonym for .NE.. (<> remains a -synonym for .NE..) - Emit an empty int function of no arguments to supply an external -name to named block data subprograms (so they can be called somewhere -to force them to be loaded from a library). - Fix bug (memory fault) in handling the following illegal Fortran: - parameter(i=1) - equivalence(i,j) - end - Treat cdabs, cdcos, cdexp, cdlog, cdsin, and cdsqrt as synonyms for -the double complex intrinsics zabs, zcos, zexp, zlog, zsin, and zsqrt, -respectively, unless -cd is specified. - Recognize the Fortran 90 bit-manipulation intrinsics btest, iand, -ibclr, ibits, ibset, ieor, ior, ishft, and ishftc, unless -i90 is -specified. Note that iand, ieor, and ior are thus now synonyms for -"and", "xor", and "or", respectively. - Add three macros (bit_test, bit_clear, bit_set) to f2c.h for use -with btest, ibclr, and ibset, respectively. Add new functions -[lq]bit_bits, [lq]bit_shift, and [lq]_bit_cshift to libF77 for -use with ibits, ishft, and ishftc, respectively. - Add integer function ftell(unit) (returning -1 on error) and -subroutine fseek(unit, offset, whence, *) to libI77 (with branch to -label * on error). - -Tue May 14 23:21:12 EDT 1996 - Fix glitch (possible memory fault, or worse) in handling multiple -entry points with names over 28 characters long. - -Mon Jun 10 01:20:16 EDT 1996 - Update netlib E-mail and ftp addresses in f2c/readme and -f2c/src/readme (which are different files) -- to reflect the upcoming -breakup of AT&T. - libf77: trivial tweaks to F77_aloc.c and system_.c; Version.c not -changed. - libi77: Adjust rsli.c and lread.c so internal list input with too -few items in the input string will honor end= . - -Mon Jun 10 22:59:57 EDT 1996 - Add Bits_per_Byte to sysdep.h and adjust definition of Table_size -to depend on Bits_per_Byte (forcing Table_size to be a power of 2); in -lex.c, change "comstart[c & 0xfff]" to "comstart[c & (Table_size-1)]" -to avoid an out-of-range subscript on end-of-file. - -Wed Jun 12 00:24:28 EDT 1996 - Fix bug in output.c (dereferencing a freed pointer) revealed in - print * !np in out_call in output.c clobbered by free - end !during out_expr. - -Wed Jun 19 08:12:47 EDT 1996 - f2c.h: add types uinteger, ulongint (for libF77); add qbit_clear -and qbit_set macros (in a commented-out section) for integer*8. - For integer*8, use qbit_clear and qbit_set for ibclr and ibset. - libf77: add casts to unsigned in [lq]bitshft.c. - -Thu Jun 20 13:30:43 EDT 1996 - Complain at character*(*) in common (rather than faulting). - Fix bug in recognizing hex constants that start with "16#" (e.g., -16#1234abcd, which is a synonym for z'1234abcd'). - Fix bugs in constant folding of expressions involving btest, ibclr, -and ibset. - Fix bug in constant folding of rshift(16#80000000, -31) (on a 32-bit -machine; more generally, the bug was in constant folding of -rshift(ibset(0,NBITS-1), 1-NBITS) when f2c runs on a machine with -long ints having NBITS bits. - -Mon Jun 24 07:58:53 EDT 1996 - Adjust struct Literal and newlabel() function to accommodate huge -source files (with more than 32767 newlabel() invocations). - Omit .c file when the .f file has a missing final end statement. - -Wed Jun 26 14:00:02 EDT 1996 - libi77: Add discussion of MXUNIT (highest allowed Fortran unit number) -to libI77/README. - -Fri Jun 28 14:16:11 EDT 1996 - Fix glitch with -onetrip: the temporary variable used for nonconstant -initial loop variable values was recycled too soon. Example: - do i = j+1, k - call foo(i+1) ! temp for j+1 was reused here - enddo - end - -Tue Jul 2 16:11:27 EDT 1996 - formatdata.c: add a 0 to the end of the basetype array (for TYBLANK) -(an omission that was harmless on most machines). - expr.c: fix a dereference of NULL that was only possible with buggy -input, such as - subroutine $sub(s) ! the '$' is erroneous - character s*(*) - s(1:) = ' ' - end - -Sat Jul 6 00:44:56 EDT 1996 - Fix glitch in the intrinsic "real" function when applied to a -complex (or double complex) variable and passed as an argument to -some intrinsic functions. Example: - complex a - b = sqrt(a) - end - Fix glitch (only visible if you do not use f2c's malloc and the -malloc you do use is defective in the sense that malloc(0) returns 0) -in handling include files that end with another include (perhaps -followed by comments). - Fix glitch with character*(*) arguments named "h" and "i" when -the body of the subroutine invokes the intrinsic LEN function. - Arrange that after a previous "f2c -P foo.f" has produced foo.P, -running "f2c foo.P foo.f" will produce valid C when foo.f contains - call sub('1234') - end - subroutine sub(msg) - end -Specifically, the length argument in "call sub" is now suppressed. -With or without foo.P, it is also now suppressed when the order of -subprograms in file foo.f is reversed: - subroutine sub(msg) - end - call sub('1234') - end - Adjust copyright notices to reflect AT&T breakup. - -Wed Jul 10 09:25:49 EDT 1996 - Fix bug (possible memory fault) in handling erroneously placed -and inconsistent declarations. Example that faulted: - character*1 w(8) - call foo(w) - end - subroutine foo(m) - data h /0.5/ - integer m(2) ! should be before data - end - Fix bug (possible fault) in handling illegal "if" constructions. -Example (that faulted): - subroutine foo(i,j) - if (i) then ! bug: i is integer, not logical - else if (j) then ! bug: j is integer, not logical - endif - end - Fix glitch with character*(*) argument named "ret_len" to a -character*(*) function. - -Wed Jul 10 23:04:16 EDT 1996 - Fix more glitches in the intrinsic "real" function when applied to a -complex (or double complex) variable and passed as an argument to -some intrinsic functions. Example: - complex a, b - r = sqrt(real(conjg(a))) + sqrt(real(a*b)) - end - -Thu Jul 11 17:27:16 EDT 1996 - Fix a memory fault associated with complicated, illegal input. -Example: - subroutine goo - character a - call foo(a) ! inconsistent with subsequent def and call - end - subroutine foo(a) - end - call foo(a) - end - -Wed Jul 17 19:18:28 EDT 1996 - Fix yet another case of intrinsic "real" applied to a complex -argument. Example: - complex a(3) - x = sqrt(real(a(2))) ! gave error message about bad tag - end - -Mon Aug 26 11:28:57 EDT 1996 - Tweak sysdep.c for non-Unix systems in which process ID's can be -over 5 digits long. - -Tue Aug 27 08:31:32 EDT 1996 - Adjust the ishft intrinsic to use unsigned right shifts. (Previously, -a negative constant second operand resulted in a possibly signed shift.) - -Thu Sep 12 14:04:07 EDT 1996 - equiv.c: fix glitch with -DKR_headers. - libi77: fmtlib.c: fix bug in printing the most negative integer. - -Fri Sep 13 08:54:40 EDT 1996 - Diagnose some illegal appearances of substring notation. - -Tue Sep 17 17:48:09 EDT 1996 - Fix fault in handling some complex parameters. Example: - subroutine foo(a) - double complex a, b - parameter(b = (0,1)) - a = b ! f2c faulted here - end - -Thu Sep 26 07:47:10 EDT 1996 - libi77: fmt.h: for formatted writes of negative integer*1 values, -make ic signed on ANSI systems. If formatted writes of integer*1 -values trouble you when using a K&R C compiler, switch to an ANSI -compiler or use a compiler flag that makes characters signed. - -Tue Oct 1 14:41:36 EDT 1996 - Give a better error message when dummy arguments appear in data -statements. - -Thu Oct 17 13:37:22 EDT 1996 - Fix bug in typechecking arguments to character and complex (or -double complex) functions; the bug could cause length arguments -for character arguments to be omitted on invocations appearing -textually after the first invocation. For example, in - subroutine foo - character c - complex zot - call goo(zot(c), zot(c)) - end -the length was omitted from the second invocation of zot, and -there was an erroneous error message about inconsistent calling -sequences. - -Wed Dec 4 13:59:14 EST 1996 - Fix bug revealed by - subroutine test(cdum,rdum) - complex cdum - rdum=cos(real(cdum)) ! "Unexpected tag 3 in opconv_fudge" - end - Fix glitch in parsing "DO 10 D0 = 1, 10". - Fix glitch in parsing - real*8 x - real*8 x ! erroneous "incompatible type" message - call foo(x) - end - -Mon Dec 9 23:15:02 EST 1996 - Fix glitch in parameter adjustments for arrays whose lower -bound depends on a scalar argument. Example: - subroutine bug(p,z,m,n) - integer z(*),m,n - double precision p(z(m):z(m) + n) ! p_offset botched - call foo(p(0), p(n)) - end - libi77: complain about non-positive rec= in direct read and write -statements. - libf77: trivial adjustments; Version.c not changed. - -Wed Feb 12 00:18:03 EST 1997 - output.c: fix (seldom problematic) glitch in out_call: put parens -around the ... in a test of the form "if (q->tag == TADDR && ...)". - vax.c: fix bug revealed in the "psi_offset =" assignment in the -following example: - subroutine foo(psi,m) - integer z(100),m - common /a/ z - double precision psi(z(m):z(m) + 10) - call foo(m+1, psi(0),psi(10)) - end - -Mon Feb 24 23:44:54 EST 1997 - For consistency with f2c's current treatment of adjacent character -strings in FORMAT statements, recognize a Hollerith string following -a string (and merge adjacent strings in FORMAT statements). - -Wed Feb 26 13:41:11 EST 1997 - New libf2c.zip, a combination of the libf77 and libi77 bundles (and -available only by ftp). - libf77: adjust functions with a complex output argument to permit -aliasing it with input arguments. (For now, at least, this is just -for possible benefit of g77.) - libi77: tweak to ftell_.c for systems with strange definitions of -SEEK_SET, etc. - -Tue Apr 8 20:57:08 EDT 1997 - libf77: [cz]_div.c: tweaks invisible on most systems (that may -improve things slightly with optimized compilation on systems that use -gratuitous extra precision). - libi77: fmt.c: adjust to complain at missing numbers in formats -(but still treat missing ".nnn" as ".0"). - -Fri Apr 11 14:05:57 EDT 1997 - libi77: err.c: attempt to make stderr line buffered rather than -fully buffered. (Buffering is needed for format items T and TR.) - -Thu Apr 17 22:42:43 EDT 1997 - libf77: add F77_aloc.o to makefile (and makefile.u in libf2c.zip). - -Fri Apr 25 19:32:09 EDT 1997 - libf77: add [de]time_.c (which may give trouble on some systems). - -Tue May 27 09:18:52 EDT 1997 - libi77: ftell_.c: fix typo that caused the third argument to be -treated as 2 on some systems. - -Mon Jun 9 00:04:37 EDT 1997 - libi77 (and libf2c.zip): adjust include order in err.c lread.c wref.c -rdfmt.c to include fmt.h (etc.) after system includes. Version.c not -changed. - -Mon Jul 21 16:04:54 EDT 1997 - proc.c: fix glitch in logic for "nonpositive dimension" message. - libi77: inquire.c: always include string.h (for possible use with --DNON_UNIX_STDIO); Version.c not changed. - -Thu Jul 24 17:11:23 EDT 1997 - Tweak "Notice" to reflect the AT&T breakup -- we missed it when -updating the copyright notices in the source files last summer. - Adjust src/makefile so malloc.o is not used by default, but can -be specified with "make MALLOC=malloc.o". - Add comments to src/README about the "CRAY" T3E. - -Tue Aug 5 14:53:25 EDT 1997 - Add definition of calloc to malloc.c; this makes f2c's malloc -work on some systems where trouble hitherto arose because references -to calloc brought in the system's malloc. (On sensible systems, -calloc is defined separately from malloc. To avoid confusion on -other systems, f2c/malloc.c now defines calloc.) - libi77: lread.c: adjust to accord with a change to the Fortran 8X -draft (in 1990 or 1991) that rescinded permission to elide quote marks -in namelist input of character data; to get the old behavior, compile -with F8X_NML_ELIDE_QUOTES #defined. wrtfmt.o: wrt_G: tweak to print -the right number of 0's for zero under G format. - -Sat Aug 16 05:45:32 EDT 1997 - libi77: iio.c: fix bug in internal writes to an array of character -strings that sometimes caused one more array element than required by -the format to be blank-filled. Example: format(1x). - -Wed Sep 17 00:39:29 EDT 1997 - libi77: fmt.[ch] rdfmt.c wrtfmt.c: tweak struct syl for machines -with 64-bit pointers and 32-bit ints that did not 64-bit align -struct syl (e.g., Linux on the DEC Alpha). This change should be -invisible on other machines. - -Sun Sep 21 22:05:19 EDT 1997 - libf77: [de]time_.c (Unix systems only): change return type to double. - -Thu Dec 4 22:10:09 EST 1997 - Fix bug with handling large blocks of comments (over 4k); parts of the -second and subsequent blocks were likely to be lost (not copied into -comments in the resulting C). Allow comment lines to be longer before -breaking them. - -Mon Jan 19 17:19:27 EST 1998 - makefile: change the rule for making gram.c to one for making gram1.c; -henceforth, asking netlib to "send all from f2c/src" will bring you a -working gram.c. Nowadays there are simply too many broken versions of -yacc floating around. - libi77: backspace.c: for b->ufmt==0, change sizeof(int) to -sizeof(uiolen). On machines where this would make a difference, it is -best for portability to compile libI77 with -DUIOLEN_int, which will -render the change invisible. - -Tue Feb 24 08:35:33 EST 1998 - makefile: remove gram.c from the "make clean" rule. - -Wed Feb 25 08:29:39 EST 1998 - makefile: change CFLAGS assignment to -O; add "veryclean" rule. - -Wed Mar 4 13:13:21 EST 1998 - libi77: open.c: fix glitch in comparing file names under --DNON_UNIX_STDIO. - -Mon Mar 9 23:56:56 EST 1998 - putpcc.c: omit an unnecessary temporary variable in computing -(expr)**3. - libf77, libi77: minor tweaks to make some C++ compilers happy; -Version.c not changed. - -Wed Mar 18 18:08:47 EST 1998 - libf77: minor tweaks to [ed]time_.c; Version.c not changed. - libi77: endfile.c, open.c: acquire temporary files from tmpfile(), -unless compiled with -DNON_ANSI_STDIO, which uses mktemp(). -New buffering scheme independent of NON_UNIX_STDIO for handling T -format items. Now -DNON_UNIX_STDIO is no longer be necessary for -Linux, and libf2c no longer causes stderr to be buffered -- the former -setbuf or setvbuf call for stderr was to make T format items work. -open.c: use the Posix access() function to check existence or -nonexistence of files, except under -DNON_POSIX_STDIO, where trial -fopen calls are used. In open.c, fix botch in changes of 19980304. - libf2c.zip: the PC makefiles are now set for NT/W95, with comments -about changes for DOS. - -Fri Apr 3 17:22:12 EST 1998 - Adjust fix of 19960913 to again permit substring notation on -character variables in data statements. - -Sun Apr 5 19:26:50 EDT 1998 - libi77: wsfe.c: make $ format item work: this was lost in the changes -of 17 March 1998. - -Sat May 16 19:08:51 EDT 1998 - Adjust output of ftnlen constants: rather than appending L, -prepend (ftnlen). This should make the resulting C more portable, -e.g., to systems (such as DEC Alpha Unix systems) on which long -may be longer than ftnlen. - Adjust -r so it also casts REAL expressions passed to intrinsic -functions to REAL. - -Wed May 27 16:02:35 EDT 1998 - libf2c.zip: tweak description of compiling libf2c for INTEGER*8 -to accord with makefile.u rather than libF77/makefile. - -Thu May 28 22:45:59 EDT 1998 - libi77: backspace.c dfe.c due.c iio.c lread.c rsfe.c sue.c wsfe.c: -set f__curunit sooner so various error messages will correctly -identify the I/O unit involved. - libf2c.zip: above, plus tweaks to PC makefiles: for some purposes, -it's still best to compile with -DMSDOS (even for use with NT). - -Thu Jun 18 01:22:52 EDT 1998 - libi77: lread.c: modified so floating-point numbers (containing -either a decimal point or an exponent field) are treated as errors -when they appear as list input for integer data. Compile lread.c with --DALLOW_FLOAT_IN_INTEGER_LIST_INPUT to restore the old behavior. - -Mon Aug 31 10:38:54 EDT 1998 - formatdata.c: if possible, and assuming doubles must be aligned on -double boundaries, use existing holes in DATA for common blocks to -force alignment of the block. For example, - block data - common /abc/ a, b - double precision a - integer b(2) - data b(2)/1/ - end -used to generate - struct { - integer fill_1[3]; - integer e_2; - doublereal e_3; - } abc_ = { {0}, 1, 0. }; -and now generates - struct { - doublereal fill_1[1]; - integer fill_2[1]; - integer e_3; - } abc_ = { {0}, {0}, 1 }; -In the old generated C, e_3 was added to force alignment; in the new C, -fill_1 does this job. - -Mon Sep 7 19:48:51 EDT 1998 - libi77: move e_wdfe from sfe.c to dfe.c, where it was originally. -Why did it ever move to sfe.c? - -Tue Sep 8 10:22:50 EDT 1998 - Treat dreal as a synonym for dble unless -cd is specified on the -command line. - -Sun Sep 13 22:23:41 EDT 1998 - format.c: fix bug in writing prototypes under f2c -A ... *.P: -under some circumstances involving external functions with no known -type, a null pointer was passed to printf. - -Tue Oct 20 23:25:54 EDT 1998 - Comments added to libf2c/README and libF77/README, pointing out -the need to modify signal1.h on some systems. - -Wed Feb 10 22:59:52 EST 1999 - defs.h lex.c: permit long names (up to at least roughly -MAX_SHARPLINE_LEN = 1000 characters long) in #line lines (which only -matters under -g). - fc: add -U option; recognize .so files. - -Sat Feb 13 10:18:27 EST 1999 - libf2c: endfile.c, lread.c, signal1.h0: minor tweaks to make some -(C++) compilers happier; f77_aloc.c: make exit_() visible to C++ -compilers. Version strings not changed. - -Thu Mar 11 23:14:02 EST 1999 - Modify f2c (exec.c, expr.c) to diagnose incorrect mixing of types -when (f2c extended) intrinsic functions are involved, as in -(not(17) .and. 4). Catching this in the first executable statement -is a bit tricky, as some checking must be postponed until all statement -function declarations have been parsed. Thus there is a chance of -today's changes introducing bugs under (let us hope) unusual conditions. - -Sun Mar 28 13:17:44 EST 1999 - lex.c: tweak to get the file name right in error messages caused -by statements just after a # nnn "filename" line emitted by the C -preprocessor. (The trouble is that the line following the # nnn line -must be read to see if it is a continuation of the stuff that preceded -the # nnn line.) When # nnn "filename" lines appear among the lines -for a Fortran statement, the filename reported in an error message for -the statement should now be the file that was current when the first -line of the statement was read. - -Sun May 2 22:38:25 EDT 1999 - libf77, libi77, libf2c.zip: make getenv_() more portable (call -getenv() rather than knowing about char **environ); adjust some -complex intrinsics to work with overlapping arguments (caused by -inappropriate use of equivalence); open.c: get "external" versus -"internal" right in the error message if a file cannot be opened; -err.c: cast a pointer difference to (int) for %d; rdfmt.c: omit -fixed-length buffer that could be overwritten by formats Inn or Lnn -with nn > 83. - -Mon May 3 13:14:07 EDT 1999 - "Invisible" changes to omit a few compiler warnings in f2c and -libf2c; two new casts in libf2c/open.c that matter with 64-bit longs, -and one more tweak (libf2c/c_log.c) for pathological equivalences. - Minor update to "fc" script: new -L flag and comment correction. diff --git a/gnu/egcs/libf2c/configure b/gnu/egcs/libf2c/configure deleted file mode 100644 index 23f4cc814ce..00000000000 --- a/gnu/egcs/libf2c/configure +++ /dev/null @@ -1,1736 +0,0 @@ -#! /bin/sh - -# Guess values for system-dependent variables and create Makefiles. -# Generated automatically using autoconf version 2.13 -# Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc. -# -# This configure script is free software; the Free Software Foundation -# gives unlimited permission to copy, distribute and modify it. - -# Defaults: -ac_help= -ac_default_prefix=/usr/local -# Any additions from configure.in: - -# Initialize some variables set by options. -# The variables have the same names as the options, with -# dashes changed to underlines. -build=NONE -cache_file=./config.cache -exec_prefix=NONE -host=NONE -no_create= -nonopt=NONE -no_recursion= -prefix=NONE -program_prefix=NONE -program_suffix=NONE -program_transform_name=s,x,x, -silent= -site= -srcdir= -target=NONE -verbose= -x_includes=NONE -x_libraries=NONE -bindir='${exec_prefix}/bin' -sbindir='${exec_prefix}/sbin' -libexecdir='${exec_prefix}/libexec' -datadir='${prefix}/share' -sysconfdir='${prefix}/etc' -sharedstatedir='${prefix}/com' -localstatedir='${prefix}/var' -libdir='${exec_prefix}/lib' -includedir='${prefix}/include' -oldincludedir='/usr/include' -infodir='${prefix}/info' -mandir='${prefix}/man' - -# Initialize some other variables. -subdirs= -MFLAGS= MAKEFLAGS= -SHELL=${CONFIG_SHELL-/bin/sh} -# Maximum number of lines to put in a shell here document. -ac_max_here_lines=12 - -ac_prev= -for ac_option -do - - # If the previous option needs an argument, assign it. - if test -n "$ac_prev"; then - eval "$ac_prev=\$ac_option" - ac_prev= - continue - fi - - case "$ac_option" in - -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;; - *) ac_optarg= ;; - esac - - # Accept the important Cygnus configure options, so we can diagnose typos. - - case "$ac_option" in - - -bindir | --bindir | --bindi | --bind | --bin | --bi) - ac_prev=bindir ;; - -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) - bindir="$ac_optarg" ;; - - -build | --build | --buil | --bui | --bu) - ac_prev=build ;; - -build=* | --build=* | --buil=* | --bui=* | --bu=*) - build="$ac_optarg" ;; - - -cache-file | --cache-file | --cache-fil | --cache-fi \ - | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) - ac_prev=cache_file ;; - -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ - | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) - cache_file="$ac_optarg" ;; - - -datadir | --datadir | --datadi | --datad | --data | --dat | --da) - ac_prev=datadir ;; - -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ - | --da=*) - datadir="$ac_optarg" ;; - - -disable-* | --disable-*) - ac_feature=`echo $ac_option|sed -e 's/-*disable-//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then - { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } - fi - ac_feature=`echo $ac_feature| sed 's/-/_/g'` - eval "enable_${ac_feature}=no" ;; - - -enable-* | --enable-*) - ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then - { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } - fi - ac_feature=`echo $ac_feature| sed 's/-/_/g'` - case "$ac_option" in - *=*) ;; - *) ac_optarg=yes ;; - esac - eval "enable_${ac_feature}='$ac_optarg'" ;; - - -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ - | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ - | --exec | --exe | --ex) - ac_prev=exec_prefix ;; - -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ - | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ - | --exec=* | --exe=* | --ex=*) - exec_prefix="$ac_optarg" ;; - - -gas | --gas | --ga | --g) - # Obsolete; use --with-gas. - with_gas=yes ;; - - -help | --help | --hel | --he) - # Omit some internal or obsolete options to make the list less imposing. - # This message is too long to be a string in the A/UX 3.1 sh. - cat << EOF -Usage: configure [options] [host] -Options: [defaults in brackets after descriptions] -Configuration: - --cache-file=FILE cache test results in FILE - --help print this message - --no-create do not create output files - --quiet, --silent do not print \`checking...' messages - --version print the version of autoconf that created configure -Directory and file names: - --prefix=PREFIX install architecture-independent files in PREFIX - [$ac_default_prefix] - --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX - [same as prefix] - --bindir=DIR user executables in DIR [EPREFIX/bin] - --sbindir=DIR system admin executables in DIR [EPREFIX/sbin] - --libexecdir=DIR program executables in DIR [EPREFIX/libexec] - --datadir=DIR read-only architecture-independent data in DIR - [PREFIX/share] - --sysconfdir=DIR read-only single-machine data in DIR [PREFIX/etc] - --sharedstatedir=DIR modifiable architecture-independent data in DIR - [PREFIX/com] - --localstatedir=DIR modifiable single-machine data in DIR [PREFIX/var] - --libdir=DIR object code libraries in DIR [EPREFIX/lib] - --includedir=DIR C header files in DIR [PREFIX/include] - --oldincludedir=DIR C header files for non-gcc in DIR [/usr/include] - --infodir=DIR info documentation in DIR [PREFIX/info] - --mandir=DIR man documentation in DIR [PREFIX/man] - --srcdir=DIR find the sources in DIR [configure dir or ..] - --program-prefix=PREFIX prepend PREFIX to installed program names - --program-suffix=SUFFIX append SUFFIX to installed program names - --program-transform-name=PROGRAM - run sed PROGRAM on installed program names -EOF - cat << EOF -Host type: - --build=BUILD configure for building on BUILD [BUILD=HOST] - --host=HOST configure for HOST [guessed] - --target=TARGET configure for TARGET [TARGET=HOST] -Features and packages: - --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) - --enable-FEATURE[=ARG] include FEATURE [ARG=yes] - --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] - --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) - --x-includes=DIR X include files are in DIR - --x-libraries=DIR X library files are in DIR -EOF - if test -n "$ac_help"; then - echo "--enable and --with options recognized:$ac_help" - fi - exit 0 ;; - - -host | --host | --hos | --ho) - ac_prev=host ;; - -host=* | --host=* | --hos=* | --ho=*) - host="$ac_optarg" ;; - - -includedir | --includedir | --includedi | --included | --include \ - | --includ | --inclu | --incl | --inc) - ac_prev=includedir ;; - -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ - | --includ=* | --inclu=* | --incl=* | --inc=*) - includedir="$ac_optarg" ;; - - -infodir | --infodir | --infodi | --infod | --info | --inf) - ac_prev=infodir ;; - -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) - infodir="$ac_optarg" ;; - - -libdir | --libdir | --libdi | --libd) - ac_prev=libdir ;; - -libdir=* | --libdir=* | --libdi=* | --libd=*) - libdir="$ac_optarg" ;; - - -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ - | --libexe | --libex | --libe) - ac_prev=libexecdir ;; - -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ - | --libexe=* | --libex=* | --libe=*) - libexecdir="$ac_optarg" ;; - - -localstatedir | --localstatedir | --localstatedi | --localstated \ - | --localstate | --localstat | --localsta | --localst \ - | --locals | --local | --loca | --loc | --lo) - ac_prev=localstatedir ;; - -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ - | --localstate=* | --localstat=* | --localsta=* | --localst=* \ - | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) - localstatedir="$ac_optarg" ;; - - -mandir | --mandir | --mandi | --mand | --man | --ma | --m) - ac_prev=mandir ;; - -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) - mandir="$ac_optarg" ;; - - -nfp | --nfp | --nf) - # Obsolete; use --without-fp. - with_fp=no ;; - - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c) - no_create=yes ;; - - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) - no_recursion=yes ;; - - -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ - | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ - | --oldin | --oldi | --old | --ol | --o) - ac_prev=oldincludedir ;; - -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ - | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ - | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) - oldincludedir="$ac_optarg" ;; - - -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) - ac_prev=prefix ;; - -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) - prefix="$ac_optarg" ;; - - -program-prefix | --program-prefix | --program-prefi | --program-pref \ - | --program-pre | --program-pr | --program-p) - ac_prev=program_prefix ;; - -program-prefix=* | --program-prefix=* | --program-prefi=* \ - | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) - program_prefix="$ac_optarg" ;; - - -program-suffix | --program-suffix | --program-suffi | --program-suff \ - | --program-suf | --program-su | --program-s) - ac_prev=program_suffix ;; - -program-suffix=* | --program-suffix=* | --program-suffi=* \ - | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) - program_suffix="$ac_optarg" ;; - - -program-transform-name | --program-transform-name \ - | --program-transform-nam | --program-transform-na \ - | --program-transform-n | --program-transform- \ - | --program-transform | --program-transfor \ - | --program-transfo | --program-transf \ - | --program-trans | --program-tran \ - | --progr-tra | --program-tr | --program-t) - ac_prev=program_transform_name ;; - -program-transform-name=* | --program-transform-name=* \ - | --program-transform-nam=* | --program-transform-na=* \ - | --program-transform-n=* | --program-transform-=* \ - | --program-transform=* | --program-transfor=* \ - | --program-transfo=* | --program-transf=* \ - | --program-trans=* | --program-tran=* \ - | --progr-tra=* | --program-tr=* | --program-t=*) - program_transform_name="$ac_optarg" ;; - - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil) - silent=yes ;; - - -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) - ac_prev=sbindir ;; - -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ - | --sbi=* | --sb=*) - sbindir="$ac_optarg" ;; - - -sharedstatedir | --sharedstatedir | --sharedstatedi \ - | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ - | --sharedst | --shareds | --shared | --share | --shar \ - | --sha | --sh) - ac_prev=sharedstatedir ;; - -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ - | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ - | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ - | --sha=* | --sh=*) - sharedstatedir="$ac_optarg" ;; - - -site | --site | --sit) - ac_prev=site ;; - -site=* | --site=* | --sit=*) - site="$ac_optarg" ;; - - -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) - ac_prev=srcdir ;; - -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) - srcdir="$ac_optarg" ;; - - -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ - | --syscon | --sysco | --sysc | --sys | --sy) - ac_prev=sysconfdir ;; - -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ - | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) - sysconfdir="$ac_optarg" ;; - - -target | --target | --targe | --targ | --tar | --ta | --t) - ac_prev=target ;; - -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) - target="$ac_optarg" ;; - - -v | -verbose | --verbose | --verbos | --verbo | --verb) - verbose=yes ;; - - -version | --version | --versio | --versi | --vers) - echo "configure generated by autoconf version 2.13" - exit 0 ;; - - -with-* | --with-*) - ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then - { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } - fi - ac_package=`echo $ac_package| sed 's/-/_/g'` - case "$ac_option" in - *=*) ;; - *) ac_optarg=yes ;; - esac - eval "with_${ac_package}='$ac_optarg'" ;; - - -without-* | --without-*) - ac_package=`echo $ac_option|sed -e 's/-*without-//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then - { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } - fi - ac_package=`echo $ac_package| sed 's/-/_/g'` - eval "with_${ac_package}=no" ;; - - --x) - # Obsolete; use --with-x. - with_x=yes ;; - - -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ - | --x-incl | --x-inc | --x-in | --x-i) - ac_prev=x_includes ;; - -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ - | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) - x_includes="$ac_optarg" ;; - - -x-libraries | --x-libraries | --x-librarie | --x-librari \ - | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) - ac_prev=x_libraries ;; - -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ - | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) - x_libraries="$ac_optarg" ;; - - -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; } - ;; - - *) - if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then - echo "configure: warning: $ac_option: invalid host type" 1>&2 - fi - if test "x$nonopt" != xNONE; then - { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } - fi - nonopt="$ac_option" - ;; - - esac -done - -if test -n "$ac_prev"; then - { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; } -fi - -trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 - -# File descriptor usage: -# 0 standard input -# 1 file creation -# 2 errors and warnings -# 3 some systems may open it to /dev/tty -# 4 used on the Kubota Titan -# 6 checking for... messages and results -# 5 compiler messages saved in config.log -if test "$silent" = yes; then - exec 6>/dev/null -else - exec 6>&1 -fi -exec 5>./config.log - -echo "\ -This file contains any messages produced by compilers while -running configure, to aid debugging if configure makes a mistake. -" 1>&5 - -# Strip out --no-create and --no-recursion so they do not pile up. -# Also quote any args containing shell metacharacters. -ac_configure_args= -for ac_arg -do - case "$ac_arg" in - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c) ;; - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;; - *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*) - ac_configure_args="$ac_configure_args '$ac_arg'" ;; - *) ac_configure_args="$ac_configure_args $ac_arg" ;; - esac -done - -# NLS nuisances. -# Only set these to C if already set. These must not be set unconditionally -# because not all systems understand e.g. LANG=C (notably SCO). -# Fixing LC_MESSAGES prevents Solaris sh from translating var values in `set'! -# Non-C LC_CTYPE values break the ctype check. -if test "${LANG+set}" = set; then LANG=C; export LANG; fi -if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi -if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi -if test "${LC_CTYPE+set}" = set; then LC_CTYPE=C; export LC_CTYPE; fi - -# confdefs.h avoids OS command line length limits that DEFS can exceed. -rm -rf conftest* confdefs.h -# AIX cpp loses on an empty file, so make sure it contains at least a newline. -echo > confdefs.h - -# A filename unique to this package, relative to the directory that -# configure is in, which we can look for to find out if srcdir is correct. -ac_unique_file=libF77/Version.c - -# Find the source files, if location was not specified. -if test -z "$srcdir"; then - ac_srcdir_defaulted=yes - # Try the directory containing this script, then its parent. - ac_prog=$0 - ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'` - test "x$ac_confdir" = "x$ac_prog" && ac_confdir=. - srcdir=$ac_confdir - if test ! -r $srcdir/$ac_unique_file; then - srcdir=.. - fi -else - ac_srcdir_defaulted=no -fi -if test ! -r $srcdir/$ac_unique_file; then - if test "$ac_srcdir_defaulted" = yes; then - { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; } - else - { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; } - fi -fi -srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'` - -# Prefer explicitly selected file to automatically selected ones. -if test -z "$CONFIG_SITE"; then - if test "x$prefix" != xNONE; then - CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" - else - CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" - fi -fi -for ac_site_file in $CONFIG_SITE; do - if test -r "$ac_site_file"; then - echo "loading site script $ac_site_file" - . "$ac_site_file" - fi -done - -if test -r "$cache_file"; then - echo "loading cache $cache_file" - . $cache_file -else - echo "creating cache $cache_file" - > $cache_file -fi - -ac_ext=c -# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. -ac_cpp='$CPP $CPPFLAGS' -ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' -ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -cross_compiling=$ac_cv_prog_cc_cross - -ac_exeext= -ac_objext=o -if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then - # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu. - if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then - ac_n= ac_c=' -' ac_t=' ' - else - ac_n=-n ac_c= ac_t= - fi -else - ac_n= ac_c='\c' ac_t= -fi - - - -if test "${srcdir}" = "." ; then - if test "${with_target_subdir}" != "." ; then - topsrcdir=${with_multisrctop}../.. - else - topsrcdir=${with_multisrctop}.. - fi -else - topsrcdir=${srcdir}/.. -fi -ac_aux_dir= -for ac_dir in ${GNUSYSTEM_AUX_DIR} $topsrcdir $srcdir/$topsrcdir; do - if test -f $ac_dir/install-sh; then - ac_aux_dir=$ac_dir - ac_install_sh="$ac_aux_dir/install-sh -c" - break - elif test -f $ac_dir/install.sh; then - ac_aux_dir=$ac_dir - ac_install_sh="$ac_aux_dir/install.sh -c" - break - fi -done -if test -z "$ac_aux_dir"; then - { echo "configure: error: can not find install-sh or install.sh in $topsrcdir $srcdir/$topsrcdir" 1>&2; exit 1; } -fi -ac_config_guess=$ac_aux_dir/config.guess -ac_config_sub=$ac_aux_dir/config.sub -ac_configure=$ac_aux_dir/configure # This should be Cygnus configure. - - -# If the language specific compiler does not exist, but the "gcc" directory -# does, we do not build anything. Note, $r is set by the top-level Makefile. -# Note that when we look for the compiler, we search both with and without -# extension to handle cross and canadian cross builds. -compiler_name=f771 -rm -f skip-this-dir -echo $ac_n "checking if compiler $compiler_name has been built""... $ac_c" 1>&6 -echo "configure:562: checking if compiler $compiler_name has been built" >&5 -if eval "test \"`echo '$''{'g77_cv_compiler_exists'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - g77_cv_compiler_exists=yes -if test -n "$r"; then - if test -d "$r"/gcc; then - if test -f "$r"/gcc/$compiler_name \ - || test -f "$r"/gcc/$compiler_name.exe; then - true - else - g77_cv_compiler_exists=no - echo "rm -f config.cache config.log multilib.out" > skip-this-dir - fi - fi -fi - -fi - -echo "$ac_t""$g77_cv_compiler_exists" 1>&6 -if test x$g77_cv_compiler_exists = xno -then - rm -f Makefile conftest* confdefs* core - exit 0 -fi - -# For g77 we'll set CC to point at the built gcc, but this will get it into -# the makefiles -# Extract the first word of "gcc", so it can be a program name with args. -set dummy gcc; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:593: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_CC="gcc" - break - fi - done - IFS="$ac_save_ifs" -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - -if test -z "$CC"; then - # Extract the first word of "cc", so it can be a program name with args. -set dummy cc; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:623: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_prog_rejected=no - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - if test "$ac_dir/$ac_word" = "/usr/ucb/cc"; then - ac_prog_rejected=yes - continue - fi - ac_cv_prog_CC="cc" - break - fi - done - IFS="$ac_save_ifs" -if test $ac_prog_rejected = yes; then - # We found a bogon in the path, so make sure we never use it. - set dummy $ac_cv_prog_CC - shift - if test $# -gt 0; then - # We chose a different compiler from the bogus one. - # However, it has the same basename, so the bogon will be chosen - # first if we set CC to just the basename; use the full file name. - shift - set dummy "$ac_dir/$ac_word" "$@" - shift - ac_cv_prog_CC="$@" - fi -fi -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - - if test -z "$CC"; then - case "`uname -s`" in - *win32* | *WIN32*) - # Extract the first word of "cl", so it can be a program name with args. -set dummy cl; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:674: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_CC="cl" - break - fi - done - IFS="$ac_save_ifs" -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - ;; - esac - fi - test -z "$CC" && { echo "configure: error: no acceptable cc found in \$PATH" 1>&2; exit 1; } -fi - -echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works""... $ac_c" 1>&6 -echo "configure:706: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works" >&5 - -ac_ext=c -# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. -ac_cpp='$CPP $CPPFLAGS' -ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' -ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -cross_compiling=$ac_cv_prog_cc_cross - -cat > conftest.$ac_ext << EOF - -#line 717 "configure" -#include "confdefs.h" - -main(){return(0);} -EOF -if { (eval echo configure:722: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - ac_cv_prog_cc_works=yes - # If we can't run a trivial program, we are probably using a cross compiler. - if (./conftest; exit) 2>/dev/null; then - ac_cv_prog_cc_cross=no - else - ac_cv_prog_cc_cross=yes - fi -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - ac_cv_prog_cc_works=no -fi -rm -fr conftest* -ac_ext=c -# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. -ac_cpp='$CPP $CPPFLAGS' -ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' -ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -cross_compiling=$ac_cv_prog_cc_cross - -echo "$ac_t""$ac_cv_prog_cc_works" 1>&6 -if test $ac_cv_prog_cc_works = no; then - { echo "configure: error: installation or configuration problem: C compiler cannot create executables." 1>&2; exit 1; } -fi -echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler""... $ac_c" 1>&6 -echo "configure:748: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler" >&5 -echo "$ac_t""$ac_cv_prog_cc_cross" 1>&6 -cross_compiling=$ac_cv_prog_cc_cross - -echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6 -echo "configure:753: checking whether we are using GNU C" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.c <<EOF -#ifdef __GNUC__ - yes; -#endif -EOF -if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:762: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then - ac_cv_prog_gcc=yes -else - ac_cv_prog_gcc=no -fi -fi - -echo "$ac_t""$ac_cv_prog_gcc" 1>&6 - -if test $ac_cv_prog_gcc = yes; then - GCC=yes -else - GCC= -fi - -ac_test_CFLAGS="${CFLAGS+set}" -ac_save_CFLAGS="$CFLAGS" -CFLAGS= -echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6 -echo "configure:781: checking whether ${CC-cc} accepts -g" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - echo 'void f(){}' > conftest.c -if test -z "`${CC-cc} -g -c conftest.c 2>&1`"; then - ac_cv_prog_cc_g=yes -else - ac_cv_prog_cc_g=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$ac_cv_prog_cc_g" 1>&6 -if test "$ac_test_CFLAGS" = set; then - CFLAGS="$ac_save_CFLAGS" -elif test $ac_cv_prog_cc_g = yes; then - if test "$GCC" = yes; then - CFLAGS="-g -O2" - else - CFLAGS="-g" - fi -else - if test "$GCC" = yes; then - CFLAGS="-O2" - else - CFLAGS= - fi -fi - - -test "$AR" || AR=ar - -if test "$RANLIB"; then : - -else - # Extract the first word of "ranlib", so it can be a program name with args. -set dummy ranlib; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:821: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$RANLIB"; then - ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_RANLIB="ranlib" - break - fi - done - IFS="$ac_save_ifs" - test -z "$ac_cv_prog_RANLIB" && ac_cv_prog_RANLIB=":" -fi -fi -RANLIB="$ac_cv_prog_RANLIB" -if test -n "$RANLIB"; then - echo "$ac_t""$RANLIB" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - -fi -# Find a good install program. We prefer a C program (faster), -# so one script is as good as another. But avoid the broken or -# incompatible versions: -# SysV /etc/install, /usr/sbin/install -# SunOS /usr/etc/install -# IRIX /sbin/install -# AIX /bin/install -# AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag -# AFS /usr/afsws/bin/install, which mishandles nonexistent args -# SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" -# ./install, which can be erroneously created by make from ./install.sh. -echo $ac_n "checking for a BSD compatible install""... $ac_c" 1>&6 -echo "configure:861: checking for a BSD compatible install" >&5 -if test -z "$INSTALL"; then -if eval "test \"`echo '$''{'ac_cv_path_install'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - IFS="${IFS= }"; ac_save_IFS="$IFS"; IFS=":" - for ac_dir in $PATH; do - # Account for people who put trailing slashes in PATH elements. - case "$ac_dir/" in - /|./|.//|/etc/*|/usr/sbin/*|/usr/etc/*|/sbin/*|/usr/afsws/bin/*|/usr/ucb/*) ;; - *) - # OSF1 and SCO ODT 3.0 have their own names for install. - # Don't use installbsd from OSF since it installs stuff as root - # by default. - for ac_prog in ginstall scoinst install; do - if test -f $ac_dir/$ac_prog; then - if test $ac_prog = install && - grep dspmsg $ac_dir/$ac_prog >/dev/null 2>&1; then - # AIX install. It has an incompatible calling convention. - : - else - ac_cv_path_install="$ac_dir/$ac_prog -c" - break 2 - fi - fi - done - ;; - esac - done - IFS="$ac_save_IFS" - -fi - if test "${ac_cv_path_install+set}" = set; then - INSTALL="$ac_cv_path_install" - else - # As a last resort, use the slow shell script. We don't cache a - # path for INSTALL within a source directory, because that will - # break other packages using the cache if that directory is - # removed, or if the path is relative. - INSTALL="$ac_install_sh" - fi -fi -echo "$ac_t""$INSTALL" 1>&6 - -# Use test -z because SunOS4 sh mishandles braces in ${var-val}. -# It thinks the first close brace ends the variable substitution. -test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' - -test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL_PROGRAM}' - -test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' - -echo $ac_n "checking whether ${MAKE-make} sets \${MAKE}""... $ac_c" 1>&6 -echo "configure:914: checking whether ${MAKE-make} sets \${MAKE}" >&5 -set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y%./+-%__p_%'` -if eval "test \"`echo '$''{'ac_cv_prog_make_${ac_make}_set'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftestmake <<\EOF -all: - @echo 'ac_maketemp="${MAKE}"' -EOF -# GNU make sometimes prints "make[1]: Entering...", which would confuse us. -eval `${MAKE-make} -f conftestmake 2>/dev/null | grep temp=` -if test -n "$ac_maketemp"; then - eval ac_cv_prog_make_${ac_make}_set=yes -else - eval ac_cv_prog_make_${ac_make}_set=no -fi -rm -f conftestmake -fi -if eval "test \"`echo '$ac_cv_prog_make_'${ac_make}_set`\" = yes"; then - echo "$ac_t""yes" 1>&6 - SET_MAKE= -else - echo "$ac_t""no" 1>&6 - SET_MAKE="MAKE=${MAKE-make}" -fi - - -# Sanity check for the cross-compilation case: -echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6 -echo "configure:943: checking how to run the C preprocessor" >&5 -# On Suns, sometimes $CPP names a directory. -if test -n "$CPP" && test -d "$CPP"; then - CPP= -fi -if test -z "$CPP"; then -if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - # This must be in double quotes, not single quotes, because CPP may get - # substituted into the Makefile and "${CC-cc}" will confuse make. - CPP="${CC-cc} -E" - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. - cat > conftest.$ac_ext <<EOF -#line 958 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:964: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP="${CC-cc} -E -traditional-cpp" - cat > conftest.$ac_ext <<EOF -#line 975 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:981: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP="${CC-cc} -nologo -E" - cat > conftest.$ac_ext <<EOF -#line 992 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:998: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP=/lib/cpp -fi -rm -f conftest* -fi -rm -f conftest* -fi -rm -f conftest* - ac_cv_prog_CPP="$CPP" -fi - CPP="$ac_cv_prog_CPP" -else - ac_cv_prog_CPP="$CPP" -fi -echo "$ac_t""$CPP" 1>&6 - -ac_safe=`echo "stdio.h" | sed 'y%./+-%__p_%'` -echo $ac_n "checking for stdio.h""... $ac_c" 1>&6 -echo "configure:1024: checking for stdio.h" >&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 1029 "configure" -#include "confdefs.h" -#include <stdio.h> -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:1034: \"$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* - eval "ac_cv_header_$ac_safe=yes" -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_header_$ac_safe=no" -fi -rm -f conftest* -fi -if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then - echo "$ac_t""yes" 1>&6 - : -else - echo "$ac_t""no" 1>&6 -{ echo "configure: error: Can't find stdio.h. -You must have a usable C system for the target already installed, at least -including headers and, preferably, the library, before you can configure -the G77 runtime system. If necessary, install gcc now with \`LANGUAGES=c', -then the target library, then build with \`LANGUAGES=f77'." 1>&2; exit 1; } -fi - - -# We have to firkle with the info in hconfig.h to figure out suitable types -# (via com.h). proj.h and com.h are in gcc/f/, config.h which they need -# is in gcc/ and the config files are in gcc/config/. -echo $ac_n "checking f2c integer type""... $ac_c" 1>&6 -echo "configure:1065: checking f2c integer type" >&5 -# Set this back later below! -late_ac_cpp=$ac_cpp -late_cflags=$CFLAGS -extra_includes="-I$topsrcdir/gcc/f -I$topsrcdir/gcc -I$topsrcdir/include -I$topsrcdir/gcc/config -I$r/gcc" -ac_cpp="$late_ac_cpp -DIN_GCC -DHAVE_CONFIG_H $extra_includes" - -# The AC_EGREP_CPPs below have been known to fail when the header -# path is wrong after things have been moved about; the cpp error status -# counts for nothing. First check that there aren't any errors from -# the headers. -CFLAGS="$CFLAGS -DHAVE_CONFIG_H -DIN_GCC $extra_includes" -cat > conftest.$ac_ext <<EOF -#line 1078 "configure" -#include "confdefs.h" -#include "proj.h" -#define FFECOM_DETERMINE_TYPES 1 -#include "com.h" -int main() { - -; return 0; } -EOF -if { (eval echo configure:1087: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - : -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - { echo "configure: error: Can't run check for integer sizes -- see config.log" 1>&2; exit 1; } -fi -rm -f conftest* -CFLAGS=$late_cflags - -if eval "test \"`echo '$''{'g77_cv_sys_f2cinteger'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - echo "configure:1101: using $ac_cpp" >&5 -cat > conftest.$ac_ext <<EOF -#line 1103 "configure" -#include "confdefs.h" -#include "proj.h" -#define FFECOM_DETERMINE_TYPES 1 -#include "com.h" -#if FFECOM_f2cINTEGER == FFECOM_f2ccodeLONG -F2C_INTEGER=long int -#elif FFECOM_f2cINTEGER == FFECOM_f2ccodeINT -F2C_INTEGER=int -#else -# error "Cannot find a suitable type for F2C_INTEGER" -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "F2C_INTEGER=long int" >/dev/null 2>&1; then - rm -rf conftest* - g77_cv_sys_f2cinteger="long int" -fi -rm -f conftest* - -if test "$g77_cv_sys_f2cinteger" = ""; then -echo "configure:1125: using $ac_cpp" >&5 - cat > conftest.$ac_ext <<EOF -#line 1127 "configure" -#include "confdefs.h" -#include "proj.h" -#define FFECOM_DETERMINE_TYPES 1 -#include "com.h" -#if FFECOM_f2cINTEGER == FFECOM_f2ccodeLONG -F2C_INTEGER=long int -#elif FFECOM_f2cINTEGER == FFECOM_f2ccodeINT -F2C_INTEGER=int -#else -# error "Cannot find a suitable type for F2C_INTEGER" -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "F2C_INTEGER=int" >/dev/null 2>&1; then - rm -rf conftest* - g77_cv_sys_f2cinteger=int -fi -rm -f conftest* - -fi -if test "$g77_cv_sys_f2cinteger" = ""; then - echo "$ac_t""""" 1>&6 - { echo "configure: error: Can't determine type for f2c integer; config.log may help." 1>&2; exit 1; } -fi - -fi - -echo "$ac_t""$g77_cv_sys_f2cinteger" 1>&6 -F2C_INTEGER=$g77_cv_sys_f2cinteger - - -echo $ac_n "checking f2c long int type""... $ac_c" 1>&6 -echo "configure:1161: checking f2c long int type" >&5 -if eval "test \"`echo '$''{'g77_cv_sys_f2clongint'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - echo "configure:1165: using $ac_cpp" >&5 -cat > conftest.$ac_ext <<EOF -#line 1167 "configure" -#include "confdefs.h" -#include "proj.h" -#define FFECOM_DETERMINE_TYPES 1 -#include "com.h" -#if FFECOM_f2cLONGINT == FFECOM_f2ccodeLONG -F2C_LONGINT=long int -#elif FFECOM_f2cLONGINT == FFECOM_f2ccodeLONGLONG -F2C_LONGINT=long long int -#else -# error "Cannot find a suitable type for F2C_LONGINT" -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "F2C_LONGINT=long int" >/dev/null 2>&1; then - rm -rf conftest* - g77_cv_sys_f2clongint="long int" -fi -rm -f conftest* - - -if test "$g77_cv_sys_f2clongint" = ""; then -echo "configure:1190: using $ac_cpp" >&5 - cat > conftest.$ac_ext <<EOF -#line 1192 "configure" -#include "confdefs.h" -#include "proj.h" -#define FFECOM_DETERMINE_TYPES 1 -#include "com.h" -#if FFECOM_f2cLONGINT == FFECOM_f2ccodeLONG -F2C_LONGINT=long int -#elif FFECOM_f2cLONGINT == FFECOM_f2ccodeLONGLONG -F2C_LONGINT=long long int -#else -# error "Cannot find a suitable type for F2C_LONGINT" -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "F2C_LONGINT=long long int" >/dev/null 2>&1; then - rm -rf conftest* - g77_cv_sys_f2clongint="long long int" -fi -rm -f conftest* - -fi -if test "$g77_cv_sys_f2clongint" = ""; then - echo "$ac_t""""" 1>&6 - { echo "configure: error: Can't determine type for f2c long int; config.log may help." 1>&2; exit 1; } -fi - -fi - -echo "$ac_t""$g77_cv_sys_f2clongint" 1>&6 -F2C_LONGINT=$g77_cv_sys_f2clongint - -ac_cpp=$late_ac_cpp - -# avoid confusion in case the `makefile's from the f2c distribution have -# got put here -test -f libF77/makefile && mv libF77/makefile libF77/makefile.ori -test -f libI77/makefile && mv libI77/makefile libI77/makefile.ori -test -f libU77/makefile && mv libU77/makefile libU77/makefile.ori - -# Get the version trigger filename from the toplevel -if [ "${with_gcc_version_trigger+set}" = set ]; then - gcc_version_trigger=$with_gcc_version_trigger - gcc_version=`sed -e 's/.*\"\([^ \"]*\)[ \"].*/\1/' < ${gcc_version_trigger}` -else - gcc_version_trigger= - gcc_version=UNKNOWN -fi - - - - -# Do some error checking and defaulting for the host and target type. -# The inputs are: -# configure --host=HOST --target=TARGET --build=BUILD NONOPT -# -# The rules are: -# 1. You are not allowed to specify --host, --target, and nonopt at the -# same time. -# 2. Host defaults to nonopt. -# 3. If nonopt is not specified, then host defaults to the current host, -# as determined by config.guess. -# 4. Target and build default to nonopt. -# 5. If nonopt is not specified, then target and build default to host. - -# The aliases save the names the user supplied, while $host etc. -# will get canonicalized. -case $host---$target---$nonopt in -NONE---*---* | *---NONE---* | *---*---NONE) ;; -*) { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } ;; -esac - - -# Make sure we can run config.sub. -if ${CONFIG_SHELL-/bin/sh} $ac_config_sub sun4 >/dev/null 2>&1; then : -else { echo "configure: error: can not run $ac_config_sub" 1>&2; exit 1; } -fi - -echo $ac_n "checking host system type""... $ac_c" 1>&6 -echo "configure:1271: checking host system type" >&5 - -host_alias=$host -case "$host_alias" in -NONE) - case $nonopt in - NONE) - if host_alias=`${CONFIG_SHELL-/bin/sh} $ac_config_guess`; then : - else { echo "configure: error: can not guess host type; you must specify one" 1>&2; exit 1; } - fi ;; - *) host_alias=$nonopt ;; - esac ;; -esac - -host=`${CONFIG_SHELL-/bin/sh} $ac_config_sub $host_alias` -host_cpu=`echo $host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` -host_vendor=`echo $host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` -host_os=`echo $host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` -echo "$ac_t""$host" 1>&6 - -echo $ac_n "checking target system type""... $ac_c" 1>&6 -echo "configure:1292: checking target system type" >&5 - -target_alias=$target -case "$target_alias" in -NONE) - case $nonopt in - NONE) target_alias=$host_alias ;; - *) target_alias=$nonopt ;; - esac ;; -esac - -target=`${CONFIG_SHELL-/bin/sh} $ac_config_sub $target_alias` -target_cpu=`echo $target | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` -target_vendor=`echo $target | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` -target_os=`echo $target | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` -echo "$ac_t""$target" 1>&6 - -echo $ac_n "checking build system type""... $ac_c" 1>&6 -echo "configure:1310: checking build system type" >&5 - -build_alias=$build -case "$build_alias" in -NONE) - case $nonopt in - NONE) build_alias=$host_alias ;; - *) build_alias=$nonopt ;; - esac ;; -esac - -build=`${CONFIG_SHELL-/bin/sh} $ac_config_sub $build_alias` -build_cpu=`echo $build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` -build_vendor=`echo $build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` -build_os=`echo $build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` -echo "$ac_t""$build" 1>&6 - -test "$host_alias" != "$target_alias" && - test "$program_prefix$program_suffix$program_transform_name" = \ - NONENONEs,x,x, && - program_prefix=${target_alias}- - - -subdirs="libU77 libI77 libF77" - -# Do Makefile first since g2c.h depends on it and shouldn't get an -# earlier timestamp. Of course, it does when the multilib gunk below -# edits Makefile, sigh; see additional touch below. -trap '' 1 2 15 -cat > confcache <<\EOF -# This file is a shell script that caches the results of configure -# tests run on this system so they can be shared between configure -# scripts and configure runs. It is not useful on other systems. -# If it contains results you don't want to keep, you may remove or edit it. -# -# By default, configure uses ./config.cache as the cache file, -# creating it if it does not exist already. You can give configure -# the --cache-file=FILE option to use a different cache file; that is -# what configure does when it calls configure scripts in -# subdirectories, so they share the cache. -# Giving --cache-file=/dev/null disables caching, for debugging configure. -# config.status only pays attention to the cache file if you give it the -# --recheck option to rerun configure. -# -EOF -# The following way of writing the cache mishandles newlines in values, -# but we know of no workaround that is simple, portable, and efficient. -# So, don't put newlines in cache variables' values. -# Ultrix sh set writes to stderr and can't be redirected directly, -# and sets the high bit in the cache file unless we assign to the vars. -(set) 2>&1 | - case `(ac_space=' '; set | grep ac_space) 2>&1` in - *ac_space=\ *) - # `set' does not quote correctly, so add quotes (double-quote substitution - # turns \\\\ into \\, and sed turns \\ into \). - sed -n \ - -e "s/'/'\\\\''/g" \ - -e "s/^\\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\\)=\\(.*\\)/\\1=\${\\1='\\2'}/p" - ;; - *) - # `set' quotes correctly as required by POSIX, so do not add quotes. - sed -n -e 's/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=${\1=\2}/p' - ;; - esac >> confcache -if cmp -s $cache_file confcache; then - : -else - if test -w $cache_file; then - echo "updating cache $cache_file" - cat confcache > $cache_file - else - echo "not updating unwritable cache $cache_file" - fi -fi -rm -f confcache - -trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 - -test "x$prefix" = xNONE && prefix=$ac_default_prefix -# Let make expand exec_prefix. -test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' - -# Any assignment to VPATH causes Sun make to only execute -# the first set of double-colon rules, so remove it if not needed. -# If there is a colon in the path, we need to keep it. -if test "x$srcdir" = x.; then - ac_vpsub='/^[ ]*VPATH[ ]*=[^:]*$/d' -fi - -trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15 - -# Transform confdefs.h into DEFS. -# Protect against shell expansion while executing Makefile rules. -# Protect against Makefile macro expansion. -cat > conftest.defs <<\EOF -s%#define \([A-Za-z_][A-Za-z0-9_]*\) *\(.*\)%-D\1=\2%g -s%[ `~#$^&*(){}\\|;'"<>?]%\\&%g -s%\[%\\&%g -s%\]%\\&%g -s%\$%$$%g -EOF -DEFS=`sed -f conftest.defs confdefs.h | tr '\012' ' '` -rm -f conftest.defs - - -# Without the "./", some shells look in PATH for config.status. -: ${CONFIG_STATUS=./config.status} - -echo creating $CONFIG_STATUS -rm -f $CONFIG_STATUS -cat > $CONFIG_STATUS <<EOF -#! /bin/sh -# Generated automatically by configure. -# Run this file to recreate the current configuration. -# This directory was configured as follows, -# on host `(hostname || uname -n) 2>/dev/null | sed 1q`: -# -# $0 $ac_configure_args -# -# Compiler output produced by configure, useful for debugging -# configure, is in ./config.log if it exists. - -ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]" -for ac_option -do - case "\$ac_option" in - -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) - echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion" - exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;; - -version | --version | --versio | --versi | --vers | --ver | --ve | --v) - echo "$CONFIG_STATUS generated by autoconf version 2.13" - exit 0 ;; - -help | --help | --hel | --he | --h) - echo "\$ac_cs_usage"; exit 0 ;; - *) echo "\$ac_cs_usage"; exit 1 ;; - esac -done - -ac_given_srcdir=$srcdir -ac_given_INSTALL="$INSTALL" - -trap 'rm -fr `echo "Makefile g2c.h:g2c.hin" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15 -EOF -cat >> $CONFIG_STATUS <<EOF - -# Protect against being on the right side of a sed subst in config.status. -sed 's/%@/@@/; s/@%/@@/; s/%g\$/@g/; /@g\$/s/[\\\\&%]/\\\\&/g; - s/@@/%@/; s/@@/@%/; s/@g\$/%g/' > conftest.subs <<\\CEOF -$ac_vpsub -$extrasub -s%@SHELL@%$SHELL%g -s%@CFLAGS@%$CFLAGS%g -s%@CPPFLAGS@%$CPPFLAGS%g -s%@CXXFLAGS@%$CXXFLAGS%g -s%@FFLAGS@%$FFLAGS%g -s%@DEFS@%$DEFS%g -s%@LDFLAGS@%$LDFLAGS%g -s%@LIBS@%$LIBS%g -s%@exec_prefix@%$exec_prefix%g -s%@prefix@%$prefix%g -s%@program_transform_name@%$program_transform_name%g -s%@bindir@%$bindir%g -s%@sbindir@%$sbindir%g -s%@libexecdir@%$libexecdir%g -s%@datadir@%$datadir%g -s%@sysconfdir@%$sysconfdir%g -s%@sharedstatedir@%$sharedstatedir%g -s%@localstatedir@%$localstatedir%g -s%@libdir@%$libdir%g -s%@includedir@%$includedir%g -s%@oldincludedir@%$oldincludedir%g -s%@infodir@%$infodir%g -s%@mandir@%$mandir%g -s%@CC@%$CC%g -s%@AR@%$AR%g -s%@RANLIB@%$RANLIB%g -s%@INSTALL_PROGRAM@%$INSTALL_PROGRAM%g -s%@INSTALL_SCRIPT@%$INSTALL_SCRIPT%g -s%@INSTALL_DATA@%$INSTALL_DATA%g -s%@SET_MAKE@%$SET_MAKE%g -s%@CPP@%$CPP%g -s%@F2C_INTEGER@%$F2C_INTEGER%g -s%@F2C_LONGINT@%$F2C_LONGINT%g -s%@gcc_version@%$gcc_version%g -s%@gcc_version_trigger@%$gcc_version_trigger%g -s%@host@%$host%g -s%@host_alias@%$host_alias%g -s%@host_cpu@%$host_cpu%g -s%@host_vendor@%$host_vendor%g -s%@host_os@%$host_os%g -s%@target@%$target%g -s%@target_alias@%$target_alias%g -s%@target_cpu@%$target_cpu%g -s%@target_vendor@%$target_vendor%g -s%@target_os@%$target_os%g -s%@build@%$build%g -s%@build_alias@%$build_alias%g -s%@build_cpu@%$build_cpu%g -s%@build_vendor@%$build_vendor%g -s%@build_os@%$build_os%g -s%@subdirs@%$subdirs%g - -CEOF -EOF - -cat >> $CONFIG_STATUS <<\EOF - -# Split the substitutions into bite-sized pieces for seds with -# small command number limits, like on Digital OSF/1 and HP-UX. -ac_max_sed_cmds=90 # Maximum number of lines to put in a sed script. -ac_file=1 # Number of current file. -ac_beg=1 # First line for current file. -ac_end=$ac_max_sed_cmds # Line after last line for current file. -ac_more_lines=: -ac_sed_cmds="" -while $ac_more_lines; do - if test $ac_beg -gt 1; then - sed "1,${ac_beg}d; ${ac_end}q" conftest.subs > conftest.s$ac_file - else - sed "${ac_end}q" conftest.subs > conftest.s$ac_file - fi - if test ! -s conftest.s$ac_file; then - ac_more_lines=false - rm -f conftest.s$ac_file - else - if test -z "$ac_sed_cmds"; then - ac_sed_cmds="sed -f conftest.s$ac_file" - else - ac_sed_cmds="$ac_sed_cmds | sed -f conftest.s$ac_file" - fi - ac_file=`expr $ac_file + 1` - ac_beg=$ac_end - ac_end=`expr $ac_end + $ac_max_sed_cmds` - fi -done -if test -z "$ac_sed_cmds"; then - ac_sed_cmds=cat -fi -EOF - -cat >> $CONFIG_STATUS <<EOF - -CONFIG_FILES=\${CONFIG_FILES-"Makefile g2c.h:g2c.hin"} -EOF -cat >> $CONFIG_STATUS <<\EOF -for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then - # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". - case "$ac_file" in - *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` - ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; - *) ac_file_in="${ac_file}.in" ;; - esac - - # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories. - - # Remove last slash and all that follows it. Not all systems have dirname. - ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` - if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then - # The file is in a subdirectory. - test ! -d "$ac_dir" && mkdir "$ac_dir" - ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`" - # A "../" for each directory in $ac_dir_suffix. - ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'` - else - ac_dir_suffix= ac_dots= - fi - - case "$ac_given_srcdir" in - .) srcdir=. - if test -z "$ac_dots"; then top_srcdir=. - else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;; - /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;; - *) # Relative path. - srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix" - top_srcdir="$ac_dots$ac_given_srcdir" ;; - esac - - case "$ac_given_INSTALL" in - [/$]*) INSTALL="$ac_given_INSTALL" ;; - *) INSTALL="$ac_dots$ac_given_INSTALL" ;; - esac - - echo creating "$ac_file" - rm -f "$ac_file" - configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure." - case "$ac_file" in - *Makefile*) ac_comsub="1i\\ -# $configure_input" ;; - *) ac_comsub= ;; - esac - - ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` - sed -e "$ac_comsub -s%@configure_input@%$configure_input%g -s%@srcdir@%$srcdir%g -s%@top_srcdir@%$top_srcdir%g -s%@INSTALL@%$INSTALL%g -" $ac_file_inputs | (eval "$ac_sed_cmds") > $ac_file -fi; done -rm -f conftest.s* - -EOF -cat >> $CONFIG_STATUS <<EOF -srcdir=${srcdir} -host=${host} -target=${target} -with_target_subdir=${with_target_subdir} -with_multisubdir=${with_multisubdir} -ac_configure_args="--enable-multilib ${ac_configure_args}" -CONFIG_SHELL=${CONFIG_SHELL-/bin/sh} -topsrcdir=${topsrcdir} - -EOF -cat >> $CONFIG_STATUS <<\EOF -test -z "$CONFIG_HEADERS" || echo timestamp > stamp-h -if test -n "$CONFIG_FILES"; then - if test -n "${with_target_subdir}"; then - # FIXME: We shouldn't need to set ac_file - ac_file=Makefile - . ${topsrcdir}/config-ml.in - touch g2c.h # to keep it more recent than Makefile - fi -fi -exit 0 -EOF -chmod +x $CONFIG_STATUS -rm -fr confdefs* $ac_clean_files -test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1 - -if test "$no_recursion" != yes; then - - # Remove --cache-file and --srcdir arguments so they do not pile up. - ac_sub_configure_args= - ac_prev= - for ac_arg in $ac_configure_args; do - if test -n "$ac_prev"; then - ac_prev= - continue - fi - case "$ac_arg" in - -cache-file | --cache-file | --cache-fil | --cache-fi \ - | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) - ac_prev=cache_file ;; - -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ - | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) - ;; - -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) - ac_prev=srcdir ;; - -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) - ;; - *) ac_sub_configure_args="$ac_sub_configure_args $ac_arg" ;; - esac - done - - for ac_config_dir in libU77 libI77 libF77; do - - # Do not complain, so a configure script can configure whichever - # parts of a large source tree are present. - if test ! -d $srcdir/$ac_config_dir; then - continue - fi - - echo configuring in $ac_config_dir - - case "$srcdir" in - .) ;; - *) - if test -d ./$ac_config_dir || mkdir ./$ac_config_dir; then :; - else - { echo "configure: error: can not create `pwd`/$ac_config_dir" 1>&2; exit 1; } - fi - ;; - esac - - ac_popdir=`pwd` - cd $ac_config_dir - - # A "../" for each directory in /$ac_config_dir. - ac_dots=`echo $ac_config_dir|sed -e 's%^\./%%' -e 's%[^/]$%&/%' -e 's%[^/]*/%../%g'` - - case "$srcdir" in - .) # No --srcdir option. We are building in place. - ac_sub_srcdir=$srcdir ;; - /*) # Absolute path. - ac_sub_srcdir=$srcdir/$ac_config_dir ;; - *) # Relative path. - ac_sub_srcdir=$ac_dots$srcdir/$ac_config_dir ;; - esac - - # Check for guested configure; otherwise get Cygnus style configure. - if test -f $ac_sub_srcdir/configure; then - ac_sub_configure=$ac_sub_srcdir/configure - elif test -f $ac_sub_srcdir/configure.in; then - ac_sub_configure=$ac_configure - else - echo "configure: warning: no configuration information is in $ac_config_dir" 1>&2 - ac_sub_configure= - fi - - # The recursion is here. - if test -n "$ac_sub_configure"; then - - # Make the cache file name correct relative to the subdirectory. - case "$cache_file" in - /*) ac_sub_cache_file=$cache_file ;; - *) # Relative path. - ac_sub_cache_file="$ac_dots$cache_file" ;; - esac - case "$ac_given_INSTALL" in - [/$]*) INSTALL="$ac_given_INSTALL" ;; - *) INSTALL="$ac_dots$ac_given_INSTALL" ;; - esac - - echo "running ${CONFIG_SHELL-/bin/sh} $ac_sub_configure $ac_sub_configure_args --cache-file=$ac_sub_cache_file --srcdir=$ac_sub_srcdir" - # The eval makes quoting arguments work. - if eval ${CONFIG_SHELL-/bin/sh} $ac_sub_configure $ac_sub_configure_args --cache-file=$ac_sub_cache_file --srcdir=$ac_sub_srcdir - then : - else - { echo "configure: error: $ac_sub_configure failed for $ac_config_dir" 1>&2; exit 1; } - fi - fi - - cd $ac_popdir - done -fi - - - diff --git a/gnu/egcs/libf2c/configure.in b/gnu/egcs/libf2c/configure.in deleted file mode 100644 index ea1acc2f836..00000000000 --- a/gnu/egcs/libf2c/configure.in +++ /dev/null @@ -1,249 +0,0 @@ -# Process this file with autoconf to produce a configure script. -# Copyright (C) 1995, 1997, 1998, 1999 Free Software Foundation, Inc. -# Contributed by Dave Love (d.love@dl.ac.uk). -# -#This file is part of GNU Fortran. -# -#GNU Fortran is free software; you can redistribute it and/or modify -#it under the terms of the GNU General Public License as published by -#the Free Software Foundation; either version 2, or (at your option) -#any later version. -# -#GNU Fortran is distributed in the hope that it will be useful, -#but WITHOUT ANY WARRANTY; without even the implied warranty of -#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#GNU General Public License for more details. -# -#You should have received a copy of the GNU General Public License -#along with GNU Fortran; see the file COPYING. If not, write to -#the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -#02111-1307, USA. - -AC_PREREQ(2.13) -AC_INIT(libF77/Version.c) - -if test "${srcdir}" = "." ; then - if test "${with_target_subdir}" != "." ; then - topsrcdir=${with_multisrctop}../.. - else - topsrcdir=${with_multisrctop}.. - fi -else - topsrcdir=${srcdir}/.. -fi -dnl This is needed for a multilibbed build in the source tree so -dnl that install-sh and config.sub get found. -AC_CONFIG_AUX_DIR($topsrcdir) - -# We have to handle 3 cases -- native, cross and canadian cross -- and -# the extension returned from this macro needs to be treated as a possible -# scenario and not the only one. -AC_EXEEXT - -# If the language specific compiler does not exist, but the "gcc" directory -# does, we do not build anything. Note, $r is set by the top-level Makefile. -# Note that when we look for the compiler, we search both with and without -# extension to handle cross and canadian cross builds. -compiler_name=f771 -rm -f skip-this-dir -AC_MSG_CHECKING(if compiler $compiler_name has been built) -AC_CACHE_VAL(g77_cv_compiler_exists, -[g77_cv_compiler_exists=yes -if test -n "$r"; then - if test -d "$r"/gcc; then - if test -f "$r"/gcc/$compiler_name \ - || test -f "$r"/gcc/$compiler_name$EXEEXT; then - true - else - g77_cv_compiler_exists=no - echo "rm -f config.cache config.log multilib.out" > skip-this-dir - fi - fi -fi -]) -AC_MSG_RESULT($g77_cv_compiler_exists) -if test x$g77_cv_compiler_exists = xno -then - rm -f Makefile conftest* confdefs* core - exit 0 -fi - -dnl Checks for programs. -# For g77 we'll set CC to point at the built gcc, but this will get it into -# the makefiles -AC_PROG_CC - -dnl These should be inherited in the recursive make, but ensure they are -dnl defined: -test "$AR" || AR=ar -AC_SUBST(AR) -if test "$RANLIB"; then : - AC_SUBST(RANLIB) -else - AC_PROG_RANLIB -fi -AC_PROG_INSTALL -AC_PROG_MAKE_SET - -dnl Checks for header files. -# Sanity check for the cross-compilation case: -AC_CHECK_HEADER(stdio.h,:, - [AC_MSG_ERROR([Can't find stdio.h. -You must have a usable C system for the target already installed, at least -including headers and, preferably, the library, before you can configure -the G77 runtime system. If necessary, install gcc now with \`LANGUAGES=c', -then the target library, then build with \`LANGUAGES=f77'.])]) - -# We have to firkle with the info in hconfig.h to figure out suitable types -# (via com.h). proj.h and com.h are in gcc/f/, config.h which they need -# is in gcc/ and the config files are in gcc/config/. -AC_MSG_CHECKING(f2c integer type) -# Set this back later below! -late_ac_cpp=$ac_cpp -late_cflags=$CFLAGS -extra_includes="-I$topsrcdir/gcc/f -I$topsrcdir/gcc -I$topsrcdir/include -I$topsrcdir/gcc/config -I$r/gcc" -ac_cpp="$late_ac_cpp -DIN_GCC -DHAVE_CONFIG_H $extra_includes" - -# The AC_EGREP_CPPs below have been known to fail when the header -# path is wrong after things have been moved about; the cpp error status -# counts for nothing. First check that there aren't any errors from -# the headers. -CFLAGS="$CFLAGS -DHAVE_CONFIG_H -DIN_GCC $extra_includes" -AC_TRY_COMPILE([#include "proj.h" -#define FFECOM_DETERMINE_TYPES 1 -#include "com.h"],,, -AC_MSG_ERROR([Can't run check for integer sizes -- see config.log])) -CFLAGS=$late_cflags - -AC_CACHE_VAL(g77_cv_sys_f2cinteger, -echo "configure:__oline__: using $ac_cpp" >&AC_FD_CC -AC_EGREP_CPP(F2C_INTEGER=long int, -[#include "proj.h" -#define FFECOM_DETERMINE_TYPES 1 -#include "com.h" -#if FFECOM_f2cINTEGER == FFECOM_f2ccodeLONG -F2C_INTEGER=long int -#elif FFECOM_f2cINTEGER == FFECOM_f2ccodeINT -F2C_INTEGER=int -#else -# error "Cannot find a suitable type for F2C_INTEGER" -#endif -], - g77_cv_sys_f2cinteger="long int",) -if test "$g77_cv_sys_f2cinteger" = ""; then -echo "configure:__oline__: using $ac_cpp" >&AC_FD_CC - AC_EGREP_CPP(F2C_INTEGER=int, -[#include "proj.h" -#define FFECOM_DETERMINE_TYPES 1 -#include "com.h" -#if FFECOM_f2cINTEGER == FFECOM_f2ccodeLONG -F2C_INTEGER=long int -#elif FFECOM_f2cINTEGER == FFECOM_f2ccodeINT -F2C_INTEGER=int -#else -# error "Cannot find a suitable type for F2C_INTEGER" -#endif -], - g77_cv_sys_f2cinteger=int,) -fi -if test "$g77_cv_sys_f2cinteger" = ""; then - AC_MSG_RESULT("") - AC_MSG_ERROR([Can't determine type for f2c integer; config.log may help.]) -fi -) -AC_MSG_RESULT($g77_cv_sys_f2cinteger) -F2C_INTEGER=$g77_cv_sys_f2cinteger -AC_SUBST(F2C_INTEGER) - -AC_MSG_CHECKING(f2c long int type) -AC_CACHE_VAL(g77_cv_sys_f2clongint, -echo "configure:__oline__: using $ac_cpp" >&AC_FD_CC -AC_EGREP_CPP(F2C_LONGINT=long int, -[#include "proj.h" -#define FFECOM_DETERMINE_TYPES 1 -#include "com.h" -#if FFECOM_f2cLONGINT == FFECOM_f2ccodeLONG -F2C_LONGINT=long int -#elif FFECOM_f2cLONGINT == FFECOM_f2ccodeLONGLONG -F2C_LONGINT=long long int -#else -# error "Cannot find a suitable type for F2C_LONGINT" -#endif -], - g77_cv_sys_f2clongint="long int",) - -if test "$g77_cv_sys_f2clongint" = ""; then -echo "configure:__oline__: using $ac_cpp" >&AC_FD_CC - AC_EGREP_CPP(F2C_LONGINT=long long int, -[#include "proj.h" -#define FFECOM_DETERMINE_TYPES 1 -#include "com.h" -#if FFECOM_f2cLONGINT == FFECOM_f2ccodeLONG -F2C_LONGINT=long int -#elif FFECOM_f2cLONGINT == FFECOM_f2ccodeLONGLONG -F2C_LONGINT=long long int -#else -# error "Cannot find a suitable type for F2C_LONGINT" -#endif -], - g77_cv_sys_f2clongint="long long int",) -fi -if test "$g77_cv_sys_f2clongint" = ""; then - AC_MSG_RESULT("") - AC_MSG_ERROR([Can't determine type for f2c long int; config.log may help.]) -fi -) -AC_MSG_RESULT($g77_cv_sys_f2clongint) -F2C_LONGINT=$g77_cv_sys_f2clongint -AC_SUBST(F2C_LONGINT) -ac_cpp=$late_ac_cpp - -# avoid confusion in case the `makefile's from the f2c distribution have -# got put here -test -f libF77/makefile && mv libF77/makefile libF77/makefile.ori -test -f libI77/makefile && mv libI77/makefile libI77/makefile.ori -test -f libU77/makefile && mv libU77/makefile libU77/makefile.ori - -# Get the version trigger filename from the toplevel -if [[ "${with_gcc_version_trigger+set}" = set ]]; then - gcc_version_trigger=$with_gcc_version_trigger - gcc_version=`sed -e 's/.*\"\([[^ \"]]*\)[[ \"]].*/\1/' < ${gcc_version_trigger}` -else - gcc_version_trigger= - gcc_version=UNKNOWN -fi - -AC_SUBST(gcc_version) -AC_SUBST(gcc_version_trigger) -AC_CANONICAL_SYSTEM -AC_SUBST(target_alias) -AC_CONFIG_SUBDIRS(libU77 libI77 libF77) -# Do Makefile first since g2c.h depends on it and shouldn't get an -# earlier timestamp. Of course, it does when the multilib gunk below -# edits Makefile, sigh; see additional touch below. -AC_OUTPUT(Makefile g2c.h:g2c.hin, - [test -z "$CONFIG_HEADERS" || echo timestamp > stamp-h -if test -n "$CONFIG_FILES"; then - if test -n "${with_target_subdir}"; then - # FIXME: We shouldn't need to set ac_file - ac_file=Makefile - . ${topsrcdir}/config-ml.in - touch g2c.h # to keep it more recent than Makefile - fi -fi], -srcdir=${srcdir} -host=${host} -target=${target} -with_target_subdir=${with_target_subdir} -with_multisubdir=${with_multisubdir} -ac_configure_args="--enable-multilib ${ac_configure_args}" -CONFIG_SHELL=${CONFIG_SHELL-/bin/sh} -topsrcdir=${topsrcdir} -) - - -dnl Local Variables: -dnl comment-start: "dnl " -dnl comment-end: "" -dnl comment-start-skip: "\\bdnl\\b\\s *" -dnl End: diff --git a/gnu/egcs/libf2c/disclaimer.netlib b/gnu/egcs/libf2c/disclaimer.netlib deleted file mode 100644 index a11108f83db..00000000000 --- a/gnu/egcs/libf2c/disclaimer.netlib +++ /dev/null @@ -1,15 +0,0 @@ -f2c is a Fortran to C converter under development since 1990 by - David M. Gay (then AT&T Bell Labs, now Bell Labs, Lucent Technologies) - Stu Feldman (then at Bellcore, now at IBM) - Mark Maimone (Carnegie-Mellon University) - Norm Schryer (then AT&T Bell Labs, now AT&T Labs) -Please send bug reports to dmg@research.bell-labs.com . - -AT&T, Bellcore and Lucent disclaim all warranties with regard to this -software, including all implied warranties of merchantability -and fitness. In no event shall AT&T, Bellcore or Lucent be liable for -any special, indirect or consequential damages or any damages -whatsoever resulting from loss of use, data or profits, whether -in an action of contract, negligence or other tortious action, -arising out of or in connection with the use or performance of -this software. diff --git a/gnu/egcs/libf2c/f2c.h b/gnu/egcs/libf2c/f2c.h deleted file mode 100644 index 71e53616497..00000000000 --- a/gnu/egcs/libf2c/f2c.h +++ /dev/null @@ -1,64 +0,0 @@ -/* f2c.h file for GNU Fortran run-time library - Copyright (C) 1998 Free Software Foundation, Inc. - Contributed by James Craig Burley. - -This file is part of GNU Fortran. - -GNU Fortran is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2, or (at your option) -any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with GNU Fortran; see the file COPYING. If not, write to -the Free Software Foundation, 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -/* This file currently is just a stub through which g77's copy - of netlib's libf2c, which g77 builds and installs as libg2c.a - (to avoid conflict), #include's g77's version of f2c.h, named - g2c.h. That file is, in turn, produced via g77's library - configuration process from g2c.h.in. - - By going through this extra "hoop", it is easy to provide for - libg2c-specific configuration and typedefs that aren't appropriate - in g2c.h itself (since that is intended to be installed so it can - be shared with f2c users), without changing the libf2c (libg2c) - routines themselves. (They continue to #include "f2c.h", just - like they do in netlib's version.) */ - -#include "g2c.h" - -/* For GNU Fortran (g77), we always enable the following behaviors for - libf2c, to make things easy on the programmer. The alternate - behaviors have their uses, and g77 might provide them as compiler, - rather than library, options, so only a single copy of a shared libf2c - need be built for a system. */ - -/* This makes unformatted I/O more consistent in relation to other - systems. It is not required by the F77 standard. */ - -#define Pad_UDread - -/* This makes ERR= and IOSTAT= returns work properly in disk-full - situations, making things work more as expected. It slows things - down, so g77 will probably someday choose the original implementation - on a case-by-case basis when it can be shown to not be necessary - (e.g. no ERR= or IOSTAT=) or when it is given the appropriate - compile-time option or, perhaps, source-code directive. - - (No longer defined, since it really slows down NFS access too much.) */ - -/* #define ALWAYS_FLUSH */ - -/* Most Fortran implementations do this, so to make it easier - to compare the output of g77-compiled programs to those compiled - by most other compilers, tell libf2c to put leading zeros in - appropriate places on output. */ - -#define WANT_LEAD_0 diff --git a/gnu/egcs/libf2c/f2cext.c b/gnu/egcs/libf2c/f2cext.c deleted file mode 100644 index 56f9490c6f5..00000000000 --- a/gnu/egcs/libf2c/f2cext.c +++ /dev/null @@ -1,581 +0,0 @@ -/* Copyright (C) 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran run-time library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#include <math.h> /* for j0 et al */ -#include <f2c.h> -typedef void *sig_proc; /* For now, this will have to do. */ - -#ifdef Labort -int abort_ (void) { - extern int G77_abort_0 (void); - return G77_abort_0 (); -} -#endif - -#ifdef Lderf -double derf_ (doublereal *x) { - extern double G77_derf_0 (doublereal *x); - return G77_derf_0 (x); -} -#endif - -#ifdef Lderfc -double derfc_ (doublereal *x) { - extern double G77_derfc_0 (doublereal *x); - return G77_derfc_0 (x); -} -#endif - -#ifdef Lef1asc -int ef1asc_ (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb) { - extern int G77_ef1asc_0 (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb); - return G77_ef1asc_0 (a, la, b, lb); -} -#endif - -#ifdef Lef1cmc -integer ef1cmc_ (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb) { - extern integer G77_ef1cmc_0 (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb); - return G77_ef1cmc_0 (a, la, b, lb); -} -#endif - -#ifdef Lerf -double erf_ (real *x) { - extern double G77_erf_0 (real *x); - return G77_erf_0 (x); -} -#endif - -#ifdef Lerfc -double erfc_ (real *x) { - extern double G77_erfc_0 (real *x); - return G77_erfc_0 (x); -} -#endif - -#ifdef Lexit -void exit_ (integer *rc) { - extern void G77_exit_0 (integer *rc); - G77_exit_0 (rc); -} -#endif - -#ifdef Lgetarg -void getarg_ (ftnint *n, char *s, ftnlen ls) { - extern void G77_getarg_0 (ftnint *n, char *s, ftnlen ls); - G77_getarg_0 (n, s, ls); -} -#endif - -#ifdef Lgetenv -void getenv_ (char *fname, char *value, ftnlen flen, ftnlen vlen) { - extern void G77_getenv_0 (char *fname, char *value, ftnlen flen, ftnlen vlen); - G77_getenv_0 (fname, value, flen, vlen); -} -#endif - -#ifdef Liargc -ftnint iargc_ (void) { - extern ftnint G77_iargc_0 (void); - return G77_iargc_0 (); -} -#endif - -#ifdef Lsignal -void *signal_ (integer *sigp, sig_proc proc) { - extern void *G77_signal_0 (integer *sigp, sig_proc proc); - return G77_signal_0 (sigp, proc); -} -#endif - -#ifdef Lsystem -integer system_ (char *s, ftnlen n) { - extern integer G77_system_0 (char *s, ftnlen n); - return G77_system_0 (s, n); -} -#endif - -#ifdef Lflush -int flush_ (void) { - extern int G77_flush_0 (void); - return G77_flush_0 (); -} -#endif - -#ifdef Lftell -integer ftell_ (integer *Unit) { - extern integer G77_ftell_0 (integer *Unit); - return G77_ftell_0 (Unit); -} -#endif - -#ifdef Lfseek -integer fseek_ (integer *Unit, integer *offset, integer *xwhence) { - extern integer G77_fseek_0 (integer *Unit, integer *offset, integer *xwhence); - return G77_fseek_0 (Unit, offset, xwhence); -} -#endif - -#ifdef Laccess -integer access_ (const char *name, const char *mode, ftnlen Lname, ftnlen Lmode) { - extern integer G77_access_0 (const char *name, const char *mode, ftnlen Lname, ftnlen Lmode); - return G77_access_0 (name, mode, Lname, Lmode); -} -#endif - -#ifdef Lalarm -integer alarm_ (integer *seconds, sig_proc proc, integer *status) { - extern integer G77_alarm_0 (integer *seconds, sig_proc proc); - return G77_alarm_0 (seconds, proc); -} -#endif - -#ifdef Lbesj0 -double besj0_ (const real *x) { - return j0 (*x); -} -#endif - -#ifdef Lbesj1 -double besj1_ (const real *x) { - return j1 (*x); -} -#endif - -#ifdef Lbesjn -double besjn_ (const integer *n, real *x) { - return jn (*n, *x); -} -#endif - -#ifdef Lbesy0 -double besy0_ (const real *x) { - return y0 (*x); -} -#endif - -#ifdef Lbesy1 -double besy1_ (const real *x) { - return y1 (*x); -} -#endif - -#ifdef Lbesyn -double besyn_ (const integer *n, real *x) { - return yn (*n, *x); -} -#endif - -#ifdef Lchdir -integer chdir_ (const char *name, const ftnlen Lname) { - extern integer G77_chdir_0 (const char *name, const ftnlen Lname); - return G77_chdir_0 (name, Lname); -} -#endif - -#ifdef Lchmod -integer chmod_ (const char *name, const char *mode, const ftnlen Lname, const ftnlen Lmode) { - extern integer G77_chmod_0 (const char *name, const char *mode, const ftnlen Lname, const ftnlen Lmode); - return G77_chmod_0 (name, mode, Lname, Lmode); -} -#endif - -#ifdef Lctime -void ctime_ (char *chtime, const ftnlen Lchtime, longint *xstime) { - extern void G77_ctime_0 (char *chtime, const ftnlen Lchtime, longint *xstime); - G77_ctime_0 (chtime, Lchtime, xstime); -} -#endif - -#ifdef Ldate_y2kbuggy -int date_ (char *buf, ftnlen buf_len) { - /* Fail to link, so user sees attempt to invoke non-Y2K-compliant - routine. */ - extern int G77_date_y2kbuggy_0 (char *buf, ftnlen buf_len); - return G77_date_y2kbuggy_0 (buf, buf_len); -} -#endif - -#ifdef Ldate_y2kbug -int date_y2kbug__ (char *buf, ftnlen buf_len) { - /* If user wants to invoke the non-Y2K-compliant routine via - an `EXTERNAL' interface, avoiding the warning via g77's - `INTRINSIC' interface, force coding of "y2kbug" string in - user's program. */ - extern int G77_date_y2kbug_0 (char *buf, ftnlen buf_len); - return G77_date_y2kbug_0 (buf, buf_len); -} -#endif - -#ifdef Ldbesj0 -double dbesj0_ (const double *x) { - return j0 (*x); -} -#endif - -#ifdef Ldbesj1 -double dbesj1_ (const double *x) { - return j1 (*x); -} -#endif - -#ifdef Ldbesjn -double dbesjn_ (const integer *n, double *x) { - return jn (*n, *x); -} -#endif - -#ifdef Ldbesy0 -double dbesy0_ (const double *x) { - return y0 (*x); -} -#endif - -#ifdef Ldbesy1 -double dbesy1_ (const double *x) { - return y1 (*x); -} -#endif - -#ifdef Ldbesyn -double dbesyn_ (const integer *n, double *x) { - return yn (*n, *x); -} -#endif - -#ifdef Ldtime -double dtime_ (real tarray[2]) { - extern double G77_dtime_0 (real tarray[2]); - return G77_dtime_0 (tarray); -} -#endif - -#ifdef Letime -double etime_ (real tarray[2]) { - extern double G77_etime_0 (real tarray[2]); - return G77_etime_0 (tarray); -} -#endif - -#ifdef Lfdate -void fdate_ (char *ret_val, ftnlen ret_val_len) { - extern void G77_fdate_0 (char *ret_val, ftnlen ret_val_len); - G77_fdate_0 (ret_val, ret_val_len); -} -#endif - -#ifdef Lfgetc -integer fgetc_ (const integer *lunit, char *c, ftnlen Lc) { - extern integer G77_fgetc_0 (const integer *lunit, char *c, ftnlen Lc); - return G77_fgetc_0 (lunit, c, Lc); -} -#endif - -#ifdef Lfget -integer fget_ (char *c, const ftnlen Lc) { - extern integer G77_fget_0 (char *c, const ftnlen Lc); - return G77_fget_0 (c, Lc); -} -#endif - -#ifdef Lflush1 -int flush1_ (const integer *lunit) { - extern int G77_flush1_0 (const integer *lunit); - return G77_flush1_0 (lunit); -} -#endif - -#ifdef Lfnum -integer fnum_ (integer *lunit) { - extern integer G77_fnum_0 (integer *lunit); - return G77_fnum_0 (lunit); -} -#endif - -#ifdef Lfputc -integer fputc_ (const integer *lunit, const char *c, const ftnlen Lc) { - extern integer G77_fputc_0 (const integer *lunit, const char *c, const ftnlen Lc); - return G77_fputc_0 (lunit, c, Lc); -} -#endif - -#ifdef Lfput -integer fput_ (const char *c, const ftnlen Lc) { - extern integer G77_fput_0 (const char *c, const ftnlen Lc); - return G77_fput_0 (c, Lc); -} -#endif - -#ifdef Lfstat -integer fstat_ (const integer *lunit, integer statb[13]) { - extern integer G77_fstat_0 (const integer *lunit, integer statb[13]); - return G77_fstat_0 (lunit, statb); -} -#endif - -#ifdef Lgerror -int gerror_ (char *str, ftnlen Lstr) { - extern int G77_gerror_0 (char *str, ftnlen Lstr); - return G77_gerror_0 (str, Lstr); -} -#endif - -#ifdef Lgetcwd -integer getcwd_ (char *str, const ftnlen Lstr) { - extern integer G77_getcwd_0 (char *str, const ftnlen Lstr); - return G77_getcwd_0 (str, Lstr); -} -#endif - -#ifdef Lgetgid -integer getgid_ (void) { - extern integer G77_getgid_0 (void); - return G77_getgid_0 (); -} -#endif - -#ifdef Lgetlog -int getlog_ (char *str, const ftnlen Lstr) { - extern int G77_getlog_0 (char *str, const ftnlen Lstr); - return G77_getlog_0 (str, Lstr); -} -#endif - -#ifdef Lgetpid -integer getpid_ (void) { - extern integer G77_getpid_0 (void); - return G77_getpid_0 (); -} -#endif - -#ifdef Lgetuid -integer getuid_ (void) { - extern integer G77_getuid_0 (void); - return G77_getuid_0 (); -} -#endif - -#ifdef Lgmtime -int gmtime_ (const integer *stime, integer tarray[9]) { - extern int G77_gmtime_0 (const integer *stime, integer tarray[9]); - return G77_gmtime_0 (stime, tarray); -} -#endif - -#ifdef Lhostnm -integer hostnm_ (char *name, ftnlen Lname) { - extern integer G77_hostnm_0 (char *name, ftnlen Lname); - return G77_hostnm_0 (name, Lname); -} -#endif - -#ifdef Lidate -int idate_ (int iarray[3]) { - extern int G77_idate_0 (int iarray[3]); - return G77_idate_0 (iarray); -} -#endif - -#ifdef Lierrno -integer ierrno_ (void) { - extern integer G77_ierrno_0 (void); - return G77_ierrno_0 (); -} -#endif - -#ifdef Lirand -integer irand_ (integer *flag) { - extern integer G77_irand_0 (integer *flag); - return G77_irand_0 (flag); -} -#endif - -#ifdef Lisatty -logical isatty_ (integer *lunit) { - extern logical G77_isatty_0 (integer *lunit); - return G77_isatty_0 (lunit); -} -#endif - -#ifdef Litime -int itime_ (integer tarray[3]) { - extern int G77_itime_0 (integer tarray[3]); - return G77_itime_0 (tarray); -} -#endif - -#ifdef Lkill -integer kill_ (const integer *pid, const integer *signum) { - extern integer G77_kill_0 (const integer *pid, const integer *signum); - return G77_kill_0 (pid, signum); -} -#endif - -#ifdef Llink -integer link_ (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2) { - extern integer G77_link_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2); - return G77_link_0 (path1, path2, Lpath1, Lpath2); -} -#endif - -#ifdef Llnblnk -integer lnblnk_ (char *str, ftnlen str_len) { - extern integer G77_lnblnk_0 (char *str, ftnlen str_len); - return G77_lnblnk_0 (str, str_len); -} -#endif - -#ifdef Llstat -integer lstat_ (const char *name, integer statb[13], const ftnlen Lname) { - extern integer G77_lstat_0 (const char *name, integer statb[13], const ftnlen Lname); - return G77_lstat_0 (name, statb, Lname); -} -#endif - -#ifdef Lltime -int ltime_ (const integer *stime, integer tarray[9]) { - extern int G77_ltime_0 (const integer *stime, integer tarray[9]); - return G77_ltime_0 (stime, tarray); -} -#endif - -#ifdef Lmclock -longint mclock_ (void) { - extern longint G77_mclock_0 (void); - return G77_mclock_0 (); -} -#endif - -#ifdef Lperror -int perror_ (const char *str, const ftnlen Lstr) { - extern int G77_perror_0 (const char *str, const ftnlen Lstr); - return G77_perror_0 (str, Lstr); -} -#endif - -#ifdef Lrand -double rand_ (integer *flag) { - extern double G77_rand_0 (integer *flag); - return G77_rand_0 (flag); -} -#endif - -#ifdef Lrename -integer rename_ (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2) { - extern integer G77_rename_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2); - return G77_rename_0 (path1, path2, Lpath1, Lpath2); -} -#endif - -#ifdef Lsecnds -double secnds_ (real *r) { - extern double G77_secnds_0 (real *r); - return G77_secnds_0 (r); -} -#endif - -#ifdef Lsecond -double second_ () { - extern double G77_second_0 (); - return G77_second_0 (); -} -#endif - -#ifdef Lsleep -int sleep_ (const integer *seconds) { - extern int G77_sleep_0 (const integer *seconds); - return G77_sleep_0 (seconds); -} -#endif - -#ifdef Lsrand -int srand_ (const integer *seed) { - extern int G77_srand_0 (const integer *seed); - return G77_srand_0 (seed); -} -#endif - -#ifdef Lstat -integer stat_ (const char *name, integer statb[13], const ftnlen Lname) { - extern integer G77_stat_0 (const char *name, integer statb[13], const ftnlen Lname); - return G77_stat_0 (name, statb, Lname); -} -#endif - -#ifdef Lsymlnk -integer symlnk_ (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2) { - extern integer G77_symlnk_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2); - return G77_symlnk_0 (path1, path2, Lpath1, Lpath2); -} -#endif - -#ifdef Ltime -longint time_ (void) { - extern longint G77_time_0 (void); - return G77_time_0 (); -} -#endif - -#ifdef Lttynam -void ttynam_ (char *ret_val, ftnlen ret_val_len, integer *lunit) { - extern void G77_ttynam_0 (char *ret_val, ftnlen ret_val_len, integer *lunit); - G77_ttynam_0 (ret_val, ret_val_len, lunit); -} -#endif - -#ifdef Lumask -integer umask_ (integer *mask) { - extern integer G77_umask_0 (integer *mask); - return G77_umask_0 (mask); -} -#endif - -#ifdef Lunlink -integer unlink_ (const char *str, const ftnlen Lstr) { - extern integer G77_unlink_0 (const char *str, const ftnlen Lstr); - return G77_unlink_0 (str, Lstr); -} -#endif - -#ifdef Lvxtidt_y2kbuggy -int vxtidate_ (integer *m, integer *d, integer *y) { - /* Fail to link, so user sees attempt to invoke non-Y2K-compliant - routine. */ - extern int G77_vxtidate_y2kbuggy_0 (integer *m, integer *d, integer *y); - return G77_vxtidate_y2kbuggy_0 (m, d, y); -} -#endif - -#ifdef Lvxtidt_y2kbug -int vxtidate_y2kbug__ (integer *m, integer *d, integer *y) { - /* If user wants to invoke the non-Y2K-compliant routine via - an `EXTERNAL' interface, avoiding the warning via g77's - `INTRINSIC' interface, force coding of "y2kbug" string in - user's program. */ - extern int G77_vxtidate_y2kbug_0 (integer *m, integer *d, integer *y); - return G77_vxtidate_y2kbug_0 (m, d, y); -} -#endif - -#ifdef Lvxttim -void vxttime_ (char chtime[8], const ftnlen Lchtime) { - extern void G77_vxttime_0 (char chtime[8], const ftnlen Lchtime); - G77_vxttime_0 (chtime, Lchtime); -} -#endif diff --git a/gnu/egcs/libf2c/g2c.hin b/gnu/egcs/libf2c/g2c.hin deleted file mode 100644 index d8fed9c2578..00000000000 --- a/gnu/egcs/libf2c/g2c.hin +++ /dev/null @@ -1,236 +0,0 @@ -/* g2c.h -- g77 version of f2c (Standard Fortran to C header file) */ - -/* This file is generated by the g77 libg2c configuration process from a - file named g2c.hin. This process sets up the appropriate types, - defines the appropriate macros, and so on. The resulting g2c.h file - is used to build g77's copy of libf2c, named libg2c, and also can - be used when compiling C code produced by f2c to link the resulting - object file(s) with those produced by the same version of g77 that - produced this file, allowing inter-operability of f2c-compiled and - g77-compiled code. */ - -/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." - - - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ - -#ifndef F2C_INCLUDE -#define F2C_INCLUDE - -/* F2C_INTEGER will normally be `int' but would be `long' on 16-bit systems */ -/* we assume short, float are OK */ -typedef @F2C_INTEGER@ /* long int */ integer; -typedef unsigned @F2C_INTEGER@ /* long */ uinteger; -typedef char *address; -typedef short int shortint; -typedef float real; -typedef double doublereal; -typedef struct { real r, i; } complex; -typedef struct { doublereal r, i; } doublecomplex; -typedef @F2C_INTEGER@ /* long int */ logical; -typedef short int shortlogical; -typedef char logical1; -typedef char integer1; -typedef @F2C_LONGINT@ /* long long */ longint; /* system-dependent */ -typedef unsigned @F2C_LONGINT@ /* long long */ ulongint; /* system-dependent */ -#define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) -#define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) - -#define TRUE_ (1) -#define FALSE_ (0) - -/* Extern is for use with -E */ -#ifndef Extern -#define Extern extern -#endif - -/* I/O stuff */ - -#ifdef f2c_i2 -#error "f2c_i2 will not work with g77!!!!" -/* for -i2 */ -typedef short flag; -typedef short ftnlen; -typedef short ftnint; -#else -typedef @F2C_INTEGER@ /* long int */ flag; -typedef @F2C_INTEGER@ /* long int */ ftnlen; -typedef @F2C_INTEGER@ /* long int */ ftnint; -#endif - -/*external read, write*/ -typedef struct -{ flag cierr; - ftnint ciunit; - flag ciend; - char *cifmt; - ftnint cirec; -} cilist; - -/*internal read, write*/ -typedef struct -{ flag icierr; - char *iciunit; - flag iciend; - char *icifmt; - ftnint icirlen; - ftnint icirnum; -} icilist; - -/*open*/ -typedef struct -{ flag oerr; - ftnint ounit; - char *ofnm; - ftnlen ofnmlen; - char *osta; - char *oacc; - char *ofm; - ftnint orl; - char *oblnk; -} olist; - -/*close*/ -typedef struct -{ flag cerr; - ftnint cunit; - char *csta; -} cllist; - -/*rewind, backspace, endfile*/ -typedef struct -{ flag aerr; - ftnint aunit; -} alist; - -/* inquire */ -typedef struct -{ flag inerr; - ftnint inunit; - char *infile; - ftnlen infilen; - ftnint *inex; /*parameters in standard's order*/ - ftnint *inopen; - ftnint *innum; - ftnint *innamed; - char *inname; - ftnlen innamlen; - char *inacc; - ftnlen inacclen; - char *inseq; - ftnlen inseqlen; - char *indir; - ftnlen indirlen; - char *infmt; - ftnlen infmtlen; - char *inform; - ftnint informlen; - char *inunf; - ftnlen inunflen; - ftnint *inrecl; - ftnint *innrec; - char *inblank; - ftnlen inblanklen; -} inlist; - -#define VOID void - -union Multitype { /* for multiple entry points */ - integer1 g; - shortint h; - integer i; - /* longint j; */ - real r; - doublereal d; - complex c; - doublecomplex z; - }; - -typedef union Multitype Multitype; - -/*typedef long int Long;*/ /* No longer used; formerly in Namelist */ - -struct Vardesc { /* for Namelist */ - char *name; - char *addr; - ftnlen *dims; - int type; - }; -typedef struct Vardesc Vardesc; - -struct Namelist { - char *name; - Vardesc **vars; - int nvars; - }; -typedef struct Namelist Namelist; - -#define abs(x) ((x) >= 0 ? (x) : -(x)) -#define dabs(x) (doublereal)abs(x) -#define min(a,b) ((a) <= (b) ? (a) : (b)) -#define max(a,b) ((a) >= (b) ? (a) : (b)) -#define dmin(a,b) (doublereal)min(a,b) -#define dmax(a,b) (doublereal)max(a,b) -#define bit_test(a,b) ((a) >> (b) & 1) -#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) -#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) - -/* procedure parameter types for -A and -C++ */ - -#define F2C_proc_par_types 1 -#ifdef __cplusplus -typedef int /* Unknown procedure type */ (*U_fp)(...); -typedef shortint (*J_fp)(...); -typedef integer (*I_fp)(...); -typedef real (*R_fp)(...); -typedef doublereal (*D_fp)(...), (*E_fp)(...); -typedef /* Complex */ VOID (*C_fp)(...); -typedef /* Double Complex */ VOID (*Z_fp)(...); -typedef logical (*L_fp)(...); -typedef shortlogical (*K_fp)(...); -typedef /* Character */ VOID (*H_fp)(...); -typedef /* Subroutine */ int (*S_fp)(...); -#else -typedef int /* Unknown procedure type */ (*U_fp)(); -typedef shortint (*J_fp)(); -typedef integer (*I_fp)(); -typedef real (*R_fp)(); -typedef doublereal (*D_fp)(), (*E_fp)(); -typedef /* Complex */ VOID (*C_fp)(); -typedef /* Double Complex */ VOID (*Z_fp)(); -typedef logical (*L_fp)(); -typedef shortlogical (*K_fp)(); -typedef /* Character */ VOID (*H_fp)(); -typedef /* Subroutine */ int (*S_fp)(); -#endif -/* E_fp is for real functions when -R is not specified */ -typedef VOID C_f; /* complex function */ -typedef VOID H_f; /* character function */ -typedef VOID Z_f; /* double complex function */ -typedef doublereal E_f; /* real function with -R not specified */ - -/* undef any lower-case symbols that your C compiler predefines, e.g.: */ - -#ifndef Skip_f2c_Undefs -/* (No such symbols should be defined in a strict ANSI C compiler. - We can avoid trouble with f2c-translated code by using - gcc -ansi [-traditional].) */ -#undef cray -#undef gcos -#undef mc68010 -#undef mc68020 -#undef mips -#undef pdp11 -#undef sgi -#undef sparc -#undef sun -#undef sun2 -#undef sun3 -#undef sun4 -#undef u370 -#undef u3b -#undef u3b2 -#undef u3b5 -#undef unix -#undef vax -#endif -#endif diff --git a/gnu/egcs/libf2c/libF77/F77_aloc.c b/gnu/egcs/libf2c/libF77/F77_aloc.c deleted file mode 100644 index e329a1bfb34..00000000000 --- a/gnu/egcs/libf2c/libF77/F77_aloc.c +++ /dev/null @@ -1,38 +0,0 @@ -#include "f2c.h" -#undef abs -#undef min -#undef max -#include <stdio.h> - -static integer memfailure = 3; - -#ifdef KR_headers -extern char *malloc(); -extern void G77_exit_0 (); - - char * -F77_aloc(Len, whence) integer Len; char *whence; -#else -#include <stdlib.h> -#ifdef __cplusplus -extern "C" { -#endif -extern void G77_exit_0 (integer*); -#ifdef __cplusplus - } -#endif - - char * -F77_aloc(integer Len, char *whence) -#endif -{ - char *rv; - unsigned int uLen = (unsigned int) Len; /* for K&R C */ - - if (!(rv = (char*)malloc(uLen))) { - fprintf(stderr, "malloc(%u) failure in %s\n", - uLen, whence); - G77_exit_0 (&memfailure); - } - return rv; - } diff --git a/gnu/egcs/libf2c/libF77/Makefile.bsd-wrapper b/gnu/egcs/libf2c/libF77/Makefile.bsd-wrapper deleted file mode 100644 index daae8d76b62..00000000000 --- a/gnu/egcs/libf2c/libF77/Makefile.bsd-wrapper +++ /dev/null @@ -1,8 +0,0 @@ -# $OpenBSD: Makefile.bsd-wrapper,v 1.1 2002/05/30 20:46:05 espie Exp $ - -# This needs to be separate from libg2c to allow for mixed -# Fortran/other language programs. -LIB=frtbegin -SRCS=main.c - -.include <bsd.lib.mk> diff --git a/gnu/egcs/libf2c/libF77/Makefile.in b/gnu/egcs/libf2c/libF77/Makefile.in deleted file mode 100644 index 74c69a0915a..00000000000 --- a/gnu/egcs/libf2c/libF77/Makefile.in +++ /dev/null @@ -1,247 +0,0 @@ -# Makefile for GNU F77 compiler runtime. -# Copyright 1990 - 1994 by AT&T Bell Laboratories and Bellcore (see the -# file `Notice'). -# Portions of this file Copyright (C) 1995-1998 Free Software Foundation, Inc. -# Contributed by Dave Love (d.love@dl.ac.uk). -# -#This file is part of GNU Fortran. -# -#GNU Fortran is free software; you can redistribute it and/or modify -#it under the terms of the GNU General Public License as published by -#the Free Software Foundation; either version 2, or (at your option) -#any later version. -# -#GNU Fortran is distributed in the hope that it will be useful, -#but WITHOUT ANY WARRANTY; without even the implied warranty of -#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#GNU General Public License for more details. -# -#You should have received a copy of the GNU General Public License -#along with GNU Fortran; see the file COPYING. If not, write to -#the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -#02111-1307, USA. - -#### Start of system configuration section. #### - -# $(srcdir) must be set to the g77 runtime libF77 source directory. -srcdir = @srcdir@ -VPATH = @srcdir@ - -# configure sets this to all the -D options appropriate for the -# configuration. -DEFS = @DEFS@ - -LIBG2C = ../libg2c.a - -F2C_H_DIR = @srcdir@/.. -G2C_H_DIR = .. -CC = @CC@ -CFLAGS = @CFLAGS@ -CPPFLAGS = @CPPFLAGS@ -AR = @AR@ -ARFLAGS = rc -@SET_MAKE@ - -SHELL = /bin/sh - -#### End of system configuration section. #### - -ALL_CFLAGS = -I. -I$(srcdir) -I$(G2C_H_DIR) -I$(F2C_H_DIR) $(CPPFLAGS) $(DEFS) $(CFLAGS) - -.SUFFIXES: -.SUFFIXES: .c .o - -.c.o: - $(CC) -c -DSkip_f2c_Undefs $(ALL_CFLAGS) $< - -MISC = F77_aloc.o VersionF.o main.o s_rnge.o abort_.o getarg_.o iargc_.o\ - getenv_.o signal_.o s_stop.o s_paus.o system_.o cabs.o\ - derf_.o derfc_.o erf_.o erfc_.o sig_die.o exit_.o setarg.o setsig.o -POW = pow_ci.o pow_dd.o pow_di.o pow_hh.o pow_ii.o pow_ri.o pow_zi.o pow_zz.o \ - pow_qq.o -CX = c_abs.o c_cos.o c_div.o c_exp.o c_log.o c_sin.o c_sqrt.o -DCX = z_abs.o z_cos.o z_div.o z_exp.o z_log.o z_sin.o z_sqrt.o -REAL = r_abs.o r_acos.o r_asin.o r_atan.o r_atn2.o r_cnjg.o r_cos.o\ - r_cosh.o r_dim.o r_exp.o r_imag.o r_int.o\ - r_lg10.o r_log.o r_mod.o r_nint.o r_sign.o\ - r_sin.o r_sinh.o r_sqrt.o r_tan.o r_tanh.o -DBL = d_abs.o d_acos.o d_asin.o d_atan.o d_atn2.o\ - d_cnjg.o d_cos.o d_cosh.o d_dim.o d_exp.o\ - d_imag.o d_int.o d_lg10.o d_log.o d_mod.o\ - d_nint.o d_prod.o d_sign.o d_sin.o d_sinh.o\ - d_sqrt.o d_tan.o d_tanh.o -INT = i_abs.o i_dim.o i_dnnt.o i_indx.o i_len.o i_mod.o i_nint.o i_sign.o -HALF = h_abs.o h_dim.o h_dnnt.o h_indx.o h_len.o h_mod.o h_nint.o h_sign.o -CMP = l_ge.o l_gt.o l_le.o l_lt.o hl_ge.o hl_gt.o hl_le.o hl_lt.o -EFL = ef1asc_.o ef1cmc_.o -CHAR = s_cat.o s_cmp.o s_copy.o -F90BIT = lbitbits.o lbitshft.o qbitbits.o qbitshft.o - -OBJS = $(MISC) $(POW) $(CX) $(DCX) $(REAL) $(DBL) $(INT) \ - $(HALF) $(CMP) $(EFL) $(CHAR) $(F90BIT) - -all: ../s-libf77 - -../s-libf77: $(OBJS) - echo timestamp > ../s-libf77 - -archive: - $(AR) $(ARFLAGS) $(LIBG2C) $(OBJS) - -Makefile: Makefile.in config.status - $(SHELL) config.status - -config.status: configure - rm -f config.cache - CONFIG_SITE=no-such-file CC='$(CC)' AR='$(AR)' CFLAGS='$(CFLAGS)' \ - CPPFLAGS='$(CPPFLAGS)' $(SHELL) config.status --recheck - -${srcdir}/configure: configure.in - rm -f config.cache - cd ${srcdir} && autoconf - -VersionF.o: Version.c - $(CC) -c $(ALL_CFLAGS) -o $@ $(srcdir)/Version.c - -F77_aloc.o: F77_aloc.c -main.o: main.c -s_rnge.o: s_rnge.c -abort_.o: abort_.c -getarg_.o: getarg_.c -iargc_.o: iargc_.c -getenv_.o: getenv_.c -signal_.o: signal_.c -s_stop.o: s_stop.c -s_paus.o: s_paus.c -system_.o: system_.c -cabs.o: cabs.c -derf_.o: derf_.c -derfc_.o: derfc_.c -erf_.o: erf_.c -erfc_.o: erfc_.c -sig_die.o: sig_die.c -exit_.o: exit_.c -setarg.o: setarg.c -setsig.o: setsig.c -pow_ci.o: pow_ci.c -pow_dd.o: pow_dd.c -pow_di.o: pow_di.c -pow_hh.o: pow_hh.c -pow_ii.o: pow_ii.c -pow_ri.o: pow_ri.c -pow_zi.o: pow_zi.c -pow_zz.o: pow_zz.c -pow_qq.o: pow_qq.c -c_abs.o: c_abs.c -c_cos.o: c_cos.c -c_div.o: c_div.c -c_exp.o: c_exp.c -c_log.o: c_log.c -c_sin.o: c_sin.c -c_sqrt.o: c_sqrt.c -z_abs.o: z_abs.c -z_cos.o: z_cos.c -z_div.o: z_div.c -z_exp.o: z_exp.c -z_log.o: z_log.c -z_sin.o: z_sin.c -z_sqrt.o: z_sqrt.c -r_abs.o: r_abs.c -r_acos.o: r_acos.c -r_asin.o: r_asin.c -r_atan.o: r_atan.c -r_atn2.o: r_atn2.c -r_cnjg.o: r_cnjg.c -r_cos.o: r_cos.c -r_cosh.o: r_cosh.c -r_dim.o: r_dim.c -r_exp.o: r_exp.c -r_imag.o: r_imag.c -r_int.o: r_int.c -r_lg10.o: r_lg10.c -r_log.o: r_log.c -r_mod.o: r_mod.c -r_nint.o: r_nint.c -r_sign.o: r_sign.c -r_sin.o: r_sin.c -r_sinh.o: r_sinh.c -r_sqrt.o: r_sqrt.c -r_tan.o: r_tan.c -r_tanh.o: r_tanh.c -d_abs.o: d_abs.c -d_acos.o: d_acos.c -d_asin.o: d_asin.c -d_atan.o: d_atan.c -d_atn2.o: d_atn2.c -d_cnjg.o: d_cnjg.c -d_cos.o: d_cos.c -d_cosh.o: d_cosh.c -d_dim.o: d_dim.c -d_exp.o: d_exp.c -d_imag.o: d_imag.c -d_int.o: d_int.c -d_lg10.o: d_lg10.c -d_log.o: d_log.c -d_mod.o: d_mod.c -d_nint.o: d_nint.c -d_prod.o: d_prod.c -d_sign.o: d_sign.c -d_sin.o: d_sin.c -d_sinh.o: d_sinh.c -d_sqrt.o: d_sqrt.c -d_tan.o: d_tan.c -d_tanh.o: d_tanh.c -i_abs.o: i_abs.c -i_dim.o: i_dim.c -i_dnnt.o: i_dnnt.c -i_indx.o: i_indx.c -i_len.o: i_len.c -i_mod.o: i_mod.c -i_nint.o: i_nint.c -i_sign.o: i_sign.c -h_abs.o: h_abs.c -h_dim.o: h_dim.c -h_dnnt.o: h_dnnt.c -h_indx.o: h_indx.c -h_len.o: h_len.c -h_mod.o: h_mod.c -h_nint.o: h_nint.c -h_sign.o: h_sign.c -l_ge.o: l_ge.c -l_gt.o: l_gt.c -l_le.o: l_le.c -l_lt.o: l_lt.c -hl_ge.o: hl_ge.c -hl_gt.o: hl_gt.c -hl_le.o: hl_le.c -hl_lt.o: hl_lt.c -ef1asc_.o: ef1asc_.c -ef1cmc_.o: ef1cmc_.c -s_cat.o: s_cat.c -s_cmp.o: s_cmp.c -s_copy.o: s_copy.c -lbitbits.o: lbitbits.c -lbitshft.o: lbitshft.c -qbitbits.o: qbitbits.c -qbitshft.o: qbitshft.c - -# Not quite all these actually do depend on f2c.h... -$(MISC) $(POW) $(CX) $(DCX) $(REAL) $(DBL) $(INT) $(HALF) $(CMP) $(EFL) \ - $(CHAR) $(F90BIT): $(F2C_H_DIR)/f2c.h $(G2C_H_DIR)/g2c.h - -check install uninstall install-strip dist installcheck installdirs: - -mostlyclean: - rm -f *.o - -clean: mostlyclean - rm -f config.log - rm -f ../s-libf77 - -distclean: clean - rm -f config.cache config.status Makefile ../s-libf77 configure - -maintainer-clean: - -.PHONY: mostlyclean clean distclean maintainer-clean all check uninstall \ - install-strip dist installcheck installdirs archive diff --git a/gnu/egcs/libf2c/libF77/Notice b/gnu/egcs/libf2c/libF77/Notice deleted file mode 100644 index 261b719bc57..00000000000 --- a/gnu/egcs/libf2c/libF77/Notice +++ /dev/null @@ -1,23 +0,0 @@ -/**************************************************************** -Copyright 1990 - 1997 by AT&T, Lucent Technologies and Bellcore. - -Permission to use, copy, modify, and distribute this software -and its documentation for any purpose and without fee is hereby -granted, provided that the above copyright notice appear in all -copies and that both that the copyright notice and this -permission notice and warranty disclaimer appear in supporting -documentation, and that the names of AT&T, Bell Laboratories, -Lucent or Bellcore or any of their entities not be used in -advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -AT&T, Lucent and Bellcore disclaim all warranties with regard to -this software, including all implied warranties of -merchantability and fitness. In no event shall AT&T, Lucent or -Bellcore be liable for any special, indirect or consequential -damages or any damages whatsoever resulting from loss of use, -data or profits, whether in an action of contract, negligence or -other tortious action, arising out of or in connection with the -use or performance of this software. -****************************************************************/ - diff --git a/gnu/egcs/libf2c/libF77/README.netlib b/gnu/egcs/libf2c/libF77/README.netlib deleted file mode 100644 index 5e532ee0990..00000000000 --- a/gnu/egcs/libf2c/libF77/README.netlib +++ /dev/null @@ -1,112 +0,0 @@ -If your compiler does not recognize ANSI C headers, -compile with KR_headers defined: either add -DKR_headers -to the definition of CFLAGS in the makefile, or insert - -#define KR_headers - -at the top of f2c.h , cabs.c , main.c , and sig_die.c . - -Under MS-DOS, compile s_paus.c with -DMSDOS. - -If you have a really ancient K&R C compiler that does not understand -void, add -Dvoid=int to the definition of CFLAGS in the makefile. - -If you use a C++ compiler, first create a local f2c.h by appending -f2ch.add to the usual f2c.h, e.g., by issuing the command - make f2c.h -which assumes f2c.h is installed in /usr/include . - -If your system lacks onexit() and you are not using an ANSI C -compiler, then you should compile main.c, s_paus.c, s_stop.c, and -sig_die.c with NO_ONEXIT defined. See the comments about onexit in -the makefile. - -If your system has a double drem() function such that drem(a,b) -is the IEEE remainder function (with double a, b), then you may -wish to compile r_mod.c and d_mod.c with IEEE_drem defined. -On some systems, you may also need to compile with -Ddrem=remainder . - -To check for transmission errors, issue the command - make check -This assumes you have the xsum program whose source, xsum.c, -is distributed as part of "all from f2c/src". If you do not -have xsum, you can obtain xsum.c by sending the following E-mail -message to netlib@netlib.bell-labs.com - send xsum.c from f2c/src - -The makefile assumes you have installed f2c.h in a standard -place (and does not cause recompilation when f2c.h is changed); -f2c.h comes with "all from f2c" (the source for f2c) and is -available separately ("f2c.h from f2c"). - -Most of the routines in libF77 are support routines for Fortran -intrinsic functions or for operations that f2c chooses not -to do "in line". There are a few exceptions, summarized below -- -functions and subroutines that appear to your program as ordinary -external Fortran routines. - -1. CALL ABORT prints a message and causes a core dump. - -2. ERF(r) and DERF(d) and the REAL and DOUBLE PRECISION - error functions (with x REAL and d DOUBLE PRECISION); - DERF must be declared DOUBLE PRECISION in your program. - Both ERF and DERF assume your C library provides the - underlying erf() function (which not all systems do). - -3. ERFC(r) and DERFC(d) are the complementary error functions: - ERFC(r) = 1 - ERF(r) and DERFC(d) = 1.d0 - DERFC(d) - (except that their results may be more accurate than - explicitly evaluating the above formulae would give). - Again, ERFC and r are REAL, and DERFC and d are DOUBLE - PRECISION (and must be declared as such in your program), - and ERFC and DERFC rely on your system's erfc(). - -4. CALL GETARG(n,s), where n is an INTEGER and s is a CHARACTER - variable, sets s to the n-th command-line argument (or to - all blanks if there are fewer than n command-line arguments); - CALL GETARG(0,s) sets s to the name of the program (on systems - that support this feature). See IARGC below. - -5. CALL GETENV(name, value), where name and value are of type - CHARACTER, sets value to the environment value, $name, of - name (or to blanks if $name has not been set). - -6. NARGS = IARGC() sets NARGS to the number of command-line - arguments (an INTEGER value). - -7. CALL SIGNAL(n,func), where n is an INTEGER and func is an - EXTERNAL procedure, arranges for func to be invoked when - signal n occurs (on systems where this makes sense). - -8. CALL SYSTEM(cmd), where cmd is of type CHARACTER, passes - cmd to the system's command processor (on systems where - this can be done). - -The makefile does not attempt to compile pow_qq.c, qbitbits.c, -and qbitshft.c, which are meant for use with INTEGER*8. To use -INTEGER*8, you must modify f2c.h to declare longint and ulongint -appropriately; then add pow_qq.o to the POW = line in the makefile, -and add " qbitbits.o qbitshft.o" to the makefile's F90BIT = line. - -Following Fortran 90, s_cat.c and s_copy.c allow the target of a -(character string) assignment to be appear on its right-hand, at -the cost of some extra overhead for all run-time concatenations. -If you prefer the extra efficiency that comes with the Fortran 77 -requirement that the left-hand side of a character assignment not -be involved in the right-hand side, compile s_cat.c and s_copy.c -with -DNO_OVERWRITE . - -If your system lacks a ranlib command, you don't need it. -Either comment out the makefile's ranlib invocation, or install -a harmless "ranlib" command somewhere in your PATH, such as the -one-line shell script - - exit 0 - -or (on some systems) - - exec /usr/bin/ar lts $1 >/dev/null - -If your compiler complains about the signal calls in main.c, s_paus.c, -and signal_.c, you may need to adjust signal1.h suitably. See the -comments in signal1.h. diff --git a/gnu/egcs/libf2c/libF77/Version.c b/gnu/egcs/libf2c/libF77/Version.c deleted file mode 100644 index 98a91098976..00000000000 --- a/gnu/egcs/libf2c/libF77/Version.c +++ /dev/null @@ -1,73 +0,0 @@ -static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; - -/* -*/ - -char __G77_LIBF77_VERSION__[] = "0.5.24"; - -/* -2.00 11 June 1980. File version.c added to library. -2.01 31 May 1988. s_paus() flushes stderr; names of hl_* fixed - [ d]erf[c ] added - 8 Aug. 1989: #ifdefs for f2c -i2 added to s_cat.c - 29 Nov. 1989: s_cmp returns long (for f2c) - 30 Nov. 1989: arg types from f2c.h - 12 Dec. 1989: s_rnge allows long names - 19 Dec. 1989: getenv_ allows unsorted environment - 28 Mar. 1990: add exit(0) to end of main() - 2 Oct. 1990: test signal(...) == SIG_IGN rather than & 01 in main - 17 Oct. 1990: abort() calls changed to sig_die(...,1) - 22 Oct. 1990: separate sig_die from main - 25 Apr. 1991: minor, theoretically invisible tweaks to s_cat, sig_die - 31 May 1991: make system_ return status - 18 Dec. 1991: change long to ftnlen (for -i2) many places - 28 Feb. 1992: repair z_sqrt.c (scribbled on input, gave wrong answer) - 18 July 1992: for n < 0, repair handling of 0**n in pow_[dr]i.c - and m**n in pow_hh.c and pow_ii.c; - catch SIGTRAP in main() for error msg before abort - 23 July 1992: switch to ANSI prototypes unless KR_headers is #defined - 23 Oct. 1992: fix botch in signal_.c (erroneous deref of 2nd arg); - change Cabs to f__cabs. - 12 March 1993: various tweaks for C++ - 2 June 1994: adjust so abnormal terminations invoke f_exit just once - 16 Sept. 1994: s_cmp: treat characters as unsigned in comparisons. - 19 Sept. 1994: s_paus: flush after end of PAUSE; add -DMSDOS - 12 Jan. 1995: pow_[dhiqrz][hiq]: adjust x**i to work on machines - that sign-extend right shifts when i is the most - negative integer. - 26 Jan. 1995: adjust s_cat.c, s_copy.c to permit the left-hand side - of character assignments to appear on the right-hand - side (unless compiled with -DNO_OVERWRITE). - 27 Jan. 1995: minor tweak to s_copy.c: copy forward whenever - possible (for better cache behavior). - 30 May 1995: added subroutine exit(rc) integer rc. Version not changed. - 29 Aug. 1995: add F77_aloc.c; use it in s_cat.c and system_.c. - 6 Sept. 1995: fix return type of system_ under -DKR_headers. - 19 Dec. 1995: s_cat.c: fix bug when 2nd or later arg overlaps lhs. - 19 Mar. 1996: s_cat.c: supply missing break after overlap detection. - 13 May 1996: add [lq]bitbits.c and [lq]bitshft.c (f90 bit intrinsics). - 19 June 1996: add casts to unsigned in [lq]bitshft.c. - 26 Feb. 1997: adjust functions with a complex output argument - to permit aliasing it with input arguments. - (For now, at least, this is just for possible - benefit of g77.) - 4 April 1997: [cz]_div.c: tweaks invisible on most systems (that may - affect systems using gratuitous extra precision). - 19 Sept. 1997: [de]time_.c (Unix systems only): change return - type to double. - 2 May 1999: getenv_.c: omit environ in favor of getenv(). - c_cos.c, c_exp.c, c_sin.c, d_cnjg.c, r_cnjg.c, - z_cos.c, z_exp.c, z_log.c, z_sin.c: cope fully with - overlapping arguments caused by equivalence. - 3 May 1999: "invisible" tweaks to omit compiler warnings in - abort_.c, ef1asc_.c, s_rnge.c, s_stop.c. -*/ - -#include <stdio.h> - -void -g77__fvers__ () -{ - fprintf (stderr, "__G77_LIBF77_VERSION__: %s", __G77_LIBF77_VERSION__); - fputs (junk, stderr); -} diff --git a/gnu/egcs/libf2c/libF77/abort_.c b/gnu/egcs/libf2c/libF77/abort_.c deleted file mode 100644 index f0c2f8df359..00000000000 --- a/gnu/egcs/libf2c/libF77/abort_.c +++ /dev/null @@ -1,16 +0,0 @@ -#include <stdio.h> -#include "f2c.h" - -#ifdef KR_headers -extern VOID sig_die(); - -int G77_abort_0 () -#else -extern void sig_die(char*,int); - -int G77_abort_0 (void) -#endif -{ -sig_die("Fortran abort routine called", 1); -return 0; /* not reached */ -} diff --git a/gnu/egcs/libf2c/libF77/c_abs.c b/gnu/egcs/libf2c/libF77/c_abs.c deleted file mode 100644 index 041fbd3d8bb..00000000000 --- a/gnu/egcs/libf2c/libF77/c_abs.c +++ /dev/null @@ -1,14 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern double f__cabs(); - -double c_abs(z) complex *z; -#else -extern double f__cabs(double, double); - -double c_abs(complex *z) -#endif -{ -return( f__cabs( z->r, z->i ) ); -} diff --git a/gnu/egcs/libf2c/libF77/c_cos.c b/gnu/egcs/libf2c/libF77/c_cos.c deleted file mode 100644 index 549953dc656..00000000000 --- a/gnu/egcs/libf2c/libF77/c_cos.c +++ /dev/null @@ -1,17 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern double sin(), cos(), sinh(), cosh(); - -VOID c_cos(r, z) complex *r, *z; -#else -#undef abs -#include "math.h" - -void c_cos(complex *r, complex *z) -#endif -{ - double zi = z->i, zr = z->r; - r->r = cos(zr) * cosh(zi); - r->i = - sin(zr) * sinh(zi); - } diff --git a/gnu/egcs/libf2c/libF77/c_div.c b/gnu/egcs/libf2c/libF77/c_div.c deleted file mode 100644 index ac963079ba2..00000000000 --- a/gnu/egcs/libf2c/libF77/c_div.c +++ /dev/null @@ -1,37 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern VOID sig_die(); -VOID c_div(c, a, b) -complex *a, *b, *c; -#else -extern void sig_die(char*,int); -void c_div(complex *c, complex *a, complex *b) -#endif -{ - double ratio, den; - double abr, abi, cr; - - if( (abr = b->r) < 0.) - abr = - abr; - if( (abi = b->i) < 0.) - abi = - abi; - if( abr <= abi ) - { - if(abi == 0) - sig_die("complex division by zero", 1); - ratio = (double)b->r / b->i ; - den = b->i * (1 + ratio*ratio); - cr = (a->r*ratio + a->i) / den; - c->i = (a->i*ratio - a->r) / den; - } - - else - { - ratio = (double)b->i / b->r ; - den = b->r * (1 + ratio*ratio); - cr = (a->r + a->i*ratio) / den; - c->i = (a->i - a->r*ratio) / den; - } - c->r = cr; - } diff --git a/gnu/egcs/libf2c/libF77/c_exp.c b/gnu/egcs/libf2c/libF77/c_exp.c deleted file mode 100644 index 52d0d2ffc95..00000000000 --- a/gnu/egcs/libf2c/libF77/c_exp.c +++ /dev/null @@ -1,19 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern double exp(), cos(), sin(); - - VOID c_exp(r, z) complex *r, *z; -#else -#undef abs -#include "math.h" - -void c_exp(complex *r, complex *z) -#endif -{ - double expx, zi = z->i; - - expx = exp(z->r); - r->r = expx * cos(zi); - r->i = expx * sin(zi); - } diff --git a/gnu/egcs/libf2c/libF77/c_log.c b/gnu/egcs/libf2c/libF77/c_log.c deleted file mode 100644 index 24d1a3c957b..00000000000 --- a/gnu/egcs/libf2c/libF77/c_log.c +++ /dev/null @@ -1,17 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern double log(), f__cabs(), atan2(); -VOID c_log(r, z) complex *r, *z; -#else -#undef abs -#include "math.h" -extern double f__cabs(double, double); - -void c_log(complex *r, complex *z) -#endif -{ - double zi, zr; - r->i = atan2(zi = z->i, zr = z->r); - r->r = log( f__cabs(zr, zi) ); - } diff --git a/gnu/egcs/libf2c/libF77/c_sin.c b/gnu/egcs/libf2c/libF77/c_sin.c deleted file mode 100644 index 93a57660a90..00000000000 --- a/gnu/egcs/libf2c/libF77/c_sin.c +++ /dev/null @@ -1,17 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern double sin(), cos(), sinh(), cosh(); - -VOID c_sin(r, z) complex *r, *z; -#else -#undef abs -#include "math.h" - -void c_sin(complex *r, complex *z) -#endif -{ - double zi = z->i, zr = z->r; - r->r = sin(zr) * cosh(zi); - r->i = cos(zr) * sinh(zi); - } diff --git a/gnu/egcs/libf2c/libF77/c_sqrt.c b/gnu/egcs/libf2c/libF77/c_sqrt.c deleted file mode 100644 index 8481ee4857e..00000000000 --- a/gnu/egcs/libf2c/libF77/c_sqrt.c +++ /dev/null @@ -1,35 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern double sqrt(), f__cabs(); - -VOID c_sqrt(r, z) complex *r, *z; -#else -#undef abs -#include "math.h" -extern double f__cabs(double, double); - -void c_sqrt(complex *r, complex *z) -#endif -{ - double mag, t; - double zi = z->i, zr = z->r; - - if( (mag = f__cabs(zr, zi)) == 0.) - r->r = r->i = 0.; - else if(zr > 0) - { - r->r = t = sqrt(0.5 * (mag + zr) ); - t = zi / t; - r->i = 0.5 * t; - } - else - { - t = sqrt(0.5 * (mag - zr) ); - if(zi < 0) - t = -t; - r->i = t; - t = zi / t; - r->r = 0.5 * t; - } - } diff --git a/gnu/egcs/libf2c/libF77/cabs.c b/gnu/egcs/libf2c/libF77/cabs.c deleted file mode 100644 index 2fad044e884..00000000000 --- a/gnu/egcs/libf2c/libF77/cabs.c +++ /dev/null @@ -1,27 +0,0 @@ -#ifdef KR_headers -extern double sqrt(); -double f__cabs(real, imag) double real, imag; -#else -#undef abs -#include <math.h> -double f__cabs(double real, double imag) -#endif -{ -double temp; - -if(real < 0) - real = -real; -if(imag < 0) - imag = -imag; -if(imag > real){ - temp = real; - real = imag; - imag = temp; -} -if((real+imag) == real) - return(real); - -temp = imag/real; -temp = real*sqrt(1.0 + temp*temp); /*overflow!!*/ -return(temp); -} diff --git a/gnu/egcs/libf2c/libF77/configure b/gnu/egcs/libf2c/libF77/configure deleted file mode 100644 index b5622e06bf4..00000000000 --- a/gnu/egcs/libf2c/libF77/configure +++ /dev/null @@ -1,1569 +0,0 @@ -#! /bin/sh - -# Guess values for system-dependent variables and create Makefiles. -# Generated automatically using autoconf version 2.13 -# Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc. -# -# This configure script is free software; the Free Software Foundation -# gives unlimited permission to copy, distribute and modify it. - -# Defaults: -ac_help= -ac_default_prefix=/usr/local -# Any additions from configure.in: - -# Initialize some variables set by options. -# The variables have the same names as the options, with -# dashes changed to underlines. -build=NONE -cache_file=./config.cache -exec_prefix=NONE -host=NONE -no_create= -nonopt=NONE -no_recursion= -prefix=NONE -program_prefix=NONE -program_suffix=NONE -program_transform_name=s,x,x, -silent= -site= -srcdir= -target=NONE -verbose= -x_includes=NONE -x_libraries=NONE -bindir='${exec_prefix}/bin' -sbindir='${exec_prefix}/sbin' -libexecdir='${exec_prefix}/libexec' -datadir='${prefix}/share' -sysconfdir='${prefix}/etc' -sharedstatedir='${prefix}/com' -localstatedir='${prefix}/var' -libdir='${exec_prefix}/lib' -includedir='${prefix}/include' -oldincludedir='/usr/include' -infodir='${prefix}/info' -mandir='${prefix}/man' - -# Initialize some other variables. -subdirs= -MFLAGS= MAKEFLAGS= -SHELL=${CONFIG_SHELL-/bin/sh} -# Maximum number of lines to put in a shell here document. -ac_max_here_lines=12 - -ac_prev= -for ac_option -do - - # If the previous option needs an argument, assign it. - if test -n "$ac_prev"; then - eval "$ac_prev=\$ac_option" - ac_prev= - continue - fi - - case "$ac_option" in - -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;; - *) ac_optarg= ;; - esac - - # Accept the important Cygnus configure options, so we can diagnose typos. - - case "$ac_option" in - - -bindir | --bindir | --bindi | --bind | --bin | --bi) - ac_prev=bindir ;; - -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) - bindir="$ac_optarg" ;; - - -build | --build | --buil | --bui | --bu) - ac_prev=build ;; - -build=* | --build=* | --buil=* | --bui=* | --bu=*) - build="$ac_optarg" ;; - - -cache-file | --cache-file | --cache-fil | --cache-fi \ - | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) - ac_prev=cache_file ;; - -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ - | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) - cache_file="$ac_optarg" ;; - - -datadir | --datadir | --datadi | --datad | --data | --dat | --da) - ac_prev=datadir ;; - -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ - | --da=*) - datadir="$ac_optarg" ;; - - -disable-* | --disable-*) - ac_feature=`echo $ac_option|sed -e 's/-*disable-//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then - { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } - fi - ac_feature=`echo $ac_feature| sed 's/-/_/g'` - eval "enable_${ac_feature}=no" ;; - - -enable-* | --enable-*) - ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then - { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } - fi - ac_feature=`echo $ac_feature| sed 's/-/_/g'` - case "$ac_option" in - *=*) ;; - *) ac_optarg=yes ;; - esac - eval "enable_${ac_feature}='$ac_optarg'" ;; - - -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ - | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ - | --exec | --exe | --ex) - ac_prev=exec_prefix ;; - -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ - | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ - | --exec=* | --exe=* | --ex=*) - exec_prefix="$ac_optarg" ;; - - -gas | --gas | --ga | --g) - # Obsolete; use --with-gas. - with_gas=yes ;; - - -help | --help | --hel | --he) - # Omit some internal or obsolete options to make the list less imposing. - # This message is too long to be a string in the A/UX 3.1 sh. - cat << EOF -Usage: configure [options] [host] -Options: [defaults in brackets after descriptions] -Configuration: - --cache-file=FILE cache test results in FILE - --help print this message - --no-create do not create output files - --quiet, --silent do not print \`checking...' messages - --version print the version of autoconf that created configure -Directory and file names: - --prefix=PREFIX install architecture-independent files in PREFIX - [$ac_default_prefix] - --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX - [same as prefix] - --bindir=DIR user executables in DIR [EPREFIX/bin] - --sbindir=DIR system admin executables in DIR [EPREFIX/sbin] - --libexecdir=DIR program executables in DIR [EPREFIX/libexec] - --datadir=DIR read-only architecture-independent data in DIR - [PREFIX/share] - --sysconfdir=DIR read-only single-machine data in DIR [PREFIX/etc] - --sharedstatedir=DIR modifiable architecture-independent data in DIR - [PREFIX/com] - --localstatedir=DIR modifiable single-machine data in DIR [PREFIX/var] - --libdir=DIR object code libraries in DIR [EPREFIX/lib] - --includedir=DIR C header files in DIR [PREFIX/include] - --oldincludedir=DIR C header files for non-gcc in DIR [/usr/include] - --infodir=DIR info documentation in DIR [PREFIX/info] - --mandir=DIR man documentation in DIR [PREFIX/man] - --srcdir=DIR find the sources in DIR [configure dir or ..] - --program-prefix=PREFIX prepend PREFIX to installed program names - --program-suffix=SUFFIX append SUFFIX to installed program names - --program-transform-name=PROGRAM - run sed PROGRAM on installed program names -EOF - cat << EOF -Host type: - --build=BUILD configure for building on BUILD [BUILD=HOST] - --host=HOST configure for HOST [guessed] - --target=TARGET configure for TARGET [TARGET=HOST] -Features and packages: - --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) - --enable-FEATURE[=ARG] include FEATURE [ARG=yes] - --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] - --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) - --x-includes=DIR X include files are in DIR - --x-libraries=DIR X library files are in DIR -EOF - if test -n "$ac_help"; then - echo "--enable and --with options recognized:$ac_help" - fi - exit 0 ;; - - -host | --host | --hos | --ho) - ac_prev=host ;; - -host=* | --host=* | --hos=* | --ho=*) - host="$ac_optarg" ;; - - -includedir | --includedir | --includedi | --included | --include \ - | --includ | --inclu | --incl | --inc) - ac_prev=includedir ;; - -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ - | --includ=* | --inclu=* | --incl=* | --inc=*) - includedir="$ac_optarg" ;; - - -infodir | --infodir | --infodi | --infod | --info | --inf) - ac_prev=infodir ;; - -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) - infodir="$ac_optarg" ;; - - -libdir | --libdir | --libdi | --libd) - ac_prev=libdir ;; - -libdir=* | --libdir=* | --libdi=* | --libd=*) - libdir="$ac_optarg" ;; - - -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ - | --libexe | --libex | --libe) - ac_prev=libexecdir ;; - -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ - | --libexe=* | --libex=* | --libe=*) - libexecdir="$ac_optarg" ;; - - -localstatedir | --localstatedir | --localstatedi | --localstated \ - | --localstate | --localstat | --localsta | --localst \ - | --locals | --local | --loca | --loc | --lo) - ac_prev=localstatedir ;; - -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ - | --localstate=* | --localstat=* | --localsta=* | --localst=* \ - | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) - localstatedir="$ac_optarg" ;; - - -mandir | --mandir | --mandi | --mand | --man | --ma | --m) - ac_prev=mandir ;; - -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) - mandir="$ac_optarg" ;; - - -nfp | --nfp | --nf) - # Obsolete; use --without-fp. - with_fp=no ;; - - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c) - no_create=yes ;; - - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) - no_recursion=yes ;; - - -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ - | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ - | --oldin | --oldi | --old | --ol | --o) - ac_prev=oldincludedir ;; - -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ - | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ - | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) - oldincludedir="$ac_optarg" ;; - - -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) - ac_prev=prefix ;; - -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) - prefix="$ac_optarg" ;; - - -program-prefix | --program-prefix | --program-prefi | --program-pref \ - | --program-pre | --program-pr | --program-p) - ac_prev=program_prefix ;; - -program-prefix=* | --program-prefix=* | --program-prefi=* \ - | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) - program_prefix="$ac_optarg" ;; - - -program-suffix | --program-suffix | --program-suffi | --program-suff \ - | --program-suf | --program-su | --program-s) - ac_prev=program_suffix ;; - -program-suffix=* | --program-suffix=* | --program-suffi=* \ - | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) - program_suffix="$ac_optarg" ;; - - -program-transform-name | --program-transform-name \ - | --program-transform-nam | --program-transform-na \ - | --program-transform-n | --program-transform- \ - | --program-transform | --program-transfor \ - | --program-transfo | --program-transf \ - | --program-trans | --program-tran \ - | --progr-tra | --program-tr | --program-t) - ac_prev=program_transform_name ;; - -program-transform-name=* | --program-transform-name=* \ - | --program-transform-nam=* | --program-transform-na=* \ - | --program-transform-n=* | --program-transform-=* \ - | --program-transform=* | --program-transfor=* \ - | --program-transfo=* | --program-transf=* \ - | --program-trans=* | --program-tran=* \ - | --progr-tra=* | --program-tr=* | --program-t=*) - program_transform_name="$ac_optarg" ;; - - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil) - silent=yes ;; - - -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) - ac_prev=sbindir ;; - -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ - | --sbi=* | --sb=*) - sbindir="$ac_optarg" ;; - - -sharedstatedir | --sharedstatedir | --sharedstatedi \ - | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ - | --sharedst | --shareds | --shared | --share | --shar \ - | --sha | --sh) - ac_prev=sharedstatedir ;; - -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ - | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ - | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ - | --sha=* | --sh=*) - sharedstatedir="$ac_optarg" ;; - - -site | --site | --sit) - ac_prev=site ;; - -site=* | --site=* | --sit=*) - site="$ac_optarg" ;; - - -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) - ac_prev=srcdir ;; - -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) - srcdir="$ac_optarg" ;; - - -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ - | --syscon | --sysco | --sysc | --sys | --sy) - ac_prev=sysconfdir ;; - -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ - | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) - sysconfdir="$ac_optarg" ;; - - -target | --target | --targe | --targ | --tar | --ta | --t) - ac_prev=target ;; - -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) - target="$ac_optarg" ;; - - -v | -verbose | --verbose | --verbos | --verbo | --verb) - verbose=yes ;; - - -version | --version | --versio | --versi | --vers) - echo "configure generated by autoconf version 2.13" - exit 0 ;; - - -with-* | --with-*) - ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then - { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } - fi - ac_package=`echo $ac_package| sed 's/-/_/g'` - case "$ac_option" in - *=*) ;; - *) ac_optarg=yes ;; - esac - eval "with_${ac_package}='$ac_optarg'" ;; - - -without-* | --without-*) - ac_package=`echo $ac_option|sed -e 's/-*without-//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then - { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } - fi - ac_package=`echo $ac_package| sed 's/-/_/g'` - eval "with_${ac_package}=no" ;; - - --x) - # Obsolete; use --with-x. - with_x=yes ;; - - -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ - | --x-incl | --x-inc | --x-in | --x-i) - ac_prev=x_includes ;; - -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ - | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) - x_includes="$ac_optarg" ;; - - -x-libraries | --x-libraries | --x-librarie | --x-librari \ - | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) - ac_prev=x_libraries ;; - -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ - | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) - x_libraries="$ac_optarg" ;; - - -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; } - ;; - - *) - if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then - echo "configure: warning: $ac_option: invalid host type" 1>&2 - fi - if test "x$nonopt" != xNONE; then - { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } - fi - nonopt="$ac_option" - ;; - - esac -done - -if test -n "$ac_prev"; then - { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; } -fi - -trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 - -# File descriptor usage: -# 0 standard input -# 1 file creation -# 2 errors and warnings -# 3 some systems may open it to /dev/tty -# 4 used on the Kubota Titan -# 6 checking for... messages and results -# 5 compiler messages saved in config.log -if test "$silent" = yes; then - exec 6>/dev/null -else - exec 6>&1 -fi -exec 5>./config.log - -echo "\ -This file contains any messages produced by compilers while -running configure, to aid debugging if configure makes a mistake. -" 1>&5 - -# Strip out --no-create and --no-recursion so they do not pile up. -# Also quote any args containing shell metacharacters. -ac_configure_args= -for ac_arg -do - case "$ac_arg" in - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c) ;; - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;; - *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*) - ac_configure_args="$ac_configure_args '$ac_arg'" ;; - *) ac_configure_args="$ac_configure_args $ac_arg" ;; - esac -done - -# NLS nuisances. -# Only set these to C if already set. These must not be set unconditionally -# because not all systems understand e.g. LANG=C (notably SCO). -# Fixing LC_MESSAGES prevents Solaris sh from translating var values in `set'! -# Non-C LC_CTYPE values break the ctype check. -if test "${LANG+set}" = set; then LANG=C; export LANG; fi -if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi -if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi -if test "${LC_CTYPE+set}" = set; then LC_CTYPE=C; export LC_CTYPE; fi - -# confdefs.h avoids OS command line length limits that DEFS can exceed. -rm -rf conftest* confdefs.h -# AIX cpp loses on an empty file, so make sure it contains at least a newline. -echo > confdefs.h - -# A filename unique to this package, relative to the directory that -# configure is in, which we can look for to find out if srcdir is correct. -ac_unique_file=getarg_.c - -# Find the source files, if location was not specified. -if test -z "$srcdir"; then - ac_srcdir_defaulted=yes - # Try the directory containing this script, then its parent. - ac_prog=$0 - ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'` - test "x$ac_confdir" = "x$ac_prog" && ac_confdir=. - srcdir=$ac_confdir - if test ! -r $srcdir/$ac_unique_file; then - srcdir=.. - fi -else - ac_srcdir_defaulted=no -fi -if test ! -r $srcdir/$ac_unique_file; then - if test "$ac_srcdir_defaulted" = yes; then - { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; } - else - { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; } - fi -fi -srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'` - -# Prefer explicitly selected file to automatically selected ones. -if test -z "$CONFIG_SITE"; then - if test "x$prefix" != xNONE; then - CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" - else - CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" - fi -fi -for ac_site_file in $CONFIG_SITE; do - if test -r "$ac_site_file"; then - echo "loading site script $ac_site_file" - . "$ac_site_file" - fi -done - -if test -r "$cache_file"; then - echo "loading cache $cache_file" - . $cache_file -else - echo "creating cache $cache_file" - > $cache_file -fi - -ac_ext=c -# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. -ac_cpp='$CPP $CPPFLAGS' -ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' -ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -cross_compiling=$ac_cv_prog_cc_cross - -ac_exeext= -ac_objext=o -if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then - # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu. - if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then - ac_n= ac_c=' -' ac_t=' ' - else - ac_n=-n ac_c= ac_t= - fi -else - ac_n= ac_c='\c' ac_t= -fi - - - -# For g77 we'll set CC to point at the built gcc, but this will get it into -# the makefiles -# Extract the first word of "gcc", so it can be a program name with args. -set dummy gcc; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:531: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_CC="gcc" - break - fi - done - IFS="$ac_save_ifs" -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - -if test -z "$CC"; then - # Extract the first word of "cc", so it can be a program name with args. -set dummy cc; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:561: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_prog_rejected=no - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - if test "$ac_dir/$ac_word" = "/usr/ucb/cc"; then - ac_prog_rejected=yes - continue - fi - ac_cv_prog_CC="cc" - break - fi - done - IFS="$ac_save_ifs" -if test $ac_prog_rejected = yes; then - # We found a bogon in the path, so make sure we never use it. - set dummy $ac_cv_prog_CC - shift - if test $# -gt 0; then - # We chose a different compiler from the bogus one. - # However, it has the same basename, so the bogon will be chosen - # first if we set CC to just the basename; use the full file name. - shift - set dummy "$ac_dir/$ac_word" "$@" - shift - ac_cv_prog_CC="$@" - fi -fi -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - - if test -z "$CC"; then - case "`uname -s`" in - *win32* | *WIN32*) - # Extract the first word of "cl", so it can be a program name with args. -set dummy cl; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:612: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_CC="cl" - break - fi - done - IFS="$ac_save_ifs" -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - ;; - esac - fi - test -z "$CC" && { echo "configure: error: no acceptable cc found in \$PATH" 1>&2; exit 1; } -fi - -echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works""... $ac_c" 1>&6 -echo "configure:644: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works" >&5 - -ac_ext=c -# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. -ac_cpp='$CPP $CPPFLAGS' -ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' -ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -cross_compiling=$ac_cv_prog_cc_cross - -cat > conftest.$ac_ext << EOF - -#line 655 "configure" -#include "confdefs.h" - -main(){return(0);} -EOF -if { (eval echo configure:660: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - ac_cv_prog_cc_works=yes - # If we can't run a trivial program, we are probably using a cross compiler. - if (./conftest; exit) 2>/dev/null; then - ac_cv_prog_cc_cross=no - else - ac_cv_prog_cc_cross=yes - fi -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - ac_cv_prog_cc_works=no -fi -rm -fr conftest* -ac_ext=c -# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. -ac_cpp='$CPP $CPPFLAGS' -ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' -ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -cross_compiling=$ac_cv_prog_cc_cross - -echo "$ac_t""$ac_cv_prog_cc_works" 1>&6 -if test $ac_cv_prog_cc_works = no; then - { echo "configure: error: installation or configuration problem: C compiler cannot create executables." 1>&2; exit 1; } -fi -echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler""... $ac_c" 1>&6 -echo "configure:686: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler" >&5 -echo "$ac_t""$ac_cv_prog_cc_cross" 1>&6 -cross_compiling=$ac_cv_prog_cc_cross - -echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6 -echo "configure:691: checking whether we are using GNU C" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.c <<EOF -#ifdef __GNUC__ - yes; -#endif -EOF -if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:700: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then - ac_cv_prog_gcc=yes -else - ac_cv_prog_gcc=no -fi -fi - -echo "$ac_t""$ac_cv_prog_gcc" 1>&6 - -if test $ac_cv_prog_gcc = yes; then - GCC=yes -else - GCC= -fi - -ac_test_CFLAGS="${CFLAGS+set}" -ac_save_CFLAGS="$CFLAGS" -CFLAGS= -echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6 -echo "configure:719: checking whether ${CC-cc} accepts -g" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - echo 'void f(){}' > conftest.c -if test -z "`${CC-cc} -g -c conftest.c 2>&1`"; then - ac_cv_prog_cc_g=yes -else - ac_cv_prog_cc_g=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$ac_cv_prog_cc_g" 1>&6 -if test "$ac_test_CFLAGS" = set; then - CFLAGS="$ac_save_CFLAGS" -elif test $ac_cv_prog_cc_g = yes; then - if test "$GCC" = yes; then - CFLAGS="-g -O2" - else - CFLAGS="-g" - fi -else - if test "$GCC" = yes; then - CFLAGS="-O2" - else - CFLAGS= - fi -fi - - -test "$AR" || AR=ar - -echo $ac_n "checking whether ${MAKE-make} sets \${MAKE}""... $ac_c" 1>&6 -echo "configure:754: checking whether ${MAKE-make} sets \${MAKE}" >&5 -set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y%./+-%__p_%'` -if eval "test \"`echo '$''{'ac_cv_prog_make_${ac_make}_set'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftestmake <<\EOF -all: - @echo 'ac_maketemp="${MAKE}"' -EOF -# GNU make sometimes prints "make[1]: Entering...", which would confuse us. -eval `${MAKE-make} -f conftestmake 2>/dev/null | grep temp=` -if test -n "$ac_maketemp"; then - eval ac_cv_prog_make_${ac_make}_set=yes -else - eval ac_cv_prog_make_${ac_make}_set=no -fi -rm -f conftestmake -fi -if eval "test \"`echo '$ac_cv_prog_make_'${ac_make}_set`\" = yes"; then - echo "$ac_t""yes" 1>&6 - SET_MAKE= -else - echo "$ac_t""no" 1>&6 - SET_MAKE="MAKE=${MAKE-make}" -fi - - - -# Sanity check for the cross-compilation case: -echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6 -echo "configure:784: checking how to run the C preprocessor" >&5 -# On Suns, sometimes $CPP names a directory. -if test -n "$CPP" && test -d "$CPP"; then - CPP= -fi -if test -z "$CPP"; then -if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - # This must be in double quotes, not single quotes, because CPP may get - # substituted into the Makefile and "${CC-cc}" will confuse make. - CPP="${CC-cc} -E" - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. - cat > conftest.$ac_ext <<EOF -#line 799 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:805: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP="${CC-cc} -E -traditional-cpp" - cat > conftest.$ac_ext <<EOF -#line 816 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:822: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP="${CC-cc} -nologo -E" - cat > conftest.$ac_ext <<EOF -#line 833 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:839: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP=/lib/cpp -fi -rm -f conftest* -fi -rm -f conftest* -fi -rm -f conftest* - ac_cv_prog_CPP="$CPP" -fi - CPP="$ac_cv_prog_CPP" -else - ac_cv_prog_CPP="$CPP" -fi -echo "$ac_t""$CPP" 1>&6 - -ac_safe=`echo "stdio.h" | sed 'y%./+-%__p_%'` -echo $ac_n "checking for stdio.h""... $ac_c" 1>&6 -echo "configure:865: checking for stdio.h" >&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 870 "configure" -#include "confdefs.h" -#include <stdio.h> -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:875: \"$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* - eval "ac_cv_header_$ac_safe=yes" -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_header_$ac_safe=no" -fi -rm -f conftest* -fi -if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then - echo "$ac_t""yes" 1>&6 - : -else - echo "$ac_t""no" 1>&6 -{ echo "configure: error: Can't find stdio.h. -You must have a usable C system for the target already installed, at least -including headers and, preferably, the library, before you can configure -the G77 runtime system. If necessary, install gcc now with \`LANGUAGES=c', -then the target library, then build with \`LANGUAGES=f77'." 1>&2; exit 1; } -fi - - -echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6 -echo "configure:903: checking for ANSI C header files" >&5 -if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 908 "configure" -#include "confdefs.h" -#include <stdlib.h> -#include <stdarg.h> -#include <string.h> -#include <float.h> -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:916: \"$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* - ac_cv_header_stdc=yes -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -if test $ac_cv_header_stdc = yes; then - # SunOS 4.x string.h does not declare mem*, contrary to ANSI. -cat > conftest.$ac_ext <<EOF -#line 933 "configure" -#include "confdefs.h" -#include <string.h> -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "memchr" >/dev/null 2>&1; then - : -else - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. -cat > conftest.$ac_ext <<EOF -#line 951 "configure" -#include "confdefs.h" -#include <stdlib.h> -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "free" >/dev/null 2>&1; then - : -else - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. -if test "$cross_compiling" = yes; then - : -else - cat > conftest.$ac_ext <<EOF -#line 972 "configure" -#include "confdefs.h" -#include <ctype.h> -#define ISLOWER(c) ('a' <= (c) && (c) <= 'z') -#define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) -#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) -int main () { int i; for (i = 0; i < 256; i++) -if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2); -exit (0); } - -EOF -if { (eval echo configure:983: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null -then - : -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -fr conftest* - ac_cv_header_stdc=no -fi -rm -fr conftest* -fi - -fi -fi - -echo "$ac_t""$ac_cv_header_stdc" 1>&6 -if test $ac_cv_header_stdc = yes; then - cat >> confdefs.h <<\EOF -#define STDC_HEADERS 1 -EOF - -fi - - -echo $ac_n "checking for posix""... $ac_c" 1>&6 -echo "configure:1008: checking for posix" >&5 -if eval "test \"`echo '$''{'g77_cv_header_posix'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1013 "configure" -#include "confdefs.h" -#include <sys/types.h> -#include <unistd.h> -#ifdef _POSIX_VERSION - yes -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "yes" >/dev/null 2>&1; then - rm -rf conftest* - g77_cv_header_posix=yes -else - rm -rf conftest* - g77_cv_header_posix=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$g77_cv_header_posix" 1>&6 - -# We can rely on the GNU library being posix-ish. I guess checking the -# header isn't actually like checking the functions, though... -echo $ac_n "checking for GNU library""... $ac_c" 1>&6 -echo "configure:1039: checking for GNU library" >&5 -if eval "test \"`echo '$''{'g77_cv_lib_gnu'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1044 "configure" -#include "confdefs.h" -#include <stdio.h> -#ifdef __GNU_LIBRARY__ - yes -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "yes" >/dev/null 2>&1; then - rm -rf conftest* - g77_cv_lib_gnu=yes -else - rm -rf conftest* - g77_cv_lib_gnu=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$g77_cv_lib_gnu" 1>&6 - -echo $ac_n "checking return type of signal handlers""... $ac_c" 1>&6 -echo "configure:1067: checking return type of signal handlers" >&5 -if eval "test \"`echo '$''{'ac_cv_type_signal'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1072 "configure" -#include "confdefs.h" -#include <sys/types.h> -#include <signal.h> -#ifdef signal -#undef signal -#endif -#ifdef __cplusplus -extern "C" void (*signal (int, void (*)(int)))(int); -#else -void (*signal ()) (); -#endif - -int main() { -int i; -; return 0; } -EOF -if { (eval echo configure:1089: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_type_signal=void -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_type_signal=int -fi -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_type_signal" 1>&6 -cat >> confdefs.h <<EOF -#define RETSIGTYPE $ac_cv_type_signal -EOF - - -# we'll get atexit by default -if test $ac_cv_header_stdc != yes; then -echo $ac_n "checking for atexit""... $ac_c" 1>&6 -echo "configure:1110: checking for atexit" >&5 -if eval "test \"`echo '$''{'ac_cv_func_atexit'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1115 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char atexit(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char atexit(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_atexit) || defined (__stub___atexit) -choke me -#else -atexit(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1138: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - rm -rf conftest* - eval "ac_cv_func_atexit=yes" -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_atexit=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'atexit`\" = yes"; then - echo "$ac_t""yes" 1>&6 - cat >> confdefs.h <<\EOF -#define onexit atexit -EOF - -else - echo "$ac_t""no" 1>&6 - cat >> confdefs.h <<\EOF -#define NO_ONEXIT 1 -EOF - - echo $ac_n "checking for onexit""... $ac_c" 1>&6 -echo "configure:1163: checking for onexit" >&5 -if eval "test \"`echo '$''{'ac_cv_func_onexit'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1168 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char onexit(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char onexit(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_onexit) || defined (__stub___onexit) -choke me -#else -onexit(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1191: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - rm -rf conftest* - eval "ac_cv_func_onexit=yes" -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_onexit=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'onexit`\" = yes"; then - echo "$ac_t""yes" 1>&6 - : -else - echo "$ac_t""no" 1>&6 -echo $ac_n "checking for on_exit""... $ac_c" 1>&6 -echo "configure:1209: checking for on_exit" >&5 -if eval "test \"`echo '$''{'ac_cv_func_on_exit'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1214 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char on_exit(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char on_exit(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_on_exit) || defined (__stub___on_exit) -choke me -#else -on_exit(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1237: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - rm -rf conftest* - eval "ac_cv_func_on_exit=yes" -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_on_exit=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'on_exit`\" = yes"; then - echo "$ac_t""yes" 1>&6 - cat >> confdefs.h <<\EOF -#define onexit on_exit -EOF - -else - echo "$ac_t""no" 1>&6 -fi - -fi - -fi - -else true -fi - -echo $ac_n "checking for drem in -lm""... $ac_c" 1>&6 -echo "configure:1267: checking for drem in -lm" >&5 -ac_lib_var=`echo m'_'drem | sed 'y%./+-%__p_%'` -if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - ac_save_LIBS="$LIBS" -LIBS="-lm $LIBS" -cat > conftest.$ac_ext <<EOF -#line 1275 "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 - builtin and then its argument prototype would still apply. */ -char drem(); - -int main() { -drem() -; return 0; } -EOF -if { (eval echo configure:1286: \"$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 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_lib_$ac_lib_var=no" -fi -rm -f conftest* -LIBS="$ac_save_LIBS" - -fi -if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then - echo "$ac_t""yes" 1>&6 - cat >> confdefs.h <<\EOF -#define IEEE_drem 1 -EOF - -else - echo "$ac_t""no" 1>&6 -fi - - -cat >> confdefs.h <<\EOF -#define Skip_f2c_Undefs 1 -EOF - - -trap '' 1 2 15 -cat > confcache <<\EOF -# This file is a shell script that caches the results of configure -# tests run on this system so they can be shared between configure -# scripts and configure runs. It is not useful on other systems. -# If it contains results you don't want to keep, you may remove or edit it. -# -# By default, configure uses ./config.cache as the cache file, -# creating it if it does not exist already. You can give configure -# the --cache-file=FILE option to use a different cache file; that is -# what configure does when it calls configure scripts in -# subdirectories, so they share the cache. -# Giving --cache-file=/dev/null disables caching, for debugging configure. -# config.status only pays attention to the cache file if you give it the -# --recheck option to rerun configure. -# -EOF -# The following way of writing the cache mishandles newlines in values, -# but we know of no workaround that is simple, portable, and efficient. -# So, don't put newlines in cache variables' values. -# Ultrix sh set writes to stderr and can't be redirected directly, -# and sets the high bit in the cache file unless we assign to the vars. -(set) 2>&1 | - case `(ac_space=' '; set | grep ac_space) 2>&1` in - *ac_space=\ *) - # `set' does not quote correctly, so add quotes (double-quote substitution - # turns \\\\ into \\, and sed turns \\ into \). - sed -n \ - -e "s/'/'\\\\''/g" \ - -e "s/^\\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\\)=\\(.*\\)/\\1=\${\\1='\\2'}/p" - ;; - *) - # `set' quotes correctly as required by POSIX, so do not add quotes. - sed -n -e 's/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=${\1=\2}/p' - ;; - esac >> confcache -if cmp -s $cache_file confcache; then - : -else - if test -w $cache_file; then - echo "updating cache $cache_file" - cat confcache > $cache_file - else - echo "not updating unwritable cache $cache_file" - fi -fi -rm -f confcache - -trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 - -test "x$prefix" = xNONE && prefix=$ac_default_prefix -# Let make expand exec_prefix. -test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' - -# Any assignment to VPATH causes Sun make to only execute -# the first set of double-colon rules, so remove it if not needed. -# If there is a colon in the path, we need to keep it. -if test "x$srcdir" = x.; then - ac_vpsub='/^[ ]*VPATH[ ]*=[^:]*$/d' -fi - -trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15 - -# Transform confdefs.h into DEFS. -# Protect against shell expansion while executing Makefile rules. -# Protect against Makefile macro expansion. -cat > conftest.defs <<\EOF -s%#define \([A-Za-z_][A-Za-z0-9_]*\) *\(.*\)%-D\1=\2%g -s%[ `~#$^&*(){}\\|;'"<>?]%\\&%g -s%\[%\\&%g -s%\]%\\&%g -s%\$%$$%g -EOF -DEFS=`sed -f conftest.defs confdefs.h | tr '\012' ' '` -rm -f conftest.defs - - -# Without the "./", some shells look in PATH for config.status. -: ${CONFIG_STATUS=./config.status} - -echo creating $CONFIG_STATUS -rm -f $CONFIG_STATUS -cat > $CONFIG_STATUS <<EOF -#! /bin/sh -# Generated automatically by configure. -# Run this file to recreate the current configuration. -# This directory was configured as follows, -# on host `(hostname || uname -n) 2>/dev/null | sed 1q`: -# -# $0 $ac_configure_args -# -# Compiler output produced by configure, useful for debugging -# configure, is in ./config.log if it exists. - -ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]" -for ac_option -do - case "\$ac_option" in - -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) - echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion" - exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;; - -version | --version | --versio | --versi | --vers | --ver | --ve | --v) - echo "$CONFIG_STATUS generated by autoconf version 2.13" - exit 0 ;; - -help | --help | --hel | --he | --h) - echo "\$ac_cs_usage"; exit 0 ;; - *) echo "\$ac_cs_usage"; exit 1 ;; - esac -done - -ac_given_srcdir=$srcdir - -trap 'rm -fr `echo "Makefile" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15 -EOF -cat >> $CONFIG_STATUS <<EOF - -# Protect against being on the right side of a sed subst in config.status. -sed 's/%@/@@/; s/@%/@@/; s/%g\$/@g/; /@g\$/s/[\\\\&%]/\\\\&/g; - s/@@/%@/; s/@@/@%/; s/@g\$/%g/' > conftest.subs <<\\CEOF -$ac_vpsub -$extrasub -s%@SHELL@%$SHELL%g -s%@CFLAGS@%$CFLAGS%g -s%@CPPFLAGS@%$CPPFLAGS%g -s%@CXXFLAGS@%$CXXFLAGS%g -s%@FFLAGS@%$FFLAGS%g -s%@DEFS@%$DEFS%g -s%@LDFLAGS@%$LDFLAGS%g -s%@LIBS@%$LIBS%g -s%@exec_prefix@%$exec_prefix%g -s%@prefix@%$prefix%g -s%@program_transform_name@%$program_transform_name%g -s%@bindir@%$bindir%g -s%@sbindir@%$sbindir%g -s%@libexecdir@%$libexecdir%g -s%@datadir@%$datadir%g -s%@sysconfdir@%$sysconfdir%g -s%@sharedstatedir@%$sharedstatedir%g -s%@localstatedir@%$localstatedir%g -s%@libdir@%$libdir%g -s%@includedir@%$includedir%g -s%@oldincludedir@%$oldincludedir%g -s%@infodir@%$infodir%g -s%@mandir@%$mandir%g -s%@CC@%$CC%g -s%@AR@%$AR%g -s%@SET_MAKE@%$SET_MAKE%g -s%@CPP@%$CPP%g - -CEOF -EOF - -cat >> $CONFIG_STATUS <<\EOF - -# Split the substitutions into bite-sized pieces for seds with -# small command number limits, like on Digital OSF/1 and HP-UX. -ac_max_sed_cmds=90 # Maximum number of lines to put in a sed script. -ac_file=1 # Number of current file. -ac_beg=1 # First line for current file. -ac_end=$ac_max_sed_cmds # Line after last line for current file. -ac_more_lines=: -ac_sed_cmds="" -while $ac_more_lines; do - if test $ac_beg -gt 1; then - sed "1,${ac_beg}d; ${ac_end}q" conftest.subs > conftest.s$ac_file - else - sed "${ac_end}q" conftest.subs > conftest.s$ac_file - fi - if test ! -s conftest.s$ac_file; then - ac_more_lines=false - rm -f conftest.s$ac_file - else - if test -z "$ac_sed_cmds"; then - ac_sed_cmds="sed -f conftest.s$ac_file" - else - ac_sed_cmds="$ac_sed_cmds | sed -f conftest.s$ac_file" - fi - ac_file=`expr $ac_file + 1` - ac_beg=$ac_end - ac_end=`expr $ac_end + $ac_max_sed_cmds` - fi -done -if test -z "$ac_sed_cmds"; then - ac_sed_cmds=cat -fi -EOF - -cat >> $CONFIG_STATUS <<EOF - -CONFIG_FILES=\${CONFIG_FILES-"Makefile"} -EOF -cat >> $CONFIG_STATUS <<\EOF -for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then - # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". - case "$ac_file" in - *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` - ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; - *) ac_file_in="${ac_file}.in" ;; - esac - - # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories. - - # Remove last slash and all that follows it. Not all systems have dirname. - ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` - if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then - # The file is in a subdirectory. - test ! -d "$ac_dir" && mkdir "$ac_dir" - ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`" - # A "../" for each directory in $ac_dir_suffix. - ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'` - else - ac_dir_suffix= ac_dots= - fi - - case "$ac_given_srcdir" in - .) srcdir=. - if test -z "$ac_dots"; then top_srcdir=. - else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;; - /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;; - *) # Relative path. - srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix" - top_srcdir="$ac_dots$ac_given_srcdir" ;; - esac - - - echo creating "$ac_file" - rm -f "$ac_file" - configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure." - case "$ac_file" in - *Makefile*) ac_comsub="1i\\ -# $configure_input" ;; - *) ac_comsub= ;; - esac - - ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` - sed -e "$ac_comsub -s%@configure_input@%$configure_input%g -s%@srcdir@%$srcdir%g -s%@top_srcdir@%$top_srcdir%g -" $ac_file_inputs | (eval "$ac_sed_cmds") > $ac_file -fi; done -rm -f conftest.s* - -EOF -cat >> $CONFIG_STATUS <<EOF - -EOF -cat >> $CONFIG_STATUS <<\EOF - -exit 0 -EOF -chmod +x $CONFIG_STATUS -rm -fr confdefs* $ac_clean_files -test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1 - - diff --git a/gnu/egcs/libf2c/libF77/configure.in b/gnu/egcs/libf2c/libF77/configure.in deleted file mode 100644 index 5a3aa1a8d83..00000000000 --- a/gnu/egcs/libf2c/libF77/configure.in +++ /dev/null @@ -1,108 +0,0 @@ -# Process this file with autoconf to produce a configure script. -# Copyright (C) 1995, 1997, 1998 Free Software Foundation, Inc. -# Contributed by Dave Love (d.love@dl.ac.uk). -# -#This file is part of GNU Fortran. -# -#GNU Fortran is free software; you can redistribute it and/or modify -#it under the terms of the GNU General Public License as published by -#the Free Software Foundation; either version 2, or (at your option) -#any later version. -# -#GNU Fortran is distributed in the hope that it will be useful, -#but WITHOUT ANY WARRANTY; without even the implied warranty of -#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#GNU General Public License for more details. -# -#You should have received a copy of the GNU General Public License -#along with GNU Fortran; see the file COPYING. If not, write to -#the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -#02111-1307, USA. - -AC_PREREQ(2.12.1) -AC_INIT(getarg_.c) - -dnl Checks for programs. -# For g77 we'll set CC to point at the built gcc, but this will get it into -# the makefiles -AC_PROG_CC - -test "$AR" || AR=ar -AC_SUBST(AR) -AC_PROG_MAKE_SET - -dnl Checks for libraries. - -dnl Checks for header files. -# Sanity check for the cross-compilation case: -AC_CHECK_HEADER(stdio.h,:, - [AC_MSG_ERROR([Can't find stdio.h. -You must have a usable C system for the target already installed, at least -including headers and, preferably, the library, before you can configure -the G77 runtime system. If necessary, install gcc now with \`LANGUAGES=c', -then the target library, then build with \`LANGUAGES=f77'.])]) - -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(g77_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 g77_cv_sys_proto=yes, -dnl [g77_cv_sys_proto=no -dnl AC_DEFINE(KR_headers)])]) -dnl AC_MSG_RESULT($g77_cv_sys_proto) - -AC_MSG_CHECKING(for posix) -AC_CACHE_VAL(g77_cv_header_posix, - AC_EGREP_CPP(yes, - [#include <sys/types.h> -#include <unistd.h> -#ifdef _POSIX_VERSION - yes -#endif -], - g77_cv_header_posix=yes, - g77_cv_header_posix=no)) -AC_MSG_RESULT($g77_cv_header_posix) - -# We can rely on the GNU library being posix-ish. I guess checking the -# header isn't actually like checking the functions, though... -AC_MSG_CHECKING(for GNU library) -AC_CACHE_VAL(g77_cv_lib_gnu, - AC_EGREP_CPP(yes, - [#include <stdio.h> -#ifdef __GNU_LIBRARY__ - yes -#endif -], - g77_cv_lib_gnu=yes, g77_cv_lib_gnu=no)) -AC_MSG_RESULT($g77_cv_lib_gnu) - -dnl Checks for library functions. -AC_TYPE_SIGNAL -# we'll get atexit by default -if test $ac_cv_header_stdc != yes; then -AC_CHECK_FUNC(atexit, - AC_DEFINE(onexit,atexit),dnl just in case - [AC_DEFINE(NO_ONEXIT) - AC_CHECK_FUNC(onexit,, - [AC_CHECK_FUNC(on_exit, - AC_DEFINE(onexit,on_exit),)])]) -else true -fi - -dnl perhaps should check also for remainder -dnl Unfortunately, the message implies we're just checking for -lm... -AC_CHECK_LIB(m,drem,AC_DEFINE(IEEE_drem)) - -AC_DEFINE(Skip_f2c_Undefs) - -AC_OUTPUT(Makefile) - -dnl Local Variables: -dnl comment-start: "dnl " -dnl comment-end: "" -dnl comment-start-skip: "\\bdnl\\b\\s *" -dnl End: diff --git a/gnu/egcs/libf2c/libF77/d_abs.c b/gnu/egcs/libf2c/libF77/d_abs.c deleted file mode 100644 index cb157e067b7..00000000000 --- a/gnu/egcs/libf2c/libF77/d_abs.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double d_abs(x) doublereal *x; -#else -double d_abs(doublereal *x) -#endif -{ -if(*x >= 0) - return(*x); -return(- *x); -} diff --git a/gnu/egcs/libf2c/libF77/d_acos.c b/gnu/egcs/libf2c/libF77/d_acos.c deleted file mode 100644 index 33da5369db2..00000000000 --- a/gnu/egcs/libf2c/libF77/d_acos.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double acos(); -double d_acos(x) doublereal *x; -#else -#undef abs -#include <math.h> -double d_acos(doublereal *x) -#endif -{ -return( acos(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/d_asin.c b/gnu/egcs/libf2c/libF77/d_asin.c deleted file mode 100644 index 79b33ca1bd6..00000000000 --- a/gnu/egcs/libf2c/libF77/d_asin.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double asin(); -double d_asin(x) doublereal *x; -#else -#undef abs -#include <math.h> -double d_asin(doublereal *x) -#endif -{ -return( asin(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/d_atan.c b/gnu/egcs/libf2c/libF77/d_atan.c deleted file mode 100644 index caea4a406e0..00000000000 --- a/gnu/egcs/libf2c/libF77/d_atan.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double atan(); -double d_atan(x) doublereal *x; -#else -#undef abs -#include <math.h> -double d_atan(doublereal *x) -#endif -{ -return( atan(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/d_atn2.c b/gnu/egcs/libf2c/libF77/d_atn2.c deleted file mode 100644 index 6748a55d56f..00000000000 --- a/gnu/egcs/libf2c/libF77/d_atn2.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double atan2(); -double d_atn2(x,y) doublereal *x, *y; -#else -#undef abs -#include <math.h> -double d_atn2(doublereal *x, doublereal *y) -#endif -{ -return( atan2(*x,*y) ); -} diff --git a/gnu/egcs/libf2c/libF77/d_cnjg.c b/gnu/egcs/libf2c/libF77/d_cnjg.c deleted file mode 100644 index c1970a56da9..00000000000 --- a/gnu/egcs/libf2c/libF77/d_cnjg.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - - VOID -#ifdef KR_headers -d_cnjg(r, z) doublecomplex *r, *z; -#else -d_cnjg(doublecomplex *r, doublecomplex *z) -#endif -{ - doublereal zi = z->i; - r->r = z->r; - r->i = -zi; - } diff --git a/gnu/egcs/libf2c/libF77/d_cos.c b/gnu/egcs/libf2c/libF77/d_cos.c deleted file mode 100644 index fa4d6ca406f..00000000000 --- a/gnu/egcs/libf2c/libF77/d_cos.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double cos(); -double d_cos(x) doublereal *x; -#else -#undef abs -#include <math.h> -double d_cos(doublereal *x) -#endif -{ -return( cos(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/d_cosh.c b/gnu/egcs/libf2c/libF77/d_cosh.c deleted file mode 100644 index edc0ebc1092..00000000000 --- a/gnu/egcs/libf2c/libF77/d_cosh.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double cosh(); -double d_cosh(x) doublereal *x; -#else -#undef abs -#include <math.h> -double d_cosh(doublereal *x) -#endif -{ -return( cosh(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/d_dim.c b/gnu/egcs/libf2c/libF77/d_dim.c deleted file mode 100644 index 1d0ecb7bbb6..00000000000 --- a/gnu/egcs/libf2c/libF77/d_dim.c +++ /dev/null @@ -1,10 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double d_dim(a,b) doublereal *a, *b; -#else -double d_dim(doublereal *a, doublereal *b) -#endif -{ -return( *a > *b ? *a - *b : 0); -} diff --git a/gnu/egcs/libf2c/libF77/d_exp.c b/gnu/egcs/libf2c/libF77/d_exp.c deleted file mode 100644 index be12fd70551..00000000000 --- a/gnu/egcs/libf2c/libF77/d_exp.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double exp(); -double d_exp(x) doublereal *x; -#else -#undef abs -#include <math.h> -double d_exp(doublereal *x) -#endif -{ -return( exp(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/d_imag.c b/gnu/egcs/libf2c/libF77/d_imag.c deleted file mode 100644 index 793a3f9c405..00000000000 --- a/gnu/egcs/libf2c/libF77/d_imag.c +++ /dev/null @@ -1,10 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double d_imag(z) doublecomplex *z; -#else -double d_imag(doublecomplex *z) -#endif -{ -return(z->i); -} diff --git a/gnu/egcs/libf2c/libF77/d_int.c b/gnu/egcs/libf2c/libF77/d_int.c deleted file mode 100644 index beff1e7d378..00000000000 --- a/gnu/egcs/libf2c/libF77/d_int.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double floor(); -double d_int(x) doublereal *x; -#else -#undef abs -#include <math.h> -double d_int(doublereal *x) -#endif -{ -return( (*x>0) ? floor(*x) : -floor(- *x) ); -} diff --git a/gnu/egcs/libf2c/libF77/d_lg10.c b/gnu/egcs/libf2c/libF77/d_lg10.c deleted file mode 100644 index c0892bd512a..00000000000 --- a/gnu/egcs/libf2c/libF77/d_lg10.c +++ /dev/null @@ -1,15 +0,0 @@ -#include "f2c.h" - -#define log10e 0.43429448190325182765 - -#ifdef KR_headers -double log(); -double d_lg10(x) doublereal *x; -#else -#undef abs -#include <math.h> -double d_lg10(doublereal *x) -#endif -{ -return( log10e * log(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/d_log.c b/gnu/egcs/libf2c/libF77/d_log.c deleted file mode 100644 index 592015b2821..00000000000 --- a/gnu/egcs/libf2c/libF77/d_log.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double log(); -double d_log(x) doublereal *x; -#else -#undef abs -#include <math.h> -double d_log(doublereal *x) -#endif -{ -return( log(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/d_mod.c b/gnu/egcs/libf2c/libF77/d_mod.c deleted file mode 100644 index 23f19299168..00000000000 --- a/gnu/egcs/libf2c/libF77/d_mod.c +++ /dev/null @@ -1,40 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -#ifdef IEEE_drem -double drem(); -#else -double floor(); -#endif -double d_mod(x,y) doublereal *x, *y; -#else -#ifdef IEEE_drem -double drem(double, double); -#else -#undef abs -#include <math.h> -#endif -double d_mod(doublereal *x, doublereal *y) -#endif -{ -#ifdef IEEE_drem - double xa, ya, z; - if ((ya = *y) < 0.) - ya = -ya; - z = drem(xa = *x, ya); - if (xa > 0) { - if (z < 0) - z += ya; - } - else if (z > 0) - z -= ya; - return z; -#else - double quotient; - if( (quotient = *x / *y) >= 0) - quotient = floor(quotient); - else - quotient = -floor(-quotient); - return(*x - (*y) * quotient ); -#endif -} diff --git a/gnu/egcs/libf2c/libF77/d_nint.c b/gnu/egcs/libf2c/libF77/d_nint.c deleted file mode 100644 index 064beff669c..00000000000 --- a/gnu/egcs/libf2c/libF77/d_nint.c +++ /dev/null @@ -1,14 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double floor(); -double d_nint(x) doublereal *x; -#else -#undef abs -#include <math.h> -double d_nint(doublereal *x) -#endif -{ -return( (*x)>=0 ? - floor(*x + .5) : -floor(.5 - *x) ); -} diff --git a/gnu/egcs/libf2c/libF77/d_prod.c b/gnu/egcs/libf2c/libF77/d_prod.c deleted file mode 100644 index 3d4cef7835c..00000000000 --- a/gnu/egcs/libf2c/libF77/d_prod.c +++ /dev/null @@ -1,10 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double d_prod(x,y) real *x, *y; -#else -double d_prod(real *x, real *y) -#endif -{ -return( (*x) * (*y) ); -} diff --git a/gnu/egcs/libf2c/libF77/d_sign.c b/gnu/egcs/libf2c/libF77/d_sign.c deleted file mode 100644 index 514ff0bbff8..00000000000 --- a/gnu/egcs/libf2c/libF77/d_sign.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double d_sign(a,b) doublereal *a, *b; -#else -double d_sign(doublereal *a, doublereal *b) -#endif -{ -double x; -x = (*a >= 0 ? *a : - *a); -return( *b >= 0 ? x : -x); -} diff --git a/gnu/egcs/libf2c/libF77/d_sin.c b/gnu/egcs/libf2c/libF77/d_sin.c deleted file mode 100644 index fdd699eede5..00000000000 --- a/gnu/egcs/libf2c/libF77/d_sin.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double sin(); -double d_sin(x) doublereal *x; -#else -#undef abs -#include <math.h> -double d_sin(doublereal *x) -#endif -{ -return( sin(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/d_sinh.c b/gnu/egcs/libf2c/libF77/d_sinh.c deleted file mode 100644 index 77f36904f8e..00000000000 --- a/gnu/egcs/libf2c/libF77/d_sinh.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double sinh(); -double d_sinh(x) doublereal *x; -#else -#undef abs -#include <math.h> -double d_sinh(doublereal *x) -#endif -{ -return( sinh(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/d_sqrt.c b/gnu/egcs/libf2c/libF77/d_sqrt.c deleted file mode 100644 index b5cf83b946f..00000000000 --- a/gnu/egcs/libf2c/libF77/d_sqrt.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double sqrt(); -double d_sqrt(x) doublereal *x; -#else -#undef abs -#include <math.h> -double d_sqrt(doublereal *x) -#endif -{ -return( sqrt(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/d_tan.c b/gnu/egcs/libf2c/libF77/d_tan.c deleted file mode 100644 index af94a053223..00000000000 --- a/gnu/egcs/libf2c/libF77/d_tan.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double tan(); -double d_tan(x) doublereal *x; -#else -#undef abs -#include <math.h> -double d_tan(doublereal *x) -#endif -{ -return( tan(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/d_tanh.c b/gnu/egcs/libf2c/libF77/d_tanh.c deleted file mode 100644 index 92a02d4fd6b..00000000000 --- a/gnu/egcs/libf2c/libF77/d_tanh.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double tanh(); -double d_tanh(x) doublereal *x; -#else -#undef abs -#include <math.h> -double d_tanh(doublereal *x) -#endif -{ -return( tanh(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/derf_.c b/gnu/egcs/libf2c/libF77/derf_.c deleted file mode 100644 index fba6b6b11f3..00000000000 --- a/gnu/egcs/libf2c/libF77/derf_.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double erf(); -double G77_derf_0 (x) doublereal *x; -#else -extern double erf(double); -double G77_derf_0 (doublereal *x) -#endif -{ -return( erf(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/derfc_.c b/gnu/egcs/libf2c/libF77/derfc_.c deleted file mode 100644 index ae1ac740302..00000000000 --- a/gnu/egcs/libf2c/libF77/derfc_.c +++ /dev/null @@ -1,14 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern double erfc(); - -double G77_derfc_0 (x) doublereal *x; -#else -extern double erfc(double); - -double G77_derfc_0 (doublereal *x) -#endif -{ -return( erfc(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/dtime_.c b/gnu/egcs/libf2c/libF77/dtime_.c deleted file mode 100644 index 4b37320d43b..00000000000 --- a/gnu/egcs/libf2c/libF77/dtime_.c +++ /dev/null @@ -1,53 +0,0 @@ -#include "time.h" - -#ifdef MSDOS -#undef USE_CLOCK -#define USE_CLOCK -#endif - -#ifndef USE_CLOCK -#define _INCLUDE_POSIX_SOURCE /* for HP-UX */ -#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */ -#include "sys/types.h" -#include "sys/times.h" -#endif - -#undef Hz -#ifdef CLK_TCK -#define Hz CLK_TCK -#else -#ifdef HZ -#define Hz HZ -#else -#define Hz 60 -#endif -#endif - - double -#ifdef KR_headers -dtime_(tarray) float *tarray; -#else -dtime_(float *tarray) -#endif -{ -#ifdef USE_CLOCK -#ifndef CLOCKS_PER_SECOND -#define CLOCKS_PER_SECOND Hz -#endif - static double t0; - double t = clock(); - tarray[1] = 0; - tarray[0] = (t - t0) / CLOCKS_PER_SECOND; - t0 = t; - return tarray[0]; -#else - struct tms t; - static struct tms t0; - - times(&t); - tarray[0] = (t.tms_utime - t0.tms_utime) / Hz; - tarray[1] = (t.tms_stime - t0.tms_stime) / Hz; - t0 = t; - return tarray[0] + tarray[1]; -#endif - } diff --git a/gnu/egcs/libf2c/libF77/ef1asc_.c b/gnu/egcs/libf2c/libF77/ef1asc_.c deleted file mode 100644 index 8588584fbab..00000000000 --- a/gnu/egcs/libf2c/libF77/ef1asc_.c +++ /dev/null @@ -1,19 +0,0 @@ -/* EFL support routine to copy string b to string a */ - -#include "f2c.h" - - -#define M ( (long) (sizeof(long) - 1) ) -#define EVEN(x) ( ( (x)+ M) & (~M) ) - -#ifdef KR_headers -extern VOID s_copy(); -G77_ef1asc_0 (a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb; -#else -extern void s_copy(char*,char*,ftnlen,ftnlen); -int G77_ef1asc_0 (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb) -#endif -{ -s_copy( (char *)a, (char *)b, EVEN(*la), *lb ); -return 0; /* ignored return value */ -} diff --git a/gnu/egcs/libf2c/libF77/ef1cmc_.c b/gnu/egcs/libf2c/libF77/ef1cmc_.c deleted file mode 100644 index f471172935f..00000000000 --- a/gnu/egcs/libf2c/libF77/ef1cmc_.c +++ /dev/null @@ -1,14 +0,0 @@ -/* EFL support routine to compare two character strings */ - -#include "f2c.h" - -#ifdef KR_headers -extern integer s_cmp(); -integer G77_ef1cmc_0 (a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb; -#else -extern integer s_cmp(char*,char*,ftnlen,ftnlen); -integer G77_ef1cmc_0 (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb) -#endif -{ -return( s_cmp( (char *)a, (char *)b, *la, *lb) ); -} diff --git a/gnu/egcs/libf2c/libF77/erf_.c b/gnu/egcs/libf2c/libF77/erf_.c deleted file mode 100644 index 1ba4350ad05..00000000000 --- a/gnu/egcs/libf2c/libF77/erf_.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double erf(); -double G77_erf_0 (x) real *x; -#else -extern double erf(double); -double G77_erf_0 (real *x) -#endif -{ -return( erf(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/erfc_.c b/gnu/egcs/libf2c/libF77/erfc_.c deleted file mode 100644 index f44b1d49d84..00000000000 --- a/gnu/egcs/libf2c/libF77/erfc_.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double erfc(); -double G77_erfc_0 (x) real *x; -#else -extern double erfc(double); -double G77_erfc_0 (real *x) -#endif -{ -return( erfc(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/etime_.c b/gnu/egcs/libf2c/libF77/etime_.c deleted file mode 100644 index e88cfd88648..00000000000 --- a/gnu/egcs/libf2c/libF77/etime_.c +++ /dev/null @@ -1,46 +0,0 @@ -#include "time.h" - -#ifdef MSDOS -#undef USE_CLOCK -#define USE_CLOCK -#endif - -#ifndef USE_CLOCK -#define _INCLUDE_POSIX_SOURCE /* for HP-UX */ -#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */ -#include "sys/types.h" -#include "sys/times.h" -#endif - -#undef Hz -#ifdef CLK_TCK -#define Hz CLK_TCK -#else -#ifdef HZ -#define Hz HZ -#else -#define Hz 60 -#endif -#endif - - double -#ifdef KR_headers -etime_(tarray) float *tarray; -#else -etime_(float *tarray) -#endif -{ -#ifdef USE_CLOCK -#ifndef CLOCKS_PER_SECOND -#define CLOCKS_PER_SECOND Hz -#endif - double t = clock(); - tarray[1] = 0; - return tarray[0] = t / CLOCKS_PER_SECOND; -#else - struct tms t; - - times(&t); - return (tarray[0] = t.tms_utime/Hz) + (tarray[1] = t.tms_stime/Hz); -#endif - } diff --git a/gnu/egcs/libf2c/libF77/exit_.c b/gnu/egcs/libf2c/libF77/exit_.c deleted file mode 100644 index 4c0582add12..00000000000 --- a/gnu/egcs/libf2c/libF77/exit_.c +++ /dev/null @@ -1,37 +0,0 @@ -/* This gives the effect of - - subroutine exit(rc) - integer*4 rc - stop - end - - * with the added side effect of supplying rc as the program's exit code. - */ - -#include "f2c.h" -#undef abs -#undef min -#undef max -#ifndef KR_headers -#include <stdlib.h> -#ifdef __cplusplus -extern "C" { -#endif -extern void f_exit(void); -#endif - - void -#ifdef KR_headers -G77_exit_0 (rc) integer *rc; -#else -G77_exit_0 (integer *rc) -#endif -{ -#ifdef NO_ONEXIT - f_exit(); -#endif - exit(*rc); - } -#ifdef __cplusplus -} -#endif diff --git a/gnu/egcs/libf2c/libF77/f2ch.add b/gnu/egcs/libf2c/libF77/f2ch.add deleted file mode 100644 index a2acc17a159..00000000000 --- a/gnu/egcs/libf2c/libF77/f2ch.add +++ /dev/null @@ -1,162 +0,0 @@ -/* If you are using a C++ compiler, append the following to f2c.h - for compiling libF77 and libI77. */ - -#ifdef __cplusplus -extern "C" { -extern int abort_(void); -extern double c_abs(complex *); -extern void c_cos(complex *, complex *); -extern void c_div(complex *, complex *, complex *); -extern void c_exp(complex *, complex *); -extern void c_log(complex *, complex *); -extern void c_sin(complex *, complex *); -extern void c_sqrt(complex *, complex *); -extern double d_abs(double *); -extern double d_acos(double *); -extern double d_asin(double *); -extern double d_atan(double *); -extern double d_atn2(double *, double *); -extern void d_cnjg(doublecomplex *, doublecomplex *); -extern double d_cos(double *); -extern double d_cosh(double *); -extern double d_dim(double *, double *); -extern double d_exp(double *); -extern double d_imag(doublecomplex *); -extern double d_int(double *); -extern double d_lg10(double *); -extern double d_log(double *); -extern double d_mod(double *, double *); -extern double d_nint(double *); -extern double d_prod(float *, float *); -extern double d_sign(double *, double *); -extern double d_sin(double *); -extern double d_sinh(double *); -extern double d_sqrt(double *); -extern double d_tan(double *); -extern double d_tanh(double *); -extern double derf_(double *); -extern double derfc_(double *); -extern integer do_fio(ftnint *, char *, ftnlen); -extern integer do_lio(ftnint *, ftnint *, char *, ftnlen); -extern integer do_uio(ftnint *, char *, ftnlen); -extern integer e_rdfe(void); -extern integer e_rdue(void); -extern integer e_rsfe(void); -extern integer e_rsfi(void); -extern integer e_rsle(void); -extern integer e_rsli(void); -extern integer e_rsue(void); -extern integer e_wdfe(void); -extern integer e_wdue(void); -extern integer e_wsfe(void); -extern integer e_wsfi(void); -extern integer e_wsle(void); -extern integer e_wsli(void); -extern integer e_wsue(void); -extern int ef1asc_(ftnint *, ftnlen *, ftnint *, ftnlen *); -extern integer ef1cmc_(ftnint *, ftnlen *, ftnint *, ftnlen *); -extern double erf(double); -extern double erf_(float *); -extern double erfc(double); -extern double erfc_(float *); -extern integer f_back(alist *); -extern integer f_clos(cllist *); -extern integer f_end(alist *); -extern void f_exit(void); -extern integer f_inqu(inlist *); -extern integer f_open(olist *); -extern integer f_rew(alist *); -extern int flush_(void); -extern void getarg_(integer *, char *, ftnlen); -extern void getenv_(char *, char *, ftnlen, ftnlen); -extern short h_abs(short *); -extern short h_dim(short *, short *); -extern short h_dnnt(double *); -extern short h_indx(char *, char *, ftnlen, ftnlen); -extern short h_len(char *, ftnlen); -extern short h_mod(short *, short *); -extern short h_nint(float *); -extern short h_sign(short *, short *); -extern short hl_ge(char *, char *, ftnlen, ftnlen); -extern short hl_gt(char *, char *, ftnlen, ftnlen); -extern short hl_le(char *, char *, ftnlen, ftnlen); -extern short hl_lt(char *, char *, ftnlen, ftnlen); -extern integer i_abs(integer *); -extern integer i_dim(integer *, integer *); -extern integer i_dnnt(double *); -extern integer i_indx(char *, char *, ftnlen, ftnlen); -extern integer i_len(char *, ftnlen); -extern integer i_mod(integer *, integer *); -extern integer i_nint(float *); -extern integer i_sign(integer *, integer *); -extern integer iargc_(void); -extern ftnlen l_ge(char *, char *, ftnlen, ftnlen); -extern ftnlen l_gt(char *, char *, ftnlen, ftnlen); -extern ftnlen l_le(char *, char *, ftnlen, ftnlen); -extern ftnlen l_lt(char *, char *, ftnlen, ftnlen); -extern void pow_ci(complex *, complex *, integer *); -extern double pow_dd(double *, double *); -extern double pow_di(double *, integer *); -extern short pow_hh(short *, shortint *); -extern integer pow_ii(integer *, integer *); -extern double pow_ri(float *, integer *); -extern void pow_zi(doublecomplex *, doublecomplex *, integer *); -extern void pow_zz(doublecomplex *, doublecomplex *, doublecomplex *); -extern double r_abs(float *); -extern double r_acos(float *); -extern double r_asin(float *); -extern double r_atan(float *); -extern double r_atn2(float *, float *); -extern void r_cnjg(complex *, complex *); -extern double r_cos(float *); -extern double r_cosh(float *); -extern double r_dim(float *, float *); -extern double r_exp(float *); -extern double r_imag(complex *); -extern double r_int(float *); -extern double r_lg10(float *); -extern double r_log(float *); -extern double r_mod(float *, float *); -extern double r_nint(float *); -extern double r_sign(float *, float *); -extern double r_sin(float *); -extern double r_sinh(float *); -extern double r_sqrt(float *); -extern double r_tan(float *); -extern double r_tanh(float *); -extern void s_cat(char *, char **, integer *, integer *, ftnlen); -extern integer s_cmp(char *, char *, ftnlen, ftnlen); -extern void s_copy(char *, char *, ftnlen, ftnlen); -extern int s_paus(char *, ftnlen); -extern integer s_rdfe(cilist *); -extern integer s_rdue(cilist *); -extern integer s_rnge(char *, integer, char *, integer); -extern integer s_rsfe(cilist *); -extern integer s_rsfi(icilist *); -extern integer s_rsle(cilist *); -extern integer s_rsli(icilist *); -extern integer s_rsne(cilist *); -extern integer s_rsni(icilist *); -extern integer s_rsue(cilist *); -extern int s_stop(char *, ftnlen); -extern integer s_wdfe(cilist *); -extern integer s_wdue(cilist *); -extern integer s_wsfe(cilist *); -extern integer s_wsfi(icilist *); -extern integer s_wsle(cilist *); -extern integer s_wsli(icilist *); -extern integer s_wsne(cilist *); -extern integer s_wsni(icilist *); -extern integer s_wsue(cilist *); -extern void sig_die(char *, int); -extern integer signal_(integer *, void (*)(int)); -extern integer system_(char *, ftnlen); -extern double z_abs(doublecomplex *); -extern void z_cos(doublecomplex *, doublecomplex *); -extern void z_div(doublecomplex *, doublecomplex *, doublecomplex *); -extern void z_exp(doublecomplex *, doublecomplex *); -extern void z_log(doublecomplex *, doublecomplex *); -extern void z_sin(doublecomplex *, doublecomplex *); -extern void z_sqrt(doublecomplex *, doublecomplex *); - } -#endif diff --git a/gnu/egcs/libf2c/libF77/getarg_.c b/gnu/egcs/libf2c/libF77/getarg_.c deleted file mode 100644 index 5cf3ffb8599..00000000000 --- a/gnu/egcs/libf2c/libF77/getarg_.c +++ /dev/null @@ -1,28 +0,0 @@ -#include "f2c.h" - -/* - * subroutine getarg(k, c) - * returns the kth unix command argument in fortran character - * variable argument c -*/ - -#ifdef KR_headers -VOID G77_getarg_0 (n, s, ls) ftnint *n; register char *s; ftnlen ls; -#else -void G77_getarg_0 (ftnint *n, register char *s, ftnlen ls) -#endif -{ -extern int f__xargc; -extern char **f__xargv; -register char *t; -register int i; - -if(*n>=0 && *n<f__xargc) - t = f__xargv[*n]; -else - t = ""; -for(i = 0; i<ls && *t!='\0' ; ++i) - *s++ = *t++; -for( ; i<ls ; ++i) - *s++ = ' '; -} diff --git a/gnu/egcs/libf2c/libF77/getenv_.c b/gnu/egcs/libf2c/libF77/getenv_.c deleted file mode 100644 index 4d0b7cf7b04..00000000000 --- a/gnu/egcs/libf2c/libF77/getenv_.c +++ /dev/null @@ -1,56 +0,0 @@ -#include "f2c.h" -#undef abs -#ifdef KR_headers -extern char *F77_aloc(), *getenv(); -#else -#include <stdlib.h> -#include <string.h> -extern char *F77_aloc(ftnlen, char*); -#endif - -/* - * getenv - f77 subroutine to return environment variables - * - * called by: - * call getenv (ENV_NAME, char_var) - * where: - * ENV_NAME is the name of an environment variable - * char_var is a character variable which will receive - * the current value of ENV_NAME, or all blanks - * if ENV_NAME is not defined - */ - -#ifdef KR_headers - VOID -G77_getenv_0 (fname, value, flen, vlen) char *value, *fname; ftnlen vlen, flen; -#else - void -G77_getenv_0 (char *fname, char *value, ftnlen flen, ftnlen vlen) -#endif -{ - char buf[256], *ep, *fp; - integer i; - - if (flen <= 0) - goto add_blanks; - for(i = 0; i < sizeof(buf); i++) { - if (i == flen || (buf[i] = fname[i]) == ' ') { - buf[i] = 0; - ep = getenv(buf); - goto have_ep; - } - } - while(i < flen && fname[i] != ' ') - i++; - strncpy(fp = F77_aloc(i+1, "getenv_"), fname, (int)i); - fp[i] = 0; - ep = getenv(fp); - free(fp); - have_ep: - if (ep) - while(*ep && vlen-- > 0) - *value++ = *ep++; - add_blanks: - while(vlen-- > 0) - *value++ = ' '; - } diff --git a/gnu/egcs/libf2c/libF77/h_abs.c b/gnu/egcs/libf2c/libF77/h_abs.c deleted file mode 100644 index 73b82151ac1..00000000000 --- a/gnu/egcs/libf2c/libF77/h_abs.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -shortint h_abs(x) shortint *x; -#else -shortint h_abs(shortint *x) -#endif -{ -if(*x >= 0) - return(*x); -return(- *x); -} diff --git a/gnu/egcs/libf2c/libF77/h_dim.c b/gnu/egcs/libf2c/libF77/h_dim.c deleted file mode 100644 index ceff660e26c..00000000000 --- a/gnu/egcs/libf2c/libF77/h_dim.c +++ /dev/null @@ -1,10 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -shortint h_dim(a,b) shortint *a, *b; -#else -shortint h_dim(shortint *a, shortint *b) -#endif -{ -return( *a > *b ? *a - *b : 0); -} diff --git a/gnu/egcs/libf2c/libF77/h_dnnt.c b/gnu/egcs/libf2c/libF77/h_dnnt.c deleted file mode 100644 index 005ac6fc412..00000000000 --- a/gnu/egcs/libf2c/libF77/h_dnnt.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double floor(); -shortint h_dnnt(x) doublereal *x; -#else -#undef abs -#include <math.h> -shortint h_dnnt(doublereal *x) -#endif -{ -return (shortint)(*x >= 0. ? floor(*x + .5) : -floor(.5 - *x)); -} diff --git a/gnu/egcs/libf2c/libF77/h_indx.c b/gnu/egcs/libf2c/libF77/h_indx.c deleted file mode 100644 index a211cc7fa0f..00000000000 --- a/gnu/egcs/libf2c/libF77/h_indx.c +++ /dev/null @@ -1,26 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -shortint h_indx(a, b, la, lb) char *a, *b; ftnlen la, lb; -#else -shortint h_indx(char *a, char *b, ftnlen la, ftnlen lb) -#endif -{ -ftnlen i, n; -char *s, *t, *bend; - -n = la - lb + 1; -bend = b + lb; - -for(i = 0 ; i < n ; ++i) - { - s = a + i; - t = b; - while(t < bend) - if(*s++ != *t++) - goto no; - return((shortint)i+1); - no: ; - } -return(0); -} diff --git a/gnu/egcs/libf2c/libF77/h_len.c b/gnu/egcs/libf2c/libF77/h_len.c deleted file mode 100644 index 00a2151bfa1..00000000000 --- a/gnu/egcs/libf2c/libF77/h_len.c +++ /dev/null @@ -1,10 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -shortint h_len(s, n) char *s; ftnlen n; -#else -shortint h_len(char *s, ftnlen n) -#endif -{ -return(n); -} diff --git a/gnu/egcs/libf2c/libF77/h_mod.c b/gnu/egcs/libf2c/libF77/h_mod.c deleted file mode 100644 index 43431c1c503..00000000000 --- a/gnu/egcs/libf2c/libF77/h_mod.c +++ /dev/null @@ -1,10 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -shortint h_mod(a,b) short *a, *b; -#else -shortint h_mod(short *a, short *b) -#endif -{ -return( *a % *b); -} diff --git a/gnu/egcs/libf2c/libF77/h_nint.c b/gnu/egcs/libf2c/libF77/h_nint.c deleted file mode 100644 index 6b8dc29b154..00000000000 --- a/gnu/egcs/libf2c/libF77/h_nint.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double floor(); -shortint h_nint(x) real *x; -#else -#undef abs -#include <math.h> -shortint h_nint(real *x) -#endif -{ -return (shortint)(*x >= 0 ? floor(*x + .5) : -floor(.5 - *x)); -} diff --git a/gnu/egcs/libf2c/libF77/h_sign.c b/gnu/egcs/libf2c/libF77/h_sign.c deleted file mode 100644 index 7b06c157a74..00000000000 --- a/gnu/egcs/libf2c/libF77/h_sign.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -shortint h_sign(a,b) shortint *a, *b; -#else -shortint h_sign(shortint *a, shortint *b) -#endif -{ -shortint x; -x = (*a >= 0 ? *a : - *a); -return( *b >= 0 ? x : -x); -} diff --git a/gnu/egcs/libf2c/libF77/hl_ge.c b/gnu/egcs/libf2c/libF77/hl_ge.c deleted file mode 100644 index 4c29527065a..00000000000 --- a/gnu/egcs/libf2c/libF77/hl_ge.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern integer s_cmp(); -shortlogical hl_ge(a,b,la,lb) char *a, *b; ftnlen la, lb; -#else -extern integer s_cmp(char *, char *, ftnlen, ftnlen); -shortlogical hl_ge(char *a, char *b, ftnlen la, ftnlen lb) -#endif -{ -return(s_cmp(a,b,la,lb) >= 0); -} diff --git a/gnu/egcs/libf2c/libF77/hl_gt.c b/gnu/egcs/libf2c/libF77/hl_gt.c deleted file mode 100644 index c4f345a0859..00000000000 --- a/gnu/egcs/libf2c/libF77/hl_gt.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern integer s_cmp(); -shortlogical hl_gt(a,b,la,lb) char *a, *b; ftnlen la, lb; -#else -extern integer s_cmp(char *, char *, ftnlen, ftnlen); -shortlogical hl_gt(char *a, char *b, ftnlen la, ftnlen lb) -#endif -{ -return(s_cmp(a,b,la,lb) > 0); -} diff --git a/gnu/egcs/libf2c/libF77/hl_le.c b/gnu/egcs/libf2c/libF77/hl_le.c deleted file mode 100644 index a9cce596c71..00000000000 --- a/gnu/egcs/libf2c/libF77/hl_le.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern integer s_cmp(); -shortlogical hl_le(a,b,la,lb) char *a, *b; ftnlen la, lb; -#else -extern integer s_cmp(char *, char *, ftnlen, ftnlen); -shortlogical hl_le(char *a, char *b, ftnlen la, ftnlen lb) -#endif -{ -return(s_cmp(a,b,la,lb) <= 0); -} diff --git a/gnu/egcs/libf2c/libF77/hl_lt.c b/gnu/egcs/libf2c/libF77/hl_lt.c deleted file mode 100644 index 162d919c3b4..00000000000 --- a/gnu/egcs/libf2c/libF77/hl_lt.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern integer s_cmp(); -shortlogical hl_lt(a,b,la,lb) char *a, *b; ftnlen la, lb; -#else -extern integer s_cmp(char *, char *, ftnlen, ftnlen); -shortlogical hl_lt(char *a, char *b, ftnlen la, ftnlen lb) -#endif -{ -return(s_cmp(a,b,la,lb) < 0); -} diff --git a/gnu/egcs/libf2c/libF77/i_abs.c b/gnu/egcs/libf2c/libF77/i_abs.c deleted file mode 100644 index be21295aaa1..00000000000 --- a/gnu/egcs/libf2c/libF77/i_abs.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -integer i_abs(x) integer *x; -#else -integer i_abs(integer *x) -#endif -{ -if(*x >= 0) - return(*x); -return(- *x); -} diff --git a/gnu/egcs/libf2c/libF77/i_dim.c b/gnu/egcs/libf2c/libF77/i_dim.c deleted file mode 100644 index 6e1b1707b55..00000000000 --- a/gnu/egcs/libf2c/libF77/i_dim.c +++ /dev/null @@ -1,10 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -integer i_dim(a,b) integer *a, *b; -#else -integer i_dim(integer *a, integer *b) -#endif -{ -return( *a > *b ? *a - *b : 0); -} diff --git a/gnu/egcs/libf2c/libF77/i_dnnt.c b/gnu/egcs/libf2c/libF77/i_dnnt.c deleted file mode 100644 index 4ede56ac355..00000000000 --- a/gnu/egcs/libf2c/libF77/i_dnnt.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double floor(); -integer i_dnnt(x) doublereal *x; -#else -#undef abs -#include <math.h> -integer i_dnnt(doublereal *x) -#endif -{ -return (integer)(*x >= 0. ? floor(*x + .5) : -floor(.5 - *x)); -} diff --git a/gnu/egcs/libf2c/libF77/i_indx.c b/gnu/egcs/libf2c/libF77/i_indx.c deleted file mode 100644 index 96e7bc51ba8..00000000000 --- a/gnu/egcs/libf2c/libF77/i_indx.c +++ /dev/null @@ -1,26 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -integer i_indx(a, b, la, lb) char *a, *b; ftnlen la, lb; -#else -integer i_indx(char *a, char *b, ftnlen la, ftnlen lb) -#endif -{ -ftnlen i, n; -char *s, *t, *bend; - -n = la - lb + 1; -bend = b + lb; - -for(i = 0 ; i < n ; ++i) - { - s = a + i; - t = b; - while(t < bend) - if(*s++ != *t++) - goto no; - return(i+1); - no: ; - } -return(0); -} diff --git a/gnu/egcs/libf2c/libF77/i_len.c b/gnu/egcs/libf2c/libF77/i_len.c deleted file mode 100644 index 4020fee4618..00000000000 --- a/gnu/egcs/libf2c/libF77/i_len.c +++ /dev/null @@ -1,10 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -integer i_len(s, n) char *s; ftnlen n; -#else -integer i_len(char *s, ftnlen n) -#endif -{ -return(n); -} diff --git a/gnu/egcs/libf2c/libF77/i_mod.c b/gnu/egcs/libf2c/libF77/i_mod.c deleted file mode 100644 index 6937c421357..00000000000 --- a/gnu/egcs/libf2c/libF77/i_mod.c +++ /dev/null @@ -1,10 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -integer i_mod(a,b) integer *a, *b; -#else -integer i_mod(integer *a, integer *b) -#endif -{ -return( *a % *b); -} diff --git a/gnu/egcs/libf2c/libF77/i_nint.c b/gnu/egcs/libf2c/libF77/i_nint.c deleted file mode 100644 index 411ce32821e..00000000000 --- a/gnu/egcs/libf2c/libF77/i_nint.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double floor(); -integer i_nint(x) real *x; -#else -#undef abs -#include <math.h> -integer i_nint(real *x) -#endif -{ -return (integer)(*x >= 0 ? floor(*x + .5) : -floor(.5 - *x)); -} diff --git a/gnu/egcs/libf2c/libF77/i_sign.c b/gnu/egcs/libf2c/libF77/i_sign.c deleted file mode 100644 index 94009b86e6f..00000000000 --- a/gnu/egcs/libf2c/libF77/i_sign.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -integer i_sign(a,b) integer *a, *b; -#else -integer i_sign(integer *a, integer *b) -#endif -{ -integer x; -x = (*a >= 0 ? *a : - *a); -return( *b >= 0 ? x : -x); -} diff --git a/gnu/egcs/libf2c/libF77/iargc_.c b/gnu/egcs/libf2c/libF77/iargc_.c deleted file mode 100644 index 1e04c7744b3..00000000000 --- a/gnu/egcs/libf2c/libF77/iargc_.c +++ /dev/null @@ -1,11 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -ftnint G77_iargc_0 () -#else -ftnint G77_iargc_0 (void) -#endif -{ -extern int f__xargc; -return ( f__xargc - 1 ); -} diff --git a/gnu/egcs/libf2c/libF77/l_ge.c b/gnu/egcs/libf2c/libF77/l_ge.c deleted file mode 100644 index 86b4a1f5a7f..00000000000 --- a/gnu/egcs/libf2c/libF77/l_ge.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern integer s_cmp(); -logical l_ge(a,b,la,lb) char *a, *b; ftnlen la, lb; -#else -extern integer s_cmp(char *, char *, ftnlen, ftnlen); -logical l_ge(char *a, char *b, ftnlen la, ftnlen lb) -#endif -{ -return(s_cmp(a,b,la,lb) >= 0); -} diff --git a/gnu/egcs/libf2c/libF77/l_gt.c b/gnu/egcs/libf2c/libF77/l_gt.c deleted file mode 100644 index c4b52f5bf7d..00000000000 --- a/gnu/egcs/libf2c/libF77/l_gt.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern integer s_cmp(); -logical l_gt(a,b,la,lb) char *a, *b; ftnlen la, lb; -#else -extern integer s_cmp(char *, char *, ftnlen, ftnlen); -logical l_gt(char *a, char *b, ftnlen la, ftnlen lb) -#endif -{ -return(s_cmp(a,b,la,lb) > 0); -} diff --git a/gnu/egcs/libf2c/libF77/l_le.c b/gnu/egcs/libf2c/libF77/l_le.c deleted file mode 100644 index f2740a23814..00000000000 --- a/gnu/egcs/libf2c/libF77/l_le.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern integer s_cmp(); -logical l_le(a,b,la,lb) char *a, *b; ftnlen la, lb; -#else -extern integer s_cmp(char *, char *, ftnlen, ftnlen); -logical l_le(char *a, char *b, ftnlen la, ftnlen lb) -#endif -{ -return(s_cmp(a,b,la,lb) <= 0); -} diff --git a/gnu/egcs/libf2c/libF77/l_lt.c b/gnu/egcs/libf2c/libF77/l_lt.c deleted file mode 100644 index c48dc946f9a..00000000000 --- a/gnu/egcs/libf2c/libF77/l_lt.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern integer s_cmp(); -logical l_lt(a,b,la,lb) char *a, *b; ftnlen la, lb; -#else -extern integer s_cmp(char *, char *, ftnlen, ftnlen); -logical l_lt(char *a, char *b, ftnlen la, ftnlen lb) -#endif -{ -return(s_cmp(a,b,la,lb) < 0); -} diff --git a/gnu/egcs/libf2c/libF77/lbitbits.c b/gnu/egcs/libf2c/libF77/lbitbits.c deleted file mode 100644 index 75e9f9c603f..00000000000 --- a/gnu/egcs/libf2c/libF77/lbitbits.c +++ /dev/null @@ -1,62 +0,0 @@ -#include "f2c.h" - -#ifndef LONGBITS -#define LONGBITS 32 -#endif - - integer -#ifdef KR_headers -lbit_bits(a, b, len) integer a, b, len; -#else -lbit_bits(integer a, integer b, integer len) -#endif -{ - /* Assume 2's complement arithmetic */ - - unsigned long x, y; - - x = (unsigned long) a; - y = (unsigned long)-1L; - x >>= b; - y <<= len; - return (integer)(x & ~y); - } - - integer -#ifdef KR_headers -lbit_cshift(a, b, len) integer a, b, len; -#else -lbit_cshift(integer a, integer b, integer len) -#endif -{ - unsigned long x, y, z; - - x = (unsigned long)a; - if (len <= 0) { - if (len == 0) - return 0; - goto full_len; - } - if (len >= LONGBITS) { - full_len: - if (b >= 0) { - b %= LONGBITS; - return (integer)(x << b | x >> LONGBITS -b ); - } - b = -b; - b %= LONGBITS; - return (integer)(x << LONGBITS - b | x >> b); - } - y = z = (unsigned long)-1; - y <<= len; - z &= ~y; - y &= x; - x &= z; - if (b >= 0) { - b %= len; - return (integer)(y | z & (x << b | x >> len - b)); - } - b = -b; - b %= len; - return (integer)(y | z & (x >> b | x << len - b)); - } diff --git a/gnu/egcs/libf2c/libF77/lbitshft.c b/gnu/egcs/libf2c/libF77/lbitshft.c deleted file mode 100644 index 81b0fdbeaba..00000000000 --- a/gnu/egcs/libf2c/libF77/lbitshft.c +++ /dev/null @@ -1,11 +0,0 @@ -#include "f2c.h" - - integer -#ifdef KR_headers -lbit_shift(a, b) integer a; integer b; -#else -lbit_shift(integer a, integer b) -#endif -{ - return b >= 0 ? a << b : (integer)((uinteger)a >> -b); - } diff --git a/gnu/egcs/libf2c/libF77/main.c b/gnu/egcs/libf2c/libF77/main.c deleted file mode 100644 index 17bf449e402..00000000000 --- a/gnu/egcs/libf2c/libF77/main.c +++ /dev/null @@ -1,68 +0,0 @@ -/* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */ - -#include <stdio.h> -#include "signal1.h" - -#ifndef KR_headers -#undef VOID -#include <stdlib.h> -#endif - -#ifndef VOID -#define VOID void -#endif - -#ifdef __cplusplus -extern "C" { -#endif - -#ifdef NO__STDC -#define ONEXIT onexit -extern VOID f_exit(); -#else -#ifndef KR_headers -extern void f_exit(void); -#ifndef NO_ONEXIT -#define ONEXIT atexit -extern int atexit(void (*)(void)); -#endif -#else -#ifndef NO_ONEXIT -#define ONEXIT onexit -extern VOID f_exit(); -#endif -#endif -#endif - -#ifdef KR_headers -extern VOID f_init(); -extern int MAIN__(); -#else -extern void f_init(void); -extern int MAIN__(void); -#endif - -#ifdef __cplusplus - } -#endif - -#ifdef KR_headers -main(argc, argv) int argc; char **argv; -#else -main(int argc, char **argv) -#endif -{ -f_setarg(argc, argv); -f_setsig(); -f_init(); -#ifndef NO_ONEXIT -ONEXIT(f_exit); -#endif -MAIN__(); -#ifdef NO_ONEXIT -f_exit(); -#endif -exit(0); /* exit(0) rather than return(0) to bypass Cray bug */ -return 0; /* For compilers that complain of missing return values; */ - /* others will complain that this is unreachable code. */ -} diff --git a/gnu/egcs/libf2c/libF77/makefile.netlib b/gnu/egcs/libf2c/libF77/makefile.netlib deleted file mode 100644 index 230ca7e9f93..00000000000 --- a/gnu/egcs/libf2c/libF77/makefile.netlib +++ /dev/null @@ -1,103 +0,0 @@ -.SUFFIXES: .c .o -CC = cc -SHELL = /bin/sh -CFLAGS = -O - -# If your system lacks onexit() and you are not using an -# ANSI C compiler, then you should add -DNO_ONEXIT to CFLAGS, -# e.g., by changing the above "CFLAGS =" line to -# CFLAGS = -O -DNO_ONEXIT - -# On at least some Sun systems, it is more appropriate to change the -# "CFLAGS =" line to -# CFLAGS = -O -Donexit=on_exit - -# compile, then strip unnecessary symbols -.c.o: - $(CC) -c -DSkip_f2c_Undefs $(CFLAGS) $*.c - ld -r -x -o $*.xxx $*.o - mv $*.xxx $*.o -## Under Solaris (and other systems that do not understand ld -x), -## omit -x in the ld line above. -## If your system does not have the ld command, comment out -## or remove both the ld and mv lines above. - -MISC = F77_aloc.o Version.o main.o s_rnge.o abort_.o getarg_.o iargc_.o \ - getenv_.o signal_.o s_stop.o s_paus.o system_.o cabs.o\ - derf_.o derfc_.o erf_.o erfc_.o sig_die.o exit_.o -POW = pow_ci.o pow_dd.o pow_di.o pow_hh.o pow_ii.o pow_ri.o pow_zi.o pow_zz.o -CX = c_abs.o c_cos.o c_div.o c_exp.o c_log.o c_sin.o c_sqrt.o -DCX = z_abs.o z_cos.o z_div.o z_exp.o z_log.o z_sin.o z_sqrt.o -REAL = r_abs.o r_acos.o r_asin.o r_atan.o r_atn2.o r_cnjg.o r_cos.o\ - r_cosh.o r_dim.o r_exp.o r_imag.o r_int.o\ - r_lg10.o r_log.o r_mod.o r_nint.o r_sign.o\ - r_sin.o r_sinh.o r_sqrt.o r_tan.o r_tanh.o -DBL = d_abs.o d_acos.o d_asin.o d_atan.o d_atn2.o\ - d_cnjg.o d_cos.o d_cosh.o d_dim.o d_exp.o\ - d_imag.o d_int.o d_lg10.o d_log.o d_mod.o\ - d_nint.o d_prod.o d_sign.o d_sin.o d_sinh.o\ - d_sqrt.o d_tan.o d_tanh.o -INT = i_abs.o i_dim.o i_dnnt.o i_indx.o i_len.o i_mod.o i_nint.o i_sign.o -HALF = h_abs.o h_dim.o h_dnnt.o h_indx.o h_len.o h_mod.o h_nint.o h_sign.o -CMP = l_ge.o l_gt.o l_le.o l_lt.o hl_ge.o hl_gt.o hl_le.o hl_lt.o -EFL = ef1asc_.o ef1cmc_.o -CHAR = F77_aloc.o s_cat.o s_cmp.o s_copy.o -F90BIT = lbitbits.o lbitshft.o -QINT = pow_qq.o qbitbits.o qbitshft.o -TIME = dtime_.o etime_.o - -all: signal1.h libF77.a - -# You may need to adjust signal1.h suitably for your system... -signal1.h: signal1.h0 - cp signal1.h0 signal1.h - -# If you get an error compiling dtime_.c or etime_.c, try adding -# -DUSE_CLOCK to the CFLAGS assignment above; if that does not work, -# omit $(TIME) from the dependency list for libF77.a below. - -# For INTEGER*8 support (which requires system-dependent adjustments to -# f2c.h), add $(QINT) to the libf2c.a dependency list below... - -libF77.a : $(MISC) $(POW) $(CX) $(DCX) $(REAL) $(DBL) $(INT) \ - $(HALF) $(CMP) $(EFL) $(CHAR) $(F90BIT) $(TIME) - ar r libF77.a $? - -ranlib libF77.a - -### If your system lacks ranlib, you don't need it; see README. - -Version.o: Version.c - $(CC) -c Version.c - -# To compile with C++, first "make f2c.h" -f2c.h: f2ch.add - cat /usr/include/f2c.h f2ch.add >f2c.h - -install: libF77.a - mv libF77.a /usr/lib - ranlib /usr/lib/libF77.a - -clean: - rm -f libF77.a *.o - -check: - xsum F77_aloc.c Notice README Version.c abort_.c c_abs.c c_cos.c \ - c_div.c c_exp.c c_log.c c_sin.c c_sqrt.c cabs.c d_abs.c d_acos.c \ - d_asin.c d_atan.c d_atn2.c d_cnjg.c d_cos.c d_cosh.c d_dim.c \ - d_exp.c d_imag.c d_int.c d_lg10.c d_log.c d_mod.c d_nint.c \ - d_prod.c d_sign.c d_sin.c d_sinh.c d_sqrt.c d_tan.c d_tanh.c \ - derf_.c derfc_.c dtime_.c \ - ef1asc_.c ef1cmc_.c erf_.c erfc_.c etime_.c exit_.c f2ch.add \ - getarg_.c getenv_.c h_abs.c h_dim.c h_dnnt.c h_indx.c h_len.c \ - h_mod.c h_nint.c h_sign.c hl_ge.c hl_gt.c hl_le.c hl_lt.c \ - i_abs.c i_dim.c i_dnnt.c i_indx.c i_len.c i_mod.c i_nint.c \ - i_sign.c iargc_.c l_ge.c l_gt.c l_le.c l_lt.c lbitbits.c lbitshft.c \ - main.c makefile pow_ci.c pow_dd.c pow_di.c pow_hh.c pow_ii.c \ - pow_qq.c pow_ri.c pow_zi.c pow_zz.c qbitbits.c qbitshft.c \ - r_abs.c r_acos.c r_asin.c r_atan.c r_atn2.c \ - r_cnjg.c r_cos.c r_cosh.c r_dim.c r_exp.c r_imag.c r_int.c r_lg10.c \ - r_log.c r_mod.c r_nint.c r_sign.c r_sin.c r_sinh.c r_sqrt.c \ - r_tan.c r_tanh.c s_cat.c s_cmp.c s_copy.c \ - s_paus.c s_rnge.c s_stop.c sig_die.c signal1.h0 signal_.c system_.c \ - z_abs.c z_cos.c z_div.c z_exp.c z_log.c z_sin.c z_sqrt.c >zap - cmp zap libF77.xsum && rm zap || diff libF77.xsum zap diff --git a/gnu/egcs/libf2c/libF77/pow_ci.c b/gnu/egcs/libf2c/libF77/pow_ci.c deleted file mode 100644 index 37e2ce0f2eb..00000000000 --- a/gnu/egcs/libf2c/libF77/pow_ci.c +++ /dev/null @@ -1,20 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -VOID pow_ci(p, a, b) /* p = a**b */ - complex *p, *a; integer *b; -#else -extern void pow_zi(doublecomplex*, doublecomplex*, integer*); -void pow_ci(complex *p, complex *a, integer *b) /* p = a**b */ -#endif -{ -doublecomplex p1, a1; - -a1.r = a->r; -a1.i = a->i; - -pow_zi(&p1, &a1, b); - -p->r = p1.r; -p->i = p1.i; -} diff --git a/gnu/egcs/libf2c/libF77/pow_dd.c b/gnu/egcs/libf2c/libF77/pow_dd.c deleted file mode 100644 index d0dd0ff2744..00000000000 --- a/gnu/egcs/libf2c/libF77/pow_dd.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double pow(); -double pow_dd(ap, bp) doublereal *ap, *bp; -#else -#undef abs -#include <math.h> -double pow_dd(doublereal *ap, doublereal *bp) -#endif -{ -return(pow(*ap, *bp) ); -} diff --git a/gnu/egcs/libf2c/libF77/pow_di.c b/gnu/egcs/libf2c/libF77/pow_di.c deleted file mode 100644 index affed625a91..00000000000 --- a/gnu/egcs/libf2c/libF77/pow_di.c +++ /dev/null @@ -1,35 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double pow_di(ap, bp) doublereal *ap; integer *bp; -#else -double pow_di(doublereal *ap, integer *bp) -#endif -{ -double pow, x; -integer n; -unsigned long u; - -pow = 1; -x = *ap; -n = *bp; - -if(n != 0) - { - if(n < 0) - { - n = -n; - x = 1/x; - } - for(u = n; ; ) - { - if(u & 01) - pow *= x; - if(u >>= 1) - x *= x; - else - break; - } - } -return(pow); -} diff --git a/gnu/egcs/libf2c/libF77/pow_hh.c b/gnu/egcs/libf2c/libF77/pow_hh.c deleted file mode 100644 index 24a019734da..00000000000 --- a/gnu/egcs/libf2c/libF77/pow_hh.c +++ /dev/null @@ -1,33 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -shortint pow_hh(ap, bp) shortint *ap, *bp; -#else -shortint pow_hh(shortint *ap, shortint *bp) -#endif -{ - shortint pow, x, n; - unsigned u; - - x = *ap; - n = *bp; - - if (n <= 0) { - if (n == 0 || x == 1) - return 1; - if (x != -1) - return x == 0 ? 1/x : 0; - n = -n; - } - u = n; - for(pow = 1; ; ) - { - if(u & 01) - pow *= x; - if(u >>= 1) - x *= x; - else - break; - } - return(pow); - } diff --git a/gnu/egcs/libf2c/libF77/pow_ii.c b/gnu/egcs/libf2c/libF77/pow_ii.c deleted file mode 100644 index 84d1c7e0b5e..00000000000 --- a/gnu/egcs/libf2c/libF77/pow_ii.c +++ /dev/null @@ -1,33 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -integer pow_ii(ap, bp) integer *ap, *bp; -#else -integer pow_ii(integer *ap, integer *bp) -#endif -{ - integer pow, x, n; - unsigned long u; - - x = *ap; - n = *bp; - - if (n <= 0) { - if (n == 0 || x == 1) - return 1; - if (x != -1) - return x == 0 ? 1/x : 0; - n = -n; - } - u = n; - for(pow = 1; ; ) - { - if(u & 01) - pow *= x; - if(u >>= 1) - x *= x; - else - break; - } - return(pow); - } diff --git a/gnu/egcs/libf2c/libF77/pow_qq.c b/gnu/egcs/libf2c/libF77/pow_qq.c deleted file mode 100644 index 3bc80e05f7f..00000000000 --- a/gnu/egcs/libf2c/libF77/pow_qq.c +++ /dev/null @@ -1,33 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -longint pow_qq(ap, bp) longint *ap, *bp; -#else -longint pow_qq(longint *ap, longint *bp) -#endif -{ - longint pow, x, n; - unsigned long long u; /* system-dependent */ - - x = *ap; - n = *bp; - - if (n <= 0) { - if (n == 0 || x == 1) - return 1; - if (x != -1) - return x == 0 ? 1/x : 0; - n = -n; - } - u = n; - for(pow = 1; ; ) - { - if(u & 01) - pow *= x; - if(u >>= 1) - x *= x; - else - break; - } - return(pow); - } diff --git a/gnu/egcs/libf2c/libF77/pow_ri.c b/gnu/egcs/libf2c/libF77/pow_ri.c deleted file mode 100644 index 6e5816bbf10..00000000000 --- a/gnu/egcs/libf2c/libF77/pow_ri.c +++ /dev/null @@ -1,35 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double pow_ri(ap, bp) real *ap; integer *bp; -#else -double pow_ri(real *ap, integer *bp) -#endif -{ -double pow, x; -integer n; -unsigned long u; - -pow = 1; -x = *ap; -n = *bp; - -if(n != 0) - { - if(n < 0) - { - n = -n; - x = 1/x; - } - for(u = n; ; ) - { - if(u & 01) - pow *= x; - if(u >>= 1) - x *= x; - else - break; - } - } -return(pow); -} diff --git a/gnu/egcs/libf2c/libF77/pow_zi.c b/gnu/egcs/libf2c/libF77/pow_zi.c deleted file mode 100644 index abb3cb2b530..00000000000 --- a/gnu/egcs/libf2c/libF77/pow_zi.c +++ /dev/null @@ -1,54 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -VOID pow_zi(p, a, b) /* p = a**b */ - doublecomplex *p, *a; integer *b; -#else -extern void z_div(doublecomplex*, doublecomplex*, doublecomplex*); -void pow_zi(doublecomplex *p, doublecomplex *a, integer *b) /* p = a**b */ -#endif -{ - integer n; - unsigned long u; - double t; - doublecomplex q, x; - static doublecomplex one = {1.0, 0.0}; - - n = *b; - q.r = 1; - q.i = 0; - - if(n == 0) - goto done; - if(n < 0) - { - n = -n; - z_div(&x, &one, a); - } - else - { - x.r = a->r; - x.i = a->i; - } - - for(u = n; ; ) - { - if(u & 01) - { - t = q.r * x.r - q.i * x.i; - q.i = q.r * x.i + q.i * x.r; - q.r = t; - } - if(u >>= 1) - { - t = x.r * x.r - x.i * x.i; - x.i = 2 * x.r * x.i; - x.r = t; - } - else - break; - } - done: - p->i = q.i; - p->r = q.r; - } diff --git a/gnu/egcs/libf2c/libF77/pow_zz.c b/gnu/egcs/libf2c/libF77/pow_zz.c deleted file mode 100644 index 20faf29cfb8..00000000000 --- a/gnu/egcs/libf2c/libF77/pow_zz.c +++ /dev/null @@ -1,23 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double log(), exp(), cos(), sin(), atan2(), f__cabs(); -VOID pow_zz(r,a,b) doublecomplex *r, *a, *b; -#else -#undef abs -#include <math.h> -extern double f__cabs(double,double); -void pow_zz(doublecomplex *r, doublecomplex *a, doublecomplex *b) -#endif -{ -double logr, logi, x, y; - -logr = log( f__cabs(a->r, a->i) ); -logi = atan2(a->i, a->r); - -x = exp( logr * b->r - logi * b->i ); -y = logr * b->i + logi * b->r; - -r->r = x * cos(y); -r->i = x * sin(y); -} diff --git a/gnu/egcs/libf2c/libF77/qbitbits.c b/gnu/egcs/libf2c/libF77/qbitbits.c deleted file mode 100644 index ad4ac963ce2..00000000000 --- a/gnu/egcs/libf2c/libF77/qbitbits.c +++ /dev/null @@ -1,66 +0,0 @@ -#include "f2c.h" - -#ifndef LONGBITS -#define LONGBITS 32 -#endif - -#ifndef LONG8BITS -#define LONG8BITS (2*LONGBITS) -#endif - - integer -#ifdef KR_headers -qbit_bits(a, b, len) longint a; integer b, len; -#else -qbit_bits(longint a, integer b, integer len) -#endif -{ - /* Assume 2's complement arithmetic */ - - ulongint x, y; - - x = (ulongint) a; - y = (ulongint)-1L; - x >>= b; - y <<= len; - return (longint)(x & y); - } - - longint -#ifdef KR_headers -qbit_cshift(a, b, len) longint a; integer b, len; -#else -qbit_cshift(longint a, integer b, integer len) -#endif -{ - ulongint x, y, z; - - x = (ulongint)a; - if (len <= 0) { - if (len == 0) - return 0; - goto full_len; - } - if (len >= LONG8BITS) { - full_len: - if (b >= 0) { - b %= LONG8BITS; - return (longint)(x << b | x >> LONG8BITS - b ); - } - b = -b; - b %= LONG8BITS; - return (longint)(x << LONG8BITS - b | x >> b); - } - y = z = (unsigned long)-1; - y <<= len; - z &= ~y; - y &= x; - x &= z; - if (b >= 0) { - b %= len; - return (longint)(y | z & (x << b | x >> len - b)); - } - b = -b; - b %= len; - return (longint)(y | z & (x >> b | x << len - b)); - } diff --git a/gnu/egcs/libf2c/libF77/qbitshft.c b/gnu/egcs/libf2c/libF77/qbitshft.c deleted file mode 100644 index 87fffb91ff8..00000000000 --- a/gnu/egcs/libf2c/libF77/qbitshft.c +++ /dev/null @@ -1,11 +0,0 @@ -#include "f2c.h" - - longint -#ifdef KR_headers -qbit_shift(a, b) longint a; integer b; -#else -qbit_shift(longint a, integer b) -#endif -{ - return b >= 0 ? a << b : (longint)((ulongint)a >> -b); - } diff --git a/gnu/egcs/libf2c/libF77/r_abs.c b/gnu/egcs/libf2c/libF77/r_abs.c deleted file mode 100644 index 7b222961d16..00000000000 --- a/gnu/egcs/libf2c/libF77/r_abs.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double r_abs(x) real *x; -#else -double r_abs(real *x) -#endif -{ -if(*x >= 0) - return(*x); -return(- *x); -} diff --git a/gnu/egcs/libf2c/libF77/r_acos.c b/gnu/egcs/libf2c/libF77/r_acos.c deleted file mode 100644 index 330f88a3092..00000000000 --- a/gnu/egcs/libf2c/libF77/r_acos.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double acos(); -double r_acos(x) real *x; -#else -#undef abs -#include <math.h> -double r_acos(real *x) -#endif -{ -return( acos(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/r_asin.c b/gnu/egcs/libf2c/libF77/r_asin.c deleted file mode 100644 index 45ece4b749e..00000000000 --- a/gnu/egcs/libf2c/libF77/r_asin.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double asin(); -double r_asin(x) real *x; -#else -#undef abs -#include <math.h> -double r_asin(real *x) -#endif -{ -return( asin(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/r_atan.c b/gnu/egcs/libf2c/libF77/r_atan.c deleted file mode 100644 index 36479c915b0..00000000000 --- a/gnu/egcs/libf2c/libF77/r_atan.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double atan(); -double r_atan(x) real *x; -#else -#undef abs -#include <math.h> -double r_atan(real *x) -#endif -{ -return( atan(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/r_atn2.c b/gnu/egcs/libf2c/libF77/r_atn2.c deleted file mode 100644 index 9347e1f13a9..00000000000 --- a/gnu/egcs/libf2c/libF77/r_atn2.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double atan2(); -double r_atn2(x,y) real *x, *y; -#else -#undef abs -#include <math.h> -double r_atn2(real *x, real *y) -#endif -{ -return( atan2(*x,*y) ); -} diff --git a/gnu/egcs/libf2c/libF77/r_cnjg.c b/gnu/egcs/libf2c/libF77/r_cnjg.c deleted file mode 100644 index 756c694ee7a..00000000000 --- a/gnu/egcs/libf2c/libF77/r_cnjg.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -VOID r_cnjg(r, z) complex *r, *z; -#else -VOID r_cnjg(complex *r, complex *z) -#endif -{ - real zi = z->i; - r->r = z->r; - r->i = -zi; - } diff --git a/gnu/egcs/libf2c/libF77/r_cos.c b/gnu/egcs/libf2c/libF77/r_cos.c deleted file mode 100644 index 5bda158cee9..00000000000 --- a/gnu/egcs/libf2c/libF77/r_cos.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double cos(); -double r_cos(x) real *x; -#else -#undef abs -#include <math.h> -double r_cos(real *x) -#endif -{ -return( cos(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/r_cosh.c b/gnu/egcs/libf2c/libF77/r_cosh.c deleted file mode 100644 index 7ae72cc0cef..00000000000 --- a/gnu/egcs/libf2c/libF77/r_cosh.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double cosh(); -double r_cosh(x) real *x; -#else -#undef abs -#include <math.h> -double r_cosh(real *x) -#endif -{ -return( cosh(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/r_dim.c b/gnu/egcs/libf2c/libF77/r_dim.c deleted file mode 100644 index baca95cd9e4..00000000000 --- a/gnu/egcs/libf2c/libF77/r_dim.c +++ /dev/null @@ -1,10 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double r_dim(a,b) real *a, *b; -#else -double r_dim(real *a, real *b) -#endif -{ -return( *a > *b ? *a - *b : 0); -} diff --git a/gnu/egcs/libf2c/libF77/r_exp.c b/gnu/egcs/libf2c/libF77/r_exp.c deleted file mode 100644 index d1dea75563f..00000000000 --- a/gnu/egcs/libf2c/libF77/r_exp.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double exp(); -double r_exp(x) real *x; -#else -#undef abs -#include <math.h> -double r_exp(real *x) -#endif -{ -return( exp(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/r_imag.c b/gnu/egcs/libf2c/libF77/r_imag.c deleted file mode 100644 index d51252bbb79..00000000000 --- a/gnu/egcs/libf2c/libF77/r_imag.c +++ /dev/null @@ -1,10 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double r_imag(z) complex *z; -#else -double r_imag(complex *z) -#endif -{ -return(z->i); -} diff --git a/gnu/egcs/libf2c/libF77/r_int.c b/gnu/egcs/libf2c/libF77/r_int.c deleted file mode 100644 index 8378e775726..00000000000 --- a/gnu/egcs/libf2c/libF77/r_int.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double floor(); -double r_int(x) real *x; -#else -#undef abs -#include <math.h> -double r_int(real *x) -#endif -{ -return( (*x>0) ? floor(*x) : -floor(- *x) ); -} diff --git a/gnu/egcs/libf2c/libF77/r_lg10.c b/gnu/egcs/libf2c/libF77/r_lg10.c deleted file mode 100644 index 51f84201711..00000000000 --- a/gnu/egcs/libf2c/libF77/r_lg10.c +++ /dev/null @@ -1,15 +0,0 @@ -#include "f2c.h" - -#define log10e 0.43429448190325182765 - -#ifdef KR_headers -double log(); -double r_lg10(x) real *x; -#else -#undef abs -#include <math.h> -double r_lg10(real *x) -#endif -{ -return( log10e * log(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/r_log.c b/gnu/egcs/libf2c/libF77/r_log.c deleted file mode 100644 index 4873fb418e8..00000000000 --- a/gnu/egcs/libf2c/libF77/r_log.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double log(); -double r_log(x) real *x; -#else -#undef abs -#include <math.h> -double r_log(real *x) -#endif -{ -return( log(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/r_mod.c b/gnu/egcs/libf2c/libF77/r_mod.c deleted file mode 100644 index faea344a7b7..00000000000 --- a/gnu/egcs/libf2c/libF77/r_mod.c +++ /dev/null @@ -1,40 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -#ifdef IEEE_drem -double drem(); -#else -double floor(); -#endif -double r_mod(x,y) real *x, *y; -#else -#ifdef IEEE_drem -double drem(double, double); -#else -#undef abs -#include <math.h> -#endif -double r_mod(real *x, real *y) -#endif -{ -#ifdef IEEE_drem - double xa, ya, z; - if ((ya = *y) < 0.) - ya = -ya; - z = drem(xa = *x, ya); - if (xa > 0) { - if (z < 0) - z += ya; - } - else if (z > 0) - z -= ya; - return z; -#else - double quotient; - if( (quotient = (double)*x / *y) >= 0) - quotient = floor(quotient); - else - quotient = -floor(-quotient); - return(*x - (*y) * quotient ); -#endif -} diff --git a/gnu/egcs/libf2c/libF77/r_nint.c b/gnu/egcs/libf2c/libF77/r_nint.c deleted file mode 100644 index f5382af660a..00000000000 --- a/gnu/egcs/libf2c/libF77/r_nint.c +++ /dev/null @@ -1,14 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double floor(); -double r_nint(x) real *x; -#else -#undef abs -#include <math.h> -double r_nint(real *x) -#endif -{ -return( (*x)>=0 ? - floor(*x + .5) : -floor(.5 - *x) ); -} diff --git a/gnu/egcs/libf2c/libF77/r_sign.c b/gnu/egcs/libf2c/libF77/r_sign.c deleted file mode 100644 index df6d02af00a..00000000000 --- a/gnu/egcs/libf2c/libF77/r_sign.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double r_sign(a,b) real *a, *b; -#else -double r_sign(real *a, real *b) -#endif -{ -double x; -x = (*a >= 0 ? *a : - *a); -return( *b >= 0 ? x : -x); -} diff --git a/gnu/egcs/libf2c/libF77/r_sin.c b/gnu/egcs/libf2c/libF77/r_sin.c deleted file mode 100644 index 095b9510de9..00000000000 --- a/gnu/egcs/libf2c/libF77/r_sin.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double sin(); -double r_sin(x) real *x; -#else -#undef abs -#include <math.h> -double r_sin(real *x) -#endif -{ -return( sin(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/r_sinh.c b/gnu/egcs/libf2c/libF77/r_sinh.c deleted file mode 100644 index 3bf4bb138be..00000000000 --- a/gnu/egcs/libf2c/libF77/r_sinh.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double sinh(); -double r_sinh(x) real *x; -#else -#undef abs -#include <math.h> -double r_sinh(real *x) -#endif -{ -return( sinh(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/r_sqrt.c b/gnu/egcs/libf2c/libF77/r_sqrt.c deleted file mode 100644 index d0203d3d19b..00000000000 --- a/gnu/egcs/libf2c/libF77/r_sqrt.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double sqrt(); -double r_sqrt(x) real *x; -#else -#undef abs -#include <math.h> -double r_sqrt(real *x) -#endif -{ -return( sqrt(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/r_tan.c b/gnu/egcs/libf2c/libF77/r_tan.c deleted file mode 100644 index fc0009e4774..00000000000 --- a/gnu/egcs/libf2c/libF77/r_tan.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double tan(); -double r_tan(x) real *x; -#else -#undef abs -#include <math.h> -double r_tan(real *x) -#endif -{ -return( tan(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/r_tanh.c b/gnu/egcs/libf2c/libF77/r_tanh.c deleted file mode 100644 index 818c6a8451b..00000000000 --- a/gnu/egcs/libf2c/libF77/r_tanh.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double tanh(); -double r_tanh(x) real *x; -#else -#undef abs -#include <math.h> -double r_tanh(real *x) -#endif -{ -return( tanh(*x) ); -} diff --git a/gnu/egcs/libf2c/libF77/s_cat.c b/gnu/egcs/libf2c/libF77/s_cat.c deleted file mode 100644 index f462fd24945..00000000000 --- a/gnu/egcs/libf2c/libF77/s_cat.c +++ /dev/null @@ -1,75 +0,0 @@ -/* Unless compiled with -DNO_OVERWRITE, this variant of s_cat allows the - * target of a concatenation to appear on its right-hand side (contrary - * to the Fortran 77 Standard, but in accordance with Fortran 90). - */ - -#include "f2c.h" -#ifndef NO_OVERWRITE -#include <stdio.h> -#undef abs -#ifdef KR_headers - extern char *F77_aloc(); - extern void free(); - extern void G77_exit_0 (); -#else -#undef min -#undef max -#include <stdlib.h> - extern char *F77_aloc(ftnlen, char*); -#endif -#include <string.h> -#endif /* NO_OVERWRITE */ - - VOID -#ifdef KR_headers -s_cat(lp, rpp, rnp, np, ll) char *lp, *rpp[]; ftnlen rnp[], *np, ll; -#else -s_cat(char *lp, char *rpp[], ftnlen rnp[], ftnlen *np, ftnlen ll) -#endif -{ - ftnlen i, nc; - char *rp; - ftnlen n = *np; -#ifndef NO_OVERWRITE - ftnlen L, m; - char *lp0, *lp1; - - lp0 = 0; - lp1 = lp; - L = ll; - i = 0; - while(i < n) { - rp = rpp[i]; - m = rnp[i++]; - if (rp >= lp1 || rp + m <= lp) { - if ((L -= m) <= 0) { - n = i; - break; - } - lp1 += m; - continue; - } - lp0 = lp; - lp = lp1 = F77_aloc(L = ll, "s_cat"); - break; - } - lp1 = lp; -#endif /* NO_OVERWRITE */ - for(i = 0 ; i < n ; ++i) { - nc = ll; - if(rnp[i] < nc) - nc = rnp[i]; - ll -= nc; - rp = rpp[i]; - while(--nc >= 0) - *lp++ = *rp++; - } - while(--ll >= 0) - *lp++ = ' '; -#ifndef NO_OVERWRITE - if (lp0) { - memcpy(lp0, lp1, L); - free(lp1); - } -#endif - } diff --git a/gnu/egcs/libf2c/libF77/s_cmp.c b/gnu/egcs/libf2c/libF77/s_cmp.c deleted file mode 100644 index 1e052f28642..00000000000 --- a/gnu/egcs/libf2c/libF77/s_cmp.c +++ /dev/null @@ -1,44 +0,0 @@ -#include "f2c.h" - -/* compare two strings */ - -#ifdef KR_headers -integer s_cmp(a0, b0, la, lb) char *a0, *b0; ftnlen la, lb; -#else -integer s_cmp(char *a0, char *b0, ftnlen la, ftnlen lb) -#endif -{ -register unsigned char *a, *aend, *b, *bend; -a = (unsigned char *)a0; -b = (unsigned char *)b0; -aend = a + la; -bend = b + lb; - -if(la <= lb) - { - while(a < aend) - if(*a != *b) - return( *a - *b ); - else - { ++a; ++b; } - - while(b < bend) - if(*b != ' ') - return( ' ' - *b ); - else ++b; - } - -else - { - while(b < bend) - if(*a == *b) - { ++a; ++b; } - else - return( *a - *b ); - while(a < aend) - if(*a != ' ') - return(*a - ' '); - else ++a; - } -return(0); -} diff --git a/gnu/egcs/libf2c/libF77/s_copy.c b/gnu/egcs/libf2c/libF77/s_copy.c deleted file mode 100644 index d1673510c62..00000000000 --- a/gnu/egcs/libf2c/libF77/s_copy.c +++ /dev/null @@ -1,51 +0,0 @@ -/* Unless compiled with -DNO_OVERWRITE, this variant of s_copy allows the - * target of an assignment to appear on its right-hand side (contrary - * to the Fortran 77 Standard, but in accordance with Fortran 90), - * as in a(2:5) = a(4:7) . - */ - -#include "f2c.h" - -/* assign strings: a = b */ - -#ifdef KR_headers -VOID s_copy(a, b, la, lb) register char *a, *b; ftnlen la, lb; -#else -void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb) -#endif -{ - register char *aend, *bend; - - aend = a + la; - - if(la <= lb) -#ifndef NO_OVERWRITE - if (a <= b || a >= b + la) -#endif - while(a < aend) - *a++ = *b++; -#ifndef NO_OVERWRITE - else - for(b += la; a < aend; ) - *--aend = *--b; -#endif - - else { - bend = b + lb; -#ifndef NO_OVERWRITE - if (a <= b || a >= bend) -#endif - while(b < bend) - *a++ = *b++; -#ifndef NO_OVERWRITE - else { - a += lb; - while(b < bend) - *--a = *--bend; - a += lb; - } -#endif - while(a < aend) - *a++ = ' '; - } - } diff --git a/gnu/egcs/libf2c/libF77/s_paus.c b/gnu/egcs/libf2c/libF77/s_paus.c deleted file mode 100644 index a7733a53362..00000000000 --- a/gnu/egcs/libf2c/libF77/s_paus.c +++ /dev/null @@ -1,88 +0,0 @@ -#include <stdio.h> -#include "f2c.h" -#define PAUSESIG 15 - -#include "signal1.h" -#ifdef KR_headers -#define Void /* void */ -#define Int /* int */ -#else -#define Void void -#define Int int -#undef abs -#undef min -#undef max -#include <stdlib.h> -#ifdef __cplusplus -extern "C" { -#endif -extern int getpid(void), isatty(int), pause(void); -#endif - -extern VOID f_exit(Void); - - static VOID -waitpause(Sigarg) -{ Use_Sigarg; - return; - } - - static VOID -#ifdef KR_headers -s_1paus(fin) FILE *fin; -#else -s_1paus(FILE *fin) -#endif -{ - fprintf(stderr, - "To resume execution, type go. Other input will terminate the job.\n"); - fflush(stderr); - if( getc(fin)!='g' || getc(fin)!='o' || getc(fin)!='\n' ) { - fprintf(stderr, "STOP\n"); -#ifdef NO_ONEXIT - f_exit(); -#endif - exit(0); - } - } - - int -#ifdef KR_headers -s_paus(s, n) char *s; ftnlen n; -#else -s_paus(char *s, ftnlen n) -#endif -{ - fprintf(stderr, "PAUSE "); - if(n > 0) - fprintf(stderr, " %.*s", (int)n, s); - fprintf(stderr, " statement executed\n"); - if( isatty(fileno(stdin)) ) - s_1paus(stdin); - else { -#if (defined (MSDOS) && !defined (GO32)) || defined (_WIN32) - FILE *fin; - fin = fopen("con", "r"); - if (!fin) { - fprintf(stderr, "s_paus: can't open con!\n"); - fflush(stderr); - exit(1); - } - s_1paus(fin); - fclose(fin); -#else - fprintf(stderr, - "To resume execution, execute a kill -%d %d command\n", - PAUSESIG, getpid() ); - signal1(PAUSESIG, waitpause); - fflush(stderr); - pause(); -#endif - } - fprintf(stderr, "Execution resumes after PAUSE.\n"); - fflush(stderr); - return 0; /* NOT REACHED */ -#ifdef __cplusplus - } -#endif -} diff --git a/gnu/egcs/libf2c/libF77/s_rnge.c b/gnu/egcs/libf2c/libF77/s_rnge.c deleted file mode 100644 index fbe3219d580..00000000000 --- a/gnu/egcs/libf2c/libF77/s_rnge.c +++ /dev/null @@ -1,24 +0,0 @@ -#include <stdio.h> -#include "f2c.h" - -/* called when a subscript is out of range */ - -#ifdef KR_headers -extern VOID sig_die(); -integer s_rnge(varn, offset, procn, line) char *varn, *procn; ftnint offset, line; -#else -extern VOID sig_die(char*,int); -integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line) -#endif -{ -register int i; - -fprintf(stderr, "Subscript out of range on file line %ld, procedure ", line); -while((i = *procn) && i != '_' && i != ' ') - putc(*procn++, stderr); -fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1); -while((i = *varn) && i != ' ') - putc(*varn++, stderr); -sig_die(".", 1); -return 0; /* not reached */ -} diff --git a/gnu/egcs/libf2c/libF77/s_stop.c b/gnu/egcs/libf2c/libF77/s_stop.c deleted file mode 100644 index 975edb7d4ad..00000000000 --- a/gnu/egcs/libf2c/libF77/s_stop.c +++ /dev/null @@ -1,42 +0,0 @@ -#include <stdio.h> -#include "f2c.h" - -#ifdef KR_headers -extern void f_exit(); -VOID s_stop(s, n) char *s; ftnlen n; -#else -#undef abs -#undef min -#undef max -#include <stdlib.h> -#ifdef __cplusplus -extern "C" { -#endif -void f_exit(void); - -int s_stop(char *s, ftnlen n) -#endif -{ -int i; - -if(n > 0) - { - fprintf(stderr, "STOP "); - for(i = 0; i<n ; ++i) - putc(*s++, stderr); - fprintf(stderr, " statement executed\n"); - } -#ifdef NO_ONEXIT -f_exit(); -#endif -exit(0); - -/* We cannot avoid (useless) compiler diagnostics here: */ -/* some compilers complain if there is no return statement, */ -/* and others complain that this one cannot be reached. */ - -return 0; /* NOT REACHED */ -} -#ifdef __cplusplus -} -#endif diff --git a/gnu/egcs/libf2c/libF77/setarg.c b/gnu/egcs/libf2c/libF77/setarg.c deleted file mode 100644 index 929860aeef3..00000000000 --- a/gnu/egcs/libf2c/libF77/setarg.c +++ /dev/null @@ -1,29 +0,0 @@ -/* Set up the global argc/argv info for use by getarg_, iargc_, and - g77's inlined intrinsic equivalents. */ - -#ifndef KR_headers -#undef VOID -#include <stdlib.h> -#endif - -#ifndef VOID -#define VOID void -#endif - -int f__xargc; -char **f__xargv; - -#ifdef __cplusplus - } -#endif - - void -#ifdef KR_headers -f_setarg(argc, argv) int argc; char **argv; -#else -f_setarg(int argc, char **argv) -#endif -{ -f__xargc = argc; -f__xargv = argv; -} diff --git a/gnu/egcs/libf2c/libF77/setsig.c b/gnu/egcs/libf2c/libF77/setsig.c deleted file mode 100644 index 8fde2fa27e8..00000000000 --- a/gnu/egcs/libf2c/libF77/setsig.c +++ /dev/null @@ -1,101 +0,0 @@ -/* Set up the signal behavior. */ - -#include <stdio.h> -#include "signal1.h" - -#ifndef SIGIOT -#ifdef SIGABRT -#define SIGIOT SIGABRT -#endif -#endif - -#ifndef KR_headers -#undef VOID -#include <stdlib.h> -#endif - -#ifndef VOID -#define VOID void -#endif - -#ifdef __cplusplus -extern "C" { -#endif - -#ifdef KR_headers -extern VOID sig_die(); -#define Int /* int */ -#else -extern void sig_die(char*, int); -#define Int int -#endif - -static VOID sigfdie(Sigarg) -{ -Use_Sigarg; -sig_die("Floating Exception", 1); -} - - -static VOID sigidie(Sigarg) -{ -Use_Sigarg; -sig_die("IOT Trap", 1); -} - -#ifdef SIGQUIT -static VOID sigqdie(Sigarg) -{ -Use_Sigarg; -sig_die("Quit signal", 1); -} -#endif - - -static VOID sigindie(Sigarg) -{ -Use_Sigarg; -sig_die("Interrupt", 0); -} - -static VOID sigtdie(Sigarg) -{ -Use_Sigarg; -sig_die("Killed", 0); -} - -#ifdef SIGTRAP -static VOID sigtrdie(Sigarg) -{ -Use_Sigarg; -sig_die("Trace trap", 1); -} -#endif - - -#ifdef __cplusplus - } -#endif - - void -f_setsig() -{ -signal1(SIGFPE, sigfdie); /* ignore underflow, enable overflow */ -#ifdef SIGIOT -signal1(SIGIOT, sigidie); -#endif -#ifdef SIGTRAP -signal1(SIGTRAP, sigtrdie); -#endif -#ifdef SIGQUIT -if(signal1(SIGQUIT,sigqdie) == SIG_IGN) - signal1(SIGQUIT, SIG_IGN); -#endif -if(signal1(SIGINT, sigindie) == SIG_IGN) - signal1(SIGINT, SIG_IGN); -signal1(SIGTERM,sigtdie); - -#ifdef pdp11 - ldfps(01200); /* detect overflow as an exception */ -#endif -} diff --git a/gnu/egcs/libf2c/libF77/sig_die.c b/gnu/egcs/libf2c/libF77/sig_die.c deleted file mode 100644 index bebb1e7b8f7..00000000000 --- a/gnu/egcs/libf2c/libF77/sig_die.c +++ /dev/null @@ -1,45 +0,0 @@ -#include <stdio.h> -#include <signal.h> - -#ifndef SIGIOT -#ifdef SIGABRT -#define SIGIOT SIGABRT -#endif -#endif - -#ifdef KR_headers -void sig_die(s, kill) register char *s; int kill; -#else -#include <stdlib.h> -#ifdef __cplusplus -extern "C" { -#endif - extern void f_exit(void); - -void sig_die(register char *s, int kill) -#endif -{ - /* print error message, then clear buffers */ - fprintf(stderr, "%s\n", s); - - if(kill) - { - fflush(stderr); - f_exit(); - fflush(stderr); - /* now get a core */ -#ifdef SIGIOT - signal(SIGIOT, SIG_DFL); -#endif - abort(); - } - else { -#ifdef NO_ONEXIT - f_exit(); -#endif - exit(1); - } - } -#ifdef __cplusplus -} -#endif diff --git a/gnu/egcs/libf2c/libF77/signal1.h b/gnu/egcs/libf2c/libF77/signal1.h deleted file mode 100644 index b559211e8e4..00000000000 --- a/gnu/egcs/libf2c/libF77/signal1.h +++ /dev/null @@ -1,5 +0,0 @@ -/* The g77 implementation of libf2c directly includes signal1.h0, - instead of copying it to signal1.h, since that seems easier to - cope with at this point. */ - -#include "signal1.h0" diff --git a/gnu/egcs/libf2c/libF77/signal1.h0 b/gnu/egcs/libf2c/libF77/signal1.h0 deleted file mode 100644 index a383774b82d..00000000000 --- a/gnu/egcs/libf2c/libF77/signal1.h0 +++ /dev/null @@ -1,35 +0,0 @@ -/* You may need to adjust the definition of signal1 to supply a */ -/* cast to the correct argument type. This detail is system- and */ -/* compiler-dependent. The #define below assumes signal.h declares */ -/* type SIG_PF for the signal function's second argument. */ - -/* For some C++ compilers, "#define Sigarg_t ..." may be appropriate. */ - -#include <signal.h> - -#ifndef Sigret_t -#define Sigret_t void -#endif -#ifndef Sigarg_t -#ifdef KR_headers -#define Sigarg_t -#else -#define Sigarg_t int -#endif -#endif /*Sigarg_t*/ - -#ifdef USE_SIG_PF /* compile with -DUSE_SIG_PF under IRIX */ -#define sig_pf SIG_PF -#else -typedef Sigret_t (*sig_pf)(Sigarg_t); -#endif - -#define signal1(a,b) signal(a,(sig_pf)b) - -#ifdef __cplusplus -#define Sigarg ... -#define Use_Sigarg -#else -#define Sigarg Int n -#define Use_Sigarg n = n /* shut up compiler warning */ -#endif diff --git a/gnu/egcs/libf2c/libF77/signal_.c b/gnu/egcs/libf2c/libF77/signal_.c deleted file mode 100644 index b0d7ce6a69b..00000000000 --- a/gnu/egcs/libf2c/libF77/signal_.c +++ /dev/null @@ -1,16 +0,0 @@ -#include "f2c.h" -#include "signal1.h" - -#ifdef KR_headers -void * -G77_signal_0 (sigp, proc) integer *sigp; sig_pf proc; -#else -void * -G77_signal_0 (integer *sigp, sig_pf proc) -#endif -{ - int sig; - sig = (int)*sigp; - - return (void *) signal(sig, proc); - } diff --git a/gnu/egcs/libf2c/libF77/system_.c b/gnu/egcs/libf2c/libF77/system_.c deleted file mode 100644 index ed024a14ded..00000000000 --- a/gnu/egcs/libf2c/libF77/system_.c +++ /dev/null @@ -1,36 +0,0 @@ -/* f77 interface to system routine */ - -#include "f2c.h" - -#ifdef KR_headers -extern char *F77_aloc(); - - integer -G77_system_0 (s, n) register char *s; ftnlen n; -#else -#undef abs -#undef min -#undef max -#include <stdlib.h> -extern char *F77_aloc(ftnlen, char*); - - integer -G77_system_0 (register char *s, ftnlen n) -#endif -{ - char buff0[256], *buff; - register char *bp, *blast; - integer rv; - - buff = bp = n < sizeof(buff0) - ? buff0 : F77_aloc(n+1, "system_"); - blast = bp + n; - - while(bp < blast && *s) - *bp++ = *s++; - *bp = 0; - rv = system(buff); - if (buff != buff0) - free(buff); - return rv; - } diff --git a/gnu/egcs/libf2c/libF77/z_abs.c b/gnu/egcs/libf2c/libF77/z_abs.c deleted file mode 100644 index 7e67ad2957f..00000000000 --- a/gnu/egcs/libf2c/libF77/z_abs.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double f__cabs(); -double z_abs(z) doublecomplex *z; -#else -double f__cabs(double, double); -double z_abs(doublecomplex *z) -#endif -{ -return( f__cabs( z->r, z->i ) ); -} diff --git a/gnu/egcs/libf2c/libF77/z_cos.c b/gnu/egcs/libf2c/libF77/z_cos.c deleted file mode 100644 index 2d4a24d2818..00000000000 --- a/gnu/egcs/libf2c/libF77/z_cos.c +++ /dev/null @@ -1,15 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double sin(), cos(), sinh(), cosh(); -VOID z_cos(r, z) doublecomplex *r, *z; -#else -#undef abs -#include "math.h" -void z_cos(doublecomplex *r, doublecomplex *z) -#endif -{ - double zi = z->i, zr = z->r; - r->r = cos(zr) * cosh(zi); - r->i = - sin(zr) * sinh(zi); - } diff --git a/gnu/egcs/libf2c/libF77/z_div.c b/gnu/egcs/libf2c/libF77/z_div.c deleted file mode 100644 index 22153fa4514..00000000000 --- a/gnu/egcs/libf2c/libF77/z_div.c +++ /dev/null @@ -1,36 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern VOID sig_die(); -VOID z_div(c, a, b) doublecomplex *a, *b, *c; -#else -extern void sig_die(char*, int); -void z_div(doublecomplex *c, doublecomplex *a, doublecomplex *b) -#endif -{ - double ratio, den; - double abr, abi, cr; - - if( (abr = b->r) < 0.) - abr = - abr; - if( (abi = b->i) < 0.) - abi = - abi; - if( abr <= abi ) - { - if(abi == 0) - sig_die("complex division by zero", 1); - ratio = b->r / b->i ; - den = b->i * (1 + ratio*ratio); - cr = (a->r*ratio + a->i) / den; - c->i = (a->i*ratio - a->r) / den; - } - - else - { - ratio = b->i / b->r ; - den = b->r * (1 + ratio*ratio); - cr = (a->r + a->i*ratio) / den; - c->i = (a->i - a->r*ratio) / den; - } - c->r = cr; - } diff --git a/gnu/egcs/libf2c/libF77/z_exp.c b/gnu/egcs/libf2c/libF77/z_exp.c deleted file mode 100644 index ecf84296d72..00000000000 --- a/gnu/egcs/libf2c/libF77/z_exp.c +++ /dev/null @@ -1,17 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double exp(), cos(), sin(); -VOID z_exp(r, z) doublecomplex *r, *z; -#else -#undef abs -#include "math.h" -void z_exp(doublecomplex *r, doublecomplex *z) -#endif -{ - double expx, zi = z->i; - - expx = exp(z->r); - r->r = expx * cos(zi); - r->i = expx * sin(zi); - } diff --git a/gnu/egcs/libf2c/libF77/z_log.c b/gnu/egcs/libf2c/libF77/z_log.c deleted file mode 100644 index 34c56d42a8c..00000000000 --- a/gnu/egcs/libf2c/libF77/z_log.c +++ /dev/null @@ -1,16 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double log(), f__cabs(), atan2(); -VOID z_log(r, z) doublecomplex *r, *z; -#else -#undef abs -#include "math.h" -extern double f__cabs(double, double); -void z_log(doublecomplex *r, doublecomplex *z) -#endif -{ - double zi = z->i, zr = z->r; - r->i = atan2(zi, zr); - r->r = log( f__cabs( zr, zi ) ); - } diff --git a/gnu/egcs/libf2c/libF77/z_sin.c b/gnu/egcs/libf2c/libF77/z_sin.c deleted file mode 100644 index e24caff927e..00000000000 --- a/gnu/egcs/libf2c/libF77/z_sin.c +++ /dev/null @@ -1,15 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double sin(), cos(), sinh(), cosh(); -VOID z_sin(r, z) doublecomplex *r, *z; -#else -#undef abs -#include "math.h" -void z_sin(doublecomplex *r, doublecomplex *z) -#endif -{ - double zi = z->i, zr = z->r; - r->r = sin(zr) * cosh(zi); - r->i = cos(zr) * sinh(zi); - } diff --git a/gnu/egcs/libf2c/libF77/z_sqrt.c b/gnu/egcs/libf2c/libF77/z_sqrt.c deleted file mode 100644 index c04e8f0a1a7..00000000000 --- a/gnu/egcs/libf2c/libF77/z_sqrt.c +++ /dev/null @@ -1,29 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double sqrt(), f__cabs(); -VOID z_sqrt(r, z) doublecomplex *r, *z; -#else -#undef abs -#include "math.h" -extern double f__cabs(double, double); -void z_sqrt(doublecomplex *r, doublecomplex *z) -#endif -{ - double mag, zi = z->i, zr = z->r; - - if( (mag = f__cabs(zr, zi)) == 0.) - r->r = r->i = 0.; - else if(zr > 0) - { - r->r = sqrt(0.5 * (mag + zr) ); - r->i = zi / r->r / 2; - } - else - { - r->i = sqrt(0.5 * (mag - zr) ); - if(zi < 0) - r->i = - r->i; - r->r = zi / r->i / 2; - } - } diff --git a/gnu/egcs/libf2c/libI77/Makefile.in b/gnu/egcs/libf2c/libI77/Makefile.in deleted file mode 100644 index 1ff6b601451..00000000000 --- a/gnu/egcs/libf2c/libI77/Makefile.in +++ /dev/null @@ -1,160 +0,0 @@ -# Makefile for GNU F77 compiler runtime. -# Copyright 1990 - 1994 by AT&T Bell Laboratories and Bellcore (see the -# file `Notice'). -# Portions of this file Copyright (C) 1995, 1996, 1998 Free Software Foundation, Inc. -# Contributed by Dave Love (d.love@dl.ac.uk). -# -#This file is part of GNU Fortran. -# -#GNU Fortran is free software; you can redistribute it and/or modify -#it under the terms of the GNU General Public License as published by -#the Free Software Foundation; either version 2, or (at your option) -#any later version. -# -#GNU Fortran is distributed in the hope that it will be useful, -#but WITHOUT ANY WARRANTY; without even the implied warranty of -#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#GNU General Public License for more details. -# -#You should have received a copy of the GNU General Public License -#along with GNU Fortran; see the file COPYING. If not, write to -#the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -#02111-1307, USA. - -#### Start of system configuration section. #### - -# $(srcdir) must be set to the g77 runtime libI77 source directory. -srcdir = @srcdir@ -VPATH = @srcdir@ - -# configure sets this to all the -D options appropriate for the -# configuration. -DEFS = @DEFS@ - -LIBG2C = ../libg2c.a - -F2C_H_DIR = @srcdir@/.. -G2C_H_DIR = .. -CC = @CC@ -CFLAGS = @CFLAGS@ -CPPFLAGS = @CPPFLAGS@ -AR = @AR@ -ARFLAGS = rc -@SET_MAKE@ - -SHELL = /bin/sh - -#### End of system configuration section. #### - -ALL_CFLAGS = -I. -I$(srcdir) -I$(G2C_H_DIR) -I$(F2C_H_DIR) $(CPPFLAGS) \ - $(DEFS) $(CFLAGS) - -.SUFFIXES: -.SUFFIXES: .c .o - -.c.o: - $(CC) -c -DSkip_f2c_Undefs -DAllow_TYQUAD $(ALL_CFLAGS) $< - -OBJ = VersionI.o backspace.o close.o dfe.o dolio.o due.o endfile.o err.o \ - fmt.o fmtlib.o iio.o ilnw.o inquire.o lread.o lwrite.o open.o \ - rdfmt.o rewind.o rsfe.o rsli.o rsne.o sfe.o sue.o typesize.o uio.o \ - util.o wref.o wrtfmt.o wsfe.o wsle.o wsne.o xwsne.o \ - ftell_.o - -all: ../s-libi77 - -../s-libi77: $(OBJ) - echo timestamp > ../s-libi77 - -archive: - $(AR) $(ARFLAGS) $(LIBG2C) $(OBJ) - -Makefile: Makefile.in config.status - $(SHELL) config.status - -config.status: configure - rm -f config.cache - CONFIG_SITE=no-such-file CC='$(CC)' AR='$(AR)' CFLAGS='$(CFLAGS)' \ - CPPFLAGS='$(CPPFLAGS)' $(SHELL) config.status --recheck - -${srcdir}/configure: configure.in - rm -f config.cache - cd ${srcdir} && autoconf - -VersionI.o: Version.c - $(CC) -c $(ALL_CFLAGS) -o $@ $(srcdir)/Version.c - -backspace.o: backspace.c fio.h -close.o: close.c fio.h -dfe.o: fio.h -dfe.o: dfe.c fmt.h -dolio.o: dolio.c -due.o: due.c fio.h -endfile.o: endfile.c fio.h rawio.h -err.o: err.c fio.h rawio.h -fmt.o: fio.h -fmt.o: fmt.c fmt.h -fmtlib.o: fmtlib.c -ftell_.o: ftell_.c fio.h -iio.o: fio.h -iio.o: iio.c fmt.h -ilnw.o: fio.h -ilnw.o: ilnw.c lio.h -inquire.o: inquire.c fio.h -lread.o: fio.h -lread.o: fmt.h -lread.o: lio.h -lread.o: lread.c fp.h -lwrite.o: fio.h -lwrite.o: fmt.h -lwrite.o: lwrite.c lio.h -open.o: open.c fio.h rawio.h -rdfmt.o: fio.h -rdfmt.o: fmt.h -rdfmt.o: rdfmt.c fp.h -rewind.o: rewind.c fio.h -rsfe.o: fio.h -rsfe.o: rsfe.c fmt.h -rsli.o: fio.h -rsli.o: rsli.c lio.h -rsne.o: fio.h -rsne.o: rsne.c lio.h -sfe.o: sfe.c fio.h -sue.o: sue.c fio.h -typesize.o: typesize.c -uio.o: uio.c fio.h -util.o: util.c fio.h -wref.o: fio.h -wref.o: fmt.h -wref.o: wref.c fp.h -wrtfmt.o: fio.h -wrtfmt.o: wrtfmt.c fmt.h -wsfe.o: fio.h -wsfe.o: wsfe.c fmt.h -wsle.o: fio.h -wsle.o: fmt.h -wsle.o: wsle.c lio.h -wsne.o: fio.h -wsne.o: wsne.c lio.h -xwsne.o: fio.h -xwsne.o: lio.h -xwsne.o: xwsne.c fmt.h - -# May be pessimistic: -$(OBJ): $(F2C_H_DIR)/f2c.h $(G2C_H_DIR)/g2c.h - -check install uninstall install-strip dist installcheck installdirs: - -mostlyclean: - rm -f *.o - -clean: mostlyclean - rm -f config.log ../s-libi77 - -distclean: clean - rm -f config.cache config.status Makefile ../s-libi77 configure - -maintainer-clean: - -.PHONY: mostlyclean clean distclean maintainer-clean all check uninstall \ - install-strip dist installcheck installdirs archive diff --git a/gnu/egcs/libf2c/libI77/Notice b/gnu/egcs/libf2c/libI77/Notice deleted file mode 100644 index 261b719bc57..00000000000 --- a/gnu/egcs/libf2c/libI77/Notice +++ /dev/null @@ -1,23 +0,0 @@ -/**************************************************************** -Copyright 1990 - 1997 by AT&T, Lucent Technologies and Bellcore. - -Permission to use, copy, modify, and distribute this software -and its documentation for any purpose and without fee is hereby -granted, provided that the above copyright notice appear in all -copies and that both that the copyright notice and this -permission notice and warranty disclaimer appear in supporting -documentation, and that the names of AT&T, Bell Laboratories, -Lucent or Bellcore or any of their entities not be used in -advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -AT&T, Lucent and Bellcore disclaim all warranties with regard to -this software, including all implied warranties of -merchantability and fitness. In no event shall AT&T, Lucent or -Bellcore be liable for any special, indirect or consequential -damages or any damages whatsoever resulting from loss of use, -data or profits, whether in an action of contract, negligence or -other tortious action, arising out of or in connection with the -use or performance of this software. -****************************************************************/ - diff --git a/gnu/egcs/libf2c/libI77/README.netlib b/gnu/egcs/libf2c/libI77/README.netlib deleted file mode 100644 index 30dd5b5223d..00000000000 --- a/gnu/egcs/libf2c/libI77/README.netlib +++ /dev/null @@ -1,225 +0,0 @@ -If your compiler does not recognize ANSI C headers, -compile with KR_headers defined: either add -DKR_headers -to the definition of CFLAGS in the makefile, or insert - -#define KR_headers - -at the top of f2c.h and fmtlib.c . - - -If you have a really ancient K&R C compiler that does not understand -void, add -Dvoid=int to the definition of CFLAGS in the makefile. - -If you use a C++ compiler, first create a local f2c.h by appending -f2ch.add to the usual f2c.h, e.g., by issuing the command - make f2c.h -which assumes f2c.h is installed in /usr/include . - -If your system lacks /usr/include/fcntl.h , then you -should simply create an empty fcntl.h in this directory. -If your compiler then complains about creat and open not -having a prototype, compile with OPEN_DECL defined. -On many systems, open and creat are declared in fcntl.h . - -If your system has /usr/include/fcntl.h, you may need to add --D_POSIX_SOURCE to the makefile's definition of CFLAGS. - -If your system's sprintf does not work the way ANSI C -specifies -- specifically, if it does not return the -number of characters transmitted -- then insert the line - -#define USE_STRLEN - -at the end of fmt.h . This is necessary with -at least some versions of Sun and DEC software. -In particular, if you get a warning about an improper -pointer/integer combination in compiling wref.c, then -you need to compile with -DUSE_STRLEN . - -If your system's fopen does not like the ANSI binary -reading and writing modes "rb" and "wb", then you should -compile open.c with NON_ANSI_RW_MODES #defined. - -If you get error messages about references to cf->_ptr -and cf->_base when compiling wrtfmt.c and wsfe.c or to -stderr->_flag when compiling err.c, then insert the line - -#define NON_UNIX_STDIO - -at the beginning of fio.h, and recompile everything (or -at least those modules that contain NON_UNIX_STDIO). - -Unformatted sequential records consist of a length of record -contents, the record contents themselves, and the length of -record contents again (for backspace). Prior to 17 Oct. 1991, -the length was of type int; now it is of type long, but you -can change it back to int by inserting - -#define UIOLEN_int - -at the beginning of fio.h. This affects only sue.c and uio.c . - -On VAX, Cray, or Research Tenth-Edition Unix systems, you may -need to add -DVAX, -DCRAY, or -DV10 (respectively) to CFLAGS -to make fp.h work correctly. Alternatively, you may need to -edit fp.h to suit your machine. - -You may need to supply the following non-ANSI routines: - - fstat(int fileds, struct stat *buf) is similar -to stat(char *name, struct stat *buf), except that -the first argument, fileds, is the file descriptor -returned by open rather than the name of the file. -fstat is used in the system-dependent routine -canseek (in the libI77 source file err.c), which -is supposed to return 1 if it's possible to issue -seeks on the file in question, 0 if it's not; you may -need to suitably modify err.c . On non-UNIX systems, -you can avoid references to fstat and stat by compiling -with NON_UNIX_STDIO defined; in that case, you may need -to supply access(char *Name,0), which is supposed to -return 0 if file Name exists, nonzero otherwise. - - char * mktemp(char *buf) is supposed to replace the -6 trailing X's in buf with a unique number and then -return buf. The idea is to get a unique name for -a temporary file. - -On non-UNIX systems, you may need to change a few other, -e.g.: the form of name computed by mktemp() in endfile.c and -open.c; the use of the open(), close(), and creat() system -calls in endfile.c, err.c, open.c; and the modes in calls on -fopen() and fdopen() (and perhaps the use of fdopen() itself --- it's supposed to return a FILE* corresponding to a given -an integer file descriptor) in err.c and open.c (component ufmt -of struct unit is 1 for formatted I/O -- text mode on some systems --- and 0 for unformatted I/O -- binary mode on some systems). -Compiling with -DNON_UNIX_STDIO omits all references to creat() -and almost all references to open() and close(), the exception -being in the function f__isdev() (in open.c). - -For MS-DOS, compile all of libI77 with -DMSDOS (which implies --DNON_UNIX_STDIO). You may need to make other compiler-dependent -adjustments; for example, for Turbo C++ you need to adjust the mktemp -invocations and to #undef ungetc in lread.c and rsne.c . - -If you want to be able to load against libI77 but not libF77, -then you will need to add sig_die.o (from libF77) to libI77. - -If you wish to use translated Fortran that has funny notions -of record length for direct unformatted I/O (i.e., that assumes -RECL= values in OPEN statements are not bytes but rather counts -of some other units -- e.g., 4-character words for VMS), then you -should insert an appropriate #define for url_Adjust at the -beginning of open.c . For VMS Fortran, for example, -#define url_Adjust(x) x *= 4 -would suffice. - -To check for transmission errors, issue the command - make check -This assumes you have the xsum program whose source, xsum.c, -is distributed as part of "all from f2c/src". If you do not -have xsum, you can obtain xsum.c by sending the following E-mail -message to netlib@netlib.bell-labs.com - send xsum.c from f2c/src - -The makefile assumes you have installed f2c.h in a standard -place (and does not cause recompilation when f2c.h is changed); -f2c.h comes with "all from f2c" (the source for f2c) and is -available separately ("f2c.h from f2c"). - -By default, Fortran I/O units 5, 6, and 0 are pre-connected to -stdin, stdout, and stderr, respectively. You can change this -behavior by changing f_init() in err.c to suit your needs. -Note that f2c assumes READ(*... means READ(5... and WRITE(*... -means WRITE(6... . Moreover, an OPEN(n,... statement that does -not specify a file name (and does not specify STATUS='SCRATCH') -assumes FILE='fort.n' . You can change this by editing open.c -and endfile.c suitably. - -Unless you adjust the "#define MXUNIT" line in fio.h, Fortran units -0, 1, ..., 99 are available, i.e., the highest allowed unit number -is MXUNIT - 1. - -Lines protected from compilation by #ifdef Allow_TYQUAD -are for a possible extension to 64-bit integers in which -integer = int = 32 bits and longint = long = 64 bits. - -Extensions (Feb. 1993) to NAMELIST processing: - 1. Reading a ? instead of &name (the start of a namelist) causes -the namelist being sought to be written to stdout (unit 6); -to omit this feature, compile rsne.c with -DNo_Namelist_Questions. - 2. Reading the wrong namelist name now leads to an error message -and an attempt to skip input until the right namelist name is found; -to omit this feature, compile rsne.c with -DNo_Bad_Namelist_Skip. - 3. Namelist writes now insert newlines before each variable; to omit -this feature, compile xwsne.c with -DNo_Extra_Namelist_Newlines. - 4. (Sept. 1995) When looking for the &name that starts namelist -input, lines whose first non-blank character is something other -than &, $, or ? are treated as comment lines and ignored, unless -rsne.c is compiled with -DNo_Namelist_Comments. - -Nonstandard extension (Feb. 1993) to open: for sequential files, -ACCESS='APPEND' (or access='anything else starting with "A" or "a"') -causes the file to be positioned at end-of-file, so a write will -append to the file. - -Some buggy Fortran programs use unformatted direct I/O to write -an incomplete record and later read more from that record than -they have written. For records other than the last, the unwritten -portion of the record reads as binary zeros. The last record is -a special case: attempting to read more from it than was written -gives end-of-file -- which may help one find a bug. Some other -Fortran I/O libraries treat the last record no differently than -others and thus give no help in finding the bug of reading more -than was written. If you wish to have this behavior, compile -uio.c with -DPad_UDread . - -If you want to be able to catch write failures (e.g., due to a -disk being full) with an ERR= specifier, compile dfe.c, due.c, -sfe.c, sue.c, and wsle.c with -DALWAYS_FLUSH. This will lead to -slower execution and more I/O, but should make ERR= work as -expected, provided fflush returns an error return when its -physical write fails. - -Carriage controls are meant to be interpreted by the UNIX col -program (or a similar program). Sometimes it's convenient to use -only ' ' as the carriage control character (normal single spacing). -If you compile lwrite.c and wsfe.c with -DOMIT_BLANK_CC, formatted -external output lines will have an initial ' ' quietly omitted, -making use of the col program unnecessary with output that only -has ' ' for carriage control. - -The Fortran 77 Standard leaves it up to the implementation whether -formatted writes of floating-point numbers of absolute value < 1 have -a zero before the decimal point. By default, libI77 omits such -superfluous zeros, but you can cause them to appear by compiling -lwrite.c, wref.c, and wrtfmt.c with -DWANT_LEAD_0 . - -If your system lacks a ranlib command, you don't need it. -Either comment out the makefile's ranlib invocation, or install -a harmless "ranlib" command somewhere in your PATH, such as the -one-line shell script - - exit 0 - -or (on some systems) - - exec /usr/bin/ar lts $1 >/dev/null - -Most of the routines in libI77 are support routines for Fortran -I/O. There are a few exceptions, summarized below -- I/O related -functions and subroutines that appear to your program as ordinary -external Fortran routines. - -1. CALL FLUSH flushes all buffers. - -2. FTELL(i) is an INTEGER function that returns the current - offset of Fortran unit i (or -1 if unit i is not open). - -3. CALL FSEEK(i, offset, whence, *errlab) attemps to move - Fortran unit i to the specified offset: absolute offset - if whence = 0; relative to the current offset if whence = 1; - relative to the end of the file if whence = 2. It branches - to label errlab if unit i is not open or if the call - otherwise fails. diff --git a/gnu/egcs/libf2c/libI77/Version.c b/gnu/egcs/libf2c/libI77/Version.c deleted file mode 100644 index c5cf773bf23..00000000000 --- a/gnu/egcs/libf2c/libI77/Version.c +++ /dev/null @@ -1,318 +0,0 @@ -static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990503\n"; - -/* -*/ - -char __G77_LIBI77_VERSION__[] = "0.5.24-19981012"; - -/* -2.01 $ format added -2.02 Coding bug in open.c repaired -2.03 fixed bugs in lread.c (read * with negative f-format) and lio.c - and lio.h (e-format conforming to spec) -2.04 changed open.c and err.c (fopen and freopen respectively) to - update to new c-library (append mode) -2.05 added namelist capability -2.06 allow internal list and namelist I/O -*/ - -/* -close.c: - allow upper-case STATUS= values -endfile.c - create fort.nnn if unit nnn not open; - else if (file length == 0) use creat() rather than copy; - use local copy() rather than forking /bin/cp; - rewind, fseek to clear buffer (for no reading past EOF) -err.c - use neither setbuf nor setvbuf; make stderr buffered -fio.h - #define _bufend -inquire.c - upper case responses; - omit byfile test from SEQUENTIAL= - answer "YES" to DIRECT= for unopened file (open to debate) -lio.c - flush stderr, stdout at end of each stmt - space before character strings in list output only at line start -lio.h - adjust LEW, LED consistent with old libI77 -lread.c - use atof() - allow "nnn*," when reading complex constants -open.c - try opening for writing when open for read fails, with - special uwrt value (2) delaying creat() to first write; - set curunit so error messages don't drop core; - no file name ==> fort.nnn except for STATUS='SCRATCH' -rdfmt.c - use atof(); trust EOF == end-of-file (so don't read past - end-of-file after endfile stmt) -sfe.c - flush stderr, stdout at end of each stmt -wrtfmt.c: - use upper case - put wrt_E and wrt_F into wref.c, use sprintf() - rather than ecvt() and fcvt() [more accurate on VAX] -*/ - -/* 16 Oct. 1988: uwrt = 3 after write, rewind, so close won't zap the file. */ - -/* 10 July 1989: change _bufend to buf_end in fio.h, wsfe.c, wrtfmt.c */ - -/* 28 Nov. 1989: corrections for IEEE and Cray arithmetic */ -/* 29 Nov. 1989: change various int return types to long for f2c */ -/* 30 Nov. 1989: various types from f2c.h */ -/* 6 Dec. 1989: types corrected various places */ -/* 19 Dec. 1989: make iostat= work right for internal I/O */ -/* 8 Jan. 1990: add rsne, wsne -- routines for handling NAMELIST */ -/* 28 Jan. 1990: have NAMELIST read treat $ as &, general white - space as blank */ -/* 27 Mar. 1990: change an = to == in rd_L(rdfmt.c) so formatted reads - of logical values reject letters other than fFtT; - have nowwriting reset cf */ -/* 14 Aug. 1990: adjust lread.c to treat tabs as spaces in list input */ -/* 17 Aug. 1990: adjust open.c to recognize blank='Z...' as well as - blank='z...' when reopening an open file */ -/* 30 Aug. 1990: prevent embedded blanks in list output of complex values; - omit exponent field in list output of values of - magnitude between 10 and 1e8; prevent writing stdin - and reading stdout or stderr; don't close stdin, stdout, - or stderr when reopening units 5, 6, 0. */ -/* 18 Sep. 1990: add component udev to unit and consider old == new file - iff uinode and udev values agree; use stat rather than - access to check existence of file (when STATUS='OLD')*/ -/* 2 Oct. 1990: adjust rewind.c so two successive rewinds after a write - don't clobber the file. */ -/* 9 Oct. 1990: add #include "fcntl.h" to endfile.c, err.c, open.c; - adjust g_char in util.c for segmented memories. */ -/* 17 Oct. 1990: replace abort() and _cleanup() with calls on - sig_die(...,1) (defined in main.c). */ -/* 5 Nov. 1990: changes to open.c: complain if new= is specified and the - file already exists; allow file= to be omitted in open stmts - and allow status='replace' (Fortran 90 extensions). */ -/* 11 Dec. 1990: adjustments for POSIX. */ -/* 15 Jan. 1991: tweak i_ungetc in rsli.c to allow reading from - strings in read-only memory. */ -/* 25 Apr. 1991: adjust namelist stuff to work with f2c -i2 */ -/* 26 Apr. 1991: fix some bugs with NAMELIST read of multi-dim. arrays */ -/* 16 May 1991: increase LEFBL in lio.h to bypass NeXT bug */ -/* 17 Oct. 1991: change type of length field in sequential unformatted - records from int to long (for systems where sizeof(int) - can vary, depending on the compiler or compiler options). */ -/* 14 Nov. 1991: change uint to Uint in fmt.h, rdfmt.c, wrtfmt.c. */ -/* 25 Nov. 1991: change uint to Uint in lwrite.c; change sizeof(int) to - sizeof(uioint) in fseeks in sue.c (missed on 17 Oct.). */ -/* 1 Dec. 1991: uio.c: add test for read failure (seq. unformatted reads); - adjust an error return from EOF to off end of record */ -/* 12 Dec. 1991: rsli.c: fix bug with internal list input that caused - the last character of each record to be ignored. - iio.c: adjust error message in internal formatted - input from "end-of-file" to "off end of record" if - the format specifies more characters than the - record contains. */ -/* 17 Jan. 1992: lread.c, rsne.c: in list and namelist input, - treat "r* ," and "r*," alike (where r is a - positive integer constant), and fix a bug in - handling null values following items with repeat - counts (e.g., 2*1,,3); for namelist reading - of a numeric array, allow a new name-value subsequence - to terminate the current one (as though the current - one ended with the right number of null values). - lio.h, lwrite.c: omit insignificant zeros in - list and namelist output. To get the old - behavior, compile with -DOld_list_output . */ -/* 18 Jan. 1992: make list output consistent with F format by - printing .1 rather than 0.1 (introduced yesterday). */ -/* 3 Feb. 1992: rsne.c: fix namelist read bug that caused the - character following a comma to be ignored. */ -/* 19 May 1992: adjust iio.c, ilnw.c, rdfmt.c and rsli.c to make err= - work with internal list and formatted I/O. */ -/* 18 July 1992: adjust rsne.c to allow namelist input to stop at - an & (e.g. &end). */ -/* 23 July 1992: switch to ANSI prototypes unless KR_headers is #defined ; - recognize Z format (assuming 8-bit bytes). */ -/* 14 Aug. 1992: tweak wrt_E in wref.c to avoid -NaN */ -/* 23 Oct. 1992: Supply missing l_eof = 0 assignment to s_rsne() in rsne.c - (so end-of-file on other files won't confuse namelist - reads of external files). Prepend f__ to external - names that are only of internal interest to lib[FI]77. */ -/* 1 Feb. 1993: backspace.c: fix bug that bit when last char of 2nd - buffer == '\n'. - endfile.c: guard against tiny L_tmpnam; close and reopen - files in t_runc(). - lio.h: lengthen LINTW (buffer size in lwrite.c). - err.c, open.c: more prepending of f__ (to [rw]_mode). */ -/* 5 Feb. 1993: tweaks to NAMELIST: rsne.c: ? prints the namelist being - sought; namelists of the wrong name are skipped (after - an error message; xwsne.c: namelist writes have a - newline before each new variable. - open.c: ACCESS='APPEND' positions sequential files - at EOF (nonstandard extension -- that doesn't require - changing data structures). */ -/* 9 Feb. 1993: Change some #ifdef MSDOS lines to #ifdef NON_UNIX_STDIO. - err.c: under NON_UNIX_STDIO, avoid close(creat(name,0666)) - when the unit has another file descriptor for name. */ -/* 4 March 1993: err.c, open.c: take declaration of fdopen from rawio.h; - open.c: always give f__w_mode[] 4 elements for use - in t_runc (in endfile.c -- for change of 1 Feb. 1993). */ -/* 6 March 1993: uio.c: adjust off-end-of-record test for sequential - unformatted reads to respond to err= rather than end=. */ -/* 12 March 1993: various tweaks for C++ */ -/* 6 April 1993: adjust error returns for formatted inputs to flush - the current input line when err=label is specified. - To restore the old behavior (input left mid-line), - either adjust the #definition of errfl in fio.h or - omit the invocation of f__doend in err__fl (in err.c). */ -/* 23 June 1993: iio.c: fix bug in format reversions for internal writes. */ -/* 5 Aug. 1993: lread.c: fix bug in handling repetition counts for - logical data (during list or namelist input). - Change struct f__syl to struct syl (for buggy compilers). */ -/* 7 Aug. 1993: lread.c: fix bug in namelist reading of incomplete - logical arrays. */ -/* 9 Aug. 1993: lread.c: fix bug in namelist reading of an incomplete - array of numeric data followed by another namelist - item whose name starts with 'd', 'D', 'e', or 'E'. */ -/* 8 Sept. 1993: open.c: protect #include "sys/..." with - #ifndef NON_UNIX_STDIO; Version date not changed. */ -/* 10 Nov. 1993: backspace.c: add nonsense for #ifdef MSDOS */ -/* 8 Dec. 1993: iio.c: adjust internal formatted reads to treat - short records as though padded with blanks - (rather than causing an "off end of record" error). */ -/* 22 Feb. 1994: lread.c: check that realloc did not return NULL. */ -/* 6 June 1994: Under NON_UNIX_STDIO, use binary mode for direct - formatted files (avoiding any confusion regarding \n). */ -/* 5 July 1994: Fix bug (introduced 6 June 1994?) in reopening files - under NON_UNIX_STDIO. */ -/* 6 July 1994: wref.c: protect with #ifdef GOOD_SPRINTF_EXPONENT an - optimization that requires exponents to have 2 digits - when 2 digits suffice. - lwrite.c wsfe.c (list and formatted external output): - omit ' ' carriage-control when compiled with - -DOMIT_BLANK_CC . Off-by-one bug fixed in character - count for list output of character strings. - Omit '.' in list-directed printing of Nan, Infinity. */ -/* 12 July 1994: wrtfmt.c: under G11.4, write 0. as " .0000 " rather - than " .0000E+00". */ -/* 3 Aug. 1994: lwrite.c: do not insert a newline when appending an - oversize item to an empty line. */ -/* 12 Aug. 1994: rsli.c rsne.c: fix glitch (reset nml_read) that kept - ERR= (in list- or format-directed input) from working - after a NAMELIST READ. */ -/* 7 Sept. 1994: typesize.c: adjust to allow types LOGICAL*1, LOGICAL*2, - INTEGER*1, and (under -DAllow_TYQUAD) INTEGER*8 - in NAMELISTs. */ -/* 6 Oct. 1994: util.c: omit f__mvgbt, as it is never used. */ -/* 2 Nov. 1994: add #ifdef ALWAYS_FLUSH logic. */ -/* 26 Jan. 1995: wref.c: fix glitch in printing the exponent of 0 when - GOOD_SPRINTF_EXPONENT is not #defined. */ -/* 24 Feb. 1995: iio.c: z_getc: insert (unsigned char *) to allow - internal reading of characters with high-bit set - (on machines that sign-extend characters). */ -/* 14 March 1995:lread.c and rsfe.c: adjust s_rsle and s_rsfe to - check for end-of-file (to prevent infinite loops - with empty read statements). */ -/* 26 May 1995: iio.c: z_wnew: fix bug in handling T format items - in internal writes whose last item is written to - an earlier position than some previous item. */ -/* 29 Aug. 1995: backspace.c: adjust MSDOS logic. */ -/* 6 Sept. 1995: Adjust namelist input to treat a subscripted name - whose subscripts do not involve colons similarly - to the name without a subscript: accept several - values, stored in successive elements starting at - the indicated subscript. Adjust namelist output - to quote character strings (avoiding confusion with - arrays of character strings). Adjust f_init calls - for people who don't use libF77's main(); now open and - namelist read statements invoke f_init if needed. */ -/* 7 Sept. 1995: Fix some bugs with -DAllow_TYQUAD (for integer*8). - Add -DNo_Namelist_Comments lines to rsne.c. */ -/* 5 Oct. 1995: wrtfmt.c: fix bug with t editing (f__cursor was not - always zeroed in mv_cur). */ -/* 11 Oct. 1995: move defs of f__hiwater, f__svic, f__icptr from wrtfmt.c - to err.c */ -/* 15 Mar. 1996: lread.c, rsfe.c: honor END= in READ stmt with empty iolist */ - -/* 13 May 1996: add ftell_.c and fseek_.c */ -/* 9 June 1996: Adjust rsli.c and lread.c so internal list input with - too few items in the input string will honor end= . */ -/* 12 Sept. 1995:fmtlib.c: fix glitch in printing the most negative integer. */ -/* 25 Sept. 1995:fmt.h: for formatted writes of negative integer*1 values, - make ic signed on ANSI systems. If formatted writes of - integer*1 values trouble you when using a K&R C compiler, - switch to an ANSI compiler or use a compiler flag that - makes characters signed. */ -/* 9 Dec. 1996: d[fu]e.c, err.c: complain about non-positive rec= - in direct read and write statements. - ftell_.c: change param "unit" to "Unit" for -DKR_headers. */ -/* 26 Feb. 1997: ftell_.c: on systems that define SEEK_SET, etc., use - SEEK_SET, SEEK_CUR, SEEK_END for *whence = 0, 1, 2. */ -/* 7 Apr. 1997: fmt.c: adjust to complain at missing numbers in formats - (but still treat missing ".nnn" as ".0"). */ -/* 11 Apr. 1997: err.c: attempt to make stderr line buffered rather - than fully buffered. (Buffering is needed for format - items T and TR.) */ -/* 27 May 1997: ftell_.c: fix typo (that caused the third argument to be - treated as 2 on some systems). */ -/* 5 Aug. 1997: lread.c: adjust to accord with a change to the Fortran 8X - draft (in 1990 or 1991) that rescinded permission to elide - quote marks in namelist input of character data; compile - with -DF8X_NML_ELIDE_QUOTES to get the old behavior. - wrtfmt.o: wrt_G: tweak to print the right number of 0's - for zero under G format. */ -/* 16 Aug. 1997: iio.c: fix bug in internal writes to an array of character - strings that sometimes caused one more array element than - required by the format to be blank-filled. Example: - format(1x). */ -/* 16 Sept. 1997:fmt.[ch] rdfmt.c wrtfmt.c: tweak struct syl for machines - with 64-bit pointers and 32-bit ints that did not 64-bit - align struct syl (e.g., Linux on the DEC Alpha). */ -/* 19 Jan. 1998: backspace.c: for b->ufmt==0, change sizeof(int) to - sizeof(uiolen). On machines where this would make a - difference, it is best for portability to compile libI77 with - -DUIOLEN_int (which will render the change invisible). */ -/* 4 March 1998: open.c: fix glitch in comparing file names under - -DNON_UNIX_STDIO */ -/* 17 March 1998: endfile.c, open.c: acquire temporary files from tmpfile(), - unless compiled with -DNON_ANSI_STDIO, which uses mktemp(). - New buffering scheme independent of NON_UNIX_STDIO for - handling T format items. Now -DNON_UNIX_STDIO is no - longer be necessary for Linux, and libf2c no longer - causes stderr to be buffered -- the former setbuf or - setvbuf call for stderr was to make T format items work. - open.c: use the Posix access() function to check existence - or nonexistence of files, except under -DNON_POSIX_STDIO, - where trial fopen calls are used. */ -/* 5 April 1998: wsfe.c: make $ format item work: this was lost in the - changes of 17 March 1998. */ -/* 28 May 1998: backspace.c dfe.c due.c iio.c lread.c rsfe.c sue.c wsfe.c: - set f__curunit sooner so various error messages will - correctly identify the I/O unit involved. */ -/* 17 June 1998: lread.c: unless compiled with - ALLOW_FLOAT_IN_INTEGER_LIST_INPUT #defined, treat - floating-point numbers (containing either a decimal point - or an exponent field) as errors when they appear as list - input for integer data. */ -/* 7 Sept. 1998: move e_wdfe from sfe.c to dfe.c, where it was originally. - Why did it ever move to sfe.c? */ -/* 2 May 1999: open.c: set f__external (to get "external" versus "internal" - right in the error message if we cannot open the file). - err.c: cast a pointer difference to (int) for %d. - rdfmt.c: omit fixed-length buffer that could be overwritten - by formats Inn or Lnn with nn > 83. */ -/* 3 May 1999: open.c: insert two casts for machines with 64-bit longs. */ - - - -/* Changes for GNU Fortran (g77) version of libf2c: */ - -/* 17 June 1997: detect recursive I/O and call f__fatal explaining it. */ - -#include <stdio.h> - -void -g77__ivers__ () -{ - fprintf (stderr, "__G77_LIBI77_VERSION__: %s", __G77_LIBI77_VERSION__); - fputs (junk, stderr); -} diff --git a/gnu/egcs/libf2c/libI77/backspace.c b/gnu/egcs/libf2c/libI77/backspace.c deleted file mode 100644 index 1da686dbb48..00000000000 --- a/gnu/egcs/libf2c/libI77/backspace.c +++ /dev/null @@ -1,72 +0,0 @@ -#include <sys/types.h> -#include "f2c.h" -#include "fio.h" -#ifdef KR_headers -integer f_back(a) alist *a; -#else -integer f_back(alist *a) -#endif -{ unit *b; - long v, w, x, y, z; - uiolen n; - FILE *f; - - f__curunit = b = &f__units[a->aunit]; /* curunit for error messages */ - if (f__init & 2) - f__fatal (131, "I/O recursion"); - if(a->aunit >= MXUNIT || a->aunit < 0) - err(a->aerr,101,"backspace"); - if(b->useek==0) err(a->aerr,106,"backspace"); - if((f = b->ufd) == NULL) { - fk_open(1, 1, a->aunit); - return(0); - } - if(b->uend==1) - { b->uend=0; - return(0); - } - if(b->uwrt) { - (void) t_runc(a); - if (f__nowreading(b)) - err(a->aerr,errno,"backspace"); - } - if(b->url>0) - { - x=ftell(f); - y = x % b->url; - if(y == 0) x--; - x /= b->url; - x *= b->url; - (void) fseek(f,x,SEEK_SET); - return(0); - } - - if(b->ufmt==0) - { fseek(f,-(long)sizeof(uiolen),SEEK_CUR); - fread((char *)&n,sizeof(uiolen),1,f); - fseek(f,-(long)n-2*sizeof(uiolen),SEEK_CUR); - return(0); - } - w = x = ftell(f); - z = 0; - loop: - while(x) { - x -= x < 64 ? x : 64; - fseek(f,x,SEEK_SET); - for(y = x; y < w; y++) { - if (getc(f) != '\n') - continue; - v = ftell(f); - if (v == w) { - if (z) - goto break2; - goto loop; - } - z = v; - } - err(a->aerr,(EOF),"backspace"); - } - break2: - fseek(f, z, SEEK_SET); - return 0; -} diff --git a/gnu/egcs/libf2c/libI77/close.c b/gnu/egcs/libf2c/libI77/close.c deleted file mode 100644 index bbc5bacb821..00000000000 --- a/gnu/egcs/libf2c/libI77/close.c +++ /dev/null @@ -1,105 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#ifdef KR_headers -integer f_clos(a) cllist *a; -#else -#undef abs -#undef min -#undef max -#include <stdlib.h> -#ifdef NON_UNIX_STDIO -#ifndef unlink -#define unlink remove -#endif -#else -#if defined (MSDOS) && !defined (GO32) -#include "io.h" -#else -#ifdef __cplusplus -extern "C" int unlink(const char*); -#else -extern int unlink(const char*); -#endif -#endif -#endif - -integer f_clos(cllist *a) -#endif -{ unit *b; - - if (f__init & 2) - f__fatal (131, "I/O recursion"); - if(a->cunit >= MXUNIT) return(0); - b= &f__units[a->cunit]; - if(b->ufd==NULL) - goto done; - if (b->uscrtch == 1) - goto Delete; - if (!a->csta) - goto Keep; - switch(*a->csta) { - default: - Keep: - case 'k': - case 'K': - if(b->uwrt == 1) - t_runc((alist *)a); - if(b->ufnm) { - fclose(b->ufd); - free(b->ufnm); - } - break; - case 'd': - case 'D': - Delete: - fclose(b->ufd); - if(b->ufnm) { - unlink(b->ufnm); /*SYSDEP*/ - free(b->ufnm); - } - } - b->ufd=NULL; - done: - b->uend=0; - b->ufnm=NULL; - return(0); - } - void -#ifdef KR_headers -f_exit() -#else -f_exit(void) -#endif -{ int i; - static cllist xx; - if (! (f__init & 1)) - return; /* Not initialized, so no open units. */ - /* I/O no longer in progress. If, during an I/O operation (such - as waiting for the user to enter a line), there is an - interrupt (such as ^C to stop the program on a UNIX system), - f_exit() is called, but there is no longer any I/O in - progress. Without turning off this flag, f_clos() would - think that there is an I/O recursion in this circumstance. */ - f__init &= ~2; - if (!xx.cerr) { - xx.cerr=1; - xx.csta=NULL; - for(i=0;i<MXUNIT;i++) - { - xx.cunit=i; - (void) f_clos(&xx); - } - } -} - int -#ifdef KR_headers -G77_flush_0 () -#else -G77_flush_0 (void) -#endif -{ int i; - for(i=0;i<MXUNIT;i++) - if(f__units[i].ufd != NULL && f__units[i].uwrt) - fflush(f__units[i].ufd); -return 0; -} diff --git a/gnu/egcs/libf2c/libI77/configure b/gnu/egcs/libf2c/libI77/configure deleted file mode 100644 index 69868c5383f..00000000000 --- a/gnu/egcs/libf2c/libI77/configure +++ /dev/null @@ -1,1752 +0,0 @@ -#! /bin/sh - -# Guess values for system-dependent variables and create Makefiles. -# Generated automatically using autoconf version 2.13 -# Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc. -# -# This configure script is free software; the Free Software Foundation -# gives unlimited permission to copy, distribute and modify it. - -# Defaults: -ac_help= -ac_default_prefix=/usr/local -# Any additions from configure.in: - -# Initialize some variables set by options. -# The variables have the same names as the options, with -# dashes changed to underlines. -build=NONE -cache_file=./config.cache -exec_prefix=NONE -host=NONE -no_create= -nonopt=NONE -no_recursion= -prefix=NONE -program_prefix=NONE -program_suffix=NONE -program_transform_name=s,x,x, -silent= -site= -srcdir= -target=NONE -verbose= -x_includes=NONE -x_libraries=NONE -bindir='${exec_prefix}/bin' -sbindir='${exec_prefix}/sbin' -libexecdir='${exec_prefix}/libexec' -datadir='${prefix}/share' -sysconfdir='${prefix}/etc' -sharedstatedir='${prefix}/com' -localstatedir='${prefix}/var' -libdir='${exec_prefix}/lib' -includedir='${prefix}/include' -oldincludedir='/usr/include' -infodir='${prefix}/info' -mandir='${prefix}/man' - -# Initialize some other variables. -subdirs= -MFLAGS= MAKEFLAGS= -SHELL=${CONFIG_SHELL-/bin/sh} -# Maximum number of lines to put in a shell here document. -ac_max_here_lines=12 - -ac_prev= -for ac_option -do - - # If the previous option needs an argument, assign it. - if test -n "$ac_prev"; then - eval "$ac_prev=\$ac_option" - ac_prev= - continue - fi - - case "$ac_option" in - -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;; - *) ac_optarg= ;; - esac - - # Accept the important Cygnus configure options, so we can diagnose typos. - - case "$ac_option" in - - -bindir | --bindir | --bindi | --bind | --bin | --bi) - ac_prev=bindir ;; - -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) - bindir="$ac_optarg" ;; - - -build | --build | --buil | --bui | --bu) - ac_prev=build ;; - -build=* | --build=* | --buil=* | --bui=* | --bu=*) - build="$ac_optarg" ;; - - -cache-file | --cache-file | --cache-fil | --cache-fi \ - | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) - ac_prev=cache_file ;; - -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ - | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) - cache_file="$ac_optarg" ;; - - -datadir | --datadir | --datadi | --datad | --data | --dat | --da) - ac_prev=datadir ;; - -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ - | --da=*) - datadir="$ac_optarg" ;; - - -disable-* | --disable-*) - ac_feature=`echo $ac_option|sed -e 's/-*disable-//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then - { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } - fi - ac_feature=`echo $ac_feature| sed 's/-/_/g'` - eval "enable_${ac_feature}=no" ;; - - -enable-* | --enable-*) - ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then - { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } - fi - ac_feature=`echo $ac_feature| sed 's/-/_/g'` - case "$ac_option" in - *=*) ;; - *) ac_optarg=yes ;; - esac - eval "enable_${ac_feature}='$ac_optarg'" ;; - - -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ - | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ - | --exec | --exe | --ex) - ac_prev=exec_prefix ;; - -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ - | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ - | --exec=* | --exe=* | --ex=*) - exec_prefix="$ac_optarg" ;; - - -gas | --gas | --ga | --g) - # Obsolete; use --with-gas. - with_gas=yes ;; - - -help | --help | --hel | --he) - # Omit some internal or obsolete options to make the list less imposing. - # This message is too long to be a string in the A/UX 3.1 sh. - cat << EOF -Usage: configure [options] [host] -Options: [defaults in brackets after descriptions] -Configuration: - --cache-file=FILE cache test results in FILE - --help print this message - --no-create do not create output files - --quiet, --silent do not print \`checking...' messages - --version print the version of autoconf that created configure -Directory and file names: - --prefix=PREFIX install architecture-independent files in PREFIX - [$ac_default_prefix] - --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX - [same as prefix] - --bindir=DIR user executables in DIR [EPREFIX/bin] - --sbindir=DIR system admin executables in DIR [EPREFIX/sbin] - --libexecdir=DIR program executables in DIR [EPREFIX/libexec] - --datadir=DIR read-only architecture-independent data in DIR - [PREFIX/share] - --sysconfdir=DIR read-only single-machine data in DIR [PREFIX/etc] - --sharedstatedir=DIR modifiable architecture-independent data in DIR - [PREFIX/com] - --localstatedir=DIR modifiable single-machine data in DIR [PREFIX/var] - --libdir=DIR object code libraries in DIR [EPREFIX/lib] - --includedir=DIR C header files in DIR [PREFIX/include] - --oldincludedir=DIR C header files for non-gcc in DIR [/usr/include] - --infodir=DIR info documentation in DIR [PREFIX/info] - --mandir=DIR man documentation in DIR [PREFIX/man] - --srcdir=DIR find the sources in DIR [configure dir or ..] - --program-prefix=PREFIX prepend PREFIX to installed program names - --program-suffix=SUFFIX append SUFFIX to installed program names - --program-transform-name=PROGRAM - run sed PROGRAM on installed program names -EOF - cat << EOF -Host type: - --build=BUILD configure for building on BUILD [BUILD=HOST] - --host=HOST configure for HOST [guessed] - --target=TARGET configure for TARGET [TARGET=HOST] -Features and packages: - --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) - --enable-FEATURE[=ARG] include FEATURE [ARG=yes] - --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] - --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) - --x-includes=DIR X include files are in DIR - --x-libraries=DIR X library files are in DIR -EOF - if test -n "$ac_help"; then - echo "--enable and --with options recognized:$ac_help" - fi - exit 0 ;; - - -host | --host | --hos | --ho) - ac_prev=host ;; - -host=* | --host=* | --hos=* | --ho=*) - host="$ac_optarg" ;; - - -includedir | --includedir | --includedi | --included | --include \ - | --includ | --inclu | --incl | --inc) - ac_prev=includedir ;; - -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ - | --includ=* | --inclu=* | --incl=* | --inc=*) - includedir="$ac_optarg" ;; - - -infodir | --infodir | --infodi | --infod | --info | --inf) - ac_prev=infodir ;; - -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) - infodir="$ac_optarg" ;; - - -libdir | --libdir | --libdi | --libd) - ac_prev=libdir ;; - -libdir=* | --libdir=* | --libdi=* | --libd=*) - libdir="$ac_optarg" ;; - - -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ - | --libexe | --libex | --libe) - ac_prev=libexecdir ;; - -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ - | --libexe=* | --libex=* | --libe=*) - libexecdir="$ac_optarg" ;; - - -localstatedir | --localstatedir | --localstatedi | --localstated \ - | --localstate | --localstat | --localsta | --localst \ - | --locals | --local | --loca | --loc | --lo) - ac_prev=localstatedir ;; - -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ - | --localstate=* | --localstat=* | --localsta=* | --localst=* \ - | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) - localstatedir="$ac_optarg" ;; - - -mandir | --mandir | --mandi | --mand | --man | --ma | --m) - ac_prev=mandir ;; - -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) - mandir="$ac_optarg" ;; - - -nfp | --nfp | --nf) - # Obsolete; use --without-fp. - with_fp=no ;; - - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c) - no_create=yes ;; - - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) - no_recursion=yes ;; - - -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ - | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ - | --oldin | --oldi | --old | --ol | --o) - ac_prev=oldincludedir ;; - -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ - | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ - | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) - oldincludedir="$ac_optarg" ;; - - -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) - ac_prev=prefix ;; - -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) - prefix="$ac_optarg" ;; - - -program-prefix | --program-prefix | --program-prefi | --program-pref \ - | --program-pre | --program-pr | --program-p) - ac_prev=program_prefix ;; - -program-prefix=* | --program-prefix=* | --program-prefi=* \ - | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) - program_prefix="$ac_optarg" ;; - - -program-suffix | --program-suffix | --program-suffi | --program-suff \ - | --program-suf | --program-su | --program-s) - ac_prev=program_suffix ;; - -program-suffix=* | --program-suffix=* | --program-suffi=* \ - | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) - program_suffix="$ac_optarg" ;; - - -program-transform-name | --program-transform-name \ - | --program-transform-nam | --program-transform-na \ - | --program-transform-n | --program-transform- \ - | --program-transform | --program-transfor \ - | --program-transfo | --program-transf \ - | --program-trans | --program-tran \ - | --progr-tra | --program-tr | --program-t) - ac_prev=program_transform_name ;; - -program-transform-name=* | --program-transform-name=* \ - | --program-transform-nam=* | --program-transform-na=* \ - | --program-transform-n=* | --program-transform-=* \ - | --program-transform=* | --program-transfor=* \ - | --program-transfo=* | --program-transf=* \ - | --program-trans=* | --program-tran=* \ - | --progr-tra=* | --program-tr=* | --program-t=*) - program_transform_name="$ac_optarg" ;; - - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil) - silent=yes ;; - - -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) - ac_prev=sbindir ;; - -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ - | --sbi=* | --sb=*) - sbindir="$ac_optarg" ;; - - -sharedstatedir | --sharedstatedir | --sharedstatedi \ - | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ - | --sharedst | --shareds | --shared | --share | --shar \ - | --sha | --sh) - ac_prev=sharedstatedir ;; - -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ - | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ - | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ - | --sha=* | --sh=*) - sharedstatedir="$ac_optarg" ;; - - -site | --site | --sit) - ac_prev=site ;; - -site=* | --site=* | --sit=*) - site="$ac_optarg" ;; - - -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) - ac_prev=srcdir ;; - -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) - srcdir="$ac_optarg" ;; - - -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ - | --syscon | --sysco | --sysc | --sys | --sy) - ac_prev=sysconfdir ;; - -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ - | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) - sysconfdir="$ac_optarg" ;; - - -target | --target | --targe | --targ | --tar | --ta | --t) - ac_prev=target ;; - -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) - target="$ac_optarg" ;; - - -v | -verbose | --verbose | --verbos | --verbo | --verb) - verbose=yes ;; - - -version | --version | --versio | --versi | --vers) - echo "configure generated by autoconf version 2.13" - exit 0 ;; - - -with-* | --with-*) - ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then - { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } - fi - ac_package=`echo $ac_package| sed 's/-/_/g'` - case "$ac_option" in - *=*) ;; - *) ac_optarg=yes ;; - esac - eval "with_${ac_package}='$ac_optarg'" ;; - - -without-* | --without-*) - ac_package=`echo $ac_option|sed -e 's/-*without-//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then - { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } - fi - ac_package=`echo $ac_package| sed 's/-/_/g'` - eval "with_${ac_package}=no" ;; - - --x) - # Obsolete; use --with-x. - with_x=yes ;; - - -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ - | --x-incl | --x-inc | --x-in | --x-i) - ac_prev=x_includes ;; - -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ - | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) - x_includes="$ac_optarg" ;; - - -x-libraries | --x-libraries | --x-librarie | --x-librari \ - | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) - ac_prev=x_libraries ;; - -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ - | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) - x_libraries="$ac_optarg" ;; - - -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; } - ;; - - *) - if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then - echo "configure: warning: $ac_option: invalid host type" 1>&2 - fi - if test "x$nonopt" != xNONE; then - { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } - fi - nonopt="$ac_option" - ;; - - esac -done - -if test -n "$ac_prev"; then - { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; } -fi - -trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 - -# File descriptor usage: -# 0 standard input -# 1 file creation -# 2 errors and warnings -# 3 some systems may open it to /dev/tty -# 4 used on the Kubota Titan -# 6 checking for... messages and results -# 5 compiler messages saved in config.log -if test "$silent" = yes; then - exec 6>/dev/null -else - exec 6>&1 -fi -exec 5>./config.log - -echo "\ -This file contains any messages produced by compilers while -running configure, to aid debugging if configure makes a mistake. -" 1>&5 - -# Strip out --no-create and --no-recursion so they do not pile up. -# Also quote any args containing shell metacharacters. -ac_configure_args= -for ac_arg -do - case "$ac_arg" in - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c) ;; - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;; - *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*) - ac_configure_args="$ac_configure_args '$ac_arg'" ;; - *) ac_configure_args="$ac_configure_args $ac_arg" ;; - esac -done - -# NLS nuisances. -# Only set these to C if already set. These must not be set unconditionally -# because not all systems understand e.g. LANG=C (notably SCO). -# Fixing LC_MESSAGES prevents Solaris sh from translating var values in `set'! -# Non-C LC_CTYPE values break the ctype check. -if test "${LANG+set}" = set; then LANG=C; export LANG; fi -if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi -if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi -if test "${LC_CTYPE+set}" = set; then LC_CTYPE=C; export LC_CTYPE; fi - -# confdefs.h avoids OS command line length limits that DEFS can exceed. -rm -rf conftest* confdefs.h -# AIX cpp loses on an empty file, so make sure it contains at least a newline. -echo > confdefs.h - -# A filename unique to this package, relative to the directory that -# configure is in, which we can look for to find out if srcdir is correct. -ac_unique_file=ftell_.c - -# Find the source files, if location was not specified. -if test -z "$srcdir"; then - ac_srcdir_defaulted=yes - # Try the directory containing this script, then its parent. - ac_prog=$0 - ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'` - test "x$ac_confdir" = "x$ac_prog" && ac_confdir=. - srcdir=$ac_confdir - if test ! -r $srcdir/$ac_unique_file; then - srcdir=.. - fi -else - ac_srcdir_defaulted=no -fi -if test ! -r $srcdir/$ac_unique_file; then - if test "$ac_srcdir_defaulted" = yes; then - { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; } - else - { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; } - fi -fi -srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'` - -# Prefer explicitly selected file to automatically selected ones. -if test -z "$CONFIG_SITE"; then - if test "x$prefix" != xNONE; then - CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" - else - CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" - fi -fi -for ac_site_file in $CONFIG_SITE; do - if test -r "$ac_site_file"; then - echo "loading site script $ac_site_file" - . "$ac_site_file" - fi -done - -if test -r "$cache_file"; then - echo "loading cache $cache_file" - . $cache_file -else - echo "creating cache $cache_file" - > $cache_file -fi - -ac_ext=c -# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. -ac_cpp='$CPP $CPPFLAGS' -ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' -ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -cross_compiling=$ac_cv_prog_cc_cross - -ac_exeext= -ac_objext=o -if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then - # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu. - if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then - ac_n= ac_c=' -' ac_t=' ' - else - ac_n=-n ac_c= ac_t= - fi -else - ac_n= ac_c='\c' ac_t= -fi - - - -# For g77 we'll set CC to point at the built gcc, but this will get it into -# the makefiles -# Extract the first word of "gcc", so it can be a program name with args. -set dummy gcc; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:531: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_CC="gcc" - break - fi - done - IFS="$ac_save_ifs" -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - -if test -z "$CC"; then - # Extract the first word of "cc", so it can be a program name with args. -set dummy cc; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:561: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_prog_rejected=no - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - if test "$ac_dir/$ac_word" = "/usr/ucb/cc"; then - ac_prog_rejected=yes - continue - fi - ac_cv_prog_CC="cc" - break - fi - done - IFS="$ac_save_ifs" -if test $ac_prog_rejected = yes; then - # We found a bogon in the path, so make sure we never use it. - set dummy $ac_cv_prog_CC - shift - if test $# -gt 0; then - # We chose a different compiler from the bogus one. - # However, it has the same basename, so the bogon will be chosen - # first if we set CC to just the basename; use the full file name. - shift - set dummy "$ac_dir/$ac_word" "$@" - shift - ac_cv_prog_CC="$@" - fi -fi -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - - if test -z "$CC"; then - case "`uname -s`" in - *win32* | *WIN32*) - # Extract the first word of "cl", so it can be a program name with args. -set dummy cl; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:612: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_CC="cl" - break - fi - done - IFS="$ac_save_ifs" -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - ;; - esac - fi - test -z "$CC" && { echo "configure: error: no acceptable cc found in \$PATH" 1>&2; exit 1; } -fi - -echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works""... $ac_c" 1>&6 -echo "configure:644: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works" >&5 - -ac_ext=c -# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. -ac_cpp='$CPP $CPPFLAGS' -ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' -ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -cross_compiling=$ac_cv_prog_cc_cross - -cat > conftest.$ac_ext << EOF - -#line 655 "configure" -#include "confdefs.h" - -main(){return(0);} -EOF -if { (eval echo configure:660: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - ac_cv_prog_cc_works=yes - # If we can't run a trivial program, we are probably using a cross compiler. - if (./conftest; exit) 2>/dev/null; then - ac_cv_prog_cc_cross=no - else - ac_cv_prog_cc_cross=yes - fi -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - ac_cv_prog_cc_works=no -fi -rm -fr conftest* -ac_ext=c -# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. -ac_cpp='$CPP $CPPFLAGS' -ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' -ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -cross_compiling=$ac_cv_prog_cc_cross - -echo "$ac_t""$ac_cv_prog_cc_works" 1>&6 -if test $ac_cv_prog_cc_works = no; then - { echo "configure: error: installation or configuration problem: C compiler cannot create executables." 1>&2; exit 1; } -fi -echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler""... $ac_c" 1>&6 -echo "configure:686: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler" >&5 -echo "$ac_t""$ac_cv_prog_cc_cross" 1>&6 -cross_compiling=$ac_cv_prog_cc_cross - -echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6 -echo "configure:691: checking whether we are using GNU C" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.c <<EOF -#ifdef __GNUC__ - yes; -#endif -EOF -if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:700: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then - ac_cv_prog_gcc=yes -else - ac_cv_prog_gcc=no -fi -fi - -echo "$ac_t""$ac_cv_prog_gcc" 1>&6 - -if test $ac_cv_prog_gcc = yes; then - GCC=yes -else - GCC= -fi - -ac_test_CFLAGS="${CFLAGS+set}" -ac_save_CFLAGS="$CFLAGS" -CFLAGS= -echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6 -echo "configure:719: checking whether ${CC-cc} accepts -g" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - echo 'void f(){}' > conftest.c -if test -z "`${CC-cc} -g -c conftest.c 2>&1`"; then - ac_cv_prog_cc_g=yes -else - ac_cv_prog_cc_g=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$ac_cv_prog_cc_g" 1>&6 -if test "$ac_test_CFLAGS" = set; then - CFLAGS="$ac_save_CFLAGS" -elif test $ac_cv_prog_cc_g = yes; then - if test "$GCC" = yes; then - CFLAGS="-g -O2" - else - CFLAGS="-g" - fi -else - if test "$GCC" = yes; then - CFLAGS="-O2" - else - CFLAGS= - fi -fi - - -test "$AR" || AR=ar - -echo $ac_n "checking whether ${MAKE-make} sets \${MAKE}""... $ac_c" 1>&6 -echo "configure:754: checking whether ${MAKE-make} sets \${MAKE}" >&5 -set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y%./+-%__p_%'` -if eval "test \"`echo '$''{'ac_cv_prog_make_${ac_make}_set'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftestmake <<\EOF -all: - @echo 'ac_maketemp="${MAKE}"' -EOF -# GNU make sometimes prints "make[1]: Entering...", which would confuse us. -eval `${MAKE-make} -f conftestmake 2>/dev/null | grep temp=` -if test -n "$ac_maketemp"; then - eval ac_cv_prog_make_${ac_make}_set=yes -else - eval ac_cv_prog_make_${ac_make}_set=no -fi -rm -f conftestmake -fi -if eval "test \"`echo '$ac_cv_prog_make_'${ac_make}_set`\" = yes"; then - echo "$ac_t""yes" 1>&6 - SET_MAKE= -else - echo "$ac_t""no" 1>&6 - SET_MAKE="MAKE=${MAKE-make}" -fi - - - -# Sanity check for the cross-compilation case: -echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6 -echo "configure:784: checking how to run the C preprocessor" >&5 -# On Suns, sometimes $CPP names a directory. -if test -n "$CPP" && test -d "$CPP"; then - CPP= -fi -if test -z "$CPP"; then -if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - # This must be in double quotes, not single quotes, because CPP may get - # substituted into the Makefile and "${CC-cc}" will confuse make. - CPP="${CC-cc} -E" - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. - cat > conftest.$ac_ext <<EOF -#line 799 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:805: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP="${CC-cc} -E -traditional-cpp" - cat > conftest.$ac_ext <<EOF -#line 816 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:822: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP="${CC-cc} -nologo -E" - cat > conftest.$ac_ext <<EOF -#line 833 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:839: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP=/lib/cpp -fi -rm -f conftest* -fi -rm -f conftest* -fi -rm -f conftest* - ac_cv_prog_CPP="$CPP" -fi - CPP="$ac_cv_prog_CPP" -else - ac_cv_prog_CPP="$CPP" -fi -echo "$ac_t""$CPP" 1>&6 - -ac_safe=`echo "stdio.h" | sed 'y%./+-%__p_%'` -echo $ac_n "checking for stdio.h""... $ac_c" 1>&6 -echo "configure:865: checking for stdio.h" >&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 870 "configure" -#include "confdefs.h" -#include <stdio.h> -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:875: \"$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* - eval "ac_cv_header_$ac_safe=yes" -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_header_$ac_safe=no" -fi -rm -f conftest* -fi -if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then - echo "$ac_t""yes" 1>&6 - : -else - echo "$ac_t""no" 1>&6 -{ echo "configure: error: Can't find stdio.h. -You must have a usable C system for the target already installed, at least -including headers and, preferably, the library, before you can configure -the G77 runtime system. If necessary, install gcc now with \`LANGUAGES=c', -then the target library, then build with \`LANGUAGES=f77'." 1>&2; exit 1; } -fi - - -echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6 -echo "configure:903: checking for ANSI C header files" >&5 -if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 908 "configure" -#include "confdefs.h" -#include <stdlib.h> -#include <stdarg.h> -#include <string.h> -#include <float.h> -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:916: \"$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* - ac_cv_header_stdc=yes -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -if test $ac_cv_header_stdc = yes; then - # SunOS 4.x string.h does not declare mem*, contrary to ANSI. -cat > conftest.$ac_ext <<EOF -#line 933 "configure" -#include "confdefs.h" -#include <string.h> -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "memchr" >/dev/null 2>&1; then - : -else - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. -cat > conftest.$ac_ext <<EOF -#line 951 "configure" -#include "confdefs.h" -#include <stdlib.h> -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "free" >/dev/null 2>&1; then - : -else - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. -if test "$cross_compiling" = yes; then - : -else - cat > conftest.$ac_ext <<EOF -#line 972 "configure" -#include "confdefs.h" -#include <ctype.h> -#define ISLOWER(c) ('a' <= (c) && (c) <= 'z') -#define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) -#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) -int main () { int i; for (i = 0; i < 256; i++) -if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2); -exit (0); } - -EOF -if { (eval echo configure:983: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null -then - : -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -fr conftest* - ac_cv_header_stdc=no -fi -rm -fr conftest* -fi - -fi -fi - -echo "$ac_t""$ac_cv_header_stdc" 1>&6 -if test $ac_cv_header_stdc = yes; then - cat >> confdefs.h <<\EOF -#define STDC_HEADERS 1 -EOF - -fi - - -echo $ac_n "checking for posix""... $ac_c" 1>&6 -echo "configure:1008: checking for posix" >&5 -if eval "test \"`echo '$''{'g77_cv_header_posix'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1013 "configure" -#include "confdefs.h" -#include <sys/types.h> -#include <unistd.h> -#ifdef _POSIX_VERSION - yes -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "yes" >/dev/null 2>&1; then - rm -rf conftest* - g77_cv_header_posix=yes -else - rm -rf conftest* - g77_cv_header_posix=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$g77_cv_header_posix" 1>&6 - -# We can rely on the GNU library being posix-ish. I guess checking the -# header isn't actually like checking the functions, though... -echo $ac_n "checking for GNU library""... $ac_c" 1>&6 -echo "configure:1039: checking for GNU library" >&5 -if eval "test \"`echo '$''{'g77_cv_lib_gnu'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1044 "configure" -#include "confdefs.h" -#include <stdio.h> -#ifdef __GNU_LIBRARY__ - yes -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "yes" >/dev/null 2>&1; then - rm -rf conftest* - g77_cv_lib_gnu=yes -else - rm -rf conftest* - g77_cv_lib_gnu=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$g77_cv_lib_gnu" 1>&6 - -# Apparently cygwin needs to be special-cased. -echo $ac_n "checking for cyg\`win'32""... $ac_c" 1>&6 -echo "configure:1068: checking for cyg\`win'32" >&5 -if eval "test \"`echo '$''{'g77_cv_sys_cygwin32'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1073 "configure" -#include "confdefs.h" -#ifdef __CYGWIN32__ - yes -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "yes" >/dev/null 2>&1; then - rm -rf conftest* - g77_cv_sys_cygwin32=yes -else - rm -rf conftest* - g77_cv_sys_cygwin32=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$g77_cv_sys_cygwin32" 1>&6 - -# ditto for mingw32. -echo $ac_n "checking for mingw32""... $ac_c" 1>&6 -echo "configure:1096: checking for mingw32" >&5 -if eval "test \"`echo '$''{'g77_cv_sys_mingw32'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1101 "configure" -#include "confdefs.h" -#ifdef __MINGW32__ - yes -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "yes" >/dev/null 2>&1; then - rm -rf conftest* - g77_cv_sys_mingw32=yes -else - rm -rf conftest* - g77_cv_sys_mingw32=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$g77_cv_sys_mingw32" 1>&6 - - -ac_safe=`echo "fcntl.h" | sed 'y%./+-%__p_%'` -echo $ac_n "checking for fcntl.h""... $ac_c" 1>&6 -echo "configure:1125: checking for fcntl.h" >&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 1130 "configure" -#include "confdefs.h" -#include <fcntl.h> -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:1135: \"$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* - eval "ac_cv_header_$ac_safe=yes" -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_header_$ac_safe=no" -fi -rm -f conftest* -fi -if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then - echo "$ac_t""yes" 1>&6 - test $g77_cv_header_posix = yes && cat >> confdefs.h <<\EOF -#define _POSIX_SOURCE 1 -EOF - -else - echo "$ac_t""no" 1>&6 -cat >> confdefs.h <<\EOF -#define NO_FCNTL 1 -EOF - cat >> confdefs.h <<\EOF -#define OPEN_DECL 1 -EOF - -fi - - -echo $ac_n "checking for working const""... $ac_c" 1>&6 -echo "configure:1168: 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 1173 "configure" -#include "confdefs.h" - -int main() { - -/* Ultrix mips cc rejects this. */ -typedef int charset[2]; const charset x; -/* SunOS 4.1.1 cc rejects this. */ -char const *const *ccp; -char **p; -/* NEC SVR4.0.2 mips cc rejects this. */ -struct point {int x, y;}; -static struct point const zero = {0,0}; -/* AIX XL C 1.02.0.0 rejects this. - It does not let you subtract one const X* pointer from another in an arm - of an if-expression whose if-part is not a constant expression */ -const char *g = "string"; -ccp = &g + (g ? g-g : 0); -/* HPUX 7.0 cc rejects these. */ -++ccp; -p = (char**) ccp; -ccp = (char const *const *) p; -{ /* SCO 3.2v4 cc rejects this. */ - char *t; - char const *s = 0 ? (char *) 0 : (char const *) 0; - - *t++ = 0; -} -{ /* Someone thinks the Sun supposedly-ANSI compiler will reject this. */ - int x[] = {25, 17}; - const int *foo = &x[0]; - ++foo; -} -{ /* Sun SC1.0 ANSI compiler rejects this -- but not the above. */ - typedef const int *iptr; - iptr p = 0; - ++p; -} -{ /* AIX XL C 1.02.0.0 rejects this saying - "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */ - struct s { int j; const int *ap[3]; }; - struct s *b; b->j = 5; -} -{ /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */ - const int foo = 10; -} - -; return 0; } -EOF -if { (eval echo configure:1222: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_c_const=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_c_const=no -fi -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_c_const" 1>&6 -if test $ac_cv_c_const = no; then - cat >> confdefs.h <<\EOF -#define const -EOF - -fi - -echo $ac_n "checking for size_t""... $ac_c" 1>&6 -echo "configure:1243: 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 1248 "configure" -#include "confdefs.h" -#include <sys/types.h> -#if STDC_HEADERS -#include <stdlib.h> -#include <stddef.h> -#endif -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "(^|[^a-zA-Z_0-9])size_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then - rm -rf conftest* - ac_cv_type_size_t=yes -else - rm -rf conftest* - ac_cv_type_size_t=no -fi -rm -f conftest* - -fi -echo "$ac_t""$ac_cv_type_size_t" 1>&6 -if test $ac_cv_type_size_t = no; then - cat >> confdefs.h <<\EOF -#define size_t unsigned -EOF - -fi - - - -# This should always succeed on unix. -# Apparently positive result on cygwin loses re. NON_UNIX_STDIO -# (as of cygwin b18). Likewise on mingw. -echo $ac_n "checking for fstat""... $ac_c" 1>&6 -echo "configure:1281: checking for fstat" >&5 -if eval "test \"`echo '$''{'ac_cv_func_fstat'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1286 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char fstat(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char fstat(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_fstat) || defined (__stub___fstat) -choke me -#else -fstat(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1309: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - rm -rf conftest* - eval "ac_cv_func_fstat=yes" -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_fstat=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'fstat`\" = yes"; then - echo "$ac_t""yes" 1>&6 - : -else - echo "$ac_t""no" 1>&6 -fi - -echo $ac_n "checking need for NON_UNIX_STDIO""... $ac_c" 1>&6 -echo "configure:1329: checking need for NON_UNIX_STDIO" >&5 -if test $g77_cv_sys_cygwin32 = yes \ - || test $g77_cv_sys_mingw32 = yes \ - || test $ac_cv_func_fstat = no; then - echo "$ac_t""yes" 1>&6 - cat >> confdefs.h <<\EOF -#define NON_UNIX_STDIO 1 -EOF - -else - echo "$ac_t""no" 1>&6 -fi - -for ac_func in tempnam -do -echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 -echo "configure:1345: 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 1350 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $ac_func(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char $ac_func(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_$ac_func) || defined (__stub___$ac_func) -choke me -#else -$ac_func(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1373: \"$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 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_$ac_func=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then - echo "$ac_t""yes" 1>&6 - ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'` - cat >> confdefs.h <<EOF -#define $ac_tr_func 1 -EOF - -else - echo "$ac_t""no" 1>&6 -fi -done - - -# posix will guarantee the right behaviour for sprintf, else we can't be -# sure; HEADER_STDC wouldn't be the right check in sunos4, for instance. -# However, on my sunos4/gcc setup unistd.h leads us wrongly to believe -# we're posix-conformant, so always do the test. -echo $ac_n "checking for ansi/posix sprintf result""... $ac_c" 1>&6 -echo "configure:1403: checking for ansi/posix sprintf result" >&5 -if test "$cross_compiling" = yes; then - g77_cv_sys_sprintf_ansi=no -else - cat > conftest.$ac_ext <<EOF -#line 1408 "configure" -#include "confdefs.h" - #include <stdio.h> - /* does sprintf return the number of chars transferred? */ - main () {char foo[2]; (sprintf(foo, "1") == 1) ? exit(0) : exit(1);} - -EOF -if { (eval echo configure:1415: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null -then - g77_cv_sys_sprintf_ansi=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -fr conftest* - g77_cv_sys_sprintf_ansi=no -fi -rm -fr conftest* -fi - -if eval "test \"`echo '$''{'g77_cv_sys_sprintf_ansi'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - g77_cv_sys_sprintf_ansi=$g77_cv_sys_sprintf_ansi -fi - -echo "$ac_t""$g77_cv_sys_sprintf_ansi" 1>&6 - -# The cygwin patch takes steps to avoid defining USE_STRLEN here -- I don't -# understand why. -if test $g77_cv_sys_sprintf_ansi != yes; then - cat >> confdefs.h <<\EOF -#define USE_STRLEN 1 -EOF - -fi - -# define NON_ANSI_RW_MODES on unix (can't hurt) -echo $ac_n "checking NON_ANSI_RW_MODES""... $ac_c" 1>&6 -echo "configure:1446: checking NON_ANSI_RW_MODES" >&5 -cat > conftest.$ac_ext <<EOF -#line 1448 "configure" -#include "confdefs.h" -#ifdef unix - yes -#endif -#ifdef __unix - yes -#endif -#ifdef __unix__ - yes -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "yes" >/dev/null 2>&1; then - rm -rf conftest* - is_unix=yes -else - rm -rf conftest* - is_unix=no -fi -rm -f conftest* - -# NON_ANSI_RW_MODES shouldn't be necessary on cygwin for binary mounts. -if test $g77_cv_sys_cygwin32 = yes || test $g77_cv_sys_mingw32 = yes; then - echo "$ac_t""no" 1>&6 -else - if test $is_unix = yes; then - cat >> confdefs.h <<\EOF -#define NON_ANSI_RW_MODES 1 -EOF - - echo "$ac_t""yes" 1>&6 - else - echo "$ac_t""no" 1>&6 - fi -fi - -# This EOF_CHAR is a misfeature on unix. -cat >> confdefs.h <<\EOF -#define NO_EOF_CHAR_CHECK 1 -EOF - - -cat >> confdefs.h <<\EOF -#define Skip_f2c_Undefs 1 -EOF - - -trap '' 1 2 15 -cat > confcache <<\EOF -# This file is a shell script that caches the results of configure -# tests run on this system so they can be shared between configure -# scripts and configure runs. It is not useful on other systems. -# If it contains results you don't want to keep, you may remove or edit it. -# -# By default, configure uses ./config.cache as the cache file, -# creating it if it does not exist already. You can give configure -# the --cache-file=FILE option to use a different cache file; that is -# what configure does when it calls configure scripts in -# subdirectories, so they share the cache. -# Giving --cache-file=/dev/null disables caching, for debugging configure. -# config.status only pays attention to the cache file if you give it the -# --recheck option to rerun configure. -# -EOF -# The following way of writing the cache mishandles newlines in values, -# but we know of no workaround that is simple, portable, and efficient. -# So, don't put newlines in cache variables' values. -# Ultrix sh set writes to stderr and can't be redirected directly, -# and sets the high bit in the cache file unless we assign to the vars. -(set) 2>&1 | - case `(ac_space=' '; set | grep ac_space) 2>&1` in - *ac_space=\ *) - # `set' does not quote correctly, so add quotes (double-quote substitution - # turns \\\\ into \\, and sed turns \\ into \). - sed -n \ - -e "s/'/'\\\\''/g" \ - -e "s/^\\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\\)=\\(.*\\)/\\1=\${\\1='\\2'}/p" - ;; - *) - # `set' quotes correctly as required by POSIX, so do not add quotes. - sed -n -e 's/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=${\1=\2}/p' - ;; - esac >> confcache -if cmp -s $cache_file confcache; then - : -else - if test -w $cache_file; then - echo "updating cache $cache_file" - cat confcache > $cache_file - else - echo "not updating unwritable cache $cache_file" - fi -fi -rm -f confcache - -trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 - -test "x$prefix" = xNONE && prefix=$ac_default_prefix -# Let make expand exec_prefix. -test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' - -# Any assignment to VPATH causes Sun make to only execute -# the first set of double-colon rules, so remove it if not needed. -# If there is a colon in the path, we need to keep it. -if test "x$srcdir" = x.; then - ac_vpsub='/^[ ]*VPATH[ ]*=[^:]*$/d' -fi - -trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15 - -# Transform confdefs.h into DEFS. -# Protect against shell expansion while executing Makefile rules. -# Protect against Makefile macro expansion. -cat > conftest.defs <<\EOF -s%#define \([A-Za-z_][A-Za-z0-9_]*\) *\(.*\)%-D\1=\2%g -s%[ `~#$^&*(){}\\|;'"<>?]%\\&%g -s%\[%\\&%g -s%\]%\\&%g -s%\$%$$%g -EOF -DEFS=`sed -f conftest.defs confdefs.h | tr '\012' ' '` -rm -f conftest.defs - - -# Without the "./", some shells look in PATH for config.status. -: ${CONFIG_STATUS=./config.status} - -echo creating $CONFIG_STATUS -rm -f $CONFIG_STATUS -cat > $CONFIG_STATUS <<EOF -#! /bin/sh -# Generated automatically by configure. -# Run this file to recreate the current configuration. -# This directory was configured as follows, -# on host `(hostname || uname -n) 2>/dev/null | sed 1q`: -# -# $0 $ac_configure_args -# -# Compiler output produced by configure, useful for debugging -# configure, is in ./config.log if it exists. - -ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]" -for ac_option -do - case "\$ac_option" in - -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) - echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion" - exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;; - -version | --version | --versio | --versi | --vers | --ver | --ve | --v) - echo "$CONFIG_STATUS generated by autoconf version 2.13" - exit 0 ;; - -help | --help | --hel | --he | --h) - echo "\$ac_cs_usage"; exit 0 ;; - *) echo "\$ac_cs_usage"; exit 1 ;; - esac -done - -ac_given_srcdir=$srcdir - -trap 'rm -fr `echo "Makefile" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15 -EOF -cat >> $CONFIG_STATUS <<EOF - -# Protect against being on the right side of a sed subst in config.status. -sed 's/%@/@@/; s/@%/@@/; s/%g\$/@g/; /@g\$/s/[\\\\&%]/\\\\&/g; - s/@@/%@/; s/@@/@%/; s/@g\$/%g/' > conftest.subs <<\\CEOF -$ac_vpsub -$extrasub -s%@SHELL@%$SHELL%g -s%@CFLAGS@%$CFLAGS%g -s%@CPPFLAGS@%$CPPFLAGS%g -s%@CXXFLAGS@%$CXXFLAGS%g -s%@FFLAGS@%$FFLAGS%g -s%@DEFS@%$DEFS%g -s%@LDFLAGS@%$LDFLAGS%g -s%@LIBS@%$LIBS%g -s%@exec_prefix@%$exec_prefix%g -s%@prefix@%$prefix%g -s%@program_transform_name@%$program_transform_name%g -s%@bindir@%$bindir%g -s%@sbindir@%$sbindir%g -s%@libexecdir@%$libexecdir%g -s%@datadir@%$datadir%g -s%@sysconfdir@%$sysconfdir%g -s%@sharedstatedir@%$sharedstatedir%g -s%@localstatedir@%$localstatedir%g -s%@libdir@%$libdir%g -s%@includedir@%$includedir%g -s%@oldincludedir@%$oldincludedir%g -s%@infodir@%$infodir%g -s%@mandir@%$mandir%g -s%@CC@%$CC%g -s%@AR@%$AR%g -s%@SET_MAKE@%$SET_MAKE%g -s%@CPP@%$CPP%g - -CEOF -EOF - -cat >> $CONFIG_STATUS <<\EOF - -# Split the substitutions into bite-sized pieces for seds with -# small command number limits, like on Digital OSF/1 and HP-UX. -ac_max_sed_cmds=90 # Maximum number of lines to put in a sed script. -ac_file=1 # Number of current file. -ac_beg=1 # First line for current file. -ac_end=$ac_max_sed_cmds # Line after last line for current file. -ac_more_lines=: -ac_sed_cmds="" -while $ac_more_lines; do - if test $ac_beg -gt 1; then - sed "1,${ac_beg}d; ${ac_end}q" conftest.subs > conftest.s$ac_file - else - sed "${ac_end}q" conftest.subs > conftest.s$ac_file - fi - if test ! -s conftest.s$ac_file; then - ac_more_lines=false - rm -f conftest.s$ac_file - else - if test -z "$ac_sed_cmds"; then - ac_sed_cmds="sed -f conftest.s$ac_file" - else - ac_sed_cmds="$ac_sed_cmds | sed -f conftest.s$ac_file" - fi - ac_file=`expr $ac_file + 1` - ac_beg=$ac_end - ac_end=`expr $ac_end + $ac_max_sed_cmds` - fi -done -if test -z "$ac_sed_cmds"; then - ac_sed_cmds=cat -fi -EOF - -cat >> $CONFIG_STATUS <<EOF - -CONFIG_FILES=\${CONFIG_FILES-"Makefile"} -EOF -cat >> $CONFIG_STATUS <<\EOF -for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then - # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". - case "$ac_file" in - *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` - ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; - *) ac_file_in="${ac_file}.in" ;; - esac - - # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories. - - # Remove last slash and all that follows it. Not all systems have dirname. - ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` - if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then - # The file is in a subdirectory. - test ! -d "$ac_dir" && mkdir "$ac_dir" - ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`" - # A "../" for each directory in $ac_dir_suffix. - ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'` - else - ac_dir_suffix= ac_dots= - fi - - case "$ac_given_srcdir" in - .) srcdir=. - if test -z "$ac_dots"; then top_srcdir=. - else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;; - /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;; - *) # Relative path. - srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix" - top_srcdir="$ac_dots$ac_given_srcdir" ;; - esac - - - echo creating "$ac_file" - rm -f "$ac_file" - configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure." - case "$ac_file" in - *Makefile*) ac_comsub="1i\\ -# $configure_input" ;; - *) ac_comsub= ;; - esac - - ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` - sed -e "$ac_comsub -s%@configure_input@%$configure_input%g -s%@srcdir@%$srcdir%g -s%@top_srcdir@%$top_srcdir%g -" $ac_file_inputs | (eval "$ac_sed_cmds") > $ac_file -fi; done -rm -f conftest.s* - -EOF -cat >> $CONFIG_STATUS <<EOF - -EOF -cat >> $CONFIG_STATUS <<\EOF - -exit 0 -EOF -chmod +x $CONFIG_STATUS -rm -fr confdefs* $ac_clean_files -test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1 - - - diff --git a/gnu/egcs/libf2c/libI77/configure.in b/gnu/egcs/libf2c/libI77/configure.in deleted file mode 100644 index 2b3483093f4..00000000000 --- a/gnu/egcs/libf2c/libI77/configure.in +++ /dev/null @@ -1,202 +0,0 @@ -# Process this file with autoconf to produce a configure script. -# Copyright (C) 1995, 1997, 1998 Free Software Foundation, Inc. -# Contributed by Dave Love (d.love@dl.ac.uk). -# -#This file is part of GNU Fortran. -# -#GNU Fortran is free software; you can redistribute it and/or modify -#it under the terms of the GNU General Public License as published by -#the Free Software Foundation; either version 2, or (at your option) -#any later version. -# -#GNU Fortran is distributed in the hope that it will be useful, -#but WITHOUT ANY WARRANTY; without even the implied warranty of -#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#GNU General Public License for more details. -# -#You should have received a copy of the GNU General Public License -#along with GNU Fortran; see the file COPYING. If not, write to -#the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -#02111-1307, USA. - -AC_PREREQ(2.12.1) -AC_INIT(ftell_.c) - -dnl Checks for programs. -# For g77 we'll set CC to point at the built gcc, but this will get it into -# the makefiles -AC_PROG_CC - -test "$AR" || AR=ar -AC_SUBST(AR) -AC_PROG_MAKE_SET - -dnl Checks for libraries. - -dnl Checks for header files. -# Sanity check for the cross-compilation case: -AC_CHECK_HEADER(stdio.h,:, - [AC_MSG_ERROR([Can't find stdio.h. -You must have a usable C system for the target already installed, at least -including headers and, preferably, the library, before you can configure -the G77 runtime system. If necessary, install gcc now with \`LANGUAGES=c', -then the target library, then build with \`LANGUAGES=f77'.])]) - -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(g77_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 g77_cv_sys_proto=yes, -dnl [g77_cv_sys_proto=no -dnl AC_DEFINE(KR_headers)])]) -dnl AC_MSG_RESULT($g77_cv_sys_proto) - -AC_MSG_CHECKING(for posix) -AC_CACHE_VAL(g77_cv_header_posix, - AC_EGREP_CPP(yes, - [#include <sys/types.h> -#include <unistd.h> -#ifdef _POSIX_VERSION - yes -#endif -], - g77_cv_header_posix=yes, - g77_cv_header_posix=no)) -AC_MSG_RESULT($g77_cv_header_posix) - -# We can rely on the GNU library being posix-ish. I guess checking the -# header isn't actually like checking the functions, though... -AC_MSG_CHECKING(for GNU library) -AC_CACHE_VAL(g77_cv_lib_gnu, - AC_EGREP_CPP(yes, - [#include <stdio.h> -#ifdef __GNU_LIBRARY__ - yes -#endif -], - g77_cv_lib_gnu=yes, g77_cv_lib_gnu=no)) -AC_MSG_RESULT($g77_cv_lib_gnu) - -# Apparently cygwin needs to be special-cased. -AC_MSG_CHECKING([for cyg\`win'32]) -AC_CACHE_VAL(g77_cv_sys_cygwin32, - AC_EGREP_CPP(yes, - [#ifdef __CYGWIN32__ - yes -#endif -], - g77_cv_sys_cygwin32=yes, - g77_cv_sys_cygwin32=no)) -AC_MSG_RESULT($g77_cv_sys_cygwin32) - -# ditto for mingw32. -AC_MSG_CHECKING([for mingw32]) -AC_CACHE_VAL(g77_cv_sys_mingw32, - AC_EGREP_CPP(yes, - [#ifdef __MINGW32__ - yes -#endif -], - g77_cv_sys_mingw32=yes, - g77_cv_sys_mingw32=no)) -AC_MSG_RESULT($g77_cv_sys_mingw32) - - -AC_CHECK_HEADER(fcntl.h, - test $g77_cv_header_posix = yes && AC_DEFINE(_POSIX_SOURCE), - AC_DEFINE(NO_FCNTL) AC_DEFINE(OPEN_DECL)) - -dnl Checks for typedefs, structures, and compiler characteristics. -AC_C_CONST -AC_TYPE_SIZE_T - -dnl Checks for library functions. - -# This should always succeed on unix. -# Apparently positive result on cygwin loses re. NON_UNIX_STDIO -# (as of cygwin b18). Likewise on mingw. -AC_CHECK_FUNC(fstat) -AC_MSG_CHECKING([need for NON_UNIX_STDIO]) -if test $g77_cv_sys_cygwin32 = yes \ - || test $g77_cv_sys_mingw32 = yes \ - || test $ac_cv_func_fstat = no; then - AC_MSG_RESULT(yes) - AC_DEFINE(NON_UNIX_STDIO) -else - AC_MSG_RESULT(no) -fi - -AC_CHECK_FUNCS(tempnam) - -# posix will guarantee the right behaviour for sprintf, else we can't be -# sure; HEADER_STDC wouldn't be the right check in sunos4, for instance. -# However, on my sunos4/gcc setup unistd.h leads us wrongly to believe -# we're posix-conformant, so always do the test. -AC_MSG_CHECKING(for ansi/posix sprintf result) -dnl This loses if included as an argument to AC_CACHE_VAL because the -dnl changequote doesn't take effect and the [] vanish. -dnl fixme: use cached value -AC_TRY_RUN(changequote(<<, >>)dnl - <<#include <stdio.h> - /* does sprintf return the number of chars transferred? */ - main () {char foo[2]; (sprintf(foo, "1") == 1) ? exit(0) : exit(1);} ->>changequote([, ]), - g77_cv_sys_sprintf_ansi=yes, - g77_cv_sys_sprintf_ansi=no, - g77_cv_sys_sprintf_ansi=no) -AC_CACHE_VAL(g77_cv_sys_sprintf_ansi, - g77_cv_sys_sprintf_ansi=$g77_cv_sys_sprintf_ansi) -dnl We get a misleading `(cached)' message... -AC_MSG_RESULT($g77_cv_sys_sprintf_ansi) - -# The cygwin patch takes steps to avoid defining USE_STRLEN here -- I don't -# understand why. -if test $g77_cv_sys_sprintf_ansi != yes; then - AC_DEFINE(USE_STRLEN) -fi - -# define NON_ANSI_RW_MODES on unix (can't hurt) -AC_MSG_CHECKING(NON_ANSI_RW_MODES) -AC_EGREP_CPP(yes, -[#ifdef unix - yes -#endif -#ifdef __unix - yes -#endif -#ifdef __unix__ - yes -#endif -], is_unix=yes, is_unix=no) -# NON_ANSI_RW_MODES shouldn't be necessary on cygwin for binary mounts. -if test $g77_cv_sys_cygwin32 = yes || test $g77_cv_sys_mingw32 = yes; then - AC_MSG_RESULT(no) -else - if test $is_unix = yes; then - AC_DEFINE(NON_ANSI_RW_MODES) - AC_MSG_RESULT(yes) - else - AC_MSG_RESULT(no) - fi -fi - -# This EOF_CHAR is a misfeature on unix. -AC_DEFINE(NO_EOF_CHAR_CHECK) - -AC_DEFINE(Skip_f2c_Undefs) - -AC_OUTPUT(Makefile) - -dnl We might have configuration options to: -dnl * change unit preconnexion in err.c (f_init.c) -dnl * -DALWAYS_FLUSH -dnl * -DOMIT_BLANK_CC - -dnl Local Variables: -dnl comment-start: "dnl " -dnl comment-end: "" -dnl comment-start-skip: "\\bdnl\\b\\s *" -dnl End: diff --git a/gnu/egcs/libf2c/libI77/dfe.c b/gnu/egcs/libf2c/libI77/dfe.c deleted file mode 100644 index f639ab51ce7..00000000000 --- a/gnu/egcs/libf2c/libI77/dfe.c +++ /dev/null @@ -1,146 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "fmt.h" - -y_rsk(Void) -{ - if(f__curunit->uend || f__curunit->url <= f__recpos - || f__curunit->url == 1) return 0; - do { - getc(f__cf); - } while(++f__recpos < f__curunit->url); - return 0; -} -y_getc(Void) -{ - int ch; - if(f__curunit->uend) return(-1); - if((ch=getc(f__cf))!=EOF) - { - f__recpos++; - if(f__curunit->url>=f__recpos || - f__curunit->url==1) - return(ch); - else return(' '); - } - if(feof(f__cf)) - { - f__curunit->uend=1; - errno=0; - return(-1); - } - err(f__elist->cierr,errno,"readingd"); -} - - static int -y_rev(Void) -{ - if (f__recpos < f__hiwater) - f__recpos = f__hiwater; - if (f__curunit->url > 1) - while(f__recpos < f__curunit->url) - (*f__putn)(' '); - if (f__recpos) - f__putbuf(0); - f__recpos = 0; - return(0); -} - - static int -y_err(Void) -{ - err(f__elist->cierr, 110, "dfe"); -} - - static int -y_newrec(Void) -{ - y_rev(); - f__hiwater = f__cursor = 0; - return(1); -} - -#ifdef KR_headers -c_dfe(a) cilist *a; -#else -c_dfe(cilist *a) -#endif -{ - f__sequential=0; - f__formatted=f__external=1; - f__elist=a; - f__cursor=f__scale=f__recpos=0; - f__curunit = &f__units[a->ciunit]; - if(a->ciunit>MXUNIT || a->ciunit<0) - err(a->cierr,101,"startchk"); - if(f__curunit->ufd==NULL && fk_open(DIR,FMT,a->ciunit)) - err(a->cierr,104,"dfe"); - f__cf=f__curunit->ufd; - if(!f__curunit->ufmt) err(a->cierr,102,"dfe"); - if(!f__curunit->useek) err(a->cierr,104,"dfe"); - f__fmtbuf=a->cifmt; - if(a->cirec <= 0) - err(a->cierr,130,"dfe"); - (void) fseek(f__cf,(long)f__curunit->url * (a->cirec-1),SEEK_SET); - f__curunit->uend = 0; - return(0); -} -#ifdef KR_headers -integer s_rdfe(a) cilist *a; -#else -integer s_rdfe(cilist *a) -#endif -{ - int n; - if(f__init != 1) f_init(); - f__init = 3; - f__reading=1; - if(n=c_dfe(a))return(n); - if(f__curunit->uwrt && f__nowreading(f__curunit)) - err(a->cierr,errno,"read start"); - f__getn = y_getc; - f__doed = rd_ed; - f__doned = rd_ned; - f__dorevert = f__donewrec = y_err; - f__doend = y_rsk; - if(pars_f(f__fmtbuf)<0) - err(a->cierr,100,"read start"); - fmt_bg(); - return(0); -} -#ifdef KR_headers -integer s_wdfe(a) cilist *a; -#else -integer s_wdfe(cilist *a) -#endif -{ - int n; - if(f__init != 1) f_init(); - f__init = 3; - f__reading=0; - if(n=c_dfe(a)) return(n); - if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit)) - err(a->cierr,errno,"startwrt"); - f__putn = x_putc; - f__doed = w_ed; - f__doned= w_ned; - f__dorevert = y_err; - f__donewrec = y_newrec; - f__doend = y_rev; - if(pars_f(f__fmtbuf)<0) - err(a->cierr,100,"startwrt"); - fmt_bg(); - return(0); -} -integer e_rdfe(Void) -{ - f__init = 1; - en_fio(); - return(0); -} - -integer e_wdfe(Void) -{ - f__init = 1; - return en_fio(); -} diff --git a/gnu/egcs/libf2c/libI77/dolio.c b/gnu/egcs/libf2c/libI77/dolio.c deleted file mode 100644 index 4b5a2ca6588..00000000000 --- a/gnu/egcs/libf2c/libI77/dolio.c +++ /dev/null @@ -1,20 +0,0 @@ -#include "f2c.h" - -#ifdef __cplusplus -extern "C" { -#endif -#ifdef KR_headers -extern int (*f__lioproc)(); - -integer do_lio(type,number,ptr,len) ftnint *number,*type; char *ptr; ftnlen len; -#else -extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint); - -integer do_lio(ftnint *type, ftnint *number, char *ptr, ftnlen len) -#endif -{ - return((*f__lioproc)(number,ptr,len,*type)); -} -#ifdef __cplusplus - } -#endif diff --git a/gnu/egcs/libf2c/libI77/due.c b/gnu/egcs/libf2c/libI77/due.c deleted file mode 100644 index cb80a39b44d..00000000000 --- a/gnu/egcs/libf2c/libI77/due.c +++ /dev/null @@ -1,75 +0,0 @@ -#include "f2c.h" -#include "fio.h" - -#ifdef KR_headers -c_due(a) cilist *a; -#else -c_due(cilist *a) -#endif -{ - if(f__init != 1) f_init(); - f__init = 3; - if(a->ciunit>=MXUNIT || a->ciunit<0) - err(a->cierr,101,"startio"); - f__sequential=f__formatted=f__recpos=0; - f__external=1; - f__curunit = &f__units[a->ciunit]; - if(a->ciunit>=MXUNIT || a->ciunit<0) - err(a->cierr,101,"startio"); - f__elist=a; - if(f__curunit->ufd==NULL && fk_open(DIR,UNF,a->ciunit) ) err(a->cierr,104,"due"); - f__cf=f__curunit->ufd; - if(f__curunit->ufmt) err(a->cierr,102,"cdue"); - if(!f__curunit->useek) err(a->cierr,104,"cdue"); - if(f__curunit->ufd==NULL) err(a->cierr,114,"cdue"); - if(a->cirec <= 0) - err(a->cierr,130,"due"); - fseek(f__cf,(long)(a->cirec-1)*f__curunit->url,SEEK_SET); - f__curunit->uend = 0; - return(0); -} -#ifdef KR_headers -integer s_rdue(a) cilist *a; -#else -integer s_rdue(cilist *a) -#endif -{ - int n; - f__reading=1; - if(n=c_due(a)) return(n); - if(f__curunit->uwrt && f__nowreading(f__curunit)) - err(a->cierr,errno,"read start"); - return(0); -} -#ifdef KR_headers -integer s_wdue(a) cilist *a; -#else -integer s_wdue(cilist *a) -#endif -{ - int n; - f__reading=0; - if(n=c_due(a)) return(n); - if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit)) - err(a->cierr,errno,"write start"); - return(0); -} -integer e_rdue(Void) -{ - f__init = 1; - if(f__curunit->url==1 || f__recpos==f__curunit->url) - return(0); - fseek(f__cf,(long)(f__curunit->url-f__recpos),SEEK_CUR); - if(ftell(f__cf)%f__curunit->url) - err(f__elist->cierr,200,"syserr"); - return(0); -} -integer e_wdue(Void) -{ - f__init = 1; -#ifdef ALWAYS_FLUSH - if (fflush(f__cf)) - err(f__elist->cierr,errno,"write end"); -#endif - return(e_rdue()); -} diff --git a/gnu/egcs/libf2c/libI77/endfile.c b/gnu/egcs/libf2c/libI77/endfile.c deleted file mode 100644 index 0e4ac0318e9..00000000000 --- a/gnu/egcs/libf2c/libI77/endfile.c +++ /dev/null @@ -1,123 +0,0 @@ -#include "f2c.h" -#include "fio.h" - -#ifdef KR_headers -extern char *strcpy(); -extern FILE *tmpfile(); -#else -#undef abs -#undef min -#undef max -#include <stdlib.h> -#include <string.h> -#endif - -extern char *f__r_mode[], *f__w_mode[]; - -#ifdef KR_headers -integer f_end(a) alist *a; -#else -integer f_end(alist *a) -#endif -{ - unit *b; - FILE *tf; - - if (f__init & 2) - f__fatal (131, "I/O recursion"); - if(a->aunit>=MXUNIT || a->aunit<0) err(a->aerr,101,"endfile"); - b = &f__units[a->aunit]; - if(b->ufd==NULL) { - char nbuf[10]; - sprintf(nbuf,"fort.%ld",a->aunit); - if (tf = fopen(nbuf, f__w_mode[0])) - fclose(tf); - return(0); - } - b->uend=1; - return(b->useek ? t_runc(a) : 0); -} - - static int -#ifdef KR_headers -copy(from, len, to) FILE *from, *to; register long len; -#else -copy(FILE *from, register long len, FILE *to) -#endif -{ - int len1; - char buf[BUFSIZ]; - - while(fread(buf, len1 = len > BUFSIZ ? BUFSIZ : (int)len, 1, from)) { - if (!fwrite(buf, len1, 1, to)) - return 1; - if ((len -= len1) <= 0) - break; - } - return 0; - } - - int -#ifdef KR_headers -t_runc(a) alist *a; -#else -t_runc(alist *a) -#endif -{ - long loc, len; - unit *b; - FILE *bf, *tf; - int rc = 0; - - b = &f__units[a->aunit]; - if(b->url) - return(0); /*don't truncate direct files*/ - loc=ftell(bf = b->ufd); - fseek(bf,0L,SEEK_END); - len=ftell(bf); - if (loc >= len || b->useek == 0 || b->ufnm == NULL) - return(0); - fclose(b->ufd); - if (!loc) { - if (!(bf = fopen(b->ufnm, f__w_mode[b->ufmt]))) - rc = 1; - if (b->uwrt) - b->uwrt = 1; - goto done; - } - if (!(bf = fopen(b->ufnm, f__r_mode[0])) - || !(tf = tmpfile())) { -#ifdef NON_UNIX_STDIO - bad: -#endif - rc = 1; - goto done; - } - if (copy(bf, loc, tf)) { - bad1: - rc = 1; - goto done1; - } - if (!(bf = freopen(b->ufnm, f__w_mode[0], bf))) - goto bad1; - rewind(tf); - if (copy(tf, loc, bf)) - goto bad1; - b->urw = 2; -#ifdef NON_UNIX_STDIO - if (b->ufmt) { - fclose(bf); - if (!(bf = fopen(b->ufnm, f__w_mode[3]))) - goto bad; - fseek(bf,0L,SEEK_END); - b->urw = 3; - } -#endif -done1: - fclose(tf); -done: - f__cf = b->ufd = bf; - if (rc) - err(a->aerr,111,"endfile"); - return 0; - } diff --git a/gnu/egcs/libf2c/libI77/err.c b/gnu/egcs/libf2c/libI77/err.c deleted file mode 100644 index e7ac23a6cfe..00000000000 --- a/gnu/egcs/libf2c/libI77/err.c +++ /dev/null @@ -1,289 +0,0 @@ -#ifndef NON_UNIX_STDIO -#define _INCLUDE_POSIX_SOURCE /* for HP-UX */ -#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */ -#include <sys/types.h> -#include <sys/stat.h> -#endif -#include "f2c.h" -#ifdef KR_headers -extern char *malloc(); -#else -#undef abs -#undef min -#undef max -#include <stdlib.h> -#endif -#include "fio.h" -#include "fmt.h" /* for struct syl */ - -/*global definitions*/ -unit f__units[MXUNIT]; /*unit table*/ -int f__init; /*bit 0: set after initializations; - bit 1: set during I/O involving returns to - caller of library (or calls to user code)*/ -cilist *f__elist; /*active external io list*/ -icilist *f__svic; /*active internal io list*/ -flag f__reading; /*1 if reading, 0 if writing*/ -flag f__cplus,f__cblank; -char *f__fmtbuf; -int f__fmtlen; -flag f__external; /*1 if external io, 0 if internal */ -#ifdef KR_headers -int (*f__doed)(),(*f__doned)(); -int (*f__doend)(),(*f__donewrec)(),(*f__dorevert)(); -int (*f__getn)(); /* for formatted input */ -void (*f__putn)(); /* for formatted output */ -#else -int (*f__getn)(void); /* for formatted input */ -void (*f__putn)(int); /* for formatted output */ -int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*); -int (*f__dorevert)(void),(*f__donewrec)(void),(*f__doend)(void); -#endif -flag f__sequential; /*1 if sequential io, 0 if direct*/ -flag f__formatted; /*1 if formatted io, 0 if unformatted*/ -FILE *f__cf; /*current file*/ -unit *f__curunit; /*current unit*/ -int f__recpos; /*place in current record*/ -int f__cursor, f__hiwater, f__scale; -char *f__icptr; - -/*error messages*/ -char *F_err[] = -{ - "error in format", /* 100 */ - "illegal unit number", /* 101 */ - "formatted io not allowed", /* 102 */ - "unformatted io not allowed", /* 103 */ - "direct io not allowed", /* 104 */ - "sequential io not allowed", /* 105 */ - "can't backspace file", /* 106 */ - "null file name", /* 107 */ - "can't stat file", /* 108 */ - "unit not connected", /* 109 */ - "off end of record", /* 110 */ - "truncation failed in endfile", /* 111 */ - "incomprehensible list input", /* 112 */ - "out of free space", /* 113 */ - "unit not connected", /* 114 */ - "read unexpected character", /* 115 */ - "bad logical input field", /* 116 */ - "bad variable type", /* 117 */ - "bad namelist name", /* 118 */ - "variable not in namelist", /* 119 */ - "no end record", /* 120 */ - "variable count incorrect", /* 121 */ - "subscript for scalar variable", /* 122 */ - "invalid array section", /* 123 */ - "substring out of bounds", /* 124 */ - "subscript out of bounds", /* 125 */ - "can't read file", /* 126 */ - "can't write file", /* 127 */ - "'new' file exists", /* 128 */ - "can't append to file", /* 129 */ - "non-positive record number", /* 130 */ - "I/O started while already doing I/O", /* 131 */ - "Temporary file name (TMPDIR?) too long" /* 132 */ -}; -#define MAXERR (sizeof(F_err)/sizeof(char *)+100) - -#ifdef KR_headers -f__canseek(f) FILE *f; /*SYSDEP*/ -#else -f__canseek(FILE *f) /*SYSDEP*/ -#endif -{ -#ifdef NON_UNIX_STDIO - return !isatty(fileno(f)); -#else - struct stat x; - - if (fstat(fileno(f),&x) < 0) - return(0); -#ifdef S_IFMT - switch(x.st_mode & S_IFMT) { - case S_IFDIR: - case S_IFREG: - if(x.st_nlink > 0) /* !pipe */ - return(1); - else - return(0); - case S_IFCHR: - if(isatty(fileno(f))) - return(0); - return(1); -#ifdef S_IFBLK - case S_IFBLK: - return(1); -#endif - } -#else -#ifdef S_ISDIR - /* POSIX version */ - if (S_ISREG(x.st_mode) || S_ISDIR(x.st_mode)) { - if(x.st_nlink > 0) /* !pipe */ - return(1); - else - return(0); - } - if (S_ISCHR(x.st_mode)) { - if(isatty(fileno(f))) - return(0); - return(1); - } - if (S_ISBLK(x.st_mode)) - return(1); -#else - Help! How does fstat work on this system? -#endif -#endif - return(0); /* who knows what it is? */ -#endif -} - - void -#ifdef KR_headers -f__fatal(n,s) char *s; -#else -f__fatal(int n, char *s) -#endif -{ - static int dead = 0; - - if(n<100 && n>=0) perror(s); /*SYSDEP*/ - else if(n >= (int)MAXERR || n < -1) - { fprintf(stderr,"%s: illegal error number %d\n",s,n); - } - else if(n == -1) fprintf(stderr,"%s: end of file\n",s); - else - fprintf(stderr,"%s: %s\n",s,F_err[n-100]); - if (dead) { - fprintf (stderr, "(libf2c f__fatal already called, aborting.)"); - abort(); - } - dead = 1; - if (f__init & 1) { - if (f__curunit) { - fprintf(stderr,"apparent state: unit %d ", - (int)(f__curunit-f__units)); - fprintf(stderr, f__curunit->ufnm ? "named %s\n" : "(unnamed)\n", - f__curunit->ufnm); - } - else - fprintf(stderr,"apparent state: internal I/O\n"); - if (f__fmtbuf) - fprintf(stderr,"last format: %.*s\n",f__fmtlen,f__fmtbuf); - fprintf(stderr,"lately %s %s %s %s",f__reading?"reading":"writing", - f__sequential?"sequential":"direct",f__formatted?"formatted":"unformatted", - f__external?"external":"internal"); - } - f__init &= ~2; /* No longer doing I/O (no more user code to be called). */ - sig_die(" IO", 1); -} -/*initialization routine*/ - VOID -f_init(Void) -{ unit *p; - - if (f__init & 2) - f__fatal (131, "I/O recursion"); - f__init = 1; - p= &f__units[0]; - p->ufd=stderr; - p->useek=f__canseek(stderr); - p->ufmt=1; - p->uwrt=1; - p = &f__units[5]; - p->ufd=stdin; - p->useek=f__canseek(stdin); - p->ufmt=1; - p->uwrt=0; - p= &f__units[6]; - p->ufd=stdout; - p->useek=f__canseek(stdout); - p->ufmt=1; - p->uwrt=1; -} -#ifdef KR_headers -f__nowreading(x) unit *x; -#else -f__nowreading(unit *x) -#endif -{ - long loc; - int ufmt, urw; - extern char *f__r_mode[], *f__w_mode[]; - - if (x->urw & 1) - goto done; - if (!x->ufnm) - goto cantread; - ufmt = x->url ? 0 : x->ufmt; - loc = ftell(x->ufd); - urw = 3; - if (!freopen(x->ufnm, f__w_mode[ufmt|2], x->ufd)) { - urw = 1; - if(!freopen(x->ufnm, f__r_mode[ufmt], x->ufd)) { - cantread: - errno = 126; - return 1; - } - } - fseek(x->ufd,loc,SEEK_SET); - x->urw = urw; - done: - x->uwrt = 0; - return 0; -} -#ifdef KR_headers -f__nowwriting(x) unit *x; -#else -f__nowwriting(unit *x) -#endif -{ - long loc; - int ufmt; - extern char *f__w_mode[]; - - if (x->urw & 2) - goto done; - if (!x->ufnm) - goto cantwrite; - ufmt = x->url ? 0 : x->ufmt; - if (x->uwrt == 3) { /* just did write, rewind */ - if (!(f__cf = x->ufd = - freopen(x->ufnm,f__w_mode[ufmt],x->ufd))) - goto cantwrite; - x->urw = 2; - } - else { - loc=ftell(x->ufd); - if (!(f__cf = x->ufd = - freopen(x->ufnm, f__w_mode[ufmt |= 2], x->ufd))) - { - x->ufd = NULL; - cantwrite: - errno = 127; - return(1); - } - x->urw = 3; - fseek(x->ufd,loc,SEEK_SET); - } - done: - x->uwrt = 1; - return 0; -} - - int -#ifdef KR_headers -err__fl(f, m, s) int f, m; char *s; -#else -err__fl(int f, int m, char *s) -#endif -{ - if (!f) - f__fatal(m, s); - if (f__doend) - (*f__doend)(); - f__init &= ~2; - return errno = m; - } diff --git a/gnu/egcs/libf2c/libI77/f2ch.add b/gnu/egcs/libf2c/libI77/f2ch.add deleted file mode 100644 index a2acc17a159..00000000000 --- a/gnu/egcs/libf2c/libI77/f2ch.add +++ /dev/null @@ -1,162 +0,0 @@ -/* If you are using a C++ compiler, append the following to f2c.h - for compiling libF77 and libI77. */ - -#ifdef __cplusplus -extern "C" { -extern int abort_(void); -extern double c_abs(complex *); -extern void c_cos(complex *, complex *); -extern void c_div(complex *, complex *, complex *); -extern void c_exp(complex *, complex *); -extern void c_log(complex *, complex *); -extern void c_sin(complex *, complex *); -extern void c_sqrt(complex *, complex *); -extern double d_abs(double *); -extern double d_acos(double *); -extern double d_asin(double *); -extern double d_atan(double *); -extern double d_atn2(double *, double *); -extern void d_cnjg(doublecomplex *, doublecomplex *); -extern double d_cos(double *); -extern double d_cosh(double *); -extern double d_dim(double *, double *); -extern double d_exp(double *); -extern double d_imag(doublecomplex *); -extern double d_int(double *); -extern double d_lg10(double *); -extern double d_log(double *); -extern double d_mod(double *, double *); -extern double d_nint(double *); -extern double d_prod(float *, float *); -extern double d_sign(double *, double *); -extern double d_sin(double *); -extern double d_sinh(double *); -extern double d_sqrt(double *); -extern double d_tan(double *); -extern double d_tanh(double *); -extern double derf_(double *); -extern double derfc_(double *); -extern integer do_fio(ftnint *, char *, ftnlen); -extern integer do_lio(ftnint *, ftnint *, char *, ftnlen); -extern integer do_uio(ftnint *, char *, ftnlen); -extern integer e_rdfe(void); -extern integer e_rdue(void); -extern integer e_rsfe(void); -extern integer e_rsfi(void); -extern integer e_rsle(void); -extern integer e_rsli(void); -extern integer e_rsue(void); -extern integer e_wdfe(void); -extern integer e_wdue(void); -extern integer e_wsfe(void); -extern integer e_wsfi(void); -extern integer e_wsle(void); -extern integer e_wsli(void); -extern integer e_wsue(void); -extern int ef1asc_(ftnint *, ftnlen *, ftnint *, ftnlen *); -extern integer ef1cmc_(ftnint *, ftnlen *, ftnint *, ftnlen *); -extern double erf(double); -extern double erf_(float *); -extern double erfc(double); -extern double erfc_(float *); -extern integer f_back(alist *); -extern integer f_clos(cllist *); -extern integer f_end(alist *); -extern void f_exit(void); -extern integer f_inqu(inlist *); -extern integer f_open(olist *); -extern integer f_rew(alist *); -extern int flush_(void); -extern void getarg_(integer *, char *, ftnlen); -extern void getenv_(char *, char *, ftnlen, ftnlen); -extern short h_abs(short *); -extern short h_dim(short *, short *); -extern short h_dnnt(double *); -extern short h_indx(char *, char *, ftnlen, ftnlen); -extern short h_len(char *, ftnlen); -extern short h_mod(short *, short *); -extern short h_nint(float *); -extern short h_sign(short *, short *); -extern short hl_ge(char *, char *, ftnlen, ftnlen); -extern short hl_gt(char *, char *, ftnlen, ftnlen); -extern short hl_le(char *, char *, ftnlen, ftnlen); -extern short hl_lt(char *, char *, ftnlen, ftnlen); -extern integer i_abs(integer *); -extern integer i_dim(integer *, integer *); -extern integer i_dnnt(double *); -extern integer i_indx(char *, char *, ftnlen, ftnlen); -extern integer i_len(char *, ftnlen); -extern integer i_mod(integer *, integer *); -extern integer i_nint(float *); -extern integer i_sign(integer *, integer *); -extern integer iargc_(void); -extern ftnlen l_ge(char *, char *, ftnlen, ftnlen); -extern ftnlen l_gt(char *, char *, ftnlen, ftnlen); -extern ftnlen l_le(char *, char *, ftnlen, ftnlen); -extern ftnlen l_lt(char *, char *, ftnlen, ftnlen); -extern void pow_ci(complex *, complex *, integer *); -extern double pow_dd(double *, double *); -extern double pow_di(double *, integer *); -extern short pow_hh(short *, shortint *); -extern integer pow_ii(integer *, integer *); -extern double pow_ri(float *, integer *); -extern void pow_zi(doublecomplex *, doublecomplex *, integer *); -extern void pow_zz(doublecomplex *, doublecomplex *, doublecomplex *); -extern double r_abs(float *); -extern double r_acos(float *); -extern double r_asin(float *); -extern double r_atan(float *); -extern double r_atn2(float *, float *); -extern void r_cnjg(complex *, complex *); -extern double r_cos(float *); -extern double r_cosh(float *); -extern double r_dim(float *, float *); -extern double r_exp(float *); -extern double r_imag(complex *); -extern double r_int(float *); -extern double r_lg10(float *); -extern double r_log(float *); -extern double r_mod(float *, float *); -extern double r_nint(float *); -extern double r_sign(float *, float *); -extern double r_sin(float *); -extern double r_sinh(float *); -extern double r_sqrt(float *); -extern double r_tan(float *); -extern double r_tanh(float *); -extern void s_cat(char *, char **, integer *, integer *, ftnlen); -extern integer s_cmp(char *, char *, ftnlen, ftnlen); -extern void s_copy(char *, char *, ftnlen, ftnlen); -extern int s_paus(char *, ftnlen); -extern integer s_rdfe(cilist *); -extern integer s_rdue(cilist *); -extern integer s_rnge(char *, integer, char *, integer); -extern integer s_rsfe(cilist *); -extern integer s_rsfi(icilist *); -extern integer s_rsle(cilist *); -extern integer s_rsli(icilist *); -extern integer s_rsne(cilist *); -extern integer s_rsni(icilist *); -extern integer s_rsue(cilist *); -extern int s_stop(char *, ftnlen); -extern integer s_wdfe(cilist *); -extern integer s_wdue(cilist *); -extern integer s_wsfe(cilist *); -extern integer s_wsfi(icilist *); -extern integer s_wsle(cilist *); -extern integer s_wsli(icilist *); -extern integer s_wsne(cilist *); -extern integer s_wsni(icilist *); -extern integer s_wsue(cilist *); -extern void sig_die(char *, int); -extern integer signal_(integer *, void (*)(int)); -extern integer system_(char *, ftnlen); -extern double z_abs(doublecomplex *); -extern void z_cos(doublecomplex *, doublecomplex *); -extern void z_div(doublecomplex *, doublecomplex *, doublecomplex *); -extern void z_exp(doublecomplex *, doublecomplex *); -extern void z_log(doublecomplex *, doublecomplex *); -extern void z_sin(doublecomplex *, doublecomplex *); -extern void z_sqrt(doublecomplex *, doublecomplex *); - } -#endif diff --git a/gnu/egcs/libf2c/libI77/fio.h b/gnu/egcs/libf2c/libI77/fio.h deleted file mode 100644 index 846351d5413..00000000000 --- a/gnu/egcs/libf2c/libI77/fio.h +++ /dev/null @@ -1,110 +0,0 @@ -#include <stdio.h> -#include <errno.h> -#ifndef NULL -/* ANSI C */ -#include <stddef.h> -#endif -#ifdef STDC_HEADERS -#include <string.h> -#endif - -#ifndef SEEK_SET -#define SEEK_SET 0 -#define SEEK_CUR 1 -#define SEEK_END 2 -#endif - -#if defined (MSDOS) && !defined (GO32) -#ifndef NON_UNIX_STDIO -#define NON_UNIX_STDIO -#endif -#endif - -#ifdef UIOLEN_int -typedef int uiolen; -#else -typedef long uiolen; -#endif - -/*units*/ -typedef struct -{ FILE *ufd; /*0=unconnected*/ - char *ufnm; -#if !(defined (MSDOS) && !defined (GO32)) - long uinode; - int udev; -#endif - int url; /*0=sequential*/ - flag useek; /*true=can backspace, use dir, ...*/ - flag ufmt; - flag urw; /* (1 for can read) | (2 for can write) */ - flag ublnk; - flag uend; - flag uwrt; /*last io was write*/ - flag uscrtch; -} unit; - -extern int f__init; -extern cilist *f__elist; /*active external io list*/ -extern flag f__reading,f__external,f__sequential,f__formatted; -#undef Void -#ifdef KR_headers -#define Void /*void*/ -extern int (*f__getn)(); /* for formatted input */ -extern void (*f__putn)(); /* for formatted output */ -extern void x_putc(); -extern long f__inode(); -extern VOID sig_die(); -extern int (*f__donewrec)(), t_putc(), x_wSL(); -extern int c_sfe(), err__fl(), xrd_SL(), f__putbuf(); -#else -#define Void void -#ifdef __cplusplus -extern "C" { -#endif -extern int (*f__getn)(void); /* for formatted input */ -extern void (*f__putn)(int); /* for formatted output */ -extern void x_putc(int); -extern long f__inode(char*,int*); -extern void sig_die(char*,int); -extern void f__fatal(int,char*); -extern int t_runc(alist*); -extern int f__nowreading(unit*), f__nowwriting(unit*); -extern int fk_open(int,int,ftnint); -extern int en_fio(void); -extern void f_init(void); -extern int (*f__donewrec)(void), t_putc(int), x_wSL(void); -extern void b_char(char*,char*,ftnlen), g_char(char*,ftnlen,char*); -extern int c_sfe(cilist*), z_rnew(void); -extern int isatty(int); -extern int err__fl(int,int,char*); -extern int xrd_SL(void); -extern int f__putbuf(int); -#ifdef __cplusplus - } -#endif -#endif -extern int (*f__doend)(Void); -extern FILE *f__cf; /*current file*/ -extern unit *f__curunit; /*current unit*/ -extern unit f__units[]; -#define err(f,m,s) do {if(f) {f__init &= ~2; errno= m;} else f__fatal(m,s); return(m);} while(0) -#define errfl(f,m,s) do {return err__fl((int)f,m,s);} while(0) - -/*Table sizes*/ -#define MXUNIT 100 - -extern int f__recpos; /*position in current record*/ -extern int f__cursor; /* offset to move to */ -extern int f__hiwater; /* so TL doesn't confuse us */ - -#define WRITE 1 -#define READ 2 -#define SEQ 3 -#define DIR 4 -#define FMT 5 -#define UNF 6 -#define EXT 7 -#define INT 8 - -#define buf_end(x) (x->_flag & _IONBF ? x->_ptr : x->_base + BUFSIZ) diff --git a/gnu/egcs/libf2c/libI77/fmt.c b/gnu/egcs/libf2c/libI77/fmt.c deleted file mode 100644 index 8f08952ed45..00000000000 --- a/gnu/egcs/libf2c/libI77/fmt.c +++ /dev/null @@ -1,543 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "fmt.h" -#define skip(s) while(*s==' ') s++ -#ifdef interdata -#define SYLMX 300 -#endif -#ifdef pdp11 -#define SYLMX 300 -#endif -#ifdef vax -#define SYLMX 300 -#endif -#ifndef SYLMX -#define SYLMX 300 -#endif -#define GLITCH '\2' - /* special quote character for stu */ -extern int f__cursor,f__scale; -extern flag f__cblank,f__cplus; /*blanks in I and compulsory plus*/ -static struct syl f__syl[SYLMX]; -int f__parenlvl,f__pc,f__revloc; - - static -#ifdef KR_headers -char *ap_end(s) char *s; -#else -char *ap_end(char *s) -#endif -{ char quote; - quote= *s++; - for(;*s;s++) - { if(*s!=quote) continue; - if(*++s!=quote) return(s); - } - if(f__elist->cierr) { - errno = 100; - return(NULL); - } - f__fatal(100, "bad string"); - /*NOTREACHED*/ return 0; -} - static -#ifdef KR_headers -op_gen(a,b,c,d) -#else -op_gen(int a, int b, int c, int d) -#endif -{ struct syl *p= &f__syl[f__pc]; - if(f__pc>=SYLMX) - { fprintf(stderr,"format too complicated:\n"); - sig_die(f__fmtbuf, 1); - } - p->op=a; - p->p1=b; - p->p2.i[0]=c; - p->p2.i[1]=d; - return(f__pc++); -} -#ifdef KR_headers -static char *f_list(); -static char *gt_num(s,n,n1) char *s; int *n, n1; -#else -static char *f_list(char*); -static char *gt_num(char *s, int *n, int n1) -#endif -{ int m=0,f__cnt=0; - char c; - for(c= *s;;c = *s) - { if(c==' ') - { s++; - continue; - } - if(c>'9' || c<'0') break; - m=10*m+c-'0'; - f__cnt++; - s++; - } - if(f__cnt==0) { - if (!n1) - s = 0; - *n=n1; - } - else *n=m; - return(s); -} - - static -#ifdef KR_headers -char *f_s(s,curloc) char *s; -#else -char *f_s(char *s, int curloc) -#endif -{ - skip(s); - if(*s++!='(') - { - return(NULL); - } - if(f__parenlvl++ ==1) f__revloc=curloc; - if(op_gen(RET1,curloc,0,0)<0 || - (s=f_list(s))==NULL) - { - return(NULL); - } - return(s); -} - - static -#ifdef KR_headers -ne_d(s,p) char *s,**p; -#else -ne_d(char *s, char **p) -#endif -{ int n,x,sign=0; - struct syl *sp; - switch(*s) - { - default: - return(0); - case ':': (void) op_gen(COLON,0,0,0); break; - case '$': - (void) op_gen(NONL, 0, 0, 0); break; - case 'B': - case 'b': - if(*++s=='z' || *s == 'Z') (void) op_gen(BZ,0,0,0); - else (void) op_gen(BN,0,0,0); - break; - case 'S': - case 's': - if(*(s+1)=='s' || *(s+1) == 'S') - { x=SS; - s++; - } - else if(*(s+1)=='p' || *(s+1) == 'P') - { x=SP; - s++; - } - else x=S; - (void) op_gen(x,0,0,0); - break; - case '/': (void) op_gen(SLASH,0,0,0); break; - case '-': sign=1; - case '+': s++; /*OUTRAGEOUS CODING TRICK*/ - case '0': case '1': case '2': case '3': case '4': - case '5': case '6': case '7': case '8': case '9': - if (!(s=gt_num(s,&n,0))) { - bad: *p = 0; - return 1; - } - switch(*s) - { - default: - return(0); - case 'P': - case 'p': if(sign) n= -n; (void) op_gen(P,n,0,0); break; - case 'X': - case 'x': (void) op_gen(X,n,0,0); break; - case 'H': - case 'h': - sp = &f__syl[op_gen(H,n,0,0)]; - sp->p2.s = s + 1; - s+=n; - break; - } - break; - case GLITCH: - case '"': - case '\'': - sp = &f__syl[op_gen(APOS,0,0,0)]; - sp->p2.s = s; - if((*p = ap_end(s)) == NULL) - return(0); - return(1); - case 'T': - case 't': - if(*(s+1)=='l' || *(s+1) == 'L') - { x=TL; - s++; - } - else if(*(s+1)=='r'|| *(s+1) == 'R') - { x=TR; - s++; - } - else x=T; - if (!(s=gt_num(s+1,&n,0))) - goto bad; - s--; - (void) op_gen(x,n,0,0); - break; - case 'X': - case 'x': (void) op_gen(X,1,0,0); break; - case 'P': - case 'p': (void) op_gen(P,1,0,0); break; - } - s++; - *p=s; - return(1); -} - - static -#ifdef KR_headers -e_d(s,p) char *s,**p; -#else -e_d(char *s, char **p) -#endif -{ int i,im,n,w,d,e,found=0,x=0; - char *sv=s; - s=gt_num(s,&n,1); - (void) op_gen(STACK,n,0,0); - switch(*s++) - { - default: break; - case 'E': - case 'e': x=1; - case 'G': - case 'g': - found=1; - if (!(s=gt_num(s,&w,0))) { - bad: - *p = 0; - return 1; - } - if(w==0) break; - if(*s=='.') { - if (!(s=gt_num(s+1,&d,0))) - goto bad; - } - else d=0; - if(*s!='E' && *s != 'e') - (void) op_gen(x==1?E:G,w,d,0); /* default is Ew.dE2 */ - else { - if (!(s=gt_num(s+1,&e,0))) - goto bad; - (void) op_gen(x==1?EE:GE,w,d,e); - } - break; - case 'O': - case 'o': - i = O; - im = OM; - goto finish_I; - case 'Z': - case 'z': - i = Z; - im = ZM; - goto finish_I; - case 'L': - case 'l': - found=1; - if (!(s=gt_num(s,&w,0))) - goto bad; - if(w==0) break; - (void) op_gen(L,w,0,0); - break; - case 'A': - case 'a': - found=1; - skip(s); - if(*s>='0' && *s<='9') - { s=gt_num(s,&w,1); - if(w==0) break; - (void) op_gen(AW,w,0,0); - break; - } - (void) op_gen(A,0,0,0); - break; - case 'F': - case 'f': - if (!(s=gt_num(s,&w,0))) - goto bad; - found=1; - if(w==0) break; - if(*s=='.') { - if (!(s=gt_num(s+1,&d,0))) - goto bad; - } - else d=0; - (void) op_gen(F,w,d,0); - break; - case 'D': - case 'd': - found=1; - if (!(s=gt_num(s,&w,0))) - goto bad; - if(w==0) break; - if(*s=='.') { - if (!(s=gt_num(s+1,&d,0))) - goto bad; - } - else d=0; - (void) op_gen(D,w,d,0); - break; - case 'I': - case 'i': - i = I; - im = IM; - finish_I: - if (!(s=gt_num(s,&w,0))) - goto bad; - found=1; - if(w==0) break; - if(*s!='.') - { (void) op_gen(i,w,0,0); - break; - } - if (!(s=gt_num(s+1,&d,0))) - goto bad; - (void) op_gen(im,w,d,0); - break; - } - if(found==0) - { f__pc--; /*unSTACK*/ - *p=sv; - return(0); - } - *p=s; - return(1); -} - static -#ifdef KR_headers -char *i_tem(s) char *s; -#else -char *i_tem(char *s) -#endif -{ char *t; - int n,curloc; - if(*s==')') return(s); - if(ne_d(s,&t)) return(t); - if(e_d(s,&t)) return(t); - s=gt_num(s,&n,1); - if((curloc=op_gen(STACK,n,0,0))<0) return(NULL); - return(f_s(s,curloc)); -} - - static -#ifdef KR_headers -char *f_list(s) char *s; -#else -char *f_list(char *s) -#endif -{ - for(;*s!=0;) - { skip(s); - if((s=i_tem(s))==NULL) return(NULL); - skip(s); - if(*s==',') s++; - else if(*s==')') - { if(--f__parenlvl==0) - { - (void) op_gen(REVERT,f__revloc,0,0); - return(++s); - } - (void) op_gen(GOTO,0,0,0); - return(++s); - } - } - return(NULL); -} - -#ifdef KR_headers -pars_f(s) char *s; -#else -pars_f(char *s) -#endif -{ - char *e; - - f__parenlvl=f__revloc=f__pc=0; - if((e=f_s(s,0)) == NULL) - { - /* Try and delimit the format string. Parens within - hollerith and quoted strings have to match for this - to work, but it's probably adequate for most needs. - Note that this is needed because a valid CHARACTER - variable passed for FMT= can contain '(I)garbage', - where `garbage' is billions and billions of junk - characters, and it's up to the run-time library to - know where the format string ends by counting parens. - Meanwhile, still treat NUL byte as "hard stop", since - f2c still appends that at end of FORMAT-statement - strings. */ - - int level=0; - - for (f__fmtlen=0; - ((*s!=')') || (--level > 0)) - && (*s!='\0') - && (f__fmtlen<80); - ++s, ++f__fmtlen) - { - if (*s=='(') - ++level; - } - if (*s==')') - ++f__fmtlen; - return(-1); - } - f__fmtlen = e - s; - return(0); -} -#define STKSZ 10 -int f__cnt[STKSZ],f__ret[STKSZ],f__cp,f__rp; -flag f__workdone, f__nonl; - - static -#ifdef KR_headers -type_f(n) -#else -type_f(int n) -#endif -{ - switch(n) - { - default: - return(n); - case RET1: - return(RET1); - case REVERT: return(REVERT); - case GOTO: return(GOTO); - case STACK: return(STACK); - case X: - case SLASH: - case APOS: case H: - case T: case TL: case TR: - return(NED); - case F: - case I: - case IM: - case A: case AW: - case O: case OM: - case L: - case E: case EE: case D: - case G: case GE: - case Z: case ZM: - return(ED); - } -} -#ifdef KR_headers -integer do_fio(number,ptr,len) ftnint *number; ftnlen len; char *ptr; -#else -integer do_fio(ftnint *number, char *ptr, ftnlen len) -#endif -{ struct syl *p; - int n,i; - for(i=0;i<*number;i++,ptr+=len) - { -loop: switch(type_f((p= &f__syl[f__pc])->op)) - { - default: - fprintf(stderr,"unknown code in do_fio: %d\n%.*s\n", - p->op,f__fmtlen,f__fmtbuf); - err(f__elist->cierr,100,"do_fio"); - case NED: - if((*f__doned)(p)) - { f__pc++; - goto loop; - } - f__pc++; - continue; - case ED: - if(f__cnt[f__cp]<=0) - { f__cp--; - f__pc++; - goto loop; - } - if(ptr==NULL) - return((*f__doend)()); - f__cnt[f__cp]--; - f__workdone=1; - if((n=(*f__doed)(p,ptr,len))>0) - errfl(f__elist->cierr,errno,"fmt"); - if(n<0) - err(f__elist->ciend,(EOF),"fmt"); - continue; - case STACK: - f__cnt[++f__cp]=p->p1; - f__pc++; - goto loop; - case RET1: - f__ret[++f__rp]=p->p1; - f__pc++; - goto loop; - case GOTO: - if(--f__cnt[f__cp]<=0) - { f__cp--; - f__rp--; - f__pc++; - goto loop; - } - f__pc=1+f__ret[f__rp--]; - goto loop; - case REVERT: - f__rp=f__cp=0; - f__pc = p->p1; - if(ptr==NULL) - return((*f__doend)()); - if(!f__workdone) return(0); - if((n=(*f__dorevert)()) != 0) return(n); - goto loop; - case COLON: - if(ptr==NULL) - return((*f__doend)()); - f__pc++; - goto loop; - case NONL: - f__nonl = 1; - f__pc++; - goto loop; - case S: - case SS: - f__cplus=0; - f__pc++; - goto loop; - case SP: - f__cplus = 1; - f__pc++; - goto loop; - case P: f__scale=p->p1; - f__pc++; - goto loop; - case BN: - f__cblank=0; - f__pc++; - goto loop; - case BZ: - f__cblank=1; - f__pc++; - goto loop; - } - } - return(0); -} -en_fio(Void) -{ ftnint one=1; - return(do_fio(&one,(char *)NULL,(ftnint)0)); -} - VOID -fmt_bg(Void) -{ - f__workdone=f__cp=f__rp=f__pc=f__cursor=0; - f__cnt[0]=f__ret[0]=0; -} diff --git a/gnu/egcs/libf2c/libI77/fmt.h b/gnu/egcs/libf2c/libI77/fmt.h deleted file mode 100644 index 6197e76ed5a..00000000000 --- a/gnu/egcs/libf2c/libI77/fmt.h +++ /dev/null @@ -1,101 +0,0 @@ -struct syl -{ int op; - int p1; - union { int i[2]; char *s;} p2; - }; -#define RET1 1 -#define REVERT 2 -#define GOTO 3 -#define X 4 -#define SLASH 5 -#define STACK 6 -#define I 7 -#define ED 8 -#define NED 9 -#define IM 10 -#define APOS 11 -#define H 12 -#define TL 13 -#define TR 14 -#define T 15 -#define COLON 16 -#define S 17 -#define SP 18 -#define SS 19 -#define P 20 -#define BN 21 -#define BZ 22 -#define F 23 -#define E 24 -#define EE 25 -#define D 26 -#define G 27 -#define GE 28 -#define L 29 -#define A 30 -#define AW 31 -#define O 32 -#define NONL 33 -#define OM 34 -#define Z 35 -#define ZM 36 -extern int f__pc,f__parenlvl,f__revloc; -typedef union -{ real pf; - doublereal pd; -} ufloat; -typedef union -{ short is; -#ifndef KR_headers - signed -#endif - char ic; - integer il; -#ifdef Allow_TYQUAD - longint ili; -#endif -} Uint; -#ifdef KR_headers -extern int (*f__doed)(),(*f__doned)(); -extern int (*f__dorevert)(); -extern int rd_ed(),rd_ned(); -extern int w_ed(),w_ned(); -#else -#ifdef __cplusplus -extern "C" { -#endif -extern int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*); -extern int (*f__dorevert)(void); -extern void fmt_bg(void); -extern int pars_f(char*); -extern int rd_ed(struct syl*, char*, ftnlen),rd_ned(struct syl*); -extern int w_ed(struct syl*, char*, ftnlen),w_ned(struct syl*); -extern int wrt_E(ufloat*, int, int, int, ftnlen); -extern int wrt_F(ufloat*, int, int, ftnlen); -extern int wrt_L(Uint*, int, ftnlen); -#ifdef __cplusplus - } -#endif -#endif -extern flag f__cblank,f__cplus,f__workdone, f__nonl; -extern char *f__fmtbuf; -extern int f__fmtlen; -extern int f__scale; -#define GET(x) if((x=(*f__getn)())<0) return(x) -#define VAL(x) (x!='\n'?x:' ') -#define PUT(x) (*f__putn)(x) -extern int f__cursor; - -#undef TYQUAD -#ifndef Allow_TYQUAD -#undef longint -#define longint long -#else -#define TYQUAD 14 -#endif - -#ifdef KR_headers -extern char *f__icvt(); -#else -extern char *f__icvt(longint, int*, int*, int); -#endif diff --git a/gnu/egcs/libf2c/libI77/fmtlib.c b/gnu/egcs/libf2c/libI77/fmtlib.c deleted file mode 100644 index 91483fc5290..00000000000 --- a/gnu/egcs/libf2c/libI77/fmtlib.c +++ /dev/null @@ -1,45 +0,0 @@ -/* @(#)fmtlib.c 1.2 */ -#define MAXINTLENGTH 23 - -#include "f2c.h" -#ifndef Allow_TYQUAD -#undef longint -#define longint long -#undef ulongint -#define ulongint unsigned long -#endif - -#ifdef KR_headers -char *f__icvt(value,ndigit,sign, base) longint value; int *ndigit,*sign; - register int base; -#else -char *f__icvt(longint value, int *ndigit, int *sign, int base) -#endif -{ - static char buf[MAXINTLENGTH+1]; - register int i; - ulongint uvalue; - - if(value > 0) { - uvalue = value; - *sign = 0; - } - else if (value < 0) { - uvalue = -value; - *sign = 1; - } - else { - *sign = 0; - *ndigit = 1; - buf[MAXINTLENGTH-1] = '0'; - return &buf[MAXINTLENGTH-1]; - } - i = MAXINTLENGTH; - do { - buf[--i] = (uvalue%base) + '0'; - uvalue /= base; - } - while(uvalue > 0); - *ndigit = MAXINTLENGTH - i; - return &buf[i]; - } diff --git a/gnu/egcs/libf2c/libI77/fp.h b/gnu/egcs/libf2c/libI77/fp.h deleted file mode 100644 index 40743d79f74..00000000000 --- a/gnu/egcs/libf2c/libI77/fp.h +++ /dev/null @@ -1,28 +0,0 @@ -#define FMAX 40 -#define EXPMAXDIGS 8 -#define EXPMAX 99999999 -/* FMAX = max number of nonzero digits passed to atof() */ -/* EXPMAX = 10^EXPMAXDIGS - 1 = largest allowed exponent absolute value */ - -#ifdef V10 /* Research Tenth-Edition Unix */ -#include "local.h" -#endif - -/* MAXFRACDIGS and MAXINTDIGS are for wrt_F -- bounds (not necessarily - tight) on the maximum number of digits to the right and left of - * the decimal point. - */ - -#ifdef VAX -#define MAXFRACDIGS 56 -#define MAXINTDIGS 38 -#else -#ifdef CRAY -#define MAXFRACDIGS 9880 -#define MAXINTDIGS 9864 -#else -/* values that suffice for IEEE double */ -#define MAXFRACDIGS 344 -#define MAXINTDIGS 308 -#endif -#endif diff --git a/gnu/egcs/libf2c/libI77/ftell_.c b/gnu/egcs/libf2c/libI77/ftell_.c deleted file mode 100644 index 1bd03be325a..00000000000 --- a/gnu/egcs/libf2c/libI77/ftell_.c +++ /dev/null @@ -1,46 +0,0 @@ -#include "f2c.h" -#include "fio.h" - - static FILE * -#ifdef KR_headers -unit_chk(Unit, who) integer Unit; char *who; -#else -unit_chk(integer Unit, char *who) -#endif -{ - if (Unit >= MXUNIT || Unit < 0) - f__fatal(101, who); - return f__units[Unit].ufd; - } - - integer -#ifdef KR_headers -G77_ftell_0 (Unit) integer *Unit; -#else -G77_ftell_0 (integer *Unit) -#endif -{ - FILE *f; - return (f = unit_chk(*Unit, "ftell")) ? ftell(f) : -1L; - } - - integer -#ifdef KR_headers -G77_fseek_0 (Unit, offset, xwhence) integer *Unit, *offset, *xwhence; -#else -G77_fseek_0 (integer *Unit, integer *offset, integer *xwhence) -#endif -{ - FILE *f; - int w = (int)*xwhence; -#ifdef SEEK_SET - static int wohin[3] = { SEEK_SET, SEEK_CUR, SEEK_END }; -#endif - if (w < 0 || w > 2) - w = 0; -#ifdef SEEK_SET - w = wohin[w]; -#endif - return !(f = unit_chk(*Unit, "fseek")) - || fseek(f, *offset, w) ? 1 : 0; - } diff --git a/gnu/egcs/libf2c/libI77/iio.c b/gnu/egcs/libf2c/libI77/iio.c deleted file mode 100644 index 931f15aab63..00000000000 --- a/gnu/egcs/libf2c/libI77/iio.c +++ /dev/null @@ -1,154 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "fmt.h" -extern char *f__icptr; -char *f__icend; -extern icilist *f__svic; -int f__icnum; -extern int f__hiwater; -z_getc(Void) -{ - if(f__recpos++ < f__svic->icirlen) { - if(f__icptr >= f__icend) err(f__svic->iciend,(EOF),"endfile"); - return(*(unsigned char *)f__icptr++); - } - return '\n'; -} - - void -#ifdef KR_headers -z_putc(c) -#else -z_putc(int c) -#endif -{ - if (f__icptr < f__icend && f__recpos++ < f__svic->icirlen) - *f__icptr++ = c; -} -z_rnew(Void) -{ - f__icptr = f__svic->iciunit + (++f__icnum)*f__svic->icirlen; - f__recpos = 0; - f__cursor = 0; - f__hiwater = 0; - return 1; -} - - static int -z_endp(Void) -{ - (*f__donewrec)(); - return 0; - } - -#ifdef KR_headers -c_si(a) icilist *a; -#else -c_si(icilist *a) -#endif -{ - if (f__init & 2) - f__fatal (131, "I/O recursion"); - f__init |= 2; - f__elist = (cilist *)a; - f__fmtbuf=a->icifmt; - f__curunit = 0; - f__sequential=f__formatted=1; - f__external=0; - if(pars_f(f__fmtbuf)<0) - err(a->icierr,100,"startint"); - fmt_bg(); - f__cblank=f__cplus=f__scale=0; - f__svic=a; - f__icnum=f__recpos=0; - f__cursor = 0; - f__hiwater = 0; - f__icptr = a->iciunit; - f__icend = f__icptr + a->icirlen*a->icirnum; - f__cf = 0; - return(0); -} - - int -iw_rev(Void) -{ - if(f__workdone) - z_endp(); - f__hiwater = f__recpos = f__cursor = 0; - return(f__workdone=0); - } - -#ifdef KR_headers -integer s_rsfi(a) icilist *a; -#else -integer s_rsfi(icilist *a) -#endif -{ int n; - if(n=c_si(a)) return(n); - f__reading=1; - f__doed=rd_ed; - f__doned=rd_ned; - f__getn=z_getc; - f__dorevert = z_endp; - f__donewrec = z_rnew; - f__doend = z_endp; - return(0); -} - -z_wnew(Void) -{ - if (f__recpos < f__hiwater) { - f__icptr += f__hiwater - f__recpos; - f__recpos = f__hiwater; - } - while(f__recpos++ < f__svic->icirlen) - *f__icptr++ = ' '; - f__recpos = 0; - f__cursor = 0; - f__hiwater = 0; - f__icnum++; - return 1; -} -#ifdef KR_headers -integer s_wsfi(a) icilist *a; -#else -integer s_wsfi(icilist *a) -#endif -{ int n; - if(n=c_si(a)) return(n); - f__reading=0; - f__doed=w_ed; - f__doned=w_ned; - f__putn=z_putc; - f__dorevert = iw_rev; - f__donewrec = z_wnew; - f__doend = z_endp; - return(0); -} -integer e_rsfi(Void) -{ int n; - f__init &= ~2; - n = en_fio(); - f__fmtbuf = NULL; - return(n); -} -integer e_wsfi(Void) -{ - int n; - f__init &= ~2; - n = en_fio(); - f__fmtbuf = NULL; - if(f__svic->icirnum != 1 - && (f__icnum > f__svic->icirnum - || (f__icnum == f__svic->icirnum && (f__recpos | f__hiwater)))) - err(f__svic->icierr,110,"inwrite"); - if (f__recpos < f__hiwater) - f__recpos = f__hiwater; - if (f__recpos >= f__svic->icirlen) - err(f__svic->icierr,110,"recend"); - if (!f__recpos && f__icnum) - return n; - while(f__recpos++ < f__svic->icirlen) - *f__icptr++ = ' '; - return n; -} diff --git a/gnu/egcs/libf2c/libI77/ilnw.c b/gnu/egcs/libf2c/libI77/ilnw.c deleted file mode 100644 index abc64099d31..00000000000 --- a/gnu/egcs/libf2c/libI77/ilnw.c +++ /dev/null @@ -1,82 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "lio.h" -extern char *f__icptr; -extern char *f__icend; -extern icilist *f__svic; -extern int f__icnum; -#ifdef KR_headers -extern void z_putc(); -#else -extern void z_putc(int); -#endif - - static int -z_wSL(Void) -{ - while(f__recpos < f__svic->icirlen) - z_putc(' '); - return z_rnew(); - } - - static void -#ifdef KR_headers -c_liw(a) icilist *a; -#else -c_liw(icilist *a) -#endif -{ - f__reading = 0; - f__external = 0; - f__formatted = 1; - f__putn = z_putc; - L_len = a->icirlen; - f__donewrec = z_wSL; - f__svic = a; - f__icnum = f__recpos = 0; - f__cursor = 0; - f__cf = 0; - f__curunit = 0; - f__icptr = a->iciunit; - f__icend = f__icptr + a->icirlen*a->icirnum; - f__elist = (cilist *)a; - } - - integer -#ifdef KR_headers -s_wsni(a) icilist *a; -#else -s_wsni(icilist *a) -#endif -{ - cilist ca; - - if(f__init != 1) f_init(); - f__init = 3; - c_liw(a); - ca.cifmt = a->icifmt; - x_wsne(&ca); - z_wSL(); - return 0; - } - - integer -#ifdef KR_headers -s_wsli(a) icilist *a; -#else -s_wsli(icilist *a) -#endif -{ - if(f__init != 1) f_init(); - f__init = 3; - f__lioproc = l_write; - c_liw(a); - return(0); - } - -integer e_wsli(Void) -{ - f__init = 1; - z_wSL(); - return(0); - } diff --git a/gnu/egcs/libf2c/libI77/inquire.c b/gnu/egcs/libf2c/libI77/inquire.c deleted file mode 100644 index 963d4c3e5e8..00000000000 --- a/gnu/egcs/libf2c/libI77/inquire.c +++ /dev/null @@ -1,108 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include <string.h> -#ifdef KR_headers -integer f_inqu(a) inlist *a; -#else -#if defined (MSDOS) && !defined (GO32) -#undef abs -#undef min -#undef max -#include "io.h" -#endif -integer f_inqu(inlist *a) -#endif -{ flag byfile; - int i, n; - unit *p; - char buf[256]; - long x; - if (f__init & 2) - f__fatal (131, "I/O recursion"); - if(a->infile!=NULL) - { byfile=1; - g_char(a->infile,a->infilen,buf); -#ifdef NON_UNIX_STDIO - x = access(buf,0) ? -1 : 0; - for(i=0,p=NULL;i<MXUNIT;i++) - if(f__units[i].ufd != NULL - && f__units[i].ufnm != NULL - && !strcmp(f__units[i].ufnm,buf)) { - p = &f__units[i]; - break; - } -#else - x=f__inode(buf, &n); - for(i=0,p=NULL;i<MXUNIT;i++) - if(f__units[i].uinode==x - && f__units[i].ufd!=NULL - && f__units[i].udev == n) { - p = &f__units[i]; - break; - } -#endif - } - else - { - byfile=0; - if(a->inunit<MXUNIT && a->inunit>=0) - { - p= &f__units[a->inunit]; - } - else - { - p=NULL; - } - } - if(a->inex!=NULL) - if(byfile && x != -1 || !byfile && p!=NULL) - *a->inex=1; - else *a->inex=0; - if(a->inopen!=NULL) - if(byfile) *a->inopen=(p!=NULL); - else *a->inopen=(p!=NULL && p->ufd!=NULL); - if(a->innum!=NULL) *a->innum= p-f__units; - if(a->innamed!=NULL) - if(byfile || p!=NULL && p->ufnm!=NULL) - *a->innamed=1; - else *a->innamed=0; - if(a->inname!=NULL) - if(byfile) - b_char(buf,a->inname,a->innamlen); - else if(p!=NULL && p->ufnm!=NULL) - b_char(p->ufnm,a->inname,a->innamlen); - if(a->inacc!=NULL && p!=NULL && p->ufd!=NULL) - if(p->url) - b_char("DIRECT",a->inacc,a->inacclen); - else b_char("SEQUENTIAL",a->inacc,a->inacclen); - if(a->inseq!=NULL) - if(p!=NULL && p->url) - b_char("NO",a->inseq,a->inseqlen); - else b_char("YES",a->inseq,a->inseqlen); - if(a->indir!=NULL) - if(p==NULL || p->url) - b_char("YES",a->indir,a->indirlen); - else b_char("NO",a->indir,a->indirlen); - if(a->infmt!=NULL) - if(p!=NULL && p->ufmt==0) - b_char("UNFORMATTED",a->infmt,a->infmtlen); - else b_char("FORMATTED",a->infmt,a->infmtlen); - if(a->inform!=NULL) - if(p!=NULL && p->ufmt==0) - b_char("NO",a->inform,a->informlen); - else b_char("YES",a->inform,a->informlen); - if(a->inunf) - if(p!=NULL && p->ufmt==0) - b_char("YES",a->inunf,a->inunflen); - else if (p!=NULL) b_char("NO",a->inunf,a->inunflen); - else b_char("UNKNOWN",a->inunf,a->inunflen); - if(a->inrecl!=NULL && p!=NULL) - *a->inrecl=p->url; - if(a->innrec!=NULL && p!=NULL && p->url>0) - *a->innrec=ftell(p->ufd)/p->url+1; - if(a->inblank && p!=NULL && p->ufmt) - if(p->ublnk) - b_char("ZERO",a->inblank,a->inblanklen); - else b_char("NULL",a->inblank,a->inblanklen); - return(0); -} diff --git a/gnu/egcs/libf2c/libI77/lio.h b/gnu/egcs/libf2c/libI77/lio.h deleted file mode 100644 index 012317206aa..00000000000 --- a/gnu/egcs/libf2c/libI77/lio.h +++ /dev/null @@ -1,74 +0,0 @@ -/* copy of ftypes from the compiler */ -/* variable types - * numeric assumptions: - * int < reals < complexes - * TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX - */ - -/* 0-10 retain their old (pre LOGICAL*1, etc.) */ -/* values to allow mixing old and new objects. */ - -#define TYUNKNOWN 0 -#define TYADDR 1 -#define TYSHORT 2 -#define TYLONG 3 -#define TYREAL 4 -#define TYDREAL 5 -#define TYCOMPLEX 6 -#define TYDCOMPLEX 7 -#define TYLOGICAL 8 -#define TYCHAR 9 -#define TYSUBR 10 -#define TYINT1 11 -#define TYLOGICAL1 12 -#define TYLOGICAL2 13 -#ifdef Allow_TYQUAD -#undef TYQUAD -#define TYQUAD 14 -#endif - -#define LINTW 24 -#define LINE 80 -#define LLOGW 2 -#ifdef Old_list_output -#define LLOW 1.0 -#define LHIGH 1.e9 -#define LEFMT " %# .8E" -#define LFFMT " %# .9g" -#else -#define LGFMT "%.9G" -#endif -/* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */ -#define LEFBL 24 - -typedef union -{ - char flchar; - short flshort; - ftnint flint; -#ifdef Allow_TYQUAD - longint fllongint; -#endif - real flreal; - doublereal fldouble; -} flex; -extern int f__scale; -#ifdef KR_headers -extern int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)(); -extern int l_read(), l_write(); -#else -#ifdef __cplusplus -extern "C" { -#endif -extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint); -extern int l_write(ftnint*, char*, ftnlen, ftnint); -extern void x_wsne(cilist*); -extern int c_le(cilist*), (*l_getc)(void), (*l_ungetc)(int,FILE*); -extern int l_read(ftnint*,char*,ftnlen,ftnint); -extern integer e_rsle(void), e_wsle(void), s_wsne(cilist*); -extern int z_rnew(void); -#ifdef __cplusplus - } -#endif -#endif -extern ftnint L_len; diff --git a/gnu/egcs/libf2c/libI77/lread.c b/gnu/egcs/libf2c/libI77/lread.c deleted file mode 100644 index 3d400596224..00000000000 --- a/gnu/egcs/libf2c/libI77/lread.c +++ /dev/null @@ -1,707 +0,0 @@ -#include <ctype.h> -#include "f2c.h" -#include "fio.h" - -/* Compile with -DF8X_NML_ELIDE_QUOTES to permit eliding quotation */ -/* marks in namelist input a la the Fortran 8X Draft published in */ -/* the May 1989 issue of Fortran Forum. */ - - -extern char *f__fmtbuf; -extern int f__fmtlen; - -#ifdef Allow_TYQUAD -static longint f__llx; -static int quad_read; -#endif - -#ifdef KR_headers -extern double atof(); -extern char *malloc(), *realloc(); -int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)(); -#else -#undef abs -#undef min -#undef max -#include <stdlib.h> -#endif - -#include "fmt.h" -#include "lio.h" -#include "fp.h" - -#ifndef KR_headers -int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint), (*l_getc)(void), - (*l_ungetc)(int,FILE*); -#endif - -int l_eof; - -#define isblnk(x) (f__ltab[x+1]&B) -#define issep(x) (f__ltab[x+1]&SX) -#define isapos(x) (f__ltab[x+1]&AX) -#define isexp(x) (f__ltab[x+1]&EX) -#define issign(x) (f__ltab[x+1]&SG) -#define iswhit(x) (f__ltab[x+1]&WH) -#define SX 1 -#define B 2 -#define AX 4 -#define EX 8 -#define SG 16 -#define WH 32 -char f__ltab[128+1] = { /* offset one for EOF */ - 0, - 0,0,AX,0,0,0,0,0,0,WH|B,SX|WH,0,0,0,0,0, - 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, - SX|B|WH,0,AX,0,0,0,0,AX,0,0,0,SG,SX,SG,0,SX, - 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, - 0,0,0,0,EX,EX,0,0,0,0,0,0,0,0,0,0, - 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, - AX,0,0,0,EX,EX,0,0,0,0,0,0,0,0,0,0, - 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -}; - -#ifdef ungetc - static int -#ifdef KR_headers -un_getc(x,f__cf) int x; FILE *f__cf; -#else -un_getc(int x, FILE *f__cf) -#endif -{ return ungetc(x,f__cf); } -#else -#define un_getc ungetc -#ifdef KR_headers - extern int ungetc(); -#else -extern int ungetc(int, FILE*); /* for systems with a buggy stdio.h */ -#endif -#endif - -t_getc(Void) -{ int ch; - if(f__curunit->uend) return(EOF); - if((ch=getc(f__cf))!=EOF) return(ch); - if(feof(f__cf)) - f__curunit->uend = l_eof = 1; - return(EOF); -} -integer e_rsle(Void) -{ - int ch; - f__init = 1; - if(f__curunit->uend) return(0); - while((ch=t_getc())!='\n') - if (ch == EOF) { - if(feof(f__cf)) - f__curunit->uend = l_eof = 1; - return EOF; - } - return(0); -} - -flag f__lquit; -int f__lcount,f__ltype,nml_read; -char *f__lchar; -double f__lx,f__ly; -#define ERR(x) if(n=(x)) {f__init &= ~2; return(n);} -#define GETC(x) (x=(*l_getc)()) -#define Ungetc(x,y) (*l_ungetc)(x,y) - - static int -#ifdef KR_headers -l_R(poststar, reqint) int poststar, reqint; -#else -l_R(int poststar, int reqint) -#endif -{ - char s[FMAX+EXPMAXDIGS+4]; - register int ch; - register char *sp, *spe, *sp1; - long e, exp; - int havenum, havestar, se; - - if (!poststar) { - if (f__lcount > 0) - return(0); - f__lcount = 1; - } -#ifdef Allow_TYQUAD - f__llx = 0; -#endif - f__ltype = 0; - exp = 0; - havestar = 0; -retry: - sp1 = sp = s; - spe = sp + FMAX; - havenum = 0; - - switch(GETC(ch)) { - case '-': *sp++ = ch; sp1++; spe++; - case '+': - GETC(ch); - } - while(ch == '0') { - ++havenum; - GETC(ch); - } - while(isdigit(ch)) { - if (sp < spe) *sp++ = ch; - else ++exp; - GETC(ch); - } - if (ch == '*' && !poststar) { - if (sp == sp1 || exp || *s == '-') { - errfl(f__elist->cierr,112,"bad repetition count"); - } - poststar = havestar = 1; - *sp = 0; - f__lcount = atoi(s); - goto retry; - } - if (ch == '.') { -#ifndef ALLOW_FLOAT_IN_INTEGER_LIST_INPUT - if (reqint) - errfl(f__elist->cierr,115,"invalid integer"); -#endif - GETC(ch); - if (sp == sp1) - while(ch == '0') { - ++havenum; - --exp; - GETC(ch); - } - while(isdigit(ch)) { - if (sp < spe) - { *sp++ = ch; --exp; } - GETC(ch); - } - } - havenum += sp - sp1; - se = 0; - if (issign(ch)) - goto signonly; - if (havenum && isexp(ch)) { -#ifndef ALLOW_FLOAT_IN_INTEGER_LIST_INPUT - if (reqint) - errfl(f__elist->cierr,115,"invalid integer"); -#endif - GETC(ch); - if (issign(ch)) { -signonly: - if (ch == '-') se = 1; - GETC(ch); - } - if (!isdigit(ch)) { -bad: - errfl(f__elist->cierr,112,"exponent field"); - } - - e = ch - '0'; - while(isdigit(GETC(ch))) { - e = 10*e + ch - '0'; - if (e > EXPMAX) - goto bad; - } - if (se) - exp -= e; - else - exp += e; - } - (void) Ungetc(ch, f__cf); - if (sp > sp1) { - ++havenum; - while(*--sp == '0') - ++exp; - if (exp) - sprintf(sp+1, "e%ld", exp); - else - sp[1] = 0; - f__lx = atof(s); -#ifdef Allow_TYQUAD - if (reqint&2 && (se = sp - sp1 + exp) > 14 && se < 20) { - /* Assuming 64-bit longint and 32-bit long. */ - if (exp < 0) - sp += exp; - if (sp1 <= sp) { - f__llx = *sp1 - '0'; - while(++sp1 <= sp) - f__llx = 10*f__llx + (*sp1 - '0'); - } - while(--exp >= 0) - f__llx *= 10; - if (*s == '-') - f__llx = -f__llx; - } -#endif - } - else - f__lx = 0.; - if (havenum) - f__ltype = TYLONG; - else - switch(ch) { - case ',': - case '/': - break; - default: - if (havestar && ( ch == ' ' - ||ch == '\t' - ||ch == '\n')) - break; - if (nml_read > 1) { - f__lquit = 2; - return 0; - } - errfl(f__elist->cierr,112,"invalid number"); - } - return 0; - } - - static int -#ifdef KR_headers -rd_count(ch) register int ch; -#else -rd_count(register int ch) -#endif -{ - if (ch < '0' || ch > '9') - return 1; - f__lcount = ch - '0'; - while(GETC(ch) >= '0' && ch <= '9') - f__lcount = 10*f__lcount + ch - '0'; - Ungetc(ch,f__cf); - return f__lcount <= 0; - } - - static int -l_C(Void) -{ int ch, nml_save; - double lz; - if(f__lcount>0) return(0); - f__ltype=0; - GETC(ch); - if(ch!='(') - { - if (nml_read > 1 && (ch < '0' || ch > '9')) { - Ungetc(ch,f__cf); - f__lquit = 2; - return 0; - } - if (rd_count(ch)) - if(!f__cf || !feof(f__cf)) - errfl(f__elist->cierr,112,"complex format"); - else - err(f__elist->cierr,(EOF),"lread"); - if(GETC(ch)!='*') - { - if(!f__cf || !feof(f__cf)) - errfl(f__elist->cierr,112,"no star"); - else - err(f__elist->cierr,(EOF),"lread"); - } - if(GETC(ch)!='(') - { Ungetc(ch,f__cf); - return(0); - } - } - else - f__lcount = 1; - while(iswhit(GETC(ch))); - Ungetc(ch,f__cf); - nml_save = nml_read; - nml_read = 0; - if (ch = l_R(1,0)) - return ch; - if (!f__ltype) - errfl(f__elist->cierr,112,"no real part"); - lz = f__lx; - while(iswhit(GETC(ch))); - if(ch!=',') - { (void) Ungetc(ch,f__cf); - errfl(f__elist->cierr,112,"no comma"); - } - while(iswhit(GETC(ch))); - (void) Ungetc(ch,f__cf); - if (ch = l_R(1,0)) - return ch; - if (!f__ltype) - errfl(f__elist->cierr,112,"no imaginary part"); - while(iswhit(GETC(ch))); - if(ch!=')') errfl(f__elist->cierr,112,"no )"); - f__ly = f__lx; - f__lx = lz; -#ifdef Allow_TYQUAD - f__llx = 0; -#endif - nml_read = nml_save; - return(0); -} - - static int -l_L(Void) -{ - int ch; - if(f__lcount>0) return(0); - f__lcount = 1; - f__ltype=0; - GETC(ch); - if(isdigit(ch)) - { - rd_count(ch); - if(GETC(ch)!='*') - if(!f__cf || !feof(f__cf)) - errfl(f__elist->cierr,112,"no star"); - else - err(f__elist->cierr,(EOF),"lread"); - GETC(ch); - } - if(ch == '.') GETC(ch); - switch(ch) - { - case 't': - case 'T': - f__lx=1; - break; - case 'f': - case 'F': - f__lx=0; - break; - default: - if(isblnk(ch) || issep(ch) || ch==EOF) - { (void) Ungetc(ch,f__cf); - return(0); - } - if (nml_read > 1) { - Ungetc(ch,f__cf); - f__lquit = 2; - return 0; - } - errfl(f__elist->cierr,112,"logical"); - } - f__ltype=TYLONG; - while(!issep(GETC(ch)) && ch!=EOF); - (void) Ungetc(ch, f__cf); - return(0); -} - -#define BUFSIZE 128 - - static int -l_CHAR(Void) -{ int ch,size,i; - static char rafail[] = "realloc failure"; - char quote,*p; - if(f__lcount>0) return(0); - f__ltype=0; - if(f__lchar!=NULL) free(f__lchar); - size=BUFSIZE; - p=f__lchar = (char *)malloc((unsigned int)size); - if(f__lchar == NULL) - errfl(f__elist->cierr,113,"no space"); - - GETC(ch); - if(isdigit(ch)) { - /* allow Fortran 8x-style unquoted string... */ - /* either find a repetition count or the string */ - f__lcount = ch - '0'; - *p++ = ch; - for(i = 1;;) { - switch(GETC(ch)) { - case '*': - if (f__lcount == 0) { - f__lcount = 1; -#ifndef F8X_NML_ELIDE_QUOTES - if (nml_read) - goto no_quote; -#endif - goto noquote; - } - p = f__lchar; - goto have_lcount; - case ',': - case ' ': - case '\t': - case '\n': - case '/': - Ungetc(ch,f__cf); - /* no break */ - case EOF: - f__lcount = 1; - f__ltype = TYCHAR; - return *p = 0; - } - if (!isdigit(ch)) { - f__lcount = 1; -#ifndef F8X_NML_ELIDE_QUOTES - if (nml_read) { - no_quote: - errfl(f__elist->cierr,112, - "undelimited character string"); - } -#endif - goto noquote; - } - *p++ = ch; - f__lcount = 10*f__lcount + ch - '0'; - if (++i == size) { - f__lchar = (char *)realloc(f__lchar, - (unsigned int)(size += BUFSIZE)); - if(f__lchar == NULL) - errfl(f__elist->cierr,113,rafail); - p = f__lchar + i; - } - } - } - else (void) Ungetc(ch,f__cf); - have_lcount: - if(GETC(ch)=='\'' || ch=='"') quote=ch; - else if(isblnk(ch) || (issep(ch) && ch != '\n') || ch==EOF) { - Ungetc(ch,f__cf); - return 0; - } -#ifndef F8X_NML_ELIDE_QUOTES - else if (nml_read > 1) { - Ungetc(ch,f__cf); - f__lquit = 2; - return 0; - } -#endif - else { - /* Fortran 8x-style unquoted string */ - *p++ = ch; - for(i = 1;;) { - switch(GETC(ch)) { - case ',': - case ' ': - case '\t': - case '\n': - case '/': - Ungetc(ch,f__cf); - /* no break */ - case EOF: - f__ltype = TYCHAR; - return *p = 0; - } - noquote: - *p++ = ch; - if (++i == size) { - f__lchar = (char *)realloc(f__lchar, - (unsigned int)(size += BUFSIZE)); - if(f__lchar == NULL) - errfl(f__elist->cierr,113,rafail); - p = f__lchar + i; - } - } - } - f__ltype=TYCHAR; - for(i=0;;) - { while(GETC(ch)!=quote && ch!='\n' - && ch!=EOF && ++i<size) *p++ = ch; - if(i==size) - { - newone: - f__lchar= (char *)realloc(f__lchar, - (unsigned int)(size += BUFSIZE)); - if(f__lchar == NULL) - errfl(f__elist->cierr,113,rafail); - p=f__lchar+i-1; - *p++ = ch; - } - else if(ch==EOF) return(EOF); - else if(ch=='\n') - { if(*(p-1) != '\\') continue; - i--; - p--; - if(++i<size) *p++ = ch; - else goto newone; - } - else if(GETC(ch)==quote) - { if(++i<size) *p++ = ch; - else goto newone; - } - else - { (void) Ungetc(ch,f__cf); - *p = 0; - return(0); - } - } -} -#ifdef KR_headers -c_le(a) cilist *a; -#else -c_le(cilist *a) -#endif -{ - if(f__init != 1) f_init(); - f__init = 3; - f__fmtbuf="list io"; - f__curunit = &f__units[a->ciunit]; - f__fmtlen=7; - if(a->ciunit>=MXUNIT || a->ciunit<0) - err(a->cierr,101,"stler"); - f__scale=f__recpos=0; - f__elist=a; - if(f__curunit->ufd==NULL && fk_open(SEQ,FMT,a->ciunit)) - err(a->cierr,102,"lio"); - f__cf=f__curunit->ufd; - if(!f__curunit->ufmt) err(a->cierr,103,"lio"); - return(0); -} -#ifdef KR_headers -l_read(number,ptr,len,type) ftnint *number,type; char *ptr; ftnlen len; -#else -l_read(ftnint *number, char *ptr, ftnlen len, ftnint type) -#endif -{ -#define Ptr ((flex *)ptr) - int i,n,ch; - doublereal *yy; - real *xx; - for(i=0;i<*number;i++) - { - if(f__lquit) return(0); - if(l_eof) - err(f__elist->ciend, EOF, "list in"); - if(f__lcount == 0) { - f__ltype = 0; - for(;;) { - GETC(ch); - switch(ch) { - case EOF: - err(f__elist->ciend,(EOF),"list in"); - case ' ': - case '\t': - case '\n': - continue; - case '/': - f__lquit = 1; - goto loopend; - case ',': - f__lcount = 1; - goto loopend; - default: - (void) Ungetc(ch, f__cf); - goto rddata; - } - } - } - rddata: - switch((int)type) - { - case TYINT1: - case TYSHORT: - case TYLONG: -#ifndef ALLOW_FLOAT_IN_INTEGER_LIST_INPUT - ERR(l_R(0,1)); - break; -#endif - case TYREAL: - case TYDREAL: - ERR(l_R(0,0)); - break; -#ifdef TYQUAD - case TYQUAD: - n = l_R(0,2); - if (n) - return n; - break; -#endif - case TYCOMPLEX: - case TYDCOMPLEX: - ERR(l_C()); - break; - case TYLOGICAL1: - case TYLOGICAL2: - case TYLOGICAL: - ERR(l_L()); - break; - case TYCHAR: - ERR(l_CHAR()); - break; - } - while (GETC(ch) == ' ' || ch == '\t'); - if (ch != ',' || f__lcount > 1) - Ungetc(ch,f__cf); - loopend: - if(f__lquit) return(0); - if(f__cf && ferror(f__cf)) { - clearerr(f__cf); - errfl(f__elist->cierr,errno,"list in"); - } - if(f__ltype==0) goto bump; - switch((int)type) - { - case TYINT1: - case TYLOGICAL1: - Ptr->flchar = (char)f__lx; - break; - case TYLOGICAL2: - case TYSHORT: - Ptr->flshort = (short)f__lx; - break; - case TYLOGICAL: - case TYLONG: - Ptr->flint = (ftnint)f__lx; - break; -#ifdef Allow_TYQUAD - case TYQUAD: - if (!(Ptr->fllongint = f__llx)) - Ptr->fllongint = f__lx; - break; -#endif - case TYREAL: - Ptr->flreal=f__lx; - break; - case TYDREAL: - Ptr->fldouble=f__lx; - break; - case TYCOMPLEX: - xx=(real *)ptr; - *xx++ = f__lx; - *xx = f__ly; - break; - case TYDCOMPLEX: - yy=(doublereal *)ptr; - *yy++ = f__lx; - *yy = f__ly; - break; - case TYCHAR: - b_char(f__lchar,ptr,len); - break; - } - bump: - if(f__lcount>0) f__lcount--; - ptr += len; - if (nml_read) - nml_read++; - } - return(0); -#undef Ptr -} -#ifdef KR_headers -integer s_rsle(a) cilist *a; -#else -integer s_rsle(cilist *a) -#endif -{ - int n; - - f__reading=1; - f__external=1; - f__formatted=1; - if(n=c_le(a)) return(n); - f__lioproc = l_read; - f__lquit = 0; - f__lcount = 0; - l_eof = 0; - if(f__curunit->uwrt && f__nowreading(f__curunit)) - err(a->cierr,errno,"read start"); - if(f__curunit->uend) - err(f__elist->ciend,(EOF),"read start"); - l_getc = t_getc; - l_ungetc = un_getc; - f__doend = xrd_SL; - return(0); -} diff --git a/gnu/egcs/libf2c/libI77/lwrite.c b/gnu/egcs/libf2c/libI77/lwrite.c deleted file mode 100644 index bf209f47ed2..00000000000 --- a/gnu/egcs/libf2c/libI77/lwrite.c +++ /dev/null @@ -1,302 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "fmt.h" -#include "lio.h" - -ftnint L_len; -int f__Aquote; - - static VOID -donewrec(Void) -{ - if (f__recpos) - (*f__donewrec)(); - } - - static VOID -#ifdef KR_headers -lwrt_I(n) longint n; -#else -lwrt_I(longint n) -#endif -{ - char *p; - int ndigit, sign; - - p = f__icvt(n, &ndigit, &sign, 10); - if(f__recpos + ndigit >= L_len) - donewrec(); - PUT(' '); - if (sign) - PUT('-'); - while(*p) - PUT(*p++); -} - static VOID -#ifdef KR_headers -lwrt_L(n, len) ftnint n; ftnlen len; -#else -lwrt_L(ftnint n, ftnlen len) -#endif -{ - if(f__recpos+LLOGW>=L_len) - donewrec(); - wrt_L((Uint *)&n,LLOGW, len); -} - static VOID -#ifdef KR_headers -lwrt_A(p,len) char *p; ftnlen len; -#else -lwrt_A(char *p, ftnlen len) -#endif -{ - int a; - char *p1, *pe; - - a = 0; - pe = p + len; - if (f__Aquote) { - a = 3; - if (len > 1 && p[len-1] == ' ') { - while(--len > 1 && p[len-1] == ' '); - pe = p + len; - } - p1 = p; - while(p1 < pe) - if (*p1++ == '\'') - a++; - } - if(f__recpos+len+a >= L_len) - donewrec(); - if (a -#ifndef OMIT_BLANK_CC - || !f__recpos -#endif - ) - PUT(' '); - if (a) { - PUT('\''); - while(p < pe) { - if (*p == '\'') - PUT('\''); - PUT(*p++); - } - PUT('\''); - } - else - while(p < pe) - PUT(*p++); -} - - static int -#ifdef KR_headers -l_g(buf, n) char *buf; double n; -#else -l_g(char *buf, double n) -#endif -{ -#ifdef Old_list_output - doublereal absn; - char *fmt; - - absn = n; - if (absn < 0) - absn = -absn; - fmt = LLOW <= absn && absn < LHIGH ? LFFMT : LEFMT; -#ifdef USE_STRLEN - sprintf(buf, fmt, n); - return strlen(buf); -#else - return sprintf(buf, fmt, n); -#endif - -#else - register char *b, c, c1; - - b = buf; - *b++ = ' '; - if (n < 0) { - *b++ = '-'; - n = -n; - } - else - *b++ = ' '; - if (n == 0) { - *b++ = '0'; - *b++ = '.'; - *b = 0; - goto f__ret; - } - sprintf(b, LGFMT, n); - switch(*b) { -#ifndef WANT_LEAD_0 - case '0': - while(b[0] = b[1]) - b++; - break; -#endif - case 'i': - case 'I': - /* Infinity */ - case 'n': - case 'N': - /* NaN */ - while(*++b); - break; - - default: - /* Fortran 77 insists on having a decimal point... */ - for(;; b++) - switch(*b) { - case 0: - *b++ = '.'; - *b = 0; - goto f__ret; - case '.': - while(*++b); - goto f__ret; - case 'E': - for(c1 = '.', c = 'E'; *b = c1; - c1 = c, c = *++b); - goto f__ret; - } - } - f__ret: - return b - buf; -#endif - } - - static VOID -#ifdef KR_headers -l_put(s) register char *s; -#else -l_put(register char *s) -#endif -{ -#ifdef KR_headers - register void (*pn)() = f__putn; -#else - register void (*pn)(int) = f__putn; -#endif - register int c; - - while(c = *s++) - (*pn)(c); - } - - static VOID -#ifdef KR_headers -lwrt_F(n) double n; -#else -lwrt_F(double n) -#endif -{ - char buf[LEFBL]; - - if(f__recpos + l_g(buf,n) >= L_len) - donewrec(); - l_put(buf); -} - static VOID -#ifdef KR_headers -lwrt_C(a,b) double a,b; -#else -lwrt_C(double a, double b) -#endif -{ - char *ba, *bb, bufa[LEFBL], bufb[LEFBL]; - int al, bl; - - al = l_g(bufa, a); - for(ba = bufa; *ba == ' '; ba++) - --al; - bl = l_g(bufb, b) + 1; /* intentionally high by 1 */ - for(bb = bufb; *bb == ' '; bb++) - --bl; - if(f__recpos + al + bl + 3 >= L_len) - donewrec(); -#ifdef OMIT_BLANK_CC - else -#endif - PUT(' '); - PUT('('); - l_put(ba); - PUT(','); - if (f__recpos + bl >= L_len) { - (*f__donewrec)(); -#ifndef OMIT_BLANK_CC - PUT(' '); -#endif - } - l_put(bb); - PUT(')'); -} -#ifdef KR_headers -l_write(number,ptr,len,type) ftnint *number,type; char *ptr; ftnlen len; -#else -l_write(ftnint *number, char *ptr, ftnlen len, ftnint type) -#endif -{ -#define Ptr ((flex *)ptr) - int i; - longint x; - double y,z; - real *xx; - doublereal *yy; - for(i=0;i< *number; i++) - { - switch((int)type) - { - default: f__fatal(204,"unknown type in lio"); - case TYINT1: - x = Ptr->flchar; - goto xint; - case TYSHORT: - x=Ptr->flshort; - goto xint; -#ifdef Allow_TYQUAD - case TYQUAD: - x = Ptr->fllongint; - goto xint; -#endif - case TYLONG: - x=Ptr->flint; - xint: lwrt_I(x); - break; - case TYREAL: - y=Ptr->flreal; - goto xfloat; - case TYDREAL: - y=Ptr->fldouble; - xfloat: lwrt_F(y); - break; - case TYCOMPLEX: - xx= &Ptr->flreal; - y = *xx++; - z = *xx; - goto xcomplex; - case TYDCOMPLEX: - yy = &Ptr->fldouble; - y= *yy++; - z = *yy; - xcomplex: - lwrt_C(y,z); - break; - case TYLOGICAL1: - x = Ptr->flchar; - goto xlog; - case TYLOGICAL2: - x = Ptr->flshort; - goto xlog; - case TYLOGICAL: - x = Ptr->flint; - xlog: lwrt_L(Ptr->flint, len); - break; - case TYCHAR: - lwrt_A(ptr,len); - break; - } - ptr += len; - } - return(0); -} diff --git a/gnu/egcs/libf2c/libI77/makefile.netlib b/gnu/egcs/libf2c/libI77/makefile.netlib deleted file mode 100644 index edba1fe8569..00000000000 --- a/gnu/egcs/libf2c/libI77/makefile.netlib +++ /dev/null @@ -1,104 +0,0 @@ -.SUFFIXES: .c .o -CC = cc -CFLAGS = -O -SHELL = /bin/sh - -# compile, then strip unnecessary symbols -.c.o: - $(CC) -c -DSkip_f2c_Undefs $(CFLAGS) $*.c - ld -r -x -o $*.xxx $*.o - mv $*.xxx $*.o -## Under Solaris (and other systems that do not understand ld -x), -## omit -x in the ld line above. -## If your system does not have the ld command, comment out -## or remove both the ld and mv lines above. - -OBJ = Version.o backspace.o close.o dfe.o dolio.o due.o endfile.o err.o \ - fmt.o fmtlib.o ftell_.o iio.o ilnw.o inquire.o lread.o lwrite.o \ - open.o rdfmt.o rewind.o rsfe.o rsli.o rsne.o sfe.o sue.o typesize.o \ - uio.o util.o wref.o wrtfmt.o wsfe.o wsle.o wsne.o xwsne.o -libI77.a: $(OBJ) - ar r libI77.a $? - -ranlib libI77.a - -### If your system lacks ranlib, you don't need it; see README. - -install: libI77.a - cp libI77.a /usr/lib/libI77.a - ranlib /usr/lib/libI77.a - -Version.o: Version.c - $(CC) -c Version.c - -# To compile with C++, first "make f2c.h" -f2c.h: f2ch.add - cat /usr/include/f2c.h f2ch.add >f2c.h - - -clean: - rm -f $(OBJ) libI77.a - -clobber: clean - rm -f libI77.a - -backspace.o: fio.h -close.o: fio.h -dfe.o: fio.h -dfe.o: fmt.h -due.o: fio.h -endfile.o: fio.h rawio.h -err.o: fio.h rawio.h -fmt.o: fio.h -fmt.o: fmt.h -ftell_.o: fio.h -iio.o: fio.h -iio.o: fmt.h -ilnw.o: fio.h -ilnw.o: lio.h -inquire.o: fio.h -lread.o: fio.h -lread.o: fmt.h -lread.o: lio.h -lread.o: fp.h -lwrite.o: fio.h -lwrite.o: fmt.h -lwrite.o: lio.h -open.o: fio.h rawio.h -rdfmt.o: fio.h -rdfmt.o: fmt.h -rdfmt.o: fp.h -rewind.o: fio.h -rsfe.o: fio.h -rsfe.o: fmt.h -rsli.o: fio.h -rsli.o: lio.h -rsne.o: fio.h -rsne.o: lio.h -sfe.o: fio.h -sue.o: fio.h -uio.o: fio.h -util.o: fio.h -wref.o: fio.h -wref.o: fmt.h -wref.o: fp.h -wrtfmt.o: fio.h -wrtfmt.o: fmt.h -wsfe.o: fio.h -wsfe.o: fmt.h -wsle.o: fio.h -wsle.o: fmt.h -wsle.o: lio.h -wsne.o: fio.h -wsne.o: lio.h -xwsne.o: fio.h -xwsne.o: lio.h -xwsne.o: fmt.h - -check: - xsum Notice README Version.c backspace.c close.c dfe.c dolio.c \ - due.c endfile.c err.c f2ch.add fio.h fmt.c fmt.h fmtlib.c fp.h \ - ftell_.c iio.c ilnw.c inquire.c lio.h lread.c lwrite.c makefile \ - open.c rawio.h rdfmt.c rewind.c rsfe.c rsli.c rsne.c sfe.c sue.c \ - typesize.c uio.c util.c wref.c wrtfmt.c wsfe.c wsle.c wsne.c \ - xwsne.c >zap - cmp zap libI77.xsum && rm zap || diff libI77.xsum zap diff --git a/gnu/egcs/libf2c/libI77/open.c b/gnu/egcs/libf2c/libI77/open.c deleted file mode 100644 index 8c72e173dad..00000000000 --- a/gnu/egcs/libf2c/libI77/open.c +++ /dev/null @@ -1,301 +0,0 @@ -/* Define _XOPEN_SOURCE to get tempnam prototype with glibc et al -- - more general than _INCLUDE_XOPEN_SOURCE used elsewhere `for HP-UX'. */ -#define _XOPEN_SOURCE 1 -#include "f2c.h" -#include "fio.h" -#include <string.h> -#include <stdio.h> -#ifndef NON_POSIX_STDIO -#ifdef MSDOS -#include "io.h" -#else -#include "unistd.h" /* for access */ -#endif -#endif - -#ifdef KR_headers -extern char *malloc(); -extern char *tempnam(); -#ifdef NON_ANSI_STDIO -extern char *mktemp(); -#endif -extern integer f_clos(); -#else -#undef abs -#undef min -#undef max -#include <stdlib.h> -extern int f__canseek(FILE*); -extern integer f_clos(cllist*); -#endif - -#ifdef NON_ANSI_RW_MODES -char *f__r_mode[2] = {"r", "r"}; -char *f__w_mode[4] = {"w", "w", "r+w", "r+w"}; -#else -char *f__r_mode[2] = {"rb", "r"}; -char *f__w_mode[4] = {"wb", "w", "r+b", "r+"}; -#endif - - static char f__buf0[400], *f__buf = f__buf0; - int f__buflen = (int)sizeof(f__buf0); - - static void -#ifdef KR_headers -f__bufadj(n, c) int n, c; -#else -f__bufadj(int n, int c) -#endif -{ - unsigned int len; - char *nbuf, *s, *t, *te; - - if (f__buf == f__buf0) - f__buflen = 1024; - while(f__buflen <= n) - f__buflen <<= 1; - len = (unsigned int)f__buflen; - if (len != f__buflen || !(nbuf = (char*)malloc(len))) - f__fatal(113, "malloc failure"); - s = nbuf; - t = f__buf; - te = t + c; - while(t < te) - *s++ = *t++; - if (f__buf != f__buf0) - free(f__buf); - f__buf = nbuf; - } - - int -#ifdef KR_headers -f__putbuf(c) int c; -#else -f__putbuf(int c) -#endif -{ - char *s, *se; - int n; - - if (f__hiwater > f__recpos) - f__recpos = f__hiwater; - n = f__recpos + 1; - if (n >= f__buflen) - f__bufadj(n, f__recpos); - s = f__buf; - se = s + f__recpos; - if (c) - *se++ = c; - *se = 0; - for(;;) { - fputs(s, f__cf); - s += strlen(s); - if (s >= se) - break; /* normally happens the first time */ - putc(*s++, f__cf); - } - return 0; - } - - void -#ifdef KR_headers -x_putc(c) -#else -x_putc(int c) -#endif -{ - if (f__recpos >= f__buflen) - f__bufadj(f__recpos, f__buflen); - f__buf[f__recpos++] = c; - } - -#define opnerr(f,m,s) \ - do {if(f) {f__init &= ~2; errno= m;} else opn_err(m,s,a); return(m);} while(0) - - static void -#ifdef KR_headers -opn_err(m, s, a) int m; char *s; olist *a; -#else -opn_err(int m, char *s, olist *a) -#endif -{ - if (a->ofnm) { - /* supply file name to error message */ - if (a->ofnmlen >= f__buflen) - f__bufadj((int)a->ofnmlen, 0); - g_char(a->ofnm, a->ofnmlen, f__curunit->ufnm = f__buf); - } - f__fatal(m, s); - } - -#ifdef KR_headers -integer f_open(a) olist *a; -#else -integer f_open(olist *a) -#endif -{ unit *b; - integer rv; - char buf[256], *s; - cllist x; - int ufmt; - FILE *tf; -#ifndef NON_UNIX_STDIO - int n; -#endif - if(f__init != 1) f_init(); - f__external = 1; - if(a->ounit>=MXUNIT || a->ounit<0) - err(a->oerr,101,"open"); - f__curunit = b = &f__units[a->ounit]; - if(b->ufd) { - if(a->ofnm==0) - { - same: if (a->oblnk) - b->ublnk = *a->oblnk == 'z' || *a->oblnk == 'Z'; - return(0); - } -#ifdef NON_UNIX_STDIO - if (b->ufnm - && strlen(b->ufnm) == a->ofnmlen - && !strncmp(b->ufnm, a->ofnm, (unsigned)a->ofnmlen)) - goto same; -#else - g_char(a->ofnm,a->ofnmlen,buf); - if (f__inode(buf,&n) == b->uinode && n == b->udev) - goto same; -#endif - x.cunit=a->ounit; - x.csta=0; - x.cerr=a->oerr; - if ((rv = f_clos(&x)) != 0) - return rv; - } - b->url = (int)a->orl; - b->ublnk = a->oblnk && (*a->oblnk == 'z' || *a->oblnk == 'Z'); - if(a->ofm==0) - { if(b->url>0) b->ufmt=0; - else b->ufmt=1; - } - else if(*a->ofm=='f' || *a->ofm == 'F') b->ufmt=1; - else b->ufmt=0; - ufmt = b->ufmt; -#ifdef url_Adjust - if (b->url && !ufmt) - url_Adjust(b->url); -#endif - if (a->ofnm) { - g_char(a->ofnm,a->ofnmlen,buf); - if (!buf[0]) - opnerr(a->oerr,107,"open"); - } - else - sprintf(buf, "fort.%ld", (long)a->ounit); - b->uscrtch = 0; - b->uend=0; - b->uwrt = 0; - b->ufd = 0; - b->urw = 3; - switch(a->osta ? *a->osta : 'u') - { - case 'o': - case 'O': -#ifdef NON_POSIX_STDIO - if (!(tf = fopen(buf,"r"))) - opnerr(a->oerr,errno,"open"); - fclose(tf); -#else - if (access(buf,0)) - opnerr(a->oerr,errno,"open"); -#endif - break; - case 's': - case 'S': - b->uscrtch=1; -#ifdef HAVE_TEMPNAM /* Allow use of TMPDIR preferentially. */ - s = (char *)tempnam (NULL, buf); - if (strlen (s) >= sizeof (buf)) - err (a->oerr, 132, "open"); - (void) strcpy (buf, s); - free (s); -#else /* ! defined (HAVE_TEMPNAM) */ -#ifdef _POSIX_SOURCE - tmpnam(buf); -#else - (void) strcpy(buf,"tmp.FXXXXXX"); - (void) mktemp(buf); -#endif -#endif /* ! defined (HAVE_TEMPNAM) */ - goto replace; - case 'n': - case 'N': -#ifdef NON_POSIX_STDIO - if ((tf = fopen(buf,"r")) || (tf = fopen(buf,"a"))) { - fclose(tf); - opnerr(a->oerr,128,"open"); - } -#else - if (!access(buf,0)) - opnerr(a->oerr,128,"open"); -#endif - /* no break */ - case 'r': /* Fortran 90 replace option */ - case 'R': - replace: - if (tf = fopen(buf,f__w_mode[0])) - fclose(tf); - } - - b->ufnm=(char *) malloc((unsigned int)(strlen(buf)+1)); - if(b->ufnm==NULL) opnerr(a->oerr,113,"no space"); - (void) strcpy(b->ufnm,buf); - if ((s = a->oacc) && b->url) - ufmt = 0; - if(!(tf = fopen(buf, f__w_mode[ufmt|2]))) { - if (tf = fopen(buf, f__r_mode[ufmt])) - b->urw = 1; - else if (tf = fopen(buf, f__w_mode[ufmt])) { - b->uwrt = 1; - b->urw = 2; - } - else - err(a->oerr, errno, "open"); - } - b->useek = f__canseek(b->ufd = tf); -#ifndef NON_UNIX_STDIO - if((b->uinode = f__inode(buf,&b->udev)) == -1) - opnerr(a->oerr,108,"open"); -#endif - if(b->useek) - if (a->orl) - rewind(b->ufd); - else if ((s = a->oacc) && (*s == 'a' || *s == 'A') - && fseek(b->ufd, 0L, SEEK_END)) - opnerr(a->oerr,129,"open"); - return(0); -} -#ifdef KR_headers -fk_open(seq,fmt,n) ftnint n; -#else -fk_open(int seq, int fmt, ftnint n) -#endif -{ char nbuf[10]; - olist a; - int rtn; - int save_init; - - (void) sprintf(nbuf,"fort.%ld",(long)n); - a.oerr=1; - a.ounit=n; - a.ofnm=nbuf; - a.ofnmlen=strlen(nbuf); - a.osta=NULL; - a.oacc= seq==SEQ?"s":"d"; - a.ofm = fmt==FMT?"f":"u"; - a.orl = seq==DIR?1:0; - a.oblnk=NULL; - save_init = f__init; - f__init &= ~2; - rtn = f_open(&a); - f__init = save_init | 1; - return rtn; -} diff --git a/gnu/egcs/libf2c/libI77/rawio.h b/gnu/egcs/libf2c/libI77/rawio.h deleted file mode 100644 index f3a59fdab4d..00000000000 --- a/gnu/egcs/libf2c/libI77/rawio.h +++ /dev/null @@ -1,45 +0,0 @@ -#ifndef KR_headers -#if defined (MSDOS) && !defined (GO32) -#include "io.h" -#ifndef WATCOM -#define close _close -#define creat _creat -#define open _open -#define read _read -#define write _write -#endif /*WATCOM*/ -#endif /*MSDOS*/ -#ifdef __cplusplus -extern "C" { -#endif -#if !(defined (MSDOS) && !defined (GO32)) -#ifdef OPEN_DECL -extern int creat(const char*,int), open(const char*,int); -#endif -extern int close(int); -#if !(defined(_WIN32) && !defined(__CYGWIN32__)) -extern int read(int,void*,size_t), write(int,void*,size_t); -#endif -extern int unlink(const char*); -#ifndef _POSIX_SOURCE -#ifndef NON_UNIX_STDIO -extern FILE *fdopen(int, const char*); -#endif -#endif -#endif /*KR_HEADERS*/ - -extern char *mktemp(char*); - -#ifdef __cplusplus - } -#endif -#endif - -#ifndef NO_FCNTL -#include <fcntl.h> -#endif - -#ifndef O_WRONLY -#define O_RDONLY 0 -#define O_WRONLY 1 -#endif diff --git a/gnu/egcs/libf2c/libI77/rdfmt.c b/gnu/egcs/libf2c/libI77/rdfmt.c deleted file mode 100644 index 08ff0e827b4..00000000000 --- a/gnu/egcs/libf2c/libI77/rdfmt.c +++ /dev/null @@ -1,541 +0,0 @@ -#include <ctype.h> -#include "f2c.h" -#include "fio.h" - -extern int f__cursor; -#ifdef KR_headers -extern double atof(); -#else -#undef abs -#undef min -#undef max -#include <stdlib.h> -#endif - -#include "fmt.h" -#include "fp.h" - - static int -#ifdef KR_headers -rd_Z(n,w,len) Uint *n; ftnlen len; -#else -rd_Z(Uint *n, int w, ftnlen len) -#endif -{ - long x[9]; - char *s, *s0, *s1, *se, *t; - int ch, i, w1, w2; - static char hex[256]; - static int one = 1; - int bad = 0; - - if (!hex['0']) { - s = "0123456789"; - while(ch = *s++) - hex[ch] = ch - '0' + 1; - s = "ABCDEF"; - while(ch = *s++) - hex[ch] = hex[ch + 'a' - 'A'] = ch - 'A' + 11; - } - s = s0 = (char *)x; - s1 = (char *)&x[4]; - se = (char *)&x[8]; - if (len > 4*sizeof(long)) - return errno = 117; - while (w) { - GET(ch); - if (ch==',' || ch=='\n') - break; - w--; - if (ch > ' ') { - if (!hex[ch & 0xff]) - bad++; - *s++ = ch; - if (s == se) { - /* discard excess characters */ - for(t = s0, s = s1; t < s1;) - *t++ = *s++; - s = s1; - } - } - } - if (bad) - return errno = 115; - w = (int)len; - w1 = s - s0; - w2 = w1+1 >> 1; - t = (char *)n; - if (*(char *)&one) { - /* little endian */ - t += w - 1; - i = -1; - } - else - i = 1; - for(; w > w2; t += i, --w) - *t = 0; - if (!w) - return 0; - if (w < w2) - s0 = s - (w << 1); - else if (w1 & 1) { - *t = hex[*s0++ & 0xff] - 1; - if (!--w) - return 0; - t += i; - } - do { - *t = hex[*s0 & 0xff]-1 << 4 | hex[s0[1] & 0xff]-1; - t += i; - s0 += 2; - } - while(--w); - return 0; - } - - static int -#ifdef KR_headers -rd_I(n,w,len, base) Uint *n; int w; ftnlen len; register int base; -#else -rd_I(Uint *n, int w, ftnlen len, register int base) -#endif -{ - int bad, ch, sign; - longint x = 0; - - if (w <= 0) - goto have_x; - for(;;) { - GET(ch); - if (ch != ' ') - break; - if (!--w) - goto have_x; - } - sign = 0; - switch(ch) { - case ',': - case '\n': - w = 0; - goto have_x; - case '-': - sign = 1; - case '+': - break; - default: - if (ch >= '0' && ch <= '9') { - x = ch - '0'; - break; - } - goto have_x; - } - while(--w) { - GET(ch); - if (ch >= '0' && ch <= '9') { - x = x*base + ch - '0'; - continue; - } - if (ch != ' ') { - if (ch == '\n' || ch == ',') - w = 0; - break; - } - if (f__cblank) - x *= base; - } - if (sign) - x = -x; - have_x: - if(len == sizeof(integer)) - n->il=x; - else if(len == sizeof(char)) - n->ic = (char)x; -#ifdef Allow_TYQUAD - else if (len == sizeof(longint)) - n->ili = x; -#endif - else - n->is = (short)x; - if (w) { - while(--w) - GET(ch); - return errno = 115; - } - return 0; -} - - static int -#ifdef KR_headers -rd_L(n,w,len) ftnint *n; ftnlen len; -#else -rd_L(ftnint *n, int w, ftnlen len) -#endif -{ int ch, dot, lv; - - if (w <= 0) - goto bad; - for(;;) { - GET(ch); - --w; - if (ch != ' ') - break; - if (!w) - goto bad; - } - dot = 0; - retry: - switch(ch) { - case '.': - if (dot++ || !w) - goto bad; - GET(ch); - --w; - goto retry; - case 't': - case 'T': - lv = 1; - break; - case 'f': - case 'F': - lv = 0; - break; - default: - bad: - for(; w > 0; --w) - GET(ch); - /* no break */ - case ',': - case '\n': - return errno = 116; - } - switch(len) { - case sizeof(char): *(char *)n = (char)lv; break; - case sizeof(short): *(short *)n = (short)lv; break; - default: *n = lv; - } - while(w-- > 0) { - GET(ch); - if (ch == ',' || ch == '\n') - break; - } - return 0; -} - - static int -#ifdef KR_headers -rd_F(p, w, d, len) ufloat *p; ftnlen len; -#else -rd_F(ufloat *p, int w, int d, ftnlen len) -#endif -{ - char s[FMAX+EXPMAXDIGS+4]; - register int ch; - register char *sp, *spe, *sp1; - double x; - int scale1, se; - long e, exp; - - sp1 = sp = s; - spe = sp + FMAX; - exp = -d; - x = 0.; - - do { - GET(ch); - w--; - } while (ch == ' ' && w); - switch(ch) { - case '-': *sp++ = ch; sp1++; spe++; - case '+': - if (!w) goto zero; - --w; - GET(ch); - } - while(ch == ' ') { -blankdrop: - if (!w--) goto zero; GET(ch); } - while(ch == '0') - { if (!w--) goto zero; GET(ch); } - if (ch == ' ' && f__cblank) - goto blankdrop; - scale1 = f__scale; - while(isdigit(ch)) { -digloop1: - if (sp < spe) *sp++ = ch; - else ++exp; -digloop1e: - if (!w--) goto done; - GET(ch); - } - if (ch == ' ') { - if (f__cblank) - { ch = '0'; goto digloop1; } - goto digloop1e; - } - if (ch == '.') { - exp += d; - if (!w--) goto done; - GET(ch); - if (sp == sp1) { /* no digits yet */ - while(ch == '0') { -skip01: - --exp; -skip0: - if (!w--) goto done; - GET(ch); - } - if (ch == ' ') { - if (f__cblank) goto skip01; - goto skip0; - } - } - while(isdigit(ch)) { -digloop2: - if (sp < spe) - { *sp++ = ch; --exp; } -digloop2e: - if (!w--) goto done; - GET(ch); - } - if (ch == ' ') { - if (f__cblank) - { ch = '0'; goto digloop2; } - goto digloop2e; - } - } - switch(ch) { - default: - break; - case '-': se = 1; goto signonly; - case '+': se = 0; goto signonly; - case 'e': - case 'E': - case 'd': - case 'D': - if (!w--) - goto bad; - GET(ch); - while(ch == ' ') { - if (!w--) - goto bad; - GET(ch); - } - se = 0; - switch(ch) { - case '-': se = 1; - case '+': -signonly: - if (!w--) - goto bad; - GET(ch); - } - while(ch == ' ') { - if (!w--) - goto bad; - GET(ch); - } - if (!isdigit(ch)) - goto bad; - - e = ch - '0'; - for(;;) { - if (!w--) - { ch = '\n'; break; } - GET(ch); - if (!isdigit(ch)) { - if (ch == ' ') { - if (f__cblank) - ch = '0'; - else continue; - } - else - break; - } - e = 10*e + ch - '0'; - if (e > EXPMAX && sp > sp1) - goto bad; - } - if (se) - exp -= e; - else - exp += e; - scale1 = 0; - } - switch(ch) { - case '\n': - case ',': - break; - default: -bad: - return (errno = 115); - } -done: - if (sp > sp1) { - while(*--sp == '0') - ++exp; - if (exp -= scale1) - sprintf(sp+1, "e%ld", exp); - else - sp[1] = 0; - x = atof(s); - } -zero: - if (len == sizeof(real)) - p->pf = x; - else - p->pd = x; - return(0); - } - - - static int -#ifdef KR_headers -rd_A(p,len) char *p; ftnlen len; -#else -rd_A(char *p, ftnlen len) -#endif -{ int i,ch; - for(i=0;i<len;i++) - { GET(ch); - *p++=VAL(ch); - } - return(0); -} - static int -#ifdef KR_headers -rd_AW(p,w,len) char *p; ftnlen len; -#else -rd_AW(char *p, int w, ftnlen len) -#endif -{ int i,ch; - if(w>=len) - { for(i=0;i<w-len;i++) - GET(ch); - for(i=0;i<len;i++) - { GET(ch); - *p++=VAL(ch); - } - return(0); - } - for(i=0;i<w;i++) - { GET(ch); - *p++=VAL(ch); - } - for(i=0;i<len-w;i++) *p++=' '; - return(0); -} - static int -#ifdef KR_headers -rd_H(n,s) char *s; -#else -rd_H(int n, char *s) -#endif -{ int i,ch; - for(i=0;i<n;i++) - if((ch=(*f__getn)())<0) return(ch); - else *s++ = ch=='\n'?' ':ch; - return(1); -} - static int -#ifdef KR_headers -rd_POS(s) char *s; -#else -rd_POS(char *s) -#endif -{ char quote; - int ch; - quote= *s++; - for(;*s;s++) - if(*s==quote && *(s+1)!=quote) break; - else if((ch=(*f__getn)())<0) return(ch); - else *s = ch=='\n'?' ':ch; - return(1); -} -#ifdef KR_headers -rd_ed(p,ptr,len) struct syl *p; char *ptr; ftnlen len; -#else -rd_ed(struct syl *p, char *ptr, ftnlen len) -#endif -{ int ch; - for(;f__cursor>0;f__cursor--) if((ch=(*f__getn)())<0) return(ch); - if(f__cursor<0) - { if(f__recpos+f__cursor < 0) /*err(elist->cierr,110,"fmt")*/ - f__cursor = -f__recpos; /* is this in the standard? */ - if(f__external == 0) { - extern char *f__icptr; - f__icptr += f__cursor; - } - else if(f__curunit && f__curunit->useek) - (void) fseek(f__cf,(long) f__cursor,SEEK_CUR); - else - err(f__elist->cierr,106,"fmt"); - f__recpos += f__cursor; - f__cursor=0; - } - switch(p->op) - { - default: fprintf(stderr,"rd_ed, unexpected code: %d\n", p->op); - sig_die(f__fmtbuf, 1); - case IM: - case I: ch = rd_I((Uint *)ptr,p->p1,len, 10); - break; - - /* O and OM don't work right for character, double, complex, */ - /* or doublecomplex, and they differ from Fortran 90 in */ - /* showing a minus sign for negative values. */ - - case OM: - case O: ch = rd_I((Uint *)ptr, p->p1, len, 8); - break; - case L: ch = rd_L((ftnint *)ptr,p->p1,len); - break; - case A: ch = rd_A(ptr,len); - break; - case AW: - ch = rd_AW(ptr,p->p1,len); - break; - case E: case EE: - case D: - case G: - case GE: - case F: ch = rd_F((ufloat *)ptr,p->p1,p->p2.i[0],len); - break; - - /* Z and ZM assume 8-bit bytes. */ - - case ZM: - case Z: - ch = rd_Z((Uint *)ptr, p->p1, len); - break; - } - if(ch == 0) return(ch); - else if(ch == EOF) return(EOF); - if (f__cf) - clearerr(f__cf); - return(errno); -} -#ifdef KR_headers -rd_ned(p) struct syl *p; -#else -rd_ned(struct syl *p) -#endif -{ - switch(p->op) - { - default: fprintf(stderr,"rd_ned, unexpected code: %d\n", p->op); - sig_die(f__fmtbuf, 1); - case APOS: - return(rd_POS(p->p2.s)); - case H: return(rd_H(p->p1,p->p2.s)); - case SLASH: return((*f__donewrec)()); - case TR: - case X: f__cursor += p->p1; - return(1); - case T: f__cursor=p->p1-f__recpos - 1; - return(1); - case TL: f__cursor -= p->p1; - if(f__cursor < -f__recpos) /* TL1000, 1X */ - f__cursor = -f__recpos; - return(1); - } -} diff --git a/gnu/egcs/libf2c/libI77/rewind.c b/gnu/egcs/libf2c/libI77/rewind.c deleted file mode 100644 index 9ba4b239f32..00000000000 --- a/gnu/egcs/libf2c/libI77/rewind.c +++ /dev/null @@ -1,26 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#ifdef KR_headers -integer f_rew(a) alist *a; -#else -integer f_rew(alist *a) -#endif -{ - unit *b; - if (f__init & 2) - f__fatal (131, "I/O recursion"); - if(a->aunit>=MXUNIT || a->aunit<0) - err(a->aerr,101,"rewind"); - b = &f__units[a->aunit]; - if(b->ufd == NULL || b->uwrt == 3) - return(0); - if(!b->useek) - err(a->aerr,106,"rewind"); - if(b->uwrt) { - (void) t_runc(a); - b->uwrt = 3; - } - rewind(b->ufd); - b->uend=0; - return(0); -} diff --git a/gnu/egcs/libf2c/libI77/rsfe.c b/gnu/egcs/libf2c/libI77/rsfe.c deleted file mode 100644 index a79cd79f03c..00000000000 --- a/gnu/egcs/libf2c/libI77/rsfe.c +++ /dev/null @@ -1,80 +0,0 @@ -/* read sequential formatted external */ -#include "f2c.h" -#include "fio.h" -#include "fmt.h" - -xrd_SL(Void) -{ int ch; - if(!f__curunit->uend) - while((ch=getc(f__cf))!='\n') - if (ch == EOF) { - f__curunit->uend = 1; - break; - } - f__cursor=f__recpos=0; - return(1); -} -x_getc(Void) -{ int ch; - if(f__curunit->uend) return(EOF); - ch = getc(f__cf); - if(ch!=EOF && ch!='\n') - { f__recpos++; - return(ch); - } - if(ch=='\n') - { (void) ungetc(ch,f__cf); - return(ch); - } - if(f__curunit->uend || feof(f__cf)) - { errno=0; - f__curunit->uend=1; - return(-1); - } - return(-1); -} -x_endp(Void) -{ - xrd_SL(); - return f__curunit->uend == 1 ? EOF : 0; -} -x_rev(Void) -{ - (void) xrd_SL(); - return(0); -} -#ifdef KR_headers -integer s_rsfe(a) cilist *a; /* start */ -#else -integer s_rsfe(cilist *a) /* start */ -#endif -{ int n; - if(f__init != 1) f_init(); - f__init = 3; - f__reading=1; - f__sequential=1; - f__formatted=1; - f__external=1; - if(n=c_sfe(a)) return(n); - f__elist=a; - f__cursor=f__recpos=0; - f__scale=0; - f__fmtbuf=a->cifmt; - f__curunit= &f__units[a->ciunit]; - f__cf=f__curunit->ufd; - if(pars_f(f__fmtbuf)<0) err(a->cierr,100,"startio"); - f__getn= x_getc; - f__doed= rd_ed; - f__doned= rd_ned; - fmt_bg(); - f__doend=x_endp; - f__donewrec=xrd_SL; - f__dorevert=x_rev; - f__cblank=f__curunit->ublnk; - f__cplus=0; - if(f__curunit->uwrt && f__nowreading(f__curunit)) - err(a->cierr,errno,"read start"); - if(f__curunit->uend) - err(f__elist->ciend,(EOF),"read start"); - return(0); -} diff --git a/gnu/egcs/libf2c/libI77/rsli.c b/gnu/egcs/libf2c/libI77/rsli.c deleted file mode 100644 index baf2ba54873..00000000000 --- a/gnu/egcs/libf2c/libI77/rsli.c +++ /dev/null @@ -1,105 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "lio.h" -#include "fmt.h" /* for f__doend */ - -extern flag f__lquit; -extern int f__lcount; -extern char *f__icptr; -extern char *f__icend; -extern icilist *f__svic; -extern int f__icnum, f__recpos; - -static int i_getc(Void) -{ - if(f__recpos >= f__svic->icirlen) { - if (f__recpos++ == f__svic->icirlen) - return '\n'; - z_rnew(); - } - f__recpos++; - if(f__icptr >= f__icend) - return EOF; - return(*f__icptr++); - } - - static -#ifdef KR_headers -int i_ungetc(ch, f) int ch; FILE *f; -#else -int i_ungetc(int ch, FILE *f) -#endif -{ - if (--f__recpos == f__svic->icirlen) - return '\n'; - if (f__recpos < -1) - err(f__svic->icierr,110,"recend"); - /* *--icptr == ch, and icptr may point to read-only memory */ - return *--f__icptr /* = ch */; - } - - static void -#ifdef KR_headers -c_lir(a) icilist *a; -#else -c_lir(icilist *a) -#endif -{ - extern int l_eof; - if(f__init != 1) f_init(); - f__init = 3; - f__reading = 1; - f__external = 0; - f__formatted = 1; - f__svic = a; - L_len = a->icirlen; - f__recpos = -1; - f__icnum = f__recpos = 0; - f__cursor = 0; - l_getc = i_getc; - l_ungetc = i_ungetc; - l_eof = 0; - f__icptr = a->iciunit; - f__icend = f__icptr + a->icirlen*a->icirnum; - f__cf = 0; - f__curunit = 0; - f__elist = (cilist *)a; - } - - -#ifdef KR_headers -integer s_rsli(a) icilist *a; -#else -integer s_rsli(icilist *a) -#endif -{ - f__lioproc = l_read; - f__lquit = 0; - f__lcount = 0; - c_lir(a); - f__doend = 0; - return(0); - } - -integer e_rsli(Void) -{ f__init = 1; return 0; } - -#ifdef KR_headers -integer s_rsni(a) icilist *a; -#else -extern int x_rsne(cilist*); - -integer s_rsni(icilist *a) -#endif -{ - extern int nml_read; - integer rv; - cilist ca; - ca.ciend = a->iciend; - ca.cierr = a->icierr; - ca.cifmt = a->icifmt; - c_lir(a); - rv = x_rsne(&ca); - nml_read = 0; - return rv; - } diff --git a/gnu/egcs/libf2c/libI77/rsne.c b/gnu/egcs/libf2c/libI77/rsne.c deleted file mode 100644 index 86bb2164f12..00000000000 --- a/gnu/egcs/libf2c/libI77/rsne.c +++ /dev/null @@ -1,607 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "lio.h" - -#define MAX_NL_CACHE 3 /* maximum number of namelist hash tables to cache */ -#define MAXDIM 20 /* maximum number of subscripts */ - - struct dimen { - ftnlen extent; - ftnlen curval; - ftnlen delta; - ftnlen stride; - }; - typedef struct dimen dimen; - - struct hashentry { - struct hashentry *next; - char *name; - Vardesc *vd; - }; - typedef struct hashentry hashentry; - - struct hashtab { - struct hashtab *next; - Namelist *nl; - int htsize; - hashentry *tab[1]; - }; - typedef struct hashtab hashtab; - - static hashtab *nl_cache; - static int n_nlcache; - static hashentry **zot; - static int colonseen; - extern ftnlen f__typesize[]; - - extern flag f__lquit; - extern int f__lcount, nml_read; - extern t_getc(Void); - -#ifdef KR_headers - extern char *malloc(), *memset(); - -#ifdef ungetc - static int -un_getc(x,f__cf) int x; FILE *f__cf; -{ return ungetc(x,f__cf); } -#else -#define un_getc ungetc - extern int ungetc(); -#endif - -#else -#undef abs -#undef min -#undef max -#include <stdlib.h> -#include <string.h> - -#ifdef ungetc - static int -un_getc(int x, FILE *f__cf) -{ return ungetc(x,f__cf); } -#else -#define un_getc ungetc -extern int ungetc(int, FILE*); /* for systems with a buggy stdio.h */ -#endif -#endif - - static Vardesc * -#ifdef KR_headers -hash(ht, s) hashtab *ht; register char *s; -#else -hash(hashtab *ht, register char *s) -#endif -{ - register int c, x; - register hashentry *h; - char *s0 = s; - - for(x = 0; c = *s++; x = x & 0x4000 ? ((x << 1) & 0x7fff) + 1 : x << 1) - x += c; - for(h = *(zot = ht->tab + x % ht->htsize); h; h = h->next) - if (!strcmp(s0, h->name)) - return h->vd; - return 0; - } - - hashtab * -#ifdef KR_headers -mk_hashtab(nl) Namelist *nl; -#else -mk_hashtab(Namelist *nl) -#endif -{ - int nht, nv; - hashtab *ht; - Vardesc *v, **vd, **vde; - hashentry *he; - - hashtab **x, **x0, *y; - for(x = &nl_cache; y = *x; x0 = x, x = &y->next) - if (nl == y->nl) - return y; - if (n_nlcache >= MAX_NL_CACHE) { - /* discard least recently used namelist hash table */ - y = *x0; - free((char *)y->next); - y->next = 0; - } - else - n_nlcache++; - nv = nl->nvars; - if (nv >= 0x4000) - nht = 0x7fff; - else { - for(nht = 1; nht < nv; nht <<= 1); - nht += nht - 1; - } - ht = (hashtab *)malloc(sizeof(hashtab) + (nht-1)*sizeof(hashentry *) - + nv*sizeof(hashentry)); - if (!ht) - return 0; - he = (hashentry *)&ht->tab[nht]; - ht->nl = nl; - ht->htsize = nht; - ht->next = nl_cache; - nl_cache = ht; - memset((char *)ht->tab, 0, nht*sizeof(hashentry *)); - vd = nl->vars; - vde = vd + nv; - while(vd < vde) { - v = *vd++; - if (!hash(ht, v->name)) { - he->next = *zot; - *zot = he; - he->name = v->name; - he->vd = v; - he++; - } - } - return ht; - } - -static char Alpha[256], Alphanum[256]; - - static VOID -nl_init(Void) { - register char *s; - register int c; - - for(s = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; c = *s++; ) - Alpha[c] - = Alphanum[c] - = Alpha[c + 'a' - 'A'] - = Alphanum[c + 'a' - 'A'] - = c; - for(s = "0123456789_"; c = *s++; ) - Alphanum[c] = c; - } - -#define GETC(x) (x=(*l_getc)()) -#define Ungetc(x,y) (*l_ungetc)(x,y) - - static int -#ifdef KR_headers -getname(s, slen) register char *s; int slen; -#else -getname(register char *s, int slen) -#endif -{ - register char *se = s + slen - 1; - register int ch; - - GETC(ch); - if (!(*s++ = Alpha[ch & 0xff])) { - if (ch != EOF) - ch = 115; - errfl(f__elist->cierr, ch, "namelist read"); - } - while(*s = Alphanum[GETC(ch) & 0xff]) - if (s < se) - s++; - if (ch == EOF) - err(f__elist->cierr, EOF, "namelist read"); - if (ch > ' ') - Ungetc(ch,f__cf); - return *s = 0; - } - - static int -#ifdef KR_headers -getnum(chp, val) int *chp; ftnlen *val; -#else -getnum(int *chp, ftnlen *val) -#endif -{ - register int ch, sign; - register ftnlen x; - - while(GETC(ch) <= ' ' && ch >= 0); - if (ch == '-') { - sign = 1; - GETC(ch); - } - else { - sign = 0; - if (ch == '+') - GETC(ch); - } - x = ch - '0'; - if (x < 0 || x > 9) - return 115; - while(GETC(ch) >= '0' && ch <= '9') - x = 10*x + ch - '0'; - while(ch <= ' ' && ch >= 0) - GETC(ch); - if (ch == EOF) - return EOF; - *val = sign ? -x : x; - *chp = ch; - return 0; - } - - static int -#ifdef KR_headers -getdimen(chp, d, delta, extent, x1) - int *chp; dimen *d; ftnlen delta, extent, *x1; -#else -getdimen(int *chp, dimen *d, ftnlen delta, ftnlen extent, ftnlen *x1) -#endif -{ - register int k; - ftnlen x2, x3; - - if (k = getnum(chp, x1)) - return k; - x3 = 1; - if (*chp == ':') { - if (k = getnum(chp, &x2)) - return k; - x2 -= *x1; - if (*chp == ':') { - if (k = getnum(chp, &x3)) - return k; - if (!x3) - return 123; - x2 /= x3; - colonseen = 1; - } - if (x2 < 0 || x2 >= extent) - return 123; - d->extent = x2 + 1; - } - else - d->extent = 1; - d->curval = 0; - d->delta = delta; - d->stride = x3; - return 0; - } - -#ifndef No_Namelist_Questions - static Void -#ifdef KR_headers -print_ne(a) cilist *a; -#else -print_ne(cilist *a) -#endif -{ - flag intext = f__external; - int rpsave = f__recpos; - FILE *cfsave = f__cf; - unit *usave = f__curunit; - cilist t; - t = *a; - t.ciunit = 6; - s_wsne(&t); - fflush(f__cf); - f__external = intext; - f__reading = 1; - f__recpos = rpsave; - f__cf = cfsave; - f__curunit = usave; - f__elist = a; - } -#endif - - static char where0[] = "namelist read start "; - -#ifdef KR_headers -x_rsne(a) cilist *a; -#else -x_rsne(cilist *a) -#endif -{ - int ch, got1, k, n, nd, quote, readall; - Namelist *nl; - static char where[] = "namelist read"; - char buf[64]; - hashtab *ht; - Vardesc *v; - dimen *dn, *dn0, *dn1; - ftnlen *dims, *dims1; - ftnlen b, b0, b1, ex, no, no1, nomax, size, span; - ftnint type; - char *vaddr; - long iva, ivae; - dimen dimens[MAXDIM], substr; - - if (!Alpha['a']) - nl_init(); - f__reading=1; - f__formatted=1; - got1 = 0; - top: - for(;;) switch(GETC(ch)) { - case EOF: - eof: - err(a->ciend,(EOF),where0); - case '&': - case '$': - goto have_amp; -#ifndef No_Namelist_Questions - case '?': - print_ne(a); - continue; -#endif - default: - if (ch <= ' ' && ch >= 0) - continue; -#ifndef No_Namelist_Comments - while(GETC(ch) != '\n') - if (ch == EOF) - goto eof; -#else - errfl(a->cierr, 115, where0); -#endif - } - have_amp: - if (ch = getname(buf,(int) sizeof(buf))) - return ch; - nl = (Namelist *)a->cifmt; - if (strcmp(buf, nl->name)) -#ifdef No_Bad_Namelist_Skip - errfl(a->cierr, 118, where0); -#else - { - fprintf(stderr, - "Skipping namelist \"%s\": seeking namelist \"%s\".\n", - buf, nl->name); - fflush(stderr); - for(;;) switch(GETC(ch)) { - case EOF: - err(a->ciend, EOF, where0); - case '/': - case '&': - case '$': - if (f__external) - e_rsle(); - else - z_rnew(); - goto top; - case '"': - case '\'': - quote = ch; - more_quoted: - while(GETC(ch) != quote) - if (ch == EOF) - err(a->ciend, EOF, where0); - if (GETC(ch) == quote) - goto more_quoted; - Ungetc(ch,f__cf); - default: - continue; - } - } -#endif - ht = mk_hashtab(nl); - if (!ht) - errfl(f__elist->cierr, 113, where0); - for(;;) { - for(;;) switch(GETC(ch)) { - case EOF: - if (got1) - return 0; - err(a->ciend, EOF, where0); - case '/': - case '$': - case '&': - return 0; - default: - if (ch <= ' ' && ch >= 0 || ch == ',') - continue; - Ungetc(ch,f__cf); - if (ch = getname(buf,(int) sizeof(buf))) - return ch; - goto havename; - } - havename: - v = hash(ht,buf); - if (!v) - errfl(a->cierr, 119, where); - while(GETC(ch) <= ' ' && ch >= 0); - vaddr = v->addr; - type = v->type; - if (type < 0) { - size = -type; - type = TYCHAR; - } - else - size = f__typesize[type]; - ivae = size; - iva = readall = 0; - if (ch == '(' /*)*/ ) { - dn = dimens; - if (!(dims = v->dims)) { - if (type != TYCHAR) - errfl(a->cierr, 122, where); - if (k = getdimen(&ch, dn, (ftnlen)size, - (ftnlen)size, &b)) - errfl(a->cierr, k, where); - if (ch != ')') - errfl(a->cierr, 115, where); - b1 = dn->extent; - if (--b < 0 || b + b1 > size) - return 124; - iva += b; - size = b1; - while(GETC(ch) <= ' ' && ch >= 0); - goto scalar; - } - nd = (int)dims[0]; - nomax = span = dims[1]; - ivae = iva + size*nomax; - colonseen = 0; - if (k = getdimen(&ch, dn, size, nomax, &b)) - errfl(a->cierr, k, where); - no = dn->extent; - b0 = dims[2]; - dims1 = dims += 3; - ex = 1; - for(n = 1; n++ < nd; dims++) { - if (ch != ',') - errfl(a->cierr, 115, where); - dn1 = dn + 1; - span /= *dims; - if (k = getdimen(&ch, dn1, dn->delta**dims, - span, &b1)) - errfl(a->cierr, k, where); - ex *= *dims; - b += b1*ex; - no *= dn1->extent; - dn = dn1; - } - if (ch != ')') - errfl(a->cierr, 115, where); - readall = 1 - colonseen; - b -= b0; - if (b < 0 || b >= nomax) - errfl(a->cierr, 125, where); - iva += size * b; - dims = dims1; - while(GETC(ch) <= ' ' && ch >= 0); - no1 = 1; - dn0 = dimens; - if (type == TYCHAR && ch == '(' /*)*/) { - if (k = getdimen(&ch, &substr, size, size, &b)) - errfl(a->cierr, k, where); - if (ch != ')') - errfl(a->cierr, 115, where); - b1 = substr.extent; - if (--b < 0 || b + b1 > size) - return 124; - iva += b; - b0 = size; - size = b1; - while(GETC(ch) <= ' ' && ch >= 0); - if (b1 < b0) - goto delta_adj; - } - if (readall) - goto delta_adj; - for(; dn0 < dn; dn0++) { - if (dn0->extent != *dims++ || dn0->stride != 1) - break; - no1 *= dn0->extent; - } - if (dn0 == dimens && dimens[0].stride == 1) { - no1 = dimens[0].extent; - dn0++; - } - delta_adj: - ex = 0; - for(dn1 = dn0; dn1 <= dn; dn1++) - ex += (dn1->extent-1) - * (dn1->delta *= dn1->stride); - for(dn1 = dn; dn1 > dn0; dn1--) { - ex -= (dn1->extent - 1) * dn1->delta; - dn1->delta -= ex; - } - } - else if (dims = v->dims) { - no = no1 = dims[1]; - ivae = iva + no*size; - } - else - scalar: - no = no1 = 1; - if (ch != '=') - errfl(a->cierr, 115, where); - got1 = nml_read = 1; - f__lcount = 0; - readloop: - for(;;) { - if (iva >= ivae || iva < 0) { - f__lquit = 1; - goto mustend; - } - else if (iva + no1*size > ivae) - no1 = (ivae - iva)/size; - f__lquit = 0; - if (k = l_read(&no1, vaddr + iva, size, type)) - return k; - if (f__lquit == 1) - return 0; - if (readall) { - iva += dn0->delta; - if (f__lcount > 0) { - no1 = (ivae - iva)/size; - if (no1 > f__lcount) - no1 = f__lcount; - iva += no1 * dn0->delta; - if (k = l_read(&no1, vaddr + iva, - size, type)) - return k; - } - } - mustend: - GETC(ch); - if (readall) - if (iva >= ivae) - readall = 0; - else for(;;) { - switch(ch) { - case ' ': - case '\t': - case '\n': - GETC(ch); - continue; - } - break; - } - if (ch == '/' || ch == '$' || ch == '&') { - f__lquit = 1; - return 0; - } - else if (f__lquit) { - while(ch <= ' ' && ch >= 0) - GETC(ch); - Ungetc(ch,f__cf); - if (!Alpha[ch & 0xff] && ch >= 0) - errfl(a->cierr, 125, where); - break; - } - Ungetc(ch,f__cf); - if (readall && !Alpha[ch & 0xff]) - goto readloop; - if ((no -= no1) <= 0) - break; - for(dn1 = dn0; dn1 <= dn; dn1++) { - if (++dn1->curval < dn1->extent) { - iva += dn1->delta; - goto readloop; - } - dn1->curval = 0; - } - break; - } - } - } - - integer -#ifdef KR_headers -s_rsne(a) cilist *a; -#else -s_rsne(cilist *a) -#endif -{ - extern int l_eof; - int n; - - f__external=1; - l_eof = 0; - if(n = c_le(a)) - return n; - if(f__curunit->uwrt && f__nowreading(f__curunit)) - err(a->cierr,errno,where0); - l_getc = t_getc; - l_ungetc = un_getc; - f__doend = xrd_SL; - n = x_rsne(a); - nml_read = 0; - if (n) - return n; - return e_rsle(); - } diff --git a/gnu/egcs/libf2c/libI77/sfe.c b/gnu/egcs/libf2c/libI77/sfe.c deleted file mode 100644 index f7c3b83b734..00000000000 --- a/gnu/egcs/libf2c/libI77/sfe.c +++ /dev/null @@ -1,34 +0,0 @@ -/* sequential formatted external common routines*/ -#include "f2c.h" -#include "fio.h" - -extern char *f__fmtbuf; - -integer e_rsfe(Void) -{ int n; - f__init = 1; - n=en_fio(); - f__fmtbuf=NULL; - return(n); -} -#ifdef KR_headers -c_sfe(a) cilist *a; /* check */ -#else -c_sfe(cilist *a) /* check */ -#endif -{ unit *p; - if(a->ciunit >= MXUNIT || a->ciunit<0) - err(a->cierr,101,"startio"); - p = &f__units[a->ciunit]; - if(p->ufd==NULL && fk_open(SEQ,FMT,a->ciunit)) err(a->cierr,114,"sfe"); - if(!p->ufmt) err(a->cierr,102,"sfe"); - return(0); -} -integer e_wsfe(Void) -{ - int n; - f__init = 1; - n = en_fio(); - f__fmtbuf=NULL; - return n; -} diff --git a/gnu/egcs/libf2c/libI77/sue.c b/gnu/egcs/libf2c/libI77/sue.c deleted file mode 100644 index eacb1d69b01..00000000000 --- a/gnu/egcs/libf2c/libI77/sue.c +++ /dev/null @@ -1,87 +0,0 @@ -#include "f2c.h" -#include "fio.h" -extern uiolen f__reclen; -long f__recloc; - -#ifdef KR_headers -c_sue(a) cilist *a; -#else -c_sue(cilist *a) -#endif -{ - f__external=f__sequential=1; - f__formatted=0; - f__curunit = &f__units[a->ciunit]; - if(a->ciunit >= MXUNIT || a->ciunit < 0) - err(a->cierr,101,"startio"); - f__elist=a; - if(f__curunit->ufd==NULL && fk_open(SEQ,UNF,a->ciunit)) - err(a->cierr,114,"sue"); - f__cf=f__curunit->ufd; - if(f__curunit->ufmt) err(a->cierr,103,"sue"); - if(!f__curunit->useek) err(a->cierr,103,"sue"); - return(0); -} -#ifdef KR_headers -integer s_rsue(a) cilist *a; -#else -integer s_rsue(cilist *a) -#endif -{ - int n; - if(f__init != 1) f_init(); - f__init = 3; - f__reading=1; - if(n=c_sue(a)) return(n); - f__recpos=0; - if(f__curunit->uwrt && f__nowreading(f__curunit)) - err(a->cierr, errno, "read start"); - if(fread((char *)&f__reclen,sizeof(uiolen),1,f__cf) - != 1) - { if(feof(f__cf)) - { f__curunit->uend = 1; - err(a->ciend, EOF, "start"); - } - clearerr(f__cf); - err(a->cierr, errno, "start"); - } - return(0); -} -#ifdef KR_headers -integer s_wsue(a) cilist *a; -#else -integer s_wsue(cilist *a) -#endif -{ - int n; - if(f__init != 1) f_init(); - f__init = 3; - if(n=c_sue(a)) return(n); - f__reading=0; - f__reclen=0; - if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit)) - err(a->cierr, errno, "write start"); - f__recloc=ftell(f__cf); - (void) fseek(f__cf,(long)sizeof(uiolen),SEEK_CUR); - return(0); -} -integer e_wsue(Void) -{ long loc; - f__init = 1; - fwrite((char *)&f__reclen,sizeof(uiolen),1,f__cf); -#ifdef ALWAYS_FLUSH - if (fflush(f__cf)) - err(f__elist->cierr, errno, "write end"); -#endif - loc=ftell(f__cf); - fseek(f__cf,f__recloc,SEEK_SET); - fwrite((char *)&f__reclen,sizeof(uiolen),1,f__cf); - fseek(f__cf,loc,SEEK_SET); - return(0); -} -integer e_rsue(Void) -{ - f__init = 1; - (void) fseek(f__cf,(long)(f__reclen-f__recpos+sizeof(uiolen)),SEEK_CUR); - return(0); -} diff --git a/gnu/egcs/libf2c/libI77/typesize.c b/gnu/egcs/libf2c/libI77/typesize.c deleted file mode 100644 index 1cb20ff2863..00000000000 --- a/gnu/egcs/libf2c/libI77/typesize.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -ftnlen f__typesize[] = { 0, 0, sizeof(shortint), sizeof(integer), - sizeof(real), sizeof(doublereal), - sizeof(complex), sizeof(doublecomplex), - sizeof(logical), sizeof(char), - 0, sizeof(integer1), - sizeof(logical1), sizeof(shortlogical), -#ifdef Allow_TYQUAD - sizeof(longint), -#endif - 0}; diff --git a/gnu/egcs/libf2c/libI77/uio.c b/gnu/egcs/libf2c/libI77/uio.c deleted file mode 100644 index ea733cec06c..00000000000 --- a/gnu/egcs/libf2c/libI77/uio.c +++ /dev/null @@ -1,69 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include <sys/types.h> -uiolen f__reclen; - -#ifdef KR_headers -do_us(number,ptr,len) ftnint *number; char *ptr; ftnlen len; -#else -do_us(ftnint *number, char *ptr, ftnlen len) -#endif -{ - if(f__reading) - { - f__recpos += (int)(*number * len); - if(f__recpos>f__reclen) - err(f__elist->cierr, 110, "do_us"); - if (fread(ptr,(size_t)len,(size_t)(*number),f__cf) != *number) - err(f__elist->ciend, EOF, "do_us"); - return(0); - } - else - { - f__reclen += *number * len; - (void) fwrite(ptr,(size_t)len,(size_t)(*number),f__cf); - return(0); - } -} -#ifdef KR_headers -integer do_ud(number,ptr,len) ftnint *number; char *ptr; ftnlen len; -#else -integer do_ud(ftnint *number, char *ptr, ftnlen len) -#endif -{ - f__recpos += (int)(*number * len); - if(f__recpos > f__curunit->url && f__curunit->url!=1) - err(f__elist->cierr,110,"do_ud"); - if(f__reading) - { -#ifdef Pad_UDread -#ifdef KR_headers - int i; -#else - size_t i; -#endif - if (!(i = fread(ptr,(size_t)len,(size_t)(*number),f__cf)) - && !(f__recpos - *number*len)) - err(f__elist->cierr,EOF,"do_ud"); - if (i < *number) - memset(ptr + i*len, 0, (*number - i)*len); - return 0; -#else - if(fread(ptr,(size_t)len,(size_t)(*number),f__cf) != *number) - err(f__elist->cierr,EOF,"do_ud"); - else return(0); -#endif - } - (void) fwrite(ptr,(size_t)len,(size_t)(*number),f__cf); - return(0); -} -#ifdef KR_headers -integer do_uio(number,ptr,len) ftnint *number; char *ptr; ftnlen len; -#else -integer do_uio(ftnint *number, char *ptr, ftnlen len) -#endif -{ - if(f__sequential) - return(do_us(number,ptr,len)); - else return(do_ud(number,ptr,len)); -} diff --git a/gnu/egcs/libf2c/libI77/util.c b/gnu/egcs/libf2c/libI77/util.c deleted file mode 100644 index ccaad2d3b6f..00000000000 --- a/gnu/egcs/libf2c/libI77/util.c +++ /dev/null @@ -1,53 +0,0 @@ -#ifndef NON_UNIX_STDIO -#define _INCLUDE_POSIX_SOURCE /* for HP-UX */ -#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */ -#include <sys/types.h> -#include <sys/stat.h> -#endif -#include "f2c.h" -#include "fio.h" - - VOID -#ifdef KR_headers -g_char(a,alen,b) char *a,*b; ftnlen alen; -#else -g_char(char *a, ftnlen alen, char *b) -#endif -{ - char *x = a + alen, *y = b + alen; - - for(;; y--) { - if (x <= a) { - *b = 0; - return; - } - if (*--x != ' ') - break; - } - *y-- = 0; - do *y-- = *x; - while(x-- > a); - } - - VOID -#ifdef KR_headers -b_char(a,b,blen) char *a,*b; ftnlen blen; -#else -b_char(char *a, char *b, ftnlen blen) -#endif -{ int i; - for(i=0;i<blen && *a!=0;i++) *b++= *a++; - for(;i<blen;i++) *b++=' '; -} -#ifndef NON_UNIX_STDIO -#ifdef KR_headers -long f__inode(a, dev) char *a; int *dev; -#else -long f__inode(char *a, int *dev) -#endif -{ struct stat x; - if(stat(a,&x)<0) return(-1); - *dev = x.st_dev; - return(x.st_ino); -} -#endif diff --git a/gnu/egcs/libf2c/libI77/wref.c b/gnu/egcs/libf2c/libI77/wref.c deleted file mode 100644 index a10bcaa1236..00000000000 --- a/gnu/egcs/libf2c/libI77/wref.c +++ /dev/null @@ -1,276 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#ifndef VAX -#include <ctype.h> -#endif - -#ifndef KR_headers -#undef abs -#undef min -#undef max -#include <stdlib.h> -#include <string.h> -#endif - -#include "fmt.h" -#include "fp.h" - -#ifdef KR_headers -wrt_E(p,w,d,e,len) ufloat *p; ftnlen len; -#else -wrt_E(ufloat *p, int w, int d, int e, ftnlen len) -#endif -{ - char buf[FMAX+EXPMAXDIGS+4], *s, *se; - int d1, delta, e1, i, sign, signspace; - double dd; -#ifdef WANT_LEAD_0 - int insert0 = 0; -#endif -#ifndef VAX - int e0 = e; -#endif - - if(e <= 0) - e = 2; - if(f__scale) { - if(f__scale >= d + 2 || f__scale <= -d) - goto nogood; - } - if(f__scale <= 0) - --d; - if (len == sizeof(real)) - dd = p->pf; - else - dd = p->pd; - if (dd < 0.) { - signspace = sign = 1; - dd = -dd; - } - else { - sign = 0; - signspace = (int)f__cplus; -#ifndef VAX - if (!dd) - dd = 0.; /* avoid -0 */ -#endif - } - delta = w - (2 /* for the . and the d adjustment above */ - + 2 /* for the E+ */ + signspace + d + e); -#ifdef WANT_LEAD_0 - if (f__scale <= 0 && delta > 0) { - delta--; - insert0 = 1; - } - else -#endif - if (delta < 0) { -nogood: - while(--w >= 0) - PUT('*'); - return(0); - } - if (f__scale < 0) - d += f__scale; - if (d > FMAX) { - d1 = d - FMAX; - d = FMAX; - } - else - d1 = 0; - sprintf(buf,"%#.*E", d, dd); -#ifndef VAX - /* check for NaN, Infinity */ - if (!isdigit(buf[0])) { - switch(buf[0]) { - case 'n': - case 'N': - signspace = 0; /* no sign for NaNs */ - } - delta = w - strlen(buf) - signspace; - if (delta < 0) - goto nogood; - while(--delta >= 0) - PUT(' '); - if (signspace) - PUT(sign ? '-' : '+'); - for(s = buf; *s; s++) - PUT(*s); - return 0; - } -#endif - se = buf + d + 3; -#ifdef GOOD_SPRINTF_EXPONENT /* When possible, exponent has 2 digits. */ - if (f__scale != 1 && dd) - sprintf(se, "%+.2d", atoi(se) + 1 - f__scale); -#else - if (dd) - sprintf(se, "%+.2d", atoi(se) + 1 - f__scale); - else - strcpy(se, "+00"); -#endif - s = ++se; - if (e < 2) { - if (*s != '0') - goto nogood; - } -#ifndef VAX - /* accommodate 3 significant digits in exponent */ - if (s[2]) { -#ifdef Pedantic - if (!e0 && !s[3]) - for(s -= 2, e1 = 2; s[0] = s[1]; s++); - - /* Pedantic gives the behavior that Fortran 77 specifies, */ - /* i.e., requires that E be specified for exponent fields */ - /* of more than 3 digits. With Pedantic undefined, we get */ - /* the behavior that Cray displays -- you get a bigger */ - /* exponent field if it fits. */ -#else - if (!e0) { - for(s -= 2, e1 = 2; s[0] = s[1]; s++) -#ifdef CRAY - delta--; - if ((delta += 4) < 0) - goto nogood -#endif - ; - } -#endif - else if (e0 >= 0) - goto shift; - else - e1 = e; - } - else - shift: -#endif - for(s += 2, e1 = 2; *s; ++e1, ++s) - if (e1 >= e) - goto nogood; - while(--delta >= 0) - PUT(' '); - if (signspace) - PUT(sign ? '-' : '+'); - s = buf; - i = f__scale; - if (f__scale <= 0) { -#ifdef WANT_LEAD_0 - if (insert0) - PUT('0'); -#endif - PUT('.'); - for(; i < 0; ++i) - PUT('0'); - PUT(*s); - s += 2; - } - else if (f__scale > 1) { - PUT(*s); - s += 2; - while(--i > 0) - PUT(*s++); - PUT('.'); - } - if (d1) { - se -= 2; - while(s < se) PUT(*s++); - se += 2; - do PUT('0'); while(--d1 > 0); - } - while(s < se) - PUT(*s++); - if (e < 2) - PUT(s[1]); - else { - while(++e1 <= e) - PUT('0'); - while(*s) - PUT(*s++); - } - return 0; - } - -#ifdef KR_headers -wrt_F(p,w,d,len) ufloat *p; ftnlen len; -#else -wrt_F(ufloat *p, int w, int d, ftnlen len) -#endif -{ - int d1, sign, n; - double x; - char *b, buf[MAXINTDIGS+MAXFRACDIGS+4], *s; - - x= (len==sizeof(real)?p->pf:p->pd); - if (d < MAXFRACDIGS) - d1 = 0; - else { - d1 = d - MAXFRACDIGS; - d = MAXFRACDIGS; - } - if (x < 0.) - { x = -x; sign = 1; } - else { - sign = 0; -#ifndef VAX - if (!x) - x = 0.; -#endif - } - - if (n = f__scale) - if (n > 0) - do x *= 10.; while(--n > 0); - else - do x *= 0.1; while(++n < 0); - -#ifdef USE_STRLEN - sprintf(b = buf, "%#.*f", d, x); - n = strlen(b) + d1; -#else - n = sprintf(b = buf, "%#.*f", d, x) + d1; -#endif - -#ifndef WANT_LEAD_0 - if (buf[0] == '0' && d) - { ++b; --n; } -#endif - if (sign) { - /* check for all zeros */ - for(s = b;;) { - while(*s == '0') s++; - switch(*s) { - case '.': - s++; continue; - case 0: - sign = 0; - } - break; - } - } - if (sign || f__cplus) - ++n; - if (n > w) { -#ifdef WANT_LEAD_0 - if (buf[0] == '0' && --n == w) - ++b; - else -#endif - { - while(--w >= 0) - PUT('*'); - return 0; - } - } - for(w -= n; --w >= 0; ) - PUT(' '); - if (sign) - PUT('-'); - else if (f__cplus) - PUT('+'); - while(n = *b++) - PUT(n); - while(--d1 >= 0) - PUT('0'); - return 0; - } diff --git a/gnu/egcs/libf2c/libI77/wrtfmt.c b/gnu/egcs/libf2c/libI77/wrtfmt.c deleted file mode 100644 index 477c40f5d3b..00000000000 --- a/gnu/egcs/libf2c/libI77/wrtfmt.c +++ /dev/null @@ -1,365 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "fmt.h" - -extern icilist *f__svic; -extern char *f__icptr; - - static int -mv_cur(Void) /* shouldn't use fseek because it insists on calling fflush */ - /* instead we know too much about stdio */ -{ - int cursor = f__cursor; - f__cursor = 0; - if(f__external == 0) { - if(cursor < 0) { - if(f__hiwater < f__recpos) - f__hiwater = f__recpos; - f__recpos += cursor; - f__icptr += cursor; - if(f__recpos < 0) - err(f__elist->cierr, 110, "left off"); - } - else if(cursor > 0) { - if(f__recpos + cursor >= f__svic->icirlen) - err(f__elist->cierr, 110, "recend"); - if(f__hiwater <= f__recpos) - for(; cursor > 0; cursor--) - (*f__putn)(' '); - else if(f__hiwater <= f__recpos + cursor) { - cursor -= f__hiwater - f__recpos; - f__icptr += f__hiwater - f__recpos; - f__recpos = f__hiwater; - for(; cursor > 0; cursor--) - (*f__putn)(' '); - } - else { - f__icptr += cursor; - f__recpos += cursor; - } - } - return(0); - } - if (cursor > 0) { - if(f__hiwater <= f__recpos) - for(;cursor>0;cursor--) (*f__putn)(' '); - else if(f__hiwater <= f__recpos + cursor) { - cursor -= f__hiwater - f__recpos; - f__recpos = f__hiwater; - for(; cursor > 0; cursor--) - (*f__putn)(' '); - } - else { - f__recpos += cursor; - } - } - else if (cursor < 0) - { - if(cursor + f__recpos < 0) - err(f__elist->cierr,110,"left off"); - if(f__hiwater < f__recpos) - f__hiwater = f__recpos; - f__recpos += cursor; - } - return(0); -} - - static int -#ifdef KR_headers -wrt_Z(n,w,minlen,len) Uint *n; int w, minlen; ftnlen len; -#else -wrt_Z(Uint *n, int w, int minlen, ftnlen len) -#endif -{ - register char *s, *se; - register int i, w1; - static int one = 1; - static char hex[] = "0123456789ABCDEF"; - s = (char *)n; - --len; - if (*(char *)&one) { - /* little endian */ - se = s; - s += len; - i = -1; - } - else { - se = s + len; - i = 1; - } - for(;; s += i) - if (s == se || *s) - break; - w1 = (i*(se-s) << 1) + 1; - if (*s & 0xf0) - w1++; - if (w1 > w) - for(i = 0; i < w; i++) - (*f__putn)('*'); - else { - if ((minlen -= w1) > 0) - w1 += minlen; - while(--w >= w1) - (*f__putn)(' '); - while(--minlen >= 0) - (*f__putn)('0'); - if (!(*s & 0xf0)) { - (*f__putn)(hex[*s & 0xf]); - if (s == se) - return 0; - s += i; - } - for(;; s += i) { - (*f__putn)(hex[*s >> 4 & 0xf]); - (*f__putn)(hex[*s & 0xf]); - if (s == se) - break; - } - } - return 0; - } - - static int -#ifdef KR_headers -wrt_I(n,w,len, base) Uint *n; ftnlen len; register int base; -#else -wrt_I(Uint *n, int w, ftnlen len, register int base) -#endif -{ int ndigit,sign,spare,i; - longint x; - char *ans; - if(len==sizeof(integer)) x=n->il; - else if(len == sizeof(char)) x = n->ic; -#ifdef Allow_TYQUAD - else if (len == sizeof(longint)) x = n->ili; -#endif - else x=n->is; - ans=f__icvt(x,&ndigit,&sign, base); - spare=w-ndigit; - if(sign || f__cplus) spare--; - if(spare<0) - for(i=0;i<w;i++) (*f__putn)('*'); - else - { for(i=0;i<spare;i++) (*f__putn)(' '); - if(sign) (*f__putn)('-'); - else if(f__cplus) (*f__putn)('+'); - for(i=0;i<ndigit;i++) (*f__putn)(*ans++); - } - return(0); -} - static int -#ifdef KR_headers -wrt_IM(n,w,m,len,base) Uint *n; ftnlen len; int base; -#else -wrt_IM(Uint *n, int w, int m, ftnlen len, int base) -#endif -{ int ndigit,sign,spare,i,xsign; - longint x; - char *ans; - if(sizeof(integer)==len) x=n->il; - else if(len == sizeof(char)) x = n->ic; -#ifdef Allow_TYQUAD - else if (len == sizeof(longint)) x = n->ili; -#endif - else x=n->is; - ans=f__icvt(x,&ndigit,&sign, base); - if(sign || f__cplus) xsign=1; - else xsign=0; - if(ndigit+xsign>w || m+xsign>w) - { for(i=0;i<w;i++) (*f__putn)('*'); - return(0); - } - if(x==0 && m==0) - { for(i=0;i<w;i++) (*f__putn)(' '); - return(0); - } - if(ndigit>=m) - spare=w-ndigit-xsign; - else - spare=w-m-xsign; - for(i=0;i<spare;i++) (*f__putn)(' '); - if(sign) (*f__putn)('-'); - else if(f__cplus) (*f__putn)('+'); - for(i=0;i<m-ndigit;i++) (*f__putn)('0'); - for(i=0;i<ndigit;i++) (*f__putn)(*ans++); - return(0); -} - static int -#ifdef KR_headers -wrt_AP(s) char *s; -#else -wrt_AP(char *s) -#endif -{ char quote; - int i; - - if(f__cursor && (i = mv_cur())) - return i; - quote = *s++; - for(;*s;s++) - { if(*s!=quote) (*f__putn)(*s); - else if(*++s==quote) (*f__putn)(*s); - else return(1); - } - return(1); -} - static int -#ifdef KR_headers -wrt_H(a,s) char *s; -#else -wrt_H(int a, char *s) -#endif -{ - int i; - - if(f__cursor && (i = mv_cur())) - return i; - while(a--) (*f__putn)(*s++); - return(1); -} -#ifdef KR_headers -wrt_L(n,len, sz) Uint *n; ftnlen sz; -#else -wrt_L(Uint *n, int len, ftnlen sz) -#endif -{ int i; - long x; - if(sizeof(long)==sz) x=n->il; - else if(sz == sizeof(char)) x = n->ic; - else x=n->is; - for(i=0;i<len-1;i++) - (*f__putn)(' '); - if(x) (*f__putn)('T'); - else (*f__putn)('F'); - return(0); -} - static int -#ifdef KR_headers -wrt_A(p,len) char *p; ftnlen len; -#else -wrt_A(char *p, ftnlen len) -#endif -{ - while(len-- > 0) (*f__putn)(*p++); - return(0); -} - static int -#ifdef KR_headers -wrt_AW(p,w,len) char * p; ftnlen len; -#else -wrt_AW(char * p, int w, ftnlen len) -#endif -{ - while(w>len) - { w--; - (*f__putn)(' '); - } - while(w-- > 0) - (*f__putn)(*p++); - return(0); -} - - static int -#ifdef KR_headers -wrt_G(p,w,d,e,len) ufloat *p; ftnlen len; -#else -wrt_G(ufloat *p, int w, int d, int e, ftnlen len) -#endif -{ double up = 1,x; - int i=0,oldscale,n,j; - x = len==sizeof(real)?p->pf:p->pd; - if(x < 0 ) x = -x; - if(x<.1) { - if (x != 0.) - return(wrt_E(p,w,d,e,len)); - i = 1; - goto have_i; - } - for(;i<=d;i++,up*=10) - { if(x>=up) continue; - have_i: - oldscale = f__scale; - f__scale = 0; - if(e==0) n=4; - else n=e+2; - i=wrt_F(p,w-n,d-i,len); - for(j=0;j<n;j++) (*f__putn)(' '); - f__scale=oldscale; - return(i); - } - return(wrt_E(p,w,d,e,len)); -} -#ifdef KR_headers -w_ed(p,ptr,len) struct syl *p; char *ptr; ftnlen len; -#else -w_ed(struct syl *p, char *ptr, ftnlen len) -#endif -{ - int i; - - if(f__cursor && (i = mv_cur())) - return i; - switch(p->op) - { - default: - fprintf(stderr,"w_ed, unexpected code: %d\n", p->op); - sig_die(f__fmtbuf, 1); - case I: return(wrt_I((Uint *)ptr,p->p1,len, 10)); - case IM: - return(wrt_IM((Uint *)ptr,p->p1,p->p2.i[0],len,10)); - - /* O and OM don't work right for character, double, complex, */ - /* or doublecomplex, and they differ from Fortran 90 in */ - /* showing a minus sign for negative values. */ - - case O: return(wrt_I((Uint *)ptr, p->p1, len, 8)); - case OM: - return(wrt_IM((Uint *)ptr,p->p1,p->p2.i[0],len,8)); - case L: return(wrt_L((Uint *)ptr,p->p1, len)); - case A: return(wrt_A(ptr,len)); - case AW: - return(wrt_AW(ptr,p->p1,len)); - case D: - case E: - case EE: - return(wrt_E((ufloat *)ptr,p->p1,p->p2.i[0],p->p2.i[1],len)); - case G: - case GE: - return(wrt_G((ufloat *)ptr,p->p1,p->p2.i[0],p->p2.i[1],len)); - case F: return(wrt_F((ufloat *)ptr,p->p1,p->p2.i[0],len)); - - /* Z and ZM assume 8-bit bytes. */ - - case Z: return(wrt_Z((Uint *)ptr,p->p1,0,len)); - case ZM: - return(wrt_Z((Uint *)ptr,p->p1,p->p2.i[0],len)); - } -} -#ifdef KR_headers -w_ned(p) struct syl *p; -#else -w_ned(struct syl *p) -#endif -{ - switch(p->op) - { - default: fprintf(stderr,"w_ned, unexpected code: %d\n", p->op); - sig_die(f__fmtbuf, 1); - case SLASH: - return((*f__donewrec)()); - case T: f__cursor = p->p1-f__recpos - 1; - return(1); - case TL: f__cursor -= p->p1; - if(f__cursor < -f__recpos) /* TL1000, 1X */ - f__cursor = -f__recpos; - return(1); - case TR: - case X: - f__cursor += p->p1; - return(1); - case APOS: - return(wrt_AP(p->p2.s)); - case H: - return(wrt_H(p->p1,p->p2.s)); - } -} diff --git a/gnu/egcs/libf2c/libI77/wsfe.c b/gnu/egcs/libf2c/libI77/wsfe.c deleted file mode 100644 index babfb3479d9..00000000000 --- a/gnu/egcs/libf2c/libI77/wsfe.c +++ /dev/null @@ -1,75 +0,0 @@ -/*write sequential formatted external*/ -#include "f2c.h" -#include "fio.h" -#include "fmt.h" -extern int f__hiwater; - - int -x_wSL(Void) -{ - int n = f__putbuf('\n'); - f__hiwater = f__recpos = f__cursor = 0; - return(n == 0); -} - - static int -xw_end(Void) -{ - int n; - - if(f__nonl) { - f__putbuf(n = 0); - fflush(f__cf); - } - else - n = f__putbuf('\n'); - f__hiwater = f__recpos = f__cursor = 0; - return n; -} - - static int -xw_rev(Void) -{ - int n = 0; - if(f__workdone) { - n = f__putbuf('\n'); - f__workdone = 0; - } - f__hiwater = f__recpos = f__cursor = 0; - return n; -} - -#ifdef KR_headers -integer s_wsfe(a) cilist *a; /*start*/ -#else -integer s_wsfe(cilist *a) /*start*/ -#endif -{ int n; - if(f__init != 1) f_init(); - f__init = 3; - f__reading=0; - f__sequential=1; - f__formatted=1; - f__external=1; - if(n=c_sfe(a)) return(n); - f__elist=a; - f__hiwater = f__cursor=f__recpos=0; - f__nonl = 0; - f__scale=0; - f__fmtbuf=a->cifmt; - f__curunit = &f__units[a->ciunit]; - f__cf=f__curunit->ufd; - if(pars_f(f__fmtbuf)<0) err(a->cierr,100,"startio"); - f__putn= x_putc; - f__doed= w_ed; - f__doned= w_ned; - f__doend=xw_end; - f__dorevert=xw_rev; - f__donewrec=x_wSL; - fmt_bg(); - f__cplus=0; - f__cblank=f__curunit->ublnk; - if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit)) - err(a->cierr,errno,"write start"); - return(0); -} diff --git a/gnu/egcs/libf2c/libI77/wsle.c b/gnu/egcs/libf2c/libI77/wsle.c deleted file mode 100644 index f8555d79c45..00000000000 --- a/gnu/egcs/libf2c/libI77/wsle.c +++ /dev/null @@ -1,38 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "fmt.h" -#include "lio.h" -#include "string.h" - -#ifdef KR_headers -integer s_wsle(a) cilist *a; -#else -integer s_wsle(cilist *a) -#endif -{ - int n; - if(n=c_le(a)) return(n); - f__reading=0; - f__external=1; - f__formatted=1; - f__putn = x_putc; - f__lioproc = l_write; - L_len = LINE; - f__donewrec = x_wSL; - if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit)) - err(a->cierr, errno, "list output start"); - return(0); - } - -integer e_wsle(Void) -{ - int n; - f__init = 1; - n = f__putbuf('\n'); - f__recpos=0; -#ifdef ALWAYS_FLUSH - if (!n && fflush(f__cf)) - err(f__elist->cierr, errno, "write end"); -#endif - return(n); - } diff --git a/gnu/egcs/libf2c/libI77/wsne.c b/gnu/egcs/libf2c/libI77/wsne.c deleted file mode 100644 index ae3f8178949..00000000000 --- a/gnu/egcs/libf2c/libI77/wsne.c +++ /dev/null @@ -1,26 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "lio.h" - - integer -#ifdef KR_headers -s_wsne(a) cilist *a; -#else -s_wsne(cilist *a) -#endif -{ - int n; - - if(n=c_le(a)) - return(n); - f__reading=0; - f__external=1; - f__formatted=1; - f__putn = x_putc; - L_len = LINE; - f__donewrec = x_wSL; - if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit)) - err(a->cierr, errno, "namelist output start"); - x_wsne(a); - return e_wsle(); - } diff --git a/gnu/egcs/libf2c/libI77/xwsne.c b/gnu/egcs/libf2c/libI77/xwsne.c deleted file mode 100644 index 71f6f1d5da5..00000000000 --- a/gnu/egcs/libf2c/libI77/xwsne.c +++ /dev/null @@ -1,72 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "lio.h" -#include "fmt.h" - -extern int f__Aquote; - - static VOID -nl_donewrec(Void) -{ - (*f__donewrec)(); - PUT(' '); - } - -#ifdef KR_headers -x_wsne(a) cilist *a; -#else -#include <string.h> - - VOID -x_wsne(cilist *a) -#endif -{ - Namelist *nl; - char *s; - Vardesc *v, **vd, **vde; - ftnint *number, type; - ftnlen *dims; - ftnlen size; - static ftnint one = 1; - extern ftnlen f__typesize[]; - - nl = (Namelist *)a->cifmt; - PUT('&'); - for(s = nl->name; *s; s++) - PUT(*s); - PUT(' '); - f__Aquote = 1; - vd = nl->vars; - vde = vd + nl->nvars; - while(vd < vde) { - v = *vd++; - s = v->name; -#ifdef No_Extra_Namelist_Newlines - if (f__recpos+strlen(s)+2 >= L_len) -#endif - nl_donewrec(); - while(*s) - PUT(*s++); - PUT(' '); - PUT('='); - number = (dims = v->dims) ? dims + 1 : &one; - type = v->type; - if (type < 0) { - size = -type; - type = TYCHAR; - } - else - size = f__typesize[type]; - l_write(number, v->addr, size, type); - if (vd < vde) { - if (f__recpos+2 >= L_len) - nl_donewrec(); - PUT(','); - PUT(' '); - } - else if (f__recpos+1 >= L_len) - nl_donewrec(); - } - f__Aquote = 0; - PUT('/'); - } diff --git a/gnu/egcs/libf2c/libU77/COPYING.LIB b/gnu/egcs/libf2c/libU77/COPYING.LIB deleted file mode 100644 index 161a3d1d47b..00000000000 --- a/gnu/egcs/libf2c/libU77/COPYING.LIB +++ /dev/null @@ -1,482 +0,0 @@ - GNU LIBRARY GENERAL PUBLIC LICENSE - Version 2, June 1991 - - Copyright (C) 1991 Free Software Foundation, Inc. - 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA - Everyone is permitted to copy and distribute verbatim copies - of this license document, but changing it is not allowed. - -[This is the first released version of the library GPL. It is - numbered 2 because it goes with version 2 of the ordinary GPL.] - - Preamble - - The licenses for most software are designed to take away your -freedom to share and change it. By contrast, the GNU General Public -Licenses are intended to guarantee your freedom to share and change -free software--to make sure the software is free for all its users. - - This license, the Library General Public License, applies to some -specially designated Free Software Foundation software, and to any -other libraries whose authors decide to use it. You can use it for -your libraries, too. - - When we speak of free software, we are referring to freedom, not -price. Our General Public Licenses are designed to make sure that you -have the freedom to distribute copies of free software (and charge for -this service if you wish), that you receive source code or can get it -if you want it, that you can change the software or use pieces of it -in new free programs; and that you know you can do these things. - - To protect your rights, we need to make restrictions that forbid -anyone to deny you these rights or to ask you to surrender the rights. -These restrictions translate to certain responsibilities for you if -you distribute copies of the library, or if you modify it. - - For example, if you distribute copies of the library, whether gratis -or for a fee, you must give the recipients all the rights that we gave -you. You must make sure that they, too, receive or can get the source -code. If you link a program with the library, you must provide -complete object files to the recipients so that they can relink them -with the library, after making changes to the library and recompiling -it. And you must show them these terms so they know their rights. - - Our method of protecting your rights has two steps: (1) copyright -the library, and (2) offer you this license which gives you legal -permission to copy, distribute and/or modify the library. - - Also, for each distributor's protection, we want to make certain -that everyone understands that there is no warranty for this free -library. If the library is modified by someone else and passed on, we -want its recipients to know that what they have is not the original -version, so that any problems introduced by others will not reflect on -the original authors' reputations. - - Finally, any free program is threatened constantly by software -patents. We wish to avoid the danger that companies distributing free -software will individually obtain patent licenses, thus in effect -transforming the program into proprietary software. To prevent this, -we have made it clear that any patent must be licensed for everyone's -free use or not licensed at all. - - Most GNU software, including some libraries, is covered by the ordinary -GNU General Public License, which was designed for utility programs. This -license, the GNU Library General Public License, applies to certain -designated libraries. This license is quite different from the ordinary -one; be sure to read it in full, and don't assume that anything in it is -the same as in the ordinary license. - - The reason we have a separate public license for some libraries is that -they blur the distinction we usually make between modifying or adding to a -program and simply using it. Linking a program with a library, without -changing the library, is in some sense simply using the library, and is -analogous to running a utility program or application program. However, in -a textual and legal sense, the linked executable is a combined work, a -derivative of the original library, and the ordinary General Public License -treats it as such. - - Because of this blurred distinction, using the ordinary General -Public License for libraries did not effectively promote software -sharing, because most developers did not use the libraries. We -concluded that weaker conditions might promote sharing better. - - However, unrestricted linking of non-free programs would deprive the -users of those programs of all benefit from the free status of the -libraries themselves. This Library General Public License is intended to -permit developers of non-free programs to use free libraries, while -preserving your freedom as a user of such programs to change the free -libraries that are incorporated in them. (We have not seen how to achieve -this as regards changes in header files, but we have achieved it as regards -changes in the actual functions of the Library.) The hope is that this -will lead to faster development of free libraries. - - The precise terms and conditions for copying, distribution and -modification follow. Pay close attention to the difference between a -"work based on the library" and a "work that uses the library". The -former contains code derived from the library, while the latter only -works together with the library. - - Note that it is possible for a library to be covered by the ordinary -General Public License rather than by this special one. - - GNU LIBRARY GENERAL PUBLIC LICENSE - TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION - - 0. This License Agreement applies to any software library which -contains a notice placed by the copyright holder or other authorized -party saying it may be distributed under the terms of this Library -General Public License (also called "this License"). Each licensee is -addressed as "you". - - A "library" means a collection of software functions and/or data -prepared so as to be conveniently linked with application programs -(which use some of those functions and data) to form executables. - - The "Library", below, refers to any such software library or work -which has been distributed under these terms. A "work based on the -Library" means either the Library or any derivative work under -copyright law: that is to say, a work containing the Library or a -portion of it, either verbatim or with modifications and/or translated -straightforwardly into another language. (Hereinafter, translation is -included without limitation in the term "modification".) - - "Source code" for a work means the preferred form of the work for -making modifications to it. For a library, complete source code means -all the source code for all modules it contains, plus any associated -interface definition files, plus the scripts used to control compilation -and installation of the library. - - Activities other than copying, distribution and modification are not -covered by this License; they are outside its scope. The act of -running a program using the Library is not restricted, and output from -such a program is covered only if its contents constitute a work based -on the Library (independent of the use of the Library in a tool for -writing it). Whether that is true depends on what the Library does -and what the program that uses the Library does. - - 1. You may copy and distribute verbatim copies of the Library's -complete source code as you receive it, in any medium, provided that -you conspicuously and appropriately publish on each copy an -appropriate copyright notice and disclaimer of warranty; keep intact -all the notices that refer to this License and to the absence of any -warranty; and distribute a copy of this License along with the -Library. - - You may charge a fee for the physical act of transferring a copy, -and you may at your option offer warranty protection in exchange for a -fee. - - 2. You may modify your copy or copies of the Library or any portion -of it, thus forming a work based on the Library, and copy and -distribute such modifications or work under the terms of Section 1 -above, provided that you also meet all of these conditions: - - a) The modified work must itself be a software library. - - b) You must cause the files modified to carry prominent notices - stating that you changed the files and the date of any change. - - c) You must cause the whole of the work to be licensed at no - charge to all third parties under the terms of this License. - - d) If a facility in the modified Library refers to a function or a - table of data to be supplied by an application program that uses - the facility, other than as an argument passed when the facility - is invoked, then you must make a good faith effort to ensure that, - in the event an application does not supply such function or - table, the facility still operates, and performs whatever part of - its purpose remains meaningful. - - (For example, a function in a library to compute square roots has - a purpose that is entirely well-defined independent of the - application. Therefore, Subsection 2d requires that any - application-supplied function or table used by this function must - be optional: if the application does not supply it, the square - root function must still compute square roots.) - -These requirements apply to the modified work as a whole. If -identifiable sections of that work are not derived from the Library, -and can be reasonably considered independent and separate works in -themselves, then this License, and its terms, do not apply to those -sections when you distribute them as separate works. But when you -distribute the same sections as part of a whole which is a work based -on the Library, the distribution of the whole must be on the terms of -this License, whose permissions for other licensees extend to the -entire whole, and thus to each and every part regardless of who wrote -it. - -Thus, it is not the intent of this section to claim rights or contest -your rights to work written entirely by you; rather, the intent is to -exercise the right to control the distribution of derivative or -collective works based on the Library. - -In addition, mere aggregation of another work not based on the Library -with the Library (or with a work based on the Library) on a volume of -a storage or distribution medium does not bring the other work under -the scope of this License. - - 3. You may opt to apply the terms of the ordinary GNU General Public -License instead of this License to a given copy of the Library. To do -this, you must alter all the notices that refer to this License, so -that they refer to the ordinary GNU General Public License, version 2, -instead of to this License. (If a newer version than version 2 of the -ordinary GNU General Public License has appeared, then you can specify -that version instead if you wish.) Do not make any other change in -these notices. - - Once this change is made in a given copy, it is irreversible for -that copy, so the ordinary GNU General Public License applies to all -subsequent copies and derivative works made from that copy. - - This option is useful when you wish to copy part of the code of -the Library into a program that is not a library. - - 4. You may copy and distribute the Library (or a portion or -derivative of it, under Section 2) in object code or executable form -under the terms of Sections 1 and 2 above provided that you accompany -it with the complete corresponding machine-readable source code, which -must be distributed under the terms of Sections 1 and 2 above on a -medium customarily used for software interchange. - - If distribution of object code is made by offering access to copy -from a designated place, then offering equivalent access to copy the -source code from the same place satisfies the requirement to -distribute the source code, even though third parties are not -compelled to copy the source along with the object code. - - 5. A program that contains no derivative of any portion of the -Library, but is designed to work with the Library by being compiled or -linked with it, is called a "work that uses the Library". Such a -work, in isolation, is not a derivative work of the Library, and -therefore falls outside the scope of this License. - - However, linking a "work that uses the Library" with the Library -creates an executable that is a derivative of the Library (because it -contains portions of the Library), rather than a "work that uses the -library". The executable is therefore covered by this License. -Section 6 states terms for distribution of such executables. - - When a "work that uses the Library" uses material from a header file -that is part of the Library, the object code for the work may be a -derivative work of the Library even though the source code is not. -Whether this is true is especially significant if the work can be -linked without the Library, or if the work is itself a library. The -threshold for this to be true is not precisely defined by law. - - If such an object file uses only numerical parameters, data -structure layouts and accessors, and small macros and small inline -functions (ten lines or less in length), then the use of the object -file is unrestricted, regardless of whether it is legally a derivative -work. (Executables containing this object code plus portions of the -Library will still fall under Section 6.) - - Otherwise, if the work is a derivative of the Library, you may -distribute the object code for the work under the terms of Section 6. -Any executables containing that work also fall under Section 6, -whether or not they are linked directly with the Library itself. - - 6. As an exception to the Sections above, you may also compile or -link a "work that uses the Library" with the Library to produce a -work containing portions of the Library, and distribute that work -under terms of your choice, provided that the terms permit -modification of the work for the customer's own use and reverse -engineering for debugging such modifications. - - You must give prominent notice with each copy of the work that the -Library is used in it and that the Library and its use are covered by -this License. You must supply a copy of this License. If the work -during execution displays copyright notices, you must include the -copyright notice for the Library among them, as well as a reference -directing the user to the copy of this License. Also, you must do one -of these things: - - a) Accompany the work with the complete corresponding - machine-readable source code for the Library including whatever - changes were used in the work (which must be distributed under - Sections 1 and 2 above); and, if the work is an executable linked - with the Library, with the complete machine-readable "work that - uses the Library", as object code and/or source code, so that the - user can modify the Library and then relink to produce a modified - executable containing the modified Library. (It is understood - that the user who changes the contents of definitions files in the - Library will not necessarily be able to recompile the application - to use the modified definitions.) - - b) Accompany the work with a written offer, valid for at - least three years, to give the same user the materials - specified in Subsection 6a, above, for a charge no more - than the cost of performing this distribution. - - c) If distribution of the work is made by offering access to copy - from a designated place, offer equivalent access to copy the above - specified materials from the same place. - - d) Verify that the user has already received a copy of these - materials or that you have already sent this user a copy. - - For an executable, the required form of the "work that uses the -Library" must include any data and utility programs needed for -reproducing the executable from it. However, as a special exception, -the source code distributed need not include anything that is normally -distributed (in either source or binary form) with the major -components (compiler, kernel, and so on) of the operating system on -which the executable runs, unless that component itself accompanies -the executable. - - It may happen that this requirement contradicts the license -restrictions of other proprietary libraries that do not normally -accompany the operating system. Such a contradiction means you cannot -use both them and the Library together in an executable that you -distribute. - - 7. You may place library facilities that are a work based on the -Library side-by-side in a single library together with other library -facilities not covered by this License, and distribute such a combined -library, provided that the separate distribution of the work based on -the Library and of the other library facilities is otherwise -permitted, and provided that you do these two things: - - a) Accompany the combined library with a copy of the same work - based on the Library, uncombined with any other library - facilities. This must be distributed under the terms of the - Sections above. - - b) Give prominent notice with the combined library of the fact - that part of it is a work based on the Library, and explaining - where to find the accompanying uncombined form of the same work. - - 8. You may not copy, modify, sublicense, link with, or distribute -the Library except as expressly provided under this License. Any -attempt otherwise to copy, modify, sublicense, link with, or -distribute the Library is void, and will automatically terminate your -rights under this License. However, parties who have received copies, -or rights, from you under this License will not have their licenses -terminated so long as such parties remain in full compliance. - - 9. You are not required to accept this License, since you have not -signed it. However, nothing else grants you permission to modify or -distribute the Library or its derivative works. These actions are -prohibited by law if you do not accept this License. Therefore, by -modifying or distributing the Library (or any work based on the -Library), you indicate your acceptance of this License to do so, and -all its terms and conditions for copying, distributing or modifying -the Library or works based on it. - - 10. Each time you redistribute the Library (or any work based on the -Library), the recipient automatically receives a license from the -original licensor to copy, distribute, link with or modify the Library -subject to these terms and conditions. You may not impose any further -restrictions on the recipients' exercise of the rights granted herein. -You are not responsible for enforcing compliance by third parties to -this License. - - 11. If, as a consequence of a court judgment or allegation of patent -infringement or for any other reason (not limited to patent issues), -conditions are imposed on you (whether by court order, agreement or -otherwise) that contradict the conditions of this License, they do not -excuse you from the conditions of this License. If you cannot -distribute so as to satisfy simultaneously your obligations under this -License and any other pertinent obligations, then as a consequence you -may not distribute the Library at all. For example, if a patent -license would not permit royalty-free redistribution of the Library by -all those who receive copies directly or indirectly through you, then -the only way you could satisfy both it and this License would be to -refrain entirely from distribution of the Library. - -If any portion of this section is held invalid or unenforceable under any -particular circumstance, the balance of the section is intended to apply, -and the section as a whole is intended to apply in other circumstances. - -It is not the purpose of this section to induce you to infringe any -patents or other property right claims or to contest validity of any -such claims; this section has the sole purpose of protecting the -integrity of the free software distribution system which is -implemented by public license practices. Many people have made -generous contributions to the wide range of software distributed -through that system in reliance on consistent application of that -system; it is up to the author/donor to decide if he or she is willing -to distribute software through any other system and a licensee cannot -impose that choice. - -This section is intended to make thoroughly clear what is believed to -be a consequence of the rest of this License. - - 12. If the distribution and/or use of the Library is restricted in -certain countries either by patents or by copyrighted interfaces, the -original copyright holder who places the Library under this License may add -an explicit geographical distribution limitation excluding those countries, -so that distribution is permitted only in or among countries not thus -excluded. In such case, this License incorporates the limitation as if -written in the body of this License. - - 13. The Free Software Foundation may publish revised and/or new -versions of the Library General Public License from time to time. -Such new versions will be similar in spirit to the present version, -but may differ in detail to address new problems or concerns. - -Each version is given a distinguishing version number. If the Library -specifies a version number of this License which applies to it and -"any later version", you have the option of following the terms and -conditions either of that version or of any later version published by -the Free Software Foundation. If the Library does not specify a -license version number, you may choose any version ever published by -the Free Software Foundation. - - 14. If you wish to incorporate parts of the Library into other free -programs whose distribution conditions are incompatible with these, -write to the author to ask for permission. For software which is -copyrighted by the Free Software Foundation, write to the Free -Software Foundation; we sometimes make exceptions for this. Our -decision will be guided by the two goals of preserving the free status -of all derivatives of our free software and of promoting the sharing -and reuse of software generally. - - NO WARRANTY - - 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO -WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW. -EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR -OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY -KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE -LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME -THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. - - 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN -WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY -AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU -FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR -CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE -LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING -RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A -FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF -SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH -DAMAGES. - - END OF TERMS AND CONDITIONS - - Appendix: How to Apply These Terms to Your New Libraries - - If you develop a new library, and you want it to be of the greatest -possible use to the public, we recommend making it free software that -everyone can redistribute and change. You can do so by permitting -redistribution under these terms (or, alternatively, under the terms of the -ordinary General Public License). - - To apply these terms, attach the following notices to the library. It is -safest to attach them to the start of each source file to most effectively -convey the exclusion of warranty; and each file should have at least the -"copyright" line and a pointer to where the full notice is found. - - <one line to give the library's name and a brief idea of what it does.> - Copyright (C) <year> <name of author> - - This library is free software; you can redistribute it and/or - modify it under the terms of the GNU Library General Public - License as published by the Free Software Foundation; either - version 2 of the License, or (at your option) any later version. - - This library is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - Library General Public License for more details. - - You should have received a copy of the GNU Library General Public - License along with this library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, - MA 02111-1307, USA - -Also add information on how to contact you by electronic and paper mail. - -You should also get your employer (if you work as a programmer) or your -school, if any, to sign a "copyright disclaimer" for the library, if -necessary. Here is a sample; alter the names: - - Yoyodyne, Inc., hereby disclaims all copyright interest in the - library `Frob' (a library for tweaking knobs) written by James Random Hacker. - - <signature of Ty Coon>, 1 April 1990 - Ty Coon, President of Vice - -That's all there is to it! diff --git a/gnu/egcs/libf2c/libU77/Makefile.in b/gnu/egcs/libf2c/libU77/Makefile.in deleted file mode 100644 index 3468a822f04..00000000000 --- a/gnu/egcs/libf2c/libU77/Makefile.in +++ /dev/null @@ -1,193 +0,0 @@ -# Makefile for GNU F77 compiler runtime, libc interface. -# Copyright (C) 1995-1998 Free Software Foundation, Inc. -# Contributed by Dave Love (d.love@dl.ac.uk). -# -#This file is part of the GNU Fortran libU77 library. -# -#The GNU Fortran libU77 library is free software; you can redistribute -#it and/or modify it under the terms of the GNU Library General Public -#License as published by the Free Software Foundation; either version 2, -#or (at your option) any later version. -# -#GNU Fortran is distributed in the hope that it will be useful, -#but WITHOUT ANY WARRANTY; without even the implied warranty of -#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#GNU Library General Public License for more details. -# -#You should have received a copy of the GNU General Public License -#along with GNU Fortran; see the file COPYING. If not, write to -#the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -#02111-1307, USA. - -#### Start of system configuration section. #### - -# $(srcdir) must be set to the g77 runtime libU77 source directory -srcdir = @srcdir@ -VPATH = @srcdir@ - -# configure sets this to all the -D options appropriate for the -# configuration. -DEFS = @DEFS@ -LIBS = @LIBS@ - -LIBG2C = ../libg2c.a - -F2C_H_DIR = @srcdir@/.. -G2C_H_DIR = .. -CC = @CC@ -CFLAGS = @CFLAGS@ -CPPFLAGS = @CPPFLAGS@ -AR = @AR@ -ARFLAGS = rc -@SET_MAKE@ - -SHELL = /bin/sh - -#### End of system configuration section. #### - -# fio.h is in libI77. config.h is in `.'. -ALL_CFLAGS = -I. -I$(srcdir) -I$(F2C_H_DIR)/libI77 -I$(G2C_H_DIR) \ - -I$(F2C_H_DIR) $(CPPFLAGS) $(DEFS) $(CFLAGS) - -# This could probably be done more elegantly, but it's currently -# just for running the u77-test test. -G77DIR = ../../../gcc/ - -.SUFFIXES: -.SUFFIXES: .c .o - -.c.o: - $(CC) -c -DSkip_f2c_Undefs $(ALL_CFLAGS) $< - -OBJS = VersionU.o gerror_.o perror_.o ierrno_.o itime_.o time_.o \ - unlink_.o fnum_.o getpid_.o getuid_.o getgid_.o kill_.o rand_.o \ - srand_.o irand_.o sleep_.o idate_.o ctime_.o etime_.o \ - dtime_.o isatty_.o ltime_.o fstat_.o stat_.o \ - lstat_.o access_.o link_.o getlog_.o ttynam_.o getcwd_.o symlnk_.o \ - vxttime_.o vxtidate_.o gmtime_.o fdate_.o secnds_.o \ - bes.o dbes.o \ - chdir_.o chmod_.o lnblnk_.o hostnm_.o rename_.o fgetc_.o fputc_.o \ - umask_.o sys_clock_.o date_.o second_.o flush1_.o mclock_.o \ - alarm_.o datetime_.o -SRCS = Version.c gerror_.c perror_.c ierrno_.c itime_.c time_.c \ - unlink_.c fnum_.c getpid_.c getuid_.c getgid_.c kill_.c rand_.c \ - srand_.c irand_.c sleep_.c idate_.c ctime_.c etime_.c \ - dtime_.c isatty_.c ltime_.c fstat_.c stat_.c \ - lstat_.c access_.c link_.c getlog_.c ttynam_.c getcwd_.c symlnk_.c \ - vxttime_.c vxtidate_.c gmtime_.c fdate_.c secnds_.c \ - bes.c dbes.c \ - chdir_.c chmod_.c lnblnk_.c hostnm_.c rename_.c fgetc_.c fputc_.c \ - umask_.c sys_clock_.c date_.c second_.c flush1_.c mclock_.c \ - alarm_.c datetime_.c - -all: ../s-libu77 - -../s-libu77: $(OBJS) - echo timestamp > ../s-libu77 - -archive: - $(AR) $(ARFLAGS) $(LIBG2C) $(OBJS) - -Makefile: Makefile.in config.status - $(SHELL) config.status - -config.status: configure - rm -f config.cache - CONFIG_SITE=no-such-file CC='$(CC)' AR='$(AR)' CFLAGS='$(CFLAGS)' \ - CPPFLAGS='$(CPPFLAGS)' $(SHELL) config.status --recheck - -${srcdir}/configure: configure.in - cd ${srcdir} && autoconf - -${srcdir}/config.hin: stamp-h.in -${srcdir}/stamp-h.in: configure.in acconfig.h - cd ${srcdir} && autoheader - echo timestamp > ${srcdir}/stamp-h.in - -config.h: stamp-h -stamp-h: config.hin config.status - $(SHELL) config.status - echo timestamp > stamp-h - -VersionU.o: Version.c - $(CC) -c $(ALL_CFLAGS) -o $@ $(srcdir)/Version.c - -$(OBJS): $(F2C_H_DIR)/f2c.h $(G2C_H_DIR)/g2c.h config.h -access_.o: access_.c -ctime_.o: ctime_.c -dtime_.o: dtime_.c -etime_.o: etime_.c -fnum_.o: fnum_.c $(F2C_H_DIR)/libI77/fio.h -fstat_.o: fstat_.c -gerror_.o: gerror_.c -getcwd_.o: getcwd_.c -getgid_.o: getgid_.c -getlog_.o: getlog_.c -getpid_.o: getpid_.c -getuid_.o: getuid_.c -idate_.o: idate_.c -ierrno_.o: ierrno_.c -irand_.o: irand_.c -isatty_.o: isatty_.c $(F2C_H_DIR)/libI77/fio.h -itime_.o: itime_.c -kill_.o: kill_.c -link_.o: link_.c -loc_.o: loc_.c -lstat_.o: lstat_.c -ltime_.o: ltime_.c -perror_.o: perror_.c -qsort.o: qsort.c -qsort_.o: qsort_.c -rand_.o: rand_.c -rename_.o: rename_.c -second_.o: second_.c -sleep_.o: sleep_.c -srand_.o: srand_.c -stat_.o: stat_.c -symlnk_.o: symlnk_.c -time_.o: time_.c -ttynam_.o: ttynam_.c -unlink_.o: unlink_.c -wait_.o: wait_.c -vxttime_.o: vxttime_.c -vtxidate_.o: vxtidate_.c -fdate_.o: fdate_.c -gmtime_.o: gmtime_.c -secnds_.o: secnds_.c -bes.o: bes.c -dbes.o: dbes.c -lnblnk_.o: lnblnk_.c -chmod_.o: chmod_.c -chdir_.o: chdir_.c -hostnm_.o: hostnm_.c -rename_.o: rename_.c -fputc_.o: fputc_.c -fgetc_.o: fgetc_.c -sys_clock_.o: sys_clock_.c -date_.o: date_.c -umask_.o: umask_.c -flush1_.o: flush1_.c -mclock_.o: mclock_.c -alarm_.o: alarm_.c -datetime_.o: datetime_.c - -check: - -$(G77DIR)g77 -B$(G77DIR) -L.. -g $(srcdir)/u77-test.f -lg2c $(LIBS) -lm && ./a.out - rm -f a.out - -install uninstall install-strip dist installcheck installdirs: - -mostlyclean: - rm -f *.o a.out - -clean: mostlyclean - rm -f config.log ../s-libu77 - -distclean: clean - rm -f config.cache config.status Makefile config.h stamp.h \ - ../s-libu77 configure - -maintainer-clean: - -.PHONY: mostlyclean clean distclean maintainer-clean all check uninstall \ - install-strip dist installcheck installdirs archive diff --git a/gnu/egcs/libf2c/libU77/PROJECTS b/gnu/egcs/libf2c/libU77/PROJECTS deleted file mode 100644 index 0cf1383cbf9..00000000000 --- a/gnu/egcs/libf2c/libU77/PROJECTS +++ /dev/null @@ -1,10 +0,0 @@ - -*- indented-text-*- - -* Interface to strget - -* Non-blocking (`asynchronous') i/o (per c.l.f. discussion) - -* `ioinit'-type routine for various i/o options - -* IEEE/VAX/... number format conversion (or XDR interface). This - might be made optionally transparent per logical unit a la DECtran. diff --git a/gnu/egcs/libf2c/libU77/README b/gnu/egcs/libf2c/libU77/README deleted file mode 100644 index bfedb90bd97..00000000000 --- a/gnu/egcs/libf2c/libU77/README +++ /dev/null @@ -1,40 +0,0 @@ -19970811 -*-text-*- - -g77 libU77 ----------- - -This directory contains an implementation of most of the `traditional' -Unix libU77 routines, mostly an interface to libc and libm routines -and some extra ones for time and date etc. It's intended for use with -g77, to whose configuration procedure it's currently tied, but should -be compatible with f2c otherwise, if using the same f2c.h. - -The contents of libU77 and its interfaces aren't consistent across -implementations. This one is mostly taken from documentation for (an -old version of) the Convex implementation and the v2 SunPro one. -As of g77 version 0.5.20, most of these routines have been made -into g77 intrinsics. Some routines have a version with a name prefixed -by `vxt', corresponding to the VMS Fortran versions, and these should -be integrated with g77's intrinsics visibility control. - -A few routines are currently missing; in the case of `fork', for -instance, because they're probably not useful, and in the case of -`qsort' and those for stream-based i/o handling, because they need -more effort/research. The configuration should weed out those few -which correspond to facilities which may not be present on some Unix -systems, such as symbolic links. It's unclear whether the interfaces -to the native library random number routines should be retained, since -their implementation is likely to be something one should avoid -assiduously. - -This library has been tested it under SunOS4.1.3 and Irix5.2 and there -has been some feedback from Linux; presumably potential problems lie -mainly with systems with impoverished native C library support which -haven't been properly taken care of with autoconf. - -There's another GPL'd implementation of this stuff which I only found -out about recently (despite having looked) and I haven't yet checked -how they should be amalgamated. - -Dave Love <d.love@dl.ac.uk> Aug '95 -(minor changes by Craig Burley <burley@gnu.org> Aug '97) diff --git a/gnu/egcs/libf2c/libU77/Version.c b/gnu/egcs/libf2c/libU77/Version.c deleted file mode 100644 index 1efd5105055..00000000000 --- a/gnu/egcs/libf2c/libU77/Version.c +++ /dev/null @@ -1,12 +0,0 @@ -static char junk[] = "\n@(#) LIBU77 VERSION 19980709\n"; - -char __G77_LIBU77_VERSION__[] = "0.5.24-19990306"; - -#include <stdio.h> - -void -g77__uvers__ () -{ - fprintf (stderr, "__G77_LIBU77_VERSION__: %s", __G77_LIBU77_VERSION__); - fputs (junk, stderr); -} diff --git a/gnu/egcs/libf2c/libU77/access_.c b/gnu/egcs/libf2c/libU77/access_.c deleted file mode 100644 index fefdebb0d8d..00000000000 --- a/gnu/egcs/libf2c/libU77/access_.c +++ /dev/null @@ -1,80 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#else -# include <stdio.h> -#endif - -#include <errno.h> -#include <limits.h> -#include "f2c.h" - -#ifndef R_OK /* for SVR1-2 */ -# define R_OK 4 -#endif -#ifndef W_OK -# define W_OK 2 -#endif -#ifndef X_OK -# define X_OK 1 -#endif -#ifndef F_OK -# 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; - int amode, i; - - buff = malloc (Lname+1); - if (!buff) return -1; - g_char (name, Lname, buff); - amode = 0; - for (i=0;i<Lmode;i++) { - switch (mode[i]) { - case 'r': amode |= R_OK; break; - case 'w': amode |= W_OK; break; - case 'x': amode |= X_OK; break; - case ' ': amode |= F_OK; break; /* as per Sun, at least */ - default: return EINVAL; - } - } - i = access (buff, amode); - free (buff); - return i; -} diff --git a/gnu/egcs/libf2c/libU77/acconfig.h b/gnu/egcs/libf2c/libU77/acconfig.h deleted file mode 100644 index 1400ba589b2..00000000000 --- a/gnu/egcs/libf2c/libU77/acconfig.h +++ /dev/null @@ -1,6 +0,0 @@ -/* Define as the path of the `chmod' program. */ -#undef CHMOD_PATH - -/* Define if your sys/time.h defines struct timezone. */ -#undef HAVE_STRUCT_TIMEZONE - diff --git a/gnu/egcs/libf2c/libU77/aclocal.m4 b/gnu/egcs/libf2c/libU77/aclocal.m4 deleted file mode 100644 index d230dadf807..00000000000 --- a/gnu/egcs/libf2c/libU77/aclocal.m4 +++ /dev/null @@ -1,16 +0,0 @@ -dnl See whether we have struct timezone -dnl LIBU77_HAVE_STRUCT_TIMEZONE -AC_DEFUN(LIBU77_HAVE_STRUCT_TIMEZONE, -[AC_MSG_CHECKING([whether struct timezone exists]) -AC_CACHE_VAL(libu77_cv_have_struct_timezone, -[AC_TRY_COMPILE([#include <sys/time.h>], -[struct timezone tz;], -libu77_ac_have_struct_timezone=yes, libu77_ac_have_struct_timezone=no)]) -if test $libu77_ac_have_struct_timezone = yes; then - AC_MSG_RESULT(yes) - AC_DEFINE_UNQUOTED(HAVE_STRUCT_TIMEZONE) -else - AC_MSG_RESULT(no) -fi -])dnl - diff --git a/gnu/egcs/libf2c/libU77/alarm_.c b/gnu/egcs/libf2c/libU77/alarm_.c deleted file mode 100644 index 3e2f293d9b1..00000000000 --- a/gnu/egcs/libf2c/libU77/alarm_.c +++ /dev/null @@ -1,64 +0,0 @@ -/* Copyright (C) 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif - -#if HAVE_UNISTD_H -# include <unistd.h> -#endif - -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -#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(); - -integer G77_alarm_0 (seconds, proc) - integer *seconds; - sig_type proc; -#else -#include <signal.h> -typedef int (*sig_proc)(int); - -integer G77_alarm_0 (integer *seconds, sig_proc proc) -#endif -{ - int status; -#if defined (HAVE_ALARM) && defined (SIGALRM) - if (signal(SIGALRM, (sig_type)proc) == SIG_ERR) - status = -1; - else - status = alarm (*seconds); -#else /* ! HAVE_ALARM || ! SIGALRM */ - errno = ENOSYS; - status = -1; -#endif - return status; -} diff --git a/gnu/egcs/libf2c/libU77/bes.c b/gnu/egcs/libf2c/libU77/bes.c deleted file mode 100644 index 442337fd77a..00000000000 --- a/gnu/egcs/libf2c/libU77/bes.c +++ /dev/null @@ -1,46 +0,0 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#if 0 /* Don't include these unless necessary -- jcb. */ -#include "f2c.h" -#include <math.h> - -double G77_besj0_0 (const real *x) { - return j0 (*x); -} - -double G77_besj1_0 (const real *x) { - return j1 (*x); -} - -double G77_besjn_0 (const integer *n, real *x) { - return jn (*n, *x); - } - -double G77_besy0_0 (const real *x) { - return y0 (*x); -} - -double G77_besy1_0 (const real *x) { - return y1 (*x); -} - -double G77_besyn_0 (const integer *n, real *x) { - return yn (*n, *x); -} -#endif diff --git a/gnu/egcs/libf2c/libU77/chdir_.c b/gnu/egcs/libf2c/libU77/chdir_.c deleted file mode 100644 index 9bd53fb95d7..00000000000 --- a/gnu/egcs/libf2c/libU77/chdir_.c +++ /dev/null @@ -1,57 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#else -# include <stdio.h> -#endif - -#include <errno.h> -#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; - int i; - - buff = malloc (Lname+1); - if (!buff) return -1; - g_char (name, Lname, buff); - i = chdir (buff); - free (buff); - return i ? errno : 0; -} diff --git a/gnu/egcs/libf2c/libU77/chmod_.c b/gnu/egcs/libf2c/libU77/chmod_.c deleted file mode 100644 index d482d9ed828..00000000000 --- a/gnu/egcs/libf2c/libU77/chmod_.c +++ /dev/null @@ -1,82 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - - -/* This definitely shouldn't be done this way -- should canibalise - chmod(1) from GNU or BSD. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#else -# include <stdio.h> -#endif -#if STDC_HEADERS -# include <string.h> -#endif - -#include "f2c.h" - -#ifndef CHMOD_PATH -#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; - int i; - ftnlen l, l2; - ftnlen six = 6; - address a[6]; - ftnlen ii[6]; - char chmod_path [] = CHMOD_PATH; - l = strlen (chmod_path); - buff = malloc (Lname+Lmode+l+3+13+1); - if (!buff) return -1; - ii[0] = l; a[0] = chmod_path; - ii[1] = 1; a[1] = " "; - ii[2] = Lmode; a[2] = mode; - ii[3] = 2; a[3] = " '"; - for (l2=Lname; (l2 > 1) && (name[l2-1] == ' '); ) - l2--; - ii[4] = l2; a[4] = name; - ii[5] = 13; a[5] = "' 2>/dev/null"; - s_cat (buff, a, ii, &six, Lname+Lmode+l+3+13); - buff[Lname+Lmode+l+3+13] = '\0'; - i = system (buff); - free (buff); - return i; -} diff --git a/gnu/egcs/libf2c/libU77/config.hin b/gnu/egcs/libf2c/libU77/config.hin deleted file mode 100644 index 27a89c05bb9..00000000000 --- a/gnu/egcs/libf2c/libU77/config.hin +++ /dev/null @@ -1,109 +0,0 @@ -/* config.hin. Generated automatically from configure.in by autoheader. */ - -/* Define to empty if the keyword does not work. */ -#undef const - -/* Define if your struct stat has st_blksize. */ -#undef HAVE_ST_BLKSIZE - -/* Define if your struct stat has st_blocks. */ -#undef HAVE_ST_BLOCKS - -/* Define if your struct stat has st_rdev. */ -#undef HAVE_ST_RDEV - -/* Define to `int' if <sys/types.h> doesn't define. */ -#undef mode_t - -/* Define to `int' if <sys/types.h> doesn't define. */ -#undef pid_t - -/* Define to `unsigned' if <sys/types.h> doesn't define. */ -#undef size_t - -/* Define if you have the ANSI C header files. */ -#undef STDC_HEADERS - -/* Define if you can safely include both <sys/time.h> and <time.h>. */ -#undef TIME_WITH_SYS_TIME - -/* Define if your <sys/time.h> declares struct tm. */ -#undef TM_IN_SYS_TIME - -/* Define as the path of the `chmod' program. */ -#undef CHMOD_PATH - -/* Define if your sys/time.h defines struct timezone. */ -#undef HAVE_STRUCT_TIMEZONE - -/* Define if you have the alarm function. */ -#undef HAVE_ALARM - -/* Define if you have the clock function. */ -#undef HAVE_CLOCK - -/* Define if you have the getcwd function. */ -#undef HAVE_GETCWD - -/* Define if you have the getgid function. */ -#undef HAVE_GETGID - -/* Define if you have the gethostname function. */ -#undef HAVE_GETHOSTNAME - -/* Define if you have the getlogin function. */ -#undef HAVE_GETLOGIN - -/* 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 - -/* Define if you have the getwd function. */ -#undef HAVE_GETWD - -/* Define if you have the kill function. */ -#undef HAVE_KILL - -/* Define if you have the link function. */ -#undef HAVE_LINK - -/* Define if you have the lstat function. */ -#undef HAVE_LSTAT - -/* Define if you have the strerror function. */ -#undef HAVE_STRERROR - -/* Define if you have the symlink function. */ -#undef HAVE_SYMLINK - -/* Define if you have the times function. */ -#undef HAVE_TIMES - -/* Define if you have the ttyname function. */ -#undef HAVE_TTYNAME - -/* Define if you have the <limits.h> header file. */ -#undef HAVE_LIMITS_H - -/* Define if you have the <stdlib.h> header file. */ -#undef HAVE_STDLIB_H - -/* Define if you have the <string.h> header file. */ -#undef HAVE_STRING_H - -/* Define if you have the <sys/param.h> header file. */ -#undef HAVE_SYS_PARAM_H - -/* Define if you have the <sys/time.h> header file. */ -#undef HAVE_SYS_TIME_H - -/* Define if you have the <sys/times.h> header file. */ -#undef HAVE_SYS_TIMES_H - -/* Define if you have the <unistd.h> header file. */ -#undef HAVE_UNISTD_H diff --git a/gnu/egcs/libf2c/libU77/configure b/gnu/egcs/libf2c/libU77/configure deleted file mode 100644 index fc8a4908c9f..00000000000 --- a/gnu/egcs/libf2c/libU77/configure +++ /dev/null @@ -1,1907 +0,0 @@ -#! /bin/sh - -# Guess values for system-dependent variables and create Makefiles. -# Generated automatically using autoconf version 2.13 -# Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc. -# -# This configure script is free software; the Free Software Foundation -# gives unlimited permission to copy, distribute and modify it. - -# Defaults: -ac_help= -ac_default_prefix=/usr/local -# Any additions from configure.in: - -# Initialize some variables set by options. -# The variables have the same names as the options, with -# dashes changed to underlines. -build=NONE -cache_file=./config.cache -exec_prefix=NONE -host=NONE -no_create= -nonopt=NONE -no_recursion= -prefix=NONE -program_prefix=NONE -program_suffix=NONE -program_transform_name=s,x,x, -silent= -site= -srcdir= -target=NONE -verbose= -x_includes=NONE -x_libraries=NONE -bindir='${exec_prefix}/bin' -sbindir='${exec_prefix}/sbin' -libexecdir='${exec_prefix}/libexec' -datadir='${prefix}/share' -sysconfdir='${prefix}/etc' -sharedstatedir='${prefix}/com' -localstatedir='${prefix}/var' -libdir='${exec_prefix}/lib' -includedir='${prefix}/include' -oldincludedir='/usr/include' -infodir='${prefix}/info' -mandir='${prefix}/man' - -# Initialize some other variables. -subdirs= -MFLAGS= MAKEFLAGS= -SHELL=${CONFIG_SHELL-/bin/sh} -# Maximum number of lines to put in a shell here document. -ac_max_here_lines=12 - -ac_prev= -for ac_option -do - - # If the previous option needs an argument, assign it. - if test -n "$ac_prev"; then - eval "$ac_prev=\$ac_option" - ac_prev= - continue - fi - - case "$ac_option" in - -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;; - *) ac_optarg= ;; - esac - - # Accept the important Cygnus configure options, so we can diagnose typos. - - case "$ac_option" in - - -bindir | --bindir | --bindi | --bind | --bin | --bi) - ac_prev=bindir ;; - -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) - bindir="$ac_optarg" ;; - - -build | --build | --buil | --bui | --bu) - ac_prev=build ;; - -build=* | --build=* | --buil=* | --bui=* | --bu=*) - build="$ac_optarg" ;; - - -cache-file | --cache-file | --cache-fil | --cache-fi \ - | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) - ac_prev=cache_file ;; - -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ - | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) - cache_file="$ac_optarg" ;; - - -datadir | --datadir | --datadi | --datad | --data | --dat | --da) - ac_prev=datadir ;; - -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ - | --da=*) - datadir="$ac_optarg" ;; - - -disable-* | --disable-*) - ac_feature=`echo $ac_option|sed -e 's/-*disable-//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then - { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } - fi - ac_feature=`echo $ac_feature| sed 's/-/_/g'` - eval "enable_${ac_feature}=no" ;; - - -enable-* | --enable-*) - ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then - { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } - fi - ac_feature=`echo $ac_feature| sed 's/-/_/g'` - case "$ac_option" in - *=*) ;; - *) ac_optarg=yes ;; - esac - eval "enable_${ac_feature}='$ac_optarg'" ;; - - -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ - | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ - | --exec | --exe | --ex) - ac_prev=exec_prefix ;; - -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ - | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ - | --exec=* | --exe=* | --ex=*) - exec_prefix="$ac_optarg" ;; - - -gas | --gas | --ga | --g) - # Obsolete; use --with-gas. - with_gas=yes ;; - - -help | --help | --hel | --he) - # Omit some internal or obsolete options to make the list less imposing. - # This message is too long to be a string in the A/UX 3.1 sh. - cat << EOF -Usage: configure [options] [host] -Options: [defaults in brackets after descriptions] -Configuration: - --cache-file=FILE cache test results in FILE - --help print this message - --no-create do not create output files - --quiet, --silent do not print \`checking...' messages - --version print the version of autoconf that created configure -Directory and file names: - --prefix=PREFIX install architecture-independent files in PREFIX - [$ac_default_prefix] - --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX - [same as prefix] - --bindir=DIR user executables in DIR [EPREFIX/bin] - --sbindir=DIR system admin executables in DIR [EPREFIX/sbin] - --libexecdir=DIR program executables in DIR [EPREFIX/libexec] - --datadir=DIR read-only architecture-independent data in DIR - [PREFIX/share] - --sysconfdir=DIR read-only single-machine data in DIR [PREFIX/etc] - --sharedstatedir=DIR modifiable architecture-independent data in DIR - [PREFIX/com] - --localstatedir=DIR modifiable single-machine data in DIR [PREFIX/var] - --libdir=DIR object code libraries in DIR [EPREFIX/lib] - --includedir=DIR C header files in DIR [PREFIX/include] - --oldincludedir=DIR C header files for non-gcc in DIR [/usr/include] - --infodir=DIR info documentation in DIR [PREFIX/info] - --mandir=DIR man documentation in DIR [PREFIX/man] - --srcdir=DIR find the sources in DIR [configure dir or ..] - --program-prefix=PREFIX prepend PREFIX to installed program names - --program-suffix=SUFFIX append SUFFIX to installed program names - --program-transform-name=PROGRAM - run sed PROGRAM on installed program names -EOF - cat << EOF -Host type: - --build=BUILD configure for building on BUILD [BUILD=HOST] - --host=HOST configure for HOST [guessed] - --target=TARGET configure for TARGET [TARGET=HOST] -Features and packages: - --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) - --enable-FEATURE[=ARG] include FEATURE [ARG=yes] - --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] - --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) - --x-includes=DIR X include files are in DIR - --x-libraries=DIR X library files are in DIR -EOF - if test -n "$ac_help"; then - echo "--enable and --with options recognized:$ac_help" - fi - exit 0 ;; - - -host | --host | --hos | --ho) - ac_prev=host ;; - -host=* | --host=* | --hos=* | --ho=*) - host="$ac_optarg" ;; - - -includedir | --includedir | --includedi | --included | --include \ - | --includ | --inclu | --incl | --inc) - ac_prev=includedir ;; - -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ - | --includ=* | --inclu=* | --incl=* | --inc=*) - includedir="$ac_optarg" ;; - - -infodir | --infodir | --infodi | --infod | --info | --inf) - ac_prev=infodir ;; - -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) - infodir="$ac_optarg" ;; - - -libdir | --libdir | --libdi | --libd) - ac_prev=libdir ;; - -libdir=* | --libdir=* | --libdi=* | --libd=*) - libdir="$ac_optarg" ;; - - -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ - | --libexe | --libex | --libe) - ac_prev=libexecdir ;; - -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ - | --libexe=* | --libex=* | --libe=*) - libexecdir="$ac_optarg" ;; - - -localstatedir | --localstatedir | --localstatedi | --localstated \ - | --localstate | --localstat | --localsta | --localst \ - | --locals | --local | --loca | --loc | --lo) - ac_prev=localstatedir ;; - -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ - | --localstate=* | --localstat=* | --localsta=* | --localst=* \ - | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) - localstatedir="$ac_optarg" ;; - - -mandir | --mandir | --mandi | --mand | --man | --ma | --m) - ac_prev=mandir ;; - -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) - mandir="$ac_optarg" ;; - - -nfp | --nfp | --nf) - # Obsolete; use --without-fp. - with_fp=no ;; - - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c) - no_create=yes ;; - - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) - no_recursion=yes ;; - - -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ - | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ - | --oldin | --oldi | --old | --ol | --o) - ac_prev=oldincludedir ;; - -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ - | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ - | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) - oldincludedir="$ac_optarg" ;; - - -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) - ac_prev=prefix ;; - -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) - prefix="$ac_optarg" ;; - - -program-prefix | --program-prefix | --program-prefi | --program-pref \ - | --program-pre | --program-pr | --program-p) - ac_prev=program_prefix ;; - -program-prefix=* | --program-prefix=* | --program-prefi=* \ - | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) - program_prefix="$ac_optarg" ;; - - -program-suffix | --program-suffix | --program-suffi | --program-suff \ - | --program-suf | --program-su | --program-s) - ac_prev=program_suffix ;; - -program-suffix=* | --program-suffix=* | --program-suffi=* \ - | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) - program_suffix="$ac_optarg" ;; - - -program-transform-name | --program-transform-name \ - | --program-transform-nam | --program-transform-na \ - | --program-transform-n | --program-transform- \ - | --program-transform | --program-transfor \ - | --program-transfo | --program-transf \ - | --program-trans | --program-tran \ - | --progr-tra | --program-tr | --program-t) - ac_prev=program_transform_name ;; - -program-transform-name=* | --program-transform-name=* \ - | --program-transform-nam=* | --program-transform-na=* \ - | --program-transform-n=* | --program-transform-=* \ - | --program-transform=* | --program-transfor=* \ - | --program-transfo=* | --program-transf=* \ - | --program-trans=* | --program-tran=* \ - | --progr-tra=* | --program-tr=* | --program-t=*) - program_transform_name="$ac_optarg" ;; - - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil) - silent=yes ;; - - -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) - ac_prev=sbindir ;; - -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ - | --sbi=* | --sb=*) - sbindir="$ac_optarg" ;; - - -sharedstatedir | --sharedstatedir | --sharedstatedi \ - | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ - | --sharedst | --shareds | --shared | --share | --shar \ - | --sha | --sh) - ac_prev=sharedstatedir ;; - -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ - | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ - | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ - | --sha=* | --sh=*) - sharedstatedir="$ac_optarg" ;; - - -site | --site | --sit) - ac_prev=site ;; - -site=* | --site=* | --sit=*) - site="$ac_optarg" ;; - - -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) - ac_prev=srcdir ;; - -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) - srcdir="$ac_optarg" ;; - - -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ - | --syscon | --sysco | --sysc | --sys | --sy) - ac_prev=sysconfdir ;; - -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ - | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) - sysconfdir="$ac_optarg" ;; - - -target | --target | --targe | --targ | --tar | --ta | --t) - ac_prev=target ;; - -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) - target="$ac_optarg" ;; - - -v | -verbose | --verbose | --verbos | --verbo | --verb) - verbose=yes ;; - - -version | --version | --versio | --versi | --vers) - echo "configure generated by autoconf version 2.13" - exit 0 ;; - - -with-* | --with-*) - ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then - { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } - fi - ac_package=`echo $ac_package| sed 's/-/_/g'` - case "$ac_option" in - *=*) ;; - *) ac_optarg=yes ;; - esac - eval "with_${ac_package}='$ac_optarg'" ;; - - -without-* | --without-*) - ac_package=`echo $ac_option|sed -e 's/-*without-//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then - { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } - fi - ac_package=`echo $ac_package| sed 's/-/_/g'` - eval "with_${ac_package}=no" ;; - - --x) - # Obsolete; use --with-x. - with_x=yes ;; - - -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ - | --x-incl | --x-inc | --x-in | --x-i) - ac_prev=x_includes ;; - -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ - | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) - x_includes="$ac_optarg" ;; - - -x-libraries | --x-libraries | --x-librarie | --x-librari \ - | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) - ac_prev=x_libraries ;; - -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ - | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) - x_libraries="$ac_optarg" ;; - - -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; } - ;; - - *) - if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then - echo "configure: warning: $ac_option: invalid host type" 1>&2 - fi - if test "x$nonopt" != xNONE; then - { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } - fi - nonopt="$ac_option" - ;; - - esac -done - -if test -n "$ac_prev"; then - { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; } -fi - -trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 - -# File descriptor usage: -# 0 standard input -# 1 file creation -# 2 errors and warnings -# 3 some systems may open it to /dev/tty -# 4 used on the Kubota Titan -# 6 checking for... messages and results -# 5 compiler messages saved in config.log -if test "$silent" = yes; then - exec 6>/dev/null -else - exec 6>&1 -fi -exec 5>./config.log - -echo "\ -This file contains any messages produced by compilers while -running configure, to aid debugging if configure makes a mistake. -" 1>&5 - -# Strip out --no-create and --no-recursion so they do not pile up. -# Also quote any args containing shell metacharacters. -ac_configure_args= -for ac_arg -do - case "$ac_arg" in - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c) ;; - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;; - *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*) - ac_configure_args="$ac_configure_args '$ac_arg'" ;; - *) ac_configure_args="$ac_configure_args $ac_arg" ;; - esac -done - -# NLS nuisances. -# Only set these to C if already set. These must not be set unconditionally -# because not all systems understand e.g. LANG=C (notably SCO). -# Fixing LC_MESSAGES prevents Solaris sh from translating var values in `set'! -# Non-C LC_CTYPE values break the ctype check. -if test "${LANG+set}" = set; then LANG=C; export LANG; fi -if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi -if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi -if test "${LC_CTYPE+set}" = set; then LC_CTYPE=C; export LC_CTYPE; fi - -# confdefs.h avoids OS command line length limits that DEFS can exceed. -rm -rf conftest* confdefs.h -# AIX cpp loses on an empty file, so make sure it contains at least a newline. -echo > confdefs.h - -# A filename unique to this package, relative to the directory that -# configure is in, which we can look for to find out if srcdir is correct. -ac_unique_file=access_.c - -# Find the source files, if location was not specified. -if test -z "$srcdir"; then - ac_srcdir_defaulted=yes - # Try the directory containing this script, then its parent. - ac_prog=$0 - ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'` - test "x$ac_confdir" = "x$ac_prog" && ac_confdir=. - srcdir=$ac_confdir - if test ! -r $srcdir/$ac_unique_file; then - srcdir=.. - fi -else - ac_srcdir_defaulted=no -fi -if test ! -r $srcdir/$ac_unique_file; then - if test "$ac_srcdir_defaulted" = yes; then - { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; } - else - { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; } - fi -fi -srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'` - -# Prefer explicitly selected file to automatically selected ones. -if test -z "$CONFIG_SITE"; then - if test "x$prefix" != xNONE; then - CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" - else - CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" - fi -fi -for ac_site_file in $CONFIG_SITE; do - if test -r "$ac_site_file"; then - echo "loading site script $ac_site_file" - . "$ac_site_file" - fi -done - -if test -r "$cache_file"; then - echo "loading cache $cache_file" - . $cache_file -else - echo "creating cache $cache_file" - > $cache_file -fi - -ac_ext=c -# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. -ac_cpp='$CPP $CPPFLAGS' -ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' -ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -cross_compiling=$ac_cv_prog_cc_cross - -ac_exeext= -ac_objext=o -if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then - # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu. - if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then - ac_n= ac_c=' -' ac_t=' ' - else - ac_n=-n ac_c= ac_t= - fi -else - ac_n= ac_c='\c' ac_t= -fi - - - - -# For g77 we'll set CC to point at the built gcc, but this will get it into -# the makefiles -# Extract the first word of "gcc", so it can be a program name with args. -set dummy gcc; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:532: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_CC="gcc" - break - fi - done - IFS="$ac_save_ifs" -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - -if test -z "$CC"; then - # Extract the first word of "cc", so it can be a program name with args. -set dummy cc; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:562: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_prog_rejected=no - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - if test "$ac_dir/$ac_word" = "/usr/ucb/cc"; then - ac_prog_rejected=yes - continue - fi - ac_cv_prog_CC="cc" - break - fi - done - IFS="$ac_save_ifs" -if test $ac_prog_rejected = yes; then - # We found a bogon in the path, so make sure we never use it. - set dummy $ac_cv_prog_CC - shift - if test $# -gt 0; then - # We chose a different compiler from the bogus one. - # However, it has the same basename, so the bogon will be chosen - # first if we set CC to just the basename; use the full file name. - shift - set dummy "$ac_dir/$ac_word" "$@" - shift - ac_cv_prog_CC="$@" - fi -fi -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - - if test -z "$CC"; then - case "`uname -s`" in - *win32* | *WIN32*) - # Extract the first word of "cl", so it can be a program name with args. -set dummy cl; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:613: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_CC="cl" - break - fi - done - IFS="$ac_save_ifs" -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - ;; - esac - fi - test -z "$CC" && { echo "configure: error: no acceptable cc found in \$PATH" 1>&2; exit 1; } -fi - -echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works""... $ac_c" 1>&6 -echo "configure:645: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works" >&5 - -ac_ext=c -# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. -ac_cpp='$CPP $CPPFLAGS' -ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' -ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -cross_compiling=$ac_cv_prog_cc_cross - -cat > conftest.$ac_ext << EOF - -#line 656 "configure" -#include "confdefs.h" - -main(){return(0);} -EOF -if { (eval echo configure:661: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - ac_cv_prog_cc_works=yes - # If we can't run a trivial program, we are probably using a cross compiler. - if (./conftest; exit) 2>/dev/null; then - ac_cv_prog_cc_cross=no - else - ac_cv_prog_cc_cross=yes - fi -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - ac_cv_prog_cc_works=no -fi -rm -fr conftest* -ac_ext=c -# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. -ac_cpp='$CPP $CPPFLAGS' -ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' -ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -cross_compiling=$ac_cv_prog_cc_cross - -echo "$ac_t""$ac_cv_prog_cc_works" 1>&6 -if test $ac_cv_prog_cc_works = no; then - { echo "configure: error: installation or configuration problem: C compiler cannot create executables." 1>&2; exit 1; } -fi -echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler""... $ac_c" 1>&6 -echo "configure:687: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler" >&5 -echo "$ac_t""$ac_cv_prog_cc_cross" 1>&6 -cross_compiling=$ac_cv_prog_cc_cross - -echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6 -echo "configure:692: checking whether we are using GNU C" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.c <<EOF -#ifdef __GNUC__ - yes; -#endif -EOF -if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:701: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then - ac_cv_prog_gcc=yes -else - ac_cv_prog_gcc=no -fi -fi - -echo "$ac_t""$ac_cv_prog_gcc" 1>&6 - -if test $ac_cv_prog_gcc = yes; then - GCC=yes -else - GCC= -fi - -ac_test_CFLAGS="${CFLAGS+set}" -ac_save_CFLAGS="$CFLAGS" -CFLAGS= -echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6 -echo "configure:720: checking whether ${CC-cc} accepts -g" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - echo 'void f(){}' > conftest.c -if test -z "`${CC-cc} -g -c conftest.c 2>&1`"; then - ac_cv_prog_cc_g=yes -else - ac_cv_prog_cc_g=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$ac_cv_prog_cc_g" 1>&6 -if test "$ac_test_CFLAGS" = set; then - CFLAGS="$ac_save_CFLAGS" -elif test $ac_cv_prog_cc_g = yes; then - if test "$GCC" = yes; then - CFLAGS="-g -O2" - else - CFLAGS="-g" - fi -else - if test "$GCC" = yes; then - CFLAGS="-O2" - else - CFLAGS= - fi -fi - -if test "$CROSS";then - ac_cv_c_cross=yes -else - ac_cv_c_cross=no -fi - -test "$AR" || AR=ar - -echo $ac_n "checking whether ${MAKE-make} sets \${MAKE}""... $ac_c" 1>&6 -echo "configure:760: checking whether ${MAKE-make} sets \${MAKE}" >&5 -set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y%./+-%__p_%'` -if eval "test \"`echo '$''{'ac_cv_prog_make_${ac_make}_set'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftestmake <<\EOF -all: - @echo 'ac_maketemp="${MAKE}"' -EOF -# GNU make sometimes prints "make[1]: Entering...", which would confuse us. -eval `${MAKE-make} -f conftestmake 2>/dev/null | grep temp=` -if test -n "$ac_maketemp"; then - eval ac_cv_prog_make_${ac_make}_set=yes -else - eval ac_cv_prog_make_${ac_make}_set=no -fi -rm -f conftestmake -fi -if eval "test \"`echo '$ac_cv_prog_make_'${ac_make}_set`\" = yes"; then - echo "$ac_t""yes" 1>&6 - SET_MAKE= -else - echo "$ac_t""no" 1>&6 - SET_MAKE="MAKE=${MAKE-make}" -fi - - -# Extract the first word of "chmod", so it can be a program name with args. -set dummy chmod; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:790: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_path_ac_cv_prog_chmod'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - case "$ac_cv_prog_chmod" in - /*) - ac_cv_path_ac_cv_prog_chmod="$ac_cv_prog_chmod" # Let the user override the test with a path. - ;; - ?:/*) - ac_cv_path_ac_cv_prog_chmod="$ac_cv_prog_chmod" # Let the user override the test with a dos path. - ;; - *) - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_path_ac_cv_prog_chmod="$ac_dir/$ac_word" - break - fi - done - IFS="$ac_save_ifs" - test -z "$ac_cv_path_ac_cv_prog_chmod" && ac_cv_path_ac_cv_prog_chmod="no" - ;; -esac -fi -ac_cv_prog_chmod="$ac_cv_path_ac_cv_prog_chmod" -if test -n "$ac_cv_prog_chmod"; then - echo "$ac_t""$ac_cv_prog_chmod" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - -if test "$ac_cv_prog_chmod" != no || test "$CROSS"; then - MAYBES=chmod_.o - cat >> confdefs.h <<EOF -#define CHMOD_PATH "$ac_cv_prog_chmod" -EOF - -else - MAYBES="" -fi - -echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6 -echo "configure:834: checking how to run the C preprocessor" >&5 -# On Suns, sometimes $CPP names a directory. -if test -n "$CPP" && test -d "$CPP"; then - CPP= -fi -if test -z "$CPP"; then -if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - # This must be in double quotes, not single quotes, because CPP may get - # substituted into the Makefile and "${CC-cc}" will confuse make. - CPP="${CC-cc} -E" - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. - cat > conftest.$ac_ext <<EOF -#line 849 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:855: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP="${CC-cc} -E -traditional-cpp" - cat > conftest.$ac_ext <<EOF -#line 866 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:872: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP="${CC-cc} -nologo -E" - cat > conftest.$ac_ext <<EOF -#line 883 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:889: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP=/lib/cpp -fi -rm -f conftest* -fi -rm -f conftest* -fi -rm -f conftest* - ac_cv_prog_CPP="$CPP" -fi - CPP="$ac_cv_prog_CPP" -else - ac_cv_prog_CPP="$CPP" -fi -echo "$ac_t""$CPP" 1>&6 - -echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6 -echo "configure:914: checking for ANSI C header files" >&5 -if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 919 "configure" -#include "confdefs.h" -#include <stdlib.h> -#include <stdarg.h> -#include <string.h> -#include <float.h> -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:927: \"$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* - ac_cv_header_stdc=yes -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -if test $ac_cv_header_stdc = yes; then - # SunOS 4.x string.h does not declare mem*, contrary to ANSI. -cat > conftest.$ac_ext <<EOF -#line 944 "configure" -#include "confdefs.h" -#include <string.h> -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "memchr" >/dev/null 2>&1; then - : -else - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. -cat > conftest.$ac_ext <<EOF -#line 962 "configure" -#include "confdefs.h" -#include <stdlib.h> -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "free" >/dev/null 2>&1; then - : -else - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. -if test "$cross_compiling" = yes; then - : -else - cat > conftest.$ac_ext <<EOF -#line 983 "configure" -#include "confdefs.h" -#include <ctype.h> -#define ISLOWER(c) ('a' <= (c) && (c) <= 'z') -#define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) -#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) -int main () { int i; for (i = 0; i < 256; i++) -if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2); -exit (0); } - -EOF -if { (eval echo configure:994: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null -then - : -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -fr conftest* - ac_cv_header_stdc=no -fi -rm -fr conftest* -fi - -fi -fi - -echo "$ac_t""$ac_cv_header_stdc" 1>&6 -if test $ac_cv_header_stdc = yes; then - cat >> confdefs.h <<\EOF -#define STDC_HEADERS 1 -EOF - -fi - - -echo $ac_n "checking whether time.h and sys/time.h may both be included""... $ac_c" 1>&6 -echo "configure:1019: 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 1024 "configure" -#include "confdefs.h" -#include <sys/types.h> -#include <sys/time.h> -#include <time.h> -int main() { -struct tm *tp; -; return 0; } -EOF -if { (eval echo configure:1033: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_header_time=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_header_time=no -fi -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_header_time" 1>&6 -if test $ac_cv_header_time = yes; then - cat >> confdefs.h <<\EOF -#define TIME_WITH_SYS_TIME 1 -EOF - -fi - -for ac_hdr in limits.h unistd.h sys/time.h string.h stdlib.h \ - sys/param.h sys/times.h -do -ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` -echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6 -echo "configure:1058: 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 1063 "configure" -#include "confdefs.h" -#include <$ac_hdr> -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:1068: \"$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* - eval "ac_cv_header_$ac_safe=yes" -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_header_$ac_safe=no" -fi -rm -f conftest* -fi -if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then - echo "$ac_t""yes" 1>&6 - ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'` - cat >> confdefs.h <<EOF -#define $ac_tr_hdr 1 -EOF - -else - echo "$ac_t""no" 1>&6 -fi -done - - -echo $ac_n "checking for working const""... $ac_c" 1>&6 -echo "configure:1096: 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 1101 "configure" -#include "confdefs.h" - -int main() { - -/* Ultrix mips cc rejects this. */ -typedef int charset[2]; const charset x; -/* SunOS 4.1.1 cc rejects this. */ -char const *const *ccp; -char **p; -/* NEC SVR4.0.2 mips cc rejects this. */ -struct point {int x, y;}; -static struct point const zero = {0,0}; -/* AIX XL C 1.02.0.0 rejects this. - It does not let you subtract one const X* pointer from another in an arm - of an if-expression whose if-part is not a constant expression */ -const char *g = "string"; -ccp = &g + (g ? g-g : 0); -/* HPUX 7.0 cc rejects these. */ -++ccp; -p = (char**) ccp; -ccp = (char const *const *) p; -{ /* SCO 3.2v4 cc rejects this. */ - char *t; - char const *s = 0 ? (char *) 0 : (char const *) 0; - - *t++ = 0; -} -{ /* Someone thinks the Sun supposedly-ANSI compiler will reject this. */ - int x[] = {25, 17}; - const int *foo = &x[0]; - ++foo; -} -{ /* Sun SC1.0 ANSI compiler rejects this -- but not the above. */ - typedef const int *iptr; - iptr p = 0; - ++p; -} -{ /* AIX XL C 1.02.0.0 rejects this saying - "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */ - struct s { int j; const int *ap[3]; }; - struct s *b; b->j = 5; -} -{ /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */ - const int foo = 10; -} - -; return 0; } -EOF -if { (eval echo configure:1150: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_c_const=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_c_const=no -fi -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_c_const" 1>&6 -if test $ac_cv_c_const = no; then - cat >> confdefs.h <<\EOF -#define const -EOF - -fi - -echo $ac_n "checking for size_t""... $ac_c" 1>&6 -echo "configure:1171: 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 1176 "configure" -#include "confdefs.h" -#include <sys/types.h> -#if STDC_HEADERS -#include <stdlib.h> -#include <stddef.h> -#endif -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "(^|[^a-zA-Z_0-9])size_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then - rm -rf conftest* - ac_cv_type_size_t=yes -else - rm -rf conftest* - ac_cv_type_size_t=no -fi -rm -f conftest* - -fi -echo "$ac_t""$ac_cv_type_size_t" 1>&6 -if test $ac_cv_type_size_t = no; then - cat >> confdefs.h <<\EOF -#define size_t unsigned -EOF - -fi - -echo $ac_n "checking for mode_t""... $ac_c" 1>&6 -echo "configure:1204: 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 1209 "configure" -#include "confdefs.h" -#include <sys/types.h> -#if STDC_HEADERS -#include <stdlib.h> -#include <stddef.h> -#endif -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "(^|[^a-zA-Z_0-9])mode_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then - rm -rf conftest* - ac_cv_type_mode_t=yes -else - rm -rf conftest* - ac_cv_type_mode_t=no -fi -rm -f conftest* - -fi -echo "$ac_t""$ac_cv_type_mode_t" 1>&6 -if test $ac_cv_type_mode_t = no; then - cat >> confdefs.h <<\EOF -#define mode_t int -EOF - -fi - - -echo $ac_n "checking for pid_t""... $ac_c" 1>&6 -echo "configure:1238: 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 1243 "configure" -#include "confdefs.h" -#include <sys/types.h> -#if STDC_HEADERS -#include <stdlib.h> -#include <stddef.h> -#endif -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "(^|[^a-zA-Z_0-9])pid_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then - rm -rf conftest* - ac_cv_type_pid_t=yes -else - rm -rf conftest* - ac_cv_type_pid_t=no -fi -rm -f conftest* - -fi -echo "$ac_t""$ac_cv_type_pid_t" 1>&6 -if test $ac_cv_type_pid_t = no; then - cat >> confdefs.h <<\EOF -#define pid_t int -EOF - -fi - -echo $ac_n "checking for st_blksize in struct stat""... $ac_c" 1>&6 -echo "configure:1271: 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 1276 "configure" -#include "confdefs.h" -#include <sys/types.h> -#include <sys/stat.h> -int main() { -struct stat s; s.st_blksize; -; return 0; } -EOF -if { (eval echo configure:1284: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_struct_st_blksize=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_struct_st_blksize=no -fi -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_struct_st_blksize" 1>&6 -if test $ac_cv_struct_st_blksize = yes; then - cat >> confdefs.h <<\EOF -#define HAVE_ST_BLKSIZE 1 -EOF - -fi - -echo $ac_n "checking for st_blocks in struct stat""... $ac_c" 1>&6 -echo "configure:1305: 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 1310 "configure" -#include "confdefs.h" -#include <sys/types.h> -#include <sys/stat.h> -int main() { -struct stat s; s.st_blocks; -; return 0; } -EOF -if { (eval echo configure:1318: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_struct_st_blocks=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_struct_st_blocks=no -fi -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_struct_st_blocks" 1>&6 -if test $ac_cv_struct_st_blocks = yes; then - cat >> confdefs.h <<\EOF -#define HAVE_ST_BLOCKS 1 -EOF - -else - LIBOBJS="$LIBOBJS fileblocks.${ac_objext}" -fi - -echo $ac_n "checking for st_rdev in struct stat""... $ac_c" 1>&6 -echo "configure:1341: 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 1346 "configure" -#include "confdefs.h" -#include <sys/types.h> -#include <sys/stat.h> -int main() { -struct stat s; s.st_rdev; -; return 0; } -EOF -if { (eval echo configure:1354: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_struct_st_rdev=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_struct_st_rdev=no -fi -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_struct_st_rdev" 1>&6 -if test $ac_cv_struct_st_rdev = yes; then - cat >> confdefs.h <<\EOF -#define HAVE_ST_RDEV 1 -EOF - -fi - -echo $ac_n "checking whether struct tm is in sys/time.h or time.h""... $ac_c" 1>&6 -echo "configure:1375: 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 1380 "configure" -#include "confdefs.h" -#include <sys/types.h> -#include <time.h> -int main() { -struct tm *tp; tp->tm_sec; -; return 0; } -EOF -if { (eval echo configure:1388: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_struct_tm=time.h -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_struct_tm=sys/time.h -fi -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_struct_tm" 1>&6 -if test $ac_cv_struct_tm = sys/time.h; then - cat >> confdefs.h <<\EOF -#define TM_IN_SYS_TIME 1 -EOF - -fi - - -echo $ac_n "checking for gethostname in -lsocket""... $ac_c" 1>&6 -echo "configure:1410: 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 -else - ac_save_LIBS="$LIBS" -LIBS="-lsocket $LIBS" -cat > conftest.$ac_ext <<EOF -#line 1418 "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 - builtin and then its argument prototype would still apply. */ -char gethostname(); - -int main() { -gethostname() -; return 0; } -EOF -if { (eval echo configure:1429: \"$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 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_lib_$ac_lib_var=no" -fi -rm -f conftest* -LIBS="$ac_save_LIBS" - -fi -if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then - echo "$ac_t""yes" 1>&6 - LIBS="$LIBS -lsocket" -else - echo "$ac_t""no" 1>&6 -fi - - - -for ac_func in symlink getcwd getwd lstat gethostname strerror clock \ - getrusage times alarm getlogin getgid getuid kill link ttyname \ - gettimeofday -do -echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 -echo "configure:1456: 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 1461 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $ac_func(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char $ac_func(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_$ac_func) || defined (__stub___$ac_func) -choke me -#else -$ac_func(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1484: \"$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 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_$ac_func=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then - echo "$ac_t""yes" 1>&6 - ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'` - cat >> confdefs.h <<EOF -#define $ac_tr_func 1 -EOF - -else - echo "$ac_t""no" 1>&6 -fi -done - -test $ac_cv_func_symlink = yes && MAYBES="$MAYBES symlnk_.o" -test $ac_cv_func_lstat = yes && MAYBES="$MAYBES lstat_.o" -test $ac_cv_func_gethostname = yes && MAYBES="$MAYBES hostnm_.o" -test $ac_cv_func_clock = yes && MAYBES="$MAYBES mclock_.o" - - -echo $ac_n "checking whether struct timezone exists""... $ac_c" 1>&6 -echo "configure:1515: checking whether struct timezone exists" >&5 -if eval "test \"`echo '$''{'libu77_cv_have_struct_timezone'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1520 "configure" -#include "confdefs.h" -#include <sys/time.h> -int main() { -struct timezone tz; -; return 0; } -EOF -if { (eval echo configure:1527: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - libu77_ac_have_struct_timezone=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - libu77_ac_have_struct_timezone=no -fi -rm -f conftest* -fi - -if test $libu77_ac_have_struct_timezone = yes; then - echo "$ac_t""yes" 1>&6 - cat >> confdefs.h <<EOF -#define HAVE_STRUCT_TIMEZONE 1 -EOF - -else - echo "$ac_t""no" 1>&6 -fi - - - - - -trap '' 1 2 15 -cat > confcache <<\EOF -# This file is a shell script that caches the results of configure -# tests run on this system so they can be shared between configure -# scripts and configure runs. It is not useful on other systems. -# If it contains results you don't want to keep, you may remove or edit it. -# -# By default, configure uses ./config.cache as the cache file, -# creating it if it does not exist already. You can give configure -# the --cache-file=FILE option to use a different cache file; that is -# what configure does when it calls configure scripts in -# subdirectories, so they share the cache. -# Giving --cache-file=/dev/null disables caching, for debugging configure. -# config.status only pays attention to the cache file if you give it the -# --recheck option to rerun configure. -# -EOF -# The following way of writing the cache mishandles newlines in values, -# but we know of no workaround that is simple, portable, and efficient. -# So, don't put newlines in cache variables' values. -# Ultrix sh set writes to stderr and can't be redirected directly, -# and sets the high bit in the cache file unless we assign to the vars. -(set) 2>&1 | - case `(ac_space=' '; set | grep ac_space) 2>&1` in - *ac_space=\ *) - # `set' does not quote correctly, so add quotes (double-quote substitution - # turns \\\\ into \\, and sed turns \\ into \). - sed -n \ - -e "s/'/'\\\\''/g" \ - -e "s/^\\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\\)=\\(.*\\)/\\1=\${\\1='\\2'}/p" - ;; - *) - # `set' quotes correctly as required by POSIX, so do not add quotes. - sed -n -e 's/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=${\1=\2}/p' - ;; - esac >> confcache -if cmp -s $cache_file confcache; then - : -else - if test -w $cache_file; then - echo "updating cache $cache_file" - cat confcache > $cache_file - else - echo "not updating unwritable cache $cache_file" - fi -fi -rm -f confcache - -trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 - -test "x$prefix" = xNONE && prefix=$ac_default_prefix -# Let make expand exec_prefix. -test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' - -# Any assignment to VPATH causes Sun make to only execute -# the first set of double-colon rules, so remove it if not needed. -# If there is a colon in the path, we need to keep it. -if test "x$srcdir" = x.; then - ac_vpsub='/^[ ]*VPATH[ ]*=[^:]*$/d' -fi - -trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15 - -DEFS=-DHAVE_CONFIG_H - -# Without the "./", some shells look in PATH for config.status. -: ${CONFIG_STATUS=./config.status} - -echo creating $CONFIG_STATUS -rm -f $CONFIG_STATUS -cat > $CONFIG_STATUS <<EOF -#! /bin/sh -# Generated automatically by configure. -# Run this file to recreate the current configuration. -# This directory was configured as follows, -# on host `(hostname || uname -n) 2>/dev/null | sed 1q`: -# -# $0 $ac_configure_args -# -# Compiler output produced by configure, useful for debugging -# configure, is in ./config.log if it exists. - -ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]" -for ac_option -do - case "\$ac_option" in - -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) - echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion" - exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;; - -version | --version | --versio | --versi | --vers | --ver | --ve | --v) - echo "$CONFIG_STATUS generated by autoconf version 2.13" - exit 0 ;; - -help | --help | --hel | --he | --h) - echo "\$ac_cs_usage"; exit 0 ;; - *) echo "\$ac_cs_usage"; exit 1 ;; - esac -done - -ac_given_srcdir=$srcdir - -trap 'rm -fr `echo "Makefile config.h:config.hin" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15 -EOF -cat >> $CONFIG_STATUS <<EOF - -# Protect against being on the right side of a sed subst in config.status. -sed 's/%@/@@/; s/@%/@@/; s/%g\$/@g/; /@g\$/s/[\\\\&%]/\\\\&/g; - s/@@/%@/; s/@@/@%/; s/@g\$/%g/' > conftest.subs <<\\CEOF -$ac_vpsub -$extrasub -s%@SHELL@%$SHELL%g -s%@CFLAGS@%$CFLAGS%g -s%@CPPFLAGS@%$CPPFLAGS%g -s%@CXXFLAGS@%$CXXFLAGS%g -s%@FFLAGS@%$FFLAGS%g -s%@DEFS@%$DEFS%g -s%@LDFLAGS@%$LDFLAGS%g -s%@LIBS@%$LIBS%g -s%@exec_prefix@%$exec_prefix%g -s%@prefix@%$prefix%g -s%@program_transform_name@%$program_transform_name%g -s%@bindir@%$bindir%g -s%@sbindir@%$sbindir%g -s%@libexecdir@%$libexecdir%g -s%@datadir@%$datadir%g -s%@sysconfdir@%$sysconfdir%g -s%@sharedstatedir@%$sharedstatedir%g -s%@localstatedir@%$localstatedir%g -s%@libdir@%$libdir%g -s%@includedir@%$includedir%g -s%@oldincludedir@%$oldincludedir%g -s%@infodir@%$infodir%g -s%@mandir@%$mandir%g -s%@CC@%$CC%g -s%@AR@%$AR%g -s%@SET_MAKE@%$SET_MAKE%g -s%@ac_cv_prog_chmod@%$ac_cv_prog_chmod%g -s%@CPP@%$CPP%g -s%@LIBOBJS@%$LIBOBJS%g -s%@MAYBES@%$MAYBES%g -s%@CROSS@%$CROSS%g -s%@RANLIB@%$RANLIB%g -s%@RANLIB_TEST@%$RANLIB_TEST%g - -CEOF -EOF - -cat >> $CONFIG_STATUS <<\EOF - -# Split the substitutions into bite-sized pieces for seds with -# small command number limits, like on Digital OSF/1 and HP-UX. -ac_max_sed_cmds=90 # Maximum number of lines to put in a sed script. -ac_file=1 # Number of current file. -ac_beg=1 # First line for current file. -ac_end=$ac_max_sed_cmds # Line after last line for current file. -ac_more_lines=: -ac_sed_cmds="" -while $ac_more_lines; do - if test $ac_beg -gt 1; then - sed "1,${ac_beg}d; ${ac_end}q" conftest.subs > conftest.s$ac_file - else - sed "${ac_end}q" conftest.subs > conftest.s$ac_file - fi - if test ! -s conftest.s$ac_file; then - ac_more_lines=false - rm -f conftest.s$ac_file - else - if test -z "$ac_sed_cmds"; then - ac_sed_cmds="sed -f conftest.s$ac_file" - else - ac_sed_cmds="$ac_sed_cmds | sed -f conftest.s$ac_file" - fi - ac_file=`expr $ac_file + 1` - ac_beg=$ac_end - ac_end=`expr $ac_end + $ac_max_sed_cmds` - fi -done -if test -z "$ac_sed_cmds"; then - ac_sed_cmds=cat -fi -EOF - -cat >> $CONFIG_STATUS <<EOF - -CONFIG_FILES=\${CONFIG_FILES-"Makefile"} -EOF -cat >> $CONFIG_STATUS <<\EOF -for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then - # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". - case "$ac_file" in - *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` - ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; - *) ac_file_in="${ac_file}.in" ;; - esac - - # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories. - - # Remove last slash and all that follows it. Not all systems have dirname. - ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` - if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then - # The file is in a subdirectory. - test ! -d "$ac_dir" && mkdir "$ac_dir" - ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`" - # A "../" for each directory in $ac_dir_suffix. - ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'` - else - ac_dir_suffix= ac_dots= - fi - - case "$ac_given_srcdir" in - .) srcdir=. - if test -z "$ac_dots"; then top_srcdir=. - else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;; - /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;; - *) # Relative path. - srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix" - top_srcdir="$ac_dots$ac_given_srcdir" ;; - esac - - - echo creating "$ac_file" - rm -f "$ac_file" - configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure." - case "$ac_file" in - *Makefile*) ac_comsub="1i\\ -# $configure_input" ;; - *) ac_comsub= ;; - esac - - ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` - sed -e "$ac_comsub -s%@configure_input@%$configure_input%g -s%@srcdir@%$srcdir%g -s%@top_srcdir@%$top_srcdir%g -" $ac_file_inputs | (eval "$ac_sed_cmds") > $ac_file -fi; done -rm -f conftest.s* - -# These sed commands are passed to sed as "A NAME B NAME C VALUE D", where -# NAME is the cpp macro being defined and VALUE is the value it is being given. -# -# ac_d sets the value in "#define NAME VALUE" lines. -ac_dA='s%^\([ ]*\)#\([ ]*define[ ][ ]*\)' -ac_dB='\([ ][ ]*\)[^ ]*%\1#\2' -ac_dC='\3' -ac_dD='%g' -# ac_u turns "#undef NAME" with trailing blanks into "#define NAME VALUE". -ac_uA='s%^\([ ]*\)#\([ ]*\)undef\([ ][ ]*\)' -ac_uB='\([ ]\)%\1#\2define\3' -ac_uC=' ' -ac_uD='\4%g' -# ac_e turns "#undef NAME" without trailing blanks into "#define NAME VALUE". -ac_eA='s%^\([ ]*\)#\([ ]*\)undef\([ ][ ]*\)' -ac_eB='$%\1#\2define\3' -ac_eC=' ' -ac_eD='%g' - -if test "${CONFIG_HEADERS+set}" != set; then -EOF -cat >> $CONFIG_STATUS <<EOF - CONFIG_HEADERS="config.h:config.hin" -EOF -cat >> $CONFIG_STATUS <<\EOF -fi -for ac_file in .. $CONFIG_HEADERS; do if test "x$ac_file" != x..; then - # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". - case "$ac_file" in - *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` - ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; - *) ac_file_in="${ac_file}.in" ;; - esac - - echo creating $ac_file - - rm -f conftest.frag conftest.in conftest.out - ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` - cat $ac_file_inputs > conftest.in - -EOF - -# Transform confdefs.h into a sed script conftest.vals that substitutes -# the proper values into config.h.in to produce config.h. And first: -# Protect against being on the right side of a sed subst in config.status. -# Protect against being in an unquoted here document in config.status. -rm -f conftest.vals -cat > conftest.hdr <<\EOF -s/[\\&%]/\\&/g -s%[\\$`]%\\&%g -s%#define \([A-Za-z_][A-Za-z0-9_]*\) *\(.*\)%${ac_dA}\1${ac_dB}\1${ac_dC}\2${ac_dD}%gp -s%ac_d%ac_u%gp -s%ac_u%ac_e%gp -EOF -sed -n -f conftest.hdr confdefs.h > conftest.vals -rm -f conftest.hdr - -# This sed command replaces #undef with comments. This is necessary, for -# example, in the case of _POSIX_SOURCE, which is predefined and required -# on some systems where configure will not decide to define it. -cat >> conftest.vals <<\EOF -s%^[ ]*#[ ]*undef[ ][ ]*[a-zA-Z_][a-zA-Z_0-9]*%/* & */% -EOF - -# Break up conftest.vals because some shells have a limit on -# the size of here documents, and old seds have small limits too. - -rm -f conftest.tail -while : -do - ac_lines=`grep -c . conftest.vals` - # grep -c gives empty output for an empty file on some AIX systems. - if test -z "$ac_lines" || test "$ac_lines" -eq 0; then break; fi - # Write a limited-size here document to conftest.frag. - echo ' cat > conftest.frag <<CEOF' >> $CONFIG_STATUS - sed ${ac_max_here_lines}q conftest.vals >> $CONFIG_STATUS - echo 'CEOF - sed -f conftest.frag conftest.in > conftest.out - rm -f conftest.in - mv conftest.out conftest.in -' >> $CONFIG_STATUS - sed 1,${ac_max_here_lines}d conftest.vals > conftest.tail - rm -f conftest.vals - mv conftest.tail conftest.vals -done -rm -f conftest.vals - -cat >> $CONFIG_STATUS <<\EOF - rm -f conftest.frag conftest.h - echo "/* $ac_file. Generated automatically by configure. */" > conftest.h - cat conftest.in >> conftest.h - rm -f conftest.in - if cmp -s $ac_file conftest.h 2>/dev/null; then - echo "$ac_file is unchanged" - rm -f conftest.h - else - # Remove last slash and all that follows it. Not all systems have dirname. - ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` - if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then - # The file is in a subdirectory. - test ! -d "$ac_dir" && mkdir "$ac_dir" - fi - rm -f $ac_file - mv conftest.h $ac_file - fi -fi; done - -EOF -cat >> $CONFIG_STATUS <<EOF - -EOF -cat >> $CONFIG_STATUS <<\EOF - -exit 0 -EOF -chmod +x $CONFIG_STATUS -rm -fr confdefs* $ac_clean_files -test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1 - diff --git a/gnu/egcs/libf2c/libU77/configure.in b/gnu/egcs/libf2c/libU77/configure.in deleted file mode 100644 index 1262645c932..00000000000 --- a/gnu/egcs/libf2c/libU77/configure.in +++ /dev/null @@ -1,102 +0,0 @@ -# Process this file with autoconf to produce a configure script. -# Copyright (C) 1995, 1998 Free Software Foundation, Inc. -# Contributed by Dave Love (d.love@dl.ac.uk). -# -#This file is part of the GNU Fortran libU77 library. -# -#This library is free software; you can redistribute it and/or modify -#it under the terms of the GNU General Public License as published by -#the Free Software Foundation; either version 2, or (at your option) -#any later version. -# -#GNU Fortran is distributed in the hope that it will be useful, -#but WITHOUT ANY WARRANTY; without even the implied warranty of -#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#GNU Library General Public License for more details. -# -#You should have received a copy of the GNU Library General Public -#License along with GNU Fortran; see the file COPYING. If not, write -#to Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, -#USA. - -AC_PREREQ(2.12.1) -AC_INIT(access_.c) -AC_CONFIG_HEADER(config.h:config.hin) - -dnl Checks for programs. -# For g77 we'll set CC to point at the built gcc, but this will get it into -# the makefiles -AC_PROG_CC -dnl AC_C_CROSS -dnl Gives misleading `(cached)' message from the check. -if test "$CROSS";then - ac_cv_c_cross=yes -else - ac_cv_c_cross=no -fi - -test "$AR" || AR=ar -AC_SUBST(AR) -AC_PROG_MAKE_SET - -dnl This is only because we (horribly) punt the chmod job to the program at -dnl present. Note that the result of this test could be wrong in the cross -dnl case. -AC_PATH_PROG(ac_cv_prog_chmod, chmod, no) -if test "$ac_cv_prog_chmod" != no || test "$CROSS"; then - MAYBES=chmod_.o - AC_DEFINE_UNQUOTED(CHMOD_PATH,"$ac_cv_prog_chmod") -else - MAYBES="" -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) - -dnl Checks for typedefs, structures, and compiler characteristics. -AC_C_CONST -AC_TYPE_SIZE_T -AC_TYPE_MODE_T - -AC_TYPE_PID_T -dnl The next 3 demand a dummy fileblocks.o (added to LIBOJS). We don't use -dnl LIBOJS, though. -AC_STRUCT_ST_BLKSIZE -AC_STRUCT_ST_BLOCKS -AC_STRUCT_ST_RDEV -AC_STRUCT_TM - -dnl Some systems (SVR4, SCO OpenServer) need -lsocket for gethostname() -AC_CHECK_LIB(socket, gethostname, [LIBS="$LIBS -lsocket"]) - -dnl Checks for library functions. - -AC_CHECK_FUNCS(symlink getcwd getwd lstat gethostname strerror clock \ - getrusage times alarm getlogin getgid getuid kill link ttyname \ - gettimeofday) -test $ac_cv_func_symlink = yes && MAYBES="$MAYBES symlnk_.o" -test $ac_cv_func_lstat = yes && MAYBES="$MAYBES lstat_.o" -test $ac_cv_func_gethostname = yes && MAYBES="$MAYBES hostnm_.o" -test $ac_cv_func_clock = yes && MAYBES="$MAYBES mclock_.o" -AC_SUBST(MAYBES) - -LIBU77_HAVE_STRUCT_TIMEZONE - -AC_SUBST(CROSS) -AC_SUBST(RANLIB) -AC_SUBST(RANLIB_TEST) -AC_OUTPUT(Makefile) diff --git a/gnu/egcs/libf2c/libU77/ctime_.c b/gnu/egcs/libf2c/libU77/ctime_.c deleted file mode 100644 index af5813772af..00000000000 --- a/gnu/egcs/libf2c/libU77/ctime_.c +++ /dev/null @@ -1,57 +0,0 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif -#include "f2c.h" - -/* 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 (); - time_t stime = *xstime; - - /* Allow a length other than 24 for compatibility with what other - systems do, despite it being documented as 24. */ - s_copy (chtime, ctime (&stime), Lchtime, 24); -} diff --git a/gnu/egcs/libf2c/libU77/date_.c b/gnu/egcs/libf2c/libU77/date_.c deleted file mode 100644 index 11537657f32..00000000000 --- a/gnu/egcs/libf2c/libU77/date_.c +++ /dev/null @@ -1,39 +0,0 @@ -/* date_.f -- translated by f2c (version 19961001). - You must link the resulting object file with the libraries: - -lf2c -lm (in that order) -*/ - -#include "f2c.h" - -/* Table of constant values */ - -static integer c__5 = 5; - -/* Subroutine */ int G77_date_y2kbug_0 (char *buf, ftnlen buf_len) -{ - /* System generated locals */ - address a__1[5]; - integer i__1, i__2[5]; - char ch__1[24]; - - /* Builtin functions */ - /* Subroutine */ int s_copy(), s_cat(); - - /* Local variables */ - static char cbuf[24]; - extern integer G77_time_0 (); - extern /* Character */ VOID G77_ctime_0 (); - - i__1 = G77_time_0 (); - G77_ctime_0 (ch__1, 24L, &i__1); - s_copy(cbuf, ch__1, 24L, 24L); -/* Writing concatenation */ - i__2[0] = 2, a__1[0] = cbuf + 8; - i__2[1] = 1, a__1[1] = "-"; - i__2[2] = 3, a__1[2] = cbuf + 4; - i__2[3] = 1, a__1[3] = "-"; - i__2[4] = 2, a__1[4] = cbuf + 22; - s_cat(buf, a__1, i__2, &c__5, buf_len); - return 0; -} /* date_ */ - diff --git a/gnu/egcs/libf2c/libU77/datetime_.c b/gnu/egcs/libf2c/libU77/datetime_.c deleted file mode 100644 index faf773a944c..00000000000 --- a/gnu/egcs/libf2c/libU77/datetime_.c +++ /dev/null @@ -1,92 +0,0 @@ -/* Copyright (C) 1997, 1998, 1999 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#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, - ftnlen fftime_len, ftnlen zone_len) -{ - time_t lt=time(<); - struct tm ltime = *localtime(<), gtime = *gmtime(<); - char dat[9], zon[6], ftim[11]; - int i, vals[8]; - - vals[0] = 1900 + ltime.tm_year; - vals[1] = 1 + ltime.tm_mon; - vals[2] = ltime.tm_mday; - /* fixme: year boundaries */ - vals[3] = (ltime.tm_min - gtime.tm_min + - 60*(ltime.tm_hour - gtime.tm_hour + - 24*(ltime.tm_yday -gtime.tm_yday))); - vals[4] = ltime.tm_hour; - vals[5] = ltime.tm_min; - vals[6] = ltime.tm_sec; - vals[7] = 0; /* no STDC way to get this */ - /* GNUish way; maybe use `ftime' on other systems. */ -#if HAVE_GETTIMEOFDAY - { - struct timeval tp; -#if HAVE_STRUCT_TIMEZONE - struct timezone tzp; - /* This is still not strictly correct on some systems such as HPUX, - which does have struct timezone, but gettimeofday takes void* as - the 2nd arg. However, the effect of passing anything other than a null - pointer is unspecified on HPUX. */ - if (! gettimeofday (&tp, &tzp)) -#else - if (! gettimeofday (&tp, (void *) 0)) -#endif - vals[7] = tp.tv_usec/1000; - } -#endif - if (values) /* null pointer for missing optional */ - for (i=0; i<=7; i++) - values[i] = vals[i]; - sprintf (dat, "%04d%02d%02d", vals[0], vals[1], vals[2]); - s_copy(date, dat, date_len, 8); - if (zone) { - sprintf(zon, "%+03d%02d", vals[3] / 60, abs(vals[3] % 60)); - s_copy(zone, zon, zone_len, 5); - } - if (fftime) { - sprintf (ftim, "%02d%02d%02d.%03d", vals[4], vals[5], vals[6], vals[7]); - s_copy(fftime, ftim, fftime_len, 10); - } - return 0; -} diff --git a/gnu/egcs/libf2c/libU77/dbes.c b/gnu/egcs/libf2c/libU77/dbes.c deleted file mode 100644 index 1ef5978a8e8..00000000000 --- a/gnu/egcs/libf2c/libU77/dbes.c +++ /dev/null @@ -1,46 +0,0 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#if 0 /* Don't include these unless necessary -- dnp. */ -#include "f2c.h" -#include <math.h> - -double G77_dbesj0_0 (const double *x) { - return j0 (*x); -} - -double G77_dbesj1_0 (const double *x) { - return j1 (*x); -} - -double G77_dbesjn_0 (const integer *n, double *x) { - return jn (*n, *x); - } - -double G77_dbesy0_0 (const double *x) { - return y0 (*x); -} - -double G77_dbesy1_0 (const double *x) { - return y1 (*x); -} - -double G77_dbesyn_0 (const integer *n, double *x) { - return yn (*n, *x); -} -#endif diff --git a/gnu/egcs/libf2c/libU77/dtime_.c b/gnu/egcs/libf2c/libU77/dtime_.c deleted file mode 100644 index aa34bc027e0..00000000000 --- a/gnu/egcs/libf2c/libU77/dtime_.c +++ /dev/null @@ -1,169 +0,0 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#include <sys/types.h> -#if HAVE_SYS_TIMES_H -# include <sys/times.h> -#endif -#if HAVE_SYS_PARAM_H -# include <sys/param.h> -#endif -#if HAVE_GETRUSAGE -# include <sys/time.h> -# include <sys/resource.h> -#endif -#if defined (_WIN32) -# include <windows.h> -# undef min -# undef max -#endif -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -/* For dtime, etime we store the clock tick parameter (clk_tck) the - first time either of them is invoked rather than each time. This - approach probably speeds up each invocation by avoiding a system - call each time, but means that the overhead of the first call is - 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; - - if (win32_platform == -1) - { - OSVERSIONINFO osv; - osv.dwOSVersionInfoSize = sizeof (osv); - GetVersionEx (&osv); - win32_platform = osv.dwPlatformId; - } - - /* We need to use this hack on non-NT platforms, where the first call - returns 0.0 and subsequent ones return the correct value. */ - if (win32_platform != VER_PLATFORM_WIN32_NT) - { - static unsigned long long clock_freq; - static unsigned long long old_count; - unsigned long long count; - double delta; - LARGE_INTEGER counter_val; - - if (clock_freq == 0) - { - LARGE_INTEGER freq; - if (! QueryPerformanceFrequency (&freq)) - { - errno = ENOSYS; - return 0.0; - } - else - { - clock_freq = ((unsigned long long) freq.HighPart << 32) - + ((unsigned) freq.LowPart); - } - } - - if (! QueryPerformanceCounter (&counter_val)) - return -1.0; - - count = ((unsigned long long) counter_val.HighPart << 32) - + (unsigned) counter_val.LowPart; - delta = ((double) (count - old_count)) / clock_freq; - tarray[0] = (float) delta; - tarray[1] = 0.0; - old_count = count; - } - else - { - static unsigned long long old_utime, old_stime; - unsigned long long utime, stime; - FILETIME creation_time, exit_time, kernel_time, user_time; - - GetProcessTimes (GetCurrentProcess (), &creation_time, &exit_time, - &kernel_time, &user_time); - utime = ((unsigned long long) user_time.dwHighDateTime << 32) - + (unsigned) user_time.dwLowDateTime; - stime = ((unsigned long long) kernel_time.dwHighDateTime << 32) - + (unsigned) kernel_time.dwLowDateTime; - - tarray[0] = (utime - old_utime) / 1.0e7; - tarray[1] = (stime - old_stime) / 1.0e7; - old_utime = utime; - old_stime = stime; - } - return tarray[0] + tarray[1]; - -#elif defined (HAVE_GETRUSAGE) || defined (HAVE_TIMES) - /* The getrusage version is only the default for convenience. */ -#ifdef HAVE_GETRUSAGE - float utime, stime; - static float old_utime = 0.0, old_stime = 0.0; - struct rusage rbuff; - - if (getrusage (RUSAGE_SELF, &rbuff) != 0) - abort (); - utime = (float) (rbuff.ru_utime).tv_sec + - (float) (rbuff.ru_utime).tv_usec/1000000.0; - tarray[0] = utime - (float) old_utime; - stime = (float) (rbuff.ru_stime).tv_sec + - (float) (rbuff.ru_stime).tv_usec/1000000.0; - tarray[1] = stime - old_stime; -#else /* HAVE_GETRUSAGE */ - time_t utime, stime; - static time_t old_utime = 0, old_stime = 0; - struct tms buffer; - -/* NeXTStep seems to define _SC_CLK_TCK but not to have sysconf; - fixme: does using _POSIX_VERSION help? */ -# if defined _SC_CLK_TCK && defined _POSIX_VERSION - if (! clk_tck) clk_tck = sysconf(_SC_CLK_TCK); -# elif defined CLOCKS_PER_SECOND - if (! clk_tck) clk_tck = CLOCKS_PER_SECOND; -# elif defined CLK_TCK - if (! clk_tck) clk_tck = CLK_TCK; -# elif defined HZ - if (! clk_tck) clk_tck = HZ; -# elif defined HAVE_GETRUSAGE -# else - #error Dont know clock tick length -# endif - if (times(&buffer) == (clock_t)-1) return -1.0; - utime = buffer.tms_utime; stime = buffer.tms_stime; - tarray[0] = ((float)(utime - old_utime)) / (float)clk_tck; - tarray[1] = ((float)(stime - old_stime)) / (float)clk_tck; -#endif /* HAVE_GETRUSAGE */ - old_utime = utime; old_stime = stime; - return (tarray[0]+tarray[1]); -#else /* ! HAVE_GETRUSAGE && ! HAVE_TIMES */ - errno = ENOSYS; - return 0.0; -#endif /* ! HAVE_GETRUSAGE && ! HAVE_TIMES */ -} diff --git a/gnu/egcs/libf2c/libU77/etime_.c b/gnu/egcs/libf2c/libU77/etime_.c deleted file mode 100644 index eae559f7414..00000000000 --- a/gnu/egcs/libf2c/libU77/etime_.c +++ /dev/null @@ -1,160 +0,0 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#include <sys/types.h> -#if HAVE_SYS_TIMES_H -# include <sys/times.h> -#endif -#if HAVE_SYS_PARAM_H -# include <sys/param.h> -#endif -#if HAVE_GETRUSAGE -# include <sys/time.h> -# include <sys/resource.h> -#endif -#if defined (_WIN32) -# include <windows.h> -# undef min -# undef max -#endif -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -/* For dtime, etime we store the clock tick parameter (clk_tck) the - first time either of them is invoked rather than each time. This - approach probably speeds up each invocation by avoiding a system - call each time, but means that the overhead of the first call is - 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; - double usertime, systime; - - if (win32_platform == -1) - { - OSVERSIONINFO osv; - osv.dwOSVersionInfoSize = sizeof (osv); - GetVersionEx (&osv); - win32_platform = osv.dwPlatformId; - } - - /* non-NT platforms don't have a clue as to how long a process has - been running, so simply return the uptime. Bad judgement call? */ - if (win32_platform != VER_PLATFORM_WIN32_NT) - { - static unsigned long long clock_freq; - static unsigned long long old_count; - unsigned long long count; - LARGE_INTEGER counter_val; - - if (clock_freq == 0) - { - LARGE_INTEGER freq; - if (! QueryPerformanceFrequency (&freq)) - { - errno = ENOSYS; - return 0.0; - } - else - { - clock_freq = ((unsigned long long) freq.HighPart << 32) - + ((unsigned) freq.LowPart); - if (! QueryPerformanceCounter (&counter_val)) - return -1.0; - old_count = ((unsigned long long) counter_val.HighPart << 32) - + (unsigned) counter_val.LowPart; - } - } - - if (! QueryPerformanceCounter (&counter_val)) - return -1.0; - - count = ((unsigned long long) counter_val.HighPart << 32) - + (unsigned) counter_val.LowPart; - tarray[0] = usertime = (double) (count - old_count) / clock_freq; - tarray[1] = systime = 0.0; - } - else - { - FILETIME creation_time, exit_time, kernel_time, user_time; - unsigned long long utime, stime; - - GetProcessTimes (GetCurrentProcess (), &creation_time, &exit_time, - &kernel_time, &user_time); - utime = ((unsigned long long) user_time.dwHighDateTime << 32) - + (unsigned) user_time.dwLowDateTime; - stime = ((unsigned long long) kernel_time.dwHighDateTime << 32) - + (unsigned) kernel_time.dwLowDateTime; - - tarray[0] = usertime = utime / 1.0e7; - tarray[1] = systime = stime / 1.0e7; - } - return usertime + systime; - -#elif defined (HAVE_GETRUSAGE) || defined (HAVE_TIMES) - /* The getrusage version is only the default for convenience. */ -#ifdef HAVE_GETRUSAGE - struct rusage rbuff; - - if (getrusage (RUSAGE_SELF, &rbuff) != 0) - abort (); - tarray[0] = ((float) (rbuff.ru_utime).tv_sec + - (float) (rbuff.ru_utime).tv_usec/1000000.0); - tarray[1] = ((float) (rbuff.ru_stime).tv_sec + - (float) (rbuff.ru_stime).tv_usec/1000000.0); -#else /* HAVE_GETRUSAGE */ - struct tms buffer; - -/* NeXTStep seems to define _SC_CLK_TCK but not to have sysconf; - fixme: does using _POSIX_VERSION help? */ -# if defined _SC_CLK_TCK && defined _POSIX_VERSION - if (! clk_tck) clk_tck = sysconf(_SC_CLK_TCK); -# elif defined CLOCKS_PER_SECOND - if (! clk_tck) clk_tck = CLOCKS_PER_SECOND; -# elif defined CLK_TCK - if (! clk_tck) clk_tck = CLK_TCK; -# elif defined HZ - if (! clk_tck) clk_tck = HZ; -# elif defined HAVE_GETRUSAGE -# else - #error Dont know clock tick length -# endif - if (times(&buffer) == (clock_t)-1) return -1.0; - tarray[0] = (float) buffer.tms_utime / (float)clk_tck; - tarray[1] = (float) buffer.tms_stime / (float)clk_tck; -#endif /* HAVE_GETRUSAGE */ - return (tarray[0]+tarray[1]); -#else /* ! HAVE_GETRUSAGE && ! HAVE_TIMES */ - errno = ENOSYS; - return 0.0; -#endif /* ! HAVE_GETRUSAGE && ! HAVE_TIMES */ -} diff --git a/gnu/egcs/libf2c/libU77/fdate_.c b/gnu/egcs/libf2c/libU77/fdate_.c deleted file mode 100644 index afe8b24fc44..00000000000 --- a/gnu/egcs/libf2c/libU77/fdate_.c +++ /dev/null @@ -1,53 +0,0 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif - -#include "f2c.h" - -/* NB. this implementation is for a character*24 function. There's - also a subroutine version. Of course, the calling convention is - essentially the same for both. */ - -/* Character *24 */ void G77_fdate_0 (char *ret_val, ftnlen ret_val_len) -{ - int s_copy (); - time_t tloc; - tloc = time (NULL); - /* Allow a length other than 24 for compatibility with what other - systems do, despite it being documented as 24. */ - s_copy (ret_val, ctime ((time_t *) &tloc), ret_val_len, 24); -} diff --git a/gnu/egcs/libf2c/libU77/fgetc_.c b/gnu/egcs/libf2c/libU77/fgetc_.c deleted file mode 100644 index 49f39830d2c..00000000000 --- a/gnu/egcs/libf2c/libU77/fgetc_.c +++ /dev/null @@ -1,70 +0,0 @@ -/* Copyright (C) 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#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; - - if (*lunit>=MXUNIT || *lunit<0) - return 101; /* bad unit error */ - err = getc (f); - if (err == EOF) { - if (feof (f)) - return -1; - else - return ferror (f); } - else { - if (Lc == 0) - return 0; - - c[0] = err; - while (--Lc) - *++c = ' '; - 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; - - return G77_fgetc_0 (&five, c, Lc); -} diff --git a/gnu/egcs/libf2c/libU77/flush1_.c b/gnu/egcs/libf2c/libU77/flush1_.c deleted file mode 100644 index 451915debac..00000000000 --- a/gnu/egcs/libf2c/libU77/flush1_.c +++ /dev/null @@ -1,46 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#include "f2c.h" -#include "fio.h" - -/* 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"); - /* f__units is a table of descriptions for the unit numbers (defined - in io.h) with file descriptors rather than streams */ - if (f__units[*lunit].ufd != NULL && f__units[*lunit].uwrt) - fflush(f__units[*lunit].ufd); - return 0; -} diff --git a/gnu/egcs/libf2c/libU77/fnum_.c b/gnu/egcs/libf2c/libU77/fnum_.c deleted file mode 100644 index 0a3ba013e06..00000000000 --- a/gnu/egcs/libf2c/libU77/fnum_.c +++ /dev/null @@ -1,38 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#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"); - /* f__units is a table of descriptions for the unit numbers (defined - in io.h). Use file descriptor (ufd) and fileno rather than udev - field since udev is unix specific */ - return fileno(f__units[*lunit].ufd); -} diff --git a/gnu/egcs/libf2c/libU77/fputc_.c b/gnu/egcs/libf2c/libU77/fputc_.c deleted file mode 100644 index 5a1109e8d4f..00000000000 --- a/gnu/egcs/libf2c/libU77/fputc_.c +++ /dev/null @@ -1,65 +0,0 @@ -/* Copyright (C) 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#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; - - if (*lunit>=MXUNIT || *lunit<0) - return 101; /* bad unit error */ - err = putc (c[0], f); - if (err == EOF) { - if (feof (f)) - return -1; - else - return ferror (f); - } - else - 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; - - return G77_fputc_0 (&six, c, Lc); -} diff --git a/gnu/egcs/libf2c/libU77/fstat_.c b/gnu/egcs/libf2c/libU77/fstat_.c deleted file mode 100644 index da5434ad0b7..00000000000 --- a/gnu/egcs/libf2c/libU77/fstat_.c +++ /dev/null @@ -1,71 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include "f2c.h" -#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; - - err = fstat (G77_fnum_0 (lunit), &buf); - statb[0] = buf.st_dev; - statb[1] = buf.st_ino; - statb[2] = buf.st_mode; - statb[3] = buf.st_nlink; - statb[4] = buf.st_uid; - statb[5] = buf.st_gid; -#if HAVE_ST_RDEV - statb[6] = buf.st_rdev; /* not posix */ -#else - statb[6] = 0; -#endif - statb[7] = buf.st_size; - statb[8] = buf.st_atime; - statb[9] = buf.st_mtime; - statb[10] = buf.st_ctime; -#if HAVE_ST_BLKSIZE - statb[11] = buf.st_blksize; /* not posix */ -#else - statb[11] = -1; -#endif -#if HAVE_ST_BLOCKS - statb[12] = buf.st_blocks; /* not posix */ -#else - statb[12] = -1; -#endif - return err; -} diff --git a/gnu/egcs/libf2c/libU77/gerror_.c b/gnu/egcs/libf2c/libU77/gerror_.c deleted file mode 100644 index 6f5943c1dce..00000000000 --- a/gnu/egcs/libf2c/libU77/gerror_.c +++ /dev/null @@ -1,49 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <errno.h> -#include <stddef.h> -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif -#include "f2c.h" - -#ifndef HAVE_STRERROR - 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; - - s = strerror(errno); - s_copy (str, s, Lstr, strlen (s)); - return 0; -} diff --git a/gnu/egcs/libf2c/libU77/getcwd_.c b/gnu/egcs/libf2c/libU77/getcwd_.c deleted file mode 100644 index e757803896a..00000000000 --- a/gnu/egcs/libf2c/libU77/getcwd_.c +++ /dev/null @@ -1,99 +0,0 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <errno.h> -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif -#include <stdio.h> /* for NULL */ -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -#if HAVE_GETCWD - -#ifdef HAVE_UNISTD_H -# include <unistd.h> -#else - 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; - - ret = getcwd (str, Lstr); - if (ret == NULL) return errno; - for (i=strlen(str); i<Lstr; i++) - str[i] = ' '; - return 0; -} - -#elif HAVE_GETWD /* HAVE_GETCWD */ - -/* getwd usage taken from SunOS4 man */ - -# 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; - - if (getwd (pathname) == NULL) { - return errno; - } else { - s_copy (str, pathname, Lstr, strlen (str)); - return 0; - } -} - -#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; -} - -#endif diff --git a/gnu/egcs/libf2c/libU77/getgid_.c b/gnu/egcs/libf2c/libU77/getgid_.c deleted file mode 100644 index b489bacc6ed..00000000000 --- a/gnu/egcs/libf2c/libU77/getgid_.c +++ /dev/null @@ -1,41 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -#include <unistd.h> -#endif -#include <sys/types.h> -#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 (); -#else - errno = ENOSYS; - return -1; -#endif -} diff --git a/gnu/egcs/libf2c/libU77/getlog_.c b/gnu/egcs/libf2c/libU77/getlog_.c deleted file mode 100644 index 82cb564a67a..00000000000 --- a/gnu/egcs/libf2c/libU77/getlog_.c +++ /dev/null @@ -1,71 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <sys/types.h> -#if HAVE_STDLIB_H -# include <stdlib.h> -#else -# include <stdio.h> -#endif -#include <stdio.h> -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -/* getlogin not in svr1-3 */ - -/* 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; - int status; - -#if defined (HAVE_GETLOGIN) - p = getlogin (); - if (p != NULL) { - i = strlen (p); - s_copy (str, p, Lstr, i); - } else { - s_copy (str, " ", Lstr, 1); - } - status = 0; -#else - errno = ENOSYS; - status = -1; -#endif - return status; -} diff --git a/gnu/egcs/libf2c/libU77/getpid_.c b/gnu/egcs/libf2c/libU77/getpid_.c deleted file mode 100644 index fa484785957..00000000000 --- a/gnu/egcs/libf2c/libU77/getpid_.c +++ /dev/null @@ -1,35 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -#include <unistd.h> -#endif -#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/gnu/egcs/libf2c/libU77/getuid_.c b/gnu/egcs/libf2c/libU77/getuid_.c deleted file mode 100644 index 408ff0ab600..00000000000 --- a/gnu/egcs/libf2c/libU77/getuid_.c +++ /dev/null @@ -1,41 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -#include <unistd.h> -#endif -#include <sys/types.h> -#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 (); -#else - errno = ENOSYS; - return -1; -#endif -} diff --git a/gnu/egcs/libf2c/libU77/gmtime_.c b/gnu/egcs/libf2c/libU77/gmtime_.c deleted file mode 100644 index 63ad871bbd0..00000000000 --- a/gnu/egcs/libf2c/libU77/gmtime_.c +++ /dev/null @@ -1,55 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -/* fixme: do we need to use TM_IN_SYS_TIME? */ -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#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; - lt = gmtime (&stime); - tarray[0] = lt->tm_sec; - tarray[1] = lt->tm_min; - tarray[2] = lt->tm_hour; - tarray[3] = lt->tm_mday; - tarray[4] = lt->tm_mon; - tarray[5] = lt->tm_year; - tarray[6] = lt->tm_wday; - tarray[7] = lt->tm_yday; - tarray[8] = lt->tm_isdst; - return 0; -} diff --git a/gnu/egcs/libf2c/libU77/hostnm_.c b/gnu/egcs/libf2c/libU77/hostnm_.c deleted file mode 100644 index fd717b9f857..00000000000 --- a/gnu/egcs/libf2c/libU77/hostnm_.c +++ /dev/null @@ -1,49 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -integer G77_hostnm_0 (char *name, ftnlen Lname) -{ - int ret, i; - -#if HAVE_GETHOSTNAME - ret = gethostname (name, Lname); - if (ret==0) { - /* Pad with blanks (assuming gethostname will make an error - return if it can't fit in the null). */ - for (i=strlen(name); i<Lname; i++) - name[i] = ' '; - } - return ret; -#else - return errno = ENOSYS; -#endif -} diff --git a/gnu/egcs/libf2c/libU77/idate_.c b/gnu/egcs/libf2c/libU77/idate_.c deleted file mode 100644 index c4075767a4c..00000000000 --- a/gnu/egcs/libf2c/libU77/idate_.c +++ /dev/null @@ -1,57 +0,0 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#include "f2c.h" - -/* VMS and Irix versions (at least) differ from libU77 elsewhere */ - -/* 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; - tim = time(NULL); - lt = localtime(&tim); - iarray[0] = lt->tm_mday; - iarray[1] = lt->tm_mon + 1; /* in range 1-12 in SunOS (experimentally) */ - /* The `+1900' is consistent with SunOS and Irix, but they don't say - it's added. I think I've seen a system where tm_year was since - 1970, but can't now verify that, so assume the ANSI definition. */ - iarray[2] = lt->tm_year + 1900; - return 0; -} diff --git a/gnu/egcs/libf2c/libU77/ierrno_.c b/gnu/egcs/libf2c/libU77/ierrno_.c deleted file mode 100644 index 557b53a4664..00000000000 --- a/gnu/egcs/libf2c/libU77/ierrno_.c +++ /dev/null @@ -1,32 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#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/gnu/egcs/libf2c/libU77/irand_.c b/gnu/egcs/libf2c/libU77/irand_.c deleted file mode 100644 index 2bf14ccee26..00000000000 --- a/gnu/egcs/libf2c/libU77/irand_.c +++ /dev/null @@ -1,57 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#endif -#include "f2c.h" - -/* We could presumably do much better than the traditional libc - version, though at least the glibc one is reasonable, it seems. - For the sake of the innocent, I'm not sure we should really do - this... */ - -/* 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: - break; - case 1: - srand (0); /* Arbitrary choice of initialiser. */ - break; - default: - srand (*flag); - } - return rand (); -} - - - - - - diff --git a/gnu/egcs/libf2c/libU77/isatty_.c b/gnu/egcs/libf2c/libU77/isatty_.c deleted file mode 100644 index 92c33468f53..00000000000 --- a/gnu/egcs/libf2c/libU77/isatty_.c +++ /dev/null @@ -1,44 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#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"); - /* f__units is a table of descriptions for the unit numbers (defined - in io.h) with file descriptors rather than streams */ - return (isatty(G77_fnum_0 (lunit)) ? TRUE_ : FALSE_); -} diff --git a/gnu/egcs/libf2c/libU77/itime_.c b/gnu/egcs/libf2c/libU77/itime_.c deleted file mode 100644 index 50378d54426..00000000000 --- a/gnu/egcs/libf2c/libU77/itime_.c +++ /dev/null @@ -1,51 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#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; - - tim = time(NULL); - lt = localtime(&tim); - tarray[0] = lt->tm_hour; - tarray[1] = lt->tm_min; - tarray[2] = lt->tm_sec; - return 0; -} diff --git a/gnu/egcs/libf2c/libU77/kill_.c b/gnu/egcs/libf2c/libU77/kill_.c deleted file mode 100644 index 99197bd02e7..00000000000 --- a/gnu/egcs/libf2c/libU77/kill_.c +++ /dev/null @@ -1,42 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <sys/types.h> -#include <signal.h> -#include <errno.h> -#include "f2c.h" - -/* 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; -#else - errno = ENOSYS; - return -1; -#endif -} diff --git a/gnu/egcs/libf2c/libU77/link_.c b/gnu/egcs/libf2c/libU77/link_.c deleted file mode 100644 index 003fac8ffe2..00000000000 --- a/gnu/egcs/libf2c/libU77/link_.c +++ /dev/null @@ -1,66 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#else -# include <stdio.h> -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#include <errno.h> -#if HAVE_SYS_PARAM_H -# include <sys/param.h> -#endif -#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; - char *bp, *blast; - int i; - - buff1 = malloc (Lpath1+1); - if (buff1 == NULL) return -1; - g_char (path1, Lpath1, buff1); - buff2 = malloc (Lpath2+1); - if (buff2 == NULL) return -1; - g_char (path2, Lpath2, buff2); - i = link (buff1, buff2); - free (buff1); free (buff2); - return i ? errno : 0; -#else /* ! HAVE_LINK */ - errno = ENOSYS; - return -1; -#endif -} diff --git a/gnu/egcs/libf2c/libU77/lnblnk_.c b/gnu/egcs/libf2c/libU77/lnblnk_.c deleted file mode 100644 index 806eca293f1..00000000000 --- a/gnu/egcs/libf2c/libU77/lnblnk_.c +++ /dev/null @@ -1,35 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - - -/* via f2c from Fortran */ - -#include "f2c.h" - -integer G77_lnblnk_0 (char *str, ftnlen str_len) -{ - integer ret_val; - integer i_len(); - - for (ret_val = str_len; ret_val >= 1; --ret_val) { - if (*(unsigned char *)&str[ret_val - 1] != ' ') { - return ret_val; - } - } - return ret_val; -} diff --git a/gnu/egcs/libf2c/libU77/lstat_.c b/gnu/egcs/libf2c/libU77/lstat_.c deleted file mode 100644 index 801f6aad1af..00000000000 --- a/gnu/egcs/libf2c/libU77/lstat_.c +++ /dev/null @@ -1,86 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#if HAVE_STDLIB_H -# include <stdlib.h> -#endif -#include <sys/types.h> -#include <sys/stat.h> -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -/* 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; - char *bp, *blast; - int err; - struct stat buf; - - buff = malloc (Lname+1); - if (buff == NULL) return -1; - g_char (name, Lname, buff); - err = lstat (buff, &buf); - free (buff); - statb[0] = buf.st_dev; - statb[1] = buf.st_ino; - statb[2] = buf.st_mode; - statb[3] = buf.st_nlink; - statb[4] = buf.st_uid; - statb[5] = buf.st_gid; -#if HAVE_ST_RDEV - statb[6] = buf.st_rdev; -#else - statb[6] = 0; -#endif - statb[7] = buf.st_size; - statb[8] = buf.st_atime; - statb[9] = buf.st_mtime; - statb[10] = buf.st_ctime; -#if HAVE_ST_BLKSIZE - statb[11] = buf.st_blksize; -#else - statb[11] = -1; -#endif -#if HAVE_ST_BLOCKS - statb[12] = buf.st_blocks; -#else - statb[12] = -1; -#endif - return err; -#else /* !HAVE_LSTAT */ - return errno = ENOSYS; -#endif /* !HAVE_LSTAT */ -} diff --git a/gnu/egcs/libf2c/libU77/ltime_.c b/gnu/egcs/libf2c/libU77/ltime_.c deleted file mode 100644 index 673a0dba845..00000000000 --- a/gnu/egcs/libf2c/libU77/ltime_.c +++ /dev/null @@ -1,55 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -/* fixme: do we need to use TM_IN_SYS_TIME? */ -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#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; - lt = localtime (&stime); - tarray[0] = lt->tm_sec; - tarray[1] = lt->tm_min; - tarray[2] = lt->tm_hour; - tarray[3] = lt->tm_mday; - tarray[4] = lt->tm_mon; - tarray[5] = lt->tm_year; - tarray[6] = lt->tm_wday; - tarray[7] = lt->tm_yday; - tarray[8] = lt->tm_isdst; - return 0; -} diff --git a/gnu/egcs/libf2c/libU77/mclock_.c b/gnu/egcs/libf2c/libU77/mclock_.c deleted file mode 100644 index 6b7e81b1e04..00000000000 --- a/gnu/egcs/libf2c/libU77/mclock_.c +++ /dev/null @@ -1,47 +0,0 @@ -/* Copyright (C) 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#include "f2c.h" - -/* 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 (); -#else - return -1; -#endif -} diff --git a/gnu/egcs/libf2c/libU77/perror_.c b/gnu/egcs/libf2c/libU77/perror_.c deleted file mode 100644 index 26d8582dbcc..00000000000 --- a/gnu/egcs/libf2c/libU77/perror_.c +++ /dev/null @@ -1,48 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#include <errno.h> -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#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; - - /* same technique as `system' -- what's wrong with malloc? */ - blast = buff + (Lstr < 1000 ? Lstr : 1000); - for (bp = buff ; bp<blast && *str!='\0' ; ) - *bp++ = *str++; - *bp = '\0'; - perror (buff); - return 0; -} diff --git a/gnu/egcs/libf2c/libU77/rand_.c b/gnu/egcs/libf2c/libU77/rand_.c deleted file mode 100644 index 165aee1220c..00000000000 --- a/gnu/egcs/libf2c/libU77/rand_.c +++ /dev/null @@ -1,54 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#endif -#include "f2c.h" -#ifndef RAND_MAX -# define RAND_MAX 2147483647 /* from SunOS */ -#endif - -/* We could presumably do much better than the traditional libc - version, though at least the glibc one is reasonable, it seems. - For the sake of the innocent, I'm not sure we should really do - this... */ - -/* 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: - break; - case 1: - srand (0); /* Arbitrary choice of initialiser. */ - break; - default: - srand (*flag); - } - return (float) rand () / RAND_MAX; -} diff --git a/gnu/egcs/libf2c/libU77/rename_.c b/gnu/egcs/libf2c/libU77/rename_.c deleted file mode 100644 index 9583001c421..00000000000 --- a/gnu/egcs/libf2c/libU77/rename_.c +++ /dev/null @@ -1,56 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#endif -#include <stdio.h> -#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; - int i; - - buff1 = malloc (Lpath1+1); - if (buff1 == NULL) return -1; - g_char (path1, Lpath1, buff1); - buff2 = malloc (Lpath2+1); - if (buff2 == NULL) return -1; - g_char (path2, Lpath2, buff2); - i = rename (buff1, buff2); - free (buff1); free (buff2); - return i ? errno : 0; -} diff --git a/gnu/egcs/libf2c/libU77/secnds_.c b/gnu/egcs/libf2c/libU77/secnds_.c deleted file mode 100644 index 1942528530f..00000000000 --- a/gnu/egcs/libf2c/libU77/secnds_.c +++ /dev/null @@ -1,51 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#include <sys/types.h> - -#include "f2c.h" - -/* This is a VMS intrinsic. */ - -double G77_secnds_0 (real *r) -{ - struct tm *lt; - time_t clock; - float f; - - clock = time (NULL); - lt = localtime (&clock); - f= (3600.0*((real)lt->tm_hour) + 60.0*((real)lt->tm_min) + - (real)lt->tm_sec - *r); - return f; -} - diff --git a/gnu/egcs/libf2c/libU77/second_.c b/gnu/egcs/libf2c/libU77/second_.c deleted file mode 100644 index 41bb5a90a92..00000000000 --- a/gnu/egcs/libf2c/libU77/second_.c +++ /dev/null @@ -1,26 +0,0 @@ -/* Copyright (C) 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#include "f2c.h" - -double G77_second_0 () { - extern double G77_etime_0 (); - real tarray[2]; - - return G77_etime_0 (tarray); -} diff --git a/gnu/egcs/libf2c/libU77/sleep_.c b/gnu/egcs/libf2c/libU77/sleep_.c deleted file mode 100644 index 36e1b8d9a7b..00000000000 --- a/gnu/egcs/libf2c/libU77/sleep_.c +++ /dev/null @@ -1,37 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#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/gnu/egcs/libf2c/libU77/srand_.c b/gnu/egcs/libf2c/libU77/srand_.c deleted file mode 100644 index 8edc62e4fe0..00000000000 --- a/gnu/egcs/libf2c/libU77/srand_.c +++ /dev/null @@ -1,37 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if STDC_HEADERS -# include <stdlib.h> -#endif -#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/gnu/egcs/libf2c/libU77/stamp-h.in b/gnu/egcs/libf2c/libU77/stamp-h.in deleted file mode 100644 index 9788f70238c..00000000000 --- a/gnu/egcs/libf2c/libU77/stamp-h.in +++ /dev/null @@ -1 +0,0 @@ -timestamp diff --git a/gnu/egcs/libf2c/libU77/stat_.c b/gnu/egcs/libf2c/libU77/stat_.c deleted file mode 100644 index b24f3892221..00000000000 --- a/gnu/egcs/libf2c/libU77/stat_.c +++ /dev/null @@ -1,79 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#if HAVE_STDLIB_H -# include <stdlib.h> -#endif -#include <sys/types.h> -#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; - int err; - struct stat buf; - - buff = malloc (Lname+1); - if (buff == NULL) return -1; - g_char (name, Lname, buff); - err = stat (buff, &buf); - free (buff); - statb[0] = buf.st_dev; - statb[1] = buf.st_ino; - statb[2] = buf.st_mode; - statb[3] = buf.st_nlink; - statb[4] = buf.st_uid; - statb[5] = buf.st_gid; -#if HAVE_ST_RDEV - statb[6] = buf.st_rdev; /* not posix */ -#else - statb[6] = 0; -#endif - statb[7] = buf.st_size; - statb[8] = buf.st_atime; - statb[9] = buf.st_mtime; - statb[10] = buf.st_ctime; -#if HAVE_ST_BLKSIZE - statb[11] = buf.st_blksize; /* not posix */ -#else - statb[11] = -1; -#endif -#if HAVE_ST_BLOCKS - statb[12] = buf.st_blocks; /* not posix */ -#else - statb[12] = -1; -#endif - return err; -} diff --git a/gnu/egcs/libf2c/libU77/symlnk_.c b/gnu/egcs/libf2c/libU77/symlnk_.c deleted file mode 100644 index 4b0bf24541d..00000000000 --- a/gnu/egcs/libf2c/libU77/symlnk_.c +++ /dev/null @@ -1,64 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran. - -GNU Fortran is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#else -# include <stdio.h> -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#include <errno.h> -#if HAVE_SYS_PARAM_H -# include <sys/param.h> -#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; - char *bp, *blast; - int i; - - buff1 = (char *) malloc (Lpath1+1); - if (buff1 == NULL) return -1; - g_char (path1, Lpath1, buff1); - buff2 = (char *) malloc (Lpath2+1); - if (buff2 == NULL) return -1; - g_char (path2, Lpath2, buff2); - i = symlink (buff1, buff2); - free (buff1); free (buff2); - return i ? errno : 0; -#else /* !HAVE_SYMLINK */ - return errno = ENOSYS; -#endif /* !HAVE_SYMLINK */ -} diff --git a/gnu/egcs/libf2c/libU77/sys_clock_.c b/gnu/egcs/libf2c/libU77/sys_clock_.c deleted file mode 100644 index d0d2a77049a..00000000000 --- a/gnu/egcs/libf2c/libU77/sys_clock_.c +++ /dev/null @@ -1,77 +0,0 @@ -/* Copyright (C) 1996, 1998 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#if HAVE_SYS_TIMES_H -# include <sys/times.h> -#endif -#include <limits.h> -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#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; - unsigned long cnt; - if (count_rate) { -#ifdef _SC_CLK_TCK - *count_rate = sysconf(_SC_CLK_TCK); -#elif defined CLOCKS_PER_SECOND - *count_rate = CLOCKS_PER_SECOND; -#elif defined CLK_TCK - *count_rate = CLK_TCK; -#elif defined HZ - *count_rate = HZ; -#else -#error Dont know clock tick length -#endif - } - if (count_max) /* optional arg present? */ - *count_max = INT_MAX; /* dubious */ - cnt = times (&buffer); - if (cnt > (unsigned long) (INT_MAX)) - *count = INT_MAX; /* also dubious */ - else - *count = cnt; - return 0; -#else /* ! HAVE_TIMES */ - errno = ENOSYS; - return -1; -#endif /* ! HAVE_TIMES */ -} diff --git a/gnu/egcs/libf2c/libU77/time_.c b/gnu/egcs/libf2c/libU77/time_.c deleted file mode 100644 index 73894b0b413..00000000000 --- a/gnu/egcs/libf2c/libU77/time_.c +++ /dev/null @@ -1,46 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#include "f2c.h" - -/* 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/gnu/egcs/libf2c/libU77/ttynam_.c b/gnu/egcs/libf2c/libU77/ttynam_.c deleted file mode 100644 index cb1d1e9a35c..00000000000 --- a/gnu/egcs/libf2c/libU77/ttynam_.c +++ /dev/null @@ -1,64 +0,0 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <sys/types.h> -#if STDC_HEADERS -# include <stdlib.h> -#endif -#if HAVE_UNISTD_H -# include <unistd.h> /* POSIX for ttyname */ -#endif -#include <stdio.h> -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif -#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; - char *p; - - p = ttyname (G77_fnum_0 (lunit)); - if (p != NULL) { - i = strlen (p); - s_copy (ret_val, p, ret_val_len, i); - } else { - s_copy (ret_val, " ", ret_val_len, 1); - } -#else - errno = ENOSYS; - return -1; -#endif -} diff --git a/gnu/egcs/libf2c/libU77/u77-test.f b/gnu/egcs/libf2c/libU77/u77-test.f deleted file mode 100644 index 65e972a4b8d..00000000000 --- a/gnu/egcs/libf2c/libU77/u77-test.f +++ /dev/null @@ -1,415 +0,0 @@ -*** Some random stuff for testing libU77. Should be done better. It's -* hard to test things where you can't guarantee the result. Have a -* good squint at what it prints, though detected errors will cause -* starred messages. -* -* Currently not tested: -* ALARM -* CHDIR (func) -* CHMOD (func) -* FGET (func/subr) -* FGETC (func) -* FPUT (func/subr) -* FPUTC (func) -* FSTAT (subr) -* GETCWD (subr) -* HOSTNM (subr) -* IRAND -* KILL -* LINK (func) -* LSTAT (subr) -* RENAME (func/subr) -* SIGNAL (subr) -* SRAND -* STAT (subr) -* SYMLNK (func/subr) -* UMASK (func) -* UNLINK (func) -* -* NOTE! This is the libU77 version, so it should be a bit more -* "interactive" than the testsuite version, which is in -* gcc/testsuite/g77.f-torture/execute/u77-test.f. -* This version purposely exits with a "failure" status, to test -* returning of non-zero status, and it doesn't call the ABORT -* intrinsic (it substitutes an EXTERNAL stub, so the code can be -* kept nearly the same in both copies). Also, it goes ahead and -* tests the HOSTNM intrinsic. Please keep the other copy up-to-date when -* you modify this one. - - implicit none - -* external hostnm - intrinsic hostnm - integer hostnm - - integer i, j, k, ltarray (9), idat (3), count, rate, count_max, - + pid, mask - real tarray1(2), tarray2(2), r1, r2 - double precision d1 - integer(kind=2) bigi - logical issum - intrinsic getpid, getuid, getgid, ierrno, gerror, time8, - + fnum, isatty, getarg, access, unlink, fstat, iargc, - + stat, lstat, getcwd, gmtime, etime, chmod, itime, date, - + chdir, fgetc, fputc, system_clock, second, idate, secnds, - + time, ctime, fdate, ttynam, date_and_time, mclock, mclock8, - + cpu_time, dtime, ftell, abort - external lenstr, ctrlc - integer lenstr - logical l - character gerr*80, c*1 - character ctim*25, line*80, lognam*20, wd*100, line2*80, ddate*8, - + ttime*10, zone*5, ctim2*25 - integer fstatb (13), statb (13) - integer *2 i2zero - integer values(8) - integer(kind=7) sigret - - i = time () - ctim = ctime (i) - WRITE (6,'(A/)') '1 GNU libU77 test at: ' // ctim(:lenstr (ctim)) - write (6,'(A,I3,'', '',I3)') - + ' Logical units 5 and 6 correspond (FNUM) to' - + // ' Unix i/o units ', fnum(5), fnum(6) - if (lnblnk('foo ').ne.3 .or. len_trim('foo ').ne.3) then - print *, 'LNBLNK or LEN_TRIM failed' - call abort - end if - - bigi = time8 () - - call ctime (i, ctim2) - if (ctim .ne. ctim2) then - write (6, *) '*** CALL CTIME disagrees with CTIME(): ', - + ctim2(:lenstr (ctim2)), ' vs. ', ctim(:lenstr (ctim)) - call doabort - end if - - j = time () - if (i .gt. bigi .or. bigi .gt. j) then - write (6, *) '*** TIME/TIME8/TIME sequence failures: ', - + i, bigi, j - call doabort - end if - - print *, 'Command-line arguments: ', iargc () - do i = 0, iargc () - call getarg (i, line) - print *, 'Arg ', i, ' is: ', line(:lenstr (line)) - end do - - l= isatty(6) - line2 = ttynam(6) - if (l) then - line = 'and 6 is a tty device (ISATTY) named '//line2 - else - line = 'and 6 isn''t a tty device (ISATTY)' - end if - write (6,'(1X,A)') line(:lenstr(line)) - call ttynam (6, line) - if (line .ne. line2) then - print *, '*** CALL TTYNAM disagrees with TTYNAM: ', - + line(:lenstr (line)) - call doabort - end if - -* regression test for compiler crash fixed by JCB 1998-08-04 com.c - sigret = signal(2, ctrlc) - - pid = getpid() - WRITE (6,'(A,I10)') ' Process id (GETPID): ', pid - WRITE (6,'(A,I10)') ' User id (GETUID): ', GETUID () - WRITE (6,'(A,I10)') ' Group id (GETGID): ', GETGID () - WRITE (6, *) 'If you have the `id'' program, the following call' - write (6, *) 'of SYSTEM should agree with the above:' - call flush(6) - CALL SYSTEM ('echo " " `id`') - call flush - - lognam = 'blahblahblah' - call getlog (lognam) - write (6,*) 'Login name (GETLOG): ', lognam(:lenstr (lognam)) - - wd = 'blahblahblah' - call getenv ('LOGNAME', wd) - write (6,*) 'Login name (GETENV of LOGNAME): ', wd(:lenstr (wd)) - - call umask(0, mask) - write(6,*) 'UMASK returns', mask - call umask(mask) - - ctim = fdate() - write (6,*) 'FDATE returns: ', ctim(:lenstr (ctim)) - call fdate (ctim) - write (6,*) 'CALL FDATE returns: ', ctim(:lenstr (ctim)) - - j=time() - call ltime (j, ltarray) - write (6,'(1x,a,9i4)') 'LTIME returns:', ltarray - call gmtime (j, ltarray) - write (6,'(1x,a,9i4)') 'GMTIME returns:', ltarray - - call system_clock(count) ! omitting optional args - call system_clock(count, rate, count_max) - write(6,*) 'SYSTEM_CLOCK returns: ', count, rate, count_max - - call date_and_time(ddate) ! omitting optional args - call date_and_time(ddate, ttime, zone, values) - write(6, *) 'DATE_AND_TIME returns: ', ddate, ' ', ttime, ' ', - + zone, ' ', values - - write (6,*) 'Sleeping for 1 second (SLEEP) ...' - call sleep (1) - -c consistency-check etime vs. dtime for first call - r1 = etime (tarray1) - r2 = dtime (tarray2) - if (abs (r1-r2).gt.1.0) then - write (6,*) - + 'Results of ETIME and DTIME differ by more than a second:', - + r1, r2 - call doabort - end if - if (.not. issum (r1, tarray1(1), tarray1(2))) then - write (6,*) '*** ETIME didn''t return sum of the array: ', - + r1, ' /= ', tarray1(1), '+', tarray1(2) - call doabort - end if - if (.not. issum (r2, tarray2(1), tarray2(2))) then - write (6,*) '*** DTIME didn''t return sum of the array: ', - + r2, ' /= ', tarray2(1), '+', tarray2(2) - call doabort - end if - write (6, '(A,3F10.3)') - + ' Elapsed total, user, system time (ETIME): ', - + r1, tarray1 - -c now try to get times to change enough to see in etime/dtime - write (6,*) 'Looping until clock ticks at least once...' - do i = 1,1000 - do j = 1,1000 - end do - call dtime (tarray2, r2) - if (tarray2(1) .ne. 0. .or. tarray2(2) .ne. 0.) exit - end do - call etime (tarray1, r1) - if (.not. issum (r1, tarray1(1), tarray1(2))) then - write (6,*) '*** ETIME didn''t return sum of the array: ', - + r1, ' /= ', tarray1(1), '+', tarray1(2) - call doabort - end if - if (.not. issum (r2, tarray2(1), tarray2(2))) then - write (6,*) '*** DTIME didn''t return sum of the array: ', - + r2, ' /= ', tarray2(1), '+', tarray2(2) - call doabort - end if - write (6, '(A,3F10.3)') - + ' Differences in total, user, system time (DTIME): ', - + r2, tarray2 - write (6, '(A,3F10.3)') - + ' Elapsed total, user, system time (ETIME): ', - + r1, tarray1 - write (6, *) '(Clock-tick detected after ', i, ' 1K loops.)' - - call idate (i,j,k) - call idate (idat) - write (6,*) 'IDATE (date,month,year): ',idat - print *, '... and the VXT version (month,date,year): ', i,j,k - if (i/=idat(2) .or. j/=idat(1) .or. k/=mod(idat(3),100)) then - print *, '*** VXT and U77 versions don''t agree' - call doabort - end if - - call date (ctim) - write (6,*) 'DATE (dd-mmm-yy): ', ctim(:lenstr (ctim)) - - call itime (idat) - write (6,*) 'ITIME (hour,minutes,seconds): ', idat - - call time(line(:8)) - print *, 'TIME: ', line(:8) - - write (6,*) 'SECNDS(0.0) returns: ',secnds(0.0) - - write (6,*) 'SECOND returns: ', second() - call dumdum(r1) - call second(r1) - write (6,*) 'CALL SECOND returns: ', r1 - -* compiler crash fixed by 1998-10-01 com.c change - if (rand(0).lt.0.0 .or. rand(0).gt.1.0) then - write (6,*) '*** rand(0) error' - call doabort() - end if - - i = getcwd(wd) - if (i.ne.0) then - call perror ('*** getcwd') - call doabort - else - write (6,*) 'Current directory is "'//wd(:lenstr(wd))//'"' - end if - call chdir ('.',i) - if (i.ne.0) then - write (6,*) '***CHDIR to ".": ', i - call doabort - end if - - i=hostnm(wd) - if(i.ne.0) then - call perror ('*** hostnm') - call doabort - else - write (6,*) 'Host name is ', wd(:lenstr(wd)) - end if - - i = access('/dev/null ', 'rw') - if (i.ne.0) write (6,*) '***Read/write ACCESS to /dev/null: ', i - write (6,*) 'Creating file "foo" for testing...' - open (3,file='foo',status='UNKNOWN') - rewind 3 - call fputc(3, 'c',i) - call fputc(3, 'd',j) - if (i+j.ne.0) write(6,*) '***FPUTC: ', i -C why is it necessary to reopen? (who wrote this?) -C the better to test with, my dear! (-- burley) - close(3) - open(3,file='foo',status='old') - call fseek(3,0,0,*10) - go to 20 - 10 write(6,*) '***FSEEK failed' - call doabort - 20 call fgetc(3, c,i) - if (i.ne.0) then - write(6,*) '***FGETC: ', i - call doabort - end if - if (c.ne.'c') then - write(6,*) '***FGETC read the wrong thing: ', ichar(c) - call doabort - end if - i= ftell(3) - if (i.ne.1) then - write(6,*) '***FTELL offset: ', i - call doabort - end if - call ftell(3, i) - if (i.ne.1) then - write(6,*) '***CALL FTELL offset: ', i - call doabort - end if - call chmod ('foo', 'a+w',i) - if (i.ne.0) then - write (6,*) '***CHMOD of "foo": ', i - call doabort - end if - i = fstat (3, fstatb) - if (i.ne.0) then - write (6,*) '***FSTAT of "foo": ', i - call doabort - end if - i = stat ('foo', statb) - if (i.ne.0) then - write (6,*) '***STAT of "foo": ', i - call doabort - end if - write (6,*) ' with stat array ', statb - if (statb(6) .ne. getgid ()) then - write (6,*) 'Note: FSTAT gid wrong (happens on some systems).' - end if - if (statb(5) .ne. getuid () .or. statb(4) .ne. 1) then - write (6,*) '*** FSTAT uid or nlink is wrong' - call doabort - end if - do i=1,13 - if (fstatb (i) .ne. statb (i)) then - write (6,*) '*** FSTAT and STAT don''t agree on '// ' - + array element ', i, ' value ', fstatb (i), statb (i) - call doabort - end if - end do - i = lstat ('foo', fstatb) - do i=1,13 - if (fstatb (i) .ne. statb (i)) then - write (6,*) '*** LSTAT and STAT don''t agree on '// - + 'array element ', i, ' value ', fstatb (i), statb (i) - call doabort - end if - end do - -C in case it exists already: - call unlink ('bar',i) - call link ('foo ', 'bar ',i) - if (i.ne.0) then - write (6,*) '***LINK "foo" to "bar" failed: ', i - call doabort - end if - call unlink ('foo',i) - if (i.ne.0) then - write (6,*) '***UNLINK "foo" failed: ', i - call doabort - end if - call unlink ('foo',i) - if (i.eq.0) then - write (6,*) '***UNLINK "foo" again: ', i - call doabort - end if - - call gerror (gerr) - i = ierrno() - write (6,'(A,I3,A/1X,A)') ' The current error number is: ', - + i, - + ' and the corresponding message is:', gerr(:lenstr(gerr)) - write (6,*) 'This is sent to stderr prefixed by the program name' - call getarg (0, line) - call perror (line (:lenstr (line))) - call unlink ('bar') - - print *, 'MCLOCK returns ', mclock () - print *, 'MCLOCK8 returns ', mclock8 () - - call cpu_time (d1) - print *, 'CPU_TIME returns ', d1 - - WRITE (6,*) 'You should see exit status 1' - CALL EXIT(1) - 99 END - -* Return length of STR not including trailing blanks, but always > 0. - integer function lenstr (str) - character*(*) str - if (str.eq.' ') then - lenstr=1 - else - lenstr = lnblnk (str) - end if - end - -* Just make sure SECOND() doesn't "magically" work the second time. - subroutine dumdum(r) - r = 3.14159 - end - -* Test whether sum is approximately left+right. - logical function issum (sum, left, right) - implicit none - real sum, left, right - real mysum, delta, width - mysum = left + right - delta = abs (mysum - sum) - width = abs (left) + abs (right) - issum = (delta .le. .0001 * width) - end - -* Signal handler - subroutine ctrlc - print *, 'Got ^C' - call doabort - end - -* A problem has been noticed, so maybe abort the test. - subroutine doabort -* For this version, print out all problems noticed. -* intrinsic abort -* call abort - end diff --git a/gnu/egcs/libf2c/libU77/umask_.c b/gnu/egcs/libf2c/libU77/umask_.c deleted file mode 100644 index 203acfa916f..00000000000 --- a/gnu/egcs/libf2c/libU77/umask_.c +++ /dev/null @@ -1,34 +0,0 @@ -/* Copyright (C) 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <sys/types.h> -#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/gnu/egcs/libf2c/libU77/unlink_.c b/gnu/egcs/libf2c/libU77/unlink_.c deleted file mode 100644 index cd00559b29a..00000000000 --- a/gnu/egcs/libf2c/libU77/unlink_.c +++ /dev/null @@ -1,57 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#else -# include <stdio.h> -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#include <errno.h> -#if HAVE_SYS_PARAM_H -# include <sys/param.h> -#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; - int i; - - buff = malloc (Lstr+1); - if (buff == NULL) return -1; - g_char (str, Lstr, buff); - i = unlink (buff); - free (buff); - return i ? errno : 0; /* SGI version returns -1 on failure. */ -} diff --git a/gnu/egcs/libf2c/libU77/vxtidate_.c b/gnu/egcs/libf2c/libU77/vxtidate_.c deleted file mode 100644 index dc817a7f482..00000000000 --- a/gnu/egcs/libf2c/libU77/vxtidate_.c +++ /dev/null @@ -1,55 +0,0 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#include "f2c.h" - -/* VMS and Irix versions (at least) differ from libU77 elsewhere */ - -/* 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; - tim = time(NULL); - lt = localtime(&tim); - *y = lt->tm_year % 100; - *m = lt->tm_mon+1; - *d = lt->tm_mday; - return 0; -} diff --git a/gnu/egcs/libf2c/libU77/vxttime_.c b/gnu/egcs/libf2c/libU77/vxttime_.c deleted file mode 100644 index 054bb45a89a..00000000000 --- a/gnu/egcs/libf2c/libU77/vxttime_.c +++ /dev/null @@ -1,54 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif -#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; - tim = time(NULL); - ctim = ctime (&tim); - strncpy (chtime, ctim+11, 8); -} diff --git a/gnu/egcs/libf2c/permission.netlib b/gnu/egcs/libf2c/permission.netlib deleted file mode 100644 index 261b719bc57..00000000000 --- a/gnu/egcs/libf2c/permission.netlib +++ /dev/null @@ -1,23 +0,0 @@ -/**************************************************************** -Copyright 1990 - 1997 by AT&T, Lucent Technologies and Bellcore. - -Permission to use, copy, modify, and distribute this software -and its documentation for any purpose and without fee is hereby -granted, provided that the above copyright notice appear in all -copies and that both that the copyright notice and this -permission notice and warranty disclaimer appear in supporting -documentation, and that the names of AT&T, Bell Laboratories, -Lucent or Bellcore or any of their entities not be used in -advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -AT&T, Lucent and Bellcore disclaim all warranties with regard to -this software, including all implied warranties of -merchantability and fitness. In no event shall AT&T, Lucent or -Bellcore be liable for any special, indirect or consequential -damages or any damages whatsoever resulting from loss of use, -data or profits, whether in an action of contract, negligence or -other tortious action, arising out of or in connection with the -use or performance of this software. -****************************************************************/ - diff --git a/gnu/egcs/libf2c/readme.netlib b/gnu/egcs/libf2c/readme.netlib deleted file mode 100644 index 406a753cf30..00000000000 --- a/gnu/egcs/libf2c/readme.netlib +++ /dev/null @@ -1,780 +0,0 @@ - -====== old index for f2c, now "readme from f2c" ============ - -FILES: - -f2c.h Include file necessary for compiling output of the converter. - See the second NOTE below. - -f2c.1 Man page for f2c. - -f2c.1t Source for f2c.1 (to be processed by troff -man or nroff -man). - -libf77 Library of non I/O support routines the generated C may need. - Fortran main programs result in a C function named MAIN__ that - is meant to be invoked by the main() in libf77. - -libi77 Library of Fortran I/O routines the generated C may need. - Note that some vendors (e.g., BSD, Sun and MIPS) provide a - libF77 and libI77 that are incompatible with f2c -- they - provide some differently named routines or routines with the - names that f2c expects, but with different calling sequences. - On such systems, the recommended procedure is to merge - libf77 and libi77 into a single library, say libf2c, and to - install it where you can access it by specifying -lf2c . The - definition of link_msg in sysdep.c assumes this arrangement. - - Both libf77 and libi77 are bundles, meant to be unpacked by the - Bourne (or Korn) shell. MS-DOS users can use the MKS Toolkit - to unpack libf77 and libi77. - -libf2c.zip - Only available by ftp: combination of libf77 and libi77, with - Unix and PC makefiles. - -f2c.ps Postscript for a technical report on f2c. After you strip the - mail header, the first line should be "%!PS". - -fixes The complete change log, reporting bug fixes and other changes. - (Some recent change-log entries are given below). - -fc A shell script that uses f2c and imitates much of the behavior - of commonly found f77 commands. You will almost certainly - need to adjust some of the shell-variable assignments to make - this script work on your system. - - -SUBDIRECTORY: - -f2c/src Source for the converter itself, including a file of checksums - and source for a program to compute the checksums (to verify - correct transmission of the source), is available: ask netlib - (e.g., netlib@netlib.bell-labs.com) to - send all from f2c/src - If the checksums show damage to just a few source files, or if - the change log file (see "fixes" below) reports corrections to - some source files, you can request those files individually - "from f2c/src". For example, to get defs.h and xsum0.out, you - would ask netlib to - send defs.h xsum0.out from f2c/src - "all from f2c/src" is about 640 kilobytes long; for convenience - (and checksums), it includes copies of f2c.h, f2c.1, and f2c.1t. - - Tip: if asked to send over 99,000 bytes in one request, netlib - breaks the shipment into 1000 line pieces and sends each piece - separately (since otherwise some mailers might gag). To avoid - the hassle of reassembling the pieces, try to keep each request - under 99,000 bytes long. The final number in each line of - xsum0.out gives the length of each file in f2c/src. For - example, - send exec.c expr.c from f2c/src - send format.c format_data.c from f2c/src - will give you slightly less hassle than - send exec.c expr.c format.c format_data.c from f2c/src - Alternatively, if all the mailers in your return path allow - long messages, you can supply an appropriate mailsize line in - your netlib request, e.g. - mailsize 200k - send exec.c expr.c format.c format_data.c from f2c/src - - The makefile used to generate gram.c; now we distribute a - working gram.c, and you must say - make gram1.c - mv gram1.c gram.c - if you want to generate your own gram.c -- there are just too - many broken variants of yacc floating around nowadays for - generation of gram.c to be the default. - -NOTE: You may exercise f2c by sending netlib@netlib.bell-labs.com - a message whose first line is "execute f2c" and whose remaining - lines are the Fortran 77 source that you wish to have converted. - Return mail brings you the resulting C, with f2c's error - messages between #ifdef uNdEfInEd and #endif at the end. - (To understand line numbers in the error messages, regard - the "execute f2c" line as line 0. It is stripped away by - the netlib software before f2c sees your Fortran input.) - Options described in the man page may be transmitted to - netlib by having the first line of input be a comment - whose first 6 characters are "c$f2c " and whose remaining - characters are the desired options, e.g., "c$f2c -R -u". - - You may say "execute f2c" in the Subject line instead of (but - *not* in addition to) in the first line of the message body. - - The incoming Fortran is saved, at least for a while. Don't - send any secrets! - - -BUGS: Please send bug reports (including the shortest example - you can find that illustrates the bug) to research!dmg - or dmg@bell-labs.com . You might first check whether - the bug goes away when you turn optimization off. - - -NOTE: f2c.h defines several types, e.g., real, integer, doublereal. - The definitions in f2c.h are suitable for most machines, but if - your machine has sizeof(double) > 2*sizeof(long), you may need - to adjust f2c.h appropriately. f2c assumes - sizeof(doublecomplex) = 2*sizeof(doublereal) - sizeof(doublereal) = sizeof(complex) - sizeof(doublereal) = 2*sizeof(real) - sizeof(real) = sizeof(integer) - sizeof(real) = sizeof(logical) - sizeof(real) = 2*sizeof(shortint) - EQUIVALENCEs may not be translated correctly if these - assumptions are violated. - - On machines, such as those using a DEC Alpha processor, on - which sizeof(short) == 2, sizeof(int) == sizeof(float) == 4, - and sizeof(long) == sizeof(double) == 8, it suffices to - modify f2c.h by removing the first occurrence of "long " - on each line containing "long ", e.g., by issuing the - commands - mv f2c.h f2c.h0 - sed 's/long //' f2c.h0 >f2c.h - On such machines, one can enable INTEGER*8 by uncommenting - the typedef of longint in f2c.h, so it reads - typedef long longint; - by compiling libI77 with -DAllow_TYQUAD, and by adjusting - libF77/makefile as described in libF77/README. - - Some machines may have sizeof(int) == 4, sizeof(float) == 8, - and sizeof(long long) == 8. On such machines, adjust f2c.h - by changing "long int " to "long long ", e.g., by saying - mv f2c.h f2c.h0 - sed 's/long int /long long /' f2c.h0 >f2c.h - One can enable INTEGER*8 on such machines as described - above, but with - typedef long long longint; - - There exists a C compiler that objects to the lines - typedef VOID C_f; /* complex function */ - typedef VOID H_f; /* character function */ - typedef VOID Z_f; /* double complex function */ - in f2c.h . If yours is such a compiler, do two things: - 1. Complain to your vendor about this compiler bug. - 2. Find the line - #define VOID void - in f2c.h and change it to - #define VOID int - (For readability, the f2c.h lines shown above have had two - tabs inserted before their first character.) - -FTP: All the material described above is now available by anonymous - ftp from netlib.bell-labs.com (login: anonymous; Password: your - E-mail address; cd netlib/f2c). Note that you can say, e.g., - - cd /netlib/f2c/src - binary - prompt - mget *.gz - - to get all the .gz files in src. You must uncompress the .gz - files once you have a copy of them, e.g., by - - gzip -dN *.gz - - You can also get the entire f2c tree as a tar file: - - ftp://netlib.bell-labs.com/netlib/f2c.tar - - (which is a synthetic file -- created on the fly and not visible - to ftp's "ls" or "dir" commands). - - Subdirectory msdos contains two PC versions of f2c, - f2c.exe.gz and f2cx.exe.gz; the latter uses extended memory. - The README in that directory provides more details. - - Changes appear first in the f2c files available by E-mail - from netlib@netlib.bell-labs.com. If the deamons work right, - changed files are available the next day by ftp from - netlib.bell-labs.com. In due course, they reach other netlib servers. - -CHANGE NOTIFICATION: - Send the E-mail message - subscribe f2c - to netlib@netlib.bell-labs.com to request notification of new and - changed f2c files. (Beware that automatically sent change - notifications may reach you before changes have reached - ftp://netlib.bell-labs.com/netlib/f2c or to other netlib servers.) - Send the E-mail message - unsubscribe f2c - to recant your notification request. - ------------------ -Recent change log (partial) ------------------ - -Mon May 13 23:35:26 EDT 1996 - Recognize Fortran 90's /= as a synonym for .NE.. (<> remains a -synonym for .NE..) - Emit an empty int function of no arguments to supply an external -name to named block data subprograms (so they can be called somewhere -to force them to be loaded from a library). - Fix bug (memory fault) in handling the following illegal Fortran: - parameter(i=1) - equivalence(i,j) - end - Treat cdabs, cdcos, cdexp, cdlog, cdsin, and cdsqrt as synonyms for -the double complex intrinsics zabs, zcos, zexp, zlog, zsin, and zsqrt, -respectively, unless -cd is specified. - Recognize the Fortran 90 bit-manipulation intrinsics btest, iand, -ibclr, ibits, ibset, ieor, ior, ishft, and ishftc, unless -i90 is -specified. Note that iand, ieor, and ior are thus now synonyms for -"and", "xor", and "or", respectively. - Add three macros (bit_test, bit_clear, bit_set) to f2c.h for use -with btest, ibclr, and ibset, respectively. Add new functions -[lq]bit_bits, [lq]bit_shift, and [lq]_bit_cshift to libF77 for -use with ibits, ishft, and ishftc, respectively. - Add integer function ftell(unit) (returning -1 on error) and -subroutine fseek(unit, offset, whence, *) to libI77 (with branch to -label * on error). - -Tue May 14 23:21:12 EDT 1996 - Fix glitch (possible memory fault, or worse) in handling multiple -entry points with names over 28 characters long. - -Mon Jun 10 01:20:16 EDT 1996 - Update netlib E-mail and ftp addresses in f2c/readme and -f2c/src/readme (which are different files) -- to reflect the upcoming -breakup of AT&T. - libf77: trivial tweaks to F77_aloc.c and system_.c; Version.c not -changed. - libi77: Adjust rsli.c and lread.c so internal list input with too -few items in the input string will honor end= . - -Mon Jun 10 22:59:57 EDT 1996 - Add Bits_per_Byte to sysdep.h and adjust definition of Table_size -to depend on Bits_per_Byte (forcing Table_size to be a power of 2); in -lex.c, change "comstart[c & 0xfff]" to "comstart[c & (Table_size-1)]" -to avoid an out-of-range subscript on end-of-file. - -Wed Jun 12 00:24:28 EDT 1996 - Fix bug in output.c (dereferencing a freed pointer) revealed in - print * !np in out_call in output.c clobbered by free - end !during out_expr. - -Wed Jun 19 08:12:47 EDT 1996 - f2c.h: add types uinteger, ulongint (for libF77); add qbit_clear -and qbit_set macros (in a commented-out section) for integer*8. - For integer*8, use qbit_clear and qbit_set for ibclr and ibset. - libf77: add casts to unsigned in [lq]bitshft.c. - -Thu Jun 20 13:30:43 EDT 1996 - Complain at character*(*) in common (rather than faulting). - Fix bug in recognizing hex constants that start with "16#" (e.g., -16#1234abcd, which is a synonym for z'1234abcd'). - Fix bugs in constant folding of expressions involving btest, ibclr, -and ibset. - Fix bug in constant folding of rshift(16#80000000, -31) (on a 32-bit -machine; more generally, the bug was in constant folding of -rshift(ibset(0,NBITS-1), 1-NBITS) when f2c runs on a machine with -long ints having NBITS bits. - -Mon Jun 24 07:58:53 EDT 1996 - Adjust struct Literal and newlabel() function to accommodate huge -source files (with more than 32767 newlabel() invocations). - Omit .c file when the .f file has a missing final end statement. - -Wed Jun 26 14:00:02 EDT 1996 - libi77: Add discussion of MXUNIT (highest allowed Fortran unit number) -to libI77/README. - -Fri Jun 28 14:16:11 EDT 1996 - Fix glitch with -onetrip: the temporary variable used for nonconstant -initial loop variable values was recycled too soon. Example: - do i = j+1, k - call foo(i+1) ! temp for j+1 was reused here - enddo - end - -Tue Jul 2 16:11:27 EDT 1996 - formatdata.c: add a 0 to the end of the basetype array (for TYBLANK) -(an omission that was harmless on most machines). - expr.c: fix a dereference of NULL that was only possible with buggy -input, such as - subroutine $sub(s) ! the '$' is erroneous - character s*(*) - s(1:) = ' ' - end - -Sat Jul 6 00:44:56 EDT 1996 - Fix glitch in the intrinsic "real" function when applied to a -complex (or double complex) variable and passed as an argument to -some intrinsic functions. Example: - complex a - b = sqrt(real(a)) - end - Fix glitch (only visible if you do not use f2c's malloc and the -malloc you do use is defective in the sense that malloc(0) returns 0) -in handling include files that end with another include (perhaps -followed by comments). - Fix glitch with character*(*) arguments named "h" and "i" when -the body of the subroutine invokes the intrinsic LEN function. - Arrange that after a previous "f2c -P foo.f" has produced foo.P, -running "f2c foo.P foo.f" will produce valid C when foo.f contains - call sub('1234') - end - subroutine sub(msg) - end -Specifically, the length argument in "call sub" is now suppressed. -With or without foo.P, it is also now suppressed when the order of -subprograms in file foo.f is reversed: - subroutine sub(msg) - end - call sub('1234') - end - Adjust copyright notices to reflect AT&T breakup. - -Wed Jul 10 09:25:49 EDT 1996 - Fix bug (possible memory fault) in handling erroneously placed -and inconsistent declarations. Example that faulted: - character*1 w(8) - call foo(w) - end - subroutine foo(m) - data h /0.5/ - integer m(2) ! should be before data - end - Fix bug (possible fault) in handling illegal "if" constructions. -Example (that faulted): - subroutine foo(i,j) - if (i) then ! bug: i is integer, not logical - else if (j) then ! bug: j is integer, not logical - endif - end - Fix glitch with character*(*) argument named "ret_len" to a -character*(*) function. - -Wed Jul 10 23:04:16 EDT 1996 - Fix more glitches in the intrinsic "real" function when applied to a -complex (or double complex) variable and passed as an argument to -some intrinsic functions. Example: - complex a, b - r = sqrt(real(conjg(a))) + sqrt(real(a*b)) - end - -Thu Jul 11 17:27:16 EDT 1996 - Fix a memory fault associated with complicated, illegal input. -Example: - subroutine goo - character a - call foo(a) ! inconsistent with subsequent def and call - end - subroutine foo(a) - end - call foo(a) - end - -Wed Jul 17 19:18:28 EDT 1996 - Fix yet another case of intrinsic "real" applied to a complex -argument. Example: - complex a(3) - x = sqrt(real(a(2))) ! gave error message about bad tag - end - -Mon Aug 26 11:28:57 EDT 1996 - Tweak sysdep.c for non-Unix systems in which process ID's can be -over 5 digits long. - -Tue Aug 27 08:31:32 EDT 1996 - Adjust the ishft intrinsic to use unsigned right shifts. (Previously, -a negative constant second operand resulted in a possibly signed shift.) - -Thu Sep 12 14:04:07 EDT 1996 - equiv.c: fix glitch with -DKR_headers. - libi77: fmtlib.c: fix bug in printing the most negative integer. - -Fri Sep 13 08:54:40 EDT 1996 - Diagnose some illegal appearances of substring notation. - -Tue Sep 17 17:48:09 EDT 1996 - Fix fault in handling some complex parameters. Example: - subroutine foo(a) - double complex a, b - parameter(b = (0,1)) - a = b ! f2c faulted here - end - -Thu Sep 26 07:47:10 EDT 1996 - libi77: fmt.h: for formatted writes of negative integer*1 values, -make ic signed on ANSI systems. If formatted writes of integer*1 -values trouble you when using a K&R C compiler, switch to an ANSI -compiler or use a compiler flag that makes characters signed. - -Tue Oct 1 14:41:36 EDT 1996 - Give a better error message when dummy arguments appear in data -statements. - -Thu Oct 17 13:37:22 EDT 1996 - Fix bug in typechecking arguments to character and complex (or -double complex) functions; the bug could cause length arguments -for character arguments to be omitted on invocations appearing -textually after the first invocation. For example, in - subroutine foo - character c - complex zot - call goo(zot(c), zot(c)) - end -the length was omitted from the second invocation of zot, and -there was an erroneous error message about inconsistent calling -sequences. - -Wed Dec 4 13:59:14 EST 1996 - Fix bug revealed by - subroutine test(cdum,rdum) - complex cdum - rdum=cos(real(cdum)) ! "Unexpected tag 3 in opconv_fudge" - end - Fix glitch in parsing "DO 10 D0 = 1, 10". - Fix glitch in parsing - real*8 x - real*8 x ! erroneous "incompatible type" message - call foo(x) - end - lib[FI]77/makefile: add comment about omitting -x under Solaris. - -Mon Dec 9 23:15:02 EST 1996 - Fix glitch in parameter adjustments for arrays whose lower -bound depends on a scalar argument. Example: - subroutine bug(p,z,m,n) - integer z(*),m,n - double precision p(z(m):z(m) + n) ! p_offset botched - call foo(p(0), p(n)) - end - libi77: complain about non-positive rec= in direct read and write -statements. - libf77: trivial adjustments; Version.c not changed. - -Wed Feb 12 00:18:03 EST 1997 - output.c: fix (seldom problematic) glitch in out_call: put parens -around the ... in a test of the form "if (q->tag == TADDR && ...)". - vax.c: fix bug revealed in the "psi_offset =" assignment in the -following example: - subroutine foo(psi,m) - integer z(100),m - common /a/ z - double precision psi(z(m):z(m) + 10) - call foo(m+1, psi(0),psi(10)) - end - -Mon Feb 24 23:44:54 EST 1997 - For consistency with f2c's current treatment of adjacent character -strings in FORMAT statements, recognize a Hollerith string following -a string (and merge adjacent strings in FORMAT statements). - -Wed Feb 26 13:41:11 EST 1997 - New libf2c.zip, a combination of the libf77 and libi77 bundles (and -available only by ftp). - libf77: adjust functions with a complex output argument to permit -aliasing it with input arguments. (For now, at least, this is just -for possible benefit of g77.) - libi77: tweak to ftell_.c for systems with strange definitions of -SEEK_SET, etc. - -Tue Apr 8 20:57:08 EDT 1997 - libf77: [cz]_div.c: tweaks invisible on most systems (that may -improve things slightly with optimized compilation on systems that use -gratuitous extra precision). - libi77: fmt.c: adjust to complain at missing numbers in formats -(but still treat missing ".nnn" as ".0"). - -Fri Apr 11 14:05:57 EDT 1997 - libi77: err.c: attempt to make stderr line buffered rather than -fully buffered. (Buffering is needed for format items T and TR.) - -Thu Apr 17 22:42:43 EDT 1997 - libf77: add F77_aloc.o to makefile (and makefile.u in libf2c.zip). - -Fri Apr 25 19:32:09 EDT 1997 - libf77: add [de]time_.c (which may give trouble on some systems). - -Tue May 27 09:18:52 EDT 1997 - libi77: ftell_.c: fix typo that caused the third argument to be -treated as 2 on some systems. - -Mon Jun 9 00:04:37 EDT 1997 - libi77 (and libf2c.zip): adjust include order in err.c lread.c wref.c -rdfmt.c to include fmt.h (etc.) after system includes. Version.c not -changed. - -Mon Jun 9 14:29:13 EDT 1997 - src/gram.c updated; somehow it did not reflect the change of -19961001 to gram.dcl. - -Mon Jul 21 16:04:54 EDT 1997 - proc.c: fix glitch in logic for "nonpositive dimension" message. - libi77: inquire.c: always include string.h (for possible use with --DNON_UNIX_STDIO); Version.c not changed. - -Thu Jul 24 17:11:23 EDT 1997 - Tweak "Notice" to reflect the AT&T breakup -- we missed it when -updating the copyright notices in the source files last summer. - Adjust src/makefile so malloc.o is not used by default, but can -be specified with "make MALLOC=malloc.o". - Add comments to src/README about the "CRAY" T3E. - -Tue Aug 5 14:53:25 EDT 1997 - Add definition of calloc to malloc.c; this makes f2c's malloc -work on some systems where trouble hitherto arose because references -to calloc brought in the system's malloc. (On sensible systems, -calloc is defined separately from malloc. To avoid confusion on -other systems, f2c/malloc.c now defines calloc.) - libi77: lread.c: adjust to accord with a change to the Fortran 8X -draft (in 1990 or 1991) that rescinded permission to elide quote marks -in namelist input of character data; to get the old behavior, compile -with F8X_NML_ELIDE_QUOTES #defined. wrtfmt.o: wrt_G: tweak to print -the right number of 0's for zero under G format. - -Sat Aug 16 05:45:32 EDT 1997 - libi77: iio.c: fix bug in internal writes to an array of character -strings that sometimes caused one more array element than required by -the format to be blank-filled. Example: format(1x). - -Wed Sep 17 00:39:29 EDT 1997 - libi77: fmt.[ch] rdfmt.c wrtfmt.c: tweak struct syl for machines -with 64-bit pointers and 32-bit ints that did not 64-bit align -struct syl (e.g., Linux on the DEC Alpha). This change should be -invisible on other machines. - -Sun Sep 21 22:05:19 EDT 1997 - libf77: [de]time_.c (Unix systems only): change return type to double. - -Thu Dec 4 22:10:09 EST 1997 - Fix bug with handling large blocks of comments (over 4k); parts of the -second and subsequent blocks were likely to be lost (not copied into -comments in the resulting C). Allow comment lines to be longer before -breaking them. - -Mon Jan 19 17:19:27 EST 1998 - makefile: change the rule for making gram.c to one for making gram1.c; -henceforth, asking netlib to "send all from f2c/src" will bring you a -working gram.c. Nowadays there are simply too many broken versions of -yacc floating around. - libi77: backspace.c: for b->ufmt==0, change sizeof(int) to -sizeof(uiolen). On machines where this would make a difference, it is -best for portability to compile libI77 with -DUIOLEN_int, which will -render the change invisible. - -Tue Feb 24 08:35:33 EST 1998 - makefile: remove gram.c from the "make clean" rule. - -Wed Feb 25 08:29:39 EST 1998 - makefile: change CFLAGS assignment to -O; add "veryclean" rule. - -Wed Mar 4 13:13:21 EST 1998 - libi77: open.c: fix glitch in comparing file names under --DNON_UNIX_STDIO. - -Mon Mar 9 23:56:56 EST 1998 - putpcc.c: omit an unnecessary temporary variable in computing -(expr)**3. - libf77, libi77: minor tweaks to make some C++ compilers happy; -Version.c not changed. - -Wed Mar 18 18:08:47 EST 1998 - libf77: minor tweaks to [ed]time_.c; Version.c not changed. - libi77: endfile.c, open.c: acquire temporary files from tmpfile(), -unless compiled with -DNON_ANSI_STDIO, which uses mktemp(). -New buffering scheme independent of NON_UNIX_STDIO for handling T -format items. Now -DNON_UNIX_STDIO is no longer be necessary for -Linux, and libf2c no longer causes stderr to be buffered -- the former -setbuf or setvbuf call for stderr was to make T format items work. -open.c: use the Posix access() function to check existence or -nonexistence of files, except under -DNON_POSIX_STDIO, where trial -fopen calls are used. In open.c, fix botch in changes of 19980304. - libf2c.zip: the PC makefiles are now set for NT/W95, with comments -about changes for DOS. - -Fri Apr 3 17:22:12 EST 1998 - Adjust fix of 19960913 to again permit substring notation on -character variables in data statements. - -Sun Apr 5 19:26:50 EDT 1998 - libi77: wsfe.c: make $ format item work: this was lost in the changes -of 17 March 1998. - -Sat May 16 19:08:51 EDT 1998 - Adjust output of ftnlen constants: rather than appending L, -prepend (ftnlen). This should make the resulting C more portable, -e.g., to systems (such as DEC Alpha Unix systems) on which long -may be longer than ftnlen. - Adjust -r so it also casts REAL expressions passed to intrinsic -functions to REAL. - -Wed May 27 16:02:35 EDT 1998 - libf2c.zip: tweak description of compiling libf2c for INTEGER*8 -to accord with makefile.u rather than libF77/makefile. - -Thu May 28 22:45:59 EDT 1998 - libi77: backspace.c dfe.c due.c iio.c lread.c rsfe.c sue.c wsfe.c: -set f__curunit sooner so various error messages will correctly -identify the I/O unit involved. - libf2c.zip: above, plus tweaks to PC makefiles: for some purposes, -it's still best to compile with -DMSDOS (even for use with NT). - -Thu Jun 18 01:22:52 EDT 1998 - libi77: lread.c: modified so floating-point numbers (containing -either a decimal point or an exponent field) are treated as errors -when they appear as list input for integer data. Compile lread.c with --DALLOW_FLOAT_IN_INTEGER_LIST_INPUT to restore the old behavior. - -Mon Aug 31 10:38:54 EDT 1998 - formatdata.c: if possible, and assuming doubles must be aligned on -double boundaries, use existing holes in DATA for common blocks to -force alignment of the block. For example, - block data - common /abc/ a, b - double precision a - integer b(2) - data b(2)/1/ - end -used to generate - struct { - integer fill_1[3]; - integer e_2; - doublereal e_3; - } abc_ = { {0}, 1, 0. }; -and now generates - struct { - doublereal fill_1[1]; - integer fill_2[1]; - integer e_3; - } abc_ = { {0}, {0}, 1 }; -In the old generated C, e_3 was added to force alignment; in the new C, -fill_1 does this job. - -Mon Sep 7 19:48:51 EDT 1998 - libi77: move e_wdfe from sfe.c to dfe.c, where it was originally. -Why did it ever move to sfe.c? - -Tue Sep 8 10:22:50 EDT 1998 - Treat dreal as a synonym for dble unless -cd is specified on the -command line. - -Sun Sep 13 22:23:41 EDT 1998 - format.c: fix bug in writing prototypes under f2c -A ... *.P: -under some circumstances involving external functions with no known -type, a null pointer was passed to printf. - -Tue Oct 20 23:25:54 EDT 1998 - Comments added to libf2c/README and libF77/README, pointing out -the need to modify signal1.h on some systems. - -Thu Nov 12 15:34:09 EST 1998 - libf77, libf2c.zip: minor tweaks to [de]time_.c and the makefiles, -so makefile.sy, makefile.vc, and makefile.wat deal with [de]time_.c. - -Wed Feb 10 22:59:52 EST 1999 - defs.h lex.c: permit long names (up to at least roughly -MAX_SHARPLINE_LEN = 1000 characters long) in #line lines (which only -matters under -g). - fc: add -U option; recognize .so files. - -Sat Feb 13 10:18:27 EST 1999 - libf2c: endfile.c, lread.c, signal1.h0: minor tweaks to make some -(C++) compilers happier; f77_aloc.c: make exit_() visible to C++ -compilers. Version strings not changed. - -Thu Mar 11 23:14:02 EST 1999 - Modify f2c (exec.c, expr.c) to diagnose incorrect mixing of types -when (f2c extended) intrinsic functions are involved, as in -(not(17) .and. 4). Catching this in the first executable statement -is a bit tricky, as some checking must be postponed until all statement -function declarations have been parsed. Thus there is a chance of -today's changes introducing bugs under (let us hope) unusual conditions. - -Sun Mar 28 13:17:44 EST 1999 - lex.c: tweak to get the file name right in error messages caused -by statements just after a # nnn "filename" line emitted by the C -preprocessor. (The trouble is that the line following the # nnn line -must be read to see if it is a continuation of the stuff that preceded -the # nnn line.) When # nnn "filename" lines appear among the lines -for a Fortran statement, the filename reported in an error message for -the statement should now be the file that was current when the first -line of the statement was read. - -Sun May 2 22:38:25 EDT 1999 - libf77, libi77, libf2c.zip: make getenv_() more portable (call -getenv() rather than knowing about char **environ); adjust some -complex intrinsics to work with overlapping arguments (caused by -inappropriate use of equivalence); open.c: get "external" versus -"internal" right in the error message if a file cannot be opened; -err.c: cast a pointer difference to (int) for %d; rdfmt.c: omit -fixed-length buffer that could be overwritten by formats Inn or Lnn -with nn > 83. - -Mon May 3 13:14:07 EDT 1999 - "Invisible" changes to omit a few compiler warnings in f2c and -libf2c; two new casts in libf2c/open.c that matter with 64-bit longs, -and one more tweak (libf2c/c_log.c) for pathological equivalences. - Minor update to "fc" script: new -L flag and comment correction. - -Tue May 4 10:06:26 EDT 1999 - libf77, libf2c.zip: forgot to copy yesterday's latest updates to -netlib. - -Current timestamps of files in "all from f2c/src", sorted by time, -appear below (mm/dd/year hh:mm:ss). To bring your source up to date, -obtain source files with a timestamp later than the time shown in your -version.c. Note that the time shown in the current version.c is the -timestamp of the source module that immediately follows version.c below: - - 5/03/1999 12:46:15 version.c - 5/03/1999 12:39:35 formatdata.c - 5/03/1999 12:31:14 format.c - 5/03/1999 12:27:17 p1output.c - 5/03/1999 12:27:17 data.c - 5/03/1999 10:01:12 xsum0.out - 5/03/1999 9:59:36 io.c - 5/03/1999 9:59:36 misc.c - 5/03/1999 9:59:36 init.c - 3/26/1999 23:18:11 lex.c - 3/11/1999 16:44:17 expr.c - 3/11/1999 16:42:42 exec.c - 2/10/1999 17:43:01 defs.h - 9/08/1998 10:16:51 f2c.1 - 9/08/1998 10:16:48 f2c.1t - 9/08/1998 10:14:53 intr.c - 5/16/1998 16:55:49 output.c - 4/03/1998 17:15:05 gram.c - 4/03/1998 17:14:59 gram.dcl - 3/09/1998 0:30:23 putpcc.c - 2/25/1998 8:18:04 makefile -12/04/1997 17:44:11 niceprintf.c - 8/05/1997 10:31:26 malloc.c - 7/24/1997 17:10:55 README - 7/24/1997 16:06:19 Notice - 7/21/1997 12:58:44 proc.c - 2/11/1997 23:39:14 vax.c -12/04/1996 13:07:53 gram.exec - 9/12/1996 12:12:46 equiv.c - 8/26/1996 9:41:13 sysdep.c - 7/09/1996 10:40:45 names.c - 7/04/1996 9:55:45 sysdep.h - 7/04/1996 9:55:43 put.c - 7/04/1996 9:55:41 pread.c - 7/04/1996 9:55:40 parse_args.c - 7/04/1996 9:55:36 mem.c - 7/04/1996 9:55:36 memset.c - 7/04/1996 9:55:35 main.c - 7/04/1996 9:55:29 error.c - 7/04/1996 9:55:27 cds.c - 7/03/1996 15:47:49 xsum.c - 6/19/1996 7:04:27 f2c.h - 6/19/1996 2:52:05 defines.h - 5/13/1996 0:40:32 gram.head - 2/25/1994 2:07:19 parse.h - 2/22/1994 19:07:20 iob.h - 2/22/1994 18:56:53 p1defs.h - 2/22/1994 18:53:46 output.h - 2/22/1994 18:51:14 names.h - 2/22/1994 18:30:41 format.h - 1/18/1994 18:12:52 tokens - 3/06/1993 14:13:58 gram.expr - 1/28/1993 9:03:16 ftypes.h - 4/06/1990 0:00:57 gram.io - 2/03/1990 0:58:26 niceprintf.h - 1/07/1990 1:20:01 usignal.h -11/27/1989 8:27:37 machdefs.h - 7/01/1989 11:59:44 pccdefs.h diff --git a/gnu/egcs/libf2c/shlib_version b/gnu/egcs/libf2c/shlib_version deleted file mode 100644 index d0f0988b418..00000000000 --- a/gnu/egcs/libf2c/shlib_version +++ /dev/null @@ -1,2 +0,0 @@ -major=8 -minor=0 diff --git a/gnu/lib/libf2c/ChangeLog b/gnu/lib/libf2c/ChangeLog deleted file mode 100644 index a72ca2c2263..00000000000 --- a/gnu/lib/libf2c/ChangeLog +++ /dev/null @@ -1,2406 +0,0 @@ -2004-09-30 Release Manager - - * GCC 3.3.5 Released. - -2004-05-31 Release Manager - - * GCC 3.3.4 Released. - -2004-02-14 Release Manager - - * GCC 3.3.3 Released. - -2003-10-16 Release Manager - - * GCC 3.3.2 Released. - -2003-09-09 Alan Modra <amodra@bigpond.net.au> - - * configure: Regenerate. - -2003-08-04 Release Manager - - * GCC 3.3.1 Released. - -2003-08-04 Release Manager - - * GCC 3.3.1 Released. - -2003-07-04 H.J. Lu <hongjiu.lu@intel.com> - - * Makefile.in: Replace PWD with PWD_COMMAND. - -2003-05-13 Release Manager - - * GCC 3.3 Released. - -2003-05-13 Release Manager - - * GCC 3.3 Released. - -2003-05-13 Release Manager - - * GCC 3.3 Released. - -2003-04-23 Loren J. Rittle <ljrittle@acm.org> - - * libI77/configure.in (_XOPEN_SOURCE): Bump to 600. - * libI77/configure: Regenerate. - * libU77/configure.in (_XOPEN_SOURCE): Bump to 600. - * libU77/configure: Regenerate. - -2003-04-11 Bud Davis <bdavis9659@comcast.net> - - PR Fortran/1832 - * libf2c/libI77/iio.c (z_putc): Check for overflowing length - of output string. - -2003-03-24 Bud Davis <bdavis9659@comcast.net> - - PR fortran/10197 - * libI77/open.c (f_open): A DIRECT ACCESS file is - UNFORMATTED by default. - -2003-02-20 Alexandre Oliva <aoliva@redhat.com> - - * configure.in: Propagate ORIGINAL_LD_FOR_MULTILIBS to - config.status. - * configure: Rebuilt. - -2003-01-27 Alexandre Oliva <aoliva@redhat.com> - - * Makefile.in ($(LIBG2C)): -rpath is glibcpp_toolexeclibdir. - * aclocal.m4 (glibcpp_toolexeclibdir): Instead of - $(MULTISUBDIR), use `$CC -print-multi-os-directory`, unless - version_specific_libs is enabled. - * configure: Rebuilt. - -2003-01-26 Christian Cornelssen <ccorn@cs.tu-berlin.de> - - * Makefile.in (FLAGS_TO_PASS): Also pass DESTDIR. - (install, uninstall): Prepend $(DESTDIR) to destination - paths in all (un)installation commands. - -2002-11-19 Toon Moene <toon@moene.indiv.nluug.nl> - - PR fortran/8587 - * libF77/pow_zz.c: Handle (0.0, 0.0) ** power. - -2002-10-18 Krister Walfridsson <cato@df.lth.se> - - * libU77/configure.in (_XOPEN_SOURCE, _XOPEN_SOURCE_EXTENDED, - __EXTENSIONS__, _FILE_OFFSET_BITS): Check that _XOPEN_SOURCE 500L - may be defined before defining these. - * libU77/configure: Regenerate. - * libI77/configure.in (_XOPEN_SOURCE, _XOPEN_SOURCE_EXTENDED, - __EXTENSIONS__, _FILE_OFFSET_BITS): Check that _XOPEN_SOURCE 500L - may be defined before defining these. - * libI77/configure: Regenerate. - -2002-09-23 Zack Weinberg <zack@codesourcery.com> - - * libF77/Version.c: Rename junk to __LIBF77_VERSION__. Add - external decls for __LIBI77_VERSION__ and __LIBU77_VERSION__. - Delete __G77_LIBF77_VERSION__ - (g77__fvers__): Print all three __LIB*77_VERSION__ strings, - and __VERSION__ if we have it; nothing else. - - * libI77/Version.c: Provide only __LIBI77_VERSION__ (formerly junk). - * libU77/Version.c: Provide only __LIBU77_VERSION__ (formerly junk). - -Sun Sep 22 23:43:37 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * Makefile.in (all): Fix multilib parallel build. - -2002-09-14 Tim Prince <tprince@computer.org> - - PR libf2c/7384 - * libU77/datetime_.c: Use GetLocalTime on MS-Windows. - -2002-08-31 Toon Moene <toon@moene.indiv.nluug.nl> - - PR fortran/6367 - * libI77/rsne.c (x_rsne): Use local variable no2 to count further - list elements to read. - -2002-07-10 Toon Moene <toon@moene.indiv.nluug.nl> - - * libI77/open.c (f_open): Do not indicate unformatted file - if record length is given without a FORMATTED/UNFORMATTED - specification. - -2002-06-25 DJ Delorie <dj@redhat.com> - - * aclocal.m4 (GLIBCPP_CONFIGURE): Split out - GLIBCPP_TOPREL_CONFIGURE. - * configure.in: Call it before AC_CANONICAL_SYSTEM. - * configure: Regenerate. - -Wed Jun 5 15:05:41 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * f2cext.c (alarm_): Mark parameter(s) with attribute `unused'. - * libF77/h_len.c (h_len): Likewise. - * libF77/i_len.c (i_len): Likewise. - * libI77/rsli.c (i_ungetc): Likewise. - * libU77/date_.c (G77_date_y2kbuggy_0): Likewise. - * libU77/fputc_.c (G77_fputc_0): Likewise. - * libU77/vxtidate_.c (G77_vxtidate_y2kbuggy_0): Likewise. - * libU77/vxttime_.c (G77_vxttime_0): Likewise. - -Mon Jun 3 22:24:48 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * libF77/main.c (f_setarg, f_setsig): Prototype. - * libI77/lread.c (quad_read): Delete. - * libI77/uio.c: Include config.h. - * libI77/wref.c (wrt_E): Cast isdigit arg to unsigned char. - * libU77/dtime_.c (clk_tck): Move to the scope where it is used. - * libU77/etime_.c (clk_tck): Likewise. - -Mon Jun 3 22:23:03 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * libF77/lbitbits.c (lbit_cshift): disambiguate expressions - with parentheses. - * libF77/qbitbits.c (qbit_cshift): Likewise. - * libI77/inquire.c (f_inqu): Likewise. - * libI77/rdfmt.c (rd_Z): Likewise. - * libI77/rsne.c (x_rsne): Likewise. - -Mon Jun 3 22:21:23 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * Makefile.in (s-libe77): Add WARN_CFLAGS. - -Sun Jun 2 10:32:35 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * libI77/dfe.c (s_rdfe, s_wdfe): Wrap parentheses around - assignment used as truth value. - * libI77/due.c (s_rdue, s_wdue): Likewise. - * libI77/endfile.c (f_end): Likewise. - * libI77/iio.c (s_rsfi, s_wsfi): Likewise. - * libI77/lread.c (ERR, l_C, nmL_getc, s_rsle): Likewise. - * libI77/lwrite.c (l_g, l_put): Likewise. - * libI77/open.c (f_open): Likewise. - * libI77/rdfmt.c (rd_Z): Likewise. - * libI77/rsfe.c (s_rsfe): Likewise. - * libI77/rsne.c (hash, mk_hashtab, nl_init, getname, getdimen, - x_rsne, s_rsne): Likewise. - * libI77/sue.c (s_rsue, s_wsue): Likewise. - * libI77/wref.c (wrt_E, wrt_F): Likewise. - * libI77/wsfe.c (s_wsfe): Likewise. - * libI77/wsle.c (s_wsle): Likewise. - * libI77/wsne.c (s_wsne): Likewise. - -Sun Jun 2 08:59:50 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * libF77/main.c (main): Avoid implicit int. - * libI77/dfe.c (y_rsk, y_getc, c_dfe): Likewise. - * libI77/due.c (c_due): Likewise. - * libI77/err.c (f__canseek, f__nowreading, f__nowwriting): - Likewise. - * libI77/fmt.c (op_gen, ne_d, e_d, pars_f, type_f, en_fio): - Likewise. - * libI77/iio.c (z_getc, z_rnew, c_si, z_wnew): Likewise. - * libI77/lread.c (t_getc, c_le, l_read): Likewise. - * libI77/lwrite.c (l_write): Likewise. - * libI77/open.c (fk_open): Likewise. - * libI77/rdfmt.c (rd_ed, rd_ned): Likewise. - * libI77/rsfe.c (xrd_SL, x_getc, x_endp, x_rev): Likewise. - * libI77/rsne.c (t_getc, x_rsne): Likewise. - * libI77/sfe.c (c_sfe): Likewise. - * libI77/sue.c (c_sue): Likewise. - * libI77/uio.c (do_us): Likewise. - * libI77/wref.c (wrt_E, wrt_F): Likewise. - * libI77/wrtfmt.c (wrt_L, w_ed, w_ned): Likewise. - -Sun Jun 2 08:58:05 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * libI77/rdfmt.c (rd_I): Delete unused variable(s). - * libU77/access_.c (G77_access_0): Likewise. - * libU77/chdir_.c (G77_chdir_0): Likewise. - * libU77/chmod_.c (G77_chmod_0): Likewise. - * libU77/ctime_.c (G77_ctime_0): Likewise. - * libU77/link_.c (G77_link_0): Likewise. - * libU77/lstat_.c (G77_lstat_0): Likewise. - * libU77/rename_.c (G77_rename_0): Likewise. - * libU77/stat_.c (G77_stat_0): Likewise. - * libU77/symlnk_.c (G77_symlnk_0): Likewise. - * libU77/unlink_.c (G77_unlink_0): Likewise. - -Sun Jun 2 08:55:20 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * libI77/inquire.c (f_inqu): Avoid ambiguous else clauses. - * libI77/lread.c (l_C, l_L): Likewise. - * libI77/open.c (f_open): Likewise. - * libI77/rsne.c (x_rsne): Likewise. - * libI77/wref.c (wrt_F): Likewise. - -Sun Jun 2 08:53:15 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * libF77/getenv_.c (G77_getenv_0): Avoid signed/unsigned warning. - * libF77/system_.c (G77_system_0): Likewise. - * libI77/open.c (f_open): Likewise. - * libI77/rdfmt.c (rd_Z): Likewise. - * libI77/uio.c (do_us, do_ud): Likewise. - -Sat Jun 1 08:33:14 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * libF77/*: Fix formatting. - * libI77/*: Likewise. - * libU77/*: Likewise. - -Fri May 31 21:56:30 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * g2c.hin, libF77/d_cnjg.c, libF77/main.c, libF77/r_cnjg.c, - libF77/s_cat.c, libF77/s_paus.c, libF77/s_rnge.c, libF77/setarg.c, - libF77/setsig.c, libF77/signal1.h0, libI77/dfe.c, libI77/due.c, - libI77/err.c, libI77/fio.h, libI77/fmt.c, libI77/iio.c, - libI77/ilnw.c, libI77/lread.c, libI77/lwrite.c, libI77/rsfe.c, - libI77/rsli.c, libI77/rsne.c, libI77/sfe.c, libI77/sue.c, - libI77/util.c, libI77/wrtfmt.c, libI77/wsfe.c, libI77/wsle.c, - libI77/xwsne.c, libU77/date_.c: Kill VOID, Void and Int. - -Fri May 31 21:54:37 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * libF77/F77_aloc.c, libF77/exit_.c, libF77/main.c, - libF77/s_paus.c, libF77/s_stop.c, libF77/setarg.c, - libF77/setsig.c, libF77/sig_die.c, libF77/signal1.h0, - libI77/close.c, libI77/dolio.c, libI77/fio.h, libI77/fmt.h, - libI77/lio.h: Delete checks on __cplusplus. - -Fri May 31 21:50:01 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * libF77/*: Delete KR_headers cruft. - * libI77/*: Likewise. - * libU77/*: Likewise. - -Thu May 30 23:04:52 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * Makefile.in (WARN_CFLAGS): New. - (FLAGS_TO_PASS): Add WARN_CFLAGS. - * libF77/Makefile.in (ALL_CFLAGS): Likewise. - * libI77/Makefile.in (ALL_CFLAGS): Likewise. - * libU77/Makefile.in (ALL_CFLAGS): Likewise. - -2002-05-30 H.J. Lu (hjl@gnu.org) - - * libI77/open.c (_XOPEN_SOURCE): Removed. - -Mon May 20 13:03:54 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * libF77/Makefile.in (SHELL): Set to @SHELL@. - * libI77/Makefile.in (SHELL): Likewise. - * libU77/Makefile.in (SHELL): Likewise. - -2002-05-20 Toon Moene <toon@moene.indiv.nluug.nl> - - * Makefile.in: Use @SHELL@, not /bin/sh for SHELL - definition. - -2002-05-16 Rainer Orth <ro@TechFak.Uni-Bielefeld.DE> - - * Makefile.in: Allow for PWDCMD to override hardcoded pwd. - * aclocal.m4: Likewise. - * configure: Regenerate. - -2002-05-08 Alexandre Oliva <aoliva@redhat.com> - - * configure.in (ORIGINAL_LD_FOR_MULTILIBS): Preserve LD at - script entry, and set LD to it when configuring multilibs. - * configure: Rebuilt. - -2002-05-02 Alexandre Oliva <aoliva@redhat.com> - - * Makefile.in: Fix for multilibbed natives. - -2002-04-15 Loren J. Rittle <ljrittle@acm.org> - - * aclocal.m4 (gcc_version_trigger): Use robust path construction. - * configure: Rebuilt. - -2002-04-11 Toon Moene <toon@moene.indiv.nluug.nl> - - * libI77/lio.h: Treat INTEGER*1 as signed char. - -2002-03-06 Phil Edwards <pme@gcc.gnu.org> - - * libF77/Version.c: Fix misplaced leading blanks on first line. - * libI77/Version.c: Likewise. - * libU77/Version.c: Likewise. - -2002-01-28 Geoffrey Keating <geoffk@redhat.com> - - * aclocal.m4: Replace with version copied from libstdc++-v3. - * configure.in: Update for changes to aclocal and Makefile. - * configure: Regenerate. - * Makefile.in: Correct install and uninstall for cross targets. - * libU77/configure: Regenerate. - -2002-01-20 Toon Moene <toon@moene.indiv.nluug.nl> - - * Makefile.in: $(MULTISUBDIR) has an implied leading `/'; - remove duplicates. - Use libtool for removing libg2c{a|la|so} for the `uninstall' target. - -2002-01-18 Toon Moene <toon@moene.indiv.nluug.nl> - - * Makefile.in: Add missing `/' separator in last change. - -2002-01-18 Toon Moene <toon@moene.indiv.nluug.nl> - - * Makefile.in: Install libg2c.{a|la|so} in $(libdir)$(MULTISUBDIR) - instead of $(libsubdir)$(MULTISUBDIR). - -2002-01-15 Loren J. Rittle <ljrittle@acm.org> - - * libI77/configure.in: Remove fcntl.h check; never define - _POSIX_SOURCE, NO_FCNTL or OPEN_DECL. Add check for tmpnam(). - * libI77/configure: Rebuilt. - * libI77/config.h.in: Rebuilt. - * libI77/Makefile.in: Remove all traces of rawio.h from - dependencies lists. - * libI77/fio.h (FSEEK): Unroll -j1.7 -j1.6 made 2002-01-04. - * libI77/open.c (f_open): Use HAVE_TMPNAM. - * libI77/rawio.h: Remove file. - -2002-01-14 John David Anglin <dave@hiauly1.hia.nrc.ca> - - * libI77/configure.in (_LARGEFILE_SOURCE): AC_DEFINE. - * libI77/configure: Rebuilt. - * libI77/config.h.in: Rebuilt. - -2002-01-04 Loren J. Rittle <ljrittle@acm.org> - - * libI77/fio.h (FSEEK): Enforce type of second parameter to be - off_t when prototype is missing from system headers for the - non-standard function. - -2002-01-03 Loren J. Rittle <ljrittle@acm.org> - - * Makefile.in ($(LIBG2C):): Let libtool decide when to add -lc. - -2001-12-04 Alexandre Oliva <aoliva@redhat.com> - - * Makefile.in ($(LIBG2C)): Fix -rpath argument to libtool. - - * Makefile.in (AR, RANLIB): Add, for substitutions. - (all-unilib, $(LIBG2C)): Depend on object lists, not - convenience libraries. - (s-libe77): Renamed from libE77.la; build object list. - (install): Do not move libraries to libdir. - (mostlyclean, clean): Adjust. - * libF77/Makefile.in (RANLIB): Add. - (LINK): Remove. - (../s-libf77): Renamed from ../libF77.la; build object list. - (../libfrtbegin.a): Remove target first. Don't use $<. - (all, clean, distclean): Adjust. - * libF77/configure.in: Substitute RANLIB. - * libF77/configure: Rebuilt. - * libI77/Makefile.in (LINK): Delete. - (../s-libi77): Renamed from ../libI77.la; build object list. - (all, clean, distclean): Adjust. - * libU77/Makefile.in: Likewise. - -2001-12-02 Toon Moene <toon@moene.indiv.nluug.nl> - - PR fortran/4885 - * endfile.c (t_runc): After ftruncate, seek to end-of-file. - -2001-11-25 Toon Moene <toon@moene.indiv.nluug.nl> - - * libF77/Makefile.in: Fix non-portable use of `$<' in z_log.c's rule. - -2001-11-23 Toon Moene <toon@moene.indiv.nluug.nl> - - PR libf2c/4930 - * libF77/Makefile.in: Compile z_log.c with -ffloat-store. - -2001-11-16 John David Anglin <dave@hiauly1.hia.nrc.ca> - - * Makefile.in: Add MAKEOVERRIDES= to suppress exporting - environment to (sub)shells. - -2001-11-13 Toon Moene <toon@moene.indiv.nluug.nl> - - * Makefile.in: Change dependencies on stamp files - into dependencies on the generated .la files. - Get rid of objlist. Update comment. - * libF77/Makefile.in: Ditto. - * libI77/Makefile.in: Ditto. - * libU77/Makefile.in: Ditto. - -2001-10-20 Hans-Peter Nilsson <hp@bitrange.com> - - * configure.in: Fake AC_EXEEXT invocation. - * configure: Regenerate. - -2001-10-20 David Edelsohn <dje@watson.ibm.com> - - * Makefile.in: Do not include SUBDIRS in objlist. Create - libg2c.so from F2CEXT and SUBDIRS archives. - * libF77/Makefile.in: Create archive. - * libI77/Makefile.in: Same. - * libU77/Makefile.in: Same. - -2001-10-05 Toon Moene <toon@moene.indiv.nluug.nl> - - * Makefile.in: Move libg2c.so and libg2c.{l}a to - the same directory at install. - -2001-10-03 Toon Moene <toon@moene.indiv.nluug.nl> - - * Makefile.in: Add "AR" reference, change - from frtbegin.o to libfrtbegin.a. - * libF77/Makefile.in: Ditto. - -2001-10-02 Toon Moene <toon@moene.indiv.nluug.nl> - - * libF77/Makefile.in: Make .lo the target of compilation. - * libI77/Makefile.in: Ditto. - * libU77/Makefile.in: Ditto. - -2001-10-01 Toon Moene <toon@moene.indiv.nluug.nl> - - * Makefile.in: Set major:minor:sub version number - of shared libf2c to 0:0:0. - -2001-09-29 Juergen Pfeifer <juergen.pfeifer@gmx.net> - Toon Moene <toon@moene.indiv.nluug.nl> - - Make libf2c a shared library. - - * aclocal.m4: Get definition of libtool. - * Makefile.in: Use libtool. - * configure.in: Use libtool. - * configure: Regenerated. - * libF77/Makefile.in: Use libtool; treat main program contained in - libF77/main.c specially. - * libF77/configure.in: Use libtool. - * libF77/configure: Regenerated. - * libI77/Makefile.in: Use libtool. - * libI77/configure.in: Use libtool. - * libI77/configure: Regenerated. - * libU77/Makefile.in: Use libtool. - * libU77/configure.in: Use libtool. - * libU77/configure: Regenerated. - * libU77/date_.c: Adapt for -fPIC compiling. - * libU77/vxtidate_.c: Ditto. - -2001-09-22 Richard Earnshaw <rearnsha@arm.com> - - * libI77/configure.in (__EXTENSIONS__): Define. - * libI77/config.h.in, libI77/conifgure: regenerate. - * libU77/configure.in (__EXTENSIONS__): Likewise. - -2001-07-18 Toon Moene <toon@moene.indiv.nluug.nl> - - * libI77/configure.in (_XOPEN_SOURCE, _FILE_OFFSET_BITS): Move - these defines before tests which might be affected by them. - (_XOPEN_SOURCE_EXTENDED): Define. - * libI77/configure, libI77/config.h.in: Regenerate. - -Wed Jul 18 11:14:33 2001 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * libU77/configure.in (_XOPEN_SOURCE, _FILE_OFFSET_BITS): Move - these defines before tests which might be affected by them. - (_XOPEN_SOURCE_EXTENDED): Define. - - * libU77/configure, libU77/config.hin: Regenerate. - -2001-07-10 Toon Moene <toon@moene.indiv.nluug.nl> - - * libI77/fio.h: Revert type of url from off_t to int. - * libI77/dfe.c (c_dfe): Cast offset expression in FSEEK to off_t. - * libI77/due.c (c_due): Ditto. (e_rdue): Ditto. - * libI77/ftell_.c (G77_ftell_0): Cast result of FTELL to integer. - (G77_fseek_0): Cast offset argument of FSEEK to off_t. - -2001-07-07 Toon Moene <toon@moene.indiv.nluug.nl> - - * libI77/Makefile.in: Update config.h dependencies. - * libI77/configure.in: Define _XOPEN_SOURCE and - _FILE_OFFSET_BITS unconditionally. - * libI77/configure: Rebuilt. - * libI77/config.h.in: Rebuilt. - * libI77/endfile.c (t_runc): Replace rewind by FSEEK. - * libI77/err.c (f__nowwriting): The type of `loc' is off_t. - * libI77/open.c (f_open): Replace rewind by FSEEK. - * libI77/rewind.c: Include config.h. (f_rew): Replace - rewind by FSEEK. - * libI77/sfe.c: Include config.h. - * libI77/wsfe.c: Ditto. - * libU77/configure.in: Define _XOPEN_SOURCE and - _FILE_OFFSET_BITS unconditionally. - * libU77/configure: Rebuilt. - * libU77/config.hin: Rebuilt. - -2001-07-07 Toon Moene <toon@moene.indiv.nluug.nl> - - * libI77/Makefile.in: Add necessary dependencies on config.h. - -2001-07-06 Toon Moene <toon@moene.indiv.nluug.nl> - Pedro Vazquez <vazquez@penelope.iqm.unicamp.br> - - * libI77/configure.in: Check for fseeko, ftello. - * libI77/configure: Rebuilt. - * libI77/config.h.in: Rebuilt. - * libI77/fio.h: Define FSEEK to be fseek or fseeko, depending - on configure's findings. Ditto for FTELL and ftell / ftello. - * libI77/backspace.c (f_back): Use FSEEK for fseek, FTELL for ftell. - * libI77/dfe.c (c_dfe): Ditto. - * libI77/due.c (c_due, e_rdue): Ditto. - * libI77/endfile.c (t_runc): Ditto. - * libI77/err.c (f__nowreading, f__nowwriting): Ditto. - * libI77/ftell_.c (G77_ftell_0, G77_fseek_0): Ditto. - * libI77/inquire.c (f_inqu): Ditto. - * libI77/open.c (f_open): Ditto. - * libI77/rdfmt.c (rd_ed): Ditto. - * libI77/sue.c (s_wsue, e_wsue, e_rsue): Ditto. - -2001-07-04 Zack Weinberg <zackw@stanford.edu> - - * Makefile.in: Take PICFLAG and RUNTESTFLAGS out of FLAGS_TO_PASS. - -2001-07-01 Toon Moene <toon@moene.indiv.nluug.nl> - - * libI77/fio.h: Include <sys/types.h> for off_t. - -2001-07-01 Toon Moene <toon@moene.indiv.nluug.nl> - Pedro Vazquez <vazquez@penelope.iqm.unicamp.br> - - * libI77/fio.h: Use off_t when appropriate. - * libI77/backspace.c (f_back): Ditto. - * libI77/endfile.c (t_runc): Ditto. - * libI77/err.c (f__nowreading): Ditto. - * libI77/ftell_.c (unit_chk): Ditto. - * libI77/sue.c (global f__recloc, s_wsue): Ditto. - -2001-06-13 Toon Moene <toon@moene.indiv.nluug.nl> - - * libI77/inquire.c: Include "config.h". - -2001-05-21 Loren J. Rittle <ljrittle@acm.org> - - * libI77/Makefile.in (stamp-h): Create in $(objdir) instead - of $(srcdir). - -2001-05-18 Andreas Jaeger <aj@suse.de> - - * libI77/Makefile.in (stamp-h): Only create config.h, touch stamp-h. - (${srcdir}/config.h.in): Add true rule. - - * libI77/stamp-h.in: Added. - -2001-05-17 Andreas Jaeger <aj@suse.de> - - * libI77/Makefile.in: Add rules to rebuild config.h.in when - needed. - -2001-05-16 Andreas Jaeger <aj@suse.de> - - * libI77/backspace.c: Include "config.h". - * libI77/close.c: Likewise. - * libI77/dfe.c: Likewise. - * libI77/dolio.c: Likewise. - * libI77/due.c: Likewise. - * libI77/err.c: Likewise. - * libI77/fmt.c: Likewise. - * libI77/fmtlib.c: Likewise. - * libI77/ftell_.c: Likewise. - * libI77/ilnw.c: Likewise. - * libI77/lread.c: Likewise. - * libI77/open.c: Likewise. - * libI77/rdfmt.c: Likewise. - * libI77/rsfe.c: Likewise. - * libI77/rsne.c: Likewise. - * libI77/util.c: Likewise. - * libI77/wrtfmt.c: Likewise. - * libI77/wsne.c: Likewise. - * libI77/xwsne.c: Likewise. - - * libI77/config.h.in: Generate with autoheader. - - * libI77/configure.in: Add comments for all AC_DEFINES so that - autoheader can grok it. - * libI77/configure: Regenerated. - -2001-05-16 Andreas Jaeger <aj@suse.de> - - * libI77/Makefile.in (endfile.o): Add dependency on config.h. - - * libI77/endfile.c: Include config.h and sys/types for off_t. - - * libI77/config.h.in: New file. - - * libI77/configure.in: Add test for off_t, create config.h file. - * libI77/configure: Regenerated. - -2001-05-15 Loren J. Rittle <ljrittle@acm.org> - - * libI77/endfile.c (t_runc): Add cast to help case where - ftruncate() prototype is somehow missing even though autoconf - test found it properly. - -2001-02-26 Toon Moene <toon@moene.indiv.nluug.nl> - - * libI77/configure.in: Test for ftruncate. - * libI77/configure: Rebuilt. - * libI77/endfile.c: Use fflush/ftruncate when available. - -2001-02-19 Joseph S. Myers <jsm28@cam.ac.uk> - - * libF77/Version.c, libI77/Version.c, libU77/Version.c: Update G77 - version number to 0.5.27. - -2001-02-08 Geoffrey Keating <geoffk@redhat.com> - - * configure.in: Don't run AC_PROG_CC_WORKS, because - we're not interested in the result and it might fail. - * libF77/configure.in: Likewise. - * libI77/configure.in: Likewise. - * libU77/configure.in: Likewise. - * configure: Regenerated. - * libF77/configure: Likewise. - * libI77/configure: Likewise. - * libU77/configure: Likewise. - -2001-01-29 Phil Edwards <pme@sources.redhat.com> - - * libU77/COPYING.LIB: Update to LGPL 2.1 from the FSF. - -2001-01-24 Michael Sokolov <msokolov@ivan.Harhan.ORG> - - * libU77/alarm_.c: Separate the #ifdef KR_headers logic from the - G77_alarm_0 function definition. Check for SIG_ERR and provide our own - if missing. - -2001-01-24 David Billinghurst <David.Billinghurst@riotinto.com> - - * libU77/Makefile.in: Explicitly generate a.out for check. - -2001-01-23 Michael Sokolov <msokolov@ivan.Harhan.ORG> - - * libU77/ctime_.c: #include <sys/types.h> for time_t. - * libU77/datetime_.c: Likewise. - * libU77/fdate_.c: Likewise. - * libU77/gmtime_.c: Likewise. - * libU77/idate_.c: Likewise. - * libU77/itime_.c: Likewise. - * libU77/ltime_.c: Likewise. - * libU77/sys_clock_.c: Likewise. - * libU77/vxtidate_.c: Likewise. - * libU77/vxttime_.c: Likewise. - - * libU77/sys_clock_.c: #include <sys/param.h> for the clock tick rate. - -2000-12-09 Toon Moene <toon@moene.indiv.nluug.nl> - - Update to Netlib version 20001205. - Thanks go to David M. Gay for these updates. - - * libF77/Version.c: Update version information. - * libF77/z_log.c: Improve accuracy of real(log(z)) for - z near (+-1,eps) with |eps| small. - * libF77/s_cat.c: Adjust call when ftnint and ftnlen are - of different size. - * libF77/dtime_.c, libF77/etime_.c: Use floating point divide. - - * libI77/Version.c: Update version information. - * libI77/rsne.c, libI77/xwsne.c: Adjust code for when ftnint - and ftnlen differ in size. - * libI77/lread.c: Fix reading of namelist logical values followed - by <name>= where <name> starts with T or F. - -2000-11-26 Toon Moene <toon@moene.indiv.nluug.nl> - - * libI77/Version.c, libF77/Version.c, libU77/Version.c: - Designate version as (experimental) instead of (prerelease) - -2000-11-15 Toon Moene <toon@moene.indiv.nluug.nl> - - * libI77/configure.in: See if `mkstemp' is available. - * libI77/configure: Regenerate. - * libI77/open.c: Use `mkstemp' to create scratch - file atomically. - -2000-07-03 Donn Terry (donnte@microsoft.com) - * libU77/aclocal.m4: check for 2 argument gettimeofday without - struct timezone - -2000-07-02 Toon Moene <toon@moene.indiv.nluug.nl> - * libF77/Version.c: Bumped version number to 0.5.26. - * libI77/Version.c: Ditto. - * libU77/Version.c: Ditto. - -2000-06-21 Zack Weinberg <zack@wolery.cumb.org> - - * libU77/dtime_.c, libU77/etime_.c: Include stdlib.h if - HAVE_STDLIB_H is defined. - -2000-06-11 Herman A.J. ten Brugge <Haj.Ten.Brugge@net.HCC.nl> - - * rdfmt.c (rd_L): Use if-then-else instead of case statement to - solve problems when sizeof(char) == sizeof(short). - -2000-05-18 Chris Demetriou <cgd@sibyte.com> - - * configure.in: Test for __g77_integer, __g77_uinteger, - __g77_longint, and __g77_ulongint builtin types, rather - than mucking around with compiler headers. - * configure: Regenerate. - * g2c.hin (integer, logical, flag, ftnlen, ftnint): Use - __g77_integer rather than autoconfigured value. - (uinteger): Use __g77_uinteger rather than autoconfigured value. - (longint): Use __g77_longint rather than autoconfigured value. - (ulongint): Use __g77_ulongint rather than autoconfigured value. - -Sun Mar 12 20:12;30 2000 Toon Moene <toon@moene.indiv.nluug.nl> - Based on work done by David M. Gay (Bell Labs) - - * libF77/configure.in: Define IEEE_COMPLEX_DIVIDE. - * libF77/[cz]_div.c: Arrange for compilation under - -DIEEE_COMPLEX_DIVIDE to make these routines - avoid calling sig_die when the denominator vanishes. - * libF77/s_rnge.c: Add casts for the case of - sizeof(ftnint) == sizeof(int) < sizeof(long). - * libI77/endfile.c: Set state to writing (b->uwrt = 1) when an - endfile statement requires copying the file - Also, supply a missing (long) cast in the sprintf call. - * libI77/sfe.c: Add #ifdef ALWAYS_FLUSH logic, for formatted I/O. - -Wed Feb 16 11:10:05 2000 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * configure.in (gcc_version): When setting, narrow search to - lines containing `version_string'. - -Tue Nov 16 20:39:42 1999 Geoffrey Keating <geoffk@cygnus.com> - - * libU77/u77-test.f (wd): Allow for longer working directory - pathnames. - -1999-10-14 Theo Papadopoulo <Theodore.Papadopoulo@sophia.inria.fr> - - * libU77/acconfig.h: Define GETTIMEOFDAY_ONE_ARGUMENT and - HAVE_TIMEZONE in acconfig.h. - * libU77/config.hin: Rebuilt. - -1999-10-12 Dave Love <fx@gnu.org> - - * libU77/aclocal.m4: Re-write, defining LIBU77_GETTIMEOFDAY, not - LIBU77_HAVE_STRUCT_TIMEZONE. - - * libU77/configure.in: Use LIBU77_GETTIMEOFDAY, not - LIBU77_HAVE_STRUCT_TIMEZONE. Don't check for gettimeofday - separately. - - * libU77/datetime_.c (G77_date_and_time_0): Use - GETTIMEOFDAY_ONE_ARGUMENT. - -Tue Sep 14 01:44:01 1999 Marc Espie <espie@cvs.openbsd.org> - - * Makefile.in: Prepend $(SHELL) to move-if-change calls. - -Fri Aug 6 23:32:29 1999 Daniel Jacobowitz <drow@drow.them.org> - - * Makefile.in (FLAGS_TO_PASS): Include prefix, exec_prefix, - libdir, libsubdir and tooldir. - -Wed Jul 7 15:58:16 1999 Craig Burley <craig@jcb-sc.com> - - * libU77/date_.c (G77_date_y2kbug_0): G77_time_0 returns - longint, not integer, and G77_ctime_0 takes longint, not - integer, argument. - - * libU77/Version.c: Bump version. - -Mon Jun 28 21:27:08 1999 Craig Burley <craig@jcb-sc.com> - - Update to Netlib version of 1999-06-28: - * changes.netlib, libI77/Version.c, libI77/rsne.c - readme.netlib: See changes.netlib for info. - -Fri Jun 18 11:38:07 1999 Craig Burley <craig@jcb-sc.com> - - * libU77/ttynam_.c: if !defined (HAVE_TTYNAM), - write all spaces into return value instead of trying - to return -1 from a void function. - -Fri Jun 18 11:22:21 1999 Craig Burley <craig@jcb-sc.com> - - Update to Netlib version of 1999-05-10: - * changes.netlib, libI77/Version.c, libI77/backspace.c - readme.netlib: See changes.netlib for info. - -Fri Jun 18 11:15:24 1999 Craig Burley <craig@jcb-sc.com> - - * libI77/backspace.c: Undo Wednesday's change, in - preparation for slightly different Netlib change. - -Wed Jun 16 11:38:58 1999 Craig Burley <craig@jcb-sc.com> - - From Ian Watson <WATSON_IAN_A@Lilly.com> 1999-06-12: - * libI77/backspace.c: Reload file descriptor after - calling t_runc. - * libI77/Version.c: Bump libg2c version. - -Wed May 26 14:26:35 1999 Craig Burley <craig@jcb-sc.com> - - * libF77/Version.c, libI77/Version.c, libU77/Version.c: - Use 0.5.24 to designate the version of g77 within GCC 2.95. - -Thu May 20 03:20:59 1999 Jeffrey A Law (law@cygnus.com) - - * configure.in (AC_EXEEXT): Remove call. - (compiler_name): Explicitly check with no extension and .exe - extension. - * configure: Regenerate. - -Mon May 10 17:33:45 1999 Craig Burley <craig@jcb-sc.com> - - Update to Netlib version of 1999-05-10: - * changes.netlib, libF77/Version.c, libF77/abort_.c, - libF77/c_log.c, libF77/ef1asc_.c, libF77/s_rnge.c, - libF77/s_stop.c, libI77/Version.c, libI77/open.c, - readme.netlib: See changes.netlib for info. - -Fri May 7 9:33:55 1999 Donn Terry (donn@interix.com) - - * libU77/dtime_.c (G77_dtime_0): Standard-conforming error check. - * libU77/etime_.c (G77_etime_0): Likewise. - -Mon May 3 19:15:07 1999 Craig Burley <craig@jcb-sc.com> - - * libU77/u77-test.f (main): Declare ABORT as intrinsic. - -1999-05-03 Craig Burley <craig@jcb-sc.com> - - * libU77/u77-test.f: Reverse order of two arguments to - CTIME_subr, DTIME_subr, ETIME_subr, and TTYNAM_subr. - -Mon May 3 11:21:35 1999 Craig Burley <craig@jcb-sc.com> - - * libF77/c_log.c: Cope with partial overlap a la z_log.c. - (Change likely to be made to netlib version shortly.) - -Mon May 3 11:12:38 1999 Craig Burley <craig@jcb-sc.com> - - Update to Netlib version of 1999-05-03: - * changes.netlib, libF77/Version.c, libF77/c_cos.c, - libF77/c_exp.c, libF77/c_sin.c, libF77/d_cnjg.c, - libF77/dtime_.c, libF77/etime_.c, libF77/getenv_.c, - libF77/r_cnjg.c, libF77/z_cos.c, libF77/z_exp.c, - libF77/z_log.c, libF77/z_sin.c, libI77/Version.c, - libI77/err.c, libI77/open.c, libI77/rdfmt.c, readme.netlib: - See changes.netlib for info. - -Mon May 3 10:52:53 1999 Craig Burley <craig@jcb-sc.com> - - * libF77/c_cos.c, libF77/c_div.c, libF77/c_exp.c, libF77/c_log.c, - libF77/c_sin.c, libF77/c_sqrt.c, libF77/d_cnjg.c, libF77/pow_zi.c, - libF77/r_cnjg.c, libF77/z_cos.c, libF77/z_div.c, libF77/z_exp.c, - libF77/z_log.c, libF77/z_sin.c, libF77/z_sqrt.c: Revert back to - netlib versions as of f2c-19990501. - -Sun May 2 01:38:50 1999 Craig Burley <craig@jcb-sc.com> - - * libU77/u77-test.f (main): Declare FTELL as intrinsic. - -Sun May 2 01:13:37 1999 Craig Burley <craig@jcb-sc.com> - - * libU77/u77-test.f (main): List libU77 intrinsics - not currently tested. - Add tests for TIME8, CTIME_subr, IARGC, TTYNAM_subr, - GETENV, FDATE_subr, DTIME_subr, ETIME_subr, DATE, ITIME, - FTELL_subr, MCLOCK, MCLOCK8, and CPU_TIME. - Trim blanks off the ends of some printed strings. - -Sun May 2 00:06:45 1999 Craig Burley <craig@jcb-sc.com> - - * libU77/u77-test.f (main): Just warn about FSTAT gid - disagreement, as it's expected on some systems. - -Sat May 1 23:57:18 1999 Craig Burley <craig@jcb-sc.com> - - * libU77/u77-test.f: Generalize sum-checking to - use a new function, which allows for some slop. - Clean up some commentary. - (issum): The new function. - (sgladd): Deleted subroutine. - -Sat May 1 23:35:18 1999 Craig Burley <craig@jcb-sc.com> - - * libU77/u77-test.f: Modify to be more like testsuite - version, bringing patches to that version here. - Add suitable commentary. - -Sat Apr 24 11:02:48 1999 Craig Burley <craig@jcb-sc.com> - - * Makefile.in (s-libi77, s-libf77, s-libu77): Revert - the patch from <hjl@gnu.org>, as per the commentary. - -Sat Apr 17 17:33:30 1999 Craig Burley <craig@jcb-sc.com> - - From H.J. Lu <hjl@gnu.org>: - * Makefile.in (s-libi77): Depend on i77. - (s-libf77): Depend on i77. - (s-libu77): Depend on u77. - -Mon Apr 12 21:38:14 1999 Mumit Khan <khan@xraylith.wisc.edu> - - * libF77/getenv_.c: Include stdlib.h. - -Sun Apr 11 23:30:42 1999 Mumit Khan <khan@xraylith.wisc.edu> - - * libU77/dtime_.c: Handle all variants of WIN32. - * libU77/etime_.c: Likewise. - - * libU77/aclocal.m4: New file. - * libU77/configure.in (LIBU77_HAVE_STRUCT_TIMEZONE): Add test. - * libU77/acconfig.h (HAVE_STRUCT_TIMEZONE): Add macro. - * libU77/datetime_c.c (G77_date_and_time_0): Use. - * libU77/config.hin: Regenerate. - * libU77/configure: Likewise. - -Wed Mar 31 13:50:24 1999 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * configure.in (extra_includes): Don't attempt to calculate the - location of the gcc src or obj directories. Instead rely on - precomputed variables, $topsrcdir and $r, to obtain these values. - Set -I flags appropriately. - -1999-03-28 Dave Love <fx@gnu.org> - - * configure: Rebuilt. - - * configure.in: Fix integer size tests: sanity check first; search - toplevel include dir (from Rainer Orth); only mess with ac_cpp - once; use -DIN_GCC -DHAVE_CONFIG_H. - - * configure.in: Use `g77_cv_...', not `f77_cv_...'. - -Wed Mar 24 22:41:28 1999 Mumit Khan <khan@xraylith.wisc.edu> - - * configure.in (AC_PREREQ): Update to 2.13. - (AC_EXEEXT): Call to find possible file extension. - (compiler_name): Use. - * configure: Regenerate. - -1999-03-17 Craig Burley <craig@jcb-sc.com> - - Update to Netlib version of 1999-03-17: - * libF77/F77_aloc.c, libF77/README.netlib, libF77/dtime_.c, - libF77/etime_.c, libF77/signal1.h0, libI77/Version.c, - libI77/dfe.c, libI77/endfile.c, libI77/lread.c, - libI77/sfe.c, readme.netlib, changes.netlib: - See changes.netlib for info. - -1999-03-06 Craig Burley <craig@jcb-sc.com> - - Mon Dec 21 23:03:54 1998 Hans-Peter Nilsson <hp@axis.se>: - * libI77/Makefile.in (all *.o except VersionI.o): Added dependence - on respective .c file. - * libF77/Makefile.in (all .o except VersionF.o): Similarly. - * libU77/Makefile.in (date_.o): Added dependence on date_.c - -1999-03-06 Craig Burley <craig@jcb-sc.com> - - Rename non-Y2K-compliant intrinsics: - * Makefile.in (F2CEXT): Now two versions each of - `date' and `vxtidt'. - * f2cext.c (date_, vxtidate_): Split into two versions, - the existing one calling a new "y2kbuggy" routine that - does not exist, and a new one named with "y2kbug" that - calls the newly renamed underlying routine. - * libU77/date_.c (G77_date_y2kbug_0): Rename from G77_date_0. - * libU77/vxtidate_.c (G77_vxtidate_y2kbug_0): Rename from - G77_vxtidate_0. - * libU77/Version.c: Bump version. - -1999-03-03 Craig Burley <craig@jcb-sc.com> - - * libU77/vxtidate_.c (G77_vxtidate_0): Truncate - year to last two digits (i.e. modulo 100), as per - documentation and (documented) Y2K non-compliance. - -1999-02-20 Craig Burley <craig@jcb-sc.com> - - From Krister Walfridsson <cato@df.lth.se>: - * libU77/lstat_.c (G77_lstat_0): Kill spurious setting - of element 6 to zero, as it undid the previous setting. - -1999-02-15 Craig Burley <craig@jcb-sc.com> - - * f2c.h: Delete my (old) email address. - -1999-02-14 Craig Burley <craig@jcb-sc.com> - - * libU77/Version.c: Bump ("update" below) to date of last change. - * libI77/Version.c: Bump to date of last change. - -Tue Feb 9 18:13:30 GMT 1999 Nathan Sidwell <nathan@acm.org> - - * Makefile.in (distclean): Move Makefile deletion to end of - commands. - -1999-01-15 Dave Love <fx@gnu.org> - - * libU77/datetime_.c (G77_date_and_time_0): Return milliseconds as - such, not as microseconds. - (s_copy): Declare. - -1998-11-26 Manfred Hollstein <manfred@s-direktnet.de> - - * configure.in (compiler_name): Add check to detect if this - language's compiler has been built. - * configure: Regenerate. - -Mon Nov 23 16:52:22 1998 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> - - * configure.in: Use AC_PREREQ(2.12.1). - * libF77/configure.in: Likewise. - * libI77/configure.in: Likewise. - * libU77/configure.in: Likewise. - -1998-10-24 Dave Love <d.love@dl.ac.uk> - - * configure.in: Touch g2c.h in AC_OUTPUT after multilib - disturbance. - -1998-10-23 Dave Love <d.love@dl.ac.uk> - - * f2cext.c: Include math.h. - -1998-10-19 Dave Love <d.love@dl.ac.uk> - - * configure: Regenerate. - - * configure.in: Use AC_CONFIG_AUX_DIR. - -1998-10-12 Dave Love <fx@gnu.org> - - * libI77/open.c (_XOPEN_SOURCE): Define. - -1998-10-12 Dave Love <fx@gnu.org> - - * Makefile.in (.SUFFIXES): Don't use any. - (all-unilib): New target, like old all. - (all): Use it. - (.PHONY): Add all-unilib. - -1998-10-12 Dave Love <d.love@dl.ac.uk> - - * configure.in: Reorder Makefile, g2c.h in AC_OUTPUT. - -Tue Oct 6 21:16:58 1998 Jeffrey A Law (law@cygnus.com) - - * Makefile.in: Revert last patch. - -Mon Oct 5 01:16:10 1998 H.J. Lu (hjl@gnu.org) - - * Makefile.in (s-libi77): Depend on i77. - (s-libf77): Depend on i77. - (s-libu77): Depend on u77. - -1998-09-30 Dave Love <d.love@dl.ac.uk> - - * Makefile.in (f2cext.c): Depend on g2c.h. - -1998-09-30 Robert Lipe <robertl@dgii.com> - - * Makefile.in (all): Correct dependencies so --disable-multilibs - works again. - (distclean): Correct typo. - -1998-09-28 Dave Love <d.love@dl.ac.uk> - - * libI77/open.c: Back out part of last Netlib update affecting - scratch files which clashed with the g77 variations and broke - implicit endfile on rewind. - -1998-09-21 Dave Love <d.love@dl.ac.uk> - - * libI77/Version.c: Update. - -Mon Sep 21 12:27:27 1998 Robert Lipe <robertl@dgii.com> - - * Makefile.in (distclean, clean, uninstall, install, all): Add - multilib support. - * configure.in: Likewise. - * configure: Regenerate. - * libF77/Makefile.in, libU77/Makefile.in, libI77/Makefile.in (clean): - Explictly remove stamp in parent's directory. - -1998-09-20 Dave Love <d.love@dl.ac.uk> - - * libI77/sfe.c (e_wdfe): Set f__init to avoid spurious recursive - i/o error from formatted direct i/o. - -Thu Sep 10 14:57:25 1998 Kamil Iskra <iskra@student.uci.agh.edu.pl> - - * Makefile.in (install): Add missing "else true;". - -1998-09-09 Craig Burley <burley@gnu.org> - - * configure.in: Test $srcdir, not $subdir (probable typo). - Clarify commentary, fix a bit of spacing. - -1998-09-07 Dave Love <d.love@dl.ac.uk> - - * ChangeLog.egcs: Deleted. Entries merged here. - -1998-09-07 Dave Love <d.love@dl.ac.uk> - - * libI77/sfe.c, libI77/dfe.c: Revert last change. - -1998-09-06 Dave Love <d.love@dl.ac.uk> - - From Toon to fix spurious recursive i/o errors: - * libI77/sfe.c (e_wdfe): Set f__init. - - * libI77/dfe.c (c_dfe): Check and set f__init. - (s_rdfe, s_wdfe): Don't check and set f__init. - -Fri Sep 4 18:40:32 1998 Craig Burley <burley@gnu.org> - - * libU77/sys_clock_.c (G77_system_clock_0): Fix indentation. - -Tue Sep 1 10:06:06 1998 Craig Burley <burley@gnu.org> - - * libF77/Version.c: Update. - * libU77/Version.c: Update. - * libI77/Version.c: Update. - -Wed Aug 26 23:19:40 1998 Jeffrey A Law (law@cygnus.com) - - * Makefile.in (FLAGS_TO_PASS): Fix typo. - -1998-08-11 Dave Love <d.love@dl.ac.uk> - - * README: Update from Craig. - -1998-07-24 Dave Love <d.love@dl.ac.uk> - - * Makefile.in (s-libe77, ${srcdir}/configure, g2c.h, Makefile) - (config.status, rebuilt): Rely on VPATH, dropping explicit use of - $(srcdir) in various places. - -1998-07-19 Dave Love <d.love@dl.ac.uk> - - * Makefile.in (all): Depend on s-libe77, not e77. - (.PHONY): Remove e77. - -Thu Jul 16 00:58:52 1998 Jeffrey A Law (law@cygnus.com) - - * libU77/Makefile.in: Missed one config.h.in -> config.hin change. - - * g2c.hin: Renamed from g2c.h.in. - * Makefile.in, configure.in: Changed as needed. - * configure: Rebuilt. - - * libU77/config.hin: Renamed from libU77/config.h.in. - * Makefile.in, configure.in: Changed as needed. - * configure: Rebuilt. - -Tue Jul 14 21:35:30 1998 Gerald Pfeifer <pfeifer@dbai.tuwien.ac.at> - - * Makefile.in (all): Invoke $(MAKE) instead of just make. - -Tue Jul 14 02:16:34 1998 Jeffrey A Law (law@cygnus.com) - - * Makefile.in: stamp-lib* -> s-lib*. - * libU77/Makefile.in: Likewise. - * libF77/Makefile.in: Likewise. - * libI77/Makefile.in: Likewise. - - * libU77/Makefile.in (ALL_CFLAGS): Add -I$(F2C_H_DIR). - -Mon Jul 13 13:31:03 1998 Craig Burley <burley@gnu.org> - - * libU77/u77-test.f: Double-check ETIME results, just - like 0.5.24 does. - -1998-07-10 Dave Love <d.love@dl.ac.uk> - - * Makefile.in: Re-write build procedure mainly to honour - dependencies correctly but also allow making in the build - directory by configuring the relevant variables. The lib[FIU]77 - subdirs do dependency checking of their objects. Stamp files - dictate when to run (new) archive targets in subdirs. Some - tidying of variables. Supply full set of standard targets. - - * configure.in: Move much of testing to new configures in - subdirs. Tidy up handling of RANLIB etc. - - * stamp-h.in, libF77/configure.in, libI77/configure.in: - * libF77/configure, libI77/configure: New files. - - * libF77/Makefile.in, libI77/Makefile.in, libU77/Makefile.in: - Change in step with libf2c/Makefile.in. - -1998-07-09 Dave Love <d.love@dl.ac.uk> - - * libU77/Makefile.in (check): Wrap -lg2c ... -lm around $(LIBS) in - case of static link. - - * libU77/Version.c, libI77/Version.c: Update version info. - - * libU77/sys_clock_.c: Replace TIMES conditional stuff removed in - error by last change. - -1998-07-06 Mike Stump <mrs@wrs.com> - - * Makefile.in (clean): Don't remove Makefiles, that is done in - distclean. - -1998-07-06 Dave Love <d.love@dl.ac.uk> - - * libU77/Makefile.in (lib): Change variable lib to LIBS. - -1998-07-06 Robert Lipe <robertl@dgii.com> - - * libU77/configure.in: Look for -lsocket, add to LIBS if found. - - * libU77/Makefile.in (lib): Use LIBS from above. - -1998-07-05 Dave Love <d.love@dl.ac.uk> - - * f2cext.c (system_clock_): Remove (just f90 intrinsic). - - * Makefile.in (F2CEXT): Remove sclock. - (UOBJ): Add libU77/datetime_.o. - - * libU77/config.h.in: Add HAVE_GETTIMEOFDAY. - - * libU77/configure.in: Check for gettimeofday. - - * libU77/datetime_.c: New file. - - * libU77/sys_clock_.c: Allow optional args. - - * libU77/Makefile.in (G77DIR): Fix for current directory - structure. - (SRCS, OBJS): Add datetime. - - * libU77/u77-test.f: Call date_and_time. Call system_clock - omitting args. - -1998-06-29 Dave Love <d.love@dl.ac.uk> - - * libI77/wsfe.c (s_wsfe): Fix setting of f__curunit lost in - previous change. - * libI77/rsfe.c (s_rsfe): Likewise. - -Sat Jun 27 23:04:49 1998 Jeffrey A Law (law@cygnus.com) - - * Makefile.in (FLAGS_TO_PASS, case G2C_H_DIR): Use $(TARGET_SUBDIR) - instead of hardcoding "libraries". - -1998-06-26 Manfred Hollstein <manfred@s-direktnet.de> - - * Makefile.in (gcc_version_trigger): Add new macro. - (config.status): Add dependency upon $(gcc_version_trigger). - - * configure.in (gcc_version_trigger): New variable; initialize - using value from toplevel configure; add AC_SUBST for it. - (gcc_version): Change initialization to use this new variable. - * configure: Regenerate. - -1998-06-24 Manfred Hollstein <manfred@s-direktnet.de> - - * Makefile.in (version): Rename to gcc_version. - * configure.in (version): Likewise. - (gcc_version): Add code to use an option passed from parent configure. - * configure: Regenerate. - -1998-06-23 Dave Love <d.love@dl.ac.uk> - - * libI77/backspace.c, libI77/dfe.c, libI77/due.c, libI77/iio.c: - * libI77/lread.c, libI77/sfe.c, libI77/sue.c, libI77/wsfe.c: Update - to Netlib version of 1998-06-18. - -1998-06-21 Dave Love <d.love@dl.ac.uk> - - * configure.in (version, target_alias): Define. - - * Makefile.in (version, target_alias, libsubdir): Define. - (install): Remove check for libsubdir. - -Sat Jun 13 03:46:40 1998 Craig Burley <burley@gnu.org> - - * Makefile.in (install): Don't install if $(libsubdir) - is empty; issue a diagnostic saying top-level Makefile - must pass it in instead, and exit. - - * Makefile.in (g2c.h): Rename from f2c.h. - - * Makefile.in, libF77/Makefile.in, libI77/Makefile.in: - * libU77/Makefile.in: Rewrite config and var assignment - sections to be even more minimal than before, and to - more clearly documented what macros are expected to be - set and to what sorts of values. Eliminate CROSS and - related stuff, since there's no such things as CROSS - in egcs. Rename GCC_FOR_TARGET to CC throughout. - * Makefile.in (stamp-libi77, stamp-libf77, stamp-libu77): - Eliminate CROSS. - * configure.in: Eliminate CROSS. - - Rename libf2c.a and f2c.h to libg2c.a and g2c.h, - normalize and simplify g77/libg2c build process: - * Makefile.in: Remove all stuff pertaining to - installation, cleaning, and so on. Parent Makefile - does all that now. Pass F2C_H_DIR, - G2C_H_DIR, and GCC_H_DIR, the pathnames for the - directories containing f2c.h, g2c.h, and other - #include files, to subdirectory Makefiles. - (stamp-libf77, stamp-libi77, stamp-libu77): - Don't specify `-f Makefile' anymore, it's not needed - now that subdirectory makefile's from netlib are - renamed to makefile.netlib in g77 source (and to - makefile.ori by configuration process, in case they're - still around somehow). - (stamp-libe77): Don't make libE77 dir unless it doesn't - exist, if it does just delete all objects in it. - Compile using $(GCC_FOR_TARGET), not $(CC). - (rebuilt): Remove this and all subordinate targets, - as parent Makefile now handles all that. - (*clean): Remove. - * configure.in (Pad_UDread, ALWAYS_FLUSH, WANT_LEAD_0): - Remove these and commentary to new f2c.h file. - AC_OUTPUT g2c.h instead of f2c.h. Remove old commentary - regarding concatenation. - * g2c.h.in: Rename from f2c.h.in, add appropriate - commentary. - * f2c.h: New file, a wrapper for g2c.h that does - libg2c-specific stuff. - * libF77/Makefile.in, libI77/Makefile.in, libU77/Makefile.in: - Change $(ALL_CFLAGS) to use F2C_H_DIR, G2C_H_DIR, and GCC_H_DIR - macros. Remove F2C_H macro, replace use with explicit - dependencies on f2c.h and g2c.h. - (*clean): Remove. - -Mon Apr 27 22:52:31 1998 Richard Henderson <rth@cygnus.com> - - * libU77/ltime_.c: Bounce the ftnint argument through a local time_t. - * libU77/gmtime_.c: Likewise. - -Sun Apr 26 18:07:56 1998 Richard Henderson <rth@cygnus.com> - - * configure.in: Adjust include paths in F2C_INTEGER and F2C_LONGINT - tests to work out of the build directory. - -1998-05-20 Dave Love <d.love@dl.ac.uk> - - * Makefile.in ($(lib)): Use shell loop instead of unportable - make variable substitution. - -Tue May 19 12:50:27 1998 Craig Burley <burley@gnu.org> - - Break up main() into separate .o's so making and - linking against shared libraries with non-Fortran - main() routines is easier: - * Makefile.in (MISC): Add setarg.o and setsig.o. - * libF77/Makefile.in (MISC): Ditto. - * libF77/setarg.c: New file, contains f_setarg(). - * libF77/setsig.c: New file, contains f_setsig(). - * libF77/getarg_.c: Rename xarg* to f__xarg*. - * libF77/iargc_.c: Ditto - -Sat May 2 16:44:46 1998 Craig Burley <burley@gnu.org> - - * libF77/signal_.c, libI77/dfe.c, libI77/due.c, - libI77/wsfe.c: Tweaks to eliminate unnecessary - differences vs. netlib libf2c. - -Fri May 1 11:57:45 1998 Craig Burley <burley@gnu.org> - - Update to Netlib version of 1998-04-20: - * libF77/dtime_.c, libF77/etime_.c, libF77/h_dnnt.c, - libF77/h_nint.c, libF77/i_dnnt.c, libF77/i_nint.c, - libF77/main.c, libF77/s_paus.c, libF77/signal1.h0, - libI77/backspace.c, libI77/close.c, libI77/dfe.c, - libI77/endfile.c, libI77/err.c, libI77/fio.h, - libI77/iio.c, libI77/ilnw.c, libI77/lread.c, - libI77/lwrite.c, libI77/open.c, libI77/rawio.h, - libI77/sfe.c, libI77/util.c, libI77/wrtfmt.c, - libI77/wsfe.c, libI77/wsle.c, libI77/wsne.c: - See changes.netlib for info. - -Sun Apr 26 09:13:41 1998 Craig Burley <burley@gnu.org> - - * libU77/hostnm_.c (G77_hostnm_0): Fix off-by-one error - that was trashing the byte just beyond the CHARACTER*(*) - argument. - -Wed Mar 4 16:32:46 1998 Craig Burley <burley@gnu.org> - - * libU77/u77-test.f: Don't bother declaring etime. - Use `implicit none' and declare mask and lenstr. - Do ETIME/DTIME consistency check before loop, then - use loop to verify that dtime "ticks" at some point. - Check ETIME array-sum using single-precision add, to - avoid spurious complaint on systems (like x86) that - use more precision for intermediate results. - Fix `Results of ETIME and DTIME...' message to print - pertinent values (r1 and r2 instead of i and j). - Change loop from 10M to 1K repeated up to 1000 times - or until dtime "ticks". - Print the number of 1K loops needed to see this tick. - Answer a commented question. - Split up a long line of output and do other prettying. - Preset lognam in case GETLOG fails to overwrite it. - -Sat Feb 28 15:32:15 1998 Craig Burley <burley@gnu.org> - - * libI77/open.c (f_open): Use sizeof(buf) instead of - 256, for the usual reasons. - -1998-02-17 Dave Love <d.love@dl.ac.uk> - - * libU77/u77-test.f: Tweak some o/p. - - * libU77/Makefile.in (check): Use -L for new directory structure. - - * Makefile.in (check): Run the u77 check. - (config.status, Makefile): New targets. - -Wed Feb 11 01:46:20 1998 Manfred Hollstein <manfred@s-direktnet.de> - - * Makefile.in ($(lib)): Call $(AR) repeatedly to avoid overflowing - argument size limit on ancious System V. - -Sun Feb 8 00:32:17 1998 Manfred Hollstein <manfred@s-direktnet.de> - - * Makefile.in: Add `info install-info clean-info check dvi' targets. - -Mon Feb 2 11:08:49 1998 Richard Henderson <rth@cygnus.com> - - * configure.in: Update F2C_INTEGER and F2C_LONGINT tests - for the new placement in the hierarchy. - -Sun Feb 1 02:36:33 1998 Richard Henderson <rth@cygnus.com> - - * Previous contents of gcc/f/runtime moved into toplevel - "libf2c" directory. - -Sun Feb 1 01:42:47 1998 Mumit Khan <khan@xraylith.wisc.edu> - - * libU77/configure.in (getlogin,getgid,getuid, kill,link,ttyname): - Check. - * libU77/config.h.in (HAVE_GETLOGIN, HAVE_GETGID, HAVE_GETUID, - HAVE_KILL, HAVE_LINK, HAVE_TTYNAME): New defs. - * libU77/getlog_.c: Conditionalize for target platform. Set errno - to ENOSYS if target libc doesn't have the function. - * libU77/getgid_.c: Likewise. - * libU77/getuid_.c: Likewise. - * libU77/kill_.c: Likewise. - * libU77/link_.c: Likewise. - * libU77/ttynam_.c: Likewise. - -Sun Jan 18 20:01:37 1998 Toon Moene <toon@moene.indiv.nluug.nl> - - * libI77/backspace.c: (f_back): Use type `uiolen' to determine size - of record length specifier. - -Sat Jan 17 22:40:31 1998 Mumit Khan <khan@xraylith.wisc.edu> - - * libU77/configure.in (sys/param.h,sys/times.h): Check. - (times,alarm): Likewise. - * libU77/config.h.in (HAVE_SYS_PARAM_H, HAVE_SYS_TIMES_H) - (HAVE_ALARM, HAVE_TIMES): New defs. - * libU77/alarm_.c: Conditionalize for target platform. Set errno - to ENOSYS if target libc doesn't have the function. - * libU77/dtime_.c: Likewise. - * libU77/etime_.c: Likewise. - * libU77/sys_clock_.c: Likewise. - - * configure.in (NON_UNIX_STDIO): Define if MINGW32. - (NON_ANSI_RW_MODE): Do not define for CYGWIN32 or MINGW32. - - * libI77/rawio.h: Don't providing conflicting declarations for - read() and write(). MINGW32 header files use "const" quals. - - * libF77/s_paus.c: _WIN32 does not have pause(). - -Mon Apr 27 22:52:31 1998 Richard Henderson <rth@cygnus.com> - - * libU77/ltime_.c: Bounce the ftnint argument through a local time_t. - * libU77/gmtime_.c: Likewise. - -Sun Apr 26 18:07:56 1998 Richard Henderson <rth@cygnus.com> - - * configure.in: Adjust include paths in F2C_INTEGER and F2C_LONGINT - tests to work out of the build directory. - -Tue Dec 23 22:56:01 1997 Craig Burley <burley@gnu.org> - - * libF77/signal_.c (G77_signal_0): Return type is - now `void *', to cope with returning previous signal - handler on 64-bit systems like Alphas. - * f2cext.c (signal_): Changed accordingly. - -Tue Nov 18 09:49:04 1997 Mumit Khan (khan@xraylith.wisc.edu) - - * libI77/close.c (f_exit): Reset f__init so that f_clos does not - (incorrectly) think there is an I/O recursion when program is - interrupted. - -Sat Nov 1 18:03:42 1997 Jeffrey A Law (law@cygnus.com) - - * libF77/signal_.c: Undo last change until we can fix it right. - -Wed Oct 29 01:01:04 1997 Mumit Khan <khan@brahma.xraylith.wisc.edu> - - * configure.in: Set CC to CC_FOR_TARGET when cross-compiling. - -Fri Oct 24 11:15:22 1997 Mumit Khan <khan@brahma.xraylith.wisc.edu> - - * libI77/close.c (f_exit): Reset f__init so that f_clos does not - (incorrectly) think there is an I/O recursion when program is - interrupted. - -Wed Oct 15 10:06:29 1997 Richard Henderson <rth@cygnus.com> - - * libF77/signal_.c (G77_signal_0): Make return type sig_pf as well. - * libI77/fio.h: Include <string.h> if STDC_HEADERS. - * libU77/chmod_.c: Likewise. - -Tue Oct 7 18:22:10 1997 Richard Henderson <rth@cygnus.com> - - * Makefile.in (CGFLAGS): Don't force -g0. - * libF77/Makefile.in, libI77/Makefile.in, libU77/Makefile.in: Likewise. - -Mon Oct 6 14:16:46 1997 Jeffrey A Law (law@cygnus.com) - - * Makefile.in (distclean): Do a better job at cleaning up. - -1997-10-03 Dave Love <d.love@dl.ac.uk> - - * configure.in: Check for tempnam (best because it obeys TMPDIR). - * libI77/open.c: Use it. - * libI77/err.c: New message # 132. - -Wed Oct 1 01:46:16 1997 Philippe De Muyter <phdm@info.ucl.ac.be> - - * libU77/sys_clock_.c: File renamed from system_clock_.c. - * libU77/Makefile.in, Makefile.in : Reference sys_clock_.*, not - system_clock_.*. - * libU77/dtime_.c (clk_tck): Try also HZ macro. - * libU77/access.c (G77_access_0): Check malloc return value against 0, - not NULL. - * libU77/getlog_.c, libU77/ttynam_.c, libU77/chdir_.c: Ditto. - * libU77/chmod_.c, libU77/rename_.c: Ditto. - -Tue Sep 30 00:41:39 1997 Craig Burley <burley@gnu.ai.mit.edu> - - Do a better job of printing the offending FORMAT string - when producing a diagnostic: - * libI77/err.c (f__fmtlen): New variable to hold operating - length of format string. - (f__fatal): Use new variable to limit length of printed string. - * libI77/fmt.c (f_s): Don't skip spaces after closing paren, - so nicer message results (and nested case already skips them). - (pars_f): Record operating length of format string as indicated - by a successful call to f_s, or ad-hoc-calculate it if failure, - limiting the length to 80 characters (and stopping at NUL). - (do_fio): Use new variable to limit length of printed string. - * libI77/fmt.h (f__fmtlen): Declare new variable. - * libI77/lread.c (c_le): Set new variable to known length. - -Mon Sep 29 16:30:31 1997 Craig Burley <burley@gnu.ai.mit.edu> - - Update to Netlib version of 1997-09-23: - * libF77/dtime_.c (dtime_), libF77/etime_.c (dtime_): - Return `double' instead of `float' (these are not used - in g77's version of libf2c). - * libI77/fmt.c, libI77/fmt.h, libI77/rdfmt.c, libI77/wrtfmt.c: - Support machines with 64-bit pointers and 32-bit ints (e.g. - Linux on DEC Alpha). - -1997-09-19 Dave Love <d.love@dl.ac.uk> - - * libU77/dtime_.c (G77_dtime_0): Fix types in HAVE_GETRUSAGE case - so as not to truncate results to integer values. - * libU77/Version.c: Bump. - -Thu Sep 18 16:58:46 1997 Jeffrey A Law (law@cygnus.com) - - * Makefile.in (stamp-lib): Don't use '$?', explicitly - list the variables containing the object files to include - in libf2c.a - -Tue Sep 9 00:33:24 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Version 0.5.21 released. - -Mon Sep 8 19:39:01 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libI77/close.c (f_exit): Fix thinko, inverted test - of whether initialization done, so exiting now closes - open units again. - -Fri Sep 5 00:18:17 1997 Jeffrey A Law (law@cygnus.com) - - * Makefile.in (clean): Don't remove config.cache. - (distclean): Do it here instead. - -Tue Aug 26 20:14:08 1997 Robert Lipe (robertl@dgii.com) - - * hostnm_.c: Include errno.h - -Tue Aug 26 01:42:21 1997 Craig Burley <burley@gnu.ai.mit.edu> - - From Jim Wilson: - * configure.in: Make sure RANLIB_TEST is set also. - - From Robert Lipe <robertl@dgii.com>: - * libU77/getcwd_.c, libU77/hostnm_.c, libU77/lstat_.c: - Also #include <errno.h>, to define ENOSYS. - -Tue Aug 26 01:25:58 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Makefile.in (stamp-lib): Put all f2cext.c objects in - a temp directory named libE77, then `ar' them all at - once into libf2c.a, to get the job done a bit faster. - Still remove the objects (and libE77 directory) afterward. - -Mon Aug 25 23:26:05 1997 H.J. Lu (hjl@gnu.ai.mit.edu) - - * Makefile.in (mostlyclean, clean): Check if Makefile exists - before using it. Remove stamp-*. - (stamp-libi77, stamp-libf77, stamp-libu77): New. - (stamp-lib): Only depend on stamp-libi77 stamp-libf77 - stamp-libu77 - -Sun Aug 24 05:04:35 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libU77/rand_.c (G77_rand_0), libU77/dtime_.c (G77_dtime_0), - libU77/etime_.c (G77_etime_0), libU77/secnds_.c (G77_secnds_0), - libU77/second_.c (G77_second_0): Really return `double', not - `doublereal', since the result is cast to `float'. - * f2cext.c: (rand_, dtime_, etime_, secnds_, second_): Ditto. - (erf_, erfc_, besj0_, besj1_, besjn_, besy0_, besy1_, - besyn_, dbesj0_, dbesj1_, dbesjn_, dbesy0_, dbesy1_, - dbesyn_): All of these return `double', not `doublereal', - as they either have `float' or `double' results. - * libU77/bes.c (besj0_, besj1_, besjn_, besy0_, besy1_, - besyn_): Ditto. - * libU77/dbes.c (dbesj0_, dbesj1_, dbesjn_, dbesy0_, dbesy1_, - dbesyn_): Ditto. - - Update to Netlib version of 1997-08-16: - * libI77/iio.c: Fix bug in internal writes to an array - of character strings. - - * Makefile.in (UOBJ): Restore fixes made by Dan Pettet I - lost, which included the addition of mclock_.o already noted - below, plus adding symlnk_.o. - -Thu Aug 21 03:58:34 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Makefile.in (UOBJ): Add mclock_.o, thanks to Mumit Khan! - -1997-08-21 Dave Love <d.love@dl.ac.uk> - - * libU77/alarm_.c: Fix return type: `integer'. - -Mon Aug 11 20:12:42 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Makefile.in ($(lib), stamp-lib): Ensure that library - gets fully updated even if updating was aborted earlier. - - * libU77/hostnm_.c (G77_hostnm_0): Return ENOSYS and stuff - in errno if system has no gethostname() function. - - * libU77/lstat_.c (G77_lstat_0): Return ENOSYS and stuff - in errno if system has no lstat() function. - - * libU77/getcwd_.c (G77_getcwd_0): Return ENOSYS and stuff - in errno if system has no getcwd() or getwd() function. - Test HAVE_GETCWD properly. - - * libU77/symlnk_.c (G77_symlink_0): Return ENOSYS and stuff - in errno if system has no symlink() function. - - * libU77/mclock_.c (G77_mclock_0): Return -1 if system - has no clock() function. - -Mon Aug 11 01:55:36 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Makefile.in (F2CEXT): Add `alarm' to this list. - - * f2cext.c (alarm_): Fix some typos in this function. - Delete third `status' argument. - - * libU77/alarm_.c: Delete third `status' argument, - as caller gets this from function result; return - status value as function result for caller. - - * configure.in: Rename `ac_cv_struct_FILE' to - `g77_cv_struct_FILE' according to 1997-06-26 change. - -1997-08-06 Dave Love <d.love@dl.ac.uk> - - * libU77/vxtidate_.c: Correct day/month argument order. - * f2cext.c: Likewise. - -1997-07-07 Dave Love <d.love@dl.ac.uk> - - * f2cext.c: Add alarm_. - - * Makefile.in, libU77/Makefile.in: Add alarm_. - - * libU77/alarm_.c: New file. - -1997-06-26 Dave Love <d.love@dl.ac.uk> - - * configure.in: Generally use prefix `g77_' for cached values - we've invented, not `ac_'. - -Tue Jun 24 18:50:06 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libI77/ilnw.c (s_wsni): Call f_init() here. - (s_wsli): Ditto. - (e_wsli): Turn off "doing I/O" flag here. - -1997-06-20 Dave Love <d.love@dl.ac.uk> - - * runtime/configure.in: Check for cygwin32 after Mumit Khan (but - differently); if cygwin32 define NON_UNIX_STDIO and don't define - NON_ANSI_RW_MODES. - -Tue Jun 01 06:26:29 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libI77/rsne.c (nl_init): Don't call f_init() here, - since s_rsne() already does. - (c_lir): Call f_init() here instead. - * libI77/rsli.c (e_rsli): Turn off "doing I/O" flag here. - * libI77/sue.c (e_rsue): Ditto. - -Sun Jun 22 23:27:22 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libI77/fio.h (err): Mark I/O as no longer in progress - before returning a non-zero error indicator (since - that tells the caller to jump over the remaining I/O - calls, including the corresponding `e_whatever' call). - * libI77/err.c (endif): Ditto. - * libI77/sfe.c (e_wsfe): Ditto. - * libI77/lread.c (ERR): Ditto. - * libI77/lread.c (l_read): Ditto by having quad case - use ERR, not return, to return non-zero error code. - -Sat Jun 21 12:31:28 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libI77/open.c (fk_open): Temporarily turn off - "doing I/O" flag during f_open() call to avoid recursive - I/O error. - -Tue Jun 17 22:40:47 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * err.c, close.c, rewind.c, inquire.c, backspace.c, endfile.c, - iio.c, open.c, Version.c, sfe.c, wsle.c, rsne.c, sue.c, rsfe.c, - lread.c, wsfe.c, fio.h, due.c, dfe.c: Change f__init from - `flag' to `int' and to signal not just whether initialization - has happened (bit 0), but also whether I/O is in progress - already (bit 1). Consistently produce a clear diagnostic - in cases of recursive I/O. Avoid infinite recursion in - f__fatal, in case sig_die triggers another error. Don't - output info on internals if not initialized in f__fatal. Don't - bother closing units in f_exit if initialization hasn't - happened. - -Tue Jun 10 12:57:44 1997 Craig Burley <burley@gnu.ai.mit.edu> - - Update to Netlib version of 1997-06-09: - * libI77/err.c, libI77/lread.c, libI77/rdfmt.c, - libI77/wref.c: Move some #include's around. - -Mon Jun 9 18:11:56 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libU77/kill_.c (kill_): KR_headers version needed - `*' in front of args in decls. - -Sun May 25 03:16:53 1997 Craig Burley <burley@gnu.ai.mit.edu> - - Update to Netlib version of 1997-05-24: - * libF77/README, libF77/Version.c, libF77/main.c, - libF77/makefile, libF77/s_paus.c, libF77/signal1.h, - libF77/signal_.c, libF77/z_div.c, libI77/Notice, - libI77/README, libI77/Version.c, libI77/dfe.c, - libI77/err.c, libI77/fmt.c, libI77/makefile, - libI77/rawio.h: Apply many, but not all, of the changes - made to libf2c since last update. - * libF77/Makefile.in (MISC), Makefile.in (MISC): Rename - exit.o to exit_.o to go along with Netlib. - * libF77/signal.c: Make the prologue much simpler than - Netlib has it. - -Sun May 18 20:56:02 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libU77/unlink_.c, libU77/stat_.c, libU77/symlnk_.c, - libU77/chmod_.c: g_char first arg is const. - - * libU77/chmod_.c: s_cat expects ftnlen[], not int[] or - integer[], change types of array and variables - accordingly. - -May 7 1997 Daniel Pettet <dan.pettet@bchydro.bc.ca> - - * libU77/dbes_.c: Commented out the code in the - same way the bes* routines are commented out. This - was done because corresponding C routines are referenced - directly in com-rt.def. - -Mon May 5 13:56:02 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libU77/stat_.c: Reverse KR/ANSI decls of g_char(). - -Apr 18 1997 Daniel Pettet <dan.pettet@bchydro.bc.ca> - - * libF77/F77_aloc.c, libF77/abort_.c, libF77/derf_.c, - libF77/derfc_.c, libF77/ef1asc_.c, libF77/ef1cmc_.c, - libF77/erf_.c, libF77/erfc_.c, libF77/exit.c, - libF77/getarg_.c, libF77/getenv_.c, libF77/iargc_.c, - libF77/s_cat.c, libF77/signal_.c, libF77/system_.c, - libI77/close.c, libI77/ftell_.c, libU77/access_.c, - libU77/bes.c, libU77/chdir_.c, libU77/chmod_.c, libU77/ctime_.c, - libU77/date_.c, libU77/dbes.c, libU77/dtime_.c, libU77/etime_.c, - libU77/fdate_.c, libU77/fgetc_.c, libU77/flush1_.c, - libU77/fnum_.c, libU77/fputc_.c, libU77/fstat_.c, - libU77/gerror_.c, libU77/getcwd_.c, libU77/getgid_.c, - libU77/getlog_.c, libU77/getpid_.c, libU77/getuid_.c, - libU77/gmtime_.c, libU77/hostnm_.c, libU77/idate_.c, - libU77/ierrno_.c, libU77/irand_.c, libU77/isatty_.c, - libU77/itime_.c, libU77/kill_.c, libU77/link_.c, - libU77/lnblnk_.c, libU77/ltime_.c, libU77/mclock_.c, - libU77/perror_.c, libU77/rand_.c, libU77/rename_.c, - libU77/secnds_.c, libU77/second_.c, libU77/sleep_.c, - libU77/srand_.c, libU77/stat_.c, libU77/symlnk_.c, - libU77/system_clock_.c, libU77/time_.c, libU77/ttynam_.c, - libU77/umask_.c, libU77/unlink_.c, libU77/vxtidate_.c, - libU77/vxttime_.c: Completed renaming routines that are directly - callable from g77 to internal names of the form - G77_xxxx_0 that are known as intrinsics by g77. - -Apr 8 1997 Daniel Pettet <dan.pettet@bchydro.bc.ca> - - * Makefile.in: Add libU77/mclock_.o and libU77/symlnk_.o to UOBJ. - * libU77/Makefile.in: Add mclock_.c to SRCS. - Add mclock_.o and symlnk_.o to OBJS. - Add mclock_.o dependency. - -Apr 8 1997 Daniel Pettet <dan.pettet@bchydro.bc.ca> - - * libU77/symlnk_.c: Added a couple of (char*) casts to malloc - to silence the compiler. - -1997-03-17 Dave Love <d.love@dl.ac.uk> - - * libU77/access_.c, libU77/chdir_.c, libU77/chmod_.c, - libU77/link_.c, libU77/lstat_.c, libU77/rename_.c, libU77/stat_.c, - libU77/symlnk_.c, libU77/u77-test.f, libU77/unlink_.c: Strip - trailing blanks from file names for consistency with other - implementations (notably Sun's). - - * libU77/chmod_.c: Quote the file name given to the shell. - -Mon Mar 10 00:19:17 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libI77/uio.c (do_ud) [PAD_UDread]: Add semicolon to err() - invocation when macro not defined (from Mumit Khan - <khan@xraylith.wisc.edu>). - -Fri Feb 28 13:16:50 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Version 0.5.20 released. - -Wed Feb 26 20:28:53 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Makefile.in: $(MAKE) invocations now explicitly - specify `-f Makefile', just in case the `makefile's - from the netlib distribution would get used instead. - -Mon Feb 24 16:43:39 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libU77/Makefile.in (check): Specify driver, and - don't bother enabling already-enabled intrinsic groups. - Also, get the $(srcdir) version of u77-test.f. - -Sat Feb 22 14:08:42 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libU77/u77-test.f: Explicitly declare intrinsics, get - rid of useless CHARACTER declarations on intrinsics (maybe - someday appropriate to implement meaning of that in g77 - and restore them?). - Add spin loop just to fatten up the timings a bit. - Clarify ETIME output as having three fields. - Call TIME with CHARACTER*8, not CHARACTER*6, argument. - Call new SECOND intrinsic subroutine, after calling - new DUMDUM subroutine just to ensure the correct value - doesn't get left around in a register or something. - -Thu Feb 20 15:22:42 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libU77/bes.c: Comment out all the code, as g77 avoids actually - calling it, going directly to the system's library instead. - -Mon Feb 17 02:27:41 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libU77/fgetc_.c (fgetc_): Allow return value to be - CHARACTER*(*), properly handle CHARACTER*0 and blank-pad - CHARACTER*n where n>1. - -Tue Feb 11 14:12:19 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Makefile.in: Clarify role of $(srcdir) here. Fix - various targets accordingly. Don't rely at all on - gcc/f/include/ being a link to gcc/include/ -- just - use it directly. - (${srcdir}/configure, ${srcdir}/libU77/configure): - Remove the config.cache files in build directory before - cd'ing to source directory as well. - - * libF77/Makefile.in, libI77/Makefile.in (ALL_CFLAGS): - Include `-I.' to pick up build directory. - Use gcc/include/ directly. - * libU77/Makefile.in (ALL_CFLAGS): Include `-I$(srcdir)' - to pick up source directory. - (OBJS): Fix typo in `chmod_.o' (was `chmod.o'). - -Mon Feb 10 12:54:47 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * Makefile.in (UOBJ), libU77/Makefile.in (OBJS): Add - libU77/chmod_.o to list of objects. - * libU77/chmod_.c: Fix up headers. - Fix implementation to not prematurely truncate command - string and make room for trailing null. - - * libU77/ctime_.c: Incoming xstime argument is now longint. - * libU77/mclock_.c: Now returns longint. - * libU77/time_.c: Now returns longint. - -1997-02-10 Dave Love <d.love@dl.ac.uk> - - * etime_.c, dtime_.c: Typo rounded times to seconds. - - * date_.c: Add missing return. - - * hostnm_.c: #include unistd.h. - -Sat Feb 8 03:30:19 1997 Craig Burley <burley@gnu.ai.mit.edu> - - INTEGER*8 support built in to f2c.h and libf2c (since - gcc will be used to compile relevant code anyway): - * Makefile.in, libF77/Makefile.in: Add pow_qq.o, - qbitbits.o, and qbitshft.o to $POW and $F90BIT macros, - as appropriate. - * f2c.h.in: Define appropriate types and macros. - Place #error directive correctly. - * configure.in: Determine appropriate types for long - integer (F2C_LONGINT). - Meanwhile, quote strings in #error, for consistency. - Fix restoring of ac_cpp macro. - * configure: Regenerated using autoconf-2.12. - - * libF77/Version.c, libI77/Version.c, libU77/Version.c: - Update version numbers. - Change names and code for g77-specific version-printing - routines (shorter names should be safer to link on - weird, 8-char systems). - - * libF77/c_cos.c, libF77/c_div.c, libF77/c_exp.c, - libF77/c_log.c, libF77/c_sin.c, libF77/c_sqrt.c, - libF77/d_cnjg.c, libF77/pow_zi.c, libF77/r_cnjg.c, - libF77/z_cos.c, libF77/z_div.c, libF77/z_exp.c, - libF77/z_log.c, libF77/z_sin.c, libF77/z_sqrt.c: - Changed to work properly even when result is aliased - with any inputs. - - * libF77/makefile, libI77/makefile: Leave these in - the g77 distribution, so it is easier to track changes - to official libf2c. - - * libF77/signal_.c: Eliminate redundant `return 0;'. - - * libI77/fio.h (err, errfl): Fix these so they work - (and must be expressed) as statements. - Fix up many users of err() to include trailing semicolon. - - * Incorporate changes by Bell Labs to libf2c through 1997-02-07. - -1997-02-06 Dave Love <d.love@dl.ac.uk> - - * libU77/etime_.c, libU77/dtime_.c: Fix getrusage stuff. - - * libU77/config.h.in: Regenerate for HAVE_GETRUSAGE. - - * libU77/Makefile.in, libI77/Makefile.in, libF77/Makefile.in: - Redo *clean targets; distclean and maintainer-clean remove the stage? - and include links. This probably want looking at further. - -Wed Feb 5 00:21:23 1997 Craig Burley <burley@gnu.ai.mit.edu> - - Add libU77 library from Dave Love <d.love@dl.ac.uk>: - * Makefile.in: Add libU77 directory, rules, etc. - * configure.in: New libU77 directory, Makefile, etc. - - * Makefile.in, libF77/Makefile.in, libI77/Makefile.in, - libU77/Makefile.in: Reorganize these so $(AR) commands - handled by the top-level Makefile instead of the - subordinates. This permits it to do $(AR) only when - one or more object files actually change, instead of - having to force-update it as was necessary before. - And that had the disadvantage of requiring, e.g., user - root to have access to $(AR) to the library simply to - install g77, which might be problematic on an NFS setup. - (mostlyclean, clean, distclean, maintainer-clean): - Properly handle these rules. - - * Makefile.in: Don't invoke config.status here -- let - compiler-level stuff handle all that. - - * libI77/err.c [MISSING_FILE_ELEMS]: Declare malloc in this case - too, so it doesn't end up as an integer. - -Sat Feb 1 02:43:48 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * libF77/Makefile.in: More fixup for $(F90BIT) -- wasn't - in list for ar command, and it wasn't correctly listed - in the list of things depending on f2c.h. - - * f2c.h.in: Fix up #error directive. - -1997-01-31 Dave Love <d.love@dl.ac.uk> - - * libF77/Makefile.in ($(lib)): Add $(F90BIT); shouldn't exclude - stuff f2c needs so we can share the library. - -Sat Jan 18 19:39:03 1997 Craig Burley <burley@gnu.ai.mit.edu> - - * configure.in: No longer define ALWAYS_FLUSH, the - resulting performance is too low. - -Wed Dec 18 12:06:02 1996 Craig Burley <burley@gnu.ai.mit.edu> - - Patch from Mumit Khan <khan@xraylith.wisc.edu>: - * libF77/s_paus.c: Add __CYGWIN32__ to list of macros - controlling how to pause. - -Sun Dec 1 21:25:27 1996 Craig Burley <burley@gnu.ai.mit.edu> - - * configure: Regenerated using autoconf-2.12. - -Mon Nov 25 21:16:15 1996 Craig Burley <burley@gnu.ai.mit.edu> - - * configure: Regenerated using autoconf-2.11. - -1996-11-19 Dave Love <d.love@dl.ac.uk> - - * libI77/backspace.c: Include sys/types.h for size_t. - -Wed Nov 6 14:17:27 1996 Craig Burley <burley@gnu.ai.mit.edu> - - * f2c.h.in: Properly comment out the unsupported stuff so - we don't get build-time errors. - - * libF77/Version.c, libI77/Version.c: Restore macro definition - of version information. - - * libI77/Makefile.in (OBJ) [foo]: Add ftell_.o to list of objects. - - * libI77/uio.c (do_ud): Fix up casts in PAD_UDread case just - like they were fixed in the other case. - -Thu Oct 31 22:27:45 1996 Craig Burley <burley@gnu.ai.mit.edu> - - * libI77/ftell_.c (fseek_): Map incoming whence argument to - system's actual SEEK_CUR, SEEK_SET, or SEEK_END macro for - fseek(), and crash (gracefully) if the argument is invalid. - -1996-10-19 Dave Love <d.love@dl.ac.uk> - - * configure.in: Add check that we have the tools to cross-compile - if appropriate. - (NO_EOF_CHAR_CHECK,Skip_f2c_Undefs): Define. - - * libF77/Makefile.in (F90BIT): New routines from Netlib. - - * f2c.h.in: - Use more sanitary #error (indented for K&R compliance if necessary) if - f2c_i2 defined. - Sync with Netlib: Add `uninteger'. (Commented out) integer*8 stuff. - bit_{test,clear,set} macros. - -1996-10-19 Dave Love <d.love@dl.ac.uk> - - Update to Netlib version of 1996-09-26. - - * libI77/Version.c: Use <stdio.h>, not "stdio.h". - * libF77/Version.c: Likewise. - -Wed Aug 28 13:25:29 1996 Dave Love <d.love@dl.ac.uk> - - * libI77/rsne.c (x_rsne): Use size_t instead of int. - - * libI77/endfile.c (copy): Use size_t in place of int. - -Wed Aug 28 13:22:20 1996 Dave Love <d.love@dl.ac.uk> - - * libI77/backspace.c (f_back): Cast fread arg to size_t. - -Tue Aug 27 19:11:30 1996 Dave Love <d.love@dl.ac.uk> - - * libI77/Version.c: Supply */ to avoid apparent nested comment. - -Tue Aug 20 09:21:43 1996 Dave Love <d.love@dl.ac.uk> - - * libF77/Makefile.in (ALL_CFLAGS): Fix missing ../ for include. - * libI77/Makefile.in (ALL_CFLAGS): Likewise. - -Sat Aug 17 13:00:47 1996 Dave Love <d.love@dl.ac.uk> - - * libF77/qbitshft.c, libF77/qbitbits.c, libF77/lbitshft.c, - libF77/lbitbits.c: New file from Netlib. qbit... not currently - compiled. - -Sun Jul 7 18:06:33 1996 Dave Love <d.love@dl.ac.uk> - - * libF77/z_sqrt.c, libF77/z_sin.c, libF77/z_exp.c, libF77/z_log.c, - libF77/system_.c, libF77/z_cos.c, libF77/signal_.c, - libF77/s_stop.c, libF77/sig_die.c, libF77/s_paus.c, - libF77/s_rnge.c, libF77/s_cat.c, libF77/r_tan.c, libF77/r_tanh.c, - libF77/r_sinh.c, libF77/r_sqrt.c, libF77/r_sin.c, libF77/r_mod.c, - libF77/r_nint.c, libF77/r_lg10.c, libF77/r_log.c, libF77/r_exp.c, - libF77/r_int.c, libF77/r_cosh.c, libF77/r_atn2.c, libF77/r_cos.c, - libF77/r_asin.c, libF77/r_atan.c, libF77/r_acos.c, - libF77/pow_dd.c, libF77/pow_zz.c, libF77/main.c, libF77/i_dnnt.c, - libF77/i_nint.c, libF77/h_dnnt.c, libF77/h_nint.c, libF77/exit.c, - libF77/d_tan.c, libF77/d_tanh.c, libF77/d_sqrt.c, libF77/d_sin.c, - libF77/d_sinh.c, libF77/d_mod.c, libF77/d_nint.c, libF77/d_log.c, - libF77/d_int.c, libF77/d_lg10.c, libF77/d_cosh.c, libF77/d_exp.c, - libF77/d_atn2.c, libF77/d_cos.c, libF77/d_atan.c, libF77/d_acos.c, - libF77/d_asin.c, libF77/c_sqrt.c, libF77/cabs.c, libF77/c_sin.c, - libF77/c_exp.c, libF77/c_log.c, libF77/c_cos.c, libF77/F77_aloc.c, - libF77/abort_.c, libI77/xwsne.c, libI77/wref.c, libI77/util.c, - libI77/uio.c, libI77/rsne.c, libI77/rdfmt.c, libI77/rawio.h, - libI77/open.c, libI77/lread.c, libI77/inquire.c, libI77/fio.h, - libI77/err.c, libI77/endfile.c, libI77/close.c: - Use #include <...>, not #include "..." for mkdeps - -Sat Jul 6 21:39:21 1996 Dave Love <d.love@dl.ac.uk> - - * libI77/ftell_.c: Added from Netlib distribution. - -Sat Mar 30 20:57:24 1996 Dave Love <d.love@dl.ac.uk> - - * configure.in: Eliminate explicit use of - {RANLIB,AR}_FOR_TARGET. - * Makefile.in: Likewise. - * libF77/Makefile.in: Likewise. - * libI77/Makefile.in: Likewise. - * configure: Regenerated. - -Sat Mar 30 21:02:03 1996 Dave Love <d.love@dl.ac.uk> - - * Makefile.in: Eliminate explicit use of - {RANLIB,AR}_FOR_TARGET. - -Tue Mar 26 23:39:59 1996 Dave Love <d.love@dl.ac.uk> - - * Makefile.in: Remove hardwired RANLIB and RANLIB_TEST (unnoted - change). - -Mon Mar 25 21:04:56 1996 Craig Burley <burley@gnu.ai.mit.edu> - - * Incorporate changes by Bell Labs to libf2c through 1996-03-23, - including changes to dmg and netlib email addresses. - -Tue Mar 19 13:10:02 1996 Craig Burley <burley@gnu.ai.mit.edu> - - * Incorporate changes by AT&T/Bellcore to libf2c through 1996-03-19. - - * Makefile.in (rebuilt): New target. - - * libF77/Makefile.in, libI77/Makefile.in: Use $AR_FOR_TARGET, not - $AR. - -Tue Mar 19 12:53:19 1996 Dave Love <d.love@dl.ac.uk> - - * configure.in (ac_cpp): #include <stdio.h> instead - of <features.h>. - -Tue Mar 19 12:52:09 1996 Mumit Khan <khan@xraylith.wisc.edu> - - * configure.in (ac_cpp): For f2c integer type, - add -I$srcdir/../.. to make it work on mips-ultrix4.2. - -Sat Mar 9 17:37:15 1996 Craig Burley <burley@gnu.ai.mit.edu> - - * libI77/Makefile.in (.c.o): Add -DAllow_TYQUAD, to enable - I/O support for INTEGER*8. - * f2c.h.in: Turn on longint type. - -Fri Dec 29 18:22:01 1995 Craig Burley <burley@gnu.ai.mit.edu> - - * Makefile.in: Reorganize the *clean rules to more closely - parallel gcc's. - - * libF77/Makefile.in, libI77/Makefile.in: Ignore error from $(AR) - command, in case just doing an install and installer has no write - access to library (this is a kludge fix -- perhaps install targets - should never try updating anything?). - -Sat Nov 18 19:37:22 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * Version 0.5.17 released. - -Thu Nov 16 07:20:35 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * Incorporate changes by AT&T/Bellcore to libf2c through 1995-11-15. - -Fri Sep 22 02:19:59 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * libI77/backspace.c, libI77/close.c, libI77/endfile.c, - libI77/fio.h, libI77/inquire.c, libI77/rawio.h, - libF77/s_paus.c: Not an MSDOS system if GO32 - is defined, in the sense that the run-time environment - is thus more UNIX-like. - -Wed Sep 20 02:24:51 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * libF77/Makefile.in, libI77/Makefile.in: Comment out `ld -r -x' - and `mv' line pairs, since `-x' isn't supported on systems - such as Solaris, and these lines don't seem to do anything - useful after all. - -Wed Aug 30 15:58:35 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * Version 0.5.16 released. - - * Incorporate changes by AT&T/Bellcore to libf2c through 950829. - -Mon Aug 28 12:50:34 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * libF77/Makefile.in, libI77/Makefile.in ($(lib)): Force ar'ing - and ranlib'ing of libf2c.a, else after rm'ing libf2c.a and - doing a make, only libI77 or libF77 would be added to - the newly created archive. - Also, instead of `$?' list all targets explicitly so all - objects are updated in libf2c.a even if only one actually - needs recompiling, for similar reason -- we can't easily tell - if a given object is really up-to-date in libf2c.a, or even - present there. - -Sun Aug 27 14:54:24 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * libF77/Makefile.in, libI77/Makefile.in: Fix spacing so - initial tabs are present in all appropriate places. - Move identical $(AR) commands in if then/else clauses - to single command preceding if. - (.c.o, Version[FI].o): Use $@ instead of $* because AIX (RS/6000) - says $@ means source, not object, basename, and $@ seems to work - everywhere. - -Wed Aug 23 15:44:25 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * libF77/system_.c (system_): Declare as returning `ftnint', - consistent with signal_, instead of defaulting to `int'. - Hope dmg@research.att.com agrees, else probably will - change to whatever he determines is correct (and change - g77 accordingly). - -Thu Aug 17 08:46:17 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * libI77/rsne.c (s_rsne): Call f_init if not already done. - -Thu Aug 17 04:35:28 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * Incorporate changes by Bellcore to libf2c through 950817. - And this text is for EMACS: (foo at bar). - -Wed Aug 16 17:33:06 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * libF77/Makefile.in, libI77/Makefile.in (CFLAGS): Put -g1 - after configured CFLAGS but before GCC_CFLAGS, so by default - the libraries are built with minimal debugging information. - -Fri Jul 28 10:30:15 1995 Dave Love <d.love@dl.ac.uk> - - * libI77/open.c (f_open): Call f_init if not already done. - -Sat Jul 1 19:31:56 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * libF77/system_.c (system_): Make buff one byte bigger so - following byte doesn't get overwritten by call with large - string. - -Tue Jun 27 23:28:16 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * Incorporate changes by Bellcore to libf2c through 950613. - - * libF77/Version.c (__G77_LIBF77_VERSION__): Add this string - to track g77 mods to libf2c. - - * libI77/Version.c (__G77_LIBI77_VERSION__): Add this string - to track g77 mods to libf2c. - - * libI77/rawio.h: #include <rawio.h> only conditionally, - using macro intended for that purpose. - -Fri May 19 11:20:00 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * configure.in: Incorporate change made by d.love, - - * configure: Regenerated. - -Wed Apr 26 21:08:57 BST 1995 Dave Love <d.love@dl.ac.uk> - - * configure.in: Fix quoting problem in atexit check. - - * configure: Regenerated (with current autoconf). - -Wed Mar 15 12:49:58 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * Incorporate changes by Bellcore to libf2c through 950315. - -Sun Mar 5 18:54:29 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * README: Tell people not to read lib[fi]77/README. - -Wed Feb 15 14:30:58 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * configure.in: Update copyright notice at top of file. - - * f2c.h.in (f2c_i2): Make sure defining this crashes compilations. - - * libI77/Makefile.in (F2C_H): Fix typo in definition of this - symbol (was FF2C_H=...). - -Sun Feb 12 13:39:36 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * README: Remove some obsolete items. - Add date. - - * TODO: Add date. - -Sat Feb 11 22:07:54 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * Makefile.in (libf77, libi77): Add rules to .PHONY list. - - * f2c.h.in (flag): Make same type as friends. - - * libF77/Makefile.in (libf77): Rename to $(lib), remove from - .PHONY list. Fix some typos. - - * libI77/Makefile.in (libi77): Rename to $(lib), remove from - .PHONY list. Fix some typos. - -Thu Feb 2 12:22:41 1995 Craig Burley (burley@gnu.ai.mit.edu) - - * Makefile.in (libF77/Makefile): Fix typos in this rule's name - and dependencies. - - * libF77/Makefile.in (libf77): Add rule to .PHONY list. - - * libI77/Makefile.in (libi77): Add rule to .PHONY list. - -Local Variables: -add-log-time-format: current-time-string -End: diff --git a/gnu/lib/libf2c/Makefile.bsd-wrapper b/gnu/lib/libf2c/Makefile.bsd-wrapper deleted file mode 100644 index cdfec5af99c..00000000000 --- a/gnu/lib/libf2c/Makefile.bsd-wrapper +++ /dev/null @@ -1,149 +0,0 @@ -# $OpenBSD: Makefile.bsd-wrapper,v 1.2 2004/12/30 17:35:26 espie Exp $ - -# this only supports gcc3, because of internal types - -.include <bsd.own.mk> - -# for libfrtbegin -SUBDIR=libF77 -#SUBDIR=libF77 libI77 libU77 -LIB=g2c - -I77_SRCS= backspace.c close.c dfe.c dolio.c due.c endfile.c err.c \ - fmt.c fmtlib.c iio.c ilnw.c inquire.c lread.c lwrite.c open.c \ - rdfmt.c rewind.c rsfe.c rsli.c rsne.c sfe.c sue.c typesize.c uio.c \ - util.c wref.c wrtfmt.c wsfe.c wsle.c wsne.c xwsne.c \ - ftell_.c - -U77_SRCS = gerror_.c perror_.c ierrno_.c itime_.c time_.c \ - unlink_.c fnum_.c getpid_.c getuid_.c getgid_.c kill_.c rand_.c \ - srand_.c irand_.c sleep_.c idate_.c ctime_.c etime_.c \ - dtime_.c isatty_.c ltime_.c fstat_.c stat_.c \ - lstat_.c access_.c link_.c getlog_.c ttynam_.c getcwd_.c symlnk_.c \ - vxttime_.c vxtidate_.c gmtime_.c fdate_.c secnds_.c \ - bes.c dbes.c \ - chdir_.c chmod_.c lnblnk_.c hostnm_.c rename_.c fgetc_.c fputc_.c \ - umask_.c sys_clock_.c date_.c second_.c flush1_.c mclock_.c \ - alarm_.c datetime_.c - -DEFS=-DAllow_TYQUAD -D_POSIX_SOURCE=1 \ --DRETSIGTYPE=void -DIEEE_drem=1 -DHAVE_CONFIG_H -DUSE_HCONFIG \ --IlibU77 -I${.CURDIR}/libI77 -I${.OBJDIR} -I${.CURDIR} - - -MISC = F77_aloc.c s_rnge.c abort_.c getarg_.c iargc_.c\ - getenv_.c signal_.c s_stop.c s_paus.c system_.c cabs.c\ - derf_.c derfc_.c erf_.c erfc_.c sig_die.c exit_.c setarg.c setsig.c -POW = pow_ci.c pow_dd.c pow_di.c pow_hh.c pow_ii.c pow_ri.c pow_zi.c pow_zz.c \ - pow_qq.c -CX = c_abs.c c_cos.c c_div.c c_exp.c c_log.c c_sin.c c_sqrt.c -DCX = z_abs.c z_cos.c z_div.c z_exp.c z_log.c z_sin.c z_sqrt.c -REAL = r_abs.c r_acos.c r_asin.c r_atan.c r_atn2.c r_cnjg.c r_cos.c\ - r_cosh.c r_dim.c r_exp.c r_imag.c r_int.c\ - r_lg10.c r_log.c r_mod.c r_nint.c r_sign.c\ - r_sin.c r_sinh.c r_sqrt.c r_tan.c r_tanh.c -DBL = d_abs.c d_acos.c d_asin.c d_atan.c d_atn2.c\ - d_cnjg.c d_cos.c d_cosh.c d_dim.c d_exp.c\ - d_imag.c d_int.c d_lg10.c d_log.c d_mod.c\ - d_nint.c d_prod.c d_sign.c d_sin.c d_sinh.c\ - d_sqrt.c d_tan.c d_tanh.c -INT = i_abs.c i_dim.c i_dnnt.c i_indx.c i_len.c i_mod.c i_nint.c i_sign.c -HALF = h_abs.c h_dim.c h_dnnt.c h_indx.c h_len.c h_mod.c h_nint.c h_sign.c -CMP = l_ge.c l_gt.c l_le.c l_lt.c hl_ge.c hl_gt.c hl_le.c hl_lt.c -EFL = ef1asc_.c ef1cmc_.c -CHAR = s_cat.c s_cmp.c s_copy.c -F90BIT = lbitbits.c lbitshft.c qbitbits.c qbitshft.c -F77_SRCS=${MISC} ${POW} ${CX} ${DCX} ${REAL} ${DBL} ${INT} \ -${HALF} ${CMP} ${EFL} ${CHAR} ${F90BIT} - -VERSION_SRCS=${.OBJDIR}/VersionI.c ${.OBJDIR}/VersionF.c ${.OBJDIR}/VersionU.c - -F2CEXT = abort derf derfc ef1asc ef1cmc erf erfc exit getarg getenv iargc \ - signal system flush ftell fseek access besj0 besj1 besjn besy0 besy1 \ - besyn chdir chmod ctime date dbesj0 dbesj1 dbesjn dbesy0 dbesy1 dbesyn \ - dtime etime fdate fgetc fget flush1 fnum fputc fput fstat gerror \ - getcwd getgid getlog getpid getuid gmtime hostnm idate ierrno irand \ - isatty itime kill link lnblnk lstat ltime mclock perror rand rename \ - secnds second sleep srand stat symlnk time ttynam umask unlink \ - vxtidt vxttim alarm - -F2CO=${F2CEXT:S/^/libE77\/L/:S/$/.o/} -OBJS+=${F2CO} -F2CGO=${F2CO:.o=.go} -F2CPO=${F2CO:.o=.po} -F2CSO=${F2CO:.o=.so} - -${F2CO}: f2cext.c - @echo "${COMPILE.c} -D${.TARGET:T:R} $> -o ${.TARGET}" - @${COMPILE.c} -D${.TARGET:T:R} $> -o ${.TARGET}.o - @${LD} -x -r ${.TARGET}.o -o ${.TARGET} - @rm -f ${.TARGET}.o - -${F2CGO}: f2cext.c - @echo "${COMPILE.c} -g -D${.TARGET:T:R} $> -o ${.TARGET}" - @${COMPILE.c} -g -D${.TARGET:T:R} $> -o ${.TARGET}.o - @${LD} -X -r ${.TARGET}.o -o ${.TARGET} - @rm -f ${.TARGET}.o - -${F2CPO}: f2cext.c - @echo "${COMPILE.c} -p -D${.TARGET:T:R} $> -o ${.TARGET}" - @${COMPILE.c} -p -D${.TARGET:T:R} $> -o ${.TARGET}.o - @${LD} -X -r ${.TARGET}.o -o ${.TARGET} - @rm -f ${.TARGET}.o - -${F2CSO}: f2cext.c - @echo "${COMPILE.c} ${PICFLAG} -DPIC -D${.TARGET:T:R} $> -o ${.TARGET}" - @${COMPILE.c} ${PICFLAG} -DPIC -D${.TARGET:T:R} $> -o ${.TARGET}.o - @${LD} -x -r ${.TARGET}.o -o ${.TARGET} - @rm -f ${.TARGET}.o - -CLEANFILES=${VERSION_SRCS} config.cache config.status config.log Makefile \ -libU77/config.log libU77/config.h libU77/config.status libU77/Makefile \ -libI77/config.log libI77/config.status libI77/Makefile libI77/config.h \ -libF77/config.log libF77/config.status libF77/Makefile \ -g2c.h - - -CFLAGS+=${DEFS} - -SRCS+= ${I77_SRCS:S/^/libI77\//} -SRCS+= ${U77_SRCS:S/^/libU77\//} -SRCS+= ${F77_SRCS:S/^/libF77\//} -SRCS+= ${VERSION_SRCS} - -${.OBJDIR}/VersionI.c: libI77/Version.c - ln -sf $> $@ - -${.OBJDIR}/VersionU.c: libU77/Version.c - ln -sf $> $@ - -${.OBJDIR}/VersionF.c: libF77/Version.c - ln -sf $> $@ - -all: config.status - -# CPPFLAGS=-I${.CURDIR}/../gcc/obj \ - -config.status: Makefile.in configure - mkdir -p libE77 - CPPFLAGS="$(CFLAGS)" \ - PATH="/bin:/usr/bin:/sbin:/usr/sbin" \ - r=$(GCC_OBJDIR) \ - INSTALL_PROGRAM="${INSTALL} ${INSTALL_COPY} ${INSTALL_STRIP}" \ - g77_cv_compiler_exists=yes \ - /bin/sh ${.CURDIR}/configure \ - --prefix=/usr --with-local-prefix=/usr ${CF} \ - && touch config.status - -depend: config.status - -prereq: - # Nothing to do - -includes: - install -C -o ${BINOWN} -g ${BINGRP} -m ${NONBINMODE} \ - ${.CURDIR}/f2c.h ${DESTDIR}/usr/include - install -C -o ${BINOWN} -g ${BINGRP} -m ${NONBINMODE} \ - ${.CURDIR}/g2c.hin ${DESTDIR}/usr/include/g2c.h - -.include <bsd.lib.mk> diff --git a/gnu/lib/libf2c/Makefile.in b/gnu/lib/libf2c/Makefile.in deleted file mode 100644 index 7a2c1d9be9a..00000000000 --- a/gnu/lib/libf2c/Makefile.in +++ /dev/null @@ -1,276 +0,0 @@ -# Makefile for GNU F77 compiler runtime. -# Copyright (C) 1995-1998, 2001, 2002, 2003 Free Software Foundation, Inc. -# Contributed by Dave Love (d.love@dl.ac.uk). -# -#This file is part of GNU Fortran. -# -#GNU Fortran is free software; you can redistribute it and/or modify -#it under the terms of the GNU General Public License as published by -#the Free Software Foundation; either version 2, or (at your option) -#any later version. -# -#GNU Fortran is distributed in the hope that it will be useful, -#but WITHOUT ANY WARRANTY; without even the implied warranty of -#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#GNU General Public License for more details. -# -#You should have received a copy of the GNU General Public License -#along with GNU Fortran; see the file COPYING. If not, write to -#the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -#02111-1307, USA. - -SHELL = @SHELL@ -PWD_COMMAND = $${PWDCMD-pwd} -MAKEOVERRIDES= -.NOEXPORTS: - -#### Start of system configuration section. #### - -srcdir = @glibcpp_srcdir@ -VPATH = @glibcpp_srcdir@ -prefix = @prefix@ -exec_prefix = @exec_prefix@ -target_alias = @target_alias@ -gcc_version = @gcc_version@ -gcc_version_trigger = @gcc_version_trigger@ -top_srcdir = @top_srcdir@ -toplevel_srcdir = @toplevel_srcdir@ -toolexecdir = @glibcpp_toolexecdir@ -glibcpp_toolexecdir = @glibcpp_toolexecdir@ -glibcpp_toolexeclibdir = @glibcpp_toolexeclibdir@ - -top_builddir = . - -libdir = $(exec_prefix)/lib -libsubdir = $(libdir)/gcc-lib/$(target_alias)/$(gcc_version) -# -# Versions should start at 0:0:0 - See libtool manual. -VERSION_MAJOR=0 -VERSION_MINOR=0 -VERSION_SUB=0 - -# Multilib support variables. -MULTISRCTOP = -MULTIBUILDTOP = -MULTIDIRS = -MULTISUBDIR = -MULTIDO = true -MULTICLEAN = true - -# Not configured per top-level version, since that doesn't get passed -# Versions should start at 0:0:0 - See libtool manual. -# down at configure time, but overrridden by the top-level install -# target. -INSTALL = @INSTALL@ -INSTALL_PROGRAM = @INSTALL_PROGRAM@ -INSTALL_DATA = @INSTALL_DATA@ - -LIBTOOL = @LIBTOOL@ -CC = @CC@ -WARN_CFLAGS = -W -Wall -CFLAGS = @CFLAGS@ -AR = @AR@ -RANLIB = @RANLIB@ - -# List of variables to pass to sub-makes. -# Quote this way so that it can be used to set shell variables too. -FLAGS_TO_PASS= \ - CC='$(CC)' \ - LD='$(LD)' \ - LIBTOOL='$(LIBTOOL)' \ - WARN_CFLAGS='$(WARN_CFLAGS)' \ - CFLAGS='$(CFLAGS)' \ - CPPFLAGS='$(CPPFLAGS)' \ - DESTDIR='$(DESTDIR)' \ - AR='$(AR)' \ - RANLIB='$(RANLIB)' \ - prefix='$(prefix)' \ - exec_prefix='$(exec_prefix)' \ - libdir='$(libdir)' \ - libsubdir='$(libsubdir)' \ - tooldir='$(tooldir)' - -LIBG2C_BASE = libg2c -LIBG2C = $(LIBG2C_BASE).la - -SUBDIRS = libI77 libF77 libU77 - -F2CEXT = abort derf derfc ef1asc ef1cmc erf erfc exit getarg getenv iargc \ - signal system flush ftell fseek access besj0 besj1 besjn besy0 besy1 \ - besyn chdir chmod ctime dbesj0 dbesj1 dbesjn dbesy0 dbesy1 dbesyn \ - dtime etime fdate fgetc fget flush1 fnum fputc fput fstat gerror \ - getcwd getgid getlog getpid getuid gmtime hostnm idate ierrno irand \ - isatty itime kill link lnblnk lstat ltime mclock perror rand rename \ - secnds second sleep srand stat symlnk time ttynam umask unlink \ - vxttim alarm \ - date_y2kbuggy date_y2kbug vxtidt_y2kbuggy vxtidt_y2kbug - -.SUFFIXES: - -# The logic here is partly dictated by the desire to keep the lib?77 -# subdirs for compatibility with the Netlib version and because libU77 -# has a different copyright; then the libe77 bit (EXTERNALly-callable -# versions) is funny. Given that, as well as keeping things as simple -# as possible we want (at least) the following: -# * Allow make to be run at the top level (all-target-libf2c), at this -# level, or the subdirs of this level. In the latter case we only -# compile, rather than updating libg2c.a; -# * A robust set of dependencies, so that we rebuild (as little as -# possible) if a configuration file, g2c.h or any lib?77/*.c file -# changes; -# * Avoid unnecessary running of ar and ranlib; -# * Expose parallelism where reasonable, but not as a priority. - -# The intended top-level target here does a non-multilib build (via -# the dependency) and then (perhaps) builds multilibs. - -all: all-unilib - : $(MAKE) ; exec $(MULTIDO) $(FLAGS_TO_PASS) multi-do DO="all-unilib" - -# `all-unilib' is the overall target in the absence of multilibs, -# meant to be invoked via multi-do for multilibs. - -# Its dependencies can be satisfied in parallel. The [fiu]77 targets -# update stamp files (object file lists, actually, see the subdir -# makefiles) on which the $(LIBG2C) depends. The stamp files -# s-lib[fiu]77 are intentionally not targets, since we're only meant -# to come in at the level of this target. The [fiu]77 targets always -# invoke sub makes to check dependencies in the subdirs, else we'd -# have to maintain them at this level; we live with the overhead of -# some recursive makes which may do nothing. - -all-unilib: i77 f77 u77 s-libe77 - $(MAKE) $(FLAGS_TO_PASS) $(LIBG2C) - -i77 f77 u77: g2c.h - -# This target should normally only get invoked via `all-unilib' -- -# after all's well in the subdirs -- actually to assemble the library. -# The stamp files contain the object lists of each component of the -# library. The point of breaking them up is to avoid command-line -# length limitations. - -$(LIBG2C): s-libi77 s-libf77 s-libu77 s-libe77 - $(LIBTOOL) --mode=link $(CC) -o $@ \ - -version-info $(VERSION_MAJOR):$(VERSION_MINOR):$(VERSION_SUB) \ - -rpath $(glibcpp_toolexeclibdir) \ - -objectlist s-libe77 \ - -objectlist s-libf77 \ - -objectlist s-libi77 \ - -objectlist s-libu77 \ - -lm - -i77: - cd libI77; $(MAKE) $(FLAGS_TO_PASS) all - -f77: - cd libF77; $(MAKE) $(FLAGS_TO_PASS) all - -u77: - cd libU77; $(MAKE) $(FLAGS_TO_PASS) all - -s-libe77: f2cext.c - if [ -d libE77 ]; then rm -f libE77/*.o libE77/*.lo; else mkdir libE77; fi - -rm -f $@.T $@ - for name in $(F2CEXT); \ - do \ - echo $${name}; \ - $(LIBTOOL) --mode=compile $(CC) -c -I. -I$(srcdir) -I../../include \ - $(CPPFLAGS) $(WARN_CFLAGS) $(CFLAGS) -DL$${name} $(srcdir)/f2cext.c \ - -o libE77/L$${name}.lo ; \ - if [ $$? -eq 0 ] ; then true; else exit 1; fi; \ - echo libE77/L$${name}.lo >> $@.T; \ - done - mv $@.T $@ - -f2cext.c: g2c.h - -${srcdir}/configure: configure.in - rm -f config.cache - cd $(srcdir) && autoconf - -# Dependence on Makefile serializes for parallel make. -g2c.h: g2c.hin config.status Makefile -# Might try to avoid rebuilding everything if Makefile or configure -# changes and g2c.h doesn't; see also the Makefile rule. Should -# depend on another stamp file rather than using the commented-out -# lines below, since g2c.h isn't necessarily brought up to date. -# mv g2c.h g2c.x - $(SHELL) config.status -# $(SHELL) $(srcdir)/../move-if-change g2c.h g2c.x && mv g2c.x g2c.h - -Makefile: Makefile.in config.status -# Autoconf doc uses `./config.status'. Is there a good reason to use $(SHELL)? - $(SHELL) config.status - -config.status: configure $(gcc_version_trigger) -# Make sure we don't pick up a site config file and that configure -# gets run with correct values of variables such as CC. - CONFIG_SITE=no-such-file $(FLAGS_TO_PASS) \ - $(SHELL) config.status --recheck - -info install-info clean-info dvi TAGS dist installcheck installdirs: - -check: - cd libU77; $(MAKE) G77DIR=../../../gcc/ check - -install: all - $(SHELL) $(toplevel_srcdir)/mkinstalldirs $(DESTDIR)$(glibcpp_toolexeclibdir) - $(LIBTOOL) --mode=install $(INSTALL) $(LIBG2C) $(DESTDIR)$(glibcpp_toolexeclibdir) - $(INSTALL_DATA) libfrtbegin.a $(DESTDIR)$(glibcpp_toolexeclibdir) - $(RANLIB) $(DESTDIR)$(glibcpp_toolexeclibdir)/libfrtbegin.a - $(INSTALL_DATA) g2c.h $(DESTDIR)$(libsubdir)/include/g2c.h - $(MULTIDO) $(FLAGS_TO_PASS) multi-do DO="$@" - @-$(LIBTOOL) --mode=finish $(DESTDIR)$(glibcpp_toolexeclibdir) - -install-strip: - $(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' install - -uninstall: - rm -f $(DESTDIR)$(libsubdir)/include/g2c.h - rm -f $(DESTDIR)$(glibcpp_toolexeclibdir)/libfrtbegin.a - $(LIBTOOL) --mode=uninstall rm -f $(DESTDIR)$(glibcpp_toolexeclibdir)$(LIBG2C_BASE).la - $(MULTIDO) $(FLAGS_TO_PASS) multi-do DO="$@" - -mostlyclean: - rm -f $(LIBG2C) objlist - $(MAKE) DO=$@ DODIRS="$(SUBDIRS)" $(FLAGS_TO_PASS) subdir_do; \ - $(MULTICLEAN) multi-clean DO=$@ - rm -fr libE77 s-libe77 - -clean: mostlyclean - rm -f config.log - $(MAKE) DO=$@ DODIRS="$(SUBDIRS)" $(FLAGS_TO_PASS) subdir_do; \ - $(MULTICLEAN) multi-clean DO=$@ - rm -rf .libs - -distclean: clean - rm -f g2c.h s-libe77 - $(MAKE) DO=$@ DODIRS="$(SUBDIRS)" $(FLAGS_TO_PASS) subdir_do; \ - $(MULTICLEAN) multi-clean DO=distclean - rm -f config.cache config.status Makefile - -maintainer-clean: - -rebuilt: configure - -.PHONY: rebuilt mostlyclean clean distclean maintainer-clean all \ - i77 f77 u77 check uninstall install-strip dist \ - installcheck installdirs all-unilib - -subdir_do: - @rootpre=`${PWD_COMMAND}`/; export rootpre; \ - srcrootpre=`cd $(srcdir); ${PWD_COMMAND}`/; export srcrootpre; \ - for i in .. $(DODIRS); do \ - if [ x$$i != x.. ]; then \ - if [ -f ./$$i/Makefile ]; then \ - if (cd ./$$i; $(MAKE) $(FLAGS_TO_PASS) $(DO)); then \ - true; \ - else \ - exit 1; \ - fi; \ - else true; fi; \ - else true; fi; \ - done - -# multidoings may be added here by configure. diff --git a/gnu/lib/libf2c/README b/gnu/lib/libf2c/README deleted file mode 100644 index 008654b3c77..00000000000 --- a/gnu/lib/libf2c/README +++ /dev/null @@ -1,109 +0,0 @@ -1998-08-11 - -This directory contains the libf2c library packaged for use with g77 -to configure and build automatically (in principle!) as part of the -top-level configure and make steps. g77 names this library `libg2c' -to avoid conflicts with existing copies of `libf2c' on a system. - -Some small changes have been made vis-a-vis the netlib distribution of -libf2c, which comes from <ftp:bell-labs.com/netlib/f2c/> and is maintained -(excellently) by David M. Gay <dmg@bell-labs.com>. See the Notice files -for copyright information. We usually try to get g77-specific changes -rolled back into the libf2c distribution. - -Files that come directly from netlib are either maintained in the -libf2c directory under their original names or, if they are not pertinent -for g77's version of libf2c, under their original names with `.netlib' -appended. For example, permissions.netlib is a copy of f2c's top-level -`permissions' file in the netlib distribution. In this case, it applies -only to the relevant portions of the libF77/ and libI77/ directories; it -does not apply to the libU77/ directory, which is distributed under -different licensing arrangements. Similarly, the `makefile.netlib' files -in the libF77/ and libI77/ subdirectories are copies of the respective -`makefile' files in the netlib distribution, but are not used when -building g77's version of libf2c. - -The README.netlib files in libF77/ and libI77/ thus might be -interesting, but should not be taken as guidelines for how to -configure and build libf2c in g77's distribution. - -* Read permissions.netlib for licensing conditions that apply to - distributing programs containing portions of code in the libF77/ and - libI77/ subdirectories. Also read disclaimer.netlib. - -* Read libU77/COPYING.LIB for licensing conditions that apply to - distributing programs containing portions of code in the libU77/ - subdirectory. - -Among the user-visible changes (choices) g77 makes in its version of libf2c: - -- f2c.h configured to default to padding unformatted direct reads - (#define Pad_UDread), because that's the behavior most users - expect. - -- f2c.h configured to default to outputting leading zeros before - decimal points in formatted and list-directed output, to be compatible - with many other compilers (#define WANT_LEAD_0). Either way is - standard-conforming, however, and you should try to avoid writing - code that assumes one format or another. - -- dtime_() and etime_() are from Dave Love's libU77, not from - netlib's libF77. - -- Routines that are intended to be called directly via user code - (as in `CALL EXIT', but not the support routines for `OPEN') - have been renamed from `<name>' to `G77_<name>_0'. This, in - combination with g77 recognizing these names as intrinsics and - calling them directly by those names, reduces the likelihood of - interface mismatches occurring due to use of compiler options - that change code generation, and permits use of these names as - both intrinsics and user-supplied routines in applications (as - required by the Fortran standards). f2cext.c contains "jacket" - routines named `<name>' that call `G77_<name>_0', to support - code that relies on calling the relevant routines as `EXTERNAL' - routines. - - Note that the `_0' in the name denotes version 0 of the *interface*, - not the *implementation*, of a routine. The interface of a - given routine *must not change* -- instead, introduce a new copy - of the code, with an increment (e.g. `_1') suffix, having the - new interface. Whether the previous interface is maintained is - not as important as ensuring the routine implementing the new - interface is never successfully linked to a call in existing, - e.g. previously compiled, code that expects the old interface. - -- Version.c in the subdirectories contains g77-specific version - information and a routine (per subdirectory) to print both the - netlib and g77 version information when called. The `g77 -v' - command is designed to trigger this, by compiling, linking, and - running a small program that calls the routines in sequence. - -- libF77/main.c no longer contains the actual code to copy the - argc and argv values into globals or to set up the signal-handling - environment. These have been removed to libF77/setarg.c and - libF77/setsig.c, respectively. libF77/main.c contains procedure - calls to the new code in place of the code itself. This should - simplify linking executables with a main() function other than - that in libF77/main.c (such as one written by the user in C or - C++). See the g77 documentation for more information. - -- Complex-arithmetic support routines in libF77/ take a different approach - to avoiding problems resulting from aliased input and output arguments, - which should avoid particularly unusual alias problems that netlib - libf2c might suffer from. - -- libF77/signal_.c supports systems with 64-bit pointers and 32-bit - integers. - -- I/O routines in libI77/ have code to detect attempts to do recursive - I/O more "directly", mainly to lead to a clearer diagnostic than - typically occurs under such conditions. - -- Formatted-I/O routines in libI77/ have code to pretty-print a FORMAT - string when printing a fatal diagnostic involving formatted I/O. - -- libI77/open.c supports a more robust, perhaps more secure, method - of naming temporary files on some systems. - -- Some g77-specific handling of building under Microsoft operating - systems exists, mainly in libI77/. diff --git a/gnu/lib/libf2c/TODO b/gnu/lib/libf2c/TODO deleted file mode 100644 index 84cbb0c733d..00000000000 --- a/gnu/lib/libf2c/TODO +++ /dev/null @@ -1,14 +0,0 @@ -980709 - -TODO list for the g77 library - -* Investigate building shared libraries on systems we know about - (probably using libtool). - -* Better test cases. - -* Allow the library to be stripped to save space. (The install-strip - makefile target now allows this, should it be easily invocable.) - -* An interface to IEEE maths functions from libc where this makes - sense. diff --git a/gnu/lib/libf2c/aclocal.m4 b/gnu/lib/libf2c/aclocal.m4 deleted file mode 100644 index 822a6f5043d..00000000000 --- a/gnu/lib/libf2c/aclocal.m4 +++ /dev/null @@ -1,215 +0,0 @@ -dnl Copyright (C) 1994, 1995-8, 1999, 2001, 2002 Free Software Foundation, Inc. -dnl This file is free software; the Free Software Foundation -dnl gives unlimited permission to copy and/or distribute it, -dnl with or without modifications, as long as this notice is preserved. - -dnl This program is distributed in the hope that it will be useful, -dnl but WITHOUT ANY WARRANTY, to the extent permitted by law; without -dnl even the implied warranty of MERCHANTABILITY or FITNESS FOR A -dnl PARTICULAR PURPOSE. - -dnl -dnl Initialize configure bits. -dnl -dnl GLIBCPP_TOPREL_CONFIGURE -AC_DEFUN(GLIBCPP_TOPREL_CONFIGURE, [ - dnl Default to --enable-multilib - AC_ARG_ENABLE(multilib, - [ --enable-multilib build hella library versions (default)], - [case "${enableval}" in - yes) multilib=yes ;; - no) multilib=no ;; - *) AC_MSG_ERROR(bad value ${enableval} for multilib option) ;; - esac], [multilib=yes])dnl - -toprel="." - -AC_CONFIG_AUX_DIR(${srcdir}/$toprel) -toplevel_srcdir=\${top_srcdir}/$toprel -AC_SUBST(toplevel_srcdir) -]) - -dnl -dnl Initialize configure bits. -dnl -dnl GLIBCPP_CONFIGURE -AC_DEFUN(GLIBCPP_CONFIGURE, [ -# Export build and source directories. -# These need to be absolute paths, yet at the same time need to -# canonicalize only relative paths, because then amd will not unmount -# drives. Thus the use of PWDCMD: set it to 'pawd' or 'amq -w' if using amd. -glibcpp_builddir=`${PWDCMD-pwd}` -case $srcdir in -[\\/$]* | ?:[\\/]*) glibcpp_srcdir=${srcdir} ;; -*) glibcpp_srcdir=`cd "$srcdir" && ${PWDCMD-pwd} || echo "$srcdir"` ;; -esac -AC_SUBST(glibcpp_builddir) -AC_SUBST(glibcpp_srcdir) - -dnl This is here just to satisfy automake. -ifelse(not,equal,[AC_CONFIG_AUX_DIR(..)]) - -# Will set LN_S to either 'ln -s' or 'ln'. With autoconf 2.50+, can also -# be 'cp -p' if linking isn't available. -#ac_cv_prog_LN_S='cp -p' -AC_PROG_LN_S - -# We use these options to decide which functions to include. -AC_ARG_WITH(target-subdir, -[ --with-target-subdir=SUBDIR - configuring in a subdirectory]) -AC_ARG_WITH(cross-host, -[ --with-cross-host=HOST configuring with a cross compiler]) - - # Never versions of autoconf add an underscore to these functions. - # Prevent future problems ... - ifdef([AC_PROG_CC_G],[],[define([AC_PROG_CC_G],defn([_AC_PROG_CC_G]))]) - ifdef([AC_PROG_CC_GNU],[],[define([AC_PROG_CC_GNU],defn([_AC_PROG_CC_GNU]))]) - ifdef([AC_PROG_CXX_G],[],[define([AC_PROG_CXX_G],defn([_AC_PROG_CXX_G]))]) - ifdef([AC_PROG_CXX_GNU],[],[define([AC_PROG_CXX_GNU],defn([_AC_PROG_CXX_GNU]))]) - -# AC_PROG_CC - -# FIXME: We temporarily define our own version of AC_PROG_CC. This is -# copied from autoconf 2.12, but does not call AC_PROG_CC_WORKS. We -# are probably using a cross compiler, which will not be able to fully -# link an executable. This should really be fixed in autoconf -# itself. - -AC_DEFUN(LIB_AC_PROG_CC, -[AC_BEFORE([$0], [AC_PROG_CPP])dnl -dnl Fool anybody using AC_PROG_CC. -AC_PROVIDE([AC_PROG_CC]) -AC_CHECK_PROG(CC, gcc, gcc) -if test -z "$CC"; then - AC_CHECK_PROG(CC, cc, cc, , , /usr/ucb/cc) - test -z "$CC" && AC_MSG_ERROR([no acceptable cc found in \$PATH]) -fi - -AC_PROG_CC_GNU - -if test $ac_cv_prog_gcc = yes; then - GCC=yes -dnl Check whether -g works, even if CFLAGS is set, in case the package -dnl plays around with CFLAGS (such as to build both debugging and -dnl normal versions of a library), tasteless as that idea is. - ac_test_CFLAGS="${CFLAGS+set}" - ac_save_CFLAGS="$CFLAGS" - CFLAGS= - AC_PROG_CC_G - if test "$ac_test_CFLAGS" = set; then - CFLAGS="$ac_save_CFLAGS" - elif test $ac_cv_prog_cc_g = yes; then - CFLAGS="-g -O2" - else - CFLAGS="-O2" - fi -else - GCC= - test "${CFLAGS+set}" = set || CFLAGS="-g" -fi -]) - -LIB_AC_PROG_CC - - AC_CHECK_TOOL(AS, as) - AC_CHECK_TOOL(AR, ar) - AC_CHECK_TOOL(RANLIB, ranlib, ranlib-not-found-in-path-error) - AC_PROG_INSTALL - - # We need AC_EXEEXT to keep automake happy in cygnus mode. However, - # at least currently, we never actually build a program, so we never - # need to use $(EXEEXT). Moreover, the test for EXEEXT normally - # fails, because we are probably configuring with a cross compiler - # which can't create executables. So we include AC_EXEEXT to keep - # automake happy, but we don't execute it, since we don't care about - # the result. - if false; then - # autoconf 2.50 runs AC_EXEEXT by default, and the macro expands - # to nothing, so nothing would remain between `then' and `fi' if it - # were not for the `:' below. - : - AC_EXEEXT - fi -]) - - -dnl -dnl GLIBCPP_EXPORT_INSTALL_INFO -dnl calculates gxx_install_dir -dnl exports glibcpp_toolexecdir -dnl exports glibcpp_toolexeclibdir -dnl exports glibcpp_prefixdir -dnl -dnl Assumes cross_compiling bits already done, and with_cross_host in -dnl particular -dnl -dnl GLIBCPP_EXPORT_INSTALL_INFO -AC_DEFUN(GLIBCPP_EXPORT_INSTALL_INFO, [ -# Assumes glibcpp_builddir, glibcpp_srcdir are alreay set up and -# exported correctly in GLIBCPP_CONFIGURE. -glibcpp_toolexecdir=no -glibcpp_toolexeclibdir=no -glibcpp_prefixdir=${prefix} - -AC_MSG_CHECKING([for interface version number]) -libstdcxx_interface=$INTERFACE -AC_MSG_RESULT($libstdcxx_interface) - -# Process the option "--enable-version-specific-runtime-libs" -AC_MSG_CHECKING([for --enable-version-specific-runtime-libs]) -AC_ARG_ENABLE(version-specific-runtime-libs, -[ --enable-version-specific-runtime-libs Specify that runtime libraries should be installed in a compiler-specific directory ], -[case "$enableval" in - yes) version_specific_libs=yes ;; - no) version_specific_libs=no ;; - *) AC_MSG_ERROR([Unknown argument to enable/disable version-specific libs]);; - esac], -version_specific_libs=no)dnl -# Option set, now we can test it. -AC_MSG_RESULT($version_specific_libs) - -gcc_version_trigger=${toplevel_srcdir}/gcc/version.c -gcc_version_full=`grep version_string ${gcc_version_trigger} | sed -e 's/.*\"\([[^ \"]]*\)[[ \"]].*/\1/'` -gcc_version=`echo ${gcc_version_full} | sed -e 's/\([^ ]*\) .*/\1/'` -AC_SUBST(gcc_version) -AC_SUBST(gcc_version_trigger) - -if test $version_specific_libs = yes; then - # Need the gcc compiler version to know where to install libraries - # and header files if --enable-version-specific-runtime-libs option - # is selected. - changequote(,)dnl - glibcpp_toolexecdir='$(libdir)/gcc-lib/$(target_alias)' - glibcpp_toolexeclibdir='$(toolexecdir)/'${gcc_version}'$(MULTISUBDIR)' - changequote([,])dnl -fi - -# Calculate glibcpp_toolexecdir, glibcpp_toolexeclibdir -# Install a library built with a cross compiler in tooldir, not libdir. -if test x"$glibcpp_toolexecdir" = x"no"; then - if test -n "$with_cross_host" && - test x"$with_cross_host" != x"no"; then - glibcpp_toolexecdir='$(exec_prefix)/$(target_alias)' - glibcpp_toolexeclibdir='$(toolexecdir)/lib' - else - glibcpp_toolexecdir='$(libdir)/gcc-lib/$(target_alias)' - glibcpp_toolexeclibdir='$(libdir)' - fi - glibcpp_toolexeclibdir=$glibcpp_toolexeclibdir/`$CC -print-multi-os-directory` -fi - -AC_SUBST(glibcpp_prefixdir) -AC_SUBST(glibcpp_toolexecdir) -AC_SUBST(glibcpp_toolexeclibdir) -]) - -sinclude(../libtool.m4) -dnl The lines below arrange for aclocal not to bring an installed -dnl libtool.m4 into aclocal.m4, while still arranging for automake to -dnl add a definition of LIBTOOL to Makefile.in. -ifelse(,,,[AC_SUBST(LIBTOOL) -AC_DEFUN([AM_PROG_LIBTOOL]) -AC_DEFUN([AC_LIBTOOL_DLOPEN]) -AC_DEFUN([AC_PROG_LD]) -]) diff --git a/gnu/lib/libf2c/changes.netlib b/gnu/lib/libf2c/changes.netlib deleted file mode 100644 index 4ec0e7f5825..00000000000 --- a/gnu/lib/libf2c/changes.netlib +++ /dev/null @@ -1,3026 +0,0 @@ -31 Aug. 1989: - 1. A(min(i,j)) now is translated correctly (where A is an array). - 2. 7 and 8 character variable names are allowed (but elicit a - complaint under -ext). - 3. LOGICAL*1 is treated as LOGICAL, with just one error message - per LOGICAL*1 statement (rather than one per variable declared - in that statement). [Note that LOGICAL*1 is not in Fortran 77.] - Like f77, f2c now allows the format in a read or write statement - to be an integer array. - -5 Sept. 1989: - Fixed botch in argument passing of substrings of equivalenced -variables. - -15 Sept. 1989: - Warn about incorrect code generated when a character-valued -function is not declared external and is passed as a parameter -(in violation of the Fortran 77 standard) before it is invoked. -Example: - - subroutine foo(a,b) - character*10 a,b - call goo(a,b) - b = a(3) - end - -18 Sept. 1989: - Complain about overlapping initializations. - -20 Sept. 1989: - Warn about names declared EXTERNAL but never referenced; -include such names as externs in the generated C (even -though most C compilers will discard them). - -24 Sept. 1989: - New option -w8 to suppress complaint when COMMON or EQUIVALENCE -forces word alignment of a double. - Under -A (for ANSI C), ensure that floating constants (terminated -by 'f') contain either a decimal point or an exponent field. - Repair bugs sometimes encountered with CHAR and ICHAR intrinsic -functions. - Restore f77's optimizations for copying and comparing character -strings of length 1. - Always assume floating-point valued routines in libF77 return -doubles, even under -R. - Repair occasional omission of arguments in routines having multiple -entry points. - Repair bugs in computing offsets of character strings involved -in EQUIVALENCE. - Don't omit structure qualification when COMMON variables are used -as FORMATs or internal files. - -2 Oct. 1989: - Warn about variables that appear only in data stmts; don't emit them. - Fix bugs in character DATA for noncharacter variables -involved in EQUIVALENCE. - Treat noncharacter variables initialized (at least partly) with -character data as though they were equivalenced -- put out a struct -and #define the variables. This eliminates the hideous and nonportable -numeric values that were used to initialize such variables. - Treat IMPLICIT NONE as IMPLICIT UNDEFINED(A-Z) . - Quit when given invalid options. - -8 Oct. 1989: - Modified naming scheme for generated intermediate variables; -more are recycled, fewer distinct ones used. - New option -W nn specifies nn characters/word for Hollerith -data initializing non-character variables. - Bug fix: x(i:min(i+10,j)) used to elicit "Can't handle opcode 31 yet". - Integer expressions of the form (i+const1) - (i+const2), where -i is a scalar integer variable, are now simplified to (const1-const2); -this leads to simpler translation of some substring expressions. - Initialize uninitialized portions of character string arrays to 0 -rather than to blanks. - -9 Oct. 1989: - New option -c to insert comments showing original Fortran source. - New option -g to insert line numbers of original Fortran source. - -10 Oct. 1989: - ! recognized as in-line comment delimiter (a la Fortran 88). - -24 Oct. 1989: - New options to ease coping with systems that want the structs -that result from COMMON blocks to be defined just once: - -E causes uninitialized COMMON blocks to be declared Extern; -if Extern is undefined, f2c.h #defines it to be extern. - -ec causes a separate .c file to be emitted for each -uninitialized COMMON block: COMMON /ABC/ yields abc_com.c; -thus one can compile *_com.c into a library to ensure -precisely one definition. - -e1c is similar to -ec, except that everything goes into -one file, along with comments that give a sed script for -splitting the file into the pieces that -ec would give. -This is for use with netlib's "execute f2c" service (for which --ec is coerced into -e1c, and the sed script will put everything -but the COMMON definitions into f2c_out.c ). - -28 Oct. 1989: - Convert "i = i op ..." into "i op= ...;" even when i is a -dummy argument. - -13 Nov. 1989: - Name integer constants (passed as arguments) c__... rather -than c_... so - common /c/stuff - call foo(1) - ... -is translated correctly. - -19 Nov. 1989: - Floating-point constants are now kept as strings unless they -are involved in constant expressions that get simplified. The -floating-point constants kept as strings can have arbitrarily -many significant figures and a very large exponent field (as -large as long int allows on the machine on which f2c runs). -Thus, for example, the body of - - subroutine zot(x) - double precision x(6), pi - parameter (pi=3.1415926535897932384626433832795028841972) - x(1) = pi - x(2) = pi+1 - x(3) = 9287349823749272.7429874923740978492734D-298374 - x(4) = .89 - x(5) = 4.0005 - x(6) = 10D7 - end - -now gets translated into - - x[1] = 3.1415926535897932384626433832795028841972; - x[2] = 4.1415926535897931; - x[3] = 9.2873498237492727429874923740978492734e-298359; - x[4] = (float).89; - x[5] = (float)4.0005; - x[6] = 1e8; - -rather than the former - - x[1] = 3.1415926535897931; - x[2] = 4.1415926535897931; - x[3] = 0.; - x[4] = (float)0.89000000000000003; - x[5] = (float)4.0004999999999997; - x[6] = 100000000.; - - Recognition of f77 machine-constant intrinsics deleted, i.e., -epbase, epprec, epemin, epemax, eptiny, ephuge, epmrsp. - -22 Nov. 1989: - Workarounds for glitches on some Sun systems... - libf77: libF77/makefile modified to point out possible need -to compile libF77/main.c with -Donexit=on_exit . - libi77: libI77/wref.c (and libI77/README) modified so non-ANSI -systems can compile with USE_STRLEN defined, which will cause - sprintf(b = buf, "%#.*f", d, x); - n = strlen(b) + d1; -rather than - n = sprintf(b = buf, "%#.*f", d, x) + d1; -to be compiled. - -26 Nov. 1989: - Longer names are now accepted (up to 50 characters); names may -contain underscores (in which case they will have two underscores -appended, to avoid clashes with library names). - -28 Nov. 1989: - libi77 updated: - 1. Allow 3 (or, on Crays, 4) digit exponents under format Ew.d . - 2. Try to get things right on machines where ints have 16 bits. - -29 Nov. 1989: - Supplied missing semicolon in parameterless subroutines that -have multiple entry points (all of them parameterless). - -30 Nov. 1989: - libf77 and libi77 revised to use types from f2c.h. - f2c now types floating-point valued C library routines as "double" -rather than "doublereal" (for use with nonstandard C compilers for -which "double" is IEEE double extended). - -1 Dec. 1989: - f2c.h updated to eliminate #defines rendered unnecessary (and, -indeed, dangerous) by change of 26 Nov. to long names possibly -containing underscores. - libi77 further revised: yesterday's change omitted two tweaks to fmt.h -(tweaks which only matter if float and real or double and doublereal are -different types). - -2 Dec. 1989: - Better error message (than "bad tag") for NAMELIST, which no longer -inhibits C output. - -4 Dec. 1989: - Allow capital letters in hex constants (f77 extension; e.g., -x'a012BCd', X'A012BCD' and x'a012bcd' are all treated as the integer -167848909). - libi77 further revised: lio.c lio.h lread.c wref.c wrtfmt.c tweaked -again to allow float and real or double and doublereal to be different. - -6 Dec. 1989: - Revised f2c.h -- required for the following... - Simpler looking translations for abs, min, max, using #defines in -revised f2c.h . - libi77: more corrections to types; additions for NAMELIST. - Corrected casts in some I/O calls. - Translation of NAMELIST; libi77 must still be revised. Currently -libi77 gives you a run-time error message if you attempt NAMELIST I/O. - -7 Dec. 1989: - Fixed bug that prevented local integer variables that appear in DATA -stmts from being ASSIGNed statement labels. - Fillers (for DATA statements initializing EQUIVALENCEd variables and -variables in COMMON) typed integer rather than doublereal (for slightly -more portability, e.g. to Crays). - libi77: missing return values supplied in a few places; some tests -reordered for better working on the Cray. - libf77: better accuracy for complex divide, complex square root, -real mod function (casts to double; double temporaries). - -9 Dec. 1989: - Fixed bug that caused needless (albeit harmless) empty lines to be -inserted in the C output when a comment line contained trailing blanks. - Further tweak to type of fillers: allow doublereal fillers if the -struct has doublereal data. - -11 Dec. 1989: - Alteration of rule for producing external (C) names from names that -contain underscores. Now the external name is always obtained by -appending a pair of underscores. - -12 Dec. 1989: - C production inhibited after most errors. - -15 Dec. 1989: - Fixed bug in headers for subroutines having two or more character -strings arguments: the length arguments were reversed. - -19 Dec. 1989: - f2c.h libf77 libi77: adjusted so #undefs in f2c.h should not foil -compilation of libF77 and libI77. - libf77: getenv_ adjusted to work with unsorted environments. - libi77: the iostat= specifier should now work right with internal I/O. - -20 Dec. 1989: - f2c bugs fixed: In the absence of an err= specifier, the iostat= -specifier was generally set wrong. Character strings containing -explicit nulls (\0) were truncated at the first null. - Unlabeled DO loops recognized; must be terminated by ENDDO. -(Don't ask for CYCLE, EXIT, named DO loops, or DO WHILE.) - -29 Dec. 1989: - Nested unlabeled DO loops now handled properly; new warning for -extraneous text at end of FORMAT. - -30 Dec. 1989: - Fixed bug in translating dble(real(...)), dble(sngl(...)), and -dble(float(...)), where ... is either of type double complex or -is an expression requiring assignment to intermediate variables (e.g., -dble(real(foo(x+1))), where foo is a function and x is a variable). -Regard nonblank label fields on continuation lines as an error. - -3 Jan. 1990: - New option -C++ yields output that should be understood -by C++ compilers. - -6 Jan. 1989: - -a now excludes variables that appear in a namelist from those -that it makes automatic. (As before, it also excludes variables -that appear in a common, data, equivalence, or save statement.) - The syntactically correct Fortran - read(*,i) x - end -now yields syntactically correct C (even though both the Fortran -and C are buggy -- no FORMAT has not been ASSIGNed to i). - -7 Jan. 1990: - libi77: routines supporting NAMELIST added. Surrounding quotes -made optional when no ambiguity arises in a list or namelist READ -of a character-string value. - -9 Jan. 1990: - f2c.src made available. - -16 Jan. 1990: - New options -P to produce ANSI C or C++ prototypes for procedures -defined. Change to -A and -C++: f2c tries to infer prototypes for -invoked procedures unless the new -!P option is given. New warning -messages for inconsistent calling sequences among procedures within -a single file. Most of f2c/src is affected. - f2c.h: typedefs for procedure arguments added; netlib's f2c service -will insert appropriate typedefs for use with older versions of f2c.h. - -17 Jan. 1990: - f2c/src: defs.h exec.c format.c proc.c putpcc.c version.c xsum0.out -updated. Castargs and protofile made extern in defs.h; exec.c -modified so superfluous else clauses are diagnosed; unused variables -omitted from declarations in format.c proc.c putpcc.c . - -21 Jan. 1990: - No C emitted for procedures declared external but not referenced. - f2c.h: more new types added for use with -P. - New feature: f2c accepts as arguments files ending in .p or .P; -such files are assumed to be prototype files, such as produced by -the -P option. All prototype files are read before any Fortran files -and apply globally to all Fortran files. Suitable prototypes help f2c -warn about calling-sequence errors and can tell f2c how to type -procedures declared external but not explicitly typed; the latter is -mainly of interest for users of the -A and -C++ options. (Prototype -arguments are not available to netlib's "execute f2c" service.) - New option -it tells f2c to try to infer types of untyped external -arguments from their use as parameters to prototyped or previously -defined procedures. - f2c/src: many minor cleanups; most modules changed. Individual -files in f2c/src are now in "bundle" format. The former f2c.1 is -now f2c.1t; "f2c.1t from f2c" and "f2c.1t from f2c/src" are now the -same, as are "f2c.1 from f2c" and "f2c.1 from f2c/src". People who -do not obtain a new copy of "all from f2c/src" should at least add - fclose(sortfp); -after the call on do_init_data(outfile, sortfp) in format_data.c . - -22 Jan. 1990: - Cleaner man page wording (thanks to Doug McIlroy). - -it now also applies to all untyped EXTERNAL procedures, not just -arguments. - -23 Jan. 01:34:00 EST 1990: - Bug fixes: under -A and -C++, incorrect C was generated for -subroutines having multiple entries but no arguments. - Under -A -P, subroutines of no arguments were given prototype -calling sequence () rather than (void). - Character-valued functions elicited erroneous warning messages -about inconsistent calling sequences when referenced by another -procedure in the same file. - f2c.1t: omit first appearance of libF77.a in FILES section; -load order of libraries is -lF77 -lI77, not vice versa (bug -introduced in yesterday's edits); define .F macro for those whose --man lacks it. (For a while after yesterday's fixes were posted, -f2c.1t was out of date. Sorry!) - -23 Jan. 9:53:24 EST 1990: - Character substring expressions involving function calls having -character arguments (including the intrinsic len function) yielded -incorrect C. - Procedures defined after invocation (in the same file) with -conflicting argument types also got an erroneous message about -the wrong number of arguments. - -24 Jan. 11:44:00 EST 1990: - Bug fixes: -p omitted #undefs; COMMON block names containing -underscores had their C names incorrectly computed; a COMMON block -having the name of a previously defined procedure wreaked havoc; -if all arguments were .P files, f2c tried reading the second as a -Fortran file. - New feature: -P emits comments showing COMMON block lengths, so one -can get warnings of incompatible COMMON block lengths by having f2c -read .P (or .p) files. Now by running f2c twice, first with -P -!c -(or -P!c), then with *.P among the arguments, you can be warned of -inconsistent COMMON usage, and COMMON blocks having inconsistent -lengths will be given the maximum length. (The latter always did -happen within each input file; now -P lets you extend this behavior -across files.) - -26 Jan. 16:44:00 EST 1990: - Option -it made less aggressive: untyped external procedures that -are invoked are now typed by the rules of Fortran, rather than by -previous use of procedures to which they are passed as arguments -before being invoked. - Option -P now includes information about references, i.e., called -procedures, in the prototype files (in the form of special comments). -This allows iterative invocations of f2c to infer more about untyped -external names, particularly when multiple Fortran files are involved. - As usual, there are some obscure bug fixes: -1. Repair of erroneous warning messages about inconsistent number of -arguments that arose when a character dummy parameter was discovered -to be a function or when multiple entry points involved character -variables appearing in a previous entry point. -2. Repair of memory fault after error msg about "adjustable character -function". -3. Under -U, allow MAIN_ as a subroutine name (in the same file as a -main program). -4. Change for consistency: a known function invoked as a subroutine, -then as a function elicits a warning rather than an error. - -26 Jan. 22:32:00 EST 1990: - Fixed two bugs that resulted in incorrect C for substrings, within -the body of a character-valued function, of the function's name, when -those substrings were arguments to another function (even implicitly, -as in character-string assignment). - -28 Jan. 18:32:00 EST 1990: - libf77, libi77: checksum files added; "make check" looks for -transmission errors. NAMELIST read modified to allow $ rather than & -to precede a namelist name, to allow $ rather than / to terminate -input where the name of another variable would otherwise be expected, -and to regard all nonprinting ASCII characters <= ' ' as spaces. - -29 Jan. 02:11:00 EST 1990: - "fc from f2c" added. - -it option made the default; -!it turns it off. Type information is -now updated in a previously missed case. - -P option tweaked again; message about when rerunning f2c may change -prototypes or declarations made more accurate. - New option -Ps implies -P and returns exit status 4 if rerunning -f2c -P with prototype inputs might change prototypes or declarations. -Now you can execute a crude script like - - cat *.f >zap.F - rm -f zap.P - while :; do - f2c -Ps -!c zap.[FP] - case $? in 4) ;; *) break;; esac - done - -to get a file zap.P of the best prototypes f2c can determine for *.f . - -Jan. 29 07:30:21 EST 1990: - Forgot to check for error status when setting return code 4 under -Ps; -error status (1, 2, 3, or, for caught signal, 126) now takes precedence. - -Jan 29 14:17:00 EST 1990: - Incorrect handling of - open(n,'filename') -repaired -- now treated as - open(n,file='filename') -(and, under -ext, given an error message). - New optional source file memset.c for people whose systems don't -provide memset, memcmp, and memcpy; #include <string.h> in mem.c -changed to #include "string.h" so BSD people can create a local -string.h that simply says #include <strings.h> . - -Jan 30 10:34:00 EST 1990: - Fix erroneous warning at end of definition of a procedure with -character arguments when the procedure had previously been called with -a numeric argument instead of a character argument. (There were two -warnings, the second one incorrectly complaining of a wrong number of -arguments.) - -Jan 30 16:29:41 EST 1990: - Fix case where -P and -Ps erroneously reported another iteration -necessary. (Only harm is the extra iteration.) - -Feb 3 01:40:00 EST 1990: - Supply semicolon occasionally omitted under -c . - Try to force correct alignment when numeric variables are initialized -with character data (a non-standard and non-portable practice). You -must use the -W option if your code has such data statements and is -meant to run on a machine with other than 4 characters/word; e.g., for -code meant to run on a Cray, you would specify -W8 . - Allow parentheses around expressions in output lists (in write and -print statements). - Rename source files so their names are <= 12 characters long -(so there's room to append .Z and still have <= 14 characters); -renamed files: formatdata.c niceprintf.c niceprintf.h safstrncpy.c . - f2c material made available by anonymous ftp from research.att.com -(look in dist/f2c ). - -Feb 3 03:49:00 EST 1990: - Repair memory fault that arose from use (in an assignment or -call) of a non-argument variable declared CHARACTER*(*). - -Feb 9 01:35:43 EST 1990: - Fix erroneous error msg about bad types in - subroutine foo(a,adim) - dimension a(adim) - integer adim - Fix improper passing of character args (and possible memory fault) -in the expression part of a computed goto. - Fix botched calling sequences in array references involving -functions having character args. - Fix memory fault caused by invocation of character-valued functions -of no arguments. - Fix botched calling sequence of a character*1-valued function -assigned to a character*1 variable. - Fix bug in error msg for inconsistent number of args in prototypes. - Allow generation of C output despite inconsistencies in prototypes, -but give exit code 8. - Simplify include logic (by removing some bogus logic); never -prepend "/usr/include/" to file names. - Minor cleanups (that should produce no visible change in f2c's -behavior) in intr.c parse.h main.c defs.h formatdata.c p1output.c . - -Feb 10 00:19:38 EST 1990: - Insert (integer) casts when floating-point expressions are used -as subscripts. - Make SAVE stmt (with no variable list) override -a . - Minor cleanups: change field to Field in struct Addrblock (for the -benefit of buggy C compilers); omit system("/bin/cp ...") in misc.c . - -Feb 13 00:39:00 EST 1990: - Error msg fix in gram.dcl: change "cannot make %s parameter" -to "cannot make into parameter". - -Feb 14 14:02:00 EST 1990: - Various cleanups (invisible on systems with 4-byte ints), thanks -to Dave Regan: vaxx.c eliminated; %d changed to %ld various places; -external names adjusted for the benefit of stupid systems (that ignore -case and recognize only 6 significant characters in external names); -buffer shortened in xsum.c (e.g. for MS-DOS); fopen modes distinguish -text and binary files; several unused functions eliminated; missing -arg supplied to an unlikely fatalstr invocation. - -Thu Feb 15 19:15:53 EST 1990: - More cleanups (invisible on systems with 4 byte ints); casts inserted -so most complaints from cyntax(1) and lint(1) go away; a few (int) -versus (long) casts corrected. - -Fri Feb 16 19:55:00 EST 1990: - Recognize and translate unnamed Fortran 8x do while statements. - Fix bug that occasionally caused improper breaking of character -strings. - New error message for attempts to provide DATA in a type-declaration -statement. - -Sat Feb 17 11:43:00 EST 1990: - Fix infinite loop clf -> Fatal -> done -> clf after I/O error. - Change "if (addrp->vclass = CLPROC)" to "if (addrp->vclass == CLPROC)" -in p1_addr (in p1output.c); this was probably harmless. - Move a misplaced } in lex.c (which slowed initkey()). - Thanks to Gary Word for pointing these things out. - -Sun Feb 18 18:07:00 EST 1990: - Detect overlapping initializations of arrays and scalar variables -in previously missed cases. - Treat logical*2 as logical (after issuing a warning). - Don't pass string literals to p1_comment(). - Correct a cast (introduced 16 Feb.) in gram.expr; this matters e.g. -on a Cray. - Attempt to isolate UNIX-specific things in sysdep.c (a new source -file). Unless sysdep.c is compiled with SYSTEM_SORT defined, the -intermediate files created for DATA statements are now sorted in-core -without invoking system(). - -Tue Feb 20 16:10:35 EST 1990: - Move definition of binread and binwrite from init.c to sysdep.c . - Recognize Fortran 8x tokens < <= == >= > <> as synonyms for -.LT. .LE. .EQ. .GE. .GT. .NE. - Minor cleanup in putpcc.c: fully remove simoffset(). - More discussion of system dependencies added to libI77/README. - -Tue Feb 20 21:44:07 EST 1990: - Minor cleanups for the benefit of EBCDIC machines -- try to remove -the assumption that 'a' through 'z' are contiguous. (Thanks again to -Gary Word.) Also, change log2 to log_2 (shouldn't be necessary). - -Wed Feb 21 06:24:56 EST 1990: - Fix botch in init.c introduced in previous change; only matters -to non-ASCII machines. - -Thu Feb 22 17:29:12 EST 1990: - Allow several entry points to mention the same array. Protect -parameter adjustments with if's (for the case that an array is not -an argument to all entrypoints). - Under -u, allow - subroutine foo(x,n) - real x(n) - integer n - Compute intermediate variables used to evaluate dimension expressions -at the right time. Example previously mistranslated: - subroutine foo(x,k,m,n) - real x(min(k,m,n)) - ... - write(*,*) x - Detect duplicate arguments. (The error msg points to the first -executable stmt -- not wonderful, but not worth fixing.) - Minor cleanup of min/max computation (sometimes slightly simpler). - -Sun Feb 25 09:39:01 EST 1990: - Minor tweak to multiple entry points: protect parameter adjustments -with if's only for (array) args that do not appear in all entry points. - Minor tweaks to format.c and io.c (invisible unless your compiler -complained at the duplicate #defines of IOSUNIT and IOSFMT or at -comparisons of p1gets(...) with NULL). - -Sun Feb 25 18:40:10 EST 1990: - Fix bug introduced Feb. 22: if a subprogram contained DATA and the -first executable statement was labeled, then the label got lost. -(Just change INEXEC to INDATA in p1output.c; it occurs just once.) - -Mon Feb 26 17:45:10 EST 1990: - Fix bug in handling of " and ' in comments. - -Wed Mar 28 01:43:06 EST 1990: -libI77: - 1. Repair nasty I/O bug: opening two files and closing the first -(after possibly reading or writing it), then writing the second caused -the last buffer of the second to be lost. - 2. Formatted reads of logical values treated all letters other than -t or T as f (false). - libI77 files changed: err.c rdfmt.c Version.c - (Request "libi77 from f2c" -- you can't get these files individually.) - -f2c itself: - Repair nasty bug in translation of - ELSE IF (condition involving complicated abs, min, or max) --- auxiliary statements were emitted at the wrong place. - Supply semicolon previously omitted from the translation of a label -(of a CONTINUE) immediately preceding an ELSE IF or an ELSE. This -bug made f2c produce invalid C. - Correct a memory fault that occurred (on some machines) when the -error message "adjustable dimension on non-argument" should be given. - Minor tweaks to remove some harmless warnings by overly chatty C -compilers. - Argument arays having constant dimensions but a variable lower bound -(e.g., x(n+1:n+3)) had a * omitted from scalar arguments involved in -the array offset computation. - -Wed Mar 28 18:47:59 EST 1990: -libf77: add exit(0) to end of main [return(0) encounters a Cray bug] - -Sun Apr 1 16:20:58 EDT 1990: - Avoid dereferencing null when processing equivalences after an error. - -Fri Apr 6 08:29:49 EDT 1990: - Calls involving alternate return specifiers omitted processing -needed for things like min, max, abs, and // (concatenation). - INTEGER*2 PARAMETERs were treated as INTEGER*4. - Convert some O(n^2) parsing to O(n). - -Tue Apr 10 20:07:02 EDT 1990: - When inconsistent calling sequences involve differing numbers of -arguments, report the first differing argument rather than the numbers -of arguments. - Fix bug under -a: formatted I/O in which either the unit or the -format was a local character variable sometimes resulted in invalid C -(a static struct initialized with an automatic component). - Improve error message for invalid flag after elided -. - Complain when literal table overflows, rather than infinitely -looping. (The complaint mentions the new and otherwise undocumented --NL option for specifying a larger literal table.) - New option -h for forcing strings to word (or, with -hd, double-word) -boundaries where possible. - Repair a bug that could cause improper splitting of strings. - Fix bug (cast of c to doublereal) in - subroutine foo(c,r) - double complex c - double precision r - c = cmplx(r,real(c)) - end - New include file "sysdep.h" has some things from defs.h (and -elsewhere) that one may need to modify on some systems. - Some large arrays that were previously statically allocated are now -dynamically allocated when f2c starts running. - f2c/src files changed: - README cds.c defs.h f2c.1 f2c.1t format.c formatdata.c init.c - io.c lex.c main.c makefile mem.c misc.c names.c niceprintf.c - output.c parse_args.c pread.c put.c putpcc.c sysdep.h - version.c xsum0.out - -Wed Apr 11 18:27:12 EDT 1990: - Fix bug in argument consistency checking of character, complex, and -double complex valued functions. If the same source file contained a -definition of such a function with arguments not explicitly typed, -then subsequent references to the function might get erroneous -warnings of inconsistent calling sequences. - Tweaks to sysdep.h for partially ANSI systems. - New options -kr and -krd cause f2c to use temporary variables to -enforce Fortran evaluation-order rules with pernicious, old-style C -compilers that apply the associative law to floating-point operations. - -Sat Apr 14 15:50:15 EDT 1990: - libi77: libI77 adjusted to allow list-directed and namelist I/O -of internal files; bug in namelist I/O of logical and character arrays -fixed; list input of complex numbers adjusted to permit d or D to -denote the start of the exponent field of a component. - f2c itself: fix bug in handling complicated lower-bound -expressions for character substrings; e.g., min and max did not work -right, nor did function invocations involving character arguments. - Switch to octal notation, rather than hexadecimal, for nonprinting -characters in character and string constants. - Fix bug (when neither -A nor -C++ was specified) in typing of -external arguments of type complex, double complex, or character: - subroutine foo(c) - external c - complex c -now results in - /* Complex */ int (*c) (); -(as, indeed, it once did) rather than - complex (*c) (); - -Sat Apr 14 22:50:39 EDT 1990: - libI77/makefile: updated "make check" to omit lio.c - lib[FI]77/makefile: trivial change: define CC = cc, reference $(CC). - (Request, e.g., "libi77 from f2c" -- you can't ask for individual -files from lib[FI]77.) - -Wed Apr 18 00:56:37 EDT 1990: - Move declaration of atof() from defs.h to sysdep.h, where it is -now not declared if stdlib.h is included. (NeXT's stdlib.h has a -#define atof that otherwise wreaks havoc.) - Under -u, provide a more intelligible error message (than "bad tag") -for an attempt to define a function without specifying its type. - -Wed Apr 18 17:26:27 EDT 1990: - Recognize \v (vertical tab) in Hollerith as well as quoted strings; -add recognition of \r (carriage return). - New option -!bs turns off recognition of escapes in character strings -(\0, \\, \b, \f, \n, \r, \t, \v). - Move to sysdep.c initialization of some arrays whose initialization -assumed ASCII; #define Table_size in sysdep.h rather than using -hard-coded 256 in allocating arrays of size 1 << (bits/byte). - -Thu Apr 19 08:13:21 EDT 1990: - Warn when escapes would make Hollerith extend beyond statement end. - Omit max() definition from misc.c (should be invisible except on -systems that erroneously #define max in stdlib.h). - -Mon Apr 23 22:24:51 EDT 1990: - When producing default-style C (no -A or -C++), cast switch -expressions to (int). - Move "-lF77 -lI77 -lm -lc" to link_msg, defined in sysdep.c . - Add #define scrub(x) to sysdep.h, with invocations in format.c and -formatdata.c, so that people who have systems like VMS that would -otherwise create multiple versions of intermediate files can -#define scrub(x) unlink(x) - -Tue Apr 24 18:28:36 EDT 1990: - Pass string lengths once rather than twice to a function of character -arguments involved in comparison of character strings of length 1. - -Fri Apr 27 13:11:52 EDT 1990: - Fix bug that made f2c gag on concatenations involving char(...) on -some systems. - -Sat Apr 28 23:20:16 EDT 1990: - Fix control-stack bug in - if(...) then - else if (complicated condition) - else - endif -(where the complicated condition causes assignment to an auxiliary -variable, e.g., max(a*b,c)). - -Mon Apr 30 13:30:10 EDT 1990: - Change fillers for DATA with holes from substructures to arrays -(in an attempt to make things work right with C compilers that have -funny padding rules for substructures, e.g., Sun C compilers). - Minor cleanup of exec.c (should not affect generated C). - -Mon Apr 30 23:13:51 EDT 1990: - Fix bug in handling return values of functions having multiple -entry points of differing return types. - -Sat May 5 01:45:18 EDT 1990: - Fix type inference bug in - subroutine foo(x) - call goo(x) - end - subroutine goo(i) - i = 3 - end -Instead of warning of inconsistent calling sequences for goo, -f2c was simply making i a real variable; now i is correctly -typed as an integer variable, and f2c issues an error message. - Adjust error messages issued at end of declarations so they -don't blame the first executable statement. - -Sun May 6 01:29:07 EDT 1990: - Fix bug in -P and -Ps: warn when the definition of a subprogram adds -information that would change prototypes or previous declarations. - -Thu May 10 18:09:15 EDT 1990: - Fix further obscure bug with (default) -it: inconsistent calling -sequences and I/O statements could interact to cause a memory fault. -Example: - SUBROUTINE FOO - CALL GOO(' Something') ! Forgot integer first arg - END - SUBROUTINE GOO(IUNIT,MSG) - CHARACTER*(*)MSG - WRITE(IUNIT,'(1X,A)') MSG - END - -Fri May 11 16:49:11 EDT 1990: - Under -!c, do not delete any .c files (when there are errors). - Avoid dereferencing 0 when a fatal error occurs while reading -Fortran on stdin. - -Wed May 16 18:24:42 EDT 1990: - f2c.ps made available. - -Mon Jun 4 12:53:08 EDT 1990: - Diagnose I/O units of invalid type. - Add specific error msg about dummy arguments in common. - -Wed Jun 13 12:43:17 EDT 1990: - Under -A, supply a missing "[1]" for CHARACTER*1 variables that appear -both in a DATA statement and in either COMMON or EQUIVALENCE. - -Mon Jun 18 16:58:31 EDT 1990: - Trivial updates to f2c.ps . ("Fortran 8x" --> "Fortran 90"; omit -"(draft)" from "(draft) ANSI C".) - -Tue Jun 19 07:36:32 EDT 1990: - Fix incorrect code generated for ELSE IF(expression involving -function call passing non-constant substring). - Under -h, preserve the property that strings are null-terminated -where possible. - Remove spaces between # and define in lex.c output.c parse.h . - -Mon Jun 25 07:22:59 EDT 1990: - Minor tweak to makefile to reduce unnecessary recompilations. - -Tue Jun 26 11:49:53 EDT 1990: - Fix unintended truncation of some integer constants on machines -where casting a long to (int) may change the value. E.g., when f2c -ran on machines with 16-bit ints, "i = 99999" was being translated -to "i = -31073;". - -Wed Jun 27 11:05:32 EDT 1990: - Arrange for CHARACTER-valued PARAMETERs to honor their length -specifications. Allow CHAR(nn) in expressions defining such PARAMETERs. - -Fri Jul 20 09:17:30 EDT 1990: - Avoid dereferencing 0 when a FORMAT statement has no label. - -Thu Jul 26 11:09:39 EDT 1990: - Remarks about VOID and binread,binwrite added to README. - Tweaks to parse_args: should be invisible unless your compiler -complained at (short)*store. - -Thu Aug 2 02:07:58 EDT 1990: - f2c.ps: change the first line of page 5 from - include stuff -to - include 'stuff' - -Tue Aug 14 13:21:24 EDT 1990: - libi77: libI77 adjusted to treat tabs as spaces in list input. - -Fri Aug 17 07:24:53 EDT 1990: - libi77: libI77 adjusted so a blank='ZERO' clause (upper case Z) -in an open of a currently open file works right. - -Tue Aug 28 01:56:44 EDT 1990: - Fix bug in warnings of inconsistent calling sequences: if an -argument to a subprogram was never referenced, then a previous -invocation of the subprogram (in the same source file) that -passed something of the wrong type for that argument did not -elicit a warning message. - -Thu Aug 30 09:46:12 EDT 1990: - libi77: prevent embedded blanks in list output of complex values; -omit exponent field in list output of values of magnitude between -10 and 1e8; prevent writing stdin and reading stdout or stderr; -don't close stdin, stdout, or stderr when reopening units 5, 6, 0. - -Tue Sep 4 12:30:57 EDT 1990: - Fix bug in C emitted under -I2 or -i2 for INTEGER*4 FUNCTION. - Warn of missing final END even if there are previous errors. - -Fri Sep 7 13:55:34 EDT 1990: - Remark about "make xsum.out" and "make f2c" added to README. - -Tue Sep 18 23:50:01 EDT 1990: - Fix null dereference (and, on some systems, writing of bogus *_com.c -files) under -ec or -e1c when a prototype file (*.p or *.P) describes -COMMON blocks that do not appear in the Fortran source. - libi77: - Add some #ifdef lines (#ifdef MSDOS, #ifndef MSDOS) to avoid -references to stat and fstat on non-UNIX systems. - On UNIX systems, add component udev to unit; decide that old -and new files are the same iff both the uinode and udev components -of unit agree. - When an open stmt specifies STATUS='OLD', use stat rather than -access (on UNIX systems) to check the existence of the file (in case -directories leading to the file have funny permissions and this is -a setuid or setgid program). - -Thu Sep 27 16:04:09 EDT 1990: - Supply missing entry for Impldoblock in blksize array of cpexpr -(in expr.c). No examples are known where this omission caused trouble. - -Tue Oct 2 22:58:09 EDT 1990: - libf77: test signal(...) == SIG_IGN rather than & 01 in main(). - libi77: adjust rewind.c so two successive rewinds after a write -don't clobber the file. - -Thu Oct 11 18:00:14 EDT 1990: - libi77: minor cleanups: add #include "fcntl.h" to endfile.c, err.c, -open.c; adjust g_char in util.c for segmented memories; in f_inqu -(inquire.c), define x appropriately when MSDOS is defined. - -Mon Oct 15 20:02:11 EDT 1990: - Add #ifdef MSDOS pointer adjustments to mem.c; treat NAME= as a -synonym for FILE= in OPEN statements. - -Wed Oct 17 16:40:37 EDT 1990: - libf77, libi77: minor cleanups: _cleanup() and abort() invocations -replaced by invocations of sig_die in main.c; some error messages -previously lost in buffers will now appear. - -Mon Oct 22 16:11:27 EDT 1990: - libf77: separate sig_die from main (for folks who don't want to use -the main in libF77). - libi77: minor tweak to comments in README. - -Fri Nov 2 13:49:35 EST 1990: - Use two underscores rather than one in generated temporary variable -names to avoid conflict with COMMON names. f2c.ps updated to reflect -this change and the NAME= extension introduced 15 Oct. - Repair a rare memory fault in io.c . - -Mon Nov 5 16:43:55 EST 1990: - libi77: changes to open.c (and err.c): complain if an open stmt -specifies new= and the file already exists (as specified by Fortrans 77 -and 90); allow file= to be omitted in open stmts and allow -status='replace' (Fortran 90 extensions). - -Fri Nov 30 10:10:14 EST 1990: - Adjust malloc.c for unusual systems whose sbrk() can return values -not properly aligned for doubles. - Arrange for slightly more helpful and less repetitive warnings for -non-character variables initialized with character data; these warnings -are (still) suppressed by -w66. - -Fri Nov 30 15:57:59 EST 1990: - Minor tweak to README (about changing VOID in f2c.h). - -Mon Dec 3 07:36:20 EST 1990: - Fix spelling of "character" in f2c.1t. - -Tue Dec 4 09:48:56 EST 1990: - Remark about link_msg and libf2c added to f2c/README. - -Thu Dec 6 08:33:24 EST 1990: - Under -U, render label nnn as L_nnn rather than Lnnn. - -Fri Dec 7 18:05:00 EST 1990: - Add more names from f2c.h (e.g. integer, real) to the c_keywords -list of names to which an underscore is appended to avoid confusion. - -Mon Dec 10 19:11:15 EST 1990: - Minor tweaks to makefile (./xsum) and README (binread/binwrite). - libi77: a few modifications for POSIX systems; meant to be invisible -elsewhere. - -Sun Dec 16 23:03:16 EST 1990: - Fix null dereference caused by unusual erroneous input, e.g. - call foo('abc') - end - subroutine foo(msg) - data n/3/ - character*(*) msg - end -(Subroutine foo is illegal because the character statement comes after a -data statement.) - Use decimal rather than hex constants in xsum.c (to prevent -erroneous warning messages about constant overflow). - -Mon Dec 17 12:26:40 EST 1990: - Fix rare extra underscore in character length parameters passed -for multiple entry points. - -Wed Dec 19 17:19:26 EST 1990: - Allow generation of C despite error messages about bad alignment -forced by equivalence. - Allow variable-length concatenations in I/O statements, such as - open(3, file=bletch(1:n) // '.xyz') - -Fri Dec 28 17:08:30 EST 1990: - Fix bug under -p with formats and internal I/O "units" in COMMON, -as in - COMMON /FIGLEA/F - CHARACTER*20 F - F = '(A)' - WRITE (*,FMT=F) 'Hello, world!' - END - -Tue Jan 15 12:00:24 EST 1991: - Fix bug when two equivalence groups are merged, the second with -nonzero offset, and the result is then merged into a common block. -Example: - INTEGER W(3), X(3), Y(3), Z(3) - COMMON /ZOT/ Z - EQUIVALENCE (W(1),X(1)), (X(2),Y(1)), (Z(3),X(1)) -***** W WAS GIVEN THE WRONG OFFSET - Recognize Fortran 90's optional NML= in NAMELIST READs and WRITEs. -(Currently NML= and FMT= are treated as synonyms -- there's no -error message if, e.g., NML= specifies a format.) - libi77: minor adjustment to allow internal READs from character -string constants in read-only memory. - -Fri Jan 18 22:56:15 EST 1991: - Add comment to README about needing to comment out the typedef of -size_t in sysdep.h on some systems, e.g. Sun 4.1. - Fix misspelling of "statement" in an error message in lex.c - -Wed Jan 23 00:38:48 EST 1991: - Allow hex, octal, and binary constants to have the qualifying letter -(z, x, o, or b) either before or after the quoted string containing the -digits. For now this change will not be reflected in f2c.ps . - -Tue Jan 29 16:23:45 EST 1991: - Arrange for character-valued statement functions to give results of -the right length (that of the statement function's name). - -Wed Jan 30 07:05:32 EST 1991: - More tweaks for character-valued statement functions: an error -check and an adjustment so a right-hand side of nonconstant length -(e.g., a substring) is handled right. - -Wed Jan 30 09:49:36 EST 1991: - Fix p1_head to avoid printing (char *)0 with %s. - -Thu Jan 31 13:53:44 EST 1991: - Add a test after the cleanup call generated for I/O statements with -ERR= or END= clauses to catch the unlikely event that the cleanup -routine encounters an error. - -Mon Feb 4 08:00:58 EST 1991: - Minor cleanup: omit unneeded jumps and labels from code generated for -some NAMELIST READs and WRITEs with IOSTAT=, ERR=, and/or END=. - -Tue Feb 5 01:39:36 EST 1991: - Change Mktemp to mktmp (for the benefit of systems so brain-damaged -that they do not distinguish case in external names -- and that for -some reason want to load mktemp). Try to get xsum0.out right this -time (it somehow didn't get updated on 4 Feb. 1991). - Add note to libi77/README about adjusting the interpretation of -RECL= specifiers in OPENs for direct unformatted I/O. - -Thu Feb 7 17:24:42 EST 1991: - New option -r casts values of REAL functions, including intrinsics, -to REAL. This only matters for unportable code like - real r - r = asin(1.) - if (r .eq. asin(1.)) ... -[The behavior of such code varies with the Fortran compiler used -- -and sometimes is affected by compiler options.] For now, the man page -at the end of f2c.ps is the only part of f2c.ps that reflects this new -option. - -Fri Feb 8 18:12:51 EST 1991: - Cast pointer differences passed as arguments to the appropriate type. -This matters, e.g., with MSDOS compilers that yield a long pointer -difference but have int == short. - Disallow nonpositive dimensions. - -Fri Feb 15 12:24:15 EST 1991: - Change %d to %ld in sprintf call in putpower in putpcc.c. - Free more memory (e.g. allowing translation of larger Fortran -files under MS-DOS). - Recognize READ (character expression) and WRITE (character expression) -as formatted I/O with the format given by the character expression. - Update year in Notice. - -Sat Feb 16 00:42:32 EST 1991: - Recant recognizing WRITE(character expression) as formatted output --- Fortran 77 is not symmetric in its syntax for READ and WRITE. - -Mon Mar 4 15:19:42 EST 1991: - Fix bug in passing the real part of a complex argument to an intrinsic -function. Omit unneeded parentheses in nested calls to intrinsics. -Example: - subroutine foo(x, y) - complex y - x = exp(sin(real(y))) + exp(imag(y)) - end - -Fri Mar 8 15:05:42 EST 1991: - Fix a comment in expr.c; omit safstrncpy.c (which had bugs in -cases not used by f2c). - -Wed Mar 13 02:27:23 EST 1991: - Initialize firstmemblock->next in mem_init in mem.c . [On most -systems it was fortuituously 0, but with System V, -lmalloc could -trip on this missed initialization.] - -Wed Mar 13 11:47:42 EST 1991: - Fix a reference to freed memory. - -Wed Mar 27 00:42:19 EST 1991: - Fix a memory fault caused by such illegal Fortran as - function foo - x = 3 - logical foo ! declaration among executables - foo=.false. ! used to suffer memory fault - end - -Fri Apr 5 08:30:31 EST 1991: - Fix loss of % in some format expressions, e.g. - write(*,'(1h%)') - Fix botch introduced 27 March 1991 that caused subroutines with -multiple entry points to have extraneous declarations of ret_val. - -Fri Apr 5 12:44:02 EST 1991 - Try again to omit extraneous ret_val declarations -- this morning's -fix was sometimes wrong. - -Mon Apr 8 13:47:06 EDT 1991: - Arrange for s_rnge to have the right prototype under -A -C . - -Wed Apr 17 13:36:03 EDT 1991: - New fatal error message for apparent invocation of a recursive -statement function. - -Thu Apr 25 15:13:37 EDT 1991: - F2c and libi77 adjusted so NAMELIST works with -i2. (I forgot -about -i2 when adding NAMELIST.) This required a change to f2c.h -(that only affects NAMELIST I/O under -i2.) Man-page description of --i2 adjusted to reflect that -i2 stores array lengths in short ints. - -Fri Apr 26 02:54:41 EDT 1991: - Libi77: fix some bugs in NAMELIST reading of multi-dimensional arrays -(file rsne.c). - -Thu May 9 02:13:51 EDT 1991: - Omit a trailing space in expr.c (could cause a false xsum value if -a mailer drops the trailing blank). - -Thu May 16 13:14:59 EDT 1991: - Libi77: increase LEFBL in lio.h to overcome a NeXT bug. - Tweak for compilers that recognize "nested" comments: inside comments, -turn /* into /+ (as well as */ into +/). - -Sat May 25 11:44:25 EDT 1991: - libf77: s_rnge: declare line long int rather than int. - -Fri May 31 07:51:50 EDT 1991: - libf77: system_: officially return status. - -Mon Jun 17 16:52:53 EDT 1991: - Minor tweaks: omit unnecessary declaration of strcmp (that caused -trouble on a system where strcmp was a macro) from misc.c; add -SHELL = /bin/sh to makefiles. - Fix a dereference of null when a CHARACTER*(*) declaration appears -(illegally) after DATA. Complain only once per subroutine about -declarations appearing after DATA. - -Mon Jul 1 00:28:13 EDT 1991: - Add test and error message for illegal use of subroutine names, e.g. - SUBROUTINE ZAP(A) - ZAP = A - END - -Mon Jul 8 21:49:20 EDT 1991: - Issue a warning about things like - integer i - i = 'abc' -(which is treated as i = ichar('a')). [It might be nice to treat 'abc' -as an integer initialized (in a DATA statement) with 'abc', but -other matters have higher priority.] - Render - i = ichar('A') -as - i = 'A'; -rather than - i = 65; -(which assumes ASCII). - -Fri Jul 12 07:41:30 EDT 1991: - Note added to README about erroneous definitions of __STDC__ . - -Sat Jul 13 13:38:54 EDT 1991: - Fix bugs in double type convesions of complex values, e.g. -sngl(real(...)) or dble(real(...)) (where ... is complex). - -Mon Jul 15 13:21:42 EDT 1991: - Fix bug introduced 8 July 1991 that caused erroneous warnings -"ichar([first char. of] char. string) assumed for conversion to numeric" -when a subroutine had an array of character strings as an argument. - -Wed Aug 28 01:12:17 EDT 1991: - Omit an unused function in format.c, an unused variable in proc.c . - Under -r8, promote complex to double complex (as the man page claims). - -Fri Aug 30 17:19:17 EDT 1991: - f2c.ps updated: slightly expand description of intrinsics and,or,xor, -not; add mention of intrinsics lshift, rshift; add note about f2c -accepting Fortran 90 inline comments (starting with !); update Cobalt -Blue address. - -Tue Sep 17 07:17:33 EDT 1991: - libI77: err.c and open.c modified to use modes "rb" and "wb" -when (f)opening unformatted files; README updated to point out -that it may be necessary to change these modes to "r" and "w" -on some non-ANSI systems. - -Tue Oct 15 10:25:49 EDT 1991: - Minor tweaks that make some PC compilers happier: insert some -casts, add args to signal functions. - Change -g to emit uncommented #line lines -- and to emit more of them; -update fc, f2c.1, f2c.1t, f2c.ps to reflect this. - Change uchar to Uchar in xsum.c . - Bring gram.c up to date. - -Thu Oct 17 09:22:05 EDT 1991: - libi77: README, fio.h, sue.c, uio.c changed so the length field -in unformatted sequential records has type long rather than int -(unless UIOLEN_int is #defined). This is for systems where sizeof(int) -can vary, depending on the compiler or compiler options. - -Thu Oct 17 13:42:59 EDT 1991: - libi77: inquire.c: when MSDOS is defined, don't strcmp units[i].ufnm -when it is NULL. - -Fri Oct 18 15:16:00 EDT 1991: - Correct xsum0.out in "all from f2c/src" (somehow botched on 15 Oct.). - -Tue Oct 22 18:12:56 EDT 1991: - Fix memory fault when a character*(*) argument is used (illegally) -as a dummy variable in the definition of a statement function. (The -memory fault occurred when the statement function was invoked.) - Complain about implicit character*(*). - -Thu Nov 14 08:50:42 EST 1991: - libi77: change uint to Uint in fmt.h, rdfmt.c, wrtfmt.c; this change -should be invisible unless you're running a brain-damaged system. - -Mon Nov 25 19:04:40 EST 1991: - libi77: correct botches introduced 17 Oct. 1991 and 14 Nov. 1991 -(change uint to Uint in lwrite.c; other changes that only matter if -sizeof(int) != sizeof(long)). - Add a more meaningful error message when bailing out due to an attempt -to invoke a COMMON variable as a function. - -Sun Dec 1 19:29:24 EST 1991: - libi77: uio.c: add test for read failure (seq. unformatted reads); -adjust an error return from EOF to off end of record. - -Tue Dec 10 17:42:28 EST 1991: - Add tests to prevent memory faults with bad uses of character*(*). - -Thu Dec 12 11:24:41 EST 1991: - libi77: fix bug with internal list input that caused the last -character of each record to be ignored; adjust error message in -internal formatted input from "end-of-file" to "off end of record" -if the format specifies more characters than the record contains. - -Wed Dec 18 17:48:11 EST 1991: - Fix bug in translating nonsensical ichar invocations involving -concatenations. - Fix bug in passing intrinsics lle, llt, lge, lgt as arguments; -hl_le was being passed rather than l_le, etc. - libf77: adjust length parameters from long to ftnlen, for -compiling with f2c_i2 defined. - -Sat Dec 21 15:30:57 EST 1991: - Allow DO nnn ... to end with an END DO statement labelled nnn. - -Tue Dec 31 13:53:47 EST 1991: - Fix bug in handling dimension a(n**3,2) -- pow_ii was called -incorrectly. - Fix bug in translating - subroutine x(abc,n) - character abc(n) - write(abc,'(i10)') 123 - end -(omitted declaration and initialiation of abc_dim1). - Complain about dimension expressions of such invalid types -as complex and logical. - -Fri Jan 17 11:54:20 EST 1992: - Diagnose some illegal uses of main program name (rather than -memory faulting). - libi77: (1) In list and namelist input, treat "r* ," and "r*," -alike (where r is a positive integer constant), and fix a bug in -handling null values following items with repeat counts (e.g., -2*1,,3). (2) For namelist reading of a numeric array, allow a new -name-value subsequence to terminate the current one (as though the -current one ended with the right number of null values). -(3) [lio.h, lwrite.c]: omit insignificant zeros in list and namelist -output. (Compile with -DOld_list_output to get the old behavior.) - -Sat Jan 18 15:58:01 EST 1992: - libi77: make list output consistent with F format by printing .1 -rather than 0.1 (introduced yesterday). - -Wed Jan 22 08:32:43 EST 1992: - libi77: add comment to README pointing out preconnection of -Fortran units 5, 6, 0 to stdin, stdout, stderr (respectively). - -Mon Feb 3 11:57:53 EST 1992: - libi77: fix namelist read bug that caused the character following -a comma to be ignored. - -Fri Feb 28 01:04:26 EST 1992: - libf77: fix buggy z_sqrt.c (double precision square root), which -misbehaved for arguments in the southwest quadrant. - -Thu Mar 19 15:05:18 EST 1992: - Fix bug (introduced 17 Jan 1992) in handling multiple entry points -of differing types (with implicitly typed entries appearing after -the first executable statement). - Fix memory fault in the following illegal Fortran: - double precision foo(i) -* illegal: above should be "double precision function foo(i)" - foo = i * 3.2 - entry moo(i) - end - Note about ANSI_Libraries (relevant, e.g., to IRIX 4.0.1 and AIX) -added to README. - Abort zero divides during constant simplification. - -Sat Mar 21 01:27:09 EST 1992: - Tweak ckalloc (misc.c) for systems where malloc(0) = 0; this matters -for subroutines with multiple entry points but no arguments. - Add "struct memblock;" to init.c (irrelevant to most compilers). - -Wed Mar 25 13:31:05 EST 1992: - Fix bug with IMPLICIT INTEGER*4(...): under -i2 or -I2, the *4 was -ignored. - -Tue May 5 09:53:55 EDT 1992: - Tweaks to README; e.g., ANSI_LIbraries changed to ANSI_Libraries . - -Wed May 6 23:49:07 EDT 1992 - Under -A and -C++, have subroutines return 0 (even if they have -no * arguments). - Adjust libi77 (rsne.c and lread.c) for systems where ungetc is -a macro. Tweak lib[FI]77/makefile to use unique intermediate file -names (for parallel makes). - -Tue May 19 09:03:05 EDT 1992: - Adjust libI77 to make err= work with internal list and formatted I/O. - -Sat May 23 18:17:42 EDT 1992: - Under -A and -C++, supply "return 0;" after the code generated for -a STOP statement -- the C compiler doesn't know that s_stop won't -return. - New (mutually exclusive) options: - -f treats all input lines as free-format lines, - honoring text that appears after column 72 - and not padding lines shorter than 72 characters - with blanks (which matters if a character string - is continued across 2 or more lines). - -72 treats text appearing after column 72 as an error. - -Sun May 24 09:45:37 EDT 1992: - Tweak description of -f in f2c.1 and f2c.1t; update f2c.ps . - -Fri May 29 01:17:15 EDT 1992: - Complain about externals used as variables. Example - subroutine foo(a,b) - external b - a = a*b ! illegal use of b; perhaps should be b() - end - -Mon Jun 15 11:15:27 EDT 1992: - Fix bug in handling namelists with names that have underscores. - -Sat Jun 27 17:30:59 EDT 1992: - Under -A and -C++, end Main program aliases with "return 0;". - Under -A and -C++, use .P files and usage in previous subprograms -in the current file to give prototypes for functions declared EXTERNAL -but not invoked. - Fix memory fault under -d1 -P . - Under -A and -C++, cast arguments to the right types in calling -a function that has been defined in the current file or in a .P file. - Fix bug in handling multi-dimensional arrays with array references -in their leading dimensions. - Fix bug in the intrinsic cmplx function when the first argument -involves an expression for which f2c generates temporary variables, -e.g. cmplx(abs(real(a)),1.) . - -Sat Jul 18 07:36:58 EDT 1992: - Fix buglet with -e1c (invisible on most systems) temporary file -f2c_functions was unlinked before being closed. - libf77: fix bugs in evaluating m**n for integer n < 0 and m an -integer different from 1 or a real or double precision 0. -Catch SIGTRAP (to print "Trace trap" before aborting). Programs -that previously erroneously computed 1 for 0**-1 may now fault. -Relevant routines: main.c pow_di.c pow_hh.c pow_ii.c pow_ri.c . - -Sat Jul 18 08:40:10 EDT 1992: - libi77: allow namelist input to end with & (e.g. &end). - -Thu Jul 23 00:14:43 EDT 1992 - Append two underscores rather than one to C keywords used as -local variables to avoid conflicts with similarly named COMMON blocks. - -Thu Jul 23 11:20:55 EDT 1992: - libf77, libi77 updated to assume ANSI prototypes unless KR_headers -is #defined. - libi77 now recognizes a Z format item as in Fortran 90; -the implementation assumes 8-bit bytes and botches character strings -on little-endian machines (by printing their bytes from right to -left): expect this bug to persist; fixing it would require a -change to the I/O calling sequences. - -Tue Jul 28 15:18:33 EDT 1992: - libi77: insert missed "#ifdef KR_headers" lines around getnum -header in rsne.c. Version not updated. - -NOTE: "index from f2c" now ends with current timestamps of files in -"all from f2c/src", sorted by time. To bring your source up to date, -obtain source files with a timestamp later than the time shown in your -version.c. - -Fri Aug 14 08:07:09 EDT 1992: - libi77: tweak wrt_E in wref.c to avoid signing NaNs. - -Sun Aug 23 19:05:22 EDT 1992: - fc: supply : after O in getopt invocation (for -O1 -O2 -O3). - -Mon Aug 24 18:37:59 EDT 1992: - Recant above tweak to fc: getopt is dumber than I thought; -it's necessary to say -O 1 (etc.). - libF77/README: add comments about ABORT, ERF, DERF, ERFC, DERFC, -GETARG, GETENV, IARGC, SIGNAL, and SYSTEM. - -Tue Oct 27 01:57:42 EST 1992: - libf77, libi77: - 1. Fix botched indirection in signal_.c. - 2. Supply missing l_eof = 0 assignment to s_rsne() in rsne.c (so -end-of-file on other files won't confuse namelist reads of external -files). - 3. Prepend f__ to external names that are only of internal -interest to lib[FI]77. - -Thu Oct 29 12:37:18 EST 1992: - libf77: Fix botch in signal_.c when KR_headers is #defined; -add CFLAGS to makefile. - libi77: trivial change to makefile for consistency with -libF77/makefile. - -Wed Feb 3 02:05:16 EST 1993: - Recognize types INTEGER*1, LOGICAL*1, LOGICAL*2, INTEGER*8. -INTEGER*8 is not well tested and will only work reasonably on -systems where int = 4 bytes, long = 8 bytes; on such systems, -you'll have to modify f2c.h appropriately, changing integer -from long to int and adding typedef long longint. You'll also -have to compile libI77 with Allow_TYQUAD #defined and adjust -libF77/makefile to compile pow_qq.c. In the f2c source, changes -for INTEGER*8 are delimited by #ifdef TYQUAD ... #endif. You -can omit the INTEGER*8 changes by compiling with NO_TYQUAD -#defined. Otherwise, the new command-line option -!i8 -disables recognition of INTEGER*8. - libf77: add pow_qq.c - libi77: add #ifdef Allow_TYQUAD stuff. Changes for INTEGER*1, -LOGICAL*1, and LOGICAL*2 came last 23 July 1992. Fix bug in -backspace (that only bit when the last character of the second -or subsequent buffer read was the previous newline). Guard -against L_tmpnam being too small in endfile.c. For MSDOS, -close and reopen files when copying to truncate. Lengthen -LINTW (buffer size in lwrite.c). - Add \ to the end of #define lines that get broken. - Fix bug in handling NAMELIST of items in EQUIVALENCE. - Under -h (or -hd), convert Hollerith to integer in general expressions -(e.g., assignments), not just when they're passed as arguments, and -blank-pad rather than 0-pad the Hollerith to a multiple of -sizeof(integer) or sizeof(doublereal). - Add command-line option -s, which instructs f2c preserve multi- -dimensional subscripts (by emitting and using appropriate #defines). - Fix glitch (with default type inferences) in examples like - call foo('abc') - end - subroutine foo(goo) - end -This gave two warning messages: - Warning on line 4 of y.f: inconsistent calling sequences for foo: - here 1, previously 2 args and string lengths. - Warning on line 4 of y.f: inconsistent calling sequences for foo: - here 2, previously 1 args and string lengths. -Now the second Warning is suppressed. - Complain about all inconsistent arguments, not just the first. - Switch to automatic creation of "all from f2c/src". For folks -getting f2c source via ftp, this means f2c/src/all.Z is now an -empty file rather than a bundle. - Separate -P and -A: -P no longer implies -A. - -Thu Feb 4 00:32:20 EST 1993: - Fix some glitches (introduced yesterday) with -h . - -Fri Feb 5 01:40:38 EST 1993: - Fix bug in types conveyed for namelists (introduced 3 Feb. 1993). - -Fri Feb 5 21:26:43 EST 1993: - libi77: tweaks to NAMELIST and open (after comments by Harold -Youngren): - 1. Reading a ? instead of &name (the start of a namelist) causes - the namelist being sought to be written to stdout (unit 6); - to omit this feature, compile rsne.c with -DNo_Namelist_Questions. - 2. Reading the wrong namelist name now leads to an error message - and an attempt to skip input until the right namelist name is found; - to omit this feature, compile rsne.c with -DNo_Bad_Namelist_Skip. - 3. Namelist writes now insert newlines before each variable; to omit - this feature, compile xwsne.c with -DNo_Extra_Namelist_Newlines. - 4. For OPEN of sequential files, ACCESS='APPEND' (or - access='anything else starting with "A" or "a"') causes the file to - be positioned at end-of-file, so a write will append to the file. - (This is nonstandard, but does not require modifying data - structures.) - -Mon Feb 8 14:40:37 EST 1993: - Increase number of continuation lines allowed from 19 to 99, -and allow changing this limit with -NC (e.g. -NC200 for 200 lines). - Treat control-Z (at the beginning of a line) as end-of-file: see -the new penultimate paragraph of README. - Fix a rarely seen glitch that could make an error messages to say -"line 0". - -Tue Feb 9 02:05:40 EST 1993 - libi77: change some #ifdef MSDOS lines to #ifdef NON_UNIX_STDIO, -and, in err.c under NON_UNIX_STDIO, avoid close(creat(name,0666)) -when the unit has another file descriptor for name. - -Tue Feb 9 17:12:49 EST 1993 - libi77: more tweaks for NON_UNIX_STDIO: use stdio routines -rather than open, close, creat, seek, fdopen (except for f__isdev). - -Fri Feb 12 15:49:33 EST 1993 - Update src/gram.c (which was forgotten in the recent updates). -Most folks regenerate it anyway (wity yacc or bison). - -Thu Mar 4 17:07:38 EST 1993 - Increase default max labels in computed gotos and alternate returns -to 257, and allow -Nl1234 to specify this number. - Tweak put.c to check p->tag == TADDR in realpart() and imagpart(). - Adjust fc script to allow .r (RATFOR) files and -C (check subscripts). - Avoid declaring strchr in niceprintf.c under -DANSI_Libraries . - gram.c updated again. - libi77: err.c, open.c: take declaration of fdopen from rawio.h. - -Sat Mar 6 07:09:11 EST 1993 - libi77: uio.c: adjust off-end-of-record test for sequential -unformatted reads to respond to err= rather than end= . - -Sat Mar 6 16:12:47 EST 1993 - Treat scalar arguments of the form (v) and v+0, where v is a variable, -as expressions: assign to a temporary variable, and pass the latter. - gram.c updated. - -Mon Mar 8 09:35:38 EST 1993 - "f2c.h from f2c" updated to add types logical1 and integer1 for -LOGICAL*1 and INTEGER*1. ("f2c.h from f2c" is supposed to be the -same as "f2c.h from f2c/src", which was updated 3 Feb. 1993.) - -Mon Mar 8 17:57:55 EST 1993 - Fix rarely seen bug that could cause strange casts in function -invocations (revealed by an example with msdos/f2c.exe). - msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only). - -Fri Mar 12 12:37:01 EST 1993 - Fix bug with -s in handling subscripts involving min, max, and -complicated expressions requiring temporaries. - Fix bug in handling COMMONs that need padding by a char array. - msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only). - -Fri Mar 12 17:16:16 EST 1993 - libf77, libi77: updated for compiling under C++. - -Mon Mar 15 16:21:37 EST 1993 - libi77: more minor tweaks (for -DKR_headers); Version.c not changed. - -Thu Mar 18 12:37:30 EST 1993 - Flag -r (for discarding carriage-returns on systems that end lines -with carriage-return/newline pairs, e.g. PCs) added to xsum, and -xsum.c converted to ANSI/ISO syntax (with K&R syntax available with --DKR_headers). [When time permits, the f2c source will undergo a -similar conversion.] - libi77: tweaks to #includes in endfile.c, err.c, open.c, rawio.h; -Version.c not changed. - f2c.ps updated (to pick up revision of 2 Feb. 1993 to f2c.1). - -Fri Mar 19 09:19:26 EST 1993 - libi77: add (char *) casts to malloc and realloc invocations -in err.c, open.c; Version.c not changed. - -Tue Mar 30 07:17:15 EST 1993 - Fix bug introduced 6 March 1993: possible memory corruption when -loops in data statements involve constant subscripts, as in - DATA (GUNIT(1,I),I=0,14)/15*-1/ - -Tue Mar 30 16:17:42 EST 1993 - Fix bug with -s: (floating-point array item)*(complex item) -generates an _subscr() reference for the floating-point array, -but a #define for the _subscr() was omitted. - -Tue Apr 6 12:11:22 EDT 1993 - libi77: adjust error returns for formatted inputs to flush the current -input line when err= is specified. To restore the old behavior (input -left mid-line), either adjust the #definition of errfl in fio.h or omit -the invocation of f__doend in err__fl (in err.c). - -Tue Apr 6 13:30:04 EDT 1993 - Fix bug revealed in - subroutine foo(i) - call goo(int(i)) - end -which now passes a copy of i, rather than i itself. - -Sat Apr 17 11:41:02 EDT 1993 - Adjust appending of underscores to conform with f2c.ps ("A Fortran -to C Converter"): names that conflict with C keywords or f2c type -names now have just one underscore appended (rather than two); add -"integer1", "logical1", "longint" to the keyword list. - Append underscores to names that appear in EQUIVALENCE and are -component names in a structure declared in f2c.h, thus avoiding a -problem caused by the #defines emitted for equivalences. Example: - complex a - equivalence (i,j) - a = 1 ! a.i went awry because of #define i - j = 2 - write(*,*) a, i - end - Adjust line-breaking logic to avoid splitting very long constants -(and names). Example: - ! The next line starts with tab and thus is a free-format line. - a=.012345689012345689012345689012345689012345689012345689012345689012345689 - end - Omit extraneous "return 0;" from entry stubs emitted for multiple -entry points of type character, complex, or double complex. - -Sat Apr 17 14:35:05 EDT 1993 - Fix bug (introduced 4 Feb.) in separating -P from -A that kept f2c -from re-reading a .P file written without -A or -C++ describing a -routine with an external argument. [See the just-added note about -separating -P from -A in the changes above for 3 Feb. 1993.] - Fix bug (type UNKNOWN for V in the example below) revealed by - subroutine a() - external c - call b(c) - end - subroutine b(v) - end - -Sun Apr 18 19:55:26 EDT 1993 - Fix wrong calling sequence for mem() in yesterday's addition to -equiv.c . - -Wed Apr 21 17:39:46 EDT 1993 - Fix bug revealed in - - ASSIGN 10 TO L1 - GO TO 20 - 10 ASSIGN 30 TO L2 - STOP 10 - - 20 ASSIGN 10 TO L2 ! Bug here because 10 had been assigned - ! to another label, then defined. - GO TO L2 - 30 END - -Fri Apr 23 18:38:50 EDT 1993 - Fix bug with -h revealed in - CHARACTER*9 FOO - WRITE(FOO,'(I6)') 1 - WRITE(FOO,'(I6)') 2 ! struct icilist io___3 botched - END - -Tue Apr 27 16:08:28 EDT 1993 - Tweak to makefile: remove "size f2c". - -Tue May 4 23:48:20 EDT 1993 - libf77: tweak signal_ line of f2ch.add . - -Tue Jun 1 13:47:13 EDT 1993 - Fix bug introduced 3 Feb. 1993 in handling multiple entry -points with differing return types -- the postfix array in proc.c -needed a new entry for integer*8 (which resulted in wrong -Multitype suffixes for non-integral types). - For (default) K&R C, generate VOID rather than int functions for -functions of Fortran type character, complex, and double complex. - msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only). - -Tue Jun 1 23:11:15 EDT 1993 - f2c.h: add Multitype component g and commented type longint. - proc.c: omit "return 0;" from stubs for complex and double complex -entries (when entries have multiple types); add test to avoid memory -fault with illegal combinations of entry types. - -Mon Jun 7 12:00:47 EDT 1993 - Fix memory fault in - common /c/ m - integer m(1) - data m(1)/1/, m(2)/2/ ! one too many initializers - end - msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only). - -Fri Jun 18 13:55:51 EDT 1993 - libi77: change type of signal_ in f2ch.add; change type of il in -union Uint from long to integer (for machines like the DEC Alpha, -where integer should be the same as int). Version.c not changed. - Tweak gram.dcl and gram.head: add semicolons after some rules that -lacked them, and remove an extraneous semicolon. These changes are -completely transparent to our local yacc programs, but apparently -matter on some VMS systems. - -Wed Jun 23 01:02:56 EDT 1993 - Update "fc" shell script, and bring f2c.1 and f2c.1t up to date: -they're meant to be linked with (i.e., the same as) src/f2c.1 and -src/f2c.1t . [In the last update of f2c.1* (2 Feb. 1993), only -src/f2c.1 and src/f2c.1t got changed -- a mistake.] - -Wed Jun 23 09:04:31 EDT 1993 - libi77: fix bug in format reversions for internal writes. -Example: - character*60 lines(2) - write(lines,"('n =',i3,2(' more text',i3))") 3, 4, 5, 6 - write(*,*) 'lines(1) = ', lines(1) - write(*,*) 'lines(2) = ', lines(2) - end -gave an error message that began "iio: off end of record", rather -than giving the correct output: - - lines(1) = n = 3 more text 4 more text 5 - lines(2) = more text 6 more text - -Thu Aug 5 11:31:14 EDT 1993 - libi77: lread.c: fix bug in handling repetition counts for logical -data (during list or namelist input). Change struct f__syl to -struct syl (for buggy compilers). - -Sat Aug 7 16:05:30 EDT 1993 - libi77: lread.c (again): fix bug in namelist reading of incomplete -logical arrays. - Fix minor calling-sequence errors in format.c, output.c, putpcc.c: -should be invisible. - -Mon Aug 9 09:12:38 EDT 1993 - Fix erroneous cast under -A in translating - character*(*) function getc() - getc(2:3)=' ' !wrong cast in first arg to s_copy - end - libi77: lread.c: fix bug in namelist reading of an incomplete array -of numeric data followed by another namelist item whose name starts -with 'd', 'D', 'e', or 'E'. - -Fri Aug 20 13:22:10 EDT 1993 - Fix bug in do while revealed by - subroutine skdig (line, i) - character line*(*), ch*1 - integer i - logical isdigit - isdigit(ch) = ch.ge.'0' .and. ch.le.'9' - do while (isdigit(line(i:i))) ! ch__1[0] was set before - ! "while(...) {...}" - i = i + 1 - enddo - end - -Fri Aug 27 08:22:54 EDT 1993 - Add #ifdefs to avoid declaring atol when it is a macro; version.c -not updated. - -Wed Sep 8 12:24:26 EDT 1993 - libi77: open.c: protect #include "sys/..." with -#ifndef NON_UNIX_STDIO; Version date not changed. - -Thu Sep 9 08:51:21 EDT 1993 - Adjust "include" to interpret file names relative to the directory -of the file that contains the "include". - -Fri Sep 24 00:56:12 EDT 1993 - Fix offset error resulting from repeating the same equivalence -statement twice. Example: - real a(2), b(2) - equivalence (a(2), b(2)) - equivalence (a(2), b(2)) - end - Increase MAXTOKENLEN (to roughly the largest allowed by ANSI C). - -Mon Sep 27 08:55:09 EDT 1993 - libi77: endfile.c: protect #include "sys/types.h" with -#ifndef NON_UNIX_STDIO; Version.c not changed. - -Fri Oct 15 15:37:26 EDT 1993 - Fix rarely seen parsing bug illustrated by - subroutine foo(xabcdefghij) - character*(*) xabcdefghij - IF (xabcdefghij.NE.'##') GOTO 40 - 40 end -in which the spacing in the IF line is crucial. - -Thu Oct 21 13:55:11 EDT 1993 - Give more meaningful error message (then "unexpected character in -cds") when constant simplification leads to Infinity or NaN. - -Wed Nov 10 15:01:05 EST 1993 - libi77: backspace.c: adjust, under -DMSDOS, to cope with MSDOS -text files, as handled by some popular PC C compilers. Beware: -the (defective) libraries associated with these compilers assume lines -end with \r\n (conventional MS-DOS text files) -- and ftell (and -hence the current implementation of backspace) screws up if lines with -just \n. - -Thu Nov 18 09:37:47 EST 1993 - Give a better error (than "control stack empty") for an extraneous -ENDDO. Example: - enddo - end - Update comments about ftp in "readme from f2c". - -Sun Nov 28 17:26:50 EST 1993 - Change format of time stamp in version.c to yyyymmdd. - Sort parameter adjustments (or complain of impossible dependencies) -so that dummy arguments are referenced only after being adjusted. -Example: - subroutine foo(a,b) - integer a(2) ! a must be adjusted before b - double precision b(a(1),a(2)) - call goo(b(3,4)) - end - Adjust structs for initialized common blocks and equivalence classes -to omit the trailing struct component added to force alignment when -padding already forces the desired alignment. Example: - PROGRAM TEST - COMMON /Z/ A, CC - CHARACTER*4 CC - DATA cc /'a'/ - END -now gives - struct { - integer fill_1[1]; - char e_2[4]; - } z_ = { {0}, {'a', ' ', ' ', ' '} }; -rather than -struct { - integer fill_1[1]; - char e_2[4]; - real e_3; - } z_ = { {0}, {'a', ' ', ' ', ' '}, (float)0. }; - -Wed Dec 8 16:24:43 EST 1993 - Adjust lex.c to recognize # nnn "filename" lines emitted by cpp; -this affects the file names and line numbers in error messages and -the #line lines emitted under -g. - Under -g, arrange for a file that starts with an executable -statement to have the first #line line indicate line 1, rather -than the line number of the END statement ending the main program. - Adjust fc script to run files ending in .F through /lib/cpp. - Fix bug ("Impossible tag 2") in - if (t .eq. (0,2)) write(*,*) 'Bug!' - end - libi77: iio.c: adjust internal formatted reads to treat short records -as though padded with blanks (rather than causing an "off end of record" -error). - -Wed Dec 15 15:19:15 EST 1993 - fc: adjusted for .F files to pass -D and -I options to cpp. - -Fri Dec 17 20:03:38 EST 1993 - Fix botch introduced 28 Nov. 1993 in vax.c; change "version of" -to "version". - -Tue Jan 4 15:39:52 EST 1994 - msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only). - -Wed Jan 19 08:55:19 EST 1994 - Arrange to accept - integer Nx, Ny, Nz - parameter (Nx = 10, Ny = 20) - parameter (Nz = max(Nx, Ny)) - integer c(Nz) - call foo(c) - end -rather than complaining "Declaration error for c: adjustable dimension -on non-argument". The necessary changes cause some hitherto unfolded -constant expressions to be folded. - Accept BYTE as a synonym for INTEGER*1. - -Thu Jan 27 08:57:40 EST 1994 - Fix botch in changes of 19 Jan. 1994 that broke entry points with -multi-dimensional array arguments that did not appear in the subprogram -argument list and whose leading dimensions depend on arguments. - -Mon Feb 7 09:24:30 EST 1994 - Remove artifact in "fc" script that caused -O to be ignored: - 87c87 - < # lcc ignores -O... - --- - > CFLAGS="$CFLAGS $O" - -Sun Feb 20 17:04:58 EST 1994 - Fix bugs reading .P files for routines with arguments of type -INTEGER*1, INTEGER*8, LOGICAL*2. - Fix glitch in reporting inconsistent arguments for routines involving -character arguments: "arg n" had n too large by the number of -character arguments. - -Tue Feb 22 20:50:08 EST 1994 - Trivial changes to data.c format.c main.c niceprintf.c output.h and -sysdep.h (consistency improvements). - libI77: lread.c: check for NULL return from realloc. - -Fri Feb 25 23:56:08 EST 1994 - output.c, sysdep.h: arrange for -DUSE_DTOA to use dtoa.c and g_fmt.c -for correctly rounded decimal values on IEEE-arithmetic machines -(plus machines with VAX and IBM-mainframe arithmetic). These -routines are available from netlib's fp directory. - msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only); the -former uses -DUSE_DTOA to keep 12 from printing as 12.000000000000001. - vax.c: fix wrong arguments to badtag and frchain introduced -28 Nov. 1993. - Source for f2c converted to ANSI/ISO format, with the K&R format -available by compilation with -DKR_headers . - Arrange for (double precision expression) relop (single precision -constant) to retain the single-precision nature of the constant. -Example: - double precision t - if (t .eq. 0.3) ... - -Mon Feb 28 11:40:24 EST 1994 - README updated to reflect a modification just made to netlib's -"dtoa.c from fp": -96a97,105 -> Also add the rule -> -> dtoa.o: dtoa.c -> $(CC) -c $(CFLAGS) -DMALLOC=ckalloc -DIEEE... dtoa.c -> -> (without the initial tab) to the makefile, where IEEE... is one of -> IEEE_MC68k, IEEE_8087, VAX, or IBM, depending on your machine's -> arithmetic. See the comments near the start of dtoa.c. -> - -Sat Mar 5 09:41:52 EST 1994 - Complain about functions with the name of a previously declared -common block (which is illegal). - New option -d specifies the directory for output .c and .P files; -f2c.1 and f2c.1t updated. The former undocumented debug option -dnnn -is now -Dnnn. - -Thu Mar 10 10:21:44 EST 1994 - libf77: add #undef min and #undef max lines to s_paus.c s_stop.c -and system_.c; Version.c not changed. - libi77: add -DPad_UDread lines to uio.c and explanation to README: - Some buggy Fortran programs use unformatted direct I/O to write - an incomplete record and later read more from that record than - they have written. For records other than the last, the unwritten - portion of the record reads as binary zeros. The last record is - a special case: attempting to read more from it than was written - gives end-of-file -- which may help one find a bug. Some other - Fortran I/O libraries treat the last record no differently than - others and thus give no help in finding the bug of reading more - than was written. If you wish to have this behavior, compile - uio.c with -DPad_UDread . -Version.c not changed. - -Tue Mar 29 17:27:54 EST 1994 - Adjust make_param so dimensions involving min, max, and other -complicated constant expressions do not provoke error messages -about adjustable dimensions on non-arguments. - Fix botch introduced 19 Jan 1994: "adjustable dimension on non- -argument" messages could cause some things to be freed twice. - -Tue May 10 07:55:12 EDT 1994 - Trivial changes to exec.c, p1output.c, parse_args.c, proc.c, -and putpcc.c: change arguments from - type foo[] -to - type *foo -for consistency with defs.h. For most compilers, this makes no -difference. - -Thu Jun 2 12:18:18 EDT 1994 - Fix bug in handling FORMAT statements that have adjacent character -(or Hollerith) strings: an extraneous \002 appeared between the -strings. - libf77: under -DNO_ONEXIT, arrange for f_exit to be called just -once; previously, upon abnormal termination (including stop statements), -it was called twice. - -Mon Jun 6 15:52:57 EDT 1994 - libf77: Avoid references to SIGABRT and SIGIOT if neither is defined; -Version.c not changed. - libi77: Add cast to definition of errfl() in fio.h; this only matters -on systems with sizeof(int) < sizeof(long). Under -DNON_UNIX_STDIO, -use binary mode for direct formatted files (to avoid any confusion -connected with \n characters). - -Fri Jun 10 16:47:31 EDT 1994 - Fix bug under -A in handling unreferenced (and undeclared) -external arguments in subroutines with multiple entry points. Example: - subroutine m(fcn,futil) - external fcn,futil - call fcn - entry mintio(i1) ! (D_fp)0 rather than (U_fp)0 for futil - end - -Wed Jun 15 10:38:14 EDT 1994 - Allow char(constant expression) function in parameter declarations. -(This was probably broken in the changes of 29 March 1994.) - -Fri Jul 1 23:54:00 EDT 1994 - Minor adjustments to makefile (rule for f2c.1 commented out) and -sysdep.h (#undef KR_headers if __STDC__ is #defined, and base test -for ANSI_Libraries and ANSI_Prototypes on KR_headers rather than -__STDC__); version.c touched but not changed. - libi77: adjust fp.h so local.h is only needed under -DV10; -Version.c not changed. - -Tue Jul 5 03:05:46 EDT 1994 - Fix segmentation fault in - subroutine foo(a,b,k) - data i/1/ - double precision a(k,1) ! sequence error: must precede data - b = a(i,1) - end - libi77: Fix bug (introduced 6 June 1994?) in reopening files under -NON_UNIX_STDIO. - Fix some error messages caused by illegal Fortran. Examples: -* 1. - x(i) = 0 !Missing declaration for array x - call f(x) !Said Impossible storage class 8 in routine mkaddr - end !Now says invalid use of statement function x -* 2. - f = g !No declaration for g; by default it's a real variable - call g !Said invalid class code 2 for function g - end !Now says g cannot be called -* 3. - intrinsic foo !Invalid intrinsic name - a = foo(b) !Said intrcall: bad intrgroup 0 - end !Now just complains about line 1 - -Tue Jul 5 11:14:26 EDT 1994 - Fix glitch in handling erroneous statement function declarations. -Example: - a(j(i) - i) = a(j(i) - i) + 1 ! bad statement function - call foo(a(3)) ! Said Impossible type 0 in routine mktmpn - end ! Now warns that i and j are not used - -Wed Jul 6 17:31:25 EDT 1994 - Tweak test for statement functions that (illegally) call themselves; -f2c will now proceed to check for other errors, rather than bailing -out at the first recursive statement function reference. - Warn about but retain divisions by 0 (instead of calling them -"compiler errors" and quiting). On IEEE machines, this permits - double precision nan, ninf, pinf - nan = 0.d0/0.d0 - pinf = 1.d0/0.d0 - ninf = -1.d0/0.d0 - write(*,*) 'nan, pinf, ninf = ', nan, pinf, ninf - end -to print - nan, pinf, ninf = NaN Infinity -Infinity - libi77: wref.c: protect with #ifdef GOOD_SPRINTF_EXPONENT an -optimization that requires exponents to have 2 digits when 2 digits -suffice. lwrite.c wsfe.c (list and formatted external output): -omit ' ' carriage-control when compiled with -DOMIT_BLANK_CC . -Off-by-one bug fixed in character count for list output of character -strings. Omit '.' in list-directed printing of Nan, Infinity. - -Mon Jul 11 13:05:33 EDT 1994 - src/gram.c updated. - -Tue Jul 12 10:24:42 EDT 1994 - libi77: wrtfmt.c: under G11.4, write 0. as " .0000 " rather -than " .0000E+00". - -Thu Jul 14 17:55:46 EDT 1994 - Fix glitch in changes of 6 July 1994 that could cause erroneous -"division by zero" warnings (or worse). Example: - subroutine foo(a,b) - y = b - a = a / y ! erroneous warning of division by zero - end - -Mon Aug 1 16:45:17 EDT 1994 - libi77: lread.c rsne.c: for benefit of systems with a buggy stdio.h, -declare ungetc when neither KR_headers nor ungetc is #defined. -Version.c not changed. - -Wed Aug 3 01:53:00 EDT 1994 - libi77: lwrite.c (list output): do not insert a newline when -appending an oversize item to an empty line. - -Mon Aug 8 00:51:01 EDT 1994 - Fix bug (introduced 3 Feb. 1993) that, under -i2, kept LOGICAL*2 -variables from appearing in INQUIRE statements. Under -I2, allow -LOGICAL*4 variables to appear in INQUIRE. Fix intrinsic function -LEN so it returns a short value under -i2, a long value otherwise. - exec.c: fix obscure memory fault possible with bizarre (and highly -erroneous) DO-loop syntax. - -Fri Aug 12 10:45:57 EDT 1994 - libi77: fix glitch that kept ERR= (in list- or format-directed input) -from working after a NAMELIST READ. - -Thu Aug 25 13:58:26 EDT 1994 - Suppress -s when -C is specified. - Give full pathname (netlib@research.att.com) for netlib in readme and -src/README. - -Wed Sep 7 22:13:20 EDT 1994 - libi77: typesize.c: adjust to allow types LOGICAL*1, LOGICAL*2, -INTEGER*1, and (under -DAllow_TYQUAD) INTEGER*8 in NAMELISTs. - -Fri Sep 16 17:50:18 EDT 1994 - Change name adjustment for reserved words: instead of just appending -"_" (a single underscore), append "_a_" to local variable names to avoid -trouble when a common block is named a reserved word and the same -reserved word is also a local variable name. Example: - common /const/ a,b,c - real const(3) - equivalence (const(1),a) - a = 1.234 - end - Arrange for ichar() to treat characters as unsigned. - libf77: s_cmp.c: treat characters as unsigned in comparisons. -These changes for unsignedness only matter for strings that contain -non-ASCII characters. Now ichar() should always be >= 0. - -Sat Sep 17 11:19:32 EDT 1994 - fc: set rc=$? before exit (to get exit code right in trap code). - -Mon Sep 19 17:49:43 EDT 1994 - libf77: s_paus.c: flush stderr after PAUSE; add #ifdef MSDOS stuff. - libi77: README: point out general need for -DMSDOS under MS-DOS. - -Tue Sep 20 11:42:30 EDT 1994 - Fix bug in comparing identically named common blocks, in which -all components have the same names and types, but at least one is -dimensioned (1) and the other is not dimensioned. Example: - subroutine foo - common /ab/ a - a=1. !!! translated correctly to ab_1.a = (float)1.; - end - subroutine goo - common /ab/ a(1) - a(1)=2. !!! translated erroneously to ab_1.a[0] = (float)2. - end - -Tue Sep 27 23:47:34 EDT 1994 - Fix bug introduced 16 Sept. 1994: don't add _a_ to C keywords -used as external names. In fact, return to earlier behavior of -appending __ to C keywords unless they are used as external names, -in which case they get just one underscore appended. - Adjust constant handling so integer and logical PARAMETERs retain -type information, particularly under -I2. Example: - SUBROUTINE FOO - INTEGER I - INTEGER*1 I1 - INTEGER*2 I2 - INTEGER*4 I4 - LOGICAL L - LOGICAL*1 L1 - LOGICAL*2 L2 - LOGICAL*4 L4 - PARAMETER (L=.FALSE., L1=.FALSE., L2=.FALSE., L4=.FALSE.) - PARAMETER (I=0,I1=0,I2=0,I4=0) - CALL DUMMY(I, I1, I2, I4, L, L1, L2, L4) - END - f2c.1t: Change f\^2c to f2c (omit half-narrow space) in line following -".SH NAME" for benefit of systems that cannot cope with troff commands -in this context. - -Wed Sep 28 12:45:19 EDT 1994 - libf77: s_cmp.c fix glitch in -DKR_headers version introduced -12 days ago. - -Thu Oct 6 09:46:53 EDT 1994 - libi77: util.c: omit f__mvgbt (which is never used). - f2c.h: change "long" to "long int" to facilitate the adjustments -by means of sed described above. Comment out unused typedef of Long. - -Fri Oct 21 18:02:24 EDT 1994 - libf77: add s_catow.c and adjust README to point out that changing -"s_cat.o" to "s_catow.o" in the makefile will permit the target of a -concatenation to appear on its right-hand side (contrary to the -Fortran 77 Standard and at the cost of some run-time efficiency). - -Wed Nov 2 00:03:58 EST 1994 - Adjust -g output to contain only one #line line per statement, -inserting \ before the \n ending lines broken because of their -length [this insertion was recanted 10 Dec. 1994]. This change -accommodates an idiocy in the ANSI/ISO C standard, which leaves -undefined the behavior of #line lines that occur within the arguments -to a macro call. - -Wed Nov 2 14:44:27 EST 1994 - libi77: under compilation with -DALWAYS_FLUSH, flush buffers at -the end of each write statement, and test (via the return from -fflush) for write failures, which can be caught with an ERR= -specifier in the write statement. This extra flushing slows -execution, but can abort execution or alter the flow of control -when a disk fills up. - f2c/src/io.c: Add ERR= test to e_wsle invocation (end of -list-directed external output) to catch write failures when libI77 -is compiled with -DALWAYS_FLUSH. - -Thu Nov 3 10:59:13 EST 1994 - Fix bug in handling dimensions involving certain intrinsic -functions of constant expressions: the expressions, rather than -pointers to them, were passed. Example: - subroutine subtest(n,x) - real x(2**n,n) ! pow_ii(2,n) was called; now it's pow_ii(&c__2,n) - x(2,2)=3. - end - -Tue Nov 8 23:56:30 EST 1994 - malloc.c: remove assumption that only malloc calls sbrk. This -appears to make malloc.c useful on RS6000 systems. - -Sun Nov 13 13:09:38 EST 1994 - Turn off constant folding of integers used in floating-point -expressions, so the assignment in - subroutine foo(x) - double precision x - x = x*1000000*500000 - end -is rendered as - *x = *x * 1000000 * 500000; -rather than as - *x *= 1783793664; - -Sat Dec 10 16:31:40 EST 1994 - Supply a better error message (than "Impossible type 14") for - subroutine foo - foo = 3 - end - Under -g, convey name of included files to #line lines. - Recant insertion of \ introduced (under -g) 2 Nov. 1994. - -Thu Dec 15 14:33:55 EST 1994 - New command-line option -Idir specifies directories in which to -look for non-absolute include files (after looking in the directory -of the current input file). There can be several -Idir options, each -specifying one directory. All -Idir options are considered, from -left to right, until a suitably named file is found. The -I2 and -I4 -command-line options have precedence, so directories named 2 or 4 -must be spelled by some circumlocation, such as -I./2 . - f2c.ps updated to mention the new -Idir option, correct a typo, -and bring the man page at the end up to date. - lex.c: fix bug in reading line numbers in #line lines. - fc updated to pass -Idir options to f2c. - -Thu Dec 29 09:48:03 EST 1994 - Fix bug (e.g., addressing fault) in diagnosing inconsistency in -the type of function eta in the following example: - function foo(c1,c2) - double complex foo,c1,c2 - double precision eta - foo = eta(c1,c2) - end - function eta(c1,c2) - double complex eta,c1,c2 - eta = c1*c2 - end - -Mon Jan 2 13:27:26 EST 1995 - Retain casts for SNGL (or FLOAT) that were erroneously optimized -away. Example: - subroutine foo(a,b) - double precision a,b - a = float(b) ! now rendered as *a = (real) (*b); - end - Use float (rather than double) temporaries in certain expressions -of type complex. Example: the temporary for sngl(b) in - complex a - double precision b - a = sngl(b) - (3.,4.) -is now of type float. - -Fri Jan 6 00:00:27 EST 1995 - Adjust intrinsic function cmplx to act as dcmplx (returning -double complex rather than complex) if either of its args is of -type double precision. The double temporaries used prior to 2 Jan. -1995 previously gave it this same behavior. - -Thu Jan 12 12:31:35 EST 1995 - Adjust -krd to use double temporaries in some calculations of -type complex. - libf77: pow_[dhiqrz][hiq].c: adjust x**i to work on machines -that sign-extend right shifts when i is the most negative integer. - -Wed Jan 25 00:14:42 EST 1995 - Fix memory fault in handling overlapping initializations in - block data - common /zot/ d - double precision d(3) - character*6 v(4) - real r(2) - equivalence (d(3),r(1)), (d(1),v(1)) - data v/'abcdef', 'ghijkl', 'mnopqr', 'stuvwx'/ - data r/4.,5./ - end - names.c: add "far", "huge", "near" to c_keywords (causing them -to have __ appended when used as local variables). - libf77: add s_copyow.c, an alternative to s_copy.c for handling -(illegal) character assignments where the right- and left-hand -sides overlap, as in a(2:4) = a(1:3). - -Thu Jan 26 14:21:19 EST 1995 - libf77: roll s_catow.c and s_copyow.c into s_cat.c and s_copy.c, -respectively, allowing the left-hand side of a character assignment -to appear on its right-hand side unless s_cat.c and s_copy.c are -compiled with -DNO_OVERWRITE (which is a bit more efficient). -Fortran 77 forbids the left-hand side from participating in the -right-hand side (of a character assignment), but Fortran 90 allows it. - libi77: wref.c: fix glitch in printing the exponent of 0 when -GOOD_SPRINTF_EXPONENT is not #defined. - -Fri Jan 27 12:25:41 EST 1995 - Under -C++ -ec (or -C++ -e1c), surround struct declarations with - #ifdef __cplusplus - extern "C" { - #endif -and - #ifdef __cplusplus - } - #endif -(This isn't needed with cfront, but apparently is necessary with -some other C++ compilers.) - libf77: minor tweak to s_copy.c: copy forward whenever possible -(for better cache behavior). - -Wed Feb 1 10:26:12 EST 1995 - Complain about parameter statements that assign values to dummy -arguments, as in - subroutine foo(x) - parameter(x = 3.4) - end - -Sat Feb 4 20:22:02 EST 1995 - fc: omit "lib=/lib/num/lib.lo". - -Wed Feb 8 08:41:14 EST 1995 - Minor changes to exec.c, putpcc.c to avoid "bad tag" or "error -in frexpr" with certain invalid Fortran. - -Sat Feb 11 08:57:39 EST 1995 - Complain about integer overflows, both in simplifying integer -expressions, and in converting integers from decimal to binary. - Fix a memory fault in putcx1() associated with invalid input. - -Thu Feb 23 11:20:59 EST 1995 - Omit MAXTOKENLEN; realloc token if necessary (to handle very long -strings). - -Fri Feb 24 11:02:00 EST 1995 - libi77: iio.c: z_getc: insert (unsigned char *) to allow internal -reading of characters with high-bit set (on machines that sign-extend -characters). - -Tue Mar 14 18:22:42 EST 1995 - Fix glitch (in io.c) in handling 0-length strings in format -statements, as in - write(*,10) - 10 format(' ab','','cd') - libi77: lread.c and rsfe.c: adjust s_rsle and s_rsfe to check for -end-of-file (to prevent infinite loops with empty read statements). - -Wed Mar 22 10:01:46 EST 1995 - f2c.ps: adjust discussion of -P on p. 7 to reflect a change made -3 Feb. 1993: -P no longer implies -A. - -Fri Apr 21 18:35:00 EDT 1995 - fc script: remove absolute paths (since PATH specifies only standard -places). On most systems, it's still necessary to adjust the PATH -assignment at the start of fc to fit the local conventions. - -Fri May 26 10:03:17 EDT 1995 - fc script: add recognition of -P and .P files. - libi77: iio.c: z_wnew: fix bug in handling T format items in internal -writes whose last item is written to an earlier position than some -previous item. - -Wed May 31 11:39:48 EDT 1995 - libf77: added subroutine exit(rc) (with integer return code rc), -which works like a stop statement but supplies rc as the program's -return code. - -Fri Jun 2 11:56:50 EDT 1995 - Fix memory fault in - parameter (x=2.) - data x /2./ - end -This now elicits two error messages; the second ("too many -initializers"), though not desirable, seems hard to eliminate -without considerable hassle. - -Mon Jul 17 23:24:20 EDT 1995 - Fix botch in simplifying constants in certain complex -expressions. Example: - subroutine foo(s,z) - double complex z - double precision s, M, P - parameter ( M = 100.d0, P = 2.d0 ) - z = M * M / s * dcmplx (1.d0, P/M) -*** The imaginary part of z was miscomputed *** - end - Under -ext, complain about nonintegral dimensions. - -Fri Jul 21 11:18:36 EDT 1995 - Fix glitch on line 159 of init.c: change - "(shortlogical *)0)", -to - "(shortlogical *)0", -This affects multiple entry points when some but not all have -arguments of type logical*2. - libi77: adjust lwrite.c, wref.c, wrtfmt.c so compiling with --DWANT_LEAD_0 causes formatted writes of floating-point numbers of -magnitude < 1 to have an explicit 0 before the decimal point (if the -field-width permits it). Note that the Fortran 77 Standard leaves it -up to the implementation whether to supply these superfluous zeros. - -Tue Aug 1 09:25:56 EDT 1995 - Permit real (or double precision) parameters in dimension expressions. - -Mon Aug 7 08:04:00 EDT 1995 - Append "_eqv" rather than just "_" to names that that appear in -EQUIVALENCE statements as well as structs in f2c.h (to avoid a -conflict when these names also name common blocks). - -Tue Aug 8 12:49:02 EDT 1995 - Modify yesterday's change: merge st_fields with c_keywords, to -cope with equivalences introduced to permit initializing numeric -variables with character data. DATA statements causing these -equivalences can appear after executable statements, so the only -safe course is to rename all local variable with names in the -former st_fields list. This has the unfortunate side effect that -the common local variable "i" will henceforth be renamed "i__". - -Wed Aug 30 00:19:32 EDT 1995 - libf77: add F77_aloc, now used in s_cat and system_ (to allocate -memory and check for failure in so doing). - libi77: improve MSDOS logic in backspace.c. - -Wed Sep 6 09:06:19 EDT 1995 - libf77: Fix return type of system_ (integer) under -DKR_headers. - libi77: Move some f_init calls around for people who do not use -libF77's main(); now open and namelist read statements that are the -first I/O statements executed should work right in that context. -Adjust namelist input to treat a subscripted name whose subscripts do -not involve colons similarly to the name without a subscript: accept -several values, stored in successive elements starting at the -indicated subscript. Adjust namelist output to quote character -strings (avoiding confusion with arrays of character strings). - -Thu Sep 7 00:36:04 EDT 1995 - Fix glitch in integer*8 exponentiation function: it's pow_qq, not -pow_qi. - libi77: fix some bugs with -DAllow_TYQUAD (for integer*8); when -looking for the &name that starts NAMELIST input, treat lines whose -first nonblank character is something other than &, $, or ? as -comment lines (i.e., ignore them), unless rsne.c is compiled with --DNo_Namelist_Comments. - -Thu Sep 7 09:05:40 EDT 1995 - libi77: rdfmt.c: one more tweak for -DAllow_TYQUAD. - -Tue Sep 19 00:03:02 EDT 1995 - Adjust handling of floating-point subscript bounds (a questionable -f2c extension) so subscripts in the generated C are of integral type. - Move #define of roundup to proc.c (where its use is commented out); -version.c left at 19950918. - -Wed Sep 20 17:24:19 EDT 1995 - Fix bug in handling ichar() under -h. - -Thu Oct 5 07:52:56 EDT 1995 - libi77: wrtfmt.c: fix bug with t editing (f__cursor was not always -zeroed in mv_cur). - -Tue Oct 10 10:47:54 EDT 1995 - Under -ext, warn about X**-Y and X**+Y. Following the original f77, -f2c treats these as X**(-Y) and X**(+Y), respectively. (They are not -allowed by the official Fortran 77 Standard.) Some Fortran compilers -give a bizarre interpretation to larger contexts, making multiplication -noncommutative: they treat X**-Y*Z as X**(-Y*Z) rather than X**(-Y)*Z, -which, following the rules of Fortran 77, is the same as (X**(-Y))*Z. - -Wed Oct 11 13:27:05 EDT 1995 - libi77: move defs of f__hiwater, f__svic, f__icptr from wrtfmt.c -to err.c. This should work around a problem with buggy loaders and -sometimes leads to smaller executable programs. - -Sat Oct 21 23:54:22 EDT 1995 - Under -h, fix bug in the treatment of ichar('0') in arithmetic -expressions. - Demote to -dneg (a new command-line option not mentioned in the -man page) imitation of the original f77's treatment of unary minus -applied to a REAL operand (yielding a DOUBLE PRECISION result). -Previously this imitation (which was present for debugging) occurred -under (the default) -!R. It is still suppressed by -R. - -Tue Nov 7 23:52:57 EST 1995 - Adjust assigned GOTOs to honor SAVE declarations. - Add comments about ranlib to lib[FI]77/README and makefile. - -Tue Dec 19 22:54:06 EST 1995 - libf77: s_cat.c: fix bug when 2nd or later arg overlaps lhs. - -Tue Jan 2 17:54:00 EST 1996 - libi77: rdfmt.c: move #include "ctype.h" up before "stdlib.h"; no -change to Version.c. - -Sun Feb 25 22:20:20 EST 1996 - Adjust expr.c to permit raising the integer constants 1 and -1 to -negative constant integral powers. - Avoid faulting when -T and -d are not followed by a directory name -(immediately, without intervening spaces). - -Wed Feb 28 12:49:01 EST 1996 - Fix a glitch in handling complex parameters assigned a "wrong" type. -Example: - complex d, z - parameter(z = (0d0,0d0)) - data d/z/ ! elicited "non-constant initializer" - call foo(d) - end - -Thu Feb 29 00:53:12 EST 1996 - Fix bug in handling character parameters assigned a char() value. -Example: - character*2 b,c - character*1 esc - parameter(esc = char(27)) - integer i - data (b(i:i),i=1,2)/esc,'a'/ - data (c(i:i),i=1,2)/esc,'b'/ ! memory fault - call foo(b,c) - end - -Fri Mar 1 23:44:51 EST 1996 - Fix glitch in evaluating .EQ. and .NE. when both operands are -logical constants (.TRUE. or .FALSE.). - -Fri Mar 15 17:29:54 EST 1996 - libi77: lread.c, rsfe.c: honor END= in READ stmts with empty iolist. - -Tue Mar 19 23:08:32 EST 1996 - lex.c: arrange for a "statement" consisting of a single short bogus -keyword to elicit an error message showing the whole keyword. The -error message formerly omitted the last letter of the bad keyword. - libf77: s_cat.c: supply missing break after overlap detection. - -Mon May 13 23:35:26 EDT 1996 - Recognize Fortran 90's /= as a synonym for .NE.. (<> remains a -synonym for .NE..) - Emit an empty int function of no arguments to supply an external -name to named block data subprograms (so they can be called somewhere -to force them to be loaded from a library). - Fix bug (memory fault) in handling the following illegal Fortran: - parameter(i=1) - equivalence(i,j) - end - Treat cdabs, cdcos, cdexp, cdlog, cdsin, and cdsqrt as synonyms for -the double complex intrinsics zabs, zcos, zexp, zlog, zsin, and zsqrt, -respectively, unless -cd is specified. - Recognize the Fortran 90 bit-manipulation intrinsics btest, iand, -ibclr, ibits, ibset, ieor, ior, ishft, and ishftc, unless -i90 is -specified. Note that iand, ieor, and ior are thus now synonyms for -"and", "xor", and "or", respectively. - Add three macros (bit_test, bit_clear, bit_set) to f2c.h for use -with btest, ibclr, and ibset, respectively. Add new functions -[lq]bit_bits, [lq]bit_shift, and [lq]_bit_cshift to libF77 for -use with ibits, ishft, and ishftc, respectively. - Add integer function ftell(unit) (returning -1 on error) and -subroutine fseek(unit, offset, whence, *) to libI77 (with branch to -label * on error). - -Tue May 14 23:21:12 EDT 1996 - Fix glitch (possible memory fault, or worse) in handling multiple -entry points with names over 28 characters long. - -Mon Jun 10 01:20:16 EDT 1996 - Update netlib E-mail and ftp addresses in f2c/readme and -f2c/src/readme (which are different files) -- to reflect the upcoming -breakup of AT&T. - libf77: trivial tweaks to F77_aloc.c and system_.c; Version.c not -changed. - libi77: Adjust rsli.c and lread.c so internal list input with too -few items in the input string will honor end= . - -Mon Jun 10 22:59:57 EDT 1996 - Add Bits_per_Byte to sysdep.h and adjust definition of Table_size -to depend on Bits_per_Byte (forcing Table_size to be a power of 2); in -lex.c, change "comstart[c & 0xfff]" to "comstart[c & (Table_size-1)]" -to avoid an out-of-range subscript on end-of-file. - -Wed Jun 12 00:24:28 EDT 1996 - Fix bug in output.c (dereferencing a freed pointer) revealed in - print * !np in out_call in output.c clobbered by free - end !during out_expr. - -Wed Jun 19 08:12:47 EDT 1996 - f2c.h: add types uinteger, ulongint (for libF77); add qbit_clear -and qbit_set macros (in a commented-out section) for integer*8. - For integer*8, use qbit_clear and qbit_set for ibclr and ibset. - libf77: add casts to unsigned in [lq]bitshft.c. - -Thu Jun 20 13:30:43 EDT 1996 - Complain at character*(*) in common (rather than faulting). - Fix bug in recognizing hex constants that start with "16#" (e.g., -16#1234abcd, which is a synonym for z'1234abcd'). - Fix bugs in constant folding of expressions involving btest, ibclr, -and ibset. - Fix bug in constant folding of rshift(16#80000000, -31) (on a 32-bit -machine; more generally, the bug was in constant folding of -rshift(ibset(0,NBITS-1), 1-NBITS) when f2c runs on a machine with -long ints having NBITS bits. - -Mon Jun 24 07:58:53 EDT 1996 - Adjust struct Literal and newlabel() function to accommodate huge -source files (with more than 32767 newlabel() invocations). - Omit .c file when the .f file has a missing final end statement. - -Wed Jun 26 14:00:02 EDT 1996 - libi77: Add discussion of MXUNIT (highest allowed Fortran unit number) -to libI77/README. - -Fri Jun 28 14:16:11 EDT 1996 - Fix glitch with -onetrip: the temporary variable used for nonconstant -initial loop variable values was recycled too soon. Example: - do i = j+1, k - call foo(i+1) ! temp for j+1 was reused here - enddo - end - -Tue Jul 2 16:11:27 EDT 1996 - formatdata.c: add a 0 to the end of the basetype array (for TYBLANK) -(an omission that was harmless on most machines). - expr.c: fix a dereference of NULL that was only possible with buggy -input, such as - subroutine $sub(s) ! the '$' is erroneous - character s*(*) - s(1:) = ' ' - end - -Sat Jul 6 00:44:56 EDT 1996 - Fix glitch in the intrinsic "real" function when applied to a -complex (or double complex) variable and passed as an argument to -some intrinsic functions. Example: - complex a - b = sqrt(a) - end - Fix glitch (only visible if you do not use f2c's malloc and the -malloc you do use is defective in the sense that malloc(0) returns 0) -in handling include files that end with another include (perhaps -followed by comments). - Fix glitch with character*(*) arguments named "h" and "i" when -the body of the subroutine invokes the intrinsic LEN function. - Arrange that after a previous "f2c -P foo.f" has produced foo.P, -running "f2c foo.P foo.f" will produce valid C when foo.f contains - call sub('1234') - end - subroutine sub(msg) - end -Specifically, the length argument in "call sub" is now suppressed. -With or without foo.P, it is also now suppressed when the order of -subprograms in file foo.f is reversed: - subroutine sub(msg) - end - call sub('1234') - end - Adjust copyright notices to reflect AT&T breakup. - -Wed Jul 10 09:25:49 EDT 1996 - Fix bug (possible memory fault) in handling erroneously placed -and inconsistent declarations. Example that faulted: - character*1 w(8) - call foo(w) - end - subroutine foo(m) - data h /0.5/ - integer m(2) ! should be before data - end - Fix bug (possible fault) in handling illegal "if" constructions. -Example (that faulted): - subroutine foo(i,j) - if (i) then ! bug: i is integer, not logical - else if (j) then ! bug: j is integer, not logical - endif - end - Fix glitch with character*(*) argument named "ret_len" to a -character*(*) function. - -Wed Jul 10 23:04:16 EDT 1996 - Fix more glitches in the intrinsic "real" function when applied to a -complex (or double complex) variable and passed as an argument to -some intrinsic functions. Example: - complex a, b - r = sqrt(real(conjg(a))) + sqrt(real(a*b)) - end - -Thu Jul 11 17:27:16 EDT 1996 - Fix a memory fault associated with complicated, illegal input. -Example: - subroutine goo - character a - call foo(a) ! inconsistent with subsequent def and call - end - subroutine foo(a) - end - call foo(a) - end - -Wed Jul 17 19:18:28 EDT 1996 - Fix yet another case of intrinsic "real" applied to a complex -argument. Example: - complex a(3) - x = sqrt(real(a(2))) ! gave error message about bad tag - end - -Mon Aug 26 11:28:57 EDT 1996 - Tweak sysdep.c for non-Unix systems in which process ID's can be -over 5 digits long. - -Tue Aug 27 08:31:32 EDT 1996 - Adjust the ishft intrinsic to use unsigned right shifts. (Previously, -a negative constant second operand resulted in a possibly signed shift.) - -Thu Sep 12 14:04:07 EDT 1996 - equiv.c: fix glitch with -DKR_headers. - libi77: fmtlib.c: fix bug in printing the most negative integer. - -Fri Sep 13 08:54:40 EDT 1996 - Diagnose some illegal appearances of substring notation. - -Tue Sep 17 17:48:09 EDT 1996 - Fix fault in handling some complex parameters. Example: - subroutine foo(a) - double complex a, b - parameter(b = (0,1)) - a = b ! f2c faulted here - end - -Thu Sep 26 07:47:10 EDT 1996 - libi77: fmt.h: for formatted writes of negative integer*1 values, -make ic signed on ANSI systems. If formatted writes of integer*1 -values trouble you when using a K&R C compiler, switch to an ANSI -compiler or use a compiler flag that makes characters signed. - -Tue Oct 1 14:41:36 EDT 1996 - Give a better error message when dummy arguments appear in data -statements. - -Thu Oct 17 13:37:22 EDT 1996 - Fix bug in typechecking arguments to character and complex (or -double complex) functions; the bug could cause length arguments -for character arguments to be omitted on invocations appearing -textually after the first invocation. For example, in - subroutine foo - character c - complex zot - call goo(zot(c), zot(c)) - end -the length was omitted from the second invocation of zot, and -there was an erroneous error message about inconsistent calling -sequences. - -Wed Dec 4 13:59:14 EST 1996 - Fix bug revealed by - subroutine test(cdum,rdum) - complex cdum - rdum=cos(real(cdum)) ! "Unexpected tag 3 in opconv_fudge" - end - Fix glitch in parsing "DO 10 D0 = 1, 10". - Fix glitch in parsing - real*8 x - real*8 x ! erroneous "incompatible type" message - call foo(x) - end - -Mon Dec 9 23:15:02 EST 1996 - Fix glitch in parameter adjustments for arrays whose lower -bound depends on a scalar argument. Example: - subroutine bug(p,z,m,n) - integer z(*),m,n - double precision p(z(m):z(m) + n) ! p_offset botched - call foo(p(0), p(n)) - end - libi77: complain about non-positive rec= in direct read and write -statements. - libf77: trivial adjustments; Version.c not changed. - -Wed Feb 12 00:18:03 EST 1997 - output.c: fix (seldom problematic) glitch in out_call: put parens -around the ... in a test of the form "if (q->tag == TADDR && ...)". - vax.c: fix bug revealed in the "psi_offset =" assignment in the -following example: - subroutine foo(psi,m) - integer z(100),m - common /a/ z - double precision psi(z(m):z(m) + 10) - call foo(m+1, psi(0),psi(10)) - end - -Mon Feb 24 23:44:54 EST 1997 - For consistency with f2c's current treatment of adjacent character -strings in FORMAT statements, recognize a Hollerith string following -a string (and merge adjacent strings in FORMAT statements). - -Wed Feb 26 13:41:11 EST 1997 - New libf2c.zip, a combination of the libf77 and libi77 bundles (and -available only by ftp). - libf77: adjust functions with a complex output argument to permit -aliasing it with input arguments. (For now, at least, this is just -for possible benefit of g77.) - libi77: tweak to ftell_.c for systems with strange definitions of -SEEK_SET, etc. - -Tue Apr 8 20:57:08 EDT 1997 - libf77: [cz]_div.c: tweaks invisible on most systems (that may -improve things slightly with optimized compilation on systems that use -gratuitous extra precision). - libi77: fmt.c: adjust to complain at missing numbers in formats -(but still treat missing ".nnn" as ".0"). - -Fri Apr 11 14:05:57 EDT 1997 - libi77: err.c: attempt to make stderr line buffered rather than -fully buffered. (Buffering is needed for format items T and TR.) - -Thu Apr 17 22:42:43 EDT 1997 - libf77: add F77_aloc.o to makefile (and makefile.u in libf2c.zip). - -Fri Apr 25 19:32:09 EDT 1997 - libf77: add [de]time_.c (which may give trouble on some systems). - -Tue May 27 09:18:52 EDT 1997 - libi77: ftell_.c: fix typo that caused the third argument to be -treated as 2 on some systems. - -Mon Jun 9 00:04:37 EDT 1997 - libi77 (and libf2c.zip): adjust include order in err.c lread.c wref.c -rdfmt.c to include fmt.h (etc.) after system includes. Version.c not -changed. - -Mon Jul 21 16:04:54 EDT 1997 - proc.c: fix glitch in logic for "nonpositive dimension" message. - libi77: inquire.c: always include string.h (for possible use with --DNON_UNIX_STDIO); Version.c not changed. - -Thu Jul 24 17:11:23 EDT 1997 - Tweak "Notice" to reflect the AT&T breakup -- we missed it when -updating the copyright notices in the source files last summer. - Adjust src/makefile so malloc.o is not used by default, but can -be specified with "make MALLOC=malloc.o". - Add comments to src/README about the "CRAY" T3E. - -Tue Aug 5 14:53:25 EDT 1997 - Add definition of calloc to malloc.c; this makes f2c's malloc -work on some systems where trouble hitherto arose because references -to calloc brought in the system's malloc. (On sensible systems, -calloc is defined separately from malloc. To avoid confusion on -other systems, f2c/malloc.c now defines calloc.) - libi77: lread.c: adjust to accord with a change to the Fortran 8X -draft (in 1990 or 1991) that rescinded permission to elide quote marks -in namelist input of character data; to get the old behavior, compile -with F8X_NML_ELIDE_QUOTES #defined. wrtfmt.o: wrt_G: tweak to print -the right number of 0's for zero under G format. - -Sat Aug 16 05:45:32 EDT 1997 - libi77: iio.c: fix bug in internal writes to an array of character -strings that sometimes caused one more array element than required by -the format to be blank-filled. Example: format(1x). - -Wed Sep 17 00:39:29 EDT 1997 - libi77: fmt.[ch] rdfmt.c wrtfmt.c: tweak struct syl for machines -with 64-bit pointers and 32-bit ints that did not 64-bit align -struct syl (e.g., Linux on the DEC Alpha). This change should be -invisible on other machines. - -Sun Sep 21 22:05:19 EDT 1997 - libf77: [de]time_.c (Unix systems only): change return type to double. - -Thu Dec 4 22:10:09 EST 1997 - Fix bug with handling large blocks of comments (over 4k); parts of the -second and subsequent blocks were likely to be lost (not copied into -comments in the resulting C). Allow comment lines to be longer before -breaking them. - -Mon Jan 19 17:19:27 EST 1998 - makefile: change the rule for making gram.c to one for making gram1.c; -henceforth, asking netlib to "send all from f2c/src" will bring you a -working gram.c. Nowadays there are simply too many broken versions of -yacc floating around. - libi77: backspace.c: for b->ufmt==0, change sizeof(int) to -sizeof(uiolen). On machines where this would make a difference, it is -best for portability to compile libI77 with -DUIOLEN_int, which will -render the change invisible. - -Tue Feb 24 08:35:33 EST 1998 - makefile: remove gram.c from the "make clean" rule. - -Wed Feb 25 08:29:39 EST 1998 - makefile: change CFLAGS assignment to -O; add "veryclean" rule. - -Wed Mar 4 13:13:21 EST 1998 - libi77: open.c: fix glitch in comparing file names under --DNON_UNIX_STDIO. - -Mon Mar 9 23:56:56 EST 1998 - putpcc.c: omit an unnecessary temporary variable in computing -(expr)**3. - libf77, libi77: minor tweaks to make some C++ compilers happy; -Version.c not changed. - -Wed Mar 18 18:08:47 EST 1998 - libf77: minor tweaks to [ed]time_.c; Version.c not changed. - libi77: endfile.c, open.c: acquire temporary files from tmpfile(), -unless compiled with -DNON_ANSI_STDIO, which uses mktemp(). -New buffering scheme independent of NON_UNIX_STDIO for handling T -format items. Now -DNON_UNIX_STDIO is no longer be necessary for -Linux, and libf2c no longer causes stderr to be buffered -- the former -setbuf or setvbuf call for stderr was to make T format items work. -open.c: use the Posix access() function to check existence or -nonexistence of files, except under -DNON_POSIX_STDIO, where trial -fopen calls are used. In open.c, fix botch in changes of 19980304. - libf2c.zip: the PC makefiles are now set for NT/W95, with comments -about changes for DOS. - -Fri Apr 3 17:22:12 EST 1998 - Adjust fix of 19960913 to again permit substring notation on -character variables in data statements. - -Sun Apr 5 19:26:50 EDT 1998 - libi77: wsfe.c: make $ format item work: this was lost in the changes -of 17 March 1998. - -Sat May 16 19:08:51 EDT 1998 - Adjust output of ftnlen constants: rather than appending L, -prepend (ftnlen). This should make the resulting C more portable, -e.g., to systems (such as DEC Alpha Unix systems) on which long -may be longer than ftnlen. - Adjust -r so it also casts REAL expressions passed to intrinsic -functions to REAL. - -Wed May 27 16:02:35 EDT 1998 - libf2c.zip: tweak description of compiling libf2c for INTEGER*8 -to accord with makefile.u rather than libF77/makefile. - -Thu May 28 22:45:59 EDT 1998 - libi77: backspace.c dfe.c due.c iio.c lread.c rsfe.c sue.c wsfe.c: -set f__curunit sooner so various error messages will correctly -identify the I/O unit involved. - libf2c.zip: above, plus tweaks to PC makefiles: for some purposes, -it's still best to compile with -DMSDOS (even for use with NT). - -Thu Jun 18 01:22:52 EDT 1998 - libi77: lread.c: modified so floating-point numbers (containing -either a decimal point or an exponent field) are treated as errors -when they appear as list input for integer data. Compile lread.c with --DALLOW_FLOAT_IN_INTEGER_LIST_INPUT to restore the old behavior. - -Mon Aug 31 10:38:54 EDT 1998 - formatdata.c: if possible, and assuming doubles must be aligned on -double boundaries, use existing holes in DATA for common blocks to -force alignment of the block. For example, - block data - common /abc/ a, b - double precision a - integer b(2) - data b(2)/1/ - end -used to generate - struct { - integer fill_1[3]; - integer e_2; - doublereal e_3; - } abc_ = { {0}, 1, 0. }; -and now generates - struct { - doublereal fill_1[1]; - integer fill_2[1]; - integer e_3; - } abc_ = { {0}, {0}, 1 }; -In the old generated C, e_3 was added to force alignment; in the new C, -fill_1 does this job. - -Mon Sep 7 19:48:51 EDT 1998 - libi77: move e_wdfe from sfe.c to dfe.c, where it was originally. -Why did it ever move to sfe.c? - -Tue Sep 8 10:22:50 EDT 1998 - Treat dreal as a synonym for dble unless -cd is specified on the -command line. - -Sun Sep 13 22:23:41 EDT 1998 - format.c: fix bug in writing prototypes under f2c -A ... *.P: -under some circumstances involving external functions with no known -type, a null pointer was passed to printf. - -Tue Oct 20 23:25:54 EDT 1998 - Comments added to libf2c/README and libF77/README, pointing out -the need to modify signal1.h on some systems. - -Wed Feb 10 22:59:52 EST 1999 - defs.h lex.c: permit long names (up to at least roughly -MAX_SHARPLINE_LEN = 1000 characters long) in #line lines (which only -matters under -g). - fc: add -U option; recognize .so files. - -Sat Feb 13 10:18:27 EST 1999 - libf2c: endfile.c, lread.c, signal1.h0: minor tweaks to make some -(C++) compilers happier; f77_aloc.c: make exit_() visible to C++ -compilers. Version strings not changed. - -Thu Mar 11 23:14:02 EST 1999 - Modify f2c (exec.c, expr.c) to diagnose incorrect mixing of types -when (f2c extended) intrinsic functions are involved, as in -(not(17) .and. 4). Catching this in the first executable statement -is a bit tricky, as some checking must be postponed until all statement -function declarations have been parsed. Thus there is a chance of -today's changes introducing bugs under (let us hope) unusual conditions. - -Sun Mar 28 13:17:44 EST 1999 - lex.c: tweak to get the file name right in error messages caused -by statements just after a # nnn "filename" line emitted by the C -preprocessor. (The trouble is that the line following the # nnn line -must be read to see if it is a continuation of the stuff that preceded -the # nnn line.) When # nnn "filename" lines appear among the lines -for a Fortran statement, the filename reported in an error message for -the statement should now be the file that was current when the first -line of the statement was read. - -Sun May 2 22:38:25 EDT 1999 - libf77, libi77, libf2c.zip: make getenv_() more portable (call -getenv() rather than knowing about char **environ); adjust some -complex intrinsics to work with overlapping arguments (caused by -inappropriate use of equivalence); open.c: get "external" versus -"internal" right in the error message if a file cannot be opened; -err.c: cast a pointer difference to (int) for %d; rdfmt.c: omit -fixed-length buffer that could be overwritten by formats Inn or Lnn -with nn > 83. - -Mon May 3 13:14:07 EDT 1999 - "Invisible" changes to omit a few compiler warnings in f2c and -libf2c; two new casts in libf2c/open.c that matter with 64-bit longs, -and one more tweak (libf2c/c_log.c) for pathological equivalences. - Minor update to "fc" script: new -L flag and comment correction. - -Fri Jun 18 02:33:08 EDT 1999 - libf2c.zip: rename backspace.c backspac.c, and fix a glitch in it --- b->ufd may change in t_runc(). (For now, it's still backspace.c -in the libi77 bundle.) - -Sun Jun 27 22:05:47 EDT 1999 - libf2c.zip, libi77: rsne.c: fix bug in namelist input: a misplaced -increment could cause wrong array elements to be assigned; e.g., -"&input k(5)=10*1 &end" assigned k(5) and k(15 .. 23). diff --git a/gnu/lib/libf2c/config.guess b/gnu/lib/libf2c/config.guess deleted file mode 100755 index c989465abca..00000000000 --- a/gnu/lib/libf2c/config.guess +++ /dev/null @@ -1,1356 +0,0 @@ -#! /bin/sh -# Attempt to guess a canonical system name. -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -# 2000, 2001, 2002, 2003 Free Software Foundation, Inc. - -timestamp='2003-01-30' - -# This file is free software; you can redistribute it and/or modify it -# under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. -# -# As a special exception to the GNU General Public License, if you -# distribute this file as part of a program that contains a -# configuration script generated by Autoconf, you may include it under -# the same distribution terms that you use for the rest of that program. - -# Originally written by Per Bothner <per@bothner.com>. -# Please send patches to <config-patches@gnu.org>. Submit a context -# diff and a properly formatted ChangeLog entry. -# -# This script attempts to guess a canonical system name similar to -# config.sub. If it succeeds, it prints the system name on stdout, and -# exits with 0. Otherwise, it exits with 1. -# -# The plan is that this can be called by configure scripts if you -# don't specify an explicit build system type. - -me=`echo "$0" | sed -e 's,.*/,,'` - -usage="\ -Usage: $0 [OPTION] - -Output the configuration name of the system \`$me' is run on. - -Operation modes: - -h, --help print this help, then exit - -t, --time-stamp print date of last modification, then exit - -v, --version print version number, then exit - -Report bugs and patches to <config-patches@gnu.org>." - -version="\ -GNU config.guess ($timestamp) - -Originally written by Per Bothner. -Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -Free Software Foundation, Inc. - -This is free software; see the source for copying conditions. There is NO -warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." - -help=" -Try \`$me --help' for more information." - -# Parse command line -while test $# -gt 0 ; do - case $1 in - --time-stamp | --time* | -t ) - echo "$timestamp" ; exit 0 ;; - --version | -v ) - echo "$version" ; exit 0 ;; - --help | --h* | -h ) - echo "$usage"; exit 0 ;; - -- ) # Stop option processing - shift; break ;; - - ) # Use stdin as input. - break ;; - -* ) - echo "$me: invalid option $1$help" >&2 - exit 1 ;; - * ) - break ;; - esac -done - -if test $# != 0; then - echo "$me: too many arguments$help" >&2 - exit 1 -fi - -trap 'exit 1' 1 2 15 - -# CC_FOR_BUILD -- compiler used by this script. Note that the use of a -# compiler to aid in system detection is discouraged as it requires -# temporary files to be created and, as you can see below, it is a -# headache to deal with in a portable fashion. - -# Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still -# use `HOST_CC' if defined, but it is deprecated. - -# Portable tmp directory creation inspired by the Autoconf team. - -set_cc_for_build=' -trap "exitcode=\$?; (rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null) && exit \$exitcode" 0 ; -trap "rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null; exit 1" 1 2 13 15 ; -: ${TMPDIR=/tmp} ; - { tmp=`(umask 077 && mktemp -d -q "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } || - { test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir $tmp) ; } || - { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } ; -dummy=$tmp/dummy ; -tmpfiles="$dummy.c $dummy.o $dummy.rel $dummy" ; -case $CC_FOR_BUILD,$HOST_CC,$CC in - ,,) echo "int x;" > $dummy.c ; - for c in cc gcc c89 c99 ; do - if ($c -c -o $dummy.o $dummy.c) >/dev/null 2>&1 ; then - CC_FOR_BUILD="$c"; break ; - fi ; - done ; - if test x"$CC_FOR_BUILD" = x ; then - CC_FOR_BUILD=no_compiler_found ; - fi - ;; - ,,*) CC_FOR_BUILD=$CC ;; - ,*,*) CC_FOR_BUILD=$HOST_CC ;; -esac ;' - -# This is needed to find uname on a Pyramid OSx when run in the BSD universe. -# (ghazi@noc.rutgers.edu 1994-08-24) -if (test -f /.attbin/uname) >/dev/null 2>&1 ; then - PATH=$PATH:/.attbin ; export PATH -fi - -UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown -UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown -UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown -UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown - -# Note: order is significant - the case branches are not exclusive. - -case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in - *:NetBSD:*:*) - # NetBSD (nbsd) targets should (where applicable) match one or - # more of the tupples: *-*-netbsdelf*, *-*-netbsdaout*, - # *-*-netbsdecoff* and *-*-netbsd*. For targets that recently - # switched to ELF, *-*-netbsd* would select the old - # object file format. This provides both forward - # compatibility and a consistent mechanism for selecting the - # object file format. - # - # Note: NetBSD doesn't particularly care about the vendor - # portion of the name. We always set it to "unknown". - sysctl="sysctl -n hw.machine_arch" - UNAME_MACHINE_ARCH=`(/sbin/$sysctl 2>/dev/null || \ - /usr/sbin/$sysctl 2>/dev/null || echo unknown)` - case "${UNAME_MACHINE_ARCH}" in - armeb) machine=armeb-unknown ;; - arm*) machine=arm-unknown ;; - sh3el) machine=shl-unknown ;; - sh3eb) machine=sh-unknown ;; - *) machine=${UNAME_MACHINE_ARCH}-unknown ;; - esac - # The Operating System including object format, if it has switched - # to ELF recently, or will in the future. - case "${UNAME_MACHINE_ARCH}" in - arm*|i386|m68k|ns32k|sh3*|sparc|vax) - eval $set_cc_for_build - if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \ - | grep __ELF__ >/dev/null - then - # Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout). - # Return netbsd for either. FIX? - os=netbsd - else - os=netbsdelf - fi - ;; - *) - os=netbsd - ;; - esac - # The OS release - # Debian GNU/NetBSD machines have a different userland, and - # thus, need a distinct triplet. However, they do not need - # kernel version information, so it can be replaced with a - # suitable tag, in the style of linux-gnu. - case "${UNAME_VERSION}" in - Debian*) - release='-gnu' - ;; - *) - release=`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` - ;; - esac - # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM: - # contains redundant information, the shorter form: - # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used. - echo "${machine}-${os}${release}" - exit 0 ;; - *:OpenBSD:*:*) - UNAME_MACHINE_ARCH=`arch | sed 's/OpenBSD.//'` - echo ${UNAME_MACHINE_ARCH}-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - *:MicroBSD:*:*) - echo ${UNAME_MACHINE}-unknown-microbsd${UNAME_RELEASE} - exit 0 ;; - alpha:OSF1:*:*) - if test $UNAME_RELEASE = "V4.0"; then - UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'` - fi - # According to Compaq, /usr/sbin/psrinfo has been available on - # OSF/1 and Tru64 systems produced since 1995. I hope that - # covers most systems running today. This code pipes the CPU - # types through head -n 1, so we only detect the type of CPU 0. - ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1` - case "$ALPHA_CPU_TYPE" in - "EV4 (21064)") - UNAME_MACHINE="alpha" ;; - "EV4.5 (21064)") - UNAME_MACHINE="alpha" ;; - "LCA4 (21066/21068)") - UNAME_MACHINE="alpha" ;; - "EV5 (21164)") - UNAME_MACHINE="alphaev5" ;; - "EV5.6 (21164A)") - UNAME_MACHINE="alphaev56" ;; - "EV5.6 (21164PC)") - UNAME_MACHINE="alphapca56" ;; - "EV5.7 (21164PC)") - UNAME_MACHINE="alphapca57" ;; - "EV6 (21264)") - UNAME_MACHINE="alphaev6" ;; - "EV6.7 (21264A)") - UNAME_MACHINE="alphaev67" ;; - "EV6.8CB (21264C)") - UNAME_MACHINE="alphaev68" ;; - "EV6.8AL (21264B)") - UNAME_MACHINE="alphaev68" ;; - "EV6.8CX (21264D)") - UNAME_MACHINE="alphaev68" ;; - "EV6.9A (21264/EV69A)") - UNAME_MACHINE="alphaev69" ;; - "EV7 (21364)") - UNAME_MACHINE="alphaev7" ;; - "EV7.9 (21364A)") - UNAME_MACHINE="alphaev79" ;; - esac - # A Vn.n version is a released version. - # A Tn.n version is a released field test version. - # A Xn.n version is an unreleased experimental baselevel. - # 1.2 uses "1.2" for uname -r. - echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[VTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` - exit 0 ;; - Alpha\ *:Windows_NT*:*) - # How do we know it's Interix rather than the generic POSIX subsystem? - # Should we change UNAME_MACHINE based on the output of uname instead - # of the specific Alpha model? - echo alpha-pc-interix - exit 0 ;; - 21064:Windows_NT:50:3) - echo alpha-dec-winnt3.5 - exit 0 ;; - Amiga*:UNIX_System_V:4.0:*) - echo m68k-unknown-sysv4 - exit 0;; - *:[Aa]miga[Oo][Ss]:*:*) - echo ${UNAME_MACHINE}-unknown-amigaos - exit 0 ;; - *:[Mm]orph[Oo][Ss]:*:*) - echo ${UNAME_MACHINE}-unknown-morphos - exit 0 ;; - *:OS/390:*:*) - echo i370-ibm-openedition - exit 0 ;; - arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) - echo arm-acorn-riscix${UNAME_RELEASE} - exit 0;; - SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*) - echo hppa1.1-hitachi-hiuxmpp - exit 0;; - Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*) - # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE. - if test "`(/bin/universe) 2>/dev/null`" = att ; then - echo pyramid-pyramid-sysv3 - else - echo pyramid-pyramid-bsd - fi - exit 0 ;; - NILE*:*:*:dcosx) - echo pyramid-pyramid-svr4 - exit 0 ;; - DRS?6000:UNIX_SV:4.2*:7*) - case `/usr/bin/uname -p` in - sparc) echo sparc-icl-nx7 && exit 0 ;; - esac ;; - sun4H:SunOS:5.*:*) - echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit 0 ;; - sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*) - echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit 0 ;; - i86pc:SunOS:5.*:*) - echo i386-pc-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit 0 ;; - sun4*:SunOS:6*:*) - # According to config.sub, this is the proper way to canonicalize - # SunOS6. Hard to guess exactly what SunOS6 will be like, but - # it's likely to be more like Solaris than SunOS4. - echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit 0 ;; - sun4*:SunOS:*:*) - case "`/usr/bin/arch -k`" in - Series*|S4*) - UNAME_RELEASE=`uname -v` - ;; - esac - # Japanese Language versions have a version number like `4.1.3-JL'. - echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` - exit 0 ;; - sun3*:SunOS:*:*) - echo m68k-sun-sunos${UNAME_RELEASE} - exit 0 ;; - sun*:*:4.2BSD:*) - UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null` - test "x${UNAME_RELEASE}" = "x" && UNAME_RELEASE=3 - case "`/bin/arch`" in - sun3) - echo m68k-sun-sunos${UNAME_RELEASE} - ;; - sun4) - echo sparc-sun-sunos${UNAME_RELEASE} - ;; - esac - exit 0 ;; - aushp:SunOS:*:*) - echo sparc-auspex-sunos${UNAME_RELEASE} - exit 0 ;; - # The situation for MiNT is a little confusing. The machine name - # can be virtually everything (everything which is not - # "atarist" or "atariste" at least should have a processor - # > m68000). The system name ranges from "MiNT" over "FreeMiNT" - # to the lowercase version "mint" (or "freemint"). Finally - # the system name "TOS" denotes a system which is actually not - # MiNT. But MiNT is downward compatible to TOS, so this should - # be no problem. - atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*) - echo m68k-atari-mint${UNAME_RELEASE} - exit 0 ;; - atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*) - echo m68k-atari-mint${UNAME_RELEASE} - exit 0 ;; - *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*) - echo m68k-atari-mint${UNAME_RELEASE} - exit 0 ;; - milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*) - echo m68k-milan-mint${UNAME_RELEASE} - exit 0 ;; - hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*) - echo m68k-hades-mint${UNAME_RELEASE} - exit 0 ;; - *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*) - echo m68k-unknown-mint${UNAME_RELEASE} - exit 0 ;; - powerpc:machten:*:*) - echo powerpc-apple-machten${UNAME_RELEASE} - exit 0 ;; - RISC*:Mach:*:*) - echo mips-dec-mach_bsd4.3 - exit 0 ;; - RISC*:ULTRIX:*:*) - echo mips-dec-ultrix${UNAME_RELEASE} - exit 0 ;; - VAX*:ULTRIX*:*:*) - echo vax-dec-ultrix${UNAME_RELEASE} - exit 0 ;; - 2020:CLIX:*:* | 2430:CLIX:*:*) - echo clipper-intergraph-clix${UNAME_RELEASE} - exit 0 ;; - mips:*:*:UMIPS | mips:*:*:RISCos) - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c -#ifdef __cplusplus -#include <stdio.h> /* for printf() prototype */ - int main (int argc, char *argv[]) { -#else - int main (argc, argv) int argc; char *argv[]; { -#endif - #if defined (host_mips) && defined (MIPSEB) - #if defined (SYSTYPE_SYSV) - printf ("mips-mips-riscos%ssysv\n", argv[1]); exit (0); - #endif - #if defined (SYSTYPE_SVR4) - printf ("mips-mips-riscos%ssvr4\n", argv[1]); exit (0); - #endif - #if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD) - printf ("mips-mips-riscos%sbsd\n", argv[1]); exit (0); - #endif - #endif - exit (-1); - } -EOF - $CC_FOR_BUILD -o $dummy $dummy.c \ - && $dummy `echo "${UNAME_RELEASE}" | sed -n 's/\([0-9]*\).*/\1/p'` \ - && exit 0 - echo mips-mips-riscos${UNAME_RELEASE} - exit 0 ;; - Motorola:PowerMAX_OS:*:*) - echo powerpc-motorola-powermax - exit 0 ;; - Motorola:*:4.3:PL8-*) - echo powerpc-harris-powermax - exit 0 ;; - Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*) - echo powerpc-harris-powermax - exit 0 ;; - Night_Hawk:Power_UNIX:*:*) - echo powerpc-harris-powerunix - exit 0 ;; - m88k:CX/UX:7*:*) - echo m88k-harris-cxux7 - exit 0 ;; - m88k:*:4*:R4*) - echo m88k-motorola-sysv4 - exit 0 ;; - m88k:*:3*:R3*) - echo m88k-motorola-sysv3 - exit 0 ;; - AViiON:dgux:*:*) - # DG/UX returns AViiON for all architectures - UNAME_PROCESSOR=`/usr/bin/uname -p` - if [ $UNAME_PROCESSOR = mc88100 ] || [ $UNAME_PROCESSOR = mc88110 ] - then - if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx ] || \ - [ ${TARGET_BINARY_INTERFACE}x = x ] - then - echo m88k-dg-dgux${UNAME_RELEASE} - else - echo m88k-dg-dguxbcs${UNAME_RELEASE} - fi - else - echo i586-dg-dgux${UNAME_RELEASE} - fi - exit 0 ;; - M88*:DolphinOS:*:*) # DolphinOS (SVR3) - echo m88k-dolphin-sysv3 - exit 0 ;; - M88*:*:R3*:*) - # Delta 88k system running SVR3 - echo m88k-motorola-sysv3 - exit 0 ;; - XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) - echo m88k-tektronix-sysv3 - exit 0 ;; - Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) - echo m68k-tektronix-bsd - exit 0 ;; - *:IRIX*:*:*) - echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'` - exit 0 ;; - ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX. - echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id - exit 0 ;; # Note that: echo "'`uname -s`'" gives 'AIX ' - i*86:AIX:*:*) - echo i386-ibm-aix - exit 0 ;; - ia64:AIX:*:*) - if [ -x /usr/bin/oslevel ] ; then - IBM_REV=`/usr/bin/oslevel` - else - IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} - fi - echo ${UNAME_MACHINE}-ibm-aix${IBM_REV} - exit 0 ;; - *:AIX:2:3) - if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #include <sys/systemcfg.h> - - main() - { - if (!__power_pc()) - exit(1); - puts("powerpc-ibm-aix3.2.5"); - exit(0); - } -EOF - $CC_FOR_BUILD -o $dummy $dummy.c && $dummy && exit 0 - echo rs6000-ibm-aix3.2.5 - elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then - echo rs6000-ibm-aix3.2.4 - else - echo rs6000-ibm-aix3.2 - fi - exit 0 ;; - *:AIX:*:[45]) - IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'` - if /usr/sbin/lsattr -El ${IBM_CPU_ID} | grep ' POWER' >/dev/null 2>&1; then - IBM_ARCH=rs6000 - else - IBM_ARCH=powerpc - fi - if [ -x /usr/bin/oslevel ] ; then - IBM_REV=`/usr/bin/oslevel` - else - IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} - fi - echo ${IBM_ARCH}-ibm-aix${IBM_REV} - exit 0 ;; - *:AIX:*:*) - echo rs6000-ibm-aix - exit 0 ;; - ibmrt:4.4BSD:*|romp-ibm:BSD:*) - echo romp-ibm-bsd4.4 - exit 0 ;; - ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and - echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to - exit 0 ;; # report: romp-ibm BSD 4.3 - *:BOSX:*:*) - echo rs6000-bull-bosx - exit 0 ;; - DPX/2?00:B.O.S.:*:*) - echo m68k-bull-sysv3 - exit 0 ;; - 9000/[34]??:4.3bsd:1.*:*) - echo m68k-hp-bsd - exit 0 ;; - hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) - echo m68k-hp-bsd4.4 - exit 0 ;; - 9000/[34678]??:HP-UX:*:*) - HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` - case "${UNAME_MACHINE}" in - 9000/31? ) HP_ARCH=m68000 ;; - 9000/[34]?? ) HP_ARCH=m68k ;; - 9000/[678][0-9][0-9]) - if [ -x /usr/bin/getconf ]; then - sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null` - sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null` - case "${sc_cpu_version}" in - 523) HP_ARCH="hppa1.0" ;; # CPU_PA_RISC1_0 - 528) HP_ARCH="hppa1.1" ;; # CPU_PA_RISC1_1 - 532) # CPU_PA_RISC2_0 - case "${sc_kernel_bits}" in - 32) HP_ARCH="hppa2.0n" ;; - 64) HP_ARCH="hppa2.0w" ;; - '') HP_ARCH="hppa2.0" ;; # HP-UX 10.20 - esac ;; - esac - fi - if [ "${HP_ARCH}" = "" ]; then - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - - #define _HPUX_SOURCE - #include <stdlib.h> - #include <unistd.h> - - int main () - { - #if defined(_SC_KERNEL_BITS) - long bits = sysconf(_SC_KERNEL_BITS); - #endif - long cpu = sysconf (_SC_CPU_VERSION); - - switch (cpu) - { - case CPU_PA_RISC1_0: puts ("hppa1.0"); break; - case CPU_PA_RISC1_1: puts ("hppa1.1"); break; - case CPU_PA_RISC2_0: - #if defined(_SC_KERNEL_BITS) - switch (bits) - { - case 64: puts ("hppa2.0w"); break; - case 32: puts ("hppa2.0n"); break; - default: puts ("hppa2.0"); break; - } break; - #else /* !defined(_SC_KERNEL_BITS) */ - puts ("hppa2.0"); break; - #endif - default: puts ("hppa1.0"); break; - } - exit (0); - } -EOF - (CCOPTS= $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null) && HP_ARCH=`$dummy` - test -z "$HP_ARCH" && HP_ARCH=hppa - fi ;; - esac - if [ ${HP_ARCH} = "hppa2.0w" ] - then - # avoid double evaluation of $set_cc_for_build - test -n "$CC_FOR_BUILD" || eval $set_cc_for_build - if echo __LP64__ | (CCOPTS= $CC_FOR_BUILD -E -) | grep __LP64__ >/dev/null - then - HP_ARCH="hppa2.0w" - else - HP_ARCH="hppa64" - fi - fi - echo ${HP_ARCH}-hp-hpux${HPUX_REV} - exit 0 ;; - ia64:HP-UX:*:*) - HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` - echo ia64-hp-hpux${HPUX_REV} - exit 0 ;; - 3050*:HI-UX:*:*) - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #include <unistd.h> - int - main () - { - long cpu = sysconf (_SC_CPU_VERSION); - /* The order matters, because CPU_IS_HP_MC68K erroneously returns - true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct - results, however. */ - if (CPU_IS_PA_RISC (cpu)) - { - switch (cpu) - { - case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; - case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; - case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; - default: puts ("hppa-hitachi-hiuxwe2"); break; - } - } - else if (CPU_IS_HP_MC68K (cpu)) - puts ("m68k-hitachi-hiuxwe2"); - else puts ("unknown-hitachi-hiuxwe2"); - exit (0); - } -EOF - $CC_FOR_BUILD -o $dummy $dummy.c && $dummy && exit 0 - echo unknown-hitachi-hiuxwe2 - exit 0 ;; - 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* ) - echo hppa1.1-hp-bsd - exit 0 ;; - 9000/8??:4.3bsd:*:*) - echo hppa1.0-hp-bsd - exit 0 ;; - *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*) - echo hppa1.0-hp-mpeix - exit 0 ;; - hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* ) - echo hppa1.1-hp-osf - exit 0 ;; - hp8??:OSF1:*:*) - echo hppa1.0-hp-osf - exit 0 ;; - i*86:OSF1:*:*) - if [ -x /usr/sbin/sysversion ] ; then - echo ${UNAME_MACHINE}-unknown-osf1mk - else - echo ${UNAME_MACHINE}-unknown-osf1 - fi - exit 0 ;; - parisc*:Lites*:*:*) - echo hppa1.1-hp-lites - exit 0 ;; - C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) - echo c1-convex-bsd - exit 0 ;; - C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*) - if getsysinfo -f scalar_acc - then echo c32-convex-bsd - else echo c2-convex-bsd - fi - exit 0 ;; - C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*) - echo c34-convex-bsd - exit 0 ;; - C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) - echo c38-convex-bsd - exit 0 ;; - C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) - echo c4-convex-bsd - exit 0 ;; - CRAY*Y-MP:*:*:*) - echo ymp-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit 0 ;; - CRAY*[A-Z]90:*:*:*) - echo ${UNAME_MACHINE}-cray-unicos${UNAME_RELEASE} \ - | sed -e 's/CRAY.*\([A-Z]90\)/\1/' \ - -e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \ - -e 's/\.[^.]*$/.X/' - exit 0 ;; - CRAY*TS:*:*:*) - echo t90-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit 0 ;; - CRAY*T3E:*:*:*) - echo alphaev5-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit 0 ;; - CRAY*SV1:*:*:*) - echo sv1-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit 0 ;; - *:UNICOS/mp:*:*) - echo nv1-cray-unicosmp${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit 0 ;; - F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*) - FUJITSU_PROC=`uname -m | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` - FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'` - FUJITSU_REL=`echo ${UNAME_RELEASE} | sed -e 's/ /_/'` - echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" - exit 0 ;; - i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*) - echo ${UNAME_MACHINE}-pc-bsdi${UNAME_RELEASE} - exit 0 ;; - sparc*:BSD/OS:*:*) - echo sparc-unknown-bsdi${UNAME_RELEASE} - exit 0 ;; - *:BSD/OS:*:*) - echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} - exit 0 ;; - *:FreeBSD:*:*) - # Determine whether the default compiler uses glibc. - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #include <features.h> - #if __GLIBC__ >= 2 - LIBC=gnu - #else - LIBC= - #endif -EOF - eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^LIBC=` - echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`${LIBC:+-$LIBC} - exit 0 ;; - i*:CYGWIN*:*) - echo ${UNAME_MACHINE}-pc-cygwin - exit 0 ;; - i*:MINGW*:*) - echo ${UNAME_MACHINE}-pc-mingw32 - exit 0 ;; - i*:PW*:*) - echo ${UNAME_MACHINE}-pc-pw32 - exit 0 ;; - x86:Interix*:3*) - echo i586-pc-interix3 - exit 0 ;; - [345]86:Windows_95:* | [345]86:Windows_98:* | [345]86:Windows_NT:*) - echo i${UNAME_MACHINE}-pc-mks - exit 0 ;; - i*:Windows_NT*:* | Pentium*:Windows_NT*:*) - # How do we know it's Interix rather than the generic POSIX subsystem? - # It also conflicts with pre-2.0 versions of AT&T UWIN. Should we - # UNAME_MACHINE based on the output of uname instead of i386? - echo i586-pc-interix - exit 0 ;; - i*:UWIN*:*) - echo ${UNAME_MACHINE}-pc-uwin - exit 0 ;; - p*:CYGWIN*:*) - echo powerpcle-unknown-cygwin - exit 0 ;; - prep*:SunOS:5.*:*) - echo powerpcle-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit 0 ;; - *:GNU:*:*) - echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'` - exit 0 ;; - i*86:Minix:*:*) - echo ${UNAME_MACHINE}-pc-minix - exit 0 ;; - arm*:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit 0 ;; - ia64:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit 0 ;; - m68*:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit 0 ;; - mips:Linux:*:*) - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #undef CPU - #undef mips - #undef mipsel - #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) - CPU=mipsel - #else - #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) - CPU=mips - #else - CPU= - #endif - #endif -EOF - eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^CPU=` - test x"${CPU}" != x && echo "${CPU}-unknown-linux-gnu" && exit 0 - ;; - mips64:Linux:*:*) - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #undef CPU - #undef mips64 - #undef mips64el - #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) - CPU=mips64el - #else - #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) - CPU=mips64 - #else - CPU= - #endif - #endif -EOF - eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^CPU=` - test x"${CPU}" != x && echo "${CPU}-unknown-linux-gnu" && exit 0 - ;; - ppc:Linux:*:*) - echo powerpc-unknown-linux-gnu - exit 0 ;; - ppc64:Linux:*:*) - echo powerpc64-unknown-linux-gnu - exit 0 ;; - alpha:Linux:*:*) - case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` in - EV5) UNAME_MACHINE=alphaev5 ;; - EV56) UNAME_MACHINE=alphaev56 ;; - PCA56) UNAME_MACHINE=alphapca56 ;; - PCA57) UNAME_MACHINE=alphapca56 ;; - EV6) UNAME_MACHINE=alphaev6 ;; - EV67) UNAME_MACHINE=alphaev67 ;; - EV68*) UNAME_MACHINE=alphaev68 ;; - esac - objdump --private-headers /bin/sh | grep ld.so.1 >/dev/null - if test "$?" = 0 ; then LIBC="libc1" ; else LIBC="" ; fi - echo ${UNAME_MACHINE}-unknown-linux-gnu${LIBC} - exit 0 ;; - parisc:Linux:*:* | hppa:Linux:*:*) - # Look for CPU level - case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in - PA7*) echo hppa1.1-unknown-linux-gnu ;; - PA8*) echo hppa2.0-unknown-linux-gnu ;; - *) echo hppa-unknown-linux-gnu ;; - esac - exit 0 ;; - parisc64:Linux:*:* | hppa64:Linux:*:*) - echo hppa64-unknown-linux-gnu - exit 0 ;; - s390:Linux:*:* | s390x:Linux:*:*) - echo ${UNAME_MACHINE}-ibm-linux - exit 0 ;; - sh*:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit 0 ;; - sparc:Linux:*:* | sparc64:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit 0 ;; - x86_64:Linux:*:*) - echo x86_64-unknown-linux-gnu - exit 0 ;; - i*86:Linux:*:*) - # The BFD linker knows what the default object file format is, so - # first see if it will tell us. cd to the root directory to prevent - # problems with other programs or directories called `ld' in the path. - # Set LC_ALL=C to ensure ld outputs messages in English. - ld_supported_targets=`cd /; LC_ALL=C ld --help 2>&1 \ - | sed -ne '/supported targets:/!d - s/[ ][ ]*/ /g - s/.*supported targets: *// - s/ .*// - p'` - case "$ld_supported_targets" in - elf32-i386) - TENTATIVE="${UNAME_MACHINE}-pc-linux-gnu" - ;; - a.out-i386-linux) - echo "${UNAME_MACHINE}-pc-linux-gnuaout" - exit 0 ;; - coff-i386) - echo "${UNAME_MACHINE}-pc-linux-gnucoff" - exit 0 ;; - "") - # Either a pre-BFD a.out linker (linux-gnuoldld) or - # one that does not give us useful --help. - echo "${UNAME_MACHINE}-pc-linux-gnuoldld" - exit 0 ;; - esac - # Determine whether the default compiler is a.out or elf - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #include <features.h> - #ifdef __ELF__ - # ifdef __GLIBC__ - # if __GLIBC__ >= 2 - LIBC=gnu - # else - LIBC=gnulibc1 - # endif - # else - LIBC=gnulibc1 - # endif - #else - #ifdef __INTEL_COMPILER - LIBC=gnu - #else - LIBC=gnuaout - #endif - #endif -EOF - eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^LIBC=` - test x"${LIBC}" != x && echo "${UNAME_MACHINE}-pc-linux-${LIBC}" && exit 0 - test x"${TENTATIVE}" != x && echo "${TENTATIVE}" && exit 0 - ;; - i*86:DYNIX/ptx:4*:*) - # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there. - # earlier versions are messed up and put the nodename in both - # sysname and nodename. - echo i386-sequent-sysv4 - exit 0 ;; - i*86:UNIX_SV:4.2MP:2.*) - # Unixware is an offshoot of SVR4, but it has its own version - # number series starting with 2... - # I am not positive that other SVR4 systems won't match this, - # I just have to hope. -- rms. - # Use sysv4.2uw... so that sysv4* matches it. - echo ${UNAME_MACHINE}-pc-sysv4.2uw${UNAME_VERSION} - exit 0 ;; - i*86:OS/2:*:*) - # If we were able to find `uname', then EMX Unix compatibility - # is probably installed. - echo ${UNAME_MACHINE}-pc-os2-emx - exit 0 ;; - i*86:XTS-300:*:STOP) - echo ${UNAME_MACHINE}-unknown-stop - exit 0 ;; - i*86:atheos:*:*) - echo ${UNAME_MACHINE}-unknown-atheos - exit 0 ;; - i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.0*:*) - echo i386-unknown-lynxos${UNAME_RELEASE} - exit 0 ;; - i*86:*DOS:*:*) - echo ${UNAME_MACHINE}-pc-msdosdjgpp - exit 0 ;; - i*86:*:4.*:* | i*86:SYSTEM_V:4.*:*) - UNAME_REL=`echo ${UNAME_RELEASE} | sed 's/\/MP$//'` - if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then - echo ${UNAME_MACHINE}-univel-sysv${UNAME_REL} - else - echo ${UNAME_MACHINE}-pc-sysv${UNAME_REL} - fi - exit 0 ;; - i*86:*:5:[78]*) - case `/bin/uname -X | grep "^Machine"` in - *486*) UNAME_MACHINE=i486 ;; - *Pentium) UNAME_MACHINE=i586 ;; - *Pent*|*Celeron) UNAME_MACHINE=i686 ;; - esac - echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION} - exit 0 ;; - i*86:*:3.2:*) - if test -f /usr/options/cb.name; then - UNAME_REL=`sed -n 's/.*Version //p' </usr/options/cb.name` - echo ${UNAME_MACHINE}-pc-isc$UNAME_REL - elif /bin/uname -X 2>/dev/null >/dev/null ; then - UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')` - (/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486 - (/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \ - && UNAME_MACHINE=i586 - (/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \ - && UNAME_MACHINE=i686 - (/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \ - && UNAME_MACHINE=i686 - echo ${UNAME_MACHINE}-pc-sco$UNAME_REL - else - echo ${UNAME_MACHINE}-pc-sysv32 - fi - exit 0 ;; - pc:*:*:*) - # Left here for compatibility: - # uname -m prints for DJGPP always 'pc', but it prints nothing about - # the processor, so we play safe by assuming i386. - echo i386-pc-msdosdjgpp - exit 0 ;; - Intel:Mach:3*:*) - echo i386-pc-mach3 - exit 0 ;; - paragon:*:*:*) - echo i860-intel-osf1 - exit 0 ;; - i860:*:4.*:*) # i860-SVR4 - if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then - echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4 - else # Add other i860-SVR4 vendors below as they are discovered. - echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4 - fi - exit 0 ;; - mini*:CTIX:SYS*5:*) - # "miniframe" - echo m68010-convergent-sysv - exit 0 ;; - mc68k:UNIX:SYSTEM5:3.51m) - echo m68k-convergent-sysv - exit 0 ;; - M680?0:D-NIX:5.3:*) - echo m68k-diab-dnix - exit 0 ;; - M68*:*:R3V[567]*:*) - test -r /sysV68 && echo 'm68k-motorola-sysv' && exit 0 ;; - 3[34]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0) - OS_REL='' - test -r /etc/.relid \ - && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` - /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ - && echo i486-ncr-sysv4.3${OS_REL} && exit 0 - /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ - && echo i586-ncr-sysv4.3${OS_REL} && exit 0 ;; - 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*) - /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ - && echo i486-ncr-sysv4 && exit 0 ;; - m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*) - echo m68k-unknown-lynxos${UNAME_RELEASE} - exit 0 ;; - mc68030:UNIX_System_V:4.*:*) - echo m68k-atari-sysv4 - exit 0 ;; - TSUNAMI:LynxOS:2.*:*) - echo sparc-unknown-lynxos${UNAME_RELEASE} - exit 0 ;; - rs6000:LynxOS:2.*:*) - echo rs6000-unknown-lynxos${UNAME_RELEASE} - exit 0 ;; - PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.0*:*) - echo powerpc-unknown-lynxos${UNAME_RELEASE} - exit 0 ;; - SM[BE]S:UNIX_SV:*:*) - echo mips-dde-sysv${UNAME_RELEASE} - exit 0 ;; - RM*:ReliantUNIX-*:*:*) - echo mips-sni-sysv4 - exit 0 ;; - RM*:SINIX-*:*:*) - echo mips-sni-sysv4 - exit 0 ;; - *:SINIX-*:*:*) - if uname -p 2>/dev/null >/dev/null ; then - UNAME_MACHINE=`(uname -p) 2>/dev/null` - echo ${UNAME_MACHINE}-sni-sysv4 - else - echo ns32k-sni-sysv - fi - exit 0 ;; - PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort - # says <Richard.M.Bartel@ccMail.Census.GOV> - echo i586-unisys-sysv4 - exit 0 ;; - *:UNIX_System_V:4*:FTX*) - # From Gerald Hewes <hewes@openmarket.com>. - # How about differentiating between stratus architectures? -djm - echo hppa1.1-stratus-sysv4 - exit 0 ;; - *:*:*:FTX*) - # From seanf@swdc.stratus.com. - echo i860-stratus-sysv4 - exit 0 ;; - *:VOS:*:*) - # From Paul.Green@stratus.com. - echo hppa1.1-stratus-vos - exit 0 ;; - mc68*:A/UX:*:*) - echo m68k-apple-aux${UNAME_RELEASE} - exit 0 ;; - news*:NEWS-OS:6*:*) - echo mips-sony-newsos6 - exit 0 ;; - R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*) - if [ -d /usr/nec ]; then - echo mips-nec-sysv${UNAME_RELEASE} - else - echo mips-unknown-sysv${UNAME_RELEASE} - fi - exit 0 ;; - BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only. - echo powerpc-be-beos - exit 0 ;; - BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only. - echo powerpc-apple-beos - exit 0 ;; - BePC:BeOS:*:*) # BeOS running on Intel PC compatible. - echo i586-pc-beos - exit 0 ;; - SX-4:SUPER-UX:*:*) - echo sx4-nec-superux${UNAME_RELEASE} - exit 0 ;; - SX-5:SUPER-UX:*:*) - echo sx5-nec-superux${UNAME_RELEASE} - exit 0 ;; - SX-6:SUPER-UX:*:*) - echo sx6-nec-superux${UNAME_RELEASE} - exit 0 ;; - Power*:Rhapsody:*:*) - echo powerpc-apple-rhapsody${UNAME_RELEASE} - exit 0 ;; - *:Rhapsody:*:*) - echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE} - exit 0 ;; - *:Darwin:*:*) - case `uname -p` in - *86) UNAME_PROCESSOR=i686 ;; - powerpc) UNAME_PROCESSOR=powerpc ;; - esac - echo ${UNAME_PROCESSOR}-apple-darwin${UNAME_RELEASE} - exit 0 ;; - *:procnto*:*:* | *:QNX:[0123456789]*:*) - UNAME_PROCESSOR=`uname -p` - if test "$UNAME_PROCESSOR" = "x86"; then - UNAME_PROCESSOR=i386 - UNAME_MACHINE=pc - fi - echo ${UNAME_PROCESSOR}-${UNAME_MACHINE}-nto-qnx${UNAME_RELEASE} - exit 0 ;; - *:QNX:*:4*) - echo i386-pc-qnx - exit 0 ;; - NSR-[DGKLNPTVW]:NONSTOP_KERNEL:*:*) - echo nsr-tandem-nsk${UNAME_RELEASE} - exit 0 ;; - *:NonStop-UX:*:*) - echo mips-compaq-nonstopux - exit 0 ;; - BS2000:POSIX*:*:*) - echo bs2000-siemens-sysv - exit 0 ;; - DS/*:UNIX_System_V:*:*) - echo ${UNAME_MACHINE}-${UNAME_SYSTEM}-${UNAME_RELEASE} - exit 0 ;; - *:Plan9:*:*) - # "uname -m" is not consistent, so use $cputype instead. 386 - # is converted to i386 for consistency with other x86 - # operating systems. - if test "$cputype" = "386"; then - UNAME_MACHINE=i386 - else - UNAME_MACHINE="$cputype" - fi - echo ${UNAME_MACHINE}-unknown-plan9 - exit 0 ;; - *:TOPS-10:*:*) - echo pdp10-unknown-tops10 - exit 0 ;; - *:TENEX:*:*) - echo pdp10-unknown-tenex - exit 0 ;; - KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*) - echo pdp10-dec-tops20 - exit 0 ;; - XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*) - echo pdp10-xkl-tops20 - exit 0 ;; - *:TOPS-20:*:*) - echo pdp10-unknown-tops20 - exit 0 ;; - *:ITS:*:*) - echo pdp10-unknown-its - exit 0 ;; -esac - -#echo '(No uname command or uname output not recognized.)' 1>&2 -#echo "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" 1>&2 - -eval $set_cc_for_build -cat >$dummy.c <<EOF -#ifdef _SEQUENT_ -# include <sys/types.h> -# include <sys/utsname.h> -#endif -main () -{ -#if defined (sony) -#if defined (MIPSEB) - /* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed, - I don't know.... */ - printf ("mips-sony-bsd\n"); exit (0); -#else -#include <sys/param.h> - printf ("m68k-sony-newsos%s\n", -#ifdef NEWSOS4 - "4" -#else - "" -#endif - ); exit (0); -#endif -#endif - -#if defined (__arm) && defined (__acorn) && defined (__unix) - printf ("arm-acorn-riscix"); exit (0); -#endif - -#if defined (hp300) && !defined (hpux) - printf ("m68k-hp-bsd\n"); exit (0); -#endif - -#if defined (NeXT) -#if !defined (__ARCHITECTURE__) -#define __ARCHITECTURE__ "m68k" -#endif - int version; - version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`; - if (version < 4) - printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version); - else - printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version); - exit (0); -#endif - -#if defined (MULTIMAX) || defined (n16) -#if defined (UMAXV) - printf ("ns32k-encore-sysv\n"); exit (0); -#else -#if defined (CMU) - printf ("ns32k-encore-mach\n"); exit (0); -#else - printf ("ns32k-encore-bsd\n"); exit (0); -#endif -#endif -#endif - -#if defined (__386BSD__) - printf ("i386-pc-bsd\n"); exit (0); -#endif - -#if defined (sequent) -#if defined (i386) - printf ("i386-sequent-dynix\n"); exit (0); -#endif -#if defined (ns32000) - printf ("ns32k-sequent-dynix\n"); exit (0); -#endif -#endif - -#if defined (_SEQUENT_) - struct utsname un; - - uname(&un); - - if (strncmp(un.version, "V2", 2) == 0) { - printf ("i386-sequent-ptx2\n"); exit (0); - } - if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */ - printf ("i386-sequent-ptx1\n"); exit (0); - } - printf ("i386-sequent-ptx\n"); exit (0); - -#endif - -#if defined (vax) -# if !defined (ultrix) -# include <sys/param.h> -# if defined (BSD) -# if BSD == 43 - printf ("vax-dec-bsd4.3\n"); exit (0); -# else -# if BSD == 199006 - printf ("vax-dec-bsd4.3reno\n"); exit (0); -# else - printf ("vax-dec-bsd\n"); exit (0); -# endif -# endif -# else - printf ("vax-dec-bsd\n"); exit (0); -# endif -# else - printf ("vax-dec-ultrix\n"); exit (0); -# endif -#endif - -#if defined (alliant) && defined (i860) - printf ("i860-alliant-bsd\n"); exit (0); -#endif - - exit (1); -} -EOF - -$CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null && $dummy && exit 0 - -# Apollos put the system type in the environment. - -test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit 0; } - -# Convex versions that predate uname can use getsysinfo(1) - -if [ -x /usr/convex/getsysinfo ] -then - case `getsysinfo -f cpu_type` in - c1*) - echo c1-convex-bsd - exit 0 ;; - c2*) - if getsysinfo -f scalar_acc - then echo c32-convex-bsd - else echo c2-convex-bsd - fi - exit 0 ;; - c34*) - echo c34-convex-bsd - exit 0 ;; - c38*) - echo c38-convex-bsd - exit 0 ;; - c4*) - echo c4-convex-bsd - exit 0 ;; - esac -fi - -cat >&2 <<EOF -$0: unable to guess system type - -This script, last modified $timestamp, has failed to recognize -the operating system you are using. It is advised that you -download the most up to date version of the config scripts from - - ftp://ftp.gnu.org/pub/gnu/config/ - -If the version you run ($0) is already up to date, please -send the following data and any information you think might be -pertinent to <config-patches@gnu.org> in order to provide the needed -information to handle your system. - -config.guess timestamp = $timestamp - -uname -m = `(uname -m) 2>/dev/null || echo unknown` -uname -r = `(uname -r) 2>/dev/null || echo unknown` -uname -s = `(uname -s) 2>/dev/null || echo unknown` -uname -v = `(uname -v) 2>/dev/null || echo unknown` - -/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null` -/bin/uname -X = `(/bin/uname -X) 2>/dev/null` - -hostinfo = `(hostinfo) 2>/dev/null` -/bin/universe = `(/bin/universe) 2>/dev/null` -/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null` -/bin/arch = `(/bin/arch) 2>/dev/null` -/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null` -/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null` - -UNAME_MACHINE = ${UNAME_MACHINE} -UNAME_RELEASE = ${UNAME_RELEASE} -UNAME_SYSTEM = ${UNAME_SYSTEM} -UNAME_VERSION = ${UNAME_VERSION} -EOF - -exit 1 - -# Local variables: -# eval: (add-hook 'write-file-hooks 'time-stamp) -# time-stamp-start: "timestamp='" -# time-stamp-format: "%:y-%02m-%02d" -# time-stamp-end: "'" -# End: diff --git a/gnu/lib/libf2c/config.sub b/gnu/lib/libf2c/config.sub deleted file mode 100755 index 53f9660a58a..00000000000 --- a/gnu/lib/libf2c/config.sub +++ /dev/null @@ -1,1482 +0,0 @@ -#! /bin/sh -# Configuration validation subroutine script. -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -# 2000, 2001, 2002, 2003 Free Software Foundation, Inc. - -timestamp='2003-01-28' - -# This file is (in principle) common to ALL GNU software. -# The presence of a machine in this file suggests that SOME GNU software -# can handle that machine. It does not imply ALL GNU software can. -# -# This file is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, -# Boston, MA 02111-1307, USA. - -# As a special exception to the GNU General Public License, if you -# distribute this file as part of a program that contains a -# configuration script generated by Autoconf, you may include it under -# the same distribution terms that you use for the rest of that program. - -# Please send patches to <config-patches@gnu.org>. Submit a context -# diff and a properly formatted ChangeLog entry. -# -# Configuration subroutine to validate and canonicalize a configuration type. -# Supply the specified configuration type as an argument. -# If it is invalid, we print an error message on stderr and exit with code 1. -# Otherwise, we print the canonical config type on stdout and succeed. - -# This file is supposed to be the same for all GNU packages -# and recognize all the CPU types, system types and aliases -# that are meaningful with *any* GNU software. -# Each package is responsible for reporting which valid configurations -# it does not support. The user should be able to distinguish -# a failure to support a valid configuration from a meaningless -# configuration. - -# The goal of this file is to map all the various variations of a given -# machine specification into a single specification in the form: -# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM -# or in some cases, the newer four-part form: -# CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM -# It is wrong to echo any other type of specification. - -me=`echo "$0" | sed -e 's,.*/,,'` - -usage="\ -Usage: $0 [OPTION] CPU-MFR-OPSYS - $0 [OPTION] ALIAS - -Canonicalize a configuration name. - -Operation modes: - -h, --help print this help, then exit - -t, --time-stamp print date of last modification, then exit - -v, --version print version number, then exit - -Report bugs and patches to <config-patches@gnu.org>." - -version="\ -GNU config.sub ($timestamp) - -Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -Free Software Foundation, Inc. - -This is free software; see the source for copying conditions. There is NO -warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." - -help=" -Try \`$me --help' for more information." - -# Parse command line -while test $# -gt 0 ; do - case $1 in - --time-stamp | --time* | -t ) - echo "$timestamp" ; exit 0 ;; - --version | -v ) - echo "$version" ; exit 0 ;; - --help | --h* | -h ) - echo "$usage"; exit 0 ;; - -- ) # Stop option processing - shift; break ;; - - ) # Use stdin as input. - break ;; - -* ) - echo "$me: invalid option $1$help" - exit 1 ;; - - *local*) - # First pass through any local machine types. - echo $1 - exit 0;; - - * ) - break ;; - esac -done - -case $# in - 0) echo "$me: missing argument$help" >&2 - exit 1;; - 1) ;; - *) echo "$me: too many arguments$help" >&2 - exit 1;; -esac - -# Separate what the user gave into CPU-COMPANY and OS or KERNEL-OS (if any). -# Here we must recognize all the valid KERNEL-OS combinations. -maybe_os=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\2/'` -case $maybe_os in - nto-qnx* | linux-gnu* | freebsd*-gnu* | netbsd*-gnu* | storm-chaos* | os2-emx* | rtmk-nova*) - os=-$maybe_os - basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'` - ;; - *) - basic_machine=`echo $1 | sed 's/-[^-]*$//'` - if [ $basic_machine != $1 ] - then os=`echo $1 | sed 's/.*-/-/'` - else os=; fi - ;; -esac - -### Let's recognize common machines as not being operating systems so -### that things like config.sub decstation-3100 work. We also -### recognize some manufacturers as not being operating systems, so we -### can provide default operating systems below. -case $os in - -sun*os*) - # Prevent following clause from handling this invalid input. - ;; - -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \ - -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \ - -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \ - -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\ - -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \ - -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp | \ - -apple | -axis) - os= - basic_machine=$1 - ;; - -sim | -cisco | -oki | -wec | -winbond) - os= - basic_machine=$1 - ;; - -scout) - ;; - -wrs) - os=-vxworks - basic_machine=$1 - ;; - -chorusos*) - os=-chorusos - basic_machine=$1 - ;; - -chorusrdb) - os=-chorusrdb - basic_machine=$1 - ;; - -hiux*) - os=-hiuxwe2 - ;; - -sco5) - os=-sco3.2v5 - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -sco4) - os=-sco3.2v4 - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -sco3.2.[4-9]*) - os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -sco3.2v[4-9]*) - # Don't forget version if it is 3.2v4 or newer. - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -sco*) - os=-sco3.2v2 - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -udk*) - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -isc) - os=-isc2.2 - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -clix*) - basic_machine=clipper-intergraph - ;; - -isc*) - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -lynx*) - os=-lynxos - ;; - -ptx*) - basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'` - ;; - -windowsnt*) - os=`echo $os | sed -e 's/windowsnt/winnt/'` - ;; - -psos*) - os=-psos - ;; - -mint | -mint[0-9]*) - basic_machine=m68k-atari - os=-mint - ;; -esac - -# Decode aliases for certain CPU-COMPANY combinations. -case $basic_machine in - # Recognize the basic CPU types without company name. - # Some are omitted here because they have special meanings below. - 1750a | 580 \ - | a29k \ - | alpha | alphaev[4-8] | alphaev56 | alphaev6[78] | alphapca5[67] \ - | alpha64 | alpha64ev[4-8] | alpha64ev56 | alpha64ev6[78] | alpha64pca5[67] \ - | arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] | avr \ - | clipper \ - | d10v | d30v | dlx | dsp16xx \ - | fr30 | frv \ - | h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \ - | i370 | i860 | i960 | ia64 \ - | ip2k \ - | m32r | m68000 | m68k | m88k | mcore \ - | mips | mipsbe | mipseb | mipsel | mipsle \ - | mips16 \ - | mips64 | mips64el \ - | mips64vr | mips64vrel \ - | mips64orion | mips64orionel \ - | mips64vr4100 | mips64vr4100el \ - | mips64vr4300 | mips64vr4300el \ - | mips64vr5000 | mips64vr5000el \ - | mipsisa32 | mipsisa32el \ - | mipsisa32r2 | mipsisa32r2el \ - | mipsisa64 | mipsisa64el \ - | mipsisa64sb1 | mipsisa64sb1el \ - | mipsisa64sr71k | mipsisa64sr71kel \ - | mipstx39 | mipstx39el \ - | mn10200 | mn10300 \ - | msp430 \ - | ns16k | ns32k \ - | openrisc | or32 \ - | pdp10 | pdp11 | pj | pjl \ - | powerpc | powerpc64 | powerpc64le | powerpcle | ppcbe \ - | pyramid \ - | sh | sh[1234] | sh[23]e | sh[34]eb | shbe | shle | sh[1234]le | sh3ele \ - | sh64 | sh64le \ - | sparc | sparc64 | sparc86x | sparclet | sparclite | sparcv9 | sparcv9b \ - | strongarm \ - | tahoe | thumb | tic80 | tron \ - | v850 | v850e \ - | we32k \ - | x86 | xscale | xstormy16 | xtensa \ - | z8k) - basic_machine=$basic_machine-unknown - ;; - m6811 | m68hc11 | m6812 | m68hc12) - # Motorola 68HC11/12. - basic_machine=$basic_machine-unknown - os=-none - ;; - m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | v70 | w65 | z8k) - ;; - - # We use `pc' rather than `unknown' - # because (1) that's what they normally are, and - # (2) the word "unknown" tends to confuse beginning users. - i*86 | x86_64) - basic_machine=$basic_machine-pc - ;; - # Object if more than one company name word. - *-*-*) - echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 - exit 1 - ;; - # Recognize the basic CPU types with company name. - 580-* \ - | a29k-* \ - | alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \ - | alpha64-* | alpha64ev[4-8]-* | alpha64ev56-* | alpha64ev6[78]-* \ - | alphapca5[67]-* | alpha64pca5[67]-* | arc-* \ - | arm-* | armbe-* | armle-* | armeb-* | armv*-* \ - | avr-* \ - | bs2000-* \ - | c[123]* | c30-* | [cjt]90-* | c4x-* | c54x-* \ - | clipper-* | cydra-* \ - | d10v-* | d30v-* | dlx-* \ - | elxsi-* \ - | f30[01]-* | f700-* | fr30-* | frv-* | fx80-* \ - | h8300-* | h8500-* \ - | hppa-* | hppa1.[01]-* | hppa2.0-* | hppa2.0[nw]-* | hppa64-* \ - | i*86-* | i860-* | i960-* | ia64-* \ - | ip2k-* \ - | m32r-* \ - | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \ - | m88110-* | m88k-* | mcore-* \ - | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \ - | mips16-* \ - | mips64-* | mips64el-* \ - | mips64vr-* | mips64vrel-* \ - | mips64orion-* | mips64orionel-* \ - | mips64vr4100-* | mips64vr4100el-* \ - | mips64vr4300-* | mips64vr4300el-* \ - | mips64vr5000-* | mips64vr5000el-* \ - | mipsisa32-* | mipsisa32el-* \ - | mipsisa32r2-* | mipsisa32r2el-* \ - | mipsisa64-* | mipsisa64el-* \ - | mipsisa64sb1-* | mipsisa64sb1el-* \ - | mipsisa64sr71k-* | mipsisa64sr71kel-* \ - | mipstx39-* | mipstx39el-* \ - | msp430-* \ - | none-* | np1-* | nv1-* | ns16k-* | ns32k-* \ - | orion-* \ - | pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \ - | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* | ppcbe-* \ - | pyramid-* \ - | romp-* | rs6000-* \ - | sh-* | sh[1234]-* | sh[23]e-* | sh[34]eb-* | shbe-* \ - | shle-* | sh[1234]le-* | sh3ele-* | sh64-* | sh64le-* \ - | sparc-* | sparc64-* | sparc86x-* | sparclet-* | sparclite-* \ - | sparcv9-* | sparcv9b-* | strongarm-* | sv1-* | sx?-* \ - | tahoe-* | thumb-* | tic30-* | tic4x-* | tic54x-* | tic80-* | tron-* \ - | v850-* | v850e-* | vax-* \ - | we32k-* \ - | x86-* | x86_64-* | xps100-* | xscale-* | xstormy16-* \ - | xtensa-* \ - | ymp-* \ - | z8k-*) - ;; - # Recognize the various machine names and aliases which stand - # for a CPU type and a company and sometimes even an OS. - 386bsd) - basic_machine=i386-unknown - os=-bsd - ;; - 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) - basic_machine=m68000-att - ;; - 3b*) - basic_machine=we32k-att - ;; - a29khif) - basic_machine=a29k-amd - os=-udi - ;; - adobe68k) - basic_machine=m68010-adobe - os=-scout - ;; - alliant | fx80) - basic_machine=fx80-alliant - ;; - altos | altos3068) - basic_machine=m68k-altos - ;; - am29k) - basic_machine=a29k-none - os=-bsd - ;; - amd64) - basic_machine=x86_64-pc - ;; - amd64-*) - basic_machine=x86_64-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - amdahl) - basic_machine=580-amdahl - os=-sysv - ;; - amiga | amiga-*) - basic_machine=m68k-unknown - ;; - amigaos | amigados) - basic_machine=m68k-unknown - os=-amigaos - ;; - amigaunix | amix) - basic_machine=m68k-unknown - os=-sysv4 - ;; - apollo68) - basic_machine=m68k-apollo - os=-sysv - ;; - apollo68bsd) - basic_machine=m68k-apollo - os=-bsd - ;; - aux) - basic_machine=m68k-apple - os=-aux - ;; - balance) - basic_machine=ns32k-sequent - os=-dynix - ;; - c90) - basic_machine=c90-cray - os=-unicos - ;; - convex-c1) - basic_machine=c1-convex - os=-bsd - ;; - convex-c2) - basic_machine=c2-convex - os=-bsd - ;; - convex-c32) - basic_machine=c32-convex - os=-bsd - ;; - convex-c34) - basic_machine=c34-convex - os=-bsd - ;; - convex-c38) - basic_machine=c38-convex - os=-bsd - ;; - cray | j90) - basic_machine=j90-cray - os=-unicos - ;; - crds | unos) - basic_machine=m68k-crds - ;; - cris | cris-* | etrax*) - basic_machine=cris-axis - ;; - da30 | da30-*) - basic_machine=m68k-da30 - ;; - decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn) - basic_machine=mips-dec - ;; - decsystem10* | dec10*) - basic_machine=pdp10-dec - os=-tops10 - ;; - decsystem20* | dec20*) - basic_machine=pdp10-dec - os=-tops20 - ;; - delta | 3300 | motorola-3300 | motorola-delta \ - | 3300-motorola | delta-motorola) - basic_machine=m68k-motorola - ;; - delta88) - basic_machine=m88k-motorola - os=-sysv3 - ;; - dpx20 | dpx20-*) - basic_machine=rs6000-bull - os=-bosx - ;; - dpx2* | dpx2*-bull) - basic_machine=m68k-bull - os=-sysv3 - ;; - ebmon29k) - basic_machine=a29k-amd - os=-ebmon - ;; - elxsi) - basic_machine=elxsi-elxsi - os=-bsd - ;; - encore | umax | mmax) - basic_machine=ns32k-encore - ;; - es1800 | OSE68k | ose68k | ose | OSE) - basic_machine=m68k-ericsson - os=-ose - ;; - fx2800) - basic_machine=i860-alliant - ;; - genix) - basic_machine=ns32k-ns - ;; - gmicro) - basic_machine=tron-gmicro - os=-sysv - ;; - go32) - basic_machine=i386-pc - os=-go32 - ;; - h3050r* | hiux*) - basic_machine=hppa1.1-hitachi - os=-hiuxwe2 - ;; - h8300hms) - basic_machine=h8300-hitachi - os=-hms - ;; - h8300xray) - basic_machine=h8300-hitachi - os=-xray - ;; - h8500hms) - basic_machine=h8500-hitachi - os=-hms - ;; - harris) - basic_machine=m88k-harris - os=-sysv3 - ;; - hp300-*) - basic_machine=m68k-hp - ;; - hp300bsd) - basic_machine=m68k-hp - os=-bsd - ;; - hp300hpux) - basic_machine=m68k-hp - os=-hpux - ;; - hp3k9[0-9][0-9] | hp9[0-9][0-9]) - basic_machine=hppa1.0-hp - ;; - hp9k2[0-9][0-9] | hp9k31[0-9]) - basic_machine=m68000-hp - ;; - hp9k3[2-9][0-9]) - basic_machine=m68k-hp - ;; - hp9k6[0-9][0-9] | hp6[0-9][0-9]) - basic_machine=hppa1.0-hp - ;; - hp9k7[0-79][0-9] | hp7[0-79][0-9]) - basic_machine=hppa1.1-hp - ;; - hp9k78[0-9] | hp78[0-9]) - # FIXME: really hppa2.0-hp - basic_machine=hppa1.1-hp - ;; - hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893) - # FIXME: really hppa2.0-hp - basic_machine=hppa1.1-hp - ;; - hp9k8[0-9][13679] | hp8[0-9][13679]) - basic_machine=hppa1.1-hp - ;; - hp9k8[0-9][0-9] | hp8[0-9][0-9]) - basic_machine=hppa1.0-hp - ;; - hppa-next) - os=-nextstep3 - ;; - hppaosf) - basic_machine=hppa1.1-hp - os=-osf - ;; - hppro) - basic_machine=hppa1.1-hp - os=-proelf - ;; - i370-ibm* | ibm*) - basic_machine=i370-ibm - ;; -# I'm not sure what "Sysv32" means. Should this be sysv3.2? - i*86v32) - basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` - os=-sysv32 - ;; - i*86v4*) - basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` - os=-sysv4 - ;; - i*86v) - basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` - os=-sysv - ;; - i*86sol2) - basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` - os=-solaris2 - ;; - i386mach) - basic_machine=i386-mach - os=-mach - ;; - i386-vsta | vsta) - basic_machine=i386-unknown - os=-vsta - ;; - iris | iris4d) - basic_machine=mips-sgi - case $os in - -irix*) - ;; - *) - os=-irix4 - ;; - esac - ;; - isi68 | isi) - basic_machine=m68k-isi - os=-sysv - ;; - m88k-omron*) - basic_machine=m88k-omron - ;; - magnum | m3230) - basic_machine=mips-mips - os=-sysv - ;; - merlin) - basic_machine=ns32k-utek - os=-sysv - ;; - mingw32) - basic_machine=i386-pc - os=-mingw32 - ;; - miniframe) - basic_machine=m68000-convergent - ;; - *mint | -mint[0-9]* | *MiNT | *MiNT[0-9]*) - basic_machine=m68k-atari - os=-mint - ;; - mips3*-*) - basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` - ;; - mips3*) - basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown - ;; - mmix*) - basic_machine=mmix-knuth - os=-mmixware - ;; - monitor) - basic_machine=m68k-rom68k - os=-coff - ;; - morphos) - basic_machine=powerpc-unknown - os=-morphos - ;; - msdos) - basic_machine=i386-pc - os=-msdos - ;; - mvs) - basic_machine=i370-ibm - os=-mvs - ;; - ncr3000) - basic_machine=i486-ncr - os=-sysv4 - ;; - netbsd386) - basic_machine=i386-unknown - os=-netbsd - ;; - netwinder) - basic_machine=armv4l-rebel - os=-linux - ;; - news | news700 | news800 | news900) - basic_machine=m68k-sony - os=-newsos - ;; - news1000) - basic_machine=m68030-sony - os=-newsos - ;; - news-3600 | risc-news) - basic_machine=mips-sony - os=-newsos - ;; - necv70) - basic_machine=v70-nec - os=-sysv - ;; - next | m*-next ) - basic_machine=m68k-next - case $os in - -nextstep* ) - ;; - -ns2*) - os=-nextstep2 - ;; - *) - os=-nextstep3 - ;; - esac - ;; - nh3000) - basic_machine=m68k-harris - os=-cxux - ;; - nh[45]000) - basic_machine=m88k-harris - os=-cxux - ;; - nindy960) - basic_machine=i960-intel - os=-nindy - ;; - mon960) - basic_machine=i960-intel - os=-mon960 - ;; - nonstopux) - basic_machine=mips-compaq - os=-nonstopux - ;; - np1) - basic_machine=np1-gould - ;; - nv1) - basic_machine=nv1-cray - os=-unicosmp - ;; - nsr-tandem) - basic_machine=nsr-tandem - ;; - op50n-* | op60c-*) - basic_machine=hppa1.1-oki - os=-proelf - ;; - or32 | or32-*) - basic_machine=or32-unknown - os=-coff - ;; - OSE68000 | ose68000) - basic_machine=m68000-ericsson - os=-ose - ;; - os68k) - basic_machine=m68k-none - os=-os68k - ;; - pa-hitachi) - basic_machine=hppa1.1-hitachi - os=-hiuxwe2 - ;; - paragon) - basic_machine=i860-intel - os=-osf - ;; - pbd) - basic_machine=sparc-tti - ;; - pbb) - basic_machine=m68k-tti - ;; - pc532 | pc532-*) - basic_machine=ns32k-pc532 - ;; - pentium | p5 | k5 | k6 | nexgen | viac3) - basic_machine=i586-pc - ;; - pentiumpro | p6 | 6x86 | athlon | athlon_*) - basic_machine=i686-pc - ;; - pentiumii | pentium2) - basic_machine=i686-pc - ;; - pentium-* | p5-* | k5-* | k6-* | nexgen-* | viac3-*) - basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - pentiumpro-* | p6-* | 6x86-* | athlon-*) - basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - pentiumii-* | pentium2-*) - basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - pn) - basic_machine=pn-gould - ;; - power) basic_machine=power-ibm - ;; - ppc) basic_machine=powerpc-unknown - ;; - ppc-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - ppcle | powerpclittle | ppc-le | powerpc-little) - basic_machine=powerpcle-unknown - ;; - ppcle-* | powerpclittle-*) - basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - ppc64) basic_machine=powerpc64-unknown - ;; - ppc64-*) basic_machine=powerpc64-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - ppc64le | powerpc64little | ppc64-le | powerpc64-little) - basic_machine=powerpc64le-unknown - ;; - ppc64le-* | powerpc64little-*) - basic_machine=powerpc64le-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - ps2) - basic_machine=i386-ibm - ;; - pw32) - basic_machine=i586-unknown - os=-pw32 - ;; - rom68k) - basic_machine=m68k-rom68k - os=-coff - ;; - rm[46]00) - basic_machine=mips-siemens - ;; - rtpc | rtpc-*) - basic_machine=romp-ibm - ;; - s390 | s390-*) - basic_machine=s390-ibm - ;; - s390x | s390x-*) - basic_machine=s390x-ibm - ;; - sa29200) - basic_machine=a29k-amd - os=-udi - ;; - sb1) - basic_machine=mipsisa64sb1-unknown - ;; - sb1el) - basic_machine=mipsisa64sb1el-unknown - ;; - sequent) - basic_machine=i386-sequent - ;; - sh) - basic_machine=sh-hitachi - os=-hms - ;; - sparclite-wrs | simso-wrs) - basic_machine=sparclite-wrs - os=-vxworks - ;; - sps7) - basic_machine=m68k-bull - os=-sysv2 - ;; - spur) - basic_machine=spur-unknown - ;; - st2000) - basic_machine=m68k-tandem - ;; - stratus) - basic_machine=i860-stratus - os=-sysv4 - ;; - sun2) - basic_machine=m68000-sun - ;; - sun2os3) - basic_machine=m68000-sun - os=-sunos3 - ;; - sun2os4) - basic_machine=m68000-sun - os=-sunos4 - ;; - sun3os3) - basic_machine=m68k-sun - os=-sunos3 - ;; - sun3os4) - basic_machine=m68k-sun - os=-sunos4 - ;; - sun4os3) - basic_machine=sparc-sun - os=-sunos3 - ;; - sun4os4) - basic_machine=sparc-sun - os=-sunos4 - ;; - sun4sol2) - basic_machine=sparc-sun - os=-solaris2 - ;; - sun3 | sun3-*) - basic_machine=m68k-sun - ;; - sun4) - basic_machine=sparc-sun - ;; - sun386 | sun386i | roadrunner) - basic_machine=i386-sun - ;; - sv1) - basic_machine=sv1-cray - os=-unicos - ;; - symmetry) - basic_machine=i386-sequent - os=-dynix - ;; - t3e) - basic_machine=alphaev5-cray - os=-unicos - ;; - t90) - basic_machine=t90-cray - os=-unicos - ;; - tic4x | c4x*) - basic_machine=tic4x-unknown - os=-coff - ;; - tic54x | c54x*) - basic_machine=tic54x-unknown - os=-coff - ;; - tx39) - basic_machine=mipstx39-unknown - ;; - tx39el) - basic_machine=mipstx39el-unknown - ;; - toad1) - basic_machine=pdp10-xkl - os=-tops20 - ;; - tower | tower-32) - basic_machine=m68k-ncr - ;; - udi29k) - basic_machine=a29k-amd - os=-udi - ;; - ultra3) - basic_machine=a29k-nyu - os=-sym1 - ;; - v810 | necv810) - basic_machine=v810-nec - os=-none - ;; - vaxv) - basic_machine=vax-dec - os=-sysv - ;; - vms) - basic_machine=vax-dec - os=-vms - ;; - vpp*|vx|vx-*) - basic_machine=f301-fujitsu - ;; - vxworks960) - basic_machine=i960-wrs - os=-vxworks - ;; - vxworks68) - basic_machine=m68k-wrs - os=-vxworks - ;; - vxworks29k) - basic_machine=a29k-wrs - os=-vxworks - ;; - w65*) - basic_machine=w65-wdc - os=-none - ;; - w89k-*) - basic_machine=hppa1.1-winbond - os=-proelf - ;; - xps | xps100) - basic_machine=xps100-honeywell - ;; - ymp) - basic_machine=ymp-cray - os=-unicos - ;; - z8k-*-coff) - basic_machine=z8k-unknown - os=-sim - ;; - none) - basic_machine=none-none - os=-none - ;; - -# Here we handle the default manufacturer of certain CPU types. It is in -# some cases the only manufacturer, in others, it is the most popular. - w89k) - basic_machine=hppa1.1-winbond - ;; - op50n) - basic_machine=hppa1.1-oki - ;; - op60c) - basic_machine=hppa1.1-oki - ;; - romp) - basic_machine=romp-ibm - ;; - rs6000) - basic_machine=rs6000-ibm - ;; - vax) - basic_machine=vax-dec - ;; - pdp10) - # there are many clones, so DEC is not a safe bet - basic_machine=pdp10-unknown - ;; - pdp11) - basic_machine=pdp11-dec - ;; - we32k) - basic_machine=we32k-att - ;; - sh3 | sh4 | sh[34]eb | sh[1234]le | sh[23]ele) - basic_machine=sh-unknown - ;; - sh64) - basic_machine=sh64-unknown - ;; - sparc | sparcv9 | sparcv9b) - basic_machine=sparc-sun - ;; - cydra) - basic_machine=cydra-cydrome - ;; - orion) - basic_machine=orion-highlevel - ;; - orion105) - basic_machine=clipper-highlevel - ;; - mac | mpw | mac-mpw) - basic_machine=m68k-apple - ;; - pmac | pmac-mpw) - basic_machine=powerpc-apple - ;; - *-unknown) - # Make sure to match an already-canonicalized machine name. - ;; - *) - echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 - exit 1 - ;; -esac - -# Here we canonicalize certain aliases for manufacturers. -case $basic_machine in - *-digital*) - basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'` - ;; - *-commodore*) - basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'` - ;; - *) - ;; -esac - -# Decode manufacturer-specific aliases for certain operating systems. - -if [ x"$os" != x"" ] -then -case $os in - # First match some system type aliases - # that might get confused with valid system types. - # -solaris* is a basic system type, with this one exception. - -solaris1 | -solaris1.*) - os=`echo $os | sed -e 's|solaris1|sunos4|'` - ;; - -solaris) - os=-solaris2 - ;; - -svr4*) - os=-sysv4 - ;; - -unixware*) - os=-sysv4.2uw - ;; - -gnu/linux*) - os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'` - ;; - # First accept the basic system types. - # The portable systems comes first. - # Each alternative MUST END IN A *, to match a version number. - # -sysv* is not here because it comes later, after sysvr4. - -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \ - | -*vms* | -sco* | -esix* | -isc* | -aix* | -sunos | -sunos[34]*\ - | -hpux* | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \ - | -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \ - | -aos* \ - | -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \ - | -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \ - | -hiux* | -386bsd* | -netbsd* | -openbsd* | -freebsd* | -riscix* \ - | -lynxos* | -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \ - | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \ - | -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \ - | -chorusos* | -chorusrdb* \ - | -cygwin* | -pe* | -psos* | -moss* | -proelf* | -rtems* \ - | -mingw32* | -linux-gnu* | -uxpv* | -beos* | -mpeix* | -udk* \ - | -interix* | -uwin* | -mks* | -rhapsody* | -darwin* | -opened* \ - | -openstep* | -oskit* | -conix* | -pw32* | -nonstopux* \ - | -storm-chaos* | -tops10* | -tenex* | -tops20* | -its* \ - | -os2* | -vos* | -palmos* | -uclinux* | -nucleus* \ - | -morphos* | -superux* | -rtmk* | -rtmk-nova* | -windiss* \ - | -powermax* | -dnix* | -microbsd*) - # Remember, each alternative MUST END IN *, to match a version number. - ;; - -qnx*) - case $basic_machine in - x86-* | i*86-*) - ;; - *) - os=-nto$os - ;; - esac - ;; - -nto-qnx*) - ;; - -nto*) - os=`echo $os | sed -e 's|nto|nto-qnx|'` - ;; - -sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \ - | -windows* | -osx | -abug | -netware* | -os9* | -beos* \ - | -macos* | -mpw* | -magic* | -mmixware* | -mon960* | -lnews*) - ;; - -mac*) - os=`echo $os | sed -e 's|mac|macos|'` - ;; - -linux*) - os=`echo $os | sed -e 's|linux|linux-gnu|'` - ;; - -sunos5*) - os=`echo $os | sed -e 's|sunos5|solaris2|'` - ;; - -sunos6*) - os=`echo $os | sed -e 's|sunos6|solaris3|'` - ;; - -opened*) - os=-openedition - ;; - -wince*) - os=-wince - ;; - -osfrose*) - os=-osfrose - ;; - -osf*) - os=-osf - ;; - -utek*) - os=-bsd - ;; - -dynix*) - os=-bsd - ;; - -acis*) - os=-aos - ;; - -atheos*) - os=-atheos - ;; - -386bsd) - os=-bsd - ;; - -ctix* | -uts*) - os=-sysv - ;; - -nova*) - os=-rtmk-nova - ;; - -ns2 ) - os=-nextstep2 - ;; - -nsk*) - os=-nsk - ;; - # Preserve the version number of sinix5. - -sinix5.*) - os=`echo $os | sed -e 's|sinix|sysv|'` - ;; - -sinix*) - os=-sysv4 - ;; - -triton*) - os=-sysv3 - ;; - -oss*) - os=-sysv3 - ;; - -svr4) - os=-sysv4 - ;; - -svr3) - os=-sysv3 - ;; - -sysvr4) - os=-sysv4 - ;; - # This must come after -sysvr4. - -sysv*) - ;; - -ose*) - os=-ose - ;; - -es1800*) - os=-ose - ;; - -xenix) - os=-xenix - ;; - -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) - os=-mint - ;; - -aros*) - os=-aros - ;; - -none) - ;; - *) - # Get rid of the `-' at the beginning of $os. - os=`echo $os | sed 's/[^-]*-//'` - echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2 - exit 1 - ;; -esac -else - -# Here we handle the default operating systems that come with various machines. -# The value should be what the vendor currently ships out the door with their -# machine or put another way, the most popular os provided with the machine. - -# Note that if you're going to try to match "-MANUFACTURER" here (say, -# "-sun"), then you have to tell the case statement up towards the top -# that MANUFACTURER isn't an operating system. Otherwise, code above -# will signal an error saying that MANUFACTURER isn't an operating -# system, and we'll never get to this point. - -case $basic_machine in - *-acorn) - os=-riscix1.2 - ;; - arm*-rebel) - os=-linux - ;; - arm*-semi) - os=-aout - ;; - # This must come before the *-dec entry. - pdp10-*) - os=-tops20 - ;; - pdp11-*) - os=-none - ;; - *-dec | vax-*) - os=-ultrix4.2 - ;; - m68*-apollo) - os=-domain - ;; - i386-sun) - os=-sunos4.0.2 - ;; - m68000-sun) - os=-sunos3 - # This also exists in the configure program, but was not the - # default. - # os=-sunos4 - ;; - m68*-cisco) - os=-aout - ;; - mips*-cisco) - os=-elf - ;; - mips*-*) - os=-elf - ;; - or32-*) - os=-coff - ;; - *-tti) # must be before sparc entry or we get the wrong os. - os=-sysv3 - ;; - sparc-* | *-sun) - os=-sunos4.1.1 - ;; - *-be) - os=-beos - ;; - *-ibm) - os=-aix - ;; - *-wec) - os=-proelf - ;; - *-winbond) - os=-proelf - ;; - *-oki) - os=-proelf - ;; - *-hp) - os=-hpux - ;; - *-hitachi) - os=-hiux - ;; - i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) - os=-sysv - ;; - *-cbm) - os=-amigaos - ;; - *-dg) - os=-dgux - ;; - *-dolphin) - os=-sysv3 - ;; - m68k-ccur) - os=-rtu - ;; - m88k-omron*) - os=-luna - ;; - *-next ) - os=-nextstep - ;; - *-sequent) - os=-ptx - ;; - *-crds) - os=-unos - ;; - *-ns) - os=-genix - ;; - i370-*) - os=-mvs - ;; - *-next) - os=-nextstep3 - ;; - *-gould) - os=-sysv - ;; - *-highlevel) - os=-bsd - ;; - *-encore) - os=-bsd - ;; - *-sgi) - os=-irix - ;; - *-siemens) - os=-sysv4 - ;; - *-masscomp) - os=-rtu - ;; - f30[01]-fujitsu | f700-fujitsu) - os=-uxpv - ;; - *-rom68k) - os=-coff - ;; - *-*bug) - os=-coff - ;; - *-apple) - os=-macos - ;; - *-atari*) - os=-mint - ;; - *) - os=-none - ;; -esac -fi - -# Here we handle the case where we know the os, and the CPU type, but not the -# manufacturer. We pick the logical manufacturer. -vendor=unknown -case $basic_machine in - *-unknown) - case $os in - -riscix*) - vendor=acorn - ;; - -sunos*) - vendor=sun - ;; - -aix*) - vendor=ibm - ;; - -beos*) - vendor=be - ;; - -hpux*) - vendor=hp - ;; - -mpeix*) - vendor=hp - ;; - -hiux*) - vendor=hitachi - ;; - -unos*) - vendor=crds - ;; - -dgux*) - vendor=dg - ;; - -luna*) - vendor=omron - ;; - -genix*) - vendor=ns - ;; - -mvs* | -opened*) - vendor=ibm - ;; - -ptx*) - vendor=sequent - ;; - -vxsim* | -vxworks* | -windiss*) - vendor=wrs - ;; - -aux*) - vendor=apple - ;; - -hms*) - vendor=hitachi - ;; - -mpw* | -macos*) - vendor=apple - ;; - -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) - vendor=atari - ;; - -vos*) - vendor=stratus - ;; - esac - basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"` - ;; -esac - -echo $basic_machine$os -exit 0 - -# Local variables: -# eval: (add-hook 'write-file-hooks 'time-stamp) -# time-stamp-start: "timestamp='" -# time-stamp-format: "%:y-%02m-%02d" -# time-stamp-end: "'" -# End: diff --git a/gnu/lib/libf2c/configure b/gnu/lib/libf2c/configure deleted file mode 100755 index 119aae752a3..00000000000 --- a/gnu/lib/libf2c/configure +++ /dev/null @@ -1,1988 +0,0 @@ -#! /bin/sh - -# Guess values for system-dependent variables and create Makefiles. -# Generated automatically using autoconf version 2.13 -# Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc. -# -# This configure script is free software; the Free Software Foundation -# gives unlimited permission to copy, distribute and modify it. - -# Defaults: -ac_help= -ac_default_prefix=/usr/local -# Any additions from configure.in: -ac_help="$ac_help - --enable-multilib build hella library versions (default)" -ac_help="$ac_help - --with-target-subdir=SUBDIR - configuring in a subdirectory" -ac_help="$ac_help - --with-cross-host=HOST configuring with a cross compiler" -ac_help="$ac_help - --enable-version-specific-runtime-libs Specify that runtime libraries should be installed in a compiler-specific directory " - -# Initialize some variables set by options. -# The variables have the same names as the options, with -# dashes changed to underlines. -build=NONE -cache_file=./config.cache -exec_prefix=NONE -host=NONE -no_create= -nonopt=NONE -no_recursion= -prefix=NONE -program_prefix=NONE -program_suffix=NONE -program_transform_name=s,x,x, -silent= -site= -srcdir= -target=NONE -verbose= -x_includes=NONE -x_libraries=NONE -bindir='${exec_prefix}/bin' -sbindir='${exec_prefix}/sbin' -libexecdir='${exec_prefix}/libexec' -datadir='${prefix}/share' -sysconfdir='${prefix}/etc' -sharedstatedir='${prefix}/com' -localstatedir='${prefix}/var' -libdir='${exec_prefix}/lib' -includedir='${prefix}/include' -oldincludedir='/usr/include' -infodir='${prefix}/info' -mandir='${prefix}/man' - -# Initialize some other variables. -subdirs= -MFLAGS= MAKEFLAGS= -SHELL=${CONFIG_SHELL-/bin/sh} -# Maximum number of lines to put in a shell here document. -ac_max_here_lines=12 - -ac_prev= -for ac_option -do - - # If the previous option needs an argument, assign it. - if test -n "$ac_prev"; then - eval "$ac_prev=\$ac_option" - ac_prev= - continue - fi - - case "$ac_option" in - -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;; - *) ac_optarg= ;; - esac - - # Accept the important Cygnus configure options, so we can diagnose typos. - - case "$ac_option" in - - -bindir | --bindir | --bindi | --bind | --bin | --bi) - ac_prev=bindir ;; - -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) - bindir="$ac_optarg" ;; - - -build | --build | --buil | --bui | --bu) - ac_prev=build ;; - -build=* | --build=* | --buil=* | --bui=* | --bu=*) - build="$ac_optarg" ;; - - -cache-file | --cache-file | --cache-fil | --cache-fi \ - | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) - ac_prev=cache_file ;; - -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ - | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) - cache_file="$ac_optarg" ;; - - -datadir | --datadir | --datadi | --datad | --data | --dat | --da) - ac_prev=datadir ;; - -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ - | --da=*) - datadir="$ac_optarg" ;; - - -disable-* | --disable-*) - ac_feature=`echo $ac_option|sed -e 's/-*disable-//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then - { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } - fi - ac_feature=`echo $ac_feature| sed 's/-/_/g'` - eval "enable_${ac_feature}=no" ;; - - -enable-* | --enable-*) - ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then - { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } - fi - ac_feature=`echo $ac_feature| sed 's/-/_/g'` - case "$ac_option" in - *=*) ;; - *) ac_optarg=yes ;; - esac - eval "enable_${ac_feature}='$ac_optarg'" ;; - - -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ - | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ - | --exec | --exe | --ex) - ac_prev=exec_prefix ;; - -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ - | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ - | --exec=* | --exe=* | --ex=*) - exec_prefix="$ac_optarg" ;; - - -gas | --gas | --ga | --g) - # Obsolete; use --with-gas. - with_gas=yes ;; - - -help | --help | --hel | --he) - # Omit some internal or obsolete options to make the list less imposing. - # This message is too long to be a string in the A/UX 3.1 sh. - cat << EOF -Usage: configure [options] [host] -Options: [defaults in brackets after descriptions] -Configuration: - --cache-file=FILE cache test results in FILE - --help print this message - --no-create do not create output files - --quiet, --silent do not print \`checking...' messages - --version print the version of autoconf that created configure -Directory and file names: - --prefix=PREFIX install architecture-independent files in PREFIX - [$ac_default_prefix] - --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX - [same as prefix] - --bindir=DIR user executables in DIR [EPREFIX/bin] - --sbindir=DIR system admin executables in DIR [EPREFIX/sbin] - --libexecdir=DIR program executables in DIR [EPREFIX/libexec] - --datadir=DIR read-only architecture-independent data in DIR - [PREFIX/share] - --sysconfdir=DIR read-only single-machine data in DIR [PREFIX/etc] - --sharedstatedir=DIR modifiable architecture-independent data in DIR - [PREFIX/com] - --localstatedir=DIR modifiable single-machine data in DIR [PREFIX/var] - --libdir=DIR object code libraries in DIR [EPREFIX/lib] - --includedir=DIR C header files in DIR [PREFIX/include] - --oldincludedir=DIR C header files for non-gcc in DIR [/usr/include] - --infodir=DIR info documentation in DIR [PREFIX/info] - --mandir=DIR man documentation in DIR [PREFIX/man] - --srcdir=DIR find the sources in DIR [configure dir or ..] - --program-prefix=PREFIX prepend PREFIX to installed program names - --program-suffix=SUFFIX append SUFFIX to installed program names - --program-transform-name=PROGRAM - run sed PROGRAM on installed program names -EOF - cat << EOF -Host type: - --build=BUILD configure for building on BUILD [BUILD=HOST] - --host=HOST configure for HOST [guessed] - --target=TARGET configure for TARGET [TARGET=HOST] -Features and packages: - --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) - --enable-FEATURE[=ARG] include FEATURE [ARG=yes] - --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] - --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) - --x-includes=DIR X include files are in DIR - --x-libraries=DIR X library files are in DIR -EOF - if test -n "$ac_help"; then - echo "--enable and --with options recognized:$ac_help" - fi - exit 0 ;; - - -host | --host | --hos | --ho) - ac_prev=host ;; - -host=* | --host=* | --hos=* | --ho=*) - host="$ac_optarg" ;; - - -includedir | --includedir | --includedi | --included | --include \ - | --includ | --inclu | --incl | --inc) - ac_prev=includedir ;; - -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ - | --includ=* | --inclu=* | --incl=* | --inc=*) - includedir="$ac_optarg" ;; - - -infodir | --infodir | --infodi | --infod | --info | --inf) - ac_prev=infodir ;; - -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) - infodir="$ac_optarg" ;; - - -libdir | --libdir | --libdi | --libd) - ac_prev=libdir ;; - -libdir=* | --libdir=* | --libdi=* | --libd=*) - libdir="$ac_optarg" ;; - - -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ - | --libexe | --libex | --libe) - ac_prev=libexecdir ;; - -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ - | --libexe=* | --libex=* | --libe=*) - libexecdir="$ac_optarg" ;; - - -localstatedir | --localstatedir | --localstatedi | --localstated \ - | --localstate | --localstat | --localsta | --localst \ - | --locals | --local | --loca | --loc | --lo) - ac_prev=localstatedir ;; - -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ - | --localstate=* | --localstat=* | --localsta=* | --localst=* \ - | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) - localstatedir="$ac_optarg" ;; - - -mandir | --mandir | --mandi | --mand | --man | --ma | --m) - ac_prev=mandir ;; - -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) - mandir="$ac_optarg" ;; - - -nfp | --nfp | --nf) - # Obsolete; use --without-fp. - with_fp=no ;; - - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c) - no_create=yes ;; - - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) - no_recursion=yes ;; - - -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ - | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ - | --oldin | --oldi | --old | --ol | --o) - ac_prev=oldincludedir ;; - -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ - | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ - | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) - oldincludedir="$ac_optarg" ;; - - -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) - ac_prev=prefix ;; - -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) - prefix="$ac_optarg" ;; - - -program-prefix | --program-prefix | --program-prefi | --program-pref \ - | --program-pre | --program-pr | --program-p) - ac_prev=program_prefix ;; - -program-prefix=* | --program-prefix=* | --program-prefi=* \ - | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) - program_prefix="$ac_optarg" ;; - - -program-suffix | --program-suffix | --program-suffi | --program-suff \ - | --program-suf | --program-su | --program-s) - ac_prev=program_suffix ;; - -program-suffix=* | --program-suffix=* | --program-suffi=* \ - | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) - program_suffix="$ac_optarg" ;; - - -program-transform-name | --program-transform-name \ - | --program-transform-nam | --program-transform-na \ - | --program-transform-n | --program-transform- \ - | --program-transform | --program-transfor \ - | --program-transfo | --program-transf \ - | --program-trans | --program-tran \ - | --progr-tra | --program-tr | --program-t) - ac_prev=program_transform_name ;; - -program-transform-name=* | --program-transform-name=* \ - | --program-transform-nam=* | --program-transform-na=* \ - | --program-transform-n=* | --program-transform-=* \ - | --program-transform=* | --program-transfor=* \ - | --program-transfo=* | --program-transf=* \ - | --program-trans=* | --program-tran=* \ - | --progr-tra=* | --program-tr=* | --program-t=*) - program_transform_name="$ac_optarg" ;; - - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil) - silent=yes ;; - - -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) - ac_prev=sbindir ;; - -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ - | --sbi=* | --sb=*) - sbindir="$ac_optarg" ;; - - -sharedstatedir | --sharedstatedir | --sharedstatedi \ - | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ - | --sharedst | --shareds | --shared | --share | --shar \ - | --sha | --sh) - ac_prev=sharedstatedir ;; - -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ - | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ - | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ - | --sha=* | --sh=*) - sharedstatedir="$ac_optarg" ;; - - -site | --site | --sit) - ac_prev=site ;; - -site=* | --site=* | --sit=*) - site="$ac_optarg" ;; - - -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) - ac_prev=srcdir ;; - -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) - srcdir="$ac_optarg" ;; - - -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ - | --syscon | --sysco | --sysc | --sys | --sy) - ac_prev=sysconfdir ;; - -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ - | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) - sysconfdir="$ac_optarg" ;; - - -target | --target | --targe | --targ | --tar | --ta | --t) - ac_prev=target ;; - -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) - target="$ac_optarg" ;; - - -v | -verbose | --verbose | --verbos | --verbo | --verb) - verbose=yes ;; - - -version | --version | --versio | --versi | --vers) - echo "configure generated by autoconf version 2.13" - exit 0 ;; - - -with-* | --with-*) - ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then - { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } - fi - ac_package=`echo $ac_package| sed 's/-/_/g'` - case "$ac_option" in - *=*) ;; - *) ac_optarg=yes ;; - esac - eval "with_${ac_package}='$ac_optarg'" ;; - - -without-* | --without-*) - ac_package=`echo $ac_option|sed -e 's/-*without-//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then - { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } - fi - ac_package=`echo $ac_package| sed 's/-/_/g'` - eval "with_${ac_package}=no" ;; - - --x) - # Obsolete; use --with-x. - with_x=yes ;; - - -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ - | --x-incl | --x-inc | --x-in | --x-i) - ac_prev=x_includes ;; - -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ - | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) - x_includes="$ac_optarg" ;; - - -x-libraries | --x-libraries | --x-librarie | --x-librari \ - | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) - ac_prev=x_libraries ;; - -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ - | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) - x_libraries="$ac_optarg" ;; - - -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; } - ;; - - *) - if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then - echo "configure: warning: $ac_option: invalid host type" 1>&2 - fi - if test "x$nonopt" != xNONE; then - { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } - fi - nonopt="$ac_option" - ;; - - esac -done - -if test -n "$ac_prev"; then - { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; } -fi - -trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 - -# File descriptor usage: -# 0 standard input -# 1 file creation -# 2 errors and warnings -# 3 some systems may open it to /dev/tty -# 4 used on the Kubota Titan -# 6 checking for... messages and results -# 5 compiler messages saved in config.log -if test "$silent" = yes; then - exec 6>/dev/null -else - exec 6>&1 -fi -exec 5>./config.log - -echo "\ -This file contains any messages produced by compilers while -running configure, to aid debugging if configure makes a mistake. -" 1>&5 - -# Strip out --no-create and --no-recursion so they do not pile up. -# Also quote any args containing shell metacharacters. -ac_configure_args= -for ac_arg -do - case "$ac_arg" in - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c) ;; - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;; - *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*) - ac_configure_args="$ac_configure_args '$ac_arg'" ;; - *) ac_configure_args="$ac_configure_args $ac_arg" ;; - esac -done - -# NLS nuisances. -# Only set these to C if already set. These must not be set unconditionally -# because not all systems understand e.g. LANG=C (notably SCO). -# Fixing LC_MESSAGES prevents Solaris sh from translating var values in `set'! -# Non-C LC_CTYPE values break the ctype check. -if test "${LANG+set}" = set; then LANG=C; export LANG; fi -if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi -if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi -if test "${LC_CTYPE+set}" = set; then LC_CTYPE=C; export LC_CTYPE; fi - -# confdefs.h avoids OS command line length limits that DEFS can exceed. -rm -rf conftest* confdefs.h -# AIX cpp loses on an empty file, so make sure it contains at least a newline. -echo > confdefs.h - -# A filename unique to this package, relative to the directory that -# configure is in, which we can look for to find out if srcdir is correct. -ac_unique_file=libF77/Version.c - -# Find the source files, if location was not specified. -if test -z "$srcdir"; then - ac_srcdir_defaulted=yes - # Try the directory containing this script, then its parent. - ac_prog=$0 - ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'` - test "x$ac_confdir" = "x$ac_prog" && ac_confdir=. - srcdir=$ac_confdir - if test ! -r $srcdir/$ac_unique_file; then - srcdir=.. - fi -else - ac_srcdir_defaulted=no -fi -if test ! -r $srcdir/$ac_unique_file; then - if test "$ac_srcdir_defaulted" = yes; then - { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; } - else - { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; } - fi -fi -srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'` - -# Prefer explicitly selected file to automatically selected ones. -if test -z "$CONFIG_SITE"; then - if test "x$prefix" != xNONE; then - CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" - else - CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" - fi -fi -for ac_site_file in $CONFIG_SITE; do - if test -r "$ac_site_file"; then - echo "loading site script $ac_site_file" - . "$ac_site_file" - fi -done - -if test -r "$cache_file"; then - echo "loading cache $cache_file" - . $cache_file -else - echo "creating cache $cache_file" - > $cache_file -fi - -ac_ext=c -# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. -ac_cpp='$CPP $CPPFLAGS' -ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' -ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -cross_compiling=$ac_cv_prog_cc_cross - -ac_exeext= -ac_objext=o -if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then - # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu. - if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then - ac_n= ac_c=' -' ac_t=' ' - else - ac_n=-n ac_c= ac_t= - fi -else - ac_n= ac_c='\c' ac_t= -fi - - - -# This works around the fact that libtool configuration may change LD -# for this particular configuration, but some shells, instead of -# keeping the changes in LD private, export them just because LD is -# exported. -ORIGINAL_LD_FOR_MULTILIBS=$LD - - - # Check whether --enable-multilib or --disable-multilib was given. -if test "${enable_multilib+set}" = set; then - enableval="$enable_multilib" - case "${enableval}" in - yes) multilib=yes ;; - no) multilib=no ;; - *) { echo "configure: error: bad value ${enableval} for multilib option" 1>&2; exit 1; } ;; - esac -else - multilib=yes -fi - -toprel="." - -ac_aux_dir= -for ac_dir in ${GNUSYSTEM_AUX_DIR} ${srcdir}/$toprel $srcdir/${srcdir}/$toprel; do - if test -f $ac_dir/install-sh; then - ac_aux_dir=$ac_dir - ac_install_sh="$ac_aux_dir/install-sh -c" - break - elif test -f $ac_dir/install.sh; then - ac_aux_dir=$ac_dir - ac_install_sh="$ac_aux_dir/install.sh -c" - break - fi -done -if test -z "$ac_aux_dir"; then - { echo "configure: error: can not find install-sh or install.sh in ${srcdir}/$toprel $srcdir/${srcdir}/$toprel" 1>&2; exit 1; } -fi -ac_config_guess=$ac_aux_dir/config.guess -ac_config_sub=$ac_aux_dir/config.sub -ac_configure=$ac_aux_dir/configure # This should be Cygnus configure. - -toplevel_srcdir=\${top_srcdir}/$toprel - - - - -# Do some error checking and defaulting for the host and target type. -# The inputs are: -# configure --host=HOST --target=TARGET --build=BUILD NONOPT -# -# The rules are: -# 1. You are not allowed to specify --host, --target, and nonopt at the -# same time. -# 2. Host defaults to nonopt. -# 3. If nonopt is not specified, then host defaults to the current host, -# as determined by config.guess. -# 4. Target and build default to nonopt. -# 5. If nonopt is not specified, then target and build default to host. - -# The aliases save the names the user supplied, while $host etc. -# will get canonicalized. -case $host---$target---$nonopt in -NONE---*---* | *---NONE---* | *---*---NONE) ;; -*) { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } ;; -esac - - -# Make sure we can run config.sub. -if ${CONFIG_SHELL-/bin/sh} $ac_config_sub sun4 >/dev/null 2>&1; then : -else { echo "configure: error: can not run $ac_config_sub" 1>&2; exit 1; } -fi - -echo $ac_n "checking host system type""... $ac_c" 1>&6 -echo "configure:607: checking host system type" >&5 - -host_alias=$host -case "$host_alias" in -NONE) - case $nonopt in - NONE) - if host_alias=`${CONFIG_SHELL-/bin/sh} $ac_config_guess`; then : - else { echo "configure: error: can not guess host type; you must specify one" 1>&2; exit 1; } - fi ;; - *) host_alias=$nonopt ;; - esac ;; -esac - -host=`${CONFIG_SHELL-/bin/sh} $ac_config_sub $host_alias` -host_cpu=`echo $host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` -host_vendor=`echo $host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` -host_os=`echo $host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` -echo "$ac_t""$host" 1>&6 - -echo $ac_n "checking target system type""... $ac_c" 1>&6 -echo "configure:628: checking target system type" >&5 - -target_alias=$target -case "$target_alias" in -NONE) - case $nonopt in - NONE) target_alias=$host_alias ;; - *) target_alias=$nonopt ;; - esac ;; -esac - -target=`${CONFIG_SHELL-/bin/sh} $ac_config_sub $target_alias` -target_cpu=`echo $target | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` -target_vendor=`echo $target | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` -target_os=`echo $target | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` -echo "$ac_t""$target" 1>&6 - -echo $ac_n "checking build system type""... $ac_c" 1>&6 -echo "configure:646: checking build system type" >&5 - -build_alias=$build -case "$build_alias" in -NONE) - case $nonopt in - NONE) build_alias=$host_alias ;; - *) build_alias=$nonopt ;; - esac ;; -esac - -build=`${CONFIG_SHELL-/bin/sh} $ac_config_sub $build_alias` -build_cpu=`echo $build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` -build_vendor=`echo $build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` -build_os=`echo $build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` -echo "$ac_t""$build" 1>&6 - -test "$host_alias" != "$target_alias" && - test "$program_prefix$program_suffix$program_transform_name" = \ - NONENONEs,x,x, && - program_prefix=${target_alias}- - -target_alias=${target_alias-$target} - - -if test $host != $build; then - ac_tool_prefix=${host_alias}- -else - ac_tool_prefix= -fi - -echo $ac_n "checking for Cygwin environment""... $ac_c" 1>&6 -echo "configure:678: checking for Cygwin environment" >&5 -if eval "test \"`echo '$''{'ac_cv_cygwin'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 683 "configure" -#include "confdefs.h" - -int main() { - -#ifndef __CYGWIN__ -#define __CYGWIN__ __CYGWIN32__ -#endif -return __CYGWIN__; -; return 0; } -EOF -if { (eval echo configure:694: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_cygwin=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_cygwin=no -fi -rm -f conftest* -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_cygwin" 1>&6 -CYGWIN= -test "$ac_cv_cygwin" = yes && CYGWIN=yes -echo $ac_n "checking for mingw32 environment""... $ac_c" 1>&6 -echo "configure:711: checking for mingw32 environment" >&5 -if eval "test \"`echo '$''{'ac_cv_mingw32'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 716 "configure" -#include "confdefs.h" - -int main() { -return __MINGW32__; -; return 0; } -EOF -if { (eval echo configure:723: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_mingw32=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_mingw32=no -fi -rm -f conftest* -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_mingw32" 1>&6 -MINGW32= -test "$ac_cv_mingw32" = yes && MINGW32=yes - -# Export build and source directories. -# These need to be absolute paths, yet at the same time need to -# canonicalize only relative paths, because then amd will not unmount -# drives. Thus the use of PWDCMD: set it to 'pawd' or 'amq -w' if using amd. -glibcpp_builddir=`${PWDCMD-pwd}` -case $srcdir in -\\/$* | ?:\\/*) glibcpp_srcdir=${srcdir} ;; -*) glibcpp_srcdir=`cd "$srcdir" && ${PWDCMD-pwd} || echo "$srcdir"` ;; -esac - - - - - -# Will set LN_S to either 'ln -s' or 'ln'. With autoconf 2.50+, can also -# be 'cp -p' if linking isn't available. -#ac_cv_prog_LN_S='cp -p' -echo $ac_n "checking whether ln -s works""... $ac_c" 1>&6 -echo "configure:758: checking whether ln -s works" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_LN_S'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - rm -f conftestdata -if ln -s X conftestdata 2>/dev/null -then - rm -f conftestdata - ac_cv_prog_LN_S="ln -s" -else - ac_cv_prog_LN_S=ln -fi -fi -LN_S="$ac_cv_prog_LN_S" -if test "$ac_cv_prog_LN_S" = "ln -s"; then - echo "$ac_t""yes" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - - -# We use these options to decide which functions to include. -# Check whether --with-target-subdir or --without-target-subdir was given. -if test "${with_target_subdir+set}" = set; then - withval="$with_target_subdir" - : -fi - -# Check whether --with-cross-host or --without-cross-host was given. -if test "${with_cross_host+set}" = set; then - withval="$with_cross_host" - : -fi - - - # Never versions of autoconf add an underscore to these functions. - # Prevent future problems ... - - - - - -# AC_PROG_CC - -# FIXME: We temporarily define our own version of AC_PROG_CC. This is -# copied from autoconf 2.12, but does not call AC_PROG_CC_WORKS. We -# are probably using a cross compiler, which will not be able to fully -# link an executable. This should really be fixed in autoconf -# itself. - - - - -# Extract the first word of "gcc", so it can be a program name with args. -set dummy gcc; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:814: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_CC="gcc" - break - fi - done - IFS="$ac_save_ifs" -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - -if test -z "$CC"; then - # Extract the first word of "cc", so it can be a program name with args. -set dummy cc; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:844: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_prog_rejected=no - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - if test "$ac_dir/$ac_word" = "/usr/ucb/cc"; then - ac_prog_rejected=yes - continue - fi - ac_cv_prog_CC="cc" - break - fi - done - IFS="$ac_save_ifs" -if test $ac_prog_rejected = yes; then - # We found a bogon in the path, so make sure we never use it. - set dummy $ac_cv_prog_CC - shift - if test $# -gt 0; then - # We chose a different compiler from the bogus one. - # However, it has the same basename, so the bogon will be chosen - # first if we set CC to just the basename; use the full file name. - shift - set dummy "$ac_dir/$ac_word" "$@" - shift - ac_cv_prog_CC="$@" - fi -fi -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - - test -z "$CC" && { echo "configure: error: no acceptable cc found in \$PATH" 1>&2; exit 1; } -fi - -echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6 -echo "configure:893: checking whether we are using GNU C" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.c <<EOF -#ifdef __GNUC__ - yes; -#endif -EOF -if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:902: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then - ac_cv_prog_gcc=yes -else - ac_cv_prog_gcc=no -fi -fi - -echo "$ac_t""$ac_cv_prog_gcc" 1>&6 - -if test $ac_cv_prog_gcc = yes; then - GCC=yes - ac_test_CFLAGS="${CFLAGS+set}" - ac_save_CFLAGS="$CFLAGS" - CFLAGS= - echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6 -echo "configure:917: checking whether ${CC-cc} accepts -g" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - echo 'void f(){}' > conftest.c -if test -z "`${CC-cc} -g -c conftest.c 2>&1`"; then - ac_cv_prog_cc_g=yes -else - ac_cv_prog_cc_g=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$ac_cv_prog_cc_g" 1>&6 - if test "$ac_test_CFLAGS" = set; then - CFLAGS="$ac_save_CFLAGS" - elif test $ac_cv_prog_cc_g = yes; then - CFLAGS="-g -O2" - else - CFLAGS="-O2" - fi -else - GCC= - test "${CFLAGS+set}" = set || CFLAGS="-g" -fi - - - # Extract the first word of "${ac_tool_prefix}as", so it can be a program name with args. -set dummy ${ac_tool_prefix}as; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:948: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_AS'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$AS"; then - ac_cv_prog_AS="$AS" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_AS="${ac_tool_prefix}as" - break - fi - done - IFS="$ac_save_ifs" - test -z "$ac_cv_prog_AS" && ac_cv_prog_AS="as" -fi -fi -AS="$ac_cv_prog_AS" -if test -n "$AS"; then - echo "$ac_t""$AS" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - - - - # Extract the first word of "${ac_tool_prefix}ar", so it can be a program name with args. -set dummy ${ac_tool_prefix}ar; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:980: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_AR'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$AR"; then - ac_cv_prog_AR="$AR" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_AR="${ac_tool_prefix}ar" - break - fi - done - IFS="$ac_save_ifs" - test -z "$ac_cv_prog_AR" && ac_cv_prog_AR="ar" -fi -fi -AR="$ac_cv_prog_AR" -if test -n "$AR"; then - echo "$ac_t""$AR" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - - - - # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. -set dummy ${ac_tool_prefix}ranlib; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:1012: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$RANLIB"; then - ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" - break - fi - done - IFS="$ac_save_ifs" -fi -fi -RANLIB="$ac_cv_prog_RANLIB" -if test -n "$RANLIB"; then - echo "$ac_t""$RANLIB" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - - -if test -z "$ac_cv_prog_RANLIB"; then -if test -n "$ac_tool_prefix"; then - # Extract the first word of "ranlib", so it can be a program name with args. -set dummy ranlib; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:1044: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$RANLIB"; then - ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_RANLIB="ranlib" - break - fi - done - IFS="$ac_save_ifs" - test -z "$ac_cv_prog_RANLIB" && ac_cv_prog_RANLIB="ranlib-not-found-in-path-error" -fi -fi -RANLIB="$ac_cv_prog_RANLIB" -if test -n "$RANLIB"; then - echo "$ac_t""$RANLIB" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - -else - RANLIB="ranlib-not-found-in-path-error" -fi -fi - - # Find a good install program. We prefer a C program (faster), -# so one script is as good as another. But avoid the broken or -# incompatible versions: -# SysV /etc/install, /usr/sbin/install -# SunOS /usr/etc/install -# IRIX /sbin/install -# AIX /bin/install -# AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag -# AFS /usr/afsws/bin/install, which mishandles nonexistent args -# SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" -# ./install, which can be erroneously created by make from ./install.sh. -echo $ac_n "checking for a BSD compatible install""... $ac_c" 1>&6 -echo "configure:1088: checking for a BSD compatible install" >&5 -if test -z "$INSTALL"; then -if eval "test \"`echo '$''{'ac_cv_path_install'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - IFS="${IFS= }"; ac_save_IFS="$IFS"; IFS=":" - for ac_dir in $PATH; do - # Account for people who put trailing slashes in PATH elements. - case "$ac_dir/" in - /|./|.//|/etc/*|/usr/sbin/*|/usr/etc/*|/sbin/*|/usr/afsws/bin/*|/usr/ucb/*) ;; - *) - # OSF1 and SCO ODT 3.0 have their own names for install. - # Don't use installbsd from OSF since it installs stuff as root - # by default. - for ac_prog in ginstall scoinst install; do - if test -f $ac_dir/$ac_prog; then - if test $ac_prog = install && - grep dspmsg $ac_dir/$ac_prog >/dev/null 2>&1; then - # AIX install. It has an incompatible calling convention. - : - else - ac_cv_path_install="$ac_dir/$ac_prog -c" - break 2 - fi - fi - done - ;; - esac - done - IFS="$ac_save_IFS" - -fi - if test "${ac_cv_path_install+set}" = set; then - INSTALL="$ac_cv_path_install" - else - # As a last resort, use the slow shell script. We don't cache a - # path for INSTALL within a source directory, because that will - # break other packages using the cache if that directory is - # removed, or if the path is relative. - INSTALL="$ac_install_sh" - fi -fi -echo "$ac_t""$INSTALL" 1>&6 - -# Use test -z because SunOS4 sh mishandles braces in ${var-val}. -# It thinks the first close brace ends the variable substitution. -test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' - -test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL_PROGRAM}' - -test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' - - - # We need AC_EXEEXT to keep automake happy in cygnus mode. However, - # at least currently, we never actually build a program, so we never - # need to use $(EXEEXT). Moreover, the test for EXEEXT normally - # fails, because we are probably configuring with a cross compiler - # which can't create executables. So we include AC_EXEEXT to keep - # automake happy, but we don't execute it, since we don't care about - # the result. - if false; then - # autoconf 2.50 runs AC_EXEEXT by default, and the macro expands - # to nothing, so nothing would remain between `then' and `fi' if it - # were not for the `:' below. - : - - -echo $ac_n "checking for executable suffix""... $ac_c" 1>&6 -echo "configure:1156: checking for executable suffix" >&5 -if eval "test \"`echo '$''{'ac_cv_exeext'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test "$CYGWIN" = yes || test "$MINGW32" = yes; then - ac_cv_exeext=.exe -else - rm -f conftest* - echo 'int main () { return 0; }' > conftest.$ac_ext - ac_cv_exeext= - if { (eval echo configure:1166: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then - for file in conftest.*; do - case $file in - *.c | *.o | *.obj) ;; - *) ac_cv_exeext=`echo $file | sed -e s/conftest//` ;; - esac - done - else - { echo "configure: error: installation or configuration problem: compiler cannot create executables." 1>&2; exit 1; } - fi - rm -f conftest* - test x"${ac_cv_exeext}" = x && ac_cv_exeext=no -fi -fi - -EXEEXT="" -test x"${ac_cv_exeext}" != xno && EXEEXT=${ac_cv_exeext} -echo "$ac_t""${ac_cv_exeext}" 1>&6 -ac_exeext=$EXEEXT - - fi - - -# Assumes glibcpp_builddir, glibcpp_srcdir are alreay set up and -# exported correctly in GLIBCPP_CONFIGURE. -glibcpp_toolexecdir=no -glibcpp_toolexeclibdir=no -glibcpp_prefixdir=${prefix} - -echo $ac_n "checking for interface version number""... $ac_c" 1>&6 -echo "configure:1196: checking for interface version number" >&5 -libstdcxx_interface=$INTERFACE -echo "$ac_t""$libstdcxx_interface" 1>&6 - -# Process the option "--enable-version-specific-runtime-libs" -echo $ac_n "checking for --enable-version-specific-runtime-libs""... $ac_c" 1>&6 -echo "configure:1202: checking for --enable-version-specific-runtime-libs" >&5 -# Check whether --enable-version-specific-runtime-libs or --disable-version-specific-runtime-libs was given. -if test "${enable_version_specific_runtime_libs+set}" = set; then - enableval="$enable_version_specific_runtime_libs" - case "$enableval" in - yes) version_specific_libs=yes ;; - no) version_specific_libs=no ;; - *) { echo "configure: error: Unknown argument to enable/disable version-specific libs" 1>&2; exit 1; };; - esac -else - version_specific_libs=no -fi -# Option set, now we can test it. -echo "$ac_t""$version_specific_libs" 1>&6 - -gcc_version_trigger=${toplevel_srcdir}/gcc/version.c -gcc_version_full=`grep version_string ${gcc_version_trigger} | sed -e 's/.*\"\([^ \"]*\)[ \"].*/\1/'` -gcc_version=`echo ${gcc_version_full} | sed -e 's/\(^ *\) .*/\1/'` - - - -if test $version_specific_libs = yes; then - # Need the gcc compiler version to know where to install libraries - # and header files if --enable-version-specific-runtime-libs option - # is selected. - glibcpp_toolexecdir='$(libdir)/gcc-lib/$(target_alias)' - glibcpp_toolexeclibdir='$(toolexecdir)/'${gcc_version}'$(MULTISUBDIR)' - fi - -# Calculate glibcpp_toolexecdir, glibcpp_toolexeclibdir -# Install a library built with a cross compiler in tooldir, not libdir. -if test x"$glibcpp_toolexecdir" = x"no"; then - if test -n "$with_cross_host" && - test x"$with_cross_host" != x"no"; then - glibcpp_toolexecdir='$(exec_prefix)/$(target_alias)' - glibcpp_toolexeclibdir='$(toolexecdir)/lib' - else - glibcpp_toolexecdir='$(libdir)/gcc-lib/$(target_alias)' - glibcpp_toolexeclibdir='$(libdir)' - fi - glibcpp_toolexeclibdir=$glibcpp_toolexeclibdir/`$CC -print-multi-os-directory` -fi - - - - - - -# If the language specific compiler does not exist, but the "gcc" directory -# does, we do not build anything. Note, $r is set by the top-level Makefile. -# Note that when we look for the compiler, we search both with and without -# extension to handle cross and canadian cross builds. -compiler_name=f771 -rm -f skip-this-dir -echo $ac_n "checking if compiler $compiler_name has been built""... $ac_c" 1>&6 -echo "configure:1257: checking if compiler $compiler_name has been built" >&5 -if eval "test \"`echo '$''{'g77_cv_compiler_exists'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - g77_cv_compiler_exists=yes -if test -n "$r"; then - if test -d "$r"/gcc; then - if test -f "$r"/gcc/$compiler_name \ - || test -f "$r"/gcc/$compiler_name.exe; then - true - else - g77_cv_compiler_exists=no - echo "rm -f config.cache config.log multilib.out" > skip-this-dir - fi - fi -fi - -fi - -echo "$ac_t""$g77_cv_compiler_exists" 1>&6 -if test x$g77_cv_compiler_exists = xno -then - rm -f Makefile conftest* confdefs* core - exit 0 -fi - - -AM_PROG_LIBTOOL - -test "$AR" || AR=ar - -if test "$RANLIB"; then : - -else - # Extract the first word of "ranlib", so it can be a program name with args. -set dummy ranlib; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:1294: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$RANLIB"; then - ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_RANLIB="ranlib" - break - fi - done - IFS="$ac_save_ifs" - test -z "$ac_cv_prog_RANLIB" && ac_cv_prog_RANLIB=":" -fi -fi -RANLIB="$ac_cv_prog_RANLIB" -if test -n "$RANLIB"; then - echo "$ac_t""$RANLIB" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - -fi -# Find a good install program. We prefer a C program (faster), -# so one script is as good as another. But avoid the broken or -# incompatible versions: -# SysV /etc/install, /usr/sbin/install -# SunOS /usr/etc/install -# IRIX /sbin/install -# AIX /bin/install -# AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag -# AFS /usr/afsws/bin/install, which mishandles nonexistent args -# SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" -# ./install, which can be erroneously created by make from ./install.sh. -echo $ac_n "checking for a BSD compatible install""... $ac_c" 1>&6 -echo "configure:1334: checking for a BSD compatible install" >&5 -if test -z "$INSTALL"; then -if eval "test \"`echo '$''{'ac_cv_path_install'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - IFS="${IFS= }"; ac_save_IFS="$IFS"; IFS=":" - for ac_dir in $PATH; do - # Account for people who put trailing slashes in PATH elements. - case "$ac_dir/" in - /|./|.//|/etc/*|/usr/sbin/*|/usr/etc/*|/sbin/*|/usr/afsws/bin/*|/usr/ucb/*) ;; - *) - # OSF1 and SCO ODT 3.0 have their own names for install. - # Don't use installbsd from OSF since it installs stuff as root - # by default. - for ac_prog in ginstall scoinst install; do - if test -f $ac_dir/$ac_prog; then - if test $ac_prog = install && - grep dspmsg $ac_dir/$ac_prog >/dev/null 2>&1; then - # AIX install. It has an incompatible calling convention. - : - else - ac_cv_path_install="$ac_dir/$ac_prog -c" - break 2 - fi - fi - done - ;; - esac - done - IFS="$ac_save_IFS" - -fi - if test "${ac_cv_path_install+set}" = set; then - INSTALL="$ac_cv_path_install" - else - # As a last resort, use the slow shell script. We don't cache a - # path for INSTALL within a source directory, because that will - # break other packages using the cache if that directory is - # removed, or if the path is relative. - INSTALL="$ac_install_sh" - fi -fi -echo "$ac_t""$INSTALL" 1>&6 - -# Use test -z because SunOS4 sh mishandles braces in ${var-val}. -# It thinks the first close brace ends the variable substitution. -test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' - -test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL_PROGRAM}' - -test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' - -echo $ac_n "checking whether ${MAKE-make} sets \${MAKE}""... $ac_c" 1>&6 -echo "configure:1387: checking whether ${MAKE-make} sets \${MAKE}" >&5 -set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y%./+-%__p_%'` -if eval "test \"`echo '$''{'ac_cv_prog_make_${ac_make}_set'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftestmake <<\EOF -all: - @echo 'ac_maketemp="${MAKE}"' -EOF -# GNU make sometimes prints "make[1]: Entering...", which would confuse us. -eval `${MAKE-make} -f conftestmake 2>/dev/null | grep temp=` -if test -n "$ac_maketemp"; then - eval ac_cv_prog_make_${ac_make}_set=yes -else - eval ac_cv_prog_make_${ac_make}_set=no -fi -rm -f conftestmake -fi -if eval "test \"`echo '$ac_cv_prog_make_'${ac_make}_set`\" = yes"; then - echo "$ac_t""yes" 1>&6 - SET_MAKE= -else - echo "$ac_t""no" 1>&6 - SET_MAKE="MAKE=${MAKE-make}" -fi - - -# Sanity check for the cross-compilation case: -echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6 -echo "configure:1416: checking how to run the C preprocessor" >&5 -# On Suns, sometimes $CPP names a directory. -if test -n "$CPP" && test -d "$CPP"; then - CPP= -fi -if test -z "$CPP"; then -if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - # This must be in double quotes, not single quotes, because CPP may get - # substituted into the Makefile and "${CC-cc}" will confuse make. - CPP="${CC-cc} -E" - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. - cat > conftest.$ac_ext <<EOF -#line 1431 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:1437: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP="${CC-cc} -E -traditional-cpp" - cat > conftest.$ac_ext <<EOF -#line 1448 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:1454: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP="${CC-cc} -nologo -E" - cat > conftest.$ac_ext <<EOF -#line 1465 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:1471: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP=/lib/cpp -fi -rm -f conftest* -fi -rm -f conftest* -fi -rm -f conftest* - ac_cv_prog_CPP="$CPP" -fi - CPP="$ac_cv_prog_CPP" -else - ac_cv_prog_CPP="$CPP" -fi -echo "$ac_t""$CPP" 1>&6 - -ac_safe=`echo "stdio.h" | sed 'y%./+-%__p_%'` -echo $ac_n "checking for stdio.h""... $ac_c" 1>&6 -echo "configure:1497: checking for stdio.h" >&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 1502 "configure" -#include "confdefs.h" -#include <stdio.h> -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:1507: \"$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* - eval "ac_cv_header_$ac_safe=yes" -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_header_$ac_safe=no" -fi -rm -f conftest* -fi -if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then - echo "$ac_t""yes" 1>&6 - : -else - echo "$ac_t""no" 1>&6 -{ echo "configure: error: Can't find stdio.h. -You must have a usable C system for the target already installed, at least -including headers and, preferably, the library, before you can configure -the G77 runtime system. If necessary, install gcc now with \`LANGUAGES=c', -then the target library, then build with \`LANGUAGES=f77'." 1>&2; exit 1; } -fi - - -echo $ac_n "checking for built-in g77 integer types""... $ac_c" 1>&6 -echo "configure:1535: checking for built-in g77 integer types" >&5 -if eval "test \"`echo '$''{'libf2c_cv_has_g77_builtin_types'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1540 "configure" -#include "confdefs.h" - -int main() { -__g77_integer g77i; -__g77_uinteger g77ui; -__g77_longint g77l; -__g77_ulongint g77ul; -; return 0; } -EOF -if { (eval echo configure:1550: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - libf2c_cv_has_g77_builtin_types=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - libf2c_cv_has_g77_builtin_types=no -fi -rm -f conftest* -fi - -echo "$ac_t""$libf2c_cv_has_g77_builtin_types" 1>&6 -if test $libf2c_cv_has_g77_builtin_types = no; then - { echo "configure: error: gcc doesn't define all of the built in types __g77_integer, -__g77_uinteger, __g77_longint, and __g77_ulongint. You may not be using -a new enough version of gcc, or your target may not have type sizes which -accommodate those types." 1>&2; exit 1; } -fi - -# avoid confusion in case the `makefile's from the f2c distribution have -# got put here -test -f libF77/makefile && mv libF77/makefile libF77/makefile.ori -test -f libI77/makefile && mv libI77/makefile libI77/makefile.ori -test -f libU77/makefile && mv libU77/makefile libU77/makefile.ori - -subdirs="libU77 libI77 libF77" - -# Do Makefile first since g2c.h depends on it and shouldn't get an -# earlier timestamp. Of course, it does when the multilib gunk below -# edits Makefile, sigh; see additional touch below. -trap '' 1 2 15 -cat > confcache <<\EOF -# This file is a shell script that caches the results of configure -# tests run on this system so they can be shared between configure -# scripts and configure runs. It is not useful on other systems. -# If it contains results you don't want to keep, you may remove or edit it. -# -# By default, configure uses ./config.cache as the cache file, -# creating it if it does not exist already. You can give configure -# the --cache-file=FILE option to use a different cache file; that is -# what configure does when it calls configure scripts in -# subdirectories, so they share the cache. -# Giving --cache-file=/dev/null disables caching, for debugging configure. -# config.status only pays attention to the cache file if you give it the -# --recheck option to rerun configure. -# -EOF -# The following way of writing the cache mishandles newlines in values, -# but we know of no workaround that is simple, portable, and efficient. -# So, don't put newlines in cache variables' values. -# Ultrix sh set writes to stderr and can't be redirected directly, -# and sets the high bit in the cache file unless we assign to the vars. -(set) 2>&1 | - case `(ac_space=' '; set | grep ac_space) 2>&1` in - *ac_space=\ *) - # `set' does not quote correctly, so add quotes (double-quote substitution - # turns \\\\ into \\, and sed turns \\ into \). - sed -n \ - -e "s/'/'\\\\''/g" \ - -e "s/^\\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\\)=\\(.*\\)/\\1=\${\\1='\\2'}/p" - ;; - *) - # `set' quotes correctly as required by POSIX, so do not add quotes. - sed -n -e 's/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=${\1=\2}/p' - ;; - esac >> confcache -if cmp -s $cache_file confcache; then - : -else - if test -w $cache_file; then - echo "updating cache $cache_file" - cat confcache > $cache_file - else - echo "not updating unwritable cache $cache_file" - fi -fi -rm -f confcache - -trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 - -test "x$prefix" = xNONE && prefix=$ac_default_prefix -# Let make expand exec_prefix. -test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' - -# Any assignment to VPATH causes Sun make to only execute -# the first set of double-colon rules, so remove it if not needed. -# If there is a colon in the path, we need to keep it. -if test "x$srcdir" = x.; then - ac_vpsub='/^[ ]*VPATH[ ]*=[^:]*$/d' -fi - -trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15 - -# Transform confdefs.h into DEFS. -# Protect against shell expansion while executing Makefile rules. -# Protect against Makefile macro expansion. -cat > conftest.defs <<\EOF -s%#define \([A-Za-z_][A-Za-z0-9_]*\) *\(.*\)%-D\1=\2%g -s%[ `~#$^&*(){}\\|;'"<>?]%\\&%g -s%\[%\\&%g -s%\]%\\&%g -s%\$%$$%g -EOF -DEFS=`sed -f conftest.defs confdefs.h | tr '\012' ' '` -rm -f conftest.defs - - -# Without the "./", some shells look in PATH for config.status. -: ${CONFIG_STATUS=./config.status} - -echo creating $CONFIG_STATUS -rm -f $CONFIG_STATUS -cat > $CONFIG_STATUS <<EOF -#! /bin/sh -# Generated automatically by configure. -# Run this file to recreate the current configuration. -# This directory was configured as follows, -# on host `(hostname || uname -n) 2>/dev/null | sed 1q`: -# -# $0 $ac_configure_args -# -# Compiler output produced by configure, useful for debugging -# configure, is in ./config.log if it exists. - -ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]" -for ac_option -do - case "\$ac_option" in - -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) - echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion" - exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;; - -version | --version | --versio | --versi | --vers | --ver | --ve | --v) - echo "$CONFIG_STATUS generated by autoconf version 2.13" - exit 0 ;; - -help | --help | --hel | --he | --h) - echo "\$ac_cs_usage"; exit 0 ;; - *) echo "\$ac_cs_usage"; exit 1 ;; - esac -done - -ac_given_srcdir=$srcdir -ac_given_INSTALL="$INSTALL" - -trap 'rm -fr `echo "Makefile g2c.h:g2c.hin" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15 -EOF -cat >> $CONFIG_STATUS <<EOF - -# Protect against being on the right side of a sed subst in config.status. -sed 's/%@/@@/; s/@%/@@/; s/%g\$/@g/; /@g\$/s/[\\\\&%]/\\\\&/g; - s/@@/%@/; s/@@/@%/; s/@g\$/%g/' > conftest.subs <<\\CEOF -$ac_vpsub -$extrasub -s%@SHELL@%$SHELL%g -s%@CFLAGS@%$CFLAGS%g -s%@CPPFLAGS@%$CPPFLAGS%g -s%@CXXFLAGS@%$CXXFLAGS%g -s%@FFLAGS@%$FFLAGS%g -s%@DEFS@%$DEFS%g -s%@LDFLAGS@%$LDFLAGS%g -s%@LIBS@%$LIBS%g -s%@exec_prefix@%$exec_prefix%g -s%@prefix@%$prefix%g -s%@program_transform_name@%$program_transform_name%g -s%@bindir@%$bindir%g -s%@sbindir@%$sbindir%g -s%@libexecdir@%$libexecdir%g -s%@datadir@%$datadir%g -s%@sysconfdir@%$sysconfdir%g -s%@sharedstatedir@%$sharedstatedir%g -s%@localstatedir@%$localstatedir%g -s%@libdir@%$libdir%g -s%@includedir@%$includedir%g -s%@oldincludedir@%$oldincludedir%g -s%@infodir@%$infodir%g -s%@mandir@%$mandir%g -s%@toplevel_srcdir@%$toplevel_srcdir%g -s%@host@%$host%g -s%@host_alias@%$host_alias%g -s%@host_cpu@%$host_cpu%g -s%@host_vendor@%$host_vendor%g -s%@host_os@%$host_os%g -s%@target@%$target%g -s%@target_alias@%$target_alias%g -s%@target_cpu@%$target_cpu%g -s%@target_vendor@%$target_vendor%g -s%@target_os@%$target_os%g -s%@build@%$build%g -s%@build_alias@%$build_alias%g -s%@build_cpu@%$build_cpu%g -s%@build_vendor@%$build_vendor%g -s%@build_os@%$build_os%g -s%@glibcpp_builddir@%$glibcpp_builddir%g -s%@glibcpp_srcdir@%$glibcpp_srcdir%g -s%@LN_S@%$LN_S%g -s%@CC@%$CC%g -s%@AS@%$AS%g -s%@AR@%$AR%g -s%@RANLIB@%$RANLIB%g -s%@INSTALL_PROGRAM@%$INSTALL_PROGRAM%g -s%@INSTALL_SCRIPT@%$INSTALL_SCRIPT%g -s%@INSTALL_DATA@%$INSTALL_DATA%g -s%@EXEEXT@%$EXEEXT%g -s%@gcc_version@%$gcc_version%g -s%@gcc_version_trigger@%$gcc_version_trigger%g -s%@glibcpp_prefixdir@%$glibcpp_prefixdir%g -s%@glibcpp_toolexecdir@%$glibcpp_toolexecdir%g -s%@glibcpp_toolexeclibdir@%$glibcpp_toolexeclibdir%g -s%@SET_MAKE@%$SET_MAKE%g -s%@CPP@%$CPP%g -s%@subdirs@%$subdirs%g - -CEOF -EOF - -cat >> $CONFIG_STATUS <<\EOF - -# Split the substitutions into bite-sized pieces for seds with -# small command number limits, like on Digital OSF/1 and HP-UX. -ac_max_sed_cmds=90 # Maximum number of lines to put in a sed script. -ac_file=1 # Number of current file. -ac_beg=1 # First line for current file. -ac_end=$ac_max_sed_cmds # Line after last line for current file. -ac_more_lines=: -ac_sed_cmds="" -while $ac_more_lines; do - if test $ac_beg -gt 1; then - sed "1,${ac_beg}d; ${ac_end}q" conftest.subs > conftest.s$ac_file - else - sed "${ac_end}q" conftest.subs > conftest.s$ac_file - fi - if test ! -s conftest.s$ac_file; then - ac_more_lines=false - rm -f conftest.s$ac_file - else - if test -z "$ac_sed_cmds"; then - ac_sed_cmds="sed -f conftest.s$ac_file" - else - ac_sed_cmds="$ac_sed_cmds | sed -f conftest.s$ac_file" - fi - ac_file=`expr $ac_file + 1` - ac_beg=$ac_end - ac_end=`expr $ac_end + $ac_max_sed_cmds` - fi -done -if test -z "$ac_sed_cmds"; then - ac_sed_cmds=cat -fi -EOF - -cat >> $CONFIG_STATUS <<EOF - -CONFIG_FILES=\${CONFIG_FILES-"Makefile g2c.h:g2c.hin"} -EOF -cat >> $CONFIG_STATUS <<\EOF -for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then - # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". - case "$ac_file" in - *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` - ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; - *) ac_file_in="${ac_file}.in" ;; - esac - - # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories. - - # Remove last slash and all that follows it. Not all systems have dirname. - ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` - if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then - # The file is in a subdirectory. - test ! -d "$ac_dir" && mkdir "$ac_dir" - ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`" - # A "../" for each directory in $ac_dir_suffix. - ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'` - else - ac_dir_suffix= ac_dots= - fi - - case "$ac_given_srcdir" in - .) srcdir=. - if test -z "$ac_dots"; then top_srcdir=. - else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;; - /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;; - *) # Relative path. - srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix" - top_srcdir="$ac_dots$ac_given_srcdir" ;; - esac - - case "$ac_given_INSTALL" in - [/$]*) INSTALL="$ac_given_INSTALL" ;; - *) INSTALL="$ac_dots$ac_given_INSTALL" ;; - esac - - echo creating "$ac_file" - rm -f "$ac_file" - configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure." - case "$ac_file" in - *Makefile*) ac_comsub="1i\\ -# $configure_input" ;; - *) ac_comsub= ;; - esac - - ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` - sed -e "$ac_comsub -s%@configure_input@%$configure_input%g -s%@srcdir@%$srcdir%g -s%@top_srcdir@%$top_srcdir%g -s%@INSTALL@%$INSTALL%g -" $ac_file_inputs | (eval "$ac_sed_cmds") > $ac_file -fi; done -rm -f conftest.s* - -EOF -cat >> $CONFIG_STATUS <<EOF -srcdir=${srcdir} -host=${host} -target=${target} -with_target_subdir=${with_target_subdir} -with_multisubdir=${with_multisubdir} -ac_configure_args="--enable-multilib ${ac_configure_args}" -toplevel_srcdir=${toplevel_srcdir} -CONFIG_SHELL=${CONFIG_SHELL-/bin/sh} -ORIGINAL_LD_FOR_MULTILIBS="${ORIGINAL_LD_FOR_MULTILIBS}" - -EOF -cat >> $CONFIG_STATUS <<\EOF -test -z "$CONFIG_HEADERS" || echo timestamp > stamp-h -if test -n "$CONFIG_FILES"; then - LD="${ORIGINAL_LD_FOR_MULTILIBS}" - if test -n "${with_target_subdir}"; then - # FIXME: We shouldn't need to set ac_file - ac_file=Makefile - . ${toplevel_srcdir}/config-ml.in - touch g2c.h # to keep it more recent than Makefile - fi -fi -exit 0 -EOF -chmod +x $CONFIG_STATUS -rm -fr confdefs* $ac_clean_files -test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1 - -if test "$no_recursion" != yes; then - - # Remove --cache-file and --srcdir arguments so they do not pile up. - ac_sub_configure_args= - ac_prev= - for ac_arg in $ac_configure_args; do - if test -n "$ac_prev"; then - ac_prev= - continue - fi - case "$ac_arg" in - -cache-file | --cache-file | --cache-fil | --cache-fi \ - | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) - ac_prev=cache_file ;; - -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ - | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) - ;; - -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) - ac_prev=srcdir ;; - -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) - ;; - *) ac_sub_configure_args="$ac_sub_configure_args $ac_arg" ;; - esac - done - - for ac_config_dir in libU77 libI77 libF77; do - - # Do not complain, so a configure script can configure whichever - # parts of a large source tree are present. - if test ! -d $srcdir/$ac_config_dir; then - continue - fi - - echo configuring in $ac_config_dir - - case "$srcdir" in - .) ;; - *) - if test -d ./$ac_config_dir || mkdir ./$ac_config_dir; then :; - else - { echo "configure: error: can not create `pwd`/$ac_config_dir" 1>&2; exit 1; } - fi - ;; - esac - - ac_popdir=`pwd` - cd $ac_config_dir - - # A "../" for each directory in /$ac_config_dir. - ac_dots=`echo $ac_config_dir|sed -e 's%^\./%%' -e 's%[^/]$%&/%' -e 's%[^/]*/%../%g'` - - case "$srcdir" in - .) # No --srcdir option. We are building in place. - ac_sub_srcdir=$srcdir ;; - /*) # Absolute path. - ac_sub_srcdir=$srcdir/$ac_config_dir ;; - *) # Relative path. - ac_sub_srcdir=$ac_dots$srcdir/$ac_config_dir ;; - esac - - # Check for guested configure; otherwise get Cygnus style configure. - if test -f $ac_sub_srcdir/configure; then - ac_sub_configure=$ac_sub_srcdir/configure - elif test -f $ac_sub_srcdir/configure.in; then - ac_sub_configure=$ac_configure - else - echo "configure: warning: no configuration information is in $ac_config_dir" 1>&2 - ac_sub_configure= - fi - - # The recursion is here. - if test -n "$ac_sub_configure"; then - - # Make the cache file name correct relative to the subdirectory. - case "$cache_file" in - /*) ac_sub_cache_file=$cache_file ;; - *) # Relative path. - ac_sub_cache_file="$ac_dots$cache_file" ;; - esac - case "$ac_given_INSTALL" in - [/$]*) INSTALL="$ac_given_INSTALL" ;; - *) INSTALL="$ac_dots$ac_given_INSTALL" ;; - esac - - echo "running ${CONFIG_SHELL-/bin/sh} $ac_sub_configure $ac_sub_configure_args --cache-file=$ac_sub_cache_file --srcdir=$ac_sub_srcdir" - # The eval makes quoting arguments work. - if eval ${CONFIG_SHELL-/bin/sh} $ac_sub_configure $ac_sub_configure_args --cache-file=$ac_sub_cache_file --srcdir=$ac_sub_srcdir - then : - else - { echo "configure: error: $ac_sub_configure failed for $ac_config_dir" 1>&2; exit 1; } - fi - fi - - cd $ac_popdir - done -fi - - - diff --git a/gnu/lib/libf2c/configure.in b/gnu/lib/libf2c/configure.in deleted file mode 100644 index 6ba14c93a76..00000000000 --- a/gnu/lib/libf2c/configure.in +++ /dev/null @@ -1,149 +0,0 @@ -# Process this file with autoconf to produce a configure script. -# Copyright (C) 1995, 1997, 1998, 1999, 2002, 2003 -# Free Software Foundation, Inc. -# Contributed by Dave Love (d.love@dl.ac.uk). -# -#This file is part of GNU Fortran. -# -#GNU Fortran is free software; you can redistribute it and/or modify -#it under the terms of the GNU General Public License as published by -#the Free Software Foundation; either version 2, or (at your option) -#any later version. -# -#GNU Fortran is distributed in the hope that it will be useful, -#but WITHOUT ANY WARRANTY; without even the implied warranty of -#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#GNU General Public License for more details. -# -#You should have received a copy of the GNU General Public License -#along with GNU Fortran; see the file COPYING. If not, write to -#the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -#02111-1307, USA. - -AC_PREREQ(2.13) -AC_INIT(libF77/Version.c) - -# This works around the fact that libtool configuration may change LD -# for this particular configuration, but some shells, instead of -# keeping the changes in LD private, export them just because LD is -# exported. -ORIGINAL_LD_FOR_MULTILIBS=$LD - -GLIBCPP_TOPREL_CONFIGURE - -AC_CANONICAL_SYSTEM -target_alias=${target_alias-$target} -AC_SUBST(target_alias) - -GLIBCPP_CONFIGURE(.) -GLIBCPP_EXPORT_INSTALL_INFO - -# If the language specific compiler does not exist, but the "gcc" directory -# does, we do not build anything. Note, $r is set by the top-level Makefile. -# Note that when we look for the compiler, we search both with and without -# extension to handle cross and canadian cross builds. -compiler_name=f771 -rm -f skip-this-dir -AC_MSG_CHECKING(if compiler $compiler_name has been built) -AC_CACHE_VAL(g77_cv_compiler_exists, -[g77_cv_compiler_exists=yes -if test -n "$r"; then - if test -d "$r"/gcc; then - if test -f "$r"/gcc/$compiler_name \ - || test -f "$r"/gcc/$compiler_name.exe; then - true - else - g77_cv_compiler_exists=no - echo "rm -f config.cache config.log multilib.out" > skip-this-dir - fi - fi -fi -]) -AC_MSG_RESULT($g77_cv_compiler_exists) -if test x$g77_cv_compiler_exists = xno -then - rm -f Makefile conftest* confdefs* core - exit 0 -fi - -dnl Checks for programs. - -AM_PROG_LIBTOOL - -dnl These should be inherited in the recursive make, but ensure they are -dnl defined: -test "$AR" || AR=ar -AC_SUBST(AR) -if test "$RANLIB"; then : - AC_SUBST(RANLIB) -else - AC_PROG_RANLIB -fi -AC_PROG_INSTALL -AC_PROG_MAKE_SET - -dnl Checks for header files. -# Sanity check for the cross-compilation case: -AC_CHECK_HEADER(stdio.h,:, - [AC_MSG_ERROR([Can't find stdio.h. -You must have a usable C system for the target already installed, at least -including headers and, preferably, the library, before you can configure -the G77 runtime system. If necessary, install gcc now with \`LANGUAGES=c', -then the target library, then build with \`LANGUAGES=f77'.])]) - -dnl Checks for g77 integer types built into gcc's C front end. -AC_MSG_CHECKING(for built-in g77 integer types) -AC_CACHE_VAL(libf2c_cv_has_g77_builtin_types, -[AC_TRY_COMPILE(, - [__g77_integer g77i; -__g77_uinteger g77ui; -__g77_longint g77l; -__g77_ulongint g77ul;], - libf2c_cv_has_g77_builtin_types=yes, - libf2c_cv_has_g77_builtin_types=no)]) -AC_MSG_RESULT($libf2c_cv_has_g77_builtin_types) -if test $libf2c_cv_has_g77_builtin_types = no; then - AC_MSG_ERROR([gcc doesn't define all of the built in types __g77_integer, -__g77_uinteger, __g77_longint, and __g77_ulongint. You may not be using -a new enough version of gcc, or your target may not have type sizes which -accommodate those types.]) -fi - -# avoid confusion in case the `makefile's from the f2c distribution have -# got put here -test -f libF77/makefile && mv libF77/makefile libF77/makefile.ori -test -f libI77/makefile && mv libI77/makefile libI77/makefile.ori -test -f libU77/makefile && mv libU77/makefile libU77/makefile.ori - -AC_CONFIG_SUBDIRS(libU77 libI77 libF77) -# Do Makefile first since g2c.h depends on it and shouldn't get an -# earlier timestamp. Of course, it does when the multilib gunk below -# edits Makefile, sigh; see additional touch below. -AC_OUTPUT(Makefile g2c.h:g2c.hin, - [test -z "$CONFIG_HEADERS" || echo timestamp > stamp-h -if test -n "$CONFIG_FILES"; then - LD="${ORIGINAL_LD_FOR_MULTILIBS}" - if test -n "${with_target_subdir}"; then - # FIXME: We shouldn't need to set ac_file - ac_file=Makefile - . ${toplevel_srcdir}/config-ml.in - touch g2c.h # to keep it more recent than Makefile - fi -fi], -srcdir=${srcdir} -host=${host} -target=${target} -with_target_subdir=${with_target_subdir} -with_multisubdir=${with_multisubdir} -ac_configure_args="--enable-multilib ${ac_configure_args}" -toplevel_srcdir=${toplevel_srcdir} -CONFIG_SHELL=${CONFIG_SHELL-/bin/sh} -ORIGINAL_LD_FOR_MULTILIBS="${ORIGINAL_LD_FOR_MULTILIBS}" -) - - -dnl Local Variables: -dnl comment-start: "dnl " -dnl comment-end: "" -dnl comment-start-skip: "\\bdnl\\b\\s *" -dnl End: diff --git a/gnu/lib/libf2c/disclaimer.netlib b/gnu/lib/libf2c/disclaimer.netlib deleted file mode 100644 index a11108f83db..00000000000 --- a/gnu/lib/libf2c/disclaimer.netlib +++ /dev/null @@ -1,15 +0,0 @@ -f2c is a Fortran to C converter under development since 1990 by - David M. Gay (then AT&T Bell Labs, now Bell Labs, Lucent Technologies) - Stu Feldman (then at Bellcore, now at IBM) - Mark Maimone (Carnegie-Mellon University) - Norm Schryer (then AT&T Bell Labs, now AT&T Labs) -Please send bug reports to dmg@research.bell-labs.com . - -AT&T, Bellcore and Lucent disclaim all warranties with regard to this -software, including all implied warranties of merchantability -and fitness. In no event shall AT&T, Bellcore or Lucent be liable for -any special, indirect or consequential damages or any damages -whatsoever resulting from loss of use, data or profits, whether -in an action of contract, negligence or other tortious action, -arising out of or in connection with the use or performance of -this software. diff --git a/gnu/lib/libf2c/f2c.h b/gnu/lib/libf2c/f2c.h deleted file mode 100644 index 71e53616497..00000000000 --- a/gnu/lib/libf2c/f2c.h +++ /dev/null @@ -1,64 +0,0 @@ -/* f2c.h file for GNU Fortran run-time library - Copyright (C) 1998 Free Software Foundation, Inc. - Contributed by James Craig Burley. - -This file is part of GNU Fortran. - -GNU Fortran is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2, or (at your option) -any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with GNU Fortran; see the file COPYING. If not, write to -the Free Software Foundation, 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -/* This file currently is just a stub through which g77's copy - of netlib's libf2c, which g77 builds and installs as libg2c.a - (to avoid conflict), #include's g77's version of f2c.h, named - g2c.h. That file is, in turn, produced via g77's library - configuration process from g2c.h.in. - - By going through this extra "hoop", it is easy to provide for - libg2c-specific configuration and typedefs that aren't appropriate - in g2c.h itself (since that is intended to be installed so it can - be shared with f2c users), without changing the libf2c (libg2c) - routines themselves. (They continue to #include "f2c.h", just - like they do in netlib's version.) */ - -#include "g2c.h" - -/* For GNU Fortran (g77), we always enable the following behaviors for - libf2c, to make things easy on the programmer. The alternate - behaviors have their uses, and g77 might provide them as compiler, - rather than library, options, so only a single copy of a shared libf2c - need be built for a system. */ - -/* This makes unformatted I/O more consistent in relation to other - systems. It is not required by the F77 standard. */ - -#define Pad_UDread - -/* This makes ERR= and IOSTAT= returns work properly in disk-full - situations, making things work more as expected. It slows things - down, so g77 will probably someday choose the original implementation - on a case-by-case basis when it can be shown to not be necessary - (e.g. no ERR= or IOSTAT=) or when it is given the appropriate - compile-time option or, perhaps, source-code directive. - - (No longer defined, since it really slows down NFS access too much.) */ - -/* #define ALWAYS_FLUSH */ - -/* Most Fortran implementations do this, so to make it easier - to compare the output of g77-compiled programs to those compiled - by most other compilers, tell libf2c to put leading zeros in - appropriate places on output. */ - -#define WANT_LEAD_0 diff --git a/gnu/lib/libf2c/f2cext.c b/gnu/lib/libf2c/f2cext.c deleted file mode 100644 index 69d12b6ea64..00000000000 --- a/gnu/lib/libf2c/f2cext.c +++ /dev/null @@ -1,582 +0,0 @@ -/* Copyright (C) 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran run-time library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#include <math.h> /* for j0 et al */ -#include <f2c.h> -typedef void *sig_proc; /* For now, this will have to do. */ - -#ifdef Labort -int abort_ (void) { - extern int G77_abort_0 (void); - return G77_abort_0 (); -} -#endif - -#ifdef Lderf -double derf_ (doublereal *x) { - extern double G77_derf_0 (doublereal *x); - return G77_derf_0 (x); -} -#endif - -#ifdef Lderfc -double derfc_ (doublereal *x) { - extern double G77_derfc_0 (doublereal *x); - return G77_derfc_0 (x); -} -#endif - -#ifdef Lef1asc -int ef1asc_ (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb) { - extern int G77_ef1asc_0 (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb); - return G77_ef1asc_0 (a, la, b, lb); -} -#endif - -#ifdef Lef1cmc -integer ef1cmc_ (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb) { - extern integer G77_ef1cmc_0 (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb); - return G77_ef1cmc_0 (a, la, b, lb); -} -#endif - -#ifdef Lerf -double erf_ (real *x) { - extern double G77_erf_0 (real *x); - return G77_erf_0 (x); -} -#endif - -#ifdef Lerfc -double erfc_ (real *x) { - extern double G77_erfc_0 (real *x); - return G77_erfc_0 (x); -} -#endif - -#ifdef Lexit -void exit_ (integer *rc) { - extern void G77_exit_0 (integer *rc); - G77_exit_0 (rc); -} -#endif - -#ifdef Lgetarg -void getarg_ (ftnint *n, char *s, ftnlen ls) { - extern void G77_getarg_0 (ftnint *n, char *s, ftnlen ls); - G77_getarg_0 (n, s, ls); -} -#endif - -#ifdef Lgetenv -void getenv_ (char *fname, char *value, ftnlen flen, ftnlen vlen) { - extern void G77_getenv_0 (char *fname, char *value, ftnlen flen, ftnlen vlen); - G77_getenv_0 (fname, value, flen, vlen); -} -#endif - -#ifdef Liargc -ftnint iargc_ (void) { - extern ftnint G77_iargc_0 (void); - return G77_iargc_0 (); -} -#endif - -#ifdef Lsignal -void *signal_ (integer *sigp, sig_proc proc) { - extern void *G77_signal_0 (integer *sigp, sig_proc proc); - return G77_signal_0 (sigp, proc); -} -#endif - -#ifdef Lsystem -integer system_ (char *s, ftnlen n) { - extern integer G77_system_0 (char *s, ftnlen n); - return G77_system_0 (s, n); -} -#endif - -#ifdef Lflush -int flush_ (void) { - extern int G77_flush_0 (void); - return G77_flush_0 (); -} -#endif - -#ifdef Lftell -integer ftell_ (integer *Unit) { - extern integer G77_ftell_0 (integer *Unit); - return G77_ftell_0 (Unit); -} -#endif - -#ifdef Lfseek -integer fseek_ (integer *Unit, integer *offset, integer *xwhence) { - extern integer G77_fseek_0 (integer *Unit, integer *offset, integer *xwhence); - return G77_fseek_0 (Unit, offset, xwhence); -} -#endif - -#ifdef Laccess -integer access_ (const char *name, const char *mode, ftnlen Lname, ftnlen Lmode) { - extern integer G77_access_0 (const char *name, const char *mode, ftnlen Lname, ftnlen Lmode); - return G77_access_0 (name, mode, Lname, Lmode); -} -#endif - -#ifdef Lalarm -integer alarm_ (integer *seconds, sig_proc proc, - integer *status __attribute__ ((__unused__))) { - extern integer G77_alarm_0 (integer *seconds, sig_proc proc); - return G77_alarm_0 (seconds, proc); -} -#endif - -#ifdef Lbesj0 -double besj0_ (const real *x) { - return j0 (*x); -} -#endif - -#ifdef Lbesj1 -double besj1_ (const real *x) { - return j1 (*x); -} -#endif - -#ifdef Lbesjn -double besjn_ (const integer *n, real *x) { - return jn (*n, *x); -} -#endif - -#ifdef Lbesy0 -double besy0_ (const real *x) { - return y0 (*x); -} -#endif - -#ifdef Lbesy1 -double besy1_ (const real *x) { - return y1 (*x); -} -#endif - -#ifdef Lbesyn -double besyn_ (const integer *n, real *x) { - return yn (*n, *x); -} -#endif - -#ifdef Lchdir -integer chdir_ (const char *name, const ftnlen Lname) { - extern integer G77_chdir_0 (const char *name, const ftnlen Lname); - return G77_chdir_0 (name, Lname); -} -#endif - -#ifdef Lchmod -integer chmod_ (const char *name, const char *mode, const ftnlen Lname, const ftnlen Lmode) { - extern integer G77_chmod_0 (const char *name, const char *mode, const ftnlen Lname, const ftnlen Lmode); - return G77_chmod_0 (name, mode, Lname, Lmode); -} -#endif - -#ifdef Lctime -void ctime_ (char *chtime, const ftnlen Lchtime, longint *xstime) { - extern void G77_ctime_0 (char *chtime, const ftnlen Lchtime, longint *xstime); - G77_ctime_0 (chtime, Lchtime, xstime); -} -#endif - -#ifdef Ldate_y2kbuggy -int date_ (char *buf, ftnlen buf_len) { - /* Fail to link, so user sees attempt to invoke non-Y2K-compliant - routine. */ - extern int G77_date_y2kbuggy_0 (char *buf, ftnlen buf_len); - return G77_date_y2kbuggy_0 (buf, buf_len); -} -#endif - -#ifdef Ldate_y2kbug -int date_y2kbug__ (char *buf, ftnlen buf_len) { - /* If user wants to invoke the non-Y2K-compliant routine via - an `EXTERNAL' interface, avoiding the warning via g77's - `INTRINSIC' interface, force coding of "y2kbug" string in - user's program. */ - extern int G77_date_y2kbug_0 (char *buf, ftnlen buf_len); - return G77_date_y2kbug_0 (buf, buf_len); -} -#endif - -#ifdef Ldbesj0 -double dbesj0_ (const double *x) { - return j0 (*x); -} -#endif - -#ifdef Ldbesj1 -double dbesj1_ (const double *x) { - return j1 (*x); -} -#endif - -#ifdef Ldbesjn -double dbesjn_ (const integer *n, double *x) { - return jn (*n, *x); -} -#endif - -#ifdef Ldbesy0 -double dbesy0_ (const double *x) { - return y0 (*x); -} -#endif - -#ifdef Ldbesy1 -double dbesy1_ (const double *x) { - return y1 (*x); -} -#endif - -#ifdef Ldbesyn -double dbesyn_ (const integer *n, double *x) { - return yn (*n, *x); -} -#endif - -#ifdef Ldtime -double dtime_ (real tarray[2]) { - extern double G77_dtime_0 (real tarray[2]); - return G77_dtime_0 (tarray); -} -#endif - -#ifdef Letime -double etime_ (real tarray[2]) { - extern double G77_etime_0 (real tarray[2]); - return G77_etime_0 (tarray); -} -#endif - -#ifdef Lfdate -void fdate_ (char *ret_val, ftnlen ret_val_len) { - extern void G77_fdate_0 (char *ret_val, ftnlen ret_val_len); - G77_fdate_0 (ret_val, ret_val_len); -} -#endif - -#ifdef Lfgetc -integer fgetc_ (const integer *lunit, char *c, ftnlen Lc) { - extern integer G77_fgetc_0 (const integer *lunit, char *c, ftnlen Lc); - return G77_fgetc_0 (lunit, c, Lc); -} -#endif - -#ifdef Lfget -integer fget_ (char *c, const ftnlen Lc) { - extern integer G77_fget_0 (char *c, const ftnlen Lc); - return G77_fget_0 (c, Lc); -} -#endif - -#ifdef Lflush1 -int flush1_ (const integer *lunit) { - extern int G77_flush1_0 (const integer *lunit); - return G77_flush1_0 (lunit); -} -#endif - -#ifdef Lfnum -integer fnum_ (integer *lunit) { - extern integer G77_fnum_0 (integer *lunit); - return G77_fnum_0 (lunit); -} -#endif - -#ifdef Lfputc -integer fputc_ (const integer *lunit, const char *c, const ftnlen Lc) { - extern integer G77_fputc_0 (const integer *lunit, const char *c, const ftnlen Lc); - return G77_fputc_0 (lunit, c, Lc); -} -#endif - -#ifdef Lfput -integer fput_ (const char *c, const ftnlen Lc) { - extern integer G77_fput_0 (const char *c, const ftnlen Lc); - return G77_fput_0 (c, Lc); -} -#endif - -#ifdef Lfstat -integer fstat_ (const integer *lunit, integer statb[13]) { - extern integer G77_fstat_0 (const integer *lunit, integer statb[13]); - return G77_fstat_0 (lunit, statb); -} -#endif - -#ifdef Lgerror -int gerror_ (char *str, ftnlen Lstr) { - extern int G77_gerror_0 (char *str, ftnlen Lstr); - return G77_gerror_0 (str, Lstr); -} -#endif - -#ifdef Lgetcwd -integer getcwd_ (char *str, const ftnlen Lstr) { - extern integer G77_getcwd_0 (char *str, const ftnlen Lstr); - return G77_getcwd_0 (str, Lstr); -} -#endif - -#ifdef Lgetgid -integer getgid_ (void) { - extern integer G77_getgid_0 (void); - return G77_getgid_0 (); -} -#endif - -#ifdef Lgetlog -int getlog_ (char *str, const ftnlen Lstr) { - extern int G77_getlog_0 (char *str, const ftnlen Lstr); - return G77_getlog_0 (str, Lstr); -} -#endif - -#ifdef Lgetpid -integer getpid_ (void) { - extern integer G77_getpid_0 (void); - return G77_getpid_0 (); -} -#endif - -#ifdef Lgetuid -integer getuid_ (void) { - extern integer G77_getuid_0 (void); - return G77_getuid_0 (); -} -#endif - -#ifdef Lgmtime -int gmtime_ (const integer *stime, integer tarray[9]) { - extern int G77_gmtime_0 (const integer *stime, integer tarray[9]); - return G77_gmtime_0 (stime, tarray); -} -#endif - -#ifdef Lhostnm -integer hostnm_ (char *name, ftnlen Lname) { - extern integer G77_hostnm_0 (char *name, ftnlen Lname); - return G77_hostnm_0 (name, Lname); -} -#endif - -#ifdef Lidate -int idate_ (int iarray[3]) { - extern int G77_idate_0 (int iarray[3]); - return G77_idate_0 (iarray); -} -#endif - -#ifdef Lierrno -integer ierrno_ (void) { - extern integer G77_ierrno_0 (void); - return G77_ierrno_0 (); -} -#endif - -#ifdef Lirand -integer irand_ (integer *flag) { - extern integer G77_irand_0 (integer *flag); - return G77_irand_0 (flag); -} -#endif - -#ifdef Lisatty -logical isatty_ (integer *lunit) { - extern logical G77_isatty_0 (integer *lunit); - return G77_isatty_0 (lunit); -} -#endif - -#ifdef Litime -int itime_ (integer tarray[3]) { - extern int G77_itime_0 (integer tarray[3]); - return G77_itime_0 (tarray); -} -#endif - -#ifdef Lkill -integer kill_ (const integer *pid, const integer *signum) { - extern integer G77_kill_0 (const integer *pid, const integer *signum); - return G77_kill_0 (pid, signum); -} -#endif - -#ifdef Llink -integer link_ (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2) { - extern integer G77_link_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2); - return G77_link_0 (path1, path2, Lpath1, Lpath2); -} -#endif - -#ifdef Llnblnk -integer lnblnk_ (char *str, ftnlen str_len) { - extern integer G77_lnblnk_0 (char *str, ftnlen str_len); - return G77_lnblnk_0 (str, str_len); -} -#endif - -#ifdef Llstat -integer lstat_ (const char *name, integer statb[13], const ftnlen Lname) { - extern integer G77_lstat_0 (const char *name, integer statb[13], const ftnlen Lname); - return G77_lstat_0 (name, statb, Lname); -} -#endif - -#ifdef Lltime -int ltime_ (const integer *stime, integer tarray[9]) { - extern int G77_ltime_0 (const integer *stime, integer tarray[9]); - return G77_ltime_0 (stime, tarray); -} -#endif - -#ifdef Lmclock -longint mclock_ (void) { - extern longint G77_mclock_0 (void); - return G77_mclock_0 (); -} -#endif - -#ifdef Lperror -int perror_ (const char *str, const ftnlen Lstr) { - extern int G77_perror_0 (const char *str, const ftnlen Lstr); - return G77_perror_0 (str, Lstr); -} -#endif - -#ifdef Lrand -double rand_ (integer *flag) { - extern double G77_rand_0 (integer *flag); - return G77_rand_0 (flag); -} -#endif - -#ifdef Lrename -integer rename_ (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2) { - extern integer G77_rename_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2); - return G77_rename_0 (path1, path2, Lpath1, Lpath2); -} -#endif - -#ifdef Lsecnds -double secnds_ (real *r) { - extern double G77_secnds_0 (real *r); - return G77_secnds_0 (r); -} -#endif - -#ifdef Lsecond -double second_ () { - extern double G77_second_0 (); - return G77_second_0 (); -} -#endif - -#ifdef Lsleep -int sleep_ (const integer *seconds) { - extern int G77_sleep_0 (const integer *seconds); - return G77_sleep_0 (seconds); -} -#endif - -#ifdef Lsrand -int srand_ (const integer *seed) { - extern int G77_srand_0 (const integer *seed); - return G77_srand_0 (seed); -} -#endif - -#ifdef Lstat -integer stat_ (const char *name, integer statb[13], const ftnlen Lname) { - extern integer G77_stat_0 (const char *name, integer statb[13], const ftnlen Lname); - return G77_stat_0 (name, statb, Lname); -} -#endif - -#ifdef Lsymlnk -integer symlnk_ (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2) { - extern integer G77_symlnk_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2); - return G77_symlnk_0 (path1, path2, Lpath1, Lpath2); -} -#endif - -#ifdef Ltime -longint time_ (void) { - extern longint G77_time_0 (void); - return G77_time_0 (); -} -#endif - -#ifdef Lttynam -void ttynam_ (char *ret_val, ftnlen ret_val_len, integer *lunit) { - extern void G77_ttynam_0 (char *ret_val, ftnlen ret_val_len, integer *lunit); - G77_ttynam_0 (ret_val, ret_val_len, lunit); -} -#endif - -#ifdef Lumask -integer umask_ (integer *mask) { - extern integer G77_umask_0 (integer *mask); - return G77_umask_0 (mask); -} -#endif - -#ifdef Lunlink -integer unlink_ (const char *str, const ftnlen Lstr) { - extern integer G77_unlink_0 (const char *str, const ftnlen Lstr); - return G77_unlink_0 (str, Lstr); -} -#endif - -#ifdef Lvxtidt_y2kbuggy -int vxtidate_ (integer *m, integer *d, integer *y) { - /* Fail to link, so user sees attempt to invoke non-Y2K-compliant - routine. */ - extern int G77_vxtidate_y2kbuggy_0 (integer *m, integer *d, integer *y); - return G77_vxtidate_y2kbuggy_0 (m, d, y); -} -#endif - -#ifdef Lvxtidt_y2kbug -int vxtidate_y2kbug__ (integer *m, integer *d, integer *y) { - /* If user wants to invoke the non-Y2K-compliant routine via - an `EXTERNAL' interface, avoiding the warning via g77's - `INTRINSIC' interface, force coding of "y2kbug" string in - user's program. */ - extern int G77_vxtidate_y2kbug_0 (integer *m, integer *d, integer *y); - return G77_vxtidate_y2kbug_0 (m, d, y); -} -#endif - -#ifdef Lvxttim -void vxttime_ (char chtime[8], const ftnlen Lchtime) { - extern void G77_vxttime_0 (char chtime[8], const ftnlen Lchtime); - G77_vxttime_0 (chtime, Lchtime); -} -#endif diff --git a/gnu/lib/libf2c/g2c.hin b/gnu/lib/libf2c/g2c.hin deleted file mode 100644 index 577ea2b1a8d..00000000000 --- a/gnu/lib/libf2c/g2c.hin +++ /dev/null @@ -1,234 +0,0 @@ -/* g2c.h -- g77 version of f2c (Standard Fortran to C header file) */ - -/* This file is generated by the g77 libg2c configuration process from a - file named g2c.hin. This process sets up the appropriate types, - defines the appropriate macros, and so on. The resulting g2c.h file - is used to build g77's copy of libf2c, named libg2c, and also can - be used when compiling C code produced by f2c to link the resulting - object file(s) with those produced by the same version of g77 that - produced this file, allowing inter-operability of f2c-compiled and - g77-compiled code. */ - -/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." - - - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ - -#ifndef F2C_INCLUDE -#define F2C_INCLUDE - -/* F2C_INTEGER will normally be `int' but would be `long' on 16-bit systems */ -/* we assume short, float are OK */ -typedef __g77_integer integer; -typedef __g77_uinteger uinteger; -typedef char *address; -typedef short int shortint; -typedef float real; -typedef double doublereal; -typedef struct { real r, i; } complex; -typedef struct { doublereal r, i; } doublecomplex; -typedef __g77_integer logical; -typedef short int shortlogical; -typedef char logical1; -typedef char integer1; -typedef __g77_longint longint; /* system-dependent */ -typedef __g77_ulongint ulongint; /* system-dependent */ -#define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) -#define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) - -#define TRUE_ (1) -#define FALSE_ (0) - -/* Extern is for use with -E */ -#ifndef Extern -#define Extern extern -#endif - -/* I/O stuff */ - -#ifdef f2c_i2 -#error "f2c_i2 will not work with g77!!!!" -/* for -i2 */ -typedef short flag; -typedef short ftnlen; -typedef short ftnint; -#else -typedef __g77_integer flag; -typedef __g77_integer ftnlen; -typedef __g77_integer ftnint; -#endif - -/*external read, write*/ -typedef struct -{ flag cierr; - ftnint ciunit; - flag ciend; - char *cifmt; - ftnint cirec; -} cilist; - -/*internal read, write*/ -typedef struct -{ flag icierr; - char *iciunit; - flag iciend; - char *icifmt; - ftnint icirlen; - ftnint icirnum; -} icilist; - -/*open*/ -typedef struct -{ flag oerr; - ftnint ounit; - char *ofnm; - ftnlen ofnmlen; - char *osta; - char *oacc; - char *ofm; - ftnint orl; - char *oblnk; -} olist; - -/*close*/ -typedef struct -{ flag cerr; - ftnint cunit; - char *csta; -} cllist; - -/*rewind, backspace, endfile*/ -typedef struct -{ flag aerr; - ftnint aunit; -} alist; - -/* inquire */ -typedef struct -{ flag inerr; - ftnint inunit; - char *infile; - ftnlen infilen; - ftnint *inex; /*parameters in standard's order*/ - ftnint *inopen; - ftnint *innum; - ftnint *innamed; - char *inname; - ftnlen innamlen; - char *inacc; - ftnlen inacclen; - char *inseq; - ftnlen inseqlen; - char *indir; - ftnlen indirlen; - char *infmt; - ftnlen infmtlen; - char *inform; - ftnint informlen; - char *inunf; - ftnlen inunflen; - ftnint *inrecl; - ftnint *innrec; - char *inblank; - ftnlen inblanklen; -} inlist; - -union Multitype { /* for multiple entry points */ - integer1 g; - shortint h; - integer i; - /* longint j; */ - real r; - doublereal d; - complex c; - doublecomplex z; - }; - -typedef union Multitype Multitype; - -/*typedef long int Long;*/ /* No longer used; formerly in Namelist */ - -struct Vardesc { /* for Namelist */ - char *name; - char *addr; - ftnlen *dims; - int type; - }; -typedef struct Vardesc Vardesc; - -struct Namelist { - char *name; - Vardesc **vars; - int nvars; - }; -typedef struct Namelist Namelist; - -#define abs(x) ((x) >= 0 ? (x) : -(x)) -#define dabs(x) (doublereal)abs(x) -#define min(a,b) ((a) <= (b) ? (a) : (b)) -#define max(a,b) ((a) >= (b) ? (a) : (b)) -#define dmin(a,b) (doublereal)min(a,b) -#define dmax(a,b) (doublereal)max(a,b) -#define bit_test(a,b) ((a) >> (b) & 1) -#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) -#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) - -/* procedure parameter types for -A and -C++ */ - -#define F2C_proc_par_types 1 -#ifdef __cplusplus -typedef int /* Unknown procedure type */ (*U_fp)(...); -typedef shortint (*J_fp)(...); -typedef integer (*I_fp)(...); -typedef real (*R_fp)(...); -typedef doublereal (*D_fp)(...), (*E_fp)(...); -typedef /* Complex */ void (*C_fp)(...); -typedef /* Double Complex */ void (*Z_fp)(...); -typedef logical (*L_fp)(...); -typedef shortlogical (*K_fp)(...); -typedef /* Character */ void (*H_fp)(...); -typedef /* Subroutine */ int (*S_fp)(...); -#else -typedef int /* Unknown procedure type */ (*U_fp)(); -typedef shortint (*J_fp)(); -typedef integer (*I_fp)(); -typedef real (*R_fp)(); -typedef doublereal (*D_fp)(), (*E_fp)(); -typedef /* Complex */ void (*C_fp)(); -typedef /* Double Complex */ void (*Z_fp)(); -typedef logical (*L_fp)(); -typedef shortlogical (*K_fp)(); -typedef /* Character */ void (*H_fp)(); -typedef /* Subroutine */ int (*S_fp)(); -#endif -/* E_fp is for real functions when -R is not specified */ -typedef void C_f; /* complex function */ -typedef void H_f; /* character function */ -typedef void Z_f; /* double complex function */ -typedef doublereal E_f; /* real function with -R not specified */ - -/* undef any lower-case symbols that your C compiler predefines, e.g.: */ - -#ifndef Skip_f2c_Undefs -/* (No such symbols should be defined in a strict ANSI C compiler. - We can avoid trouble with f2c-translated code by using - gcc -ansi [-traditional].) */ -#undef cray -#undef gcos -#undef mc68010 -#undef mc68020 -#undef mips -#undef pdp11 -#undef sgi -#undef sparc -#undef sun -#undef sun2 -#undef sun3 -#undef sun4 -#undef u370 -#undef u3b -#undef u3b2 -#undef u3b5 -#undef unix -#undef vax -#endif -#endif diff --git a/gnu/lib/libf2c/install-sh b/gnu/lib/libf2c/install-sh deleted file mode 100644 index e9de23842dc..00000000000 --- a/gnu/lib/libf2c/install-sh +++ /dev/null @@ -1,251 +0,0 @@ -#!/bin/sh -# -# install - install a program, script, or datafile -# This comes from X11R5 (mit/util/scripts/install.sh). -# -# Copyright 1991 by the Massachusetts Institute of Technology -# -# Permission to use, copy, modify, distribute, and sell this software and its -# documentation for any purpose is hereby granted without fee, provided that -# the above copyright notice appear in all copies and that both that -# copyright notice and this permission notice appear in supporting -# documentation, and that the name of M.I.T. not be used in advertising or -# publicity pertaining to distribution of the software without specific, -# written prior permission. M.I.T. makes no representations about the -# suitability of this software for any purpose. It is provided "as is" -# without express or implied warranty. -# -# Calling this script install-sh is preferred over install.sh, to prevent -# `make' implicit rules from creating a file called install from it -# when there is no Makefile. -# -# This script is compatible with the BSD install script, but was written -# from scratch. It can only install one file at a time, a restriction -# shared with many OS's install programs. - - -# set DOITPROG to echo to test this script - -# Don't use :- since 4.3BSD and earlier shells don't like it. -doit="${DOITPROG-}" - - -# put in absolute paths if you don't have them in your path; or use env. vars. - -mvprog="${MVPROG-mv}" -cpprog="${CPPROG-cp}" -chmodprog="${CHMODPROG-chmod}" -chownprog="${CHOWNPROG-chown}" -chgrpprog="${CHGRPPROG-chgrp}" -stripprog="${STRIPPROG-strip}" -rmprog="${RMPROG-rm}" -mkdirprog="${MKDIRPROG-mkdir}" - -transformbasename="" -transform_arg="" -instcmd="$mvprog" -chmodcmd="$chmodprog 0755" -chowncmd="" -chgrpcmd="" -stripcmd="" -rmcmd="$rmprog -f" -mvcmd="$mvprog" -src="" -dst="" -dir_arg="" - -while [ x"$1" != x ]; do - case $1 in - -c) instcmd="$cpprog" - shift - continue;; - - -d) dir_arg=true - shift - continue;; - - -m) chmodcmd="$chmodprog $2" - shift - shift - continue;; - - -o) chowncmd="$chownprog $2" - shift - shift - continue;; - - -g) chgrpcmd="$chgrpprog $2" - shift - shift - continue;; - - -s) stripcmd="$stripprog" - shift - continue;; - - -t=*) transformarg=`echo $1 | sed 's/-t=//'` - shift - continue;; - - -b=*) transformbasename=`echo $1 | sed 's/-b=//'` - shift - continue;; - - *) if [ x"$src" = x ] - then - src=$1 - else - # this colon is to work around a 386BSD /bin/sh bug - : - dst=$1 - fi - shift - continue;; - esac -done - -if [ x"$src" = x ] -then - echo "install: no input file specified" - exit 1 -else - true -fi - -if [ x"$dir_arg" != x ]; then - dst=$src - src="" - - if [ -d $dst ]; then - instcmd=: - chmodcmd="" - else - instcmd=mkdir - fi -else - -# Waiting for this to be detected by the "$instcmd $src $dsttmp" command -# might cause directories to be created, which would be especially bad -# if $src (and thus $dsttmp) contains '*'. - - if [ -f $src -o -d $src ] - then - true - else - echo "install: $src does not exist" - exit 1 - fi - - if [ x"$dst" = x ] - then - echo "install: no destination specified" - exit 1 - else - true - fi - -# If destination is a directory, append the input filename; if your system -# does not like double slashes in filenames, you may need to add some logic - - if [ -d $dst ] - then - dst="$dst"/`basename $src` - else - true - fi -fi - -## this sed command emulates the dirname command -dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'` - -# Make sure that the destination directory exists. -# this part is taken from Noah Friedman's mkinstalldirs script - -# Skip lots of stat calls in the usual case. -if [ ! -d "$dstdir" ]; then -defaultIFS=' -' -IFS="${IFS-${defaultIFS}}" - -oIFS="${IFS}" -# Some sh's can't handle IFS=/ for some reason. -IFS='%' -set - `echo ${dstdir} | sed -e 's@/@%@g' -e 's@^%@/@'` -IFS="${oIFS}" - -pathcomp='' - -while [ $# -ne 0 ] ; do - pathcomp="${pathcomp}${1}" - shift - - if [ ! -d "${pathcomp}" ] ; - then - $mkdirprog "${pathcomp}" - else - true - fi - - pathcomp="${pathcomp}/" -done -fi - -if [ x"$dir_arg" != x ] -then - $doit $instcmd $dst && - - if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else true ; fi && - if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else true ; fi && - if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else true ; fi && - if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else true ; fi -else - -# If we're going to rename the final executable, determine the name now. - - if [ x"$transformarg" = x ] - then - dstfile=`basename $dst` - else - dstfile=`basename $dst $transformbasename | - sed $transformarg`$transformbasename - fi - -# don't allow the sed command to completely eliminate the filename - - if [ x"$dstfile" = x ] - then - dstfile=`basename $dst` - else - true - fi - -# Make a temp file name in the proper directory. - - dsttmp=$dstdir/#inst.$$# - -# Move or copy the file name to the temp name - - $doit $instcmd $src $dsttmp && - - trap "rm -f ${dsttmp}" 0 && - -# and set any options; do chmod last to preserve setuid bits - -# If any of these fail, we abort the whole thing. If we want to -# ignore errors from any of these, just make sure not to ignore -# errors from the above "$doit $instcmd $src $dsttmp" command. - - if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else true;fi && - if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else true;fi && - if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else true;fi && - if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else true;fi && - -# Now rename the file to the real destination. - - $doit $rmcmd -f $dstdir/$dstfile && - $doit $mvcmd $dsttmp $dstdir/$dstfile - -fi && - - -exit 0 diff --git a/gnu/lib/libf2c/libF77/F77_aloc.c b/gnu/lib/libf2c/libF77/F77_aloc.c deleted file mode 100644 index b2861029198..00000000000 --- a/gnu/lib/libf2c/libF77/F77_aloc.c +++ /dev/null @@ -1,24 +0,0 @@ -#include "f2c.h" -#undef abs -#undef min -#undef max -#include <stdio.h> - -static integer memfailure = 3; - -#include <stdlib.h> -extern void G77_exit_0 (integer *); - -char * -F77_aloc (integer Len, char *whence) -{ - char *rv; - unsigned int uLen = (unsigned int) Len; /* for K&R C */ - - if (!(rv = (char *) malloc (uLen))) - { - fprintf (stderr, "malloc(%u) failure in %s\n", uLen, whence); - G77_exit_0 (&memfailure); - } - return rv; -} diff --git a/gnu/lib/libf2c/libF77/Makefile.bsd-wrapper b/gnu/lib/libf2c/libF77/Makefile.bsd-wrapper deleted file mode 100644 index 9b816c729bd..00000000000 --- a/gnu/lib/libf2c/libF77/Makefile.bsd-wrapper +++ /dev/null @@ -1,8 +0,0 @@ -# $OpenBSD: Makefile.bsd-wrapper,v 1.1 2004/02/29 19:32:33 drahn Exp $ - -# This needs to be separate from libg2c to allow for mixed -# Fortran/other language programs. -LIB=frtbegin -SRCS=main.c - -.include <bsd.lib.mk> diff --git a/gnu/lib/libf2c/libF77/Makefile.in b/gnu/lib/libf2c/libF77/Makefile.in deleted file mode 100644 index 07af6eb2773..00000000000 --- a/gnu/lib/libf2c/libF77/Makefile.in +++ /dev/null @@ -1,255 +0,0 @@ -# Makefile for GNU F77 compiler runtime. -# Copyright 1990 - 1994 by AT&T Bell Laboratories and Bellcore (see the -# file `Notice'). -# Portions of this file Copyright (C) 1995-1998, 2001 Free Software Foundation, Inc. -# Contributed by Dave Love (d.love@dl.ac.uk). -# -#This file is part of GNU Fortran. -# -#GNU Fortran is free software; you can redistribute it and/or modify -#it under the terms of the GNU General Public License as published by -#the Free Software Foundation; either version 2, or (at your option) -#any later version. -# -#GNU Fortran is distributed in the hope that it will be useful, -#but WITHOUT ANY WARRANTY; without even the implied warranty of -#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#GNU General Public License for more details. -# -#You should have received a copy of the GNU General Public License -#along with GNU Fortran; see the file COPYING. If not, write to -#the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -#02111-1307, USA. - -#### Start of system configuration section. #### - -# $(srcdir) must be set to the g77 runtime libF77 source directory. -srcdir = @srcdir@ -VPATH = @srcdir@ - -# configure sets this to all the -D options appropriate for the -# configuration. -DEFS = @DEFS@ - -F2C_H_DIR = @srcdir@/.. -G2C_H_DIR = .. -CC = @CC@ -CFLAGS = @CFLAGS@ -CPPFLAGS = @CPPFLAGS@ -AR = @AR@ -ARFLAGS = rc -RANLIB = @RANLIB@ -@SET_MAKE@ - -SHELL = @SHELL@ - -#### End of system configuration section. #### - -ALL_CFLAGS = -I. -I$(srcdir) -I$(G2C_H_DIR) -I$(F2C_H_DIR) $(CPPFLAGS) $(DEFS) $(WARN_CFLAGS) $(CFLAGS) - -.SUFFIXES: -.SUFFIXES: .c .lo - -.c.lo: - @LIBTOOL@ --mode=compile $(CC) -c -DSkip_f2c_Undefs $(ALL_CFLAGS) $< - -MISC = F77_aloc.lo VersionF.lo s_rnge.lo abort_.lo getarg_.lo iargc_.lo\ - getenv_.lo signal_.lo s_stop.lo s_paus.lo system_.lo cabs.lo\ - derf_.lo derfc_.lo erf_.lo erfc_.lo sig_die.lo exit_.lo setarg.lo setsig.lo -POW = pow_ci.lo pow_dd.lo pow_di.lo pow_hh.lo pow_ii.lo pow_ri.lo pow_zi.lo pow_zz.lo \ - pow_qq.lo -CX = c_abs.lo c_cos.lo c_div.lo c_exp.lo c_log.lo c_sin.lo c_sqrt.lo -DCX = z_abs.lo z_cos.lo z_div.lo z_exp.lo z_log.lo z_sin.lo z_sqrt.lo -REAL = r_abs.lo r_acos.lo r_asin.lo r_atan.lo r_atn2.lo r_cnjg.lo r_cos.lo\ - r_cosh.lo r_dim.lo r_exp.lo r_imag.lo r_int.lo\ - r_lg10.lo r_log.lo r_mod.lo r_nint.lo r_sign.lo\ - r_sin.lo r_sinh.lo r_sqrt.lo r_tan.lo r_tanh.lo -DBL = d_abs.lo d_acos.lo d_asin.lo d_atan.lo d_atn2.lo\ - d_cnjg.lo d_cos.lo d_cosh.lo d_dim.lo d_exp.lo\ - d_imag.lo d_int.lo d_lg10.lo d_log.lo d_mod.lo\ - d_nint.lo d_prod.lo d_sign.lo d_sin.lo d_sinh.lo\ - d_sqrt.lo d_tan.lo d_tanh.lo -INT = i_abs.lo i_dim.lo i_dnnt.lo i_indx.lo i_len.lo i_mod.lo i_nint.lo i_sign.lo -HALF = h_abs.lo h_dim.lo h_dnnt.lo h_indx.lo h_len.lo h_mod.lo h_nint.lo h_sign.lo -CMP = l_ge.lo l_gt.lo l_le.lo l_lt.lo hl_ge.lo hl_gt.lo hl_le.lo hl_lt.lo -EFL = ef1asc_.lo ef1cmc_.lo -CHAR = s_cat.lo s_cmp.lo s_copy.lo -F90BIT = lbitbits.lo lbitshft.lo qbitbits.lo qbitshft.lo - -OBJS = $(MISC) $(POW) $(CX) $(DCX) $(REAL) $(DBL) $(INT) \ - $(HALF) $(CMP) $(EFL) $(CHAR) $(F90BIT) - -all: ../s-libf77 ../libfrtbegin.a - -../s-libf77: $(OBJS) - -rm -f $@.T $@ - objs='$(OBJS)'; for name in $$objs; do \ - echo libF77/$${name} >> $@.T; done - mv $@.T $@ - -Makefile: Makefile.in config.status - $(SHELL) config.status - -config.status: configure - rm -f config.cache - CONFIG_SITE=no-such-file CC='$(CC)' AR='$(AR)' CFLAGS='$(CFLAGS)' \ - CPPFLAGS='$(CPPFLAGS)' $(SHELL) config.status --recheck - -${srcdir}/configure: configure.in - rm -f config.cache - cd ${srcdir} && autoconf - -VersionF.lo: Version.c - @LIBTOOL@ --mode=compile $(CC) -c $(ALL_CFLAGS) $(srcdir)/Version.c -o $@ - -frtbegin.o : main.c - $(CC) -c $(ALL_CFLAGS) $(srcdir)/main.c -o $@ - -../libfrtbegin.a: frtbegin.o - -rm -f $@ - $(AR) $(ARFLAGS) $@ frtbegin.o - $(RANLIB) $@ - -F77_aloc.lo: F77_aloc.c -s_rnge.lo: s_rnge.c -abort_.lo: abort_.c -getarg_.lo: getarg_.c -iargc_.lo: iargc_.c -getenv_.lo: getenv_.c -signal_.lo: signal_.c -s_stop.lo: s_stop.c -s_paus.lo: s_paus.c -system_.lo: system_.c -cabs.lo: cabs.c -derf_.lo: derf_.c -derfc_.lo: derfc_.c -erf_.lo: erf_.c -erfc_.lo: erfc_.c -sig_die.lo: sig_die.c -exit_.lo: exit_.c -setarg.lo: setarg.c -setsig.lo: setsig.c -pow_ci.lo: pow_ci.c -pow_dd.lo: pow_dd.c -pow_di.lo: pow_di.c -pow_hh.lo: pow_hh.c -pow_ii.lo: pow_ii.c -pow_ri.lo: pow_ri.c -pow_zi.lo: pow_zi.c -pow_zz.lo: pow_zz.c -pow_qq.lo: pow_qq.c -c_abs.lo: c_abs.c -c_cos.lo: c_cos.c -c_div.lo: c_div.c -c_exp.lo: c_exp.c -c_log.lo: c_log.c -c_sin.lo: c_sin.c -c_sqrt.lo: c_sqrt.c -z_abs.lo: z_abs.c -z_cos.lo: z_cos.c -z_div.lo: z_div.c -z_exp.lo: z_exp.c -z_log.lo: z_log.c - @LIBTOOL@ --mode=compile $(CC) -c -DSkip_f2c_Undefs $(ALL_CFLAGS) -ffloat-store $(srcdir)/z_log.c -z_sin.lo: z_sin.c -z_sqrt.lo: z_sqrt.c -r_abs.lo: r_abs.c -r_acos.lo: r_acos.c -r_asin.lo: r_asin.c -r_atan.lo: r_atan.c -r_atn2.lo: r_atn2.c -r_cnjg.lo: r_cnjg.c -r_cos.lo: r_cos.c -r_cosh.lo: r_cosh.c -r_dim.lo: r_dim.c -r_exp.lo: r_exp.c -r_imag.lo: r_imag.c -r_int.lo: r_int.c -r_lg10.lo: r_lg10.c -r_log.lo: r_log.c -r_mod.lo: r_mod.c -r_nint.lo: r_nint.c -r_sign.lo: r_sign.c -r_sin.lo: r_sin.c -r_sinh.lo: r_sinh.c -r_sqrt.lo: r_sqrt.c -r_tan.lo: r_tan.c -r_tanh.lo: r_tanh.c -d_abs.lo: d_abs.c -d_acos.lo: d_acos.c -d_asin.lo: d_asin.c -d_atan.lo: d_atan.c -d_atn2.lo: d_atn2.c -d_cnjg.lo: d_cnjg.c -d_cos.lo: d_cos.c -d_cosh.lo: d_cosh.c -d_dim.lo: d_dim.c -d_exp.lo: d_exp.c -d_imag.lo: d_imag.c -d_int.lo: d_int.c -d_lg10.lo: d_lg10.c -d_log.lo: d_log.c -d_mod.lo: d_mod.c -d_nint.lo: d_nint.c -d_prod.lo: d_prod.c -d_sign.lo: d_sign.c -d_sin.lo: d_sin.c -d_sinh.lo: d_sinh.c -d_sqrt.lo: d_sqrt.c -d_tan.lo: d_tan.c -d_tanh.lo: d_tanh.c -i_abs.lo: i_abs.c -i_dim.lo: i_dim.c -i_dnnt.lo: i_dnnt.c -i_indx.lo: i_indx.c -i_len.lo: i_len.c -i_mod.lo: i_mod.c -i_nint.lo: i_nint.c -i_sign.lo: i_sign.c -h_abs.lo: h_abs.c -h_dim.lo: h_dim.c -h_dnnt.lo: h_dnnt.c -h_indx.lo: h_indx.c -h_len.lo: h_len.c -h_mod.lo: h_mod.c -h_nint.lo: h_nint.c -h_sign.lo: h_sign.c -l_ge.lo: l_ge.c -l_gt.lo: l_gt.c -l_le.lo: l_le.c -l_lt.lo: l_lt.c -hl_ge.lo: hl_ge.c -hl_gt.lo: hl_gt.c -hl_le.lo: hl_le.c -hl_lt.lo: hl_lt.c -ef1asc_.lo: ef1asc_.c -ef1cmc_.lo: ef1cmc_.c -s_cat.lo: s_cat.c -s_cmp.lo: s_cmp.c -s_copy.lo: s_copy.c -lbitbits.lo: lbitbits.c -lbitshft.lo: lbitshft.c -qbitbits.lo: qbitbits.c -qbitshft.lo: qbitshft.c - -# Not quite all these actually do depend on f2c.h... -$(MISC) $(POW) $(CX) $(DCX) $(REAL) $(DBL) $(INT) $(HALF) $(CMP) $(EFL) \ - $(CHAR) $(F90BIT): $(F2C_H_DIR)/f2c.h $(G2C_H_DIR)/g2c.h - -check install uninstall install-strip dist installcheck installdirs: - -mostlyclean: - rm -f *.o *.lo ../libfrtbegin.a - rm -rf .libs - -clean: mostlyclean - rm -f config.log - rm -f ../s-libf77 - -distclean: clean - rm -f config.cache config.status Makefile ../s-libf77 configure - -maintainer-clean: - -.PHONY: mostlyclean clean distclean maintainer-clean all check uninstall \ - install-strip dist installcheck installdirs archive diff --git a/gnu/lib/libf2c/libF77/Notice b/gnu/lib/libf2c/libF77/Notice deleted file mode 100644 index 261b719bc57..00000000000 --- a/gnu/lib/libf2c/libF77/Notice +++ /dev/null @@ -1,23 +0,0 @@ -/**************************************************************** -Copyright 1990 - 1997 by AT&T, Lucent Technologies and Bellcore. - -Permission to use, copy, modify, and distribute this software -and its documentation for any purpose and without fee is hereby -granted, provided that the above copyright notice appear in all -copies and that both that the copyright notice and this -permission notice and warranty disclaimer appear in supporting -documentation, and that the names of AT&T, Bell Laboratories, -Lucent or Bellcore or any of their entities not be used in -advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -AT&T, Lucent and Bellcore disclaim all warranties with regard to -this software, including all implied warranties of -merchantability and fitness. In no event shall AT&T, Lucent or -Bellcore be liable for any special, indirect or consequential -damages or any damages whatsoever resulting from loss of use, -data or profits, whether in an action of contract, negligence or -other tortious action, arising out of or in connection with the -use or performance of this software. -****************************************************************/ - diff --git a/gnu/lib/libf2c/libF77/README.netlib b/gnu/lib/libf2c/libF77/README.netlib deleted file mode 100644 index 5e532ee0990..00000000000 --- a/gnu/lib/libf2c/libF77/README.netlib +++ /dev/null @@ -1,112 +0,0 @@ -If your compiler does not recognize ANSI C headers, -compile with KR_headers defined: either add -DKR_headers -to the definition of CFLAGS in the makefile, or insert - -#define KR_headers - -at the top of f2c.h , cabs.c , main.c , and sig_die.c . - -Under MS-DOS, compile s_paus.c with -DMSDOS. - -If you have a really ancient K&R C compiler that does not understand -void, add -Dvoid=int to the definition of CFLAGS in the makefile. - -If you use a C++ compiler, first create a local f2c.h by appending -f2ch.add to the usual f2c.h, e.g., by issuing the command - make f2c.h -which assumes f2c.h is installed in /usr/include . - -If your system lacks onexit() and you are not using an ANSI C -compiler, then you should compile main.c, s_paus.c, s_stop.c, and -sig_die.c with NO_ONEXIT defined. See the comments about onexit in -the makefile. - -If your system has a double drem() function such that drem(a,b) -is the IEEE remainder function (with double a, b), then you may -wish to compile r_mod.c and d_mod.c with IEEE_drem defined. -On some systems, you may also need to compile with -Ddrem=remainder . - -To check for transmission errors, issue the command - make check -This assumes you have the xsum program whose source, xsum.c, -is distributed as part of "all from f2c/src". If you do not -have xsum, you can obtain xsum.c by sending the following E-mail -message to netlib@netlib.bell-labs.com - send xsum.c from f2c/src - -The makefile assumes you have installed f2c.h in a standard -place (and does not cause recompilation when f2c.h is changed); -f2c.h comes with "all from f2c" (the source for f2c) and is -available separately ("f2c.h from f2c"). - -Most of the routines in libF77 are support routines for Fortran -intrinsic functions or for operations that f2c chooses not -to do "in line". There are a few exceptions, summarized below -- -functions and subroutines that appear to your program as ordinary -external Fortran routines. - -1. CALL ABORT prints a message and causes a core dump. - -2. ERF(r) and DERF(d) and the REAL and DOUBLE PRECISION - error functions (with x REAL and d DOUBLE PRECISION); - DERF must be declared DOUBLE PRECISION in your program. - Both ERF and DERF assume your C library provides the - underlying erf() function (which not all systems do). - -3. ERFC(r) and DERFC(d) are the complementary error functions: - ERFC(r) = 1 - ERF(r) and DERFC(d) = 1.d0 - DERFC(d) - (except that their results may be more accurate than - explicitly evaluating the above formulae would give). - Again, ERFC and r are REAL, and DERFC and d are DOUBLE - PRECISION (and must be declared as such in your program), - and ERFC and DERFC rely on your system's erfc(). - -4. CALL GETARG(n,s), where n is an INTEGER and s is a CHARACTER - variable, sets s to the n-th command-line argument (or to - all blanks if there are fewer than n command-line arguments); - CALL GETARG(0,s) sets s to the name of the program (on systems - that support this feature). See IARGC below. - -5. CALL GETENV(name, value), where name and value are of type - CHARACTER, sets value to the environment value, $name, of - name (or to blanks if $name has not been set). - -6. NARGS = IARGC() sets NARGS to the number of command-line - arguments (an INTEGER value). - -7. CALL SIGNAL(n,func), where n is an INTEGER and func is an - EXTERNAL procedure, arranges for func to be invoked when - signal n occurs (on systems where this makes sense). - -8. CALL SYSTEM(cmd), where cmd is of type CHARACTER, passes - cmd to the system's command processor (on systems where - this can be done). - -The makefile does not attempt to compile pow_qq.c, qbitbits.c, -and qbitshft.c, which are meant for use with INTEGER*8. To use -INTEGER*8, you must modify f2c.h to declare longint and ulongint -appropriately; then add pow_qq.o to the POW = line in the makefile, -and add " qbitbits.o qbitshft.o" to the makefile's F90BIT = line. - -Following Fortran 90, s_cat.c and s_copy.c allow the target of a -(character string) assignment to be appear on its right-hand, at -the cost of some extra overhead for all run-time concatenations. -If you prefer the extra efficiency that comes with the Fortran 77 -requirement that the left-hand side of a character assignment not -be involved in the right-hand side, compile s_cat.c and s_copy.c -with -DNO_OVERWRITE . - -If your system lacks a ranlib command, you don't need it. -Either comment out the makefile's ranlib invocation, or install -a harmless "ranlib" command somewhere in your PATH, such as the -one-line shell script - - exit 0 - -or (on some systems) - - exec /usr/bin/ar lts $1 >/dev/null - -If your compiler complains about the signal calls in main.c, s_paus.c, -and signal_.c, you may need to adjust signal1.h suitably. See the -comments in signal1.h. diff --git a/gnu/lib/libf2c/libF77/Version.c b/gnu/lib/libf2c/libF77/Version.c deleted file mode 100644 index a27b0df7696..00000000000 --- a/gnu/lib/libf2c/libF77/Version.c +++ /dev/null @@ -1,94 +0,0 @@ -const char __LIBF77_VERSION__[] = "@(#) LIBF77 VERSION 20000929\n"; -extern const char __LIBI77_VERSION__[]; -extern const char __LIBU77_VERSION__[]; - -/* -2.00 11 June 1980. File version.c added to library. -2.01 31 May 1988. s_paus() flushes stderr; names of hl_* fixed - [ d]erf[c ] added - 8 Aug. 1989: #ifdefs for f2c -i2 added to s_cat.c - 29 Nov. 1989: s_cmp returns long (for f2c) - 30 Nov. 1989: arg types from f2c.h - 12 Dec. 1989: s_rnge allows long names - 19 Dec. 1989: getenv_ allows unsorted environment - 28 Mar. 1990: add exit(0) to end of main() - 2 Oct. 1990: test signal(...) == SIG_IGN rather than & 01 in main - 17 Oct. 1990: abort() calls changed to sig_die(...,1) - 22 Oct. 1990: separate sig_die from main - 25 Apr. 1991: minor, theoretically invisible tweaks to s_cat, sig_die - 31 May 1991: make system_ return status - 18 Dec. 1991: change long to ftnlen (for -i2) many places - 28 Feb. 1992: repair z_sqrt.c (scribbled on input, gave wrong answer) - 18 July 1992: for n < 0, repair handling of 0**n in pow_[dr]i.c - and m**n in pow_hh.c and pow_ii.c; - catch SIGTRAP in main() for error msg before abort - 23 July 1992: switch to ANSI prototypes unless KR_headers is #defined - 23 Oct. 1992: fix botch in signal_.c (erroneous deref of 2nd arg); - change Cabs to f__cabs. - 12 March 1993: various tweaks for C++ - 2 June 1994: adjust so abnormal terminations invoke f_exit just once - 16 Sept. 1994: s_cmp: treat characters as unsigned in comparisons. - 19 Sept. 1994: s_paus: flush after end of PAUSE; add -DMSDOS - 12 Jan. 1995: pow_[dhiqrz][hiq]: adjust x**i to work on machines - that sign-extend right shifts when i is the most - negative integer. - 26 Jan. 1995: adjust s_cat.c, s_copy.c to permit the left-hand side - of character assignments to appear on the right-hand - side (unless compiled with -DNO_OVERWRITE). - 27 Jan. 1995: minor tweak to s_copy.c: copy forward whenever - possible (for better cache behavior). - 30 May 1995: added subroutine exit(rc) integer rc. Version not changed. - 29 Aug. 1995: add F77_aloc.c; use it in s_cat.c and system_.c. - 6 Sept. 1995: fix return type of system_ under -DKR_headers. - 19 Dec. 1995: s_cat.c: fix bug when 2nd or later arg overlaps lhs. - 19 Mar. 1996: s_cat.c: supply missing break after overlap detection. - 13 May 1996: add [lq]bitbits.c and [lq]bitshft.c (f90 bit intrinsics). - 19 June 1996: add casts to unsigned in [lq]bitshft.c. - 26 Feb. 1997: adjust functions with a complex output argument - to permit aliasing it with input arguments. - (For now, at least, this is just for possible - benefit of g77.) - 4 April 1997: [cz]_div.c: tweaks invisible on most systems (that may - affect systems using gratuitous extra precision). - 19 Sept. 1997: [de]time_.c (Unix systems only): change return - type to double. - 2 May 1999: getenv_.c: omit environ in favor of getenv(). - c_cos.c, c_exp.c, c_sin.c, d_cnjg.c, r_cnjg.c, - z_cos.c, z_exp.c, z_log.c, z_sin.c: cope fully with - overlapping arguments caused by equivalence. - 3 May 1999: "invisible" tweaks to omit compiler warnings in - abort_.c, ef1asc_.c, s_rnge.c, s_stop.c. - 7 Sept. 1999: [cz]_div.c: arrange for compilation under - -DIEEE_COMPLEX_DIVIDE to make these routines - avoid calling sig_die when the denominator - vanishes; instead, they return pairs of NaNs - or Infinities, depending whether the numerator - also vanishes or not. VERSION not changed. - 15 Nov. 1999: s_rnge.c: add casts for the case of - sizeof(ftnint) == sizeof(int) < sizeof(long). - 10 March 2000: z_log.c: improve accuracy of Real(log(z)) for, e.g., - z near (+-1,eps) with |eps| small. For the old - evaluation, compile with -DPre20000310 . - 20 April 2000: s_cat.c: tweak argument types to accord with - calls by f2c when ftnint and ftnlen are of - different sizes (different numbers of bits). - 4 July 2000: adjustments to permit compilation by C++ compilers; - VERSION string remains unchanged. NOT APPLIED FOR G77. - 29 Sept. 2000: dtime_.c, etime_.c: use floating-point divide. - dtime_.d, erf_.c, erfc_.c, etime.c: for use with - "f2c -R", compile with -DREAL=float. -*/ - -#include <stdio.h> - -void -g77__fvers__ () -{ - fputs ("GNU Fortran library.\n", stderr); -#if defined __GNUC__ && defined __VERSION__ - fprintf (stderr, "Compiled by GCC %s\n", __VERSION__); -#endif - fputs (__LIBF77_VERSION__, stderr); - fputs (__LIBI77_VERSION__, stderr); - fputs (__LIBU77_VERSION__, stderr); -} diff --git a/gnu/lib/libf2c/libF77/abort_.c b/gnu/lib/libf2c/libF77/abort_.c deleted file mode 100644 index 761bc3bd6e9..00000000000 --- a/gnu/lib/libf2c/libF77/abort_.c +++ /dev/null @@ -1,11 +0,0 @@ -#include <stdio.h> -#include "f2c.h" - -extern void sig_die (char *, int); - -int -G77_abort_0 (void) -{ - sig_die ("Fortran abort routine called", 1); - return 0; /* not reached */ -} diff --git a/gnu/lib/libf2c/libF77/c_abs.c b/gnu/lib/libf2c/libF77/c_abs.c deleted file mode 100644 index 3fc4d7c0a6a..00000000000 --- a/gnu/lib/libf2c/libF77/c_abs.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -extern double f__cabs (double, double); - -double -c_abs (complex * z) -{ - return (f__cabs (z->r, z->i)); -} diff --git a/gnu/lib/libf2c/libF77/c_cos.c b/gnu/lib/libf2c/libF77/c_cos.c deleted file mode 100644 index 59659754978..00000000000 --- a/gnu/lib/libf2c/libF77/c_cos.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#undef abs -#include "math.h" - -void -c_cos (complex * r, complex * z) -{ - double zi = z->i, zr = z->r; - r->r = cos (zr) * cosh (zi); - r->i = -sin (zr) * sinh (zi); -} diff --git a/gnu/lib/libf2c/libF77/c_div.c b/gnu/lib/libf2c/libF77/c_div.c deleted file mode 100644 index b5ede0eb801..00000000000 --- a/gnu/lib/libf2c/libF77/c_div.c +++ /dev/null @@ -1,43 +0,0 @@ -#include "f2c.h" - -extern void sig_die (char *, int); -void -c_div (complex * c, complex * a, complex * b) -{ - double ratio, den; - double abr, abi, cr; - - if ((abr = b->r) < 0.) - abr = -abr; - if ((abi = b->i) < 0.) - abi = -abi; - if (abr <= abi) - { - if (abi == 0) - { -#ifdef IEEE_COMPLEX_DIVIDE - float af, bf; - af = bf = abr; - if (a->i != 0 || a->r != 0) - af = 1.; - c->i = c->r = af / bf; - return; -#else - sig_die ("complex division by zero", 1); -#endif - } - ratio = (double) b->r / b->i; - den = b->i * (1 + ratio * ratio); - cr = (a->r * ratio + a->i) / den; - c->i = (a->i * ratio - a->r) / den; - } - - else - { - ratio = (double) b->i / b->r; - den = b->r * (1 + ratio * ratio); - cr = (a->r + a->i * ratio) / den; - c->i = (a->i - a->r * ratio) / den; - } - c->r = cr; -} diff --git a/gnu/lib/libf2c/libF77/c_exp.c b/gnu/lib/libf2c/libF77/c_exp.c deleted file mode 100644 index 56a8695420c..00000000000 --- a/gnu/lib/libf2c/libF77/c_exp.c +++ /dev/null @@ -1,14 +0,0 @@ -#include "f2c.h" - -#undef abs -#include "math.h" - -void -c_exp (complex * r, complex * z) -{ - double expx, zi = z->i; - - expx = exp (z->r); - r->r = expx * cos (zi); - r->i = expx * sin (zi); -} diff --git a/gnu/lib/libf2c/libF77/c_log.c b/gnu/lib/libf2c/libF77/c_log.c deleted file mode 100644 index 7d5b9513167..00000000000 --- a/gnu/lib/libf2c/libF77/c_log.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#undef abs -#include "math.h" -extern double f__cabs (double, double); - -void -c_log (complex * r, complex * z) -{ - double zi, zr; - r->i = atan2 (zi = z->i, zr = z->r); - r->r = log (f__cabs (zr, zi)); -} diff --git a/gnu/lib/libf2c/libF77/c_sin.c b/gnu/lib/libf2c/libF77/c_sin.c deleted file mode 100644 index 44bce9f7739..00000000000 --- a/gnu/lib/libf2c/libF77/c_sin.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "f2c.h" - -#undef abs -#include "math.h" - -void -c_sin (complex * r, complex * z) -{ - double zi = z->i, zr = z->r; - r->r = sin (zr) * cosh (zi); - r->i = cos (zr) * sinh (zi); -} diff --git a/gnu/lib/libf2c/libF77/c_sqrt.c b/gnu/lib/libf2c/libF77/c_sqrt.c deleted file mode 100644 index 81b72fc372e..00000000000 --- a/gnu/lib/libf2c/libF77/c_sqrt.c +++ /dev/null @@ -1,30 +0,0 @@ -#include "f2c.h" - -#undef abs -#include "math.h" -extern double f__cabs (double, double); - -void -c_sqrt (complex * r, complex * z) -{ - double mag, t; - double zi = z->i, zr = z->r; - - if ((mag = f__cabs (zr, zi)) == 0.) - r->r = r->i = 0.; - else if (zr > 0) - { - r->r = t = sqrt (0.5 * (mag + zr)); - t = zi / t; - r->i = 0.5 * t; - } - else - { - t = sqrt (0.5 * (mag - zr)); - if (zi < 0) - t = -t; - r->i = t; - t = zi / t; - r->r = 0.5 * t; - } -} diff --git a/gnu/lib/libf2c/libF77/cabs.c b/gnu/lib/libf2c/libF77/cabs.c deleted file mode 100644 index 5d2142e1825..00000000000 --- a/gnu/lib/libf2c/libF77/cabs.c +++ /dev/null @@ -1,24 +0,0 @@ -#undef abs -#include <math.h> -double -f__cabs (double real, double imag) -{ - double temp; - - if (real < 0) - real = -real; - if (imag < 0) - imag = -imag; - if (imag > real) - { - temp = real; - real = imag; - imag = temp; - } - if ((real + imag) == real) - return (real); - - temp = imag / real; - temp = real * sqrt (1.0 + temp * temp); /*overflow!! */ - return (temp); -} diff --git a/gnu/lib/libf2c/libF77/configure b/gnu/lib/libf2c/libF77/configure deleted file mode 100755 index 4e198c87c8f..00000000000 --- a/gnu/lib/libf2c/libF77/configure +++ /dev/null @@ -1,1568 +0,0 @@ -#! /bin/sh - -# Guess values for system-dependent variables and create Makefiles. -# Generated automatically using autoconf version 2.13 -# Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc. -# -# This configure script is free software; the Free Software Foundation -# gives unlimited permission to copy, distribute and modify it. - -# Defaults: -ac_help= -ac_default_prefix=/usr/local -# Any additions from configure.in: - -# Initialize some variables set by options. -# The variables have the same names as the options, with -# dashes changed to underlines. -build=NONE -cache_file=./config.cache -exec_prefix=NONE -host=NONE -no_create= -nonopt=NONE -no_recursion= -prefix=NONE -program_prefix=NONE -program_suffix=NONE -program_transform_name=s,x,x, -silent= -site= -srcdir= -target=NONE -verbose= -x_includes=NONE -x_libraries=NONE -bindir='${exec_prefix}/bin' -sbindir='${exec_prefix}/sbin' -libexecdir='${exec_prefix}/libexec' -datadir='${prefix}/share' -sysconfdir='${prefix}/etc' -sharedstatedir='${prefix}/com' -localstatedir='${prefix}/var' -libdir='${exec_prefix}/lib' -includedir='${prefix}/include' -oldincludedir='/usr/include' -infodir='${prefix}/info' -mandir='${prefix}/man' - -# Initialize some other variables. -subdirs= -MFLAGS= MAKEFLAGS= -SHELL=${CONFIG_SHELL-/bin/sh} -# Maximum number of lines to put in a shell here document. -ac_max_here_lines=12 - -ac_prev= -for ac_option -do - - # If the previous option needs an argument, assign it. - if test -n "$ac_prev"; then - eval "$ac_prev=\$ac_option" - ac_prev= - continue - fi - - case "$ac_option" in - -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;; - *) ac_optarg= ;; - esac - - # Accept the important Cygnus configure options, so we can diagnose typos. - - case "$ac_option" in - - -bindir | --bindir | --bindi | --bind | --bin | --bi) - ac_prev=bindir ;; - -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) - bindir="$ac_optarg" ;; - - -build | --build | --buil | --bui | --bu) - ac_prev=build ;; - -build=* | --build=* | --buil=* | --bui=* | --bu=*) - build="$ac_optarg" ;; - - -cache-file | --cache-file | --cache-fil | --cache-fi \ - | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) - ac_prev=cache_file ;; - -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ - | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) - cache_file="$ac_optarg" ;; - - -datadir | --datadir | --datadi | --datad | --data | --dat | --da) - ac_prev=datadir ;; - -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ - | --da=*) - datadir="$ac_optarg" ;; - - -disable-* | --disable-*) - ac_feature=`echo $ac_option|sed -e 's/-*disable-//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then - { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } - fi - ac_feature=`echo $ac_feature| sed 's/-/_/g'` - eval "enable_${ac_feature}=no" ;; - - -enable-* | --enable-*) - ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then - { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } - fi - ac_feature=`echo $ac_feature| sed 's/-/_/g'` - case "$ac_option" in - *=*) ;; - *) ac_optarg=yes ;; - esac - eval "enable_${ac_feature}='$ac_optarg'" ;; - - -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ - | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ - | --exec | --exe | --ex) - ac_prev=exec_prefix ;; - -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ - | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ - | --exec=* | --exe=* | --ex=*) - exec_prefix="$ac_optarg" ;; - - -gas | --gas | --ga | --g) - # Obsolete; use --with-gas. - with_gas=yes ;; - - -help | --help | --hel | --he) - # Omit some internal or obsolete options to make the list less imposing. - # This message is too long to be a string in the A/UX 3.1 sh. - cat << EOF -Usage: configure [options] [host] -Options: [defaults in brackets after descriptions] -Configuration: - --cache-file=FILE cache test results in FILE - --help print this message - --no-create do not create output files - --quiet, --silent do not print \`checking...' messages - --version print the version of autoconf that created configure -Directory and file names: - --prefix=PREFIX install architecture-independent files in PREFIX - [$ac_default_prefix] - --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX - [same as prefix] - --bindir=DIR user executables in DIR [EPREFIX/bin] - --sbindir=DIR system admin executables in DIR [EPREFIX/sbin] - --libexecdir=DIR program executables in DIR [EPREFIX/libexec] - --datadir=DIR read-only architecture-independent data in DIR - [PREFIX/share] - --sysconfdir=DIR read-only single-machine data in DIR [PREFIX/etc] - --sharedstatedir=DIR modifiable architecture-independent data in DIR - [PREFIX/com] - --localstatedir=DIR modifiable single-machine data in DIR [PREFIX/var] - --libdir=DIR object code libraries in DIR [EPREFIX/lib] - --includedir=DIR C header files in DIR [PREFIX/include] - --oldincludedir=DIR C header files for non-gcc in DIR [/usr/include] - --infodir=DIR info documentation in DIR [PREFIX/info] - --mandir=DIR man documentation in DIR [PREFIX/man] - --srcdir=DIR find the sources in DIR [configure dir or ..] - --program-prefix=PREFIX prepend PREFIX to installed program names - --program-suffix=SUFFIX append SUFFIX to installed program names - --program-transform-name=PROGRAM - run sed PROGRAM on installed program names -EOF - cat << EOF -Host type: - --build=BUILD configure for building on BUILD [BUILD=HOST] - --host=HOST configure for HOST [guessed] - --target=TARGET configure for TARGET [TARGET=HOST] -Features and packages: - --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) - --enable-FEATURE[=ARG] include FEATURE [ARG=yes] - --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] - --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) - --x-includes=DIR X include files are in DIR - --x-libraries=DIR X library files are in DIR -EOF - if test -n "$ac_help"; then - echo "--enable and --with options recognized:$ac_help" - fi - exit 0 ;; - - -host | --host | --hos | --ho) - ac_prev=host ;; - -host=* | --host=* | --hos=* | --ho=*) - host="$ac_optarg" ;; - - -includedir | --includedir | --includedi | --included | --include \ - | --includ | --inclu | --incl | --inc) - ac_prev=includedir ;; - -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ - | --includ=* | --inclu=* | --incl=* | --inc=*) - includedir="$ac_optarg" ;; - - -infodir | --infodir | --infodi | --infod | --info | --inf) - ac_prev=infodir ;; - -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) - infodir="$ac_optarg" ;; - - -libdir | --libdir | --libdi | --libd) - ac_prev=libdir ;; - -libdir=* | --libdir=* | --libdi=* | --libd=*) - libdir="$ac_optarg" ;; - - -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ - | --libexe | --libex | --libe) - ac_prev=libexecdir ;; - -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ - | --libexe=* | --libex=* | --libe=*) - libexecdir="$ac_optarg" ;; - - -localstatedir | --localstatedir | --localstatedi | --localstated \ - | --localstate | --localstat | --localsta | --localst \ - | --locals | --local | --loca | --loc | --lo) - ac_prev=localstatedir ;; - -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ - | --localstate=* | --localstat=* | --localsta=* | --localst=* \ - | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) - localstatedir="$ac_optarg" ;; - - -mandir | --mandir | --mandi | --mand | --man | --ma | --m) - ac_prev=mandir ;; - -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) - mandir="$ac_optarg" ;; - - -nfp | --nfp | --nf) - # Obsolete; use --without-fp. - with_fp=no ;; - - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c) - no_create=yes ;; - - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) - no_recursion=yes ;; - - -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ - | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ - | --oldin | --oldi | --old | --ol | --o) - ac_prev=oldincludedir ;; - -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ - | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ - | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) - oldincludedir="$ac_optarg" ;; - - -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) - ac_prev=prefix ;; - -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) - prefix="$ac_optarg" ;; - - -program-prefix | --program-prefix | --program-prefi | --program-pref \ - | --program-pre | --program-pr | --program-p) - ac_prev=program_prefix ;; - -program-prefix=* | --program-prefix=* | --program-prefi=* \ - | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) - program_prefix="$ac_optarg" ;; - - -program-suffix | --program-suffix | --program-suffi | --program-suff \ - | --program-suf | --program-su | --program-s) - ac_prev=program_suffix ;; - -program-suffix=* | --program-suffix=* | --program-suffi=* \ - | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) - program_suffix="$ac_optarg" ;; - - -program-transform-name | --program-transform-name \ - | --program-transform-nam | --program-transform-na \ - | --program-transform-n | --program-transform- \ - | --program-transform | --program-transfor \ - | --program-transfo | --program-transf \ - | --program-trans | --program-tran \ - | --progr-tra | --program-tr | --program-t) - ac_prev=program_transform_name ;; - -program-transform-name=* | --program-transform-name=* \ - | --program-transform-nam=* | --program-transform-na=* \ - | --program-transform-n=* | --program-transform-=* \ - | --program-transform=* | --program-transfor=* \ - | --program-transfo=* | --program-transf=* \ - | --program-trans=* | --program-tran=* \ - | --progr-tra=* | --program-tr=* | --program-t=*) - program_transform_name="$ac_optarg" ;; - - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil) - silent=yes ;; - - -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) - ac_prev=sbindir ;; - -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ - | --sbi=* | --sb=*) - sbindir="$ac_optarg" ;; - - -sharedstatedir | --sharedstatedir | --sharedstatedi \ - | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ - | --sharedst | --shareds | --shared | --share | --shar \ - | --sha | --sh) - ac_prev=sharedstatedir ;; - -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ - | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ - | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ - | --sha=* | --sh=*) - sharedstatedir="$ac_optarg" ;; - - -site | --site | --sit) - ac_prev=site ;; - -site=* | --site=* | --sit=*) - site="$ac_optarg" ;; - - -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) - ac_prev=srcdir ;; - -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) - srcdir="$ac_optarg" ;; - - -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ - | --syscon | --sysco | --sysc | --sys | --sy) - ac_prev=sysconfdir ;; - -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ - | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) - sysconfdir="$ac_optarg" ;; - - -target | --target | --targe | --targ | --tar | --ta | --t) - ac_prev=target ;; - -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) - target="$ac_optarg" ;; - - -v | -verbose | --verbose | --verbos | --verbo | --verb) - verbose=yes ;; - - -version | --version | --versio | --versi | --vers) - echo "configure generated by autoconf version 2.13" - exit 0 ;; - - -with-* | --with-*) - ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then - { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } - fi - ac_package=`echo $ac_package| sed 's/-/_/g'` - case "$ac_option" in - *=*) ;; - *) ac_optarg=yes ;; - esac - eval "with_${ac_package}='$ac_optarg'" ;; - - -without-* | --without-*) - ac_package=`echo $ac_option|sed -e 's/-*without-//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then - { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } - fi - ac_package=`echo $ac_package| sed 's/-/_/g'` - eval "with_${ac_package}=no" ;; - - --x) - # Obsolete; use --with-x. - with_x=yes ;; - - -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ - | --x-incl | --x-inc | --x-in | --x-i) - ac_prev=x_includes ;; - -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ - | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) - x_includes="$ac_optarg" ;; - - -x-libraries | --x-libraries | --x-librarie | --x-librari \ - | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) - ac_prev=x_libraries ;; - -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ - | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) - x_libraries="$ac_optarg" ;; - - -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; } - ;; - - *) - if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then - echo "configure: warning: $ac_option: invalid host type" 1>&2 - fi - if test "x$nonopt" != xNONE; then - { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } - fi - nonopt="$ac_option" - ;; - - esac -done - -if test -n "$ac_prev"; then - { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; } -fi - -trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 - -# File descriptor usage: -# 0 standard input -# 1 file creation -# 2 errors and warnings -# 3 some systems may open it to /dev/tty -# 4 used on the Kubota Titan -# 6 checking for... messages and results -# 5 compiler messages saved in config.log -if test "$silent" = yes; then - exec 6>/dev/null -else - exec 6>&1 -fi -exec 5>./config.log - -echo "\ -This file contains any messages produced by compilers while -running configure, to aid debugging if configure makes a mistake. -" 1>&5 - -# Strip out --no-create and --no-recursion so they do not pile up. -# Also quote any args containing shell metacharacters. -ac_configure_args= -for ac_arg -do - case "$ac_arg" in - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c) ;; - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;; - *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*) - ac_configure_args="$ac_configure_args '$ac_arg'" ;; - *) ac_configure_args="$ac_configure_args $ac_arg" ;; - esac -done - -# NLS nuisances. -# Only set these to C if already set. These must not be set unconditionally -# because not all systems understand e.g. LANG=C (notably SCO). -# Fixing LC_MESSAGES prevents Solaris sh from translating var values in `set'! -# Non-C LC_CTYPE values break the ctype check. -if test "${LANG+set}" = set; then LANG=C; export LANG; fi -if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi -if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi -if test "${LC_CTYPE+set}" = set; then LC_CTYPE=C; export LC_CTYPE; fi - -# confdefs.h avoids OS command line length limits that DEFS can exceed. -rm -rf conftest* confdefs.h -# AIX cpp loses on an empty file, so make sure it contains at least a newline. -echo > confdefs.h - -# A filename unique to this package, relative to the directory that -# configure is in, which we can look for to find out if srcdir is correct. -ac_unique_file=getarg_.c - -# Find the source files, if location was not specified. -if test -z "$srcdir"; then - ac_srcdir_defaulted=yes - # Try the directory containing this script, then its parent. - ac_prog=$0 - ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'` - test "x$ac_confdir" = "x$ac_prog" && ac_confdir=. - srcdir=$ac_confdir - if test ! -r $srcdir/$ac_unique_file; then - srcdir=.. - fi -else - ac_srcdir_defaulted=no -fi -if test ! -r $srcdir/$ac_unique_file; then - if test "$ac_srcdir_defaulted" = yes; then - { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; } - else - { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; } - fi -fi -srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'` - -# Prefer explicitly selected file to automatically selected ones. -if test -z "$CONFIG_SITE"; then - if test "x$prefix" != xNONE; then - CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" - else - CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" - fi -fi -for ac_site_file in $CONFIG_SITE; do - if test -r "$ac_site_file"; then - echo "loading site script $ac_site_file" - . "$ac_site_file" - fi -done - -if test -r "$cache_file"; then - echo "loading cache $cache_file" - . $cache_file -else - echo "creating cache $cache_file" - > $cache_file -fi - -ac_ext=c -# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. -ac_cpp='$CPP $CPPFLAGS' -ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' -ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -cross_compiling=$ac_cv_prog_cc_cross - -ac_exeext= -ac_objext=o -if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then - # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu. - if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then - ac_n= ac_c=' -' ac_t=' ' - else - ac_n=-n ac_c= ac_t= - fi -else - ac_n= ac_c='\c' ac_t= -fi - - - - - - -# For g77 we'll set CC to point at the built gcc, but this will get it into -# the makefiles -# Extract the first word of "gcc", so it can be a program name with args. -set dummy gcc; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:534: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_CC="gcc" - break - fi - done - IFS="$ac_save_ifs" -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - -if test -z "$CC"; then - # Extract the first word of "cc", so it can be a program name with args. -set dummy cc; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:564: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_prog_rejected=no - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - if test "$ac_dir/$ac_word" = "/usr/ucb/cc"; then - ac_prog_rejected=yes - continue - fi - ac_cv_prog_CC="cc" - break - fi - done - IFS="$ac_save_ifs" -if test $ac_prog_rejected = yes; then - # We found a bogon in the path, so make sure we never use it. - set dummy $ac_cv_prog_CC - shift - if test $# -gt 0; then - # We chose a different compiler from the bogus one. - # However, it has the same basename, so the bogon will be chosen - # first if we set CC to just the basename; use the full file name. - shift - set dummy "$ac_dir/$ac_word" "$@" - shift - ac_cv_prog_CC="$@" - fi -fi -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - - if test -z "$CC"; then - case "`uname -s`" in - *win32* | *WIN32*) - # Extract the first word of "cl", so it can be a program name with args. -set dummy cl; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:615: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_CC="cl" - break - fi - done - IFS="$ac_save_ifs" -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - ;; - esac - fi - test -z "$CC" && { echo "configure: error: no acceptable cc found in \$PATH" 1>&2; exit 1; } -fi - - -echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6 -echo "configure:648: checking whether we are using GNU C" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.c <<EOF -#ifdef __GNUC__ - yes; -#endif -EOF -if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:657: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then - ac_cv_prog_gcc=yes -else - ac_cv_prog_gcc=no -fi -fi - -echo "$ac_t""$ac_cv_prog_gcc" 1>&6 - -if test $ac_cv_prog_gcc = yes; then - GCC=yes -else - GCC= -fi - -ac_test_CFLAGS="${CFLAGS+set}" -ac_save_CFLAGS="$CFLAGS" -CFLAGS= -echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6 -echo "configure:676: checking whether ${CC-cc} accepts -g" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - echo 'void f(){}' > conftest.c -if test -z "`${CC-cc} -g -c conftest.c 2>&1`"; then - ac_cv_prog_cc_g=yes -else - ac_cv_prog_cc_g=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$ac_cv_prog_cc_g" 1>&6 -if test "$ac_test_CFLAGS" = set; then - CFLAGS="$ac_save_CFLAGS" -elif test $ac_cv_prog_cc_g = yes; then - if test "$GCC" = yes; then - CFLAGS="-g -O2" - else - CFLAGS="-g" - fi -else - if test "$GCC" = yes; then - CFLAGS="-O2" - else - CFLAGS= - fi -fi - - -LIBTOOL='$(SHELL) ../libtool' - - -test "$AR" || AR=ar - -if test "$RANLIB"; then : - -else - # Extract the first word of "ranlib", so it can be a program name with args. -set dummy ranlib; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:719: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$RANLIB"; then - ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_RANLIB="ranlib" - break - fi - done - IFS="$ac_save_ifs" - test -z "$ac_cv_prog_RANLIB" && ac_cv_prog_RANLIB=":" -fi -fi -RANLIB="$ac_cv_prog_RANLIB" -if test -n "$RANLIB"; then - echo "$ac_t""$RANLIB" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - -fi -echo $ac_n "checking whether ${MAKE-make} sets \${MAKE}""... $ac_c" 1>&6 -echo "configure:748: checking whether ${MAKE-make} sets \${MAKE}" >&5 -set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y%./+-%__p_%'` -if eval "test \"`echo '$''{'ac_cv_prog_make_${ac_make}_set'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftestmake <<\EOF -all: - @echo 'ac_maketemp="${MAKE}"' -EOF -# GNU make sometimes prints "make[1]: Entering...", which would confuse us. -eval `${MAKE-make} -f conftestmake 2>/dev/null | grep temp=` -if test -n "$ac_maketemp"; then - eval ac_cv_prog_make_${ac_make}_set=yes -else - eval ac_cv_prog_make_${ac_make}_set=no -fi -rm -f conftestmake -fi -if eval "test \"`echo '$ac_cv_prog_make_'${ac_make}_set`\" = yes"; then - echo "$ac_t""yes" 1>&6 - SET_MAKE= -else - echo "$ac_t""no" 1>&6 - SET_MAKE="MAKE=${MAKE-make}" -fi - - - -# Sanity check for the cross-compilation case: -echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6 -echo "configure:778: checking how to run the C preprocessor" >&5 -# On Suns, sometimes $CPP names a directory. -if test -n "$CPP" && test -d "$CPP"; then - CPP= -fi -if test -z "$CPP"; then -if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - # This must be in double quotes, not single quotes, because CPP may get - # substituted into the Makefile and "${CC-cc}" will confuse make. - CPP="${CC-cc} -E" - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. - cat > conftest.$ac_ext <<EOF -#line 793 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:799: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP="${CC-cc} -E -traditional-cpp" - cat > conftest.$ac_ext <<EOF -#line 810 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:816: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP="${CC-cc} -nologo -E" - cat > conftest.$ac_ext <<EOF -#line 827 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:833: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP=/lib/cpp -fi -rm -f conftest* -fi -rm -f conftest* -fi -rm -f conftest* - ac_cv_prog_CPP="$CPP" -fi - CPP="$ac_cv_prog_CPP" -else - ac_cv_prog_CPP="$CPP" -fi -echo "$ac_t""$CPP" 1>&6 - -ac_safe=`echo "stdio.h" | sed 'y%./+-%__p_%'` -echo $ac_n "checking for stdio.h""... $ac_c" 1>&6 -echo "configure:859: checking for stdio.h" >&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 864 "configure" -#include "confdefs.h" -#include <stdio.h> -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:869: \"$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* - eval "ac_cv_header_$ac_safe=yes" -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_header_$ac_safe=no" -fi -rm -f conftest* -fi -if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then - echo "$ac_t""yes" 1>&6 - : -else - echo "$ac_t""no" 1>&6 -{ echo "configure: error: Can't find stdio.h. -You must have a usable C system for the target already installed, at least -including headers and, preferably, the library, before you can configure -the G77 runtime system. If necessary, install gcc now with \`LANGUAGES=c', -then the target library, then build with \`LANGUAGES=f77'." 1>&2; exit 1; } -fi - - -echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6 -echo "configure:897: checking for ANSI C header files" >&5 -if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 902 "configure" -#include "confdefs.h" -#include <stdlib.h> -#include <stdarg.h> -#include <string.h> -#include <float.h> -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:910: \"$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* - ac_cv_header_stdc=yes -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -if test $ac_cv_header_stdc = yes; then - # SunOS 4.x string.h does not declare mem*, contrary to ANSI. -cat > conftest.$ac_ext <<EOF -#line 927 "configure" -#include "confdefs.h" -#include <string.h> -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "memchr" >/dev/null 2>&1; then - : -else - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. -cat > conftest.$ac_ext <<EOF -#line 945 "configure" -#include "confdefs.h" -#include <stdlib.h> -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "free" >/dev/null 2>&1; then - : -else - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. -if test "$cross_compiling" = yes; then - : -else - cat > conftest.$ac_ext <<EOF -#line 966 "configure" -#include "confdefs.h" -#include <ctype.h> -#define ISLOWER(c) ('a' <= (c) && (c) <= 'z') -#define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) -#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) -int main () { int i; for (i = 0; i < 256; i++) -if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2); -exit (0); } - -EOF -if { (eval echo configure:977: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null -then - : -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -fr conftest* - ac_cv_header_stdc=no -fi -rm -fr conftest* -fi - -fi -fi - -echo "$ac_t""$ac_cv_header_stdc" 1>&6 -if test $ac_cv_header_stdc = yes; then - cat >> confdefs.h <<\EOF -#define STDC_HEADERS 1 -EOF - -fi - -echo $ac_n "checking for posix""... $ac_c" 1>&6 -echo "configure:1001: checking for posix" >&5 -if eval "test \"`echo '$''{'g77_cv_header_posix'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1006 "configure" -#include "confdefs.h" -#include <sys/types.h> -#include <unistd.h> -#ifdef _POSIX_VERSION - yes -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "yes" >/dev/null 2>&1; then - rm -rf conftest* - g77_cv_header_posix=yes -else - rm -rf conftest* - g77_cv_header_posix=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$g77_cv_header_posix" 1>&6 - -# We can rely on the GNU library being posix-ish. I guess checking the -# header isn't actually like checking the functions, though... -echo $ac_n "checking for GNU library""... $ac_c" 1>&6 -echo "configure:1032: checking for GNU library" >&5 -if eval "test \"`echo '$''{'g77_cv_lib_gnu'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1037 "configure" -#include "confdefs.h" -#include <stdio.h> -#ifdef __GNU_LIBRARY__ - yes -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "yes" >/dev/null 2>&1; then - rm -rf conftest* - g77_cv_lib_gnu=yes -else - rm -rf conftest* - g77_cv_lib_gnu=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$g77_cv_lib_gnu" 1>&6 - -echo $ac_n "checking return type of signal handlers""... $ac_c" 1>&6 -echo "configure:1060: checking return type of signal handlers" >&5 -if eval "test \"`echo '$''{'ac_cv_type_signal'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1065 "configure" -#include "confdefs.h" -#include <sys/types.h> -#include <signal.h> -#ifdef signal -#undef signal -#endif -#ifdef __cplusplus -extern "C" void (*signal (int, void (*)(int)))(int); -#else -void (*signal ()) (); -#endif - -int main() { -int i; -; return 0; } -EOF -if { (eval echo configure:1082: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_type_signal=void -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_type_signal=int -fi -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_type_signal" 1>&6 -cat >> confdefs.h <<EOF -#define RETSIGTYPE $ac_cv_type_signal -EOF - - -# we'll get atexit by default -if test $ac_cv_header_stdc != yes; then -echo $ac_n "checking for atexit""... $ac_c" 1>&6 -echo "configure:1103: checking for atexit" >&5 -if eval "test \"`echo '$''{'ac_cv_func_atexit'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1108 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char atexit(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char atexit(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_atexit) || defined (__stub___atexit) -choke me -#else -atexit(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1131: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - rm -rf conftest* - eval "ac_cv_func_atexit=yes" -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_atexit=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'atexit`\" = yes"; then - echo "$ac_t""yes" 1>&6 - cat >> confdefs.h <<\EOF -#define onexit atexit -EOF - -else - echo "$ac_t""no" 1>&6 - cat >> confdefs.h <<\EOF -#define NO_ONEXIT 1 -EOF - - echo $ac_n "checking for onexit""... $ac_c" 1>&6 -echo "configure:1156: checking for onexit" >&5 -if eval "test \"`echo '$''{'ac_cv_func_onexit'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1161 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char onexit(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char onexit(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_onexit) || defined (__stub___onexit) -choke me -#else -onexit(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1184: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - rm -rf conftest* - eval "ac_cv_func_onexit=yes" -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_onexit=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'onexit`\" = yes"; then - echo "$ac_t""yes" 1>&6 - : -else - echo "$ac_t""no" 1>&6 -echo $ac_n "checking for on_exit""... $ac_c" 1>&6 -echo "configure:1202: checking for on_exit" >&5 -if eval "test \"`echo '$''{'ac_cv_func_on_exit'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1207 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char on_exit(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char on_exit(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_on_exit) || defined (__stub___on_exit) -choke me -#else -on_exit(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1230: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - rm -rf conftest* - eval "ac_cv_func_on_exit=yes" -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_on_exit=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'on_exit`\" = yes"; then - echo "$ac_t""yes" 1>&6 - cat >> confdefs.h <<\EOF -#define onexit on_exit -EOF - -else - echo "$ac_t""no" 1>&6 -fi - -fi - -fi - -else true -fi - -echo $ac_n "checking for drem in -lm""... $ac_c" 1>&6 -echo "configure:1260: checking for drem in -lm" >&5 -ac_lib_var=`echo m'_'drem | sed 'y%./+-%__p_%'` -if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - ac_save_LIBS="$LIBS" -LIBS="-lm $LIBS" -cat > conftest.$ac_ext <<EOF -#line 1268 "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 - builtin and then its argument prototype would still apply. */ -char drem(); - -int main() { -drem() -; return 0; } -EOF -if { (eval echo configure:1279: \"$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 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_lib_$ac_lib_var=no" -fi -rm -f conftest* -LIBS="$ac_save_LIBS" - -fi -if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then - echo "$ac_t""yes" 1>&6 - cat >> confdefs.h <<\EOF -#define IEEE_drem 1 -EOF - -else - echo "$ac_t""no" 1>&6 -fi - - -cat >> confdefs.h <<\EOF -#define Skip_f2c_Undefs 1 -EOF - -cat >> confdefs.h <<\EOF -#define IEEE_COMPLEX_DIVIDE 1 -EOF - - -trap '' 1 2 15 -cat > confcache <<\EOF -# This file is a shell script that caches the results of configure -# tests run on this system so they can be shared between configure -# scripts and configure runs. It is not useful on other systems. -# If it contains results you don't want to keep, you may remove or edit it. -# -# By default, configure uses ./config.cache as the cache file, -# creating it if it does not exist already. You can give configure -# the --cache-file=FILE option to use a different cache file; that is -# what configure does when it calls configure scripts in -# subdirectories, so they share the cache. -# Giving --cache-file=/dev/null disables caching, for debugging configure. -# config.status only pays attention to the cache file if you give it the -# --recheck option to rerun configure. -# -EOF -# The following way of writing the cache mishandles newlines in values, -# but we know of no workaround that is simple, portable, and efficient. -# So, don't put newlines in cache variables' values. -# Ultrix sh set writes to stderr and can't be redirected directly, -# and sets the high bit in the cache file unless we assign to the vars. -(set) 2>&1 | - case `(ac_space=' '; set | grep ac_space) 2>&1` in - *ac_space=\ *) - # `set' does not quote correctly, so add quotes (double-quote substitution - # turns \\\\ into \\, and sed turns \\ into \). - sed -n \ - -e "s/'/'\\\\''/g" \ - -e "s/^\\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\\)=\\(.*\\)/\\1=\${\\1='\\2'}/p" - ;; - *) - # `set' quotes correctly as required by POSIX, so do not add quotes. - sed -n -e 's/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=${\1=\2}/p' - ;; - esac >> confcache -if cmp -s $cache_file confcache; then - : -else - if test -w $cache_file; then - echo "updating cache $cache_file" - cat confcache > $cache_file - else - echo "not updating unwritable cache $cache_file" - fi -fi -rm -f confcache - -trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 - -test "x$prefix" = xNONE && prefix=$ac_default_prefix -# Let make expand exec_prefix. -test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' - -# Any assignment to VPATH causes Sun make to only execute -# the first set of double-colon rules, so remove it if not needed. -# If there is a colon in the path, we need to keep it. -if test "x$srcdir" = x.; then - ac_vpsub='/^[ ]*VPATH[ ]*=[^:]*$/d' -fi - -trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15 - -# Transform confdefs.h into DEFS. -# Protect against shell expansion while executing Makefile rules. -# Protect against Makefile macro expansion. -cat > conftest.defs <<\EOF -s%#define \([A-Za-z_][A-Za-z0-9_]*\) *\(.*\)%-D\1=\2%g -s%[ `~#$^&*(){}\\|;'"<>?]%\\&%g -s%\[%\\&%g -s%\]%\\&%g -s%\$%$$%g -EOF -DEFS=`sed -f conftest.defs confdefs.h | tr '\012' ' '` -rm -f conftest.defs - - -# Without the "./", some shells look in PATH for config.status. -: ${CONFIG_STATUS=./config.status} - -echo creating $CONFIG_STATUS -rm -f $CONFIG_STATUS -cat > $CONFIG_STATUS <<EOF -#! /bin/sh -# Generated automatically by configure. -# Run this file to recreate the current configuration. -# This directory was configured as follows, -# on host `(hostname || uname -n) 2>/dev/null | sed 1q`: -# -# $0 $ac_configure_args -# -# Compiler output produced by configure, useful for debugging -# configure, is in ./config.log if it exists. - -ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]" -for ac_option -do - case "\$ac_option" in - -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) - echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion" - exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;; - -version | --version | --versio | --versi | --vers | --ver | --ve | --v) - echo "$CONFIG_STATUS generated by autoconf version 2.13" - exit 0 ;; - -help | --help | --hel | --he | --h) - echo "\$ac_cs_usage"; exit 0 ;; - *) echo "\$ac_cs_usage"; exit 1 ;; - esac -done - -ac_given_srcdir=$srcdir - -trap 'rm -fr `echo "Makefile" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15 -EOF -cat >> $CONFIG_STATUS <<EOF - -# Protect against being on the right side of a sed subst in config.status. -sed 's/%@/@@/; s/@%/@@/; s/%g\$/@g/; /@g\$/s/[\\\\&%]/\\\\&/g; - s/@@/%@/; s/@@/@%/; s/@g\$/%g/' > conftest.subs <<\\CEOF -$ac_vpsub -$extrasub -s%@SHELL@%$SHELL%g -s%@CFLAGS@%$CFLAGS%g -s%@CPPFLAGS@%$CPPFLAGS%g -s%@CXXFLAGS@%$CXXFLAGS%g -s%@FFLAGS@%$FFLAGS%g -s%@DEFS@%$DEFS%g -s%@LDFLAGS@%$LDFLAGS%g -s%@LIBS@%$LIBS%g -s%@exec_prefix@%$exec_prefix%g -s%@prefix@%$prefix%g -s%@program_transform_name@%$program_transform_name%g -s%@bindir@%$bindir%g -s%@sbindir@%$sbindir%g -s%@libexecdir@%$libexecdir%g -s%@datadir@%$datadir%g -s%@sysconfdir@%$sysconfdir%g -s%@sharedstatedir@%$sharedstatedir%g -s%@localstatedir@%$localstatedir%g -s%@libdir@%$libdir%g -s%@includedir@%$includedir%g -s%@oldincludedir@%$oldincludedir%g -s%@infodir@%$infodir%g -s%@mandir@%$mandir%g -s%@CC@%$CC%g -s%@LIBTOOL@%$LIBTOOL%g -s%@AR@%$AR%g -s%@RANLIB@%$RANLIB%g -s%@SET_MAKE@%$SET_MAKE%g -s%@CPP@%$CPP%g - -CEOF -EOF - -cat >> $CONFIG_STATUS <<\EOF - -# Split the substitutions into bite-sized pieces for seds with -# small command number limits, like on Digital OSF/1 and HP-UX. -ac_max_sed_cmds=90 # Maximum number of lines to put in a sed script. -ac_file=1 # Number of current file. -ac_beg=1 # First line for current file. -ac_end=$ac_max_sed_cmds # Line after last line for current file. -ac_more_lines=: -ac_sed_cmds="" -while $ac_more_lines; do - if test $ac_beg -gt 1; then - sed "1,${ac_beg}d; ${ac_end}q" conftest.subs > conftest.s$ac_file - else - sed "${ac_end}q" conftest.subs > conftest.s$ac_file - fi - if test ! -s conftest.s$ac_file; then - ac_more_lines=false - rm -f conftest.s$ac_file - else - if test -z "$ac_sed_cmds"; then - ac_sed_cmds="sed -f conftest.s$ac_file" - else - ac_sed_cmds="$ac_sed_cmds | sed -f conftest.s$ac_file" - fi - ac_file=`expr $ac_file + 1` - ac_beg=$ac_end - ac_end=`expr $ac_end + $ac_max_sed_cmds` - fi -done -if test -z "$ac_sed_cmds"; then - ac_sed_cmds=cat -fi -EOF - -cat >> $CONFIG_STATUS <<EOF - -CONFIG_FILES=\${CONFIG_FILES-"Makefile"} -EOF -cat >> $CONFIG_STATUS <<\EOF -for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then - # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". - case "$ac_file" in - *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` - ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; - *) ac_file_in="${ac_file}.in" ;; - esac - - # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories. - - # Remove last slash and all that follows it. Not all systems have dirname. - ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` - if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then - # The file is in a subdirectory. - test ! -d "$ac_dir" && mkdir "$ac_dir" - ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`" - # A "../" for each directory in $ac_dir_suffix. - ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'` - else - ac_dir_suffix= ac_dots= - fi - - case "$ac_given_srcdir" in - .) srcdir=. - if test -z "$ac_dots"; then top_srcdir=. - else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;; - /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;; - *) # Relative path. - srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix" - top_srcdir="$ac_dots$ac_given_srcdir" ;; - esac - - - echo creating "$ac_file" - rm -f "$ac_file" - configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure." - case "$ac_file" in - *Makefile*) ac_comsub="1i\\ -# $configure_input" ;; - *) ac_comsub= ;; - esac - - ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` - sed -e "$ac_comsub -s%@configure_input@%$configure_input%g -s%@srcdir@%$srcdir%g -s%@top_srcdir@%$top_srcdir%g -" $ac_file_inputs | (eval "$ac_sed_cmds") > $ac_file -fi; done -rm -f conftest.s* - -EOF -cat >> $CONFIG_STATUS <<EOF - -EOF -cat >> $CONFIG_STATUS <<\EOF - -exit 0 -EOF -chmod +x $CONFIG_STATUS -rm -fr confdefs* $ac_clean_files -test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1 - - diff --git a/gnu/lib/libf2c/libF77/configure.in b/gnu/lib/libf2c/libF77/configure.in deleted file mode 100644 index 838ce965a12..00000000000 --- a/gnu/lib/libf2c/libF77/configure.in +++ /dev/null @@ -1,111 +0,0 @@ -# Process this file with autoconf to produce a configure script. -# Copyright (C) 1995, 1997, 1998, 2001 Free Software Foundation, Inc. -# Contributed by Dave Love (d.love@dl.ac.uk). -# -#This file is part of GNU Fortran. -# -#GNU Fortran is free software; you can redistribute it and/or modify -#it under the terms of the GNU General Public License as published by -#the Free Software Foundation; either version 2, or (at your option) -#any later version. -# -#GNU Fortran is distributed in the hope that it will be useful, -#but WITHOUT ANY WARRANTY; without even the implied warranty of -#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#GNU General Public License for more details. -# -#You should have received a copy of the GNU General Public License -#along with GNU Fortran; see the file COPYING. If not, write to -#the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -#02111-1307, USA. - -AC_PREREQ(2.12.1) -AC_INIT(getarg_.c) - -dnl Checks for programs. - -dnl FIXME AC_PROG_CC wants CC to be able to link things, but it may -dnl not be able to. -define([AC_PROG_CC_WORKS],[]) - -# For g77 we'll set CC to point at the built gcc, but this will get it into -# the makefiles -AC_PROG_CC - -LIBTOOL='$(SHELL) ../libtool' -AC_SUBST(LIBTOOL) - -test "$AR" || AR=ar -AC_SUBST(AR) -if test "$RANLIB"; then : - AC_SUBST(RANLIB) -else - AC_PROG_RANLIB -fi -AC_PROG_MAKE_SET - -dnl Checks for libraries. - -dnl Checks for header files. -# Sanity check for the cross-compilation case: -AC_CHECK_HEADER(stdio.h,:, - [AC_MSG_ERROR([Can't find stdio.h. -You must have a usable C system for the target already installed, at least -including headers and, preferably, the library, before you can configure -the G77 runtime system. If necessary, install gcc now with \`LANGUAGES=c', -then the target library, then build with \`LANGUAGES=f77'.])]) - -AC_HEADER_STDC -AC_MSG_CHECKING(for posix) -AC_CACHE_VAL(g77_cv_header_posix, - AC_EGREP_CPP(yes, - [#include <sys/types.h> -#include <unistd.h> -#ifdef _POSIX_VERSION - yes -#endif -], - g77_cv_header_posix=yes, - g77_cv_header_posix=no)) -AC_MSG_RESULT($g77_cv_header_posix) - -# We can rely on the GNU library being posix-ish. I guess checking the -# header isn't actually like checking the functions, though... -AC_MSG_CHECKING(for GNU library) -AC_CACHE_VAL(g77_cv_lib_gnu, - AC_EGREP_CPP(yes, - [#include <stdio.h> -#ifdef __GNU_LIBRARY__ - yes -#endif -], - g77_cv_lib_gnu=yes, g77_cv_lib_gnu=no)) -AC_MSG_RESULT($g77_cv_lib_gnu) - -dnl Checks for library functions. -AC_TYPE_SIGNAL -# we'll get atexit by default -if test $ac_cv_header_stdc != yes; then -AC_CHECK_FUNC(atexit, - AC_DEFINE(onexit,atexit),dnl just in case - [AC_DEFINE(NO_ONEXIT) - AC_CHECK_FUNC(onexit,, - [AC_CHECK_FUNC(on_exit, - AC_DEFINE(onexit,on_exit),)])]) -else true -fi - -dnl perhaps should check also for remainder -dnl Unfortunately, the message implies we're just checking for -lm... -AC_CHECK_LIB(m,drem,AC_DEFINE(IEEE_drem)) - -AC_DEFINE(Skip_f2c_Undefs) -AC_DEFINE(IEEE_COMPLEX_DIVIDE) - -AC_OUTPUT(Makefile) - -dnl Local Variables: -dnl comment-start: "dnl " -dnl comment-end: "" -dnl comment-start-skip: "\\bdnl\\b\\s *" -dnl End: diff --git a/gnu/lib/libf2c/libF77/d_abs.c b/gnu/lib/libf2c/libF77/d_abs.c deleted file mode 100644 index a43a5c7f0a8..00000000000 --- a/gnu/lib/libf2c/libF77/d_abs.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -double -d_abs (doublereal * x) -{ - if (*x >= 0) - return (*x); - return (-*x); -} diff --git a/gnu/lib/libf2c/libF77/d_acos.c b/gnu/lib/libf2c/libF77/d_acos.c deleted file mode 100644 index 41c4f172c65..00000000000 --- a/gnu/lib/libf2c/libF77/d_acos.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -d_acos (doublereal * x) -{ - return (acos (*x)); -} diff --git a/gnu/lib/libf2c/libF77/d_asin.c b/gnu/lib/libf2c/libF77/d_asin.c deleted file mode 100644 index 65603891501..00000000000 --- a/gnu/lib/libf2c/libF77/d_asin.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -d_asin (doublereal * x) -{ - return (asin (*x)); -} diff --git a/gnu/lib/libf2c/libF77/d_atan.c b/gnu/lib/libf2c/libF77/d_atan.c deleted file mode 100644 index e25fa2e4177..00000000000 --- a/gnu/lib/libf2c/libF77/d_atan.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -d_atan (doublereal * x) -{ - return (atan (*x)); -} diff --git a/gnu/lib/libf2c/libF77/d_atn2.c b/gnu/lib/libf2c/libF77/d_atn2.c deleted file mode 100644 index e0b217863a5..00000000000 --- a/gnu/lib/libf2c/libF77/d_atn2.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -d_atn2 (doublereal * x, doublereal * y) -{ - return (atan2 (*x, *y)); -} diff --git a/gnu/lib/libf2c/libF77/d_cnjg.c b/gnu/lib/libf2c/libF77/d_cnjg.c deleted file mode 100644 index bc46ae69598..00000000000 --- a/gnu/lib/libf2c/libF77/d_cnjg.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -void -d_cnjg (doublecomplex * r, doublecomplex * z) -{ - doublereal zi = z->i; - r->r = z->r; - r->i = -zi; -} diff --git a/gnu/lib/libf2c/libF77/d_cos.c b/gnu/lib/libf2c/libF77/d_cos.c deleted file mode 100644 index 010db6b5421..00000000000 --- a/gnu/lib/libf2c/libF77/d_cos.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -d_cos (doublereal * x) -{ - return (cos (*x)); -} diff --git a/gnu/lib/libf2c/libF77/d_cosh.c b/gnu/lib/libf2c/libF77/d_cosh.c deleted file mode 100644 index 00938bda13e..00000000000 --- a/gnu/lib/libf2c/libF77/d_cosh.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -d_cosh (doublereal * x) -{ - return (cosh (*x)); -} diff --git a/gnu/lib/libf2c/libF77/d_dim.c b/gnu/lib/libf2c/libF77/d_dim.c deleted file mode 100644 index a4274ca6859..00000000000 --- a/gnu/lib/libf2c/libF77/d_dim.c +++ /dev/null @@ -1,7 +0,0 @@ -#include "f2c.h" - -double -d_dim (doublereal * a, doublereal * b) -{ - return (*a > *b ? *a - *b : 0); -} diff --git a/gnu/lib/libf2c/libF77/d_exp.c b/gnu/lib/libf2c/libF77/d_exp.c deleted file mode 100644 index 7b4f3e529c4..00000000000 --- a/gnu/lib/libf2c/libF77/d_exp.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -d_exp (doublereal * x) -{ - return (exp (*x)); -} diff --git a/gnu/lib/libf2c/libF77/d_imag.c b/gnu/lib/libf2c/libF77/d_imag.c deleted file mode 100644 index cc937644b75..00000000000 --- a/gnu/lib/libf2c/libF77/d_imag.c +++ /dev/null @@ -1,7 +0,0 @@ -#include "f2c.h" - -double -d_imag (doublecomplex * z) -{ - return (z->i); -} diff --git a/gnu/lib/libf2c/libF77/d_int.c b/gnu/lib/libf2c/libF77/d_int.c deleted file mode 100644 index f7ab8b0cb6a..00000000000 --- a/gnu/lib/libf2c/libF77/d_int.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -d_int (doublereal * x) -{ - return ((*x > 0) ? floor (*x) : -floor (-*x)); -} diff --git a/gnu/lib/libf2c/libF77/d_lg10.c b/gnu/lib/libf2c/libF77/d_lg10.c deleted file mode 100644 index d0f86e554d0..00000000000 --- a/gnu/lib/libf2c/libF77/d_lg10.c +++ /dev/null @@ -1,11 +0,0 @@ -#include "f2c.h" - -#define log10e 0.43429448190325182765 - -#undef abs -#include <math.h> -double -d_lg10 (doublereal * x) -{ - return (log10e * log (*x)); -} diff --git a/gnu/lib/libf2c/libF77/d_log.c b/gnu/lib/libf2c/libF77/d_log.c deleted file mode 100644 index 95dc767fb2a..00000000000 --- a/gnu/lib/libf2c/libF77/d_log.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -d_log (doublereal * x) -{ - return (log (*x)); -} diff --git a/gnu/lib/libf2c/libF77/d_mod.c b/gnu/lib/libf2c/libF77/d_mod.c deleted file mode 100644 index 15cedefadd1..00000000000 --- a/gnu/lib/libf2c/libF77/d_mod.c +++ /dev/null @@ -1,33 +0,0 @@ -#include "f2c.h" - -#ifdef IEEE_drem -double drem (double, double); -#else -#undef abs -#include <math.h> -#endif -double -d_mod (doublereal * x, doublereal * y) -{ -#ifdef IEEE_drem - double xa, ya, z; - if ((ya = *y) < 0.) - ya = -ya; - z = drem (xa = *x, ya); - if (xa > 0) - { - if (z < 0) - z += ya; - } - else if (z > 0) - z -= ya; - return z; -#else - double quotient; - if ((quotient = *x / *y) >= 0) - quotient = floor (quotient); - else - quotient = -floor (-quotient); - return (*x - (*y) * quotient); -#endif -} diff --git a/gnu/lib/libf2c/libF77/d_nint.c b/gnu/lib/libf2c/libF77/d_nint.c deleted file mode 100644 index 8be42758644..00000000000 --- a/gnu/lib/libf2c/libF77/d_nint.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -d_nint (doublereal * x) -{ - return ((*x) >= 0 ? floor (*x + .5) : -floor (.5 - *x)); -} diff --git a/gnu/lib/libf2c/libF77/d_prod.c b/gnu/lib/libf2c/libF77/d_prod.c deleted file mode 100644 index 11fe2c7f68e..00000000000 --- a/gnu/lib/libf2c/libF77/d_prod.c +++ /dev/null @@ -1,7 +0,0 @@ -#include "f2c.h" - -double -d_prod (real * x, real * y) -{ - return ((*x) * (*y)); -} diff --git a/gnu/lib/libf2c/libF77/d_sign.c b/gnu/lib/libf2c/libF77/d_sign.c deleted file mode 100644 index da8d24ba7a1..00000000000 --- a/gnu/lib/libf2c/libF77/d_sign.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -double -d_sign (doublereal * a, doublereal * b) -{ - double x; - x = (*a >= 0 ? *a : -*a); - return (*b >= 0 ? x : -x); -} diff --git a/gnu/lib/libf2c/libF77/d_sin.c b/gnu/lib/libf2c/libF77/d_sin.c deleted file mode 100644 index 24b37a439e5..00000000000 --- a/gnu/lib/libf2c/libF77/d_sin.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -d_sin (doublereal * x) -{ - return (sin (*x)); -} diff --git a/gnu/lib/libf2c/libF77/d_sinh.c b/gnu/lib/libf2c/libF77/d_sinh.c deleted file mode 100644 index dc9dc439073..00000000000 --- a/gnu/lib/libf2c/libF77/d_sinh.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -d_sinh (doublereal * x) -{ - return (sinh (*x)); -} diff --git a/gnu/lib/libf2c/libF77/d_sqrt.c b/gnu/lib/libf2c/libF77/d_sqrt.c deleted file mode 100644 index 0a458823318..00000000000 --- a/gnu/lib/libf2c/libF77/d_sqrt.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -d_sqrt (doublereal * x) -{ - return (sqrt (*x)); -} diff --git a/gnu/lib/libf2c/libF77/d_tan.c b/gnu/lib/libf2c/libF77/d_tan.c deleted file mode 100644 index 370c1b85fef..00000000000 --- a/gnu/lib/libf2c/libF77/d_tan.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -d_tan (doublereal * x) -{ - return (tan (*x)); -} diff --git a/gnu/lib/libf2c/libF77/d_tanh.c b/gnu/lib/libf2c/libF77/d_tanh.c deleted file mode 100644 index df81ea0df22..00000000000 --- a/gnu/lib/libf2c/libF77/d_tanh.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -d_tanh (doublereal * x) -{ - return (tanh (*x)); -} diff --git a/gnu/lib/libf2c/libF77/derf_.c b/gnu/lib/libf2c/libF77/derf_.c deleted file mode 100644 index b78fde0e9b4..00000000000 --- a/gnu/lib/libf2c/libF77/derf_.c +++ /dev/null @@ -1,8 +0,0 @@ -#include "f2c.h" - -extern double erf (double); -double -G77_derf_0 (doublereal * x) -{ - return (erf (*x)); -} diff --git a/gnu/lib/libf2c/libF77/derfc_.c b/gnu/lib/libf2c/libF77/derfc_.c deleted file mode 100644 index 78e8e889c38..00000000000 --- a/gnu/lib/libf2c/libF77/derfc_.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -extern double erfc (double); - -double -G77_derfc_0 (doublereal * x) -{ - return (erfc (*x)); -} diff --git a/gnu/lib/libf2c/libF77/dtime_.c b/gnu/lib/libf2c/libF77/dtime_.c deleted file mode 100644 index e2ea1c6b5d6..00000000000 --- a/gnu/lib/libf2c/libF77/dtime_.c +++ /dev/null @@ -1,49 +0,0 @@ -#include "time.h" - -#ifdef MSDOS -#undef USE_CLOCK -#define USE_CLOCK -#endif - -#ifndef USE_CLOCK -#define _INCLUDE_POSIX_SOURCE /* for HP-UX */ -#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */ -#include "sys/types.h" -#include "sys/times.h" -#endif - -#undef Hz -#ifdef CLK_TCK -#define Hz CLK_TCK -#else -#ifdef HZ -#define Hz HZ -#else -#define Hz 60 -#endif -#endif - -double -dtime_ (float *tarray) -{ -#ifdef USE_CLOCK -#ifndef CLOCKS_PER_SECOND -#define CLOCKS_PER_SECOND Hz -#endif - static double t0; - double t = clock (); - tarray[1] = 0; - tarray[0] = (t - t0) / CLOCKS_PER_SECOND; - t0 = t; - return tarray[0]; -#else - struct tms t; - static struct tms t0; - - times (&t); - tarray[0] = (double) (t.tms_utime - t0.tms_utime) / Hz; - tarray[1] = (double) (t.tms_stime - t0.tms_stime) / Hz; - t0 = t; - return tarray[0] + tarray[1]; -#endif -} diff --git a/gnu/lib/libf2c/libF77/ef1asc_.c b/gnu/lib/libf2c/libF77/ef1asc_.c deleted file mode 100644 index d9bea344e4f..00000000000 --- a/gnu/lib/libf2c/libF77/ef1asc_.c +++ /dev/null @@ -1,15 +0,0 @@ -/* EFL support routine to copy string b to string a */ - -#include "f2c.h" - - -#define M ( (long) (sizeof(long) - 1) ) -#define EVEN(x) ( ( (x)+ M) & (~M) ) - -extern void s_copy (char *, char *, ftnlen, ftnlen); -int -G77_ef1asc_0 (ftnint * a, ftnlen * la, ftnint * b, ftnlen * lb) -{ - s_copy ((char *) a, (char *) b, EVEN (*la), *lb); - return 0; /* ignored return value */ -} diff --git a/gnu/lib/libf2c/libF77/ef1cmc_.c b/gnu/lib/libf2c/libF77/ef1cmc_.c deleted file mode 100644 index 2e102fb6b5d..00000000000 --- a/gnu/lib/libf2c/libF77/ef1cmc_.c +++ /dev/null @@ -1,10 +0,0 @@ -/* EFL support routine to compare two character strings */ - -#include "f2c.h" - -extern integer s_cmp (char *, char *, ftnlen, ftnlen); -integer -G77_ef1cmc_0 (ftnint * a, ftnlen * la, ftnint * b, ftnlen * lb) -{ - return (s_cmp ((char *) a, (char *) b, *la, *lb)); -} diff --git a/gnu/lib/libf2c/libF77/erf_.c b/gnu/lib/libf2c/libF77/erf_.c deleted file mode 100644 index fadbfaf038a..00000000000 --- a/gnu/lib/libf2c/libF77/erf_.c +++ /dev/null @@ -1,8 +0,0 @@ -#include "f2c.h" - -extern double erf (double); -double -G77_erf_0 (real * x) -{ - return (erf (*x)); -} diff --git a/gnu/lib/libf2c/libF77/erfc_.c b/gnu/lib/libf2c/libF77/erfc_.c deleted file mode 100644 index 7f3ff8a5dbd..00000000000 --- a/gnu/lib/libf2c/libF77/erfc_.c +++ /dev/null @@ -1,8 +0,0 @@ -#include "f2c.h" - -extern double erfc (double); -double -G77_erfc_0 (real * x) -{ - return (erfc (*x)); -} diff --git a/gnu/lib/libf2c/libF77/etime_.c b/gnu/lib/libf2c/libF77/etime_.c deleted file mode 100644 index cc64612c8d9..00000000000 --- a/gnu/lib/libf2c/libF77/etime_.c +++ /dev/null @@ -1,43 +0,0 @@ -#include "time.h" - -#ifdef MSDOS -#undef USE_CLOCK -#define USE_CLOCK -#endif - -#ifndef USE_CLOCK -#define _INCLUDE_POSIX_SOURCE /* for HP-UX */ -#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */ -#include "sys/types.h" -#include "sys/times.h" -#endif - -#undef Hz -#ifdef CLK_TCK -#define Hz CLK_TCK -#else -#ifdef HZ -#define Hz HZ -#else -#define Hz 60 -#endif -#endif - -double -etime_ (float *tarray) -{ -#ifdef USE_CLOCK -#ifndef CLOCKS_PER_SECOND -#define CLOCKS_PER_SECOND Hz -#endif - double t = clock (); - tarray[1] = 0; - return tarray[0] = t / CLOCKS_PER_SECOND; -#else - struct tms t; - - times (&t); - return (tarray[0] = (double) t.tms_utime / Hz) - + (tarray[1] = (double) t.tms_stime / Hz); -#endif -} diff --git a/gnu/lib/libf2c/libF77/exit_.c b/gnu/lib/libf2c/libF77/exit_.c deleted file mode 100644 index adf3d859274..00000000000 --- a/gnu/lib/libf2c/libF77/exit_.c +++ /dev/null @@ -1,25 +0,0 @@ -/* This gives the effect of - - subroutine exit(rc) - integer*4 rc - stop - end - - * with the added side effect of supplying rc as the program's exit code. - */ - -#include "f2c.h" -#undef abs -#undef min -#undef max -#include <stdlib.h> -extern void f_exit (void); - -void -G77_exit_0 (integer * rc) -{ -#ifdef NO_ONEXIT - f_exit (); -#endif - exit (*rc); -} diff --git a/gnu/lib/libf2c/libF77/f2ch.add b/gnu/lib/libf2c/libF77/f2ch.add deleted file mode 100644 index 04b13e8de5d..00000000000 --- a/gnu/lib/libf2c/libF77/f2ch.add +++ /dev/null @@ -1,163 +0,0 @@ -/* If you are using a C++ compiler, append the following to f2c.h - for compiling libF77 and libI77. */ - -#ifdef __cplusplus -extern "C" -{ - extern int abort_ (void); - extern double c_abs (complex *); - extern void c_cos (complex *, complex *); - extern void c_div (complex *, complex *, complex *); - extern void c_exp (complex *, complex *); - extern void c_log (complex *, complex *); - extern void c_sin (complex *, complex *); - extern void c_sqrt (complex *, complex *); - extern double d_abs (double *); - extern double d_acos (double *); - extern double d_asin (double *); - extern double d_atan (double *); - extern double d_atn2 (double *, double *); - extern void d_cnjg (doublecomplex *, doublecomplex *); - extern double d_cos (double *); - extern double d_cosh (double *); - extern double d_dim (double *, double *); - extern double d_exp (double *); - extern double d_imag (doublecomplex *); - extern double d_int (double *); - extern double d_lg10 (double *); - extern double d_log (double *); - extern double d_mod (double *, double *); - extern double d_nint (double *); - extern double d_prod (float *, float *); - extern double d_sign (double *, double *); - extern double d_sin (double *); - extern double d_sinh (double *); - extern double d_sqrt (double *); - extern double d_tan (double *); - extern double d_tanh (double *); - extern double derf_ (double *); - extern double derfc_ (double *); - extern integer do_fio (ftnint *, char *, ftnlen); - extern integer do_lio (ftnint *, ftnint *, char *, ftnlen); - extern integer do_uio (ftnint *, char *, ftnlen); - extern integer e_rdfe (void); - extern integer e_rdue (void); - extern integer e_rsfe (void); - extern integer e_rsfi (void); - extern integer e_rsle (void); - extern integer e_rsli (void); - extern integer e_rsue (void); - extern integer e_wdfe (void); - extern integer e_wdue (void); - extern integer e_wsfe (void); - extern integer e_wsfi (void); - extern integer e_wsle (void); - extern integer e_wsli (void); - extern integer e_wsue (void); - extern int ef1asc_ (ftnint *, ftnlen *, ftnint *, ftnlen *); - extern integer ef1cmc_ (ftnint *, ftnlen *, ftnint *, ftnlen *); - extern double erf (double); - extern double erf_ (float *); - extern double erfc (double); - extern double erfc_ (float *); - extern integer f_back (alist *); - extern integer f_clos (cllist *); - extern integer f_end (alist *); - extern void f_exit (void); - extern integer f_inqu (inlist *); - extern integer f_open (olist *); - extern integer f_rew (alist *); - extern int flush_ (void); - extern void getarg_ (integer *, char *, ftnlen); - extern void getenv_ (char *, char *, ftnlen, ftnlen); - extern short h_abs (short *); - extern short h_dim (short *, short *); - extern short h_dnnt (double *); - extern short h_indx (char *, char *, ftnlen, ftnlen); - extern short h_len (char *, ftnlen); - extern short h_mod (short *, short *); - extern short h_nint (float *); - extern short h_sign (short *, short *); - extern short hl_ge (char *, char *, ftnlen, ftnlen); - extern short hl_gt (char *, char *, ftnlen, ftnlen); - extern short hl_le (char *, char *, ftnlen, ftnlen); - extern short hl_lt (char *, char *, ftnlen, ftnlen); - extern integer i_abs (integer *); - extern integer i_dim (integer *, integer *); - extern integer i_dnnt (double *); - extern integer i_indx (char *, char *, ftnlen, ftnlen); - extern integer i_len (char *, ftnlen); - extern integer i_mod (integer *, integer *); - extern integer i_nint (float *); - extern integer i_sign (integer *, integer *); - extern integer iargc_ (void); - extern ftnlen l_ge (char *, char *, ftnlen, ftnlen); - extern ftnlen l_gt (char *, char *, ftnlen, ftnlen); - extern ftnlen l_le (char *, char *, ftnlen, ftnlen); - extern ftnlen l_lt (char *, char *, ftnlen, ftnlen); - extern void pow_ci (complex *, complex *, integer *); - extern double pow_dd (double *, double *); - extern double pow_di (double *, integer *); - extern short pow_hh (short *, shortint *); - extern integer pow_ii (integer *, integer *); - extern double pow_ri (float *, integer *); - extern void pow_zi (doublecomplex *, doublecomplex *, integer *); - extern void pow_zz (doublecomplex *, doublecomplex *, doublecomplex *); - extern double r_abs (float *); - extern double r_acos (float *); - extern double r_asin (float *); - extern double r_atan (float *); - extern double r_atn2 (float *, float *); - extern void r_cnjg (complex *, complex *); - extern double r_cos (float *); - extern double r_cosh (float *); - extern double r_dim (float *, float *); - extern double r_exp (float *); - extern double r_imag (complex *); - extern double r_int (float *); - extern double r_lg10 (float *); - extern double r_log (float *); - extern double r_mod (float *, float *); - extern double r_nint (float *); - extern double r_sign (float *, float *); - extern double r_sin (float *); - extern double r_sinh (float *); - extern double r_sqrt (float *); - extern double r_tan (float *); - extern double r_tanh (float *); - extern void s_cat (char *, char **, integer *, integer *, ftnlen); - extern integer s_cmp (char *, char *, ftnlen, ftnlen); - extern void s_copy (char *, char *, ftnlen, ftnlen); - extern int s_paus (char *, ftnlen); - extern integer s_rdfe (cilist *); - extern integer s_rdue (cilist *); - extern integer s_rnge (char *, integer, char *, integer); - extern integer s_rsfe (cilist *); - extern integer s_rsfi (icilist *); - extern integer s_rsle (cilist *); - extern integer s_rsli (icilist *); - extern integer s_rsne (cilist *); - extern integer s_rsni (icilist *); - extern integer s_rsue (cilist *); - extern int s_stop (char *, ftnlen); - extern integer s_wdfe (cilist *); - extern integer s_wdue (cilist *); - extern integer s_wsfe (cilist *); - extern integer s_wsfi (icilist *); - extern integer s_wsle (cilist *); - extern integer s_wsli (icilist *); - extern integer s_wsne (cilist *); - extern integer s_wsni (icilist *); - extern integer s_wsue (cilist *); - extern void sig_die (char *, int); - extern integer signal_ (integer *, void (*)(int)); - extern integer system_ (char *, ftnlen); - extern double z_abs (doublecomplex *); - extern void z_cos (doublecomplex *, doublecomplex *); - extern void z_div (doublecomplex *, doublecomplex *, doublecomplex *); - extern void z_exp (doublecomplex *, doublecomplex *); - extern void z_log (doublecomplex *, doublecomplex *); - extern void z_sin (doublecomplex *, doublecomplex *); - extern void z_sqrt (doublecomplex *, doublecomplex *); -} -#endif diff --git a/gnu/lib/libf2c/libF77/getarg_.c b/gnu/lib/libf2c/libF77/getarg_.c deleted file mode 100644 index b35043b4a48..00000000000 --- a/gnu/lib/libf2c/libF77/getarg_.c +++ /dev/null @@ -1,25 +0,0 @@ -#include "f2c.h" - -/* - * subroutine getarg(k, c) - * returns the kth unix command argument in fortran character - * variable argument c -*/ - -void -G77_getarg_0 (ftnint * n, register char *s, ftnlen ls) -{ - extern int f__xargc; - extern char **f__xargv; - register char *t; - register int i; - - if (*n >= 0 && *n < f__xargc) - t = f__xargv[*n]; - else - t = ""; - for (i = 0; i < ls && *t != '\0'; ++i) - *s++ = *t++; - for (; i < ls; ++i) - *s++ = ' '; -} diff --git a/gnu/lib/libf2c/libF77/getenv_.c b/gnu/lib/libf2c/libF77/getenv_.c deleted file mode 100644 index 4067b8ce214..00000000000 --- a/gnu/lib/libf2c/libF77/getenv_.c +++ /dev/null @@ -1,49 +0,0 @@ -#include "f2c.h" -#undef abs -#include <stdlib.h> -#include <string.h> -extern char *F77_aloc (ftnlen, char *); - -/* - * getenv - f77 subroutine to return environment variables - * - * called by: - * call getenv (ENV_NAME, char_var) - * where: - * ENV_NAME is the name of an environment variable - * char_var is a character variable which will receive - * the current value of ENV_NAME, or all blanks - * if ENV_NAME is not defined - */ - -void -G77_getenv_0 (char *fname, char *value, ftnlen flen, ftnlen vlen) -{ - char buf[256], *ep, *fp; - integer i; - - if (flen <= 0) - goto add_blanks; - for (i = 0; i < (integer) sizeof (buf); i++) - { - if (i == flen || (buf[i] = fname[i]) == ' ') - { - buf[i] = 0; - ep = getenv (buf); - goto have_ep; - } - } - while (i < flen && fname[i] != ' ') - i++; - strncpy (fp = F77_aloc (i + 1, "getenv_"), fname, (int) i); - fp[i] = 0; - ep = getenv (fp); - free (fp); -have_ep: - if (ep) - while (*ep && vlen-- > 0) - *value++ = *ep++; -add_blanks: - while (vlen-- > 0) - *value++ = ' '; -} diff --git a/gnu/lib/libf2c/libF77/h_abs.c b/gnu/lib/libf2c/libF77/h_abs.c deleted file mode 100644 index 9db19ca34e9..00000000000 --- a/gnu/lib/libf2c/libF77/h_abs.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -shortint -h_abs (shortint * x) -{ - if (*x >= 0) - return (*x); - return (-*x); -} diff --git a/gnu/lib/libf2c/libF77/h_dim.c b/gnu/lib/libf2c/libF77/h_dim.c deleted file mode 100644 index 1519478747d..00000000000 --- a/gnu/lib/libf2c/libF77/h_dim.c +++ /dev/null @@ -1,7 +0,0 @@ -#include "f2c.h" - -shortint -h_dim (shortint * a, shortint * b) -{ - return (*a > *b ? *a - *b : 0); -} diff --git a/gnu/lib/libf2c/libF77/h_dnnt.c b/gnu/lib/libf2c/libF77/h_dnnt.c deleted file mode 100644 index 46c83bbd28e..00000000000 --- a/gnu/lib/libf2c/libF77/h_dnnt.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -shortint -h_dnnt (doublereal * x) -{ - return (shortint) (*x >= 0. ? floor (*x + .5) : -floor (.5 - *x)); -} diff --git a/gnu/lib/libf2c/libF77/h_indx.c b/gnu/lib/libf2c/libF77/h_indx.c deleted file mode 100644 index 2353b2b143a..00000000000 --- a/gnu/lib/libf2c/libF77/h_indx.c +++ /dev/null @@ -1,23 +0,0 @@ -#include "f2c.h" - -shortint -h_indx (char *a, char *b, ftnlen la, ftnlen lb) -{ - ftnlen i, n; - char *s, *t, *bend; - - n = la - lb + 1; - bend = b + lb; - - for (i = 0; i < n; ++i) - { - s = a + i; - t = b; - while (t < bend) - if (*s++ != *t++) - goto no; - return ((shortint) i + 1); - no:; - } - return (0); -} diff --git a/gnu/lib/libf2c/libF77/h_len.c b/gnu/lib/libf2c/libF77/h_len.c deleted file mode 100644 index 506016e67d9..00000000000 --- a/gnu/lib/libf2c/libF77/h_len.c +++ /dev/null @@ -1,7 +0,0 @@ -#include "f2c.h" - -shortint -h_len (char *s __attribute__ ((__unused__)), ftnlen n) -{ - return (n); -} diff --git a/gnu/lib/libf2c/libF77/h_mod.c b/gnu/lib/libf2c/libF77/h_mod.c deleted file mode 100644 index c04e0df823b..00000000000 --- a/gnu/lib/libf2c/libF77/h_mod.c +++ /dev/null @@ -1,7 +0,0 @@ -#include "f2c.h" - -shortint -h_mod (short *a, short *b) -{ - return (*a % *b); -} diff --git a/gnu/lib/libf2c/libF77/h_nint.c b/gnu/lib/libf2c/libF77/h_nint.c deleted file mode 100644 index a8c366a41be..00000000000 --- a/gnu/lib/libf2c/libF77/h_nint.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -shortint -h_nint (real * x) -{ - return (shortint) (*x >= 0 ? floor (*x + .5) : -floor (.5 - *x)); -} diff --git a/gnu/lib/libf2c/libF77/h_sign.c b/gnu/lib/libf2c/libF77/h_sign.c deleted file mode 100644 index 70402325be2..00000000000 --- a/gnu/lib/libf2c/libF77/h_sign.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -shortint -h_sign (shortint * a, shortint * b) -{ - shortint x; - x = (*a >= 0 ? *a : -*a); - return (*b >= 0 ? x : -x); -} diff --git a/gnu/lib/libf2c/libF77/hl_ge.c b/gnu/lib/libf2c/libF77/hl_ge.c deleted file mode 100644 index 988686d8d1d..00000000000 --- a/gnu/lib/libf2c/libF77/hl_ge.c +++ /dev/null @@ -1,8 +0,0 @@ -#include "f2c.h" - -extern integer s_cmp (char *, char *, ftnlen, ftnlen); -shortlogical -hl_ge (char *a, char *b, ftnlen la, ftnlen lb) -{ - return (s_cmp (a, b, la, lb) >= 0); -} diff --git a/gnu/lib/libf2c/libF77/hl_gt.c b/gnu/lib/libf2c/libF77/hl_gt.c deleted file mode 100644 index 0024ca7a0d2..00000000000 --- a/gnu/lib/libf2c/libF77/hl_gt.c +++ /dev/null @@ -1,8 +0,0 @@ -#include "f2c.h" - -extern integer s_cmp (char *, char *, ftnlen, ftnlen); -shortlogical -hl_gt (char *a, char *b, ftnlen la, ftnlen lb) -{ - return (s_cmp (a, b, la, lb) > 0); -} diff --git a/gnu/lib/libf2c/libF77/hl_le.c b/gnu/lib/libf2c/libF77/hl_le.c deleted file mode 100644 index 76aa3e12da7..00000000000 --- a/gnu/lib/libf2c/libF77/hl_le.c +++ /dev/null @@ -1,8 +0,0 @@ -#include "f2c.h" - -extern integer s_cmp (char *, char *, ftnlen, ftnlen); -shortlogical -hl_le (char *a, char *b, ftnlen la, ftnlen lb) -{ - return (s_cmp (a, b, la, lb) <= 0); -} diff --git a/gnu/lib/libf2c/libF77/hl_lt.c b/gnu/lib/libf2c/libF77/hl_lt.c deleted file mode 100644 index 68a47fa98eb..00000000000 --- a/gnu/lib/libf2c/libF77/hl_lt.c +++ /dev/null @@ -1,8 +0,0 @@ -#include "f2c.h" - -extern integer s_cmp (char *, char *, ftnlen, ftnlen); -shortlogical -hl_lt (char *a, char *b, ftnlen la, ftnlen lb) -{ - return (s_cmp (a, b, la, lb) < 0); -} diff --git a/gnu/lib/libf2c/libF77/i_abs.c b/gnu/lib/libf2c/libF77/i_abs.c deleted file mode 100644 index 2ed183a6225..00000000000 --- a/gnu/lib/libf2c/libF77/i_abs.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -integer -i_abs (integer * x) -{ - if (*x >= 0) - return (*x); - return (-*x); -} diff --git a/gnu/lib/libf2c/libF77/i_dim.c b/gnu/lib/libf2c/libF77/i_dim.c deleted file mode 100644 index 66ef7c99fb4..00000000000 --- a/gnu/lib/libf2c/libF77/i_dim.c +++ /dev/null @@ -1,7 +0,0 @@ -#include "f2c.h" - -integer -i_dim (integer * a, integer * b) -{ - return (*a > *b ? *a - *b : 0); -} diff --git a/gnu/lib/libf2c/libF77/i_dnnt.c b/gnu/lib/libf2c/libF77/i_dnnt.c deleted file mode 100644 index 7a3783d29e2..00000000000 --- a/gnu/lib/libf2c/libF77/i_dnnt.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -integer -i_dnnt (doublereal * x) -{ - return (integer) (*x >= 0. ? floor (*x + .5) : -floor (.5 - *x)); -} diff --git a/gnu/lib/libf2c/libF77/i_indx.c b/gnu/lib/libf2c/libF77/i_indx.c deleted file mode 100644 index 5b8e13693ba..00000000000 --- a/gnu/lib/libf2c/libF77/i_indx.c +++ /dev/null @@ -1,23 +0,0 @@ -#include "f2c.h" - -integer -i_indx (char *a, char *b, ftnlen la, ftnlen lb) -{ - ftnlen i, n; - char *s, *t, *bend; - - n = la - lb + 1; - bend = b + lb; - - for (i = 0; i < n; ++i) - { - s = a + i; - t = b; - while (t < bend) - if (*s++ != *t++) - goto no; - return (i + 1); - no:; - } - return (0); -} diff --git a/gnu/lib/libf2c/libF77/i_len.c b/gnu/lib/libf2c/libF77/i_len.c deleted file mode 100644 index 2d5a3a4381a..00000000000 --- a/gnu/lib/libf2c/libF77/i_len.c +++ /dev/null @@ -1,7 +0,0 @@ -#include "f2c.h" - -integer -i_len (char *s __attribute__ ((__unused__)), ftnlen n) -{ - return (n); -} diff --git a/gnu/lib/libf2c/libF77/i_mod.c b/gnu/lib/libf2c/libF77/i_mod.c deleted file mode 100644 index 7ed7b391c19..00000000000 --- a/gnu/lib/libf2c/libF77/i_mod.c +++ /dev/null @@ -1,7 +0,0 @@ -#include "f2c.h" - -integer -i_mod (integer * a, integer * b) -{ - return (*a % *b); -} diff --git a/gnu/lib/libf2c/libF77/i_nint.c b/gnu/lib/libf2c/libF77/i_nint.c deleted file mode 100644 index c4eaff48d33..00000000000 --- a/gnu/lib/libf2c/libF77/i_nint.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -integer -i_nint (real * x) -{ - return (integer) (*x >= 0 ? floor (*x + .5) : -floor (.5 - *x)); -} diff --git a/gnu/lib/libf2c/libF77/i_sign.c b/gnu/lib/libf2c/libF77/i_sign.c deleted file mode 100644 index cf090086d00..00000000000 --- a/gnu/lib/libf2c/libF77/i_sign.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -integer -i_sign (integer * a, integer * b) -{ - integer x; - x = (*a >= 0 ? *a : -*a); - return (*b >= 0 ? x : -x); -} diff --git a/gnu/lib/libf2c/libF77/iargc_.c b/gnu/lib/libf2c/libF77/iargc_.c deleted file mode 100644 index c3165709a53..00000000000 --- a/gnu/lib/libf2c/libF77/iargc_.c +++ /dev/null @@ -1,8 +0,0 @@ -#include "f2c.h" - -ftnint -G77_iargc_0 (void) -{ - extern int f__xargc; - return (f__xargc - 1); -} diff --git a/gnu/lib/libf2c/libF77/l_ge.c b/gnu/lib/libf2c/libF77/l_ge.c deleted file mode 100644 index 78af8d04f5e..00000000000 --- a/gnu/lib/libf2c/libF77/l_ge.c +++ /dev/null @@ -1,8 +0,0 @@ -#include "f2c.h" - -extern integer s_cmp (char *, char *, ftnlen, ftnlen); -logical -l_ge (char *a, char *b, ftnlen la, ftnlen lb) -{ - return (s_cmp (a, b, la, lb) >= 0); -} diff --git a/gnu/lib/libf2c/libF77/l_gt.c b/gnu/lib/libf2c/libF77/l_gt.c deleted file mode 100644 index be7e4894719..00000000000 --- a/gnu/lib/libf2c/libF77/l_gt.c +++ /dev/null @@ -1,8 +0,0 @@ -#include "f2c.h" - -extern integer s_cmp (char *, char *, ftnlen, ftnlen); -logical -l_gt (char *a, char *b, ftnlen la, ftnlen lb) -{ - return (s_cmp (a, b, la, lb) > 0); -} diff --git a/gnu/lib/libf2c/libF77/l_le.c b/gnu/lib/libf2c/libF77/l_le.c deleted file mode 100644 index d2886fb7d48..00000000000 --- a/gnu/lib/libf2c/libF77/l_le.c +++ /dev/null @@ -1,8 +0,0 @@ -#include "f2c.h" - -extern integer s_cmp (char *, char *, ftnlen, ftnlen); -logical -l_le (char *a, char *b, ftnlen la, ftnlen lb) -{ - return (s_cmp (a, b, la, lb) <= 0); -} diff --git a/gnu/lib/libf2c/libF77/l_lt.c b/gnu/lib/libf2c/libF77/l_lt.c deleted file mode 100644 index ff151f890a2..00000000000 --- a/gnu/lib/libf2c/libF77/l_lt.c +++ /dev/null @@ -1,8 +0,0 @@ -#include "f2c.h" - -extern integer s_cmp (char *, char *, ftnlen, ftnlen); -logical -l_lt (char *a, char *b, ftnlen la, ftnlen lb) -{ - return (s_cmp (a, b, la, lb) < 0); -} diff --git a/gnu/lib/libf2c/libF77/lbitbits.c b/gnu/lib/libf2c/libF77/lbitbits.c deleted file mode 100644 index 3b28ae97aba..00000000000 --- a/gnu/lib/libf2c/libF77/lbitbits.c +++ /dev/null @@ -1,58 +0,0 @@ -#include "f2c.h" - -#ifndef LONGBITS -#define LONGBITS 32 -#endif - -integer -lbit_bits (integer a, integer b, integer len) -{ - /* Assume 2's complement arithmetic */ - - unsigned long x, y; - - x = (unsigned long) a; - y = (unsigned long) -1L; - x >>= b; - y <<= len; - return (integer) (x & ~y); -} - -integer -lbit_cshift (integer a, integer b, integer len) -{ - unsigned long x, y, z; - - x = (unsigned long) a; - if (len <= 0) - { - if (len == 0) - return 0; - goto full_len; - } - if (len >= LONGBITS) - { - full_len: - if (b >= 0) - { - b %= LONGBITS; - return (integer) (x << b | x >> (LONGBITS - b)); - } - b = -b; - b %= LONGBITS; - return (integer) (x << (LONGBITS - b) | x >> b); - } - y = z = (unsigned long) -1; - y <<= len; - z &= ~y; - y &= x; - x &= z; - if (b >= 0) - { - b %= len; - return (integer) (y | (z & (x << b | x >> (len - b)))); - } - b = -b; - b %= len; - return (integer) (y | (z & (x >> b | x << (len - b)))); -} diff --git a/gnu/lib/libf2c/libF77/lbitshft.c b/gnu/lib/libf2c/libF77/lbitshft.c deleted file mode 100644 index bfbb7c01833..00000000000 --- a/gnu/lib/libf2c/libF77/lbitshft.c +++ /dev/null @@ -1,7 +0,0 @@ -#include "f2c.h" - -integer -lbit_shift (integer a, integer b) -{ - return b >= 0 ? a << b : (integer) ((uinteger) a >> -b); -} diff --git a/gnu/lib/libf2c/libF77/main.c b/gnu/lib/libf2c/libF77/main.c deleted file mode 100644 index a3955cbc1a7..00000000000 --- a/gnu/lib/libf2c/libF77/main.c +++ /dev/null @@ -1,35 +0,0 @@ -/* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */ - -#include <stdio.h> -#include "signal1.h" - -#include <stdlib.h> - -extern void f_exit (void); -#ifndef NO_ONEXIT -#define ONEXIT atexit -extern int atexit (void (*)(void)); -#endif - -extern void f_init (void); -extern int MAIN__ (void); -extern void f_setarg (int, char **); -extern void f_setsig (void); - -int -main (int argc, char **argv) -{ - f_setarg (argc, argv); - f_setsig (); - f_init (); -#ifndef NO_ONEXIT - ONEXIT (f_exit); -#endif - MAIN__ (); -#ifdef NO_ONEXIT - f_exit (); -#endif - exit (0); /* exit(0) rather than return(0) to bypass Cray bug */ - return 0; /* For compilers that complain of missing return values; */ - /* others will complain that this is unreachable code. */ -} diff --git a/gnu/lib/libf2c/libF77/makefile.netlib b/gnu/lib/libf2c/libF77/makefile.netlib deleted file mode 100644 index 230ca7e9f93..00000000000 --- a/gnu/lib/libf2c/libF77/makefile.netlib +++ /dev/null @@ -1,103 +0,0 @@ -.SUFFIXES: .c .o -CC = cc -SHELL = /bin/sh -CFLAGS = -O - -# If your system lacks onexit() and you are not using an -# ANSI C compiler, then you should add -DNO_ONEXIT to CFLAGS, -# e.g., by changing the above "CFLAGS =" line to -# CFLAGS = -O -DNO_ONEXIT - -# On at least some Sun systems, it is more appropriate to change the -# "CFLAGS =" line to -# CFLAGS = -O -Donexit=on_exit - -# compile, then strip unnecessary symbols -.c.o: - $(CC) -c -DSkip_f2c_Undefs $(CFLAGS) $*.c - ld -r -x -o $*.xxx $*.o - mv $*.xxx $*.o -## Under Solaris (and other systems that do not understand ld -x), -## omit -x in the ld line above. -## If your system does not have the ld command, comment out -## or remove both the ld and mv lines above. - -MISC = F77_aloc.o Version.o main.o s_rnge.o abort_.o getarg_.o iargc_.o \ - getenv_.o signal_.o s_stop.o s_paus.o system_.o cabs.o\ - derf_.o derfc_.o erf_.o erfc_.o sig_die.o exit_.o -POW = pow_ci.o pow_dd.o pow_di.o pow_hh.o pow_ii.o pow_ri.o pow_zi.o pow_zz.o -CX = c_abs.o c_cos.o c_div.o c_exp.o c_log.o c_sin.o c_sqrt.o -DCX = z_abs.o z_cos.o z_div.o z_exp.o z_log.o z_sin.o z_sqrt.o -REAL = r_abs.o r_acos.o r_asin.o r_atan.o r_atn2.o r_cnjg.o r_cos.o\ - r_cosh.o r_dim.o r_exp.o r_imag.o r_int.o\ - r_lg10.o r_log.o r_mod.o r_nint.o r_sign.o\ - r_sin.o r_sinh.o r_sqrt.o r_tan.o r_tanh.o -DBL = d_abs.o d_acos.o d_asin.o d_atan.o d_atn2.o\ - d_cnjg.o d_cos.o d_cosh.o d_dim.o d_exp.o\ - d_imag.o d_int.o d_lg10.o d_log.o d_mod.o\ - d_nint.o d_prod.o d_sign.o d_sin.o d_sinh.o\ - d_sqrt.o d_tan.o d_tanh.o -INT = i_abs.o i_dim.o i_dnnt.o i_indx.o i_len.o i_mod.o i_nint.o i_sign.o -HALF = h_abs.o h_dim.o h_dnnt.o h_indx.o h_len.o h_mod.o h_nint.o h_sign.o -CMP = l_ge.o l_gt.o l_le.o l_lt.o hl_ge.o hl_gt.o hl_le.o hl_lt.o -EFL = ef1asc_.o ef1cmc_.o -CHAR = F77_aloc.o s_cat.o s_cmp.o s_copy.o -F90BIT = lbitbits.o lbitshft.o -QINT = pow_qq.o qbitbits.o qbitshft.o -TIME = dtime_.o etime_.o - -all: signal1.h libF77.a - -# You may need to adjust signal1.h suitably for your system... -signal1.h: signal1.h0 - cp signal1.h0 signal1.h - -# If you get an error compiling dtime_.c or etime_.c, try adding -# -DUSE_CLOCK to the CFLAGS assignment above; if that does not work, -# omit $(TIME) from the dependency list for libF77.a below. - -# For INTEGER*8 support (which requires system-dependent adjustments to -# f2c.h), add $(QINT) to the libf2c.a dependency list below... - -libF77.a : $(MISC) $(POW) $(CX) $(DCX) $(REAL) $(DBL) $(INT) \ - $(HALF) $(CMP) $(EFL) $(CHAR) $(F90BIT) $(TIME) - ar r libF77.a $? - -ranlib libF77.a - -### If your system lacks ranlib, you don't need it; see README. - -Version.o: Version.c - $(CC) -c Version.c - -# To compile with C++, first "make f2c.h" -f2c.h: f2ch.add - cat /usr/include/f2c.h f2ch.add >f2c.h - -install: libF77.a - mv libF77.a /usr/lib - ranlib /usr/lib/libF77.a - -clean: - rm -f libF77.a *.o - -check: - xsum F77_aloc.c Notice README Version.c abort_.c c_abs.c c_cos.c \ - c_div.c c_exp.c c_log.c c_sin.c c_sqrt.c cabs.c d_abs.c d_acos.c \ - d_asin.c d_atan.c d_atn2.c d_cnjg.c d_cos.c d_cosh.c d_dim.c \ - d_exp.c d_imag.c d_int.c d_lg10.c d_log.c d_mod.c d_nint.c \ - d_prod.c d_sign.c d_sin.c d_sinh.c d_sqrt.c d_tan.c d_tanh.c \ - derf_.c derfc_.c dtime_.c \ - ef1asc_.c ef1cmc_.c erf_.c erfc_.c etime_.c exit_.c f2ch.add \ - getarg_.c getenv_.c h_abs.c h_dim.c h_dnnt.c h_indx.c h_len.c \ - h_mod.c h_nint.c h_sign.c hl_ge.c hl_gt.c hl_le.c hl_lt.c \ - i_abs.c i_dim.c i_dnnt.c i_indx.c i_len.c i_mod.c i_nint.c \ - i_sign.c iargc_.c l_ge.c l_gt.c l_le.c l_lt.c lbitbits.c lbitshft.c \ - main.c makefile pow_ci.c pow_dd.c pow_di.c pow_hh.c pow_ii.c \ - pow_qq.c pow_ri.c pow_zi.c pow_zz.c qbitbits.c qbitshft.c \ - r_abs.c r_acos.c r_asin.c r_atan.c r_atn2.c \ - r_cnjg.c r_cos.c r_cosh.c r_dim.c r_exp.c r_imag.c r_int.c r_lg10.c \ - r_log.c r_mod.c r_nint.c r_sign.c r_sin.c r_sinh.c r_sqrt.c \ - r_tan.c r_tanh.c s_cat.c s_cmp.c s_copy.c \ - s_paus.c s_rnge.c s_stop.c sig_die.c signal1.h0 signal_.c system_.c \ - z_abs.c z_cos.c z_div.c z_exp.c z_log.c z_sin.c z_sqrt.c >zap - cmp zap libF77.xsum && rm zap || diff libF77.xsum zap diff --git a/gnu/lib/libf2c/libF77/pow_ci.c b/gnu/lib/libf2c/libF77/pow_ci.c deleted file mode 100644 index 1df3eb34b00..00000000000 --- a/gnu/lib/libf2c/libF77/pow_ci.c +++ /dev/null @@ -1,16 +0,0 @@ -#include "f2c.h" - -extern void pow_zi (doublecomplex *, doublecomplex *, integer *); -void -pow_ci (complex * p, complex * a, integer * b) /* p = a**b */ -{ - doublecomplex p1, a1; - - a1.r = a->r; - a1.i = a->i; - - pow_zi (&p1, &a1, b); - - p->r = p1.r; - p->i = p1.i; -} diff --git a/gnu/lib/libf2c/libF77/pow_dd.c b/gnu/lib/libf2c/libF77/pow_dd.c deleted file mode 100644 index 0ab208ebf62..00000000000 --- a/gnu/lib/libf2c/libF77/pow_dd.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -pow_dd (doublereal * ap, doublereal * bp) -{ - return (pow (*ap, *bp)); -} diff --git a/gnu/lib/libf2c/libF77/pow_di.c b/gnu/lib/libf2c/libF77/pow_di.c deleted file mode 100644 index d2298a0a1f0..00000000000 --- a/gnu/lib/libf2c/libF77/pow_di.c +++ /dev/null @@ -1,32 +0,0 @@ -#include "f2c.h" - -double -pow_di (doublereal * ap, integer * bp) -{ - double pow, x; - integer n; - unsigned long u; - - pow = 1; - x = *ap; - n = *bp; - - if (n != 0) - { - if (n < 0) - { - n = -n; - x = 1 / x; - } - for (u = n;;) - { - if (u & 01) - pow *= x; - if (u >>= 1) - x *= x; - else - break; - } - } - return (pow); -} diff --git a/gnu/lib/libf2c/libF77/pow_hh.c b/gnu/lib/libf2c/libF77/pow_hh.c deleted file mode 100644 index 3379d8a7f7c..00000000000 --- a/gnu/lib/libf2c/libF77/pow_hh.c +++ /dev/null @@ -1,31 +0,0 @@ -#include "f2c.h" - -shortint -pow_hh (shortint * ap, shortint * bp) -{ - shortint pow, x, n; - unsigned u; - - x = *ap; - n = *bp; - - if (n <= 0) - { - if (n == 0 || x == 1) - return 1; - if (x != -1) - return x == 0 ? 1 / x : 0; - n = -n; - } - u = n; - for (pow = 1;;) - { - if (u & 01) - pow *= x; - if (u >>= 1) - x *= x; - else - break; - } - return (pow); -} diff --git a/gnu/lib/libf2c/libF77/pow_ii.c b/gnu/lib/libf2c/libF77/pow_ii.c deleted file mode 100644 index 92347453fb0..00000000000 --- a/gnu/lib/libf2c/libF77/pow_ii.c +++ /dev/null @@ -1,31 +0,0 @@ -#include "f2c.h" - -integer -pow_ii (integer * ap, integer * bp) -{ - integer pow, x, n; - unsigned long u; - - x = *ap; - n = *bp; - - if (n <= 0) - { - if (n == 0 || x == 1) - return 1; - if (x != -1) - return x == 0 ? 1 / x : 0; - n = -n; - } - u = n; - for (pow = 1;;) - { - if (u & 01) - pow *= x; - if (u >>= 1) - x *= x; - else - break; - } - return (pow); -} diff --git a/gnu/lib/libf2c/libF77/pow_qq.c b/gnu/lib/libf2c/libF77/pow_qq.c deleted file mode 100644 index 0cec5ca7d8c..00000000000 --- a/gnu/lib/libf2c/libF77/pow_qq.c +++ /dev/null @@ -1,31 +0,0 @@ -#include "f2c.h" - -longint -pow_qq (longint * ap, longint * bp) -{ - longint pow, x, n; - unsigned long long u; /* system-dependent */ - - x = *ap; - n = *bp; - - if (n <= 0) - { - if (n == 0 || x == 1) - return 1; - if (x != -1) - return x == 0 ? 1 / x : 0; - n = -n; - } - u = n; - for (pow = 1;;) - { - if (u & 01) - pow *= x; - if (u >>= 1) - x *= x; - else - break; - } - return (pow); -} diff --git a/gnu/lib/libf2c/libF77/pow_ri.c b/gnu/lib/libf2c/libF77/pow_ri.c deleted file mode 100644 index 792db0c2018..00000000000 --- a/gnu/lib/libf2c/libF77/pow_ri.c +++ /dev/null @@ -1,32 +0,0 @@ -#include "f2c.h" - -double -pow_ri (real * ap, integer * bp) -{ - double pow, x; - integer n; - unsigned long u; - - pow = 1; - x = *ap; - n = *bp; - - if (n != 0) - { - if (n < 0) - { - n = -n; - x = 1 / x; - } - for (u = n;;) - { - if (u & 01) - pow *= x; - if (u >>= 1) - x *= x; - else - break; - } - } - return (pow); -} diff --git a/gnu/lib/libf2c/libF77/pow_zi.c b/gnu/lib/libf2c/libF77/pow_zi.c deleted file mode 100644 index 214db3d7a0f..00000000000 --- a/gnu/lib/libf2c/libF77/pow_zi.c +++ /dev/null @@ -1,50 +0,0 @@ -#include "f2c.h" - -extern void z_div (doublecomplex *, doublecomplex *, doublecomplex *); -void -pow_zi (doublecomplex * p, doublecomplex * a, integer * b) /* p = a**b */ -{ - integer n; - unsigned long u; - double t; - doublecomplex q, x; - static doublecomplex one = { 1.0, 0.0 }; - - n = *b; - q.r = 1; - q.i = 0; - - if (n == 0) - goto done; - if (n < 0) - { - n = -n; - z_div (&x, &one, a); - } - else - { - x.r = a->r; - x.i = a->i; - } - - for (u = n;;) - { - if (u & 01) - { - t = q.r * x.r - q.i * x.i; - q.i = q.r * x.i + q.i * x.r; - q.r = t; - } - if (u >>= 1) - { - t = x.r * x.r - x.i * x.i; - x.i = 2 * x.r * x.i; - x.r = t; - } - else - break; - } -done: - p->i = q.i; - p->r = q.r; -} diff --git a/gnu/lib/libf2c/libF77/pow_zz.c b/gnu/lib/libf2c/libF77/pow_zz.c deleted file mode 100644 index d5cfbf3d931..00000000000 --- a/gnu/lib/libf2c/libF77/pow_zz.c +++ /dev/null @@ -1,25 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -extern double f__cabs (double, double); -void -pow_zz (doublecomplex * r, doublecomplex * a, doublecomplex * b) -{ - double logr, logi, x, y; - - if (a->r == 0.0 && a->i == 0.0) - { - /* Algorithm below doesn't cope. */ - r->r = r->i = 0.0; - return; - } - logr = log (f__cabs (a->r, a->i)); - logi = atan2 (a->i, a->r); - - x = exp (logr * b->r - logi * b->i); - y = logr * b->i + logi * b->r; - - r->r = x * cos (y); - r->i = x * sin (y); -} diff --git a/gnu/lib/libf2c/libF77/qbitbits.c b/gnu/lib/libf2c/libF77/qbitbits.c deleted file mode 100644 index f72858e7a33..00000000000 --- a/gnu/lib/libf2c/libF77/qbitbits.c +++ /dev/null @@ -1,62 +0,0 @@ -#include "f2c.h" - -#ifndef LONGBITS -#define LONGBITS 32 -#endif - -#ifndef LONG8BITS -#define LONG8BITS (2*LONGBITS) -#endif - -integer -qbit_bits (longint a, integer b, integer len) -{ - /* Assume 2's complement arithmetic */ - - ulongint x, y; - - x = (ulongint) a; - y = (ulongint) - 1L; - x >>= b; - y <<= len; - return (longint) (x & y); -} - -longint -qbit_cshift (longint a, integer b, integer len) -{ - ulongint x, y, z; - - x = (ulongint) a; - if (len <= 0) - { - if (len == 0) - return 0; - goto full_len; - } - if (len >= LONG8BITS) - { - full_len: - if (b >= 0) - { - b %= LONG8BITS; - return (longint) (x << b | x >> (LONG8BITS - b)); - } - b = -b; - b %= LONG8BITS; - return (longint) (x << (LONG8BITS - b) | x >> b); - } - y = z = (unsigned long) -1; - y <<= len; - z &= ~y; - y &= x; - x &= z; - if (b >= 0) - { - b %= len; - return (longint) (y | (z & (x << b | x >> (len - b)))); - } - b = -b; - b %= len; - return (longint) (y | (z & (x >> b | x << (len - b)))); -} diff --git a/gnu/lib/libf2c/libF77/qbitshft.c b/gnu/lib/libf2c/libF77/qbitshft.c deleted file mode 100644 index ce740edde19..00000000000 --- a/gnu/lib/libf2c/libF77/qbitshft.c +++ /dev/null @@ -1,7 +0,0 @@ -#include "f2c.h" - -longint -qbit_shift (longint a, integer b) -{ - return b >= 0 ? a << b : (longint) ((ulongint) a >> -b); -} diff --git a/gnu/lib/libf2c/libF77/r_abs.c b/gnu/lib/libf2c/libF77/r_abs.c deleted file mode 100644 index 6f62724ef17..00000000000 --- a/gnu/lib/libf2c/libF77/r_abs.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -double -r_abs (real * x) -{ - if (*x >= 0) - return (*x); - return (-*x); -} diff --git a/gnu/lib/libf2c/libF77/r_acos.c b/gnu/lib/libf2c/libF77/r_acos.c deleted file mode 100644 index d761cfdc5c8..00000000000 --- a/gnu/lib/libf2c/libF77/r_acos.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -r_acos (real * x) -{ - return (acos (*x)); -} diff --git a/gnu/lib/libf2c/libF77/r_asin.c b/gnu/lib/libf2c/libF77/r_asin.c deleted file mode 100644 index b8c73c786af..00000000000 --- a/gnu/lib/libf2c/libF77/r_asin.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -r_asin (real * x) -{ - return (asin (*x)); -} diff --git a/gnu/lib/libf2c/libF77/r_atan.c b/gnu/lib/libf2c/libF77/r_atan.c deleted file mode 100644 index 33a6589fda9..00000000000 --- a/gnu/lib/libf2c/libF77/r_atan.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -r_atan (real * x) -{ - return (atan (*x)); -} diff --git a/gnu/lib/libf2c/libF77/r_atn2.c b/gnu/lib/libf2c/libF77/r_atn2.c deleted file mode 100644 index 076d8743b1e..00000000000 --- a/gnu/lib/libf2c/libF77/r_atn2.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -r_atn2 (real * x, real * y) -{ - return (atan2 (*x, *y)); -} diff --git a/gnu/lib/libf2c/libF77/r_cnjg.c b/gnu/lib/libf2c/libF77/r_cnjg.c deleted file mode 100644 index 5f849291b20..00000000000 --- a/gnu/lib/libf2c/libF77/r_cnjg.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -void -r_cnjg (complex * r, complex * z) -{ - real zi = z->i; - r->r = z->r; - r->i = -zi; -} diff --git a/gnu/lib/libf2c/libF77/r_cos.c b/gnu/lib/libf2c/libF77/r_cos.c deleted file mode 100644 index ed556e81e87..00000000000 --- a/gnu/lib/libf2c/libF77/r_cos.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -r_cos (real * x) -{ - return (cos (*x)); -} diff --git a/gnu/lib/libf2c/libF77/r_cosh.c b/gnu/lib/libf2c/libF77/r_cosh.c deleted file mode 100644 index b22e0cf0a3d..00000000000 --- a/gnu/lib/libf2c/libF77/r_cosh.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -r_cosh (real * x) -{ - return (cosh (*x)); -} diff --git a/gnu/lib/libf2c/libF77/r_dim.c b/gnu/lib/libf2c/libF77/r_dim.c deleted file mode 100644 index 48d2fc7f767..00000000000 --- a/gnu/lib/libf2c/libF77/r_dim.c +++ /dev/null @@ -1,7 +0,0 @@ -#include "f2c.h" - -double -r_dim (real * a, real * b) -{ - return (*a > *b ? *a - *b : 0); -} diff --git a/gnu/lib/libf2c/libF77/r_exp.c b/gnu/lib/libf2c/libF77/r_exp.c deleted file mode 100644 index 7c1ceea5895..00000000000 --- a/gnu/lib/libf2c/libF77/r_exp.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -r_exp (real * x) -{ - return (exp (*x)); -} diff --git a/gnu/lib/libf2c/libF77/r_imag.c b/gnu/lib/libf2c/libF77/r_imag.c deleted file mode 100644 index 784abc8434b..00000000000 --- a/gnu/lib/libf2c/libF77/r_imag.c +++ /dev/null @@ -1,7 +0,0 @@ -#include "f2c.h" - -double -r_imag (complex * z) -{ - return (z->i); -} diff --git a/gnu/lib/libf2c/libF77/r_int.c b/gnu/lib/libf2c/libF77/r_int.c deleted file mode 100644 index 3c1b28ea4c7..00000000000 --- a/gnu/lib/libf2c/libF77/r_int.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -r_int (real * x) -{ - return ((*x > 0) ? floor (*x) : -floor (-*x)); -} diff --git a/gnu/lib/libf2c/libF77/r_lg10.c b/gnu/lib/libf2c/libF77/r_lg10.c deleted file mode 100644 index 563e73c4d8c..00000000000 --- a/gnu/lib/libf2c/libF77/r_lg10.c +++ /dev/null @@ -1,11 +0,0 @@ -#include "f2c.h" - -#define log10e 0.43429448190325182765 - -#undef abs -#include <math.h> -double -r_lg10 (real * x) -{ - return (log10e * log (*x)); -} diff --git a/gnu/lib/libf2c/libF77/r_log.c b/gnu/lib/libf2c/libF77/r_log.c deleted file mode 100644 index eaaecc836f2..00000000000 --- a/gnu/lib/libf2c/libF77/r_log.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -r_log (real * x) -{ - return (log (*x)); -} diff --git a/gnu/lib/libf2c/libF77/r_mod.c b/gnu/lib/libf2c/libF77/r_mod.c deleted file mode 100644 index 9518d66ce99..00000000000 --- a/gnu/lib/libf2c/libF77/r_mod.c +++ /dev/null @@ -1,33 +0,0 @@ -#include "f2c.h" - -#ifdef IEEE_drem -double drem (double, double); -#else -#undef abs -#include <math.h> -#endif -double -r_mod (real * x, real * y) -{ -#ifdef IEEE_drem - double xa, ya, z; - if ((ya = *y) < 0.) - ya = -ya; - z = drem (xa = *x, ya); - if (xa > 0) - { - if (z < 0) - z += ya; - } - else if (z > 0) - z -= ya; - return z; -#else - double quotient; - if ((quotient = (double) *x / *y) >= 0) - quotient = floor (quotient); - else - quotient = -floor (-quotient); - return (*x - (*y) * quotient); -#endif -} diff --git a/gnu/lib/libf2c/libF77/r_nint.c b/gnu/lib/libf2c/libF77/r_nint.c deleted file mode 100644 index f2713d588b1..00000000000 --- a/gnu/lib/libf2c/libF77/r_nint.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -r_nint (real * x) -{ - return ((*x) >= 0 ? floor (*x + .5) : -floor (.5 - *x)); -} diff --git a/gnu/lib/libf2c/libF77/r_sign.c b/gnu/lib/libf2c/libF77/r_sign.c deleted file mode 100644 index f53c6bf9220..00000000000 --- a/gnu/lib/libf2c/libF77/r_sign.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -double -r_sign (real * a, real * b) -{ - double x; - x = (*a >= 0 ? *a : -*a); - return (*b >= 0 ? x : -x); -} diff --git a/gnu/lib/libf2c/libF77/r_sin.c b/gnu/lib/libf2c/libF77/r_sin.c deleted file mode 100644 index 5a5ef136a8c..00000000000 --- a/gnu/lib/libf2c/libF77/r_sin.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -r_sin (real * x) -{ - return (sin (*x)); -} diff --git a/gnu/lib/libf2c/libF77/r_sinh.c b/gnu/lib/libf2c/libF77/r_sinh.c deleted file mode 100644 index 723c7ab29c3..00000000000 --- a/gnu/lib/libf2c/libF77/r_sinh.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -r_sinh (real * x) -{ - return (sinh (*x)); -} diff --git a/gnu/lib/libf2c/libF77/r_sqrt.c b/gnu/lib/libf2c/libF77/r_sqrt.c deleted file mode 100644 index ed832ba70e1..00000000000 --- a/gnu/lib/libf2c/libF77/r_sqrt.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -r_sqrt (real * x) -{ - return (sqrt (*x)); -} diff --git a/gnu/lib/libf2c/libF77/r_tan.c b/gnu/lib/libf2c/libF77/r_tan.c deleted file mode 100644 index 4ef913e6522..00000000000 --- a/gnu/lib/libf2c/libF77/r_tan.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -r_tan (real * x) -{ - return (tan (*x)); -} diff --git a/gnu/lib/libf2c/libF77/r_tanh.c b/gnu/lib/libf2c/libF77/r_tanh.c deleted file mode 100644 index 6f2552a9f97..00000000000 --- a/gnu/lib/libf2c/libF77/r_tanh.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "f2c.h" - -#undef abs -#include <math.h> -double -r_tanh (real * x) -{ - return (tanh (*x)); -} diff --git a/gnu/lib/libf2c/libF77/s_cat.c b/gnu/lib/libf2c/libF77/s_cat.c deleted file mode 100644 index 4e8da1b3fdb..00000000000 --- a/gnu/lib/libf2c/libF77/s_cat.c +++ /dev/null @@ -1,70 +0,0 @@ -/* Unless compiled with -DNO_OVERWRITE, this variant of s_cat allows the - * target of a concatenation to appear on its right-hand side (contrary - * to the Fortran 77 Standard, but in accordance with Fortran 90). - */ - -#include "f2c.h" -#ifndef NO_OVERWRITE -#include <stdio.h> -#undef abs -#undef min -#undef max -#include <stdlib.h> -extern char *F77_aloc (ftnlen, char *); -#include <string.h> -#endif /* NO_OVERWRITE */ - -void -s_cat (char *lp, char *rpp[], ftnint rnp[], ftnint * np, ftnlen ll) -{ - ftnlen i, nc; - char *rp; - ftnlen n = *np; -#ifndef NO_OVERWRITE - ftnlen L, m; - char *lp0, *lp1; - - lp0 = 0; - lp1 = lp; - L = ll; - i = 0; - while (i < n) - { - rp = rpp[i]; - m = rnp[i++]; - if (rp >= lp1 || rp + m <= lp) - { - if ((L -= m) <= 0) - { - n = i; - break; - } - lp1 += m; - continue; - } - lp0 = lp; - lp = lp1 = F77_aloc (L = ll, "s_cat"); - break; - } - lp1 = lp; -#endif /* NO_OVERWRITE */ - for (i = 0; i < n; ++i) - { - nc = ll; - if (rnp[i] < nc) - nc = rnp[i]; - ll -= nc; - rp = rpp[i]; - while (--nc >= 0) - *lp++ = *rp++; - } - while (--ll >= 0) - *lp++ = ' '; -#ifndef NO_OVERWRITE - if (lp0) - { - memcpy (lp0, lp1, L); - free (lp1); - } -#endif -} diff --git a/gnu/lib/libf2c/libF77/s_cmp.c b/gnu/lib/libf2c/libF77/s_cmp.c deleted file mode 100644 index 5b43c9edb9c..00000000000 --- a/gnu/lib/libf2c/libF77/s_cmp.c +++ /dev/null @@ -1,49 +0,0 @@ -#include "f2c.h" - -/* compare two strings */ - -integer -s_cmp (char *a0, char *b0, ftnlen la, ftnlen lb) -{ - register unsigned char *a, *aend, *b, *bend; - a = (unsigned char *) a0; - b = (unsigned char *) b0; - aend = a + la; - bend = b + lb; - - if (la <= lb) - { - while (a < aend) - if (*a != *b) - return (*a - *b); - else - { - ++a; - ++b; - } - - while (b < bend) - if (*b != ' ') - return (' ' - *b); - else - ++b; - } - - else - { - while (b < bend) - if (*a == *b) - { - ++a; - ++b; - } - else - return (*a - *b); - while (a < aend) - if (*a != ' ') - return (*a - ' '); - else - ++a; - } - return (0); -} diff --git a/gnu/lib/libf2c/libF77/s_copy.c b/gnu/lib/libf2c/libF77/s_copy.c deleted file mode 100644 index a91071eccab..00000000000 --- a/gnu/lib/libf2c/libF77/s_copy.c +++ /dev/null @@ -1,50 +0,0 @@ -/* Unless compiled with -DNO_OVERWRITE, this variant of s_copy allows the - * target of an assignment to appear on its right-hand side (contrary - * to the Fortran 77 Standard, but in accordance with Fortran 90), - * as in a(2:5) = a(4:7) . - */ - -#include "f2c.h" - -/* assign strings: a = b */ - -void -s_copy (register char *a, register char *b, ftnlen la, ftnlen lb) -{ - register char *aend, *bend; - - aend = a + la; - - if (la <= lb) -#ifndef NO_OVERWRITE - if (a <= b || a >= b + la) -#endif - while (a < aend) - *a++ = *b++; -#ifndef NO_OVERWRITE - else - for (b += la; a < aend;) - *--aend = *--b; -#endif - - else - { - bend = b + lb; -#ifndef NO_OVERWRITE - if (a <= b || a >= bend) -#endif - while (b < bend) - *a++ = *b++; -#ifndef NO_OVERWRITE - else - { - a += lb; - while (b < bend) - *--a = *--bend; - a += lb; - } -#endif - while (a < aend) - *a++ = ' '; - } -} diff --git a/gnu/lib/libf2c/libF77/s_paus.c b/gnu/lib/libf2c/libF77/s_paus.c deleted file mode 100644 index 79691366e6f..00000000000 --- a/gnu/lib/libf2c/libF77/s_paus.c +++ /dev/null @@ -1,71 +0,0 @@ -#include <stdio.h> -#include "f2c.h" -#define PAUSESIG 15 - -#include "signal1.h" -#undef abs -#undef min -#undef max -#include <stdlib.h> -extern int getpid (void), isatty (int), pause (void); - -extern void f_exit (void); - -static void -waitpause (Sigarg) -{ - Use_Sigarg; - return; -} - -static void -s_1paus (FILE * fin) -{ - fprintf (stderr, - "To resume execution, type go. Other input will terminate the job.\n"); - fflush (stderr); - if (getc (fin) != 'g' || getc (fin) != 'o' || getc (fin) != '\n') - { - fprintf (stderr, "STOP\n"); -#ifdef NO_ONEXIT - f_exit (); -#endif - exit (0); - } -} - -int -s_paus (char *s, ftnlen n) -{ - fprintf (stderr, "PAUSE "); - if (n > 0) - fprintf (stderr, " %.*s", (int) n, s); - fprintf (stderr, " statement executed\n"); - if (isatty (fileno (stdin))) - s_1paus (stdin); - else - { -#if (defined (MSDOS) && !defined (GO32)) || defined (_WIN32) - FILE *fin; - fin = fopen ("con", "r"); - if (!fin) - { - fprintf (stderr, "s_paus: can't open con!\n"); - fflush (stderr); - exit (1); - } - s_1paus (fin); - fclose (fin); -#else - fprintf (stderr, - "To resume execution, execute a kill -%d %d command\n", - PAUSESIG, getpid ()); - signal1 (PAUSESIG, waitpause); - fflush (stderr); - pause (); -#endif - } - fprintf (stderr, "Execution resumes after PAUSE.\n"); - fflush (stderr); - return 0; /* NOT REACHED */ -} diff --git a/gnu/lib/libf2c/libF77/s_rnge.c b/gnu/lib/libf2c/libF77/s_rnge.c deleted file mode 100644 index 6c054c707f5..00000000000 --- a/gnu/lib/libf2c/libF77/s_rnge.c +++ /dev/null @@ -1,22 +0,0 @@ -#include <stdio.h> -#include "f2c.h" - -/* called when a subscript is out of range */ - -extern void sig_die (char *, int); -integer -s_rnge (char *varn, ftnint offset, char *procn, ftnint line) -{ - register int i; - - fprintf (stderr, "Subscript out of range on file line %ld, procedure ", - (long) line); - while ((i = *procn) && i != '_' && i != ' ') - putc (*procn++, stderr); - fprintf (stderr, ".\nAttempt to access the %ld-th element of variable ", - (long) offset + 1); - while ((i = *varn) && i != ' ') - putc (*varn++, stderr); - sig_die (".", 1); - return 0; /* not reached */ -} diff --git a/gnu/lib/libf2c/libF77/s_stop.c b/gnu/lib/libf2c/libF77/s_stop.c deleted file mode 100644 index 571416be7bb..00000000000 --- a/gnu/lib/libf2c/libF77/s_stop.c +++ /dev/null @@ -1,32 +0,0 @@ -#include <stdio.h> -#include "f2c.h" - -#undef abs -#undef min -#undef max -#include <stdlib.h> -void f_exit (void); - -int -s_stop (char *s, ftnlen n) -{ - int i; - - if (n > 0) - { - fprintf (stderr, "STOP "); - for (i = 0; i < n; ++i) - putc (*s++, stderr); - fprintf (stderr, " statement executed\n"); - } -#ifdef NO_ONEXIT - f_exit (); -#endif - exit (0); - -/* We cannot avoid (useless) compiler diagnostics here: */ -/* some compilers complain if there is no return statement, */ -/* and others complain that this one cannot be reached. */ - - return 0; /* NOT REACHED */ -} diff --git a/gnu/lib/libf2c/libF77/setarg.c b/gnu/lib/libf2c/libF77/setarg.c deleted file mode 100644 index 49515746f48..00000000000 --- a/gnu/lib/libf2c/libF77/setarg.c +++ /dev/null @@ -1,14 +0,0 @@ -/* Set up the global argc/argv info for use by getarg_, iargc_, and - g77's inlined intrinsic equivalents. */ - -#include <stdlib.h> - -int f__xargc; -char **f__xargv; - -void -f_setarg (int argc, char **argv) -{ - f__xargc = argc; - f__xargv = argv; -} diff --git a/gnu/lib/libf2c/libF77/setsig.c b/gnu/lib/libf2c/libF77/setsig.c deleted file mode 100644 index 96826be94fd..00000000000 --- a/gnu/lib/libf2c/libF77/setsig.c +++ /dev/null @@ -1,86 +0,0 @@ -/* Set up the signal behavior. */ - -#include <stdio.h> -#include "signal1.h" - -#ifndef SIGIOT -#ifdef SIGABRT -#define SIGIOT SIGABRT -#endif -#endif - -#include <stdlib.h> - -extern void sig_die (char *, int); - -static void -sigfdie (Sigarg) -{ - Use_Sigarg; - sig_die ("Floating Exception", 1); -} - - -static void -sigidie (Sigarg) -{ - Use_Sigarg; - sig_die ("IOT Trap", 1); -} - -#ifdef SIGQUIT -static void -sigqdie (Sigarg) -{ - Use_Sigarg; - sig_die ("Quit signal", 1); -} -#endif - - -static void -sigindie (Sigarg) -{ - Use_Sigarg; - sig_die ("Interrupt", 0); -} - -static void -sigtdie (Sigarg) -{ - Use_Sigarg; - sig_die ("Killed", 0); -} - -#ifdef SIGTRAP -static void -sigtrdie (Sigarg) -{ - Use_Sigarg; - sig_die ("Trace trap", 1); -} -#endif - - -void -f_setsig () -{ - signal1 (SIGFPE, sigfdie); /* ignore underflow, enable overflow */ -#ifdef SIGIOT - signal1 (SIGIOT, sigidie); -#endif -#ifdef SIGTRAP - signal1 (SIGTRAP, sigtrdie); -#endif -#ifdef SIGQUIT - if (signal1 (SIGQUIT, sigqdie) == SIG_IGN) - signal1 (SIGQUIT, SIG_IGN); -#endif - if (signal1 (SIGINT, sigindie) == SIG_IGN) - signal1 (SIGINT, SIG_IGN); - signal1 (SIGTERM, sigtdie); - -#ifdef pdp11 - ldfps (01200); /* detect overflow as an exception */ -#endif -} diff --git a/gnu/lib/libf2c/libF77/sig_die.c b/gnu/lib/libf2c/libF77/sig_die.c deleted file mode 100644 index 622462e248b..00000000000 --- a/gnu/lib/libf2c/libF77/sig_die.c +++ /dev/null @@ -1,37 +0,0 @@ -#include <stdio.h> -#include <signal.h> - -#ifndef SIGIOT -#ifdef SIGABRT -#define SIGIOT SIGABRT -#endif -#endif - -#include <stdlib.h> -extern void f_exit (void); - -void -sig_die (register char *s, int kill) -{ - /* print error message, then clear buffers */ - fprintf (stderr, "%s\n", s); - - if (kill) - { - fflush (stderr); - f_exit (); - fflush (stderr); - /* now get a core */ -#ifdef SIGIOT - signal (SIGIOT, SIG_DFL); -#endif - abort (); - } - else - { -#ifdef NO_ONEXIT - f_exit (); -#endif - exit (1); - } -} diff --git a/gnu/lib/libf2c/libF77/signal1.h b/gnu/lib/libf2c/libF77/signal1.h deleted file mode 100644 index b559211e8e4..00000000000 --- a/gnu/lib/libf2c/libF77/signal1.h +++ /dev/null @@ -1,5 +0,0 @@ -/* The g77 implementation of libf2c directly includes signal1.h0, - instead of copying it to signal1.h, since that seems easier to - cope with at this point. */ - -#include "signal1.h0" diff --git a/gnu/lib/libf2c/libF77/signal1.h0 b/gnu/lib/libf2c/libF77/signal1.h0 deleted file mode 100644 index 0e2fcf2c1e6..00000000000 --- a/gnu/lib/libf2c/libF77/signal1.h0 +++ /dev/null @@ -1,26 +0,0 @@ -/* You may need to adjust the definition of signal1 to supply a */ -/* cast to the correct argument type. This detail is system- and */ -/* compiler-dependent. The #define below assumes signal.h declares */ -/* type SIG_PF for the signal function's second argument. */ - -/* For some C++ compilers, "#define Sigarg_t ..." may be appropriate. */ - -#include <signal.h> - -#ifndef Sigret_t -#define Sigret_t void -#endif -#ifndef Sigarg_t -#define Sigarg_t int -#endif /*Sigarg_t */ - -#ifdef USE_SIG_PF /* compile with -DUSE_SIG_PF under IRIX */ -#define sig_pf SIG_PF -#else -typedef Sigret_t (*sig_pf) (Sigarg_t); -#endif - -#define signal1(a,b) signal(a,(sig_pf)b) - -#define Sigarg int n -#define Use_Sigarg n = n /* shut up compiler warning */ diff --git a/gnu/lib/libf2c/libF77/signal_.c b/gnu/lib/libf2c/libF77/signal_.c deleted file mode 100644 index f67831c3c43..00000000000 --- a/gnu/lib/libf2c/libF77/signal_.c +++ /dev/null @@ -1,11 +0,0 @@ -#include "f2c.h" -#include "signal1.h" - -void * -G77_signal_0 (integer * sigp, sig_pf proc) -{ - int sig; - sig = (int) *sigp; - - return (void *) signal (sig, proc); -} diff --git a/gnu/lib/libf2c/libF77/system_.c b/gnu/lib/libf2c/libF77/system_.c deleted file mode 100644 index dbbd0bea9ec..00000000000 --- a/gnu/lib/libf2c/libF77/system_.c +++ /dev/null @@ -1,28 +0,0 @@ -/* f77 interface to system routine */ - -#include "f2c.h" - -#undef abs -#undef min -#undef max -#include <stdlib.h> -extern char *F77_aloc (ftnlen, char *); - -integer -G77_system_0 (register char *s, ftnlen n) -{ - char buff0[256], *buff; - register char *bp, *blast; - integer rv; - - buff = bp = n < (ftnlen) sizeof (buff0) ? buff0 : F77_aloc (n + 1, "system_"); - blast = bp + n; - - while (bp < blast && *s) - *bp++ = *s++; - *bp = 0; - rv = system (buff); - if (buff != buff0) - free (buff); - return rv; -} diff --git a/gnu/lib/libf2c/libF77/z_abs.c b/gnu/lib/libf2c/libF77/z_abs.c deleted file mode 100644 index 2419c0eac49..00000000000 --- a/gnu/lib/libf2c/libF77/z_abs.c +++ /dev/null @@ -1,8 +0,0 @@ -#include "f2c.h" - -double f__cabs (double, double); -double -z_abs (doublecomplex * z) -{ - return (f__cabs (z->r, z->i)); -} diff --git a/gnu/lib/libf2c/libF77/z_cos.c b/gnu/lib/libf2c/libF77/z_cos.c deleted file mode 100644 index 0f4cd71bd5a..00000000000 --- a/gnu/lib/libf2c/libF77/z_cos.c +++ /dev/null @@ -1,11 +0,0 @@ -#include "f2c.h" - -#undef abs -#include "math.h" -void -z_cos (doublecomplex * r, doublecomplex * z) -{ - double zi = z->i, zr = z->r; - r->r = cos (zr) * cosh (zi); - r->i = -sin (zr) * sinh (zi); -} diff --git a/gnu/lib/libf2c/libF77/z_div.c b/gnu/lib/libf2c/libF77/z_div.c deleted file mode 100644 index a5fc527bdc2..00000000000 --- a/gnu/lib/libf2c/libF77/z_div.c +++ /dev/null @@ -1,41 +0,0 @@ -#include "f2c.h" - -extern void sig_die (char *, int); -void -z_div (doublecomplex * c, doublecomplex * a, doublecomplex * b) -{ - double ratio, den; - double abr, abi, cr; - - if ((abr = b->r) < 0.) - abr = -abr; - if ((abi = b->i) < 0.) - abi = -abi; - if (abr <= abi) - { - if (abi == 0) - { -#ifdef IEEE_COMPLEX_DIVIDE - if (a->i != 0 || a->r != 0) - abi = 1.; - c->i = c->r = abi / abr; - return; -#else - sig_die ("complex division by zero", 1); -#endif - } - ratio = b->r / b->i; - den = b->i * (1 + ratio * ratio); - cr = (a->r * ratio + a->i) / den; - c->i = (a->i * ratio - a->r) / den; - } - - else - { - ratio = b->i / b->r; - den = b->r * (1 + ratio * ratio); - cr = (a->r + a->i * ratio) / den; - c->i = (a->i - a->r * ratio) / den; - } - c->r = cr; -} diff --git a/gnu/lib/libf2c/libF77/z_exp.c b/gnu/lib/libf2c/libF77/z_exp.c deleted file mode 100644 index 16f51e74a45..00000000000 --- a/gnu/lib/libf2c/libF77/z_exp.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#undef abs -#include "math.h" -void -z_exp (doublecomplex * r, doublecomplex * z) -{ - double expx, zi = z->i; - - expx = exp (z->r); - r->r = expx * cos (zi); - r->i = expx * sin (zi); -} diff --git a/gnu/lib/libf2c/libF77/z_log.c b/gnu/lib/libf2c/libF77/z_log.c deleted file mode 100644 index f56b12ed7e3..00000000000 --- a/gnu/lib/libf2c/libF77/z_log.c +++ /dev/null @@ -1,59 +0,0 @@ -#include "f2c.h" - -#undef abs -#include "math.h" -extern double f__cabs (double, double); -void -z_log (doublecomplex * r, doublecomplex * z) -{ - double s, s0, t, t2, u, v; - double zi = z->i, zr = z->r; - - r->i = atan2 (zi, zr); -#ifdef Pre20000310 - r->r = log (f__cabs (zr, zi)); -#else - if (zi < 0) - zi = -zi; - if (zr < 0) - zr = -zr; - if (zr < zi) - { - t = zi; - zi = zr; - zr = t; - } - t = zi / zr; - s = zr * sqrt (1 + t * t); - /* now s = f__cabs(zi,zr), and zr = |zr| >= |zi| = zi */ - if ((t = s - 1) < 0) - t = -t; - if (t > .01) - r->r = log (s); - else - { - -#ifdef Comment - - log (1 + x) = x - x ^ 2 / 2 + x ^ 3 / 3 - x ^ 4 / 4 + -... - = x (1 - x / 2 + x ^ 2 / 3 - +...) - [sqrt (y ^ 2 + z ^ 2) - 1] *[sqrt (y ^ 2 + z ^ 2) + 1] = - y ^ 2 + z ^ 2 - 1, so sqrt (y ^ 2 + z ^ 2) - 1 = - (y ^ 2 + z ^ 2 - 1) /[sqrt (y ^ 2 + z ^ 2) + 1] -#endif /*Comment */ - t = ((zr * zr - 1.) + zi * zi) / (s + 1); - t2 = t * t; - s = 1. - 0.5 * t; - u = v = 1; - do - { - s0 = s; - u *= t2; - v += 2; - s += u / v - t * u / (v + 1); - } - while (s > s0); - r->r = s * t; - } -#endif -} diff --git a/gnu/lib/libf2c/libF77/z_sin.c b/gnu/lib/libf2c/libF77/z_sin.c deleted file mode 100644 index 8cb44cf53ca..00000000000 --- a/gnu/lib/libf2c/libF77/z_sin.c +++ /dev/null @@ -1,11 +0,0 @@ -#include "f2c.h" - -#undef abs -#include "math.h" -void -z_sin (doublecomplex * r, doublecomplex * z) -{ - double zi = z->i, zr = z->r; - r->r = sin (zr) * cosh (zi); - r->i = cos (zr) * sinh (zi); -} diff --git a/gnu/lib/libf2c/libF77/z_sqrt.c b/gnu/lib/libf2c/libF77/z_sqrt.c deleted file mode 100644 index 954c2fa1889..00000000000 --- a/gnu/lib/libf2c/libF77/z_sqrt.c +++ /dev/null @@ -1,25 +0,0 @@ -#include "f2c.h" - -#undef abs -#include "math.h" -extern double f__cabs (double, double); -void -z_sqrt (doublecomplex * r, doublecomplex * z) -{ - double mag, zi = z->i, zr = z->r; - - if ((mag = f__cabs (zr, zi)) == 0.) - r->r = r->i = 0.; - else if (zr > 0) - { - r->r = sqrt (0.5 * (mag + zr)); - r->i = zi / r->r / 2; - } - else - { - r->i = sqrt (0.5 * (mag - zr)); - if (zi < 0) - r->i = -r->i; - r->r = zi / r->i / 2; - } -} diff --git a/gnu/lib/libf2c/libI77/Makefile.in b/gnu/lib/libf2c/libI77/Makefile.in deleted file mode 100644 index d6abf7030a3..00000000000 --- a/gnu/lib/libf2c/libI77/Makefile.in +++ /dev/null @@ -1,169 +0,0 @@ -# Makefile for GNU F77 compiler runtime. -# Copyright 1990 - 1994 by AT&T Bell Laboratories and Bellcore (see the -# file `Notice'). -# Portions of this file Copyright (C) 1995, 1996, 1998, 2001 Free Software Foundation, Inc. -# Contributed by Dave Love (d.love@dl.ac.uk). -# -#This file is part of GNU Fortran. -# -#GNU Fortran is free software; you can redistribute it and/or modify -#it under the terms of the GNU General Public License as published by -#the Free Software Foundation; either version 2, or (at your option) -#any later version. -# -#GNU Fortran is distributed in the hope that it will be useful, -#but WITHOUT ANY WARRANTY; without even the implied warranty of -#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#GNU General Public License for more details. -# -#You should have received a copy of the GNU General Public License -#along with GNU Fortran; see the file COPYING. If not, write to -#the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -#02111-1307, USA. - -#### Start of system configuration section. #### - -# $(srcdir) must be set to the g77 runtime libI77 source directory. -srcdir = @srcdir@ -VPATH = @srcdir@ - -# configure sets this to all the -D options appropriate for the -# configuration. -DEFS = @DEFS@ - -F2C_H_DIR = @srcdir@/.. -G2C_H_DIR = .. -CC = @CC@ -CFLAGS = @CFLAGS@ -CPPFLAGS = @CPPFLAGS@ -@SET_MAKE@ - -SHELL = @SHELL@ - -#### End of system configuration section. #### - -ALL_CFLAGS = -I. -I$(srcdir) -I$(G2C_H_DIR) -I$(F2C_H_DIR) $(CPPFLAGS) \ - $(DEFS) $(WARN_CFLAGS) $(CFLAGS) - -.SUFFIXES: -.SUFFIXES: .c .lo - -.c.lo: - @LIBTOOL@ --mode=compile $(CC) -c -DSkip_f2c_Undefs -DAllow_TYQUAD $(ALL_CFLAGS) $< - -OBJS = VersionI.lo backspace.lo close.lo dfe.lo dolio.lo due.lo endfile.lo err.lo \ - fmt.lo fmtlib.lo iio.lo ilnw.lo inquire.lo lread.lo lwrite.lo open.lo \ - rdfmt.lo rewind.lo rsfe.lo rsli.lo rsne.lo sfe.lo sue.lo typesize.lo uio.lo \ - util.lo wref.lo wrtfmt.lo wsfe.lo wsle.lo wsne.lo xwsne.lo \ - ftell_.lo - -all: ../s-libi77 - -../s-libi77: $(OBJS) - -rm -f $@.T $@ - objs='$(OBJS)'; for name in $$objs; do \ - echo libI77/$${name} >> $@.T; done - mv $@.T $@ - -Makefile: Makefile.in config.status - $(SHELL) config.status - -config.status: configure - rm -f config.cache - CONFIG_SITE=no-such-file CC='$(CC)' CFLAGS='$(CFLAGS)' \ - CPPFLAGS='$(CPPFLAGS)' $(SHELL) config.status --recheck - -${srcdir}/configure: configure.in - rm -f config.cache - cd ${srcdir} && autoconf - -# autoheader might not change config.h.in, so touch a stamp file. -${srcdir}/config.h.in: stamp-h.in; @true -${srcdir}/stamp-h.in: configure.in - (cd ${srcdir} && autoheader) - @rm -f ${srcdir}/stamp-h.in - echo timestamp > ${srcdir}/stamp-h.in - -config.h: stamp-h; @true -stamp-h: config.h.in config.status - CONFIG_FILES= CONFIG_HEADERS=config.h $(SHELL) config.status - echo timestamp > stamp-h - -VersionI.lo: Version.c - @LIBTOOL@ --mode=compile $(CC) -c $(ALL_CFLAGS) $(srcdir)/Version.c -o $@ - -backspace.lo: backspace.c fio.h config.h -close.lo: close.c fio.h config.h -dfe.lo: fio.h config.h -dfe.lo: dfe.c fmt.h -dolio.lo: dolio.c config.h -due.lo: due.c fio.h config.h -endfile.lo: endfile.c fio.h config.h -err.lo: err.c fio.h config.h -fmt.lo: fio.h config.h -fmt.lo: fmt.c fmt.h -fmtlib.lo: fmtlib.c config.h -ftell_.lo: ftell_.c fio.h config.h -iio.lo: fio.h -iio.lo: iio.c fmt.h -ilnw.lo: fio.h config.h -ilnw.lo: ilnw.c lio.h -inquire.lo: inquire.c fio.h config.h -lread.lo: fio.h config.h -lread.lo: fmt.h -lread.lo: lio.h -lread.lo: lread.c fp.h -lwrite.lo: fio.h -lwrite.lo: fmt.h -lwrite.lo: lwrite.c lio.h -open.lo: open.c fio.h config.h -rdfmt.lo: fio.h config.h -rdfmt.lo: fmt.h -rdfmt.lo: rdfmt.c fp.h -rewind.lo: rewind.c fio.h config.h -rsfe.lo: fio.h config.h -rsfe.lo: rsfe.c fmt.h -rsli.lo: fio.h -rsli.lo: rsli.c lio.h -rsne.lo: fio.h config.h -rsne.lo: rsne.c lio.h -sfe.lo: sfe.c fio.h config.h -sue.lo: sue.c fio.h config.h -typesize.lo: typesize.c config.h -uio.lo: uio.c fio.h -util.lo: util.c fio.h config.h -wref.lo: fio.h -wref.lo: fmt.h -wref.lo: wref.c fp.h -wrtfmt.lo: fio.h config.h -wrtfmt.lo: wrtfmt.c fmt.h -wsfe.lo: fio.h config.h -wsfe.lo: wsfe.c fmt.h -wsle.lo: fio.h config.h -wsle.lo: fmt.h -wsle.lo: wsle.c lio.h -wsne.lo: fio.h -wsne.lo: wsne.c lio.h -xwsne.lo: fio.h config.h -xwsne.lo: lio.h -xwsne.lo: xwsne.c fmt.h - -# May be pessimistic: -$(OBJS): $(F2C_H_DIR)/f2c.h $(G2C_H_DIR)/g2c.h - -check install uninstall install-strip dist installcheck installdirs: - -mostlyclean: - rm -f *.o *.lo - rm -rf .libs - -clean: mostlyclean - rm -f config.log ../s-libi77 - -distclean: clean - rm -f config.cache config.status Makefile ../s-libi77 configure - -maintainer-clean: - -.PHONY: mostlyclean clean distclean maintainer-clean all check uninstall \ - install-strip dist installcheck installdirs archive diff --git a/gnu/lib/libf2c/libI77/Notice b/gnu/lib/libf2c/libI77/Notice deleted file mode 100644 index 261b719bc57..00000000000 --- a/gnu/lib/libf2c/libI77/Notice +++ /dev/null @@ -1,23 +0,0 @@ -/**************************************************************** -Copyright 1990 - 1997 by AT&T, Lucent Technologies and Bellcore. - -Permission to use, copy, modify, and distribute this software -and its documentation for any purpose and without fee is hereby -granted, provided that the above copyright notice appear in all -copies and that both that the copyright notice and this -permission notice and warranty disclaimer appear in supporting -documentation, and that the names of AT&T, Bell Laboratories, -Lucent or Bellcore or any of their entities not be used in -advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -AT&T, Lucent and Bellcore disclaim all warranties with regard to -this software, including all implied warranties of -merchantability and fitness. In no event shall AT&T, Lucent or -Bellcore be liable for any special, indirect or consequential -damages or any damages whatsoever resulting from loss of use, -data or profits, whether in an action of contract, negligence or -other tortious action, arising out of or in connection with the -use or performance of this software. -****************************************************************/ - diff --git a/gnu/lib/libf2c/libI77/README.netlib b/gnu/lib/libf2c/libI77/README.netlib deleted file mode 100644 index 30dd5b5223d..00000000000 --- a/gnu/lib/libf2c/libI77/README.netlib +++ /dev/null @@ -1,225 +0,0 @@ -If your compiler does not recognize ANSI C headers, -compile with KR_headers defined: either add -DKR_headers -to the definition of CFLAGS in the makefile, or insert - -#define KR_headers - -at the top of f2c.h and fmtlib.c . - - -If you have a really ancient K&R C compiler that does not understand -void, add -Dvoid=int to the definition of CFLAGS in the makefile. - -If you use a C++ compiler, first create a local f2c.h by appending -f2ch.add to the usual f2c.h, e.g., by issuing the command - make f2c.h -which assumes f2c.h is installed in /usr/include . - -If your system lacks /usr/include/fcntl.h , then you -should simply create an empty fcntl.h in this directory. -If your compiler then complains about creat and open not -having a prototype, compile with OPEN_DECL defined. -On many systems, open and creat are declared in fcntl.h . - -If your system has /usr/include/fcntl.h, you may need to add --D_POSIX_SOURCE to the makefile's definition of CFLAGS. - -If your system's sprintf does not work the way ANSI C -specifies -- specifically, if it does not return the -number of characters transmitted -- then insert the line - -#define USE_STRLEN - -at the end of fmt.h . This is necessary with -at least some versions of Sun and DEC software. -In particular, if you get a warning about an improper -pointer/integer combination in compiling wref.c, then -you need to compile with -DUSE_STRLEN . - -If your system's fopen does not like the ANSI binary -reading and writing modes "rb" and "wb", then you should -compile open.c with NON_ANSI_RW_MODES #defined. - -If you get error messages about references to cf->_ptr -and cf->_base when compiling wrtfmt.c and wsfe.c or to -stderr->_flag when compiling err.c, then insert the line - -#define NON_UNIX_STDIO - -at the beginning of fio.h, and recompile everything (or -at least those modules that contain NON_UNIX_STDIO). - -Unformatted sequential records consist of a length of record -contents, the record contents themselves, and the length of -record contents again (for backspace). Prior to 17 Oct. 1991, -the length was of type int; now it is of type long, but you -can change it back to int by inserting - -#define UIOLEN_int - -at the beginning of fio.h. This affects only sue.c and uio.c . - -On VAX, Cray, or Research Tenth-Edition Unix systems, you may -need to add -DVAX, -DCRAY, or -DV10 (respectively) to CFLAGS -to make fp.h work correctly. Alternatively, you may need to -edit fp.h to suit your machine. - -You may need to supply the following non-ANSI routines: - - fstat(int fileds, struct stat *buf) is similar -to stat(char *name, struct stat *buf), except that -the first argument, fileds, is the file descriptor -returned by open rather than the name of the file. -fstat is used in the system-dependent routine -canseek (in the libI77 source file err.c), which -is supposed to return 1 if it's possible to issue -seeks on the file in question, 0 if it's not; you may -need to suitably modify err.c . On non-UNIX systems, -you can avoid references to fstat and stat by compiling -with NON_UNIX_STDIO defined; in that case, you may need -to supply access(char *Name,0), which is supposed to -return 0 if file Name exists, nonzero otherwise. - - char * mktemp(char *buf) is supposed to replace the -6 trailing X's in buf with a unique number and then -return buf. The idea is to get a unique name for -a temporary file. - -On non-UNIX systems, you may need to change a few other, -e.g.: the form of name computed by mktemp() in endfile.c and -open.c; the use of the open(), close(), and creat() system -calls in endfile.c, err.c, open.c; and the modes in calls on -fopen() and fdopen() (and perhaps the use of fdopen() itself --- it's supposed to return a FILE* corresponding to a given -an integer file descriptor) in err.c and open.c (component ufmt -of struct unit is 1 for formatted I/O -- text mode on some systems --- and 0 for unformatted I/O -- binary mode on some systems). -Compiling with -DNON_UNIX_STDIO omits all references to creat() -and almost all references to open() and close(), the exception -being in the function f__isdev() (in open.c). - -For MS-DOS, compile all of libI77 with -DMSDOS (which implies --DNON_UNIX_STDIO). You may need to make other compiler-dependent -adjustments; for example, for Turbo C++ you need to adjust the mktemp -invocations and to #undef ungetc in lread.c and rsne.c . - -If you want to be able to load against libI77 but not libF77, -then you will need to add sig_die.o (from libF77) to libI77. - -If you wish to use translated Fortran that has funny notions -of record length for direct unformatted I/O (i.e., that assumes -RECL= values in OPEN statements are not bytes but rather counts -of some other units -- e.g., 4-character words for VMS), then you -should insert an appropriate #define for url_Adjust at the -beginning of open.c . For VMS Fortran, for example, -#define url_Adjust(x) x *= 4 -would suffice. - -To check for transmission errors, issue the command - make check -This assumes you have the xsum program whose source, xsum.c, -is distributed as part of "all from f2c/src". If you do not -have xsum, you can obtain xsum.c by sending the following E-mail -message to netlib@netlib.bell-labs.com - send xsum.c from f2c/src - -The makefile assumes you have installed f2c.h in a standard -place (and does not cause recompilation when f2c.h is changed); -f2c.h comes with "all from f2c" (the source for f2c) and is -available separately ("f2c.h from f2c"). - -By default, Fortran I/O units 5, 6, and 0 are pre-connected to -stdin, stdout, and stderr, respectively. You can change this -behavior by changing f_init() in err.c to suit your needs. -Note that f2c assumes READ(*... means READ(5... and WRITE(*... -means WRITE(6... . Moreover, an OPEN(n,... statement that does -not specify a file name (and does not specify STATUS='SCRATCH') -assumes FILE='fort.n' . You can change this by editing open.c -and endfile.c suitably. - -Unless you adjust the "#define MXUNIT" line in fio.h, Fortran units -0, 1, ..., 99 are available, i.e., the highest allowed unit number -is MXUNIT - 1. - -Lines protected from compilation by #ifdef Allow_TYQUAD -are for a possible extension to 64-bit integers in which -integer = int = 32 bits and longint = long = 64 bits. - -Extensions (Feb. 1993) to NAMELIST processing: - 1. Reading a ? instead of &name (the start of a namelist) causes -the namelist being sought to be written to stdout (unit 6); -to omit this feature, compile rsne.c with -DNo_Namelist_Questions. - 2. Reading the wrong namelist name now leads to an error message -and an attempt to skip input until the right namelist name is found; -to omit this feature, compile rsne.c with -DNo_Bad_Namelist_Skip. - 3. Namelist writes now insert newlines before each variable; to omit -this feature, compile xwsne.c with -DNo_Extra_Namelist_Newlines. - 4. (Sept. 1995) When looking for the &name that starts namelist -input, lines whose first non-blank character is something other -than &, $, or ? are treated as comment lines and ignored, unless -rsne.c is compiled with -DNo_Namelist_Comments. - -Nonstandard extension (Feb. 1993) to open: for sequential files, -ACCESS='APPEND' (or access='anything else starting with "A" or "a"') -causes the file to be positioned at end-of-file, so a write will -append to the file. - -Some buggy Fortran programs use unformatted direct I/O to write -an incomplete record and later read more from that record than -they have written. For records other than the last, the unwritten -portion of the record reads as binary zeros. The last record is -a special case: attempting to read more from it than was written -gives end-of-file -- which may help one find a bug. Some other -Fortran I/O libraries treat the last record no differently than -others and thus give no help in finding the bug of reading more -than was written. If you wish to have this behavior, compile -uio.c with -DPad_UDread . - -If you want to be able to catch write failures (e.g., due to a -disk being full) with an ERR= specifier, compile dfe.c, due.c, -sfe.c, sue.c, and wsle.c with -DALWAYS_FLUSH. This will lead to -slower execution and more I/O, but should make ERR= work as -expected, provided fflush returns an error return when its -physical write fails. - -Carriage controls are meant to be interpreted by the UNIX col -program (or a similar program). Sometimes it's convenient to use -only ' ' as the carriage control character (normal single spacing). -If you compile lwrite.c and wsfe.c with -DOMIT_BLANK_CC, formatted -external output lines will have an initial ' ' quietly omitted, -making use of the col program unnecessary with output that only -has ' ' for carriage control. - -The Fortran 77 Standard leaves it up to the implementation whether -formatted writes of floating-point numbers of absolute value < 1 have -a zero before the decimal point. By default, libI77 omits such -superfluous zeros, but you can cause them to appear by compiling -lwrite.c, wref.c, and wrtfmt.c with -DWANT_LEAD_0 . - -If your system lacks a ranlib command, you don't need it. -Either comment out the makefile's ranlib invocation, or install -a harmless "ranlib" command somewhere in your PATH, such as the -one-line shell script - - exit 0 - -or (on some systems) - - exec /usr/bin/ar lts $1 >/dev/null - -Most of the routines in libI77 are support routines for Fortran -I/O. There are a few exceptions, summarized below -- I/O related -functions and subroutines that appear to your program as ordinary -external Fortran routines. - -1. CALL FLUSH flushes all buffers. - -2. FTELL(i) is an INTEGER function that returns the current - offset of Fortran unit i (or -1 if unit i is not open). - -3. CALL FSEEK(i, offset, whence, *errlab) attemps to move - Fortran unit i to the specified offset: absolute offset - if whence = 0; relative to the current offset if whence = 1; - relative to the end of the file if whence = 2. It branches - to label errlab if unit i is not open or if the call - otherwise fails. diff --git a/gnu/lib/libf2c/libI77/Version.c b/gnu/lib/libf2c/libI77/Version.c deleted file mode 100644 index f6b3d5d8a5e..00000000000 --- a/gnu/lib/libf2c/libI77/Version.c +++ /dev/null @@ -1,324 +0,0 @@ -const char __LIBI77_VERSION__[] = "@(#) LIBI77 VERSION pjw,dmg-mods 20001205\n"; - -/* -2.01 $ format added -2.02 Coding bug in open.c repaired -2.03 fixed bugs in lread.c (read * with negative f-format) and lio.c - and lio.h (e-format conforming to spec) -2.04 changed open.c and err.c (fopen and freopen respectively) to - update to new c-library (append mode) -2.05 added namelist capability -2.06 allow internal list and namelist I/O -*/ - -/* -close.c: - allow upper-case STATUS= values -endfile.c - create fort.nnn if unit nnn not open; - else if (file length == 0) use creat() rather than copy; - use local copy() rather than forking /bin/cp; - rewind, fseek to clear buffer (for no reading past EOF) -err.c - use neither setbuf nor setvbuf; make stderr buffered -fio.h - #define _bufend -inquire.c - upper case responses; - omit byfile test from SEQUENTIAL= - answer "YES" to DIRECT= for unopened file (open to debate) -lio.c - flush stderr, stdout at end of each stmt - space before character strings in list output only at line start -lio.h - adjust LEW, LED consistent with old libI77 -lread.c - use atof() - allow "nnn*," when reading complex constants -open.c - try opening for writing when open for read fails, with - special uwrt value (2) delaying creat() to first write; - set curunit so error messages don't drop core; - no file name ==> fort.nnn except for STATUS='SCRATCH' -rdfmt.c - use atof(); trust EOF == end-of-file (so don't read past - end-of-file after endfile stmt) -sfe.c - flush stderr, stdout at end of each stmt -wrtfmt.c: - use upper case - put wrt_E and wrt_F into wref.c, use sprintf() - rather than ecvt() and fcvt() [more accurate on VAX] -*/ - -/* 16 Oct. 1988: uwrt = 3 after write, rewind, so close won't zap the file. */ - -/* 10 July 1989: change _bufend to buf_end in fio.h, wsfe.c, wrtfmt.c */ - -/* 28 Nov. 1989: corrections for IEEE and Cray arithmetic */ -/* 29 Nov. 1989: change various int return types to long for f2c */ -/* 30 Nov. 1989: various types from f2c.h */ -/* 6 Dec. 1989: types corrected various places */ -/* 19 Dec. 1989: make iostat= work right for internal I/O */ -/* 8 Jan. 1990: add rsne, wsne -- routines for handling NAMELIST */ -/* 28 Jan. 1990: have NAMELIST read treat $ as &, general white - space as blank */ -/* 27 Mar. 1990: change an = to == in rd_L(rdfmt.c) so formatted reads - of logical values reject letters other than fFtT; - have nowwriting reset cf */ -/* 14 Aug. 1990: adjust lread.c to treat tabs as spaces in list input */ -/* 17 Aug. 1990: adjust open.c to recognize blank='Z...' as well as - blank='z...' when reopening an open file */ -/* 30 Aug. 1990: prevent embedded blanks in list output of complex values; - omit exponent field in list output of values of - magnitude between 10 and 1e8; prevent writing stdin - and reading stdout or stderr; don't close stdin, stdout, - or stderr when reopening units 5, 6, 0. */ -/* 18 Sep. 1990: add component udev to unit and consider old == new file - iff uinode and udev values agree; use stat rather than - access to check existence of file (when STATUS='OLD')*/ -/* 2 Oct. 1990: adjust rewind.c so two successive rewinds after a write - don't clobber the file. */ -/* 9 Oct. 1990: add #include "fcntl.h" to endfile.c, err.c, open.c; - adjust g_char in util.c for segmented memories. */ -/* 17 Oct. 1990: replace abort() and _cleanup() with calls on - sig_die(...,1) (defined in main.c). */ -/* 5 Nov. 1990: changes to open.c: complain if new= is specified and the - file already exists; allow file= to be omitted in open stmts - and allow status='replace' (Fortran 90 extensions). */ -/* 11 Dec. 1990: adjustments for POSIX. */ -/* 15 Jan. 1991: tweak i_ungetc in rsli.c to allow reading from - strings in read-only memory. */ -/* 25 Apr. 1991: adjust namelist stuff to work with f2c -i2 */ -/* 26 Apr. 1991: fix some bugs with NAMELIST read of multi-dim. arrays */ -/* 16 May 1991: increase LEFBL in lio.h to bypass NeXT bug */ -/* 17 Oct. 1991: change type of length field in sequential unformatted - records from int to long (for systems where sizeof(int) - can vary, depending on the compiler or compiler options). */ -/* 14 Nov. 1991: change uint to Uint in fmt.h, rdfmt.c, wrtfmt.c. */ -/* 25 Nov. 1991: change uint to Uint in lwrite.c; change sizeof(int) to - sizeof(uioint) in fseeks in sue.c (missed on 17 Oct.). */ -/* 1 Dec. 1991: uio.c: add test for read failure (seq. unformatted reads); - adjust an error return from EOF to off end of record */ -/* 12 Dec. 1991: rsli.c: fix bug with internal list input that caused - the last character of each record to be ignored. - iio.c: adjust error message in internal formatted - input from "end-of-file" to "off end of record" if - the format specifies more characters than the - record contains. */ -/* 17 Jan. 1992: lread.c, rsne.c: in list and namelist input, - treat "r* ," and "r*," alike (where r is a - positive integer constant), and fix a bug in - handling null values following items with repeat - counts (e.g., 2*1,,3); for namelist reading - of a numeric array, allow a new name-value subsequence - to terminate the current one (as though the current - one ended with the right number of null values). - lio.h, lwrite.c: omit insignificant zeros in - list and namelist output. To get the old - behavior, compile with -DOld_list_output . */ -/* 18 Jan. 1992: make list output consistent with F format by - printing .1 rather than 0.1 (introduced yesterday). */ -/* 3 Feb. 1992: rsne.c: fix namelist read bug that caused the - character following a comma to be ignored. */ -/* 19 May 1992: adjust iio.c, ilnw.c, rdfmt.c and rsli.c to make err= - work with internal list and formatted I/O. */ -/* 18 July 1992: adjust rsne.c to allow namelist input to stop at - an & (e.g. &end). */ -/* 23 July 1992: switch to ANSI prototypes unless KR_headers is #defined ; - recognize Z format (assuming 8-bit bytes). */ -/* 14 Aug. 1992: tweak wrt_E in wref.c to avoid -NaN */ -/* 23 Oct. 1992: Supply missing l_eof = 0 assignment to s_rsne() in rsne.c - (so end-of-file on other files won't confuse namelist - reads of external files). Prepend f__ to external - names that are only of internal interest to lib[FI]77. */ -/* 1 Feb. 1993: backspace.c: fix bug that bit when last char of 2nd - buffer == '\n'. - endfile.c: guard against tiny L_tmpnam; close and reopen - files in t_runc(). - lio.h: lengthen LINTW (buffer size in lwrite.c). - err.c, open.c: more prepending of f__ (to [rw]_mode). */ -/* 5 Feb. 1993: tweaks to NAMELIST: rsne.c: ? prints the namelist being - sought; namelists of the wrong name are skipped (after - an error message; xwsne.c: namelist writes have a - newline before each new variable. - open.c: ACCESS='APPEND' positions sequential files - at EOF (nonstandard extension -- that doesn't require - changing data structures). */ -/* 9 Feb. 1993: Change some #ifdef MSDOS lines to #ifdef NON_UNIX_STDIO. - err.c: under NON_UNIX_STDIO, avoid close(creat(name,0666)) - when the unit has another file descriptor for name. */ -/* 4 March 1993: err.c, open.c: take declaration of fdopen from rawio.h; - open.c: always give f__w_mode[] 4 elements for use - in t_runc (in endfile.c -- for change of 1 Feb. 1993). */ -/* 6 March 1993: uio.c: adjust off-end-of-record test for sequential - unformatted reads to respond to err= rather than end=. */ -/* 12 March 1993: various tweaks for C++ */ -/* 6 April 1993: adjust error returns for formatted inputs to flush - the current input line when err=label is specified. - To restore the old behavior (input left mid-line), - either adjust the #definition of errfl in fio.h or - omit the invocation of f__doend in err__fl (in err.c). */ -/* 23 June 1993: iio.c: fix bug in format reversions for internal writes. */ -/* 5 Aug. 1993: lread.c: fix bug in handling repetition counts for - logical data (during list or namelist input). - Change struct f__syl to struct syl (for buggy compilers). */ -/* 7 Aug. 1993: lread.c: fix bug in namelist reading of incomplete - logical arrays. */ -/* 9 Aug. 1993: lread.c: fix bug in namelist reading of an incomplete - array of numeric data followed by another namelist - item whose name starts with 'd', 'D', 'e', or 'E'. */ -/* 8 Sept. 1993: open.c: protect #include "sys/..." with - #ifndef NON_UNIX_STDIO; Version date not changed. */ -/* 10 Nov. 1993: backspace.c: add nonsense for #ifdef MSDOS */ -/* 8 Dec. 1993: iio.c: adjust internal formatted reads to treat - short records as though padded with blanks - (rather than causing an "off end of record" error). */ -/* 22 Feb. 1994: lread.c: check that realloc did not return NULL. */ -/* 6 June 1994: Under NON_UNIX_STDIO, use binary mode for direct - formatted files (avoiding any confusion regarding \n). */ -/* 5 July 1994: Fix bug (introduced 6 June 1994?) in reopening files - under NON_UNIX_STDIO. */ -/* 6 July 1994: wref.c: protect with #ifdef GOOD_SPRINTF_EXPONENT an - optimization that requires exponents to have 2 digits - when 2 digits suffice. - lwrite.c wsfe.c (list and formatted external output): - omit ' ' carriage-control when compiled with - -DOMIT_BLANK_CC . Off-by-one bug fixed in character - count for list output of character strings. - Omit '.' in list-directed printing of Nan, Infinity. */ -/* 12 July 1994: wrtfmt.c: under G11.4, write 0. as " .0000 " rather - than " .0000E+00". */ -/* 3 Aug. 1994: lwrite.c: do not insert a newline when appending an - oversize item to an empty line. */ -/* 12 Aug. 1994: rsli.c rsne.c: fix glitch (reset nml_read) that kept - ERR= (in list- or format-directed input) from working - after a NAMELIST READ. */ -/* 7 Sept. 1994: typesize.c: adjust to allow types LOGICAL*1, LOGICAL*2, - INTEGER*1, and (under -DAllow_TYQUAD) INTEGER*8 - in NAMELISTs. */ -/* 6 Oct. 1994: util.c: omit f__mvgbt, as it is never used. */ -/* 2 Nov. 1994: add #ifdef ALWAYS_FLUSH logic. */ -/* 26 Jan. 1995: wref.c: fix glitch in printing the exponent of 0 when - GOOD_SPRINTF_EXPONENT is not #defined. */ -/* 24 Feb. 1995: iio.c: z_getc: insert (unsigned char *) to allow - internal reading of characters with high-bit set - (on machines that sign-extend characters). */ -/* 14 March 1995:lread.c and rsfe.c: adjust s_rsle and s_rsfe to - check for end-of-file (to prevent infinite loops - with empty read statements). */ -/* 26 May 1995: iio.c: z_wnew: fix bug in handling T format items - in internal writes whose last item is written to - an earlier position than some previous item. */ -/* 29 Aug. 1995: backspace.c: adjust MSDOS logic. */ -/* 6 Sept. 1995: Adjust namelist input to treat a subscripted name - whose subscripts do not involve colons similarly - to the name without a subscript: accept several - values, stored in successive elements starting at - the indicated subscript. Adjust namelist output - to quote character strings (avoiding confusion with - arrays of character strings). Adjust f_init calls - for people who don't use libF77's main(); now open and - namelist read statements invoke f_init if needed. */ -/* 7 Sept. 1995: Fix some bugs with -DAllow_TYQUAD (for integer*8). - Add -DNo_Namelist_Comments lines to rsne.c. */ -/* 5 Oct. 1995: wrtfmt.c: fix bug with t editing (f__cursor was not - always zeroed in mv_cur). */ -/* 11 Oct. 1995: move defs of f__hiwater, f__svic, f__icptr from wrtfmt.c - to err.c */ -/* 15 Mar. 1996: lread.c, rsfe.c: honor END= in READ stmt with empty iolist */ - -/* 13 May 1996: add ftell_.c and fseek_.c */ -/* 9 June 1996: Adjust rsli.c and lread.c so internal list input with - too few items in the input string will honor end= . */ -/* 12 Sept. 1995:fmtlib.c: fix glitch in printing the most negative integer. */ -/* 25 Sept. 1995:fmt.h: for formatted writes of negative integer*1 values, - make ic signed on ANSI systems. If formatted writes of - integer*1 values trouble you when using a K&R C compiler, - switch to an ANSI compiler or use a compiler flag that - makes characters signed. */ -/* 9 Dec. 1996: d[fu]e.c, err.c: complain about non-positive rec= - in direct read and write statements. - ftell_.c: change param "unit" to "Unit" for -DKR_headers. */ -/* 26 Feb. 1997: ftell_.c: on systems that define SEEK_SET, etc., use - SEEK_SET, SEEK_CUR, SEEK_END for *whence = 0, 1, 2. */ -/* 7 Apr. 1997: fmt.c: adjust to complain at missing numbers in formats - (but still treat missing ".nnn" as ".0"). */ -/* 11 Apr. 1997: err.c: attempt to make stderr line buffered rather - than fully buffered. (Buffering is needed for format - items T and TR.) */ -/* 27 May 1997: ftell_.c: fix typo (that caused the third argument to be - treated as 2 on some systems). */ -/* 5 Aug. 1997: lread.c: adjust to accord with a change to the Fortran 8X - draft (in 1990 or 1991) that rescinded permission to elide - quote marks in namelist input of character data; compile - with -DF8X_NML_ELIDE_QUOTES to get the old behavior. - wrtfmt.o: wrt_G: tweak to print the right number of 0's - for zero under G format. */ -/* 16 Aug. 1997: iio.c: fix bug in internal writes to an array of character - strings that sometimes caused one more array element than - required by the format to be blank-filled. Example: - format(1x). */ -/* 16 Sept. 1997:fmt.[ch] rdfmt.c wrtfmt.c: tweak struct syl for machines - with 64-bit pointers and 32-bit ints that did not 64-bit - align struct syl (e.g., Linux on the DEC Alpha). */ -/* 19 Jan. 1998: backspace.c: for b->ufmt==0, change sizeof(int) to - sizeof(uiolen). On machines where this would make a - difference, it is best for portability to compile libI77 with - -DUIOLEN_int (which will render the change invisible). */ -/* 4 March 1998: open.c: fix glitch in comparing file names under - -DNON_UNIX_STDIO */ -/* 17 March 1998: endfile.c, open.c: acquire temporary files from tmpfile(), - unless compiled with -DNON_ANSI_STDIO, which uses mktemp(). - New buffering scheme independent of NON_UNIX_STDIO for - handling T format items. Now -DNON_UNIX_STDIO is no - longer be necessary for Linux, and libf2c no longer - causes stderr to be buffered -- the former setbuf or - setvbuf call for stderr was to make T format items work. - open.c: use the Posix access() function to check existence - or nonexistence of files, except under -DNON_POSIX_STDIO, - where trial fopen calls are used. */ -/* 5 April 1998: wsfe.c: make $ format item work: this was lost in the - changes of 17 March 1998. */ -/* 28 May 1998: backspace.c dfe.c due.c iio.c lread.c rsfe.c sue.c wsfe.c: - set f__curunit sooner so various error messages will - correctly identify the I/O unit involved. */ -/* 17 June 1998: lread.c: unless compiled with - ALLOW_FLOAT_IN_INTEGER_LIST_INPUT #defined, treat - floating-point numbers (containing either a decimal point - or an exponent field) as errors when they appear as list - input for integer data. */ -/* 7 Sept. 1998: move e_wdfe from sfe.c to dfe.c, where it was originally. - Why did it ever move to sfe.c? */ -/* 2 May 1999: open.c: set f__external (to get "external" versus "internal" - right in the error message if we cannot open the file). - err.c: cast a pointer difference to (int) for %d. - rdfmt.c: omit fixed-length buffer that could be overwritten - by formats Inn or Lnn with nn > 83. */ -/* 3 May 1999: open.c: insert two casts for machines with 64-bit longs. */ -/* 18 June 1999: backspace.c: allow for b->ufd changing in t_runc */ -/* 27 June 1999: rsne.c: fix bug in namelist input: a misplaced increment */ -/* could cause wrong array elements to be assigned; e.g., */ -/* "&input k(5)=10*1 &end" assigned k(5) and k(15..23) */ -/* 15 Nov. 1999: endfile.c: set state to writing (b->uwrt = 1) when an */ -/* endfile statement requires copying the file. */ -/* (Otherwise an immediately following rewind statement */ -/* could make the file appear empty.) Also, supply a */ -/* missing (long) cast in the sprintf call. */ -/* sfe.c: add #ifdef ALWAYS_FLUSH logic, for formatted I/O: */ -/* Compiling libf2c with -DALWAYS_FLUSH should prevent losing */ -/* any data in buffers should the program fault. It also */ -/* makes the program run more slowly. */ -/* 20 April 2000: rsne.c, xwsne.c: tweaks that only matter if ftnint and */ -/* ftnlen are of different fundamental types (different numbers */ -/* of bits). Since these files will not compile when this */ -/* change matters, the above VERSION string remains unchanged. */ -/* 4 July 2000: adjustments to permit compilation by C++ compilers; */ -/* VERSION string remains unchanged. NOT APPLIED FOR G77 */ -/* 5 Dec. 2000: lread.c: under namelist input, when reading a logical array, */ -/* treat Tstuff= and Fstuff= as new assignments rather than as */ -/* logical constants. */ - -/* Changes for GNU Fortran (g77) version of libf2c: */ - -/* 17 June 1997: detect recursive I/O and call f__fatal explaining it. */ diff --git a/gnu/lib/libf2c/libI77/backspace.c b/gnu/lib/libf2c/libI77/backspace.c deleted file mode 100644 index c31e71147b5..00000000000 --- a/gnu/lib/libf2c/libI77/backspace.c +++ /dev/null @@ -1,81 +0,0 @@ -#include "config.h" -#include <sys/types.h> -#include "f2c.h" -#include "fio.h" -integer -f_back (alist * a) -{ - unit *b; - off_t v, w, x, y, z; - uiolen n; - FILE *f; - - f__curunit = b = &f__units[a->aunit]; /* curunit for error messages */ - if (f__init & 2) - f__fatal (131, "I/O recursion"); - if (a->aunit >= MXUNIT || a->aunit < 0) - err (a->aerr, 101, "backspace"); - if (b->useek == 0) - err (a->aerr, 106, "backspace"); - if (b->ufd == NULL) - { - fk_open (1, 1, a->aunit); - return (0); - } - if (b->uend == 1) - { - b->uend = 0; - return (0); - } - if (b->uwrt) - { - t_runc (a); - if (f__nowreading (b)) - err (a->aerr, errno, "backspace"); - } - f = b->ufd; /* may have changed in t_runc() */ - if (b->url > 0) - { - x = FTELL (f); - y = x % b->url; - if (y == 0) - x--; - x /= b->url; - x *= b->url; - FSEEK (f, x, SEEK_SET); - return (0); - } - - if (b->ufmt == 0) - { - FSEEK (f, -(off_t) sizeof (uiolen), SEEK_CUR); - fread ((char *) &n, sizeof (uiolen), 1, f); - FSEEK (f, -(off_t) n - 2 * sizeof (uiolen), SEEK_CUR); - return (0); - } - w = x = FTELL (f); - z = 0; -loop: - while (x) - { - x -= x < 64 ? x : 64; - FSEEK (f, x, SEEK_SET); - for (y = x; y < w; y++) - { - if (getc (f) != '\n') - continue; - v = FTELL (f); - if (v == w) - { - if (z) - goto break2; - goto loop; - } - z = v; - } - err (a->aerr, (EOF), "backspace"); - } -break2: - FSEEK (f, z, SEEK_SET); - return 0; -} diff --git a/gnu/lib/libf2c/libI77/close.c b/gnu/lib/libf2c/libI77/close.c deleted file mode 100644 index 769c569f8c5..00000000000 --- a/gnu/lib/libf2c/libI77/close.c +++ /dev/null @@ -1,101 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" - -#undef abs -#undef min -#undef max -#include <stdlib.h> -#ifdef NON_UNIX_STDIO -#ifndef unlink -#define unlink remove -#endif -#else -#if defined (MSDOS) && !defined (GO32) -#include "io.h" -#else -extern int unlink (const char *); -#endif -#endif - -integer -f_clos (cllist * a) -{ - unit *b; - - if (f__init & 2) - f__fatal (131, "I/O recursion"); - if (a->cunit >= MXUNIT) - return (0); - b = &f__units[a->cunit]; - if (b->ufd == NULL) - goto done; - if (b->uscrtch == 1) - goto Delete; - if (!a->csta) - goto Keep; - switch (*a->csta) - { - default: - Keep: - case 'k': - case 'K': - if (b->uwrt == 1) - t_runc ((alist *) a); - if (b->ufnm) - { - fclose (b->ufd); - free (b->ufnm); - } - break; - case 'd': - case 'D': - Delete: - fclose (b->ufd); - if (b->ufnm) - { - unlink (b->ufnm); - /*SYSDEP*/ free (b->ufnm); - } - } - b->ufd = NULL; -done: - b->uend = 0; - b->ufnm = NULL; - return (0); -} - -void -f_exit (void) -{ - int i; - static cllist xx; - if (!(f__init & 1)) - return; /* Not initialized, so no open units. */ - /* I/O no longer in progress. If, during an I/O operation (such - as waiting for the user to enter a line), there is an - interrupt (such as ^C to stop the program on a UNIX system), - f_exit() is called, but there is no longer any I/O in - progress. Without turning off this flag, f_clos() would - think that there is an I/O recursion in this circumstance. */ - f__init &= ~2; - if (!xx.cerr) - { - xx.cerr = 1; - xx.csta = NULL; - for (i = 0; i < MXUNIT; i++) - { - xx.cunit = i; - (void) f_clos (&xx); - } - } -} -int -G77_flush_0 (void) -{ - int i; - for (i = 0; i < MXUNIT; i++) - if (f__units[i].ufd != NULL && f__units[i].uwrt) - fflush (f__units[i].ufd); - return 0; -} diff --git a/gnu/lib/libf2c/libI77/config.h.in b/gnu/lib/libf2c/libI77/config.h.in deleted file mode 100644 index 3ae78d198ad..00000000000 --- a/gnu/lib/libf2c/libI77/config.h.in +++ /dev/null @@ -1,62 +0,0 @@ -/* config.h.in. Generated automatically from configure.in by autoheader. */ - -/* Define to empty if the keyword does not work. */ -#undef const - -/* Define to `long' if <sys/types.h> doesn't define. */ -#undef off_t - -/* Define to `unsigned' if <sys/types.h> doesn't define. */ -#undef size_t - -/* Define if you have the ANSI C header files. */ -#undef STDC_HEADERS - -/* Define if you have the fseeko function. */ -#undef HAVE_FSEEKO - -/* Define if you have the ftello function. */ -#undef HAVE_FTELLO - -/* Define if you have the ftruncate function. */ -#undef HAVE_FTRUNCATE - -/* Define if you have the mkstemp function. */ -#undef HAVE_MKSTEMP - -/* Define if you have the tempnam function. */ -#undef HAVE_TEMPNAM - -/* Define if you have the tmpnam function. */ -#undef HAVE_TMPNAM - -/* Get Single Unix Specification semantics */ -#undef _XOPEN_SOURCE - -/* Get Single Unix Specification semantics */ -#undef _XOPEN_SOURCE_EXTENDED - -/* Solaris extensions */ -#undef __EXTENSIONS__ - -/* Get 64-bit file size support */ -#undef _FILE_OFFSET_BITS - -/* Define for HP-UX ftello and fseeko extension. */ -#undef _LARGEFILE_SOURCE - -/* Define if we do not have Unix Stdio. */ -#undef NON_UNIX_STDIO - -/* Define if we use strlen. */ -#undef USE_STRLEN - -/* Define if we have non ANSI RW modes. */ -#undef NON_ANSI_RW_MODES - -/* Always defined. */ -#undef NO_EOF_CHAR_CHECK - -/* Define to skip f2c undefs. */ -#undef Skip_f2c_Undefs - diff --git a/gnu/lib/libf2c/libI77/configure b/gnu/lib/libf2c/libI77/configure deleted file mode 100755 index ee4c73ae433..00000000000 --- a/gnu/lib/libf2c/libI77/configure +++ /dev/null @@ -1,2134 +0,0 @@ -#! /bin/sh - -# Guess values for system-dependent variables and create Makefiles. -# Generated automatically using autoconf version 2.13 -# Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc. -# -# This configure script is free software; the Free Software Foundation -# gives unlimited permission to copy, distribute and modify it. - -# Defaults: -ac_help= -ac_default_prefix=/usr/local -# Any additions from configure.in: - -# Initialize some variables set by options. -# The variables have the same names as the options, with -# dashes changed to underlines. -build=NONE -cache_file=./config.cache -exec_prefix=NONE -host=NONE -no_create= -nonopt=NONE -no_recursion= -prefix=NONE -program_prefix=NONE -program_suffix=NONE -program_transform_name=s,x,x, -silent= -site= -sitefile= -srcdir= -target=NONE -verbose= -x_includes=NONE -x_libraries=NONE -bindir='${exec_prefix}/bin' -sbindir='${exec_prefix}/sbin' -libexecdir='${exec_prefix}/libexec' -datadir='${prefix}/share' -sysconfdir='${prefix}/etc' -sharedstatedir='${prefix}/com' -localstatedir='${prefix}/var' -libdir='${exec_prefix}/lib' -includedir='${prefix}/include' -oldincludedir='/usr/include' -infodir='${prefix}/info' -mandir='${prefix}/man' - -# Initialize some other variables. -subdirs= -MFLAGS= MAKEFLAGS= -SHELL=${CONFIG_SHELL-/bin/sh} -# Maximum number of lines to put in a shell here document. -ac_max_here_lines=12 - -ac_prev= -for ac_option -do - - # If the previous option needs an argument, assign it. - if test -n "$ac_prev"; then - eval "$ac_prev=\$ac_option" - ac_prev= - continue - fi - - case "$ac_option" in - -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;; - *) ac_optarg= ;; - esac - - # Accept the important Cygnus configure options, so we can diagnose typos. - - case "$ac_option" in - - -bindir | --bindir | --bindi | --bind | --bin | --bi) - ac_prev=bindir ;; - -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) - bindir="$ac_optarg" ;; - - -build | --build | --buil | --bui | --bu) - ac_prev=build ;; - -build=* | --build=* | --buil=* | --bui=* | --bu=*) - build="$ac_optarg" ;; - - -cache-file | --cache-file | --cache-fil | --cache-fi \ - | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) - ac_prev=cache_file ;; - -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ - | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) - cache_file="$ac_optarg" ;; - - -datadir | --datadir | --datadi | --datad | --data | --dat | --da) - ac_prev=datadir ;; - -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ - | --da=*) - datadir="$ac_optarg" ;; - - -disable-* | --disable-*) - ac_feature=`echo $ac_option|sed -e 's/-*disable-//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then - { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } - fi - ac_feature=`echo $ac_feature| sed 's/-/_/g'` - eval "enable_${ac_feature}=no" ;; - - -enable-* | --enable-*) - ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then - { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } - fi - ac_feature=`echo $ac_feature| sed 's/-/_/g'` - case "$ac_option" in - *=*) ;; - *) ac_optarg=yes ;; - esac - eval "enable_${ac_feature}='$ac_optarg'" ;; - - -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ - | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ - | --exec | --exe | --ex) - ac_prev=exec_prefix ;; - -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ - | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ - | --exec=* | --exe=* | --ex=*) - exec_prefix="$ac_optarg" ;; - - -gas | --gas | --ga | --g) - # Obsolete; use --with-gas. - with_gas=yes ;; - - -help | --help | --hel | --he) - # Omit some internal or obsolete options to make the list less imposing. - # This message is too long to be a string in the A/UX 3.1 sh. - cat << EOF -Usage: configure [options] [host] -Options: [defaults in brackets after descriptions] -Configuration: - --cache-file=FILE cache test results in FILE - --help print this message - --no-create do not create output files - --quiet, --silent do not print \`checking...' messages - --site-file=FILE use FILE as the site file - --version print the version of autoconf that created configure -Directory and file names: - --prefix=PREFIX install architecture-independent files in PREFIX - [$ac_default_prefix] - --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX - [same as prefix] - --bindir=DIR user executables in DIR [EPREFIX/bin] - --sbindir=DIR system admin executables in DIR [EPREFIX/sbin] - --libexecdir=DIR program executables in DIR [EPREFIX/libexec] - --datadir=DIR read-only architecture-independent data in DIR - [PREFIX/share] - --sysconfdir=DIR read-only single-machine data in DIR [PREFIX/etc] - --sharedstatedir=DIR modifiable architecture-independent data in DIR - [PREFIX/com] - --localstatedir=DIR modifiable single-machine data in DIR [PREFIX/var] - --libdir=DIR object code libraries in DIR [EPREFIX/lib] - --includedir=DIR C header files in DIR [PREFIX/include] - --oldincludedir=DIR C header files for non-gcc in DIR [/usr/include] - --infodir=DIR info documentation in DIR [PREFIX/info] - --mandir=DIR man documentation in DIR [PREFIX/man] - --srcdir=DIR find the sources in DIR [configure dir or ..] - --program-prefix=PREFIX prepend PREFIX to installed program names - --program-suffix=SUFFIX append SUFFIX to installed program names - --program-transform-name=PROGRAM - run sed PROGRAM on installed program names -EOF - cat << EOF -Host type: - --build=BUILD configure for building on BUILD [BUILD=HOST] - --host=HOST configure for HOST [guessed] - --target=TARGET configure for TARGET [TARGET=HOST] -Features and packages: - --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) - --enable-FEATURE[=ARG] include FEATURE [ARG=yes] - --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] - --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) - --x-includes=DIR X include files are in DIR - --x-libraries=DIR X library files are in DIR -EOF - if test -n "$ac_help"; then - echo "--enable and --with options recognized:$ac_help" - fi - exit 0 ;; - - -host | --host | --hos | --ho) - ac_prev=host ;; - -host=* | --host=* | --hos=* | --ho=*) - host="$ac_optarg" ;; - - -includedir | --includedir | --includedi | --included | --include \ - | --includ | --inclu | --incl | --inc) - ac_prev=includedir ;; - -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ - | --includ=* | --inclu=* | --incl=* | --inc=*) - includedir="$ac_optarg" ;; - - -infodir | --infodir | --infodi | --infod | --info | --inf) - ac_prev=infodir ;; - -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) - infodir="$ac_optarg" ;; - - -libdir | --libdir | --libdi | --libd) - ac_prev=libdir ;; - -libdir=* | --libdir=* | --libdi=* | --libd=*) - libdir="$ac_optarg" ;; - - -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ - | --libexe | --libex | --libe) - ac_prev=libexecdir ;; - -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ - | --libexe=* | --libex=* | --libe=*) - libexecdir="$ac_optarg" ;; - - -localstatedir | --localstatedir | --localstatedi | --localstated \ - | --localstate | --localstat | --localsta | --localst \ - | --locals | --local | --loca | --loc | --lo) - ac_prev=localstatedir ;; - -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ - | --localstate=* | --localstat=* | --localsta=* | --localst=* \ - | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) - localstatedir="$ac_optarg" ;; - - -mandir | --mandir | --mandi | --mand | --man | --ma | --m) - ac_prev=mandir ;; - -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) - mandir="$ac_optarg" ;; - - -nfp | --nfp | --nf) - # Obsolete; use --without-fp. - with_fp=no ;; - - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c) - no_create=yes ;; - - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) - no_recursion=yes ;; - - -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ - | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ - | --oldin | --oldi | --old | --ol | --o) - ac_prev=oldincludedir ;; - -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ - | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ - | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) - oldincludedir="$ac_optarg" ;; - - -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) - ac_prev=prefix ;; - -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) - prefix="$ac_optarg" ;; - - -program-prefix | --program-prefix | --program-prefi | --program-pref \ - | --program-pre | --program-pr | --program-p) - ac_prev=program_prefix ;; - -program-prefix=* | --program-prefix=* | --program-prefi=* \ - | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) - program_prefix="$ac_optarg" ;; - - -program-suffix | --program-suffix | --program-suffi | --program-suff \ - | --program-suf | --program-su | --program-s) - ac_prev=program_suffix ;; - -program-suffix=* | --program-suffix=* | --program-suffi=* \ - | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) - program_suffix="$ac_optarg" ;; - - -program-transform-name | --program-transform-name \ - | --program-transform-nam | --program-transform-na \ - | --program-transform-n | --program-transform- \ - | --program-transform | --program-transfor \ - | --program-transfo | --program-transf \ - | --program-trans | --program-tran \ - | --progr-tra | --program-tr | --program-t) - ac_prev=program_transform_name ;; - -program-transform-name=* | --program-transform-name=* \ - | --program-transform-nam=* | --program-transform-na=* \ - | --program-transform-n=* | --program-transform-=* \ - | --program-transform=* | --program-transfor=* \ - | --program-transfo=* | --program-transf=* \ - | --program-trans=* | --program-tran=* \ - | --progr-tra=* | --program-tr=* | --program-t=*) - program_transform_name="$ac_optarg" ;; - - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil) - silent=yes ;; - - -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) - ac_prev=sbindir ;; - -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ - | --sbi=* | --sb=*) - sbindir="$ac_optarg" ;; - - -sharedstatedir | --sharedstatedir | --sharedstatedi \ - | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ - | --sharedst | --shareds | --shared | --share | --shar \ - | --sha | --sh) - ac_prev=sharedstatedir ;; - -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ - | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ - | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ - | --sha=* | --sh=*) - sharedstatedir="$ac_optarg" ;; - - -site | --site | --sit) - ac_prev=site ;; - -site=* | --site=* | --sit=*) - site="$ac_optarg" ;; - - -site-file | --site-file | --site-fil | --site-fi | --site-f) - ac_prev=sitefile ;; - -site-file=* | --site-file=* | --site-fil=* | --site-fi=* | --site-f=*) - sitefile="$ac_optarg" ;; - - -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) - ac_prev=srcdir ;; - -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) - srcdir="$ac_optarg" ;; - - -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ - | --syscon | --sysco | --sysc | --sys | --sy) - ac_prev=sysconfdir ;; - -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ - | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) - sysconfdir="$ac_optarg" ;; - - -target | --target | --targe | --targ | --tar | --ta | --t) - ac_prev=target ;; - -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) - target="$ac_optarg" ;; - - -v | -verbose | --verbose | --verbos | --verbo | --verb) - verbose=yes ;; - - -version | --version | --versio | --versi | --vers) - echo "configure generated by autoconf version 2.13" - exit 0 ;; - - -with-* | --with-*) - ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then - { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } - fi - ac_package=`echo $ac_package| sed 's/-/_/g'` - case "$ac_option" in - *=*) ;; - *) ac_optarg=yes ;; - esac - eval "with_${ac_package}='$ac_optarg'" ;; - - -without-* | --without-*) - ac_package=`echo $ac_option|sed -e 's/-*without-//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then - { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } - fi - ac_package=`echo $ac_package| sed 's/-/_/g'` - eval "with_${ac_package}=no" ;; - - --x) - # Obsolete; use --with-x. - with_x=yes ;; - - -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ - | --x-incl | --x-inc | --x-in | --x-i) - ac_prev=x_includes ;; - -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ - | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) - x_includes="$ac_optarg" ;; - - -x-libraries | --x-libraries | --x-librarie | --x-librari \ - | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) - ac_prev=x_libraries ;; - -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ - | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) - x_libraries="$ac_optarg" ;; - - -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; } - ;; - - *) - if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then - echo "configure: warning: $ac_option: invalid host type" 1>&2 - fi - if test "x$nonopt" != xNONE; then - { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } - fi - nonopt="$ac_option" - ;; - - esac -done - -if test -n "$ac_prev"; then - { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; } -fi - -trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 - -# File descriptor usage: -# 0 standard input -# 1 file creation -# 2 errors and warnings -# 3 some systems may open it to /dev/tty -# 4 used on the Kubota Titan -# 6 checking for... messages and results -# 5 compiler messages saved in config.log -if test "$silent" = yes; then - exec 6>/dev/null -else - exec 6>&1 -fi -exec 5>./config.log - -echo "\ -This file contains any messages produced by compilers while -running configure, to aid debugging if configure makes a mistake. -" 1>&5 - -# Strip out --no-create and --no-recursion so they do not pile up. -# Also quote any args containing shell metacharacters. -ac_configure_args= -for ac_arg -do - case "$ac_arg" in - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c) ;; - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;; - *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*) - ac_configure_args="$ac_configure_args '$ac_arg'" ;; - *) ac_configure_args="$ac_configure_args $ac_arg" ;; - esac -done - -# NLS nuisances. -# Only set these to C if already set. These must not be set unconditionally -# because not all systems understand e.g. LANG=C (notably SCO). -# Fixing LC_MESSAGES prevents Solaris sh from translating var values in `set'! -# Non-C LC_CTYPE values break the ctype check. -if test "${LANG+set}" = set; then LANG=C; export LANG; fi -if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi -if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi -if test "${LC_CTYPE+set}" = set; then LC_CTYPE=C; export LC_CTYPE; fi - -# confdefs.h avoids OS command line length limits that DEFS can exceed. -rm -rf conftest* confdefs.h -# AIX cpp loses on an empty file, so make sure it contains at least a newline. -echo > confdefs.h - -# A filename unique to this package, relative to the directory that -# configure is in, which we can look for to find out if srcdir is correct. -ac_unique_file=ftell_.c - -# Find the source files, if location was not specified. -if test -z "$srcdir"; then - ac_srcdir_defaulted=yes - # Try the directory containing this script, then its parent. - ac_prog=$0 - ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'` - test "x$ac_confdir" = "x$ac_prog" && ac_confdir=. - srcdir=$ac_confdir - if test ! -r $srcdir/$ac_unique_file; then - srcdir=.. - fi -else - ac_srcdir_defaulted=no -fi -if test ! -r $srcdir/$ac_unique_file; then - if test "$ac_srcdir_defaulted" = yes; then - { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; } - else - { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; } - fi -fi -srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'` - -# Prefer explicitly selected file to automatically selected ones. -if test -z "$sitefile"; then - if test -z "$CONFIG_SITE"; then - if test "x$prefix" != xNONE; then - CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" - else - CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" - fi - fi -else - CONFIG_SITE="$sitefile" -fi -for ac_site_file in $CONFIG_SITE; do - if test -r "$ac_site_file"; then - echo "loading site script $ac_site_file" - . "$ac_site_file" - fi -done - -if test -r "$cache_file"; then - echo "loading cache $cache_file" - . $cache_file -else - echo "creating cache $cache_file" - > $cache_file -fi - -ac_ext=c -# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. -ac_cpp='$CPP $CPPFLAGS' -ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' -ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -cross_compiling=$ac_cv_prog_cc_cross - -ac_exeext= -ac_objext=o -if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then - # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu. - if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then - ac_n= ac_c=' -' ac_t=' ' - else - ac_n=-n ac_c= ac_t= - fi -else - ac_n= ac_c='\c' ac_t= -fi - - - - - - -# For g77 we'll set CC to point at the built gcc, but this will get it into -# the makefiles -# Extract the first word of "gcc", so it can be a program name with args. -set dummy gcc; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:545: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_CC="gcc" - break - fi - done - IFS="$ac_save_ifs" -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - -if test -z "$CC"; then - # Extract the first word of "cc", so it can be a program name with args. -set dummy cc; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:575: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_prog_rejected=no - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - if test "$ac_dir/$ac_word" = "/usr/ucb/cc"; then - ac_prog_rejected=yes - continue - fi - ac_cv_prog_CC="cc" - break - fi - done - IFS="$ac_save_ifs" -if test $ac_prog_rejected = yes; then - # We found a bogon in the path, so make sure we never use it. - set dummy $ac_cv_prog_CC - shift - if test $# -gt 0; then - # We chose a different compiler from the bogus one. - # However, it has the same basename, so the bogon will be chosen - # first if we set CC to just the basename; use the full file name. - shift - set dummy "$ac_dir/$ac_word" "$@" - shift - ac_cv_prog_CC="$@" - fi -fi -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - - if test -z "$CC"; then - case "`uname -s`" in - *win32* | *WIN32*) - # Extract the first word of "cl", so it can be a program name with args. -set dummy cl; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:626: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_CC="cl" - break - fi - done - IFS="$ac_save_ifs" -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - ;; - esac - fi - test -z "$CC" && { echo "configure: error: no acceptable cc found in \$PATH" 1>&2; exit 1; } -fi - - -echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6 -echo "configure:659: checking whether we are using GNU C" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.c <<EOF -#ifdef __GNUC__ - yes; -#endif -EOF -if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:668: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then - ac_cv_prog_gcc=yes -else - ac_cv_prog_gcc=no -fi -fi - -echo "$ac_t""$ac_cv_prog_gcc" 1>&6 - -if test $ac_cv_prog_gcc = yes; then - GCC=yes -else - GCC= -fi - -ac_test_CFLAGS="${CFLAGS+set}" -ac_save_CFLAGS="$CFLAGS" -CFLAGS= -echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6 -echo "configure:687: checking whether ${CC-cc} accepts -g" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - echo 'void f(){}' > conftest.c -if test -z "`${CC-cc} -g -c conftest.c 2>&1`"; then - ac_cv_prog_cc_g=yes -else - ac_cv_prog_cc_g=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$ac_cv_prog_cc_g" 1>&6 -if test "$ac_test_CFLAGS" = set; then - CFLAGS="$ac_save_CFLAGS" -elif test $ac_cv_prog_cc_g = yes; then - if test "$GCC" = yes; then - CFLAGS="-g -O2" - else - CFLAGS="-g" - fi -else - if test "$GCC" = yes; then - CFLAGS="-O2" - else - CFLAGS= - fi -fi - - -# These defines are necessary to get 64-bit file size support. -# NetBSD 1.4 header files does not support XOPEN_SOURCE == 600, but it -# handles 64-bit file sizes without needing these defines. -echo $ac_n "checking whether _XOPEN_SOURCE may be defined""... $ac_c" 1>&6 -echo "configure:723: checking whether _XOPEN_SOURCE may be defined" >&5 -cat > conftest.$ac_ext <<EOF -#line 725 "configure" -#include "confdefs.h" -#define _XOPEN_SOURCE 600L -#include <unistd.h> -int main() { - -; return 0; } -EOF -if { (eval echo configure:733: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - may_use_xopen_source=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - may_use_xopen_source=no -fi -rm -f conftest* -echo "$ac_t""$may_use_xopen_source" 1>&6 -if test $may_use_xopen_source = yes; then - cat >> confdefs.h <<\EOF -#define _XOPEN_SOURCE 600L -EOF - - # The following is needed by irix6.2 so that struct timeval is declared. - cat >> confdefs.h <<\EOF -#define _XOPEN_SOURCE_EXTENDED 1 -EOF - - # The following is needed by Solaris2.5.1 so that struct timeval is declared. - cat >> confdefs.h <<\EOF -#define __EXTENSIONS__ 1 -EOF - - cat >> confdefs.h <<\EOF -#define _FILE_OFFSET_BITS 64 -EOF - - cat >> confdefs.h <<\EOF -#define _LARGEFILE_SOURCE 1 -EOF - -fi - - -LIBTOOL='$(SHELL) ../libtool' - - -test "$AR" || AR=ar - -echo $ac_n "checking whether ${MAKE-make} sets \${MAKE}""... $ac_c" 1>&6 -echo "configure:776: checking whether ${MAKE-make} sets \${MAKE}" >&5 -set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y%./+-%__p_%'` -if eval "test \"`echo '$''{'ac_cv_prog_make_${ac_make}_set'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftestmake <<\EOF -all: - @echo 'ac_maketemp="${MAKE}"' -EOF -# GNU make sometimes prints "make[1]: Entering...", which would confuse us. -eval `${MAKE-make} -f conftestmake 2>/dev/null | grep temp=` -if test -n "$ac_maketemp"; then - eval ac_cv_prog_make_${ac_make}_set=yes -else - eval ac_cv_prog_make_${ac_make}_set=no -fi -rm -f conftestmake -fi -if eval "test \"`echo '$ac_cv_prog_make_'${ac_make}_set`\" = yes"; then - echo "$ac_t""yes" 1>&6 - SET_MAKE= -else - echo "$ac_t""no" 1>&6 - SET_MAKE="MAKE=${MAKE-make}" -fi - - - -# Sanity check for the cross-compilation case: -echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6 -echo "configure:806: checking how to run the C preprocessor" >&5 -# On Suns, sometimes $CPP names a directory. -if test -n "$CPP" && test -d "$CPP"; then - CPP= -fi -if test -z "$CPP"; then -if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - # This must be in double quotes, not single quotes, because CPP may get - # substituted into the Makefile and "${CC-cc}" will confuse make. - CPP="${CC-cc} -E" - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. - cat > conftest.$ac_ext <<EOF -#line 821 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:827: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP="${CC-cc} -E -traditional-cpp" - cat > conftest.$ac_ext <<EOF -#line 838 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:844: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP="${CC-cc} -nologo -E" - cat > conftest.$ac_ext <<EOF -#line 855 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:861: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP=/lib/cpp -fi -rm -f conftest* -fi -rm -f conftest* -fi -rm -f conftest* - ac_cv_prog_CPP="$CPP" -fi - CPP="$ac_cv_prog_CPP" -else - ac_cv_prog_CPP="$CPP" -fi -echo "$ac_t""$CPP" 1>&6 - -ac_safe=`echo "stdio.h" | sed 'y%./+-%__p_%'` -echo $ac_n "checking for stdio.h""... $ac_c" 1>&6 -echo "configure:887: checking for stdio.h" >&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 892 "configure" -#include "confdefs.h" -#include <stdio.h> -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:897: \"$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* - eval "ac_cv_header_$ac_safe=yes" -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_header_$ac_safe=no" -fi -rm -f conftest* -fi -if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then - echo "$ac_t""yes" 1>&6 - : -else - echo "$ac_t""no" 1>&6 -{ echo "configure: error: Can't find stdio.h. -You must have a usable C system for the target already installed, at least -including headers and, preferably, the library, before you can configure -the G77 runtime system. If necessary, install gcc now with \`LANGUAGES=c', -then the target library, then build with \`LANGUAGES=f77'." 1>&2; exit 1; } -fi - - -echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6 -echo "configure:925: checking for ANSI C header files" >&5 -if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 930 "configure" -#include "confdefs.h" -#include <stdlib.h> -#include <stdarg.h> -#include <string.h> -#include <float.h> -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:938: \"$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* - ac_cv_header_stdc=yes -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -if test $ac_cv_header_stdc = yes; then - # SunOS 4.x string.h does not declare mem*, contrary to ANSI. -cat > conftest.$ac_ext <<EOF -#line 955 "configure" -#include "confdefs.h" -#include <string.h> -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "memchr" >/dev/null 2>&1; then - : -else - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. -cat > conftest.$ac_ext <<EOF -#line 973 "configure" -#include "confdefs.h" -#include <stdlib.h> -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "free" >/dev/null 2>&1; then - : -else - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. -if test "$cross_compiling" = yes; then - : -else - cat > conftest.$ac_ext <<EOF -#line 994 "configure" -#include "confdefs.h" -#include <ctype.h> -#define ISLOWER(c) ('a' <= (c) && (c) <= 'z') -#define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) -#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) -int main () { int i; for (i = 0; i < 256; i++) -if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2); -exit (0); } - -EOF -if { (eval echo configure:1005: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null -then - : -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -fr conftest* - ac_cv_header_stdc=no -fi -rm -fr conftest* -fi - -fi -fi - -echo "$ac_t""$ac_cv_header_stdc" 1>&6 -if test $ac_cv_header_stdc = yes; then - cat >> confdefs.h <<\EOF -#define STDC_HEADERS 1 -EOF - -fi - -echo $ac_n "checking for posix""... $ac_c" 1>&6 -echo "configure:1029: checking for posix" >&5 -if eval "test \"`echo '$''{'g77_cv_header_posix'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1034 "configure" -#include "confdefs.h" -#include <sys/types.h> -#include <unistd.h> -#ifdef _POSIX_VERSION - yes -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "yes" >/dev/null 2>&1; then - rm -rf conftest* - g77_cv_header_posix=yes -else - rm -rf conftest* - g77_cv_header_posix=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$g77_cv_header_posix" 1>&6 - -# We can rely on the GNU library being posix-ish. I guess checking the -# header isn't actually like checking the functions, though... -echo $ac_n "checking for GNU library""... $ac_c" 1>&6 -echo "configure:1060: checking for GNU library" >&5 -if eval "test \"`echo '$''{'g77_cv_lib_gnu'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1065 "configure" -#include "confdefs.h" -#include <stdio.h> -#ifdef __GNU_LIBRARY__ - yes -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "yes" >/dev/null 2>&1; then - rm -rf conftest* - g77_cv_lib_gnu=yes -else - rm -rf conftest* - g77_cv_lib_gnu=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$g77_cv_lib_gnu" 1>&6 - -# Apparently cygwin needs to be special-cased. -echo $ac_n "checking for cyg\`win'32""... $ac_c" 1>&6 -echo "configure:1089: checking for cyg\`win'32" >&5 -if eval "test \"`echo '$''{'g77_cv_sys_cygwin32'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1094 "configure" -#include "confdefs.h" -#ifdef __CYGWIN32__ - yes -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "yes" >/dev/null 2>&1; then - rm -rf conftest* - g77_cv_sys_cygwin32=yes -else - rm -rf conftest* - g77_cv_sys_cygwin32=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$g77_cv_sys_cygwin32" 1>&6 - -# ditto for mingw32. -echo $ac_n "checking for mingw32""... $ac_c" 1>&6 -echo "configure:1117: checking for mingw32" >&5 -if eval "test \"`echo '$''{'g77_cv_sys_mingw32'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1122 "configure" -#include "confdefs.h" -#ifdef __MINGW32__ - yes -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "yes" >/dev/null 2>&1; then - rm -rf conftest* - g77_cv_sys_mingw32=yes -else - rm -rf conftest* - g77_cv_sys_mingw32=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$g77_cv_sys_mingw32" 1>&6 - - -echo $ac_n "checking for working const""... $ac_c" 1>&6 -echo "configure:1145: 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 1150 "configure" -#include "confdefs.h" - -int main() { - -/* Ultrix mips cc rejects this. */ -typedef int charset[2]; const charset x; -/* SunOS 4.1.1 cc rejects this. */ -char const *const *ccp; -char **p; -/* NEC SVR4.0.2 mips cc rejects this. */ -struct point {int x, y;}; -static struct point const zero = {0,0}; -/* AIX XL C 1.02.0.0 rejects this. - It does not let you subtract one const X* pointer from another in an arm - of an if-expression whose if-part is not a constant expression */ -const char *g = "string"; -ccp = &g + (g ? g-g : 0); -/* HPUX 7.0 cc rejects these. */ -++ccp; -p = (char**) ccp; -ccp = (char const *const *) p; -{ /* SCO 3.2v4 cc rejects this. */ - char *t; - char const *s = 0 ? (char *) 0 : (char const *) 0; - - *t++ = 0; -} -{ /* Someone thinks the Sun supposedly-ANSI compiler will reject this. */ - int x[] = {25, 17}; - const int *foo = &x[0]; - ++foo; -} -{ /* Sun SC1.0 ANSI compiler rejects this -- but not the above. */ - typedef const int *iptr; - iptr p = 0; - ++p; -} -{ /* AIX XL C 1.02.0.0 rejects this saying - "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */ - struct s { int j; const int *ap[3]; }; - struct s *b; b->j = 5; -} -{ /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */ - const int foo = 10; -} - -; return 0; } -EOF -if { (eval echo configure:1199: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_c_const=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_c_const=no -fi -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_c_const" 1>&6 -if test $ac_cv_c_const = no; then - cat >> confdefs.h <<\EOF -#define const -EOF - -fi - -echo $ac_n "checking for size_t""... $ac_c" 1>&6 -echo "configure:1220: 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 1225 "configure" -#include "confdefs.h" -#include <sys/types.h> -#if STDC_HEADERS -#include <stdlib.h> -#include <stddef.h> -#endif -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "(^|[^a-zA-Z_0-9])size_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then - rm -rf conftest* - ac_cv_type_size_t=yes -else - rm -rf conftest* - ac_cv_type_size_t=no -fi -rm -f conftest* - -fi -echo "$ac_t""$ac_cv_type_size_t" 1>&6 -if test $ac_cv_type_size_t = no; then - cat >> confdefs.h <<\EOF -#define size_t unsigned -EOF - -fi - - - -# This should always succeed on unix. -# Apparently positive result on cygwin loses re. NON_UNIX_STDIO -# (as of cygwin b18). Likewise on mingw. -echo $ac_n "checking for fstat""... $ac_c" 1>&6 -echo "configure:1258: checking for fstat" >&5 -if eval "test \"`echo '$''{'ac_cv_func_fstat'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1263 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char fstat(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char fstat(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_fstat) || defined (__stub___fstat) -choke me -#else -fstat(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1286: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - rm -rf conftest* - eval "ac_cv_func_fstat=yes" -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_fstat=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'fstat`\" = yes"; then - echo "$ac_t""yes" 1>&6 - : -else - echo "$ac_t""no" 1>&6 -fi - -echo $ac_n "checking need for NON_UNIX_STDIO""... $ac_c" 1>&6 -echo "configure:1306: checking need for NON_UNIX_STDIO" >&5 -if test $g77_cv_sys_cygwin32 = yes \ - || test $g77_cv_sys_mingw32 = yes \ - || test $ac_cv_func_fstat = no; then - echo "$ac_t""yes" 1>&6 - cat >> confdefs.h <<\EOF -#define NON_UNIX_STDIO 1 -EOF - -else - echo "$ac_t""no" 1>&6 -fi - -for ac_func in fseeko -do -echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 -echo "configure:1322: 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 1327 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $ac_func(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char $ac_func(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_$ac_func) || defined (__stub___$ac_func) -choke me -#else -$ac_func(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1350: \"$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 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_$ac_func=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then - echo "$ac_t""yes" 1>&6 - ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'` - cat >> confdefs.h <<EOF -#define $ac_tr_func 1 -EOF - -else - echo "$ac_t""no" 1>&6 -fi -done - -for ac_func in ftello -do -echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 -echo "configure:1377: 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 1382 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $ac_func(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char $ac_func(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_$ac_func) || defined (__stub___$ac_func) -choke me -#else -$ac_func(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1405: \"$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 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_$ac_func=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then - echo "$ac_t""yes" 1>&6 - ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'` - cat >> confdefs.h <<EOF -#define $ac_tr_func 1 -EOF - -else - echo "$ac_t""no" 1>&6 -fi -done - -for ac_func in ftruncate -do -echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 -echo "configure:1432: 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 1437 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $ac_func(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char $ac_func(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_$ac_func) || defined (__stub___$ac_func) -choke me -#else -$ac_func(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1460: \"$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 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_$ac_func=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then - echo "$ac_t""yes" 1>&6 - ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'` - cat >> confdefs.h <<EOF -#define $ac_tr_func 1 -EOF - -else - echo "$ac_t""no" 1>&6 -fi -done - -for ac_func in mkstemp -do -echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 -echo "configure:1487: 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 1492 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $ac_func(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char $ac_func(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_$ac_func) || defined (__stub___$ac_func) -choke me -#else -$ac_func(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1515: \"$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 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_$ac_func=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then - echo "$ac_t""yes" 1>&6 - ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'` - cat >> confdefs.h <<EOF -#define $ac_tr_func 1 -EOF - -else - echo "$ac_t""no" 1>&6 -fi -done - -for ac_func in tempnam -do -echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 -echo "configure:1542: 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 1547 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $ac_func(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char $ac_func(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_$ac_func) || defined (__stub___$ac_func) -choke me -#else -$ac_func(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1570: \"$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 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_$ac_func=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then - echo "$ac_t""yes" 1>&6 - ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'` - cat >> confdefs.h <<EOF -#define $ac_tr_func 1 -EOF - -else - echo "$ac_t""no" 1>&6 -fi -done - -for ac_func in tmpnam -do -echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 -echo "configure:1597: 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 1602 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $ac_func(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char $ac_func(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_$ac_func) || defined (__stub___$ac_func) -choke me -#else -$ac_func(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1625: \"$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 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_$ac_func=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then - echo "$ac_t""yes" 1>&6 - ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'` - cat >> confdefs.h <<EOF -#define $ac_tr_func 1 -EOF - -else - echo "$ac_t""no" 1>&6 -fi -done - - -# posix will guarantee the right behaviour for sprintf, else we can't be -# sure; HEADER_STDC wouldn't be the right check in sunos4, for instance. -# However, on my sunos4/gcc setup unistd.h leads us wrongly to believe -# we're posix-conformant, so always do the test. -echo $ac_n "checking for ansi/posix sprintf result""... $ac_c" 1>&6 -echo "configure:1655: checking for ansi/posix sprintf result" >&5 -if test "$cross_compiling" = yes; then - g77_cv_sys_sprintf_ansi=no -else - cat > conftest.$ac_ext <<EOF -#line 1660 "configure" -#include "confdefs.h" - #include <stdio.h> - /* does sprintf return the number of chars transferred? */ - main () {char foo[2]; (sprintf(foo, "1") == 1) ? exit(0) : exit(1);} - -EOF -if { (eval echo configure:1667: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null -then - g77_cv_sys_sprintf_ansi=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -fr conftest* - g77_cv_sys_sprintf_ansi=no -fi -rm -fr conftest* -fi - -if eval "test \"`echo '$''{'g77_cv_sys_sprintf_ansi'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - g77_cv_sys_sprintf_ansi=$g77_cv_sys_sprintf_ansi -fi - -echo "$ac_t""$g77_cv_sys_sprintf_ansi" 1>&6 - -# The cygwin patch takes steps to avoid defining USE_STRLEN here -- I don't -# understand why. -if test $g77_cv_sys_sprintf_ansi != yes; then - cat >> confdefs.h <<\EOF -#define USE_STRLEN 1 -EOF - -fi - -# define NON_ANSI_RW_MODES on unix (can't hurt) -echo $ac_n "checking NON_ANSI_RW_MODES""... $ac_c" 1>&6 -echo "configure:1698: checking NON_ANSI_RW_MODES" >&5 -cat > conftest.$ac_ext <<EOF -#line 1700 "configure" -#include "confdefs.h" -#ifdef unix - yes -#endif -#ifdef __unix - yes -#endif -#ifdef __unix__ - yes -#endif - -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "yes" >/dev/null 2>&1; then - rm -rf conftest* - is_unix=yes -else - rm -rf conftest* - is_unix=no -fi -rm -f conftest* - -# NON_ANSI_RW_MODES shouldn't be necessary on cygwin for binary mounts. -if test $g77_cv_sys_cygwin32 = yes || test $g77_cv_sys_mingw32 = yes; then - echo "$ac_t""no" 1>&6 -else - if test $is_unix = yes; then - cat >> confdefs.h <<\EOF -#define NON_ANSI_RW_MODES 1 -EOF - - echo "$ac_t""yes" 1>&6 - else - echo "$ac_t""no" 1>&6 - fi -fi - -# This EOF_CHAR is a misfeature on unix. -cat >> confdefs.h <<\EOF -#define NO_EOF_CHAR_CHECK 1 -EOF - - -echo $ac_n "checking for off_t""... $ac_c" 1>&6 -echo "configure:1745: checking for off_t" >&5 -if eval "test \"`echo '$''{'ac_cv_type_off_t'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1750 "configure" -#include "confdefs.h" -#include <sys/types.h> -#if STDC_HEADERS -#include <stdlib.h> -#include <stddef.h> -#endif -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "(^|[^a-zA-Z_0-9])off_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then - rm -rf conftest* - ac_cv_type_off_t=yes -else - rm -rf conftest* - ac_cv_type_off_t=no -fi -rm -f conftest* - -fi -echo "$ac_t""$ac_cv_type_off_t" 1>&6 -if test $ac_cv_type_off_t = no; then - cat >> confdefs.h <<\EOF -#define off_t long -EOF - -fi - - -cat >> confdefs.h <<\EOF -#define Skip_f2c_Undefs 1 -EOF - - -trap '' 1 2 15 -cat > confcache <<\EOF -# This file is a shell script that caches the results of configure -# tests run on this system so they can be shared between configure -# scripts and configure runs. It is not useful on other systems. -# If it contains results you don't want to keep, you may remove or edit it. -# -# By default, configure uses ./config.cache as the cache file, -# creating it if it does not exist already. You can give configure -# the --cache-file=FILE option to use a different cache file; that is -# what configure does when it calls configure scripts in -# subdirectories, so they share the cache. -# Giving --cache-file=/dev/null disables caching, for debugging configure. -# config.status only pays attention to the cache file if you give it the -# --recheck option to rerun configure. -# -EOF -# The following way of writing the cache mishandles newlines in values, -# but we know of no workaround that is simple, portable, and efficient. -# So, don't put newlines in cache variables' values. -# Ultrix sh set writes to stderr and can't be redirected directly, -# and sets the high bit in the cache file unless we assign to the vars. -(set) 2>&1 | - case `(ac_space=' '; set | grep ac_space) 2>&1` in - *ac_space=\ *) - # `set' does not quote correctly, so add quotes (double-quote substitution - # turns \\\\ into \\, and sed turns \\ into \). - sed -n \ - -e "s/'/'\\\\''/g" \ - -e "s/^\\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\\)=\\(.*\\)/\\1=\${\\1='\\2'}/p" - ;; - *) - # `set' quotes correctly as required by POSIX, so do not add quotes. - sed -n -e 's/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=${\1=\2}/p' - ;; - esac >> confcache -if cmp -s $cache_file confcache; then - : -else - if test -w $cache_file; then - echo "updating cache $cache_file" - cat confcache > $cache_file - else - echo "not updating unwritable cache $cache_file" - fi -fi -rm -f confcache - -trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 - -test "x$prefix" = xNONE && prefix=$ac_default_prefix -# Let make expand exec_prefix. -test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' - -# Any assignment to VPATH causes Sun make to only execute -# the first set of double-colon rules, so remove it if not needed. -# If there is a colon in the path, we need to keep it. -if test "x$srcdir" = x.; then - ac_vpsub='/^[ ]*VPATH[ ]*=[^:]*$/d' -fi - -trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15 - -DEFS=-DHAVE_CONFIG_H - -# Without the "./", some shells look in PATH for config.status. -: ${CONFIG_STATUS=./config.status} - -echo creating $CONFIG_STATUS -rm -f $CONFIG_STATUS -cat > $CONFIG_STATUS <<EOF -#! /bin/sh -# Generated automatically by configure. -# Run this file to recreate the current configuration. -# This directory was configured as follows, -# on host `(hostname || uname -n) 2>/dev/null | sed 1q`: -# -# $0 $ac_configure_args -# -# Compiler output produced by configure, useful for debugging -# configure, is in ./config.log if it exists. - -ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]" -for ac_option -do - case "\$ac_option" in - -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) - echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion" - exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;; - -version | --version | --versio | --versi | --vers | --ver | --ve | --v) - echo "$CONFIG_STATUS generated by autoconf version 2.13" - exit 0 ;; - -help | --help | --hel | --he | --h) - echo "\$ac_cs_usage"; exit 0 ;; - *) echo "\$ac_cs_usage"; exit 1 ;; - esac -done - -ac_given_srcdir=$srcdir - -trap 'rm -fr `echo "Makefile config.h" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15 -EOF -cat >> $CONFIG_STATUS <<EOF - -# Protect against being on the right side of a sed subst in config.status. -sed 's/%@/@@/; s/@%/@@/; s/%g\$/@g/; /@g\$/s/[\\\\&%]/\\\\&/g; - s/@@/%@/; s/@@/@%/; s/@g\$/%g/' > conftest.subs <<\\CEOF -$ac_vpsub -$extrasub -s%@SHELL@%$SHELL%g -s%@CFLAGS@%$CFLAGS%g -s%@CPPFLAGS@%$CPPFLAGS%g -s%@CXXFLAGS@%$CXXFLAGS%g -s%@FFLAGS@%$FFLAGS%g -s%@DEFS@%$DEFS%g -s%@LDFLAGS@%$LDFLAGS%g -s%@LIBS@%$LIBS%g -s%@exec_prefix@%$exec_prefix%g -s%@prefix@%$prefix%g -s%@program_transform_name@%$program_transform_name%g -s%@bindir@%$bindir%g -s%@sbindir@%$sbindir%g -s%@libexecdir@%$libexecdir%g -s%@datadir@%$datadir%g -s%@sysconfdir@%$sysconfdir%g -s%@sharedstatedir@%$sharedstatedir%g -s%@localstatedir@%$localstatedir%g -s%@libdir@%$libdir%g -s%@includedir@%$includedir%g -s%@oldincludedir@%$oldincludedir%g -s%@infodir@%$infodir%g -s%@mandir@%$mandir%g -s%@CC@%$CC%g -s%@LIBTOOL@%$LIBTOOL%g -s%@AR@%$AR%g -s%@SET_MAKE@%$SET_MAKE%g -s%@CPP@%$CPP%g - -CEOF -EOF - -cat >> $CONFIG_STATUS <<\EOF - -# Split the substitutions into bite-sized pieces for seds with -# small command number limits, like on Digital OSF/1 and HP-UX. -ac_max_sed_cmds=90 # Maximum number of lines to put in a sed script. -ac_file=1 # Number of current file. -ac_beg=1 # First line for current file. -ac_end=$ac_max_sed_cmds # Line after last line for current file. -ac_more_lines=: -ac_sed_cmds="" -while $ac_more_lines; do - if test $ac_beg -gt 1; then - sed "1,${ac_beg}d; ${ac_end}q" conftest.subs > conftest.s$ac_file - else - sed "${ac_end}q" conftest.subs > conftest.s$ac_file - fi - if test ! -s conftest.s$ac_file; then - ac_more_lines=false - rm -f conftest.s$ac_file - else - if test -z "$ac_sed_cmds"; then - ac_sed_cmds="sed -f conftest.s$ac_file" - else - ac_sed_cmds="$ac_sed_cmds | sed -f conftest.s$ac_file" - fi - ac_file=`expr $ac_file + 1` - ac_beg=$ac_end - ac_end=`expr $ac_end + $ac_max_sed_cmds` - fi -done -if test -z "$ac_sed_cmds"; then - ac_sed_cmds=cat -fi -EOF - -cat >> $CONFIG_STATUS <<EOF - -CONFIG_FILES=\${CONFIG_FILES-"Makefile"} -EOF -cat >> $CONFIG_STATUS <<\EOF -for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then - # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". - case "$ac_file" in - *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` - ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; - *) ac_file_in="${ac_file}.in" ;; - esac - - # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories. - - # Remove last slash and all that follows it. Not all systems have dirname. - ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` - if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then - # The file is in a subdirectory. - test ! -d "$ac_dir" && mkdir "$ac_dir" - ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`" - # A "../" for each directory in $ac_dir_suffix. - ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'` - else - ac_dir_suffix= ac_dots= - fi - - case "$ac_given_srcdir" in - .) srcdir=. - if test -z "$ac_dots"; then top_srcdir=. - else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;; - /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;; - *) # Relative path. - srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix" - top_srcdir="$ac_dots$ac_given_srcdir" ;; - esac - - - echo creating "$ac_file" - rm -f "$ac_file" - configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure." - case "$ac_file" in - *Makefile*) ac_comsub="1i\\ -# $configure_input" ;; - *) ac_comsub= ;; - esac - - ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` - sed -e "$ac_comsub -s%@configure_input@%$configure_input%g -s%@srcdir@%$srcdir%g -s%@top_srcdir@%$top_srcdir%g -" $ac_file_inputs | (eval "$ac_sed_cmds") > $ac_file -fi; done -rm -f conftest.s* - -# These sed commands are passed to sed as "A NAME B NAME C VALUE D", where -# NAME is the cpp macro being defined and VALUE is the value it is being given. -# -# ac_d sets the value in "#define NAME VALUE" lines. -ac_dA='s%^\([ ]*\)#\([ ]*define[ ][ ]*\)' -ac_dB='\([ ][ ]*\)[^ ]*%\1#\2' -ac_dC='\3' -ac_dD='%g' -# ac_u turns "#undef NAME" with trailing blanks into "#define NAME VALUE". -ac_uA='s%^\([ ]*\)#\([ ]*\)undef\([ ][ ]*\)' -ac_uB='\([ ]\)%\1#\2define\3' -ac_uC=' ' -ac_uD='\4%g' -# ac_e turns "#undef NAME" without trailing blanks into "#define NAME VALUE". -ac_eA='s%^\([ ]*\)#\([ ]*\)undef\([ ][ ]*\)' -ac_eB='$%\1#\2define\3' -ac_eC=' ' -ac_eD='%g' - -if test "${CONFIG_HEADERS+set}" != set; then -EOF -cat >> $CONFIG_STATUS <<EOF - CONFIG_HEADERS="config.h" -EOF -cat >> $CONFIG_STATUS <<\EOF -fi -for ac_file in .. $CONFIG_HEADERS; do if test "x$ac_file" != x..; then - # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". - case "$ac_file" in - *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` - ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; - *) ac_file_in="${ac_file}.in" ;; - esac - - echo creating $ac_file - - rm -f conftest.frag conftest.in conftest.out - ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` - cat $ac_file_inputs > conftest.in - -EOF - -# Transform confdefs.h into a sed script conftest.vals that substitutes -# the proper values into config.h.in to produce config.h. And first: -# Protect against being on the right side of a sed subst in config.status. -# Protect against being in an unquoted here document in config.status. -rm -f conftest.vals -cat > conftest.hdr <<\EOF -s/[\\&%]/\\&/g -s%[\\$`]%\\&%g -s%#define \([A-Za-z_][A-Za-z0-9_]*\) *\(.*\)%${ac_dA}\1${ac_dB}\1${ac_dC}\2${ac_dD}%gp -s%ac_d%ac_u%gp -s%ac_u%ac_e%gp -EOF -sed -n -f conftest.hdr confdefs.h > conftest.vals -rm -f conftest.hdr - -# This sed command replaces #undef with comments. This is necessary, for -# example, in the case of _POSIX_SOURCE, which is predefined and required -# on some systems where configure will not decide to define it. -cat >> conftest.vals <<\EOF -s%^[ ]*#[ ]*undef[ ][ ]*[a-zA-Z_][a-zA-Z_0-9]*%/* & */% -EOF - -# Break up conftest.vals because some shells have a limit on -# the size of here documents, and old seds have small limits too. - -rm -f conftest.tail -while : -do - ac_lines=`grep -c . conftest.vals` - # grep -c gives empty output for an empty file on some AIX systems. - if test -z "$ac_lines" || test "$ac_lines" -eq 0; then break; fi - # Write a limited-size here document to conftest.frag. - echo ' cat > conftest.frag <<CEOF' >> $CONFIG_STATUS - sed ${ac_max_here_lines}q conftest.vals >> $CONFIG_STATUS - echo 'CEOF - sed -f conftest.frag conftest.in > conftest.out - rm -f conftest.in - mv conftest.out conftest.in -' >> $CONFIG_STATUS - sed 1,${ac_max_here_lines}d conftest.vals > conftest.tail - rm -f conftest.vals - mv conftest.tail conftest.vals -done -rm -f conftest.vals - -cat >> $CONFIG_STATUS <<\EOF - rm -f conftest.frag conftest.h - echo "/* $ac_file. Generated automatically by configure. */" > conftest.h - cat conftest.in >> conftest.h - rm -f conftest.in - if cmp -s $ac_file conftest.h 2>/dev/null; then - echo "$ac_file is unchanged" - rm -f conftest.h - else - # Remove last slash and all that follows it. Not all systems have dirname. - ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` - if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then - # The file is in a subdirectory. - test ! -d "$ac_dir" && mkdir "$ac_dir" - fi - rm -f $ac_file - mv conftest.h $ac_file - fi -fi; done - -EOF -cat >> $CONFIG_STATUS <<EOF - -EOF -cat >> $CONFIG_STATUS <<\EOF - -exit 0 -EOF -chmod +x $CONFIG_STATUS -rm -fr confdefs* $ac_clean_files -test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1 - - - diff --git a/gnu/lib/libf2c/libI77/configure.in b/gnu/lib/libf2c/libI77/configure.in deleted file mode 100644 index 83f98fbbabd..00000000000 --- a/gnu/lib/libf2c/libI77/configure.in +++ /dev/null @@ -1,222 +0,0 @@ -# Process this file with autoconf to produce a configure script. -# Copyright (C) 1995, 1997, 1998, 2001, 2002 Free Software Foundation, Inc. -# Contributed by Dave Love (d.love@dl.ac.uk). -# -#This file is part of GNU Fortran. -# -#GNU Fortran is free software; you can redistribute it and/or modify -#it under the terms of the GNU General Public License as published by -#the Free Software Foundation; either version 2, or (at your option) -#any later version. -# -#GNU Fortran is distributed in the hope that it will be useful, -#but WITHOUT ANY WARRANTY; without even the implied warranty of -#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#GNU General Public License for more details. -# -#You should have received a copy of the GNU General Public License -#along with GNU Fortran; see the file COPYING. If not, write to -#the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -#02111-1307, USA. - -AC_PREREQ(2.12.1) -AC_INIT(ftell_.c) -AC_CONFIG_HEADER(config.h) - -dnl FIXME AC_PROG_CC wants CC to be able to link things, but it may -dnl not be able to. -define([AC_PROG_CC_WORKS],[]) - -# For g77 we'll set CC to point at the built gcc, but this will get it into -# the makefiles -AC_PROG_CC - -# These defines are necessary to get 64-bit file size support. -# NetBSD 1.4 header files does not support XOPEN_SOURCE == 600, but it -# handles 64-bit file sizes without needing these defines. -AC_MSG_CHECKING(whether _XOPEN_SOURCE may be defined) -AC_TRY_COMPILE([#define _XOPEN_SOURCE 600L -#include <unistd.h>],, -may_use_xopen_source=yes, -may_use_xopen_source=no) -AC_MSG_RESULT($may_use_xopen_source) -if test $may_use_xopen_source = yes; then - AC_DEFINE(_XOPEN_SOURCE, 600L, [Get Single Unix Specification semantics]) - # The following is needed by irix6.2 so that struct timeval is declared. - AC_DEFINE(_XOPEN_SOURCE_EXTENDED, 1, [Get Single Unix Specification semantics]) - # The following is needed by Solaris2.5.1 so that struct timeval is declared. - AC_DEFINE(__EXTENSIONS__, 1, [Solaris extensions]) - AC_DEFINE(_FILE_OFFSET_BITS, 64, [Get 64-bit file size support]) - AC_DEFINE(_LARGEFILE_SOURCE, 1, [Define for HP-UX ftello and fseeko extension.]) -fi - -dnl Checks for programs. - -LIBTOOL='$(SHELL) ../libtool' -AC_SUBST(LIBTOOL) - -test "$AR" || AR=ar -AC_SUBST(AR) -AC_PROG_MAKE_SET - -dnl Checks for libraries. - -dnl Checks for header files. -# Sanity check for the cross-compilation case: -AC_CHECK_HEADER(stdio.h,:, - [AC_MSG_ERROR([Can't find stdio.h. -You must have a usable C system for the target already installed, at least -including headers and, preferably, the library, before you can configure -the G77 runtime system. If necessary, install gcc now with \`LANGUAGES=c', -then the target library, then build with \`LANGUAGES=f77'.])]) - -AC_HEADER_STDC -AC_MSG_CHECKING(for posix) -AC_CACHE_VAL(g77_cv_header_posix, - AC_EGREP_CPP(yes, - [#include <sys/types.h> -#include <unistd.h> -#ifdef _POSIX_VERSION - yes -#endif -], - g77_cv_header_posix=yes, - g77_cv_header_posix=no)) -AC_MSG_RESULT($g77_cv_header_posix) - -# We can rely on the GNU library being posix-ish. I guess checking the -# header isn't actually like checking the functions, though... -AC_MSG_CHECKING(for GNU library) -AC_CACHE_VAL(g77_cv_lib_gnu, - AC_EGREP_CPP(yes, - [#include <stdio.h> -#ifdef __GNU_LIBRARY__ - yes -#endif -], - g77_cv_lib_gnu=yes, g77_cv_lib_gnu=no)) -AC_MSG_RESULT($g77_cv_lib_gnu) - -# Apparently cygwin needs to be special-cased. -AC_MSG_CHECKING([for cyg\`win'32]) -AC_CACHE_VAL(g77_cv_sys_cygwin32, - AC_EGREP_CPP(yes, - [#ifdef __CYGWIN32__ - yes -#endif -], - g77_cv_sys_cygwin32=yes, - g77_cv_sys_cygwin32=no)) -AC_MSG_RESULT($g77_cv_sys_cygwin32) - -# ditto for mingw32. -AC_MSG_CHECKING([for mingw32]) -AC_CACHE_VAL(g77_cv_sys_mingw32, - AC_EGREP_CPP(yes, - [#ifdef __MINGW32__ - yes -#endif -], - g77_cv_sys_mingw32=yes, - g77_cv_sys_mingw32=no)) -AC_MSG_RESULT($g77_cv_sys_mingw32) - - -dnl Checks for typedefs, structures, and compiler characteristics. -AC_C_CONST -AC_TYPE_SIZE_T - -dnl Checks for library functions. - -# This should always succeed on unix. -# Apparently positive result on cygwin loses re. NON_UNIX_STDIO -# (as of cygwin b18). Likewise on mingw. -AC_CHECK_FUNC(fstat) -AC_MSG_CHECKING([need for NON_UNIX_STDIO]) -if test $g77_cv_sys_cygwin32 = yes \ - || test $g77_cv_sys_mingw32 = yes \ - || test $ac_cv_func_fstat = no; then - AC_MSG_RESULT(yes) - AC_DEFINE(NON_UNIX_STDIO, 1, [Define if we do not have Unix Stdio.]) -else - AC_MSG_RESULT(no) -fi - -AC_CHECK_FUNCS(fseeko) -AC_CHECK_FUNCS(ftello) -AC_CHECK_FUNCS(ftruncate) -AC_CHECK_FUNCS(mkstemp) -AC_CHECK_FUNCS(tempnam) -AC_CHECK_FUNCS(tmpnam) - -# posix will guarantee the right behaviour for sprintf, else we can't be -# sure; HEADER_STDC wouldn't be the right check in sunos4, for instance. -# However, on my sunos4/gcc setup unistd.h leads us wrongly to believe -# we're posix-conformant, so always do the test. -AC_MSG_CHECKING(for ansi/posix sprintf result) -dnl This loses if included as an argument to AC_CACHE_VAL because the -dnl changequote doesn't take effect and the [] vanish. -dnl fixme: use cached value -AC_TRY_RUN(changequote(<<, >>)dnl - <<#include <stdio.h> - /* does sprintf return the number of chars transferred? */ - main () {char foo[2]; (sprintf(foo, "1") == 1) ? exit(0) : exit(1);} ->>changequote([, ]), - g77_cv_sys_sprintf_ansi=yes, - g77_cv_sys_sprintf_ansi=no, - g77_cv_sys_sprintf_ansi=no) -AC_CACHE_VAL(g77_cv_sys_sprintf_ansi, - g77_cv_sys_sprintf_ansi=$g77_cv_sys_sprintf_ansi) -dnl We get a misleading `(cached)' message... -AC_MSG_RESULT($g77_cv_sys_sprintf_ansi) - -# The cygwin patch takes steps to avoid defining USE_STRLEN here -- I don't -# understand why. -if test $g77_cv_sys_sprintf_ansi != yes; then - AC_DEFINE(USE_STRLEN, 1, [Define if we use strlen.]) -fi - -# define NON_ANSI_RW_MODES on unix (can't hurt) -AC_MSG_CHECKING(NON_ANSI_RW_MODES) -AC_EGREP_CPP(yes, -[#ifdef unix - yes -#endif -#ifdef __unix - yes -#endif -#ifdef __unix__ - yes -#endif -], is_unix=yes, is_unix=no) -# NON_ANSI_RW_MODES shouldn't be necessary on cygwin for binary mounts. -if test $g77_cv_sys_cygwin32 = yes || test $g77_cv_sys_mingw32 = yes; then - AC_MSG_RESULT(no) -else - if test $is_unix = yes; then - AC_DEFINE(NON_ANSI_RW_MODES, 1, [Define if we have non ANSI RW modes.]) - AC_MSG_RESULT(yes) - else - AC_MSG_RESULT(no) - fi -fi - -# This EOF_CHAR is a misfeature on unix. -AC_DEFINE(NO_EOF_CHAR_CHECK, 1, [Always defined.]) - -AC_TYPE_OFF_T - -AC_DEFINE(Skip_f2c_Undefs, 1, [Define to skip f2c undefs.]) - -AC_OUTPUT(Makefile) - -dnl We might have configuration options to: -dnl * change unit preconnexion in err.c (f_init.c) -dnl * -DALWAYS_FLUSH -dnl * -DOMIT_BLANK_CC - -dnl Local Variables: -dnl comment-start: "dnl " -dnl comment-end: "" -dnl comment-start-skip: "\\bdnl\\b\\s *" -dnl End: diff --git a/gnu/lib/libf2c/libI77/dfe.c b/gnu/lib/libf2c/libI77/dfe.c deleted file mode 100644 index 5ce0b4cd661..00000000000 --- a/gnu/lib/libf2c/libI77/dfe.c +++ /dev/null @@ -1,156 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" -#include "fmt.h" - -int -y_rsk (void) -{ - if (f__curunit->uend || f__curunit->url <= f__recpos - || f__curunit->url == 1) - return 0; - do - { - getc (f__cf); - } - while (++f__recpos < f__curunit->url); - return 0; -} - -int -y_getc (void) -{ - int ch; - if (f__curunit->uend) - return (-1); - if ((ch = getc (f__cf)) != EOF) - { - f__recpos++; - if (f__curunit->url >= f__recpos || f__curunit->url == 1) - return (ch); - else - return (' '); - } - if (feof (f__cf)) - { - f__curunit->uend = 1; - errno = 0; - return (-1); - } - err (f__elist->cierr, errno, "readingd"); -} - -static int -y_rev (void) -{ - if (f__recpos < f__hiwater) - f__recpos = f__hiwater; - if (f__curunit->url > 1) - while (f__recpos < f__curunit->url) - (*f__putn) (' '); - if (f__recpos) - f__putbuf (0); - f__recpos = 0; - return (0); -} - -static int -y_err (void) -{ - err (f__elist->cierr, 110, "dfe"); -} - -static int -y_newrec (void) -{ - y_rev (); - f__hiwater = f__cursor = 0; - return (1); -} - -int -c_dfe (cilist * a) -{ - f__sequential = 0; - f__formatted = f__external = 1; - f__elist = a; - f__cursor = f__scale = f__recpos = 0; - f__curunit = &f__units[a->ciunit]; - if (a->ciunit > MXUNIT || a->ciunit < 0) - err (a->cierr, 101, "startchk"); - if (f__curunit->ufd == NULL && fk_open (DIR, FMT, a->ciunit)) - err (a->cierr, 104, "dfe"); - f__cf = f__curunit->ufd; - if (!f__curunit->ufmt) - err (a->cierr, 102, "dfe"); - if (!f__curunit->useek) - err (a->cierr, 104, "dfe"); - f__fmtbuf = a->cifmt; - if (a->cirec <= 0) - err (a->cierr, 130, "dfe"); - FSEEK (f__cf, (off_t) f__curunit->url * (a->cirec - 1), SEEK_SET); - f__curunit->uend = 0; - return (0); -} - -integer -s_rdfe (cilist * a) -{ - int n; - if (f__init != 1) - f_init (); - f__init = 3; - f__reading = 1; - if ((n = c_dfe (a))) - return (n); - if (f__curunit->uwrt && f__nowreading (f__curunit)) - err (a->cierr, errno, "read start"); - f__getn = y_getc; - f__doed = rd_ed; - f__doned = rd_ned; - f__dorevert = f__donewrec = y_err; - f__doend = y_rsk; - if (pars_f (f__fmtbuf) < 0) - err (a->cierr, 100, "read start"); - fmt_bg (); - return (0); -} - -integer -s_wdfe (cilist * a) -{ - int n; - if (f__init != 1) - f_init (); - f__init = 3; - f__reading = 0; - if ((n = c_dfe (a))) - return (n); - if (f__curunit->uwrt != 1 && f__nowwriting (f__curunit)) - err (a->cierr, errno, "startwrt"); - f__putn = x_putc; - f__doed = w_ed; - f__doned = w_ned; - f__dorevert = y_err; - f__donewrec = y_newrec; - f__doend = y_rev; - if (pars_f (f__fmtbuf) < 0) - err (a->cierr, 100, "startwrt"); - fmt_bg (); - return (0); -} - -integer -e_rdfe (void) -{ - f__init = 1; - en_fio (); - return (0); -} - -integer -e_wdfe (void) -{ - f__init = 1; - return en_fio (); -} diff --git a/gnu/lib/libf2c/libI77/dolio.c b/gnu/lib/libf2c/libI77/dolio.c deleted file mode 100644 index e50e9005317..00000000000 --- a/gnu/lib/libf2c/libI77/dolio.c +++ /dev/null @@ -1,10 +0,0 @@ -#include "config.h" -#include "f2c.h" - -extern int (*f__lioproc) (ftnint *, char *, ftnlen, ftnint); - -integer -do_lio (ftnint * type, ftnint * number, char *ptr, ftnlen len) -{ - return ((*f__lioproc) (number, ptr, len, *type)); -} diff --git a/gnu/lib/libf2c/libI77/due.c b/gnu/lib/libf2c/libI77/due.c deleted file mode 100644 index 7c6a801e0f9..00000000000 --- a/gnu/lib/libf2c/libI77/due.c +++ /dev/null @@ -1,80 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" - -int -c_due (cilist * a) -{ - if (f__init != 1) - f_init (); - f__init = 3; - if (a->ciunit >= MXUNIT || a->ciunit < 0) - err (a->cierr, 101, "startio"); - f__sequential = f__formatted = f__recpos = 0; - f__external = 1; - f__curunit = &f__units[a->ciunit]; - if (a->ciunit >= MXUNIT || a->ciunit < 0) - err (a->cierr, 101, "startio"); - f__elist = a; - if (f__curunit->ufd == NULL && fk_open (DIR, UNF, a->ciunit)) - err (a->cierr, 104, "due"); - f__cf = f__curunit->ufd; - if (f__curunit->ufmt) - err (a->cierr, 102, "cdue"); - if (!f__curunit->useek) - err (a->cierr, 104, "cdue"); - if (f__curunit->ufd == NULL) - err (a->cierr, 114, "cdue"); - if (a->cirec <= 0) - err (a->cierr, 130, "due"); - FSEEK (f__cf, (off_t) (a->cirec - 1) * f__curunit->url, SEEK_SET); - f__curunit->uend = 0; - return (0); -} - -integer -s_rdue (cilist * a) -{ - int n; - f__reading = 1; - if ((n = c_due (a))) - return (n); - if (f__curunit->uwrt && f__nowreading (f__curunit)) - err (a->cierr, errno, "read start"); - return (0); -} - -integer -s_wdue (cilist * a) -{ - int n; - f__reading = 0; - if ((n = c_due (a))) - return (n); - if (f__curunit->uwrt != 1 && f__nowwriting (f__curunit)) - err (a->cierr, errno, "write start"); - return (0); -} - -integer -e_rdue (void) -{ - f__init = 1; - if (f__curunit->url == 1 || f__recpos == f__curunit->url) - return (0); - FSEEK (f__cf, (off_t) (f__curunit->url - f__recpos), SEEK_CUR); - if (FTELL (f__cf) % f__curunit->url) - err (f__elist->cierr, 200, "syserr"); - return (0); -} - -integer -e_wdue (void) -{ - f__init = 1; -#ifdef ALWAYS_FLUSH - if (fflush (f__cf)) - err (f__elist->cierr, errno, "write end"); -#endif - return (e_rdue ()); -} diff --git a/gnu/lib/libf2c/libI77/endfile.c b/gnu/lib/libf2c/libI77/endfile.c deleted file mode 100644 index 513f2107ef7..00000000000 --- a/gnu/lib/libf2c/libI77/endfile.c +++ /dev/null @@ -1,130 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" - -#include <sys/types.h> -#include <unistd.h> - -#undef abs -#undef min -#undef max -#include <stdlib.h> -#include <string.h> - -extern char *f__r_mode[], *f__w_mode[]; - -integer -f_end (alist * a) -{ - unit *b; - FILE *tf; - - if (f__init & 2) - f__fatal (131, "I/O recursion"); - if (a->aunit >= MXUNIT || a->aunit < 0) - err (a->aerr, 101, "endfile"); - b = &f__units[a->aunit]; - if (b->ufd == NULL) - { - char nbuf[10]; - sprintf (nbuf, "fort.%ld", (long) a->aunit); - if ((tf = fopen (nbuf, f__w_mode[0]))) - fclose (tf); - return (0); - } - b->uend = 1; - return (b->useek ? t_runc (a) : 0); -} - -#ifndef HAVE_FTRUNCATE -static int -copy (FILE * from, register long len, FILE * to) -{ - int len1; - char buf[BUFSIZ]; - - while (fread (buf, len1 = len > BUFSIZ ? BUFSIZ : (int) len, 1, from)) - { - if (!fwrite (buf, len1, 1, to)) - return 1; - if ((len -= len1) <= 0) - break; - } - return 0; -} -#endif /* !defined(HAVE_FTRUNCATE) */ - -int -t_runc (alist * a) -{ - off_t loc, len; - unit *b; - int rc; - FILE *bf; -#ifndef HAVE_FTRUNCATE - FILE *tf; -#endif /* !defined(HAVE_FTRUNCATE) */ - - b = &f__units[a->aunit]; - if (b->url) - return (0); /*don't truncate direct files */ - loc = FTELL (bf = b->ufd); - FSEEK (bf, 0, SEEK_END); - len = FTELL (bf); - if (loc >= len || b->useek == 0 || b->ufnm == NULL) - return (0); -#ifndef HAVE_FTRUNCATE - rc = 0; - fclose (b->ufd); - if (!loc) - { - if (!(bf = fopen (b->ufnm, f__w_mode[b->ufmt]))) - rc = 1; - if (b->uwrt) - b->uwrt = 1; - goto done; - } - if (!(bf = fopen (b->ufnm, f__r_mode[0])) || !(tf = tmpfile ())) - { -#ifdef NON_UNIX_STDIO - bad: -#endif - rc = 1; - goto done; - } - if (copy (bf, loc, tf)) - { - bad1: - rc = 1; - goto done1; - } - if (!(bf = freopen (b->ufnm, f__w_mode[0], bf))) - goto bad1; - FSEEK (tf, 0, SEEK_SET); - if (copy (tf, loc, bf)) - goto bad1; - b->uwrt = 1; - b->urw = 2; -#ifdef NON_UNIX_STDIO - if (b->ufmt) - { - fclose (bf); - if (!(bf = fopen (b->ufnm, f__w_mode[3]))) - goto bad; - FSEEK (bf, 0, SEEK_END); - b->urw = 3; - } -#endif -done1: - fclose (tf); -done: - f__cf = b->ufd = bf; -#else /* !defined(HAVE_FTRUNCATE) */ - fflush (b->ufd); - rc = ftruncate (fileno (b->ufd), loc); - FSEEK (bf, loc, SEEK_SET); -#endif /* !defined(HAVE_FTRUNCATE) */ - if (rc) - err (a->aerr, 111, "endfile"); - return 0; -} diff --git a/gnu/lib/libf2c/libI77/err.c b/gnu/lib/libf2c/libI77/err.c deleted file mode 100644 index 1a204e820bc..00000000000 --- a/gnu/lib/libf2c/libI77/err.c +++ /dev/null @@ -1,279 +0,0 @@ -#include "config.h" -#ifndef NON_UNIX_STDIO -#define _INCLUDE_POSIX_SOURCE /* for HP-UX */ -#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */ -#include <sys/types.h> -#include <sys/stat.h> -#endif -#include "f2c.h" -#undef abs -#undef min -#undef max -#include <stdlib.h> -#include "fio.h" -#include "fmt.h" /* for struct syl */ - -/*global definitions*/ -unit f__units[MXUNIT]; /*unit table */ -int f__init; /*bit 0: set after initializations; - bit 1: set during I/O involving returns to - caller of library (or calls to user code) */ -cilist *f__elist; /*active external io list */ -icilist *f__svic; /*active internal io list */ -flag f__reading; /*1 if reading, 0 if writing */ -flag f__cplus, f__cblank; -char *f__fmtbuf; -int f__fmtlen; -flag f__external; /*1 if external io, 0 if internal */ -int (*f__getn) (void); /* for formatted input */ -void (*f__putn) (int); /* for formatted output */ -int (*f__doed) (struct syl *, char *, ftnlen), (*f__doned) (struct syl *); -int (*f__dorevert) (void), (*f__donewrec) (void), (*f__doend) (void); -flag f__sequential; /*1 if sequential io, 0 if direct */ -flag f__formatted; /*1 if formatted io, 0 if unformatted */ -FILE *f__cf; /*current file */ -unit *f__curunit; /*current unit */ -int f__recpos; /*place in current record */ -int f__cursor, f__hiwater, f__scale; -char *f__icptr; - -/*error messages*/ -char *F_err[] = { - "error in format", /* 100 */ - "illegal unit number", /* 101 */ - "formatted io not allowed", /* 102 */ - "unformatted io not allowed", /* 103 */ - "direct io not allowed", /* 104 */ - "sequential io not allowed", /* 105 */ - "can't backspace file", /* 106 */ - "null file name", /* 107 */ - "can't stat file", /* 108 */ - "unit not connected", /* 109 */ - "off end of record", /* 110 */ - "truncation failed in endfile", /* 111 */ - "incomprehensible list input", /* 112 */ - "out of free space", /* 113 */ - "unit not connected", /* 114 */ - "read unexpected character", /* 115 */ - "bad logical input field", /* 116 */ - "bad variable type", /* 117 */ - "bad namelist name", /* 118 */ - "variable not in namelist", /* 119 */ - "no end record", /* 120 */ - "variable count incorrect", /* 121 */ - "subscript for scalar variable", /* 122 */ - "invalid array section", /* 123 */ - "substring out of bounds", /* 124 */ - "subscript out of bounds", /* 125 */ - "can't read file", /* 126 */ - "can't write file", /* 127 */ - "'new' file exists", /* 128 */ - "can't append to file", /* 129 */ - "non-positive record number", /* 130 */ - "I/O started while already doing I/O", /* 131 */ - "Temporary file name (TMPDIR?) too long" /* 132 */ -}; -#define MAXERR (sizeof(F_err)/sizeof(char *)+100) - -int -f__canseek (FILE * f) /*SYSDEP*/ -{ -#ifdef NON_UNIX_STDIO - return !isatty (fileno (f)); -#else - struct stat x; - - if (fstat (fileno (f), &x) < 0) - return (0); -#ifdef S_IFMT - switch (x.st_mode & S_IFMT) - { - case S_IFDIR: - case S_IFREG: - if (x.st_nlink > 0) /* !pipe */ - return (1); - else - return (0); - case S_IFCHR: - if (isatty (fileno (f))) - return (0); - return (1); -#ifdef S_IFBLK - case S_IFBLK: - return (1); -#endif - } -#else -#ifdef S_ISDIR - /* POSIX version */ - if (S_ISREG (x.st_mode) || S_ISDIR (x.st_mode)) - { - if (x.st_nlink > 0) /* !pipe */ - return (1); - else - return (0); - } - if (S_ISCHR (x.st_mode)) - { - if (isatty (fileno (f))) - return (0); - return (1); - } - if (S_ISBLK (x.st_mode)) - return (1); -#else - Help ! How does fstat work on this system ? -#endif -#endif - return (0); /* who knows what it is? */ -#endif -} - -void -f__fatal (int n, char *s) -{ - static int dead = 0; - - if (n < 100 && n >= 0) - perror (s); - /*SYSDEP*/ - else if (n >= (int) MAXERR || n < -1) - { - fprintf (stderr, "%s: illegal error number %d\n", s, n); - } - else if (n == -1) - fprintf (stderr, "%s: end of file\n", s); - else - fprintf (stderr, "%s: %s\n", s, F_err[n - 100]); - if (dead) - { - fprintf (stderr, "(libf2c f__fatal already called, aborting.)"); - abort (); - } - dead = 1; - if (f__init & 1) - { - if (f__curunit) - { - fprintf (stderr, "apparent state: unit %d ", - (int) (f__curunit - f__units)); - fprintf (stderr, f__curunit->ufnm ? "named %s\n" : "(unnamed)\n", - f__curunit->ufnm); - } - else - fprintf (stderr, "apparent state: internal I/O\n"); - if (f__fmtbuf) - fprintf (stderr, "last format: %.*s\n", f__fmtlen, f__fmtbuf); - fprintf (stderr, "lately %s %s %s %s", - f__reading ? "reading" : "writing", - f__sequential ? "sequential" : "direct", - f__formatted ? "formatted" : "unformatted", - f__external ? "external" : "internal"); - } - f__init &= ~2; /* No longer doing I/O (no more user code to be called). */ - sig_die (" IO", 1); -} - -/*initialization routine*/ -void -f_init (void) -{ - unit *p; - - if (f__init & 2) - f__fatal (131, "I/O recursion"); - f__init = 1; - p = &f__units[0]; - p->ufd = stderr; - p->useek = f__canseek (stderr); - p->ufmt = 1; - p->uwrt = 1; - p = &f__units[5]; - p->ufd = stdin; - p->useek = f__canseek (stdin); - p->ufmt = 1; - p->uwrt = 0; - p = &f__units[6]; - p->ufd = stdout; - p->useek = f__canseek (stdout); - p->ufmt = 1; - p->uwrt = 1; -} - -int -f__nowreading (unit * x) -{ - off_t loc; - int ufmt, urw; - extern char *f__r_mode[], *f__w_mode[]; - - if (x->urw & 1) - goto done; - if (!x->ufnm) - goto cantread; - ufmt = x->url ? 0 : x->ufmt; - loc = FTELL (x->ufd); - urw = 3; - if (!freopen (x->ufnm, f__w_mode[ufmt | 2], x->ufd)) - { - urw = 1; - if (!freopen (x->ufnm, f__r_mode[ufmt], x->ufd)) - { - cantread: - errno = 126; - return 1; - } - } - FSEEK (x->ufd, loc, SEEK_SET); - x->urw = urw; -done: - x->uwrt = 0; - return 0; -} - -int -f__nowwriting (unit * x) -{ - off_t loc; - int ufmt; - extern char *f__w_mode[]; - - if (x->urw & 2) - goto done; - if (!x->ufnm) - goto cantwrite; - ufmt = x->url ? 0 : x->ufmt; - if (x->uwrt == 3) - { /* just did write, rewind */ - if (!(f__cf = x->ufd = freopen (x->ufnm, f__w_mode[ufmt], x->ufd))) - goto cantwrite; - x->urw = 2; - } - else - { - loc = FTELL (x->ufd); - if (!(f__cf = x->ufd = freopen (x->ufnm, f__w_mode[ufmt |= 2], x->ufd))) - { - x->ufd = NULL; - cantwrite: - errno = 127; - return (1); - } - x->urw = 3; - FSEEK (x->ufd, loc, SEEK_SET); - } -done: - x->uwrt = 1; - return 0; -} - -int -err__fl (int f, int m, char *s) -{ - if (!f) - f__fatal (m, s); - if (f__doend) - (*f__doend) (); - f__init &= ~2; - return errno = m; -} diff --git a/gnu/lib/libf2c/libI77/f2ch.add b/gnu/lib/libf2c/libI77/f2ch.add deleted file mode 100644 index 04b13e8de5d..00000000000 --- a/gnu/lib/libf2c/libI77/f2ch.add +++ /dev/null @@ -1,163 +0,0 @@ -/* If you are using a C++ compiler, append the following to f2c.h - for compiling libF77 and libI77. */ - -#ifdef __cplusplus -extern "C" -{ - extern int abort_ (void); - extern double c_abs (complex *); - extern void c_cos (complex *, complex *); - extern void c_div (complex *, complex *, complex *); - extern void c_exp (complex *, complex *); - extern void c_log (complex *, complex *); - extern void c_sin (complex *, complex *); - extern void c_sqrt (complex *, complex *); - extern double d_abs (double *); - extern double d_acos (double *); - extern double d_asin (double *); - extern double d_atan (double *); - extern double d_atn2 (double *, double *); - extern void d_cnjg (doublecomplex *, doublecomplex *); - extern double d_cos (double *); - extern double d_cosh (double *); - extern double d_dim (double *, double *); - extern double d_exp (double *); - extern double d_imag (doublecomplex *); - extern double d_int (double *); - extern double d_lg10 (double *); - extern double d_log (double *); - extern double d_mod (double *, double *); - extern double d_nint (double *); - extern double d_prod (float *, float *); - extern double d_sign (double *, double *); - extern double d_sin (double *); - extern double d_sinh (double *); - extern double d_sqrt (double *); - extern double d_tan (double *); - extern double d_tanh (double *); - extern double derf_ (double *); - extern double derfc_ (double *); - extern integer do_fio (ftnint *, char *, ftnlen); - extern integer do_lio (ftnint *, ftnint *, char *, ftnlen); - extern integer do_uio (ftnint *, char *, ftnlen); - extern integer e_rdfe (void); - extern integer e_rdue (void); - extern integer e_rsfe (void); - extern integer e_rsfi (void); - extern integer e_rsle (void); - extern integer e_rsli (void); - extern integer e_rsue (void); - extern integer e_wdfe (void); - extern integer e_wdue (void); - extern integer e_wsfe (void); - extern integer e_wsfi (void); - extern integer e_wsle (void); - extern integer e_wsli (void); - extern integer e_wsue (void); - extern int ef1asc_ (ftnint *, ftnlen *, ftnint *, ftnlen *); - extern integer ef1cmc_ (ftnint *, ftnlen *, ftnint *, ftnlen *); - extern double erf (double); - extern double erf_ (float *); - extern double erfc (double); - extern double erfc_ (float *); - extern integer f_back (alist *); - extern integer f_clos (cllist *); - extern integer f_end (alist *); - extern void f_exit (void); - extern integer f_inqu (inlist *); - extern integer f_open (olist *); - extern integer f_rew (alist *); - extern int flush_ (void); - extern void getarg_ (integer *, char *, ftnlen); - extern void getenv_ (char *, char *, ftnlen, ftnlen); - extern short h_abs (short *); - extern short h_dim (short *, short *); - extern short h_dnnt (double *); - extern short h_indx (char *, char *, ftnlen, ftnlen); - extern short h_len (char *, ftnlen); - extern short h_mod (short *, short *); - extern short h_nint (float *); - extern short h_sign (short *, short *); - extern short hl_ge (char *, char *, ftnlen, ftnlen); - extern short hl_gt (char *, char *, ftnlen, ftnlen); - extern short hl_le (char *, char *, ftnlen, ftnlen); - extern short hl_lt (char *, char *, ftnlen, ftnlen); - extern integer i_abs (integer *); - extern integer i_dim (integer *, integer *); - extern integer i_dnnt (double *); - extern integer i_indx (char *, char *, ftnlen, ftnlen); - extern integer i_len (char *, ftnlen); - extern integer i_mod (integer *, integer *); - extern integer i_nint (float *); - extern integer i_sign (integer *, integer *); - extern integer iargc_ (void); - extern ftnlen l_ge (char *, char *, ftnlen, ftnlen); - extern ftnlen l_gt (char *, char *, ftnlen, ftnlen); - extern ftnlen l_le (char *, char *, ftnlen, ftnlen); - extern ftnlen l_lt (char *, char *, ftnlen, ftnlen); - extern void pow_ci (complex *, complex *, integer *); - extern double pow_dd (double *, double *); - extern double pow_di (double *, integer *); - extern short pow_hh (short *, shortint *); - extern integer pow_ii (integer *, integer *); - extern double pow_ri (float *, integer *); - extern void pow_zi (doublecomplex *, doublecomplex *, integer *); - extern void pow_zz (doublecomplex *, doublecomplex *, doublecomplex *); - extern double r_abs (float *); - extern double r_acos (float *); - extern double r_asin (float *); - extern double r_atan (float *); - extern double r_atn2 (float *, float *); - extern void r_cnjg (complex *, complex *); - extern double r_cos (float *); - extern double r_cosh (float *); - extern double r_dim (float *, float *); - extern double r_exp (float *); - extern double r_imag (complex *); - extern double r_int (float *); - extern double r_lg10 (float *); - extern double r_log (float *); - extern double r_mod (float *, float *); - extern double r_nint (float *); - extern double r_sign (float *, float *); - extern double r_sin (float *); - extern double r_sinh (float *); - extern double r_sqrt (float *); - extern double r_tan (float *); - extern double r_tanh (float *); - extern void s_cat (char *, char **, integer *, integer *, ftnlen); - extern integer s_cmp (char *, char *, ftnlen, ftnlen); - extern void s_copy (char *, char *, ftnlen, ftnlen); - extern int s_paus (char *, ftnlen); - extern integer s_rdfe (cilist *); - extern integer s_rdue (cilist *); - extern integer s_rnge (char *, integer, char *, integer); - extern integer s_rsfe (cilist *); - extern integer s_rsfi (icilist *); - extern integer s_rsle (cilist *); - extern integer s_rsli (icilist *); - extern integer s_rsne (cilist *); - extern integer s_rsni (icilist *); - extern integer s_rsue (cilist *); - extern int s_stop (char *, ftnlen); - extern integer s_wdfe (cilist *); - extern integer s_wdue (cilist *); - extern integer s_wsfe (cilist *); - extern integer s_wsfi (icilist *); - extern integer s_wsle (cilist *); - extern integer s_wsli (icilist *); - extern integer s_wsne (cilist *); - extern integer s_wsni (icilist *); - extern integer s_wsue (cilist *); - extern void sig_die (char *, int); - extern integer signal_ (integer *, void (*)(int)); - extern integer system_ (char *, ftnlen); - extern double z_abs (doublecomplex *); - extern void z_cos (doublecomplex *, doublecomplex *); - extern void z_div (doublecomplex *, doublecomplex *, doublecomplex *); - extern void z_exp (doublecomplex *, doublecomplex *); - extern void z_log (doublecomplex *, doublecomplex *); - extern void z_sin (doublecomplex *, doublecomplex *); - extern void z_sqrt (doublecomplex *, doublecomplex *); -} -#endif diff --git a/gnu/lib/libf2c/libI77/fio.h b/gnu/lib/libf2c/libI77/fio.h deleted file mode 100644 index 7734f0c2f2f..00000000000 --- a/gnu/lib/libf2c/libI77/fio.h +++ /dev/null @@ -1,104 +0,0 @@ -#include <sys/types.h> -#include <stdio.h> -#include <errno.h> -#ifndef NULL -/* ANSI C */ -#include <stddef.h> -#endif -#ifdef STDC_HEADERS -#include <string.h> -#endif - -#ifndef SEEK_SET -#define SEEK_SET 0 -#define SEEK_CUR 1 -#define SEEK_END 2 -#endif - -/* Only use fseeko/ftello if they are both there. */ - -#if defined (HAVE_FSEEKO) && defined (HAVE_FTELLO) -#define FSEEK fseeko -#define FTELL ftello -#else -#define FSEEK fseek -#define FTELL ftell -#endif - -#if defined (MSDOS) && !defined (GO32) -#ifndef NON_UNIX_STDIO -#define NON_UNIX_STDIO -#endif -#endif - -#ifdef UIOLEN_int -typedef int uiolen; -#else -typedef long uiolen; -#endif - -/*units*/ -typedef struct -{ - FILE *ufd; /*0=unconnected */ - char *ufnm; -#if !(defined (MSDOS) && !defined (GO32)) - long uinode; - int udev; -#endif - int url; /*0=sequential */ - flag useek; /*true=can backspace, use dir, ... */ - flag ufmt; - flag urw; /* (1 for can read) | (2 for can write) */ - flag ublnk; - flag uend; - flag uwrt; /*last io was write */ - flag uscrtch; -} -unit; - -extern int f__init; -extern cilist *f__elist; /*active external io list */ -extern flag f__reading, f__external, f__sequential, f__formatted; -extern int (*f__getn) (void); /* for formatted input */ -extern void (*f__putn) (int); /* for formatted output */ -extern void x_putc (int); -extern long f__inode (char *, int *); -extern void sig_die (char *, int); -extern void f__fatal (int, char *); -extern int t_runc (alist *); -extern int f__nowreading (unit *), f__nowwriting (unit *); -extern int fk_open (int, int, ftnint); -extern int en_fio (void); -extern void f_init (void); -extern int (*f__donewrec) (void), t_putc (int), x_wSL (void); -extern void b_char (char *, char *, ftnlen), g_char (char *, ftnlen, char *); -extern int c_sfe (cilist *), z_rnew (void); -extern int isatty (int); -extern int err__fl (int, int, char *); -extern int xrd_SL (void); -extern int f__putbuf (int); -extern int (*f__doend) (void); -extern FILE *f__cf; /*current file */ -extern unit *f__curunit; /*current unit */ -extern unit f__units[]; -#define err(f,m,s) do {if(f) {f__init &= ~2; errno= m;} else f__fatal(m,s); return(m);} while(0) -#define errfl(f,m,s) do {return err__fl((int)f,m,s);} while(0) - -/*Table sizes*/ -#define MXUNIT 100 - -extern int f__recpos; /*position in current record */ -extern int f__cursor; /* offset to move to */ -extern int f__hiwater; /* so TL doesn't confuse us */ - -#define WRITE 1 -#define READ 2 -#define SEQ 3 -#define DIR 4 -#define FMT 5 -#define UNF 6 -#define EXT 7 -#define INT 8 - -#define buf_end(x) (x->_flag & _IONBF ? x->_ptr : x->_base + BUFSIZ) diff --git a/gnu/lib/libf2c/libI77/fmt.c b/gnu/lib/libf2c/libI77/fmt.c deleted file mode 100644 index fa9b73cd60e..00000000000 --- a/gnu/lib/libf2c/libI77/fmt.c +++ /dev/null @@ -1,602 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" -#include "fmt.h" -#define skip(s) while(*s==' ') s++ -#ifdef interdata -#define SYLMX 300 -#endif -#ifdef pdp11 -#define SYLMX 300 -#endif -#ifdef vax -#define SYLMX 300 -#endif -#ifndef SYLMX -#define SYLMX 300 -#endif -#define GLITCH '\2' - /* special quote character for stu */ -extern int f__cursor, f__scale; -extern flag f__cblank, f__cplus; /*blanks in I and compulsory plus */ -static struct syl f__syl[SYLMX]; -int f__parenlvl, f__pc, f__revloc; - -static char * -ap_end (char *s) -{ - char quote; - quote = *s++; - for (; *s; s++) - { - if (*s != quote) - continue; - if (*++s != quote) - return (s); - } - if (f__elist->cierr) - { - errno = 100; - return (NULL); - } - f__fatal (100, "bad string"); - /*NOTREACHED*/ return 0; -} - -static int -op_gen (int a, int b, int c, int d) -{ - struct syl *p = &f__syl[f__pc]; - if (f__pc >= SYLMX) - { - fprintf (stderr, "format too complicated:\n"); - sig_die (f__fmtbuf, 1); - } - p->op = a; - p->p1 = b; - p->p2.i[0] = c; - p->p2.i[1] = d; - return (f__pc++); -} -static char *f_list (char *); -static char * -gt_num (char *s, int *n, int n1) -{ - int m = 0, f__cnt = 0; - char c; - for (c = *s;; c = *s) - { - if (c == ' ') - { - s++; - continue; - } - if (c > '9' || c < '0') - break; - m = 10 * m + c - '0'; - f__cnt++; - s++; - } - if (f__cnt == 0) - { - if (!n1) - s = 0; - *n = n1; - } - else - *n = m; - return (s); -} - -static char * -f_s (char *s, int curloc) -{ - skip (s); - if (*s++ != '(') - { - return (NULL); - } - if (f__parenlvl++ == 1) - f__revloc = curloc; - if (op_gen (RET1, curloc, 0, 0) < 0 || (s = f_list (s)) == NULL) - { - return (NULL); - } - return (s); -} - -static int -ne_d (char *s, char **p) -{ - int n, x, sign = 0; - struct syl *sp; - switch (*s) - { - default: - return (0); - case ':': - (void) op_gen (COLON, 0, 0, 0); - break; - case '$': - (void) op_gen (NONL, 0, 0, 0); - break; - case 'B': - case 'b': - if (*++s == 'z' || *s == 'Z') - (void) op_gen (BZ, 0, 0, 0); - else - (void) op_gen (BN, 0, 0, 0); - break; - case 'S': - case 's': - if (*(s + 1) == 's' || *(s + 1) == 'S') - { - x = SS; - s++; - } - else if (*(s + 1) == 'p' || *(s + 1) == 'P') - { - x = SP; - s++; - } - else - x = S; - (void) op_gen (x, 0, 0, 0); - break; - case '/': - (void) op_gen (SLASH, 0, 0, 0); - break; - case '-': - sign = 1; - case '+': - s++; /*OUTRAGEOUS CODING TRICK */ - case '0': - case '1': - case '2': - case '3': - case '4': - case '5': - case '6': - case '7': - case '8': - case '9': - if (!(s = gt_num (s, &n, 0))) - { - bad:*p = 0; - return 1; - } - switch (*s) - { - default: - return (0); - case 'P': - case 'p': - if (sign) - n = -n; - (void) op_gen (P, n, 0, 0); - break; - case 'X': - case 'x': - (void) op_gen (X, n, 0, 0); - break; - case 'H': - case 'h': - sp = &f__syl[op_gen (H, n, 0, 0)]; - sp->p2.s = s + 1; - s += n; - break; - } - break; - case GLITCH: - case '"': - case '\'': - sp = &f__syl[op_gen (APOS, 0, 0, 0)]; - sp->p2.s = s; - if ((*p = ap_end (s)) == NULL) - return (0); - return (1); - case 'T': - case 't': - if (*(s + 1) == 'l' || *(s + 1) == 'L') - { - x = TL; - s++; - } - else if (*(s + 1) == 'r' || *(s + 1) == 'R') - { - x = TR; - s++; - } - else - x = T; - if (!(s = gt_num (s + 1, &n, 0))) - goto bad; - s--; - (void) op_gen (x, n, 0, 0); - break; - case 'X': - case 'x': - (void) op_gen (X, 1, 0, 0); - break; - case 'P': - case 'p': - (void) op_gen (P, 1, 0, 0); - break; - } - s++; - *p = s; - return (1); -} - -static int -e_d (char *s, char **p) -{ - int i, im, n, w, d, e, found = 0, x = 0; - char *sv = s; - s = gt_num (s, &n, 1); - (void) op_gen (STACK, n, 0, 0); - switch (*s++) - { - default: - break; - case 'E': - case 'e': - x = 1; - case 'G': - case 'g': - found = 1; - if (!(s = gt_num (s, &w, 0))) - { - bad: - *p = 0; - return 1; - } - if (w == 0) - break; - if (*s == '.') - { - if (!(s = gt_num (s + 1, &d, 0))) - goto bad; - } - else - d = 0; - if (*s != 'E' && *s != 'e') - (void) op_gen (x == 1 ? E : G, w, d, 0); /* default is Ew.dE2 */ - else - { - if (!(s = gt_num (s + 1, &e, 0))) - goto bad; - (void) op_gen (x == 1 ? EE : GE, w, d, e); - } - break; - case 'O': - case 'o': - i = O; - im = OM; - goto finish_I; - case 'Z': - case 'z': - i = Z; - im = ZM; - goto finish_I; - case 'L': - case 'l': - found = 1; - if (!(s = gt_num (s, &w, 0))) - goto bad; - if (w == 0) - break; - (void) op_gen (L, w, 0, 0); - break; - case 'A': - case 'a': - found = 1; - skip (s); - if (*s >= '0' && *s <= '9') - { - s = gt_num (s, &w, 1); - if (w == 0) - break; - (void) op_gen (AW, w, 0, 0); - break; - } - (void) op_gen (A, 0, 0, 0); - break; - case 'F': - case 'f': - if (!(s = gt_num (s, &w, 0))) - goto bad; - found = 1; - if (w == 0) - break; - if (*s == '.') - { - if (!(s = gt_num (s + 1, &d, 0))) - goto bad; - } - else - d = 0; - (void) op_gen (F, w, d, 0); - break; - case 'D': - case 'd': - found = 1; - if (!(s = gt_num (s, &w, 0))) - goto bad; - if (w == 0) - break; - if (*s == '.') - { - if (!(s = gt_num (s + 1, &d, 0))) - goto bad; - } - else - d = 0; - (void) op_gen (D, w, d, 0); - break; - case 'I': - case 'i': - i = I; - im = IM; - finish_I: - if (!(s = gt_num (s, &w, 0))) - goto bad; - found = 1; - if (w == 0) - break; - if (*s != '.') - { - (void) op_gen (i, w, 0, 0); - break; - } - if (!(s = gt_num (s + 1, &d, 0))) - goto bad; - (void) op_gen (im, w, d, 0); - break; - } - if (found == 0) - { - f__pc--; /*unSTACK */ - *p = sv; - return (0); - } - *p = s; - return (1); -} -static char * -i_tem (char *s) -{ - char *t; - int n, curloc; - if (*s == ')') - return (s); - if (ne_d (s, &t)) - return (t); - if (e_d (s, &t)) - return (t); - s = gt_num (s, &n, 1); - if ((curloc = op_gen (STACK, n, 0, 0)) < 0) - return (NULL); - return (f_s (s, curloc)); -} - -static char * -f_list (char *s) -{ - for (; *s != 0;) - { - skip (s); - if ((s = i_tem (s)) == NULL) - return (NULL); - skip (s); - if (*s == ',') - s++; - else if (*s == ')') - { - if (--f__parenlvl == 0) - { - (void) op_gen (REVERT, f__revloc, 0, 0); - return (++s); - } - (void) op_gen (GOTO, 0, 0, 0); - return (++s); - } - } - return (NULL); -} - -int -pars_f (char *s) -{ - char *e; - - f__parenlvl = f__revloc = f__pc = 0; - if ((e = f_s (s, 0)) == NULL) - { - /* Try and delimit the format string. Parens within - hollerith and quoted strings have to match for this - to work, but it's probably adequate for most needs. - Note that this is needed because a valid CHARACTER - variable passed for FMT= can contain '(I)garbage', - where `garbage' is billions and billions of junk - characters, and it's up to the run-time library to - know where the format string ends by counting parens. - Meanwhile, still treat NUL byte as "hard stop", since - f2c still appends that at end of FORMAT-statement - strings. */ - - int level = 0; - - for (f__fmtlen = 0; - ((*s != ')') || (--level > 0)) - && (*s != '\0') && (f__fmtlen < 80); ++s, ++f__fmtlen) - { - if (*s == '(') - ++level; - } - if (*s == ')') - ++f__fmtlen; - return (-1); - } - f__fmtlen = e - s; - return (0); -} - -#define STKSZ 10 -int f__cnt[STKSZ], f__ret[STKSZ], f__cp, f__rp; -flag f__workdone, f__nonl; - -static int -type_f (int n) -{ - switch (n) - { - default: - return (n); - case RET1: - return (RET1); - case REVERT: - return (REVERT); - case GOTO: - return (GOTO); - case STACK: - return (STACK); - case X: - case SLASH: - case APOS: - case H: - case T: - case TL: - case TR: - return (NED); - case F: - case I: - case IM: - case A: - case AW: - case O: - case OM: - case L: - case E: - case EE: - case D: - case G: - case GE: - case Z: - case ZM: - return (ED); - } -} -integer -do_fio (ftnint * number, char *ptr, ftnlen len) -{ - struct syl *p; - int n, i; - for (i = 0; i < *number; i++, ptr += len) - { - loop:switch (type_f ((p = &f__syl[f__pc])->op)) - { - default: - fprintf (stderr, "unknown code in do_fio: %d\n%.*s\n", - p->op, f__fmtlen, f__fmtbuf); - err (f__elist->cierr, 100, "do_fio"); - case NED: - if ((*f__doned) (p)) - { - f__pc++; - goto loop; - } - f__pc++; - continue; - case ED: - if (f__cnt[f__cp] <= 0) - { - f__cp--; - f__pc++; - goto loop; - } - if (ptr == NULL) - return ((*f__doend) ()); - f__cnt[f__cp]--; - f__workdone = 1; - if ((n = (*f__doed) (p, ptr, len)) > 0) - errfl (f__elist->cierr, errno, "fmt"); - if (n < 0) - err (f__elist->ciend, (EOF), "fmt"); - continue; - case STACK: - f__cnt[++f__cp] = p->p1; - f__pc++; - goto loop; - case RET1: - f__ret[++f__rp] = p->p1; - f__pc++; - goto loop; - case GOTO: - if (--f__cnt[f__cp] <= 0) - { - f__cp--; - f__rp--; - f__pc++; - goto loop; - } - f__pc = 1 + f__ret[f__rp--]; - goto loop; - case REVERT: - f__rp = f__cp = 0; - f__pc = p->p1; - if (ptr == NULL) - return ((*f__doend) ()); - if (!f__workdone) - return (0); - if ((n = (*f__dorevert) ()) != 0) - return (n); - goto loop; - case COLON: - if (ptr == NULL) - return ((*f__doend) ()); - f__pc++; - goto loop; - case NONL: - f__nonl = 1; - f__pc++; - goto loop; - case S: - case SS: - f__cplus = 0; - f__pc++; - goto loop; - case SP: - f__cplus = 1; - f__pc++; - goto loop; - case P: - f__scale = p->p1; - f__pc++; - goto loop; - case BN: - f__cblank = 0; - f__pc++; - goto loop; - case BZ: - f__cblank = 1; - f__pc++; - goto loop; - } - } - return (0); -} - -int -en_fio (void) -{ - ftnint one = 1; - return (do_fio (&one, (char *) NULL, (ftnint) 0)); -} - -void -fmt_bg (void) -{ - f__workdone = f__cp = f__rp = f__pc = f__cursor = 0; - f__cnt[0] = f__ret[0] = 0; -} diff --git a/gnu/lib/libf2c/libI77/fmt.h b/gnu/lib/libf2c/libI77/fmt.h deleted file mode 100644 index bcd84cee40a..00000000000 --- a/gnu/lib/libf2c/libI77/fmt.h +++ /dev/null @@ -1,92 +0,0 @@ -struct syl -{ - int op; - int p1; - union - { - int i[2]; - char *s; - } - p2; -}; -#define RET1 1 -#define REVERT 2 -#define GOTO 3 -#define X 4 -#define SLASH 5 -#define STACK 6 -#define I 7 -#define ED 8 -#define NED 9 -#define IM 10 -#define APOS 11 -#define H 12 -#define TL 13 -#define TR 14 -#define T 15 -#define COLON 16 -#define S 17 -#define SP 18 -#define SS 19 -#define P 20 -#define BN 21 -#define BZ 22 -#define F 23 -#define E 24 -#define EE 25 -#define D 26 -#define G 27 -#define GE 28 -#define L 29 -#define A 30 -#define AW 31 -#define O 32 -#define NONL 33 -#define OM 34 -#define Z 35 -#define ZM 36 -extern int f__pc, f__parenlvl, f__revloc; -typedef union -{ - real pf; - doublereal pd; -} -ufloat; -typedef union -{ - short is; - signed char ic; - integer il; -#ifdef Allow_TYQUAD - longint ili; -#endif -} -Uint; -extern int (*f__doed) (struct syl *, char *, ftnlen), - (*f__doned) (struct syl *); -extern int (*f__dorevert) (void); -extern void fmt_bg (void); -extern int pars_f (char *); -extern int rd_ed (struct syl *, char *, ftnlen), rd_ned (struct syl *); -extern int w_ed (struct syl *, char *, ftnlen), w_ned (struct syl *); -extern int wrt_E (ufloat *, int, int, int, ftnlen); -extern int wrt_F (ufloat *, int, int, ftnlen); -extern int wrt_L (Uint *, int, ftnlen); -extern flag f__cblank, f__cplus, f__workdone, f__nonl; -extern char *f__fmtbuf; -extern int f__fmtlen; -extern int f__scale; -#define GET(x) if((x=(*f__getn)())<0) return(x) -#define VAL(x) (x!='\n'?x:' ') -#define PUT(x) (*f__putn)(x) -extern int f__cursor; - -#undef TYQUAD -#ifndef Allow_TYQUAD -#undef longint -#define longint long -#else -#define TYQUAD 14 -#endif - -extern char *f__icvt (longint, int *, int *, int); diff --git a/gnu/lib/libf2c/libI77/fmtlib.c b/gnu/lib/libf2c/libI77/fmtlib.c deleted file mode 100644 index 3d2a299d232..00000000000 --- a/gnu/lib/libf2c/libI77/fmtlib.c +++ /dev/null @@ -1,46 +0,0 @@ -/* @(#)fmtlib.c 1.2 */ -#define MAXINTLENGTH 23 -#include "config.h" - -#include "f2c.h" -#ifndef Allow_TYQUAD -#undef longint -#define longint long -#undef ulongint -#define ulongint unsigned long -#endif - -char * -f__icvt (longint value, int *ndigit, int *sign, int base) -{ - static char buf[MAXINTLENGTH + 1]; - register int i; - ulongint uvalue; - - if (value > 0) - { - uvalue = value; - *sign = 0; - } - else if (value < 0) - { - uvalue = -value; - *sign = 1; - } - else - { - *sign = 0; - *ndigit = 1; - buf[MAXINTLENGTH - 1] = '0'; - return &buf[MAXINTLENGTH - 1]; - } - i = MAXINTLENGTH; - do - { - buf[--i] = (uvalue % base) + '0'; - uvalue /= base; - } - while (uvalue > 0); - *ndigit = MAXINTLENGTH - i; - return &buf[i]; -} diff --git a/gnu/lib/libf2c/libI77/fp.h b/gnu/lib/libf2c/libI77/fp.h deleted file mode 100644 index 2b78ef9cc52..00000000000 --- a/gnu/lib/libf2c/libI77/fp.h +++ /dev/null @@ -1,28 +0,0 @@ -#define FMAX 40 -#define EXPMAXDIGS 8 -#define EXPMAX 99999999 -/* FMAX = max number of nonzero digits passed to atof() */ -/* EXPMAX = 10^EXPMAXDIGS - 1 = largest allowed exponent absolute value */ - -#ifdef V10 /* Research Tenth-Edition Unix */ -#include "local.h" -#endif - -/* MAXFRACDIGS and MAXINTDIGS are for wrt_F -- bounds (not necessarily - tight) on the maximum number of digits to the right and left of - * the decimal point. - */ - -#ifdef VAX -#define MAXFRACDIGS 56 -#define MAXINTDIGS 38 -#else -#ifdef CRAY -#define MAXFRACDIGS 9880 -#define MAXINTDIGS 9864 -#else -/* values that suffice for IEEE double */ -#define MAXFRACDIGS 344 -#define MAXINTDIGS 308 -#endif -#endif diff --git a/gnu/lib/libf2c/libI77/ftell_.c b/gnu/lib/libf2c/libI77/ftell_.c deleted file mode 100644 index 63153420fbc..00000000000 --- a/gnu/lib/libf2c/libI77/ftell_.c +++ /dev/null @@ -1,35 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" - -static FILE * -unit_chk (integer Unit, char *who) -{ - if (Unit >= MXUNIT || Unit < 0) - f__fatal (101, who); - return f__units[Unit].ufd; -} - -integer -G77_ftell_0 (integer * Unit) -{ - FILE *f; - return (f = unit_chk (*Unit, "ftell")) ? (integer) FTELL (f) : -1L; -} - -integer -G77_fseek_0 (integer * Unit, integer * offset, integer * xwhence) -{ - FILE *f; - int w = (int) *xwhence; -#ifdef SEEK_SET - static int wohin[3] = { SEEK_SET, SEEK_CUR, SEEK_END }; -#endif - if (w < 0 || w > 2) - w = 0; -#ifdef SEEK_SET - w = wohin[w]; -#endif - return !(f = unit_chk (*Unit, "fseek")) - || FSEEK (f, (off_t) * offset, w) ? 1 : 0; -} diff --git a/gnu/lib/libf2c/libI77/iio.c b/gnu/lib/libf2c/libI77/iio.c deleted file mode 100644 index 940cbf82f91..00000000000 --- a/gnu/lib/libf2c/libI77/iio.c +++ /dev/null @@ -1,157 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "fmt.h" -extern char *f__icptr; -char *f__icend; -extern icilist *f__svic; -int f__icnum; -extern int f__hiwater; -int -z_getc (void) -{ - if (f__recpos++ < f__svic->icirlen) - { - if (f__icptr >= f__icend) - err (f__svic->iciend, (EOF), "endfile"); - return (*(unsigned char *) f__icptr++); - } - return '\n'; -} - -void -z_putc (int c) -{ - if (f__recpos++ < f__svic->icirlen && f__icptr < f__icend) - *f__icptr++ = c; -} -int -z_rnew (void) -{ - f__icptr = f__svic->iciunit + (++f__icnum) * f__svic->icirlen; - f__recpos = 0; - f__cursor = 0; - f__hiwater = 0; - return 1; -} - -static int -z_endp (void) -{ - (*f__donewrec) (); - return 0; -} - -int -c_si (icilist * a) -{ - if (f__init & 2) - f__fatal (131, "I/O recursion"); - f__init |= 2; - f__elist = (cilist *) a; - f__fmtbuf = a->icifmt; - f__curunit = 0; - f__sequential = f__formatted = 1; - f__external = 0; - if (pars_f (f__fmtbuf) < 0) - err (a->icierr, 100, "startint"); - fmt_bg (); - f__cblank = f__cplus = f__scale = 0; - f__svic = a; - f__icnum = f__recpos = 0; - f__cursor = 0; - f__hiwater = 0; - f__icptr = a->iciunit; - f__icend = f__icptr + a->icirlen * a->icirnum; - f__cf = 0; - return (0); -} - -int -iw_rev (void) -{ - if (f__workdone) - z_endp (); - f__hiwater = f__recpos = f__cursor = 0; - return (f__workdone = 0); -} - -integer -s_rsfi (icilist * a) -{ - int n; - if ((n = c_si (a))) - return (n); - f__reading = 1; - f__doed = rd_ed; - f__doned = rd_ned; - f__getn = z_getc; - f__dorevert = z_endp; - f__donewrec = z_rnew; - f__doend = z_endp; - return (0); -} - -int -z_wnew (void) -{ - if (f__recpos < f__hiwater) - { - f__icptr += f__hiwater - f__recpos; - f__recpos = f__hiwater; - } - while (f__recpos++ < f__svic->icirlen) - *f__icptr++ = ' '; - f__recpos = 0; - f__cursor = 0; - f__hiwater = 0; - f__icnum++; - return 1; -} - -integer -s_wsfi (icilist * a) -{ - int n; - if ((n = c_si (a))) - return (n); - f__reading = 0; - f__doed = w_ed; - f__doned = w_ned; - f__putn = z_putc; - f__dorevert = iw_rev; - f__donewrec = z_wnew; - f__doend = z_endp; - return (0); -} - -integer -e_rsfi (void) -{ - int n; - f__init &= ~2; - n = en_fio (); - f__fmtbuf = NULL; - return (n); -} - -integer -e_wsfi (void) -{ - int n; - f__init &= ~2; - n = en_fio (); - f__fmtbuf = NULL; - if (f__svic->icirnum != 1 - && (f__icnum > f__svic->icirnum - || (f__icnum == f__svic->icirnum && (f__recpos | f__hiwater)))) - err (f__svic->icierr, 110, "inwrite"); - if (f__recpos < f__hiwater) - f__recpos = f__hiwater; - if (f__recpos >= f__svic->icirlen) - err (f__svic->icierr, 110, "recend"); - if (!f__recpos && f__icnum) - return n; - while (f__recpos++ < f__svic->icirlen) - *f__icptr++ = ' '; - return n; -} diff --git a/gnu/lib/libf2c/libI77/ilnw.c b/gnu/lib/libf2c/libI77/ilnw.c deleted file mode 100644 index 0a92a0cbac2..00000000000 --- a/gnu/lib/libf2c/libI77/ilnw.c +++ /dev/null @@ -1,70 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" -#include "lio.h" -extern char *f__icptr; -extern char *f__icend; -extern icilist *f__svic; -extern int f__icnum; -extern void z_putc (int); - -static int -z_wSL (void) -{ - while (f__recpos < f__svic->icirlen) - z_putc (' '); - return z_rnew (); -} - -static void -c_liw (icilist * a) -{ - f__reading = 0; - f__external = 0; - f__formatted = 1; - f__putn = z_putc; - L_len = a->icirlen; - f__donewrec = z_wSL; - f__svic = a; - f__icnum = f__recpos = 0; - f__cursor = 0; - f__cf = 0; - f__curunit = 0; - f__icptr = a->iciunit; - f__icend = f__icptr + a->icirlen * a->icirnum; - f__elist = (cilist *) a; -} - -integer -s_wsni (icilist * a) -{ - cilist ca; - - if (f__init != 1) - f_init (); - f__init = 3; - c_liw (a); - ca.cifmt = a->icifmt; - x_wsne (&ca); - z_wSL (); - return 0; -} - -integer -s_wsli (icilist * a) -{ - if (f__init != 1) - f_init (); - f__init = 3; - f__lioproc = l_write; - c_liw (a); - return (0); -} - -integer -e_wsli (void) -{ - f__init = 1; - z_wSL (); - return (0); -} diff --git a/gnu/lib/libf2c/libI77/inquire.c b/gnu/lib/libf2c/libI77/inquire.c deleted file mode 100644 index dae869cb4bf..00000000000 --- a/gnu/lib/libf2c/libI77/inquire.c +++ /dev/null @@ -1,143 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" -#include <string.h> -#if defined (MSDOS) && !defined (GO32) -#undef abs -#undef min -#undef max -#include "io.h" -#endif -integer -f_inqu (inlist * a) -{ - flag byfile; - int i, n; - unit *p; - char buf[256]; - long x; - if (f__init & 2) - f__fatal (131, "I/O recursion"); - if (a->infile != NULL) - { - byfile = 1; - g_char (a->infile, a->infilen, buf); -#ifdef NON_UNIX_STDIO - x = access (buf, 0) ? -1 : 0; - for (i = 0, p = NULL; i < MXUNIT; i++) - if (f__units[i].ufd != NULL - && f__units[i].ufnm != NULL && !strcmp (f__units[i].ufnm, buf)) - { - p = &f__units[i]; - break; - } -#else - x = f__inode (buf, &n); - for (i = 0, p = NULL; i < MXUNIT; i++) - if (f__units[i].uinode == x - && f__units[i].ufd != NULL && f__units[i].udev == n) - { - p = &f__units[i]; - break; - } -#endif - } - else - { - byfile = 0; - if (a->inunit < MXUNIT && a->inunit >= 0) - { - p = &f__units[a->inunit]; - } - else - { - p = NULL; - } - } - if (a->inex != NULL) - { - if ((byfile && x != -1) || (!byfile && p != NULL)) - *a->inex = 1; - else - *a->inex = 0; - } - if (a->inopen != NULL) - { - if (byfile) - *a->inopen = (p != NULL); - else - *a->inopen = (p != NULL && p->ufd != NULL); - } - if (a->innum != NULL) - *a->innum = p - f__units; - if (a->innamed != NULL) - { - if (byfile || (p != NULL && p->ufnm != NULL)) - *a->innamed = 1; - else - *a->innamed = 0; - } - if (a->inname != NULL) - { - if (byfile) - b_char (buf, a->inname, a->innamlen); - else if (p != NULL && p->ufnm != NULL) - b_char (p->ufnm, a->inname, a->innamlen); - } - if (a->inacc != NULL && p != NULL && p->ufd != NULL) - { - if (p->url) - b_char ("DIRECT", a->inacc, a->inacclen); - else - b_char ("SEQUENTIAL", a->inacc, a->inacclen); - } - if (a->inseq != NULL) - { - if (p != NULL && p->url) - b_char ("NO", a->inseq, a->inseqlen); - else - b_char ("YES", a->inseq, a->inseqlen); - } - if (a->indir != NULL) - { - if (p == NULL || p->url) - b_char ("YES", a->indir, a->indirlen); - else - b_char ("NO", a->indir, a->indirlen); - } - if (a->infmt != NULL) - { - if (p != NULL && p->ufmt == 0) - b_char ("UNFORMATTED", a->infmt, a->infmtlen); - else - b_char ("FORMATTED", a->infmt, a->infmtlen); - } - if (a->inform != NULL) - { - if (p != NULL && p->ufmt == 0) - b_char ("NO", a->inform, a->informlen); - else - b_char ("YES", a->inform, a->informlen); - } - if (a->inunf) - { - if (p != NULL && p->ufmt == 0) - b_char ("YES", a->inunf, a->inunflen); - else if (p != NULL) - b_char ("NO", a->inunf, a->inunflen); - else - b_char ("UNKNOWN", a->inunf, a->inunflen); - } - if (a->inrecl != NULL && p != NULL) - *a->inrecl = p->url; - if (a->innrec != NULL && p != NULL && p->url > 0) - *a->innrec = FTELL (p->ufd) / p->url + 1; - if (a->inblank && p != NULL && p->ufmt) - { - if (p->ublnk) - b_char ("ZERO", a->inblank, a->inblanklen); - else - b_char ("NULL", a->inblank, a->inblanklen); - } - return (0); -} diff --git a/gnu/lib/libf2c/libI77/lio.h b/gnu/lib/libf2c/libI77/lio.h deleted file mode 100644 index 4e17115e8d4..00000000000 --- a/gnu/lib/libf2c/libI77/lio.h +++ /dev/null @@ -1,64 +0,0 @@ -/* copy of ftypes from the compiler */ -/* variable types - * numeric assumptions: - * int < reals < complexes - * TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX - */ - -/* 0-10 retain their old (pre LOGICAL*1, etc.) */ -/* values to allow mixing old and new objects. */ - -#define TYUNKNOWN 0 -#define TYADDR 1 -#define TYSHORT 2 -#define TYLONG 3 -#define TYREAL 4 -#define TYDREAL 5 -#define TYCOMPLEX 6 -#define TYDCOMPLEX 7 -#define TYLOGICAL 8 -#define TYCHAR 9 -#define TYSUBR 10 -#define TYINT1 11 -#define TYLOGICAL1 12 -#define TYLOGICAL2 13 -#ifdef Allow_TYQUAD -#undef TYQUAD -#define TYQUAD 14 -#endif - -#define LINTW 24 -#define LINE 80 -#define LLOGW 2 -#ifdef Old_list_output -#define LLOW 1.0 -#define LHIGH 1.e9 -#define LEFMT " %# .8E" -#define LFFMT " %# .9g" -#else -#define LGFMT "%.9G" -#endif -/* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */ -#define LEFBL 24 - -typedef union -{ - signed char flchar; - short flshort; - ftnint flint; -#ifdef Allow_TYQUAD - longint fllongint; -#endif - real flreal; - doublereal fldouble; -} -flex; -extern int f__scale; -extern int (*f__lioproc) (ftnint *, char *, ftnlen, ftnint); -extern int l_write (ftnint *, char *, ftnlen, ftnint); -extern void x_wsne (cilist *); -extern int c_le (cilist *), (*l_getc) (void), (*l_ungetc) (int, FILE *); -extern int l_read (ftnint *, char *, ftnlen, ftnint); -extern integer e_rsle (void), e_wsle (void), s_wsne (cilist *); -extern int z_rnew (void); -extern ftnint L_len; diff --git a/gnu/lib/libf2c/libI77/lread.c b/gnu/lib/libf2c/libI77/lread.c deleted file mode 100644 index b926367b930..00000000000 --- a/gnu/lib/libf2c/libI77/lread.c +++ /dev/null @@ -1,845 +0,0 @@ -#include "config.h" -#include <ctype.h> -#include "f2c.h" -#include "fio.h" - -/* Compile with -DF8X_NML_ELIDE_QUOTES to permit eliding quotation */ -/* marks in namelist input a la the Fortran 8X Draft published in */ -/* the May 1989 issue of Fortran Forum. */ - - -extern char *f__fmtbuf; -extern int f__fmtlen; - -#ifdef Allow_TYQUAD -static longint f__llx; -#endif - -#undef abs -#undef min -#undef max -#include <stdlib.h> - -#include "fmt.h" -#include "lio.h" -#include "fp.h" - -int (*f__lioproc) (ftnint *, char *, ftnlen, ftnint), (*l_getc) (void), - (*l_ungetc) (int, FILE *); - -int l_eof; - -#define isblnk(x) (f__ltab[x+1]&B) -#define issep(x) (f__ltab[x+1]&SX) -#define isapos(x) (f__ltab[x+1]&AX) -#define isexp(x) (f__ltab[x+1]&EX) -#define issign(x) (f__ltab[x+1]&SG) -#define iswhit(x) (f__ltab[x+1]&WH) -#define SX 1 -#define B 2 -#define AX 4 -#define EX 8 -#define SG 16 -#define WH 32 -char f__ltab[128 + 1] = { /* offset one for EOF */ - 0, - 0, 0, AX, 0, 0, 0, 0, 0, 0, WH | B, SX | WH, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - SX | B | WH, 0, AX, 0, 0, 0, 0, AX, 0, 0, 0, SG, SX, SG, 0, SX, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, EX, EX, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - AX, 0, 0, 0, EX, EX, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -}; - -#ifdef ungetc -static int -un_getc (int x, FILE * f__cf) -{ - return ungetc (x, f__cf); -} -#else -#define un_getc ungetc -extern int ungetc (int, FILE *); /* for systems with a buggy stdio.h */ -#endif - -int -t_getc (void) -{ - int ch; - if (f__curunit->uend) - return (EOF); - if ((ch = getc (f__cf)) != EOF) - return (ch); - if (feof (f__cf)) - f__curunit->uend = l_eof = 1; - return (EOF); -} - -integer -e_rsle (void) -{ - int ch; - f__init = 1; - if (f__curunit->uend) - return (0); - while ((ch = t_getc ()) != '\n') - if (ch == EOF) - { - if (feof (f__cf)) - f__curunit->uend = l_eof = 1; - return EOF; - } - return (0); -} - -flag f__lquit; -int f__lcount, f__ltype, nml_read; -char *f__lchar; -double f__lx, f__ly; -#define ERR(x) if((n=(x))) {f__init &= ~2; return(n);} -#define GETC(x) (x=(*l_getc)()) -#define Ungetc(x,y) (*l_ungetc)(x,y) - -static int -l_R (int poststar, int reqint) -{ - char s[FMAX + EXPMAXDIGS + 4]; - register int ch; - register char *sp, *spe, *sp1; - long e, exp; - int havenum, havestar, se; - - if (!poststar) - { - if (f__lcount > 0) - return (0); - f__lcount = 1; - } -#ifdef Allow_TYQUAD - f__llx = 0; -#endif - f__ltype = 0; - exp = 0; - havestar = 0; -retry: - sp1 = sp = s; - spe = sp + FMAX; - havenum = 0; - - switch (GETC (ch)) - { - case '-': - *sp++ = ch; - sp1++; - spe++; - case '+': - GETC (ch); - } - while (ch == '0') - { - ++havenum; - GETC (ch); - } - while (isdigit (ch)) - { - if (sp < spe) - *sp++ = ch; - else - ++exp; - GETC (ch); - } - if (ch == '*' && !poststar) - { - if (sp == sp1 || exp || *s == '-') - { - errfl (f__elist->cierr, 112, "bad repetition count"); - } - poststar = havestar = 1; - *sp = 0; - f__lcount = atoi (s); - goto retry; - } - if (ch == '.') - { -#ifndef ALLOW_FLOAT_IN_INTEGER_LIST_INPUT - if (reqint) - errfl (f__elist->cierr, 115, "invalid integer"); -#endif - GETC (ch); - if (sp == sp1) - while (ch == '0') - { - ++havenum; - --exp; - GETC (ch); - } - while (isdigit (ch)) - { - if (sp < spe) - { - *sp++ = ch; - --exp; - } - GETC (ch); - } - } - havenum += sp - sp1; - se = 0; - if (issign (ch)) - goto signonly; - if (havenum && isexp (ch)) - { -#ifndef ALLOW_FLOAT_IN_INTEGER_LIST_INPUT - if (reqint) - errfl (f__elist->cierr, 115, "invalid integer"); -#endif - GETC (ch); - if (issign (ch)) - { - signonly: - if (ch == '-') - se = 1; - GETC (ch); - } - if (!isdigit (ch)) - { - bad: - errfl (f__elist->cierr, 112, "exponent field"); - } - - e = ch - '0'; - while (isdigit (GETC (ch))) - { - e = 10 * e + ch - '0'; - if (e > EXPMAX) - goto bad; - } - if (se) - exp -= e; - else - exp += e; - } - (void) Ungetc (ch, f__cf); - if (sp > sp1) - { - ++havenum; - while (*--sp == '0') - ++exp; - if (exp) - sprintf (sp + 1, "e%ld", exp); - else - sp[1] = 0; - f__lx = atof (s); -#ifdef Allow_TYQUAD - if (reqint & 2 && (se = sp - sp1 + exp) > 14 && se < 20) - { - /* Assuming 64-bit longint and 32-bit long. */ - if (exp < 0) - sp += exp; - if (sp1 <= sp) - { - f__llx = *sp1 - '0'; - while (++sp1 <= sp) - f__llx = 10 * f__llx + (*sp1 - '0'); - } - while (--exp >= 0) - f__llx *= 10; - if (*s == '-') - f__llx = -f__llx; - } -#endif - } - else - f__lx = 0.; - if (havenum) - f__ltype = TYLONG; - else - switch (ch) - { - case ',': - case '/': - break; - default: - if (havestar && (ch == ' ' || ch == '\t' || ch == '\n')) - break; - if (nml_read > 1) - { - f__lquit = 2; - return 0; - } - errfl (f__elist->cierr, 112, "invalid number"); - } - return 0; -} - -static int -rd_count (register int ch) -{ - if (ch < '0' || ch > '9') - return 1; - f__lcount = ch - '0'; - while (GETC (ch) >= '0' && ch <= '9') - f__lcount = 10 * f__lcount + ch - '0'; - Ungetc (ch, f__cf); - return f__lcount <= 0; -} - -static int -l_C (void) -{ - int ch, nml_save; - double lz; - if (f__lcount > 0) - return (0); - f__ltype = 0; - GETC (ch); - if (ch != '(') - { - if (nml_read > 1 && (ch < '0' || ch > '9')) - { - Ungetc (ch, f__cf); - f__lquit = 2; - return 0; - } - if (rd_count (ch)) - { - if (!f__cf || !feof (f__cf)) - errfl (f__elist->cierr, 112, "complex format"); - else - err (f__elist->cierr, (EOF), "lread"); - } - if (GETC (ch) != '*') - { - if (!f__cf || !feof (f__cf)) - errfl (f__elist->cierr, 112, "no star"); - else - err (f__elist->cierr, (EOF), "lread"); - } - if (GETC (ch) != '(') - { - Ungetc (ch, f__cf); - return (0); - } - } - else - f__lcount = 1; - while (iswhit (GETC (ch))); - Ungetc (ch, f__cf); - nml_save = nml_read; - nml_read = 0; - if ((ch = l_R (1, 0))) - return ch; - if (!f__ltype) - errfl (f__elist->cierr, 112, "no real part"); - lz = f__lx; - while (iswhit (GETC (ch))); - if (ch != ',') - { - (void) Ungetc (ch, f__cf); - errfl (f__elist->cierr, 112, "no comma"); - } - while (iswhit (GETC (ch))); - (void) Ungetc (ch, f__cf); - if ((ch = l_R (1, 0))) - return ch; - if (!f__ltype) - errfl (f__elist->cierr, 112, "no imaginary part"); - while (iswhit (GETC (ch))); - if (ch != ')') - errfl (f__elist->cierr, 112, "no )"); - f__ly = f__lx; - f__lx = lz; -#ifdef Allow_TYQUAD - f__llx = 0; -#endif - nml_read = nml_save; - return (0); -} - -static char nmLbuf[256], *nmL_next; -static int (*nmL_getc_save) (void); -static int (*nmL_ungetc_save) (int, FILE *); - -static int -nmL_getc (void) -{ - int rv; - if ((rv = *nmL_next++)) - return rv; - l_getc = nmL_getc_save; - l_ungetc = nmL_ungetc_save; - return (*l_getc) (); -} - -static int -nmL_ungetc (int x, FILE * f) -{ - f = f; /* banish non-use warning */ - return *--nmL_next = x; -} - -static int -Lfinish (int ch, int dot, int *rvp) -{ - char *s, *se; - static char what[] = "namelist input"; - - s = nmLbuf + 2; - se = nmLbuf + sizeof (nmLbuf) - 1; - *s++ = ch; - while (!issep (GETC (ch)) && ch != EOF) - { - if (s >= se) - { - nmLbuf_ovfl: - return *rvp = err__fl (f__elist->cierr, 131, what); - } - *s++ = ch; - if (ch != '=') - continue; - if (dot) - return *rvp = err__fl (f__elist->cierr, 112, what); - got_eq: - *s = 0; - nmL_getc_save = l_getc; - l_getc = nmL_getc; - nmL_ungetc_save = l_ungetc; - l_ungetc = nmL_ungetc; - nmLbuf[1] = *(nmL_next = nmLbuf) = ','; - *rvp = f__lcount = 0; - return 1; - } - if (dot) - goto done; - for (;;) - { - if (s >= se) - goto nmLbuf_ovfl; - *s++ = ch; - if (!isblnk (ch)) - break; - if (GETC (ch) == EOF) - goto done; - } - if (ch == '=') - goto got_eq; -done: - Ungetc (ch, f__cf); - return 0; -} - -static int -l_L (void) -{ - int ch, rv, sawdot; - if (f__lcount > 0) - return (0); - f__lcount = 1; - f__ltype = 0; - GETC (ch); - if (isdigit (ch)) - { - rd_count (ch); - if (GETC (ch) != '*') - { - if (!f__cf || !feof (f__cf)) - errfl (f__elist->cierr, 112, "no star"); - else - err (f__elist->cierr, (EOF), "lread"); - } - GETC (ch); - } - sawdot = 0; - if (ch == '.') - { - sawdot = 1; - GETC (ch); - } - switch (ch) - { - case 't': - case 'T': - if (nml_read && Lfinish (ch, sawdot, &rv)) - return rv; - f__lx = 1; - break; - case 'f': - case 'F': - if (nml_read && Lfinish (ch, sawdot, &rv)) - return rv; - f__lx = 0; - break; - default: - if (isblnk (ch) || issep (ch) || ch == EOF) - { - (void) Ungetc (ch, f__cf); - return (0); - } - if (nml_read > 1) - { - Ungetc (ch, f__cf); - f__lquit = 2; - return 0; - } - errfl (f__elist->cierr, 112, "logical"); - } - f__ltype = TYLONG; - while (!issep (GETC (ch)) && ch != EOF); - (void) Ungetc (ch, f__cf); - return (0); -} - -#define BUFSIZE 128 - -static int -l_CHAR (void) -{ - int ch, size, i; - static char rafail[] = "realloc failure"; - char quote, *p; - if (f__lcount > 0) - return (0); - f__ltype = 0; - if (f__lchar != NULL) - free (f__lchar); - size = BUFSIZE; - p = f__lchar = (char *) malloc ((unsigned int) size); - if (f__lchar == NULL) - errfl (f__elist->cierr, 113, "no space"); - - GETC (ch); - if (isdigit (ch)) - { - /* allow Fortran 8x-style unquoted string... */ - /* either find a repetition count or the string */ - f__lcount = ch - '0'; - *p++ = ch; - for (i = 1;;) - { - switch (GETC (ch)) - { - case '*': - if (f__lcount == 0) - { - f__lcount = 1; -#ifndef F8X_NML_ELIDE_QUOTES - if (nml_read) - goto no_quote; -#endif - goto noquote; - } - p = f__lchar; - goto have_lcount; - case ',': - case ' ': - case '\t': - case '\n': - case '/': - Ungetc (ch, f__cf); - /* no break */ - case EOF: - f__lcount = 1; - f__ltype = TYCHAR; - return *p = 0; - } - if (!isdigit (ch)) - { - f__lcount = 1; -#ifndef F8X_NML_ELIDE_QUOTES - if (nml_read) - { - no_quote: - errfl (f__elist->cierr, 112, - "undelimited character string"); - } -#endif - goto noquote; - } - *p++ = ch; - f__lcount = 10 * f__lcount + ch - '0'; - if (++i == size) - { - f__lchar = (char *) realloc (f__lchar, - (unsigned int) (size += BUFSIZE)); - if (f__lchar == NULL) - errfl (f__elist->cierr, 113, rafail); - p = f__lchar + i; - } - } - } - else - (void) Ungetc (ch, f__cf); -have_lcount: - if (GETC (ch) == '\'' || ch == '"') - quote = ch; - else if (isblnk (ch) || (issep (ch) && ch != '\n') || ch == EOF) - { - Ungetc (ch, f__cf); - return 0; - } -#ifndef F8X_NML_ELIDE_QUOTES - else if (nml_read > 1) - { - Ungetc (ch, f__cf); - f__lquit = 2; - return 0; - } -#endif - else - { - /* Fortran 8x-style unquoted string */ - *p++ = ch; - for (i = 1;;) - { - switch (GETC (ch)) - { - case ',': - case ' ': - case '\t': - case '\n': - case '/': - Ungetc (ch, f__cf); - /* no break */ - case EOF: - f__ltype = TYCHAR; - return *p = 0; - } - noquote: - *p++ = ch; - if (++i == size) - { - f__lchar = (char *) realloc (f__lchar, - (unsigned int) (size += BUFSIZE)); - if (f__lchar == NULL) - errfl (f__elist->cierr, 113, rafail); - p = f__lchar + i; - } - } - } - f__ltype = TYCHAR; - for (i = 0;;) - { - while (GETC (ch) != quote && ch != '\n' && ch != EOF && ++i < size) - *p++ = ch; - if (i == size) - { - newone: - f__lchar = (char *) realloc (f__lchar, - (unsigned int) (size += BUFSIZE)); - if (f__lchar == NULL) - errfl (f__elist->cierr, 113, rafail); - p = f__lchar + i - 1; - *p++ = ch; - } - else if (ch == EOF) - return (EOF); - else if (ch == '\n') - { - if (*(p - 1) != '\\') - continue; - i--; - p--; - if (++i < size) - *p++ = ch; - else - goto newone; - } - else if (GETC (ch) == quote) - { - if (++i < size) - *p++ = ch; - else - goto newone; - } - else - { - (void) Ungetc (ch, f__cf); - *p = 0; - return (0); - } - } -} - -int -c_le (cilist * a) -{ - if (f__init != 1) - f_init (); - f__init = 3; - f__fmtbuf = "list io"; - f__curunit = &f__units[a->ciunit]; - f__fmtlen = 7; - if (a->ciunit >= MXUNIT || a->ciunit < 0) - err (a->cierr, 101, "stler"); - f__scale = f__recpos = 0; - f__elist = a; - if (f__curunit->ufd == NULL && fk_open (SEQ, FMT, a->ciunit)) - err (a->cierr, 102, "lio"); - f__cf = f__curunit->ufd; - if (!f__curunit->ufmt) - err (a->cierr, 103, "lio"); - return (0); -} - -int -l_read (ftnint * number, char *ptr, ftnlen len, ftnint type) -{ -#define Ptr ((flex *)ptr) - int i, n, ch; - doublereal *yy; - real *xx; - for (i = 0; i < *number; i++) - { - if (f__lquit) - return (0); - if (l_eof) - err (f__elist->ciend, EOF, "list in"); - if (f__lcount == 0) - { - f__ltype = 0; - for (;;) - { - GETC (ch); - switch (ch) - { - case EOF: - err (f__elist->ciend, (EOF), "list in"); - case ' ': - case '\t': - case '\n': - continue; - case '/': - f__lquit = 1; - goto loopend; - case ',': - f__lcount = 1; - goto loopend; - default: - (void) Ungetc (ch, f__cf); - goto rddata; - } - } - } - rddata: - switch ((int) type) - { - case TYINT1: - case TYSHORT: - case TYLONG: -#ifndef ALLOW_FLOAT_IN_INTEGER_LIST_INPUT - ERR (l_R (0, 1)); - break; -#endif - case TYREAL: - case TYDREAL: - ERR (l_R (0, 0)); - break; -#ifdef TYQUAD - case TYQUAD: - n = l_R (0, 2); - if (n) - return n; - break; -#endif - case TYCOMPLEX: - case TYDCOMPLEX: - ERR (l_C ()); - break; - case TYLOGICAL1: - case TYLOGICAL2: - case TYLOGICAL: - ERR (l_L ()); - break; - case TYCHAR: - ERR (l_CHAR ()); - break; - } - while (GETC (ch) == ' ' || ch == '\t'); - if (ch != ',' || f__lcount > 1) - Ungetc (ch, f__cf); - loopend: - if (f__lquit) - return (0); - if (f__cf && ferror (f__cf)) - { - clearerr (f__cf); - errfl (f__elist->cierr, errno, "list in"); - } - if (f__ltype == 0) - goto bump; - switch ((int) type) - { - case TYINT1: - case TYLOGICAL1: - Ptr->flchar = (char) f__lx; - break; - case TYLOGICAL2: - case TYSHORT: - Ptr->flshort = (short) f__lx; - break; - case TYLOGICAL: - case TYLONG: - Ptr->flint = (ftnint) f__lx; - break; -#ifdef Allow_TYQUAD - case TYQUAD: - if (!(Ptr->fllongint = f__llx)) - Ptr->fllongint = f__lx; - break; -#endif - case TYREAL: - Ptr->flreal = f__lx; - break; - case TYDREAL: - Ptr->fldouble = f__lx; - break; - case TYCOMPLEX: - xx = (real *) ptr; - *xx++ = f__lx; - *xx = f__ly; - break; - case TYDCOMPLEX: - yy = (doublereal *) ptr; - *yy++ = f__lx; - *yy = f__ly; - break; - case TYCHAR: - b_char (f__lchar, ptr, len); - break; - } - bump: - if (f__lcount > 0) - f__lcount--; - ptr += len; - if (nml_read) - nml_read++; - } - return (0); -#undef Ptr -} - -integer -s_rsle (cilist * a) -{ - int n; - - f__reading = 1; - f__external = 1; - f__formatted = 1; - if ((n = c_le (a))) - return (n); - f__lioproc = l_read; - f__lquit = 0; - f__lcount = 0; - l_eof = 0; - if (f__curunit->uwrt && f__nowreading (f__curunit)) - err (a->cierr, errno, "read start"); - if (f__curunit->uend) - err (f__elist->ciend, (EOF), "read start"); - l_getc = t_getc; - l_ungetc = un_getc; - f__doend = xrd_SL; - return (0); -} diff --git a/gnu/lib/libf2c/libI77/lwrite.c b/gnu/lib/libf2c/libI77/lwrite.c deleted file mode 100644 index b910ab19872..00000000000 --- a/gnu/lib/libf2c/libI77/lwrite.c +++ /dev/null @@ -1,277 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "fmt.h" -#include "lio.h" - -ftnint L_len; -int f__Aquote; - -static void -donewrec (void) -{ - if (f__recpos) - (*f__donewrec) (); -} - -static void -lwrt_I (longint n) -{ - char *p; - int ndigit, sign; - - p = f__icvt (n, &ndigit, &sign, 10); - if (f__recpos + ndigit >= L_len) - donewrec (); - PUT (' '); - if (sign) - PUT ('-'); - while (*p) - PUT (*p++); -} -static void -lwrt_L (ftnint n, ftnlen len) -{ - if (f__recpos + LLOGW >= L_len) - donewrec (); - wrt_L ((Uint *) & n, LLOGW, len); -} -static void -lwrt_A (char *p, ftnlen len) -{ - int a; - char *p1, *pe; - - a = 0; - pe = p + len; - if (f__Aquote) - { - a = 3; - if (len > 1 && p[len - 1] == ' ') - { - while (--len > 1 && p[len - 1] == ' '); - pe = p + len; - } - p1 = p; - while (p1 < pe) - if (*p1++ == '\'') - a++; - } - if (f__recpos + len + a >= L_len) - donewrec (); - if (a -#ifndef OMIT_BLANK_CC - || !f__recpos -#endif - ) - PUT (' '); - if (a) - { - PUT ('\''); - while (p < pe) - { - if (*p == '\'') - PUT ('\''); - PUT (*p++); - } - PUT ('\''); - } - else - while (p < pe) - PUT (*p++); -} - -static int -l_g (char *buf, double n) -{ -#ifdef Old_list_output - doublereal absn; - char *fmt; - - absn = n; - if (absn < 0) - absn = -absn; - fmt = LLOW <= absn && absn < LHIGH ? LFFMT : LEFMT; -#ifdef USE_STRLEN - sprintf (buf, fmt, n); - return strlen (buf); -#else - return sprintf (buf, fmt, n); -#endif - -#else - register char *b, c, c1; - - b = buf; - *b++ = ' '; - if (n < 0) - { - *b++ = '-'; - n = -n; - } - else - *b++ = ' '; - if (n == 0) - { - *b++ = '0'; - *b++ = '.'; - *b = 0; - goto f__ret; - } - sprintf (b, LGFMT, n); - switch (*b) - { -#ifndef WANT_LEAD_0 - case '0': - while (b[0] = b[1]) - b++; - break; -#endif - case 'i': - case 'I': - /* Infinity */ - case 'n': - case 'N': - /* NaN */ - while (*++b); - break; - - default: - /* Fortran 77 insists on having a decimal point... */ - for (;; b++) - switch (*b) - { - case 0: - *b++ = '.'; - *b = 0; - goto f__ret; - case '.': - while (*++b); - goto f__ret; - case 'E': - for (c1 = '.', c = 'E'; (*b = c1); c1 = c, c = *++b); - goto f__ret; - } - } -f__ret: - return b - buf; -#endif -} - -static void -l_put (register char *s) -{ - register void (*pn) (int) = f__putn; - register int c; - - while ((c = *s++)) - (*pn) (c); -} - -static void -lwrt_F (double n) -{ - char buf[LEFBL]; - - if (f__recpos + l_g (buf, n) >= L_len) - donewrec (); - l_put (buf); -} -static void -lwrt_C (double a, double b) -{ - char *ba, *bb, bufa[LEFBL], bufb[LEFBL]; - int al, bl; - - al = l_g (bufa, a); - for (ba = bufa; *ba == ' '; ba++) - --al; - bl = l_g (bufb, b) + 1; /* intentionally high by 1 */ - for (bb = bufb; *bb == ' '; bb++) - --bl; - if (f__recpos + al + bl + 3 >= L_len) - donewrec (); -#ifdef OMIT_BLANK_CC - else -#endif - PUT (' '); - PUT ('('); - l_put (ba); - PUT (','); - if (f__recpos + bl >= L_len) - { - (*f__donewrec) (); -#ifndef OMIT_BLANK_CC - PUT (' '); -#endif - } - l_put (bb); - PUT (')'); -} - -int -l_write (ftnint * number, char *ptr, ftnlen len, ftnint type) -{ -#define Ptr ((flex *)ptr) - int i; - longint x; - double y, z; - real *xx; - doublereal *yy; - for (i = 0; i < *number; i++) - { - switch ((int) type) - { - default: - f__fatal (204, "unknown type in lio"); - case TYINT1: - x = Ptr->flchar; - goto xint; - case TYSHORT: - x = Ptr->flshort; - goto xint; -#ifdef Allow_TYQUAD - case TYQUAD: - x = Ptr->fllongint; - goto xint; -#endif - case TYLONG: - x = Ptr->flint; - xint:lwrt_I (x); - break; - case TYREAL: - y = Ptr->flreal; - goto xfloat; - case TYDREAL: - y = Ptr->fldouble; - xfloat:lwrt_F (y); - break; - case TYCOMPLEX: - xx = &Ptr->flreal; - y = *xx++; - z = *xx; - goto xcomplex; - case TYDCOMPLEX: - yy = &Ptr->fldouble; - y = *yy++; - z = *yy; - xcomplex: - lwrt_C (y, z); - break; - case TYLOGICAL1: - x = Ptr->flchar; - goto xlog; - case TYLOGICAL2: - x = Ptr->flshort; - goto xlog; - case TYLOGICAL: - x = Ptr->flint; - xlog:lwrt_L (Ptr->flint, len); - break; - case TYCHAR: - lwrt_A (ptr, len); - break; - } - ptr += len; - } - return (0); -} diff --git a/gnu/lib/libf2c/libI77/makefile.netlib b/gnu/lib/libf2c/libI77/makefile.netlib deleted file mode 100644 index edba1fe8569..00000000000 --- a/gnu/lib/libf2c/libI77/makefile.netlib +++ /dev/null @@ -1,104 +0,0 @@ -.SUFFIXES: .c .o -CC = cc -CFLAGS = -O -SHELL = /bin/sh - -# compile, then strip unnecessary symbols -.c.o: - $(CC) -c -DSkip_f2c_Undefs $(CFLAGS) $*.c - ld -r -x -o $*.xxx $*.o - mv $*.xxx $*.o -## Under Solaris (and other systems that do not understand ld -x), -## omit -x in the ld line above. -## If your system does not have the ld command, comment out -## or remove both the ld and mv lines above. - -OBJ = Version.o backspace.o close.o dfe.o dolio.o due.o endfile.o err.o \ - fmt.o fmtlib.o ftell_.o iio.o ilnw.o inquire.o lread.o lwrite.o \ - open.o rdfmt.o rewind.o rsfe.o rsli.o rsne.o sfe.o sue.o typesize.o \ - uio.o util.o wref.o wrtfmt.o wsfe.o wsle.o wsne.o xwsne.o -libI77.a: $(OBJ) - ar r libI77.a $? - -ranlib libI77.a - -### If your system lacks ranlib, you don't need it; see README. - -install: libI77.a - cp libI77.a /usr/lib/libI77.a - ranlib /usr/lib/libI77.a - -Version.o: Version.c - $(CC) -c Version.c - -# To compile with C++, first "make f2c.h" -f2c.h: f2ch.add - cat /usr/include/f2c.h f2ch.add >f2c.h - - -clean: - rm -f $(OBJ) libI77.a - -clobber: clean - rm -f libI77.a - -backspace.o: fio.h -close.o: fio.h -dfe.o: fio.h -dfe.o: fmt.h -due.o: fio.h -endfile.o: fio.h rawio.h -err.o: fio.h rawio.h -fmt.o: fio.h -fmt.o: fmt.h -ftell_.o: fio.h -iio.o: fio.h -iio.o: fmt.h -ilnw.o: fio.h -ilnw.o: lio.h -inquire.o: fio.h -lread.o: fio.h -lread.o: fmt.h -lread.o: lio.h -lread.o: fp.h -lwrite.o: fio.h -lwrite.o: fmt.h -lwrite.o: lio.h -open.o: fio.h rawio.h -rdfmt.o: fio.h -rdfmt.o: fmt.h -rdfmt.o: fp.h -rewind.o: fio.h -rsfe.o: fio.h -rsfe.o: fmt.h -rsli.o: fio.h -rsli.o: lio.h -rsne.o: fio.h -rsne.o: lio.h -sfe.o: fio.h -sue.o: fio.h -uio.o: fio.h -util.o: fio.h -wref.o: fio.h -wref.o: fmt.h -wref.o: fp.h -wrtfmt.o: fio.h -wrtfmt.o: fmt.h -wsfe.o: fio.h -wsfe.o: fmt.h -wsle.o: fio.h -wsle.o: fmt.h -wsle.o: lio.h -wsne.o: fio.h -wsne.o: lio.h -xwsne.o: fio.h -xwsne.o: lio.h -xwsne.o: fmt.h - -check: - xsum Notice README Version.c backspace.c close.c dfe.c dolio.c \ - due.c endfile.c err.c f2ch.add fio.h fmt.c fmt.h fmtlib.c fp.h \ - ftell_.c iio.c ilnw.c inquire.c lio.h lread.c lwrite.c makefile \ - open.c rawio.h rdfmt.c rewind.c rsfe.c rsli.c rsne.c sfe.c sue.c \ - typesize.c uio.c util.c wref.c wrtfmt.c wsfe.c wsle.c wsne.c \ - xwsne.c >zap - cmp zap libI77.xsum && rm zap || diff libI77.xsum zap diff --git a/gnu/lib/libf2c/libI77/open.c b/gnu/lib/libf2c/libI77/open.c deleted file mode 100644 index ac1e00ec6de..00000000000 --- a/gnu/lib/libf2c/libI77/open.c +++ /dev/null @@ -1,301 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" -#include <string.h> -#ifndef NON_POSIX_STDIO -#ifdef MSDOS -#include "io.h" -#else -#include "unistd.h" /* for access */ -#endif -#endif - -#undef abs -#undef min -#undef max -#include <stdlib.h> -extern int f__canseek (FILE *); -extern integer f_clos (cllist *); - -#ifdef NON_ANSI_RW_MODES -char *f__r_mode[2] = { "r", "r" }; -char *f__w_mode[4] = { "w", "w", "r+w", "r+w" }; -#else -char *f__r_mode[2] = { "rb", "r" }; -char *f__w_mode[4] = { "wb", "w", "r+b", "r+" }; -#endif - -static char f__buf0[400], *f__buf = f__buf0; -int f__buflen = (int) sizeof (f__buf0); - -static void -f__bufadj (int n, int c) -{ - unsigned int len; - char *nbuf, *s, *t, *te; - - if (f__buf == f__buf0) - f__buflen = 1024; - while (f__buflen <= n) - f__buflen <<= 1; - len = (unsigned int) f__buflen; - if (len != f__buflen || !(nbuf = (char *) malloc (len))) - f__fatal (113, "malloc failure"); - s = nbuf; - t = f__buf; - te = t + c; - while (t < te) - *s++ = *t++; - if (f__buf != f__buf0) - free (f__buf); - f__buf = nbuf; -} - -int -f__putbuf (int c) -{ - char *s, *se; - int n; - - if (f__hiwater > f__recpos) - f__recpos = f__hiwater; - n = f__recpos + 1; - if (n >= f__buflen) - f__bufadj (n, f__recpos); - s = f__buf; - se = s + f__recpos; - if (c) - *se++ = c; - *se = 0; - for (;;) - { - fputs (s, f__cf); - s += strlen (s); - if (s >= se) - break; /* normally happens the first time */ - putc (*s++, f__cf); - } - return 0; -} - -void -x_putc (int c) -{ - if (f__recpos >= f__buflen) - f__bufadj (f__recpos, f__buflen); - f__buf[f__recpos++] = c; -} - -#define opnerr(f,m,s) \ - do {if(f) {f__init &= ~2; errno= m;} else opn_err(m,s,a); return(m);} while(0) - -static void -opn_err (int m, char *s, olist * a) -{ - if (a->ofnm) - { - /* supply file name to error message */ - if (a->ofnmlen >= f__buflen) - f__bufadj ((int) a->ofnmlen, 0); - g_char (a->ofnm, a->ofnmlen, f__curunit->ufnm = f__buf); - } - f__fatal (m, s); -} - -integer -f_open (olist * a) -{ - unit *b; - integer rv; - char buf[256], *s, *env; - cllist x; - int ufmt; - FILE *tf; - int fd, len; -#ifndef NON_UNIX_STDIO - int n; -#endif - if (f__init != 1) - f_init (); - f__external = 1; - if (a->ounit >= MXUNIT || a->ounit < 0) - err (a->oerr, 101, "open"); - f__curunit = b = &f__units[a->ounit]; - if (b->ufd) - { - if (a->ofnm == 0) - { - same:if (a->oblnk) - b->ublnk = *a->oblnk == 'z' || *a->oblnk == 'Z'; - return (0); - } -#ifdef NON_UNIX_STDIO - if (b->ufnm - && strlen (b->ufnm) == a->ofnmlen - && !strncmp (b->ufnm, a->ofnm, (unsigned) a->ofnmlen)) - goto same; -#else - g_char (a->ofnm, a->ofnmlen, buf); - if (f__inode (buf, &n) == b->uinode && n == b->udev) - goto same; -#endif - x.cunit = a->ounit; - x.csta = 0; - x.cerr = a->oerr; - if ((rv = f_clos (&x)) != 0) - return rv; - } - b->url = (int) a->orl; - b->ublnk = a->oblnk && (*a->oblnk == 'z' || *a->oblnk == 'Z'); - if (a->ofm == 0) - if ((a->oacc) && (*a->oacc == 'D' || *a->oacc == 'd')) - b->ufmt = 0; - else - b->ufmt = 1; - else if (*a->ofm == 'f' || *a->ofm == 'F') - b->ufmt = 1; - else - b->ufmt = 0; - ufmt = b->ufmt; -#ifdef url_Adjust - if (b->url && !ufmt) - url_Adjust (b->url); -#endif - if (a->ofnm) - { - g_char (a->ofnm, a->ofnmlen, buf); - if (!buf[0]) - opnerr (a->oerr, 107, "open"); - } - else - sprintf (buf, "fort.%ld", (long) a->ounit); - b->uscrtch = 0; - b->uend = 0; - b->uwrt = 0; - b->ufd = 0; - b->urw = 3; - switch (a->osta ? *a->osta : 'u') - { - case 'o': - case 'O': -#ifdef NON_POSIX_STDIO - if (!(tf = fopen (buf, "r"))) - opnerr (a->oerr, errno, "open"); - fclose (tf); -#else - if (access (buf, 0)) - opnerr (a->oerr, errno, "open"); -#endif - break; - case 's': - case 'S': - b->uscrtch = 1; -#ifdef HAVE_MKSTEMP /* Allow use of TMPDIR preferentially. */ - env = getenv ("TMPDIR"); - if (!env) - env = getenv ("TEMP"); - if (!env) - env = "/tmp"; - len = strlen (env); - if (len > 256 - (int) sizeof ("/tmp.FXXXXXX")) - err (a->oerr, 132, "open"); - strcpy (buf, env); - strcat (buf, "/tmp.FXXXXXX"); - fd = mkstemp (buf); - if (fd == -1 || close (fd)) - err (a->oerr, 132, "open"); -#else /* ! defined (HAVE_MKSTEMP) */ -#ifdef HAVE_TEMPNAM /* Allow use of TMPDIR preferentially. */ - s = tempnam (0, buf); - if (strlen (s) >= sizeof (buf)) - err (a->oerr, 132, "open"); - (void) strcpy (buf, s); - free (s); -#else /* ! defined (HAVE_TEMPNAM) */ -#ifdef HAVE_TMPNAM - tmpnam (buf); -#else - (void) strcpy (buf, "tmp.FXXXXXX"); - (void) mktemp (buf); -#endif -#endif /* ! defined (HAVE_TEMPNAM) */ -#endif /* ! defined (HAVE_MKSTEMP) */ - goto replace; - case 'n': - case 'N': -#ifdef NON_POSIX_STDIO - if ((tf = fopen (buf, "r")) || (tf = fopen (buf, "a"))) - { - fclose (tf); - opnerr (a->oerr, 128, "open"); - } -#else - if (!access (buf, 0)) - opnerr (a->oerr, 128, "open"); -#endif - /* no break */ - case 'r': /* Fortran 90 replace option */ - case 'R': - replace: - if ((tf = fopen (buf, f__w_mode[0]))) - fclose (tf); - } - - b->ufnm = (char *) malloc ((unsigned int) (strlen (buf) + 1)); - if (b->ufnm == NULL) - opnerr (a->oerr, 113, "no space"); - (void) strcpy (b->ufnm, buf); - if ((s = a->oacc) && b->url) - ufmt = 0; - if (!(tf = fopen (buf, f__w_mode[ufmt | 2]))) - { - if ((tf = fopen (buf, f__r_mode[ufmt]))) - b->urw = 1; - else if ((tf = fopen (buf, f__w_mode[ufmt]))) - { - b->uwrt = 1; - b->urw = 2; - } - else - err (a->oerr, errno, "open"); - } - b->useek = f__canseek (b->ufd = tf); -#ifndef NON_UNIX_STDIO - if ((b->uinode = f__inode (buf, &b->udev)) == -1) - opnerr (a->oerr, 108, "open"); -#endif - if (b->useek) - { - if (a->orl) - FSEEK (b->ufd, 0, SEEK_SET); - else if ((s = a->oacc) && (*s == 'a' || *s == 'A') - && FSEEK (b->ufd, 0, SEEK_END)) - opnerr (a->oerr, 129, "open"); - } - return (0); -} - -int -fk_open (int seq, int fmt, ftnint n) -{ - char nbuf[10]; - olist a; - int rtn; - int save_init; - - (void) sprintf (nbuf, "fort.%ld", (long) n); - a.oerr = 1; - a.ounit = n; - a.ofnm = nbuf; - a.ofnmlen = strlen (nbuf); - a.osta = NULL; - a.oacc = seq == SEQ ? "s" : "d"; - a.ofm = fmt == FMT ? "f" : "u"; - a.orl = seq == DIR ? 1 : 0; - a.oblnk = NULL; - save_init = f__init; - f__init &= ~2; - rtn = f_open (&a); - f__init = save_init | 1; - return rtn; -} diff --git a/gnu/lib/libf2c/libI77/rdfmt.c b/gnu/lib/libf2c/libI77/rdfmt.c deleted file mode 100644 index 8a8818aefb9..00000000000 --- a/gnu/lib/libf2c/libI77/rdfmt.c +++ /dev/null @@ -1,615 +0,0 @@ -#include "config.h" -#include <ctype.h> -#include "f2c.h" -#include "fio.h" - -extern int f__cursor; -#undef abs -#undef min -#undef max -#include <stdlib.h> - -#include "fmt.h" -#include "fp.h" - -static int -rd_Z (Uint * n, int w, ftnlen len) -{ - long x[9]; - char *s, *s0, *s1, *se, *t; - int ch, i, w1, w2; - static char hex[256]; - static int one = 1; - int bad = 0; - - if (!hex['0']) - { - s = "0123456789"; - while ((ch = *s++)) - hex[ch] = ch - '0' + 1; - s = "ABCDEF"; - while ((ch = *s++)) - hex[ch] = hex[ch + 'a' - 'A'] = ch - 'A' + 11; - } - s = s0 = (char *) x; - s1 = (char *) &x[4]; - se = (char *) &x[8]; - if (len > 4 * (ftnlen) sizeof (long)) - return errno = 117; - while (w) - { - GET (ch); - if (ch == ',' || ch == '\n') - break; - w--; - if (ch > ' ') - { - if (!hex[ch & 0xff]) - bad++; - *s++ = ch; - if (s == se) - { - /* discard excess characters */ - for (t = s0, s = s1; t < s1;) - *t++ = *s++; - s = s1; - } - } - } - if (bad) - return errno = 115; - w = (int) len; - w1 = s - s0; - w2 = (w1 + 1) >> 1; - t = (char *) n; - if (*(char *) &one) - { - /* little endian */ - t += w - 1; - i = -1; - } - else - i = 1; - for (; w > w2; t += i, --w) - *t = 0; - if (!w) - return 0; - if (w < w2) - s0 = s - (w << 1); - else if (w1 & 1) - { - *t = hex[*s0++ & 0xff] - 1; - if (!--w) - return 0; - t += i; - } - do - { - *t = (hex[*s0 & 0xff] - 1) << 4 | (hex[s0[1] & 0xff] - 1); - t += i; - s0 += 2; - } - while (--w); - return 0; -} - -static int -rd_I (Uint * n, int w, ftnlen len, register int base) -{ - int ch, sign; - longint x = 0; - - if (w <= 0) - goto have_x; - for (;;) - { - GET (ch); - if (ch != ' ') - break; - if (!--w) - goto have_x; - } - sign = 0; - switch (ch) - { - case ',': - case '\n': - w = 0; - goto have_x; - case '-': - sign = 1; - case '+': - break; - default: - if (ch >= '0' && ch <= '9') - { - x = ch - '0'; - break; - } - goto have_x; - } - while (--w) - { - GET (ch); - if (ch >= '0' && ch <= '9') - { - x = x * base + ch - '0'; - continue; - } - if (ch != ' ') - { - if (ch == '\n' || ch == ',') - w = 0; - break; - } - if (f__cblank) - x *= base; - } - if (sign) - x = -x; -have_x: - if (len == sizeof (integer)) - n->il = x; - else if (len == sizeof (char)) - n->ic = (char) x; -#ifdef Allow_TYQUAD - else if (len == sizeof (longint)) - n->ili = x; -#endif - else - n->is = (short) x; - if (w) - { - while (--w) - GET (ch); - return errno = 115; - } - return 0; -} - -static int -rd_L (ftnint * n, int w, ftnlen len) -{ - int ch, dot, lv; - - if (w <= 0) - goto bad; - for (;;) - { - GET (ch); - --w; - if (ch != ' ') - break; - if (!w) - goto bad; - } - dot = 0; -retry: - switch (ch) - { - case '.': - if (dot++ || !w) - goto bad; - GET (ch); - --w; - goto retry; - case 't': - case 'T': - lv = 1; - break; - case 'f': - case 'F': - lv = 0; - break; - default: - bad: - for (; w > 0; --w) - GET (ch); - /* no break */ - case ',': - case '\n': - return errno = 116; - } - /* The switch statement that was here - didn't cut it: It broke down for targets - where sizeof(char) == sizeof(short). */ - if (len == sizeof (char)) - *(char *) n = (char) lv; - else if (len == sizeof (short)) - *(short *) n = (short) lv; - else - *n = lv; - while (w-- > 0) - { - GET (ch); - if (ch == ',' || ch == '\n') - break; - } - return 0; -} - -static int -rd_F (ufloat * p, int w, int d, ftnlen len) -{ - char s[FMAX + EXPMAXDIGS + 4]; - register int ch; - register char *sp, *spe, *sp1; - double x; - int scale1, se; - long e, exp; - - sp1 = sp = s; - spe = sp + FMAX; - exp = -d; - x = 0.; - - do - { - GET (ch); - w--; - } - while (ch == ' ' && w); - switch (ch) - { - case '-': - *sp++ = ch; - sp1++; - spe++; - case '+': - if (!w) - goto zero; - --w; - GET (ch); - } - while (ch == ' ') - { - blankdrop: - if (!w--) - goto zero; - GET (ch); - } - while (ch == '0') - { - if (!w--) - goto zero; - GET (ch); - } - if (ch == ' ' && f__cblank) - goto blankdrop; - scale1 = f__scale; - while (isdigit (ch)) - { - digloop1: - if (sp < spe) - *sp++ = ch; - else - ++exp; - digloop1e: - if (!w--) - goto done; - GET (ch); - } - if (ch == ' ') - { - if (f__cblank) - { - ch = '0'; - goto digloop1; - } - goto digloop1e; - } - if (ch == '.') - { - exp += d; - if (!w--) - goto done; - GET (ch); - if (sp == sp1) - { /* no digits yet */ - while (ch == '0') - { - skip01: - --exp; - skip0: - if (!w--) - goto done; - GET (ch); - } - if (ch == ' ') - { - if (f__cblank) - goto skip01; - goto skip0; - } - } - while (isdigit (ch)) - { - digloop2: - if (sp < spe) - { - *sp++ = ch; - --exp; - } - digloop2e: - if (!w--) - goto done; - GET (ch); - } - if (ch == ' ') - { - if (f__cblank) - { - ch = '0'; - goto digloop2; - } - goto digloop2e; - } - } - switch (ch) - { - default: - break; - case '-': - se = 1; - goto signonly; - case '+': - se = 0; - goto signonly; - case 'e': - case 'E': - case 'd': - case 'D': - if (!w--) - goto bad; - GET (ch); - while (ch == ' ') - { - if (!w--) - goto bad; - GET (ch); - } - se = 0; - switch (ch) - { - case '-': - se = 1; - case '+': - signonly: - if (!w--) - goto bad; - GET (ch); - } - while (ch == ' ') - { - if (!w--) - goto bad; - GET (ch); - } - if (!isdigit (ch)) - goto bad; - - e = ch - '0'; - for (;;) - { - if (!w--) - { - ch = '\n'; - break; - } - GET (ch); - if (!isdigit (ch)) - { - if (ch == ' ') - { - if (f__cblank) - ch = '0'; - else - continue; - } - else - break; - } - e = 10 * e + ch - '0'; - if (e > EXPMAX && sp > sp1) - goto bad; - } - if (se) - exp -= e; - else - exp += e; - scale1 = 0; - } - switch (ch) - { - case '\n': - case ',': - break; - default: - bad: - return (errno = 115); - } -done: - if (sp > sp1) - { - while (*--sp == '0') - ++exp; - if (exp -= scale1) - sprintf (sp + 1, "e%ld", exp); - else - sp[1] = 0; - x = atof (s); - } -zero: - if (len == sizeof (real)) - p->pf = x; - else - p->pd = x; - return (0); -} - - -static int -rd_A (char *p, ftnlen len) -{ - int i, ch; - for (i = 0; i < len; i++) - { - GET (ch); - *p++ = VAL (ch); - } - return (0); -} -static int -rd_AW (char *p, int w, ftnlen len) -{ - int i, ch; - if (w >= len) - { - for (i = 0; i < w - len; i++) - GET (ch); - for (i = 0; i < len; i++) - { - GET (ch); - *p++ = VAL (ch); - } - return (0); - } - for (i = 0; i < w; i++) - { - GET (ch); - *p++ = VAL (ch); - } - for (i = 0; i < len - w; i++) - *p++ = ' '; - return (0); -} -static int -rd_H (int n, char *s) -{ - int i, ch; - for (i = 0; i < n; i++) - if ((ch = (*f__getn) ()) < 0) - return (ch); - else - *s++ = ch == '\n' ? ' ' : ch; - return (1); -} -static int -rd_POS (char *s) -{ - char quote; - int ch; - quote = *s++; - for (; *s; s++) - if (*s == quote && *(s + 1) != quote) - break; - else if ((ch = (*f__getn) ()) < 0) - return (ch); - else - *s = ch == '\n' ? ' ' : ch; - return (1); -} - -int -rd_ed (struct syl * p, char *ptr, ftnlen len) -{ - int ch; - for (; f__cursor > 0; f__cursor--) - if ((ch = (*f__getn) ()) < 0) - return (ch); - if (f__cursor < 0) - { - if (f__recpos + f__cursor < 0) /*err(elist->cierr,110,"fmt") */ - f__cursor = -f__recpos; /* is this in the standard? */ - if (f__external == 0) - { - extern char *f__icptr; - f__icptr += f__cursor; - } - else if (f__curunit && f__curunit->useek) - FSEEK (f__cf, (off_t) f__cursor, SEEK_CUR); - else - err (f__elist->cierr, 106, "fmt"); - f__recpos += f__cursor; - f__cursor = 0; - } - switch (p->op) - { - default: - fprintf (stderr, "rd_ed, unexpected code: %d\n", p->op); - sig_die (f__fmtbuf, 1); - case IM: - case I: - ch = rd_I ((Uint *) ptr, p->p1, len, 10); - break; - - /* O and OM don't work right for character, double, complex, */ - /* or doublecomplex, and they differ from Fortran 90 in */ - /* showing a minus sign for negative values. */ - - case OM: - case O: - ch = rd_I ((Uint *) ptr, p->p1, len, 8); - break; - case L: - ch = rd_L ((ftnint *) ptr, p->p1, len); - break; - case A: - ch = rd_A (ptr, len); - break; - case AW: - ch = rd_AW (ptr, p->p1, len); - break; - case E: - case EE: - case D: - case G: - case GE: - case F: - ch = rd_F ((ufloat *) ptr, p->p1, p->p2.i[0], len); - break; - - /* Z and ZM assume 8-bit bytes. */ - - case ZM: - case Z: - ch = rd_Z ((Uint *) ptr, p->p1, len); - break; - } - if (ch == 0) - return (ch); - else if (ch == EOF) - return (EOF); - if (f__cf) - clearerr (f__cf); - return (errno); -} - -int -rd_ned (struct syl * p) -{ - switch (p->op) - { - default: - fprintf (stderr, "rd_ned, unexpected code: %d\n", p->op); - sig_die (f__fmtbuf, 1); - case APOS: - return (rd_POS (p->p2.s)); - case H: - return (rd_H (p->p1, p->p2.s)); - case SLASH: - return ((*f__donewrec) ()); - case TR: - case X: - f__cursor += p->p1; - return (1); - case T: - f__cursor = p->p1 - f__recpos - 1; - return (1); - case TL: - f__cursor -= p->p1; - if (f__cursor < -f__recpos) /* TL1000, 1X */ - f__cursor = -f__recpos; - return (1); - } -} diff --git a/gnu/lib/libf2c/libI77/rewind.c b/gnu/lib/libf2c/libI77/rewind.c deleted file mode 100644 index d7a9b766192..00000000000 --- a/gnu/lib/libf2c/libI77/rewind.c +++ /dev/null @@ -1,25 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" -integer -f_rew (alist * a) -{ - unit *b; - if (f__init & 2) - f__fatal (131, "I/O recursion"); - if (a->aunit >= MXUNIT || a->aunit < 0) - err (a->aerr, 101, "rewind"); - b = &f__units[a->aunit]; - if (b->ufd == NULL || b->uwrt == 3) - return (0); - if (!b->useek) - err (a->aerr, 106, "rewind"); - if (b->uwrt) - { - (void) t_runc (a); - b->uwrt = 3; - } - FSEEK (b->ufd, 0, SEEK_SET); - b->uend = 0; - return (0); -} diff --git a/gnu/lib/libf2c/libI77/rsfe.c b/gnu/lib/libf2c/libI77/rsfe.c deleted file mode 100644 index 0dcda392ce0..00000000000 --- a/gnu/lib/libf2c/libI77/rsfe.c +++ /dev/null @@ -1,97 +0,0 @@ -/* read sequential formatted external */ -#include "config.h" -#include "f2c.h" -#include "fio.h" -#include "fmt.h" - -int -xrd_SL (void) -{ - int ch; - if (!f__curunit->uend) - while ((ch = getc (f__cf)) != '\n') - if (ch == EOF) - { - f__curunit->uend = 1; - break; - } - f__cursor = f__recpos = 0; - return (1); -} - -int -x_getc (void) -{ - int ch; - if (f__curunit->uend) - return (EOF); - ch = getc (f__cf); - if (ch != EOF && ch != '\n') - { - f__recpos++; - return (ch); - } - if (ch == '\n') - { - (void) ungetc (ch, f__cf); - return (ch); - } - if (f__curunit->uend || feof (f__cf)) - { - errno = 0; - f__curunit->uend = 1; - return (-1); - } - return (-1); -} - -int -x_endp (void) -{ - xrd_SL (); - return f__curunit->uend == 1 ? EOF : 0; -} - -int -x_rev (void) -{ - (void) xrd_SL (); - return (0); -} - -integer -s_rsfe (cilist * a) /* start */ -{ - int n; - if (f__init != 1) - f_init (); - f__init = 3; - f__reading = 1; - f__sequential = 1; - f__formatted = 1; - f__external = 1; - if ((n = c_sfe (a))) - return (n); - f__elist = a; - f__cursor = f__recpos = 0; - f__scale = 0; - f__fmtbuf = a->cifmt; - f__curunit = &f__units[a->ciunit]; - f__cf = f__curunit->ufd; - if (pars_f (f__fmtbuf) < 0) - err (a->cierr, 100, "startio"); - f__getn = x_getc; - f__doed = rd_ed; - f__doned = rd_ned; - fmt_bg (); - f__doend = x_endp; - f__donewrec = xrd_SL; - f__dorevert = x_rev; - f__cblank = f__curunit->ublnk; - f__cplus = 0; - if (f__curunit->uwrt && f__nowreading (f__curunit)) - err (a->cierr, errno, "read start"); - if (f__curunit->uend) - err (f__elist->ciend, (EOF), "read start"); - return (0); -} diff --git a/gnu/lib/libf2c/libI77/rsli.c b/gnu/lib/libf2c/libI77/rsli.c deleted file mode 100644 index c07632a0fca..00000000000 --- a/gnu/lib/libf2c/libI77/rsli.c +++ /dev/null @@ -1,99 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "lio.h" -#include "fmt.h" /* for f__doend */ - -extern flag f__lquit; -extern int f__lcount; -extern char *f__icptr; -extern char *f__icend; -extern icilist *f__svic; -extern int f__icnum, f__recpos; - -static int -i_getc (void) -{ - if (f__recpos >= f__svic->icirlen) - { - if (f__recpos++ == f__svic->icirlen) - return '\n'; - z_rnew (); - } - f__recpos++; - if (f__icptr >= f__icend) - return EOF; - return (*f__icptr++); -} - -static int -i_ungetc (int ch __attribute__ ((__unused__)), - FILE * f __attribute__ ((__unused__))) -{ - if (--f__recpos == f__svic->icirlen) - return '\n'; - if (f__recpos < -1) - err (f__svic->icierr, 110, "recend"); - /* *--icptr == ch, and icptr may point to read-only memory */ - return *--f__icptr /* = ch */ ; -} - -static void -c_lir (icilist * a) -{ - extern int l_eof; - if (f__init != 1) - f_init (); - f__init = 3; - f__reading = 1; - f__external = 0; - f__formatted = 1; - f__svic = a; - L_len = a->icirlen; - f__recpos = -1; - f__icnum = f__recpos = 0; - f__cursor = 0; - l_getc = i_getc; - l_ungetc = i_ungetc; - l_eof = 0; - f__icptr = a->iciunit; - f__icend = f__icptr + a->icirlen * a->icirnum; - f__cf = 0; - f__curunit = 0; - f__elist = (cilist *) a; -} - - -integer -s_rsli (icilist * a) -{ - f__lioproc = l_read; - f__lquit = 0; - f__lcount = 0; - c_lir (a); - f__doend = 0; - return (0); -} - -integer -e_rsli (void) -{ - f__init = 1; - return 0; -} - -extern int x_rsne (cilist *); - -integer -s_rsni (icilist * a) -{ - extern int nml_read; - integer rv; - cilist ca; - ca.ciend = a->iciend; - ca.cierr = a->icierr; - ca.cifmt = a->icifmt; - c_lir (a); - rv = x_rsne (&ca); - nml_read = 0; - return rv; -} diff --git a/gnu/lib/libf2c/libI77/rsne.c b/gnu/lib/libf2c/libI77/rsne.c deleted file mode 100644 index f233a4ad9f8..00000000000 --- a/gnu/lib/libf2c/libI77/rsne.c +++ /dev/null @@ -1,599 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" -#include "lio.h" - -#define MAX_NL_CACHE 3 /* maximum number of namelist hash tables to cache */ -#define MAXDIM 20 /* maximum number of subscripts */ - -struct dimen -{ - ftnlen extent; - ftnlen curval; - ftnlen delta; - ftnlen stride; -}; -typedef struct dimen dimen; - -struct hashentry -{ - struct hashentry *next; - char *name; - Vardesc *vd; -}; -typedef struct hashentry hashentry; - -struct hashtab -{ - struct hashtab *next; - Namelist *nl; - int htsize; - hashentry *tab[1]; -}; -typedef struct hashtab hashtab; - -static hashtab *nl_cache; -static int n_nlcache; -static hashentry **zot; -static int colonseen; -extern ftnlen f__typesize[]; - -extern flag f__lquit; -extern int f__lcount, nml_read; -extern int t_getc (void); - -#undef abs -#undef min -#undef max -#include <stdlib.h> -#include <string.h> - -#ifdef ungetc -static int -un_getc (int x, FILE * f__cf) -{ - return ungetc (x, f__cf); -} -#else -#define un_getc ungetc -extern int ungetc (int, FILE *); /* for systems with a buggy stdio.h */ -#endif - -static Vardesc * -hash (hashtab * ht, register char *s) -{ - register int c, x; - register hashentry *h; - char *s0 = s; - - for (x = 0; (c = *s++); x = x & 0x4000 ? ((x << 1) & 0x7fff) + 1 : x << 1) - x += c; - for (h = *(zot = ht->tab + x % ht->htsize); h; h = h->next) - if (!strcmp (s0, h->name)) - return h->vd; - return 0; -} - -hashtab * -mk_hashtab (Namelist * nl) -{ - int nht, nv; - hashtab *ht; - Vardesc *v, **vd, **vde; - hashentry *he; - - hashtab **x, **x0, *y; - for (x = &nl_cache; (y = *x); x0 = x, x = &y->next) - if (nl == y->nl) - return y; - if (n_nlcache >= MAX_NL_CACHE) - { - /* discard least recently used namelist hash table */ - y = *x0; - free ((char *) y->next); - y->next = 0; - } - else - n_nlcache++; - nv = nl->nvars; - if (nv >= 0x4000) - nht = 0x7fff; - else - { - for (nht = 1; nht < nv; nht <<= 1); - nht += nht - 1; - } - ht = (hashtab *) malloc (sizeof (hashtab) + (nht - 1) * sizeof (hashentry *) - + nv * sizeof (hashentry)); - if (!ht) - return 0; - he = (hashentry *) & ht->tab[nht]; - ht->nl = nl; - ht->htsize = nht; - ht->next = nl_cache; - nl_cache = ht; - memset ((char *) ht->tab, 0, nht * sizeof (hashentry *)); - vd = nl->vars; - vde = vd + nv; - while (vd < vde) - { - v = *vd++; - if (!hash (ht, v->name)) - { - he->next = *zot; - *zot = he; - he->name = v->name; - he->vd = v; - he++; - } - } - return ht; -} - -static char Alpha[256], Alphanum[256]; - -static void -nl_init (void) -{ - register char *s; - register int c; - - for (s = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; (c = *s++);) - Alpha[c] - = Alphanum[c] = Alpha[c + 'a' - 'A'] = Alphanum[c + 'a' - 'A'] = c; - for (s = "0123456789_"; (c = *s++);) - Alphanum[c] = c; -} - -#define GETC(x) (x=(*l_getc)()) -#define Ungetc(x,y) (*l_ungetc)(x,y) - -static int -getname (register char *s, int slen) -{ - register char *se = s + slen - 1; - register int ch; - - GETC (ch); - if (!(*s++ = Alpha[ch & 0xff])) - { - if (ch != EOF) - ch = 115; - errfl (f__elist->cierr, ch, "namelist read"); - } - while ((*s = Alphanum[GETC (ch) & 0xff])) - if (s < se) - s++; - if (ch == EOF) - err (f__elist->cierr, EOF, "namelist read"); - if (ch > ' ') - Ungetc (ch, f__cf); - return *s = 0; -} - -static int -getnum (int *chp, ftnlen * val) -{ - register int ch, sign; - register ftnlen x; - - while (GETC (ch) <= ' ' && ch >= 0); - if (ch == '-') - { - sign = 1; - GETC (ch); - } - else - { - sign = 0; - if (ch == '+') - GETC (ch); - } - x = ch - '0'; - if (x < 0 || x > 9) - return 115; - while (GETC (ch) >= '0' && ch <= '9') - x = 10 * x + ch - '0'; - while (ch <= ' ' && ch >= 0) - GETC (ch); - if (ch == EOF) - return EOF; - *val = sign ? -x : x; - *chp = ch; - return 0; -} - -static int -getdimen (int *chp, dimen * d, ftnlen delta, ftnlen extent, ftnlen * x1) -{ - register int k; - ftnlen x2, x3; - - if ((k = getnum (chp, x1))) - return k; - x3 = 1; - if (*chp == ':') - { - if ((k = getnum (chp, &x2))) - return k; - x2 -= *x1; - if (*chp == ':') - { - if ((k = getnum (chp, &x3))) - return k; - if (!x3) - return 123; - x2 /= x3; - colonseen = 1; - } - if (x2 < 0 || x2 >= extent) - return 123; - d->extent = x2 + 1; - } - else - d->extent = 1; - d->curval = 0; - d->delta = delta; - d->stride = x3; - return 0; -} - -#ifndef No_Namelist_Questions -static void -print_ne (cilist * a) -{ - flag intext = f__external; - int rpsave = f__recpos; - FILE *cfsave = f__cf; - unit *usave = f__curunit; - cilist t; - t = *a; - t.ciunit = 6; - s_wsne (&t); - fflush (f__cf); - f__external = intext; - f__reading = 1; - f__recpos = rpsave; - f__cf = cfsave; - f__curunit = usave; - f__elist = a; -} -#endif - -static char where0[] = "namelist read start "; - -int -x_rsne (cilist * a) -{ - int ch, got1, k, n, nd, quote, readall; - Namelist *nl; - static char where[] = "namelist read"; - char buf[64]; - hashtab *ht; - Vardesc *v; - dimen *dn, *dn0, *dn1; - ftnlen *dims, *dims1; - ftnlen b, b0, b1, ex, no, nomax, size, span; - ftnint no1, type; - char *vaddr; - long iva, ivae; - dimen dimens[MAXDIM], substr; - - if (!Alpha['a']) - nl_init (); - f__reading = 1; - f__formatted = 1; - got1 = 0; -top: - for (;;) - switch (GETC (ch)) - { - case EOF: - eof: - err (a->ciend, (EOF), where0); - case '&': - case '$': - goto have_amp; -#ifndef No_Namelist_Questions - case '?': - print_ne (a); - continue; -#endif - default: - if (ch <= ' ' && ch >= 0) - continue; -#ifndef No_Namelist_Comments - while (GETC (ch) != '\n') - if (ch == EOF) - goto eof; -#else - errfl (a->cierr, 115, where0); -#endif - } -have_amp: - if ((ch = getname (buf, sizeof (buf)))) - return ch; - nl = (Namelist *) a->cifmt; - if (strcmp (buf, nl->name)) -#ifdef No_Bad_Namelist_Skip - errfl (a->cierr, 118, where0); -#else - { - fprintf (stderr, - "Skipping namelist \"%s\": seeking namelist \"%s\".\n", - buf, nl->name); - fflush (stderr); - for (;;) - switch (GETC (ch)) - { - case EOF: - err (a->ciend, EOF, where0); - case '/': - case '&': - case '$': - if (f__external) - e_rsle (); - else - z_rnew (); - goto top; - case '"': - case '\'': - quote = ch; - more_quoted: - while (GETC (ch) != quote) - if (ch == EOF) - err (a->ciend, EOF, where0); - if (GETC (ch) == quote) - goto more_quoted; - Ungetc (ch, f__cf); - default: - continue; - } - } -#endif - ht = mk_hashtab (nl); - if (!ht) - errfl (f__elist->cierr, 113, where0); - for (;;) - { - for (;;) - switch (GETC (ch)) - { - case EOF: - if (got1) - return 0; - err (a->ciend, EOF, where0); - case '/': - case '$': - case '&': - return 0; - default: - if ((ch <= ' ' && ch >= 0) || ch == ',') - continue; - Ungetc (ch, f__cf); - if ((ch = getname (buf, sizeof (buf)))) - return ch; - goto havename; - } - havename: - v = hash (ht, buf); - if (!v) - errfl (a->cierr, 119, where); - while (GETC (ch) <= ' ' && ch >= 0); - vaddr = v->addr; - type = v->type; - if (type < 0) - { - size = -type; - type = TYCHAR; - } - else - size = f__typesize[type]; - ivae = size; - iva = readall = 0; - if (ch == '(' /*) */ ) - { - dn = dimens; - if (!(dims = v->dims)) - { - if (type != TYCHAR) - errfl (a->cierr, 122, where); - if ((k = getdimen (&ch, dn, (ftnlen) size, (ftnlen) size, &b))) - errfl (a->cierr, k, where); - if (ch != ')') - errfl (a->cierr, 115, where); - b1 = dn->extent; - if (--b < 0 || b + b1 > size) - return 124; - iva += b; - size = b1; - while (GETC (ch) <= ' ' && ch >= 0); - goto scalar; - } - nd = (int) dims[0]; - nomax = span = dims[1]; - ivae = iva + size * nomax; - colonseen = 0; - if ((k = getdimen (&ch, dn, size, nomax, &b))) - errfl (a->cierr, k, where); - no = dn->extent; - b0 = dims[2]; - dims1 = dims += 3; - ex = 1; - for (n = 1; n++ < nd; dims++) - { - if (ch != ',') - errfl (a->cierr, 115, where); - dn1 = dn + 1; - span /= *dims; - if ((k = getdimen (&ch, dn1, dn->delta ** dims, span, &b1))) - errfl (a->cierr, k, where); - ex *= *dims; - b += b1 * ex; - no *= dn1->extent; - dn = dn1; - } - if (ch != ')') - errfl (a->cierr, 115, where); - readall = 1 - colonseen; - b -= b0; - if (b < 0 || b >= nomax) - errfl (a->cierr, 125, where); - iva += size * b; - dims = dims1; - while (GETC (ch) <= ' ' && ch >= 0); - no1 = 1; - dn0 = dimens; - if (type == TYCHAR && ch == '(' /*) */ ) - { - if ((k = getdimen (&ch, &substr, size, size, &b))) - errfl (a->cierr, k, where); - if (ch != ')') - errfl (a->cierr, 115, where); - b1 = substr.extent; - if (--b < 0 || b + b1 > size) - return 124; - iva += b; - b0 = size; - size = b1; - while (GETC (ch) <= ' ' && ch >= 0); - if (b1 < b0) - goto delta_adj; - } - if (readall) - goto delta_adj; - for (; dn0 < dn; dn0++) - { - if (dn0->extent != *dims++ || dn0->stride != 1) - break; - no1 *= dn0->extent; - } - if (dn0 == dimens && dimens[0].stride == 1) - { - no1 = dimens[0].extent; - dn0++; - } - delta_adj: - ex = 0; - for (dn1 = dn0; dn1 <= dn; dn1++) - ex += (dn1->extent - 1) * (dn1->delta *= dn1->stride); - for (dn1 = dn; dn1 > dn0; dn1--) - { - ex -= (dn1->extent - 1) * dn1->delta; - dn1->delta -= ex; - } - } - else if ((dims = v->dims)) - { - no = no1 = dims[1]; - ivae = iva + no * size; - } - else - scalar: - no = no1 = 1; - if (ch != '=') - errfl (a->cierr, 115, where); - got1 = nml_read = 1; - f__lcount = 0; - readloop: - for (;;) - { - if (iva >= ivae || iva < 0) - { - f__lquit = 1; - goto mustend; - } - else if (iva + no1 * size > ivae) - no1 = (ivae - iva) / size; - f__lquit = 0; - if ((k = l_read (&no1, vaddr + iva, size, type))) - return k; - if (f__lquit == 1) - return 0; - if (readall) - { - iva += dn0->delta; - if (f__lcount > 0) - { - ftnint no2 = (ivae - iva) / size; - if (no2 > f__lcount) - no2 = f__lcount; - if ((k = l_read (&no2, vaddr + iva, size, type))) - return k; - iva += no2 * dn0->delta; - } - } - mustend: - GETC (ch); - if (readall) - { - if (iva >= ivae) - readall = 0; - else - for (;;) - { - switch (ch) - { - case ' ': - case '\t': - case '\n': - GETC (ch); - continue; - } - break; - } - } - if (ch == '/' || ch == '$' || ch == '&') - { - f__lquit = 1; - return 0; - } - else if (f__lquit) - { - while (ch <= ' ' && ch >= 0) - GETC (ch); - Ungetc (ch, f__cf); - if (!Alpha[ch & 0xff] && ch >= 0) - errfl (a->cierr, 125, where); - break; - } - Ungetc (ch, f__cf); - if (readall && !Alpha[ch & 0xff]) - goto readloop; - if ((no -= no1) <= 0) - break; - for (dn1 = dn0; dn1 <= dn; dn1++) - { - if (++dn1->curval < dn1->extent) - { - iva += dn1->delta; - goto readloop; - } - dn1->curval = 0; - } - break; - } - } -} - -integer -s_rsne (cilist * a) -{ - extern int l_eof; - int n; - - f__external = 1; - l_eof = 0; - if ((n = c_le (a))) - return n; - if (f__curunit->uwrt && f__nowreading (f__curunit)) - err (a->cierr, errno, where0); - l_getc = t_getc; - l_ungetc = un_getc; - f__doend = xrd_SL; - n = x_rsne (a); - nml_read = 0; - if (n) - return n; - return e_rsle (); -} diff --git a/gnu/lib/libf2c/libI77/sfe.c b/gnu/lib/libf2c/libI77/sfe.c deleted file mode 100644 index 8f05e480662..00000000000 --- a/gnu/lib/libf2c/libI77/sfe.c +++ /dev/null @@ -1,44 +0,0 @@ -/* sequential formatted external common routines*/ -#include "config.h" -#include "f2c.h" -#include "fio.h" - -extern char *f__fmtbuf; - -integer -e_rsfe (void) -{ - int n; - f__init = 1; - n = en_fio (); - f__fmtbuf = NULL; - return (n); -} - -int -c_sfe (cilist * a) /* check */ -{ - unit *p; - if (a->ciunit >= MXUNIT || a->ciunit < 0) - err (a->cierr, 101, "startio"); - p = &f__units[a->ciunit]; - if (p->ufd == NULL && fk_open (SEQ, FMT, a->ciunit)) - err (a->cierr, 114, "sfe"); - if (!p->ufmt) - err (a->cierr, 102, "sfe"); - return (0); -} - -integer -e_wsfe (void) -{ - int n; - f__init = 1; - n = en_fio (); - f__fmtbuf = NULL; -#ifdef ALWAYS_FLUSH - if (!n && fflush (f__cf)) - err (f__elist->cierr, errno, "write end"); -#endif - return n; -} diff --git a/gnu/lib/libf2c/libI77/stamp-h.in b/gnu/lib/libf2c/libI77/stamp-h.in deleted file mode 100644 index 9788f70238c..00000000000 --- a/gnu/lib/libf2c/libI77/stamp-h.in +++ /dev/null @@ -1 +0,0 @@ -timestamp diff --git a/gnu/lib/libf2c/libI77/sue.c b/gnu/lib/libf2c/libI77/sue.c deleted file mode 100644 index a20df66d31f..00000000000 --- a/gnu/lib/libf2c/libI77/sue.c +++ /dev/null @@ -1,93 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" -extern uiolen f__reclen; -off_t f__recloc; - -int -c_sue (cilist * a) -{ - f__external = f__sequential = 1; - f__formatted = 0; - f__curunit = &f__units[a->ciunit]; - if (a->ciunit >= MXUNIT || a->ciunit < 0) - err (a->cierr, 101, "startio"); - f__elist = a; - if (f__curunit->ufd == NULL && fk_open (SEQ, UNF, a->ciunit)) - err (a->cierr, 114, "sue"); - f__cf = f__curunit->ufd; - if (f__curunit->ufmt) - err (a->cierr, 103, "sue"); - if (!f__curunit->useek) - err (a->cierr, 103, "sue"); - return (0); -} - -integer -s_rsue (cilist * a) -{ - int n; - if (f__init != 1) - f_init (); - f__init = 3; - f__reading = 1; - if ((n = c_sue (a))) - return (n); - f__recpos = 0; - if (f__curunit->uwrt && f__nowreading (f__curunit)) - err (a->cierr, errno, "read start"); - if (fread ((char *) &f__reclen, sizeof (uiolen), 1, f__cf) != 1) - { - if (feof (f__cf)) - { - f__curunit->uend = 1; - err (a->ciend, EOF, "start"); - } - clearerr (f__cf); - err (a->cierr, errno, "start"); - } - return (0); -} - -integer -s_wsue (cilist * a) -{ - int n; - if (f__init != 1) - f_init (); - f__init = 3; - if ((n = c_sue (a))) - return (n); - f__reading = 0; - f__reclen = 0; - if (f__curunit->uwrt != 1 && f__nowwriting (f__curunit)) - err (a->cierr, errno, "write start"); - f__recloc = FTELL (f__cf); - FSEEK (f__cf, (off_t) sizeof (uiolen), SEEK_CUR); - return (0); -} - -integer -e_wsue (void) -{ - off_t loc; - f__init = 1; - fwrite ((char *) &f__reclen, sizeof (uiolen), 1, f__cf); -#ifdef ALWAYS_FLUSH - if (fflush (f__cf)) - err (f__elist->cierr, errno, "write end"); -#endif - loc = FTELL (f__cf); - FSEEK (f__cf, f__recloc, SEEK_SET); - fwrite ((char *) &f__reclen, sizeof (uiolen), 1, f__cf); - FSEEK (f__cf, loc, SEEK_SET); - return (0); -} - -integer -e_rsue (void) -{ - f__init = 1; - FSEEK (f__cf, (off_t) (f__reclen - f__recpos + sizeof (uiolen)), SEEK_CUR); - return (0); -} diff --git a/gnu/lib/libf2c/libI77/typesize.c b/gnu/lib/libf2c/libI77/typesize.c deleted file mode 100644 index 8e2a74ad195..00000000000 --- a/gnu/lib/libf2c/libI77/typesize.c +++ /dev/null @@ -1,14 +0,0 @@ -#include "config.h" -#include "f2c.h" - -ftnlen f__typesize[] = { 0, 0, sizeof (shortint), sizeof (integer), - sizeof (real), sizeof (doublereal), - sizeof (complex), sizeof (doublecomplex), - sizeof (logical), sizeof (char), - 0, sizeof (integer1), - sizeof (logical1), sizeof (shortlogical), -#ifdef Allow_TYQUAD - sizeof (longint), -#endif - 0 -}; diff --git a/gnu/lib/libf2c/libI77/uio.c b/gnu/lib/libf2c/libI77/uio.c deleted file mode 100644 index 706b5dd3d9c..00000000000 --- a/gnu/lib/libf2c/libI77/uio.c +++ /dev/null @@ -1,60 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" -#include <sys/types.h> -uiolen f__reclen; - -int -do_us (ftnint * number, char *ptr, ftnlen len) -{ - if (f__reading) - { - f__recpos += (int) (*number * len); - if (f__recpos > f__reclen) - err (f__elist->cierr, 110, "do_us"); - if (fread (ptr, (size_t) len, (size_t) (*number), f__cf) != (size_t) *number) - err (f__elist->ciend, EOF, "do_us"); - return (0); - } - else - { - f__reclen += *number * len; - (void) fwrite (ptr, (size_t) len, (size_t) (*number), f__cf); - return (0); - } -} -integer -do_ud (ftnint * number, char *ptr, ftnlen len) -{ - f__recpos += (int) (*number * len); - if (f__recpos > f__curunit->url && f__curunit->url != 1) - err (f__elist->cierr, 110, "do_ud"); - if (f__reading) - { -#ifdef Pad_UDread - size_t i; - if (!(i = fread (ptr, (size_t) len, (size_t) (*number), f__cf)) - && !(f__recpos - *number * len)) - err (f__elist->cierr, EOF, "do_ud"); - if (i < (size_t) *number) - memset (ptr + i * len, 0, (*number - i) * len); - return 0; -#else - if (fread (ptr, (size_t) len, (size_t) (*number), f__cf) != *number) - err (f__elist->cierr, EOF, "do_ud"); - else - return (0); -#endif - } - (void) fwrite (ptr, (size_t) len, (size_t) (*number), f__cf); - return (0); -} - -integer -do_uio (ftnint * number, char *ptr, ftnlen len) -{ - if (f__sequential) - return (do_us (number, ptr, len)); - else - return (do_ud (number, ptr, len)); -} diff --git a/gnu/lib/libf2c/libI77/util.c b/gnu/lib/libf2c/libI77/util.c deleted file mode 100644 index 6e7c52b14ce..00000000000 --- a/gnu/lib/libf2c/libI77/util.c +++ /dev/null @@ -1,52 +0,0 @@ -#include "config.h" -#ifndef NON_UNIX_STDIO -#define _INCLUDE_POSIX_SOURCE /* for HP-UX */ -#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */ -#include <sys/types.h> -#include <sys/stat.h> -#endif -#include "f2c.h" -#include "fio.h" - -void -g_char (char *a, ftnlen alen, char *b) -{ - char *x = a + alen, *y = b + alen; - - for (;; y--) - { - if (x <= a) - { - *b = 0; - return; - } - if (*--x != ' ') - break; - } - *y-- = 0; - do - *y-- = *x; - while (x-- > a); -} - -void -b_char (char *a, char *b, ftnlen blen) -{ - int i; - for (i = 0; i < blen && *a != 0; i++) - *b++ = *a++; - for (; i < blen; i++) - *b++ = ' '; -} - -#ifndef NON_UNIX_STDIO -long -f__inode (char *a, int *dev) -{ - struct stat x; - if (stat (a, &x) < 0) - return (-1); - *dev = x.st_dev; - return (x.st_ino); -} -#endif diff --git a/gnu/lib/libf2c/libI77/wref.c b/gnu/lib/libf2c/libI77/wref.c deleted file mode 100644 index 0dc30919da4..00000000000 --- a/gnu/lib/libf2c/libI77/wref.c +++ /dev/null @@ -1,306 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#ifndef VAX -#include <ctype.h> -#endif - -#undef abs -#undef min -#undef max -#include <stdlib.h> -#include <string.h> - -#include "fmt.h" -#include "fp.h" - -int -wrt_E (ufloat * p, int w, int d, int e, ftnlen len) -{ - char buf[FMAX + EXPMAXDIGS + 4], *s, *se; - int d1, delta, e1, i, sign, signspace; - double dd; -#ifdef WANT_LEAD_0 - int insert0 = 0; -#endif -#ifndef VAX - int e0 = e; -#endif - - if (e <= 0) - e = 2; - if (f__scale) - { - if (f__scale >= d + 2 || f__scale <= -d) - goto nogood; - } - if (f__scale <= 0) - --d; - if (len == sizeof (real)) - dd = p->pf; - else - dd = p->pd; - if (dd < 0.) - { - signspace = sign = 1; - dd = -dd; - } - else - { - sign = 0; - signspace = (int) f__cplus; -#ifndef VAX - if (!dd) - dd = 0.; /* avoid -0 */ -#endif - } - delta = w - (2 /* for the . and the d adjustment above */ - + 2 /* for the E+ */ + signspace + d + e); -#ifdef WANT_LEAD_0 - if (f__scale <= 0 && delta > 0) - { - delta--; - insert0 = 1; - } - else -#endif - if (delta < 0) - { - nogood: - while (--w >= 0) - PUT ('*'); - return (0); - } - if (f__scale < 0) - d += f__scale; - if (d > FMAX) - { - d1 = d - FMAX; - d = FMAX; - } - else - d1 = 0; - sprintf (buf, "%#.*E", d, dd); -#ifndef VAX - /* check for NaN, Infinity */ - if (!isdigit ((unsigned char) buf[0])) - { - switch (buf[0]) - { - case 'n': - case 'N': - signspace = 0; /* no sign for NaNs */ - } - delta = w - strlen (buf) - signspace; - if (delta < 0) - goto nogood; - while (--delta >= 0) - PUT (' '); - if (signspace) - PUT (sign ? '-' : '+'); - for (s = buf; *s; s++) - PUT (*s); - return 0; - } -#endif - se = buf + d + 3; -#ifdef GOOD_SPRINTF_EXPONENT /* When possible, exponent has 2 digits. */ - if (f__scale != 1 && dd) - sprintf (se, "%+.2d", atoi (se) + 1 - f__scale); -#else - if (dd) - sprintf (se, "%+.2d", atoi (se) + 1 - f__scale); - else - strcpy (se, "+00"); -#endif - s = ++se; - if (e < 2) - { - if (*s != '0') - goto nogood; - } -#ifndef VAX - /* accommodate 3 significant digits in exponent */ - if (s[2]) - { -#ifdef Pedantic - if (!e0 && !s[3]) - for (s -= 2, e1 = 2; s[0] = s[1]; s++); - - /* Pedantic gives the behavior that Fortran 77 specifies, */ - /* i.e., requires that E be specified for exponent fields */ - /* of more than 3 digits. With Pedantic undefined, we get */ - /* the behavior that Cray displays -- you get a bigger */ - /* exponent field if it fits. */ -#else - if (!e0) - { - for (s -= 2, e1 = 2; (s[0] = s[1]); s++) -#ifdef CRAY - delta--; - if ((delta += 4) < 0) - goto nogood -#endif - ; - } -#endif - else if (e0 >= 0) - goto shift; - else - e1 = e; - } - else - shift: -#endif - for (s += 2, e1 = 2; *s; ++e1, ++s) - if (e1 >= e) - goto nogood; - while (--delta >= 0) - PUT (' '); - if (signspace) - PUT (sign ? '-' : '+'); - s = buf; - i = f__scale; - if (f__scale <= 0) - { -#ifdef WANT_LEAD_0 - if (insert0) - PUT ('0'); -#endif - PUT ('.'); - for (; i < 0; ++i) - PUT ('0'); - PUT (*s); - s += 2; - } - else if (f__scale > 1) - { - PUT (*s); - s += 2; - while (--i > 0) - PUT (*s++); - PUT ('.'); - } - if (d1) - { - se -= 2; - while (s < se) - PUT (*s++); - se += 2; - do - PUT ('0'); - while (--d1 > 0); - } - while (s < se) - PUT (*s++); - if (e < 2) - PUT (s[1]); - else - { - while (++e1 <= e) - PUT ('0'); - while (*s) - PUT (*s++); - } - return 0; -} - -int -wrt_F (ufloat * p, int w, int d, ftnlen len) -{ - int d1, sign, n; - double x; - char *b, buf[MAXINTDIGS + MAXFRACDIGS + 4], *s; - - x = (len == sizeof (real) ? p->pf : p->pd); - if (d < MAXFRACDIGS) - d1 = 0; - else - { - d1 = d - MAXFRACDIGS; - d = MAXFRACDIGS; - } - if (x < 0.) - { - x = -x; - sign = 1; - } - else - { - sign = 0; -#ifndef VAX - if (!x) - x = 0.; -#endif - } - - if ((n = f__scale)) - { - if (n > 0) - do - x *= 10.; - while (--n > 0); - else - do - x *= 0.1; - while (++n < 0); - } - -#ifdef USE_STRLEN - sprintf (b = buf, "%#.*f", d, x); - n = strlen (b) + d1; -#else - n = sprintf (b = buf, "%#.*f", d, x) + d1; -#endif - -#ifndef WANT_LEAD_0 - if (buf[0] == '0' && d) - { - ++b; - --n; - } -#endif - if (sign) - { - /* check for all zeros */ - for (s = b;;) - { - while (*s == '0') - s++; - switch (*s) - { - case '.': - s++; - continue; - case 0: - sign = 0; - } - break; - } - } - if (sign || f__cplus) - ++n; - if (n > w) - { -#ifdef WANT_LEAD_0 - if (buf[0] == '0' && --n == w) - ++b; - else -#endif - { - while (--w >= 0) - PUT ('*'); - return 0; - } - } - for (w -= n; --w >= 0;) - PUT (' '); - if (sign) - PUT ('-'); - else if (f__cplus) - PUT ('+'); - while ((n = *b++)) - PUT (n); - while (--d1 >= 0) - PUT ('0'); - return 0; -} diff --git a/gnu/lib/libf2c/libI77/wrtfmt.c b/gnu/lib/libf2c/libI77/wrtfmt.c deleted file mode 100644 index 0190f7135ed..00000000000 --- a/gnu/lib/libf2c/libI77/wrtfmt.c +++ /dev/null @@ -1,401 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" -#include "fmt.h" - -extern icilist *f__svic; -extern char *f__icptr; - -static int -mv_cur (void) /* shouldn't use fseek because it insists on calling fflush */ - /* instead we know too much about stdio */ -{ - int cursor = f__cursor; - f__cursor = 0; - if (f__external == 0) - { - if (cursor < 0) - { - if (f__hiwater < f__recpos) - f__hiwater = f__recpos; - f__recpos += cursor; - f__icptr += cursor; - if (f__recpos < 0) - err (f__elist->cierr, 110, "left off"); - } - else if (cursor > 0) - { - if (f__recpos + cursor >= f__svic->icirlen) - err (f__elist->cierr, 110, "recend"); - if (f__hiwater <= f__recpos) - for (; cursor > 0; cursor--) - (*f__putn) (' '); - else if (f__hiwater <= f__recpos + cursor) - { - cursor -= f__hiwater - f__recpos; - f__icptr += f__hiwater - f__recpos; - f__recpos = f__hiwater; - for (; cursor > 0; cursor--) - (*f__putn) (' '); - } - else - { - f__icptr += cursor; - f__recpos += cursor; - } - } - return (0); - } - if (cursor > 0) - { - if (f__hiwater <= f__recpos) - for (; cursor > 0; cursor--) - (*f__putn) (' '); - else if (f__hiwater <= f__recpos + cursor) - { - cursor -= f__hiwater - f__recpos; - f__recpos = f__hiwater; - for (; cursor > 0; cursor--) - (*f__putn) (' '); - } - else - { - f__recpos += cursor; - } - } - else if (cursor < 0) - { - if (cursor + f__recpos < 0) - err (f__elist->cierr, 110, "left off"); - if (f__hiwater < f__recpos) - f__hiwater = f__recpos; - f__recpos += cursor; - } - return (0); -} - -static int -wrt_Z (Uint * n, int w, int minlen, ftnlen len) -{ - register char *s, *se; - register int i, w1; - static int one = 1; - static char hex[] = "0123456789ABCDEF"; - s = (char *) n; - --len; - if (*(char *) &one) - { - /* little endian */ - se = s; - s += len; - i = -1; - } - else - { - se = s + len; - i = 1; - } - for (;; s += i) - if (s == se || *s) - break; - w1 = (i * (se - s) << 1) + 1; - if (*s & 0xf0) - w1++; - if (w1 > w) - for (i = 0; i < w; i++) - (*f__putn) ('*'); - else - { - if ((minlen -= w1) > 0) - w1 += minlen; - while (--w >= w1) - (*f__putn) (' '); - while (--minlen >= 0) - (*f__putn) ('0'); - if (!(*s & 0xf0)) - { - (*f__putn) (hex[*s & 0xf]); - if (s == se) - return 0; - s += i; - } - for (;; s += i) - { - (*f__putn) (hex[*s >> 4 & 0xf]); - (*f__putn) (hex[*s & 0xf]); - if (s == se) - break; - } - } - return 0; -} - -static int -wrt_I (Uint * n, int w, ftnlen len, register int base) -{ - int ndigit, sign, spare, i; - longint x; - char *ans; - if (len == sizeof (integer)) - x = n->il; - else if (len == sizeof (char)) - x = n->ic; -#ifdef Allow_TYQUAD - else if (len == sizeof (longint)) - x = n->ili; -#endif - else - x = n->is; - ans = f__icvt (x, &ndigit, &sign, base); - spare = w - ndigit; - if (sign || f__cplus) - spare--; - if (spare < 0) - for (i = 0; i < w; i++) - (*f__putn) ('*'); - else - { - for (i = 0; i < spare; i++) - (*f__putn) (' '); - if (sign) - (*f__putn) ('-'); - else if (f__cplus) - (*f__putn) ('+'); - for (i = 0; i < ndigit; i++) - (*f__putn) (*ans++); - } - return (0); -} -static int -wrt_IM (Uint * n, int w, int m, ftnlen len, int base) -{ - int ndigit, sign, spare, i, xsign; - longint x; - char *ans; - if (sizeof (integer) == len) - x = n->il; - else if (len == sizeof (char)) - x = n->ic; -#ifdef Allow_TYQUAD - else if (len == sizeof (longint)) - x = n->ili; -#endif - else - x = n->is; - ans = f__icvt (x, &ndigit, &sign, base); - if (sign || f__cplus) - xsign = 1; - else - xsign = 0; - if (ndigit + xsign > w || m + xsign > w) - { - for (i = 0; i < w; i++) - (*f__putn) ('*'); - return (0); - } - if (x == 0 && m == 0) - { - for (i = 0; i < w; i++) - (*f__putn) (' '); - return (0); - } - if (ndigit >= m) - spare = w - ndigit - xsign; - else - spare = w - m - xsign; - for (i = 0; i < spare; i++) - (*f__putn) (' '); - if (sign) - (*f__putn) ('-'); - else if (f__cplus) - (*f__putn) ('+'); - for (i = 0; i < m - ndigit; i++) - (*f__putn) ('0'); - for (i = 0; i < ndigit; i++) - (*f__putn) (*ans++); - return (0); -} -static int -wrt_AP (char *s) -{ - char quote; - int i; - - if (f__cursor && (i = mv_cur ())) - return i; - quote = *s++; - for (; *s; s++) - { - if (*s != quote) - (*f__putn) (*s); - else if (*++s == quote) - (*f__putn) (*s); - else - return (1); - } - return (1); -} -static int -wrt_H (int a, char *s) -{ - int i; - - if (f__cursor && (i = mv_cur ())) - return i; - while (a--) - (*f__putn) (*s++); - return (1); -} - -int -wrt_L (Uint * n, int len, ftnlen sz) -{ - int i; - long x; - if (sizeof (long) == sz) - x = n->il; - else if (sz == sizeof (char)) - x = n->ic; - else - x = n->is; - for (i = 0; i < len - 1; i++) - (*f__putn) (' '); - if (x) - (*f__putn) ('T'); - else - (*f__putn) ('F'); - return (0); -} -static int -wrt_A (char *p, ftnlen len) -{ - while (len-- > 0) - (*f__putn) (*p++); - return (0); -} -static int -wrt_AW (char *p, int w, ftnlen len) -{ - while (w > len) - { - w--; - (*f__putn) (' '); - } - while (w-- > 0) - (*f__putn) (*p++); - return (0); -} - -static int -wrt_G (ufloat * p, int w, int d, int e, ftnlen len) -{ - double up = 1, x; - int i = 0, oldscale, n, j; - x = len == sizeof (real) ? p->pf : p->pd; - if (x < 0) - x = -x; - if (x < .1) - { - if (x != 0.) - return (wrt_E (p, w, d, e, len)); - i = 1; - goto have_i; - } - for (; i <= d; i++, up *= 10) - { - if (x >= up) - continue; - have_i: - oldscale = f__scale; - f__scale = 0; - if (e == 0) - n = 4; - else - n = e + 2; - i = wrt_F (p, w - n, d - i, len); - for (j = 0; j < n; j++) - (*f__putn) (' '); - f__scale = oldscale; - return (i); - } - return (wrt_E (p, w, d, e, len)); -} - -int -w_ed (struct syl * p, char *ptr, ftnlen len) -{ - int i; - - if (f__cursor && (i = mv_cur ())) - return i; - switch (p->op) - { - default: - fprintf (stderr, "w_ed, unexpected code: %d\n", p->op); - sig_die (f__fmtbuf, 1); - case I: - return (wrt_I ((Uint *) ptr, p->p1, len, 10)); - case IM: - return (wrt_IM ((Uint *) ptr, p->p1, p->p2.i[0], len, 10)); - - /* O and OM don't work right for character, double, complex, */ - /* or doublecomplex, and they differ from Fortran 90 in */ - /* showing a minus sign for negative values. */ - - case O: - return (wrt_I ((Uint *) ptr, p->p1, len, 8)); - case OM: - return (wrt_IM ((Uint *) ptr, p->p1, p->p2.i[0], len, 8)); - case L: - return (wrt_L ((Uint *) ptr, p->p1, len)); - case A: - return (wrt_A (ptr, len)); - case AW: - return (wrt_AW (ptr, p->p1, len)); - case D: - case E: - case EE: - return (wrt_E ((ufloat *) ptr, p->p1, p->p2.i[0], p->p2.i[1], len)); - case G: - case GE: - return (wrt_G ((ufloat *) ptr, p->p1, p->p2.i[0], p->p2.i[1], len)); - case F: - return (wrt_F ((ufloat *) ptr, p->p1, p->p2.i[0], len)); - - /* Z and ZM assume 8-bit bytes. */ - - case Z: - return (wrt_Z ((Uint *) ptr, p->p1, 0, len)); - case ZM: - return (wrt_Z ((Uint *) ptr, p->p1, p->p2.i[0], len)); - } -} - -int -w_ned (struct syl * p) -{ - switch (p->op) - { - default: - fprintf (stderr, "w_ned, unexpected code: %d\n", p->op); - sig_die (f__fmtbuf, 1); - case SLASH: - return ((*f__donewrec) ()); - case T: - f__cursor = p->p1 - f__recpos - 1; - return (1); - case TL: - f__cursor -= p->p1; - if (f__cursor < -f__recpos) /* TL1000, 1X */ - f__cursor = -f__recpos; - return (1); - case TR: - case X: - f__cursor += p->p1; - return (1); - case APOS: - return (wrt_AP (p->p2.s)); - case H: - return (wrt_H (p->p1, p->p2.s)); - } -} diff --git a/gnu/lib/libf2c/libI77/wsfe.c b/gnu/lib/libf2c/libI77/wsfe.c deleted file mode 100644 index 46f7a8ffef0..00000000000 --- a/gnu/lib/libf2c/libI77/wsfe.c +++ /dev/null @@ -1,79 +0,0 @@ -/*write sequential formatted external*/ -#include "config.h" -#include "f2c.h" -#include "fio.h" -#include "fmt.h" -extern int f__hiwater; - -int -x_wSL (void) -{ - int n = f__putbuf ('\n'); - f__hiwater = f__recpos = f__cursor = 0; - return (n == 0); -} - -static int -xw_end (void) -{ - int n; - - if (f__nonl) - { - f__putbuf (n = 0); - fflush (f__cf); - } - else - n = f__putbuf ('\n'); - f__hiwater = f__recpos = f__cursor = 0; - return n; -} - -static int -xw_rev (void) -{ - int n = 0; - if (f__workdone) - { - n = f__putbuf ('\n'); - f__workdone = 0; - } - f__hiwater = f__recpos = f__cursor = 0; - return n; -} - -integer -s_wsfe (cilist * a) /*start */ -{ - int n; - if (f__init != 1) - f_init (); - f__init = 3; - f__reading = 0; - f__sequential = 1; - f__formatted = 1; - f__external = 1; - if ((n = c_sfe (a))) - return (n); - f__elist = a; - f__hiwater = f__cursor = f__recpos = 0; - f__nonl = 0; - f__scale = 0; - f__fmtbuf = a->cifmt; - f__curunit = &f__units[a->ciunit]; - f__cf = f__curunit->ufd; - if (pars_f (f__fmtbuf) < 0) - err (a->cierr, 100, "startio"); - f__putn = x_putc; - f__doed = w_ed; - f__doned = w_ned; - f__doend = xw_end; - f__dorevert = xw_rev; - f__donewrec = x_wSL; - fmt_bg (); - f__cplus = 0; - f__cblank = f__curunit->ublnk; - if (f__curunit->uwrt != 1 && f__nowwriting (f__curunit)) - err (a->cierr, errno, "write start"); - return (0); -} diff --git a/gnu/lib/libf2c/libI77/wsle.c b/gnu/lib/libf2c/libI77/wsle.c deleted file mode 100644 index e9ef172d591..00000000000 --- a/gnu/lib/libf2c/libI77/wsle.c +++ /dev/null @@ -1,38 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" -#include "fmt.h" -#include "lio.h" -#include "string.h" - -integer -s_wsle (cilist * a) -{ - int n; - if ((n = c_le (a))) - return (n); - f__reading = 0; - f__external = 1; - f__formatted = 1; - f__putn = x_putc; - f__lioproc = l_write; - L_len = LINE; - f__donewrec = x_wSL; - if (f__curunit->uwrt != 1 && f__nowwriting (f__curunit)) - err (a->cierr, errno, "list output start"); - return (0); -} - -integer -e_wsle (void) -{ - int n; - f__init = 1; - n = f__putbuf ('\n'); - f__recpos = 0; -#ifdef ALWAYS_FLUSH - if (!n && fflush (f__cf)) - err (f__elist->cierr, errno, "write end"); -#endif - return (n); -} diff --git a/gnu/lib/libf2c/libI77/wsne.c b/gnu/lib/libf2c/libI77/wsne.c deleted file mode 100644 index bcf08262de1..00000000000 --- a/gnu/lib/libf2c/libI77/wsne.c +++ /dev/null @@ -1,22 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "lio.h" - -integer -s_wsne (cilist * a) -{ - int n; - - if ((n = c_le (a))) - return (n); - f__reading = 0; - f__external = 1; - f__formatted = 1; - f__putn = x_putc; - L_len = LINE; - f__donewrec = x_wSL; - if (f__curunit->uwrt != 1 && f__nowwriting (f__curunit)) - err (a->cierr, errno, "namelist output start"); - x_wsne (a); - return e_wsle (); -} diff --git a/gnu/lib/libf2c/libI77/xwsne.c b/gnu/lib/libf2c/libI77/xwsne.c deleted file mode 100644 index 68b606c8276..00000000000 --- a/gnu/lib/libf2c/libI77/xwsne.c +++ /dev/null @@ -1,71 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" -#include "lio.h" -#include "fmt.h" - -extern int f__Aquote; - -static void -nl_donewrec (void) -{ - (*f__donewrec) (); - PUT (' '); -} - -#include <string.h> - -void -x_wsne (cilist * a) -{ - Namelist *nl; - char *s; - Vardesc *v, **vd, **vde; - ftnint number, type; - ftnlen *dims; - ftnlen size; - extern ftnlen f__typesize[]; - - nl = (Namelist *) a->cifmt; - PUT ('&'); - for (s = nl->name; *s; s++) - PUT (*s); - PUT (' '); - f__Aquote = 1; - vd = nl->vars; - vde = vd + nl->nvars; - while (vd < vde) - { - v = *vd++; - s = v->name; -#ifdef No_Extra_Namelist_Newlines - if (f__recpos + strlen (s) + 2 >= L_len) -#endif - nl_donewrec (); - while (*s) - PUT (*s++); - PUT (' '); - PUT ('='); - number = (dims = v->dims) ? dims[1] : 1; - type = v->type; - if (type < 0) - { - size = -type; - type = TYCHAR; - } - else - size = f__typesize[type]; - l_write (&number, v->addr, size, type); - if (vd < vde) - { - if (f__recpos + 2 >= L_len) - nl_donewrec (); - PUT (','); - PUT (' '); - } - else if (f__recpos + 1 >= L_len) - nl_donewrec (); - } - f__Aquote = 0; - PUT ('/'); -} diff --git a/gnu/lib/libf2c/libU77/COPYING.LIB b/gnu/lib/libf2c/libU77/COPYING.LIB deleted file mode 100644 index b1e3f5a2638..00000000000 --- a/gnu/lib/libf2c/libU77/COPYING.LIB +++ /dev/null @@ -1,504 +0,0 @@ - GNU LESSER GENERAL PUBLIC LICENSE - Version 2.1, February 1999 - - Copyright (C) 1991, 1999 Free Software Foundation, Inc. - 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - Everyone is permitted to copy and distribute verbatim copies - of this license document, but changing it is not allowed. - -[This is the first released version of the Lesser GPL. It also counts - as the successor of the GNU Library Public License, version 2, hence - the version number 2.1.] - - Preamble - - The licenses for most software are designed to take away your -freedom to share and change it. By contrast, the GNU General Public -Licenses are intended to guarantee your freedom to share and change -free software--to make sure the software is free for all its users. - - This license, the Lesser General Public License, applies to some -specially designated software packages--typically libraries--of the -Free Software Foundation and other authors who decide to use it. You -can use it too, but we suggest you first think carefully about whether -this license or the ordinary General Public License is the better -strategy to use in any particular case, based on the explanations below. - - When we speak of free software, we are referring to freedom of use, -not price. Our General Public Licenses are designed to make sure that -you have the freedom to distribute copies of free software (and charge -for this service if you wish); that you receive source code or can get -it if you want it; that you can change the software and use pieces of -it in new free programs; and that you are informed that you can do -these things. - - To protect your rights, we need to make restrictions that forbid -distributors to deny you these rights or to ask you to surrender these -rights. These restrictions translate to certain responsibilities for -you if you distribute copies of the library or if you modify it. - - For example, if you distribute copies of the library, whether gratis -or for a fee, you must give the recipients all the rights that we gave -you. You must make sure that they, too, receive or can get the source -code. If you link other code with the library, you must provide -complete object files to the recipients, so that they can relink them -with the library after making changes to the library and recompiling -it. And you must show them these terms so they know their rights. - - We protect your rights with a two-step method: (1) we copyright the -library, and (2) we offer you this license, which gives you legal -permission to copy, distribute and/or modify the library. - - To protect each distributor, we want to make it very clear that -there is no warranty for the free library. Also, if the library is -modified by someone else and passed on, the recipients should know -that what they have is not the original version, so that the original -author's reputation will not be affected by problems that might be -introduced by others. - - Finally, software patents pose a constant threat to the existence of -any free program. We wish to make sure that a company cannot -effectively restrict the users of a free program by obtaining a -restrictive license from a patent holder. Therefore, we insist that -any patent license obtained for a version of the library must be -consistent with the full freedom of use specified in this license. - - Most GNU software, including some libraries, is covered by the -ordinary GNU General Public License. This license, the GNU Lesser -General Public License, applies to certain designated libraries, and -is quite different from the ordinary General Public License. We use -this license for certain libraries in order to permit linking those -libraries into non-free programs. - - When a program is linked with a library, whether statically or using -a shared library, the combination of the two is legally speaking a -combined work, a derivative of the original library. The ordinary -General Public License therefore permits such linking only if the -entire combination fits its criteria of freedom. The Lesser General -Public License permits more lax criteria for linking other code with -the library. - - We call this license the "Lesser" General Public License because it -does Less to protect the user's freedom than the ordinary General -Public License. It also provides other free software developers Less -of an advantage over competing non-free programs. These disadvantages -are the reason we use the ordinary General Public License for many -libraries. However, the Lesser license provides advantages in certain -special circumstances. - - For example, on rare occasions, there may be a special need to -encourage the widest possible use of a certain library, so that it becomes -a de-facto standard. To achieve this, non-free programs must be -allowed to use the library. A more frequent case is that a free -library does the same job as widely used non-free libraries. In this -case, there is little to gain by limiting the free library to free -software only, so we use the Lesser General Public License. - - In other cases, permission to use a particular library in non-free -programs enables a greater number of people to use a large body of -free software. For example, permission to use the GNU C Library in -non-free programs enables many more people to use the whole GNU -operating system, as well as its variant, the GNU/Linux operating -system. - - Although the Lesser General Public License is Less protective of the -users' freedom, it does ensure that the user of a program that is -linked with the Library has the freedom and the wherewithal to run -that program using a modified version of the Library. - - The precise terms and conditions for copying, distribution and -modification follow. Pay close attention to the difference between a -"work based on the library" and a "work that uses the library". The -former contains code derived from the library, whereas the latter must -be combined with the library in order to run. - - GNU LESSER GENERAL PUBLIC LICENSE - TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION - - 0. This License Agreement applies to any software library or other -program which contains a notice placed by the copyright holder or -other authorized party saying it may be distributed under the terms of -this Lesser General Public License (also called "this License"). -Each licensee is addressed as "you". - - A "library" means a collection of software functions and/or data -prepared so as to be conveniently linked with application programs -(which use some of those functions and data) to form executables. - - The "Library", below, refers to any such software library or work -which has been distributed under these terms. A "work based on the -Library" means either the Library or any derivative work under -copyright law: that is to say, a work containing the Library or a -portion of it, either verbatim or with modifications and/or translated -straightforwardly into another language. (Hereinafter, translation is -included without limitation in the term "modification".) - - "Source code" for a work means the preferred form of the work for -making modifications to it. For a library, complete source code means -all the source code for all modules it contains, plus any associated -interface definition files, plus the scripts used to control compilation -and installation of the library. - - Activities other than copying, distribution and modification are not -covered by this License; they are outside its scope. The act of -running a program using the Library is not restricted, and output from -such a program is covered only if its contents constitute a work based -on the Library (independent of the use of the Library in a tool for -writing it). Whether that is true depends on what the Library does -and what the program that uses the Library does. - - 1. You may copy and distribute verbatim copies of the Library's -complete source code as you receive it, in any medium, provided that -you conspicuously and appropriately publish on each copy an -appropriate copyright notice and disclaimer of warranty; keep intact -all the notices that refer to this License and to the absence of any -warranty; and distribute a copy of this License along with the -Library. - - You may charge a fee for the physical act of transferring a copy, -and you may at your option offer warranty protection in exchange for a -fee. - - 2. You may modify your copy or copies of the Library or any portion -of it, thus forming a work based on the Library, and copy and -distribute such modifications or work under the terms of Section 1 -above, provided that you also meet all of these conditions: - - a) The modified work must itself be a software library. - - b) You must cause the files modified to carry prominent notices - stating that you changed the files and the date of any change. - - c) You must cause the whole of the work to be licensed at no - charge to all third parties under the terms of this License. - - d) If a facility in the modified Library refers to a function or a - table of data to be supplied by an application program that uses - the facility, other than as an argument passed when the facility - is invoked, then you must make a good faith effort to ensure that, - in the event an application does not supply such function or - table, the facility still operates, and performs whatever part of - its purpose remains meaningful. - - (For example, a function in a library to compute square roots has - a purpose that is entirely well-defined independent of the - application. Therefore, Subsection 2d requires that any - application-supplied function or table used by this function must - be optional: if the application does not supply it, the square - root function must still compute square roots.) - -These requirements apply to the modified work as a whole. If -identifiable sections of that work are not derived from the Library, -and can be reasonably considered independent and separate works in -themselves, then this License, and its terms, do not apply to those -sections when you distribute them as separate works. But when you -distribute the same sections as part of a whole which is a work based -on the Library, the distribution of the whole must be on the terms of -this License, whose permissions for other licensees extend to the -entire whole, and thus to each and every part regardless of who wrote -it. - -Thus, it is not the intent of this section to claim rights or contest -your rights to work written entirely by you; rather, the intent is to -exercise the right to control the distribution of derivative or -collective works based on the Library. - -In addition, mere aggregation of another work not based on the Library -with the Library (or with a work based on the Library) on a volume of -a storage or distribution medium does not bring the other work under -the scope of this License. - - 3. You may opt to apply the terms of the ordinary GNU General Public -License instead of this License to a given copy of the Library. To do -this, you must alter all the notices that refer to this License, so -that they refer to the ordinary GNU General Public License, version 2, -instead of to this License. (If a newer version than version 2 of the -ordinary GNU General Public License has appeared, then you can specify -that version instead if you wish.) Do not make any other change in -these notices. - - Once this change is made in a given copy, it is irreversible for -that copy, so the ordinary GNU General Public License applies to all -subsequent copies and derivative works made from that copy. - - This option is useful when you wish to copy part of the code of -the Library into a program that is not a library. - - 4. You may copy and distribute the Library (or a portion or -derivative of it, under Section 2) in object code or executable form -under the terms of Sections 1 and 2 above provided that you accompany -it with the complete corresponding machine-readable source code, which -must be distributed under the terms of Sections 1 and 2 above on a -medium customarily used for software interchange. - - If distribution of object code is made by offering access to copy -from a designated place, then offering equivalent access to copy the -source code from the same place satisfies the requirement to -distribute the source code, even though third parties are not -compelled to copy the source along with the object code. - - 5. A program that contains no derivative of any portion of the -Library, but is designed to work with the Library by being compiled or -linked with it, is called a "work that uses the Library". Such a -work, in isolation, is not a derivative work of the Library, and -therefore falls outside the scope of this License. - - However, linking a "work that uses the Library" with the Library -creates an executable that is a derivative of the Library (because it -contains portions of the Library), rather than a "work that uses the -library". The executable is therefore covered by this License. -Section 6 states terms for distribution of such executables. - - When a "work that uses the Library" uses material from a header file -that is part of the Library, the object code for the work may be a -derivative work of the Library even though the source code is not. -Whether this is true is especially significant if the work can be -linked without the Library, or if the work is itself a library. The -threshold for this to be true is not precisely defined by law. - - If such an object file uses only numerical parameters, data -structure layouts and accessors, and small macros and small inline -functions (ten lines or less in length), then the use of the object -file is unrestricted, regardless of whether it is legally a derivative -work. (Executables containing this object code plus portions of the -Library will still fall under Section 6.) - - Otherwise, if the work is a derivative of the Library, you may -distribute the object code for the work under the terms of Section 6. -Any executables containing that work also fall under Section 6, -whether or not they are linked directly with the Library itself. - - 6. As an exception to the Sections above, you may also combine or -link a "work that uses the Library" with the Library to produce a -work containing portions of the Library, and distribute that work -under terms of your choice, provided that the terms permit -modification of the work for the customer's own use and reverse -engineering for debugging such modifications. - - You must give prominent notice with each copy of the work that the -Library is used in it and that the Library and its use are covered by -this License. You must supply a copy of this License. If the work -during execution displays copyright notices, you must include the -copyright notice for the Library among them, as well as a reference -directing the user to the copy of this License. Also, you must do one -of these things: - - a) Accompany the work with the complete corresponding - machine-readable source code for the Library including whatever - changes were used in the work (which must be distributed under - Sections 1 and 2 above); and, if the work is an executable linked - with the Library, with the complete machine-readable "work that - uses the Library", as object code and/or source code, so that the - user can modify the Library and then relink to produce a modified - executable containing the modified Library. (It is understood - that the user who changes the contents of definitions files in the - Library will not necessarily be able to recompile the application - to use the modified definitions.) - - b) Use a suitable shared library mechanism for linking with the - Library. A suitable mechanism is one that (1) uses at run time a - copy of the library already present on the user's computer system, - rather than copying library functions into the executable, and (2) - will operate properly with a modified version of the library, if - the user installs one, as long as the modified version is - interface-compatible with the version that the work was made with. - - c) Accompany the work with a written offer, valid for at - least three years, to give the same user the materials - specified in Subsection 6a, above, for a charge no more - than the cost of performing this distribution. - - d) If distribution of the work is made by offering access to copy - from a designated place, offer equivalent access to copy the above - specified materials from the same place. - - e) Verify that the user has already received a copy of these - materials or that you have already sent this user a copy. - - For an executable, the required form of the "work that uses the -Library" must include any data and utility programs needed for -reproducing the executable from it. However, as a special exception, -the materials to be distributed need not include anything that is -normally distributed (in either source or binary form) with the major -components (compiler, kernel, and so on) of the operating system on -which the executable runs, unless that component itself accompanies -the executable. - - It may happen that this requirement contradicts the license -restrictions of other proprietary libraries that do not normally -accompany the operating system. Such a contradiction means you cannot -use both them and the Library together in an executable that you -distribute. - - 7. You may place library facilities that are a work based on the -Library side-by-side in a single library together with other library -facilities not covered by this License, and distribute such a combined -library, provided that the separate distribution of the work based on -the Library and of the other library facilities is otherwise -permitted, and provided that you do these two things: - - a) Accompany the combined library with a copy of the same work - based on the Library, uncombined with any other library - facilities. This must be distributed under the terms of the - Sections above. - - b) Give prominent notice with the combined library of the fact - that part of it is a work based on the Library, and explaining - where to find the accompanying uncombined form of the same work. - - 8. You may not copy, modify, sublicense, link with, or distribute -the Library except as expressly provided under this License. Any -attempt otherwise to copy, modify, sublicense, link with, or -distribute the Library is void, and will automatically terminate your -rights under this License. However, parties who have received copies, -or rights, from you under this License will not have their licenses -terminated so long as such parties remain in full compliance. - - 9. You are not required to accept this License, since you have not -signed it. However, nothing else grants you permission to modify or -distribute the Library or its derivative works. These actions are -prohibited by law if you do not accept this License. Therefore, by -modifying or distributing the Library (or any work based on the -Library), you indicate your acceptance of this License to do so, and -all its terms and conditions for copying, distributing or modifying -the Library or works based on it. - - 10. Each time you redistribute the Library (or any work based on the -Library), the recipient automatically receives a license from the -original licensor to copy, distribute, link with or modify the Library -subject to these terms and conditions. You may not impose any further -restrictions on the recipients' exercise of the rights granted herein. -You are not responsible for enforcing compliance by third parties with -this License. - - 11. If, as a consequence of a court judgment or allegation of patent -infringement or for any other reason (not limited to patent issues), -conditions are imposed on you (whether by court order, agreement or -otherwise) that contradict the conditions of this License, they do not -excuse you from the conditions of this License. If you cannot -distribute so as to satisfy simultaneously your obligations under this -License and any other pertinent obligations, then as a consequence you -may not distribute the Library at all. For example, if a patent -license would not permit royalty-free redistribution of the Library by -all those who receive copies directly or indirectly through you, then -the only way you could satisfy both it and this License would be to -refrain entirely from distribution of the Library. - -If any portion of this section is held invalid or unenforceable under any -particular circumstance, the balance of the section is intended to apply, -and the section as a whole is intended to apply in other circumstances. - -It is not the purpose of this section to induce you to infringe any -patents or other property right claims or to contest validity of any -such claims; this section has the sole purpose of protecting the -integrity of the free software distribution system which is -implemented by public license practices. Many people have made -generous contributions to the wide range of software distributed -through that system in reliance on consistent application of that -system; it is up to the author/donor to decide if he or she is willing -to distribute software through any other system and a licensee cannot -impose that choice. - -This section is intended to make thoroughly clear what is believed to -be a consequence of the rest of this License. - - 12. If the distribution and/or use of the Library is restricted in -certain countries either by patents or by copyrighted interfaces, the -original copyright holder who places the Library under this License may add -an explicit geographical distribution limitation excluding those countries, -so that distribution is permitted only in or among countries not thus -excluded. In such case, this License incorporates the limitation as if -written in the body of this License. - - 13. The Free Software Foundation may publish revised and/or new -versions of the Lesser General Public License from time to time. -Such new versions will be similar in spirit to the present version, -but may differ in detail to address new problems or concerns. - -Each version is given a distinguishing version number. If the Library -specifies a version number of this License which applies to it and -"any later version", you have the option of following the terms and -conditions either of that version or of any later version published by -the Free Software Foundation. If the Library does not specify a -license version number, you may choose any version ever published by -the Free Software Foundation. - - 14. If you wish to incorporate parts of the Library into other free -programs whose distribution conditions are incompatible with these, -write to the author to ask for permission. For software which is -copyrighted by the Free Software Foundation, write to the Free -Software Foundation; we sometimes make exceptions for this. Our -decision will be guided by the two goals of preserving the free status -of all derivatives of our free software and of promoting the sharing -and reuse of software generally. - - NO WARRANTY - - 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO -WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW. -EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR -OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY -KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE -LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME -THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. - - 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN -WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY -AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU -FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR -CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE -LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING -RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A -FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF -SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH -DAMAGES. - - END OF TERMS AND CONDITIONS - - How to Apply These Terms to Your New Libraries - - If you develop a new library, and you want it to be of the greatest -possible use to the public, we recommend making it free software that -everyone can redistribute and change. You can do so by permitting -redistribution under these terms (or, alternatively, under the terms of the -ordinary General Public License). - - To apply these terms, attach the following notices to the library. It is -safest to attach them to the start of each source file to most effectively -convey the exclusion of warranty; and each file should have at least the -"copyright" line and a pointer to where the full notice is found. - - <one line to give the library's name and a brief idea of what it does.> - Copyright (C) <year> <name of author> - - This library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public - License as published by the Free Software Foundation; either - version 2.1 of the License, or (at your option) any later version. - - This library is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with this library; if not, write to the Free Software - Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - -Also add information on how to contact you by electronic and paper mail. - -You should also get your employer (if you work as a programmer) or your -school, if any, to sign a "copyright disclaimer" for the library, if -necessary. Here is a sample; alter the names: - - Yoyodyne, Inc., hereby disclaims all copyright interest in the - library `Frob' (a library for tweaking knobs) written by James Random Hacker. - - <signature of Ty Coon>, 1 April 1990 - Ty Coon, President of Vice - -That's all there is to it! - - diff --git a/gnu/lib/libf2c/libU77/Makefile.in b/gnu/lib/libf2c/libU77/Makefile.in deleted file mode 100644 index 6830d8bce5a..00000000000 --- a/gnu/lib/libf2c/libU77/Makefile.in +++ /dev/null @@ -1,191 +0,0 @@ -# Makefile for GNU F77 compiler runtime, libc interface. -# Copyright (C) 1995-1998, 2001 Free Software Foundation, Inc. -# Contributed by Dave Love (d.love@dl.ac.uk). -# -#This file is part of the GNU Fortran libU77 library. -# -#The GNU Fortran libU77 library is free software; you can redistribute -#it and/or modify it under the terms of the GNU Library General Public -#License as published by the Free Software Foundation; either version 2, -#or (at your option) any later version. -# -#GNU Fortran is distributed in the hope that it will be useful, -#but WITHOUT ANY WARRANTY; without even the implied warranty of -#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#GNU Library General Public License for more details. -# -#You should have received a copy of the GNU General Public License -#along with GNU Fortran; see the file COPYING. If not, write to -#the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -#02111-1307, USA. - -#### Start of system configuration section. #### - -# $(srcdir) must be set to the g77 runtime libU77 source directory -srcdir = @srcdir@ -VPATH = @srcdir@ - -# configure sets this to all the -D options appropriate for the -# configuration. -DEFS = @DEFS@ -LIBS = @LIBS@ - -F2C_H_DIR = @srcdir@/.. -G2C_H_DIR = .. -CC = @CC@ -CFLAGS = @CFLAGS@ -CPPFLAGS = @CPPFLAGS@ -@SET_MAKE@ - -SHELL = @SHELL@ - -#### End of system configuration section. #### - -# fio.h is in libI77. config.h is in `.'. -ALL_CFLAGS = -I. -I$(srcdir) -I$(F2C_H_DIR)/libI77 -I$(G2C_H_DIR) \ - -I$(F2C_H_DIR) $(CPPFLAGS) $(DEFS) $(WARN_CFLAGS) $(CFLAGS) - -# This could probably be done more elegantly, but it's currently -# just for running the u77-test test. -G77DIR = ../../../gcc/ - -.SUFFIXES: -.SUFFIXES: .c .lo - -.c.lo: - @LIBTOOL@ --mode=compile $(CC) -c -DSkip_f2c_Undefs $(ALL_CFLAGS) $< - -OBJS = VersionU.lo gerror_.lo perror_.lo ierrno_.lo itime_.lo time_.lo \ - unlink_.lo fnum_.lo getpid_.lo getuid_.lo getgid_.lo kill_.lo rand_.lo \ - srand_.lo irand_.lo sleep_.lo idate_.lo ctime_.lo etime_.lo \ - dtime_.lo isatty_.lo ltime_.lo fstat_.lo stat_.lo \ - lstat_.lo access_.lo link_.lo getlog_.lo ttynam_.lo getcwd_.lo symlnk_.lo \ - vxttime_.lo vxtidate_.lo gmtime_.lo fdate_.lo secnds_.lo \ - bes.lo dbes.lo \ - chdir_.lo chmod_.lo lnblnk_.lo hostnm_.lo rename_.lo fgetc_.lo fputc_.lo \ - umask_.lo sys_clock_.lo date_.lo second_.lo flush1_.lo mclock_.lo \ - alarm_.lo datetime_.lo -SRCS = Version.c gerror_.c perror_.c ierrno_.c itime_.c time_.c \ - unlink_.c fnum_.c getpid_.c getuid_.c getgid_.c kill_.c rand_.c \ - srand_.c irand_.c sleep_.c idate_.c ctime_.c etime_.c \ - dtime_.c isatty_.c ltime_.c fstat_.c stat_.c \ - lstat_.c access_.c link_.c getlog_.c ttynam_.c getcwd_.c symlnk_.c \ - vxttime_.c vxtidate_.c gmtime_.c fdate_.c secnds_.c \ - bes.c dbes.c \ - chdir_.c chmod_.c lnblnk_.c hostnm_.c rename_.c fgetc_.c fputc_.c \ - umask_.c sys_clock_.c date_.c second_.c flush1_.c mclock_.c \ - alarm_.c datetime_.c - -all: ../s-libu77 - -../s-libu77: $(OBJS) - -rm -f $@.T $@ - objs='$(OBJS)'; for name in $$objs; do \ - echo libU77/$${name} >> $@.T; done - mv $@.T $@ - -Makefile: Makefile.in config.status - $(SHELL) config.status - -config.status: configure - rm -f config.cache - CONFIG_SITE=no-such-file CC='$(CC)' CFLAGS='$(CFLAGS)' \ - CPPFLAGS='$(CPPFLAGS)' $(SHELL) config.status --recheck - -${srcdir}/configure: configure.in - cd ${srcdir} && autoconf - -${srcdir}/config.hin: stamp-h.in -${srcdir}/stamp-h.in: configure.in acconfig.h - cd ${srcdir} && autoheader - echo timestamp > ${srcdir}/stamp-h.in - -config.h: stamp-h -stamp-h: config.hin config.status - $(SHELL) config.status - echo timestamp > stamp-h - -VersionU.lo: Version.c - @LIBTOOL@ --mode=compile $(CC) -c $(ALL_CFLAGS) $(srcdir)/Version.c -o $@ - -$(OBJS): $(F2C_H_DIR)/f2c.h $(G2C_H_DIR)/g2c.h config.h -access_.lo: access_.c -ctime_.lo: ctime_.c -dtime_.lo: dtime_.c -etime_.lo: etime_.c -fnum_.lo: fnum_.c $(F2C_H_DIR)/libI77/fio.h -fstat_.lo: fstat_.c -gerror_.lo: gerror_.c -getcwd_.lo: getcwd_.c -getgid_.lo: getgid_.c -getlog_.lo: getlog_.c -getpid_.lo: getpid_.c -getuid_.lo: getuid_.c -idate_.lo: idate_.c -ierrno_.lo: ierrno_.c -irand_.lo: irand_.c -isatty_.lo: isatty_.c $(F2C_H_DIR)/libI77/fio.h -itime_.lo: itime_.c -kill_.lo: kill_.c -link_.lo: link_.c -loc_.lo: loc_.c -lstat_.lo: lstat_.c -ltime_.lo: ltime_.c -perror_.lo: perror_.c -qsort.lo: qsort.c -qsort_.lo: qsort_.c -rand_.lo: rand_.c -rename_.lo: rename_.c -second_.lo: second_.c -sleep_.lo: sleep_.c -srand_.lo: srand_.c -stat_.lo: stat_.c -symlnk_.lo: symlnk_.c -time_.lo: time_.c -ttynam_.lo: ttynam_.c -unlink_.lo: unlink_.c -wait_.lo: wait_.c -vxttime_.lo: vxttime_.c -vtxidate_.lo: vxtidate_.c -fdate_.lo: fdate_.c -gmtime_.lo: gmtime_.c -secnds_.lo: secnds_.c -bes.lo: bes.c -dbes.lo: dbes.c -lnblnk_.lo: lnblnk_.c -chmod_.lo: chmod_.c -chdir_.lo: chdir_.c -hostnm_.lo: hostnm_.c -rename_.lo: rename_.c -fputc_.lo: fputc_.c -fgetc_.lo: fgetc_.c -sys_clock_.lo: sys_clock_.c -date_.lo: date_.c -umask_.lo: umask_.c -flush1_.lo: flush1_.c -mclock_.lo: mclock_.c -alarm_.lo: alarm_.c -datetime_.lo: datetime_.c - -check: - -$(G77DIR)g77 -B$(G77DIR) -L.. -g $(srcdir)/u77-test.f \ - -lg2c $(LIBS) -lm -o a.out && ./a.out - rm -f a.out - -install uninstall install-strip dist installcheck installdirs: - -mostlyclean: - rm -f *.o *.lo a.out - rm -rf .libs - -clean: mostlyclean - rm -f config.log ../s-libu77 - -distclean: clean - rm -f config.cache config.status Makefile config.h stamp.h \ - ../s-libu77 configure - -maintainer-clean: - -.PHONY: mostlyclean clean distclean maintainer-clean all check uninstall \ - install-strip dist installcheck installdirs archive diff --git a/gnu/lib/libf2c/libU77/PROJECTS b/gnu/lib/libf2c/libU77/PROJECTS deleted file mode 100644 index 0cf1383cbf9..00000000000 --- a/gnu/lib/libf2c/libU77/PROJECTS +++ /dev/null @@ -1,10 +0,0 @@ - -*- indented-text-*- - -* Interface to strget - -* Non-blocking (`asynchronous') i/o (per c.l.f. discussion) - -* `ioinit'-type routine for various i/o options - -* IEEE/VAX/... number format conversion (or XDR interface). This - might be made optionally transparent per logical unit a la DECtran. diff --git a/gnu/lib/libf2c/libU77/README b/gnu/lib/libf2c/libU77/README deleted file mode 100644 index bfedb90bd97..00000000000 --- a/gnu/lib/libf2c/libU77/README +++ /dev/null @@ -1,40 +0,0 @@ -19970811 -*-text-*- - -g77 libU77 ----------- - -This directory contains an implementation of most of the `traditional' -Unix libU77 routines, mostly an interface to libc and libm routines -and some extra ones for time and date etc. It's intended for use with -g77, to whose configuration procedure it's currently tied, but should -be compatible with f2c otherwise, if using the same f2c.h. - -The contents of libU77 and its interfaces aren't consistent across -implementations. This one is mostly taken from documentation for (an -old version of) the Convex implementation and the v2 SunPro one. -As of g77 version 0.5.20, most of these routines have been made -into g77 intrinsics. Some routines have a version with a name prefixed -by `vxt', corresponding to the VMS Fortran versions, and these should -be integrated with g77's intrinsics visibility control. - -A few routines are currently missing; in the case of `fork', for -instance, because they're probably not useful, and in the case of -`qsort' and those for stream-based i/o handling, because they need -more effort/research. The configuration should weed out those few -which correspond to facilities which may not be present on some Unix -systems, such as symbolic links. It's unclear whether the interfaces -to the native library random number routines should be retained, since -their implementation is likely to be something one should avoid -assiduously. - -This library has been tested it under SunOS4.1.3 and Irix5.2 and there -has been some feedback from Linux; presumably potential problems lie -mainly with systems with impoverished native C library support which -haven't been properly taken care of with autoconf. - -There's another GPL'd implementation of this stuff which I only found -out about recently (despite having looked) and I haven't yet checked -how they should be amalgamated. - -Dave Love <d.love@dl.ac.uk> Aug '95 -(minor changes by Craig Burley <burley@gnu.org> Aug '97) diff --git a/gnu/lib/libf2c/libU77/Version.c b/gnu/lib/libf2c/libU77/Version.c deleted file mode 100644 index 45b68a6b141..00000000000 --- a/gnu/lib/libf2c/libU77/Version.c +++ /dev/null @@ -1 +0,0 @@ -const char __LIBU77_VERSION__[] = "@(#) LIBU77 VERSION 19980709\n"; diff --git a/gnu/lib/libf2c/libU77/access_.c b/gnu/lib/libf2c/libU77/access_.c deleted file mode 100644 index 0a2dbce9d78..00000000000 --- a/gnu/lib/libf2c/libU77/access_.c +++ /dev/null @@ -1,84 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#else -# include <stdio.h> -#endif - -#include <errno.h> -#include <limits.h> -#include "f2c.h" - -#ifndef R_OK /* for SVR1-2 */ -# define R_OK 4 -#endif -#ifndef W_OK -# define W_OK 2 -#endif -#ifndef X_OK -# define X_OK 1 -#endif -#ifndef F_OK -# define F_OK 0 -#endif - -void g_char (const char *a, ftnlen alen, char *b); - -integer -G77_access_0 (const char *name, const char *mode, ftnlen Lname, ftnlen Lmode) -{ - char *buff; - int amode, i; - - buff = malloc (Lname + 1); - if (!buff) - return -1; - g_char (name, Lname, buff); - amode = 0; - for (i = 0; i < Lmode; i++) - { - switch (mode[i]) - { - case 'r': - amode |= R_OK; - break; - case 'w': - amode |= W_OK; - break; - case 'x': - amode |= X_OK; - break; - case ' ': - amode |= F_OK; - break; /* as per Sun, at least */ - default: - return EINVAL; - } - } - i = access (buff, amode); - free (buff); - return i; -} diff --git a/gnu/lib/libf2c/libU77/acconfig.h b/gnu/lib/libf2c/libU77/acconfig.h deleted file mode 100644 index 778e15410c8..00000000000 --- a/gnu/lib/libf2c/libU77/acconfig.h +++ /dev/null @@ -1,11 +0,0 @@ -/* Define as the path of the `chmod' program. */ -#undef CHMOD_PATH - -/* Define if your sys/time.h defines struct timezone. */ -#undef HAVE_STRUCT_TIMEZONE - -/* Define if your gettimeofday takes only one argument. */ -#undef GETTIMEOFDAY_ONE_ARGUMENT - -/* Define if your gettimeofday takes a time zome argument. */ -#undef HAVE_TIMEZONE diff --git a/gnu/lib/libf2c/libU77/aclocal.m4 b/gnu/lib/libf2c/libU77/aclocal.m4 deleted file mode 100644 index 58f6a675899..00000000000 --- a/gnu/lib/libf2c/libU77/aclocal.m4 +++ /dev/null @@ -1,69 +0,0 @@ -dnl Check: -dnl * If we have gettimeofday; -dnl * If we have struct timezone for use in calling it; -dnl * If calling it with a timezone pointer actually works -- this is deemed -dnl obsolete or undefined on some systems which say you should use a null -dnl pointer -- and undefine HAVE_TIMEZONE if so; -dnl * Whether it only takes one arg. -AC_DEFUN(LIBU77_GETTIMEOFDAY, [ - AC_CHECK_FUNCS(gettimeofday) - if test "$ac_cv_func_gettimeofday" = yes; then - AC_CACHE_CHECK([for struct timezone], g77_cv_struct_timezone, - [AC_TRY_COMPILE([#include <sys/time.h>], - [struct timezone tz;], - g77_cv_struct_timezone=yes, g77_cv_struct_timezone=no)]) - if test $g77_cv_struct_timezone = yes; then - dnl It may be that we can't call gettimeofday with a non-null pointer. - dnl In that case we'll lie about struct timezone. - AC_TRY_RUN([ -#ifdef TIME_WITH_SYS_TIME -#include <sys/time.h> -#include <time.h> -#else -#ifdef HAVE_SYS_TIME_H -#include <sys/time.h> -#else -#include <time.h> -#endif -#endif -main () -{ - struct timeval time; - struct timezone dummy; - if (gettimeofday (&time, &dummy)) - exit (1); - else - exit (0); -}], - [AC_DEFINE(HAVE_TIMEZONE)], ,[AC_DEFINE(HAVE_TIMEZONE)]) - fi - AC_REQUIRE([AC_HEADER_TIME]) - AC_CACHE_CHECK(whether gettimeofday can accept two arguments, - emacs_cv_gettimeofday_two_arguments, - AC_TRY_LINK([ -#ifdef TIME_WITH_SYS_TIME -#include <sys/time.h> -#include <time.h> -#else -#ifdef HAVE_SYS_TIME_H -#include <sys/time.h> -#else -#include <time.h> -#endif -#endif - ], - [ - struct timeval time; -#ifdef HAVE_TIMEZONE - struct timezone dummy; -#define DUMMY &dummy -#else -#define DUMMY NULL -#endif - gettimeofday (&time, DUMMY);], - emacs_cv_gettimeofday_two_arguments=yes, - emacs_cv_gettimeofday_two_arguments=no)) - if test $emacs_cv_gettimeofday_two_arguments = no; then - AC_DEFINE(GETTIMEOFDAY_ONE_ARGUMENT) - fi - fi]) diff --git a/gnu/lib/libf2c/libU77/alarm_.c b/gnu/lib/libf2c/libU77/alarm_.c deleted file mode 100644 index d2c93824490..00000000000 --- a/gnu/lib/libf2c/libU77/alarm_.c +++ /dev/null @@ -1,57 +0,0 @@ -/* Copyright (C) 1997, 2001 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif - -#if HAVE_UNISTD_H -# include <unistd.h> -#endif - -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -#ifndef RETSIGTYPE -/* we shouldn't rely on this... */ -#define RETSIGTYPE void -#endif -typedef RETSIGTYPE (*sig_type) (); - -#include <signal.h> -typedef int (*sig_proc) (int); - -#ifndef SIG_ERR -#define SIG_ERR ((sig_type) -1) -#endif - -integer -G77_alarm_0 (integer * seconds, sig_proc proc) -{ - int status; -#if defined (HAVE_ALARM) && defined (SIGALRM) - if (signal (SIGALRM, (sig_type) proc) == SIG_ERR) - status = -1; - else - status = alarm (*seconds); -#else /* ! HAVE_ALARM || ! SIGALRM */ - errno = ENOSYS; - status = -1; -#endif - return status; -} diff --git a/gnu/lib/libf2c/libU77/bes.c b/gnu/lib/libf2c/libU77/bes.c deleted file mode 100644 index 73373fdd223..00000000000 --- a/gnu/lib/libf2c/libU77/bes.c +++ /dev/null @@ -1,58 +0,0 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#if 0 /* Don't include these unless necessary -- jcb. */ -#include "f2c.h" -#include <math.h> - -double -G77_besj0_0 (const real * x) -{ - return j0 (*x); -} - -double -G77_besj1_0 (const real * x) -{ - return j1 (*x); -} - -double -G77_besjn_0 (const integer * n, real * x) -{ - return jn (*n, *x); -} - -double -G77_besy0_0 (const real * x) -{ - return y0 (*x); -} - -double -G77_besy1_0 (const real * x) -{ - return y1 (*x); -} - -double -G77_besyn_0 (const integer * n, real * x) -{ - return yn (*n, *x); -} -#endif diff --git a/gnu/lib/libf2c/libU77/chdir_.c b/gnu/lib/libf2c/libU77/chdir_.c deleted file mode 100644 index bebdeb0a0c6..00000000000 --- a/gnu/lib/libf2c/libU77/chdir_.c +++ /dev/null @@ -1,50 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#else -# include <stdio.h> -#endif - -#include <errno.h> -#include "f2c.h" - - -void g_char (const char *a, ftnlen alen, char *b); - -integer -G77_chdir_0 (const char *name, const ftnlen Lname) -{ - char *buff; - int i; - - buff = malloc (Lname + 1); - if (!buff) - return -1; - g_char (name, Lname, buff); - i = chdir (buff); - free (buff); - return i ? errno : 0; -} diff --git a/gnu/lib/libf2c/libU77/chmod_.c b/gnu/lib/libf2c/libU77/chmod_.c deleted file mode 100644 index 86e620cbc2f..00000000000 --- a/gnu/lib/libf2c/libU77/chmod_.c +++ /dev/null @@ -1,82 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - - -/* This definitely shouldn't be done this way -- should canibalise - chmod(1) from GNU or BSD. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#else -# include <stdio.h> -#endif -#if STDC_HEADERS -# include <string.h> -#endif - -#include "f2c.h" - -#ifndef CHMOD_PATH -#define CHMOD_PATH "/bin/chmod" -#endif - -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) -{ - char *buff; - int i; - ftnlen l, l2; - ftnlen six = 6; - address a[6]; - ftnlen ii[6]; - char chmod_path[] = CHMOD_PATH; - l = strlen (chmod_path); - buff = malloc (Lname + Lmode + l + 3 + 13 + 1); - if (!buff) - return -1; - ii[0] = l; - a[0] = chmod_path; - ii[1] = 1; - a[1] = " "; - ii[2] = Lmode; - a[2] = mode; - ii[3] = 2; - a[3] = " '"; - for (l2 = Lname; (l2 > 1) && (name[l2 - 1] == ' ');) - l2--; - ii[4] = l2; - a[4] = name; - ii[5] = 13; - a[5] = "' 2>/dev/null"; - s_cat (buff, a, ii, &six, Lname + Lmode + l + 3 + 13); - buff[Lname + Lmode + l + 3 + 13] = '\0'; - i = system (buff); - free (buff); - return i; -} diff --git a/gnu/lib/libf2c/libU77/config.hin b/gnu/lib/libf2c/libU77/config.hin deleted file mode 100644 index 92e64f0b991..00000000000 --- a/gnu/lib/libf2c/libU77/config.hin +++ /dev/null @@ -1,127 +0,0 @@ -/* kludge to build under OpenBSD */ -#include "libI77/config.h" -/* config.hin. Generated automatically from configure.in by autoheader. */ - -/* Define to empty if the keyword does not work. */ -#undef const - -/* Define if your struct stat has st_blksize. */ -#undef HAVE_ST_BLKSIZE - -/* Define if your struct stat has st_blocks. */ -#undef HAVE_ST_BLOCKS - -/* Define if your struct stat has st_rdev. */ -#undef HAVE_ST_RDEV - -/* Define to `int' if <sys/types.h> doesn't define. */ -#undef mode_t - -/* Define to `int' if <sys/types.h> doesn't define. */ -#undef pid_t - -/* Define to `unsigned' if <sys/types.h> doesn't define. */ -#undef size_t - -/* Define if you have the ANSI C header files. */ -#undef STDC_HEADERS - -/* Define if you can safely include both <sys/time.h> and <time.h>. */ -#undef TIME_WITH_SYS_TIME - -/* Define if your <sys/time.h> declares struct tm. */ -#undef TM_IN_SYS_TIME - -/* 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 - -/* Define if you have the clock function. */ -#undef HAVE_CLOCK - -/* Define if you have the getcwd function. */ -#undef HAVE_GETCWD - -/* Define if you have the getgid function. */ -#undef HAVE_GETGID - -/* Define if you have the gethostname function. */ -#undef HAVE_GETHOSTNAME - -/* Define if you have the getlogin function. */ -#undef HAVE_GETLOGIN - -/* 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 - -/* Define if you have the getwd function. */ -#undef HAVE_GETWD - -/* Define if you have the kill function. */ -#undef HAVE_KILL - -/* Define if you have the link function. */ -#undef HAVE_LINK - -/* Define if you have the lstat function. */ -#undef HAVE_LSTAT - -/* Define if you have the strerror function. */ -#undef HAVE_STRERROR - -/* Define if you have the symlink function. */ -#undef HAVE_SYMLINK - -/* Define if you have the times function. */ -#undef HAVE_TIMES - -/* Define if you have the ttyname function. */ -#undef HAVE_TTYNAME - -/* Define if you have the <limits.h> header file. */ -#undef HAVE_LIMITS_H - -/* Define if you have the <stdlib.h> header file. */ -#undef HAVE_STDLIB_H - -/* Define if you have the <string.h> header file. */ -#undef HAVE_STRING_H - -/* Define if you have the <sys/param.h> header file. */ -#undef HAVE_SYS_PARAM_H - -/* Define if you have the <sys/time.h> header file. */ -#undef HAVE_SYS_TIME_H - -/* Define if you have the <sys/times.h> header file. */ -#undef HAVE_SYS_TIMES_H - -/* Define if you have the <unistd.h> header file. */ -#undef HAVE_UNISTD_H - -/* Get Single Unix Specification semantics */ -#undef _XOPEN_SOURCE - -/* Get Single Unix Specification semantics */ -#undef _XOPEN_SOURCE_EXTENDED - -/* Solaris extensions */ -#undef __EXTENSIONS__ - -/* Get 64-bit file size support */ -#undef _FILE_OFFSET_BITS - diff --git a/gnu/lib/libf2c/libU77/configure b/gnu/lib/libf2c/libU77/configure deleted file mode 100755 index 29a5f131a37..00000000000 --- a/gnu/lib/libf2c/libU77/configure +++ /dev/null @@ -1,2072 +0,0 @@ -#! /bin/sh - -# Guess values for system-dependent variables and create Makefiles. -# Generated automatically using autoconf version 2.13 -# Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc. -# -# This configure script is free software; the Free Software Foundation -# gives unlimited permission to copy, distribute and modify it. - -# Defaults: -ac_help= -ac_default_prefix=/usr/local -# Any additions from configure.in: - -# Initialize some variables set by options. -# The variables have the same names as the options, with -# dashes changed to underlines. -build=NONE -cache_file=./config.cache -exec_prefix=NONE -host=NONE -no_create= -nonopt=NONE -no_recursion= -prefix=NONE -program_prefix=NONE -program_suffix=NONE -program_transform_name=s,x,x, -silent= -site= -sitefile= -srcdir= -target=NONE -verbose= -x_includes=NONE -x_libraries=NONE -bindir='${exec_prefix}/bin' -sbindir='${exec_prefix}/sbin' -libexecdir='${exec_prefix}/libexec' -datadir='${prefix}/share' -sysconfdir='${prefix}/etc' -sharedstatedir='${prefix}/com' -localstatedir='${prefix}/var' -libdir='${exec_prefix}/lib' -includedir='${prefix}/include' -oldincludedir='/usr/include' -infodir='${prefix}/info' -mandir='${prefix}/man' - -# Initialize some other variables. -subdirs= -MFLAGS= MAKEFLAGS= -SHELL=${CONFIG_SHELL-/bin/sh} -# Maximum number of lines to put in a shell here document. -ac_max_here_lines=12 - -ac_prev= -for ac_option -do - - # If the previous option needs an argument, assign it. - if test -n "$ac_prev"; then - eval "$ac_prev=\$ac_option" - ac_prev= - continue - fi - - case "$ac_option" in - -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;; - *) ac_optarg= ;; - esac - - # Accept the important Cygnus configure options, so we can diagnose typos. - - case "$ac_option" in - - -bindir | --bindir | --bindi | --bind | --bin | --bi) - ac_prev=bindir ;; - -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) - bindir="$ac_optarg" ;; - - -build | --build | --buil | --bui | --bu) - ac_prev=build ;; - -build=* | --build=* | --buil=* | --bui=* | --bu=*) - build="$ac_optarg" ;; - - -cache-file | --cache-file | --cache-fil | --cache-fi \ - | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) - ac_prev=cache_file ;; - -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ - | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) - cache_file="$ac_optarg" ;; - - -datadir | --datadir | --datadi | --datad | --data | --dat | --da) - ac_prev=datadir ;; - -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ - | --da=*) - datadir="$ac_optarg" ;; - - -disable-* | --disable-*) - ac_feature=`echo $ac_option|sed -e 's/-*disable-//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then - { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } - fi - ac_feature=`echo $ac_feature| sed 's/-/_/g'` - eval "enable_${ac_feature}=no" ;; - - -enable-* | --enable-*) - ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then - { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } - fi - ac_feature=`echo $ac_feature| sed 's/-/_/g'` - case "$ac_option" in - *=*) ;; - *) ac_optarg=yes ;; - esac - eval "enable_${ac_feature}='$ac_optarg'" ;; - - -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ - | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ - | --exec | --exe | --ex) - ac_prev=exec_prefix ;; - -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ - | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ - | --exec=* | --exe=* | --ex=*) - exec_prefix="$ac_optarg" ;; - - -gas | --gas | --ga | --g) - # Obsolete; use --with-gas. - with_gas=yes ;; - - -help | --help | --hel | --he) - # Omit some internal or obsolete options to make the list less imposing. - # This message is too long to be a string in the A/UX 3.1 sh. - cat << EOF -Usage: configure [options] [host] -Options: [defaults in brackets after descriptions] -Configuration: - --cache-file=FILE cache test results in FILE - --help print this message - --no-create do not create output files - --quiet, --silent do not print \`checking...' messages - --site-file=FILE use FILE as the site file - --version print the version of autoconf that created configure -Directory and file names: - --prefix=PREFIX install architecture-independent files in PREFIX - [$ac_default_prefix] - --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX - [same as prefix] - --bindir=DIR user executables in DIR [EPREFIX/bin] - --sbindir=DIR system admin executables in DIR [EPREFIX/sbin] - --libexecdir=DIR program executables in DIR [EPREFIX/libexec] - --datadir=DIR read-only architecture-independent data in DIR - [PREFIX/share] - --sysconfdir=DIR read-only single-machine data in DIR [PREFIX/etc] - --sharedstatedir=DIR modifiable architecture-independent data in DIR - [PREFIX/com] - --localstatedir=DIR modifiable single-machine data in DIR [PREFIX/var] - --libdir=DIR object code libraries in DIR [EPREFIX/lib] - --includedir=DIR C header files in DIR [PREFIX/include] - --oldincludedir=DIR C header files for non-gcc in DIR [/usr/include] - --infodir=DIR info documentation in DIR [PREFIX/info] - --mandir=DIR man documentation in DIR [PREFIX/man] - --srcdir=DIR find the sources in DIR [configure dir or ..] - --program-prefix=PREFIX prepend PREFIX to installed program names - --program-suffix=SUFFIX append SUFFIX to installed program names - --program-transform-name=PROGRAM - run sed PROGRAM on installed program names -EOF - cat << EOF -Host type: - --build=BUILD configure for building on BUILD [BUILD=HOST] - --host=HOST configure for HOST [guessed] - --target=TARGET configure for TARGET [TARGET=HOST] -Features and packages: - --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) - --enable-FEATURE[=ARG] include FEATURE [ARG=yes] - --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] - --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) - --x-includes=DIR X include files are in DIR - --x-libraries=DIR X library files are in DIR -EOF - if test -n "$ac_help"; then - echo "--enable and --with options recognized:$ac_help" - fi - exit 0 ;; - - -host | --host | --hos | --ho) - ac_prev=host ;; - -host=* | --host=* | --hos=* | --ho=*) - host="$ac_optarg" ;; - - -includedir | --includedir | --includedi | --included | --include \ - | --includ | --inclu | --incl | --inc) - ac_prev=includedir ;; - -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ - | --includ=* | --inclu=* | --incl=* | --inc=*) - includedir="$ac_optarg" ;; - - -infodir | --infodir | --infodi | --infod | --info | --inf) - ac_prev=infodir ;; - -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) - infodir="$ac_optarg" ;; - - -libdir | --libdir | --libdi | --libd) - ac_prev=libdir ;; - -libdir=* | --libdir=* | --libdi=* | --libd=*) - libdir="$ac_optarg" ;; - - -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ - | --libexe | --libex | --libe) - ac_prev=libexecdir ;; - -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ - | --libexe=* | --libex=* | --libe=*) - libexecdir="$ac_optarg" ;; - - -localstatedir | --localstatedir | --localstatedi | --localstated \ - | --localstate | --localstat | --localsta | --localst \ - | --locals | --local | --loca | --loc | --lo) - ac_prev=localstatedir ;; - -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ - | --localstate=* | --localstat=* | --localsta=* | --localst=* \ - | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) - localstatedir="$ac_optarg" ;; - - -mandir | --mandir | --mandi | --mand | --man | --ma | --m) - ac_prev=mandir ;; - -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) - mandir="$ac_optarg" ;; - - -nfp | --nfp | --nf) - # Obsolete; use --without-fp. - with_fp=no ;; - - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c) - no_create=yes ;; - - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) - no_recursion=yes ;; - - -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ - | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ - | --oldin | --oldi | --old | --ol | --o) - ac_prev=oldincludedir ;; - -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ - | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ - | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) - oldincludedir="$ac_optarg" ;; - - -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) - ac_prev=prefix ;; - -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) - prefix="$ac_optarg" ;; - - -program-prefix | --program-prefix | --program-prefi | --program-pref \ - | --program-pre | --program-pr | --program-p) - ac_prev=program_prefix ;; - -program-prefix=* | --program-prefix=* | --program-prefi=* \ - | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) - program_prefix="$ac_optarg" ;; - - -program-suffix | --program-suffix | --program-suffi | --program-suff \ - | --program-suf | --program-su | --program-s) - ac_prev=program_suffix ;; - -program-suffix=* | --program-suffix=* | --program-suffi=* \ - | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) - program_suffix="$ac_optarg" ;; - - -program-transform-name | --program-transform-name \ - | --program-transform-nam | --program-transform-na \ - | --program-transform-n | --program-transform- \ - | --program-transform | --program-transfor \ - | --program-transfo | --program-transf \ - | --program-trans | --program-tran \ - | --progr-tra | --program-tr | --program-t) - ac_prev=program_transform_name ;; - -program-transform-name=* | --program-transform-name=* \ - | --program-transform-nam=* | --program-transform-na=* \ - | --program-transform-n=* | --program-transform-=* \ - | --program-transform=* | --program-transfor=* \ - | --program-transfo=* | --program-transf=* \ - | --program-trans=* | --program-tran=* \ - | --progr-tra=* | --program-tr=* | --program-t=*) - program_transform_name="$ac_optarg" ;; - - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil) - silent=yes ;; - - -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) - ac_prev=sbindir ;; - -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ - | --sbi=* | --sb=*) - sbindir="$ac_optarg" ;; - - -sharedstatedir | --sharedstatedir | --sharedstatedi \ - | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ - | --sharedst | --shareds | --shared | --share | --shar \ - | --sha | --sh) - ac_prev=sharedstatedir ;; - -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ - | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ - | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ - | --sha=* | --sh=*) - sharedstatedir="$ac_optarg" ;; - - -site | --site | --sit) - ac_prev=site ;; - -site=* | --site=* | --sit=*) - site="$ac_optarg" ;; - - -site-file | --site-file | --site-fil | --site-fi | --site-f) - ac_prev=sitefile ;; - -site-file=* | --site-file=* | --site-fil=* | --site-fi=* | --site-f=*) - sitefile="$ac_optarg" ;; - - -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) - ac_prev=srcdir ;; - -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) - srcdir="$ac_optarg" ;; - - -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ - | --syscon | --sysco | --sysc | --sys | --sy) - ac_prev=sysconfdir ;; - -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ - | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) - sysconfdir="$ac_optarg" ;; - - -target | --target | --targe | --targ | --tar | --ta | --t) - ac_prev=target ;; - -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) - target="$ac_optarg" ;; - - -v | -verbose | --verbose | --verbos | --verbo | --verb) - verbose=yes ;; - - -version | --version | --versio | --versi | --vers) - echo "configure generated by autoconf version 2.13" - exit 0 ;; - - -with-* | --with-*) - ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then - { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } - fi - ac_package=`echo $ac_package| sed 's/-/_/g'` - case "$ac_option" in - *=*) ;; - *) ac_optarg=yes ;; - esac - eval "with_${ac_package}='$ac_optarg'" ;; - - -without-* | --without-*) - ac_package=`echo $ac_option|sed -e 's/-*without-//'` - # Reject names that are not valid shell variable names. - if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then - { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } - fi - ac_package=`echo $ac_package| sed 's/-/_/g'` - eval "with_${ac_package}=no" ;; - - --x) - # Obsolete; use --with-x. - with_x=yes ;; - - -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ - | --x-incl | --x-inc | --x-in | --x-i) - ac_prev=x_includes ;; - -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ - | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) - x_includes="$ac_optarg" ;; - - -x-libraries | --x-libraries | --x-librarie | --x-librari \ - | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) - ac_prev=x_libraries ;; - -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ - | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) - x_libraries="$ac_optarg" ;; - - -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; } - ;; - - *) - if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then - echo "configure: warning: $ac_option: invalid host type" 1>&2 - fi - if test "x$nonopt" != xNONE; then - { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } - fi - nonopt="$ac_option" - ;; - - esac -done - -if test -n "$ac_prev"; then - { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; } -fi - -trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 - -# File descriptor usage: -# 0 standard input -# 1 file creation -# 2 errors and warnings -# 3 some systems may open it to /dev/tty -# 4 used on the Kubota Titan -# 6 checking for... messages and results -# 5 compiler messages saved in config.log -if test "$silent" = yes; then - exec 6>/dev/null -else - exec 6>&1 -fi -exec 5>./config.log - -echo "\ -This file contains any messages produced by compilers while -running configure, to aid debugging if configure makes a mistake. -" 1>&5 - -# Strip out --no-create and --no-recursion so they do not pile up. -# Also quote any args containing shell metacharacters. -ac_configure_args= -for ac_arg -do - case "$ac_arg" in - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c) ;; - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;; - *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*) - ac_configure_args="$ac_configure_args '$ac_arg'" ;; - *) ac_configure_args="$ac_configure_args $ac_arg" ;; - esac -done - -# NLS nuisances. -# Only set these to C if already set. These must not be set unconditionally -# because not all systems understand e.g. LANG=C (notably SCO). -# Fixing LC_MESSAGES prevents Solaris sh from translating var values in `set'! -# Non-C LC_CTYPE values break the ctype check. -if test "${LANG+set}" = set; then LANG=C; export LANG; fi -if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi -if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi -if test "${LC_CTYPE+set}" = set; then LC_CTYPE=C; export LC_CTYPE; fi - -# confdefs.h avoids OS command line length limits that DEFS can exceed. -rm -rf conftest* confdefs.h -# AIX cpp loses on an empty file, so make sure it contains at least a newline. -echo > confdefs.h - -# A filename unique to this package, relative to the directory that -# configure is in, which we can look for to find out if srcdir is correct. -ac_unique_file=access_.c - -# Find the source files, if location was not specified. -if test -z "$srcdir"; then - ac_srcdir_defaulted=yes - # Try the directory containing this script, then its parent. - ac_prog=$0 - ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'` - test "x$ac_confdir" = "x$ac_prog" && ac_confdir=. - srcdir=$ac_confdir - if test ! -r $srcdir/$ac_unique_file; then - srcdir=.. - fi -else - ac_srcdir_defaulted=no -fi -if test ! -r $srcdir/$ac_unique_file; then - if test "$ac_srcdir_defaulted" = yes; then - { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; } - else - { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; } - fi -fi -srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'` - -# Prefer explicitly selected file to automatically selected ones. -if test -z "$sitefile"; then - if test -z "$CONFIG_SITE"; then - if test "x$prefix" != xNONE; then - CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" - else - CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" - fi - fi -else - CONFIG_SITE="$sitefile" -fi -for ac_site_file in $CONFIG_SITE; do - if test -r "$ac_site_file"; then - echo "loading site script $ac_site_file" - . "$ac_site_file" - fi -done - -if test -r "$cache_file"; then - echo "loading cache $cache_file" - . $cache_file -else - echo "creating cache $cache_file" - > $cache_file -fi - -ac_ext=c -# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. -ac_cpp='$CPP $CPPFLAGS' -ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' -ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -cross_compiling=$ac_cv_prog_cc_cross - -ac_exeext= -ac_objext=o -if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then - # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu. - if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then - ac_n= ac_c=' -' ac_t=' ' - else - ac_n=-n ac_c= ac_t= - fi -else - ac_n= ac_c='\c' ac_t= -fi - - - - - - -# For g77 we'll set CC to point at the built gcc, but this will get it into -# the makefiles -# Extract the first word of "gcc", so it can be a program name with args. -set dummy gcc; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:545: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_CC="gcc" - break - fi - done - IFS="$ac_save_ifs" -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - -if test -z "$CC"; then - # Extract the first word of "cc", so it can be a program name with args. -set dummy cc; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:575: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_prog_rejected=no - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - if test "$ac_dir/$ac_word" = "/usr/ucb/cc"; then - ac_prog_rejected=yes - continue - fi - ac_cv_prog_CC="cc" - break - fi - done - IFS="$ac_save_ifs" -if test $ac_prog_rejected = yes; then - # We found a bogon in the path, so make sure we never use it. - set dummy $ac_cv_prog_CC - shift - if test $# -gt 0; then - # We chose a different compiler from the bogus one. - # However, it has the same basename, so the bogon will be chosen - # first if we set CC to just the basename; use the full file name. - shift - set dummy "$ac_dir/$ac_word" "$@" - shift - ac_cv_prog_CC="$@" - fi -fi -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - - if test -z "$CC"; then - case "`uname -s`" in - *win32* | *WIN32*) - # Extract the first word of "cl", so it can be a program name with args. -set dummy cl; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:626: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_prog_CC="cl" - break - fi - done - IFS="$ac_save_ifs" -fi -fi -CC="$ac_cv_prog_CC" -if test -n "$CC"; then - echo "$ac_t""$CC" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - ;; - esac - fi - test -z "$CC" && { echo "configure: error: no acceptable cc found in \$PATH" 1>&2; exit 1; } -fi - - -echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6 -echo "configure:659: checking whether we are using GNU C" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.c <<EOF -#ifdef __GNUC__ - yes; -#endif -EOF -if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:668: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then - ac_cv_prog_gcc=yes -else - ac_cv_prog_gcc=no -fi -fi - -echo "$ac_t""$ac_cv_prog_gcc" 1>&6 - -if test $ac_cv_prog_gcc = yes; then - GCC=yes -else - GCC= -fi - -ac_test_CFLAGS="${CFLAGS+set}" -ac_save_CFLAGS="$CFLAGS" -CFLAGS= -echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6 -echo "configure:687: checking whether ${CC-cc} accepts -g" >&5 -if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - echo 'void f(){}' > conftest.c -if test -z "`${CC-cc} -g -c conftest.c 2>&1`"; then - ac_cv_prog_cc_g=yes -else - ac_cv_prog_cc_g=no -fi -rm -f conftest* - -fi - -echo "$ac_t""$ac_cv_prog_cc_g" 1>&6 -if test "$ac_test_CFLAGS" = set; then - CFLAGS="$ac_save_CFLAGS" -elif test $ac_cv_prog_cc_g = yes; then - if test "$GCC" = yes; then - CFLAGS="-g -O2" - else - CFLAGS="-g" - fi -else - if test "$GCC" = yes; then - CFLAGS="-O2" - else - CFLAGS= - fi -fi - - -# These defines are necessary to get 64-bit file size support. -# NetBSD 1.4 header files does not support XOPEN_SOURCE == 600, but it -# handles 64-bit file sizes without needing these defines. -echo $ac_n "checking whether _XOPEN_SOURCE may be defined""... $ac_c" 1>&6 -echo "configure:723: checking whether _XOPEN_SOURCE may be defined" >&5 -cat > conftest.$ac_ext <<EOF -#line 725 "configure" -#include "confdefs.h" -#define _XOPEN_SOURCE 600L -#include <unistd.h> -int main() { - -; return 0; } -EOF -if { (eval echo configure:733: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - may_use_xopen_source=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - may_use_xopen_source=no -fi -rm -f conftest* -echo "$ac_t""$may_use_xopen_source" 1>&6 -if test $may_use_xopen_source = yes; then - cat >> confdefs.h <<\EOF -#define _XOPEN_SOURCE 600L -EOF - - # The following is needed by irix6.2 so that struct timeval is declared. - cat >> confdefs.h <<\EOF -#define _XOPEN_SOURCE_EXTENDED 1 -EOF - - # The following is needed by Solaris2.5.1 so that struct timeval is declared. - cat >> confdefs.h <<\EOF -#define __EXTENSIONS__ 1 -EOF - - cat >> confdefs.h <<\EOF -#define _FILE_OFFSET_BITS 64 -EOF - -fi - - -LIBTOOL='$(SHELL) ../libtool' - - -if test "$CROSS";then - ac_cv_c_cross=yes -else - ac_cv_c_cross=no -fi - -test "$AR" || AR=ar - -echo $ac_n "checking whether ${MAKE-make} sets \${MAKE}""... $ac_c" 1>&6 -echo "configure:778: checking whether ${MAKE-make} sets \${MAKE}" >&5 -set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y%./+-%__p_%'` -if eval "test \"`echo '$''{'ac_cv_prog_make_${ac_make}_set'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftestmake <<\EOF -all: - @echo 'ac_maketemp="${MAKE}"' -EOF -# GNU make sometimes prints "make[1]: Entering...", which would confuse us. -eval `${MAKE-make} -f conftestmake 2>/dev/null | grep temp=` -if test -n "$ac_maketemp"; then - eval ac_cv_prog_make_${ac_make}_set=yes -else - eval ac_cv_prog_make_${ac_make}_set=no -fi -rm -f conftestmake -fi -if eval "test \"`echo '$ac_cv_prog_make_'${ac_make}_set`\" = yes"; then - echo "$ac_t""yes" 1>&6 - SET_MAKE= -else - echo "$ac_t""no" 1>&6 - SET_MAKE="MAKE=${MAKE-make}" -fi - - -# Extract the first word of "chmod", so it can be a program name with args. -set dummy chmod; ac_word=$2 -echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:808: checking for $ac_word" >&5 -if eval "test \"`echo '$''{'ac_cv_path_ac_cv_prog_chmod'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - case "$ac_cv_prog_chmod" in - /*) - ac_cv_path_ac_cv_prog_chmod="$ac_cv_prog_chmod" # Let the user override the test with a path. - ;; - ?:/*) - ac_cv_path_ac_cv_prog_chmod="$ac_cv_prog_chmod" # Let the user override the test with a dos path. - ;; - *) - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" - ac_dummy="$PATH" - for ac_dir in $ac_dummy; do - test -z "$ac_dir" && ac_dir=. - if test -f $ac_dir/$ac_word; then - ac_cv_path_ac_cv_prog_chmod="$ac_dir/$ac_word" - break - fi - done - IFS="$ac_save_ifs" - test -z "$ac_cv_path_ac_cv_prog_chmod" && ac_cv_path_ac_cv_prog_chmod="no" - ;; -esac -fi -ac_cv_prog_chmod="$ac_cv_path_ac_cv_prog_chmod" -if test -n "$ac_cv_prog_chmod"; then - echo "$ac_t""$ac_cv_prog_chmod" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi - -if test "$ac_cv_prog_chmod" != no || test "$CROSS"; then - MAYBES=chmod_.o - cat >> confdefs.h <<EOF -#define CHMOD_PATH "$ac_cv_prog_chmod" -EOF - -else - MAYBES="" -fi - -echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6 -echo "configure:852: checking how to run the C preprocessor" >&5 -# On Suns, sometimes $CPP names a directory. -if test -n "$CPP" && test -d "$CPP"; then - CPP= -fi -if test -z "$CPP"; then -if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - # This must be in double quotes, not single quotes, because CPP may get - # substituted into the Makefile and "${CC-cc}" will confuse make. - CPP="${CC-cc} -E" - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. - cat > conftest.$ac_ext <<EOF -#line 867 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:873: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP="${CC-cc} -E -traditional-cpp" - cat > conftest.$ac_ext <<EOF -#line 884 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:890: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP="${CC-cc} -nologo -E" - cat > conftest.$ac_ext <<EOF -#line 901 "configure" -#include "confdefs.h" -#include <assert.h> -Syntax Error -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:907: \"$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 - : -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - CPP=/lib/cpp -fi -rm -f conftest* -fi -rm -f conftest* -fi -rm -f conftest* - ac_cv_prog_CPP="$CPP" -fi - CPP="$ac_cv_prog_CPP" -else - ac_cv_prog_CPP="$CPP" -fi -echo "$ac_t""$CPP" 1>&6 - -echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6 -echo "configure:932: checking for ANSI C header files" >&5 -if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 937 "configure" -#include "confdefs.h" -#include <stdlib.h> -#include <stdarg.h> -#include <string.h> -#include <float.h> -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:945: \"$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* - ac_cv_header_stdc=yes -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -if test $ac_cv_header_stdc = yes; then - # SunOS 4.x string.h does not declare mem*, contrary to ANSI. -cat > conftest.$ac_ext <<EOF -#line 962 "configure" -#include "confdefs.h" -#include <string.h> -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "memchr" >/dev/null 2>&1; then - : -else - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. -cat > conftest.$ac_ext <<EOF -#line 980 "configure" -#include "confdefs.h" -#include <stdlib.h> -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "free" >/dev/null 2>&1; then - : -else - rm -rf conftest* - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. -if test "$cross_compiling" = yes; then - : -else - cat > conftest.$ac_ext <<EOF -#line 1001 "configure" -#include "confdefs.h" -#include <ctype.h> -#define ISLOWER(c) ('a' <= (c) && (c) <= 'z') -#define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) -#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) -int main () { int i; for (i = 0; i < 256; i++) -if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2); -exit (0); } - -EOF -if { (eval echo configure:1012: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null -then - : -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -fr conftest* - ac_cv_header_stdc=no -fi -rm -fr conftest* -fi - -fi -fi - -echo "$ac_t""$ac_cv_header_stdc" 1>&6 -if test $ac_cv_header_stdc = yes; then - cat >> confdefs.h <<\EOF -#define STDC_HEADERS 1 -EOF - -fi - -echo $ac_n "checking whether time.h and sys/time.h may both be included""... $ac_c" 1>&6 -echo "configure:1036: 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 1041 "configure" -#include "confdefs.h" -#include <sys/types.h> -#include <sys/time.h> -#include <time.h> -int main() { -struct tm *tp; -; return 0; } -EOF -if { (eval echo configure:1050: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_header_time=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_header_time=no -fi -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_header_time" 1>&6 -if test $ac_cv_header_time = yes; then - cat >> confdefs.h <<\EOF -#define TIME_WITH_SYS_TIME 1 -EOF - -fi - -for ac_hdr in limits.h unistd.h sys/time.h string.h stdlib.h \ - sys/param.h sys/times.h -do -ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` -echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6 -echo "configure:1075: 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 1080 "configure" -#include "confdefs.h" -#include <$ac_hdr> -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:1085: \"$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* - eval "ac_cv_header_$ac_safe=yes" -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_header_$ac_safe=no" -fi -rm -f conftest* -fi -if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then - echo "$ac_t""yes" 1>&6 - ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'` - cat >> confdefs.h <<EOF -#define $ac_tr_hdr 1 -EOF - -else - echo "$ac_t""no" 1>&6 -fi -done - - -echo $ac_n "checking for working const""... $ac_c" 1>&6 -echo "configure:1113: 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 1118 "configure" -#include "confdefs.h" - -int main() { - -/* Ultrix mips cc rejects this. */ -typedef int charset[2]; const charset x; -/* SunOS 4.1.1 cc rejects this. */ -char const *const *ccp; -char **p; -/* NEC SVR4.0.2 mips cc rejects this. */ -struct point {int x, y;}; -static struct point const zero = {0,0}; -/* AIX XL C 1.02.0.0 rejects this. - It does not let you subtract one const X* pointer from another in an arm - of an if-expression whose if-part is not a constant expression */ -const char *g = "string"; -ccp = &g + (g ? g-g : 0); -/* HPUX 7.0 cc rejects these. */ -++ccp; -p = (char**) ccp; -ccp = (char const *const *) p; -{ /* SCO 3.2v4 cc rejects this. */ - char *t; - char const *s = 0 ? (char *) 0 : (char const *) 0; - - *t++ = 0; -} -{ /* Someone thinks the Sun supposedly-ANSI compiler will reject this. */ - int x[] = {25, 17}; - const int *foo = &x[0]; - ++foo; -} -{ /* Sun SC1.0 ANSI compiler rejects this -- but not the above. */ - typedef const int *iptr; - iptr p = 0; - ++p; -} -{ /* AIX XL C 1.02.0.0 rejects this saying - "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */ - struct s { int j; const int *ap[3]; }; - struct s *b; b->j = 5; -} -{ /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */ - const int foo = 10; -} - -; return 0; } -EOF -if { (eval echo configure:1167: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_c_const=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_c_const=no -fi -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_c_const" 1>&6 -if test $ac_cv_c_const = no; then - cat >> confdefs.h <<\EOF -#define const -EOF - -fi - -echo $ac_n "checking for size_t""... $ac_c" 1>&6 -echo "configure:1188: 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 1193 "configure" -#include "confdefs.h" -#include <sys/types.h> -#if STDC_HEADERS -#include <stdlib.h> -#include <stddef.h> -#endif -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "(^|[^a-zA-Z_0-9])size_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then - rm -rf conftest* - ac_cv_type_size_t=yes -else - rm -rf conftest* - ac_cv_type_size_t=no -fi -rm -f conftest* - -fi -echo "$ac_t""$ac_cv_type_size_t" 1>&6 -if test $ac_cv_type_size_t = no; then - cat >> confdefs.h <<\EOF -#define size_t unsigned -EOF - -fi - -echo $ac_n "checking for mode_t""... $ac_c" 1>&6 -echo "configure:1221: 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 1226 "configure" -#include "confdefs.h" -#include <sys/types.h> -#if STDC_HEADERS -#include <stdlib.h> -#include <stddef.h> -#endif -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "(^|[^a-zA-Z_0-9])mode_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then - rm -rf conftest* - ac_cv_type_mode_t=yes -else - rm -rf conftest* - ac_cv_type_mode_t=no -fi -rm -f conftest* - -fi -echo "$ac_t""$ac_cv_type_mode_t" 1>&6 -if test $ac_cv_type_mode_t = no; then - cat >> confdefs.h <<\EOF -#define mode_t int -EOF - -fi - - -echo $ac_n "checking for pid_t""... $ac_c" 1>&6 -echo "configure:1255: 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 1260 "configure" -#include "confdefs.h" -#include <sys/types.h> -#if STDC_HEADERS -#include <stdlib.h> -#include <stddef.h> -#endif -EOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - egrep "(^|[^a-zA-Z_0-9])pid_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then - rm -rf conftest* - ac_cv_type_pid_t=yes -else - rm -rf conftest* - ac_cv_type_pid_t=no -fi -rm -f conftest* - -fi -echo "$ac_t""$ac_cv_type_pid_t" 1>&6 -if test $ac_cv_type_pid_t = no; then - cat >> confdefs.h <<\EOF -#define pid_t int -EOF - -fi - -echo $ac_n "checking for st_blksize in struct stat""... $ac_c" 1>&6 -echo "configure:1288: 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 1293 "configure" -#include "confdefs.h" -#include <sys/types.h> -#include <sys/stat.h> -int main() { -struct stat s; s.st_blksize; -; return 0; } -EOF -if { (eval echo configure:1301: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_struct_st_blksize=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_struct_st_blksize=no -fi -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_struct_st_blksize" 1>&6 -if test $ac_cv_struct_st_blksize = yes; then - cat >> confdefs.h <<\EOF -#define HAVE_ST_BLKSIZE 1 -EOF - -fi - -echo $ac_n "checking for st_blocks in struct stat""... $ac_c" 1>&6 -echo "configure:1322: 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 1327 "configure" -#include "confdefs.h" -#include <sys/types.h> -#include <sys/stat.h> -int main() { -struct stat s; s.st_blocks; -; return 0; } -EOF -if { (eval echo configure:1335: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_struct_st_blocks=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_struct_st_blocks=no -fi -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_struct_st_blocks" 1>&6 -if test $ac_cv_struct_st_blocks = yes; then - cat >> confdefs.h <<\EOF -#define HAVE_ST_BLOCKS 1 -EOF - -else - LIBOBJS="$LIBOBJS fileblocks.${ac_objext}" -fi - -echo $ac_n "checking for st_rdev in struct stat""... $ac_c" 1>&6 -echo "configure:1358: 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 1363 "configure" -#include "confdefs.h" -#include <sys/types.h> -#include <sys/stat.h> -int main() { -struct stat s; s.st_rdev; -; return 0; } -EOF -if { (eval echo configure:1371: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_struct_st_rdev=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_struct_st_rdev=no -fi -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_struct_st_rdev" 1>&6 -if test $ac_cv_struct_st_rdev = yes; then - cat >> confdefs.h <<\EOF -#define HAVE_ST_RDEV 1 -EOF - -fi - -echo $ac_n "checking whether struct tm is in sys/time.h or time.h""... $ac_c" 1>&6 -echo "configure:1392: 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 1397 "configure" -#include "confdefs.h" -#include <sys/types.h> -#include <time.h> -int main() { -struct tm *tp; tp->tm_sec; -; return 0; } -EOF -if { (eval echo configure:1405: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - ac_cv_struct_tm=time.h -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_struct_tm=sys/time.h -fi -rm -f conftest* -fi - -echo "$ac_t""$ac_cv_struct_tm" 1>&6 -if test $ac_cv_struct_tm = sys/time.h; then - cat >> confdefs.h <<\EOF -#define TM_IN_SYS_TIME 1 -EOF - -fi - - -echo $ac_n "checking for gethostname in -lsocket""... $ac_c" 1>&6 -echo "configure:1427: 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 -else - ac_save_LIBS="$LIBS" -LIBS="-lsocket $LIBS" -cat > conftest.$ac_ext <<EOF -#line 1435 "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 - builtin and then its argument prototype would still apply. */ -char gethostname(); - -int main() { -gethostname() -; return 0; } -EOF -if { (eval echo configure:1446: \"$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 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_lib_$ac_lib_var=no" -fi -rm -f conftest* -LIBS="$ac_save_LIBS" - -fi -if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then - echo "$ac_t""yes" 1>&6 - LIBS="$LIBS -lsocket" -else - echo "$ac_t""no" 1>&6 -fi - - - -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:1472: 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 1477 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $ac_func(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char $ac_func(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_$ac_func) || defined (__stub___$ac_func) -choke me -#else -$ac_func(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1500: \"$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 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_$ac_func=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then - echo "$ac_t""yes" 1>&6 - ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'` - cat >> confdefs.h <<EOF -#define $ac_tr_func 1 -EOF - -else - echo "$ac_t""no" 1>&6 -fi -done - - - - for ac_func in gettimeofday -do -echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 -echo "configure:1529: 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 1534 "configure" -#include "confdefs.h" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $ac_func(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char $ac_func(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_$ac_func) || defined (__stub___$ac_func) -choke me -#else -$ac_func(); -#endif - -; return 0; } -EOF -if { (eval echo configure:1557: \"$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 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_$ac_func=no" -fi -rm -f conftest* -fi - -if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then - echo "$ac_t""yes" 1>&6 - ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'` - cat >> confdefs.h <<EOF -#define $ac_tr_func 1 -EOF - -else - echo "$ac_t""no" 1>&6 -fi -done - - if test "$ac_cv_func_gettimeofday" = yes; then - echo $ac_n "checking for struct timezone""... $ac_c" 1>&6 -echo "configure:1583: 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 1588 "configure" -#include "confdefs.h" -#include <sys/time.h> -int main() { -struct timezone tz; -; return 0; } -EOF -if { (eval echo configure:1595: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then - rm -rf conftest* - g77_cv_struct_timezone=yes -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - g77_cv_struct_timezone=no -fi -rm -f conftest* -fi - -echo "$ac_t""$g77_cv_struct_timezone" 1>&6 - if test $g77_cv_struct_timezone = yes; then - if test "$cross_compiling" = yes; then - cat >> confdefs.h <<\EOF -#define HAVE_TIMEZONE 1 -EOF - -else - cat > conftest.$ac_ext <<EOF -#line 1616 "configure" -#include "confdefs.h" - -#ifdef TIME_WITH_SYS_TIME -#include <sys/time.h> -#include <time.h> -#else -#ifdef HAVE_SYS_TIME_H -#include <sys/time.h> -#else -#include <time.h> -#endif -#endif -main () -{ - struct timeval time; - struct timezone dummy; - if (gettimeofday (&time, &dummy)) - exit (1); - else - exit (0); -} -EOF -if { (eval echo configure:1639: \"$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 -EOF - -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 -fi -rm -fr conftest* -fi - - fi - - echo $ac_n "checking whether gettimeofday can accept two arguments""... $ac_c" 1>&6 -echo "configure:1655: 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 1660 "configure" -#include "confdefs.h" - -#ifdef TIME_WITH_SYS_TIME -#include <sys/time.h> -#include <time.h> -#else -#ifdef HAVE_SYS_TIME_H -#include <sys/time.h> -#else -#include <time.h> -#endif -#endif - -int main() { - - struct timeval time; -#ifdef HAVE_TIMEZONE - struct timezone dummy; -#define DUMMY &dummy -#else -#define DUMMY NULL -#endif - gettimeofday (&time, DUMMY); -; return 0; } -EOF -if { (eval echo configure:1686: \"$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 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - emacs_cv_gettimeofday_two_arguments=no -fi -rm -f conftest* -fi - -echo "$ac_t""$emacs_cv_gettimeofday_two_arguments" 1>&6 - if test $emacs_cv_gettimeofday_two_arguments = no; then - cat >> confdefs.h <<\EOF -#define GETTIMEOFDAY_ONE_ARGUMENT 1 -EOF - - fi - fi - -test $ac_cv_func_symlink = yes && MAYBES="$MAYBES symlnk_.o" -test $ac_cv_func_lstat = yes && MAYBES="$MAYBES lstat_.o" -test $ac_cv_func_gethostname = yes && MAYBES="$MAYBES hostnm_.o" -test $ac_cv_func_clock = yes && MAYBES="$MAYBES mclock_.o" - - - - - - -trap '' 1 2 15 -cat > confcache <<\EOF -# This file is a shell script that caches the results of configure -# tests run on this system so they can be shared between configure -# scripts and configure runs. It is not useful on other systems. -# If it contains results you don't want to keep, you may remove or edit it. -# -# By default, configure uses ./config.cache as the cache file, -# creating it if it does not exist already. You can give configure -# the --cache-file=FILE option to use a different cache file; that is -# what configure does when it calls configure scripts in -# subdirectories, so they share the cache. -# Giving --cache-file=/dev/null disables caching, for debugging configure. -# config.status only pays attention to the cache file if you give it the -# --recheck option to rerun configure. -# -EOF -# The following way of writing the cache mishandles newlines in values, -# but we know of no workaround that is simple, portable, and efficient. -# So, don't put newlines in cache variables' values. -# Ultrix sh set writes to stderr and can't be redirected directly, -# and sets the high bit in the cache file unless we assign to the vars. -(set) 2>&1 | - case `(ac_space=' '; set | grep ac_space) 2>&1` in - *ac_space=\ *) - # `set' does not quote correctly, so add quotes (double-quote substitution - # turns \\\\ into \\, and sed turns \\ into \). - sed -n \ - -e "s/'/'\\\\''/g" \ - -e "s/^\\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\\)=\\(.*\\)/\\1=\${\\1='\\2'}/p" - ;; - *) - # `set' quotes correctly as required by POSIX, so do not add quotes. - sed -n -e 's/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=${\1=\2}/p' - ;; - esac >> confcache -if cmp -s $cache_file confcache; then - : -else - if test -w $cache_file; then - echo "updating cache $cache_file" - cat confcache > $cache_file - else - echo "not updating unwritable cache $cache_file" - fi -fi -rm -f confcache - -trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 - -test "x$prefix" = xNONE && prefix=$ac_default_prefix -# Let make expand exec_prefix. -test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' - -# Any assignment to VPATH causes Sun make to only execute -# the first set of double-colon rules, so remove it if not needed. -# If there is a colon in the path, we need to keep it. -if test "x$srcdir" = x.; then - ac_vpsub='/^[ ]*VPATH[ ]*=[^:]*$/d' -fi - -trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15 - -DEFS=-DHAVE_CONFIG_H - -# Without the "./", some shells look in PATH for config.status. -: ${CONFIG_STATUS=./config.status} - -echo creating $CONFIG_STATUS -rm -f $CONFIG_STATUS -cat > $CONFIG_STATUS <<EOF -#! /bin/sh -# Generated automatically by configure. -# Run this file to recreate the current configuration. -# This directory was configured as follows, -# on host `(hostname || uname -n) 2>/dev/null | sed 1q`: -# -# $0 $ac_configure_args -# -# Compiler output produced by configure, useful for debugging -# configure, is in ./config.log if it exists. - -ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]" -for ac_option -do - case "\$ac_option" in - -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) - echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion" - exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;; - -version | --version | --versio | --versi | --vers | --ver | --ve | --v) - echo "$CONFIG_STATUS generated by autoconf version 2.13" - exit 0 ;; - -help | --help | --hel | --he | --h) - echo "\$ac_cs_usage"; exit 0 ;; - *) echo "\$ac_cs_usage"; exit 1 ;; - esac -done - -ac_given_srcdir=$srcdir - -trap 'rm -fr `echo "Makefile config.h:config.hin" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15 -EOF -cat >> $CONFIG_STATUS <<EOF - -# Protect against being on the right side of a sed subst in config.status. -sed 's/%@/@@/; s/@%/@@/; s/%g\$/@g/; /@g\$/s/[\\\\&%]/\\\\&/g; - s/@@/%@/; s/@@/@%/; s/@g\$/%g/' > conftest.subs <<\\CEOF -$ac_vpsub -$extrasub -s%@SHELL@%$SHELL%g -s%@CFLAGS@%$CFLAGS%g -s%@CPPFLAGS@%$CPPFLAGS%g -s%@CXXFLAGS@%$CXXFLAGS%g -s%@FFLAGS@%$FFLAGS%g -s%@DEFS@%$DEFS%g -s%@LDFLAGS@%$LDFLAGS%g -s%@LIBS@%$LIBS%g -s%@exec_prefix@%$exec_prefix%g -s%@prefix@%$prefix%g -s%@program_transform_name@%$program_transform_name%g -s%@bindir@%$bindir%g -s%@sbindir@%$sbindir%g -s%@libexecdir@%$libexecdir%g -s%@datadir@%$datadir%g -s%@sysconfdir@%$sysconfdir%g -s%@sharedstatedir@%$sharedstatedir%g -s%@localstatedir@%$localstatedir%g -s%@libdir@%$libdir%g -s%@includedir@%$includedir%g -s%@oldincludedir@%$oldincludedir%g -s%@infodir@%$infodir%g -s%@mandir@%$mandir%g -s%@CC@%$CC%g -s%@LIBTOOL@%$LIBTOOL%g -s%@AR@%$AR%g -s%@SET_MAKE@%$SET_MAKE%g -s%@ac_cv_prog_chmod@%$ac_cv_prog_chmod%g -s%@CPP@%$CPP%g -s%@LIBOBJS@%$LIBOBJS%g -s%@MAYBES@%$MAYBES%g -s%@CROSS@%$CROSS%g -s%@RANLIB@%$RANLIB%g -s%@RANLIB_TEST@%$RANLIB_TEST%g - -CEOF -EOF - -cat >> $CONFIG_STATUS <<\EOF - -# Split the substitutions into bite-sized pieces for seds with -# small command number limits, like on Digital OSF/1 and HP-UX. -ac_max_sed_cmds=90 # Maximum number of lines to put in a sed script. -ac_file=1 # Number of current file. -ac_beg=1 # First line for current file. -ac_end=$ac_max_sed_cmds # Line after last line for current file. -ac_more_lines=: -ac_sed_cmds="" -while $ac_more_lines; do - if test $ac_beg -gt 1; then - sed "1,${ac_beg}d; ${ac_end}q" conftest.subs > conftest.s$ac_file - else - sed "${ac_end}q" conftest.subs > conftest.s$ac_file - fi - if test ! -s conftest.s$ac_file; then - ac_more_lines=false - rm -f conftest.s$ac_file - else - if test -z "$ac_sed_cmds"; then - ac_sed_cmds="sed -f conftest.s$ac_file" - else - ac_sed_cmds="$ac_sed_cmds | sed -f conftest.s$ac_file" - fi - ac_file=`expr $ac_file + 1` - ac_beg=$ac_end - ac_end=`expr $ac_end + $ac_max_sed_cmds` - fi -done -if test -z "$ac_sed_cmds"; then - ac_sed_cmds=cat -fi -EOF - -cat >> $CONFIG_STATUS <<EOF - -CONFIG_FILES=\${CONFIG_FILES-"Makefile"} -EOF -cat >> $CONFIG_STATUS <<\EOF -for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then - # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". - case "$ac_file" in - *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` - ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; - *) ac_file_in="${ac_file}.in" ;; - esac - - # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories. - - # Remove last slash and all that follows it. Not all systems have dirname. - ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` - if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then - # The file is in a subdirectory. - test ! -d "$ac_dir" && mkdir "$ac_dir" - ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`" - # A "../" for each directory in $ac_dir_suffix. - ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'` - else - ac_dir_suffix= ac_dots= - fi - - case "$ac_given_srcdir" in - .) srcdir=. - if test -z "$ac_dots"; then top_srcdir=. - else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;; - /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;; - *) # Relative path. - srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix" - top_srcdir="$ac_dots$ac_given_srcdir" ;; - esac - - - echo creating "$ac_file" - rm -f "$ac_file" - configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure." - case "$ac_file" in - *Makefile*) ac_comsub="1i\\ -# $configure_input" ;; - *) ac_comsub= ;; - esac - - ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` - sed -e "$ac_comsub -s%@configure_input@%$configure_input%g -s%@srcdir@%$srcdir%g -s%@top_srcdir@%$top_srcdir%g -" $ac_file_inputs | (eval "$ac_sed_cmds") > $ac_file -fi; done -rm -f conftest.s* - -# These sed commands are passed to sed as "A NAME B NAME C VALUE D", where -# NAME is the cpp macro being defined and VALUE is the value it is being given. -# -# ac_d sets the value in "#define NAME VALUE" lines. -ac_dA='s%^\([ ]*\)#\([ ]*define[ ][ ]*\)' -ac_dB='\([ ][ ]*\)[^ ]*%\1#\2' -ac_dC='\3' -ac_dD='%g' -# ac_u turns "#undef NAME" with trailing blanks into "#define NAME VALUE". -ac_uA='s%^\([ ]*\)#\([ ]*\)undef\([ ][ ]*\)' -ac_uB='\([ ]\)%\1#\2define\3' -ac_uC=' ' -ac_uD='\4%g' -# ac_e turns "#undef NAME" without trailing blanks into "#define NAME VALUE". -ac_eA='s%^\([ ]*\)#\([ ]*\)undef\([ ][ ]*\)' -ac_eB='$%\1#\2define\3' -ac_eC=' ' -ac_eD='%g' - -if test "${CONFIG_HEADERS+set}" != set; then -EOF -cat >> $CONFIG_STATUS <<EOF - CONFIG_HEADERS="config.h:config.hin" -EOF -cat >> $CONFIG_STATUS <<\EOF -fi -for ac_file in .. $CONFIG_HEADERS; do if test "x$ac_file" != x..; then - # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". - case "$ac_file" in - *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` - ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; - *) ac_file_in="${ac_file}.in" ;; - esac - - echo creating $ac_file - - rm -f conftest.frag conftest.in conftest.out - ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` - cat $ac_file_inputs > conftest.in - -EOF - -# Transform confdefs.h into a sed script conftest.vals that substitutes -# the proper values into config.h.in to produce config.h. And first: -# Protect against being on the right side of a sed subst in config.status. -# Protect against being in an unquoted here document in config.status. -rm -f conftest.vals -cat > conftest.hdr <<\EOF -s/[\\&%]/\\&/g -s%[\\$`]%\\&%g -s%#define \([A-Za-z_][A-Za-z0-9_]*\) *\(.*\)%${ac_dA}\1${ac_dB}\1${ac_dC}\2${ac_dD}%gp -s%ac_d%ac_u%gp -s%ac_u%ac_e%gp -EOF -sed -n -f conftest.hdr confdefs.h > conftest.vals -rm -f conftest.hdr - -# This sed command replaces #undef with comments. This is necessary, for -# example, in the case of _POSIX_SOURCE, which is predefined and required -# on some systems where configure will not decide to define it. -cat >> conftest.vals <<\EOF -s%^[ ]*#[ ]*undef[ ][ ]*[a-zA-Z_][a-zA-Z_0-9]*%/* & */% -EOF - -# Break up conftest.vals because some shells have a limit on -# the size of here documents, and old seds have small limits too. - -rm -f conftest.tail -while : -do - ac_lines=`grep -c . conftest.vals` - # grep -c gives empty output for an empty file on some AIX systems. - if test -z "$ac_lines" || test "$ac_lines" -eq 0; then break; fi - # Write a limited-size here document to conftest.frag. - echo ' cat > conftest.frag <<CEOF' >> $CONFIG_STATUS - sed ${ac_max_here_lines}q conftest.vals >> $CONFIG_STATUS - echo 'CEOF - sed -f conftest.frag conftest.in > conftest.out - rm -f conftest.in - mv conftest.out conftest.in -' >> $CONFIG_STATUS - sed 1,${ac_max_here_lines}d conftest.vals > conftest.tail - rm -f conftest.vals - mv conftest.tail conftest.vals -done -rm -f conftest.vals - -cat >> $CONFIG_STATUS <<\EOF - rm -f conftest.frag conftest.h - echo "/* $ac_file. Generated automatically by configure. */" > conftest.h - cat conftest.in >> conftest.h - rm -f conftest.in - if cmp -s $ac_file conftest.h 2>/dev/null; then - echo "$ac_file is unchanged" - rm -f conftest.h - else - # Remove last slash and all that follows it. Not all systems have dirname. - ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` - if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then - # The file is in a subdirectory. - test ! -d "$ac_dir" && mkdir "$ac_dir" - fi - rm -f $ac_file - mv conftest.h $ac_file - fi -fi; done - -EOF -cat >> $CONFIG_STATUS <<EOF - -EOF -cat >> $CONFIG_STATUS <<\EOF - -exit 0 -EOF -chmod +x $CONFIG_STATUS -rm -fr confdefs* $ac_clean_files -test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1 - diff --git a/gnu/lib/libf2c/libU77/configure.in b/gnu/lib/libf2c/libU77/configure.in deleted file mode 100644 index a56fc4cd311..00000000000 --- a/gnu/lib/libf2c/libU77/configure.in +++ /dev/null @@ -1,122 +0,0 @@ -# Process this file with autoconf to produce a configure script. -# Copyright (C) 1995, 1998, 1999 Free Software Foundation, Inc. -# Contributed by Dave Love (d.love@dl.ac.uk). -# -#This file is part of the GNU Fortran libU77 library. -# -#This library is free software; you can redistribute it and/or modify -#it under the terms of the GNU General Public License as published by -#the Free Software Foundation; either version 2, or (at your option) -#any later version. -# -#GNU Fortran is distributed in the hope that it will be useful, -#but WITHOUT ANY WARRANTY; without even the implied warranty of -#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#GNU Library General Public License for more details. -# -#You should have received a copy of the GNU Library General Public -#License along with GNU Fortran; see the file COPYING. If not, write -#to Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, -#USA. - -AC_PREREQ(2.12.1) -AC_INIT(access_.c) -AC_CONFIG_HEADER(config.h:config.hin) - -dnl FIXME AC_PROG_CC wants CC to be able to link things, but it may -dnl not be able to. -define([AC_PROG_CC_WORKS],[]) - -# For g77 we'll set CC to point at the built gcc, but this will get it into -# the makefiles -AC_PROG_CC - -# These defines are necessary to get 64-bit file size support. -# NetBSD 1.4 header files does not support XOPEN_SOURCE == 600, but it -# handles 64-bit file sizes without needing these defines. -AC_MSG_CHECKING(whether _XOPEN_SOURCE may be defined) -AC_TRY_COMPILE([#define _XOPEN_SOURCE 600L -#include <unistd.h>],, -may_use_xopen_source=yes, -may_use_xopen_source=no) -AC_MSG_RESULT($may_use_xopen_source) -if test $may_use_xopen_source = yes; then - AC_DEFINE(_XOPEN_SOURCE, 600L, [Get Single Unix Specification semantics]) - # The following is needed by irix6.2 so that struct timeval is declared. - AC_DEFINE(_XOPEN_SOURCE_EXTENDED, 1, [Get Single Unix Specification semantics]) - # The following is needed by Solaris2.5.1 so that struct timeval is declared. - AC_DEFINE(__EXTENSIONS__, 1, [Solaris extensions]) - AC_DEFINE(_FILE_OFFSET_BITS, 64, [Get 64-bit file size support]) -fi - -dnl Checks for programs. - -LIBTOOL='$(SHELL) ../libtool' -AC_SUBST(LIBTOOL) - -dnl AC_C_CROSS -dnl Gives misleading `(cached)' message from the check. -if test "$CROSS";then - ac_cv_c_cross=yes -else - ac_cv_c_cross=no -fi - -test "$AR" || AR=ar -AC_SUBST(AR) -AC_PROG_MAKE_SET - -dnl This is only because we (horribly) punt the chmod job to the program at -dnl present. Note that the result of this test could be wrong in the cross -dnl case. -AC_PATH_PROG(ac_cv_prog_chmod, chmod, no) -if test "$ac_cv_prog_chmod" != no || test "$CROSS"; then - MAYBES=chmod_.o - AC_DEFINE_UNQUOTED(CHMOD_PATH,"$ac_cv_prog_chmod") -else - MAYBES="" -fi - -dnl Checks for header files. -AC_HEADER_STDC -AC_HEADER_TIME -AC_CHECK_HEADERS(limits.h unistd.h sys/time.h string.h stdlib.h \ - sys/param.h sys/times.h) - -dnl Checks for typedefs, structures, and compiler characteristics. -AC_C_CONST -AC_TYPE_SIZE_T -AC_TYPE_MODE_T - -AC_TYPE_PID_T -dnl The next 3 demand a dummy fileblocks.o (added to LIBOJS). We don't use -dnl LIBOJS, though. -AC_STRUCT_ST_BLKSIZE -AC_STRUCT_ST_BLOCKS -AC_STRUCT_ST_RDEV -AC_STRUCT_TM - -dnl Some systems (SVR4, SCO OpenServer) need -lsocket for gethostname() -AC_CHECK_LIB(socket, gethostname, [LIBS="$LIBS -lsocket"]) - -dnl Checks for library functions. - -AC_CHECK_FUNCS(symlink getcwd getwd lstat gethostname strerror clock \ - getrusage times alarm getlogin getgid getuid kill link ttyname) - -dnl The standard autoconf HAVE_STRUCT_TIMEZONE doesn't actually check -dnl for struct timezone, as you might think. We also need to check how -dnl to call gettimeofday if we have it. -LIBU77_GETTIMEOFDAY - -test $ac_cv_func_symlink = yes && MAYBES="$MAYBES symlnk_.o" -test $ac_cv_func_lstat = yes && MAYBES="$MAYBES lstat_.o" -test $ac_cv_func_gethostname = yes && MAYBES="$MAYBES hostnm_.o" -test $ac_cv_func_clock = yes && MAYBES="$MAYBES mclock_.o" -AC_SUBST(MAYBES) - -AC_SUBST(CROSS) -AC_SUBST(RANLIB) -AC_SUBST(RANLIB_TEST) - -AC_OUTPUT(Makefile) diff --git a/gnu/lib/libf2c/libU77/ctime_.c b/gnu/lib/libf2c/libU77/ctime_.c deleted file mode 100644 index 56e660562b7..00000000000 --- a/gnu/lib/libf2c/libU77/ctime_.c +++ /dev/null @@ -1,51 +0,0 @@ -/* Copyright (C) 1995, 1996, 2001 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <sys/types.h> -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif -#include "f2c.h" - -/* may need sys/time.h & long arg for stime (bsd, svr1-3) */ - -/* Character */ void -G77_ctime_0 (char *chtime, const ftnlen Lchtime, longint * xstime) -{ - int s_copy (); - time_t stime = *xstime; - - /* Allow a length other than 24 for compatibility with what other - systems do, despite it being documented as 24. */ - s_copy (chtime, ctime (&stime), Lchtime, 24); -} diff --git a/gnu/lib/libf2c/libU77/date_.c b/gnu/lib/libf2c/libU77/date_.c deleted file mode 100644 index 306cc5f2da4..00000000000 --- a/gnu/lib/libf2c/libU77/date_.c +++ /dev/null @@ -1,56 +0,0 @@ -/* date_.f -- translated by f2c (version 19961001). - You must link the resulting object file with the libraries: - -lf2c -lm (in that order) -*/ - -#include "f2c.h" - -/* Table of constant values */ - -static integer c__5 = 5; - -/* Subroutine */ int -G77_date_y2kbug_0 (char *buf, ftnlen buf_len) -{ - /* System generated locals */ - address a__1[5]; - longint i__1; - integer i__2[5]; - char ch__1[24]; - - /* Builtin functions */ - /* Subroutine */ int s_copy (), s_cat (); - - /* Local variables */ - static char cbuf[24]; - extern longint G77_time_0 (); - extern /* Character */ void G77_ctime_0 (); - - i__1 = G77_time_0 (); - G77_ctime_0 (ch__1, 24L, &i__1); - s_copy (cbuf, ch__1, 24L, 24L); -/* Writing concatenation */ - i__2[0] = 2, a__1[0] = cbuf + 8; - i__2[1] = 1, a__1[1] = "-"; - i__2[2] = 3, a__1[2] = cbuf + 4; - i__2[3] = 1, a__1[3] = "-"; - i__2[4] = 2, a__1[4] = cbuf + 22; - s_cat (buf, a__1, i__2, &c__5, buf_len); - return 0; -} /* date_ */ - -#ifdef PIC -# include <stdio.h> - -const char *G77_Non_Y2K_Compliance_Message = - "Call to non Y2K compliant subroutine detected."; - -int -G77_date_y2kbuggy_0 (char *buf __attribute__ ((__unused__)), - ftnlen buf_len __attribute__ ((__unused__))) -{ - extern int G77_abort_0 (); - fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message); - G77_abort_0 (); -} -#endif diff --git a/gnu/lib/libf2c/libU77/datetime_.c b/gnu/lib/libf2c/libU77/datetime_.c deleted file mode 100644 index cd7c7ca0a3b..00000000000 --- a/gnu/lib/libf2c/libU77/datetime_.c +++ /dev/null @@ -1,109 +0,0 @@ -/* Copyright (C) 1997, 1998, 1999, 2001 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#include <sys/types.h> -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#if defined (_WIN32) -#include <windows.h> -#undef min -#undef max -#endif -#include "f2c.h" - -void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb); - -int -G77_date_and_time_0 (char *date, char *fftime, char *zone, - integer * values, ftnlen date_len, - ftnlen fftime_len, ftnlen zone_len) -{ - time_t lt = time (<); - struct tm ltime = *localtime (<), gtime = *gmtime (<); - char dat[9], zon[6], ftim[11]; - int i, vals[8]; -#if defined (_WIN32) - struct _SYSTEMTIME wdattim; - GetLocalTime(&wdattim); - vals[7] = wdattim.wMilliseconds; -#else - vals[7] = 0; /* no STDC/POSIX way to get this */ - /* GNUish way; maybe use `ftime' on other systems. */ -#endif - - vals[0] = 1900 + ltime.tm_year; - vals[1] = 1 + ltime.tm_mon; - vals[2] = ltime.tm_mday; - /* fixme: year boundaries */ - vals[3] = (ltime.tm_min - gtime.tm_min + - 60 * (ltime.tm_hour - gtime.tm_hour + - 24 * (ltime.tm_yday - gtime.tm_yday))); - vals[4] = ltime.tm_hour; - vals[5] = ltime.tm_min; - vals[6] = ltime.tm_sec; -#if HAVE_GETTIMEOFDAY - { - struct timeval tp; -# if GETTIMEOFDAY_ONE_ARGUMENT - if (!gettimeofday (&tp)) -# else -# if HAVE_STRUCT_TIMEZONE - struct timezone tzp; - /* Some systems such as HPUX, do have struct timezone, but - gettimeofday takes void* as the 2nd arg. However, the effect - of passing anything other than a null pointer is unspecified on - HPUX. Configure checks if gettimeofday actually fails with a - non-NULL arg and pretends that struct timezone is missing if it - does fail. */ - if (!gettimeofday (&tp, &tzp)) -# else - if (!gettimeofday (&tp, (void *) 0)) -# endif /* HAVE_STRUCT_TIMEZONE */ -# endif /* GETTIMEOFDAY_ONE_ARGUMENT */ - vals[7] = tp.tv_usec / 1000; - } -#endif /* HAVE_GETTIMEOFDAY */ - if (values) /* null pointer for missing optional */ - for (i = 0; i <= 7; i++) - values[i] = vals[i]; - sprintf (dat, "%04d%02d%02d", vals[0], vals[1], vals[2]); - s_copy (date, dat, date_len, 8); - if (zone) - { - sprintf (zon, "%+03d%02d", vals[3] / 60, abs (vals[3] % 60)); - s_copy (zone, zon, zone_len, 5); - } - if (fftime) - { - sprintf (ftim, "%02d%02d%02d.%03d", vals[4], vals[5], vals[6], vals[7]); - s_copy (fftime, ftim, fftime_len, 10); - } - return 0; -} diff --git a/gnu/lib/libf2c/libU77/dbes.c b/gnu/lib/libf2c/libU77/dbes.c deleted file mode 100644 index 8a31746102e..00000000000 --- a/gnu/lib/libf2c/libU77/dbes.c +++ /dev/null @@ -1,58 +0,0 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#if 0 /* Don't include these unless necessary -- dnp. */ -#include "f2c.h" -#include <math.h> - -double -G77_dbesj0_0 (const double *x) -{ - return j0 (*x); -} - -double -G77_dbesj1_0 (const double *x) -{ - return j1 (*x); -} - -double -G77_dbesjn_0 (const integer * n, double *x) -{ - return jn (*n, *x); -} - -double -G77_dbesy0_0 (const double *x) -{ - return y0 (*x); -} - -double -G77_dbesy1_0 (const double *x) -{ - return y1 (*x); -} - -double -G77_dbesyn_0 (const integer * n, double *x) -{ - return yn (*n, *x); -} -#endif diff --git a/gnu/lib/libf2c/libU77/dtime_.c b/gnu/lib/libf2c/libU77/dtime_.c deleted file mode 100644 index dc9a8639df2..00000000000 --- a/gnu/lib/libf2c/libU77/dtime_.c +++ /dev/null @@ -1,174 +0,0 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#include <sys/types.h> -#if HAVE_SYS_TIMES_H -# include <sys/times.h> -#endif -#if HAVE_SYS_PARAM_H -# include <sys/param.h> -#endif -#if HAVE_GETRUSAGE -# include <sys/time.h> -# include <sys/resource.h> -#endif -#if defined (_WIN32) -# include <windows.h> -# undef min -# undef max -#endif -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -double -G77_dtime_0 (real tarray[2]) -{ -#if defined (_WIN32) - static int win32_platform = -1; - - if (win32_platform == -1) - { - OSVERSIONINFO osv; - osv.dwOSVersionInfoSize = sizeof (osv); - GetVersionEx (&osv); - win32_platform = osv.dwPlatformId; - } - - /* We need to use this hack on non-NT platforms, where the first call - returns 0.0 and subsequent ones return the correct value. */ - if (win32_platform != VER_PLATFORM_WIN32_NT) - { - static unsigned long long clock_freq; - static unsigned long long old_count; - unsigned long long count; - double delta; - LARGE_INTEGER counter_val; - - if (clock_freq == 0) - { - LARGE_INTEGER freq; - if (!QueryPerformanceFrequency (&freq)) - { - errno = ENOSYS; - return 0.0; - } - else - { - clock_freq = ((unsigned long long) freq.HighPart << 32) - + ((unsigned) freq.LowPart); - } - } - - if (!QueryPerformanceCounter (&counter_val)) - return -1.0; - - count = ((unsigned long long) counter_val.HighPart << 32) - + (unsigned) counter_val.LowPart; - delta = ((double) (count - old_count)) / clock_freq; - tarray[0] = (float) delta; - tarray[1] = 0.0; - old_count = count; - } - else - { - static unsigned long long old_utime, old_stime; - unsigned long long utime, stime; - FILETIME creation_time, exit_time, kernel_time, user_time; - - GetProcessTimes (GetCurrentProcess (), &creation_time, &exit_time, - &kernel_time, &user_time); - utime = ((unsigned long long) user_time.dwHighDateTime << 32) - + (unsigned) user_time.dwLowDateTime; - stime = ((unsigned long long) kernel_time.dwHighDateTime << 32) - + (unsigned) kernel_time.dwLowDateTime; - - tarray[0] = (utime - old_utime) / 1.0e7; - tarray[1] = (stime - old_stime) / 1.0e7; - old_utime = utime; - old_stime = stime; - } - return tarray[0] + tarray[1]; - -#elif defined (HAVE_GETRUSAGE) || defined (HAVE_TIMES) - /* The getrusage version is only the default for convenience. */ -#ifdef HAVE_GETRUSAGE - float utime, stime; - static float old_utime = 0.0, old_stime = 0.0; - struct rusage rbuff; - - if (getrusage (RUSAGE_SELF, &rbuff) != 0) - abort (); - utime = (float) (rbuff.ru_utime).tv_sec + - (float) (rbuff.ru_utime).tv_usec / 1000000.0; - tarray[0] = utime - (float) old_utime; - stime = (float) (rbuff.ru_stime).tv_sec + - (float) (rbuff.ru_stime).tv_usec / 1000000.0; - tarray[1] = stime - old_stime; -#else /* HAVE_GETRUSAGE */ - /* For dtime, etime we store the clock tick parameter (clk_tck) the - first time either of them is invoked rather than each time. This - approach probably speeds up each invocation by avoiding a system - call each time, but means that the overhead of the first call is - different to all others. */ - static long clk_tck = 0; - time_t utime, stime; - static time_t old_utime = 0, old_stime = 0; - struct tms buffer; - -/* NeXTStep seems to define _SC_CLK_TCK but not to have sysconf; - fixme: does using _POSIX_VERSION help? */ -# if defined _SC_CLK_TCK && defined _POSIX_VERSION - if (!clk_tck) - clk_tck = sysconf (_SC_CLK_TCK); -# elif defined CLOCKS_PER_SECOND - if (!clk_tck) - clk_tck = CLOCKS_PER_SECOND; -# elif defined CLK_TCK - if (!clk_tck) - clk_tck = CLK_TCK; -# elif defined HZ - if (!clk_tck) - clk_tck = HZ; -# elif defined HAVE_GETRUSAGE -# else -#error Dont know clock tick length -# endif - if (times (&buffer) == (clock_t) - 1) - return -1.0; - utime = buffer.tms_utime; - stime = buffer.tms_stime; - tarray[0] = ((float) (utime - old_utime)) / (float) clk_tck; - tarray[1] = ((float) (stime - old_stime)) / (float) clk_tck; -#endif /* HAVE_GETRUSAGE */ - old_utime = utime; - old_stime = stime; - return (tarray[0] + tarray[1]); -#else /* ! HAVE_GETRUSAGE && ! HAVE_TIMES */ - errno = ENOSYS; - return 0.0; -#endif /* ! HAVE_GETRUSAGE && ! HAVE_TIMES */ -} diff --git a/gnu/lib/libf2c/libU77/etime_.c b/gnu/lib/libf2c/libU77/etime_.c deleted file mode 100644 index d0edb2fbcd3..00000000000 --- a/gnu/lib/libf2c/libU77/etime_.c +++ /dev/null @@ -1,163 +0,0 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#include <sys/types.h> -#if HAVE_SYS_TIMES_H -# include <sys/times.h> -#endif -#if HAVE_SYS_PARAM_H -# include <sys/param.h> -#endif -#if HAVE_GETRUSAGE -# include <sys/time.h> -# include <sys/resource.h> -#endif -#if defined (_WIN32) -# include <windows.h> -# undef min -# undef max -#endif -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -double -G77_etime_0 (real tarray[2]) -{ -#if defined (_WIN32) - static int win32_platform = -1; - double usertime, systime; - - if (win32_platform == -1) - { - OSVERSIONINFO osv; - osv.dwOSVersionInfoSize = sizeof (osv); - GetVersionEx (&osv); - win32_platform = osv.dwPlatformId; - } - - /* non-NT platforms don't have a clue as to how long a process has - been running, so simply return the uptime. Bad judgement call? */ - if (win32_platform != VER_PLATFORM_WIN32_NT) - { - static unsigned long long clock_freq; - static unsigned long long old_count; - unsigned long long count; - LARGE_INTEGER counter_val; - - if (clock_freq == 0) - { - LARGE_INTEGER freq; - if (!QueryPerformanceFrequency (&freq)) - { - errno = ENOSYS; - return 0.0; - } - else - { - clock_freq = ((unsigned long long) freq.HighPart << 32) - + ((unsigned) freq.LowPart); - if (!QueryPerformanceCounter (&counter_val)) - return -1.0; - old_count = ((unsigned long long) counter_val.HighPart << 32) - + (unsigned) counter_val.LowPart; - } - } - - if (!QueryPerformanceCounter (&counter_val)) - return -1.0; - - count = ((unsigned long long) counter_val.HighPart << 32) - + (unsigned) counter_val.LowPart; - tarray[0] = usertime = (double) (count - old_count) / clock_freq; - tarray[1] = systime = 0.0; - } - else - { - FILETIME creation_time, exit_time, kernel_time, user_time; - unsigned long long utime, stime; - - GetProcessTimes (GetCurrentProcess (), &creation_time, &exit_time, - &kernel_time, &user_time); - utime = ((unsigned long long) user_time.dwHighDateTime << 32) - + (unsigned) user_time.dwLowDateTime; - stime = ((unsigned long long) kernel_time.dwHighDateTime << 32) - + (unsigned) kernel_time.dwLowDateTime; - - tarray[0] = usertime = utime / 1.0e7; - tarray[1] = systime = stime / 1.0e7; - } - return usertime + systime; - -#elif defined (HAVE_GETRUSAGE) || defined (HAVE_TIMES) - /* The getrusage version is only the default for convenience. */ -#ifdef HAVE_GETRUSAGE - struct rusage rbuff; - - if (getrusage (RUSAGE_SELF, &rbuff) != 0) - abort (); - tarray[0] = ((float) (rbuff.ru_utime).tv_sec + - (float) (rbuff.ru_utime).tv_usec / 1000000.0); - tarray[1] = ((float) (rbuff.ru_stime).tv_sec + - (float) (rbuff.ru_stime).tv_usec / 1000000.0); -#else /* HAVE_GETRUSAGE */ - /* For dtime, etime we store the clock tick parameter (clk_tck) the - first time either of them is invoked rather than each time. This - approach probably speeds up each invocation by avoiding a system - call each time, but means that the overhead of the first call is - different to all others. */ - static long clk_tck = 0; - struct tms buffer; - -/* NeXTStep seems to define _SC_CLK_TCK but not to have sysconf; - fixme: does using _POSIX_VERSION help? */ -# if defined _SC_CLK_TCK && defined _POSIX_VERSION - if (!clk_tck) - clk_tck = sysconf (_SC_CLK_TCK); -# elif defined CLOCKS_PER_SECOND - if (!clk_tck) - clk_tck = CLOCKS_PER_SECOND; -# elif defined CLK_TCK - if (!clk_tck) - clk_tck = CLK_TCK; -# elif defined HZ - if (!clk_tck) - clk_tck = HZ; -# elif defined HAVE_GETRUSAGE -# else -#error Dont know clock tick length -# endif - if (times (&buffer) == (clock_t) - 1) - return -1.0; - tarray[0] = (float) buffer.tms_utime / (float) clk_tck; - tarray[1] = (float) buffer.tms_stime / (float) clk_tck; -#endif /* HAVE_GETRUSAGE */ - return (tarray[0] + tarray[1]); -#else /* ! HAVE_GETRUSAGE && ! HAVE_TIMES */ - errno = ENOSYS; - return 0.0; -#endif /* ! HAVE_GETRUSAGE && ! HAVE_TIMES */ -} diff --git a/gnu/lib/libf2c/libU77/fdate_.c b/gnu/lib/libf2c/libU77/fdate_.c deleted file mode 100644 index d710a5cb3be..00000000000 --- a/gnu/lib/libf2c/libU77/fdate_.c +++ /dev/null @@ -1,55 +0,0 @@ -/* Copyright (C) 1995, 1996, 2001 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#include <sys/types.h> -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif - -#include "f2c.h" - -/* NB. this implementation is for a character*24 function. There's - also a subroutine version. Of course, the calling convention is - essentially the same for both. */ - -/* Character *24 */ void -G77_fdate_0 (char *ret_val, ftnlen ret_val_len) -{ - int s_copy (); - time_t tloc; - tloc = time (NULL); - /* Allow a length other than 24 for compatibility with what other - systems do, despite it being documented as 24. */ - s_copy (ret_val, ctime ((time_t *) & tloc), ret_val_len, 24); -} diff --git a/gnu/lib/libf2c/libU77/fgetc_.c b/gnu/lib/libf2c/libU77/fgetc_.c deleted file mode 100644 index ec94829a6a1..00000000000 --- a/gnu/lib/libf2c/libU77/fgetc_.c +++ /dev/null @@ -1,63 +0,0 @@ -/* Copyright (C) 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#include "f2c.h" -#include "fio.h" - -integer -G77_fgetc_0 (const integer * lunit, char *c, ftnlen Lc) -{ - int err; - FILE *f = f__units[*lunit].ufd; - - if (*lunit >= MXUNIT || *lunit < 0) - return 101; /* bad unit error */ - err = getc (f); - if (err == EOF) - { - if (feof (f)) - return -1; - else - return ferror (f); - } - else - { - if (Lc == 0) - return 0; - - c[0] = err; - while (--Lc) - *++c = ' '; - return 0; - } -} - -integer -G77_fget_0 (char *c, const ftnlen Lc) -{ - integer five = 5; - - return G77_fgetc_0 (&five, c, Lc); -} diff --git a/gnu/lib/libf2c/libU77/flush1_.c b/gnu/lib/libf2c/libU77/flush1_.c deleted file mode 100644 index 7327593be8f..00000000000 --- a/gnu/lib/libf2c/libU77/flush1_.c +++ /dev/null @@ -1,40 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#include "f2c.h" -#include "fio.h" - -/* This flushes a single unit, c.f. libI77 version. */ - -extern integer G77_fnum_0 (integer *); - -/* Subroutine */ int -G77_flush1_0 (const integer * lunit) -{ - if (*lunit >= MXUNIT || *lunit < 0) - err (1, 101, "flush"); - /* f__units is a table of descriptions for the unit numbers (defined - in io.h) with file descriptors rather than streams */ - if (f__units[*lunit].ufd != NULL && f__units[*lunit].uwrt) - fflush (f__units[*lunit].ufd); - return 0; -} diff --git a/gnu/lib/libf2c/libU77/fnum_.c b/gnu/lib/libf2c/libU77/fnum_.c deleted file mode 100644 index daf8f3dc080..00000000000 --- a/gnu/lib/libf2c/libU77/fnum_.c +++ /dev/null @@ -1,34 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include "f2c.h" -#include "fio.h" - -integer -G77_fnum_0 (integer * lunit) -{ - if (*lunit >= MXUNIT || *lunit < 0) - err (1, 101, "fnum"); - /* f__units is a table of descriptions for the unit numbers (defined - in io.h). Use file descriptor (ufd) and fileno rather than udev - field since udev is unix specific */ - return fileno (f__units[*lunit].ufd); -} diff --git a/gnu/lib/libf2c/libU77/fputc_.c b/gnu/lib/libf2c/libU77/fputc_.c deleted file mode 100644 index 7e45dd4140c..00000000000 --- a/gnu/lib/libf2c/libU77/fputc_.c +++ /dev/null @@ -1,56 +0,0 @@ -/* Copyright (C) 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#include "f2c.h" -#include "fio.h" - -integer -G77_fputc_0 (const integer * lunit, const char *c, - const ftnlen Lc __attribute__ ((__unused__))) -{ - int err; - FILE *f = f__units[*lunit].ufd; - - if (*lunit >= MXUNIT || *lunit < 0) - return 101; /* bad unit error */ - err = putc (c[0], f); - if (err == EOF) - { - if (feof (f)) - return -1; - else - return ferror (f); - } - else - return 0; -} - -integer -G77_fput_0 (const char *c, const ftnlen Lc) -{ - integer six = 6; - - return G77_fputc_0 (&six, c, Lc); -} diff --git a/gnu/lib/libf2c/libU77/fstat_.c b/gnu/lib/libf2c/libU77/fstat_.c deleted file mode 100644 index e978c6adb2e..00000000000 --- a/gnu/lib/libf2c/libU77/fstat_.c +++ /dev/null @@ -1,64 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include "f2c.h" -#include <sys/types.h> -#include <sys/stat.h> - -extern integer G77_fnum_0 (const integer *); - -integer -G77_fstat_0 (const integer * lunit, integer statb[13]) -{ - int err; - struct stat buf; - - err = fstat (G77_fnum_0 (lunit), &buf); - statb[0] = buf.st_dev; - statb[1] = buf.st_ino; - statb[2] = buf.st_mode; - statb[3] = buf.st_nlink; - statb[4] = buf.st_uid; - statb[5] = buf.st_gid; -#if HAVE_ST_RDEV - statb[6] = buf.st_rdev; /* not posix */ -#else - statb[6] = 0; -#endif - statb[7] = buf.st_size; - statb[8] = buf.st_atime; - statb[9] = buf.st_mtime; - statb[10] = buf.st_ctime; -#if HAVE_ST_BLKSIZE - statb[11] = buf.st_blksize; /* not posix */ -#else - statb[11] = -1; -#endif -#if HAVE_ST_BLOCKS - statb[12] = buf.st_blocks; /* not posix */ -#else - statb[12] = -1; -#endif - return err; -} diff --git a/gnu/lib/libf2c/libU77/gerror_.c b/gnu/lib/libf2c/libU77/gerror_.c deleted file mode 100644 index 252440dc85b..00000000000 --- a/gnu/lib/libf2c/libU77/gerror_.c +++ /dev/null @@ -1,44 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <errno.h> -#include <stddef.h> -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif -#include "f2c.h" - -#ifndef HAVE_STRERROR -extern char *sys_errlist[]; -# define strerror(i) (sys_errlist[i]) -#endif -extern void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb); -/* Subroutine */ int -G77_gerror_0 (char *str, ftnlen Lstr) -{ - char *s; - - s = strerror (errno); - s_copy (str, s, Lstr, strlen (s)); - return 0; -} diff --git a/gnu/lib/libf2c/libU77/getcwd_.c b/gnu/lib/libf2c/libU77/getcwd_.c deleted file mode 100644 index 75277af0f74..00000000000 --- a/gnu/lib/libf2c/libU77/getcwd_.c +++ /dev/null @@ -1,88 +0,0 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <errno.h> -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif -#include <stdio.h> /* for NULL */ -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -#if HAVE_GETCWD - -#ifdef HAVE_UNISTD_H -# include <unistd.h> -#else -extern char *getcwd (); -#endif - -extern void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb); -integer -G77_getcwd_0 (char *str, const ftnlen Lstr) -{ - int i; - char *ret; - - ret = getcwd (str, Lstr); - if (ret == NULL) - return errno; - for (i = strlen (str); i < Lstr; i++) - str[i] = ' '; - return 0; -} - -#elif HAVE_GETWD /* HAVE_GETCWD */ - -/* getwd usage taken from SunOS4 man */ - -# include <sys/param.h> -extern char *getwd (); -extern void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb); -integer -G77_getcwd_0 (char *str, const ftnlen Lstr) -{ - char pathname[MAXPATHLEN]; - size_t l; - - if (getwd (pathname) == NULL) - { - return errno; - } - else - { - s_copy (str, pathname, Lstr, strlen (str)); - return 0; - } -} - -#else /* !HAVE_GETWD && !HAVE_GETCWD */ - -extern void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb); -integer -G77_getcwd_0 (char *str, const ftnlen Lstr) -{ - return errno = ENOSYS; -} - -#endif diff --git a/gnu/lib/libf2c/libU77/getgid_.c b/gnu/lib/libf2c/libU77/getgid_.c deleted file mode 100644 index 7dcbdf80b57..00000000000 --- a/gnu/lib/libf2c/libU77/getgid_.c +++ /dev/null @@ -1,38 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -#include <unistd.h> -#endif -#include <sys/types.h> -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -integer -G77_getgid_0 (void) -{ -#if defined (HAVE_GETGID) - return getgid (); -#else - errno = ENOSYS; - return -1; -#endif -} diff --git a/gnu/lib/libf2c/libU77/getlog_.c b/gnu/lib/libf2c/libU77/getlog_.c deleted file mode 100644 index 94c5f416067..00000000000 --- a/gnu/lib/libf2c/libU77/getlog_.c +++ /dev/null @@ -1,69 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <sys/types.h> -#if HAVE_STDLIB_H -# include <stdlib.h> -#else -# include <stdio.h> -#endif -#include <stdio.h> -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -/* getlogin not in svr1-3 */ - -/* SGI also has character*(*) function getlog() */ - -extern void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb); -/* Subroutine */ int -G77_getlog_0 (char *str, const ftnlen Lstr) -{ - size_t i; - char *p; - int status; - -#if defined (HAVE_GETLOGIN) - p = getlogin (); - if (p != NULL) - { - i = strlen (p); - s_copy (str, p, Lstr, i); - } - else - { - s_copy (str, " ", Lstr, 1); - } - status = 0; -#else - errno = ENOSYS; - status = -1; -#endif - return status; -} diff --git a/gnu/lib/libf2c/libU77/getpid_.c b/gnu/lib/libf2c/libU77/getpid_.c deleted file mode 100644 index 6f1d8d7eede..00000000000 --- a/gnu/lib/libf2c/libU77/getpid_.c +++ /dev/null @@ -1,32 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -#include <unistd.h> -#endif -#include <sys/types.h> -#include "f2c.h" - -integer -G77_getpid_0 (void) -{ - return getpid (); -} diff --git a/gnu/lib/libf2c/libU77/getuid_.c b/gnu/lib/libf2c/libU77/getuid_.c deleted file mode 100644 index d88b8e2cd9a..00000000000 --- a/gnu/lib/libf2c/libU77/getuid_.c +++ /dev/null @@ -1,38 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -#include <unistd.h> -#endif -#include <sys/types.h> -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -integer -G77_getuid_0 (void) -{ -#if defined (HAVE_GETUID) - return getuid (); -#else - errno = ENOSYS; - return -1; -#endif -} diff --git a/gnu/lib/libf2c/libU77/gmtime_.c b/gnu/lib/libf2c/libU77/gmtime_.c deleted file mode 100644 index 9de3c5a8de5..00000000000 --- a/gnu/lib/libf2c/libU77/gmtime_.c +++ /dev/null @@ -1,52 +0,0 @@ -/* Copyright (C) 1995, 2001 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <sys/types.h> -/* fixme: do we need to use TM_IN_SYS_TIME? */ -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#include "f2c.h" - -/* Subroutine */ int -G77_gmtime_0 (const integer * xstime, integer tarray[9]) -{ - struct tm *lt; - time_t stime = *xstime; - lt = gmtime (&stime); - tarray[0] = lt->tm_sec; - tarray[1] = lt->tm_min; - tarray[2] = lt->tm_hour; - tarray[3] = lt->tm_mday; - tarray[4] = lt->tm_mon; - tarray[5] = lt->tm_year; - tarray[6] = lt->tm_wday; - tarray[7] = lt->tm_yday; - tarray[8] = lt->tm_isdst; - return 0; -} diff --git a/gnu/lib/libf2c/libU77/hostnm_.c b/gnu/lib/libf2c/libU77/hostnm_.c deleted file mode 100644 index 7f511f422bb..00000000000 --- a/gnu/lib/libf2c/libU77/hostnm_.c +++ /dev/null @@ -1,51 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -integer -G77_hostnm_0 (char *name, ftnlen Lname) -{ - int ret, i; - -#if HAVE_GETHOSTNAME - ret = gethostname (name, Lname); - if (ret == 0) - { - /* Pad with blanks (assuming gethostname will make an error - return if it can't fit in the null). */ - for (i = strlen (name); i < Lname; i++) - name[i] = ' '; - } - return ret; -#else - return errno = ENOSYS; -#endif -} diff --git a/gnu/lib/libf2c/libU77/idate_.c b/gnu/lib/libf2c/libU77/idate_.c deleted file mode 100644 index f2bea12e59d..00000000000 --- a/gnu/lib/libf2c/libU77/idate_.c +++ /dev/null @@ -1,54 +0,0 @@ -/* Copyright (C) 1995, 1996, 2001 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#include <sys/types.h> -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#include "f2c.h" - -/* VMS and Irix versions (at least) differ from libU77 elsewhere */ - -/* libU77 one: */ - -/* Subroutine */ int -G77_idate_0 (int iarray[3]) -{ - struct tm *lt; - time_t tim; - tim = time (NULL); - lt = localtime (&tim); - iarray[0] = lt->tm_mday; - iarray[1] = lt->tm_mon + 1; /* in range 1-12 in SunOS (experimentally) */ - /* The `+1900' is consistent with SunOS and Irix, but they don't say - it's added. I think I've seen a system where tm_year was since - 1970, but can't now verify that, so assume the ANSI definition. */ - iarray[2] = lt->tm_year + 1900; - return 0; -} diff --git a/gnu/lib/libf2c/libU77/ierrno_.c b/gnu/lib/libf2c/libU77/ierrno_.c deleted file mode 100644 index 0dc76b0262f..00000000000 --- a/gnu/lib/libf2c/libU77/ierrno_.c +++ /dev/null @@ -1,29 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <errno.h> -#include "f2c.h" - -integer -G77_ierrno_0 (void) -{ - return errno; -} diff --git a/gnu/lib/libf2c/libU77/irand_.c b/gnu/lib/libf2c/libU77/irand_.c deleted file mode 100644 index a9054311515..00000000000 --- a/gnu/lib/libf2c/libU77/irand_.c +++ /dev/null @@ -1,48 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#endif -#include "f2c.h" - -/* We could presumably do much better than the traditional libc - version, though at least the glibc one is reasonable, it seems. - For the sake of the innocent, I'm not sure we should really do - this... */ - -/* Note this is per SunOS -- other s may have no arg. */ - -integer -G77_irand_0 (integer * flag) -{ - switch (*flag) - { - case 0: - break; - case 1: - srand (0); /* Arbitrary choice of initialiser. */ - break; - default: - srand (*flag); - } - return rand (); -} diff --git a/gnu/lib/libf2c/libU77/isatty_.c b/gnu/lib/libf2c/libU77/isatty_.c deleted file mode 100644 index fa2f56dafab..00000000000 --- a/gnu/lib/libf2c/libU77/isatty_.c +++ /dev/null @@ -1,38 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#include "f2c.h" -#include "fio.h" - -extern integer G77_fnum_0 (integer *); - -logical -G77_isatty_0 (integer * lunit) -{ - if (*lunit >= MXUNIT || *lunit < 0) - err (1, 101, "isatty"); - /* f__units is a table of descriptions for the unit numbers (defined - in io.h) with file descriptors rather than streams */ - return (isatty (G77_fnum_0 (lunit)) ? TRUE_ : FALSE_); -} diff --git a/gnu/lib/libf2c/libU77/itime_.c b/gnu/lib/libf2c/libU77/itime_.c deleted file mode 100644 index 12a7864fd97..00000000000 --- a/gnu/lib/libf2c/libU77/itime_.c +++ /dev/null @@ -1,48 +0,0 @@ -/* Copyright (C) 1995, 2001 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#include <sys/types.h> -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#include "f2c.h" - -/* Subroutine */ int -G77_itime_0 (integer tarray[3]) -{ - struct tm *lt; - time_t tim; - - tim = time (NULL); - lt = localtime (&tim); - tarray[0] = lt->tm_hour; - tarray[1] = lt->tm_min; - tarray[2] = lt->tm_sec; - return 0; -} diff --git a/gnu/lib/libf2c/libU77/kill_.c b/gnu/lib/libf2c/libU77/kill_.c deleted file mode 100644 index 41eab152cbf..00000000000 --- a/gnu/lib/libf2c/libU77/kill_.c +++ /dev/null @@ -1,38 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <sys/types.h> -#include <signal.h> -#include <errno.h> -#include "f2c.h" - -/* fixme: bsd, svr1-3 use int, not pid_t */ - -integer -G77_kill_0 (const integer * pid, const integer * signum) -{ -#if defined (HAVE_KILL) - return kill ((pid_t) * pid, *signum) ? errno : 0; -#else - errno = ENOSYS; - return -1; -#endif -} diff --git a/gnu/lib/libf2c/libU77/link_.c b/gnu/lib/libf2c/libU77/link_.c deleted file mode 100644 index f3070e4b6e9..00000000000 --- a/gnu/lib/libf2c/libU77/link_.c +++ /dev/null @@ -1,63 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#else -# include <stdio.h> -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#include <errno.h> -#if HAVE_SYS_PARAM_H -# include <sys/param.h> -#endif -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -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) -{ -#if defined (HAVE_LINK) - char *buff1, *buff2; - int i; - - buff1 = malloc (Lpath1 + 1); - if (buff1 == NULL) - return -1; - g_char (path1, Lpath1, buff1); - buff2 = malloc (Lpath2 + 1); - if (buff2 == NULL) - return -1; - g_char (path2, Lpath2, buff2); - i = link (buff1, buff2); - free (buff1); - free (buff2); - return i ? errno : 0; -#else /* ! HAVE_LINK */ - errno = ENOSYS; - return -1; -#endif -} diff --git a/gnu/lib/libf2c/libU77/lnblnk_.c b/gnu/lib/libf2c/libU77/lnblnk_.c deleted file mode 100644 index f21ac42398b..00000000000 --- a/gnu/lib/libf2c/libU77/lnblnk_.c +++ /dev/null @@ -1,38 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - - -/* via f2c from Fortran */ - -#include "f2c.h" - -integer -G77_lnblnk_0 (char *str, ftnlen str_len) -{ - integer ret_val; - integer i_len (); - - for (ret_val = str_len; ret_val >= 1; --ret_val) - { - if (*(unsigned char *) &str[ret_val - 1] != ' ') - { - return ret_val; - } - } - return ret_val; -} diff --git a/gnu/lib/libf2c/libU77/lstat_.c b/gnu/lib/libf2c/libU77/lstat_.c deleted file mode 100644 index 3914cc64ff4..00000000000 --- a/gnu/lib/libf2c/libU77/lstat_.c +++ /dev/null @@ -1,78 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#if HAVE_STDLIB_H -# include <stdlib.h> -#endif -#include <sys/types.h> -#include <sys/stat.h> -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -/* lstat isn't posix */ - -void g_char (const char *a, ftnlen alen, char *b); - -integer -G77_lstat_0 (const char *name, integer statb[13], const ftnlen Lname) -{ -#if HAVE_LSTAT - char *buff; - int err; - struct stat buf; - - buff = malloc (Lname + 1); - if (buff == NULL) - return -1; - g_char (name, Lname, buff); - err = lstat (buff, &buf); - free (buff); - statb[0] = buf.st_dev; - statb[1] = buf.st_ino; - statb[2] = buf.st_mode; - statb[3] = buf.st_nlink; - statb[4] = buf.st_uid; - statb[5] = buf.st_gid; -#if HAVE_ST_RDEV - statb[6] = buf.st_rdev; -#else - statb[6] = 0; -#endif - statb[7] = buf.st_size; - statb[8] = buf.st_atime; - statb[9] = buf.st_mtime; - statb[10] = buf.st_ctime; -#if HAVE_ST_BLKSIZE - statb[11] = buf.st_blksize; -#else - statb[11] = -1; -#endif -#if HAVE_ST_BLOCKS - statb[12] = buf.st_blocks; -#else - statb[12] = -1; -#endif - return err; -#else /* !HAVE_LSTAT */ - return errno = ENOSYS; -#endif /* !HAVE_LSTAT */ -} diff --git a/gnu/lib/libf2c/libU77/ltime_.c b/gnu/lib/libf2c/libU77/ltime_.c deleted file mode 100644 index 008df1dd08d..00000000000 --- a/gnu/lib/libf2c/libU77/ltime_.c +++ /dev/null @@ -1,52 +0,0 @@ -/* Copyright (C) 1995, 2001 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <sys/types.h> -/* fixme: do we need to use TM_IN_SYS_TIME? */ -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#include "f2c.h" - -/* Subroutine */ int -G77_ltime_0 (const integer * xstime, integer tarray[9]) -{ - struct tm *lt; - time_t stime = *xstime; - lt = localtime (&stime); - tarray[0] = lt->tm_sec; - tarray[1] = lt->tm_min; - tarray[2] = lt->tm_hour; - tarray[3] = lt->tm_mday; - tarray[4] = lt->tm_mon; - tarray[5] = lt->tm_year; - tarray[6] = lt->tm_wday; - tarray[7] = lt->tm_yday; - tarray[8] = lt->tm_isdst; - return 0; -} diff --git a/gnu/lib/libf2c/libU77/mclock_.c b/gnu/lib/libf2c/libU77/mclock_.c deleted file mode 100644 index 686c4906751..00000000000 --- a/gnu/lib/libf2c/libU77/mclock_.c +++ /dev/null @@ -1,44 +0,0 @@ -/* Copyright (C) 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#include "f2c.h" - -/* Reported by wd42ej@sgi83.wwb.noaa.gov (Russ Jones AUTO-Sun3) on AIX. */ - -longint -G77_mclock_0 (void) -{ -#if HAVE_CLOCK - return clock (); -#else - return -1; -#endif -} diff --git a/gnu/lib/libf2c/libU77/perror_.c b/gnu/lib/libf2c/libU77/perror_.c deleted file mode 100644 index 6fe96aa6fc2..00000000000 --- a/gnu/lib/libf2c/libU77/perror_.c +++ /dev/null @@ -1,44 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#include <errno.h> -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif -#include "f2c.h" - -/* Subroutine */ int -G77_perror_0 (const char *str, const ftnlen Lstr) -{ - char buff[1000]; - char *bp, *blast; - - /* same technique as `system' -- what's wrong with malloc? */ - blast = buff + (Lstr < 1000 ? Lstr : 1000); - for (bp = buff; bp < blast && *str != '\0';) - *bp++ = *str++; - *bp = '\0'; - perror (buff); - return 0; -} diff --git a/gnu/lib/libf2c/libU77/rand_.c b/gnu/lib/libf2c/libU77/rand_.c deleted file mode 100644 index 1592dc5ab38..00000000000 --- a/gnu/lib/libf2c/libU77/rand_.c +++ /dev/null @@ -1,51 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#endif -#include "f2c.h" -#ifndef RAND_MAX -# define RAND_MAX 2147483647 /* from SunOS */ -#endif - -/* We could presumably do much better than the traditional libc - version, though at least the glibc one is reasonable, it seems. - For the sake of the innocent, I'm not sure we should really do - this... */ - -/* Note this is per SunOS -- other s may have no arg. */ - -double -G77_rand_0 (integer * flag) -{ - switch (*flag) - { - case 0: - break; - case 1: - srand (0); /* Arbitrary choice of initialiser. */ - break; - default: - srand (*flag); - } - return (float) rand () / RAND_MAX; -} diff --git a/gnu/lib/libf2c/libU77/rename_.c b/gnu/lib/libf2c/libU77/rename_.c deleted file mode 100644 index 59759bcfb54..00000000000 --- a/gnu/lib/libf2c/libU77/rename_.c +++ /dev/null @@ -1,53 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#endif -#include <stdio.h> -#include <errno.h> -#include "f2c.h" - -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) -{ - char *buff1, *buff2; - int i; - - buff1 = malloc (Lpath1 + 1); - if (buff1 == NULL) - return -1; - g_char (path1, Lpath1, buff1); - buff2 = malloc (Lpath2 + 1); - if (buff2 == NULL) - return -1; - g_char (path2, Lpath2, buff2); - i = rename (buff1, buff2); - free (buff1); - free (buff2); - return i ? errno : 0; -} diff --git a/gnu/lib/libf2c/libU77/secnds_.c b/gnu/lib/libf2c/libU77/secnds_.c deleted file mode 100644 index 1d661a9ad6b..00000000000 --- a/gnu/lib/libf2c/libU77/secnds_.c +++ /dev/null @@ -1,51 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#include <sys/types.h> - -#include "f2c.h" - -/* This is a VMS intrinsic. */ - -double -G77_secnds_0 (real * r) -{ - struct tm *lt; - time_t clock; - float f; - - clock = time (NULL); - lt = localtime (&clock); - f = (3600.0 * ((real) lt->tm_hour) + 60.0 * ((real) lt->tm_min) + - (real) lt->tm_sec - *r); - return f; -} diff --git a/gnu/lib/libf2c/libU77/second_.c b/gnu/lib/libf2c/libU77/second_.c deleted file mode 100644 index b40474a49a7..00000000000 --- a/gnu/lib/libf2c/libU77/second_.c +++ /dev/null @@ -1,28 +0,0 @@ -/* Copyright (C) 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#include "f2c.h" - -double -G77_second_0 () -{ - extern double G77_etime_0 (); - real tarray[2]; - - return G77_etime_0 (tarray); -} diff --git a/gnu/lib/libf2c/libU77/sleep_.c b/gnu/lib/libf2c/libU77/sleep_.c deleted file mode 100644 index fcf112a1c6a..00000000000 --- a/gnu/lib/libf2c/libU77/sleep_.c +++ /dev/null @@ -1,33 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#include "f2c.h" - -/* Subroutine */ -int -G77_sleep_0 (const integer * seconds) -{ - (void) sleep ((unsigned int) *seconds); - return 0; -} diff --git a/gnu/lib/libf2c/libU77/srand_.c b/gnu/lib/libf2c/libU77/srand_.c deleted file mode 100644 index 822d980dd0f..00000000000 --- a/gnu/lib/libf2c/libU77/srand_.c +++ /dev/null @@ -1,33 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if STDC_HEADERS -# include <stdlib.h> -#endif -#include "f2c.h" - -/* Subroutine */ -int -G77_srand_0 (const integer * seed) -{ - srand ((unsigned int) *seed); - return 0; -} diff --git a/gnu/lib/libf2c/libU77/stamp-h.in b/gnu/lib/libf2c/libU77/stamp-h.in deleted file mode 100644 index 9788f70238c..00000000000 --- a/gnu/lib/libf2c/libU77/stamp-h.in +++ /dev/null @@ -1 +0,0 @@ -timestamp diff --git a/gnu/lib/libf2c/libU77/stat_.c b/gnu/lib/libf2c/libU77/stat_.c deleted file mode 100644 index 65a63b7c9f5..00000000000 --- a/gnu/lib/libf2c/libU77/stat_.c +++ /dev/null @@ -1,71 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#if HAVE_STDLIB_H -# include <stdlib.h> -#endif -#include <sys/types.h> -#include <sys/stat.h> -#include "f2c.h" - -void g_char (const char *a, ftnlen alen, char *b); - -integer -G77_stat_0 (const char *name, integer statb[13], const ftnlen Lname) -{ - char *buff; - int err; - struct stat buf; - - buff = malloc (Lname + 1); - if (buff == NULL) - return -1; - g_char (name, Lname, buff); - err = stat (buff, &buf); - free (buff); - statb[0] = buf.st_dev; - statb[1] = buf.st_ino; - statb[2] = buf.st_mode; - statb[3] = buf.st_nlink; - statb[4] = buf.st_uid; - statb[5] = buf.st_gid; -#if HAVE_ST_RDEV - statb[6] = buf.st_rdev; /* not posix */ -#else - statb[6] = 0; -#endif - statb[7] = buf.st_size; - statb[8] = buf.st_atime; - statb[9] = buf.st_mtime; - statb[10] = buf.st_ctime; -#if HAVE_ST_BLKSIZE - statb[11] = buf.st_blksize; /* not posix */ -#else - statb[11] = -1; -#endif -#if HAVE_ST_BLOCKS - statb[12] = buf.st_blocks; /* not posix */ -#else - statb[12] = -1; -#endif - return err; -} diff --git a/gnu/lib/libf2c/libU77/symlnk_.c b/gnu/lib/libf2c/libU77/symlnk_.c deleted file mode 100644 index 92ec605a423..00000000000 --- a/gnu/lib/libf2c/libU77/symlnk_.c +++ /dev/null @@ -1,61 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran. - -GNU Fortran is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#else -# include <stdio.h> -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#include <errno.h> -#if HAVE_SYS_PARAM_H -# include <sys/param.h> -#endif -#include "f2c.h" - -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) -{ -#if HAVE_SYMLINK - char *buff1, *buff2; - int i; - - buff1 = (char *) malloc (Lpath1 + 1); - if (buff1 == NULL) - return -1; - g_char (path1, Lpath1, buff1); - buff2 = (char *) malloc (Lpath2 + 1); - if (buff2 == NULL) - return -1; - g_char (path2, Lpath2, buff2); - i = symlink (buff1, buff2); - free (buff1); - free (buff2); - return i ? errno : 0; -#else /* !HAVE_SYMLINK */ - return errno = ENOSYS; -#endif /* !HAVE_SYMLINK */ -} diff --git a/gnu/lib/libf2c/libU77/sys_clock_.c b/gnu/lib/libf2c/libU77/sys_clock_.c deleted file mode 100644 index ea39eead4f0..00000000000 --- a/gnu/lib/libf2c/libU77/sys_clock_.c +++ /dev/null @@ -1,79 +0,0 @@ -/* Copyright (C) 1996, 1998, 2001 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <sys/types.h> -#if HAVE_SYS_PARAM_H -# include <sys/param.h> -#endif -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#if HAVE_SYS_TIMES_H -# include <sys/times.h> -#endif -#include <limits.h> -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -int -G77_system_clock_0 (integer * count, integer * count_rate, - integer * count_max) -{ -#if defined (HAVE_TIMES) - struct tms buffer; - unsigned long cnt; - if (count_rate) - { -#ifdef _SC_CLK_TCK - *count_rate = sysconf (_SC_CLK_TCK); -#elif defined CLOCKS_PER_SECOND - *count_rate = CLOCKS_PER_SECOND; -#elif defined CLK_TCK - *count_rate = CLK_TCK; -#elif defined HZ - *count_rate = HZ; -#else -#error Dont know clock tick length -#endif - } - if (count_max) /* optional arg present? */ - *count_max = INT_MAX; /* dubious */ - cnt = times (&buffer); - if (cnt > (unsigned long) (INT_MAX)) - *count = INT_MAX; /* also dubious */ - else - *count = cnt; - return 0; -#else /* ! HAVE_TIMES */ - errno = ENOSYS; - return -1; -#endif /* ! HAVE_TIMES */ -} diff --git a/gnu/lib/libf2c/libU77/time_.c b/gnu/lib/libf2c/libU77/time_.c deleted file mode 100644 index 2eb8a413991..00000000000 --- a/gnu/lib/libf2c/libU77/time_.c +++ /dev/null @@ -1,43 +0,0 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#include "f2c.h" - -/* As well as this external function some compilers have an intrinsic - subroutine which fills a character argument (which is the VMS way) - -- caveat emptor. */ -longint -G77_time_0 (void) -{ - /* There are potential problems with the cast of the time_t here. */ - return time (NULL); -} diff --git a/gnu/lib/libf2c/libU77/ttynam_.c b/gnu/lib/libf2c/libU77/ttynam_.c deleted file mode 100644 index ffdf5bfdf9a..00000000000 --- a/gnu/lib/libf2c/libU77/ttynam_.c +++ /dev/null @@ -1,61 +0,0 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <sys/types.h> -#if STDC_HEADERS -# include <stdlib.h> -#endif -#if HAVE_UNISTD_H -# include <unistd.h> /* POSIX for ttyname */ -#endif -#include <stdio.h> -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif -#include <errno.h> /* for ENOSYS */ -#include "f2c.h" - -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) -{ -#if defined (HAVE_TTYNAME) - size_t i; - char *p; - - p = ttyname (G77_fnum_0 (lunit)); - if (p != NULL) - { - i = strlen (p); - s_copy (ret_val, p, ret_val_len, i); - } - else - { - s_copy (ret_val, " ", ret_val_len, 1); - } -#else - errno = ENOSYS; - s_copy (ret_val, " ", ret_val_len, 1); -#endif -} diff --git a/gnu/lib/libf2c/libU77/u77-test.f b/gnu/lib/libf2c/libU77/u77-test.f deleted file mode 100644 index 3c8151c533d..00000000000 --- a/gnu/lib/libf2c/libU77/u77-test.f +++ /dev/null @@ -1,415 +0,0 @@ -*** Some random stuff for testing libU77. Should be done better. It's -* hard to test things where you can't guarantee the result. Have a -* good squint at what it prints, though detected errors will cause -* starred messages. -* -* Currently not tested: -* ALARM -* CHDIR (func) -* CHMOD (func) -* FGET (func/subr) -* FGETC (func) -* FPUT (func/subr) -* FPUTC (func) -* FSTAT (subr) -* GETCWD (subr) -* HOSTNM (subr) -* IRAND -* KILL -* LINK (func) -* LSTAT (subr) -* RENAME (func/subr) -* SIGNAL (subr) -* SRAND -* STAT (subr) -* SYMLNK (func/subr) -* UMASK (func) -* UNLINK (func) -* -* NOTE! This is the libU77 version, so it should be a bit more -* "interactive" than the testsuite version, which is in -* gcc/testsuite/g77.f-torture/execute/u77-test.f. -* This version purposely exits with a "failure" status, to test -* returning of non-zero status, and it doesn't call the ABORT -* intrinsic (it substitutes an EXTERNAL stub, so the code can be -* kept nearly the same in both copies). Also, it goes ahead and -* tests the HOSTNM intrinsic. Please keep the other copy up-to-date when -* you modify this one. - - implicit none - -* external hostnm - intrinsic hostnm - integer hostnm - - integer i, j, k, ltarray (9), idat (3), count, rate, count_max, - + pid, mask - real tarray1(2), tarray2(2), r1, r2 - double precision d1 - integer(kind=2) bigi - logical issum - intrinsic getpid, getuid, getgid, ierrno, gerror, time8, - + fnum, isatty, getarg, access, unlink, fstat, iargc, - + stat, lstat, getcwd, gmtime, etime, chmod, itime, date, - + chdir, fgetc, fputc, system_clock, second, idate, secnds, - + time, ctime, fdate, ttynam, date_and_time, mclock, mclock8, - + cpu_time, dtime, ftell, abort - external lenstr, ctrlc - integer lenstr - logical l - character gerr*80, c*1 - character ctim*25, line*80, lognam*20, wd*1000, line2*80, - + ddate*8, ttime*10, zone*5, ctim2*25 - integer fstatb (13), statb (13) - integer *2 i2zero - integer values(8) - integer(kind=7) sigret - - i = time () - ctim = ctime (i) - WRITE (6,'(A/)') '1 GNU libU77 test at: ' // ctim(:lenstr (ctim)) - write (6,'(A,I3,'', '',I3)') - + ' Logical units 5 and 6 correspond (FNUM) to' - + // ' Unix i/o units ', fnum(5), fnum(6) - if (lnblnk('foo ').ne.3 .or. len_trim('foo ').ne.3) then - print *, 'LNBLNK or LEN_TRIM failed' - call abort - end if - - bigi = time8 () - - call ctime (i, ctim2) - if (ctim .ne. ctim2) then - write (6, *) '*** CALL CTIME disagrees with CTIME(): ', - + ctim2(:lenstr (ctim2)), ' vs. ', ctim(:lenstr (ctim)) - call doabort - end if - - j = time () - if (i .gt. bigi .or. bigi .gt. j) then - write (6, *) '*** TIME/TIME8/TIME sequence failures: ', - + i, bigi, j - call doabort - end if - - print *, 'Command-line arguments: ', iargc () - do i = 0, iargc () - call getarg (i, line) - print *, 'Arg ', i, ' is: ', line(:lenstr (line)) - end do - - l= isatty(6) - line2 = ttynam(6) - if (l) then - line = 'and 6 is a tty device (ISATTY) named '//line2 - else - line = 'and 6 isn''t a tty device (ISATTY)' - end if - write (6,'(1X,A)') line(:lenstr(line)) - call ttynam (6, line) - if (line .ne. line2) then - print *, '*** CALL TTYNAM disagrees with TTYNAM: ', - + line(:lenstr (line)) - call doabort - end if - -* regression test for compiler crash fixed by JCB 1998-08-04 com.c - sigret = signal(2, ctrlc) - - pid = getpid() - WRITE (6,'(A,I10)') ' Process id (GETPID): ', pid - WRITE (6,'(A,I10)') ' User id (GETUID): ', GETUID () - WRITE (6,'(A,I10)') ' Group id (GETGID): ', GETGID () - WRITE (6, *) 'If you have the `id'' program, the following call' - write (6, *) 'of SYSTEM should agree with the above:' - call flush(6) - CALL SYSTEM ('echo " " `id`') - call flush - - lognam = 'blahblahblah' - call getlog (lognam) - write (6,*) 'Login name (GETLOG): ', lognam(:lenstr (lognam)) - - wd = 'blahblahblah' - call getenv ('LOGNAME', wd) - write (6,*) 'Login name (GETENV of LOGNAME): ', wd(:lenstr (wd)) - - call umask(0, mask) - write(6,*) 'UMASK returns', mask - call umask(mask) - - ctim = fdate() - write (6,*) 'FDATE returns: ', ctim(:lenstr (ctim)) - call fdate (ctim) - write (6,*) 'CALL FDATE returns: ', ctim(:lenstr (ctim)) - - j=time() - call ltime (j, ltarray) - write (6,'(1x,a,9i4)') 'LTIME returns:', ltarray - call gmtime (j, ltarray) - write (6,'(1x,a,9i4)') 'GMTIME returns:', ltarray - - call system_clock(count) ! omitting optional args - call system_clock(count, rate, count_max) - write(6,*) 'SYSTEM_CLOCK returns: ', count, rate, count_max - - call date_and_time(ddate) ! omitting optional args - call date_and_time(ddate, ttime, zone, values) - write(6, *) 'DATE_AND_TIME returns: ', ddate, ' ', ttime, ' ', - + zone, ' ', values - - write (6,*) 'Sleeping for 1 second (SLEEP) ...' - call sleep (1) - -c consistency-check etime vs. dtime for first call - r1 = etime (tarray1) - r2 = dtime (tarray2) - if (abs (r1-r2).gt.1.0) then - write (6,*) - + 'Results of ETIME and DTIME differ by more than a second:', - + r1, r2 - call doabort - end if - if (.not. issum (r1, tarray1(1), tarray1(2))) then - write (6,*) '*** ETIME didn''t return sum of the array: ', - + r1, ' /= ', tarray1(1), '+', tarray1(2) - call doabort - end if - if (.not. issum (r2, tarray2(1), tarray2(2))) then - write (6,*) '*** DTIME didn''t return sum of the array: ', - + r2, ' /= ', tarray2(1), '+', tarray2(2) - call doabort - end if - write (6, '(A,3F10.3)') - + ' Elapsed total, user, system time (ETIME): ', - + r1, tarray1 - -c now try to get times to change enough to see in etime/dtime - write (6,*) 'Looping until clock ticks at least once...' - do i = 1,1000 - do j = 1,1000 - end do - call dtime (tarray2, r2) - if (tarray2(1) .ne. 0. .or. tarray2(2) .ne. 0.) exit - end do - call etime (tarray1, r1) - if (.not. issum (r1, tarray1(1), tarray1(2))) then - write (6,*) '*** ETIME didn''t return sum of the array: ', - + r1, ' /= ', tarray1(1), '+', tarray1(2) - call doabort - end if - if (.not. issum (r2, tarray2(1), tarray2(2))) then - write (6,*) '*** DTIME didn''t return sum of the array: ', - + r2, ' /= ', tarray2(1), '+', tarray2(2) - call doabort - end if - write (6, '(A,3F10.3)') - + ' Differences in total, user, system time (DTIME): ', - + r2, tarray2 - write (6, '(A,3F10.3)') - + ' Elapsed total, user, system time (ETIME): ', - + r1, tarray1 - write (6, *) '(Clock-tick detected after ', i, ' 1K loops.)' - - call idate (i,j,k) - call idate (idat) - write (6,*) 'IDATE (date,month,year): ',idat - print *, '... and the VXT version (month,date,year): ', i,j,k - if (i/=idat(2) .or. j/=idat(1) .or. k/=mod(idat(3),100)) then - print *, '*** VXT and U77 versions don''t agree' - call doabort - end if - - call date (ctim) - write (6,*) 'DATE (dd-mmm-yy): ', ctim(:lenstr (ctim)) - - call itime (idat) - write (6,*) 'ITIME (hour,minutes,seconds): ', idat - - call time(line(:8)) - print *, 'TIME: ', line(:8) - - write (6,*) 'SECNDS(0.0) returns: ',secnds(0.0) - - write (6,*) 'SECOND returns: ', second() - call dumdum(r1) - call second(r1) - write (6,*) 'CALL SECOND returns: ', r1 - -* compiler crash fixed by 1998-10-01 com.c change - if (rand(0).lt.0.0 .or. rand(0).gt.1.0) then - write (6,*) '*** rand(0) error' - call doabort() - end if - - i = getcwd(wd) - if (i.ne.0) then - call perror ('*** getcwd') - call doabort - else - write (6,*) 'Current directory is "'//wd(:lenstr(wd))//'"' - end if - call chdir ('.',i) - if (i.ne.0) then - write (6,*) '***CHDIR to ".": ', i - call doabort - end if - - i=hostnm(wd) - if(i.ne.0) then - call perror ('*** hostnm') - call doabort - else - write (6,*) 'Host name is ', wd(:lenstr(wd)) - end if - - i = access('/dev/null ', 'rw') - if (i.ne.0) write (6,*) '***Read/write ACCESS to /dev/null: ', i - write (6,*) 'Creating file "foo" for testing...' - open (3,file='foo',status='UNKNOWN') - rewind 3 - call fputc(3, 'c',i) - call fputc(3, 'd',j) - if (i+j.ne.0) write(6,*) '***FPUTC: ', i -C why is it necessary to reopen? (who wrote this?) -C the better to test with, my dear! (-- burley) - close(3) - open(3,file='foo',status='old') - call fseek(3,0,0,*10) - go to 20 - 10 write(6,*) '***FSEEK failed' - call doabort - 20 call fgetc(3, c,i) - if (i.ne.0) then - write(6,*) '***FGETC: ', i - call doabort - end if - if (c.ne.'c') then - write(6,*) '***FGETC read the wrong thing: ', ichar(c) - call doabort - end if - i= ftell(3) - if (i.ne.1) then - write(6,*) '***FTELL offset: ', i - call doabort - end if - call ftell(3, i) - if (i.ne.1) then - write(6,*) '***CALL FTELL offset: ', i - call doabort - end if - call chmod ('foo', 'a+w',i) - if (i.ne.0) then - write (6,*) '***CHMOD of "foo": ', i - call doabort - end if - i = fstat (3, fstatb) - if (i.ne.0) then - write (6,*) '***FSTAT of "foo": ', i - call doabort - end if - i = stat ('foo', statb) - if (i.ne.0) then - write (6,*) '***STAT of "foo": ', i - call doabort - end if - write (6,*) ' with stat array ', statb - if (statb(6) .ne. getgid ()) then - write (6,*) 'Note: FSTAT gid wrong (happens on some systems).' - end if - if (statb(5) .ne. getuid () .or. statb(4) .ne. 1) then - write (6,*) '*** FSTAT uid or nlink is wrong' - call doabort - end if - do i=1,13 - if (fstatb (i) .ne. statb (i)) then - write (6,*) '*** FSTAT and STAT don''t agree on '// ' - + array element ', i, ' value ', fstatb (i), statb (i) - call doabort - end if - end do - i = lstat ('foo', fstatb) - do i=1,13 - if (fstatb (i) .ne. statb (i)) then - write (6,*) '*** LSTAT and STAT don''t agree on '// - + 'array element ', i, ' value ', fstatb (i), statb (i) - call doabort - end if - end do - -C in case it exists already: - call unlink ('bar',i) - call link ('foo ', 'bar ',i) - if (i.ne.0) then - write (6,*) '***LINK "foo" to "bar" failed: ', i - call doabort - end if - call unlink ('foo',i) - if (i.ne.0) then - write (6,*) '***UNLINK "foo" failed: ', i - call doabort - end if - call unlink ('foo',i) - if (i.eq.0) then - write (6,*) '***UNLINK "foo" again: ', i - call doabort - end if - - call gerror (gerr) - i = ierrno() - write (6,'(A,I3,A/1X,A)') ' The current error number is: ', - + i, - + ' and the corresponding message is:', gerr(:lenstr(gerr)) - write (6,*) 'This is sent to stderr prefixed by the program name' - call getarg (0, line) - call perror (line (:lenstr (line))) - call unlink ('bar') - - print *, 'MCLOCK returns ', mclock () - print *, 'MCLOCK8 returns ', mclock8 () - - call cpu_time (d1) - print *, 'CPU_TIME returns ', d1 - - WRITE (6,*) 'You should see exit status 1' - CALL EXIT(1) - 99 END - -* Return length of STR not including trailing blanks, but always > 0. - integer function lenstr (str) - character*(*) str - if (str.eq.' ') then - lenstr=1 - else - lenstr = lnblnk (str) - end if - end - -* Just make sure SECOND() doesn't "magically" work the second time. - subroutine dumdum(r) - r = 3.14159 - end - -* Test whether sum is approximately left+right. - logical function issum (sum, left, right) - implicit none - real sum, left, right - real mysum, delta, width - mysum = left + right - delta = abs (mysum - sum) - width = abs (left) + abs (right) - issum = (delta .le. .0001 * width) - end - -* Signal handler - subroutine ctrlc - print *, 'Got ^C' - call doabort - end - -* A problem has been noticed, so maybe abort the test. - subroutine doabort -* For this version, print out all problems noticed. -* intrinsic abort -* call abort - end diff --git a/gnu/lib/libf2c/libU77/umask_.c b/gnu/lib/libf2c/libU77/umask_.c deleted file mode 100644 index 5c4546a83ac..00000000000 --- a/gnu/lib/libf2c/libU77/umask_.c +++ /dev/null @@ -1,30 +0,0 @@ -/* Copyright (C) 1996 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <sys/types.h> -#include <sys/stat.h> -#include "f2c.h" - -integer -G77_umask_0 (integer * mask) -{ - return umask ((mode_t) * mask); -} diff --git a/gnu/lib/libf2c/libU77/unlink_.c b/gnu/lib/libf2c/libU77/unlink_.c deleted file mode 100644 index 08222d92749..00000000000 --- a/gnu/lib/libf2c/libU77/unlink_.c +++ /dev/null @@ -1,51 +0,0 @@ -/* Copyright (C) 1995, 1997 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#if HAVE_STDLIB_H -# include <stdlib.h> -#else -# include <stdio.h> -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif -#include <errno.h> -#if HAVE_SYS_PARAM_H -# include <sys/param.h> -#endif -#include "f2c.h" - -void g_char (const char *a, ftnlen alen, char *b); - -integer -G77_unlink_0 (const char *str, const ftnlen Lstr) -{ - char *buff; - int i; - - buff = malloc (Lstr + 1); - if (buff == NULL) - return -1; - g_char (str, Lstr, buff); - i = unlink (buff); - free (buff); - return i ? errno : 0; /* SGI version returns -1 on failure. */ -} diff --git a/gnu/lib/libf2c/libU77/vxtidate_.c b/gnu/lib/libf2c/libU77/vxtidate_.c deleted file mode 100644 index 0563a9120d6..00000000000 --- a/gnu/lib/libf2c/libU77/vxtidate_.c +++ /dev/null @@ -1,65 +0,0 @@ -/* Copyright (C) 1995, 1996, 2001 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#include <sys/types.h> -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#include "f2c.h" - -/* VMS and Irix versions (at least) differ from libU77 elsewhere */ - -/* VMS style: */ - -/* Subroutine */ -int -G77_vxtidate_y2kbug_0 (integer * m, integer * d, integer * y) -{ - struct tm *lt; - time_t tim; - tim = time (NULL); - lt = localtime (&tim); - *y = lt->tm_year % 100; - *m = lt->tm_mon + 1; - *d = lt->tm_mday; - return 0; -} - -#ifdef PIC -extern const char *G77_Non_Y2K_Compliance_Message; -int -G77_vxtidate_y2kbuggy_0 (integer * m __attribute__ ((__unused__)), - integer * d __attribute__ ((__unused__)), - integer * y __attribute__ ((__unused__))) -{ - extern int G77_abort_0 (); - fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message); - G77_abort_0 (); -} -#endif diff --git a/gnu/lib/libf2c/libU77/vxttime_.c b/gnu/lib/libf2c/libU77/vxttime_.c deleted file mode 100644 index 5982748583a..00000000000 --- a/gnu/lib/libf2c/libU77/vxttime_.c +++ /dev/null @@ -1,51 +0,0 @@ -/* Copyright (C) 1995, 2001 Free Software Foundation, Inc. -This file is part of GNU Fortran libU77 library. - -This library is free software; you can redistribute it and/or modify it -under the terms of the GNU Library General Public License as published -by the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -Library General Public License for more details. - -You should have received a copy of the GNU Library General Public -License along with GNU Fortran; see the file COPYING.LIB. If -not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include <stdio.h> -#include <sys/types.h> -#if TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# include <time.h> -# endif -#endif -#if HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif -#include "f2c.h" - -/* Subroutine */ -void -G77_vxttime_0 (char chtime[8], - const ftnlen Lchtime __attribute__ ((__unused__))) -{ - time_t tim; - char *ctim; - tim = time (NULL); - ctim = ctime (&tim); - strncpy (chtime, ctim + 11, 8); -} diff --git a/gnu/lib/libf2c/ltcf-c.sh b/gnu/lib/libf2c/ltcf-c.sh deleted file mode 100644 index fac59cad878..00000000000 --- a/gnu/lib/libf2c/ltcf-c.sh +++ /dev/null @@ -1,818 +0,0 @@ -#### This script is meant to be sourced by ltconfig. - -# ltcf-c.sh - Create a C compiler specific configuration -# -# Copyright (C) 1996-2000, 2001 Free Software Foundation, Inc. -# Originally by Gordon Matzigkeit <gord@gnu.ai.mit.edu>, 1996 -# -# This file is free software; you can redistribute it and/or modify it -# under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. -# -# As a special exception to the GNU General Public License, if you -# distribute this file as part of a program that contains a -# configuration script generated by Autoconf, you may include it under -# the same distribution terms that you use for the rest of that program. - - -# Source file extension for C test sources. -ac_ext=c - -# Object file extension for compiled C test sources. -objext=o - -# Code to be used in simple compile tests -lt_simple_compile_test_code="int some_variable = 0;" - -# Code to be used in simple link tests -lt_simple_link_test_code='main(){return(0);}' - -## Linker Characteristics -case $host_os in -cygwin* | mingw*) - # FIXME: the MSVC++ port hasn't been tested in a loooong time - # When not using gcc, we currently assume that we are using - # Microsoft Visual C++. - if test "$with_gcc" != yes; then - with_gnu_ld=no - fi - ;; - -esac - -ld_shlibs=yes -if test "$with_gnu_ld" = yes; then - # If archive_cmds runs LD, not CC, wlarc should be empty - wlarc='${wl}' - - # See if GNU ld supports shared libraries. - case $host_os in - aix3* | aix4* | aix5*) - # On AIX/PPC, the GNU linker is very broken - if test "$host_cpu" != ia64; then - ld_shlibs=no - cat <<EOF 1>&2 - -*** Warning: the GNU linker, at least up to release 2.9.1, is reported -*** to be unable to reliably create shared libraries on AIX. -*** Therefore, libtool is disabling shared libraries support. If you -*** really care for shared libraries, you may want to modify your PATH -*** so that a non-GNU linker is found, and then restart. - -EOF - fi - ;; - - amigaos*) - archive_cmds='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' - hardcode_libdir_flag_spec='-L$libdir' - hardcode_minus_L=yes - - # Samuel A. Falvo II <kc5tja@dolphin.openprojects.net> reports - # that the semantics of dynamic libraries on AmigaOS, at least up - # to version 4, is to share data among multiple programs linked - # with the same dynamic library. Since this doesn't match the - # behavior of shared libraries on other platforms, we can use - # them. - ld_shlibs=no - ;; - - beos*) - if $LD --help 2>&1 | egrep ': supported targets:.* elf' > /dev/null; then - allow_undefined_flag=unsupported - # Joseph Beckenbach <jrb3@best.com> says some releases of gcc - # support --undefined. This deserves some investigation. FIXME - archive_cmds='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - else - ld_shlibs=no - fi - ;; - - cygwin* | mingw*) - # hardcode_libdir_flag_spec is actually meaningless, as there is - # no search path for DLLs. - hardcode_libdir_flag_spec='-L$libdir' - allow_undefined_flag=unsupported - always_export_symbols=yes - - extract_expsyms_cmds='test -f $output_objdir/impgen.c || \ - sed -e "/^# \/\* impgen\.c starts here \*\//,/^# \/\* impgen.c ends here \*\// { s/^# //; p; }" -e d < $0 > $output_objdir/impgen.c~ - test -f $output_objdir/impgen.exe || (cd $output_objdir && \ - if test "x$HOST_CC" != "x" ; then $HOST_CC -o impgen impgen.c ; \ - else $CC -o impgen impgen.c ; fi)~ - $output_objdir/impgen $dir/$soroot > $output_objdir/$soname-def' - - old_archive_from_expsyms_cmds='$DLLTOOL --as=$AS --dllname $soname --def $output_objdir/$soname-def --output-lib $output_objdir/$newlib' - - # cygwin and mingw dlls have different entry points and sets of symbols - # to exclude. - # FIXME: what about values for MSVC? - dll_entry=__cygwin_dll_entry@12 - dll_exclude_symbols=DllMain@12,_cygwin_dll_entry@12,_cygwin_noncygwin_dll_entry@12~ - case $host_os in - mingw*) - # mingw values - dll_entry=_DllMainCRTStartup@12 - dll_exclude_symbols=DllMain@12,DllMainCRTStartup@12,DllEntryPoint@12~ - ;; - esac - - # mingw and cygwin differ, and it's simplest to just exclude the union - # of the two symbol sets. - dll_exclude_symbols=DllMain@12,_cygwin_dll_entry@12,_cygwin_noncygwin_dll_entry@12,DllMainCRTStartup@12,DllEntryPoint@12 - - # recent cygwin and mingw systems supply a stub DllMain which the user - # can override, but on older systems we have to supply one (in ltdll.c) - if test "x$lt_cv_need_dllmain" = "xyes"; then - ltdll_obj='$output_objdir/$soname-ltdll.'"$objext " - ltdll_cmds='test -f $output_objdir/$soname-ltdll.c || sed -e "/^# \/\* ltdll\.c starts here \*\//,/^# \/\* ltdll.c ends here \*\// { s/^# //; p; }" -e d < $0 > $output_objdir/$soname-ltdll.c~ - test -f $output_objdir/$soname-ltdll.$objext || (cd $output_objdir && $CC -c $soname-ltdll.c)~' - else - ltdll_obj= - ltdll_cmds= - fi - - # Extract the symbol export list from an `--export-all' def file, - # then regenerate the def file from the symbol export list, so that - # the compiled dll only exports the symbol export list. - # Be careful not to strip the DATA tag left be newer dlltools. - export_symbols_cmds="$ltdll_cmds"' - $DLLTOOL --export-all --exclude-symbols '$dll_exclude_symbols' --output-def $output_objdir/$soname-def '$ltdll_obj'$libobjs $convenience~ - sed -e "1,/EXPORTS/d" -e "s/ @ [0-9]*//" -e "s/ *;.*$//" < $output_objdir/$soname-def > $export_symbols' - - # If the export-symbols file already is a .def file (1st line - # is EXPORTS), use it as is. - # If DATA tags from a recent dlltool are present, honour them! - archive_expsym_cmds='if test "x`head -1 $export_symbols`" = xEXPORTS; then - cp $export_symbols $output_objdir/$soname-def; - else - echo EXPORTS > $output_objdir/$soname-def; - _lt_hint=1; - cat $export_symbols | while read symbol; do - set dummy \$symbol; - case \[$]# in - 2) echo " \[$]2 @ \$_lt_hint ; " >> $output_objdir/$soname-def;; - *) echo " \[$]2 @ \$_lt_hint \[$]3 ; " >> $output_objdir/$soname-def;; - esac; - _lt_hint=`expr 1 + \$_lt_hint`; - done; - fi~ - '"$ltdll_cmds"' - $CC -Wl,--base-file,$output_objdir/$soname-base '$lt_cv_cc_dll_switch' -Wl,-e,'$dll_entry' -o $output_objdir/$soname '$ltdll_obj'$libobjs $deplibs $compiler_flags~ - $DLLTOOL --as=$AS --dllname $soname --exclude-symbols '$dll_exclude_symbols' --def $output_objdir/$soname-def --base-file $output_objdir/$soname-base --output-exp $output_objdir/$soname-exp~ - $CC -Wl,--base-file,$output_objdir/$soname-base $output_objdir/$soname-exp '$lt_cv_cc_dll_switch' -Wl,-e,'$dll_entry' -o $output_objdir/$soname '$ltdll_obj'$libobjs $deplibs $compiler_flags~ - $DLLTOOL --as=$AS --dllname $soname --exclude-symbols '$dll_exclude_symbols' --def $output_objdir/$soname-def --base-file $output_objdir/$soname-base --output-exp $output_objdir/$soname-exp --output-lib $output_objdir/$libname.dll.a~ - $CC $output_objdir/$soname-exp '$lt_cv_cc_dll_switch' -Wl,-e,'$dll_entry' -o $output_objdir/$soname '$ltdll_obj'$libobjs $deplibs $compiler_flags' - ;; - - darwin* | rhapsody*) - allow_undefined_flag='-undefined suppress' - archive_cmds='$CC `test .$module = .yes && echo -bundle || echo -dynamiclib` $allow_undefined_flag -o $lib $libobjs $deplibs $linkopts -install_name $rpath/$soname `test -n "$verstring" -a x$verstring != x0.0 && echo $verstring`' - # We need to add '_' to the symbols in $export_symbols first - #archive_expsym_cmds="$archive_cmds"' && strip -s $export_symbols' - hardcode_direct=yes - hardcode_shlibpath_var=no - whole_archive_flag_spec='-all_load $convenience' - ;; - - netbsd*) - if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then - archive_cmds='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' - wlarc= - else - archive_cmds='$CC -shared -nodefaultlibs $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - archive_expsym_cmds='$CC -shared -nodefaultlibs $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' - fi - ;; - - solaris* | sysv5*) - if $LD -v 2>&1 | egrep 'BFD 2\.8' > /dev/null; then - ld_shlibs=no - cat <<EOF 1>&2 - -*** Warning: The releases 2.8.* of the GNU linker cannot reliably -*** create shared libraries on Solaris systems. Therefore, libtool -*** is disabling shared libraries support. We urge you to upgrade GNU -*** binutils to release 2.9.1 or newer. Another option is to modify -*** your PATH or compiler configuration so that the native linker is -*** used, and then restart. - -EOF - elif $LD --help 2>&1 | egrep ': supported targets:.* elf' > /dev/null; then - archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' - else - ld_shlibs=no - fi - ;; - - sunos4*) - archive_cmds='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' - wlarc= - hardcode_direct=yes - hardcode_shlibpath_var=no - ;; - - *) - if $LD --help 2>&1 | egrep ': supported targets:.* elf' > /dev/null; then - archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' - else - ld_shlibs=no - fi - ;; - esac - - if test "$ld_shlibs" = yes; then - runpath_var=LD_RUN_PATH - hardcode_libdir_flag_spec='${wl}--rpath ${wl}$libdir' - export_dynamic_flag_spec='${wl}--export-dynamic' - case $host_os in - cygwin* | mingw*) - # dlltool doesn't understand --whole-archive et. al. - whole_archive_flag_spec= - ;; - *) - # ancient GNU ld didn't support --whole-archive et. al. - if $LD --help 2>&1 | egrep 'no-whole-archive' > /dev/null; then - whole_archive_flag_spec="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' - else - whole_archive_flag_spec= - fi - ;; - esac - fi -else - # PORTME fill in a description of your system's linker (not GNU ld) - case $host_os in - aix3*) - allow_undefined_flag=unsupported - always_export_symbols=yes - archive_expsym_cmds='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' - # Note: this linker hardcodes the directories in LIBPATH if there - # are no directories specified by -L. - hardcode_minus_L=yes - if test "$with_gcc" = yes && test -z "$link_static_flag"; then - # Neither direct hardcoding nor static linking is supported with a - # broken collect2. - hardcode_direct=unsupported - fi - ;; - - aix4* | aix5*) - hardcode_direct=yes - hardcode_libdir_separator=':' - link_all_deplibs=yes - # When large executables or shared objects are built, AIX ld can - # have problems creating the table of contents. If linking a library - # or program results in "error TOC overflow" add -mminimal-toc to - # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not - # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. - if test "$with_gcc" = yes; then - case $host_os in aix4.[012]|aix4.[012].*) - # We only want to do this on AIX 4.2 and lower, the check - # below for broken collect2 doesn't work under 4.3+ - collect2name=`${CC} -print-prog-name=collect2` - if test -f "$collect2name" && \ - strings "$collect2name" | grep resolve_lib_name >/dev/null - then - # We have reworked collect2 - hardcode_direct=yes - else - # We have old collect2 - hardcode_direct=unsupported - # It fails to find uninstalled libraries when the uninstalled - # path is not listed in the libpath. Setting hardcode_minus_L - # to unsupported forces relinking - hardcode_minus_L=yes - hardcode_libdir_flag_spec='-L$libdir' - hardcode_libdir_separator= - fi - esac - shared_flag='-shared' - else - # not using gcc - if test "$host_cpu" = ia64; then - shared_flag='${wl}-G' - else - shared_flag='${wl}-bM:SRE' - fi - fi - - if test "$host_cpu" = ia64; then - # On IA64, the linker does run time linking by default, so we don't - # have to do anything special. - aix_use_runtimelinking=no - if test $with_gnu_ld = no; then - exp_sym_flag='-Bexport' - no_entry_flag="" - fi - else - # Test if we are trying to use run time linking, or normal AIX style linking. - # If -brtl is somewhere in LDFLAGS, we need to do run time linking. - aix_use_runtimelinking=no - for ld_flag in $LDFLAGS; do - if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl" ); then - aix_use_runtimelinking=yes - break - fi - done - exp_sym_flag='-bexport' - no_entry_flag='-bnoentry' - fi - # -bexpall does not export symbols beginning with underscore (_) - always_export_symbols=yes - if test "$aix_use_runtimelinking" = yes; then - # Warning - without using the other run time loading flags (-brtl), -berok will - # link without error, but may produce a broken library. - allow_undefined_flag=' ${wl}-berok' - hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:/usr/lib:/lib' - archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${allow_undefined_flag} '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols" - else - if test "$host_cpu" = ia64; then - if test $with_gnu_ld = no; then - hardcode_libdir_flag_spec='${wl}-R $libdir:/usr/lib:/lib' - allow_undefined_flag="-z nodefs" - archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols" - fi - else - allow_undefined_flag=' ${wl}-berok' - # -bexpall does not export symbols beginning with underscore (_) - always_export_symbols=yes - # Exported symbols can be pulled into shared objects from archives - whole_archive_flag_spec=' ' - build_libtool_need_lc=yes - hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:/usr/lib:/lib' - # This is similar to how AIX traditionally builds it's shared libraries. - archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}-bE:$export_symbols ${wl}-bnoentry${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' - fi - fi - ;; - - amigaos*) - archive_cmds='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' - hardcode_libdir_flag_spec='-L$libdir' - hardcode_minus_L=yes - # see comment about different semantics on the GNU ld section - ld_shlibs=no - ;; - - cygwin* | mingw*) - # When not using gcc, we currently assume that we are using - # Microsoft Visual C++. - # hardcode_libdir_flag_spec is actually meaningless, as there is - # no search path for DLLs. - hardcode_libdir_flag_spec=' ' - allow_undefined_flag=unsupported - # Tell ltmain to make .lib files, not .a files. - libext=lib - # FIXME: Setting linknames here is a bad hack. - archive_cmds='$CC -o $lib $libobjs $compiler_flags `echo "$deplibs" | sed -e '\''s/ -lc$//'\''` -link -dll~linknames=' - # The linker will automatically build a .lib file if we build a DLL. - old_archive_from_new_cmds='true' - # FIXME: Should let the user specify the lib program. - old_archive_cmds='lib /OUT:$oldlib$oldobjs$old_deplibs' - fix_srcfile_path='`cygpath -w "$srcfile"`' - ;; - - freebsd1*) - ld_shlibs=no - ;; - - # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor - # support. Future versions do this automatically, but an explicit c++rt0.o - # does not break anything, and helps significantly (at the cost of a little - # extra space). - freebsd2.2*) - archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' - hardcode_libdir_flag_spec='-R$libdir' - hardcode_direct=yes - hardcode_shlibpath_var=no - ;; - - # Unfortunately, older versions of FreeBSD 2 do not have this feature. - freebsd2*) - archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' - hardcode_direct=yes - hardcode_minus_L=yes - hardcode_shlibpath_var=no - ;; - - # FreeBSD 3 and greater uses gcc -shared to do shared libraries. - freebsd*) - archive_cmds='$CC -shared -o $lib $libobjs $deplibs $compiler_flags' - hardcode_libdir_flag_spec='-R$libdir' - hardcode_direct=yes - hardcode_shlibpath_var=no - ;; - - hpux9* | hpux10* | hpux11*) - if test $with_gcc = yes; then - case "$host_os" in - hpux9*) archive_cmds='$rm $output_objdir/$soname~$CC -shared -fPIC ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' ;; - *) archive_cmds='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; - esac - else - case $host_os in - hpux9*) archive_cmds='$rm $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' ;; - *) archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' ;; - esac - fi - hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' - hardcode_libdir_separator=: - hardcode_direct=yes - hardcode_minus_L=yes # Not in the search PATH, but as the default - # location of the library. - export_dynamic_flag_spec='${wl}-E' - ;; - - irix5* | irix6*) - if test "$with_gcc" = yes; then - archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${objdir}/so_locations -o $lib' - else - archive_cmds='$LD -shared $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${objdir}/so_locations -o $lib' - fi - hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' - hardcode_libdir_separator=: - link_all_deplibs=yes - ;; - - netbsd*) - if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then - archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out - else - archive_cmds='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF - fi - hardcode_libdir_flag_spec='-R$libdir' - hardcode_direct=yes - hardcode_shlibpath_var=no - ;; - - newsos6) - archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linkopts' - hardcode_direct=yes - hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' - hardcode_libdir_separator=: - hardcode_shlibpath_var=no - ;; - - openbsd*) - archive_cmds='$CC $pic_flag -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' - archive_expsym_cmds='$CC $pic_flag -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' - hardcode_libdir_flag_spec='${wl}-R$libdir' - hardcode_direct=yes - hardcode_shlibpath_var=no - remove_lgcc=yes - output_verbose_link_cmds='$CC $ac_cv_prog_cc_pic -shared $CFLAGS -v conftest.$objext 2>&1 | egrep "\-L"' - ;; - - os2*) - hardcode_libdir_flag_spec='-L$libdir' - hardcode_minus_L=yes - allow_undefined_flag=unsupported - archive_cmds='$echo "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$echo "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~$echo DATA >> $output_objdir/$libname.def~$echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~$echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' - old_archive_from_new_cmds='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' - ;; - - osf3*) - if test "$with_gcc" = yes; then - allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*' - archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${objdir}/so_locations -o $lib' - else - allow_undefined_flag=' -expect_unresolved \*' - archive_cmds='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${objdir}/so_locations -o $lib' - fi - hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' - hardcode_libdir_separator=: - ;; - - osf4* | osf5*) # as osf3* with the addition of -msym flag - if test "$with_gcc" = yes; then - allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*' - archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${objdir}/so_locations -o $lib' - hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' - else - allow_undefined_flag=' -expect_unresolved \*' - archive_cmds='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${objdir}/so_locations -o $lib' - archive_expsym_cmds='for i in `cat $export_symbols`; do printf "-exported_symbol " >> $lib.exp; echo "\$i" >> $lib.exp; done; echo "-hidden">> $lib.exp~ - $LD -shared${allow_undefined_flag} -input $lib.exp $linker_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${objdir}/so_locations -o $lib~$rm $lib.exp' - - # cc supports -rpath directly - hardcode_libdir_flag_spec='-rpath $libdir' - fi - hardcode_libdir_separator=: - ;; - - sco3.2v5*) - archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_shlibpath_var=no - runpath_var=LD_RUN_PATH - hardcode_runpath_var=yes - ;; - - solaris*) - no_undefined_flag=' -z defs' - if test "$with_gcc" = yes; then - archive_cmds='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds='$echo "{ global:" > $lib.exp~cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ - $CC -shared ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$rm $lib.exp' - else - archive_cmds='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' - archive_expsym_cmds='$echo "{ global:" > $lib.exp~cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ - $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$rm $lib.exp' - fi - hardcode_libdir_flag_spec='-R$libdir' - hardcode_shlibpath_var=no - case $host_os in - solaris2.[0-5] | solaris2.[0-5].*) ;; - *) # Supported since Solaris 2.6 (maybe 2.5.1?) - whole_archive_flag_spec='-z allextract$convenience -z defaultextract' ;; - esac - link_all_deplibs=yes - ;; - - sunos4*) - archive_cmds='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' - hardcode_libdir_flag_spec='-L$libdir' - hardcode_direct=yes - hardcode_minus_L=yes - hardcode_shlibpath_var=no - ;; - - sysv4) - archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - runpath_var='LD_RUN_PATH' - hardcode_shlibpath_var=no - hardcode_direct=no #Motorola manual says yes, but my tests say they lie - ;; - - sysv4.3*) - archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_shlibpath_var=no - export_dynamic_flag_spec='-Bexport' - ;; - - sysv5*) - no_undefined_flag=' -z text' - # $CC -shared without GNU ld will not create a library from C++ - # object files and a static libstdc++, better avoid it by now - archive_cmds='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' - archive_expsym_cmds='$echo "{ global:" > $lib.exp~cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ - $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$rm $lib.exp' - hardcode_libdir_flag_spec= - hardcode_shlibpath_var=no - runpath_var='LD_RUN_PATH' - ;; - - uts4*) - archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_libdir_flag_spec='-L$libdir' - hardcode_shlibpath_var=no - ;; - - dgux*) - archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_libdir_flag_spec='-L$libdir' - hardcode_shlibpath_var=no - ;; - - sysv4*MP*) - if test -d /usr/nec; then - archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_shlibpath_var=no - runpath_var=LD_RUN_PATH - hardcode_runpath_var=yes - ld_shlibs=yes - fi - ;; - - sysv4.2uw2*) - archive_cmds='$LD -G -o $lib $libobjs $deplibs $linker_flags' - hardcode_direct=yes - hardcode_minus_L=no - hardcode_shlibpath_var=no - hardcode_runpath_var=yes - runpath_var=LD_RUN_PATH - ;; - - sysv5uw7* | unixware7*) - no_undefined_flag='${wl}-z ${wl}text' - if test "$GCC" = yes; then - archive_cmds='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' - else - archive_cmds='$CC -G ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' - fi - runpath_var='LD_RUN_PATH' - hardcode_shlibpath_var=no - ;; - - *) - ld_shlibs=no - ;; - esac -fi - -## Compiler Characteristics: PIC flags, static flags, etc -if test "X${ac_cv_prog_cc_pic+set}" = Xset; then - : -else - ac_cv_prog_cc_pic= - ac_cv_prog_cc_shlib= - ac_cv_prog_cc_wl= - ac_cv_prog_cc_static= - ac_cv_prog_cc_no_builtin= - ac_cv_prog_cc_can_build_shared=$can_build_shared - - if test "$with_gcc" = yes; then - ac_cv_prog_cc_wl='-Wl,' - ac_cv_prog_cc_static='-static' - - case $host_os in - aix*) - # All AIX code is PIC. - if test "$host_cpu" = ia64; then - # AIX 5 now supports IA64 processor - lt_cv_prog_cc_static='-Bstatic' - else - lt_cv_prog_cc_static='-bnso -bI:/lib/syscalls.exp' - fi - ;; - amigaos*) - # FIXME: we need at least 68020 code to build shared libraries, but - # adding the `-m68020' flag to GCC prevents building anything better, - # like `-m68040'. - ac_cv_prog_cc_pic='-m68020 -resident32 -malways-restore-a4' - ;; - beos* | irix5* | irix6* | osf3* | osf4* | osf5*) - # PIC is the default for these OSes. - ;; - cygwin* | mingw* | os2*) - # This hack is so that the source file can tell whether it is being - # built for inclusion in a dll (and should export symbols for example). - ac_cv_prog_cc_pic='-DDLL_EXPORT' - ;; - darwin* | rhapsody*) - # PIC is the default on this platform - # Common symbols not allowed in MH_DYLIB files - lt_cv_prog_cc_pic='-fno-common' - ;; - *djgpp*) - # DJGPP does not support shared libraries at all - ac_cv_prog_cc_pic= - ;; - sysv4*MP*) - if test -d /usr/nec; then - ac_cv_prog_cc_pic=-Kconform_pic - fi - ;; - *) - ac_cv_prog_cc_pic='-fPIC' - ;; - esac - else - # PORTME Check for PIC flags for the system compiler. - case $host_os in - aix*) - # All AIX code is PIC. - ac_cv_prog_cc_static="$ac_cv_prog_cc_static ${ac_cv_prog_cc_wl}-lC" - ;; - - hpux9* | hpux10* | hpux11*) - # Is there a better ac_cv_prog_cc_static that works with the bundled CC? - ac_cv_prog_cc_wl='-Wl,' - ac_cv_prog_cc_static="${ac_cv_prog_cc_wl}-a ${ac_cv_prog_cc_wl}archive" - ac_cv_prog_cc_pic='+Z' - ;; - - irix5* | irix6*) - ac_cv_prog_cc_wl='-Wl,' - ac_cv_prog_cc_static='-non_shared' - # PIC (with -KPIC) is the default. - ;; - - cygwin* | mingw* | os2*) - # This hack is so that the source file can tell whether it is being - # built for inclusion in a dll (and should export symbols for example). - ac_cv_prog_cc_pic='-DDLL_EXPORT' - ;; - - newsos6) - ac_cv_prog_cc_pic='-KPIC' - ac_cv_prog_cc_static='-Bstatic' - ;; - - osf3* | osf4* | osf5*) - # All OSF/1 code is PIC. - ac_cv_prog_cc_wl='-Wl,' - ac_cv_prog_cc_static='-non_shared' - ;; - - sco3.2v5*) - ac_cv_prog_cc_pic='-Kpic' - ac_cv_prog_cc_static='-dn' - ac_cv_prog_cc_shlib='-belf' - ;; - - solaris*) - ac_cv_prog_cc_pic='-KPIC' - ac_cv_prog_cc_static='-Bstatic' - ac_cv_prog_cc_wl='-Wl,' - ;; - - sunos4*) - ac_cv_prog_cc_pic='-PIC' - ac_cv_prog_cc_static='-Bstatic' - ac_cv_prog_cc_wl='-Qoption ld ' - ;; - - sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) - ac_cv_prog_cc_pic='-KPIC' - ac_cv_prog_cc_static='-Bstatic' - ac_cv_prog_cc_wl='-Wl,' - ;; - - uts4*) - ac_cv_prog_cc_pic='-pic' - ac_cv_prog_cc_static='-Bstatic' - ;; - - sysv4*MP*) - if test -d /usr/nec ;then - ac_cv_prog_cc_pic='-Kconform_pic' - ac_cv_prog_cc_static='-Bstatic' - fi - ;; - - *) - ac_cv_prog_cc_can_build_shared=no - ;; - esac - fi - case "$host_os" in - # Platforms which do not suport PIC and -DPIC is meaningless - # on them: - *djgpp*) - ac_cv_prog_cc_pic= - ;; - *) - ac_cv_prog_cc_pic="$ac_cv_prog_cc_pic -DPIC" - ;; - esac -fi - -need_lc=yes -if test "$enable_shared" = yes && test "$with_gcc" = yes; then - case $archive_cmds in - *'~'*) - # FIXME: we may have to deal with multi-command sequences. - ;; - '$CC '*) - # Test whether the compiler implicitly links with -lc since on some - # systems, -lgcc has to come before -lc. If gcc already passes -lc - # to ld, don't add -lc before -lgcc. - echo $ac_n "checking whether -lc should be explicitly linked in... $ac_c" 1>&6 - if eval "test \"`echo '$''{'ac_cv_archive_cmds_needs_lc'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 - need_lc=$ac_cv_archive_cmds_needs_lc - else - $rm conftest* - echo "static int dummy;" > conftest.$ac_ext - if { (eval echo ltcf-c.sh:need_lc: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>conftest.err; }; then - # Append any warnings to the config.log. - cat conftest.err 1>&5 - soname=conftest - lib=conftest - libobjs=conftest.$objext - deplibs= - wl=$ac_cv_prog_cc_wl - compiler_flags=-v - linker_flags=-v - verstring= - output_objdir=. - libname=conftest - save_allow_undefined_flag=$allow_undefined_flag - allow_undefined_flag= - if { (eval echo ltcf-c.sh:need_lc: \"$archive_cmds\") 1>&5; (eval $archive_cmds) 2>&1 | grep " -lc " 1>&5 ; }; then - need_lc=no - fi - allow_undefined_flag=$save_allow_undefined_flag - else - cat conftest.err 1>&5 - fi - fi - $rm conftest* - echo "$ac_t$need_lc" 1>&6 - ;; - esac -fi -ac_cv_archive_cmds_needs_lc=$need_lc diff --git a/gnu/lib/libf2c/ltconfig b/gnu/lib/libf2c/ltconfig deleted file mode 100755 index b1b0e639e89..00000000000 --- a/gnu/lib/libf2c/ltconfig +++ /dev/null @@ -1,2803 +0,0 @@ -#! /bin/sh - -# ltconfig - Create a system-specific libtool. -# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 -# Free Software Foundation, Inc. -# Originally by Gordon Matzigkeit <gord@gnu.ai.mit.edu>, 1996 -# -# This file is free software; you can redistribute it and/or modify it -# under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. -# -# As a special exception to the GNU General Public License, if you -# distribute this file as part of a program that contains a -# configuration script generated by Autoconf, you may include it under -# the same distribution terms that you use for the rest of that program. - -# A lot of this script is taken from autoconf-2.10. - -# Check that we are running under the correct shell. -SHELL=${CONFIG_SHELL-/bin/sh} -echo=echo -if test "X$1" = X--no-reexec; then - # Discard the --no-reexec flag, and continue. - shift -elif test "X$1" = X--fallback-echo; then - # Avoid inline document here, it may be left over - : -elif test "X`($echo '\t') 2>/dev/null`" = 'X\t'; then - # Yippee, $echo works! - : -else - # Restart under the correct shell. - exec "$SHELL" "$0" --no-reexec ${1+"$@"} -fi - -if test "X$1" = X--fallback-echo; then - # used as fallback echo - shift - cat <<EOF -$* -EOF - exit 0 -fi - -# Find the correct PATH separator. Usually this is `:', but -# DJGPP uses `;' like DOS. -if test "X${PATH_SEPARATOR+set}" != Xset; then - UNAME=${UNAME-`uname 2>/dev/null`} - case X$UNAME in - *-DOS) PATH_SEPARATOR=';' ;; - *) PATH_SEPARATOR=':' ;; - esac -fi - -# The HP-UX ksh and POSIX shell print the target directory to stdout -# if CDPATH is set. -if test "X${CDPATH+set}" = Xset; then CDPATH=:; export CDPATH; fi - -if test "X${echo_test_string+set}" != Xset; then - # find a string as large as possible, as long as the shell can cope with it - for cmd in 'sed 50q "$0"' 'sed 20q "$0"' 'sed 10q "$0"' 'sed 2q "$0"' 'echo test'; do - # expected sizes: less than 2Kb, 1Kb, 512 bytes, 16 bytes, ... - if (echo_test_string="`eval $cmd`") 2>/dev/null && - echo_test_string="`eval $cmd`" && - (test "X$echo_test_string" = "X$echo_test_string") 2>/dev/null; then - break - fi - done -fi - -if test "X`($echo '\t') 2>/dev/null`" = 'X\t' && - echo_testing_string=`($echo "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - : -else - # The Solaris, AIX, and Digital Unix default echo programs unquote - # backslashes. This makes it impossible to quote backslashes using - # echo "$something" | sed 's/\\/\\\\/g' - # - # So, first we look for a working echo in the user's PATH. - - IFS="${IFS= }"; save_ifs="$IFS"; IFS="${IFS}${PATH_SEPARATOR}" - for dir in $PATH /usr/ucb; do - if (test -f $dir/echo || test -f $dir/echo$ac_exeext) && - test "X`($dir/echo '\t') 2>/dev/null`" = 'X\t' && - echo_testing_string=`($dir/echo "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - echo="$dir/echo" - break - fi - done - IFS="$save_ifs" - - if test "X$echo" = Xecho; then - # We didn't find a better echo, so look for alternatives. - if test "X`(print -r '\t') 2>/dev/null`" = 'X\t' && - echo_testing_string=`(print -r "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - # This shell has a builtin print -r that does the trick. - echo='print -r' - elif (test -f /bin/ksh || test -f /bin/ksh$ac_exeext) && - test "X$CONFIG_SHELL" != X/bin/ksh; then - # If we have ksh, try running ltconfig again with it. - ORIGINAL_CONFIG_SHELL="${CONFIG_SHELL-/bin/sh}" - export ORIGINAL_CONFIG_SHELL - CONFIG_SHELL=/bin/ksh - export CONFIG_SHELL - exec "$CONFIG_SHELL" "$0" --no-reexec ${1+"$@"} - else - # Try using printf. - echo='printf %s\n' - if test "X`($echo '\t') 2>/dev/null`" = 'X\t' && - echo_testing_string=`($echo "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - # Cool, printf works - : - elif echo_testing_string=`("$ORIGINAL_CONFIG_SHELL" "$0" --fallback-echo '\t') 2>/dev/null` && - test "X$echo_testing_string" = 'X\t' && - echo_testing_string=`("$ORIGINAL_CONFIG_SHELL" "$0" --fallback-echo "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - CONFIG_SHELL="$ORIGINAL_CONFIG_SHELL" - export CONFIG_SHELL - SHELL="$CONFIG_SHELL" - export SHELL - echo="$CONFIG_SHELL $0 --fallback-echo" - elif echo_testing_string=`("$CONFIG_SHELL" "$0" --fallback-echo '\t') 2>/dev/null` && - test "X$echo_testing_string" = 'X\t' && - echo_testing_string=`("$CONFIG_SHELL" "$0" --fallback-echo "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - echo="$CONFIG_SHELL $0 --fallback-echo" - else - # maybe with a smaller string... - prev=: - - for cmd in 'echo test' 'sed 2q "$0"' 'sed 10q "$0"' 'sed 20q "$0"' 'sed 50q "$0"'; do - if (test "X$echo_test_string" = "X`eval $cmd`") 2>/dev/null; then - break - fi - prev="$cmd" - done - - if test "$prev" != 'sed 50q "$0"'; then - echo_test_string=`eval $prev` - - export echo_test_string - exec "${ORIGINAL_CONFIG_SHELL-${CONFIG_SHELL-/bin/sh}}" "$0" ${1+"$@"} - else - # Oops. We lost completely, so just stick with echo. - echo=echo - fi - fi - fi - fi -fi - -# Sed substitution that helps us do robust quoting. It backslashifies -# metacharacters that are still active within double-quoted strings. -Xsed='sed -e s/^X//' -sed_quote_subst='s/\([\\"\\`$\\\\]\)/\\\1/g' - -# Same as above, but do not quote variable references. -double_quote_subst='s/\([\\"\\`\\\\]\)/\\\1/g' - -# Sed substitution to delay expansion of an escaped shell variable in a -# double_quote_subst'ed string. -delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' - -# The name of this program. -progname=`$echo "X$0" | $Xsed -e 's%^.*/%%'` - -# Constants: -PROGRAM=ltconfig -PACKAGE=libtool -VERSION=1.4a-GCC3.0 -TIMESTAMP=" (1.641.2.256 2001/05/28 20:09:07 with GCC-local changes)" -ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' -ac_link='${CC-cc} -o conftest $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -rm="rm -f" - -help="Try \`$progname --help' for more information." - -# Global variables: -default_ofile=libtool -can_build_shared=yes -enable_shared=yes -# All known linkers require a `.a' archive for static linking (except M$VC, -# which needs '.lib'). -enable_static=yes -enable_fast_install=yes -enable_dlopen=unknown -enable_win32_dll=no -pic_mode=default -ltmain= -silent= -srcdir= -ac_config_guess= -ac_config_sub= -host= -build=NONE -nonopt=NONE -ofile="$default_ofile" -verify_host=yes -tagname= -with_gcc=no -with_gnu_ld=no -need_locks=yes -ac_ext=c -libext=a -cache_file= -max_cmd_len= - -## Dependencies to place before and after the object being linked: -predep_objects= -postdep_objects= -predeps= -postdeps= -compiler_lib_search_path= - -## Link characteristics: -allow_undefined_flag= -no_undefined_flag= -need_lib_prefix=unknown -need_version=unknown -# when you set need_version to no, make sure it does not cause -set_version -# flags to be left without arguments -archive_cmds= -archive_expsym_cmds= -old_archive_from_new_cmds= -old_archive_from_expsyms_cmds= -striplib= -old_striplib= -export_dynamic_flag_spec= -whole_archive_flag_spec= -thread_safe_flag_spec= -hardcode_into_libs=no -hardcode_libdir_flag_spec= -hardcode_libdir_separator= -hardcode_direct=no -hardcode_minus_L=no -hardcode_shlibpath_var=unsupported -runpath_var= -link_all_deplibs=unknown -always_export_symbols=no -export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | sed '\''s/.* //'\'' | sort | uniq > $export_symbols' -# include_expsyms should be a list of space-separated symbols to be *always* -# included in the symbol list -include_expsyms= -# exclude_expsyms can be an egrep regular expression of symbols to exclude -# it will be wrapped by ` (' and `)$', so one must not match beginning or -# end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc', -# as well as any symbol that contains `d'. -exclude_expsyms="_GLOBAL_OFFSET_TABLE_" -# Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out -# platforms (ab)use it in PIC code, but their linkers get confused if -# the symbol is explicitly referenced. Since portable code cannot -# rely on this symbol name, it's probably fine to never include it in -# preloaded symbol tables. -extract_expsyms_cmds= - -## Tools: -old_AR="$AR" -old_AR_FLAGS="$AR_FLAGS" -old_CC="$CC" -old_CFLAGS="$CFLAGS" -old_CPPFLAGS="$CPPFLAGS" -old_LDFLAGS="$LDFLAGS" -old_LIBS="$LIBS" -old_MAGIC_CMD="$MAGIC_CMD" -old_LD="$LD" -old_LN_S="$LN_S" -old_LTCC="$LTCC" -old_NM="$NM" -old_RANLIB="$RANLIB" -old_STRIP="$STRIP" -old_AS="$AS" -old_DLLTOOL="$DLLTOOL" -old_OBJDUMP="$OBJDUMP" -old_OBJEXT="$OBJEXT" -old_EXEEXT="$EXEEXT" -old_reload_flag="$reload_flag" -old_deplibs_check_method="$deplibs_check_method" -old_file_magic_cmd="$file_magic_cmd" - -# Parse the command line options. -args= -prev= -for option -do - case $option in - -*=*) optarg=`echo "$option" | sed 's/[-_a-zA-Z0-9]*=//'` ;; - *) optarg= ;; - esac - - # If the previous option needs an argument, assign it. - if test -n "$prev"; then - eval "$prev=\$option" - prev= - continue - fi - - case $option in - --help) cat <<EOM -Usage: $progname [OPTION]... LTMAIN [HOST] - -Generate a system-specific libtool script. - - --build configure for building on BUILD [BUILD=HOST] - --debug enable verbose shell tracing - --disable-shared do not build shared libraries - --disable-static do not build static libraries - --disable-fast-install do not optimize for fast installation - --enable-dlopen enable dlopen support - --enable-win32-dll enable building dlls on win32 hosts - --help display this help and exit - --no-verify do not verify that HOST is a valid host type --o, --output=FILE specify the output file [default=$default_ofile] - --quiet same as \`--silent' - --silent do not print informational messages - --srcdir=DIR find \`config.guess' in DIR - --version output version information and exit - --add-tag=TAG append an alternate configuration - --with-gcc assume that the GNU C compiler will be used - --with-gnu-ld assume that the C compiler uses the GNU linker - --prefer-pic try to use only PIC objects - --prefer-non-pic try to use only non-PIC objects - --disable-lock disable file locking - --cache-file=FILE configure cache file - -LTMAIN is the \`ltmain.sh' shell script fragment or \`ltmain.c' program -that provides basic libtool functionality. - -HOST is the canonical host system name [default=guessed]. -EOM - exit 0 - ;; - - --build) prev=build ;; - --build=*) build="$optarg" ;; - - --debug) - echo "$progname: enabling shell trace mode" - set -x - ;; - - --disable-shared) enable_shared=no ;; - - --disable-static) enable_static=no ;; - - --disable-fast-install) enable_fast_install=no ;; - - --enable-dlopen) enable_dlopen=yes ;; - - --enable-win32-dll) enable_win32_dll=yes ;; - - --quiet | --silent) silent=yes ;; - - --srcdir) prev=srcdir ;; - --srcdir=*) srcdir="$optarg" ;; - - --no-verify) verify_host=no ;; - - --output | -o) prev=ofile ;; - --output=*) ofile="$optarg" ;; - - --version) echo "$PROGRAM (GNU $PACKAGE) $VERSION$TIMESTAMP"; exit 0 ;; - - --add-tag) prev=tagname ;; - --add-tag=*) tagname="$optarg" ;; - - --with-gcc) with_gcc=yes ;; - --with-gnu-ld) with_gnu_ld=yes ;; - - --prefer-pic) pic_mode=yes ;; - --prefer-non-pic) pic_mode=no ;; - - --disable-lock) need_locks=no ;; - - --cache-file=*) cache_file="$optarg" ;; - - -*) - echo "$progname: unrecognized option \`$option'" 1>&2 - echo "$help" 1>&2 - exit 1 - ;; - - *) - if test -z "$ltmain"; then - ltmain="$option" - elif test -z "$host"; then -# This generates an unnecessary warning for sparc-sun-solaris4.1.3_U1 -# if test -n "`echo $option| sed 's/[-a-z0-9.]//g'`"; then -# echo "$progname: warning \`$option' is not a valid host type" 1>&2 -# fi - host="$option" - else - echo "$progname: too many arguments" 1>&2 - echo "$help" 1>&2 - exit 1 - fi ;; - esac -done - -if test -z "$ltmain"; then - echo "$progname: you must specify a LTMAIN file" 1>&2 - echo "$help" 1>&2 - exit 1 -fi - -if test ! -f "$ltmain"; then - echo "$progname: \`$ltmain' does not exist" 1>&2 - echo "$help" 1>&2 - exit 1 -fi - -if test -n "$tagname"; then - # Check whether tagname contains only valid characters - case `$echo "X$tagname" | $Xsed -e 's/[-_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890,/]//g'` in - "") ;; - *) - echo "$progname: invalid tag name: $tagname" 1>&2 - exit 1 - ;; - esac - - if grep "^### BEGIN LIBTOOL TAG CONFIG: $tagname$" < "$ofile" > /dev/null; then - echo "$progname: tag name $tagname already exists" 1>&2 - exit 1 - fi - - if test ! -f "$ofile"; then - echo "$progname: warning: output file \`$ofile' does not exist" 1>&2 - fi - - if test -z "$LTCC"; then - eval "`$SHELL $ofile --config | grep '^LTCC='`" - if test -z "$LTCC"; then - echo "$progname: warning: output file \`$ofile' does not look like a libtool script" 1>&2 - else - echo "$progname: warning: using \`LTCC=$LTCC', extracted from \`$ofile'" 1>&2 - fi - fi -fi - -# Quote any args containing shell metacharacters. -ltconfig_args= -for arg -do - case $arg in - *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*) - ltconfig_args="$ltconfig_args '$arg'" ;; - *) ltconfig_args="$ltconfig_args $arg" ;; - esac -done - -# A relevant subset of AC_INIT. - -# File descriptor usage: -# 0 standard input -# 1 file creation -# 2 errors and warnings -# 3 some systems may open it to /dev/tty -# 4 used on the Kubota Titan -# 5 compiler messages saved in config.log -# 6 checking for... messages and results -if test "$silent" = yes; then - exec 6>/dev/null -else - exec 6>&1 -fi -exec 5>>./config.log - -# NLS nuisances. -# Only set LANG and LC_ALL to C if already set. -# These must not be set unconditionally because not all systems understand -# e.g. LANG=C (notably SCO). -if test "X${LC_ALL+set}" = Xset; then LC_ALL=C; export LC_ALL; fi -if test "X${LANG+set}" = Xset; then LANG=C; export LANG; fi - -if test -n "$cache_file" && test -r "$cache_file" && test -f "$cache_file"; then - echo "loading cache $cache_file within ltconfig" - . $cache_file -fi - -if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then - # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu. - if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then - ac_n= ac_c=' -' ac_t=' ' - else - ac_n=-n ac_c= ac_t= - fi -else - ac_n= ac_c='\c' ac_t= -fi - -if test -z "$srcdir"; then - # Assume the source directory is the same one as the path to LTMAIN. - srcdir=`$echo "X$ltmain" | $Xsed -e 's%/[^/]*$%%'` - test "$srcdir" = "$ltmain" && srcdir=. -fi - -trap "$rm conftest*; exit 1" 1 2 15 -if test "$verify_host" = yes; then - # Check for config.guess and config.sub. - ac_aux_dir= - for ac_dir in $srcdir $srcdir/.. $srcdir/../..; do - if test -f $ac_dir/config.guess; then - ac_aux_dir=$ac_dir - break - fi - done - if test -z "$ac_aux_dir"; then - echo "$progname: cannot find config.guess in $srcdir $srcdir/.. $srcdir/../.." 1>&2 - echo "$help" 1>&2 - exit 1 - fi - ac_config_guess=$ac_aux_dir/config.guess - ac_config_sub=$ac_aux_dir/config.sub - - # Make sure we can run config.sub. - if $SHELL $ac_config_sub sun4 >/dev/null 2>&1; then : - else - echo "$progname: cannot run $ac_config_sub" 1>&2 - echo "$help" 1>&2 - exit 1 - fi - - echo $ac_n "checking host system type""... $ac_c" 1>&6 - - host_alias=$host - case $host_alias in - "") - # Force config.guess to use the C compiler. - # CC_FOR_BUILD overrides the CC variable in config.guess but I had - # problems with it so do it this way for now. - CC="$LTCC" - - if host_alias=`$SHELL $ac_config_guess`; then : - else - echo "$progname: cannot guess host type; you must specify one" 1>&2 - echo "$help" 1>&2 - exit 1 - fi - - # Restore the C compiler. - CC="$old_CC" - ;; - esac - host=`$SHELL $ac_config_sub $host_alias` - echo "$ac_t$host" 1>&6 - - # Make sure the host verified. - test -z "$host" && exit 1 - - # Check for the build system type - echo $ac_n "checking build system type... $ac_c" 1>&6 - - build_alias=$build - case $build_alias in - NONE) - case $nonopt in - NONE) build_alias=$host_alias ;; - *) build_alias=$nonopt ;; - esac ;; - esac - - build=`$SHELL $ac_config_sub $build_alias` - build_cpu=`echo $build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` - build_vendor=`echo $build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` - build_os=`echo $build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` - echo "$ac_t""$build" 1>&6 - -elif test -z "$host"; then - echo "$progname: you must specify a host type if you use \`--no-verify'" 1>&2 - echo "$help" 1>&2 - exit 1 -else - host_alias=$host - build_alias=$host_alias - build=$host -fi - -if test x"$host" != x"$build"; then - ac_tool_prefix=${host_alias}- -else - ac_tool_prefix= -fi - -host_cpu=`echo $host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` -host_vendor=`echo $host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` -host_os=`echo $host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` - -# Transform linux* to *-*-linux-gnu*, to support old configure scripts. -case $host_os in -linux-gnu*) ;; -linux*) host=`echo $host | sed 's/^\(.*-.*-linux\)\(.*\)$/\1-gnu\2/'` -esac - -case $host_os in -aix3*) - # AIX sometimes has problems with the GCC collect2 program. For some - # reason, if we set the COLLECT_NAMES environment variable, the problems - # vanish in a puff of smoke. - if test "X${COLLECT_NAMES+set}" != Xset; then - COLLECT_NAMES= - export COLLECT_NAMES - fi - ;; -esac - -# Determine commands to create old-style static archives. -old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs$old_deplibs' -old_postinstall_cmds='chmod 644 $oldlib' -old_postuninstall_cmds= - -if test -n "$RANLIB"; then - old_archive_cmds="$old_archive_cmds~\$RANLIB \$oldlib" - case $host_os in - openbsd*) - old_postinstall_cmds="\$RANLIB -t \$oldlib~$old_postinstall_cmds";; - *) - old_postinstall_cmds="\$RANLIB \$oldlib~$old_postinstall_cmds";; - esac -fi - -# Source the script associated with the $tagname tag configuration. -if test -n "$tagname"; then - . $ltmain -else - # FIXME: We should use a variable here - # Configure for a C compiler - . $srcdir/ltcf-c.sh -fi - -# Set sane defaults for various variables -test -z "$AR" && AR=ar -test -z "$AR_FLAGS" && AR_FLAGS=cru -test -z "$AS" && AS=as -test -z "$CC" && CC=cc -test -z "$DLLTOOL" && DLLTOOL=dlltool -test -z "$MAGIC_CMD" && MAGIC_CMD=file -test -z "$LD" && LD=ld -test -z "$LN_S" && LN_S="ln -s" -test -z "$NM" && NM=nm -test -z "$OBJDUMP" && OBJDUMP=objdump -test -z "$RANLIB" && RANLIB=: -test -z "$STRIP" && STRIP=: -test -z "$objext" && objext=o - -echo $ac_n "checking for objdir... $ac_c" 1>&6 -rm -f .libs 2>/dev/null -mkdir .libs 2>/dev/null -if test -d .libs; then - objdir=.libs -else - # MS-DOS does not allow filenames that begin with a dot. - objdir=_libs -fi -rmdir .libs 2>/dev/null -echo "$ac_t$objdir" 1>&6 - -# If no C compiler was specified, use CC. -LTCC=${LTCC-"$CC"} - -# Allow CC to be a program name with arguments. -set dummy $CC -compiler="$2" - -# We assume here that the value for ac_cv_prog_cc_pic will not be cached -# in isolation, and that seeing it set (from the cache) indicates that -# the associated values are set (in the cache) correctly too. -echo $ac_n "checking for $compiler option to produce PIC... $ac_c" 1>&6 -echo "$progname:678:checking for $compiler option to produce PIC" 1>&5 - -if test -z "$ac_cv_prog_cc_pic"; then - echo "$ac_t"none 1>&6 -else - echo "$ac_t""$ac_cv_prog_cc_pic" 1>&6 - - # Check to make sure the pic_flag actually works. - echo $ac_n "checking if $compiler PIC flag $ac_cv_prog_cc_pic works... $ac_c" 1>&6 - echo "$progname:687:checking that $compiler PIC flag $ac_cv_prog_cc_pic works." 1>&5 - if test "X${ac_cv_prog_cc_pic_works+set}" = Xset && \ - test "X${ac_cv_prog_cc_pic_works}" != X; then - echo $ac_n "(cached) $ac_c" 1>&6 - else - ac_cv_prog_cc_pic_works=yes - $rm conftest* - echo $lt_simple_compile_test_code > conftest.$ac_ext - save_CFLAGS="$CFLAGS" - CFLAGS="$CFLAGS $ac_cv_prog_cc_pic -DPIC" - if { (eval echo $progname:697: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>conftest.err; } && test -s conftest.$objext; then - # Append any warnings to the config.log. - cat conftest.err 1>&5 - - case $host_os in - hpux9* | hpux10* | hpux11*) - # On HP-UX, both CC and GCC only warn that PIC is supported... then - # they create non-PIC objects. So, if there were any warnings, we - # assume that PIC is not supported. - if test -s conftest.err; then - ac_cv_prog_cc_pic_works=no - ac_cv_prog_cc_can_build_shared=no - ac_cv_prog_cc_pic= - else - ac_cv_prog_cc_pic_works=yes - ac_cv_prog_cc_pic=" $ac_cv_prog_cc_pic" - fi - ;; - *) - ac_cv_prog_cc_pic_works=yes - ac_cv_prog_cc_pic=" $ac_cv_prog_cc_pic" - ;; - esac - else - # Append any errors to the config.log. - cat conftest.err 1>&5 - ac_cv_prog_cc_pic_works=no - ac_cv_prog_cc_can_build_shared=no - ac_cv_prog_cc_pic= - fi - CFLAGS="$save_CFLAGS" - $rm conftest* - fi - # Belt *and* braces to stop my trousers falling down: - if test "X$ac_cv_prog_cc_pic_works" = Xno; then - ac_cv_prog_cc_pic= - ac_cv_prog_cc_can_build_shared=no - fi - echo "$ac_t""$ac_cv_prog_cc_pic_works" 1>&6 -fi - -# Check for any special shared library compilation flags. -if test -n "$ac_cv_prog_cc_shlib"; then - echo "$progname: warning: \`$CC' requires \`$ac_cv_prog_cc_shlib' to build shared libraries" 1>&2 - if echo "$old_CC $old_CFLAGS " | egrep -e "[ ]$ac_cv_prog_cc_shlib[ ]" >/dev/null; then : - else - echo "$progname: add \`$ac_cv_prog_cc_shlib' to the CC or CFLAGS env variable and reconfigure" 1>&2 - ac_cv_prog_cc_can_build_shared=no - fi -fi - -echo $ac_n "checking if $compiler static flag $ac_cv_prog_cc_static works... $ac_c" 1>&6 -echo "$progname:749: checking if $compiler static flag $ac_cv_prog_cc_static works" >&5 -if test "X${ac_cv_prog_cc_static_works+set}" = Xset && \ - test "X${ac_cv_prog_cc_static_works}" != X; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - $rm conftest* - echo $lt_simple_link_test_code > conftest.$ac_ext - save_LDFLAGS="$LDFLAGS" - LDFLAGS="$LDFLAGS $ac_cv_prog_cc_static" - if { (eval echo $progname:758: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then - ac_cv_prog_cc_static_works=yes - else - ac_cv_prog_cc_static_works=no - ac_cv_prog_cc_static= - fi - LDFLAGS="$save_LDFLAGS" - $rm conftest* -fi -# Belt *and* braces to stop my trousers falling down: -if test "X$ac_cv_prog_cc_static_works" = Xno; then - ac_cv_prog_cc_static= -fi -echo "$ac_t""$ac_cv_prog_cc_static_works" 1>&6 -pic_flag="$ac_cv_prog_cc_pic" -special_shlib_compile_flags="$ac_cv_prog_cc_shlib" -wl="$ac_cv_prog_cc_wl" -link_static_flag="$ac_cv_prog_cc_static" -no_builtin_flag="$ac_cv_prog_cc_no_builtin" -can_build_shared="$ac_cv_prog_cc_can_build_shared" - -# find the maximum length of command line arguments -echo "$progname:780: finding the maximum length of command line arguments" 1>&5 -echo $ac_n "finding the maximum length of command line arguments... $ac_c" 1>&6 -if test "${lt_cv_sys_max_cmd_len+set}" = set; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - i=0 - testring="ABCD" - # If test is not a shell built-in, we'll probably end up computing a - # maximum length that is only half of the actual maximum length, but - # we can't tell. - while test "X"`$CONFIG_SHELL $0 --fallback-echo "X$testring" 2>/dev/null` \ - = "XX$testring" && - new_result=`expr "X$testring" : ".*" 2>&1` && - lt_cv_sys_max_cmd_len=$new_result && - test $i != 17 # 1/2 MB should be enough - do - i=`expr $i + 1` - testring=$testring$testring - done - testring= - # add a significant safety factor because C++ compilers can tack on massive amounts - # of additional arguments before passing them to the linker. 1/4 should be good. - len=`expr $lt_cv_sys_max_cmd_len \/ 4` - lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len - $len` -fi -echo "$progname:@lineno@: result: $lt_cv_sys_max_cmd_len" 1>&5 -echo "${ac_t}$lt_cv_sys_max_cmd_len" 1>&6 - -if test -n $lt_cv_sys_max_cmd_len ; then - max_cmd_len=$lt_cv_sys_max_cmd_len -else - max_cmd_len=none -fi - -# Check to see if options -o and -c are simultaneously supported by compiler -echo $ac_n "checking if $compiler supports -c -o file.$objext... $ac_c" 1>&6 -if test "${lt_cv_compiler_c_o+set}" = set; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - $rm -r conftest 2>/dev/null - mkdir conftest - cd conftest - $rm conftest* - echo $lt_simple_compile_test_code > conftest.$ac_ext - mkdir out - # According to Tom Tromey, Ian Lance Taylor reported there are C compilers - # that will create temporary files in the current directory regardless of - # the output directory. Thus, making CWD read-only will cause this test - # to fail, enabling locking or at least warning the user not to do parallel - # builds. - chmod -w . - save_CFLAGS="$CFLAGS" - CFLAGS="$CFLAGS -o out/conftest2.$objext" - echo "$progname:833: checking if $compiler supports -c -o file.$objext" >&5 - if { (eval echo $progname:834: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>out/conftest.err; } && test -s out/conftest2.$objext; then - - # The compiler can only warn and ignore the option if not recognized - # So say no if there are warnings - if test -s out/conftest.err; then - lt_cv_compiler_c_o=no - else - lt_cv_compiler_c_o=yes - fi - else - # Append any errors to the config.log. - cat out/conftest.err 1>&5 - lt_cv_compiler_c_o=no - fi - CFLAGS="$save_CFLAGS" - chmod u+w . - $rm conftest* out/* - rmdir out - cd .. - rmdir conftest - $rm -r conftest 2>/dev/null -fi -compiler_c_o=$lt_cv_compiler_c_o -echo "${ac_t}$compiler_c_o" 1>&6 - -# Check to see if we can do hard links to lock some files if needed -hard_links="nottested" -if test "$compiler_c_o" = no && test "$need_locks" != no; then - # do not overwrite the value of need_locks provided by the user - echo $ac_n "checking if we can lock with hard links... $ac_c" 1>&6 - hard_links=yes - $rm conftest* - ln conftest.a conftest.b 2>/dev/null && hard_links=no - touch conftest.a - ln conftest.a conftest.b 2>&5 || hard_links=no - ln conftest.a conftest.b 2>/dev/null && hard_links=no - echo "$ac_t$hard_links" 1>&6 - $rm conftest* - if test "$hard_links" = no; then - echo "*** WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2 - need_locks=warn - fi -else - need_locks=no -fi - -if test "$with_gcc" = yes; then - # Check to see if options -fno-rtti -fno-exceptions are supported by compiler - echo $ac_n "checking if $compiler supports -fno-rtti -fno-exceptions ... $ac_c" 1>&6 - $rm conftest* - echo $lt_simple_compile_test_code > conftest.$ac_ext - save_CFLAGS="$CFLAGS" - CFLAGS="$CFLAGS -fno-rtti -fno-exceptions -c conftest.$ac_ext" - echo "$progname:887: checking if $compiler supports -fno-rtti -fno-exceptions" >&5 - if { (eval echo $progname:888: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>conftest.err; } && test -s conftest.$objext; then - - # The compiler can only warn and ignore the option if not recognized - # So say no if there are warnings - if test -s conftest.err; then - echo "$ac_t"no 1>&6 - compiler_rtti_exceptions=no - else - echo "$ac_t"yes 1>&6 - compiler_rtti_exceptions=yes - fi - else - # Append any errors to the config.log. - cat conftest.err 1>&5 - compiler_rtti_exceptions=no - echo "$ac_t"no 1>&6 - fi - CFLAGS="$save_CFLAGS" - $rm conftest* - - if test "$compiler_rtti_exceptions" = "yes"; then - no_builtin_flag=' -fno-builtin -fno-rtti -fno-exceptions' - else - no_builtin_flag=' -fno-builtin' - fi - -fi - -# See if the linker supports building shared libraries. -echo $ac_n "checking whether the linker ($LD) supports shared libraries... $ac_c" 1>&6 - -echo "$ac_t$ld_shlibs" 1>&6 -test "$ld_shlibs" = no && can_build_shared=no - -# Check hardcoding attributes. -echo $ac_n "checking how to hardcode library paths into programs... $ac_c" 1>&6 -hardcode_action= -if test -n "$hardcode_libdir_flag_spec" || \ - test -n "$runpath_var"; then - - # We can hardcode non-existant directories. - if test "$hardcode_direct" != no && - # If the only mechanism to avoid hardcoding is shlibpath_var, we - # have to relink, otherwise we might link with an installed library - # when we should be linking with a yet-to-be-installed one - ## test "$hardcode_shlibpath_var" != no && - test "$hardcode_minus_L" != no; then - # Linking always hardcodes the temporary library directory. - hardcode_action=relink - else - # We can link without hardcoding, and we can hardcode nonexisting dirs. - hardcode_action=immediate - fi -else - # We cannot hardcode anything, or else we can only hardcode existing - # directories. - hardcode_action=unsupported -fi -echo "$ac_t$hardcode_action" 1>&6 - -echo $ac_n "checking whether stripping libraries is possible... $ac_c" 1>&6 -if test -n "$STRIP" && $STRIP -V 2>&1 | grep "GNU strip" >/dev/null; then - test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" - test -z "$striplib" && striplib="$STRIP --strip-unneeded" - echo "${ac_t}yes" 1>&6 -else - echo "${ac_t}no" 1>&6 -fi - -case $reload_flag in -"" | " "*) ;; -*) reload_flag=" $reload_flag" ;; -esac -reload_cmds='$LD$reload_flag -o $output$reload_objs' -test -z "$deplibs_check_method" && deplibs_check_method=unknown - -# PORTME Fill in your ld.so characteristics -library_names_spec= -libname_spec='lib$name' -soname_spec= -postinstall_cmds= -postuninstall_cmds= -finish_cmds= -finish_eval= -shlibpath_var= -shlibpath_overrides_runpath=unknown -version_type=none -dynamic_linker="$host_os ld.so" -sys_lib_dlsearch_path_spec="/lib /usr/lib" -sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" - -echo $ac_n "checking dynamic linker characteristics... $ac_c" 1>&6 -case $host_os in -aix3*) - version_type=linux - library_names_spec='${libname}${release}.so$versuffix $libname.a' - shlibpath_var=LIBPATH - - # AIX 3 has no versioning support, so we append a major version to the name. - soname_spec='${libname}${release}.so$major' - ;; - -aix4* | aix5*) - version_type=linux - if test "$host_cpu" = ia64; then - # AIX 5 supports IA64 - library_names_spec='${libname}${release}.so$versuffix ${libname}${release}.so$major $libname.so' - shlibpath_var=LD_LIBRARY_PATH - else - # AIX (on Power*) has no versioning support, so currently we can not hardcode correct - # soname into executable. Probably we can add versioning support to - # collect2, so additional links can be useful in future. - # We preserve .a as extension for shared libraries though AIX4.2 - # and later linker supports .so - if test "$aix_use_runtimelinking" = yes; then - # If using run time linking (on AIX 4.2 or later) use lib<name>.so instead of - # lib<name>.a to let people know that these are not typical AIX shared libraries. - library_names_spec='${libname}${release}.so$versuffix ${libname}${release}.so$major $libname.so' - else - # We preserve .a as extension for shared libraries though AIX4.2 - # and later when we are not doing run time linking. - library_names_spec='${libname}${release}.a $libname.a' - soname_spec='${libname}${release}.so$major' - fi - # If we're using GNU nm, then we don't want the "-C" option. - # -C means demangle to AIX nm, but means don't demangle with GNU nm - if $NM -V 2>&1 | egrep '(GNU)' > /dev/null; then - export_symbols_cmds='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' - else - export_symbols_cmds='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' - fi - shlibpath_var=LIBPATH - deplibs_check_method=pass_all - case $host_os in - aix4 | aix4.[01] | aix4.[01].*) - if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' - echo ' yes ' - echo '#endif'; } | ${CC} -E - | grep yes > /dev/null; then - : - else - # With GCC up to 2.95.x, collect2 would create an import file - # for dependence libraries. The import file would start with - # the line `#! .'. This would cause the generated library to - # depend on `.', always an invalid library. This was fixed in - # development snapshots of GCC prior to 3.0. - can_build_shared=no - fi - ;; - esac - fi - ;; - -amigaos*) - library_names_spec='$libname.ixlibrary $libname.a' - # Create ${libname}_ixlibrary.a entries in /sys/libs. - finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`$echo "X$lib" | $Xsed -e '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $rm /sys/libs/${libname}_ixlibrary.a; $show "(cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a)"; (cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a) || exit 1; done' - ;; - -beos*) - library_names_spec='${libname}.so' - dynamic_linker="$host_os ld.so" - shlibpath_var=LIBRARY_PATH - lt_cv_dlopen="load_add_on" - lt_cv_dlopen_libs= - lt_cv_dlopen_self=yes - ;; - -bsdi4*) - version_type=linux - need_version=no - library_names_spec='${libname}${release}.so$versuffix ${libname}${release}.so$major $libname.so' - soname_spec='${libname}${release}.so$major' - finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' - shlibpath_var=LD_LIBRARY_PATH - sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" - sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" - export_dynamic_flag_spec=-rdynamic - # the default ld.so.conf also contains /usr/contrib/lib and - # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow - # libtool to hard-code these into programs - ;; - -cygwin* | mingw* | pw32*) - version_type=windows - need_version=no - need_lib_prefix=no - case $with_gcc,$host_os in - yes,cygwin*) - library_names_spec='$libname.dll.a' - soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | [sed -e 's/[.]/-/g']`${versuffix}.dll' - postinstall_cmds='dlpath=`bash 2>&1 -c '\''. $dir/${file}i; echo \$dlname'\''`~ - dldir=$destdir/`dirname \$dlpath`~ - test -d \$dldir || mkdir -p \$dldir~ - $install_prog .libs/$dlname \$dldir/$dlname' - postuninstall_cmds='dldll=`bash 2>&1 -c '\''. $file; echo \$dlname'\''`~ - dlpath=$dir/\$dldll; $rm \$dlpath' - ;; - yes,mingw*) - library_names_spec='${libname}`echo ${release} | sed -e 's/[.]/-/g'`${versuffix}.dll' - sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | sed -e "s/^libraries://" -e "s/;/ /g"` - ;; - yes,pw32*) - library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | sed -e 's/[.]/-/g'`${versuffix}.dll' -;; - *) - library_names_spec='${libname}`echo ${release} | sed -e 's/[.]/-/g'`${versuffix}.dll $libname.lib' - ;; - esac - dynamic_linker='Win32 ld.exe' - # FIXME: first we should search . and the directory the executable is in - shlibpath_var=PATH - lt_cv_dlopen="LoadLibrary" - lt_cv_dlopen_libs= - ;; - -darwin* | rhapsody*) - dynamic_linker="$host_os dyld" - version_type=darwin - need_lib_prefix=no - need_version=no - library_names_spec='${libname}${release}${versuffix}.`test .$module = .yes && echo so || echo dylib` ${libname}${release}${major}.$`test .$module = .yes && echo so || echo dylib` ${libname}.`test .$module = .yes && echo so || echo dylib`' - soname_spec='${libname}${release}${major}.`test .$module = .yes && echo so || echo dylib`' - shlibpath_overrides_runpath=yes - shlibpath_var=DYLD_LIBRARY_PATH - ;; - -freebsd1*) - dynamic_linker=no - ;; - -freebsd*) - objformat=`test -x /usr/bin/objformat && /usr/bin/objformat || echo aout` - version_type=freebsd-$objformat - case $version_type in - freebsd-elf*) - library_names_spec='${libname}${release}.so$versuffix ${libname}${release}.so $libname.so' - need_version=no - need_lc=no - need_lib_prefix=no - ;; - freebsd-*) - library_names_spec='${libname}${release}.so$versuffix $libname.so$versuffix' - need_version=yes - ;; - esac - shlibpath_var=LD_LIBRARY_PATH - case $host_os in - freebsd2*) - shlibpath_overrides_runpath=yes - ;; - *) - shlibpath_overrides_runpath=no - hardcode_into_libs=yes - ;; - esac - ;; - -gnu*) - version_type=linux - need_lib_prefix=no - need_version=no - library_names_spec='${libname}${release}.so$versuffix ${libname}${release}.so${major} ${libname}.so' - soname_spec='${libname}${release}.so$major' - shlibpath_var=LD_LIBRARY_PATH - hardcode_into_libs=yes - ;; - -hpux9* | hpux10* | hpux11*) - # Give a soname corresponding to the major version so that dld.sl refuses to - # link against other versions. - dynamic_linker="$host_os dld.sl" - version_type=sunos - need_lib_prefix=no - need_version=no - shlibpath_var=SHLIB_PATH - shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH - library_names_spec='${libname}${release}.sl$versuffix ${libname}${release}.sl$major $libname.sl' - soname_spec='${libname}${release}.sl$major' - # HP-UX runs *really* slowly unless shared libraries are mode 555. - postinstall_cmds='chmod 555 $lib' - ;; - -irix5* | irix6*) - version_type=irix - need_lib_prefix=no - need_version=no - soname_spec='${libname}${release}.so$major' - library_names_spec='${libname}${release}.so$versuffix ${libname}${release}.so$major ${libname}${release}.so $libname.so' - case $host_os in - irix5*) - libsuff= shlibsuff= - ;; - *) - case $LD in # libtool.m4 will add one of these switches to LD - *-32|*"-32 ") libsuff= shlibsuff= libmagic=32-bit;; - *-n32|*"-n32 ") libsuff=32 shlibsuff=N32 libmagic=N32;; - *-64|*"-64 ") libsuff=64 shlibsuff=64 libmagic=64-bit;; - *) libsuff= shlibsuff= libmagic=never-match;; - esac - ;; - esac - shlibpath_var=LD_LIBRARY${shlibsuff}_PATH - shlibpath_overrides_runpath=no - sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" - sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" - ;; - -# No shared lib support for Linux oldld, aout, or coff. -linux-gnuoldld* | linux-gnuaout* | linux-gnucoff*) - dynamic_linker=no - ;; - -# This must be Linux ELF. -linux-gnu*) - version_type=linux - need_lib_prefix=no - need_version=no - library_names_spec='${libname}${release}.so$versuffix ${libname}${release}.so$major $libname.so' - soname_spec='${libname}${release}.so$major' - finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' - shlibpath_var=LD_LIBRARY_PATH - shlibpath_overrides_runpath=no - # This implies no fast_install, which is unacceptable. - # Some rework will be needed to allow for fast_install - # before this can be enabled. - hardcode_into_libs=yes - - # We used to test for /lib/ld.so.1 and disable shared libraries on - # powerpc, because MkLinux only supported shared libraries with the - # GNU dynamic linker. Since this was broken with cross compilers, - # most powerpc-linux boxes support dynamic linking these days and - # people can always --disable-shared, the test was removed, and we - # assume the GNU/Linux dynamic linker is in use. - dynamic_linker='GNU/Linux ld.so' - ;; - -netbsd*) - need_lib_prefix=no - need_version=no - version_type=sunos - if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then - library_names_spec='${libname}${release}.so$versuffix ${libname}.so$versuffix' - finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' - dynamic_linker='NetBSD (a.out) ld.so' - else - library_names_spec='${libname}${release}.so$versuffix ${libname}${release}.so$major ${libname}${release}.so ${libname}.so' - soname_spec='${libname}${release}.so$major' - dynamic_linker='NetBSD ld.elf_so' - fi - shlibpath_var=LD_LIBRARY_PATH - shlibpath_overrides_runpath=yes - hardcode_into_libs=yes - ;; - -newsos6) - version_type=linux - library_names_spec='${libname}${release}.so$versuffix ${libname}${release}.so$major $libname.so' - shlibpath_var=LD_LIBRARY_PATH - shlibpath_overrides_runpath=yes - ;; - -openbsd*) - version_type=sunos - if test "$with_gnu_ld" = yes; then - need_lib_prefix=no - need_version=no - fi - library_names_spec='${libname}${release}.so$versuffix ${libname}.so$versuffix' - finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' - shlibpath_var=LD_LIBRARY_PATH - shlibpath_overrides_runpath=yes - deplib_check_method=pass_all - sys_lib_dlsearch_path_spec='/usr/lib /usr/local/lib /usr/X11R6/lib' - ;; - -os2*) - libname_spec='$name' - need_lib_prefix=no - library_names_spec='$libname.dll $libname.a' - dynamic_linker='OS/2 ld.exe' - shlibpath_var=LIBPATH - ;; - -osf3* | osf4* | osf5*) - version_type=osf - need_version=no - soname_spec='${libname}${release}.so' - library_names_spec='${libname}${release}.so$versuffix ${libname}${release}.so $libname.so' - shlibpath_var=LD_LIBRARY_PATH - sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" - sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" - ;; - -sco3.2v5*) - version_type=osf - soname_spec='${libname}${release}.so$major' - library_names_spec='${libname}${release}.so$versuffix ${libname}${release}.so$major $libname.so' - shlibpath_var=LD_LIBRARY_PATH - ;; - -solaris*) - version_type=linux - need_lib_prefix=no - need_version=no - library_names_spec='${libname}${release}.so$versuffix ${libname}${release}.so$major $libname.so' - soname_spec='${libname}${release}.so$major' - shlibpath_var=LD_LIBRARY_PATH - shlibpath_overrides_runpath=yes - hardcode_into_libs=yes - # ldd complains unless libraries are executable - postinstall_cmds='chmod +x $lib' - ;; - -sunos4*) - version_type=sunos - library_names_spec='${libname}${release}.so$versuffix ${libname}.so$versuffix' - finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' - shlibpath_var=LD_LIBRARY_PATH - shlibpath_overrides_runpath=yes - if test "$with_gnu_ld" = yes; then - need_lib_prefix=no - fi - need_version=yes - ;; - -sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) - version_type=linux - library_names_spec='${libname}${release}.so$versuffix ${libname}${release}.so$major $libname.so' - soname_spec='${libname}${release}.so$major' - shlibpath_var=LD_LIBRARY_PATH - case $host_vendor in - motorola) - need_lib_prefix=no - need_version=no - shlibpath_overrides_runpath=no - sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' - ;; - esac - ;; - -uts4*) - version_type=linux - library_names_spec='${libname}${release}.so$versuffix ${libname}${release}.so$major $libname.so' - soname_spec='${libname}${release}.so$major' - shlibpath_var=LD_LIBRARY_PATH - ;; - -dgux*) - version_type=linux - need_lib_prefix=no - need_version=no - library_names_spec='${libname}${release}.so$versuffix ${libname}${release}.so$major $libname.so' - soname_spec='${libname}${release}.so$major' - shlibpath_var=LD_LIBRARY_PATH - ;; - -sysv4*MP*) - if test -d /usr/nec ;then - version_type=linux - library_names_spec='$libname.so.$versuffix $libname.so.$major $libname.so' - soname_spec='$libname.so.$major' - shlibpath_var=LD_LIBRARY_PATH - fi - ;; - -*) - dynamic_linker=no - ;; -esac -echo "$ac_t$dynamic_linker" 1>&6 -test "$dynamic_linker" = no && can_build_shared=no - -# Check for command to grab the raw symbol name followed by C symbol from nm. -echo $ac_n "checking command to parse $NM output... $ac_c" 1>&6 - -# These are sane defaults that work on at least a few old systems. -# [They come from Ultrix. What could be older than Ultrix?!! ;)] - -# Character class describing NM global symbol codes. -symcode='[BCDEGRST]' - -# Regexp to match symbols that can be accessed directly from C. -sympat='\([_A-Za-z][_A-Za-z0-9]*\)' - -# Transform the above into a raw symbol and a C symbol. -symxfrm='\1 \2\3 \3' - -# Transform an extracted symbol line into a proper C declaration -global_symbol_to_cdecl="sed -n -e 's/^. .* \(.*\)$/extern char \1;/p'" - -# Define system-specific variables. -case $host_os in -aix*) - symcode='[BCDT]' - ;; -cygwin* | mingw* | pw32*) - symcode='[ABCDGISTW]' - ;; -hpux*) # Its linker distinguishes data from code symbols - global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern char \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" - ;; -irix*) - symcode='[BCDEGRST]' - ;; -solaris* | sysv5*) - symcode='[BDT]' - ;; -sysv4) - symcode='[DFNSTU]' - ;; -esac - -# Handle CRLF in mingw tool chain -opt_cr= -case $host_os in -mingw*) - opt_cr=`echo 'x\{0,1\}' | tr x '\015'` # option cr in regexp - ;; -esac - -# If we're using GNU nm, then use its standard symbol codes. -if $NM -V 2>&1 | egrep '(GNU|with BFD)' > /dev/null; then - symcode='[ABCDGISTW]' -fi - -# Try without a prefix undercore, then with it. -for ac_symprfx in "" "_"; do - - # Write the raw and C identifiers. - global_symbol_pipe="sed -n -e 's/^.*[ ]\($symcode$symcode*\)[ ][ ]*\($ac_symprfx\)$sympat$opt_cr$/$symxfrm/p'" - - # Check to see that the pipe works correctly. - pipe_works=no - $rm conftest* - cat > conftest.$ac_ext <<EOF -#ifdef __cplusplus -extern "C" { -#endif -char nm_test_var; -void nm_test_func(){} -#ifdef __cplusplus -} -#endif -int main(){nm_test_var='a';nm_test_func();return(0);} -EOF - - echo "$progname:1431: checking if global_symbol_pipe works" >&5 - if { (eval echo $progname:1432: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; } && test -s conftest.$objext; then - # Now try to grab the symbols. - nlist=conftest.nm - if { echo "$progname:1435: eval \"$NM conftest.$objext | $global_symbol_pipe > $nlist\"" >&5; eval "$NM conftest.$objext | $global_symbol_pipe > $nlist 2>&5"; } && test -s "$nlist"; then - - # Try sorting and uniquifying the output. - if sort "$nlist" | uniq > "$nlist"T; then - mv -f "$nlist"T "$nlist" - else - rm -f "$nlist"T - fi - - # Make sure that we snagged all the symbols we need. - if egrep ' nm_test_var$' "$nlist" >/dev/null; then - if egrep ' nm_test_func$' "$nlist" >/dev/null; then - cat <<EOF > conftest.$ac_ext -#ifdef __cplusplus -extern "C" { -#endif - -EOF - # Now generate the symbol file. - eval "$global_symbol_to_cdecl"' < "$nlist" >> conftest.$ac_ext' - - cat <<EOF >> conftest.$ac_ext -#if defined (__STDC__) && __STDC__ -# define lt_ptr_t void * -#else -# define lt_ptr_t char * -# define const -#endif - -/* The mapping between symbol names and symbols. */ -const struct { - const char *name; - lt_ptr_t address; -} -lt_preloaded_symbols[] = -{ -EOF - sed "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (lt_ptr_t) \&\2},/" < "$nlist" >> conftest.$ac_ext - cat <<\EOF >> conftest.$ac_ext - {0, (lt_ptr_t) 0} -}; - -#ifdef __cplusplus -} -#endif -EOF - # Now try linking the two files. - mv conftest.$objext conftstm.$objext - save_LIBS="$LIBS" - save_CFLAGS="$CFLAGS" - LIBS="conftstm.$objext" - CFLAGS="$CFLAGS$no_builtin_flag" - if { (eval echo $progname:1487: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then - pipe_works=yes - else - echo "$progname: failed program was:" >&5 - cat conftest.$ac_ext >&5 - fi - LIBS="$save_LIBS" - else - echo "cannot find nm_test_func in $nlist" >&5 - fi - else - echo "cannot find nm_test_var in $nlist" >&5 - fi - else - echo "cannot run $global_symbol_pipe" >&5 - fi - else - echo "$progname: failed program was:" >&5 - cat conftest.$ac_ext >&5 - fi - $rm conftest* conftst* - - # Do not use the global_symbol_pipe unless it works. - if test "$pipe_works" = yes; then - break - else - global_symbol_pipe= - fi -done -if test "$pipe_works" = yes; then - echo "${ac_t}ok" 1>&6 -else - echo "${ac_t}failed" 1>&6 -fi - -if test -z "$global_symbol_pipe"; then - global_symbol_to_cdecl= -fi - -# Report the final consequences. -echo "checking if libtool supports shared libraries... $can_build_shared" 1>&6 - -# Only try to build win32 dlls if AC_LIBTOOL_WIN32_DLL was used in -# configure.in, otherwise build static only libraries. -case $host_os in -cygwin* | mingw* | pw32* | os2*) - if test x$can_build_shared = xyes; then - test x$enable_win32_dll = xno && can_build_shared=no - echo "checking if package supports dlls... $can_build_shared" 1>&6 - fi -;; -esac - -echo $ac_n "checking whether to build shared libraries... $ac_c" 1>&6 -test "$can_build_shared" = "no" && enable_shared=no - -# On AIX, shared libraries and static libraries use the same namespace, and -# are all built from PIC. -case $host_os in -aix3*) - test "$enable_shared" = yes && enable_static=no - if test -n "$RANLIB"; then - archive_cmds="$archive_cmds~\$RANLIB \$lib" - postinstall_cmds='$RANLIB $lib' - fi - ;; - -aix4*) - test "$enable_shared" = yes && enable_static=no - ;; -esac - -echo "$ac_t$enable_shared" 1>&6 - -# Make sure either enable_shared or enable_static is yes. -test "$enable_shared" = yes || enable_static=yes - -echo "checking whether to build static libraries... $enable_static" 1>&6 - -if test "$hardcode_action" = relink; then - # Fast installation is not supported - enable_fast_install=no -elif test "$shlibpath_overrides_runpath" = yes || - test "$enable_shared" = no; then - # Fast installation is not necessary - enable_fast_install=needless -fi - -variables_saved_for_relink="PATH $shlibpath_var $runpath_var" -if test "$with_gcc" = yes; then - variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" -fi - -# Check whether we must set pic_mode to default -test -z "$pic_flag" && pic_mode=default - -if test "x$enable_dlopen" != xyes; then - enable_dlopen=unknown - enable_dlopen_self=unknown - enable_dlopen_self_static=unknown -else -if test "X${lt_cv_dlopen+set}" != Xset; then - lt_cv_dlopen=no lt_cv_dlopen_libs= -echo $ac_n "checking for dlopen in -ldl""... $ac_c" 1>&6 -echo "$progname:1591: checking for dlopen in -ldl" >&5 -if test "X${ac_cv_lib_dl_dlopen+set}" = Xset; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - ac_save_LIBS="$LIBS" -LIBS="-ldl $LIBS" -cat > conftest.$ac_ext <<EOF -#line 1598 "ltconfig" -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char dlopen(); - -int main() { -dlopen() -; return 0; } -EOF -if { (eval echo $progname:1611: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - rm -rf conftest* - ac_cv_lib_dl_dlopen=yes -else - echo "$progname: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_lib_dl_dlopen=no -fi -rm -f conftest* -LIBS="$ac_save_LIBS" - -fi -if test "X$ac_cv_lib_dl_dlopen" = Xyes; then - echo "$ac_t""yes" 1>&6 - lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl" -else - echo "$ac_t""no" 1>&6 -echo $ac_n "checking for dlopen""... $ac_c" 1>&6 -echo "$progname:1630: checking for dlopen" >&5 -if test "X${ac_cv_func_dlopen+set}" = Xset; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1635 "ltconfig" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char dlopen(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char dlopen(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_dlopen) || defined (__stub___dlopen) -choke me -#else -dlopen(); -#endif - -; return 0; } -EOF -if { (eval echo $progname:1660: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - rm -rf conftest* - ac_cv_func_dlopen=yes -else - echo "$progname: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_func_dlopen=no -fi -rm -f conftest* -fi -if test "X$ac_cv_func_dlopen" = Xyes; then - echo "$ac_t""yes" 1>&6 - lt_cv_dlopen="dlopen" -else - echo "$ac_t""no" 1>&6 -echo $ac_n "checking for dlopen in -lsvld""... $ac_c" 1>&6 -echo "$progname:1677: checking for dlopen in -lsvld" >&5 -if test "X${ac_cv_lib_svld_dlopen+set}" = Xset; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - ac_save_LIBS="$LIBS" -LIBS="-lsvld $LIBS" -cat > conftest.$ac_ext <<EOF -#line 1684 "ltconfig" -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char dlopen(); - -int main() { -dlopen() -; return 0; } -EOF -if { (eval echo $progname:1697: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - rm -rf conftest* - ac_cv_lib_svld_dlopen=yes -else - echo "$progname: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_lib_svld_dlopen=no -fi -rm -f conftest* -LIBS="$ac_save_LIBS" - -fi -if test "X$ac_cv_lib_svld_dlopen" = Xyes; then - echo "$ac_t""yes" 1>&6 - lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld" -else - echo "$ac_t""no" 1>&6 -echo $ac_n "checking for dld_link in -ldld""... $ac_c" 1>&6 -echo "$progname:1716: checking for dld_link in -ldld" >&5 -if test "X${ac_cv_lib_dld_dld_link+set}" = Xset; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - ac_save_LIBS="$LIBS" -LIBS="-ldld $LIBS" -cat > conftest.$ac_ext <<EOF -#line 1723 "ltconfig" -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char dld_link(); - -int main() { -dld_link() -; return 0; } -EOF -if { (eval echo $progname:1736: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - rm -rf conftest* - ac_cv_lib_dld_dld_link=yes -else - echo "$progname: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_lib_dld_dld_link=no -fi -rm -f conftest* -LIBS="$ac_save_LIBS" - -fi -if test "X$ac_cv_lib_dld_dld_link" = Xyes; then - echo "$ac_t""yes" 1>&6 - lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-ldld" -else - echo "$ac_t""no" 1>&6 -echo $ac_n "checking for shl_load""... $ac_c" 1>&6 -echo "$progname:1755: checking for shl_load" >&5 -if test "X${ac_cv_func_shl_load+set}" = Xset; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1760 "ltconfig" -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char shl_load(); below. */ -#include <assert.h> -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char shl_load(); - -int main() { - -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_shl_load) || defined (__stub___shl_load) -choke me -#else -shl_load(); -#endif - -; return 0; } -EOF -if { (eval echo $progname:1785: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - rm -rf conftest* - ac_cv_func_shl_load=yes -else - echo "$progname: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_func_shl_load=no -fi -rm -f conftest* -fi - -if test "X$ac_cv_func_shl_load" = Xyes; then - echo "$ac_t""yes" 1>&6 - lt_cv_dlopen="shl_load" -else - echo "$ac_t""no" 1>&6 -echo $ac_n "checking for shl_load in -ldld""... $ac_c" 1>&6 -echo "$progname:1803: checking for shl_load in -ldld" >&5 -if test "X${ac_cv_lib_dld_shl_load+set}" = Xset; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - ac_save_LIBS="$LIBS" -LIBS="-ldld $LIBS" -cat > conftest.$ac_ext <<EOF -#line 1810 "ltconfig" -#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 - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char shl_load(); - -int main() { -shl_load() -; return 0; } -EOF -if { (eval echo $progname:1824: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then - rm -rf conftest* - ac_cv_lib_dld_shl_load=yes -else - echo "$progname: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - ac_cv_lib_dld_shl_load=no -fi -rm -f conftest* -LIBS="$ac_save_LIBS" - -fi -if test "X$ac_cv_lib_dld_shl_load" = Xyes; then - echo "$ac_t""yes" 1>&6 - lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-ldld" -else - echo "$ac_t""no" 1>&6 -fi - - -fi - - -fi - - -fi - - -fi - -fi - -fi - - if test "x$lt_cv_dlopen" != xno; then - enable_dlopen=yes - else - enable_dlopen=no - fi - - case $lt_cv_dlopen in - dlopen) -for ac_hdr in dlfcn.h; do -ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` -echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6 -echo "$progname:1871: checking for $ac_hdr" >&5 -if eval "test \"`echo 'X$''{'ac_cv_header_$ac_safe'+set}'`\" = Xset"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - cat > conftest.$ac_ext <<EOF -#line 1876 "ltconfig" -#include <$ac_hdr> -int fnord = 0; -int main () { return(0); } -EOF -ac_try="$ac_compile >/dev/null 2>conftest.out" -{ (eval echo $progname:1882: \"$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* - eval "ac_cv_header_$ac_safe=yes" -else - echo "$ac_err" >&5 - echo "$progname: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_header_$ac_safe=no" -fi -rm -f conftest* -fi -if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then - echo "$ac_t""yes" 1>&6 -else - echo "$ac_t""no" 1>&6 -fi -done - - if test "x$ac_cv_header_dlfcn_h" = xyes; then - CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" - fi - eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" - LIBS="$lt_cv_dlopen_libs $LIBS" - - echo $ac_n "checking whether a program can dlopen itself""... $ac_c" 1>&6 -echo "$progname:1910: checking whether a program can dlopen itself" >&5 -if test "X${lt_cv_dlopen_self+set}" = Xset; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test "$cross_compiling" = yes; then - lt_cv_dlopen_self=cross - else - cat > conftest.$ac_ext <<EOF -#line 1918 "ltconfig" - -#if HAVE_DLFCN_H -#include <dlfcn.h> -#endif - -#include <stdio.h> - -#ifdef RTLD_GLOBAL -# define LTDL_GLOBAL RTLD_GLOBAL -#else -# ifdef DL_GLOBAL -# define LTDL_GLOBAL DL_GLOBAL -# else -# define LTDL_GLOBAL 0 -# endif -#endif - -/* We may have to define LTDL_LAZY_OR_NOW in the command line if we - find out it does not work in some platform. */ -#ifndef LTDL_LAZY_OR_NOW -# ifdef RTLD_LAZY -# define LTDL_LAZY_OR_NOW RTLD_LAZY -# else -# ifdef DL_LAZY -# define LTDL_LAZY_OR_NOW DL_LAZY -# else -# ifdef RTLD_NOW -# define LTDL_LAZY_OR_NOW RTLD_NOW -# else -# ifdef DL_NOW -# define LTDL_LAZY_OR_NOW DL_NOW -# else -# define LTDL_LAZY_OR_NOW 0 -# endif -# endif -# endif -# endif -#endif - -void fnord() { int i=42; } -int main() { - void *self, *ptr1, *ptr2; self=dlopen(0,LTDL_GLOBAL|LTDL_LAZY_OR_NOW); - if(self) { ptr1=dlsym(self,"fnord"); ptr2=dlsym(self,"_fnord"); - if(ptr1 || ptr2) { dlclose(self); exit(0); } } exit(1); } - -EOF -if { (eval echo $progname:1965: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null -then - lt_cv_dlopen_self=yes -else - echo "$progname: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -fr conftest* - lt_cv_dlopen_self=no -fi -rm -fr conftest* -fi - -fi - -echo "$ac_t""$lt_cv_dlopen_self" 1>&6 - - if test "$lt_cv_dlopen_self" = yes; then - LDFLAGS="$LDFLAGS $link_static_flag" - echo $ac_n "checking whether a statically linked program can dlopen itself""... $ac_c" 1>&6 -echo "$progname:1984: checking whether a statically linked program can dlopen itself" >&5 -if test "X${lt_cv_dlopen_self_static+set}" = Xset; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - if test "$cross_compiling" = yes; then - lt_cv_dlopen_self_static=cross - else - cat > conftest.$ac_ext <<EOF -#line 1992 "ltconfig" - -#if HAVE_DLFCN_H -#include <dlfcn.h> -#endif - -#include <stdio.h> - -#ifdef RTLD_GLOBAL -# define LTDL_GLOBAL RTLD_GLOBAL -#else -# ifdef DL_GLOBAL -# define LTDL_GLOBAL DL_GLOBAL -# else -# define LTDL_GLOBAL 0 -# endif -#endif - -/* We may have to define LTDL_LAZY_OR_NOW in the command line if we - find out it does not work in some platform. */ -#ifndef LTDL_LAZY_OR_NOW -# ifdef RTLD_LAZY -# define LTDL_LAZY_OR_NOW RTLD_LAZY -# else -# ifdef DL_LAZY -# define LTDL_LAZY_OR_NOW DL_LAZY -# else -# ifdef RTLD_NOW -# define LTDL_LAZY_OR_NOW RTLD_NOW -# else -# ifdef DL_NOW -# define LTDL_LAZY_OR_NOW DL_NOW -# else -# define LTDL_LAZY_OR_NOW 0 -# endif -# endif -# endif -# endif -#endif - -void fnord() { int i=42; } -int main() { - void *self, *ptr1, *ptr2; self=dlopen(0,LTDL_GLOBAL|LTDL_LAZY_OR_NOW); - if(self) { ptr1=dlsym(self,"fnord"); ptr2=dlsym(self,"_fnord"); - if(ptr1 || ptr2) { dlclose(self); exit(0); } } exit(1); } - -EOF -if { (eval echo $progname:2039: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null -then - lt_cv_dlopen_self_static=yes -else - echo "$progname: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -fr conftest* - lt_cv_dlopen_self_static=no -fi -rm -fr conftest* -fi - -fi - -echo "$ac_t""$lt_cv_dlopen_self_static" 1>&6 -fi - ;; - esac - - case $lt_cv_dlopen_self in - yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; - *) enable_dlopen_self=unknown ;; - esac - - case $lt_cv_dlopen_self_static in - yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; - *) enable_dlopen_self_static=unknown ;; - esac -fi - -# Copy echo and quote the copy, instead of the original, because it is -# used later. -ltecho="$echo" -if test "X$ltecho" = "X$CONFIG_SHELL $0 --fallback-echo"; then - ltecho="$CONFIG_SHELL \$0 --fallback-echo" -fi -LTSHELL="$SHELL" - -LTCONFIG_VERSION="$VERSION" - -# Only quote variables if we're using ltmain.sh. -case $ltmain in -*.sh) - # Now quote all the things that may contain metacharacters. - for var in ltecho old_AR old_AR_FLAGS old_CC old_LTCC old_CFLAGS old_CPPFLAGS \ - old_MAGIC_CMD old_LD old_LDFLAGS old_LIBS \ - old_LN_S old_NM old_RANLIB old_STRIP \ - old_AS old_DLLTOOL old_OBJDUMP \ - old_OBJEXT old_EXEEXT old_reload_flag \ - old_deplibs_check_method old_file_magic_cmd \ - AR AR_FLAGS CC LTCC LD LN_S NM LTSHELL LTCONFIG_VERSION \ - reload_flag reload_cmds wl \ - pic_flag link_static_flag no_builtin_flag export_dynamic_flag_spec \ - thread_safe_flag_spec whole_archive_flag_spec libname_spec \ - library_names_spec soname_spec \ - RANLIB old_archive_cmds old_archive_from_new_cmds old_postinstall_cmds \ - old_postuninstall_cmds archive_cmds archive_expsym_cmds postinstall_cmds \ - postuninstall_cmds extract_expsyms_cmds old_archive_from_expsyms_cmds \ - predep_objects postdep_objects predeps postdeps compiler_lib_search_path \ - old_striplib striplib file_magic_cmd export_symbols_cmds \ - deplibs_check_method allow_undefined_flag no_undefined_flag \ - finish_cmds finish_eval global_symbol_pipe global_symbol_to_cdecl \ - hardcode_libdir_flag_spec hardcode_libdir_separator \ - sys_lib_search_path_spec sys_lib_dlsearch_path_spec \ - compiler_c_o need_locks exclude_expsyms include_expsyms; do - - case $var in - reload_cmds | old_archive_cmds | old_archive_from_new_cmds | \ - old_postinstall_cmds | old_postuninstall_cmds | \ - export_symbols_cmds | archive_cmds | archive_expsym_cmds | \ - extract_expsyms_cmds | old_archive_from_expsyms_cmds | \ - postinstall_cmds | postuninstall_cmds | \ - finish_cmds | sys_lib_search_path_spec | sys_lib_dlsearch_path_spec) - # Double-quote double-evaled strings. - eval "$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ### testsuite: skip nested quoting test - ;; - *) - eval "$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$sed_quote_subst\"\`\\\"" ### testsuite: skip nested quoting test - ;; - esac - done - - case $ltecho in - *'\$0 --fallback-echo"') - ltecho=`$echo "X$ltecho" | $Xsed -e 's/\\\\\\\$0 --fallback-echo"$/$0 --fallback-echo"/'` - ;; - esac - - if test -z "$tagname"; then - trap "$rm \"$ofile\"; exit 1" 1 2 15 - echo "creating $ofile" - $rm "$ofile" - cat <<EOF > "$ofile" -#! $SHELL - -# `$echo "$ofile" | sed 's%^.*/%%'` - Provide generalized library-building support services. -# Generated automatically by $PROGRAM (GNU $PACKAGE $VERSION$TIMESTAMP) -# NOTE: Changes made to this file will be lost: look at ltconfig or ltmain.sh. -# -# Copyright (C) 1996-2000 Free Software Foundation, Inc. -# Originally by Gordon Matzigkeit <gord@gnu.ai.mit.edu>, 1996 -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. -# -# As a special exception to the GNU General Public License, if you -# distribute this file as part of a program that contains a -# configuration script generated by Autoconf, you may include it under -# the same distribution terms that you use for the rest of that program. - -# Sed that helps us avoid accidentally triggering echo(1) options like -n. -Xsed="sed -e s/^X//" - -# The HP-UX ksh and POSIX shell print the target directory to stdout -# if CDPATH is set. -if test "X\${CDPATH+set}" = Xset; then CDPATH=:; export CDPATH; fi - -# The names of the tagged configurations supported by this script. -available_tags= - -### BEGIN LIBTOOL CONFIG -EOF - else - echo "appending configuration tag \"$tagname\" to $ofile" - echo "### BEGIN LIBTOOL TAG CONFIG: $tagname" >> "$ofile" - fi - cfgfile="$ofile" - ;; - -*) - # Double-quote the variables that need it (for aesthetics). - for var in old_AR old_AR_FLAGS old_CC old_LTCC old_CFLAGS old_CPPFLAGS \ - old_MAGIC_CMD old_LD old_LDFLAGS old_LIBS \ - old_LN_S old_NM old_RANLIB old_STRIP \ - old_AS old_DLLTOOL old_OBJDUMP \ - old_OBJEXT old_EXEEXT old_reload_flag \ - old_deplibs_check_method old_file_magic_cmd; do - eval "$var=\\\"\$var\\\"" - done - - # Just create a config file. - cfgfile="$ofile.cfg" - if test -z "$tagname"; then - trap "$rm \"$cfgfile\"; exit 1" 1 2 15 - echo "creating $cfgfile" - $rm "$cfgfile" - cat <<EOF > "$cfgfile" -# `$echo "$cfgfile" | sed 's%^.*/%%'` - Libtool configuration file. -# Generated automatically by $PROGRAM (GNU $PACKAGE $VERSION$TIMESTAMP) - -### BEGIN LIBTOOL CONFIG -EOF - else - echo "appending to $cfgfile" - echo "### BEGIN LIBTOOL TAG CONFIG: $tagname" >> "$ofile" - fi - ;; -esac - -cat <<EOF >> "$cfgfile" -# Libtool was configured as follows, on host `(hostname || uname -n) 2>/dev/null | sed 1q`: -# -# AR=$old_AR AR_FLAGS=$old_AR_FLAGS LTCC=$old_LTCC CC=$old_CC \\ -# CFLAGS=$old_CFLAGS CPPFLAGS=$old_CPPFLAGS \\ -# MAGIC_CMD=$old_MAGIC_CMD LD=$old_LD LDFLAGS=$old_LDFLAGS LIBS=$old_LIBS \\ -# LN_S=$old_LN_S NM=$old_NM RANLIB=$old_RANLIB STRIP=$old_STRIP \\ -# AS=$old_AS DLLTOOL=$old_DLLTOOL OBJDUMP=$old_OBJDUMP \\ -# objext=$old_OBJEXT exeext=$old_EXEEXT reload_flag=$old_reload_flag \\ -# deplibs_check_method=$old_deplibs_check_method \\ -# file_magic_cmd=$old_file_magic_cmd \\ -# $0$ltconfig_args -# -# Compiler and other test output produced by $progname, useful for -# debugging $progname, is in ./config.log if it exists. - -# The version of $progname that generated this script. -LTCONFIG_VERSION=$LTCONFIG_VERSION - -# Shell to use when invoking shell scripts. -SHELL=$LTSHELL - -# Whether or not to build shared libraries. -build_libtool_libs=$enable_shared - -# Whether or not to add -lc for building shared libraries. -build_libtool_need_lc=$need_lc - -# Whether or not to build static libraries. -build_old_libs=$enable_static - -# Whether or not to optimize for fast installation. -fast_install=$enable_fast_install - -# The host system. -host_alias=$host_alias -host=$host - -# An echo program that does not interpret backslashes. -echo=$ltecho - -# The archiver. -AR=$AR -AR_FLAGS=$AR_FLAGS - -# A C compiler. -LTCC=$LTCC - -# A language-specific compiler. -CC=$CC - -# Is the compiler the GNU C compiler? -with_gcc=$with_gcc - -# The linker used to build libraries. -LD=$LD - -# Whether we need hard or soft links. -LN_S=$LN_S - -# A BSD-compatible nm program. -NM=$NM - -# A symbol stripping program -STRIP=$STRIP - -# Used to examine libraries when file_magic_cmd begins "file" -MAGIC_CMD=$MAGIC_CMD - -# Used on cygwin: DLL creation program. -DLLTOOL="$DLLTOOL" - -# Used on cygwin: object dumper. -OBJDUMP="$OBJDUMP" - -# Used on cygwin: assembler. -AS="$AS" - -# The name of the directory that contains temporary libtool files. -objdir=$objdir - -# How to create reloadable object files. -reload_flag=$reload_flag -reload_cmds=$reload_cmds - -# How to pass a linker flag through the compiler. -wl=$wl - -# Object file suffix (normally "o"). -objext="$objext" - -# Old archive suffix (normally "a"). -libext="$libext" - -# Executable file suffix (normally ""). -exeext="$exeext" - -# Additional compiler flags for building library objects. -pic_flag=$pic_flag -pic_mode=$pic_mode - -# What is the maximum length of a command? -max_cmd_len=$max_cmd_len - -# Does compiler simultaneously support -c and -o options? -compiler_c_o=$compiler_c_o - -# Must we lock files when doing compilation ? -need_locks=$need_locks - -# Do we need the lib prefix for modules? -need_lib_prefix=$need_lib_prefix - -# Do we need a version for libraries? -need_version=$need_version - -# Whether dlopen is supported. -dlopen_support=$enable_dlopen - -# Whether dlopen of programs is supported. -dlopen_self=$enable_dlopen_self - -# Whether dlopen of statically linked programs is supported. -dlopen_self_static=$enable_dlopen_self_static - -# Compiler flag to prevent dynamic linking. -link_static_flag=$link_static_flag - -# Compiler flag to turn off builtin functions. -no_builtin_flag=$no_builtin_flag - -# Compiler flag to allow reflexive dlopens. -export_dynamic_flag_spec=$export_dynamic_flag_spec - -# Compiler flag to generate shared objects directly from archives. -whole_archive_flag_spec=$whole_archive_flag_spec - -# Compiler flag to generate thread-safe objects. -thread_safe_flag_spec=$thread_safe_flag_spec - -# Library versioning type. -version_type=$version_type - -# Format of library name prefix. -libname_spec=$libname_spec - -# List of archive names. First name is the real one, the rest are links. -# The last name is the one that the linker finds with -lNAME. -library_names_spec=$library_names_spec - -# The coded name of the library, if different from the real name. -soname_spec=$soname_spec - -# Commands used to build and install an old-style archive. -RANLIB=$RANLIB -old_archive_cmds=$old_archive_cmds -old_postinstall_cmds=$old_postinstall_cmds -old_postuninstall_cmds=$old_postuninstall_cmds - -# Create an old-style archive from a shared archive. -old_archive_from_new_cmds=$old_archive_from_new_cmds - -# Create a temporary old-style archive to link instead of a shared archive. -old_archive_from_expsyms_cmds=$old_archive_from_expsyms_cmds - -# Commands used to build and install a shared archive. -archive_cmds=$archive_cmds -archive_expsym_cmds=$archive_expsym_cmds -postinstall_cmds=$postinstall_cmds -postuninstall_cmds=$postuninstall_cmds - -# Commands to strip libraries. -old_striplib=$old_striplib -striplib=$striplib - -# Dependencies to place before the objects being linked to create a -# shared library. -predep_objects=$predep_objects - -# Dependencies to place after the objects being linked to create a -# shared library. -postdep_objects=$postdep_objects - -# Dependencies to place before the objects being linked to create a -# shared library. -predeps=$predeps - -# Dependencies to place after the objects being linked to create a -# shared library. -postdeps=$postdeps - -# The library search path used internally by the compiler when linking -# a shared library. -compiler_lib_search_path=$compiler_lib_search_path - -# Method to check whether dependent libraries are shared objects. -deplibs_check_method=$deplibs_check_method - -# Command to use when deplibs_check_method == file_magic. -file_magic_cmd=$file_magic_cmd - -# Flag that allows shared libraries with undefined symbols to be built. -allow_undefined_flag=$allow_undefined_flag - -# Flag that forces no undefined symbols. -no_undefined_flag=$no_undefined_flag - -# Commands used to finish a libtool library installation in a directory. -finish_cmds=$finish_cmds - -# Same as above, but a single script fragment to be evaled but not shown. -finish_eval=$finish_eval - -# Take the output of nm and produce a listing of raw symbols and C names. -global_symbol_pipe=$global_symbol_pipe - -# Transform the output of nm in a proper C declaration -global_symbol_to_cdecl=$global_symbol_to_cdecl - -# This is the shared library runtime path variable. -runpath_var=$runpath_var - -# This is the shared library path variable. -shlibpath_var=$shlibpath_var - -# Is shlibpath searched before the hard-coded library search path? -shlibpath_overrides_runpath=$shlibpath_overrides_runpath - -# How to hardcode a shared library path into an executable. -hardcode_action=$hardcode_action - -# Whether we should hardcode library paths into libraries. -hardcode_into_libs=$hardcode_into_libs - -# Flag to hardcode \$libdir into a binary during linking. -# This must work even if \$libdir does not exist. -hardcode_libdir_flag_spec=$hardcode_libdir_flag_spec - -# Whether we need a single -rpath flag with a separated argument. -hardcode_libdir_separator=$hardcode_libdir_separator - -# Set to yes if using DIR/libNAME.so during linking hardcodes DIR into the -# resulting binary. -hardcode_direct=$hardcode_direct - -# Set to yes if using the -LDIR flag during linking hardcodes DIR into the -# resulting binary. -hardcode_minus_L=$hardcode_minus_L - -# Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into -# the resulting binary. -hardcode_shlibpath_var=$hardcode_shlibpath_var - -# Variables whose values should be saved in libtool wrapper scripts and -# restored at relink time. -variables_saved_for_relink="$variables_saved_for_relink" - -# Whether libtool must link a program against all its dependency libraries. -link_all_deplibs=$link_all_deplibs - -# Compile-time system search path for libraries -sys_lib_search_path_spec=$sys_lib_search_path_spec - -# Run-time system search path for libraries -sys_lib_dlsearch_path_spec=$sys_lib_dlsearch_path_spec - -# Fix the shell variable \$srcfile for the compiler. -fix_srcfile_path="$fix_srcfile_path" - -# Set to yes if exported symbols are required. -always_export_symbols=$always_export_symbols - -# The commands to list exported symbols. -export_symbols_cmds=$export_symbols_cmds - -# The commands to extract the exported symbol list from a shared archive. -extract_expsyms_cmds=$extract_expsyms_cmds - -# Symbols that should not be listed in the preloaded symbols. -exclude_expsyms=$exclude_expsyms - -# Symbols that must always be exported. -include_expsyms=$include_expsyms - -EOF - -if test -z "$tagname"; then - echo '### END LIBTOOL CONFIG' >> "$ofile" -else - echo "### END LIBTOOL TAG CONFIG: $tagname" >> "$ofile" -fi - -case $ltmain in -*.sh) - echo >> "$ofile" - if test -z "$tagname"; then - case $host_os in - aix3*) - cat <<\EOF >> "$ofile" - -# AIX sometimes has problems with the GCC collect2 program. For some -# reason, if we set the COLLECT_NAMES environment variable, the problems -# vanish in a puff of smoke. -if test "X${COLLECT_NAMES+set}" != Xset; then - COLLECT_NAMES= - export COLLECT_NAMES -fi -EOF - ;; - esac - case $host in - *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*) - cat <<'EOF' >> "$ofile" - # This is a source program that is used to create dlls on Windows - # Don't remove nor modify the starting and closing comments -# /* ltdll.c starts here */ -# #define WIN32_LEAN_AND_MEAN -# #include <windows.h> -# #undef WIN32_LEAN_AND_MEAN -# #include <stdio.h> -# -# #ifndef __CYGWIN__ -# # ifdef __CYGWIN32__ -# # define __CYGWIN__ __CYGWIN32__ -# # endif -# #endif -# -# #ifdef __cplusplus -# extern "C" { -# #endif -# BOOL APIENTRY DllMain (HINSTANCE hInst, DWORD reason, LPVOID reserved); -# #ifdef __cplusplus -# } -# #endif -# -# #ifdef __CYGWIN__ -# #include <cygwin/cygwin_dll.h> -# DECLARE_CYGWIN_DLL( DllMain ); -# #endif -# HINSTANCE __hDllInstance_base; -# -# BOOL APIENTRY -# DllMain (HINSTANCE hInst, DWORD reason, LPVOID reserved) -# { -# __hDllInstance_base = hInst; -# return TRUE; -# } -# /* ltdll.c ends here */ - # This is a source program that is used to create import libraries - # on Windows for dlls which lack them. Don't remove nor modify the - # starting and closing comments -# /* impgen.c starts here */ -# /* Copyright (C) 1999-2000 Free Software Foundation, Inc. -# -# This file is part of GNU libtool. -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. -# */ -# -# #include <stdio.h> /* for printf() */ -# #include <unistd.h> /* for open(), lseek(), read() */ -# #include <fcntl.h> /* for O_RDONLY, O_BINARY */ -# #include <string.h> /* for strdup() */ -# -# /* O_BINARY isn't required (or even defined sometimes) under Unix */ -# #ifndef O_BINARY -# #define O_BINARY 0 -# #endif -# -# static unsigned int -# pe_get16 (fd, offset) -# int fd; -# int offset; -# { -# unsigned char b[2]; -# lseek (fd, offset, SEEK_SET); -# read (fd, b, 2); -# return b[0] + (b[1]<<8); -# } -# -# static unsigned int -# pe_get32 (fd, offset) -# int fd; -# int offset; -# { -# unsigned char b[4]; -# lseek (fd, offset, SEEK_SET); -# read (fd, b, 4); -# return b[0] + (b[1]<<8) + (b[2]<<16) + (b[3]<<24); -# } -# -# static unsigned int -# pe_as32 (ptr) -# void *ptr; -# { -# unsigned char *b = ptr; -# return b[0] + (b[1]<<8) + (b[2]<<16) + (b[3]<<24); -# } -# -# int -# main (argc, argv) -# int argc; -# char *argv[]; -# { -# int dll; -# unsigned long pe_header_offset, opthdr_ofs, num_entries, i; -# unsigned long export_rva, export_size, nsections, secptr, expptr; -# unsigned long name_rvas, nexp; -# unsigned char *expdata, *erva; -# char *filename, *dll_name; -# -# filename = argv[1]; -# -# dll = open(filename, O_RDONLY|O_BINARY); -# if (dll < 1) -# return 1; -# -# dll_name = filename; -# -# for (i=0; filename[i]; i++) -# if (filename[i] == '/' || filename[i] == '\\' || filename[i] == ':') -# dll_name = filename + i +1; -# -# pe_header_offset = pe_get32 (dll, 0x3c); -# opthdr_ofs = pe_header_offset + 4 + 20; -# num_entries = pe_get32 (dll, opthdr_ofs + 92); -# -# if (num_entries < 1) /* no exports */ -# return 1; -# -# export_rva = pe_get32 (dll, opthdr_ofs + 96); -# export_size = pe_get32 (dll, opthdr_ofs + 100); -# nsections = pe_get16 (dll, pe_header_offset + 4 +2); -# secptr = (pe_header_offset + 4 + 20 + -# pe_get16 (dll, pe_header_offset + 4 + 16)); -# -# expptr = 0; -# for (i = 0; i < nsections; i++) -# { -# char sname[8]; -# unsigned long secptr1 = secptr + 40 * i; -# unsigned long vaddr = pe_get32 (dll, secptr1 + 12); -# unsigned long vsize = pe_get32 (dll, secptr1 + 16); -# unsigned long fptr = pe_get32 (dll, secptr1 + 20); -# lseek(dll, secptr1, SEEK_SET); -# read(dll, sname, 8); -# if (vaddr <= export_rva && vaddr+vsize > export_rva) -# { -# expptr = fptr + (export_rva - vaddr); -# if (export_rva + export_size > vaddr + vsize) -# export_size = vsize - (export_rva - vaddr); -# break; -# } -# } -# -# expdata = (unsigned char*)malloc(export_size); -# lseek (dll, expptr, SEEK_SET); -# read (dll, expdata, export_size); -# erva = expdata - export_rva; -# -# nexp = pe_as32 (expdata+24); -# name_rvas = pe_as32 (expdata+32); -# -# printf ("EXPORTS\n"); -# for (i = 0; i<nexp; i++) -# { -# unsigned long name_rva = pe_as32 (erva+name_rvas+i*4); -# printf ("\t%s @ %ld ;\n", erva+name_rva, 1+ i); -# } -# -# return 0; -# } -# /* impgen.c ends here */ - -EOF - ;; - esac - - - # Append the ltmain.sh script. - sed '$q' "$ltmain" >> "$ofile" || (rm -f "$ofile"; exit 1) - # We use sed instead of cat because bash on DJGPP gets confused if - # if finds mixed CR/LF and LF-only lines. Since sed operates in - # text mode, it properly converts lines to CR/LF. This bash problem - # is reportedly fixed, but why not run on old versions too? - - chmod +x "$ofile" - fi - ;; - -*) - # Compile the libtool program. - echo "FIXME: would compile $ltmain" - ;; -esac - -# Update the list of available tags. -if test -n "$tagname"; then - - # Extract list of available tagged configurations in $ofile. - # Note that this assumes the entire list is on one line. - available_tags=`grep "^available_tags=" $ofile | sed -e 's/available_tags=\(.*$\)/\1/' -e 's/\"//g'` - - # Append the new tag name to the list of available tags. - available_tags="$available_tags $tagname" - - # Now substitute the updated of available tags. - if eval "sed -e 's/^available_tags=.*\$/available_tags=\"$available_tags\"/' ${ofile} > ${ofile}.new"; then - mv ${ofile}.new ${ofile} - chmod +x "$ofile" - else - rm -f ${ofile}.new - echo "$progname: unable to update list of available tagged configurations." - exit 1 - fi -fi - -# Don't cache tagged configuration! -test -n "$cache_file" && test -z "$tagname" || exit 0 - -# AC_CACHE_SAVE -trap '' 1 2 15 -cat > confcache <<\EOF -# This file is a shell script that caches the results of configure -# tests run on this system so they can be shared between configure -# scripts and configure runs. It is not useful on other systems. -# If it contains results you don't want to keep, you may remove or edit it. -# -# By default, configure uses ./config.cache as the cache file, -# creating it if it does not exist already. You can give configure -# the --cache-file=FILE option to use a different cache file; that is -# what configure does when it calls configure scripts in -# subdirectories, so they share the cache. -# Giving --cache-file=/dev/null disables caching, for debugging configure. -# config.status only pays attention to the cache file if you give it the -# --recheck option to rerun configure. -# -EOF -# The following way of writing the cache mishandles newlines in values, -# but we know of no workaround that is simple, portable, and efficient. -# So, don't put newlines in cache variables' values. -# Ultrix sh set writes to stderr and can't be redirected directly, -# and sets the high bit in the cache file unless we assign to the vars. -(set) 2>&1 | - case `(ac_space=' '; set | grep ac_space) 2>&1` in - *ac_space=\ *) - # `set' does not quote correctly, so add quotes (double-quote substitution - # turns \\\\ into \\, and sed turns \\ into \). - sed -n \ - -e "s/'/'\\\\''/g" \ - -e "s/^\\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\\)=\\(.*\\)/\\1=\${\\1='\\2'}/p" - ;; - *) - # `set' quotes correctly as required by POSIX, so do not add quotes. - sed -n -e 's/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=${\1=\2}/p' - ;; - esac >> confcache -if cmp -s $cache_file confcache; then - : -else - if test -w $cache_file; then - echo "updating cache $cache_file" - cat confcache > $cache_file - else - echo "not updating unwritable cache $cache_file" - fi -fi -rm -f confcache - -exit 0 - -# Local Variables: -# mode:shell-script -# sh-indentation:2 -# End: diff --git a/gnu/lib/libf2c/ltmain.sh b/gnu/lib/libf2c/ltmain.sh deleted file mode 100644 index 92526b60b79..00000000000 --- a/gnu/lib/libf2c/ltmain.sh +++ /dev/null @@ -1,5483 +0,0 @@ -# ltmain.sh - Provide generalized library-building support services. -# NOTE: Changing this file will not affect anything until you rerun ltconfig. -# -# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 -# Free Software Foundation, Inc. -# Originally by Gordon Matzigkeit <gord@gnu.ai.mit.edu>, 1996 -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. -# -# As a special exception to the GNU General Public License, if you -# distribute this file as part of a program that contains a -# configuration script generated by Autoconf, you may include it under -# the same distribution terms that you use for the rest of that program. - -# Check that we have a working $echo. -if test "X$1" = X--no-reexec; then - # Discard the --no-reexec flag, and continue. - shift -elif test "X$1" = X--fallback-echo; then - # Avoid inline document here, it may be left over - : -elif test "X`($echo '\t') 2>/dev/null`" = 'X\t'; then - # Yippee, $echo works! - : -else - # Restart under the correct shell, and then maybe $echo will work. - exec $SHELL "$0" --no-reexec ${1+"$@"} -fi - -if test "X$1" = X--fallback-echo; then - # used as fallback echo - shift - cat <<EOF -$* -EOF - exit 0 -fi - -# The name of this program. -progname=`$echo "$0" | sed 's%^.*/%%'` -modename="$progname" - -# Constants. -PROGRAM=ltmain.sh -PACKAGE=libtool -VERSION=1.4a-GCC3.0 -TIMESTAMP=" (1.641.2.256 2001/05/28 20:09:07 with GCC-local changes)" - -default_mode= -help="Try \`$progname --help' for more information." -magic="%%%MAGIC variable%%%" -mkdir="mkdir" -mv="mv -f" -rm="rm -f" - -# Sed substitution that helps us do robust quoting. It backslashifies -# metacharacters that are still active within double-quoted strings. -Xsed='sed -e 1s/^X//' -sed_quote_subst='s/\([\\`\\"$\\\\]\)/\\\1/g' -SP2NL='tr \040 \012' -NL2SP='tr \015\012 \040\040' - -# NLS nuisances. -# Only set LANG and LC_ALL to C if already set. -# These must not be set unconditionally because not all systems understand -# e.g. LANG=C (notably SCO). -# We save the old values to restore during execute mode. -if test "${LC_ALL+set}" = set; then - save_LC_ALL="$LC_ALL"; LC_ALL=C; export LC_ALL -fi -if test "${LANG+set}" = set; then - save_LANG="$LANG"; LANG=C; export LANG -fi - -if test "$LTCONFIG_VERSION" != "$VERSION"; then - echo "$modename: ltconfig version \`$LTCONFIG_VERSION' does not match $PROGRAM version \`$VERSION'" 1>&2 - echo "Fatal configuration error. See the $PACKAGE docs for more information." 1>&2 - exit 1 -fi - -if test "$build_libtool_libs" != yes && test "$build_old_libs" != yes; then - echo "$modename: not configured to build any kind of library" 1>&2 - echo "Fatal configuration error. See the $PACKAGE docs for more information." 1>&2 - exit 1 -fi - -# Global variables. -mode=$default_mode -nonopt= -prev= -prevopt= -run= -show="$echo" -show_help= -execute_dlfiles= -lo2o="s/\\.lo\$/.${objext}/" -o2lo="s/\\.${objext}\$/.lo/" -taglist= - -# Parse our command line options once, thoroughly. -while test $# -gt 0 -do - arg="$1" - shift - - case $arg in - -*=*) optarg=`$echo "X$arg" | $Xsed -e 's/[-_a-zA-Z0-9]*=//'` ;; - *) optarg= ;; - esac - - # If the previous option needs an argument, assign it. - if test -n "$prev"; then - case $prev in - execute_dlfiles) - execute_dlfiles="$execute_dlfiles $arg" - ;; - tag) - tagname="$arg" - - # Check whether tagname contains only valid characters - case $tagname in - *[!-_A-Za-z0-9,/]*) - echo "$progname: invalid tag name: $tagname" 1>&2 - exit 1 - ;; - esac - - case $tagname in - CC) - # Don't test for the "default" C tag, as we know, it's there, but - # not specially marked. - taglist="$taglist $tagname" - ;; - *) - if grep "^### BEGIN LIBTOOL TAG CONFIG: $tagname$" < "$0" > /dev/null; then - taglist="$taglist $tagname" - # Evaluate the configuration. - eval "`sed -n -e '/^### BEGIN LIBTOOL TAG CONFIG: '$tagname'$/,/^### END LIBTOOL TAG CONFIG: '$tagname'$/p' < $0`" - else - echo "$progname: ignoring unknown tag $tagname" 1>&2 - fi - ;; - esac - ;; - *) - eval "$prev=\$arg" - ;; - esac - - prev= - prevopt= - continue - fi - - # Have we seen a non-optional argument yet? - case $arg in - --help) - show_help=yes - ;; - - --version) - echo "$PROGRAM (GNU $PACKAGE) $VERSION$TIMESTAMP" - exit 0 - ;; - - --config) - sed -n -e '/^### BEGIN LIBTOOL CONFIG/,/^### END LIBTOOL CONFIG/p' < "$0" - # Now print the configurations for the tags. - for tagname in $taglist; do - sed -n -e "/^### BEGIN LIBTOOL TAG CONFIG: $tagname$/,/^### END LIBTOOL TAG CONFIG: $tagname$/p" < "$0" - done - exit 0 - ;; - - --debug) - echo "$progname: enabling shell trace mode" - set -x - ;; - - --dry-run | -n) - run=: - ;; - - --features) - echo "host: $host" - if test "$build_libtool_libs" = yes; then - echo "enable shared libraries" - else - echo "disable shared libraries" - fi - if test "$build_old_libs" = yes; then - echo "enable static libraries" - else - echo "disable static libraries" - fi - exit 0 - ;; - - --finish) mode="finish" ;; - - --mode) prevopt="--mode" prev=mode ;; - --mode=*) mode="$optarg" ;; - - --quiet | --silent) - show=: - ;; - - --tag) prevopt="--tag" prev=tag ;; - --tag=*) - set tag "$optarg" ${1+"$@"} - shift - prev=tag - ;; - - -dlopen) - prevopt="-dlopen" - prev=execute_dlfiles - ;; - - -*) - $echo "$modename: unrecognized option \`$arg'" 1>&2 - $echo "$help" 1>&2 - exit 1 - ;; - - *) - nonopt="$arg" - break - ;; - esac -done - -if test -n "$prevopt"; then - $echo "$modename: option \`$prevopt' requires an argument" 1>&2 - $echo "$help" 1>&2 - exit 1 -fi - -# If this variable is set in any of the actions, the command in it -# will be execed at the end. This prevents here-documents from being -# left over by shells. -exec_cmd= - -if test -z "$show_help"; then - - # Infer the operation mode. - if test -z "$mode"; then - case $nonopt in - *cc | *++ | gcc* | *-gcc*) - mode=link - for arg - do - case $arg in - -c) - mode=compile - break - ;; - esac - done - ;; - *db | *dbx | *strace | *truss) - mode=execute - ;; - *install*|cp|mv) - mode=install - ;; - *rm) - mode=uninstall - ;; - *) - # If we have no mode, but dlfiles were specified, then do execute mode. - test -n "$execute_dlfiles" && mode=execute - - # Just use the default operation mode. - if test -z "$mode"; then - if test -n "$nonopt"; then - $echo "$modename: warning: cannot infer operation mode from \`$nonopt'" 1>&2 - else - $echo "$modename: warning: cannot infer operation mode without MODE-ARGS" 1>&2 - fi - fi - ;; - esac - fi - - # Only execute mode is allowed to have -dlopen flags. - if test -n "$execute_dlfiles" && test "$mode" != execute; then - $echo "$modename: unrecognized option \`-dlopen'" 1>&2 - $echo "$help" 1>&2 - exit 1 - fi - - # Change the help message to a mode-specific one. - generic_help="$help" - help="Try \`$modename --help --mode=$mode' for more information." - - # These modes are in order of execution frequency so that they run quickly. - case $mode in - # libtool compile mode - compile) - modename="$modename: compile" - # Get the compilation command and the source file. - base_compile= - prev= - lastarg= - srcfile="$nonopt" - suppress_output= - - user_target=no - for arg - do - case $prev in - "") ;; - xcompiler) - # Aesthetically quote the previous argument. - prev= - lastarg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` - - case $arg in - # Double-quote args containing other shell metacharacters. - # Many Bourne shells cannot handle close brackets correctly - # in scan sets, so we specify it separately. - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - arg="\"$arg\"" - ;; - esac - - # Add the previous argument to base_compile. - if test -z "$base_compile"; then - base_compile="$lastarg" - else - base_compile="$base_compile $lastarg" - fi - continue - ;; - esac - - # Accept any command-line options. - case $arg in - -o) - if test "$user_target" != "no"; then - $echo "$modename: you cannot specify \`-o' more than once" 1>&2 - exit 1 - fi - user_target=next - ;; - - -static) - build_old_libs=yes - continue - ;; - - -prefer-pic) - pic_mode=yes - continue - ;; - - -prefer-non-pic) - pic_mode=no - continue - ;; - - -Xcompiler) - prev=xcompiler - continue - ;; - - -Wc,*) - args=`$echo "X$arg" | $Xsed -e "s/^-Wc,//"` - lastarg= - IFS="${IFS= }"; save_ifs="$IFS"; IFS=',' - for arg in $args; do - IFS="$save_ifs" - - # Double-quote args containing other shell metacharacters. - # Many Bourne shells cannot handle close brackets correctly - # in scan sets, so we specify it separately. - case $arg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - arg="\"$arg\"" - ;; - esac - lastarg="$lastarg $arg" - done - IFS="$save_ifs" - lastarg=`$echo "X$lastarg" | $Xsed -e "s/^ //"` - - # Add the arguments to base_compile. - if test -z "$base_compile"; then - base_compile="$lastarg" - else - base_compile="$base_compile $lastarg" - fi - continue - ;; - esac - - case $user_target in - next) - # The next one is the -o target name - user_target=yes - continue - ;; - yes) - # We got the output file - user_target=set - libobj="$arg" - continue - ;; - esac - - # Accept the current argument as the source file. - lastarg="$srcfile" - srcfile="$arg" - - # Aesthetically quote the previous argument. - - # Backslashify any backslashes, double quotes, and dollar signs. - # These are the only characters that are still specially - # interpreted inside of double-quoted scrings. - lastarg=`$echo "X$lastarg" | $Xsed -e "$sed_quote_subst"` - - # Double-quote args containing other shell metacharacters. - # Many Bourne shells cannot handle close brackets correctly - # in scan sets, so we specify it separately. - case $lastarg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - lastarg="\"$lastarg\"" - ;; - esac - - # Add the previous argument to base_compile. - if test -z "$base_compile"; then - base_compile="$lastarg" - else - base_compile="$base_compile $lastarg" - fi - done - - case $user_target in - set) - ;; - no) - # Get the name of the library object. - libobj=`$echo "X$srcfile" | $Xsed -e 's%^.*/%%'` - ;; - *) - $echo "$modename: you must specify a target with \`-o'" 1>&2 - exit 1 - ;; - esac - - # Recognize several different file suffixes. - # If the user specifies -o file.o, it is replaced with file.lo - xform='[cCFSfmso]' - case $libobj in - *.ada) xform=ada ;; - *.adb) xform=adb ;; - *.ads) xform=ads ;; - *.asm) xform=asm ;; - *.c++) xform=c++ ;; - *.cc) xform=cc ;; - *.class) xform=class ;; - *.cpp) xform=cpp ;; - *.cxx) xform=cxx ;; - *.f90) xform=f90 ;; - *.for) xform=for ;; - *.java) xform=java ;; - esac - - libobj=`$echo "X$libobj" | $Xsed -e "s/\.$xform$/.lo/"` - - case $libobj in - *.lo) obj=`$echo "X$libobj" | $Xsed -e "$lo2o"` ;; - *) - $echo "$modename: cannot determine name of library object from \`$libobj'" 1>&2 - exit 1 - ;; - esac - - # Infer tagged configuration to use if any are available and - # if one wasn't chosen via the "--tag" command line option. - # Only attempt this if the compiler in the base compile - # command doesn't match the default compiler. - if test -n "$available_tags" && test -z "$tagname"; then - case $base_compile in - "$CC "*) ;; - # Blanks in the command may have been stripped by the calling shell, - # but not from the CC environment variable when ltconfig was run. - "`$echo $CC` "*) ;; - *) - for z in $available_tags; do - if grep "^### BEGIN LIBTOOL TAG CONFIG: $z$" < "$0" > /dev/null; then - # Evaluate the configuration. - eval "`sed -n -e '/^### BEGIN LIBTOOL TAG CONFIG: '$z'$/,/^### END LIBTOOL TAG CONFIG: '$z'$/p' < $0`" - case $base_compile in - "$CC "*) - # The compiler in the base compile command matches - # the one in the tagged configuration. - # Assume this is the tagged configuration we want. - tagname=$z - break - ;; - "`$echo $CC` "*) - tagname=$z - break - ;; - esac - fi - done - # If $tagname still isn't set, then no tagged configuration - # was found and let the user know that the "--tag" command - # line option must be used. - if test -z "$tagname"; then - echo "$modename: unable to infer tagged configuration" - echo "$modename: specify a tag with \`--tag'" 1>&2 - exit 1 -# else -# echo "$modename: using $tagname tagged configuration" - fi - ;; - esac - fi - - objname=`$echo "X$obj" | $Xsed -e 's%^.*/%%'` - xdir=`$echo "X$obj" | $Xsed -e 's%/[^/]*$%%'` - if test "X$xdir" = "X$obj"; then - xdir= - else - xdir=$xdir/ - fi - lobj=${xdir}$objdir/$objname - - if test -z "$base_compile"; then - $echo "$modename: you must specify a compilation command" 1>&2 - $echo "$help" 1>&2 - exit 1 - fi - - # Delete any leftover library objects. - if test "$build_old_libs" = yes; then - removelist="$obj $lobj $libobj ${libobj}T" - else - removelist="$lobj $libobj ${libobj}T" - fi - - $run $rm $removelist - trap "$run $rm $removelist; exit 1" 1 2 15 - - # On Cygwin there's no "real" PIC flag so we must build both object types - case $host_os in - cygwin* | mingw* | pw32* | os2*) - pic_mode=default - ;; - esac - if test $pic_mode = no && test "$deplibs_check_method" != pass_all; then - # non-PIC code in shared libraries is not supported - pic_mode=default - fi - - # Calculate the filename of the output object if compiler does - # not support -o with -c - if test "$compiler_c_o" = no; then - output_obj=`$echo "X$srcfile" | $Xsed -e 's%^.*/%%' -e 's%\.[^.]*$%%'`.${objext} - lockfile="$output_obj.lock" - removelist="$removelist $output_obj $lockfile" - trap "$run $rm $removelist; exit 1" 1 2 15 - else - output_obj= - need_locks=no - lockfile= - fi - - # Lock this critical section if it is needed - # We use this script file to make the link, it avoids creating a new file - if test "$need_locks" = yes; then - until $run ln "$0" "$lockfile" 2>/dev/null; do - $show "Waiting for $lockfile to be removed" - sleep 2 - done - elif test "$need_locks" = warn; then - if test -f "$lockfile"; then - echo "\ -*** ERROR, $lockfile exists and contains: -`cat $lockfile 2>/dev/null` - -This indicates that another process is trying to use the same -temporary object file, and libtool could not work around it because -your compiler does not support \`-c' and \`-o' together. If you -repeat this compilation, it may succeed, by chance, but you had better -avoid parallel builds (make -j) in this platform, or get a better -compiler." - - $run $rm $removelist - exit 1 - fi - echo $srcfile > "$lockfile" - fi - - if test -n "$fix_srcfile_path"; then - eval srcfile=\"$fix_srcfile_path\" - fi - - $run $rm "$libobj" "${libobj}T" - - # Create a libtool object file (analogous to a ".la" file), - # but don't create it if we're doing a dry run. - test -z "$run" && cat > ${libobj}T <<EOF -# $libobj - a libtool object file -# Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP -# -# Please DO NOT delete this file! -# It is necessary for linking the library. - -# Name of the PIC object. -EOF - - # Only build a PIC object if we are building libtool libraries. - if test "$build_libtool_libs" = yes; then - # Without this assignment, base_compile gets emptied. - fbsd_hideous_sh_bug=$base_compile - - if test "$pic_mode" != no; then - command="$base_compile $srcfile $pic_flag" - else - # Don't build PIC code - command="$base_compile $srcfile" - fi - - if test ! -d ${xdir}$objdir; then - $show "$mkdir ${xdir}$objdir" - $run $mkdir ${xdir}$objdir - status=$? - if test $status -ne 0 && test ! -d ${xdir}$objdir; then - exit $status - fi - fi - - if test -z "$output_obj"; then - # Place PIC objects in $objdir - command="$command -o $lobj" - fi - - $run $rm "$lobj" "$output_obj" - - $show "$command" - if $run eval "$command"; then : - else - test -n "$output_obj" && $run $rm $removelist - exit 1 - fi - - if test "$need_locks" = warn && - test x"`cat $lockfile 2>/dev/null`" != x"$srcfile"; then - echo "\ -*** ERROR, $lockfile contains: -`cat $lockfile 2>/dev/null` - -but it should contain: -$srcfile - -This indicates that another process is trying to use the same -temporary object file, and libtool could not work around it because -your compiler does not support \`-c' and \`-o' together. If you -repeat this compilation, it may succeed, by chance, but you had better -avoid parallel builds (make -j) in this platform, or get a better -compiler." - - $run $rm $removelist - exit 1 - fi - - # Just move the object if needed, then go on to compile the next one - if test -n "$output_obj" && test "x$output_obj" != "x$lobj"; then - $show "$mv $output_obj $lobj" - if $run $mv $output_obj $lobj; then : - else - error=$? - $run $rm $removelist - exit $error - fi - fi - - # Append the name of the PIC object to the libtool object file. - test -z "$run" && cat >> ${libobj}T <<EOF -pic_object='$objdir/$objname' - -EOF - - # Allow error messages only from the first compilation. - suppress_output=' >/dev/null 2>&1' - else - # No PIC object so indicate it doesn't exist in the libtool - # object file. - test -z "$run" && cat >> ${libobj}T <<EOF -pic_object=none - -EOF - fi - - # Only build a position-dependent object if we build old libraries. - if test "$build_old_libs" = yes; then - if test "$pic_mode" != yes; then - # Don't build PIC code - command="$base_compile $srcfile" - else - command="$base_compile $srcfile $pic_flag" - fi - if test "$compiler_c_o" = yes; then - command="$command -o $obj" - fi - - # Suppress compiler output if we already did a PIC compilation. - command="$command$suppress_output" - $run $rm "$obj" "$output_obj" - $show "$command" - if $run eval "$command"; then : - else - $run $rm $removelist - exit 1 - fi - - if test "$need_locks" = warn && - test x"`cat $lockfile 2>/dev/null`" != x"$srcfile"; then - echo "\ -*** ERROR, $lockfile contains: -`cat $lockfile 2>/dev/null` - -but it should contain: -$srcfile - -This indicates that another process is trying to use the same -temporary object file, and libtool could not work around it because -your compiler does not support \`-c' and \`-o' together. If you -repeat this compilation, it may succeed, by chance, but you had better -avoid parallel builds (make -j) in this platform, or get a better -compiler." - - $run $rm $removelist - exit 1 - fi - - # Just move the object if needed - if test -n "$output_obj" && test "x$output_obj" != "x$obj"; then - $show "$mv $output_obj $obj" - if $run $mv $output_obj $obj; then : - else - error=$? - $run $rm $removelist - exit $error - fi - fi - - # Append the name of the non-PIC object the libtool object file. - # Only append if the libtool object file exists. - test -z "$run" && cat >> ${libobj}T <<EOF -# Name of the non-PIC object. -non_pic_object='$objname' - -EOF - else - # Append the name of the non-PIC object the libtool object file. - # Only append if the libtool object file exists. - test -z "$run" && cat >> ${libobj}T <<EOF -# Name of the non-PIC object. -non_pic_object=none - -EOF - fi - - $run $mv "${libobj}T" "${libobj}" - - # Unlock the critical section if it was locked - if test "$need_locks" != no; then - $run $rm "$lockfile" - fi - - exit 0 - ;; - - # libtool link mode - link | relink) - modename="$modename: link" - case $host in - *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*) - # It is impossible to link a dll without this setting, and - # we shouldn't force the makefile maintainer to figure out - # which system we are compiling for in order to pass an extra - # flag for every libtool invokation. - # allow_undefined=no - - # FIXME: Unfortunately, there are problems with the above when trying - # to make a dll which has undefined symbols, in which case not - # even a static library is built. For now, we need to specify - # -no-undefined on the libtool link line when we can be certain - # that all symbols are satisfied, otherwise we get a static library. - allow_undefined=yes - ;; - *) - allow_undefined=yes - ;; - esac - libtool_args="$nonopt" - base_compile="$nonopt" - compile_command="$nonopt" - finalize_command="$nonopt" - - compile_rpath= - finalize_rpath= - compile_shlibpath= - finalize_shlibpath= - convenience= - old_convenience= - deplibs= - old_deplibs= - compiler_flags= - linker_flags= - dllsearchpath= - lib_search_path=`pwd` - - avoid_version=no - dlfiles= - dlprefiles= - dlself=no - export_dynamic=no - export_symbols= - export_symbols_regex= - generated= - libobjs= - ltlibs= - module=no - no_install=no - objs= - non_pic_objects= - prefer_static_libs=no - preload=no - prev= - prevarg= - release= - rpath= - xrpath= - perm_rpath= - temp_rpath= - thread_safe=no - vinfo= - - # We need to know -static, to get the right output filenames. - for arg - do - case $arg in - -all-static | -static) - if test "X$arg" = "X-all-static"; then - if test "$build_libtool_libs" = yes && test -z "$link_static_flag"; then - $echo "$modename: warning: complete static linking is impossible in this configuration" 1>&2 - fi - if test -n "$link_static_flag"; then - dlopen_self=$dlopen_self_static - fi - else - if test -z "$pic_flag" && test -n "$link_static_flag"; then - dlopen_self=$dlopen_self_static - fi - fi - build_libtool_libs=no - build_old_libs=yes - prefer_static_libs=yes - break - ;; - esac - done - - # See if our shared archives depend on static archives. - test -n "$old_archive_from_new_cmds" && build_old_libs=yes - - # Go through the arguments, transforming them on the way. - while test $# -gt 0; do - arg="$1" - base_compile="$base_compile $arg" - shift - case $arg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - qarg=\"`$echo "X$arg" | $Xsed -e "$sed_quote_subst"`\" ### testsuite: skip nested quoting test - ;; - *) qarg=$arg ;; - esac - libtool_args="$libtool_args $qarg" - - # If the previous option needs an argument, assign it. - if test -n "$prev"; then - case $prev in - output) - compile_command="$compile_command @OUTPUT@" - finalize_command="$finalize_command @OUTPUT@" - ;; - esac - - case $prev in - dlfiles|dlprefiles) - if test "$preload" = no; then - # Add the symbol object into the linking commands. - compile_command="$compile_command @SYMFILE@" - finalize_command="$finalize_command @SYMFILE@" - preload=yes - fi - case $arg in - *.la | *.lo) ;; # We handle these cases below. - force) - if test "$dlself" = no; then - dlself=needless - export_dynamic=yes - fi - prev= - continue - ;; - self) - if test "$prev" = dlprefiles; then - dlself=yes - elif test "$prev" = dlfiles && test "$dlopen_self" != yes; then - dlself=yes - else - dlself=needless - export_dynamic=yes - fi - prev= - continue - ;; - *) - if test "$prev" = dlfiles; then - dlfiles="$dlfiles $arg" - else - dlprefiles="$dlprefiles $arg" - fi - prev= - continue - ;; - esac - ;; - expsyms) - export_symbols="$arg" - if test ! -f "$arg"; then - $echo "$modename: symbol file \`$arg' does not exist" - exit 1 - fi - prev= - continue - ;; - expsyms_regex) - export_symbols_regex="$arg" - prev= - continue - ;; - release) - release="-$arg" - prev= - continue - ;; - objectlist) - if test -f "$arg"; then - save_arg=$arg - moreargs= - for fil in `cat $save_arg` - do -# moreargs="$moreargs $fil" - arg=$fil - # A libtool-controlled object. - - # Check to see that this really is a libtool object. - if (sed -e '2q' $arg | egrep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then - pic_object= - non_pic_object= - - # Read the .lo file - # If there is no directory component, then add one. - case $arg in - */* | *\\*) . $arg ;; - *) . ./$arg ;; - esac - - if test -z "$pic_object" || \ - test -z "$non_pic_object" || - test "$pic_object" = none && \ - test "$non_pic_object" = none; then - $echo "$modename: cannot find name of object for \`$arg'" 1>&2 - exit 1 - fi - - # Extract subdirectory from the argument. - xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'` - if test "X$xdir" = "X$arg"; then - xdir= - else - xdir="$xdir/" - fi - - if test "$pic_object" != none; then - # Prepend the subdirectory the object is found in. - pic_object="$xdir$pic_object" - - if test "$prev" = dlfiles; then - if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then - dlfiles="$dlfiles $pic_object" - prev= - continue - else - # If libtool objects are unsupported, then we need to preload. - prev=dlprefiles - fi - fi - - # CHECK ME: I think I busted this. -Ossama - if test "$prev" = dlprefiles; then - # Preload the old-style object. - dlprefiles="$dlprefiles $pic_object" - prev= - fi - - # A PIC object. - libobjs="$libobjs $pic_object" - arg="$pic_object" - fi - - # Non-PIC object. - if test "$non_pic_object" != none; then - # Prepend the subdirectory the object is found in. - non_pic_object="$xdir$non_pic_object" - - # A standard non-PIC object - non_pic_objects="$non_pic_objects $non_pic_object" - if test -z "$pic_object" || test "$pic_object" = none ; then - arg="$non_pic_object" - fi - fi - else - # Only an error if not doing a dry-run. - if test -z "$run"; then - $echo "$modename: \`$arg' is not a valid libtool object" 1>&2 - exit 1 - else - # Dry-run case. - - # Extract subdirectory from the argument. - xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'` - if test "X$xdir" = "X$arg"; then - xdir= - else - xdir="$xdir/" - fi - - pic_object=`$echo "X${xdir}${objdir}/${arg}" | $Xsed -e "$lo2o"` - non_pic_object=`$echo "X${xdir}${arg}" | $Xsed -e "$lo2o"` - libobjs="$libobjs $pic_object" - non_pic_objects="$non_pic_objects $non_pic_object" - fi - fi - done - else - $echo "$modename: link input file \`$save_arg' does not exist" - exit 1 - fi - arg=$save_arg - prev= - continue - ;; - rpath | xrpath) - # We need an absolute path. - case $arg in - [\\/]* | [A-Za-z]:[\\/]*) ;; - *) - $echo "$modename: only absolute run-paths are allowed" 1>&2 - exit 1 - ;; - esac - if test "$prev" = rpath; then - case "$rpath " in - *" $arg "*) ;; - *) rpath="$rpath $arg" ;; - esac - else - case "$xrpath " in - *" $arg "*) ;; - *) xrpath="$xrpath $arg" ;; - esac - fi - prev= - continue - ;; - xcompiler) - compiler_flags="$compiler_flags $qarg" - prev= - compile_command="$compile_command $qarg" - finalize_command="$finalize_command $qarg" - continue - ;; - xlinker) - linker_flags="$linker_flags $qarg" - compiler_flags="$compiler_flags $wl$qarg" - prev= - compile_command="$compile_command $wl$qarg" - finalize_command="$finalize_command $wl$qarg" - continue - ;; - *) - eval "$prev=\"\$arg\"" - prev= - continue - ;; - esac - fi # test -n $prev - - prevarg="$arg" - - case $arg in - -all-static) - if test -n "$link_static_flag"; then - compile_command="$compile_command $link_static_flag" - finalize_command="$finalize_command $link_static_flag" - fi - continue - ;; - - -allow-undefined) - # FIXME: remove this flag sometime in the future. - $echo "$modename: \`-allow-undefined' is deprecated because it is the default" 1>&2 - continue - ;; - - -avoid-version) - avoid_version=yes - continue - ;; - - -dlopen) - prev=dlfiles - continue - ;; - - -dlpreopen) - prev=dlprefiles - continue - ;; - - -export-dynamic) - export_dynamic=yes - continue - ;; - - -export-symbols | -export-symbols-regex) - if test -n "$export_symbols" || test -n "$export_symbols_regex"; then - $echo "$modename: more than one -exported-symbols argument is not allowed" - exit 1 - fi - if test "X$arg" = "X-export-symbols"; then - prev=expsyms - else - prev=expsyms_regex - fi - continue - ;; - - # The native IRIX linker understands -LANG:*, -LIST:* and -LNO:* - # so, if we see these flags be careful not to treat them like -L - -L[A-Z][A-Z]*:*) - case $with_gcc/$host in - no/*-*-irix*) - compile_command="$compile_command $arg" - finalize_command="$finalize_command $arg" - ;; - esac - continue - ;; - - -L*) - dir=`$echo "X$arg" | $Xsed -e 's/^-L//'` - # We need an absolute path. - case $dir in - [\\/]* | [A-Za-z]:[\\/]*) ;; - *) - absdir=`cd "$dir" && pwd` - if test -z "$absdir"; then - $echo "$modename: cannot determine absolute directory name of \`$dir'" 1>&2 - exit 1 - fi - dir="$absdir" - ;; - esac - case "$deplibs " in - *" -L$dir "*) ;; - *) - deplibs="$deplibs -L$dir" - lib_search_path="$lib_search_path $dir" - ;; - esac - case $host in - *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*) - case :$dllsearchpath: in - *":$dir:"*) ;; - *) dllsearchpath="$dllsearchpath:$dir";; - esac - ;; - esac - continue - ;; - - -l*) - if test "X$arg" = "X-lc" || test "X$arg" = "X-lm"; then - case $host in - *-*-cygwin* | *-*-pw32* | *-*-beos*) - # These systems don't actually have a C or math library (as such) - continue - ;; - *-*-mingw* | *-*-os2*) - # These systems don't actually have a C library (as such) - test "X$arg" = "X-lc" && continue - ;; - esac - fi - deplibs="$deplibs $arg" - continue - ;; - - -module) - module=yes - continue - ;; - - -no-fast-install) - fast_install=no - continue - ;; - - -no-install) - case $host in - *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*) - # The PATH hackery in wrapper scripts is required on Windows - # in order for the loader to find any dlls it needs. - $echo "$modename: warning: \`-no-install' is ignored for $host" 1>&2 - $echo "$modename: warning: assuming \`-no-fast-install' instead" 1>&2 - fast_install=no - ;; - *) no_install=yes ;; - esac - continue - ;; - - -no-undefined) - allow_undefined=no - continue - ;; - - -objectlist) - prev=objectlist - continue - ;; - - -o) prev=output ;; - - -release) - prev=release - continue - ;; - - -rpath) - prev=rpath - continue - ;; - - -R) - prev=xrpath - continue - ;; - - -R*) - dir=`$echo "X$arg" | $Xsed -e 's/^-R//'` - # We need an absolute path. - case $dir in - [\\/]* | [A-Za-z]:[\\/]*) ;; - *) - $echo "$modename: only absolute run-paths are allowed" 1>&2 - exit 1 - ;; - esac - case "$xrpath " in - *" $dir "*) ;; - *) xrpath="$xrpath $dir" ;; - esac - continue - ;; - - -static) - # The effects of -static are defined in a previous loop. - # We used to do the same as -all-static on platforms that - # didn't have a PIC flag, but the assumption that the effects - # would be equivalent was wrong. It would break on at least - # Digital Unix and AIX. - continue - ;; - - -thread-safe) - thread_safe=yes - continue - ;; - - -version-info) - prev=vinfo - continue - ;; - - -Wc,*) - args=`$echo "X$arg" | $Xsed -e "$sed_quote_subst" -e 's/^-Wc,//'` - arg= - IFS="${IFS= }"; save_ifs="$IFS"; IFS=',' - for flag in $args; do - IFS="$save_ifs" - case $flag in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - flag="\"$flag\"" - ;; - esac - arg="$arg $wl$flag" - compiler_flags="$compiler_flags $flag" - done - IFS="$save_ifs" - arg=`$echo "X$arg" | $Xsed -e "s/^ //"` - ;; - - -Wl,*) - args=`$echo "X$arg" | $Xsed -e "$sed_quote_subst" -e 's/^-Wl,//'` - arg= - IFS="${IFS= }"; save_ifs="$IFS"; IFS=',' - for flag in $args; do - IFS="$save_ifs" - case $flag in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - flag="\"$flag\"" - ;; - esac - arg="$arg $wl$flag" - compiler_flags="$compiler_flags $wl$flag" - linker_flags="$linker_flags $flag" - done - IFS="$save_ifs" - arg=`$echo "X$arg" | $Xsed -e "s/^ //"` - ;; - - -Xcompiler) - prev=xcompiler - continue - ;; - - -Xlinker) - prev=xlinker - continue - ;; - - # Some other compiler flag. - -* | +*) - # Unknown arguments in both finalize_command and compile_command need - # to be aesthetically quoted because they are evaled later. - arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` - case $arg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - arg="\"$arg\"" - ;; - esac - ;; - - *.$objext) - # A standard object. - objs="$objs $arg" - ;; - - *.lo) - # A libtool-controlled object. - - # Check to see that this really is a libtool object. - if (sed -e '2q' $arg | egrep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then - pic_object= - non_pic_object= - - # Read the .lo file - # If there is no directory component, then add one. - case $arg in - */* | *\\*) . $arg ;; - *) . ./$arg ;; - esac - - if test -z "$pic_object" || \ - test -z "$non_pic_object" || - test "$pic_object" = none && \ - test "$non_pic_object" = none; then - $echo "$modename: cannot find name of object for \`$arg'" 1>&2 - exit 1 - fi - - # Extract subdirectory from the argument. - xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'` - if test "X$xdir" = "X$arg"; then - xdir= - else - xdir="$xdir/" - fi - - if test "$pic_object" != none; then - # Prepend the subdirectory the object is found in. - pic_object="$xdir$pic_object" - - if test "$prev" = dlfiles; then - if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then - dlfiles="$dlfiles $pic_object" - prev= - continue - else - # If libtool objects are unsupported, then we need to preload. - prev=dlprefiles - fi - fi - - # CHECK ME: I think I busted this. -Ossama - if test "$prev" = dlprefiles; then - # Preload the old-style object. - dlprefiles="$dlprefiles $pic_object" - prev= - fi - - # A PIC object. - libobjs="$libobjs $pic_object" - arg="$pic_object" - fi - - # Non-PIC object. - if test "$non_pic_object" != none; then - # Prepend the subdirectory the object is found in. - non_pic_object="$xdir$non_pic_object" - - # A standard non-PIC object - non_pic_objects="$non_pic_objects $non_pic_object" - if test -z "$pic_object" || test "$pic_object" = none ; then - arg="$non_pic_object" - fi - fi - else - # Only an error if not doing a dry-run. - if test -z "$run"; then - $echo "$modename: \`$arg' is not a valid libtool object" 1>&2 - exit 1 - else - # Dry-run case. - - # Extract subdirectory from the argument. - xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'` - if test "X$xdir" = "X$arg"; then - xdir= - else - xdir="$xdir/" - fi - - pic_object=`$echo "X${xdir}${objdir}/${arg}" | $Xsed -e "$lo2o"` - non_pic_object=`$echo "X${xdir}${arg}" | $Xsed -e "$lo2o"` - libobjs="$libobjs $pic_object" - non_pic_objects="$non_pic_objects $non_pic_object" - fi - fi - ;; - - *.$libext) - # An archive. - deplibs="$deplibs $arg" - old_deplibs="$old_deplibs $arg" - continue - ;; - - *.la) - # A libtool-controlled library. - - if test "$prev" = dlfiles; then - # This library was specified with -dlopen. - dlfiles="$dlfiles $arg" - prev= - elif test "$prev" = dlprefiles; then - # The library was specified with -dlpreopen. - dlprefiles="$dlprefiles $arg" - prev= - else - deplibs="$deplibs $arg" - fi - continue - ;; - - # Some other compiler argument. - *) - # Unknown arguments in both finalize_command and compile_command need - # to be aesthetically quoted because they are evaled later. - arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` - case $arg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - arg="\"$arg\"" - ;; - esac - ;; - esac # arg - - # Now actually substitute the argument into the commands. - if test -n "$arg"; then - compile_command="$compile_command $arg" - finalize_command="$finalize_command $arg" - fi - done # argument parsing loop - - if test -n "$prev"; then - $echo "$modename: the \`$prevarg' option requires an argument" 1>&2 - $echo "$help" 1>&2 - exit 1 - fi - - # Infer tagged configuration to use if any are available and - # if one wasn't chosen via the "--tag" command line option. - # Only attempt this if the compiler in the base link - # command doesn't match the default compiler. - if test -n "$available_tags" && test -z "$tagname"; then - case $base_compile in - "$CC "*) ;; - # Blanks in the command may have been stripped by the calling shell, - # but not from the CC environment variable when ltconfig was run. - "`$echo $CC` "*) ;; - *) - for z in $available_tags; do - if grep "^### BEGIN LIBTOOL TAG CONFIG: $z$" < "$0" > /dev/null; then - # Evaluate the configuration. - eval "`sed -n -e '/^### BEGIN LIBTOOL TAG CONFIG: '$z'$/,/^### END LIBTOOL TAG CONFIG: '$z'$/p' < $0`" - case $base_compile in - "$CC "*) - # The compiler in $compile_command matches - # the one in the tagged configuration. - # Assume this is the tagged configuration we want. - tagname=$z - break - ;; - "`$echo $CC` "*) - tagname=$z - break - ;; - esac - fi - done - # If $tagname still isn't set, then no tagged configuration - # was found and let the user know that the "--tag" command - # line option must be used. - if test -z "$tagname"; then - echo "$modename: unable to infer tagged configuration" - echo "$modename: specify a tag with \`--tag'" 1>&2 - exit 1 -# else -# echo "$modename: using $tagname tagged configuration" - fi - ;; - esac - fi - - if test "$export_dynamic" = yes && test -n "$export_dynamic_flag_spec"; then - eval arg=\"$export_dynamic_flag_spec\" - compile_command="$compile_command $arg" - finalize_command="$finalize_command $arg" - fi - - # calculate the name of the file, without its directory - outputname=`$echo "X$output" | $Xsed -e 's%^.*/%%'` - libobjs_save="$libobjs" - - if test -n "$shlibpath_var"; then - # get the directories listed in $shlibpath_var - eval shlib_search_path=\`\$echo \"X\${$shlibpath_var}\" \| \$Xsed -e \'s/:/ /g\'\` - else - shlib_search_path= - fi - eval sys_lib_search_path=\"$sys_lib_search_path_spec\" - eval sys_lib_dlsearch_path=\"$sys_lib_dlsearch_path_spec\" - - output_objdir=`$echo "X$output" | $Xsed -e 's%/[^/]*$%%'` - if test "X$output_objdir" = "X$output"; then - output_objdir="$objdir" - else - output_objdir="$output_objdir/$objdir" - fi - # Create the object directory. - if test ! -d $output_objdir; then - $show "$mkdir $output_objdir" - $run $mkdir $output_objdir - status=$? - if test $status -ne 0 && test ! -d $output_objdir; then - exit $status - fi - fi - - # Determine the type of output - case $output in - "") - $echo "$modename: you must specify an output file" 1>&2 - $echo "$help" 1>&2 - exit 1 - ;; - *.$libext) linkmode=oldlib ;; - *.lo | *.$objext) linkmode=obj ;; - *.la) linkmode=lib ;; - *) linkmode=prog ;; # Anything else should be a program. - esac - - specialdeplibs= - libs= - # Find all interdependent deplibs by searching for libraries - # that are linked more than once (e.g. -la -lb -la) - for deplib in $deplibs; do - case "$libs " in - *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;; - esac - libs="$libs $deplib" - done - - if test $linkmode = lib; then - libs="$predeps $libs $compiler_lib_search_path $postdeps" - - # Compute libraries that are listed more than once in $predeps - # $postdeps and mark them as special (i.e., whose duplicates are - # not to be eliminated). - pre_post_deps= - for pre_post_dep in $predeps $postdeps; do - case "$pre_post_deps " in - *" $pre_post_dep "*) specialdeplibs="$specialdeplibs $pre_post_deps" ;; - esac - pre_post_deps="$pre_post_deps $pre_post_dep" - done - pre_post_deps= - fi - - deplibs= - newdependency_libs= - newlib_search_path= - need_relink=no # whether we're linking any uninstalled libtool libraries - notinst_deplibs= # not-installed libtool libraries - notinst_path= # paths that contain not-installed libtool libraries - case $linkmode in - lib) - passes="conv link" - for file in $dlfiles $dlprefiles; do - case $file in - *.la) ;; - *) - $echo "$modename: libraries can \`-dlopen' only libtool libraries: $file" 1>&2 - exit 1 - ;; - esac - done - ;; - prog) - compile_deplibs= - finalize_deplibs= - alldeplibs=no - newdlfiles= - newdlprefiles= - passes="conv scan dlopen dlpreopen link" - ;; - *) passes="conv" - ;; - esac - for pass in $passes; do - if test $linkmode = prog; then - # Determine which files to process - case $pass in - dlopen) - libs="$dlfiles" - save_deplibs="$deplibs" # Collect dlpreopened libraries - deplibs= - ;; - dlpreopen) libs="$dlprefiles" ;; - link) libs="$deplibs %DEPLIBS% $dependency_libs" ;; - esac - fi - for deplib in $libs; do - lib= - found=no - case $deplib in - -l*) - if test $linkmode = oldlib && test $linkmode = obj; then - $echo "$modename: warning: \`-l' is ignored for archives/objects: $deplib" 1>&2 - continue - fi - if test $pass = conv; then - deplibs="$deplib $deplibs" - continue - fi - name=`$echo "X$deplib" | $Xsed -e 's/^-l//'` - for searchdir in $newlib_search_path $lib_search_path $sys_lib_search_path $shlib_search_path; do - # Search the libtool library - lib="$searchdir/lib${name}.la" - if test -f "$lib"; then - found=yes - break - fi - done - if test "$found" != yes; then - # deplib doesn't seem to be a libtool library - if test "$linkmode,$pass" = "prog,link"; then - compile_deplibs="$deplib $compile_deplibs" - finalize_deplibs="$deplib $finalize_deplibs" - else - deplibs="$deplib $deplibs" - test $linkmode = lib && newdependency_libs="$deplib $newdependency_libs" - fi - continue - fi - ;; # -l - -L*) - case $linkmode in - lib) - deplibs="$deplib $deplibs" - test $pass = conv && continue - newdependency_libs="$deplib $newdependency_libs" - newlib_search_path="$newlib_search_path "`$echo "X$deplib" | $Xsed -e 's/^-L//'` - ;; - prog) - if test $pass = conv; then - deplibs="$deplib $deplibs" - continue - fi - if test $pass = scan; then - deplibs="$deplib $deplibs" - newlib_search_path="$newlib_search_path "`$echo "X$deplib" | $Xsed -e 's/^-L//'` - else - compile_deplibs="$deplib $compile_deplibs" - finalize_deplibs="$deplib $finalize_deplibs" - fi - ;; - *) - $echo "$modename: warning: \`-L' is ignored for archives/objects: $deplib" 1>&2 - ;; - esac # linkmode - continue - ;; # -L - -R*) - if test $pass = link; then - dir=`$echo "X$deplib" | $Xsed -e 's/^-R//'` - # Make sure the xrpath contains only unique directories. - case "$xrpath " in - *" $dir "*) ;; - *) xrpath="$xrpath $dir" ;; - esac - fi - deplibs="$deplib $deplibs" - continue - ;; - *.la) lib="$deplib" ;; - *.$libext) - if test $pass = conv; then - deplibs="$deplib $deplibs" - continue - fi - case $linkmode in - lib) - if test "$deplibs_check_method" != pass_all; then - echo - echo "*** Warning: This library needs some functionality provided by $deplib." - echo "*** I have the capability to make that library automatically link in when" - echo "*** you link to this library. But I can only do this if you have a" - echo "*** shared version of the library, which you do not appear to have." - else - echo - echo "*** Warning: Linking the shared library $output against the" - echo "*** static library $deplib is not portable!" - deplibs="$deplib $deplibs" - fi - continue - ;; - prog) - if test $pass != link; then - deplibs="$deplib $deplibs" - else - compile_deplibs="$deplib $compile_deplibs" - finalize_deplibs="$deplib $finalize_deplibs" - fi - continue - ;; - esac # linkmode - ;; # *.$libext - *.lo | *.$objext) - if test $pass = dlpreopen || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; then - # If there is no dlopen support or we're linking statically, - # we need to preload. - newdlprefiles="$newdlprefiles $deplib" - compile_deplibs="$deplib $compile_deplibs" - finalize_deplibs="$deplib $finalize_deplibs" - else - newdlfiles="$newdlfiles $deplib" - fi - continue - ;; - %DEPLIBS%) - alldeplibs=yes - continue - ;; - esac # case $deplib - if test $found = yes || test -f "$lib"; then : - else - $echo "$modename: cannot find the library \`$lib'" 1>&2 - exit 1 - fi - - # Check to see that this really is a libtool archive. - if (sed -e '2q' $lib | egrep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then : - else - $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2 - exit 1 - fi - - ladir=`$echo "X$lib" | $Xsed -e 's%/[^/]*$%%'` - test "X$ladir" = "X$lib" && ladir="." - - dlname= - dlopen= - dlpreopen= - libdir= - library_names= - old_library= - # If the library was installed with an old release of libtool, - # it will not redefine variable installed. - installed=yes - - # Read the .la file - case $lib in - */* | *\\*) . $lib ;; - *) . ./$lib ;; - esac - - if test "$linkmode,$pass" = "lib,link" || - test "$linkmode,$pass" = "prog,scan" || - { test $linkmode = oldlib && test $linkmode = obj; }; then - # Add dl[pre]opened files of deplib - test -n "$dlopen" && dlfiles="$dlfiles $dlopen" - test -n "$dlpreopen" && dlprefiles="$dlprefiles $dlpreopen" - fi - - if test $pass = conv; then - # Only check for convenience libraries - deplibs="$lib $deplibs" - if test -z "$libdir"; then - if test -z "$old_library"; then - $echo "$modename: cannot find name of link library for \`$lib'" 1>&2 - exit 1 - fi - # It is a libtool convenience library, so add in its objects. - convenience="$convenience $ladir/$objdir/$old_library" - old_convenience="$old_convenience $ladir/$objdir/$old_library" - tmp_libs= - for deplib in $dependency_libs; do - deplibs="$deplib $deplibs" - case "$tmp_libs " in - *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;; - esac - tmp_libs="$tmp_libs $deplib" - done - elif test $linkmode != prog && test $linkmode != lib; then - $echo "$modename: \`$lib' is not a convenience library" 1>&2 - exit 1 - fi - continue - fi # $pass = conv - - # Get the name of the library we link against. - linklib= - for l in $old_library $library_names; do - linklib="$l" - done - if test -z "$linklib"; then - $echo "$modename: cannot find name of link library for \`$lib'" 1>&2 - exit 1 - fi - - # This library was specified with -dlopen. - if test $pass = dlopen; then - if test -z "$libdir"; then - $echo "$modename: cannot -dlopen a convenience library: \`$lib'" 1>&2 - exit 1 - fi - if test -z "$dlname" || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; then - # If there is no dlname, no dlopen support or we're linking - # statically, we need to preload. - dlprefiles="$dlprefiles $lib" - else - newdlfiles="$newdlfiles $lib" - fi - continue - fi # $pass = dlopen - - # We need an absolute path. - case $ladir in - [\\/]* | [A-Za-z]:[\\/]*) abs_ladir="$ladir" ;; - *) - abs_ladir=`cd "$ladir" && pwd` - if test -z "$abs_ladir"; then - $echo "$modename: warning: cannot determine absolute directory name of \`$ladir'" 1>&2 - $echo "$modename: passing it literally to the linker, although it might fail" 1>&2 - abs_ladir="$ladir" - fi - ;; - esac - laname=`$echo "X$lib" | $Xsed -e 's%^.*/%%'` - - # Find the relevant object directory and library name. - if test "X$installed" = Xyes; then - if test ! -f "$libdir/$linklib" && test -f "$abs_ladir/$linklib"; then - $echo "$modename: warning: library \`$lib' was moved." 1>&2 - dir="$ladir" - absdir="$abs_ladir" - libdir="$abs_ladir" - else - dir="$libdir" - absdir="$libdir" - fi - else - dir="$ladir/$objdir" - absdir="$abs_ladir/$objdir" - # Remove this search path later - notinst_path="$notinst_path $abs_ladir" - fi # $installed = yes - name=`$echo "X$laname" | $Xsed -e 's/\.la$//' -e 's/^lib//'` - - # This library was specified with -dlpreopen. - if test $pass = dlpreopen; then - if test -z "$libdir"; then - $echo "$modename: cannot -dlpreopen a convenience library: \`$lib'" 1>&2 - exit 1 - fi - # Prefer using a static library (so that no silly _DYNAMIC symbols - # are required to link). - if test -n "$old_library"; then - newdlprefiles="$newdlprefiles $dir/$old_library" - # Otherwise, use the dlname, so that lt_dlopen finds it. - elif test -n "$dlname"; then - newdlprefiles="$newdlprefiles $dir/$dlname" - else - newdlprefiles="$newdlprefiles $dir/$linklib" - fi - fi # $pass = dlpreopen - - if test -z "$libdir"; then - # Link the convenience library - if test $linkmode = lib; then - deplibs="$dir/$old_library $deplibs" - elif test "$linkmode,$pass" = "prog,link"; then - compile_deplibs="$dir/$old_library $compile_deplibs" - finalize_deplibs="$dir/$old_library $finalize_deplibs" - else - deplibs="$lib $deplibs" - fi - continue - fi - - if test $linkmode = prog && test $pass != link; then - newlib_search_path="$newlib_search_path $ladir" - deplibs="$lib $deplibs" - - linkalldeplibs=no - if test "$link_all_deplibs" != no || test -z "$library_names" || - test "$build_libtool_libs" = no; then - linkalldeplibs=yes - fi - - tmp_libs= - for deplib in $dependency_libs; do - case $deplib in - -L*) newlib_search_path="$newlib_search_path "`$echo "X$deplib" | $Xsed -e 's/^-L//'`;; ### testsuite: skip nested quoting test - esac - # Need to link against all dependency_libs? - if test $linkalldeplibs = yes; then - deplibs="$deplib $deplibs" - else - # Need to hardcode shared library paths - # or/and link against static libraries - newdependency_libs="$deplib $newdependency_libs" - fi - case "$tmp_libs " in - *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;; - esac - tmp_libs="$tmp_libs $deplib" - done # for deplib - continue - fi # $linkmode = prog... - - link_static=no # Whether the deplib will be linked statically - if test -n "$library_names" && - { test "$prefer_static_libs" = no || test -z "$old_library"; }; then - # Link against this shared library - - if test "$linkmode,$pass" = "prog,link" || - { test $linkmode = lib && test $hardcode_into_libs = yes; }; then - # Hardcode the library path. - # Skip directories that are in the system default run-time - # search path. - case " $sys_lib_dlsearch_path " in - *" $absdir "*) ;; - *) - case "$compile_rpath " in - *" $absdir "*) ;; - *) compile_rpath="$compile_rpath $absdir" - esac - ;; - esac - case " $sys_lib_dlsearch_path " in - *" $libdir "*) ;; - *) - case "$finalize_rpath " in - *" $libdir "*) ;; - *) finalize_rpath="$finalize_rpath $libdir" - esac - ;; - esac - if test $linkmode = prog; then - # We need to hardcode the library path - if test -n "$shlibpath_var"; then - # Make sure the rpath contains only unique directories. - case "$temp_rpath " in - *" $dir "*) ;; - *" $absdir "*) ;; - *) temp_rpath="$temp_rpath $dir" ;; - esac - fi - fi - fi # $linkmode,$pass = prog,link... - - if test "$alldeplibs" = yes && - { test "$deplibs_check_method" = pass_all || - { test "$build_libtool_libs" = yes && - test -n "$library_names"; }; }; then - # We only need to search for static libraries - continue - fi - - if test "$installed" = no; then - notinst_deplibs="$notinst_deplibs $lib" - need_relink=yes - fi - - if test -n "$old_archive_from_expsyms_cmds"; then - # figure out the soname - set dummy $library_names - realname="$2" - shift; shift - libname=`eval \\$echo \"$libname_spec\"` - # use dlname if we got it. it's perfectly good, no? - if test -n "$dlname"; then - soname="$dlname" - elif test -n "$soname_spec"; then - # bleh windows - case $host in - *cygwin*) - major=`expr $current - $age` - versuffix="-$major" - ;; - esac - eval soname=\"$soname_spec\" - else - soname="$realname" - fi - - # Make a new name for the extract_expsyms_cmds to use - soroot="$soname" - soname=`echo $soroot | sed -e 's/^.*\///'` - newlib="libimp-`echo $soname | sed 's/^lib//;s/\.dll$//'`.a" - - # If the library has no export list, then create one now - if test -f "$output_objdir/$soname-def"; then : - else - $show "extracting exported symbol list from \`$soname'" - IFS="${IFS= }"; save_ifs="$IFS"; IFS='~' - eval cmds=\"$extract_expsyms_cmds\" - for cmd in $cmds; do - IFS="$save_ifs" - $show "$cmd" - $run eval "$cmd" || exit $? - done - IFS="$save_ifs" - fi - - # Create $newlib - if test -f "$output_objdir/$newlib"; then :; else - $show "generating import library for \`$soname'" - IFS="${IFS= }"; save_ifs="$IFS"; IFS='~' - eval cmds=\"$old_archive_from_expsyms_cmds\" - for cmd in $cmds; do - IFS="$save_ifs" - $show "$cmd" - $run eval "$cmd" || exit $? - done - IFS="$save_ifs" - fi - # make sure the library variables are pointing to the new library - dir=$output_objdir - linklib=$newlib - fi # test -n $old_archive_from_expsyms_cmds - - if test $linkmode = prog || test "$mode" != relink; then - add_shlibpath= - add_dir= - add= - lib_linked=yes - case $hardcode_action in - immediate | unsupported) - if test "$hardcode_direct" = no; then - add="$dir/$linklib" - elif test "$hardcode_minus_L" = no; then - case $host in - *-*-sunos*) add_shlibpath="$dir" ;; - esac - add_dir="-L$dir" - add="-l$name" - elif test "$hardcode_shlibpath_var" = no; then - add_shlibpath="$dir" - add="-l$name" - else - lib_linked=no - fi - ;; - relink) - if test "$hardcode_direct" = yes; then - add="$dir/$linklib" - elif test "$hardcode_minus_L" = yes; then - add_dir="-L$dir" - add="-l$name" - elif test "$hardcode_shlibpath_var" = yes; then - add_shlibpath="$dir" - add="-l$name" - else - lib_linked=no - fi - ;; - *) lib_linked=no ;; - esac - - if test "$lib_linked" != yes; then - $echo "$modename: configuration error: unsupported hardcode properties" - exit 1 - fi - - if test -n "$add_shlibpath"; then - case :$compile_shlibpath: in - *":$add_shlibpath:"*) ;; - *) compile_shlibpath="$compile_shlibpath$add_shlibpath:" ;; - esac - fi - if test $linkmode = prog; then - test -n "$add_dir" && compile_deplibs="$add_dir $compile_deplibs" - test -n "$add" && compile_deplibs="$add $compile_deplibs" - else - test -n "$add_dir" && deplibs="$add_dir $deplibs" - test -n "$add" && deplibs="$add $deplibs" - if test "$hardcode_direct" != yes && \ - test "$hardcode_minus_L" != yes && \ - test "$hardcode_shlibpath_var" = yes; then - case :$finalize_shlibpath: in - *":$libdir:"*) ;; - *) finalize_shlibpath="$finalize_shlibpath$libdir:" ;; - esac - fi - fi - fi - - if test $linkmode = prog || test "$mode" = relink; then - add_shlibpath= - add_dir= - add= - # Finalize command for both is simple: just hardcode it. - if test "$hardcode_direct" = yes; then - add="$libdir/$linklib" - elif test "$hardcode_minus_L" = yes; then - add_dir="-L$libdir" - add="-l$name" - elif test "$hardcode_shlibpath_var" = yes; then - case :$finalize_shlibpath: in - *":$libdir:"*) ;; - *) finalize_shlibpath="$finalize_shlibpath$libdir:" ;; - esac - add="-l$name" - else - # We cannot seem to hardcode it, guess we'll fake it. - add_dir="-L$libdir" - add="-l$name" - fi - - if test $linkmode = prog; then - test -n "$add_dir" && finalize_deplibs="$add_dir $finalize_deplibs" - test -n "$add" && finalize_deplibs="$add $finalize_deplibs" - else - test -n "$add_dir" && deplibs="$add_dir $deplibs" - test -n "$add" && deplibs="$add $deplibs" - fi - fi - elif test $linkmode = prog; then - if test "$alldeplibs" = yes && - { test "$deplibs_check_method" = pass_all || - { test "$build_libtool_libs" = yes && - test -n "$library_names"; }; }; then - # We only need to search for static libraries - continue - fi - - # Try to link the static library - # Here we assume that one of hardcode_direct or hardcode_minus_L - # is not unsupported. This is valid on all known static and - # shared platforms. - if test "$hardcode_direct" != unsupported; then - test -n "$old_library" && linklib="$old_library" - compile_deplibs="$dir/$linklib $compile_deplibs" - finalize_deplibs="$dir/$linklib $finalize_deplibs" - else - compile_deplibs="-l$name -L$dir $compile_deplibs" - finalize_deplibs="-l$name -L$dir $finalize_deplibs" - fi - elif test "$build_libtool_libs" = yes; then - # Not a shared library - if test "$deplibs_check_method" != pass_all; then - # We're trying link a shared library against a static one - # but the system doesn't support it. - - # Just print a warning and add the library to dependency_libs so - # that the program can be linked against the static library. - echo - echo "*** Warning: This library needs some functionality provided by $lib." - echo "*** I have the capability to make that library automatically link in when" - echo "*** you link to this library. But I can only do this if you have a" - echo "*** shared version of the library, which you do not appear to have." - if test "$module" = yes; then - echo "*** Therefore, libtool will create a static module, that should work " - echo "*** as long as the dlopening application is linked with the -dlopen flag." - if test -z "$global_symbol_pipe"; then - echo - echo "*** However, this would only work if libtool was able to extract symbol" - echo "*** lists from a program, using \`nm' or equivalent, but libtool could" - echo "*** not find such a program. So, this module is probably useless." - echo "*** \`nm' from GNU binutils and a full rebuild may help." - fi - if test "$build_old_libs" = no; then - build_libtool_libs=module - build_old_libs=yes - else - build_libtool_libs=no - fi - fi - else - convenience="$convenience $dir/$old_library" - old_convenience="$old_convenience $dir/$old_library" - deplibs="$dir/$old_library $deplibs" - link_static=yes - fi - fi # link shared/static library? - - if test $linkmode = lib; then - if test -n "$dependency_libs" && - { test $hardcode_into_libs != yes || test $build_old_libs = yes || - test $link_static = yes; }; then - # Extract -R from dependency_libs - temp_deplibs= - for libdir in $dependency_libs; do - case $libdir in - -R*) temp_xrpath=`$echo "X$libdir" | $Xsed -e 's/^-R//'` - case " $xrpath " in - *" $temp_xrpath "*) ;; - *) xrpath="$xrpath $temp_xrpath";; - esac;; - *) temp_deplibs="$temp_deplibs $libdir";; - esac - done - dependency_libs="$temp_deplibs" - fi - - newlib_search_path="$newlib_search_path $absdir" - # Link against this library - test "$link_static" = no && newdependency_libs="$abs_ladir/$laname $newdependency_libs" - # ... and its dependency_libs - tmp_libs= - for deplib in $dependency_libs; do - newdependency_libs="$deplib $newdependency_libs" - case "$tmp_libs " in - *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;; - esac - tmp_libs="$tmp_libs $deplib" - done - - if test $link_all_deplibs != no; then - # Add the search paths of all dependency libraries - for deplib in $dependency_libs; do - case $deplib in - -L*) path="$deplib" ;; - *.la) - dir=`$echo "X$deplib" | $Xsed -e 's%/[^/]*$%%'` - test "X$dir" = "X$deplib" && dir="." - # We need an absolute path. - case $dir in - [\\/]* | [A-Za-z]:[\\/]*) absdir="$dir" ;; - *) - absdir=`cd "$dir" && pwd` - if test -z "$absdir"; then - $echo "$modename: warning: cannot determine absolute directory name of \`$dir'" 1>&2 - absdir="$dir" - fi - ;; - esac - if grep "^installed=no" $deplib > /dev/null; then - path="-L$absdir/$objdir" - else - eval libdir=`sed -n -e 's/^libdir=\(.*\)$/\1/p' $deplib` - if test -z "$libdir"; then - $echo "$modename: \`$deplib' is not a valid libtool archive" 1>&2 - exit 1 - fi - if test "$absdir" != "$libdir"; then - $echo "$modename: warning: \`$deplib' seems to be moved" 1>&2 - fi - path="-L$absdir" - fi - ;; - *) continue ;; - esac - case " $deplibs " in - *" $path "*) ;; - *) deplibs="$path $deplibs" ;; - esac - done - fi # link_all_deplibs != no - fi # linkmode = lib - done # for deplib in $libs - if test $pass = dlpreopen; then - # Link the dlpreopened libraries before other libraries - for deplib in $save_deplibs; do - deplibs="$deplib $deplibs" - done - fi - if test $pass != dlopen; then - test $pass != scan && dependency_libs="$newdependency_libs" - if test $pass != conv; then - # Make sure lib_search_path contains only unique directories. - lib_search_path= - for dir in $newlib_search_path; do - case "$lib_search_path " in - *" $dir "*) ;; - *) lib_search_path="$lib_search_path $dir" ;; - esac - done - newlib_search_path= - fi - - if test "$linkmode,$pass" != "prog,link"; then - vars="deplibs" - else - vars="compile_deplibs finalize_deplibs" - fi - for var in $vars dependency_libs; do - # Add libraries to $var in reverse order - eval tmp_libs=\"\$$var\" - new_libs= - for deplib in $tmp_libs; do - case $deplib in - -L*) new_libs="$deplib $new_libs" ;; - *) - case " $specialdeplibs " in - *" $deplib "*) new_libs="$deplib $new_libs" ;; - *) - case " $new_libs " in - *" $deplib "*) ;; - *) new_libs="$deplib $new_libs" ;; - esac - ;; - esac - ;; - esac - done - tmp_libs= - for deplib in $new_libs; do - case $deplib in - -L*) - case " $tmp_libs " in - *" $deplib "*) ;; - *) tmp_libs="$tmp_libs $deplib" ;; - esac - ;; - *) tmp_libs="$tmp_libs $deplib" ;; - esac - done - eval $var=\"$tmp_libs\" - done # for var - fi - if test "$pass" = "conv" && - { test "$linkmode" = "lib" || test "$linkmode" = "prog"; }; then - libs="$deplibs" # reset libs - deplibs= - fi - done # for pass - if test $linkmode = prog; then - dlfiles="$newdlfiles" - dlprefiles="$newdlprefiles" - fi - - case $linkmode in - oldlib) - if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then - $echo "$modename: warning: \`-dlopen' is ignored for archives" 1>&2 - fi - - if test -n "$rpath"; then - $echo "$modename: warning: \`-rpath' is ignored for archives" 1>&2 - fi - - if test -n "$xrpath"; then - $echo "$modename: warning: \`-R' is ignored for archives" 1>&2 - fi - - if test -n "$vinfo"; then - $echo "$modename: warning: \`-version-info' is ignored for archives" 1>&2 - fi - - if test -n "$release"; then - $echo "$modename: warning: \`-release' is ignored for archives" 1>&2 - fi - - if test -n "$export_symbols" || test -n "$export_symbols_regex"; then - $echo "$modename: warning: \`-export-symbols' is ignored for archives" 1>&2 - fi - - # Now set the variables for building old libraries. - build_libtool_libs=no - oldlibs="$output" - objs="$objs$old_deplibs" - ;; - - lib) - # Make sure we only generate libraries of the form `libNAME.la'. - case $outputname in - lib*) - name=`$echo "X$outputname" | $Xsed -e 's/\.la$//' -e 's/^lib//'` - eval libname=\"$libname_spec\" - ;; - *) - if test "$module" = no; then - $echo "$modename: libtool library \`$output' must begin with \`lib'" 1>&2 - $echo "$help" 1>&2 - exit 1 - fi - if test "$need_lib_prefix" != no; then - # Add the "lib" prefix for modules if required - name=`$echo "X$outputname" | $Xsed -e 's/\.la$//'` - eval libname=\"$libname_spec\" - else - libname=`$echo "X$outputname" | $Xsed -e 's/\.la$//'` - fi - ;; - esac - - if test -n "$objs"; then - if test "$deplibs_check_method" != pass_all; then - $echo "$modename: cannot build libtool library \`$output' from non-libtool objects on this host:$objs" 2>&1 - exit 1 - else - echo - echo "*** Warning: Linking the shared library $output against the non-libtool" - echo "*** objects $objs is not portable!" - libobjs="$libobjs $objs" - fi - fi - - if test "$dlself" != no; then - $echo "$modename: warning: \`-dlopen self' is ignored for libtool libraries" 1>&2 - fi - - set dummy $rpath - if test $# -gt 2; then - $echo "$modename: warning: ignoring multiple \`-rpath's for a libtool library" 1>&2 - fi - install_libdir="$2" - - oldlibs= - if test -z "$rpath"; then - if test "$build_libtool_libs" = yes; then - # Building a libtool convenience library. - # Some compilers have problems with a `.al' extension so - # convenience libraries should have the same extension an - # archive normally would. - oldlibs="$output_objdir/$libname.$libext $oldlibs" - build_libtool_libs=convenience - build_old_libs=yes - fi - - if test -n "$vinfo"; then - $echo "$modename: warning: \`-version-info' is ignored for convenience libraries" 1>&2 - fi - - if test -n "$release"; then - $echo "$modename: warning: \`-release' is ignored for convenience libraries" 1>&2 - fi - else - - # Parse the version information argument. - IFS="${IFS= }"; save_ifs="$IFS"; IFS=':' - set dummy $vinfo 0 0 0 - IFS="$save_ifs" - - if test -n "$8"; then - $echo "$modename: too many parameters to \`-version-info'" 1>&2 - $echo "$help" 1>&2 - exit 1 - fi - - current="$2" - revision="$3" - age="$4" - - # Check that each of the things are valid numbers. - case $current in - 0 | [1-9] | [1-9][0-9] | [1-9][0-9][0-9]) ;; - *) - $echo "$modename: CURRENT \`$current' is not a nonnegative integer" 1>&2 - $echo "$modename: \`$vinfo' is not valid version information" 1>&2 - exit 1 - ;; - esac - - case $revision in - 0 | [1-9] | [1-9][0-9] | [1-9][0-9][0-9]) ;; - *) - $echo "$modename: REVISION \`$revision' is not a nonnegative integer" 1>&2 - $echo "$modename: \`$vinfo' is not valid version information" 1>&2 - exit 1 - ;; - esac - - case $age in - 0 | [1-9] | [1-9][0-9] | [1-9][0-9][0-9]) ;; - *) - $echo "$modename: AGE \`$age' is not a nonnegative integer" 1>&2 - $echo "$modename: \`$vinfo' is not valid version information" 1>&2 - exit 1 - ;; - esac - - if test $age -gt $current; then - $echo "$modename: AGE \`$age' is greater than the current interface number \`$current'" 1>&2 - $echo "$modename: \`$vinfo' is not valid version information" 1>&2 - exit 1 - fi - - # Calculate the version variables. - major= - versuffix= - verstring= - case $version_type in - none) ;; - - darwin) - # Like Linux, but with the current version available in - # verstring for coding it into the library header - major=.`expr $current - $age` - versuffix="$major.$age.$revision" - # Darwin ld doesn't like 0 for these options... - minor_current=`expr $current + 1` - verstring="-compatibility_version $minor_current -current_version $minor_current.$revision" - ;; - - freebsd-aout) - major=".$current" - versuffix=".$current.$revision"; - ;; - - freebsd-elf) - major=".$current" - versuffix=".$current"; - ;; - - irix) - major=`expr $current - $age + 1` - verstring="sgi$major.$revision" - - # Add in all the interfaces that we are compatible with. - loop=$revision - while test $loop != 0; do - iface=`expr $revision - $loop` - loop=`expr $loop - 1` - verstring="sgi$major.$iface:$verstring" - done - - # Before this point, $major must not contain `.'. - major=.$major - versuffix="$major.$revision" - ;; - - linux) - major=.`expr $current - $age` - versuffix="$major.$age.$revision" - ;; - - osf) - major=`expr $current - $age` - versuffix=".$current.$age.$revision" - verstring="$current.$age.$revision" - - # Add in all the interfaces that we are compatible with. - loop=$age - while test $loop != 0; do - iface=`expr $current - $loop` - loop=`expr $loop - 1` - verstring="$verstring:${iface}.0" - done - - # Make executables depend on our current version. - verstring="$verstring:${current}.0" - ;; - - sunos) - major=".$current" - versuffix=".$current.$revision" - ;; - - windows) - # Use '-' rather than '.', since we only want one - # extension on DOS 8.3 filesystems. - major=`expr $current - $age` - versuffix="-$major" - ;; - - *) - $echo "$modename: unknown library version type \`$version_type'" 1>&2 - echo "Fatal configuration error. See the $PACKAGE docs for more information." 1>&2 - exit 1 - ;; - esac - - # Clear the version info if we defaulted, and they specified a release. - if test -z "$vinfo" && test -n "$release"; then - major= - verstring="0.0" - if test "$need_version" = no; then - versuffix= - else - versuffix=".0.0" - fi - fi - - # Remove version info from name if versioning should be avoided - if test "$avoid_version" = yes && test "$need_version" = no; then - major= - versuffix= - verstring="" - fi - - # Check to see if the archive will have undefined symbols. - if test "$allow_undefined" = yes; then - if test "$allow_undefined_flag" = unsupported; then - $echo "$modename: warning: undefined symbols not allowed in $host shared libraries" 1>&2 - build_libtool_libs=no - build_old_libs=yes - fi - else - # Don't allow undefined symbols. - allow_undefined_flag="$no_undefined_flag" - fi - fi - - if test "$mode" != relink; then - # Remove our outputs, but don't remove object files since they - # may have been created when compiling PIC objects. - removelist= - tempremovelist=`echo "$output_objdir/*"` - for p in $tempremovelist; do - case $p in - *.$objext) - ;; - $output_objdir/$outputname | $output_objdir/$libname.* | $output_objdir/${libname}${release}.*) - removelist="$removelist $p" - ;; - *) ;; - esac - done - if test -n "$removelist"; then - $show "${rm}r $removelist" - $run ${rm}r $removelist - fi - fi - - # Now set the variables for building old libraries. - if test "$build_old_libs" = yes && test "$build_libtool_libs" != convenience ; then - oldlibs="$oldlibs $output_objdir/$libname.$libext" - - # Transform .lo files to .o files. - oldobjs="$objs "`$echo "X$libobjs" | $SP2NL | $Xsed -e '/\.'${libext}'$/d' -e "$lo2o" | $NL2SP` - fi - - # Eliminate all temporary directories. - for path in $notinst_path; do - lib_search_path=`echo "$lib_search_path " | sed -e 's% $path % %g'` - deplibs=`echo "$deplibs " | sed -e 's% -L$path % %g'` - dependency_libs=`echo "$dependency_libs " | sed -e 's% -L$path % %g'` - done - - if test -n "$xrpath"; then - # If the user specified any rpath flags, then add them. - temp_xrpath= - for libdir in $xrpath; do - temp_xrpath="$temp_xrpath -R$libdir" - case "$finalize_rpath " in - *" $libdir "*) ;; - *) finalize_rpath="$finalize_rpath $libdir" ;; - esac - done - if test $hardcode_into_libs != yes || test $build_old_libs = yes; then - dependency_libs="$temp_xrpath $dependency_libs" - fi - fi - - # Make sure dlfiles contains only unique files that won't be dlpreopened - old_dlfiles="$dlfiles" - dlfiles= - for lib in $old_dlfiles; do - case " $dlprefiles $dlfiles " in - *" $lib "*) ;; - *) dlfiles="$dlfiles $lib" ;; - esac - done - - # Make sure dlprefiles contains only unique files - old_dlprefiles="$dlprefiles" - dlprefiles= - for lib in $old_dlprefiles; do - case "$dlprefiles " in - *" $lib "*) ;; - *) dlprefiles="$dlprefiles $lib" ;; - esac - done - - if test "$build_libtool_libs" = yes; then - if test -n "$rpath"; then - case $host in - *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-beos*) - # these systems don't actually have a c library (as such)! - ;; - *-*-rhapsody* | *-*-darwin1.[012]) - # Rhapsody C library is in the System framework - deplibs="$deplibs -framework System" - ;; - *-*-netbsd*) - # Don't link with libc until the a.out ld.so is fixed. - ;; - *) - # Add libc to deplibs on all other systems if necessary. - if test $build_libtool_need_lc = "yes"; then - deplibs="$deplibs -lc" - fi - ;; - esac - fi - - # Transform deplibs into only deplibs that can be linked in shared. - name_save=$name - libname_save=$libname - release_save=$release - versuffix_save=$versuffix - major_save=$major - # I'm not sure if I'm treating the release correctly. I think - # release should show up in the -l (ie -lgmp5) so we don't want to - # add it in twice. Is that correct? - release="" - versuffix="" - major="" - newdeplibs= - droppeddeps=no - case $deplibs_check_method in - pass_all) - # Don't check for shared/static. Everything works. - # This might be a little naive. We might want to check - # whether the library exists or not. But this is on - # osf3 & osf4 and I'm not really sure... Just - # implementing what was already the behaviour. - newdeplibs=$deplibs - ;; - test_compile) - # This code stresses the "libraries are programs" paradigm to its - # limits. Maybe even breaks it. We compile a program, linking it - # against the deplibs as a proxy for the library. Then we can check - # whether they linked in statically or dynamically with ldd. - $rm conftest.c - cat > conftest.c <<EOF - int main() { return 0; } -EOF - $rm conftest - $LTCC -o conftest conftest.c $deplibs - if test $? -eq 0 ; then - ldd_output=`ldd conftest` - for i in $deplibs; do - name="`expr $i : '-l\(.*\)'`" - # If $name is empty we are operating on a -L argument. - if test -n "$name" && test "$name" != "0"; then - libname=`eval \\$echo \"$libname_spec\"` - deplib_matches=`eval \\$echo \"$library_names_spec\"` - set dummy $deplib_matches - deplib_match=$2 - if test `expr "$ldd_output" : ".*$deplib_match"` -ne 0 ; then - newdeplibs="$newdeplibs $i" - else - droppeddeps=yes - echo - echo "*** Warning: This library needs some functionality provided by $i." - echo "*** I have the capability to make that library automatically link in when" - echo "*** you link to this library. But I can only do this if you have a" - echo "*** shared version of the library, which you do not appear to have." - fi - else - newdeplibs="$newdeplibs $i" - fi - done - else - # Error occured in the first compile. Let's try to salvage the situation: - # Compile a seperate program for each library. - for i in $deplibs; do - name="`expr $i : '-l\(.*\)'`" - # If $name is empty we are operating on a -L argument. - if test -n "$name" && test "$name" != "0"; then - $rm conftest - $LTCC -o conftest conftest.c $i - # Did it work? - if test $? -eq 0 ; then - ldd_output=`ldd conftest` - libname=`eval \\$echo \"$libname_spec\"` - deplib_matches=`eval \\$echo \"$library_names_spec\"` - set dummy $deplib_matches - deplib_match=$2 - if test `expr "$ldd_output" : ".*$deplib_match"` -ne 0 ; then - newdeplibs="$newdeplibs $i" - else - droppeddeps=yes - echo - echo "*** Warning: This library needs some functionality provided by $i." - echo "*** I have the capability to make that library automatically link in when" - echo "*** you link to this library. But I can only do this if you have a" - echo "*** shared version of the library, which you do not appear to have." - fi - else - droppeddeps=yes - echo - echo "*** Warning! Library $i is needed by this library but I was not able to" - echo "*** make it link in! You will probably need to install it or some" - echo "*** library that it depends on before this library will be fully" - echo "*** functional. Installing it before continuing would be even better." - fi - else - newdeplibs="$newdeplibs $i" - fi - done - fi - ;; - file_magic*) - set dummy $deplibs_check_method - file_magic_regex=`expr "$deplibs_check_method" : "$2 \(.*\)"` - for a_deplib in $deplibs; do - name="`expr $a_deplib : '-l\(.*\)'`" - # If $name is empty we are operating on a -L argument. - if test -n "$name" && test "$name" != "0"; then - libname=`eval \\$echo \"$libname_spec\"` - for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do - potential_libs=`ls $i/$libname[.-]* 2>/dev/null` - for potent_lib in $potential_libs; do - # Follow soft links. - if ls -lLd "$potent_lib" 2>/dev/null \ - | grep " -> " >/dev/null; then - continue - fi - # The statement above tries to avoid entering an - # endless loop below, in case of cyclic links. - # We might still enter an endless loop, since a link - # loop can be closed while we follow links, - # but so what? - potlib="$potent_lib" - while test -h "$potlib" 2>/dev/null; do - potliblink=`ls -ld $potlib | sed 's/.* -> //'` - case $potliblink in - [\\/]* | [A-Za-z]:[\\/]*) potlib="$potliblink";; - *) potlib=`$echo "X$potlib" | $Xsed -e 's,[^/]*$,,'`"$potliblink";; - esac - done - if eval $file_magic_cmd \"\$potlib\" 2>/dev/null \ - | sed 10q \ - | egrep "$file_magic_regex" > /dev/null; then - newdeplibs="$newdeplibs $a_deplib" - a_deplib="" - break 2 - fi - done - done - if test -n "$a_deplib" ; then - droppeddeps=yes - echo - echo "*** Warning: This library needs some functionality provided by $a_deplib." - echo "*** I have the capability to make that library automatically link in when" - echo "*** you link to this library. But I can only do this if you have a" - echo "*** shared version of the library, which you do not appear to have." - fi - else - # Add a -L argument. - newdeplibs="$newdeplibs $a_deplib" - fi - done # Gone through all deplibs. - ;; - match_pattern*) - set dummy $deplibs_check_method - match_pattern_regex=`expr "$deplibs_check_method" : "$2 \(.*\)"` - for a_deplib in $deplibs; do - name="`expr $a_deplib : '-l\(.*\)'`" - # If $name is empty we are operating on a -L argument. - if test -n "$name" && test "$name" != "0"; then - libname=`eval \\$echo \"$libname_spec\"` - for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do - potential_libs=`ls $i/$libname[.-]* 2>/dev/null` - for potent_lib in $potential_libs; do - if eval echo \"$potent_lib\" 2>/dev/null \ - | sed 10q \ - | egrep "$match_pattern_regex" > /dev/null; then - newdeplibs="$newdeplibs $a_deplib" - a_deplib="" - break 2 - fi - done - done - if test -n "$a_deplib" ; then - droppeddeps=yes - echo - echo "*** Warning: This library needs some functionality provided by $a_deplib." - echo "*** I have the capability to make that library automatically link in when" - echo "*** you link to this library. But I can only do this if you have a" - echo "*** shared version of the library, which you do not appear to have." - fi - else - # Add a -L argument. - newdeplibs="$newdeplibs $a_deplib" - fi - done # Gone through all deplibs. - ;; - none | unknown | *) - newdeplibs="" - if $echo "X $deplibs" | $Xsed -e 's/ -lc$//' \ - -e 's/ -[LR][^ ]*//g' -e 's/[ ]//g' | - grep . >/dev/null; then - echo - if test "X$deplibs_check_method" = "Xnone"; then - echo "*** Warning: inter-library dependencies are not supported in this platform." - else - echo "*** Warning: inter-library dependencies are not known to be supported." - fi - echo "*** All declared inter-library dependencies are being dropped." - droppeddeps=yes - fi - ;; - esac - versuffix=$versuffix_save - major=$major_save - release=$release_save - libname=$libname_save - name=$name_save - - case $host in - *-*-rhapsody* | *-*-darwin1.[012]) - # On Rhapsody replace the C library is the System framework - newdeplibs=`$echo "X $newdeplibs" | $Xsed -e 's/ -lc / -framework System /'` - ;; - esac - - if test "$droppeddeps" = yes; then - if test "$module" = yes; then - echo - echo "*** Warning: libtool could not satisfy all declared inter-library" - echo "*** dependencies of module $libname. Therefore, libtool will create" - echo "*** a static module, that should work as long as the dlopening" - echo "*** application is linked with the -dlopen flag." - if test -z "$global_symbol_pipe"; then - echo - echo "*** However, this would only work if libtool was able to extract symbol" - echo "*** lists from a program, using \`nm' or equivalent, but libtool could" - echo "*** not find such a program. So, this module is probably useless." - echo "*** \`nm' from GNU binutils and a full rebuild may help." - fi - if test "$build_old_libs" = no; then - oldlibs="$output_objdir/$libname.$libext" - build_libtool_libs=module - build_old_libs=yes - else - build_libtool_libs=no - fi - else - echo "*** The inter-library dependencies that have been dropped here will be" - echo "*** automatically added whenever a program is linked with this library" - echo "*** or is declared to -dlopen it." - - if test $allow_undefined = no; then - echo - echo "*** Since this library must not contain undefined symbols," - echo "*** because either the platform does not support them or" - echo "*** it was explicitly requested with -no-undefined," - echo "*** libtool will only create a static version of it." - if test "$build_old_libs" = no; then - oldlibs="$output_objdir/$libname.$libext" - build_libtool_libs=module - build_old_libs=yes - else - build_libtool_libs=no - fi - fi - fi - fi - # Done checking deplibs! - deplibs=$newdeplibs - fi - - # All the library-specific variables (install_libdir is set above). - library_names= - old_library= - dlname= - - # Test again, we may have decided not to build it any more - if test "$build_libtool_libs" = yes; then - if test $hardcode_into_libs = yes; then - # Hardcode the library paths - hardcode_libdirs= - dep_rpath= - rpath="$finalize_rpath" - test "$mode" != relink && rpath="$compile_rpath$rpath" - for libdir in $rpath; do - if test -n "$hardcode_libdir_flag_spec"; then - if test -n "$hardcode_libdir_separator"; then - if test -z "$hardcode_libdirs"; then - hardcode_libdirs="$libdir" - else - # Just accumulate the unique libdirs. - case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in - *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) - ;; - *) - hardcode_libdirs="$hardcode_libdirs$hardcode_libdir_separator$libdir" - ;; - esac - fi - else - eval flag=\"$hardcode_libdir_flag_spec\" - dep_rpath="$dep_rpath $flag" - fi - elif test -n "$runpath_var"; then - case "$perm_rpath " in - *" $libdir "*) ;; - *) perm_rpath="$perm_rpath $libdir" ;; - esac - fi - done - # Substitute the hardcoded libdirs into the rpath. - if test -n "$hardcode_libdir_separator" && - test -n "$hardcode_libdirs"; then - libdir="$hardcode_libdirs" - eval dep_rpath=\"$hardcode_libdir_flag_spec\" - fi - if test -n "$runpath_var" && test -n "$perm_rpath"; then - # We should set the runpath_var. - rpath= - for dir in $perm_rpath; do - rpath="$rpath$dir:" - done - eval "$runpath_var='$rpath\$$runpath_var'; export $runpath_var" - fi - test -n "$dep_rpath" && deplibs="$dep_rpath $deplibs" - fi - - shlibpath="$finalize_shlibpath" - test "$mode" != relink && shlibpath="$compile_shlibpath$shlibpath" - if test -n "$shlibpath"; then - eval "$shlibpath_var='$shlibpath\$$shlibpath_var'; export $shlibpath_var" - fi - - # Get the real and link names of the library. - eval library_names=\"$library_names_spec\" - set dummy $library_names - realname="$2" - shift; shift - - if test -n "$soname_spec"; then - eval soname=\"$soname_spec\" - else - soname="$realname" - fi - test -z "$dlname" && dlname=$soname - - lib="$output_objdir/$realname" - for link - do - linknames="$linknames $link" - done - -# # Ensure that we have .o objects for linkers which dislike .lo -# # (e.g. aix) in case we are running --disable-static -# for obj in $libobjs; do -# xdir=`$echo "X$obj" | $Xsed -e 's%/[^/]*$%%'` -# if test "X$xdir" = "X$obj"; then -# xdir="." -# else -# xdir="$xdir" -# fi -# baseobj=`$echo "X$obj" | $Xsed -e 's%^.*/%%'` -# oldobj=`$echo "X$baseobj" | $Xsed -e "$lo2o"` -# if test ! -f $xdir/$oldobj && test "$baseobj" != "$oldobj"; then -# $show "(cd $xdir && ${LN_S} $baseobj $oldobj)" -# $run eval '(cd $xdir && ${LN_S} $baseobj $oldobj)' || exit $? -# fi -# done - - # Use standard objects if they are pic - test -z "$pic_flag" && libobjs=`$echo "X$libobjs" | $SP2NL | $Xsed -e "$lo2o" | $NL2SP` - - # Prepare the list of exported symbols - if test -z "$export_symbols"; then - if test "$always_export_symbols" = yes || test -n "$export_symbols_regex"; then - $show "generating symbol list for \`$libname.la'" - export_symbols="$output_objdir/$libname.exp" - $run $rm $export_symbols - eval cmds=\"$export_symbols_cmds\" - IFS="${IFS= }"; save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - $show "$cmd" - $run eval "$cmd" || exit $? - done - IFS="$save_ifs" - if test -n "$export_symbols_regex"; then - $show "egrep -e \"$export_symbols_regex\" \"$export_symbols\" > \"${export_symbols}T\"" - $run eval 'egrep -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"' - $show "$mv \"${export_symbols}T\" \"$export_symbols\"" - $run eval '$mv "${export_symbols}T" "$export_symbols"' - fi - fi - fi - - if test -n "$export_symbols" && test -n "$include_expsyms"; then - $run eval '$echo "X$include_expsyms" | $SP2NL >> "$export_symbols"' - fi - - if test -n "$convenience"; then - if test -n "$whole_archive_flag_spec"; then - save_libobjs=$libobjs - eval libobjs=\"\$libobjs $whole_archive_flag_spec\" - else - gentop="$output_objdir/${outputname}x" - $show "${rm}r $gentop" - $run ${rm}r "$gentop" - $show "$mkdir $gentop" - $run $mkdir "$gentop" - status=$? - if test $status -ne 0 && test ! -d "$gentop"; then - exit $status - fi - generated="$generated $gentop" - - for xlib in $convenience; do - # Extract the objects. - case $xlib in - [\\/]* | [A-Za-z]:[\\/]*) xabs="$xlib" ;; - *) xabs=`pwd`"/$xlib" ;; - esac - xlib=`$echo "X$xlib" | $Xsed -e 's%^.*/%%'` - xdir="$gentop/$xlib" - - $show "${rm}r $xdir" - $run ${rm}r "$xdir" - $show "$mkdir $xdir" - $run $mkdir "$xdir" - status=$? - if test $status -ne 0 && test ! -d "$xdir"; then - exit $status - fi - $show "(cd $xdir && $AR x $xabs)" - $run eval "(cd \$xdir && $AR x \$xabs)" || exit $? - - libobjs="$libobjs "`find $xdir -name \*.$objext -print -o -name \*.lo -print | $NL2SP` - done - fi - fi - - if test "$thread_safe" = yes && test -n "$thread_safe_flag_spec"; then - eval flag=\"$thread_safe_flag_spec\" - linker_flags="$linker_flags $flag" - fi - - # Make a backup of the uninstalled library when relinking - if test "$mode" = relink; then - $run eval '(cd $output_objdir && $rm ${realname}U && $mv $realname ${realname}U)' || exit $? - fi - - # Do each of the archive commands. - if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then - eval cmds=\"$archive_expsym_cmds\" - else - eval cmds=\"$archive_cmds\" - fi - if len=`expr "X$cmds" : ".*"` && - test $len -le $max_cmd_len; then - : - else - # The command line is too long to link in one step, link piecewise. - $echo "creating reloadable object files..." - - # Save the value of $output and $libobjs because we want to - # use them later. If we have whole_archive_flag_spec, we - # want to use save_libobjs as it was before - # whole_archive_flag_spec was expanded, because we can't - # assume the linker understands whole_archive_flag_spec. - # This may have to be revisited, in case too many - # convenience libraries get linked in and end up exceeding - # the spec. - if test -z "$convenience" || test -z "$whole_archive_flag_spec"; then - save_libobjs=$libobjs - fi - save_output=$output - - # Clear the reloadable object creation command queue and - # initialize k to one. - test_cmds= - concat_cmds= - objlist= - delfiles= - last_robj= - k=1 - output=$output_objdir/$save_output-${k}.$objext - # Loop over the list of objects to be linked. - for obj in $save_libobjs - do - eval test_cmds=\"$reload_cmds $objlist $last_robj\" - if test "X$objlist" = X || - { len=`expr "X$test_cmds" : ".*"` && - test $len -le $max_cmd_len; }; then - objlist="$objlist $obj" - else - # The command $test_cmds is almost too long, add a - # command to the queue. - if test $k -eq 1 ; then - # The first file doesn't have a previous command to add. - eval concat_cmds=\"$reload_cmds $objlist $last_robj\" - else - # All subsequent reloadable object files will link in - # the last one created. - eval concat_cmds=\"\$concat_cmds~$reload_cmds $objlist $last_robj\" - fi - last_robj=$output_objdir/$save_output-${k}.$objext - k=`expr $k + 1` - output=$output_objdir/$save_output-${k}.$objext - objlist=$obj - len=1 - fi - done - # Handle the remaining objects by creating one last - # reloadable object file. All subsequent reloadable object - # files will link in the last one created. - test -z "$concat_cmds" || concat_cmds=$concat_cmds~ - eval concat_cmds=\"\${concat_cmds}$reload_cmds $objlist $last_robj\" - - # Set up a command to remove the reloadale object files - # after they are used. - i=0 - while test $i -lt $k - do - i=`expr $i + 1` - delfiles="$delfiles $output_objdir/$save_output-${i}.$objext" - done - - $echo "creating a temporary reloadable object file: $output" - - # Loop through the commands generated above and execute them. - IFS="${IFS= }"; save_ifs="$IFS"; IFS='~' - for cmd in $concat_cmds; do - IFS="$save_ifs" - $show "$cmd" - $run eval "$cmd" || exit $? - done - IFS="$save_ifs" - - libobjs=$output - # Restore the value of output. - output=$save_output - - if test -n "$convenience" && test -n "$whole_archive_flag_spec"; then - eval libobjs=\"\$libobjs $whole_archive_flag_spec\" - fi - # Expand the library linking commands again to reset the - # value of $libobjs for piecewise linking. - - # Do each of the archive commands. - if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then - eval cmds=\"$archive_expsym_cmds\" - else - eval cmds=\"$archive_cmds\" - fi - - # Append the command to remove the reloadable object files - # to the just-reset $cmds. - eval cmds=\"\$cmds~$rm $delfiles\" - fi - IFS="${IFS= }"; save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - $show "$cmd" - $run eval "$cmd" || exit $? - done - IFS="$save_ifs" - - # Restore the uninstalled library and exit - if test "$mode" = relink; then - $run eval '(cd $output_objdir && $rm ${realname}T && $mv $realname ${realname}T && $mv "$realname"U $realname)' || exit $? - exit 0 - fi - - # Create links to the real library. - for linkname in $linknames; do - if test "$realname" != "$linkname"; then - $show "(cd $output_objdir && $rm $linkname && $LN_S $realname $linkname)" - $run eval '(cd $output_objdir && $rm $linkname && $LN_S $realname $linkname)' || exit $? - fi - done - - # If -module or -export-dynamic was specified, set the dlname. - if test "$module" = yes || test "$export_dynamic" = yes; then - # On all known operating systems, these are identical. - dlname="$soname" - fi - fi - ;; - - obj) - if test -n "$deplibs"; then - $echo "$modename: warning: \`-l' and \`-L' are ignored for objects" 1>&2 - fi - - if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then - $echo "$modename: warning: \`-dlopen' is ignored for objects" 1>&2 - fi - - if test -n "$rpath"; then - $echo "$modename: warning: \`-rpath' is ignored for objects" 1>&2 - fi - - if test -n "$xrpath"; then - $echo "$modename: warning: \`-R' is ignored for objects" 1>&2 - fi - - if test -n "$vinfo"; then - $echo "$modename: warning: \`-version-info' is ignored for objects" 1>&2 - fi - - if test -n "$release"; then - $echo "$modename: warning: \`-release' is ignored for objects" 1>&2 - fi - - case $output in - *.lo) - if test -n "$objs$old_deplibs"; then - $echo "$modename: cannot build library object \`$output' from non-libtool objects" 1>&2 - exit 1 - fi - libobj="$output" - obj=`$echo "X$output" | $Xsed -e "$lo2o"` - ;; - *) - libobj= - obj="$output" - ;; - esac - - # Delete the old objects. - $run $rm $obj $libobj - - # Objects from convenience libraries. This assumes - # single-version convenience libraries. Whenever we create - # different ones for PIC/non-PIC, this we'll have to duplicate - # the extraction. - reload_conv_objs= - gentop= - # reload_cmds runs $LD directly, so let us get rid of - # -Wl from whole_archive_flag_spec - wl= - - if test -n "$convenience"; then - if test -n "$whole_archive_flag_spec"; then - eval reload_conv_objs=\"\$reload_objs $whole_archive_flag_spec\" - else - gentop="$output_objdir/${obj}x" - $show "${rm}r $gentop" - $run ${rm}r "$gentop" - $show "$mkdir $gentop" - $run $mkdir "$gentop" - status=$? - if test $status -ne 0 && test ! -d "$gentop"; then - exit $status - fi - generated="$generated $gentop" - - for xlib in $convenience; do - # Extract the objects. - case $xlib in - [\\/]* | [A-Za-z]:[\\/]*) xabs="$xlib" ;; - *) xabs=`pwd`"/$xlib" ;; - esac - xlib=`$echo "X$xlib" | $Xsed -e 's%^.*/%%'` - xdir="$gentop/$xlib" - - $show "${rm}r $xdir" - $run ${rm}r "$xdir" - $show "$mkdir $xdir" - $run $mkdir "$xdir" - status=$? - if test $status -ne 0 && test ! -d "$xdir"; then - exit $status - fi - $show "(cd $xdir && $AR x $xabs)" - $run eval "(cd \$xdir && $AR x \$xabs)" || exit $? - - reload_conv_objs="$reload_objs "`find $xdir -name \*.$objext -print -o -name \*.lo -print | $NL2SP` - done - fi - fi - - # Create the old-style object. - reload_objs="$objs$old_deplibs "`$echo "X$libobjs" | $SP2NL | $Xsed -e '/\.'${libext}$'/d' -e '/\.lib$/d' -e "$lo2o" | $NL2SP`" $reload_conv_objs" ### testsuite: skip nested quoting test - - output="$obj" - eval cmds=\"$reload_cmds\" - IFS="${IFS= }"; save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - $show "$cmd" - $run eval "$cmd" || exit $? - done - IFS="$save_ifs" - - # Exit if we aren't doing a library object file. - if test -z "$libobj"; then - if test -n "$gentop"; then - $show "${rm}r $gentop" - $run ${rm}r $gentop - fi - - exit 0 - fi - - if test "$build_libtool_libs" != yes; then - if test -n "$gentop"; then - $show "${rm}r $gentop" - $run ${rm}r $gentop - fi - - # Create an invalid libtool object if no PIC, so that we don't - # accidentally link it into a program. - # $show "echo timestamp > $libobj" - # $run eval "echo timestamp > $libobj" || exit $? - exit 0 - fi - - if test -n "$pic_flag" || test "$pic_mode" != default; then - # Only do commands if we really have different PIC objects. - reload_objs="$libobjs $reload_conv_objs" - output="$libobj" - eval cmds=\"$reload_cmds\" - IFS="${IFS= }"; save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - $show "$cmd" - $run eval "$cmd" || exit $? - done - IFS="$save_ifs" -# else -# # Just create a symlink. -# $show $rm $libobj -# $run $rm $libobj -# xdir=`$echo "X$libobj" | $Xsed -e 's%/[^/]*$%%'` -# if test "X$xdir" = "X$libobj"; then -# xdir="." -# else -# xdir="$xdir" -# fi -# baseobj=`$echo "X$libobj" | $Xsed -e 's%^.*/%%'` -# oldobj=`$echo "X$baseobj" | $Xsed -e "$lo2o"` -# $show "(cd $xdir && $LN_S $oldobj $baseobj)" -# $run eval '(cd $xdir && $LN_S $oldobj $baseobj)' || exit $? - fi - - if test -n "$gentop"; then - $show "${rm}r $gentop" - $run ${rm}r $gentop - fi - - exit 0 - ;; - - prog) - case $host in - *cygwin*) output=`echo $output | sed -e 's,.exe$,,;s,$,.exe,'` ;; - esac - if test -n "$vinfo"; then - $echo "$modename: warning: \`-version-info' is ignored for programs" 1>&2 - fi - - if test -n "$release"; then - $echo "$modename: warning: \`-release' is ignored for programs" 1>&2 - fi - - if test "$preload" = yes; then - if test "$dlopen_support" = unknown && test "$dlopen_self" = unknown && - test "$dlopen_self_static" = unknown; then - $echo "$modename: warning: \`AC_LIBTOOL_DLOPEN' not used. Assuming no dlopen support." - fi - fi - - case $host in - *-*-rhapsody* | *-*-darwin1.[012]) - # On Rhapsody replace the C library is the System framework - compile_deplibs=`$echo "X $compile_deplibs" | $Xsed -e 's/ -lc / -framework System /'` - finalize_deplibs=`$echo "X $finalize_deplibs" | $Xsed -e 's/ -lc / -framework System /'` - ;; - esac - - compile_command="$compile_command $compile_deplibs" - finalize_command="$finalize_command $finalize_deplibs" - - if test -n "$rpath$xrpath"; then - # If the user specified any rpath flags, then add them. - for libdir in $rpath $xrpath; do - # This is the magic to use -rpath. - case "$finalize_rpath " in - *" $libdir "*) ;; - *) finalize_rpath="$finalize_rpath $libdir" ;; - esac - done - fi - - # Now hardcode the library paths - rpath= - hardcode_libdirs= - for libdir in $compile_rpath $finalize_rpath; do - if test -n "$hardcode_libdir_flag_spec"; then - if test -n "$hardcode_libdir_separator"; then - if test -z "$hardcode_libdirs"; then - hardcode_libdirs="$libdir" - else - # Just accumulate the unique libdirs. - case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in - *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) - ;; - *) - hardcode_libdirs="$hardcode_libdirs$hardcode_libdir_separator$libdir" - ;; - esac - fi - else - eval flag=\"$hardcode_libdir_flag_spec\" - rpath="$rpath $flag" - fi - elif test -n "$runpath_var"; then - case "$perm_rpath " in - *" $libdir "*) ;; - *) perm_rpath="$perm_rpath $libdir" ;; - esac - fi - case $host in - *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*) - case :$dllsearchpath: in - *":$libdir:"*) ;; - *) dllsearchpath="$dllsearchpath:$libdir";; - esac - ;; - esac - done - # Substitute the hardcoded libdirs into the rpath. - if test -n "$hardcode_libdir_separator" && - test -n "$hardcode_libdirs"; then - libdir="$hardcode_libdirs" - eval rpath=\" $hardcode_libdir_flag_spec\" - fi - compile_rpath="$rpath" - - rpath= - hardcode_libdirs= - for libdir in $finalize_rpath; do - if test -n "$hardcode_libdir_flag_spec"; then - if test -n "$hardcode_libdir_separator"; then - if test -z "$hardcode_libdirs"; then - hardcode_libdirs="$libdir" - else - # Just accumulate the unique libdirs. - case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in - *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) - ;; - *) - hardcode_libdirs="$hardcode_libdirs$hardcode_libdir_separator$libdir" - ;; - esac - fi - else - eval flag=\"$hardcode_libdir_flag_spec\" - rpath="$rpath $flag" - fi - elif test -n "$runpath_var"; then - case "$finalize_perm_rpath " in - *" $libdir "*) ;; - *) finalize_perm_rpath="$finalize_perm_rpath $libdir" ;; - esac - fi - done - # Substitute the hardcoded libdirs into the rpath. - if test -n "$hardcode_libdir_separator" && - test -n "$hardcode_libdirs"; then - libdir="$hardcode_libdirs" - eval rpath=\" $hardcode_libdir_flag_spec\" - fi - finalize_rpath="$rpath" - - dlsyms= - if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then - if test -n "$NM" && test -n "$global_symbol_pipe"; then - dlsyms="${outputname}S.c" - else - $echo "$modename: not configured to extract global symbols from dlpreopened files" 1>&2 - fi - fi - - if test -n "$dlsyms"; then - case $dlsyms in - "") ;; - *.c) - # Discover the nlist of each of the dlfiles. - nlist="$output_objdir/${outputname}.nm" - - $show "$rm $nlist ${nlist}S ${nlist}T" - $run $rm "$nlist" "${nlist}S" "${nlist}T" - - # Parse the name list into a source file. - $show "creating $output_objdir/$dlsyms" - - test -z "$run" && $echo > "$output_objdir/$dlsyms" "\ -/* $dlsyms - symbol resolution table for \`$outputname' dlsym emulation. */ -/* Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP */ - -#ifdef __cplusplus -extern \"C\" { -#endif - -/* Prevent the only kind of declaration conflicts we can make. */ -#define lt_preloaded_symbols some_other_symbol - -/* External symbol declarations for the compiler. */\ -" - - if test "$dlself" = yes; then - $show "generating symbol list for \`$output'" - - test -z "$run" && $echo ': @PROGRAM@ ' > "$nlist" - - # Add our own program objects to the symbol list. - progfiles="$objs$old_deplibs" - for arg in $progfiles; do - $show "extracting global C symbols from \`$arg'" - $run eval "$NM $arg | $global_symbol_pipe >> '$nlist'" - done - - if test -n "$exclude_expsyms"; then - $run eval 'egrep -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T' - $run eval '$mv "$nlist"T "$nlist"' - fi - - if test -n "$export_symbols_regex"; then - $run eval 'egrep -e "$export_symbols_regex" "$nlist" > "$nlist"T' - $run eval '$mv "$nlist"T "$nlist"' - fi - - # Prepare the list of exported symbols - if test -z "$export_symbols"; then - export_symbols="$output_objdir/$output.exp" - $run $rm $export_symbols - $run eval "sed -n -e '/^: @PROGRAM@$/d' -e 's/^.* \(.*\)$/\1/p' "'< "$nlist" > "$export_symbols"' - else - $run eval "sed -e 's/\([][.*^$]\)/\\\1/g' -e 's/^/ /' -e 's/$/$/'"' < "$export_symbols" > "$output_objdir/$output.exp"' - $run eval 'grep -f "$output_objdir/$output.exp" < "$nlist" > "$nlist"T' - $run eval 'mv "$nlist"T "$nlist"' - fi - fi - - for arg in $dlprefiles; do - $show "extracting global C symbols from \`$arg'" - name=`echo "$arg" | sed -e 's%^.*/%%'` - $run eval 'echo ": $name " >> "$nlist"' - $run eval "$NM $arg | $global_symbol_pipe >> '$nlist'" - done - - if test -z "$run"; then - # Make sure we have at least an empty file. - test -f "$nlist" || : > "$nlist" - - if test -n "$exclude_expsyms"; then - egrep -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T - $mv "$nlist"T "$nlist" - fi - - # Try sorting and uniquifying the output. - if grep -v "^: " < "$nlist" | sort +2 | uniq > "$nlist"S; then - : - else - grep -v "^: " < "$nlist" > "$nlist"S - fi - - if test -f "$nlist"S; then - eval "$global_symbol_to_cdecl"' < "$nlist"S >> "$output_objdir/$dlsyms"' - else - echo '/* NONE */' >> "$output_objdir/$dlsyms" - fi - - $echo >> "$output_objdir/$dlsyms" "\ - -#undef lt_preloaded_symbols - -#if defined (__STDC__) && __STDC__ -# define lt_ptr_t void * -#else -# define lt_ptr_t char * -# define const -#endif - -/* The mapping between symbol names and symbols. */ -const struct { - const char *name; - lt_ptr_t address; -} -lt_preloaded_symbols[] = -{\ -" - - sed -n -e 's/^: \([^ ]*\) $/ {\"\1\", (lt_ptr_t) 0},/p' \ - -e 's/^. \([^ ]*\) \([^ ]*\)$/ {"\2", (lt_ptr_t) \&\2},/p' \ - < "$nlist" >> "$output_objdir/$dlsyms" - - $echo >> "$output_objdir/$dlsyms" "\ - {0, (lt_ptr_t) 0} -}; - -/* This works around a problem in FreeBSD linker */ -#ifdef FREEBSD_WORKAROUND -static const void *lt_preloaded_setup() { - return lt_preloaded_symbols; -} -#endif - -#ifdef __cplusplus -} -#endif\ -" - fi - - pic_flag_for_symtable= - case $host in - # compiling the symbol table file with pic_flag works around - # a FreeBSD bug that causes programs to crash when -lm is - # linked before any other PIC object. But we must not use - # pic_flag when linking with -static. The problem exists in - # FreeBSD 2.2.6 and is fixed in FreeBSD 3.1. - *-*-freebsd2*|*-*-freebsd3.0*|*-*-freebsdelf3.0*) - case "$compile_command " in - *" -static "*) ;; - *) pic_flag_for_symtable=" $pic_flag -DFREEBSD_WORKAROUND";; - esac;; - *-*-hpux*) - case "$compile_command " in - *" -static "*) ;; - *) pic_flag_for_symtable=" $pic_flag";; - esac - esac - - # Now compile the dynamic symbol file. - $show "(cd $output_objdir && $LTCC -c$no_builtin_flag$pic_flag_for_symtable \"$dlsyms\")" - $run eval '(cd $output_objdir && $LTCC -c$no_builtin_flag$pic_flag_for_symtable "$dlsyms")' || exit $? - - # Clean up the generated files. - $show "$rm $output_objdir/$dlsyms $nlist ${nlist}S ${nlist}T" - $run $rm "$output_objdir/$dlsyms" "$nlist" "${nlist}S" "${nlist}T" - - # Transform the symbol file into the correct name. - compile_command=`$echo "X$compile_command" | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}S.${objext}%"` - finalize_command=`$echo "X$finalize_command" | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}S.${objext}%"` - ;; - *) - $echo "$modename: unknown suffix for \`$dlsyms'" 1>&2 - exit 1 - ;; - esac - else - # We keep going just in case the user didn't refer to - # lt_preloaded_symbols. The linker will fail if global_symbol_pipe - # really was required. - - # Nullify the symbol file. - compile_command=`$echo "X$compile_command" | $Xsed -e "s% @SYMFILE@%%"` - finalize_command=`$echo "X$finalize_command" | $Xsed -e "s% @SYMFILE@%%"` - fi - - if test $need_relink = no || test "$build_libtool_libs" != yes; then - # Replace the output file specification. - compile_command=`$echo "X$compile_command" | $Xsed -e 's%@OUTPUT@%'"$output"'%g'` - link_command="$compile_command$compile_rpath" - - # We have no uninstalled library dependencies, so finalize right now. - $show "$link_command" - $run eval "$link_command" - status=$? - - # Delete the generated files. - if test -n "$dlsyms"; then - $show "$rm $output_objdir/${outputname}S.${objext}" - $run $rm "$output_objdir/${outputname}S.${objext}" - fi - - exit $status - fi - - if test -n "$shlibpath_var"; then - # We should set the shlibpath_var - rpath= - for dir in $temp_rpath; do - case $dir in - [\\/]* | [A-Za-z]:[\\/]*) - # Absolute path. - rpath="$rpath$dir:" - ;; - *) - # Relative path: add a thisdir entry. - rpath="$rpath\$thisdir/$dir:" - ;; - esac - done - temp_rpath="$rpath" - fi - - if test -n "$compile_shlibpath$finalize_shlibpath"; then - compile_command="$shlibpath_var=\"$compile_shlibpath$finalize_shlibpath\$$shlibpath_var\" $compile_command" - fi - if test -n "$finalize_shlibpath"; then - finalize_command="$shlibpath_var=\"$finalize_shlibpath\$$shlibpath_var\" $finalize_command" - fi - - compile_var= - finalize_var= - if test -n "$runpath_var"; then - if test -n "$perm_rpath"; then - # We should set the runpath_var. - rpath= - for dir in $perm_rpath; do - rpath="$rpath$dir:" - done - compile_var="$runpath_var=\"$rpath\$$runpath_var\" " - fi - if test -n "$finalize_perm_rpath"; then - # We should set the runpath_var. - rpath= - for dir in $finalize_perm_rpath; do - rpath="$rpath$dir:" - done - finalize_var="$runpath_var=\"$rpath\$$runpath_var\" " - fi - fi - - if test "$no_install" = yes; then - # We don't need to create a wrapper script. - link_command="$compile_var$compile_command$compile_rpath" - # Replace the output file specification. - link_command=`$echo "X$link_command" | $Xsed -e 's%@OUTPUT@%'"$output"'%g'` - # Delete the old output file. - $run $rm $output - # Link the executable and exit - $show "$link_command" - $run eval "$link_command" || exit $? - exit 0 - fi - - if test "$hardcode_action" = relink; then - # Fast installation is not supported - link_command="$compile_var$compile_command$compile_rpath" - relink_command="$finalize_var$finalize_command$finalize_rpath" - - $echo "$modename: warning: this platform does not like uninstalled shared libraries" 1>&2 - $echo "$modename: \`$output' will be relinked during installation" 1>&2 - else - if test "$fast_install" != no; then - link_command="$finalize_var$compile_command$finalize_rpath" - if test "$fast_install" = yes; then - relink_command=`$echo "X$compile_var$compile_command$compile_rpath" | $Xsed -e 's%@OUTPUT@%\$progdir/\$file%g'` - else - # fast_install is set to needless - relink_command= - fi - else - link_command="$compile_var$compile_command$compile_rpath" - relink_command="$finalize_var$finalize_command$finalize_rpath" - fi - fi - - # Replace the output file specification. - link_command=`$echo "X$link_command" | $Xsed -e 's%@OUTPUT@%'"$output_objdir/$outputname"'%g'` - - # Delete the old output files. - $run $rm $output $output_objdir/$outputname $output_objdir/lt-$outputname - - $show "$link_command" - $run eval "$link_command" || exit $? - - # Now create the wrapper script. - $show "creating $output" - - # Quote the relink command for shipping. - if test -n "$relink_command"; then - # Preserve any variables that may affect compiler behavior - for var in $variables_saved_for_relink; do - if eval test -z \"\${$var+set}\"; then - relink_command="{ test -z \"\${$var+set}\" || unset $var || { $var=; export $var; }; }; $relink_command" - elif eval var_value=\$$var; test -z "$var_value"; then - relink_command="$var=; export $var; $relink_command" - else - var_value=`$echo "X$var_value" | $Xsed -e "$sed_quote_subst"` - relink_command="$var=\"$var_value\"; export $var; $relink_command" - fi - done - relink_command="cd `pwd`; $relink_command" - relink_command=`$echo "X$relink_command" | $Xsed -e "$sed_quote_subst"` - fi - - # Quote $echo for shipping. - if test "X$echo" = "X$SHELL $0 --fallback-echo"; then - case $0 in - [\\/]* | [A-Za-z]:[\\/]*) qecho="$SHELL $0 --fallback-echo";; - *) qecho="$SHELL `pwd`/$0 --fallback-echo";; - esac - qecho=`$echo "X$qecho" | $Xsed -e "$sed_quote_subst"` - else - qecho=`$echo "X$echo" | $Xsed -e "$sed_quote_subst"` - fi - - # Only actually do things if our run command is non-null. - if test -z "$run"; then - # win32 will think the script is a binary if it has - # a .exe suffix, so we strip it off here. - case $output in - *.exe) output=`echo $output|sed 's,.exe$,,'` ;; - esac - # test for cygwin because mv fails w/o .exe extensions - case $host in - *cygwin*) exeext=.exe ;; - *) exeext= ;; - esac - $rm $output - trap "$rm $output; exit 1" 1 2 15 - - $echo > $output "\ -#! $SHELL - -# $output - temporary wrapper script for $objdir/$outputname -# Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP -# -# The $output program cannot be directly executed until all the libtool -# libraries that it depends on are installed. -# -# This wrapper script should never be moved out of the build directory. -# If it is, it will not operate correctly. - -# Sed substitution that helps us do robust quoting. It backslashifies -# metacharacters that are still active within double-quoted strings. -Xsed='sed -e 1s/^X//' -sed_quote_subst='$sed_quote_subst' - -# The HP-UX ksh and POSIX shell print the target directory to stdout -# if CDPATH is set. -if test \"\${CDPATH+set}\" = set; then CDPATH=:; export CDPATH; fi - -relink_command=\"$relink_command\" - -# This environment variable determines our operation mode. -if test \"\$libtool_install_magic\" = \"$magic\"; then - # install mode needs the following variable: - notinst_deplibs='$notinst_deplibs' -else - # When we are sourced in execute mode, \$file and \$echo are already set. - if test \"\$libtool_execute_magic\" != \"$magic\"; then - echo=\"$qecho\" - file=\"\$0\" - # Make sure echo works. - if test \"X\$1\" = X--no-reexec; then - # Discard the --no-reexec flag, and continue. - shift - elif test \"X\`(\$echo '\t') 2>/dev/null\`\" = 'X\t'; then - # Yippee, \$echo works! - : - else - # Restart under the correct shell, and then maybe \$echo will work. - exec $SHELL \"\$0\" --no-reexec \${1+\"\$@\"} - fi - fi\ -" - $echo >> $output "\ - - # Find the directory that this script lives in. - thisdir=\`\$echo \"X\$file\" | \$Xsed -e 's%/[^/]*$%%'\` - test \"x\$thisdir\" = \"x\$file\" && thisdir=. - - # Follow symbolic links until we get to the real thisdir. - file=\`ls -ld \"\$file\" | sed -n 's/.*-> //p'\` - while test -n \"\$file\"; do - destdir=\`\$echo \"X\$file\" | \$Xsed -e 's%/[^/]*\$%%'\` - - # If there was a directory component, then change thisdir. - if test \"x\$destdir\" != \"x\$file\"; then - case \"\$destdir\" in - [\\\\/]* | [A-Za-z]:[\\\\/]*) thisdir=\"\$destdir\" ;; - *) thisdir=\"\$thisdir/\$destdir\" ;; - esac - fi - - file=\`\$echo \"X\$file\" | \$Xsed -e 's%^.*/%%'\` - file=\`ls -ld \"\$thisdir/\$file\" | sed -n 's/.*-> //p'\` - done - - # Try to get the absolute directory name. - absdir=\`cd \"\$thisdir\" && pwd\` - test -n \"\$absdir\" && thisdir=\"\$absdir\" -" - - if test "$fast_install" = yes; then - echo >> $output "\ - program=lt-'$outputname'$exeext - progdir=\"\$thisdir/$objdir\" - - if test ! -f \"\$progdir/\$program\" || \\ - { file=\`ls -1dt \"\$progdir/\$program\" \"\$progdir/../\$program\" 2>/dev/null | sed 1q\`; \\ - test \"X\$file\" != \"X\$progdir/\$program\"; }; then - - file=\"\$\$-\$program\" - - if test ! -d \"\$progdir\"; then - $mkdir \"\$progdir\" - else - $rm \"\$progdir/\$file\" - fi" - - echo >> $output "\ - - # relink executable if necessary - if test -n \"\$relink_command\"; then - if relink_command_output=\`eval \$relink_command 2>&1\`; then : - else - $echo \"\$relink_command_output\" >&2 - $rm \"\$progdir/\$file\" - exit 1 - fi - fi - - $mv \"\$progdir/\$file\" \"\$progdir/\$program\" 2>/dev/null || - { $rm \"\$progdir/\$program\"; - $mv \"\$progdir/\$file\" \"\$progdir/\$program\"; } - $rm \"\$progdir/\$file\" - fi" - else - echo >> $output "\ - program='$outputname' - progdir=\"\$thisdir/$objdir\" -" - fi - - echo >> $output "\ - - if test -f \"\$progdir/\$program\"; then" - - # Export our shlibpath_var if we have one. - if test "$shlibpath_overrides_runpath" = yes && test -n "$shlibpath_var" && test -n "$temp_rpath"; then - $echo >> $output "\ - # Add our own library path to $shlibpath_var - $shlibpath_var=\"$temp_rpath\$$shlibpath_var\" - - # Some systems cannot cope with colon-terminated $shlibpath_var - # The second colon is a workaround for a bug in BeOS R4 sed - $shlibpath_var=\`\$echo \"X\$$shlibpath_var\" | \$Xsed -e 's/::*\$//'\` - - export $shlibpath_var -" - fi - - # fixup the dll searchpath if we need to. - if test -n "$dllsearchpath"; then - $echo >> $output "\ - # Add the dll search path components to the executable PATH - PATH=$dllsearchpath:\$PATH -" - fi - - $echo >> $output "\ - if test \"\$libtool_execute_magic\" != \"$magic\"; then - # Run the actual program with our arguments. -" - case $host in - # win32 systems need to use the prog path for dll - # lookup to work - *-*-cygwin* | *-*-pw32*) - $echo >> $output "\ - exec \$progdir/\$program \${1+\"\$@\"} -" - ;; - - # Backslashes separate directories on plain windows - *-*-mingw | *-*-os2*) - $echo >> $output "\ - exec \$progdir\\\\\$program \${1+\"\$@\"} -" - ;; - - *) - $echo >> $output "\ - # Export the path to the program. - PATH=\"\$progdir:\$PATH\" - export PATH - - exec \$program \${1+\"\$@\"} -" - ;; - esac - $echo >> $output "\ - \$echo \"\$0: cannot exec \$program \${1+\"\$@\"}\" - exit 1 - fi - else - # The program doesn't exist. - \$echo \"\$0: error: \$progdir/\$program does not exist\" 1>&2 - \$echo \"This script is just a wrapper for \$program.\" 1>&2 - echo \"See the $PACKAGE documentation for more information.\" 1>&2 - exit 1 - fi -fi\ -" - chmod +x $output - fi - exit 0 - ;; - esac - - # See if we need to build an old-fashioned archive. - for oldlib in $oldlibs; do - - if test "$build_libtool_libs" = convenience; then - oldobjs="$libobjs_save" - addlibs="$convenience" - build_libtool_libs=no - else - if test "$build_libtool_libs" = module; then - oldobjs="$libobjs_save" - build_libtool_libs=no - else - oldobjs="$objs$old_deplibs $non_pic_objects" - fi - addlibs="$old_convenience" - fi - - if test -n "$addlibs"; then - gentop="$output_objdir/${outputname}x" - $show "${rm}r $gentop" - $run ${rm}r "$gentop" - $show "$mkdir $gentop" - $run $mkdir "$gentop" - status=$? - if test $status -ne 0 && test ! -d "$gentop"; then - exit $status - fi - generated="$generated $gentop" - - # Add in members from convenience archives. - for xlib in $addlibs; do - # Extract the objects. - case $xlib in - [\\/]* | [A-Za-z]:[\\/]*) xabs="$xlib" ;; - *) xabs=`pwd`"/$xlib" ;; - esac - xlib=`$echo "X$xlib" | $Xsed -e 's%^.*/%%'` - xdir="$gentop/$xlib" - - $show "${rm}r $xdir" - $run ${rm}r "$xdir" - $show "$mkdir $xdir" - $run $mkdir "$xdir" - status=$? - if test $status -ne 0 && test ! -d "$xdir"; then - exit $status - fi - $show "(cd $xdir && $AR x $xabs)" - $run eval "(cd \$xdir && $AR x \$xabs)" || exit $? - - oldobjs="$oldobjs "`find $xdir -name \*.${objext} -print | $NL2SP` - done - fi - - # Do each command in the archive commands. - if test -n "$old_archive_from_new_cmds" && test "$build_libtool_libs" = yes; then - eval cmds=\"$old_archive_from_new_cmds\" - else -# # Ensure that we have .o objects in place in case we decided -# # not to build a shared library, and have fallen back to building -# # static libs even though --disable-static was passed! -# for oldobj in $oldobjs; do -# if test ! -f $oldobj; then -# xdir=`$echo "X$oldobj" | $Xsed -e 's%/[^/]*$%%'` -# if test "X$xdir" = "X$oldobj"; then -# xdir="." -# else -# xdir="$xdir" -# fi -# baseobj=`$echo "X$oldobj" | $Xsed -e 's%^.*/%%'` -# obj=`$echo "X$baseobj" | $Xsed -e "$o2lo"` -# $show "(cd $xdir && ${LN_S} $obj $baseobj)" -# $run eval '(cd $xdir && ${LN_S} $obj $baseobj)' || exit $? -# fi -# done - - eval cmds=\"$old_archive_cmds\" - - if len=`expr "X$cmds" : ".*"` && - test $len -le $max_cmd_len; then - : - else - # the command line is too long to link in one step, link in parts - $echo "using piecewise archive linking..." - save_RANLIB=$RANLIB - RANLIB=: - objlist= - concat_cmds= - save_oldobjs=$oldobjs - # GNU ar 2.10+ was changed to match POSIX; thus no paths are - # encoded into archives. This makes 'ar r' malfunction in - # this piecewise linking case whenever conflicting object - # names appear in distinct ar calls; check, warn and compensate. - if (for obj in $save_oldobjs - do - $echo "X$obj" | $Xsed -e 's%^.*/%%' - done | sort | sort -uc >/dev/null 2>&1); then - : - else - $echo "$modename: warning: object name conflicts; overriding AR_FLAGS to 'cq'" 1>&2 - $echo "$modename: warning: to ensure that POSIX-compatible ar will work" 1>&2 - AR_FLAGS=cq - fi - for obj in $save_oldobjs - do - oldobjs="$objlist $obj" - objlist="$objlist $obj" - eval test_cmds=\"$old_archive_cmds\" - if len=`expr "X$test_cmds" : ".*"` && - test $len -le $max_cmd_len; then - : - else - # the above command should be used before it gets too long - oldobjs=$objlist - test -z "$concat_cmds" || concat_cmds=$concat_cmds~ - eval concat_cmds=\"\${concat_cmds}$old_archive_cmds\" - objlist= - fi - done - RANLIB=$save_RANLIB - oldobjs=$objlist - eval cmds=\"\$concat_cmds~$old_archive_cmds\" - fi - fi - IFS="${IFS= }"; save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - $show "$cmd" - $run eval "$cmd" || exit $? - done - IFS="$save_ifs" - done - - if test -n "$generated"; then - $show "${rm}r$generated" - $run ${rm}r$generated - fi - - # Now create the libtool archive. - case $output in - *.la) - old_library= - test "$build_old_libs" = yes && old_library="$libname.$libext" - $show "creating $output" - - # Preserve any variables that may affect compiler behavior - for var in $variables_saved_for_relink; do - if eval test -z \"\${$var+set}\"; then - relink_command="{ test -z \"\${$var+set}\" || unset $var || { $var=; export $var; }; }; $relink_command" - elif eval var_value=\$$var; test -z "$var_value"; then - relink_command="$var=; export $var; $relink_command" - else - var_value=`$echo "X$var_value" | $Xsed -e "$sed_quote_subst"` - relink_command="$var=\"$var_value\"; export $var; $relink_command" - fi - done - # Quote the link command for shipping. - tagopts= - for tag in $taglist; do - tagopts="$tagopts --tag $tag" - done - relink_command="(cd `pwd`; $SHELL $0$tagopts --mode=relink $libtool_args)" - relink_command=`$echo "X$relink_command" | $Xsed -e "$sed_quote_subst"` - - # Only create the output if not a dry run. - if test -z "$run"; then - for installed in no yes; do - if test "$installed" = yes; then - if test -z "$install_libdir"; then - break - fi - output="$output_objdir/$outputname"i - # Replace all uninstalled libtool libraries with the installed ones - newdependency_libs= - for deplib in $dependency_libs; do - case $deplib in - *.la) - name=`$echo "X$deplib" | $Xsed -e 's%^.*/%%'` - eval libdir=`sed -n -e 's/^libdir=\(.*\)$/\1/p' $deplib` - if test -z "$libdir"; then - $echo "$modename: \`$deplib' is not a valid libtool archive" 1>&2 - exit 1 - fi - newdependency_libs="$newdependency_libs $libdir/$name" - ;; - *) newdependency_libs="$newdependency_libs $deplib" ;; - esac - done - dependency_libs="$newdependency_libs" - newdlfiles= - for lib in $dlfiles; do - name=`$echo "X$lib" | $Xsed -e 's%^.*/%%'` - eval libdir=`sed -n -e 's/^libdir=\(.*\)$/\1/p' $lib` - if test -z "$libdir"; then - $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2 - exit 1 - fi - newdlfiles="$newdlfiles $libdir/$name" - done - dlfiles="$newdlfiles" - newdlprefiles= - for lib in $dlprefiles; do - name=`$echo "X$lib" | $Xsed -e 's%^.*/%%'` - eval libdir=`sed -n -e 's/^libdir=\(.*\)$/\1/p' $lib` - if test -z "$libdir"; then - $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2 - exit 1 - fi - newdlprefiles="$newdlprefiles $libdir/$name" - done - dlprefiles="$newdlprefiles" - fi - $rm $output - # place dlname in correct position for cygwin - tdlname=$dlname - case $host,$output,$installed,$module,$dlname in - *cygwin*,*lai,yes,no,*.dll) tdlname=../bin/$dlname ;; - esac - $echo > $output "\ -# $outputname - a libtool library file -# Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP -# -# Please DO NOT delete this file! -# It is necessary for linking the library. - -# The name that we can dlopen(3). -dlname='$tdlname' - -# Names of this library. -library_names='$library_names' - -# The name of the static archive. -old_library='$old_library' - -# Libraries that this one depends upon. -dependency_libs='$dependency_libs' - -# Version information for $libname. -current=$current -age=$age -revision=$revision - -# Is this an already installed library? -installed=$installed - -# Files to dlopen/dlpreopen -dlopen='$dlfiles' -dlpreopen='$dlprefiles' - -# Directory that this library needs to be installed in: -libdir='$install_libdir'" - if test "$installed" = no && test $need_relink = yes; then - $echo >> $output "\ -relink_command=\"$relink_command\"" - fi - done - fi - - # Do a symbolic link so that the libtool archive can be found in - # LD_LIBRARY_PATH before the program is installed. - $show "(cd $output_objdir && $rm $outputname && $LN_S ../$outputname $outputname)" - $run eval '(cd $output_objdir && $rm $outputname && $LN_S ../$outputname $outputname)' || exit $? - ;; - esac - exit 0 - ;; - - # libtool install mode - install) - modename="$modename: install" - - # There may be an optional sh(1) argument at the beginning of - # install_prog (especially on Windows NT). - if test "$nonopt" = "$SHELL" || test "$nonopt" = /bin/sh || - # Allow the use of GNU shtool's install command. - $echo "X$nonopt" | $Xsed | grep shtool > /dev/null; then - # Aesthetically quote it. - arg=`$echo "X$nonopt" | $Xsed -e "$sed_quote_subst"` - case $arg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*) - arg="\"$arg\"" - ;; - esac - install_prog="$arg " - arg="$1" - shift - else - install_prog= - arg="$nonopt" - fi - - # The real first argument should be the name of the installation program. - # Aesthetically quote it. - arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` - case $arg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*) - arg="\"$arg\"" - ;; - esac - install_prog="$install_prog$arg" - - # We need to accept at least all the BSD install flags. - dest= - files= - opts= - prev= - install_type= - isdir=no - stripme= - for arg - do - if test -n "$dest"; then - files="$files $dest" - dest="$arg" - continue - fi - - case $arg in - -d) isdir=yes ;; - -f) prev="-f" ;; - -g) prev="-g" ;; - -m) prev="-m" ;; - -o) prev="-o" ;; - -s) - stripme=" -s" - continue - ;; - -*) ;; - - *) - # If the previous option needed an argument, then skip it. - if test -n "$prev"; then - prev= - else - dest="$arg" - continue - fi - ;; - esac - - # Aesthetically quote the argument. - arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` - case $arg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*) - arg="\"$arg\"" - ;; - esac - install_prog="$install_prog $arg" - done - - if test -z "$install_prog"; then - $echo "$modename: you must specify an install program" 1>&2 - $echo "$help" 1>&2 - exit 1 - fi - - if test -n "$prev"; then - $echo "$modename: the \`$prev' option requires an argument" 1>&2 - $echo "$help" 1>&2 - exit 1 - fi - - if test -z "$files"; then - if test -z "$dest"; then - $echo "$modename: no file or destination specified" 1>&2 - else - $echo "$modename: you must specify a destination" 1>&2 - fi - $echo "$help" 1>&2 - exit 1 - fi - - # Strip any trailing slash from the destination. - dest=`$echo "X$dest" | $Xsed -e 's%/$%%'` - - # Check to see that the destination is a directory. - test -d "$dest" && isdir=yes - if test "$isdir" = yes; then - destdir="$dest" - destname= - else - destdir=`$echo "X$dest" | $Xsed -e 's%/[^/]*$%%'` - test "X$destdir" = "X$dest" && destdir=. - destname=`$echo "X$dest" | $Xsed -e 's%^.*/%%'` - - # Not a directory, so check to see that there is only one file specified. - set dummy $files - if test $# -gt 2; then - $echo "$modename: \`$dest' is not a directory" 1>&2 - $echo "$help" 1>&2 - exit 1 - fi - fi - case $destdir in - [\\/]* | [A-Za-z]:[\\/]*) ;; - *) - for file in $files; do - case $file in - *.lo) ;; - *) - $echo "$modename: \`$destdir' must be an absolute directory name" 1>&2 - $echo "$help" 1>&2 - exit 1 - ;; - esac - done - ;; - esac - - # This variable tells wrapper scripts just to set variables rather - # than running their programs. - libtool_install_magic="$magic" - - staticlibs= - future_libdirs= - current_libdirs= - for file in $files; do - - # Do each installation. - case $file in - *.$libext) - # Do the static libraries later. - staticlibs="$staticlibs $file" - ;; - - *.la) - # Check to see that this really is a libtool archive. - if (sed -e '2q' $file | egrep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then : - else - $echo "$modename: \`$file' is not a valid libtool archive" 1>&2 - $echo "$help" 1>&2 - exit 1 - fi - - library_names= - old_library= - relink_command= - # If there is no directory component, then add one. - case $file in - */* | *\\*) . $file ;; - *) . ./$file ;; - esac - - # Add the libdir to current_libdirs if it is the destination. - if test "X$destdir" = "X$libdir"; then - case "$current_libdirs " in - *" $libdir "*) ;; - *) current_libdirs="$current_libdirs $libdir" ;; - esac - else - # Note the libdir as a future libdir. - case "$future_libdirs " in - *" $libdir "*) ;; - *) future_libdirs="$future_libdirs $libdir" ;; - esac - fi - - dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'`/ - test "X$dir" = "X$file/" && dir= - dir="$dir$objdir" - - if test -n "$relink_command"; then - $echo "$modename: warning: relinking \`$file'" 1>&2 - $show "$relink_command" - if $run eval "$relink_command"; then : - else - $echo "$modename: error: relink \`$file' with the above command before installing it" 1>&2 - exit 1 - fi - fi - - # See the names of the shared library. - set dummy $library_names - if test -n "$2"; then - realname="$2" - shift - shift - - srcname="$realname" - test -n "$relink_command" && srcname="$realname"T - - # Install the shared library and build the symlinks. - $show "$install_prog $dir/$srcname $destdir/$realname" - $run eval "$install_prog $dir/$srcname $destdir/$realname" || exit $? - if test -n "$stripme" && test -n "$striplib"; then - $show "$striplib $destdir/$realname" - $run eval "$striplib $destdir/$realname" || exit $? - fi - - if test $# -gt 0; then - # Delete the old symlinks, and create new ones. - for linkname - do - if test "$linkname" != "$realname"; then - $show "(cd $destdir && $rm $linkname && $LN_S $realname $linkname)" - $run eval "(cd $destdir && $rm $linkname && $LN_S $realname $linkname)" - fi - done - fi - - # Do each command in the postinstall commands. - lib="$destdir/$realname" - eval cmds=\"$postinstall_cmds\" - IFS="${IFS= }"; save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - $show "$cmd" - $run eval "$cmd" || exit $? - done - IFS="$save_ifs" - fi - - # Install the pseudo-library for information purposes. - name=`$echo "X$file" | $Xsed -e 's%^.*/%%'` - instname="$dir/$name"i - $show "$install_prog $instname $destdir/$name" - $run eval "$install_prog $instname $destdir/$name" || exit $? - - # Maybe install the static library, too. - test -n "$old_library" && staticlibs="$staticlibs $dir/$old_library" - ;; - - *.lo) - # Install (i.e. copy) a libtool object. - - # Figure out destination file name, if it wasn't already specified. - if test -n "$destname"; then - destfile="$destdir/$destname" - else - destfile=`$echo "X$file" | $Xsed -e 's%^.*/%%'` - destfile="$destdir/$destfile" - fi - - # Deduce the name of the destination old-style object file. - case $destfile in - *.lo) - staticdest=`$echo "X$destfile" | $Xsed -e "$lo2o"` - ;; - *.$objext) - staticdest="$destfile" - destfile= - ;; - *) - $echo "$modename: cannot copy a libtool object to \`$destfile'" 1>&2 - $echo "$help" 1>&2 - exit 1 - ;; - esac - - # Install the libtool object if requested. - if test -n "$destfile"; then - $show "$install_prog $file $destfile" - $run eval "$install_prog $file $destfile" || exit $? - fi - - # Install the old object if enabled. - if test "$build_old_libs" = yes; then - # Deduce the name of the old-style object file. - staticobj=`$echo "X$file" | $Xsed -e "$lo2o"` - - $show "$install_prog $staticobj $staticdest" - $run eval "$install_prog \$staticobj \$staticdest" || exit $? - fi - exit 0 - ;; - - *) - # Figure out destination file name, if it wasn't already specified. - if test -n "$destname"; then - destfile="$destdir/$destname" - else - destfile=`$echo "X$file" | $Xsed -e 's%^.*/%%'` - destfile="$destdir/$destfile" - fi - - # Do a test to see if this is really a libtool program. - if (sed -e '4q' $file | egrep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then - notinst_deplibs= - relink_command= - - # If there is no directory component, then add one. - case $file in - */* | *\\*) . $file ;; - *) . ./$file ;; - esac - - # Check the variables that should have been set. - if test -z "$notinst_deplibs"; then - $echo "$modename: invalid libtool wrapper script \`$file'" 1>&2 - exit 1 - fi - - finalize=yes - for lib in $notinst_deplibs; do - # Check to see that each library is installed. - libdir= - if test -f "$lib"; then - # If there is no directory component, then add one. - case $lib in - */* | *\\*) . $lib ;; - *) . ./$lib ;; - esac - fi - libfile="$libdir/"`$echo "X$lib" | $Xsed -e 's%^.*/%%g'` ### testsuite: skip nested quoting test - if test -n "$libdir" && test ! -f "$libfile"; then - $echo "$modename: warning: \`$lib' has not been installed in \`$libdir'" 1>&2 - finalize=no - fi - done - - relink_command= - # If there is no directory component, then add one. - case $file in - */* | *\\*) . $file ;; - *) . ./$file ;; - esac - - outputname= - if test "$fast_install" = no && test -n "$relink_command"; then - if test "$finalize" = yes && test -z "$run"; then - tmpdir="/tmp" - test -n "$TMPDIR" && tmpdir="$TMPDIR" - tmpdir="$tmpdir/libtool-$$" - if $mkdir -p "$tmpdir" && chmod 700 "$tmpdir"; then : - else - $echo "$modename: error: cannot create temporary directory \`$tmpdir'" 1>&2 - continue - fi - file=`$echo "X$file" | $Xsed -e 's%^.*/%%'` - outputname="$tmpdir/$file" - # Replace the output file specification. - relink_command=`$echo "X$relink_command" | $Xsed -e 's%@OUTPUT@%'"$outputname"'%g'` - - $show "$relink_command" - if $run eval "$relink_command"; then : - else - $echo "$modename: error: relink \`$file' with the above command before installing it" 1>&2 - ${rm}r "$tmpdir" - continue - fi - file="$outputname" - else - $echo "$modename: warning: cannot relink \`$file'" 1>&2 - fi - else - # Install the binary that we compiled earlier. - file=`$echo "X$file" | $Xsed -e "s%\([^/]*\)$%$objdir/\1%"` - fi - fi - - - # remove .exe since cygwin /usr/bin/install will append another - # one anyways - case $install_prog,$host in - */usr/bin/install*,*cygwin*) - case $file:$destfile in - *.exe:*.exe) - # this is ok - ;; - *.exe:*) - destfile=$destfile.exe - ;; - *:*.exe) - destfile=`echo $destfile | sed -e 's,.exe$,,'` - ;; - esac - ;; - esac - - $show "$install_prog$stripme $file $destfile" - $run eval "$install_prog\$stripme \$file \$destfile" || exit $? - test -n "$outputname" && ${rm}r "$tmpdir" - ;; - esac - done - - for file in $staticlibs; do - name=`$echo "X$file" | $Xsed -e 's%^.*/%%'` - - # Set up the ranlib parameters. - oldlib="$destdir/$name" - - $show "$install_prog $file $oldlib" - $run eval "$install_prog \$file \$oldlib" || exit $? - - if test -n "$stripme" && test -n "$striplib"; then - $show "$old_striplib $oldlib" - $run eval "$old_striplib $oldlib" || exit $? - fi - - # Do each command in the postinstall commands. - eval cmds=\"$old_postinstall_cmds\" - IFS="${IFS= }"; save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - $show "$cmd" - $run eval "$cmd" || exit $? - done - IFS="$save_ifs" - done - - if test -n "$future_libdirs"; then - $echo "$modename: warning: remember to run \`$progname --finish$future_libdirs'" 1>&2 - fi - - if test -n "$current_libdirs"; then - # Maybe just do a dry run. - test -n "$run" && current_libdirs=" -n$current_libdirs" - exec_cmd='$SHELL $0 --finish$current_libdirs' - else - exit 0 - fi - ;; - - # libtool finish mode - finish) - modename="$modename: finish" - libdirs="$nonopt" - admincmds= - - if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then - for dir - do - libdirs="$libdirs $dir" - done - - for libdir in $libdirs; do - if test -n "$finish_cmds"; then - # Do each command in the finish commands. - eval cmds=\"$finish_cmds\" - IFS="${IFS= }"; save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - $show "$cmd" - $run eval "$cmd" || admincmds="$admincmds - $cmd" - done - IFS="$save_ifs" - fi - if test -n "$finish_eval"; then - # Do the single finish_eval. - eval cmds=\"$finish_eval\" - $run eval "$cmds" || admincmds="$admincmds - $cmds" - fi - done - fi - - # Exit here if they wanted silent mode. - test "$show" = ":" && exit 0 - - echo "----------------------------------------------------------------------" - echo "Libraries have been installed in:" - for libdir in $libdirs; do - echo " $libdir" - done - echo - echo "If you ever happen to want to link against installed libraries" - echo "in a given directory, LIBDIR, you must either use libtool, and" - echo "specify the full pathname of the library, or use the \`-LLIBDIR'" - echo "flag during linking and do at least one of the following:" - if test -n "$shlibpath_var"; then - echo " - add LIBDIR to the \`$shlibpath_var' environment variable" - echo " during execution" - fi - if test -n "$runpath_var"; then - echo " - add LIBDIR to the \`$runpath_var' environment variable" - echo " during linking" - fi - if test -n "$hardcode_libdir_flag_spec"; then - libdir=LIBDIR - eval flag=\"$hardcode_libdir_flag_spec\" - - echo " - use the \`$flag' linker flag" - fi - if test -n "$admincmds"; then - echo " - have your system administrator run these commands:$admincmds" - fi - if test -f /etc/ld.so.conf; then - echo " - have your system administrator add LIBDIR to \`/etc/ld.so.conf'" - fi - echo - echo "See any operating system documentation about shared libraries for" - echo "more information, such as the ld(1) and ld.so(8) manual pages." - echo "----------------------------------------------------------------------" - exit 0 - ;; - - # libtool execute mode - execute) - modename="$modename: execute" - - # The first argument is the command name. - cmd="$nonopt" - if test -z "$cmd"; then - $echo "$modename: you must specify a COMMAND" 1>&2 - $echo "$help" - exit 1 - fi - - # Handle -dlopen flags immediately. - for file in $execute_dlfiles; do - if test ! -f "$file"; then - $echo "$modename: \`$file' is not a file" 1>&2 - $echo "$help" 1>&2 - exit 1 - fi - - dir= - case $file in - *.la) - # Check to see that this really is a libtool archive. - if (sed -e '2q' $file | egrep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then : - else - $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2 - $echo "$help" 1>&2 - exit 1 - fi - - # Read the libtool library. - dlname= - library_names= - - # If there is no directory component, then add one. - case $file in - */* | *\\*) . $file ;; - *) . ./$file ;; - esac - - # Skip this library if it cannot be dlopened. - if test -z "$dlname"; then - # Warn if it was a shared library. - test -n "$library_names" && $echo "$modename: warning: \`$file' was not linked with \`-export-dynamic'" - continue - fi - - dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'` - test "X$dir" = "X$file" && dir=. - - if test -f "$dir/$objdir/$dlname"; then - dir="$dir/$objdir" - else - $echo "$modename: cannot find \`$dlname' in \`$dir' or \`$dir/$objdir'" 1>&2 - exit 1 - fi - ;; - - *.lo) - # Just add the directory containing the .lo file. - dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'` - test "X$dir" = "X$file" && dir=. - ;; - - *) - $echo "$modename: warning \`-dlopen' is ignored for non-libtool libraries and objects" 1>&2 - continue - ;; - esac - - # Get the absolute pathname. - absdir=`cd "$dir" && pwd` - test -n "$absdir" && dir="$absdir" - - # Now add the directory to shlibpath_var. - if eval "test -z \"\$$shlibpath_var\""; then - eval "$shlibpath_var=\"\$dir\"" - else - eval "$shlibpath_var=\"\$dir:\$$shlibpath_var\"" - fi - done - - # This variable tells wrapper scripts just to set shlibpath_var - # rather than running their programs. - libtool_execute_magic="$magic" - - # Check if any of the arguments is a wrapper script. - args= - for file - do - case $file in - -*) ;; - *) - # Do a test to see if this is really a libtool program. - if (sed -e '4q' $file | egrep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then - # If there is no directory component, then add one. - case $file in - */* | *\\*) . $file ;; - *) . ./$file ;; - esac - - # Transform arg to wrapped name. - file="$progdir/$program" - fi - ;; - esac - # Quote arguments (to preserve shell metacharacters). - file=`$echo "X$file" | $Xsed -e "$sed_quote_subst"` - args="$args \"$file\"" - done - - if test -z "$run"; then - if test -n "$shlibpath_var"; then - # Export the shlibpath_var. - eval "export $shlibpath_var" - fi - - # Restore saved enviroment variables - if test "${save_LC_ALL+set}" = set; then - LC_ALL="$save_LC_ALL"; export LC_ALL - fi - if test "${save_LANG+set}" = set; then - LANG="$save_LANG"; export LANG - fi - - # Now prepare to actually exec the command. - exec_cmd='"$cmd"$args' - else - # Display what would be done. - if test -n "$shlibpath_var"; then - eval "\$echo \"\$shlibpath_var=\$$shlibpath_var\"" - $echo "export $shlibpath_var" - fi - $echo "$cmd$args" - exit 0 - fi - ;; - - # libtool clean and uninstall mode - clean | uninstall) - modename="$modename: $mode" - rm="$nonopt" - files= - rmforce= - exit_status=0 - - # This variable tells wrapper scripts just to set variables rather - # than running their programs. - libtool_install_magic="$magic" - - for arg - do - case $arg in - -f) rm="$rm $arg"; rmforce=yes ;; - -*) rm="$rm $arg" ;; - *) files="$files $arg" ;; - esac - done - - if test -z "$rm"; then - $echo "$modename: you must specify an RM program" 1>&2 - $echo "$help" 1>&2 - exit 1 - fi - - rmdirs= - - for file in $files; do - dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'` - if test "X$dir" = "X$file"; then - dir=. - objdir="$objdir" - else - objdir="$dir/$objdir" - fi - name=`$echo "X$file" | $Xsed -e 's%^.*/%%'` - test $mode = uninstall && objdir="$dir" - - # Remember objdir for removal later, being careful to avoid duplicates - if test $mode = clean; then - case " $rmdirs " in - *" $objdir "*) ;; - *) rmdirs="$rmdirs $objdir" ;; - esac - fi - - # Don't error if the file doesn't exist and rm -f was used. - if (test -L "$file") >/dev/null 2>&1 \ - || (test -h "$file") >/dev/null 2>&1 \ - || test -f "$file"; then - : - elif test -d "$file"; then - exit_status=1 - continue - elif test "$rmforce" = yes; then - continue - fi - - rmfiles="$file" - - case $name in - *.la) - # Possibly a libtool archive, so verify it. - if (sed -e '2q' $file | egrep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then - . $dir/$name - - # Delete the libtool libraries and symlinks. - for n in $library_names; do - rmfiles="$rmfiles $objdir/$n" - done - test -n "$old_library" && rmfiles="$rmfiles $objdir/$old_library" - test $mode = clean && rmfiles="$rmfiles $objdir/$name $objdir/${name}i" - - if test $mode = uninstall; then - if test -n "$library_names"; then - # Do each command in the postuninstall commands. - eval cmds=\"$postuninstall_cmds\" - IFS="${IFS= }"; save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - $show "$cmd" - $run eval "$cmd" - if test $? != 0 && test "$rmforce" != yes; then - exit_status=1 - fi - done - IFS="$save_ifs" - fi - - if test -n "$old_library"; then - # Do each command in the old_postuninstall commands. - eval cmds=\"$old_postuninstall_cmds\" - IFS="${IFS= }"; save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - $show "$cmd" - $run eval "$cmd" - if test $? != 0 && test "$rmforce" != yes; then - exit_status=1 - fi - done - IFS="$save_ifs" - fi - # FIXME: should reinstall the best remaining shared library. - fi - fi - ;; - - *.lo) - # Possibly a libtool object, so verify it. - if (sed -e '2q' $file | egrep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then - - # Read the .lo file - . $dir/$name - - # Add PIC object to the list of files to remove. - if test -n "$pic_object" \ - && test "$pic_object" != none; then - rmfiles="$rmfiles $dir/$pic_object" - fi - - # Add non-PIC object to the list of files to remove. - if test -n "$non_pic_object" \ - && test "$non_pic_object" != none; then - rmfiles="$rmfiles $dir/$non_pic_object" - fi - fi - ;; - - *) - # Do a test to see if this is a libtool program. - if test $mode = clean && - (sed -e '4q' $file | egrep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then - relink_command= - . $dir/$file - - rmfiles="$rmfiles $objdir/$name $objdir/${name}S.${objext}" - if test "$fast_install" = yes && test -n "$relink_command"; then - rmfiles="$rmfiles $objdir/lt-$name" - fi - fi - ;; - esac - $show "$rm $rmfiles" - $run $rm $rmfiles || exit_status=1 - done - - # Try to remove the ${objdir}s in the directories where we deleted files - for dir in $rmdirs; do - if test -d "$dir"; then - $show "rmdir $dir" - $run rmdir $dir >/dev/null 2>&1 - fi - done - - exit $exit_status - ;; - - "") - $echo "$modename: you must specify a MODE" 1>&2 - $echo "$generic_help" 1>&2 - exit 1 - ;; - esac - - if test -z "$exec_cmd"; then - $echo "$modename: invalid operation mode \`$mode'" 1>&2 - $echo "$generic_help" 1>&2 - exit 1 - fi -fi # test -z "$show_help" - -if test -n "$exec_cmd"; then - eval exec $exec_cmd - exit 1 -fi - -# We need to display help for each of the modes. -case $mode in -"") $echo \ -"Usage: $modename [OPTION]... [MODE-ARG]... - -Provide generalized library-building support services. - - --config show all configuration variables - --debug enable verbose shell tracing --n, --dry-run display commands without modifying any files - --features display basic configuration information and exit - --finish same as \`--mode=finish' - --help display this help message and exit - --mode=MODE use operation mode MODE [default=inferred from MODE-ARGS] - --quiet same as \`--silent' - --silent don't print informational messages - --tag=TAG use configuration variables from tag TAG - --version print version information - -MODE must be one of the following: - - clean remove files from the build directory - compile compile a source file into a libtool object - execute automatically set library path, then run a program - finish complete the installation of libtool libraries - install install libraries or executables - link create a library or an executable - uninstall remove libraries from an installed directory - -MODE-ARGS vary depending on the MODE. Try \`$modename --help --mode=MODE' for -a more detailed description of MODE." - exit 0 - ;; - -clean) - $echo \ -"Usage: $modename [OPTION]... --mode=clean RM [RM-OPTION]... FILE... - -Remove files from the build directory. - -RM is the name of the program to use to delete files associated with each FILE -(typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed -to RM. - -If FILE is a libtool library, object or program, all the files associated -with it are deleted. Otherwise, only FILE itself is deleted using RM." - ;; - -compile) - $echo \ -"Usage: $modename [OPTION]... --mode=compile COMPILE-COMMAND... SOURCEFILE - -Compile a source file into a libtool library object. - -This mode accepts the following additional options: - - -o OUTPUT-FILE set the output file name to OUTPUT-FILE - -prefer-pic try to building PIC objects only - -prefer-non-pic try to building non-PIC objects only - -static always build a \`.o' file suitable for static linking - -COMPILE-COMMAND is a command to be used in creating a \`standard' object file -from the given SOURCEFILE. - -The output file name is determined by removing the directory component from -SOURCEFILE, then substituting the C source code suffix \`.c' with the -library object suffix, \`.lo'." - ;; - -execute) - $echo \ -"Usage: $modename [OPTION]... --mode=execute COMMAND [ARGS]... - -Automatically set library path, then run a program. - -This mode accepts the following additional options: - - -dlopen FILE add the directory containing FILE to the library path - -This mode sets the library path environment variable according to \`-dlopen' -flags. - -If any of the ARGS are libtool executable wrappers, then they are translated -into their corresponding uninstalled binary, and any of their required library -directories are added to the library path. - -Then, COMMAND is executed, with ARGS as arguments." - ;; - -finish) - $echo \ -"Usage: $modename [OPTION]... --mode=finish [LIBDIR]... - -Complete the installation of libtool libraries. - -Each LIBDIR is a directory that contains libtool libraries. - -The commands that this mode executes may require superuser privileges. Use -the \`--dry-run' option if you just want to see what would be executed." - ;; - -install) - $echo \ -"Usage: $modename [OPTION]... --mode=install INSTALL-COMMAND... - -Install executables or libraries. - -INSTALL-COMMAND is the installation command. The first component should be -either the \`install' or \`cp' program. - -The rest of the components are interpreted as arguments to that command (only -BSD-compatible install options are recognized)." - ;; - -link) - $echo \ -"Usage: $modename [OPTION]... --mode=link LINK-COMMAND... - -Link object files or libraries together to form another library, or to -create an executable program. - -LINK-COMMAND is a command using the C compiler that you would use to create -a program from several object files. - -The following components of LINK-COMMAND are treated specially: - - -all-static do not do any dynamic linking at all - -avoid-version do not add a version suffix if possible - -dlopen FILE \`-dlpreopen' FILE if it cannot be dlopened at runtime - -dlpreopen FILE link in FILE and add its symbols to lt_preloaded_symbols - -export-dynamic allow symbols from OUTPUT-FILE to be resolved with dlsym(3) - -export-symbols SYMFILE - try to export only the symbols listed in SYMFILE - -export-symbols-regex REGEX - try to export only the symbols matching REGEX - -LLIBDIR search LIBDIR for required installed libraries - -lNAME OUTPUT-FILE requires the installed library libNAME - -module build a library that can dlopened - -no-fast-install disable the fast-install mode - -no-install link a not-installable executable - -no-undefined declare that a library does not refer to external symbols - -o OUTPUT-FILE create OUTPUT-FILE from the specified objects - -objectlist FILE Use a list of object files found in FILE to specify objects - -release RELEASE specify package release information - -rpath LIBDIR the created library will eventually be installed in LIBDIR - -R[ ]LIBDIR add LIBDIR to the runtime path of programs and libraries - -static do not do any dynamic linking of libtool libraries - -version-info CURRENT[:REVISION[:AGE]] - specify library version info [each variable defaults to 0] - -All other options (arguments beginning with \`-') are ignored. - -Every other argument is treated as a filename. Files ending in \`.la' are -treated as uninstalled libtool libraries, other files are standard or library -object files. - -If the OUTPUT-FILE ends in \`.la', then a libtool library is created, -only library objects (\`.lo' files) may be specified, and \`-rpath' is -required, except when creating a convenience library. - -If OUTPUT-FILE ends in \`.a' or \`.lib', then a standard library is created -using \`ar' and \`ranlib', or on Windows using \`lib'. - -If OUTPUT-FILE ends in \`.lo' or \`.${objext}', then a reloadable object file -is created, otherwise an executable program is created." - ;; - -uninstall) - $echo \ -"Usage: $modename [OPTION]... --mode=uninstall RM [RM-OPTION]... FILE... - -Remove libraries from an installation directory. - -RM is the name of the program to use to delete files associated with each FILE -(typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed -to RM. - -If FILE is a libtool library, all the files associated with it are deleted. -Otherwise, only FILE itself is deleted using RM." - ;; - -*) - $echo "$modename: invalid operation mode \`$mode'" 1>&2 - $echo "$help" 1>&2 - exit 1 - ;; -esac - -echo -$echo "Try \`$modename --help' for more information about other modes." - -exit 0 - -# The TAGs below are defined such that we never get into a situation -# in which we disable both kinds of libraries. Given conflicting -# choices, we go for a static library, that is the most portable, -# since we can't tell whether shared libraries were disabled because -# the user asked for that or because the platform doesn't support -# them. This is particularly important on AIX, because we don't -# support having both static and shared libraries enabled at the same -# time on that platform, so we default to a shared-only configuration. -# If a disable-shared tag is given, we'll fallback to a static-only -# configuration. But we'll never go from static-only to shared-only. - -### BEGIN LIBTOOL TAG CONFIG: disable-shared -build_libtool_libs=no -build_old_libs=yes -### END LIBTOOL TAG CONFIG: disable-shared - -### BEGIN LIBTOOL TAG CONFIG: disable-static -build_old_libs=`case $build_libtool_libs in yes) echo no;; *) echo yes;; esac` -### END LIBTOOL TAG CONFIG: disable-static - -# Local Variables: -# mode:shell-script -# sh-indentation:2 -# End: diff --git a/gnu/lib/libf2c/permission.netlib b/gnu/lib/libf2c/permission.netlib deleted file mode 100644 index 261b719bc57..00000000000 --- a/gnu/lib/libf2c/permission.netlib +++ /dev/null @@ -1,23 +0,0 @@ -/**************************************************************** -Copyright 1990 - 1997 by AT&T, Lucent Technologies and Bellcore. - -Permission to use, copy, modify, and distribute this software -and its documentation for any purpose and without fee is hereby -granted, provided that the above copyright notice appear in all -copies and that both that the copyright notice and this -permission notice and warranty disclaimer appear in supporting -documentation, and that the names of AT&T, Bell Laboratories, -Lucent or Bellcore or any of their entities not be used in -advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -AT&T, Lucent and Bellcore disclaim all warranties with regard to -this software, including all implied warranties of -merchantability and fitness. In no event shall AT&T, Lucent or -Bellcore be liable for any special, indirect or consequential -damages or any damages whatsoever resulting from loss of use, -data or profits, whether in an action of contract, negligence or -other tortious action, arising out of or in connection with the -use or performance of this software. -****************************************************************/ - diff --git a/gnu/lib/libf2c/readme.netlib b/gnu/lib/libf2c/readme.netlib deleted file mode 100644 index 1ec98865e5b..00000000000 --- a/gnu/lib/libf2c/readme.netlib +++ /dev/null @@ -1,791 +0,0 @@ - -====== old index for f2c, now "readme from f2c" ============ - -FILES: - -f2c.h Include file necessary for compiling output of the converter. - See the second NOTE below. - -f2c.1 Man page for f2c. - -f2c.1t Source for f2c.1 (to be processed by troff -man or nroff -man). - -libf77 Library of non I/O support routines the generated C may need. - Fortran main programs result in a C function named MAIN__ that - is meant to be invoked by the main() in libf77. - -libi77 Library of Fortran I/O routines the generated C may need. - Note that some vendors (e.g., BSD, Sun and MIPS) provide a - libF77 and libI77 that are incompatible with f2c -- they - provide some differently named routines or routines with the - names that f2c expects, but with different calling sequences. - On such systems, the recommended procedure is to merge - libf77 and libi77 into a single library, say libf2c, and to - install it where you can access it by specifying -lf2c . The - definition of link_msg in sysdep.c assumes this arrangement. - - Both libf77 and libi77 are bundles, meant to be unpacked by the - Bourne (or Korn) shell. MS-DOS users can use the MKS Toolkit - to unpack libf77 and libi77. - -libf2c.zip - Only available by ftp: combination of libf77 and libi77, with - Unix and PC makefiles. - -f2c.ps Postscript for a technical report on f2c. After you strip the - mail header, the first line should be "%!PS". - -fixes The complete change log, reporting bug fixes and other changes. - (Some recent change-log entries are given below). - -fc A shell script that uses f2c and imitates much of the behavior - of commonly found f77 commands. You will almost certainly - need to adjust some of the shell-variable assignments to make - this script work on your system. - - -SUBDIRECTORY: - -f2c/src Source for the converter itself, including a file of checksums - and source for a program to compute the checksums (to verify - correct transmission of the source), is available: ask netlib - (e.g., netlib@netlib.bell-labs.com) to - send all from f2c/src - If the checksums show damage to just a few source files, or if - the change log file (see "fixes" below) reports corrections to - some source files, you can request those files individually - "from f2c/src". For example, to get defs.h and xsum0.out, you - would ask netlib to - send defs.h xsum0.out from f2c/src - "all from f2c/src" is about 640 kilobytes long; for convenience - (and checksums), it includes copies of f2c.h, f2c.1, and f2c.1t. - - Tip: if asked to send over 99,000 bytes in one request, netlib - breaks the shipment into 1000 line pieces and sends each piece - separately (since otherwise some mailers might gag). To avoid - the hassle of reassembling the pieces, try to keep each request - under 99,000 bytes long. The final number in each line of - xsum0.out gives the length of each file in f2c/src. For - example, - send exec.c expr.c from f2c/src - send format.c format_data.c from f2c/src - will give you slightly less hassle than - send exec.c expr.c format.c format_data.c from f2c/src - Alternatively, if all the mailers in your return path allow - long messages, you can supply an appropriate mailsize line in - your netlib request, e.g. - mailsize 200k - send exec.c expr.c format.c format_data.c from f2c/src - - The makefile used to generate gram.c; now we distribute a - working gram.c, and you must say - make gram1.c - mv gram1.c gram.c - if you want to generate your own gram.c -- there are just too - many broken variants of yacc floating around nowadays for - generation of gram.c to be the default. - -NOTE: You may exercise f2c by sending netlib@netlib.bell-labs.com - a message whose first line is "execute f2c" and whose remaining - lines are the Fortran 77 source that you wish to have converted. - Return mail brings you the resulting C, with f2c's error - messages between #ifdef uNdEfInEd and #endif at the end. - (To understand line numbers in the error messages, regard - the "execute f2c" line as line 0. It is stripped away by - the netlib software before f2c sees your Fortran input.) - Options described in the man page may be transmitted to - netlib by having the first line of input be a comment - whose first 6 characters are "c$f2c " and whose remaining - characters are the desired options, e.g., "c$f2c -R -u". - - You may say "execute f2c" in the Subject line instead of (but - *not* in addition to) in the first line of the message body. - - The incoming Fortran is saved, at least for a while. Don't - send any secrets! - - -BUGS: Please send bug reports (including the shortest example - you can find that illustrates the bug) to research!dmg - or dmg@bell-labs.com . You might first check whether - the bug goes away when you turn optimization off. - - -NOTE: f2c.h defines several types, e.g., real, integer, doublereal. - The definitions in f2c.h are suitable for most machines, but if - your machine has sizeof(double) > 2*sizeof(long), you may need - to adjust f2c.h appropriately. f2c assumes - sizeof(doublecomplex) = 2*sizeof(doublereal) - sizeof(doublereal) = sizeof(complex) - sizeof(doublereal) = 2*sizeof(real) - sizeof(real) = sizeof(integer) - sizeof(real) = sizeof(logical) - sizeof(real) = 2*sizeof(shortint) - EQUIVALENCEs may not be translated correctly if these - assumptions are violated. - - On machines, such as those using a DEC Alpha processor, on - which sizeof(short) == 2, sizeof(int) == sizeof(float) == 4, - and sizeof(long) == sizeof(double) == 8, it suffices to - modify f2c.h by removing the first occurrence of "long " - on each line containing "long ", e.g., by issuing the - commands - mv f2c.h f2c.h0 - sed 's/long //' f2c.h0 >f2c.h - On such machines, one can enable INTEGER*8 by uncommenting - the typedef of longint in f2c.h, so it reads - typedef long longint; - by compiling libI77 with -DAllow_TYQUAD, and by adjusting - libF77/makefile as described in libF77/README. - - Some machines may have sizeof(int) == 4, sizeof(float) == 8, - and sizeof(long long) == 8. On such machines, adjust f2c.h - by changing "long int " to "long long ", e.g., by saying - mv f2c.h f2c.h0 - sed 's/long int /long long /' f2c.h0 >f2c.h - One can enable INTEGER*8 on such machines as described - above, but with - typedef long long longint; - - There exists a C compiler that objects to the lines - typedef VOID C_f; /* complex function */ - typedef VOID H_f; /* character function */ - typedef VOID Z_f; /* double complex function */ - in f2c.h . If yours is such a compiler, do two things: - 1. Complain to your vendor about this compiler bug. - 2. Find the line - #define VOID void - in f2c.h and change it to - #define VOID int - (For readability, the f2c.h lines shown above have had two - tabs inserted before their first character.) - -FTP: All the material described above is now available by anonymous - ftp from netlib.bell-labs.com (login: anonymous; Password: your - E-mail address; cd netlib/f2c). Note that you can say, e.g., - - cd /netlib/f2c/src - binary - prompt - mget *.gz - - to get all the .gz files in src. You must uncompress the .gz - files once you have a copy of them, e.g., by - - gzip -dN *.gz - - You can also get the entire f2c tree as a tar file: - - ftp://netlib.bell-labs.com/netlib/f2c.tar - - (which is a synthetic file -- created on the fly and not visible - to ftp's "ls" or "dir" commands). - - Subdirectory msdos contains two PC versions of f2c, - f2c.exe.gz and f2cx.exe.gz; the latter uses extended memory. - The README in that directory provides more details. - - Changes appear first in the f2c files available by E-mail - from netlib@netlib.bell-labs.com. If the deamons work right, - changed files are available the next day by ftp from - netlib.bell-labs.com. In due course, they reach other netlib servers. - -CHANGE NOTIFICATION: - Send the E-mail message - subscribe f2c - to netlib@netlib.bell-labs.com to request notification of new and - changed f2c files. (Beware that automatically sent change - notifications may reach you before changes have reached - ftp://netlib.bell-labs.com/netlib/f2c or to other netlib servers.) - Send the E-mail message - unsubscribe f2c - to recant your notification request. - ------------------ -Recent change log (partial) ------------------ - -Mon May 13 23:35:26 EDT 1996 - Recognize Fortran 90's /= as a synonym for .NE.. (<> remains a -synonym for .NE..) - Emit an empty int function of no arguments to supply an external -name to named block data subprograms (so they can be called somewhere -to force them to be loaded from a library). - Fix bug (memory fault) in handling the following illegal Fortran: - parameter(i=1) - equivalence(i,j) - end - Treat cdabs, cdcos, cdexp, cdlog, cdsin, and cdsqrt as synonyms for -the double complex intrinsics zabs, zcos, zexp, zlog, zsin, and zsqrt, -respectively, unless -cd is specified. - Recognize the Fortran 90 bit-manipulation intrinsics btest, iand, -ibclr, ibits, ibset, ieor, ior, ishft, and ishftc, unless -i90 is -specified. Note that iand, ieor, and ior are thus now synonyms for -"and", "xor", and "or", respectively. - Add three macros (bit_test, bit_clear, bit_set) to f2c.h for use -with btest, ibclr, and ibset, respectively. Add new functions -[lq]bit_bits, [lq]bit_shift, and [lq]_bit_cshift to libF77 for -use with ibits, ishft, and ishftc, respectively. - Add integer function ftell(unit) (returning -1 on error) and -subroutine fseek(unit, offset, whence, *) to libI77 (with branch to -label * on error). - -Tue May 14 23:21:12 EDT 1996 - Fix glitch (possible memory fault, or worse) in handling multiple -entry points with names over 28 characters long. - -Mon Jun 10 01:20:16 EDT 1996 - Update netlib E-mail and ftp addresses in f2c/readme and -f2c/src/readme (which are different files) -- to reflect the upcoming -breakup of AT&T. - libf77: trivial tweaks to F77_aloc.c and system_.c; Version.c not -changed. - libi77: Adjust rsli.c and lread.c so internal list input with too -few items in the input string will honor end= . - -Mon Jun 10 22:59:57 EDT 1996 - Add Bits_per_Byte to sysdep.h and adjust definition of Table_size -to depend on Bits_per_Byte (forcing Table_size to be a power of 2); in -lex.c, change "comstart[c & 0xfff]" to "comstart[c & (Table_size-1)]" -to avoid an out-of-range subscript on end-of-file. - -Wed Jun 12 00:24:28 EDT 1996 - Fix bug in output.c (dereferencing a freed pointer) revealed in - print * !np in out_call in output.c clobbered by free - end !during out_expr. - -Wed Jun 19 08:12:47 EDT 1996 - f2c.h: add types uinteger, ulongint (for libF77); add qbit_clear -and qbit_set macros (in a commented-out section) for integer*8. - For integer*8, use qbit_clear and qbit_set for ibclr and ibset. - libf77: add casts to unsigned in [lq]bitshft.c. - -Thu Jun 20 13:30:43 EDT 1996 - Complain at character*(*) in common (rather than faulting). - Fix bug in recognizing hex constants that start with "16#" (e.g., -16#1234abcd, which is a synonym for z'1234abcd'). - Fix bugs in constant folding of expressions involving btest, ibclr, -and ibset. - Fix bug in constant folding of rshift(16#80000000, -31) (on a 32-bit -machine; more generally, the bug was in constant folding of -rshift(ibset(0,NBITS-1), 1-NBITS) when f2c runs on a machine with -long ints having NBITS bits. - -Mon Jun 24 07:58:53 EDT 1996 - Adjust struct Literal and newlabel() function to accommodate huge -source files (with more than 32767 newlabel() invocations). - Omit .c file when the .f file has a missing final end statement. - -Wed Jun 26 14:00:02 EDT 1996 - libi77: Add discussion of MXUNIT (highest allowed Fortran unit number) -to libI77/README. - -Fri Jun 28 14:16:11 EDT 1996 - Fix glitch with -onetrip: the temporary variable used for nonconstant -initial loop variable values was recycled too soon. Example: - do i = j+1, k - call foo(i+1) ! temp for j+1 was reused here - enddo - end - -Tue Jul 2 16:11:27 EDT 1996 - formatdata.c: add a 0 to the end of the basetype array (for TYBLANK) -(an omission that was harmless on most machines). - expr.c: fix a dereference of NULL that was only possible with buggy -input, such as - subroutine $sub(s) ! the '$' is erroneous - character s*(*) - s(1:) = ' ' - end - -Sat Jul 6 00:44:56 EDT 1996 - Fix glitch in the intrinsic "real" function when applied to a -complex (or double complex) variable and passed as an argument to -some intrinsic functions. Example: - complex a - b = sqrt(real(a)) - end - Fix glitch (only visible if you do not use f2c's malloc and the -malloc you do use is defective in the sense that malloc(0) returns 0) -in handling include files that end with another include (perhaps -followed by comments). - Fix glitch with character*(*) arguments named "h" and "i" when -the body of the subroutine invokes the intrinsic LEN function. - Arrange that after a previous "f2c -P foo.f" has produced foo.P, -running "f2c foo.P foo.f" will produce valid C when foo.f contains - call sub('1234') - end - subroutine sub(msg) - end -Specifically, the length argument in "call sub" is now suppressed. -With or without foo.P, it is also now suppressed when the order of -subprograms in file foo.f is reversed: - subroutine sub(msg) - end - call sub('1234') - end - Adjust copyright notices to reflect AT&T breakup. - -Wed Jul 10 09:25:49 EDT 1996 - Fix bug (possible memory fault) in handling erroneously placed -and inconsistent declarations. Example that faulted: - character*1 w(8) - call foo(w) - end - subroutine foo(m) - data h /0.5/ - integer m(2) ! should be before data - end - Fix bug (possible fault) in handling illegal "if" constructions. -Example (that faulted): - subroutine foo(i,j) - if (i) then ! bug: i is integer, not logical - else if (j) then ! bug: j is integer, not logical - endif - end - Fix glitch with character*(*) argument named "ret_len" to a -character*(*) function. - -Wed Jul 10 23:04:16 EDT 1996 - Fix more glitches in the intrinsic "real" function when applied to a -complex (or double complex) variable and passed as an argument to -some intrinsic functions. Example: - complex a, b - r = sqrt(real(conjg(a))) + sqrt(real(a*b)) - end - -Thu Jul 11 17:27:16 EDT 1996 - Fix a memory fault associated with complicated, illegal input. -Example: - subroutine goo - character a - call foo(a) ! inconsistent with subsequent def and call - end - subroutine foo(a) - end - call foo(a) - end - -Wed Jul 17 19:18:28 EDT 1996 - Fix yet another case of intrinsic "real" applied to a complex -argument. Example: - complex a(3) - x = sqrt(real(a(2))) ! gave error message about bad tag - end - -Mon Aug 26 11:28:57 EDT 1996 - Tweak sysdep.c for non-Unix systems in which process ID's can be -over 5 digits long. - -Tue Aug 27 08:31:32 EDT 1996 - Adjust the ishft intrinsic to use unsigned right shifts. (Previously, -a negative constant second operand resulted in a possibly signed shift.) - -Thu Sep 12 14:04:07 EDT 1996 - equiv.c: fix glitch with -DKR_headers. - libi77: fmtlib.c: fix bug in printing the most negative integer. - -Fri Sep 13 08:54:40 EDT 1996 - Diagnose some illegal appearances of substring notation. - -Tue Sep 17 17:48:09 EDT 1996 - Fix fault in handling some complex parameters. Example: - subroutine foo(a) - double complex a, b - parameter(b = (0,1)) - a = b ! f2c faulted here - end - -Thu Sep 26 07:47:10 EDT 1996 - libi77: fmt.h: for formatted writes of negative integer*1 values, -make ic signed on ANSI systems. If formatted writes of integer*1 -values trouble you when using a K&R C compiler, switch to an ANSI -compiler or use a compiler flag that makes characters signed. - -Tue Oct 1 14:41:36 EDT 1996 - Give a better error message when dummy arguments appear in data -statements. - -Thu Oct 17 13:37:22 EDT 1996 - Fix bug in typechecking arguments to character and complex (or -double complex) functions; the bug could cause length arguments -for character arguments to be omitted on invocations appearing -textually after the first invocation. For example, in - subroutine foo - character c - complex zot - call goo(zot(c), zot(c)) - end -the length was omitted from the second invocation of zot, and -there was an erroneous error message about inconsistent calling -sequences. - -Wed Dec 4 13:59:14 EST 1996 - Fix bug revealed by - subroutine test(cdum,rdum) - complex cdum - rdum=cos(real(cdum)) ! "Unexpected tag 3 in opconv_fudge" - end - Fix glitch in parsing "DO 10 D0 = 1, 10". - Fix glitch in parsing - real*8 x - real*8 x ! erroneous "incompatible type" message - call foo(x) - end - lib[FI]77/makefile: add comment about omitting -x under Solaris. - -Mon Dec 9 23:15:02 EST 1996 - Fix glitch in parameter adjustments for arrays whose lower -bound depends on a scalar argument. Example: - subroutine bug(p,z,m,n) - integer z(*),m,n - double precision p(z(m):z(m) + n) ! p_offset botched - call foo(p(0), p(n)) - end - libi77: complain about non-positive rec= in direct read and write -statements. - libf77: trivial adjustments; Version.c not changed. - -Wed Feb 12 00:18:03 EST 1997 - output.c: fix (seldom problematic) glitch in out_call: put parens -around the ... in a test of the form "if (q->tag == TADDR && ...)". - vax.c: fix bug revealed in the "psi_offset =" assignment in the -following example: - subroutine foo(psi,m) - integer z(100),m - common /a/ z - double precision psi(z(m):z(m) + 10) - call foo(m+1, psi(0),psi(10)) - end - -Mon Feb 24 23:44:54 EST 1997 - For consistency with f2c's current treatment of adjacent character -strings in FORMAT statements, recognize a Hollerith string following -a string (and merge adjacent strings in FORMAT statements). - -Wed Feb 26 13:41:11 EST 1997 - New libf2c.zip, a combination of the libf77 and libi77 bundles (and -available only by ftp). - libf77: adjust functions with a complex output argument to permit -aliasing it with input arguments. (For now, at least, this is just -for possible benefit of g77.) - libi77: tweak to ftell_.c for systems with strange definitions of -SEEK_SET, etc. - -Tue Apr 8 20:57:08 EDT 1997 - libf77: [cz]_div.c: tweaks invisible on most systems (that may -improve things slightly with optimized compilation on systems that use -gratuitous extra precision). - libi77: fmt.c: adjust to complain at missing numbers in formats -(but still treat missing ".nnn" as ".0"). - -Fri Apr 11 14:05:57 EDT 1997 - libi77: err.c: attempt to make stderr line buffered rather than -fully buffered. (Buffering is needed for format items T and TR.) - -Thu Apr 17 22:42:43 EDT 1997 - libf77: add F77_aloc.o to makefile (and makefile.u in libf2c.zip). - -Fri Apr 25 19:32:09 EDT 1997 - libf77: add [de]time_.c (which may give trouble on some systems). - -Tue May 27 09:18:52 EDT 1997 - libi77: ftell_.c: fix typo that caused the third argument to be -treated as 2 on some systems. - -Mon Jun 9 00:04:37 EDT 1997 - libi77 (and libf2c.zip): adjust include order in err.c lread.c wref.c -rdfmt.c to include fmt.h (etc.) after system includes. Version.c not -changed. - -Mon Jun 9 14:29:13 EDT 1997 - src/gram.c updated; somehow it did not reflect the change of -19961001 to gram.dcl. - -Mon Jul 21 16:04:54 EDT 1997 - proc.c: fix glitch in logic for "nonpositive dimension" message. - libi77: inquire.c: always include string.h (for possible use with --DNON_UNIX_STDIO); Version.c not changed. - -Thu Jul 24 17:11:23 EDT 1997 - Tweak "Notice" to reflect the AT&T breakup -- we missed it when -updating the copyright notices in the source files last summer. - Adjust src/makefile so malloc.o is not used by default, but can -be specified with "make MALLOC=malloc.o". - Add comments to src/README about the "CRAY" T3E. - -Tue Aug 5 14:53:25 EDT 1997 - Add definition of calloc to malloc.c; this makes f2c's malloc -work on some systems where trouble hitherto arose because references -to calloc brought in the system's malloc. (On sensible systems, -calloc is defined separately from malloc. To avoid confusion on -other systems, f2c/malloc.c now defines calloc.) - libi77: lread.c: adjust to accord with a change to the Fortran 8X -draft (in 1990 or 1991) that rescinded permission to elide quote marks -in namelist input of character data; to get the old behavior, compile -with F8X_NML_ELIDE_QUOTES #defined. wrtfmt.o: wrt_G: tweak to print -the right number of 0's for zero under G format. - -Sat Aug 16 05:45:32 EDT 1997 - libi77: iio.c: fix bug in internal writes to an array of character -strings that sometimes caused one more array element than required by -the format to be blank-filled. Example: format(1x). - -Wed Sep 17 00:39:29 EDT 1997 - libi77: fmt.[ch] rdfmt.c wrtfmt.c: tweak struct syl for machines -with 64-bit pointers and 32-bit ints that did not 64-bit align -struct syl (e.g., Linux on the DEC Alpha). This change should be -invisible on other machines. - -Sun Sep 21 22:05:19 EDT 1997 - libf77: [de]time_.c (Unix systems only): change return type to double. - -Thu Dec 4 22:10:09 EST 1997 - Fix bug with handling large blocks of comments (over 4k); parts of the -second and subsequent blocks were likely to be lost (not copied into -comments in the resulting C). Allow comment lines to be longer before -breaking them. - -Mon Jan 19 17:19:27 EST 1998 - makefile: change the rule for making gram.c to one for making gram1.c; -henceforth, asking netlib to "send all from f2c/src" will bring you a -working gram.c. Nowadays there are simply too many broken versions of -yacc floating around. - libi77: backspace.c: for b->ufmt==0, change sizeof(int) to -sizeof(uiolen). On machines where this would make a difference, it is -best for portability to compile libI77 with -DUIOLEN_int, which will -render the change invisible. - -Tue Feb 24 08:35:33 EST 1998 - makefile: remove gram.c from the "make clean" rule. - -Wed Feb 25 08:29:39 EST 1998 - makefile: change CFLAGS assignment to -O; add "veryclean" rule. - -Wed Mar 4 13:13:21 EST 1998 - libi77: open.c: fix glitch in comparing file names under --DNON_UNIX_STDIO. - -Mon Mar 9 23:56:56 EST 1998 - putpcc.c: omit an unnecessary temporary variable in computing -(expr)**3. - libf77, libi77: minor tweaks to make some C++ compilers happy; -Version.c not changed. - -Wed Mar 18 18:08:47 EST 1998 - libf77: minor tweaks to [ed]time_.c; Version.c not changed. - libi77: endfile.c, open.c: acquire temporary files from tmpfile(), -unless compiled with -DNON_ANSI_STDIO, which uses mktemp(). -New buffering scheme independent of NON_UNIX_STDIO for handling T -format items. Now -DNON_UNIX_STDIO is no longer be necessary for -Linux, and libf2c no longer causes stderr to be buffered -- the former -setbuf or setvbuf call for stderr was to make T format items work. -open.c: use the Posix access() function to check existence or -nonexistence of files, except under -DNON_POSIX_STDIO, where trial -fopen calls are used. In open.c, fix botch in changes of 19980304. - libf2c.zip: the PC makefiles are now set for NT/W95, with comments -about changes for DOS. - -Fri Apr 3 17:22:12 EST 1998 - Adjust fix of 19960913 to again permit substring notation on -character variables in data statements. - -Sun Apr 5 19:26:50 EDT 1998 - libi77: wsfe.c: make $ format item work: this was lost in the changes -of 17 March 1998. - -Sat May 16 19:08:51 EDT 1998 - Adjust output of ftnlen constants: rather than appending L, -prepend (ftnlen). This should make the resulting C more portable, -e.g., to systems (such as DEC Alpha Unix systems) on which long -may be longer than ftnlen. - Adjust -r so it also casts REAL expressions passed to intrinsic -functions to REAL. - -Wed May 27 16:02:35 EDT 1998 - libf2c.zip: tweak description of compiling libf2c for INTEGER*8 -to accord with makefile.u rather than libF77/makefile. - -Thu May 28 22:45:59 EDT 1998 - libi77: backspace.c dfe.c due.c iio.c lread.c rsfe.c sue.c wsfe.c: -set f__curunit sooner so various error messages will correctly -identify the I/O unit involved. - libf2c.zip: above, plus tweaks to PC makefiles: for some purposes, -it's still best to compile with -DMSDOS (even for use with NT). - -Thu Jun 18 01:22:52 EDT 1998 - libi77: lread.c: modified so floating-point numbers (containing -either a decimal point or an exponent field) are treated as errors -when they appear as list input for integer data. Compile lread.c with --DALLOW_FLOAT_IN_INTEGER_LIST_INPUT to restore the old behavior. - -Mon Aug 31 10:38:54 EDT 1998 - formatdata.c: if possible, and assuming doubles must be aligned on -double boundaries, use existing holes in DATA for common blocks to -force alignment of the block. For example, - block data - common /abc/ a, b - double precision a - integer b(2) - data b(2)/1/ - end -used to generate - struct { - integer fill_1[3]; - integer e_2; - doublereal e_3; - } abc_ = { {0}, 1, 0. }; -and now generates - struct { - doublereal fill_1[1]; - integer fill_2[1]; - integer e_3; - } abc_ = { {0}, {0}, 1 }; -In the old generated C, e_3 was added to force alignment; in the new C, -fill_1 does this job. - -Mon Sep 7 19:48:51 EDT 1998 - libi77: move e_wdfe from sfe.c to dfe.c, where it was originally. -Why did it ever move to sfe.c? - -Tue Sep 8 10:22:50 EDT 1998 - Treat dreal as a synonym for dble unless -cd is specified on the -command line. - -Sun Sep 13 22:23:41 EDT 1998 - format.c: fix bug in writing prototypes under f2c -A ... *.P: -under some circumstances involving external functions with no known -type, a null pointer was passed to printf. - -Tue Oct 20 23:25:54 EDT 1998 - Comments added to libf2c/README and libF77/README, pointing out -the need to modify signal1.h on some systems. - -Thu Nov 12 15:34:09 EST 1998 - libf77, libf2c.zip: minor tweaks to [de]time_.c and the makefiles, -so makefile.sy, makefile.vc, and makefile.wat deal with [de]time_.c. - -Wed Feb 10 22:59:52 EST 1999 - defs.h lex.c: permit long names (up to at least roughly -MAX_SHARPLINE_LEN = 1000 characters long) in #line lines (which only -matters under -g). - fc: add -U option; recognize .so files. - -Sat Feb 13 10:18:27 EST 1999 - libf2c: endfile.c, lread.c, signal1.h0: minor tweaks to make some -(C++) compilers happier; f77_aloc.c: make exit_() visible to C++ -compilers. Version strings not changed. - -Thu Mar 11 23:14:02 EST 1999 - Modify f2c (exec.c, expr.c) to diagnose incorrect mixing of types -when (f2c extended) intrinsic functions are involved, as in -(not(17) .and. 4). Catching this in the first executable statement -is a bit tricky, as some checking must be postponed until all statement -function declarations have been parsed. Thus there is a chance of -today's changes introducing bugs under (let us hope) unusual conditions. - -Sun Mar 28 13:17:44 EST 1999 - lex.c: tweak to get the file name right in error messages caused -by statements just after a # nnn "filename" line emitted by the C -preprocessor. (The trouble is that the line following the # nnn line -must be read to see if it is a continuation of the stuff that preceded -the # nnn line.) When # nnn "filename" lines appear among the lines -for a Fortran statement, the filename reported in an error message for -the statement should now be the file that was current when the first -line of the statement was read. - -Sun May 2 22:38:25 EDT 1999 - libf77, libi77, libf2c.zip: make getenv_() more portable (call -getenv() rather than knowing about char **environ); adjust some -complex intrinsics to work with overlapping arguments (caused by -inappropriate use of equivalence); open.c: get "external" versus -"internal" right in the error message if a file cannot be opened; -err.c: cast a pointer difference to (int) for %d; rdfmt.c: omit -fixed-length buffer that could be overwritten by formats Inn or Lnn -with nn > 83. - -Mon May 3 13:14:07 EDT 1999 - "Invisible" changes to omit a few compiler warnings in f2c and -libf2c; two new casts in libf2c/open.c that matter with 64-bit longs, -and one more tweak (libf2c/c_log.c) for pathological equivalences. - Minor update to "fc" script: new -L flag and comment correction. - -Tue May 4 10:06:26 EDT 1999 - libf77, libf2c.zip: forgot to copy yesterday's latest updates to -netlib. - -Fri Jun 18 02:33:08 EDT 1999 - libf2c.zip: rename backspace.c backspac.c, and fix a glitch in it --- b->ufd may change in t_runc(). (For now, it's still backspace.c -in the libi77 bundle.) - -Sun Jun 27 22:05:47 EDT 1999 - libf2c.zip, libi77: rsne.c: fix bug in namelist input: a misplaced -increment could cause wrong array elements to be assigned; e.g., -"&input k(5)=10*1 &end" assigned k(5) and k(15 .. 23). - - -Current timestamps of files in "all from f2c/src", sorted by time, -appear below (mm/dd/year hh:mm:ss). To bring your source up to date, -obtain source files with a timestamp later than the time shown in your -version.c. Note that the time shown in the current version.c is the -timestamp of the source module that immediately follows version.c below: - - 5/03/1999 12:46:15 version.c - 5/03/1999 12:39:35 formatdata.c - 5/03/1999 12:31:14 format.c - 5/03/1999 12:27:17 p1output.c - 5/03/1999 12:27:17 data.c - 5/03/1999 10:01:12 xsum0.out - 5/03/1999 9:59:36 io.c - 5/03/1999 9:59:36 misc.c - 5/03/1999 9:59:36 init.c - 3/26/1999 23:18:11 lex.c - 3/11/1999 16:44:17 expr.c - 3/11/1999 16:42:42 exec.c - 2/10/1999 17:43:01 defs.h - 9/08/1998 10:16:51 f2c.1 - 9/08/1998 10:16:48 f2c.1t - 9/08/1998 10:14:53 intr.c - 5/16/1998 16:55:49 output.c - 4/03/1998 17:15:05 gram.c - 4/03/1998 17:14:59 gram.dcl - 3/09/1998 0:30:23 putpcc.c - 2/25/1998 8:18:04 makefile -12/04/1997 17:44:11 niceprintf.c - 8/05/1997 10:31:26 malloc.c - 7/24/1997 17:10:55 README - 7/24/1997 16:06:19 Notice - 7/21/1997 12:58:44 proc.c - 2/11/1997 23:39:14 vax.c -12/04/1996 13:07:53 gram.exec - 9/12/1996 12:12:46 equiv.c - 8/26/1996 9:41:13 sysdep.c - 7/09/1996 10:40:45 names.c - 7/04/1996 9:55:45 sysdep.h - 7/04/1996 9:55:43 put.c - 7/04/1996 9:55:41 pread.c - 7/04/1996 9:55:40 parse_args.c - 7/04/1996 9:55:36 mem.c - 7/04/1996 9:55:36 memset.c - 7/04/1996 9:55:35 main.c - 7/04/1996 9:55:29 error.c - 7/04/1996 9:55:27 cds.c - 7/03/1996 15:47:49 xsum.c - 6/19/1996 7:04:27 f2c.h - 6/19/1996 2:52:05 defines.h - 5/13/1996 0:40:32 gram.head - 2/25/1994 2:07:19 parse.h - 2/22/1994 19:07:20 iob.h - 2/22/1994 18:56:53 p1defs.h - 2/22/1994 18:53:46 output.h - 2/22/1994 18:51:14 names.h - 2/22/1994 18:30:41 format.h - 1/18/1994 18:12:52 tokens - 3/06/1993 14:13:58 gram.expr - 1/28/1993 9:03:16 ftypes.h - 4/06/1990 0:00:57 gram.io - 2/03/1990 0:58:26 niceprintf.h - 1/07/1990 1:20:01 usignal.h -11/27/1989 8:27:37 machdefs.h - 7/01/1989 11:59:44 pccdefs.h diff --git a/gnu/lib/libf2c/shlib_version b/gnu/lib/libf2c/shlib_version deleted file mode 100644 index 00604e64e7d..00000000000 --- a/gnu/lib/libf2c/shlib_version +++ /dev/null @@ -1,2 +0,0 @@ -major=8 -minor=1 |