/*
 * Copyright (c) 2015, PHILIPPE TILLET. All rights reserved.
 *
 * This file is part of ISAAC.
 *
 * ISAAC is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
 * MA 02110-1301  USA
 */

#ifndef ISAAC_VALUE_SCALAR_H
#define ISAAC_VALUE_SCALAR_H

#include "isaac/defines.h"
#include "isaac/types.h"
#include "isaac/common/numeric_type.h"
#include <stdint.h>

namespace isaac
{

class scalar;
class expression_tree;

union ISAACAPI values_holder
{
  int8_t int8;
  uint8_t uint8;
  int16_t int16;
  uint16_t uint16;
  int32_t int32;
  uint32_t uint32;
  int64_t int64;
  uint64_t uint64;
  float float32;
  double float64;
};

class ISAACAPI value_scalar
{
  template<class T> void init(T const &);
  template<class T> T cast() const;
public:
#define ISAAC_INSTANTIATE(TYPE) value_scalar(TYPE value, numeric_type dtype = to_numeric_type<TYPE>::value);
  ISAAC_INSTANTIATE(char)
  ISAAC_INSTANTIATE(unsigned char)
  ISAAC_INSTANTIATE(short)
  ISAAC_INSTANTIATE(unsigned short)
  ISAAC_INSTANTIATE(int)
  ISAAC_INSTANTIATE(unsigned int)
  ISAAC_INSTANTIATE(long)
  ISAAC_INSTANTIATE(unsigned long)
  ISAAC_INSTANTIATE(long long)
  ISAAC_INSTANTIATE(unsigned long long)
  ISAAC_INSTANTIATE(float)
  ISAAC_INSTANTIATE(double)
#undef ISAAC_INSTANTIATE
  value_scalar(values_holder values, numeric_type dtype);
  explicit value_scalar(scalar const &);
  explicit value_scalar(expression_tree const &);
  explicit value_scalar(numeric_type dtype = INVALID_NUMERIC_TYPE);

  values_holder values() const;
  numeric_type dtype() const;

#define INSTANTIATE(type) operator type() const;
  INSTANTIATE(bool)
  INSTANTIATE(char)
  INSTANTIATE(unsigned char)
  INSTANTIATE(short)
  INSTANTIATE(unsigned short)
  INSTANTIATE(int)
  INSTANTIATE(unsigned int)
  INSTANTIATE(long)
  INSTANTIATE(unsigned long)
  INSTANTIATE(long long)
  INSTANTIATE(unsigned long long)
  INSTANTIATE(float)
  INSTANTIATE(double)
#undef INSTANTIATE
private:
  values_holder values_;
  numeric_type dtype_;
};

ISAACAPI value_scalar int8(int8_t v);
ISAACAPI value_scalar uint8(uint8_t v);
ISAACAPI value_scalar int16(int16_t v);
ISAACAPI value_scalar uint16(uint16_t v);
ISAACAPI value_scalar int32(int32_t v);
ISAACAPI value_scalar uint32(uint32_t v);
ISAACAPI value_scalar int64(int64_t v);
ISAACAPI value_scalar uint64(uint64_t v);
ISAACAPI value_scalar float32(float v);
ISAACAPI value_scalar float64(double v);

template<class T>
ISAACAPI T cast(isaac::value_scalar const &);

#define ISAAC_DECLARE_BINARY_OPERATOR(RET, OPNAME) \
ISAACAPI RET OPNAME (value_scalar const &, char  );\
ISAACAPI RET OPNAME (value_scalar const &, unsigned char );\
ISAACAPI RET OPNAME (value_scalar const &, short );\
ISAACAPI RET OPNAME (value_scalar const &, unsigned short);\
ISAACAPI RET OPNAME (value_scalar const &, int   );\
ISAACAPI RET OPNAME (value_scalar const &, unsigned int  );\
ISAACAPI RET OPNAME (value_scalar const &, long  );\
ISAACAPI RET OPNAME (value_scalar const &, unsigned long );\
ISAACAPI RET OPNAME (value_scalar const &, long long);\
ISAACAPI RET OPNAME (value_scalar const &, unsigned long long);\
ISAACAPI RET OPNAME (value_scalar const &, float );\
ISAACAPI RET OPNAME (value_scalar const &, double);\
ISAACAPI RET OPNAME (char   , value_scalar const &);\
ISAACAPI RET OPNAME (unsigned char  , value_scalar const &);\
ISAACAPI RET OPNAME (short  , value_scalar const &);\
ISAACAPI RET OPNAME (unsigned short , value_scalar const &);\
ISAACAPI RET OPNAME (int    , value_scalar const &);\
ISAACAPI RET OPNAME (unsigned int   , value_scalar const &);\
ISAACAPI RET OPNAME (long   , value_scalar const &);\
ISAACAPI RET OPNAME (unsigned long  , value_scalar const &);\
ISAACAPI RET OPNAME (long long, value_scalar const &);\
ISAACAPI RET OPNAME (unsigned long long, value_scalar const &);\
ISAACAPI RET OPNAME (float  , value_scalar const &);\
ISAACAPI RET OPNAME (double , value_scalar const &);\
ISAACAPI RET OPNAME (value_scalar const &, value_scalar const &);

ISAAC_DECLARE_BINARY_OPERATOR(value_scalar, operator +)
ISAAC_DECLARE_BINARY_OPERATOR(value_scalar, operator -)
ISAAC_DECLARE_BINARY_OPERATOR(value_scalar, operator *)
ISAAC_DECLARE_BINARY_OPERATOR(value_scalar, operator /)

ISAAC_DECLARE_BINARY_OPERATOR(value_scalar, operator >)
ISAAC_DECLARE_BINARY_OPERATOR(value_scalar, operator >=)
ISAAC_DECLARE_BINARY_OPERATOR(value_scalar, operator <)
ISAAC_DECLARE_BINARY_OPERATOR(value_scalar, operator <=)
ISAAC_DECLARE_BINARY_OPERATOR(value_scalar, operator ==)
ISAAC_DECLARE_BINARY_OPERATOR(value_scalar, operator !=)

ISAAC_DECLARE_BINARY_OPERATOR(value_scalar, (max))
ISAAC_DECLARE_BINARY_OPERATOR(value_scalar, (min))
ISAAC_DECLARE_BINARY_OPERATOR(value_scalar, pow)

#undef ISAAC_DECLARE_BINARY_OPERATOR

//--------------------------------

//Unary operators
#define ISAAC_DECLARE_UNARY_OPERATOR(OPNAME) \
value_scalar OPNAME (value_scalar const & x);\

ISAAC_DECLARE_UNARY_OPERATOR(abs)
ISAAC_DECLARE_UNARY_OPERATOR(acos)
ISAAC_DECLARE_UNARY_OPERATOR(asin)
ISAAC_DECLARE_UNARY_OPERATOR(atan)
ISAAC_DECLARE_UNARY_OPERATOR(ceil)
ISAAC_DECLARE_UNARY_OPERATOR(cos)
ISAAC_DECLARE_UNARY_OPERATOR(cosh)
ISAAC_DECLARE_UNARY_OPERATOR(exp)
ISAAC_DECLARE_UNARY_OPERATOR(floor)
ISAAC_DECLARE_UNARY_OPERATOR(log)
ISAAC_DECLARE_UNARY_OPERATOR(log10)
ISAAC_DECLARE_UNARY_OPERATOR(sin)
ISAAC_DECLARE_UNARY_OPERATOR(sinh)
ISAAC_DECLARE_UNARY_OPERATOR(sqrt)
ISAAC_DECLARE_UNARY_OPERATOR(tan)
ISAAC_DECLARE_UNARY_OPERATOR(tanh)
ISAAC_DECLARE_UNARY_OPERATOR(trans)

#undef ISAAC_DECLARE_UNARY_OPERATOR

ISAACAPI std::ostream & operator<<(std::ostream & os, value_scalar const & s);
ISAACAPI value_scalar cast(value_scalar const & in, numeric_type dtype);

}

#endif