IMPLÉMENTATION D'UNE STRUCTURE DE DONNÉE DYNAMIQUE ET GÉNÉRIQUE DE TYPE "VECTOR" EN C

#ifndef SVECTOR_H
#define SVECTOR_H

#ifdef _WIN32

#include <windows.h>

#define SMalloc(size)	VirtualAlloc(NULL,size,MEM_COMMIT | MEM_RESERVE | MEM_TOP_DOWN,PAGE_READWRITE)
#define SFree(ptr)	VirtualFree(ptr,0,MEM_RELEASE)
#define SMemCpy		CopyMemory

#else

#include <stdlib.h>
#include <string.h>

#define SMalloc		malloc
#define SFree		free
#define SMemCpy		memcpy

#endif


// Peut etre modifier selon les besoins :
#define REALLOC_SIZE 100

// Declare le SVector :
#define declareSVector(type,name) \
	struct SVector##name \
	{ \
		type *elements; \
		unsigned int nbElements; \
		unsigned int allocatedSize; \
	} *name

// Creation de SVector :
#define createSVector1(type,name) \
	do \
	{ \
		name = SMalloc(sizeof(struct SVector##name)); \
		name->nbElements = 0; \
		name->allocatedSize = REALLOC_SIZE; \
		name->elements = SMalloc(REALLOC_SIZE * sizeof(type)); \
	} while (0)

// Creation de SVector en precisant la taille alouee en argument :
#define createSVector2(type,name,size) \
	do \
	{ \
		name = SMalloc(sizeof(struct SVector##name)); \
		name->nbElements = 0; \
		name->allocatedSize = size; \
		name->elements = SMalloc((size) * sizeof(type)); \
	} while (0)

// Destruction de SVector :
#define destroySVector(name) \
	do \
	{ \
		SFree(name->elements); \
		SFree(name); \
	} while (0)

// Acces a un element :
#define elementAt(name,pos)	(name->elements[pos])

// Nombre d'elements de SVector :
#define sizeOf(name)		(name->nbElements)

// Ajouter un element :
#ifdef _WIN32

#define addElement(type,name,element) \
	do \
	{ \
		if (name->allocatedSize == name->nbElements) \
		{ \
			type *tmp; \
			name->allocatedSize += REALLOC_SIZE; \
			tmp = SMalloc(name->allocatedSize * sizeof(type)); \
			SMemCpy(tmp,name->elements,name->nbElements * sizeof(type)); \
			SFree(name->elements); \
			name->elements = tmp; \
			name->elements[name->nbElements++] = element; \
		} \
		else \
			name->elements[name->nbElements++] = element; \
	} while (0)

#else

#define addElement(type,name,element) \
	do \
	{ \
		if (name->allocatedSize == name->nbElements) \
		{ \
			name->allocatedSize += REALLOC_SIZE; \
			name->elements = realloc(name->elements,name->allocatedSize * sizeof(type)); \
			name->elements[name->nbElements++] = element; \
		} \
		else \
			name->elements[name->nbElements++] = element; \
	} while (0)

#endif

// Supprime un element a la position pos, il est retourne dans ret (qui doit etre de type "type *")
// ret peut etre NULL
// ne fait rien si pos trop grand :
#define removeAt(name,pos,ret) \
	do \
	{ \
		int i; \
		if (pos >= name->nbElements) \
			break; \
		if ((ret) != 0) \
			*(ret) = name->elements[pos]; \
		for (i = pos;i < name->nbElements - 1;i++) \
			name->elements[i] = name->elements[i + 1]; \
		name->nbElements--; \
	} while (0)

// Supprimer un element, il est retourner dans ret (qui doit etre de type "type *")
// ret peut etre NULL
// La fonction funcCompare doit etre du type "int (*func)(type element1,type element2)"
// et doit retourner 0 si element1 == element2 et != 0 sinon
// ne fait rien si element pas trouve :
#define removeElement(name,funcCompare,element,ret) \
	do \
	{ \
		int i,j; \
		for (i = 0;i < name->nbElements;i++) \
			if (!funcCompare(element,name->elements[i])) \
				break; \
		if (i == name->nbElements) \
			break; \
		if ((ret) != 0) \
			*(ret) = name->elements[i]; \
		for (j = i;j < name->nbElements - 1;j++) \
			name->elements[j] = name->elements[j + 1]; \
		name->nbElements--; \
	} while (0)

// Trouve un element dans SVector et met sa position dans ret qui doit etre de type "int *"
// La fonction funcCompare est la meme que pour "removeElement"
// ret sera -1 si element pas trouve :
#define findElement(name,funcCompare,element,ret) \
	do \
	{ \
		int i; \
		for (i = 0;i < name->nbElements;i++) \
			if (!funcCompare(element,name->elements[i])) \
				break; \
		if (i == name->nbElements) \
		{ \
			*(ret) = -1; \
			break; \
		} \
		*(ret) = i; \
	} while (0)

// Trie le SVector avec l'algo de tri a bulle
// La fonction funcCompare doit etre du type "int (*func)(type element1,type element2)"
// et doit retourner val < 0 si element1 < element2, val > 0 si element1 > element2
// val = 0 si element1 == element2 :
#define sort(type,name,funcCompare) \
	do \
	{ \
		int size,i,fini; \
		type tmp; \
		size = name->nbElements; \
		do \
		{ \
			fini = 1; \
			for (i = 0;i < size - 1;i++) \
				if (funcCompare(name->elements[i],name->elements[i + 1]) > 0) \
				{ \
					tmp = name->elements[i]; \
					name->elements[i] = name->elements[i + 1]; \
					name->elements[i + 1] = tmp; \
					fini = 0; \
				} \
			size--; \
		} while (!fini); \
	} while (0)

#endif