common/tr_name.c

   1 /*
   2  * Copyright (c) 2012, 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 <stdlib.h>
  36 #include <string.h>
  37 #include <jansson.h>
  38
  39 #include <tr_name_internal.h>
  40
  41 void tr_free_name (TR_NAME *name)
  42 {
  43   if (name->buf) {
  44     free (name->buf);
  45     name->buf = NULL;
  46   }
  47
  48   free(name);
  49 }
  50
  51 TR_NAME *tr_new_name (const char *name)
  52 {
  53   TR_NAME *new;
  54
  55   if (new = malloc(sizeof(TR_NAME))) {
  56     new->len = strlen(name);
  57     if (new->buf = malloc((new->len)+1)) {
  58       strcpy(new->buf, name);
  59     } else {
  60       free(new);
  61       new=NULL;
  62     }
  63   }
  64   return new;
  65 }
  66
  67 TR_NAME *tr_dup_name (TR_NAME *from)
  68 {
  69   TR_NAME *to;
  70
  71   if (!from) {
  72     return NULL;
  73   }
  74
  75   if (NULL != (to = malloc(sizeof(TR_NAME)))) {
  76     to->len = from->len;
  77     if (NULL != (to->buf = malloc(to->len+1))) {
  78       strncpy(to->buf, from->buf, from->len);
  79       to->buf[to->len] = 0;     /* NULL terminate for debugging printf()s */
  80     }
  81   }
  82   return to;
  83 }
  84
  85 int tr_name_cmp(TR_NAME *one, TR_NAME *two)
  86 {
  87   int len=one->len;
  88   int cmp=0;
  89
  90   if (two->len<one->len)
  91     len=two->len; /* len now min(one->len,two->len) */
  92
  93   cmp=strncmp(one->buf, two->buf, len);
  94   if (cmp==0) {
  95     if (one->len<two->len)
  96       return -1;
  97     else if (one->len==two->len)
  98       return 0;
  99     else
 100       return 1;
 101   }
 102   return cmp;
 103 }
 104
 105 /**
 106  * Compare a TR_NAME with a null-terminated string.
 107  *
 108  * @param one TR_NAME to compare
 109  * @param two_str Ordinary C null-terminated string
 110  * @return 0 on match, <0 if one precedes two, >0 if two precedes one
 111  */
 112 int tr_name_cmp_str(TR_NAME *one, const char *two_str)
 113 {
 114   TR_NAME *two=tr_new_name(two_str);
 115   int cmp=tr_name_cmp(one, two);
 116   tr_free_name(two);
 117   return cmp;
 118 }
 119
 120 /**
 121  * Compare strings, allowing one to have a single '*' as the wildcard character if it is the first character.
 122  * Leading whitespace is significant.
 123  *
 124  * @param str Fixed string to compare
 125  * @param wc_str Wildcard string to compare
 126  * @return 1 if the the string (str) matches the wildcard string (wc_str), 0 if not.
 127  *
 128  */
 129 int tr_name_prefix_wildcard_match(TR_NAME *str, TR_NAME *wc_str)
 130 {
 131   const char *wc_post=NULL;
 132   size_t wc_len = 0;
 133
 134   if ((!str) || (!wc_str))
 135     return 0;
 136
 137   if (0 == (wc_len = wc_str->len))
 138     return 0;
 139
 140   if ('*' == wc_str->buf[0]) {
 141     /* Wildcard, so the actual compare will start at the second character of wc_str */
 142     wc_post = wc_str->buf + 1;
 143     wc_len--;
 144   } else if (str->len == wc_len) {
 145     /* No wildcard, but the strings are the same length so may match.
 146      * Compare the full strings. */
 147     wc_post=wc_str->buf;
 148     wc_len=wc_str->len;
 149   } else {
 150     /* No wildcard and strings are different length, so no match */
 151     return 0;
 152   }
 153
 154   /* A match is not possible if the fixed part of the wildcard string is longer than
 155    * the string to match it against. */
 156   if (wc_len > str->len)
 157     return 0;
 158
 159   /* Now we compare the last wc_len characters of str against wc_post */
 160   return (0 == strncmp(str->buf + str->len - wc_len, wc_post, wc_len));
 161 }
 162
 163 void tr_name_strlcat(char *dest, const TR_NAME *src, size_t len)
 164 {
 165   size_t used_len;
 166   if (src->len >= len)
 167     used_len = len-1;
 168   else used_len = src->len;
 169   if (used_len > 0)
 170     strncat(dest, src->buf, used_len);
 171   else dest[0] = '\0';
 172 }
 173
 174
 175 char * tr_name_strdup(TR_NAME *src)
 176 {
 177   char *s = calloc(src->len+1, 1);
 178   if (s) {
 179     memcpy(s, src->buf, src->len);
 180     s[src->len] = '\0';
 181   }
 182   return s;
 183 }
 184
 185 json_t *tr_name_to_json_string(TR_NAME *src)
 186 {
 187   char *s=tr_name_strdup(src);
 188   json_t *js=json_string(s);
 189   if (s!=NULL)
 190     free(s);
 191   return js;
 192 }
 193
 194 TR_NAME *tr_name_cat(TR_NAME *n1, TR_NAME *n2)
 195 {
 196   char *s=malloc(n1->len+n2->len+1);
 197   TR_NAME *name=NULL;
 198
 199   if (s==NULL)
 200     return NULL;
 201   *s=0;
 202   strncat(s, n1->buf, n1->len);
 203   strncat(s, n2->buf, n2->len);
 204   name=tr_new_name(s);
 205   free(s);
 206   return name;
 207 }