git.meshlink.io Git - catta/blob - src/alternative.c

   1 /***
   2   This file is part of catta.
   3
   4   catta is free software; you can redistribute it and/or modify it
   5   under the terms of the GNU Lesser General Public License as
   6   published by the Free Software Foundation; either version 2.1 of the
   7   License, or (at your option) any later version.
   8
   9   catta is distributed in the hope that it will be useful, but WITHOUT
  10   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  11   or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
  12   Public License for more details.
  13
  14   You should have received a copy of the GNU Lesser General Public
  15   License along with catta; if not, write to the Free Software
  16   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
  17   USA.
  18 ***/
  19
  20 #ifdef HAVE_CONFIG_H
  21 #include <config.h>
  22 #endif
  23
  24 #include <string.h>
  25 #include <stdlib.h>
  26 #include <ctype.h>
  27 #include <assert.h>
  28
  29 #include <catta/alternative.h>
  30 #include <catta/malloc.h>
  31 #include <catta/domain.h>
  32 #include "utf8.h"
  33
  34 static void drop_incomplete_utf8(char *c) {
  35     char *e;
  36
  37     e = strchr(c, 0) - 1;
  38
  39     while (e >= c) {
  40
  41         if (catta_utf8_valid(c))
  42             break;
  43
  44         assert(*e & 128);
  45         *e = 0;
  46
  47         e--;
  48     }
  49 }
  50
  51 char *catta_alternative_host_name(const char *s) {
  52     const char *e;
  53     char *r;
  54
  55     assert(s);
  56
  57     if (!catta_is_valid_host_name(s))
  58         return NULL;
  59
  60     if ((e = strrchr(s, '-'))) {
  61         const char *p;
  62
  63         e++;
  64
  65         for (p = e; *p; p++)
  66             if (!isdigit(*p)) {
  67                 e = NULL;
  68                 break;
  69             }
  70
  71         if (e && (*e == '0' || *e == 0))
  72             e = NULL;
  73     }
  74
  75     if (e) {
  76         char *c, *m;
  77         size_t l;
  78         int n;
  79
  80         n = atoi(e)+1;
  81         if (!(m = catta_strdup_printf("%i", n)))
  82             return NULL;
  83
  84         l = e-s-1;
  85
  86         if (l >= CATTA_LABEL_MAX-1-strlen(m)-1)
  87             l = CATTA_LABEL_MAX-1-strlen(m)-1;
  88
  89         if (!(c = catta_strndup(s, l))) {
  90             catta_free(m);
  91             return NULL;
  92         }
  93
  94         drop_incomplete_utf8(c);
  95
  96         r = catta_strdup_printf("%s-%s", c, m);
  97         catta_free(c);
  98         catta_free(m);
  99
 100     } else {
 101         char *c;
 102
 103         if (!(c = catta_strndup(s, CATTA_LABEL_MAX-1-2)))
 104             return NULL;
 105
 106         drop_incomplete_utf8(c);
 107
 108         r = catta_strdup_printf("%s-2", c);
 109         catta_free(c);
 110     }
 111
 112     assert(catta_is_valid_host_name(r));
 113
 114     return r;
 115 }
 116
 117 char *catta_alternative_service_name(const char *s) {
 118     const char *e;
 119     char *r;
 120
 121     assert(s);
 122
 123     if (!catta_is_valid_service_name(s))
 124         return NULL;
 125
 126     if ((e = strstr(s, " #"))) {
 127         const char *n, *p;
 128         e += 2;
 129
 130         while ((n = strstr(e, " #")))
 131             e = n + 2;
 132
 133         for (p = e; *p; p++)
 134             if (!isdigit(*p)) {
 135                 e = NULL;
 136                 break;
 137             }
 138
 139         if (e && (*e == '0' || *e == 0))
 140             e = NULL;
 141     }
 142
 143     if (e) {
 144         char *c, *m;
 145         size_t l;
 146         int n;
 147
 148         n = atoi(e)+1;
 149         if (!(m = catta_strdup_printf("%i", n)))
 150             return NULL;
 151
 152         l = e-s-2;
 153
 154         if (l >= CATTA_LABEL_MAX-1-strlen(m)-2)
 155             l = CATTA_LABEL_MAX-1-strlen(m)-2;
 156
 157         if (!(c = catta_strndup(s, l))) {
 158             catta_free(m);
 159             return NULL;
 160         }
 161
 162         drop_incomplete_utf8(c);
 163
 164         r = catta_strdup_printf("%s #%s", c, m);
 165         catta_free(c);
 166         catta_free(m);
 167     } else {
 168         char *c;
 169
 170         if (!(c = catta_strndup(s, CATTA_LABEL_MAX-1-3)))
 171             return NULL;
 172
 173         drop_incomplete_utf8(c);
 174
 175         r = catta_strdup_printf("%s #2", c);
 176         catta_free(c);
 177     }
 178
 179     assert(catta_is_valid_service_name(r));
 180
 181     return r;
 182 }