/*
 * (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.
 */

#include <fcntl.h>
#include <unistd.h>

#include "eckit/eckit.h"
#include "eckit/exception/Exceptions.h"

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

namespace eckit {

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

template<class T>
FileBase<T>::FileBase(const PathName& path) : fd_(-1), path_(path), pos_(0)
{
	SYSCALL(fd_ = ::open(path.localPath(),O_RDWR|O_CREAT,0777));
}

template<class T>
FileBase<T>::~FileBase()
{
	if(fd_>=0)
		SYSCALL(::close(fd_));
}

template<class T>
bool FileBase<T>::read(long rec,T& data)
{
	off_t pos = rec * sizeof(Record);
	if(pos != pos_)
		SYSCALL(pos_ = ::lseek(fd_,pos,SEEK_SET));

	long size = 0;

	//struct flock lock   = { F_RDLCK, SEEK_SET, pos_, sizeof(Record), };
	//struct flock unlock = { F_UNLCK, SEEK_SET, pos_, sizeof(Record), };

	// SYSCALL(::fcntl(fd_,F_SETLK,&lock));
	SYSCALL(size = ::read(fd_,&buffer_,sizeof(Record)));
	// SYSCALL(::fcntl(fd_,F_SETLK,&unlock));

	pos_ += size;

	if(size != sizeof(Record)) // EOF reached
		return false;

	::memcpy(&data,&buffer_,sizeof(T));
	return buffer_.valid_;
}

template<class T>
void FileBase<T>::write(long rec,const T& data)
{
	off_t pos = rec * sizeof(Record);
	if(pos != pos_)
		SYSCALL(pos_ = ::lseek(fd_,pos,SEEK_SET));

	long size = 0;

	::memcpy(&buffer_,&data,sizeof(T));
	buffer_.valid_ = true;

	//struct flock lock   = { F_WRLCK, SEEK_SET, pos_, sizeof(Record), };
	//struct flock unlock = { F_UNLCK, SEEK_SET, pos_, sizeof(Record), };
	// SYSCALL(::fcntl(fd_,F_SETLK,&lock));
	SYSCALL(size = ::write(fd_,&buffer_,sizeof(Record)));
	// SYSCALL(::fcntl(fd_,F_SETLK,&unlock));

	pos_ += size;
	ASSERT(size == sizeof(Record));
}

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

} // namespace eckit
