#include "libnazgul.h"

#define DEBUG 1

int msgSpaceListRem(msgSpaceId spaceId){
  msgSpaceList * list;
  msgSpaceListElemId listHeadElemId;
  msgSpaceListElemId listTailElemId;
  msgSpaceListId listId;

  msgSpaceListElemId prevElemId;
  msgSpaceListElemId currElemId;
  msgSpaceListElemId nextElemId;

  msgSpaceListElem * prevElem;
  msgSpaceListElem * currElem;
  msgSpaceId currSpaceId;	

  list=msgSpaceListOpen();
  if (list==NULL){
	NZG_ERROR("msgSpaceListOpen","");
	goto ERROR;
  }
  if (DEBUG) { printf("Before ListStrCpy\n"); }
  strcpy(listHeadElemId,list->headId);
  strcpy(listTailElemId,list->tailId);
  strcpy(listId,list->id);
  if (DEBUG) { printf("After ListStrCpy\n"); }
  if ((strcmp(listHeadElemId,listId)==0) 
	  && strcmp(listTailElemId,listId)==0){
	if (DEBUG) { printf("SpaceList : vide\n"); }
	return 1;
  } else {
	bool found=false;

	strcpy(prevElemId,list->headId);
	strcpy(currElemId,list->headId);
	while(!found){
	  printf("Recherche dans l'element %s\n",listHeadElemId);
	  currElem=msgSpaceListElemOpen(currElemId);
	  if (currElem==NULL){
		NZG_ERROR("msgSpaceListElemOpen",currElemId);
		goto ERROR;
	  }
	  strcpy(nextElemId,currElem->next);
	  strcpy(currSpaceId,currElem->spaceId);
	  if (msgSpaceListElemClose(currElem) <0){
		NZG_ERROR("msgSpaceListElemClose",currElemId);
		goto ERROR;
	  }
	  if (strcmp(prevElemId,nextElemId)==0){
		// list à 1 seul élement
		if (strcmp(currSpaceId,spaceId)==0){
		  // on a trouvé l'elem
		  strcpy(list->headId,list->id);
		  strcpy(list->tailId,list->id);
		  // on efface
		  shm_unlink(currElemId);
		  found=true;
		} else {
		  break;
		}
	  } else {
		// liste à plusieurs élements...
		if (strcmp(currSpaceId,spaceId)==0){
		  // ca correspond
		  if (strcmp(prevElemId,currElemId)==0){
			// si on est en début de liste (prev=current)
			// - la tete de liste pointe sur le suivant
			strcpy(list->headId,nextElemId);
		  } else {
			if (strcmp(currElemId,nextElemId)==0){
			  // si on est en find de liste (current=next)
			  // - on fait pointer la queue de liste sur le précédent
			  strcpy(list->tailId,prevElemId);
			  // - on fait pointer le précédent sur lui-meme
			  prevElem=msgSpaceListElemOpen(prevElemId);
			  strcpy(prevElem->next,prevElemId);
			  msgSpaceListElemClose(prevElem);
			}else {
			  // on est en milieu de liste
			  // - on fait pointer le précédent sur le suivant
			  prevElem=msgSpaceListElemOpen(prevElemId);
			  strcpy(prevElem->next,nextElemId);
			  msgSpaceListElemClose(prevElem);
			}
		  }
		  // - on détruit l'actuel
		  shm_unlink(currElemId);
		  found=true;
		  break;
		} else {
		  //cela ne correspond pas
		  //on recopie
		  strcpy(prevElemId,currElemId);
		  strcpy(currElemId,nextElemId);
		}
	  }

	}
	if (msgSpaceListClose(list) < 0){
	  NZG_ERROR("msgSpaceListClose","");
	  goto ERROR;
	}
	return 0;
  }
ERROR:
  return -1;
}