284 lines
8.1 KiB
C
284 lines
8.1 KiB
C
|
/***
|
||
|
|
*math.h - definitions and declarations for math library
|
||
|
|
*
|
||
|
|
* Copyright (c) 1985-1993, Microsoft Corporation. All rights reserved.
|
||
|
|
*
|
||
|
|
*Purpose:
|
||
|
|
* This file contains constant definitions and external subroutine
|
||
|
|
* declarations for the math subroutine library.
|
||
|
|
* [ANSI/System V]
|
||
|
|
*
|
||
|
|
*Revision History:
|
||
|
|
* 10/20/87 JCR Removed "MSC40_ONLY" entries
|
||
|
|
* 12-11-87 JCR Added "_loadds" functionality
|
||
|
|
* 12-18-87 JCR Added _FAR_ to declarations
|
||
|
|
* 02-10-88 JCR Cleaned up white space
|
||
|
|
* 02-10-88 WAJ Changed HUGE and HUGE_VAL definitions for DLL libraries
|
||
|
|
* 05-32-88 PHG Added _CDECL and _NEAR for declaration of HUGE
|
||
|
|
* 08-22-88 GJF Modified to also work with the 386 (small model only)
|
||
|
|
* 05-03-89 JCR Added _INTERNAL_IFSTRIP for relinc usage
|
||
|
|
* 08-02-89 GJF Cleanup, now specific to OS/2 2.0 (i.e., 386 flat model)
|
||
|
|
* 10-30-89 GJF Fixed copyright
|
||
|
|
* 11-02-89 JCR Changed "DLL" to "_DLL"
|
||
|
|
* 11-20-89 JCR Routines are now _cdecl in both single and multi-thread
|
||
|
|
* 12-14-89 WAJ Removed pascal from mthread version.
|
||
|
|
* 03-01-90 GJF Added #ifndef _INC_MATH and #include <cruntime.h>
|
||
|
|
* stuff. Also, removed some (now) useless preprocessor
|
||
|
|
* directives.
|
||
|
|
* 03-29-90 GJF Replaced _cdecl with _VARTYPE1, _CALLTYPE1 or
|
||
|
|
* _CALLTYPE2, as appropriate.
|
||
|
|
* 07-30-90 SBM Removed special _DLL definitions of HUGE and HUGE_VAL
|
||
|
|
* 08-17-90 WAJ Floating point routines now use _stdcall.
|
||
|
|
* 08-08-91 GJF Added long double stuff. ANSI naming.
|
||
|
|
* 08-20-91 JCR C++ and ANSI naming
|
||
|
|
* 09-28-91 JCR ANSI names: DOSX32=prototypes, WIN32=#defines for now
|
||
|
|
* 10-03-91 GDP Added #pragma function(...)
|
||
|
|
* No floating point intrinsics for WIN32/NT86
|
||
|
|
* 10-06-91 SRW Removed long double stuff.
|
||
|
|
* 01-24-92 GJF Fixed [_]HUGE for crtdll.dll.
|
||
|
|
* 01-30-92 GJF Removed prototypes and macros for the ieee-to/from-
|
||
|
|
* msbin functions (they don't exist).
|
||
|
|
* 08-05-92 GJF Function calling type and variable type macros.
|
||
|
|
* 12-18-92 GDP Removed #pragma function(...)
|
||
|
|
* 01-21-93 GJF Removed support for C6-386's _cdecl.
|
||
|
|
* 11-17-93 CFW Fixed HUGE (oldname) macro, now maps to _HUGE.
|
||
|
|
* 01-13-94 RDL Added #ifndef _LANGUAGE_ASSEMBLY for asm includes.
|
||
|
|
*
|
||
|
|
****/
|
||
|
|
|
||
|
|
#ifndef _INC_MATH
|
||
|
|
|
||
|
|
#ifdef __cplusplus
|
||
|
|
extern "C" {
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifndef _LANGUAGE_ASSEMBLY
|
||
|
|
|
||
|
|
#ifndef _INTERNAL_IFSTRIP_
|
||
|
|
#include <cruntime.h>
|
||
|
|
#endif /* _INTERNAL_IFSTRIP_ */
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Conditional macro definition for function calling type and variable type
|
||
|
|
* qualifiers.
|
||
|
|
*/
|
||
|
|
#if ( (_MSC_VER >= 800) && (_M_IX86 >= 300) )
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Definitions for MS C8-32 (386/486) compiler
|
||
|
|
*/
|
||
|
|
#define _CRTAPI1 __cdecl
|
||
|
|
#define _CRTAPI2 __cdecl
|
||
|
|
|
||
|
|
#else
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Other compilers (e.g., MIPS)
|
||
|
|
*/
|
||
|
|
#define _CRTAPI1
|
||
|
|
#define _CRTAPI2
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|
||
|
|
|
||
|
|
/* definition of _exception struct - this struct is passed to the matherr
|
||
|
|
* routine when a floating point exception is detected
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifndef _EXCEPTION_DEFINED
|
||
|
|
struct _exception {
|
||
|
|
int type; /* exception type - see below */
|
||
|
|
char *name; /* name of function where error occured */
|
||
|
|
double arg1; /* first argument to function */
|
||
|
|
double arg2; /* second argument (if any) to function */
|
||
|
|
double retval; /* value to be returned by function */
|
||
|
|
} ;
|
||
|
|
|
||
|
|
#if !__STDC__
|
||
|
|
/* Non-ANSI name for compatibility */
|
||
|
|
#define exception _exception
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#define _EXCEPTION_DEFINED
|
||
|
|
#endif
|
||
|
|
|
||
|
|
|
||
|
|
/* definition of a _complex struct to be used by those who use cabs and
|
||
|
|
* want type checking on their argument
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifndef _COMPLEX_DEFINED
|
||
|
|
struct _complex {
|
||
|
|
double x,y; /* real and imaginary parts */
|
||
|
|
} ;
|
||
|
|
|
||
|
|
#if !__STDC__
|
||
|
|
/* Non-ANSI name for compatibility */
|
||
|
|
#define complex _complex
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#define _COMPLEX_DEFINED
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#endif /* _LANGUAGE_ASSEMBLY */
|
||
|
|
|
||
|
|
|
||
|
|
/* Constant definitions for the exception type passed in the _exception struct
|
||
|
|
*/
|
||
|
|
|
||
|
|
#define _DOMAIN 1 /* argument domain error */
|
||
|
|
#define _SING 2 /* argument singularity */
|
||
|
|
#define _OVERFLOW 3 /* overflow range error */
|
||
|
|
#define _UNDERFLOW 4 /* underflow range error */
|
||
|
|
#define _TLOSS 5 /* total loss of precision */
|
||
|
|
#define _PLOSS 6 /* partial loss of precision */
|
||
|
|
|
||
|
|
#define EDOM 33
|
||
|
|
#define ERANGE 34
|
||
|
|
|
||
|
|
|
||
|
|
/* definitions of _HUGE and HUGE_VAL - respectively the XENIX and ANSI names
|
||
|
|
* for a value returned in case of error by a number of the floating point
|
||
|
|
* math routines
|
||
|
|
*/
|
||
|
|
#ifndef _LANGUAGE_ASSEMBLY
|
||
|
|
#ifdef _DLL
|
||
|
|
#define _HUGE (*_HUGE_dll)
|
||
|
|
extern double * _CRTVAR1 _HUGE_dll;
|
||
|
|
#else
|
||
|
|
#ifdef CRTDLL
|
||
|
|
#define _HUGE _HUGE_dll
|
||
|
|
#endif
|
||
|
|
extern double _CRTVAR1 _HUGE;
|
||
|
|
#endif
|
||
|
|
#endif /* _LANGUAGE_ASSEMBLY */
|
||
|
|
|
||
|
|
#define HUGE_VAL _HUGE
|
||
|
|
|
||
|
|
/* function prototypes */
|
||
|
|
|
||
|
|
#ifndef _LANGUAGE_ASSEMBLY
|
||
|
|
int _CRTAPI1 abs(int);
|
||
|
|
double _CRTAPI1 acos(double);
|
||
|
|
double _CRTAPI1 asin(double);
|
||
|
|
double _CRTAPI1 atan(double);
|
||
|
|
double _CRTAPI1 atan2(double, double);
|
||
|
|
double _CRTAPI1 atof(const char *);
|
||
|
|
double _CRTAPI1 _cabs(struct _complex);
|
||
|
|
double _CRTAPI1 ceil(double);
|
||
|
|
double _CRTAPI1 cos(double);
|
||
|
|
double _CRTAPI1 cosh(double);
|
||
|
|
double _CRTAPI1 exp(double);
|
||
|
|
double _CRTAPI1 fabs(double);
|
||
|
|
double _CRTAPI1 floor(double);
|
||
|
|
double _CRTAPI1 fmod(double, double);
|
||
|
|
double _CRTAPI1 frexp(double, int *);
|
||
|
|
double _CRTAPI1 _hypot(double, double);
|
||
|
|
double _CRTAPI1 _j0(double);
|
||
|
|
double _CRTAPI1 _j1(double);
|
||
|
|
double _CRTAPI1 _jn(int, double);
|
||
|
|
long _CRTAPI1 labs(long);
|
||
|
|
double _CRTAPI1 ldexp(double, int);
|
||
|
|
double _CRTAPI1 log(double);
|
||
|
|
double _CRTAPI1 log10(double);
|
||
|
|
int _CRTAPI1 _matherr(struct _exception *);
|
||
|
|
double _CRTAPI1 modf(double, double *);
|
||
|
|
double _CRTAPI1 pow(double, double);
|
||
|
|
double _CRTAPI1 sin(double);
|
||
|
|
double _CRTAPI1 sinh(double);
|
||
|
|
double _CRTAPI1 sqrt(double);
|
||
|
|
double _CRTAPI1 tan(double);
|
||
|
|
double _CRTAPI1 tanh(double);
|
||
|
|
double _CRTAPI1 _y0(double);
|
||
|
|
double _CRTAPI1 _y1(double);
|
||
|
|
double _CRTAPI1 _yn(int, double);
|
||
|
|
#ifdef _M_MRX000
|
||
|
|
|
||
|
|
/* MIPS fast prototypes for float */
|
||
|
|
/* ANSI C, 4.5 Mathematics */
|
||
|
|
|
||
|
|
/* 4.5.2 Trigonometric functions */
|
||
|
|
|
||
|
|
float __cdecl acosf( float );
|
||
|
|
float __cdecl asinf( float );
|
||
|
|
float __cdecl atanf( float );
|
||
|
|
float __cdecl atan2f( float , float );
|
||
|
|
float __cdecl cosf( float );
|
||
|
|
float __cdecl sinf( float );
|
||
|
|
float __cdecl tanf( float );
|
||
|
|
|
||
|
|
/* 4.5.3 Hyperbolic functions */
|
||
|
|
float __cdecl coshf( float );
|
||
|
|
float __cdecl sinhf( float );
|
||
|
|
float __cdecl tanhf( float );
|
||
|
|
|
||
|
|
/* 4.5.4 Exponential and logarithmic functions */
|
||
|
|
float __cdecl expf( float );
|
||
|
|
float __cdecl logf( float );
|
||
|
|
float __cdecl log10f( float );
|
||
|
|
float __cdecl modff( float , float* );
|
||
|
|
|
||
|
|
/* 4.5.5 Power functions */
|
||
|
|
float __cdecl powf( float , float );
|
||
|
|
float __cdecl sqrtf( float );
|
||
|
|
|
||
|
|
/* 4.5.6 Nearest integer, absolute value, and remainder functions */
|
||
|
|
float __cdecl ceilf( float );
|
||
|
|
float __cdecl fabsf( float );
|
||
|
|
float __cdecl floorf( float );
|
||
|
|
float __cdecl fmodf( float , float );
|
||
|
|
|
||
|
|
#endif /* _M_MRX000 */
|
||
|
|
|
||
|
|
#endif /* _LANGUAGE_ASSEMBLY */
|
||
|
|
|
||
|
|
#if !__STDC__
|
||
|
|
/* Non-ANSI names for compatibility */
|
||
|
|
|
||
|
|
#define DOMAIN _DOMAIN
|
||
|
|
#define SING _SING
|
||
|
|
#define OVERFLOW _OVERFLOW
|
||
|
|
#define UNDERFLOW _UNDERFLOW
|
||
|
|
#define TLOSS _TLOSS
|
||
|
|
#define PLOSS _PLOSS
|
||
|
|
|
||
|
|
#define matherr _matherr
|
||
|
|
|
||
|
|
#define HUGE _HUGE
|
||
|
|
|
||
|
|
#ifndef _DOSX32_
|
||
|
|
#define cabs _cabs
|
||
|
|
#define hypot _hypot
|
||
|
|
#define j0 _j0
|
||
|
|
#define j1 _j1
|
||
|
|
#define jn _jn
|
||
|
|
#define matherr _matherr
|
||
|
|
#define y0 _y0
|
||
|
|
#define y1 _y1
|
||
|
|
#define yn _yn
|
||
|
|
|
||
|
|
#define cabsl _cabsl
|
||
|
|
#define hypotl _hypotl
|
||
|
|
#else
|
||
|
|
#ifndef _LANGUAGE_ASSEMBLY
|
||
|
|
double _CRTAPI1 cabs(struct complex);
|
||
|
|
double _CRTAPI1 hypot(double, double);
|
||
|
|
double _CRTAPI1 j0(double);
|
||
|
|
double _CRTAPI1 j1(double);
|
||
|
|
double _CRTAPI1 jn(int, double);
|
||
|
|
double _CRTAPI1 y0(double);
|
||
|
|
double _CRTAPI1 y1(double);
|
||
|
|
double _CRTAPI1 yn(int, double);
|
||
|
|
|
||
|
|
#endif /* _LANGUAGE_ASSEMBLY */
|
||
|
|
|
||
|
|
#endif
|
||
|
|
#endif /* __STDC__ */
|
||
|
|
|
||
|
|
#ifdef __cplusplus
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#define _INC_MATH
|
||
|
|
#endif /* _INC_MATH */
|