21 lines
426 B
C
21 lines
426 B
C
|
/* Float object interface */
|
||
|
|
|
||
|
|
/*
|
||
|
|
floatobject represents a (double precision) floating point number.
|
||
|
|
*/
|
||
|
|
|
||
|
|
typedef struct {
|
||
|
|
OB_HEAD
|
||
|
|
double ob_fval;
|
||
|
|
} floatobject;
|
||
|
|
|
||
|
|
extern typeobject Floattype;
|
||
|
|
|
||
|
|
#define is_floatobject(op) ((op)->ob_type == &Floattype)
|
||
|
|
|
||
|
|
extern object *newfloatobject PROTO((double));
|
||
|
|
extern double getfloatvalue PROTO((object *));
|
||
|
|
|
||
|
|
/* Macro, trading safety for speed */
|
||
|
|
#define GETFLOATVALUE(op) ((op)->ob_fval)
|