src/str.c

   1 /* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2
   3 /*  Monkey HTTP Daemon
   4  *  ------------------
   5  *  Copyright (C) 2001-2010, Eduardo Silva P. <edsiper@gmail.com>
   6  *
   7  *  This program is free software; you can redistribute it and/or modify
   8  *  it under the terms of the GNU General Public License as published by
   9  *  the Free Software Foundation; either version 2 of the License, or
  10  *  (at your option) any later version.
  11  *
  12  *  This program is distributed in the hope that it will be useful,
  13  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  *  GNU Library General Public License for more details.
  16  *
  17  *  You should have received a copy of the GNU General Public License
  18  *  along with this program; if not, write to the Free Software
  19  *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  20  */
  21
  22 #define _GNU_SOURCE
  23 #include <string.h>
  24
  25 #include <ctype.h>
  26 #include <stdlib.h>
  27 #include <stdarg.h>
  28
  29 #include "request.h"
  30 #include "utils.h"
  31 #include "memory.h"
  32 #include "str.h"
  33
  34 #include <stdio.h>
  35
  36 /* Return a buffer with a new string from string */
  37 char *mk_string_copy_substr(const char *string, int pos_init, int pos_end)
  38 {
  39     unsigned int size, bytes;
  40     char *buffer = 0;
  41
  42     size = (unsigned int) (pos_end - pos_init) + 1;
  43     if (size <= 2)
  44         size = 4;
  45
  46     buffer = malloc(size);
  47
  48     if (!buffer) {
  49         return NULL;
  50     }
  51
  52     if (pos_init > pos_end) {
  53         mk_mem_free(buffer);
  54         return NULL;
  55     }
  56
  57     bytes = pos_end - pos_init;
  58     memcpy(buffer, string + pos_init, bytes);
  59     buffer[bytes] = '\0';
  60
  61     return (char *) buffer;
  62 }
  63
  64 int mk_string_char_search(char *string, int c, int n)
  65 {
  66     int i;
  67
  68     if (n < 0) {
  69         n = strlen(string);
  70     }
  71
  72     for (i = 0; i < n; i++) {
  73         if (string[i] == c)
  74             return i;
  75     }
  76
  77     return -1;
  78 }
  79
  80 /* Get position of a substring.
  81  * Original version taken from google, modified in order
  82  * to send the position instead the substring.
  83  */
  84 int _mk_string_search(char *string, char *search, int n)
  85 {
  86     char *np;
  87     int res;
  88
  89     np = strcasestr(string, search);
  90     if (!np) {
  91         return -1;
  92     }
  93
  94     res = np - string;
  95     if (res > n && n >= 0) {
  96         return -1;
  97     }
  98     return (np - string);
  99 }
 100
 101 int mk_string_search(char *string, char *search)
 102 {
 103     return _mk_string_search(string, search, -1);
 104 }
 105
 106 /* lookup char in reverse order */
 107 int mk_string_search_r(char *string, char search, int n)
 108 {
 109     int i, j;
 110
 111     if (n >= 0) {
 112         j = n;
 113     }
 114     else {
 115         j = strlen(string);
 116     }
 117
 118     for (i = j; i >= 0; i--) {
 119         if (string[i] == search) {
 120             return i;
 121         }
 122     }
 123
 124     return -1;
 125 }
 126
 127 int mk_string_search_n(char *string, char *search, int n)
 128 {
 129     return _mk_string_search(string, search, n);
 130 }
 131
 132 char *mk_string_remove_space(char *buf)
 133 {
 134     size_t bufsize;
 135     int new_i = 0, i, len, spaces = 0;
 136     char *new_buf = 0;
 137
 138     len = strlen(buf);
 139     for (i = 0; i < len; i++) {
 140         if (buf[i] == ' ') {
 141             spaces++;
 142         }
 143     }
 144
 145     bufsize = len + 1 - spaces;
 146     if (bufsize <= 1) {
 147         return NULL;
 148     }
 149
 150     new_buf = mk_mem_malloc(bufsize);
 151
 152     for (i = 0; i < len; i++) {
 153         if (buf[i] != ' ') {
 154             new_buf[new_i] = buf[i];
 155             new_i++;
 156         }
 157     }
 158
 159     return new_buf;
 160 }
 161
 162 char *mk_string_casestr(char *heystack, char *needle)
 163 {
 164     if (!heystack || !needle) {
 165         return NULL;
 166     }
 167
 168     return strcasestr(heystack, needle);
 169 }
 170
 171 char *mk_string_dup(const char *s)
 172 {
 173     if (!s)
 174         return NULL;
 175
 176     return strdup(s);
 177 }
 178
 179 int mk_string_array_count(char *arr[])
 180 {
 181     int i = 0;
 182
 183     for (i = 0; arr[i]; i++) {
 184     }
 185     return i;
 186 }
 187
 188 struct mk_string_line *mk_string_split_line(char *line)
 189 {
 190     unsigned int i = 0, len, val_len;
 191     int end;
 192     char *val;
 193     struct mk_string_line *sl = 0, *new, *p;
 194
 195     if (!line) {
 196         return NULL;
 197     }
 198
 199     len = strlen(line);
 200
 201     while (i < len) {
 202         end = mk_string_char_search(line + i, ' ', len - i);
 203
 204         if (end >= 0 && end + i < len) {
 205             end += i;
 206
 207             if (i == end) {
 208                 i++;
 209                 continue;
 210             }
 211
 212             val = mk_string_copy_substr(line, i, end);
 213             val_len = end - i;
 214         }
 215         else {
 216             val = mk_string_copy_substr(line, i, len);
 217             val_len = len - i;
 218             end = len;
 219
 220         }
 221
 222         /* Alloc node */
 223         new = mk_mem_malloc(sizeof(struct mk_string_line));
 224         new->val = val;
 225         new->len = val_len;
 226         new->next = NULL;
 227
 228         /* Link node */
 229         if (!sl) {
 230             sl = new;
 231         }
 232         else {
 233             p = sl;
 234             while (p->next) {
 235                 p = p->next;
 236             }
 237
 238             p->next = new;
 239         }
 240         i = end + 1;
 241     }
 242
 243     return sl;
 244 }
 245
 246 char *mk_string_build(char **buffer, unsigned long *len,
 247                       const char *format, ...)
 248 {
 249     va_list ap;
 250     int length;
 251     char *ptr;
 252     static size_t _mem_alloc = 64;
 253     size_t alloc = 0;
 254
 255     /* *buffer *must* be an empty/NULL buffer */
 256
 257     *buffer = (char *) mk_mem_malloc(_mem_alloc);
 258     if (!*buffer) {
 259         return NULL;
 260     }
 261     alloc = _mem_alloc;
 262
 263     va_start(ap, format);
 264     length = vsnprintf(*buffer, alloc, format, ap);
 265
 266     if (length >= alloc) {
 267         ptr = realloc(*buffer, length + 1);
 268         if (!ptr) {
 269             va_end(ap);
 270             return NULL;
 271         }
 272         *buffer = ptr;
 273         alloc = length + 1;
 274         length = vsnprintf(*buffer, alloc, format, ap);
 275     }
 276     va_end(ap);
 277
 278     if (length < 0) {
 279         return NULL;
 280     }
 281
 282     ptr = *buffer;
 283     ptr[length] = '\0';
 284     *len = length;
 285
 286     return *buffer;
 287 }