GNU Octave  4.4.1
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
math-wrappers.c
Go to the documentation of this file.
1 /*
2 
3 Copyright (C) 2016-2018 Mike Miller
4 
5 This file is part of Octave.
6 
7 Octave is free software: you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
11 
12 Octave is distributed in the hope that it will be useful, but
13 WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16 
17 You should have received a copy of the GNU General Public License
18 along with Octave; see the file COPYING. If not, see
19 <https://www.gnu.org/licenses/>.
20 
21 */
22 
23 // These functions may be provided by gnulib. We don't include gnulib
24 // headers directly in Octave's C++ source files to avoid problems that
25 // may be caused by the way that gnulib overrides standard library
26 // functions.
27 
28 #if defined (HAVE_CONFIG_H)
29 # include "config.h"
30 #endif
31 
32 #include <math.h>
33 
34 #include "math-wrappers.h"
35 
36 double
37 octave_frexp_wrapper (double x, int *expptr)
38 {
39  return frexp (x, expptr);
40 }
41 
42 float
43 octave_frexpf_wrapper (float x, int *expptr)
44 {
45  return frexpf (x, expptr);
46 }
double frexp(double x, int *expptr)
Definition: lo-mappers.cc:126
float octave_frexpf_wrapper(float x, int *expptr)
Definition: math-wrappers.c:43
double octave_frexp_wrapper(double x, int *expptr)
Definition: math-wrappers.c:37
F77_RET_T const F77_REAL const F77_REAL F77_REAL &F77_RET_T const F77_DBLE const F77_DBLE F77_DBLE &F77_RET_T const F77_DBLE F77_DBLE &F77_RET_T const F77_REAL F77_REAL &F77_RET_T const F77_DBLE * x