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

#include <unistd.h>
#include <stdint.h>
#include <fcntl.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/mman.h>

#include "eckit/thread/AutoLock.h"
#include "eckit/container/MappedArray.h"
#include "eckit/memory/Padded.h"
#include "eckit/memory/MMap.h"

#include "eckit/os/Stat.h"


namespace eckit {

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

template<class T>
MappedArray<T>::MappedArray(const PathName& path, unsigned long size):
	sem_(path),
    size_(size)
{

	AutoLock<Semaphore> lock(sem_);

    typedef Padded<typename MappedArray<T>::Header,4096> PaddedHeader;

	fd_ = ::open(path.localPath(),O_RDWR | O_CREAT, 0777);
	if(fd_ < 0)
	{
        Log::error() << "open(" << path << ')' << Log::syserr << std::endl;
        throw FailedSystemCall("open",Here());
	}

    Stat::Struct s;
    SYSCALL(Stat::stat(path.localPath(),&s));

    bool initHeader = s.st_size < static_cast<long int>( sizeof(PaddedHeader) );

	off_t length = size_ * sizeof(T) + sizeof(PaddedHeader);

	// Resize if needed

	if(s.st_size != length)
	{
        SYSCALL(::ftruncate(fd_,length));
		char buf1[sizeof(PaddedHeader)]; memset(buf1,0,sizeof(buf1));
		char buf2[sizeof(T)];            memset(buf2,0,sizeof(buf2));
	    SYSCALL(write(fd_,buf1,sizeof(buf1)));
        for(size_t i = 0; i < size_ ; i++)
			SYSCALL(write(fd_,buf2,sizeof(buf2)));
	}

    map_ = MMap::mmap(0,length,PROT_READ|PROT_WRITE,MAP_SHARED,fd_,0);
    if(map_ == MAP_FAILED)
    {
        Log::error() << "MappedArray path=" << path << " size=" << size
                     << " fails to mmap(0,length,PROT_READ|PROT_WRITE,MAP_SHARED,fd_,0)"
                     << Log::syserr << std::endl;
        throw FailedSystemCall("mmap",Here());
    }

	// If first time in, init header

	if(initHeader)
		new(map_) PaddedHeader();
	else
		((PaddedHeader*)map_)->validate();

	array_ = (T*)(((char*)map_) + sizeof(PaddedHeader));

}

template<class T>
MappedArray<T>::~MappedArray()
{
	// Unmap here...
}

template<class T>
void MappedArray<T>::sync()
{
	int ret = fsync(fd_);
	while(ret < 0 && errno == EINTR)
		ret = fsync(fd_);
}

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

} // namespace eckit

