// ============================================================================
//
// Copyright (c) 1999 The CGAL Consortium
//
// This software and related documentation is part of an INTERNAL release
// of the Computational Geometry Algorithms Library (CGAL). It is not
// intended for general use.
//
// ----------------------------------------------------------------------------
// 
// release       :
// release_date  :
// 
// source        : ddim_points.fw
// file          : include/CGAL/PointCd.h
// revision      : 2.2.3
// revision_date : 14 Sep 1999 
// author(s)     : Sven Schoenherr, Bernd Gaertner
// coordinator   : INRIA, Sophia-Antipolis (Mariette.Yvinec@sophia.inria.fr)
//
// ============================================================================

#ifndef CGAL_POINTCD_H
#define CGAL_POINTCD_H

#include <CGAL/d_tuple.h>

CGAL_BEGIN_NAMESPACE

template < class FT >
class DACd;

template < class FT >
class PointCd : public Handle
{
    friend class DACd<FT>;

    public:
    PointCd ();
    PointCd (int dim, const Origin&);
    PointCd (const PointCd<FT> &p);

    template <class InputIterator>
    PointCd (int dim, InputIterator first, InputIterator last)
    {
      CGAL_kernel_precondition( dim >= 0);
      PTR = new _d_tuple<FT>(dim);
      FT* o;
      FT* e = ptr()->e;
      InputIterator i;
      for ( i=first, o=e; ( i < last)&&( o < e+dim ); *(o++) = *(i++) ) {};
      CGAL_kernel_precondition( o == e+dim );
      if ( i < last ) 
      {
        FT h = *(i++);
        CGAL_kernel_precondition( !CGAL_NTS is_zero (h) );
        CGAL_kernel_precondition( i == last );
        for ( o=e; o < e+dim; *(o++) /= h ) ;
        // if ( h != FT(1) ) { for ( o=e; o < e+dim; *(o++) /= h ) {}; }
      }
    }

    ~PointCd();

    PointCd<FT> &operator=(const PointCd<FT> &p);

      bool operator==(const PointCd<FT> &p) const;
      bool operator!=(const PointCd<FT> &p) const;

    unsigned long id() const;

    FT homogeneous (int i) const;
    FT cartesian (int i) const;
    FT operator[] (int i) const;
    const FT* begin() const;
    const FT* end() const;

    int dimension () const;

    private:
     const _d_tuple<FT>* ptr() const;
};

template < class FT >
CGAL_KERNEL_INLINE
const _d_tuple<FT>* PointCd<FT>::ptr() const
{
  return static_cast<_d_tuple<FT>*>(PTR);
}

CGAL_END_NAMESPACE

#include <CGAL/Origin.h>
#include <CGAL/number_utils.h>

CGAL_BEGIN_NAMESPACE

template < class FT >
CGAL_KERNEL_INLINE
PointCd<FT>::PointCd()
{
  PTR = new _d_tuple<FT>();
}

template < class FT >
CGAL_KERNEL_INLINE
PointCd<FT>::PointCd(int dim, const Origin &)
{
  CGAL_kernel_precondition (dim>=0);
  PTR = new _d_tuple<FT>(dim);
  FT *e = ptr()->e, *i;
  for (i=e; i<e+dim; *(i++)=FT(0));  // XXX
}

template < class FT >
CGAL_KERNEL_INLINE
PointCd<FT>::PointCd(const PointCd<FT> &p)
  : Handle(static_cast<const Handle&>(p))
{}


template < class FT >
inline
PointCd<FT>::~PointCd()
{}

template < class FT >
inline
PointCd<FT> &PointCd<FT>::operator=(const PointCd<FT> &p)
{
  Handle::operator=(p);
  return *this;
}

template < class FT >
inline
bool PointCd<FT>::operator==(const PointCd<FT>& p) const
{
  int d = dimension();
  if (d != p.dimension()) return false;
  FT *e = ptr()->e, *ep = p.ptr()->e;
  FT *i, *j;
  for (i=e, j=ep; i<e+d; ++i, ++j)
      if (*i != *j) return false;
  return true;
}

template < class FT >
inline
bool 
PointCd<FT>::operator!=(const PointCd<FT>& p) const
{ return !(*this == p); }

template < class FT >
inline
unsigned long
PointCd<FT>::id() const
{ return reinterpret_cast<unsigned long>(PTR); }

template < class FT >
inline
FT  
PointCd<FT>::homogeneous(int i) const
{
    CGAL_kernel_precondition ( (i>=0) && (i<=dimension()) );
    if (i<dimension())
    return ptr()->e[i];
    else
    return FT(1);
}

template < class FT >
CGAL_KERNEL_INLINE
FT  
PointCd<FT>::cartesian(int i) const
{
    CGAL_kernel_precondition ( (i>=0) && (i<dimension()) );
    return ptr()->e[i];
}

template < class FT >
inline
FT  
PointCd<FT>::operator[](int i) const
{ return cartesian(i); }


template < class FT >
inline
int 
PointCd<FT>::dimension() const
{ return ptr()->d; }

template < class FT >
inline
const FT* 
PointCd<FT>::begin() const
{ return ptr()->e; }

template < class FT >
inline
const FT* PointCd<FT>::end() const
{ return ptr()->e + dimension(); }

#ifndef CGAL_NO_OSTREAM_INSERT_POINTCD
template < class FT >
std::ostream& 
operator<<(std::ostream& os, const PointCd<FT> &p)
{
    int d = p.dimension(), i;
    switch(os.iword(IO::mode)) 
    {
      case IO::ASCII : 
        os << d << ' ';
        for (i=0; i<d-1; ++i) { os << p.cartesian(i) << ' '; }
        os << p.cartesian(d-1); 
        return os;
      case IO::BINARY :
        write(os, d);
        for (i=0; i<d; ++i)
           write(os, p.cartesian(i));
        return os;
      default:
        os << "PointCd(";
        os << d << ", (";
        for (i=0; i<d-1; ++i)
            os << p.cartesian(i) << ", ";
        return os << p.cartesian(d-1) << "))";
    }
}
#endif // CGAL_NO_OSTREAM_INSERT_POINTCD

#ifndef CGAL_NO_ISTREAM_EXTRACT_POINTCD
template < class FT >
std::istream& 
operator>>(std::istream& is, PointCd<FT> &p)
{
    int d=0, i;
    FT* e;
    switch(is.iword(IO::mode)) 
    {
      case IO::ASCII :
        is >> d;
        e = new FT[d];
        for (i=0; i < d; ++i) { is >> e[i]; }
        break;
      case IO::BINARY :
        read(is, d);
        e = new FT[d];
        for (i=0; i<d; ++i) { read(is, e[i]); }
        break;
      default:
        CGAL_kernel_assertion_msg(false,\
                                  "Stream must be in ascii or binary mode"); 
        // throw ios_base::failure("Stream must be in ascii or binary mode");
        return is;
    }
    if (is)
	p = PointCd<FT>(d, e, e+d);
    delete[] e;
    return is;
}
#endif // CGAL_NO_ISTREAM_EXTRACT_POINTCD

CGAL_END_NAMESPACE

#endif // CGAL_POINTCD_H