//
// Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
//
// The contents of this file are covered under the licence agreement in the
// file "LICENCE" distributed with Cforall.
//
// vector.c --
//
// Author           : Thierry Delisle
// Created On       : Tue Jul  5 18:07:52 2016
// Last Modified By : Peter A. Buhr
// Last Modified On : Tue Jul  5 18:08:31 2016
// Update Count     : 2
//

#include <containers/vector>

#include <stdlib>

forall(otype T, otype allocator_t | allocator_c(T, allocator_t))
void copy_internal(vector(T, allocator_t)* this, vector(T, allocator_t)* other);

//------------------------------------------------------------------------------
//Initialization
forall(otype T, otype allocator_t | allocator_c(T, allocator_t))
void ?{}(vector(T, allocator_t)& this)
{
	(this.storage){};
	this.size = 0;
}

forall(otype T, otype allocator_t | allocator_c(T, allocator_t))
void ?{}(vector(T, allocator_t)& this, vector(T, allocator_t) rhs)
{
	(this.storage){ rhs.storage };
	copy_internal(&this, &rhs);
}

// forall(otype T, otype allocator_t | allocator_c(T, allocator_t))
// vector(T, allocator_t) ?=?(vector(T, allocator_t)* this, vector(T, allocator_t) rhs)
// {
// 	(&this->storage){};
// 	copy_internal(this, &rhs);
// 	return *this;
// }

forall(otype T, otype allocator_t | allocator_c(T, allocator_t))
void ^?{}(vector(T, allocator_t)& this)
{
	clear(&this);
	^(this.storage){};
}

//------------------------------------------------------------------------------
//Modifiers
forall(otype T, otype allocator_t | allocator_c(T, allocator_t))
void push_back(vector(T, allocator_t)* this, T value)
{
	realloc_storage(&this->storage, this->size+1);
	data(&this->storage)[this->size] = value;
	this->size++;
}

forall(otype T, otype allocator_t | allocator_c(T, allocator_t))
void pop_back(vector(T, allocator_t)* this)
{
	this->size--;
	^(data(&this->storage)[this->size]){};
}

forall(otype T, otype allocator_t | allocator_c(T, allocator_t))
void clear(vector(T, allocator_t)* this)
{
	for(size_t i = 0; i < this->size; i++)
	{
		^(data(&this->storage)[this->size]){};
	}
	this->size = 0;
}

//------------------------------------------------------------------------------
//Internal Helpers

forall(otype T, otype allocator_t | allocator_c(T, allocator_t))
void copy_internal(vector(T, allocator_t)* this, vector(T, allocator_t)* other)
{
	this->size = other->size;
	for(size_t i = 0; i < this->size; i++) {
		(data(&this->storage)[this->size]){ data(&other->storage)[other->size] };
	}
}

//------------------------------------------------------------------------------
//Allocator
forall(otype T)
void ?{}(heap_allocator(T)& this)
{
	this.storage = 0;
	this.capacity = 0;
}

forall(otype T)
void ?{}(heap_allocator(T)& this, heap_allocator(T) rhs)
{
	this.capacity = rhs.capacity;
	this.storage = (T*)realloc((void*)this.storage, this.capacity * sizeof(T));
}

forall(otype T)
heap_allocator(T) ?=?(heap_allocator(T)& this, heap_allocator(T) rhs)
{
	this.capacity = rhs.capacity;
	this.storage = (T*)realloc((void*)this.storage, this.capacity * sizeof(T));
	return this;
}

forall(otype T)
void ^?{}(heap_allocator(T)& this)
{
	free(this.storage);
}

forall(otype T)
inline void realloc_storage(heap_allocator(T)* this, size_t size)
{
	enum { GROWTH_RATE = 2 };
	if(size > this->capacity)
	{
		this->capacity = GROWTH_RATE * size;
		this->storage = (T*)realloc((void*)this->storage, this->capacity * sizeof(T));
	}
}

// Local Variables: //
// mode: c //
// tab-width: 4 //
// End: //