/usr/include/gap/macfloat.h is in gap-dev 4r8p8-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 | /****************************************************************************
**
*W macfloat.h GAP source Steve Linton
**
**
*Y Copyright (C) 1996, Lehrstuhl D für Mathematik, RWTH Aachen, Germany
*Y (C) 1998 School Math and Comp. Sci., University of St Andrews, Scotland
*Y Copyright (C) 2002 The GAP Group
**
** This file declares the functions for the macfloating point package
*/
#include <string.h>
#ifndef GAP_MACFLOAT_H
#define GAP_MACFLOAT_H
#ifdef VERY_LONG_DOUBLES
typedef long double /* __float128 */ Double;
#define TOPRINTFFORMAT long double
#define PRINTFDIGITS 20
#define PRINTFFORMAT "Lg"
#define STRTOD strtold
#define MATH(name) name ## l
#else
typedef double Double;
#define TOPRINTFFORMAT double
#define PRINTFDIGITS 16
#define PRINTFFORMAT "g"
#define STRTOD strtod
#define MATH(name) name
#endif
static inline Double VAL_MACFLOAT(Obj obj)
{ Double __val; memcpy(&__val,ADDR_OBJ(obj),sizeof(Double)); return __val; }
static inline void SET_VAL_MACFLOAT(Obj obj, Double val)
{ Double __val = (val); memcpy(ADDR_OBJ(obj),&__val,sizeof(Double)); }
#define IS_MACFLOAT(obj) (TNUM_OBJ(obj) == T_MACFLOAT)
extern Obj NEW_MACFLOAT( Double val);
/*F * * * * * * * * * * * * * initialize package * * * * * * * * * * * * * * **/
/****************************************************************************
**
*F InitInfoMacfloat() . . . . . . . . . . . . . . . . . table of init functions
*/
StructInitInfo * InitInfoMacfloat ( void );
#endif // GAP_MACFLOAT_H
/****************************************************************************
**
*E macfloat.h . . . . . . . . . . . . . . . . . . . . . . . . . . . . ends here
*/
|