#include "pEp_internal.h"

 #include <stdlib.h>

 #include <assert.h>

 #include "pEpEngine.h"

 #include "identity_list.h"

 DYNAMIC_API identity_list *new_identity_list(pEp_identity *ident)

 {

     identity_list *id_list = calloc(1, sizeof(identity_list));

     assert(id_list);

     if (id_list == NULL)

         return NULL;

     id_list->ident = ident;

     return id_list;

 }

 DYNAMIC_API identity_list *identity_list_dup(const identity_list *src)

 {

     assert(src);

     if (src == NULL)

         return NULL;

     pEp_identity *_ident = identity_dup(src->ident);

     if (_ident == NULL)

         return NULL;

     identity_list *id_list = new_identity_list(_ident);

     if (id_list == NULL) {

         free_identity(_ident);

         return NULL;

     }

     identity_list* src_curr = src->next;

     identity_list** dst_curr_ptr = &id_list->next;

     while (src_curr) {

         _ident = identity_dup(src_curr->ident);

         if (_ident == NULL) {

             free_identity_list(id_list);

             return NULL;

         }

         *dst_curr_ptr = new_identity_list(_ident);

         if (*dst_curr_ptr == NULL) {

             free_identity(_ident);

             free_identity_list(id_list);

             return NULL;

         }

         src_curr = src_curr->next;

         dst_curr_ptr = &((*dst_curr_ptr)->next);

     }

     return id_list;

 }

 DYNAMIC_API void free_identity_list(identity_list *id_list)

 {

     identity_list *curr;

     identity_list *next;

     curr = id_list;

     while (curr) {

         next = curr->next;

         free_identity(curr->ident);

         free(curr);

         curr = next;

     }

 }

 DYNAMIC_API identity_list *identity_list_add(identity_list *id_list, pEp_identity *ident)

 {

     assert(ident);

     if (ident == NULL)

         return NULL;

     if (id_list == NULL)

         return new_identity_list(ident);

     // empty list

     if (id_list->ident == NULL) {

         if (id_list->next)

             return NULL; // invalid list

         id_list->ident = ident;

         if (id_list->ident == NULL)

             return NULL;

         return id_list;

     }

     identity_list* list_curr = id_list;

     while (list_curr->next)

         list_curr = list_curr->next;

     list_curr->next = new_identity_list(ident);

     return list_curr->next;

 }

 DYNAMIC_API int identity_list_length(const identity_list *id_list)

 {

     int len = 0;

     for (; id_list && id_list->ident; id_list = id_list->next)

         ++len;

     return len;

 }