Mercurial > octave-nkf
changeset 3121:923049908004
[project @ 1997-12-01 00:01:00 by jwe]
| author | jwe |
|---|---|
| date | Mon, 01 Dec 1997 00:01:01 +0000 |
| parents | a2371c4a1d50 |
| children | c2d111b3f1bf |
| files | liboctave/ChangeLog liboctave/Makefile.in liboctave/acosh.c liboctave/asinh.c liboctave/atanh.c liboctave/erf.c liboctave/erfc.c liboctave/gamma.c liboctave/lgamma.c liboctave/lo-mappers.cc liboctave/oct-math.h |
| diffstat | 11 files changed, 16 insertions(+), 402 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/ChangeLog Sun Nov 30 23:56:37 1997 +0000 +++ b/liboctave/ChangeLog Mon Dec 01 00:01:01 1997 +0000 @@ -1,8 +1,14 @@ Sun Nov 30 14:59:12 1997 John W. Eaton <jwe@bevo.che.wisc.edu> - * dbleBessel.h, dbleBessel.cc: New files. + * lo-mappers.cc: Include cmath and lo-specfun.h, not oct-math.h. + + * lo-specfun.h, lo-specfun.cc: New files. * Makefile.in (INCLUDES, SOURCES): Add them to the lists. + * acosh.c, asinh.c, atanh.c, erf.c, erfc.c, gamma.c, lgamma.c, + oct-math.h: Delete. + * Makefile.in (SOURCES): Delete them from the list. + Wed Nov 26 20:02:13 1997 John W. Eaton <jwe@bevo.che.wisc.edu> * lo-sysdep.cc (octave_getcwd): Prefer getcwd over getwd.
--- a/liboctave/Makefile.in Sun Nov 30 23:56:37 1997 +0000 +++ b/liboctave/Makefile.in Mon Dec 01 00:01:01 1997 +0000 @@ -44,8 +44,8 @@ LinConst.h LP.h LPsolve.h LSODE.h NLConst.h NLEqn.h NLFunc.h \ NLP.h ODE.h ODEFunc.h Objective.h QP.h Quad.h Range.h base-de.h \ base-min.h byte-swap.h cmd-edit.h cmd-hist.h data-conv.h \ - dbleBessel.h dir-ops.h file-ops.h file-stat.h getopt.h \ - glob-match.h idx-vector.h lo-ieee.h lo-mappers.h lo-sysdep.h \ + dir-ops.h file-ops.h file-stat.h getopt.h glob-match.h \ + idx-vector.h lo-ieee.h lo-mappers.h lo-specfun.h lo-sysdep.h \ lo-utils.h mach-info.h oct-alloc.h oct-cmplx.h oct-env.h \ oct-math.h oct-group.h oct-passwd.h oct-syscalls.h pathlen.h \ pathsearch.h prog-args.h statdefs.h str-vec.h sun-utils.h \ @@ -77,10 +77,11 @@ SOURCES := Bounds.cc CollocWt.cc DAE.cc DASSL.cc FEGrid.cc \ LinConst.cc LPsolve.cc LSODE.cc NLEqn.cc Quad.cc Range.cc \ - acosh.c asinh.c atanh.c cmd-edit.cc cmd-hist.cc data-conv.cc \ - dbleBessel.cc dir-ops.cc erf.c erfc.c f2c-main.c \ - file-ops.cc file-stat.cc filemode.c gamma.c getopt.c getopt1.c \ - glob-match.cc idx-vector.cc lgamma.c lo-ieee.cc lo-mappers.cc \ + cmd-edit.cc cmd-hist.cc data-conv.cc \ + dbleBessel.cc dbleBetai.cc dbleGammai.cc dir-ops.cc \ + f2c-main.c \ + file-ops.cc file-stat.cc filemode.c getopt.c getopt1.c \ + glob-match.cc idx-vector.cc lo-ieee.cc lo-mappers.cc \ lo-sysdep.cc lo-utils.cc mach-info.cc mkdir.c oct-alloc.cc \ oct-env.cc oct-group.cc oct-passwd.cc oct-syscalls.cc \ pathsearch.cc prog-args.cc rename.c rmdir.c str-vec.cc \
--- a/liboctave/acosh.c Sun Nov 30 23:56:37 1997 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,45 +0,0 @@ -/* - -Copyright (C) 1996, 1997 John W. Eaton - -This file is part of Octave. - -Octave 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. - -Octave 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 Octave; see the file COPYING. If not, write to the Free -Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -*/ - -#ifdef HAVE_CONFIG_H -#include <config.h> -#endif - -#ifndef HAVE_ACOSH - -#include "f77-fcn.h" - -extern double F77_FCN (dacosh, DACOSH) (const double*); - -double -acosh (double x) -{ - return F77_FCN (dacosh, DACOSH) (&x); -} - -#endif - -/* -;;; Local Variables: *** -;;; mode: C *** -;;; End: *** -*/
--- a/liboctave/asinh.c Sun Nov 30 23:56:37 1997 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,45 +0,0 @@ -/* - -Copyright (C) 1996, 1997 John W. Eaton - -This file is part of Octave. - -Octave 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. - -Octave 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 Octave; see the file COPYING. If not, write to the Free -Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -*/ - -#ifdef HAVE_CONFIG_H -#include <config.h> -#endif - -#ifndef HAVE_ASINH - -#include "f77-fcn.h" - -extern double F77_FCN (dasinh, DASINH) (const double*); - -double -asinh (double x) -{ - return F77_FCN (dasinh, DASINH) (&x); -} - -#endif - -/* -;;; Local Variables: *** -;;; mode: C *** -;;; End: *** -*/
--- a/liboctave/atanh.c Sun Nov 30 23:56:37 1997 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,45 +0,0 @@ -/* - -Copyright (C) 1996, 1997 John W. Eaton - -This file is part of Octave. - -Octave 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. - -Octave 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 Octave; see the file COPYING. If not, write to the Free -Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -*/ - -#ifdef HAVE_CONFIG_H -#include <config.h> -#endif - -#ifndef HAVE_ATANH - -#include "f77-fcn.h" - -extern double F77_FCN (datanh, DATANH) (const double*); - -double -atanh (double x) -{ - return F77_FCN (datanh, DATANH) (&x); -} - -#endif - -/* -;;; Local Variables: *** -;;; mode: C *** -;;; End: *** -*/
--- a/liboctave/erf.c Sun Nov 30 23:56:37 1997 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,45 +0,0 @@ -/* - -Copyright (C) 1996, 1997 John W. Eaton - -This file is part of Octave. - -Octave 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. - -Octave 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 Octave; see the file COPYING. If not, write to the Free -Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -*/ - -#ifdef HAVE_CONFIG_H -#include <config.h> -#endif - -#ifndef HAVE_ERF - -#include "f77-fcn.h" - -extern double F77_FCN (derf, DERF) (const double*); - -double -erf (double x) -{ - return F77_FCN (derf, DERF) (&x); -} - -#endif - -/* -;;; Local Variables: *** -;;; mode: C *** -;;; End: *** -*/
--- a/liboctave/erfc.c Sun Nov 30 23:56:37 1997 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,45 +0,0 @@ -/* - -Copyright (C) 1996, 1997 John W. Eaton - -This file is part of Octave. - -Octave 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. - -Octave 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 Octave; see the file COPYING. If not, write to the Free -Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -*/ - -#ifdef HAVE_CONFIG_H -#include <config.h> -#endif - -#ifndef HAVE_ERFC - -#include "f77-fcn.h" - -extern double F77_FCN (derfc, DERFC) (const double*); - -double -erfc (double x) -{ - return F77_FCN (derfc, DERFC) (&x); -} - -#endif - -/* -;;; Local Variables: *** -;;; mode: C *** -;;; End: *** -*/
--- a/liboctave/gamma.c Sun Nov 30 23:56:37 1997 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,45 +0,0 @@ -/* - -Copyright (C) 1996, 1997 John W. Eaton - -This file is part of Octave. - -Octave 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. - -Octave 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 Octave; see the file COPYING. If not, write to the Free -Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -*/ - -#ifdef HAVE_CONFIG_H -#include <config.h> -#endif - -#ifndef HAVE_GAMMA - -#include "f77-fcn.h" - -extern double F77_FCN (dgamma, DGAMMA) (const double*); - -double -gamma (double x) -{ - return F77_FCN (dgamma, DGAMMA) (&x); -} - -#endif - -/* -;;; Local Variables: *** -;;; mode: C *** -;;; End: *** -*/
--- a/liboctave/lgamma.c Sun Nov 30 23:56:37 1997 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,57 +0,0 @@ -/* - -Copyright (C) 1996, 1997 John W. Eaton - -This file is part of Octave. - -Octave 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. - -Octave 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 Octave; see the file COPYING. If not, write to the Free -Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -*/ - -#ifdef HAVE_CONFIG_H -#include <config.h> -#endif - -#ifndef HAVE_LGAMMA - -#include "f77-fcn.h" - -/* If the system doesn't have lgamma, assume that it doesn't have - signgam either */ - -int signgam; - -extern int F77_FCN (dlgams, DLGAMS) (const double*, double*, double*); - -double -lgamma (double x) -{ - double result; - double sgngam; - - F77_FCN (dlgams, DLGAMS) (&x, &result, &sgngam); - - signgam = (int) sgngam; - - return result; -} - -#endif - -/* -;;; Local Variables: *** -;;; mode: C *** -;;; End: *** -*/
--- a/liboctave/lo-mappers.cc Sun Nov 30 23:56:37 1997 +0000 +++ b/liboctave/lo-mappers.cc Mon Dec 01 00:01:01 1997 +0000 @@ -25,13 +25,14 @@ #endif #include <cfloat> +#include <cmath> #include "lo-error.h" #include "lo-ieee.h" #include "lo-mappers.h" +#include "lo-specfun.h" #include "lo-utils.h" #include "oct-cmplx.h" -#include "oct-math.h" #include "f77-fcn.h"
--- a/liboctave/oct-math.h Sun Nov 30 23:56:37 1997 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,67 +0,0 @@ -/* - -Copyright (C) 1996, 1997 John W. Eaton - -This file is part of Octave. - -Octave 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. - -Octave 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 Octave; see the file COPYING. If not, write to the Free -Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -*/ - -#if !defined (octave_oct_math_h) -#define octave_oct_math_h 1 - -#include <cmath> - -#ifdef __cplusplus -extern "C" { -#endif - -// Provide declarations for these whether they are actually missing or -// not, because they are not part of the standard math.h, and the -// g++/libg++ installation no longer provides declarations for them. - -#ifndef HAVE_ACOSH -extern double acosh (double); -#endif - -#ifndef HAVE_ASINH -extern double asinh (double); -#endif - -#ifndef HAVE_ATANH -extern double atanh (double); -#endif - -#ifndef HAVE_ERF -extern double erf (double); -#endif - -#ifndef HAVE_ERFC -extern double erfc (double); -#endif - -#ifdef __cplusplus -} -#endif - -#endif - -/* -;;; Local Variables: *** -;;; mode: C *** -;;; page-delimiter: "^/\\*" *** -;;; End: *** -*/