/*
 * Copyright (c) 2003-2009, John Wiegley.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are
 * met:
 *
 * - Redistributions of source code must retain the above copyright
 *   notice, this list of conditions and the following disclaimer.
 *
 * - Redistributions in binary form must reproduce the above copyright
 *   notice, this list of conditions and the following disclaimer in the
 *   documentation and/or other materials provided with the distribution.
 *
 * - Neither the name of New Artisans LLC nor the names of its
 *   contributors may be used to endorse or promote products derived from
 *   this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
 * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

#include <system.hh>

#include "timelog.h"
#include "xact.h"
#include "post.h"
#include "account.h"
#include "journal.h"

namespace ledger {

namespace {
  void clock_out_from_timelog(std::list<time_xact_t>& time_xacts,
			      const datetime_t&	       when,
			      account_t *	       account,
			      const char *	       desc,
			      journal_t&	       journal)
  {
    time_xact_t event;

    if (time_xacts.size() == 1) {
      event = time_xacts.back();
      time_xacts.clear();
    }
    else if (time_xacts.empty()) {
      throw parse_error(_("Timelog check-out event without a check-in"));
    }
    else if (! account) {
      throw parse_error
	(_("When multiple check-ins are active, checking out requires an account"));
    }
    else {
      bool found = false;

      for (std::list<time_xact_t>::iterator i = time_xacts.begin();
	   i != time_xacts.end();
	   i++)
	if (account == (*i).account) {
	  event = *i;
	  found = true;
	  time_xacts.erase(i);
	  break;
	}

      if (! found)
	throw parse_error
	  (_("Timelog check-out event does not match any current check-ins"));
    }

    if (desc && event.desc.empty()) {
      event.desc = desc;
      desc = NULL;
    }

    std::auto_ptr<xact_t> curr(new xact_t);
    curr->_date = when.date();
    curr->code  = desc ? desc : "";
    curr->payee = event.desc;

    if (when < event.checkin)
      throw parse_error
	(_("Timelog check-out date less than corresponding check-in"));

    char buf[32];
    std::sprintf(buf, "%lds", long((when - event.checkin).total_seconds()));
    amount_t amt;
    amt.parse(buf);
    VERIFY(amt.valid());

    post_t * post = new post_t(event.account, amt, POST_VIRTUAL);
    post->set_state(item_t::CLEARED);
    curr->add_post(post);

    if (! journal.add_xact(curr.get()))
      throw parse_error(_("Failed to record 'out' timelog transaction"));
    else
      curr.release();
  }
} // unnamed namespace

time_log_t::~time_log_t()
{
  TRACE_DTOR(time_log_t);

  if (! time_xacts.empty()) {
    std::list<account_t *> accounts;

    foreach (time_xact_t& time_xact, time_xacts)
      accounts.push_back(time_xact.account);

    foreach (account_t * account, accounts)
      clock_out_from_timelog(time_xacts, CURRENT_TIME(), account, NULL,
			     journal);

    assert(time_xacts.empty());
  }
}

void time_log_t::clock_in(const datetime_t& checkin,
			  account_t *	    account,
			  const string&     desc)
{
  time_xact_t event(checkin, account, desc);

  if (! time_xacts.empty()) {
    foreach (time_xact_t& time_xact, time_xacts) {
      if (event.account == time_xact.account)
	throw parse_error(_("Cannot double check-in to the same account"));
    }
  }

  time_xacts.push_back(event);
}

void time_log_t::clock_out(const datetime_t& checkin,
			   account_t *	     account,
			   const string&     desc)
{
  if (time_xacts.empty())
    throw std::logic_error(_("Timelog check-out event without a check-in"));

  clock_out_from_timelog(time_xacts, checkin, account, desc.c_str(),
			 journal);
}

} // namespace ledger
