common/tr_apc.c

   1 /*
   2  * Copyright (c) 2016, JANET(UK)
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  *
   9  * 1. Redistributions of source code must retain the above copyright
  10  *    notice, this list of conditions and the following disclaimer.
  11  *
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * 3. Neither the name of JANET(UK) nor the names of its contributors
  17  *    may be used to endorse or promote products derived from this software
  18  *    without specific prior written permission.
  19  *
  20  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  21  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  22  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
  23  * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
  24  * COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
  25  * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  26  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  27  * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  29  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  30  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
  31  * OF THE POSSIBILITY OF SUCH DAMAGE.
  32  *
  33  */
  34
  35 #include <talloc.h>
  36
  37 #include <tr_name_internal.h>
  38 #include <tr_apc.h>
  39 #include <tr_debug.h>
  40
  41 static int tr_apc_destructor(void *obj)
  42 {
  43   TR_APC *apc=talloc_get_type_abort(obj, TR_APC);
  44   if (apc->id!=NULL)
  45     tr_free_name(apc->id);
  46   return 0;
  47 }
  48
  49 TR_APC *tr_apc_new(TALLOC_CTX *mem_ctx)
  50 {
  51   TR_APC *apc=talloc(mem_ctx, TR_APC);
  52   if (apc!=NULL) {
  53     apc->id=NULL;
  54     apc->next=NULL;
  55     talloc_set_destructor((void *)apc, tr_apc_destructor);
  56   }
  57   return apc;
  58 }
  59
  60 void tr_apc_free(TR_APC *apc)
  61 {
  62   talloc_free(apc);
  63 }
  64
  65 static TR_APC *tr_apc_tail(TR_APC *apc)
  66 {
  67   if (apc==NULL)
  68     return NULL;
  69
  70   while (apc->next!=NULL)
  71     apc=apc->next;
  72   return apc;
  73 }
  74
  75 /* do not call this directly, use the tr_apc_add() macro */
  76 TR_APC *tr_apc_add_func(TR_APC *head, TR_APC *new)
  77 {
  78   if (head==NULL)
  79     head=new;
  80   else {
  81     tr_apc_tail(head)->next=new;
  82     while (new!=NULL) {
  83       talloc_steal(head, new);
  84       new=new->next;
  85     }
  86   }
  87   return head;
  88 }
  89
  90 /* does not copy next pointer */
  91 TR_APC *tr_apc_dup_one(TALLOC_CTX *mem_ctx, TR_APC *apc)
  92 {
  93   TR_APC *new=tr_apc_new(mem_ctx);
  94   if (new!=NULL)
  95     tr_apc_set_id(new, tr_apc_dup_id(apc));
  96   return new;
  97 }
  98
  99 /* copies next pointer */
 100 TR_APC *tr_apc_dup(TALLOC_CTX *mem_ctx, TR_APC *apc)
 101 {
 102   TALLOC_CTX *tmp_ctx=talloc_new(NULL);
 103   TR_APC *cur=NULL;
 104   TR_APC *new=NULL;
 105
 106   if (apc==NULL)
 107     return NULL;
 108
 109   if (NULL==(new=tr_apc_dup_one(tmp_ctx, apc)))
 110     return NULL;
 111
 112   for (cur=new,apc=apc->next; apc!=NULL; cur=cur->next,apc=apc->next) {
 113     cur->next=tr_apc_dup_one(new, apc);
 114     if (cur->next==NULL) {
 115       new=NULL;
 116       goto cleanup;
 117     }
 118   }
 119
 120   talloc_steal(mem_ctx, new);
 121
 122 cleanup:
 123   talloc_free(tmp_ctx);
 124   return new;
 125 }
 126
 127 void tr_apc_set_id(TR_APC *apc, TR_NAME *id)
 128 {
 129   if (apc->id)
 130     tr_free_name(apc->id);
 131   apc->id=id;
 132 }
 133
 134 TR_NAME *tr_apc_get_id(TR_APC *apc)
 135 {
 136   return apc->id;
 137 }
 138
 139 TR_NAME *tr_apc_dup_id(TR_APC *apc)
 140 {
 141   return tr_dup_name(apc->id);
 142 }
 143
 144
 145 char *tr_apc_to_str(TALLOC_CTX *mem_ctx, TR_APC *apc)
 146 {
 147   return talloc_strndup(mem_ctx, apc->id->buf, apc->id->len);
 148 }
 149
 150 TR_APC_ITER *tr_apc_iter_new(TALLOC_CTX *mem_ctx)
 151 {
 152   return talloc(mem_ctx, TR_APC_ITER);
 153 }
 154
 155 TR_APC *tr_apc_iter_first(TR_APC_ITER *iter, TR_APC *apc)
 156 {
 157   *iter=apc;
 158   return *iter;
 159 }
 160
 161 TR_APC *tr_apc_iter_next(TR_APC_ITER *iter)
 162 {
 163   (*iter)=(*iter)->next;
 164   return *iter;
 165 }
 166
 167 void tr_apc_iter_free(TR_APC_ITER *iter)
 168 {
 169   talloc_free(iter);
 170 }
 171
 172 /* 1 on match, 0 on no match, -1 on error */
 173 int tr_apc_in_common(TR_APC *one, TR_APC *two)
 174 {
 175   TALLOC_CTX *tmp_ctx=talloc_new(NULL);
 176   TR_APC_ITER *i_one=tr_apc_iter_new(tmp_ctx);
 177   TR_APC_ITER *i_two=tr_apc_iter_new(tmp_ctx);
 178   TR_APC *cur_one=NULL;
 179   TR_APC *cur_two=NULL;
 180
 181   if ((i_one==NULL) || (i_two==NULL)) {
 182     tr_err("tr_apc_in_common: unable to allocate iterators.");
 183     talloc_free(tmp_ctx);
 184     return -1;
 185   }
 186   for (cur_one=tr_apc_iter_first(i_one, one); cur_one!=NULL; cur_one=tr_apc_iter_next(i_one)) {
 187     for (cur_two=tr_apc_iter_first(i_two, two); cur_two!=NULL; cur_two=tr_apc_iter_next(i_two)) {
 188       if (cur_one==cur_two)
 189         return 1;
 190     }
 191   }
 192   return 0;
 193 }