/************************************************************************
 ************************************************************************
    FAUST compiler
	Copyright (C) 2003-2004 GRAME, Centre National de Creation Musicale
    ---------------------------------------------------------------------
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 ************************************************************************
 ************************************************************************/
 
 
 
/*****************************************************************************
******************************************************************************
								NUM 
						Y. Orlarey, (c) Grame 2002
------------------------------------------------------------------------------
Nums are tagged unions of ints and floats. Nums are completly described by 
the num.h file, there is no num.cpp file.

 API:
 ----
	num(10);				: num with int content
	num(3.14159);			: num with float content
	
	num op num				: op is any C binary operator
	
	type(num)				: 0 = int, 1 = float 
	int(num);				: int content of num or conversion
	float(num);				: float content of num or conversion 
	
 History :
 ---------
 	2002-02-08 : First version
	
******************************************************************************
*****************************************************************************/


#ifndef     __NUM__
#define     __NUM__


//-------------------------------------------------------------------------
// Class num = (int x (int + float))
//-------------------------------------------------------------------------
class num
{
	int		fType;
	union { 
		int 	i; 
		float 	f; 
	} fData;

 public:
	// constructeurs
	num (int x=0) 		: fType(0) 			{ fData.i = x; }
	num (double x) 		: fType(1)  		{ fData.f = (float)x; }
	num (float x) 		: fType(1)  		{ fData.f = x; }
	num (const num& n) 	: fType(n.fType) 	{ fData.i = n.fData.i; }

	num& operator = (int n) 	{ fType = 0; fData.i = n; return *this; }
	num& operator = (float n) 	{ fType = 1; fData.f = n; return *this; }
 	
	// predicats
	bool operator == (const num& n) const { return fType == n.fType && fData.i == n.fData.i; }
	bool operator != (const num& n) const { return fType != n.fType || fData.i != n.fData.i; }
	
	// accessors
	int			type() 		const 	{ return fType; }
	operator 	int() 		const 	{ return (fType) ? int(fData.f) : fData.i; }
	operator 	float() 	const 	{ return (fType) ? fData.f : float(fData.i); }
	
};


inline int isfloat (const num& n) { return n.type(); }

inline const num operator+ (const num& x, const num& y)	
	{ return (isfloat(x)|isfloat(y)) ? num(float(x)+float(y)) : num(int(x)+int(y)); }

inline const num operator- (const num& x, const num& y)	
	{ return (isfloat(x)|isfloat(y)) ? num(float(x)-float(y)) : num(int(x)-int(y)); }

inline const num operator* (const num& x, const num& y)	
	{ return (isfloat(x)|isfloat(y)) ? num(float(x)*float(y)) : num(int(x)*int(y)); }

inline const num operator/ (const num& x, const num& y)	
	{ return (isfloat(x)|isfloat(y)) ? num(float(x)/float(y)) : num(int(x)/int(y)); }

inline const num operator% (const num& x, const num& y)	
	{ return num(int(x)%int(y)); }


// operations sur les bits
inline const num operator<< (const num& x, const num& y)	
	{ return num(int(x)<<int(y)); }

inline const num operator>> (const num& x, const num& y)	
	{ return num(int(x)>>int(y)); }


// operations booléennes sur les bits
inline const num operator& (const num& x, const num& y)	
	{ return num(int(x)&int(y)); }

inline const num operator| (const num& x, const num& y)	
	{ return num(int(x)|int(y)); }

inline const num operator^ (const num& x, const num& y)	
	{ return num(int(x)^int(y)); }


// operations de comparaison
inline const num operator> (const num& x, const num& y)	
	{ return (isfloat(x)|isfloat(y)) ? num(float(x)>float(y)) : num(int(x)>int(y)); }

inline const num operator< (const num& x, const num& y)	
	{ return (isfloat(x)|isfloat(y)) ? num(float(x)<float(y)) : num(int(x)<int(y)); }

inline const num operator>= (const num& x, const num& y)	
	{ return (isfloat(x)|isfloat(y)) ? num(float(x)>=float(y)) : num(int(x)>=int(y)); }

inline const num operator<= (const num& x, const num& y)	
	{ return (isfloat(x)|isfloat(y)) ? num(float(x)<=float(y)) : num(int(x)<=int(y)); }

inline const num operator== (const num& x, const num& y)	
	{ return (isfloat(x)|isfloat(y)) ? num(float(x)==float(y)) : num(int(x)==int(y)); }

inline const num operator!= (const num& x, const num& y)	
	{ return (isfloat(x)|isfloat(y)) ? num(float(x)!=float(y)) : num(int(x)!=int(y)); }


#endif    
