/*
 * (C) Copyright 1996- ECMWF.
 *
 * This software is licensed under the terms of the Apache Licence Version 2.0
 * which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
 * In applying this licence, ECMWF does not waive the privileges and immunities
 * granted to it by virtue of its status as an intergovernmental organisation nor
 * does it submit to any jurisdiction.
 */

// File Expression.h
// Baudouin Raoult - ECMWF Oct 96

#ifndef Expression_H
#define Expression_H

#include "eckit/memory/NonCopyable.h"
#include "eckit/value/Value.h"

//====================================================================

inline const char *opname(const negate<eckit::Value>&)         { return "-";}
inline const char *opname(const multiplies<eckit::Value>&)     { return "*";}
inline const char *opname(const divides<eckit::Value>&)        { return "/";}
inline const char *opname(const modulus<eckit::Value>&)        { return "%";}
inline const char *opname(const plus<eckit::Value>&)           { return "+";}
inline const char *opname(const minus<eckit::Value>&)          { return "-";}
inline const char *opname(const greater<eckit::Value>&)        { return ">";}
inline const char *opname(const equal_to<eckit::Value>&)       { return "==";}
inline const char *opname(const less<eckit::Value>&)           { return "<";}
inline const char *opname(const greater_equal<eckit::Value>&)  { return ">=";}
inline const char *opname(const less_equal<eckit::Value>&)     { return "<=";}
inline const char *opname(const not_equal_to<eckit::Value>&)   { return "!=";}
inline const char *opname(const logical_not<eckit::Value>&)    { return "!";}
inline const char *opname(const logical_and<eckit::Value>&)    { return "&&";}
inline const char *opname(const logical_or<eckit::Value>&)     { return "||";}

//====================================================================

class EvalError : public eckit::Exception {
public:
	EvalError(const std::string& s) : Exception(std::string("EvalError: ") + s) {}
};

template <class T>
class Expression : private eckit::NonCopyable {
	virtual void print(std::ostream&) const = 0;
public:
	virtual eckit::Value eval(T&) const = 0;
	virtual ~Expression()  { }
	friend std::ostream& operator<<(std::ostream& s,const Expression<T>& c)
		{ c.print(s); return s; }
};

template<class T, class U>
class CondUnary : public Expression<U> {

	ScopedPtr<Expression<U> > cond_;

	virtual void print(std::ostream& s) const
		{ s << opname(T()) << '(' << *cond_ << ')'; }

public:
	CondUnary(Expression<U>* cond): cond_(cond) {}
	virtual ~CondUnary(){}
	virtual eckit::Value eval(U& task) const { return T()(cond_->eval(task));}
};

template<class T, class U>
class CondBinary : public Expression<U> {

	ScopedPtr<Expression<U> > left_;
	ScopedPtr<Expression<U> > right_;

	virtual void print(std::ostream& s) const
		{ s << '(' << *left_ << ' ' << opname(T()) << ' ' << *right_ << ')'; }
public:

	CondBinary(Expression<U>* left,Expression<U>* right):
        left_(left), right_(right) {}

	virtual ~CondBinary(){}
	eckit::Value eval(U& task) const;
};

template <class T, class U>
inline eckit::Value CondBinary<T,U>::eval(U& task) const
{
	return T()(left_->eval(task),right_->eval(task));
}

template <class T>
class StringExpression : public Expression<T> {
	std::string str_;
	virtual void print(std::ostream& s) const { s << str_; }
public:
	StringExpression(const std::string& s) : str_(s) {}
	virtual ~StringExpression(){}
	virtual eckit::Value eval(T&) const { return eckit::Value(str_); }
};

template <class T>
class NumberExpression : public Expression<T> {
	long long value_;
	virtual void print(std::ostream& s) const { s << value_; }
protected:
	long long value() const              { return value_; }
public:
	NumberExpression(long long n) : value_(n) {}
	virtual ~NumberExpression() {}
	virtual eckit::Value eval(T&) const { return eckit::Value(value_); }
};

template <class T>
class ListExpression : public Expression<T> {
	std::vector<Expression<T>*> v_;
	virtual void print(std::ostream& s) const;
public:
	ListExpression();
	ListExpression(const std::vector<Expression<T>*>& v) : v_(v) {}
	virtual ~ListExpression();
	virtual eckit::Value eval(T&) const;
};

template <class T>
ListExpression<T>::~ListExpression()
{
	for(size_t i = 0; i < v_.size(); i++)
		delete v_[i];
}

template <class T>
void ListExpression<T>::print(std::ostream& s) const
{
	s << '[';
	for( size_t i = 0; i < v_.size(); i++)
	{
		if(i) s << ',';
		if(v_[i])
			s << *v_[i];
		else
			s << "(null)";
	}
	s << ']';
}

template <class T>
eckit::Value ListExpression<T>::eval(T& t) const
{
	std::vector<eckit::Value> v;
	for(size_t i = 0; i < v_.size(); i++)
		if(v_[i]) v.push_back(v_[i]->eval(t));

	return v;
}

#endif
