/*                        Copyright (c) 1988 Bellcore
**                            All Rights Reserved
**       Permission is granted to copy or use this program, EXCEPT that it
**       may not be sold for profit, the copyright notice must be reproduced
**       on copies, and credit should be given to Bellcore where it is due.
**       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
*/

/*
** header file that defines canonical floating point structure
**	and routines
*/


#ifndef  R_INCLUDED

/*
**	when evaluated to a string, the fractional part will
**		not exceed this length
*/
#define R_MANMAX	200

#define R_POSITIVE	0
#define R_NEGATIVE	1

struct  R_flstr {
	int exponent;
	int man_sign;
	char *mantissa;
};

typedef struct R_flstr *R_float;

#define R_getfrac(x)	(x->mantissa)

extern R_float R_makefloat();

extern int R_getexp();

#define R_getsign(x)	(x->man_sign)

/*
**	takes a string
*/
#define R_setfrac(x,y)	((void)strcpy(x->mantissa,y))
/*
**	takes an int
*/
#define R_setexp(x,y)	(x->exponent = y)
/*
**	takes a sign
*/
#define R_setsign(x,y)	(x->man_sign = y)

/*
#define R_incexp(x)	((x->exponent)++)
#define R_decexp(x)	((x->exponent)--)
*/

#define R_setzero(x)	R_setfrac(x,"0");R_setexp(x,0);R_setsign(x,R_POSITIVE)

#define R_zerofloat(x)	((0 == x->exponent) && (!strcmp(x->mantissa,"0")))

#define R_INCLUDED

#endif