ucx/string.c

/*
 * File:   sstring.c
 * Author: olaf
 *
 * Created on 17. Juni 2010, 13:27
 */

#include <stdlib.h>
#include <string.h>
#include <stdarg.h>

#include "string.h"

sstr_t sstr(char *s) {
    sstr_t string;
    string.ptr = s;
    string.length = strlen(s);
    return string;
}

sstr_t sstrn(char *s, size_t n) {
    sstr_t string;
    string.ptr = s;
    string.length = n;
    return string;
}

size_t sstrnlen(size_t n, sstr_t s, ...) {
    va_list ap;
    size_t size = s.length;
    va_start(ap, s);

    for (size_t i = 0 ; i < n-1 ; i++) {
        sstr_t str = va_arg(ap, sstr_t);
        size += str.length;
    }
    va_end(ap);

    return size;
}

sstr_t sstrncat(size_t n, sstr_t s, sstr_t c1, ...) {
    va_list ap;
    va_start(ap, c1);
    s.ptr[0] = 0;
    
    size_t len = s.length;
    size_t cplen = c1.length > len ? len : c1.length;
    char   *ptr = s.ptr;
    
    memcpy(ptr, c1.ptr, cplen);
    len -= cplen;
    ptr += cplen;
    for (size_t i = 0 ; i < n-1 ; i++) {
        sstr_t str = va_arg (ap, sstr_t);
        cplen = str.length > len ? len : str.length;
        if(cplen <= 0) {
            va_end(ap);
            return s;
        }
        memcpy(ptr, str.ptr, cplen);
        len -= cplen;
        ptr += cplen;
    }
    va_end(ap);
    s.length = ptr - s.ptr;

    return s;
}

sstr_t sstrsubs(sstr_t s, size_t start) {
    return sstrsubsl (s, start, s.length-start);
}

sstr_t sstrsubsl(sstr_t s, size_t start, size_t length) {
    sstr_t new_sstr;
    if (start < 0 || start >= s.length || length < 0) {
        return s;
    }
    if (length > s.length-start) {
        length = s.length-start;
    }
    new_sstr.ptr = &s.ptr[start];
    new_sstr.length = length;
    return new_sstr;
}

sstr_t* sstrsplit(sstr_t s, sstr_t d, size_t *n) {
    if (d.length == 0) {
        return NULL;
    }

    sstr_t* result;
    size_t nmax = *n;
    *n = 1;

    /* special case: exact match - no processing needed */
    if (s.length == d.length && strncmp(s.ptr, d.ptr, s.length) == 0) {
        *n = 0;
        return NULL;
    }
    sstr_t sv = sstrdup(s);

    for (size_t i = 0 ; i < s.length ; i++) {
        if (sv.ptr[i] == d.ptr[0]) {
            _Bool match = 1;
            for (size_t j = 1 ; j < d.length ; j++) {
                if (j+i < s.length) {
                    match &= (sv.ptr[i+j] == d.ptr[j]);
                } else {
                    match = 0;
                    break;
                }
            }
            if (match) {
                (*n)++;
                for (size_t j = 0 ; j < d.length ; j++) {
                    sv.ptr[i+j] = 0;
                }
                i += d.length;
            }
        }
        if ((*n) == nmax) break;
    }
    result = (sstr_t*) malloc(sizeof(sstr_t) * (*n));

    char *pptr = sv.ptr;
    for (size_t i = 0 ; i < *n ; i++) {
        size_t l = strlen(pptr);
        char* ptr = (char*) malloc(l + 1);
        memcpy(ptr, pptr, l);
        ptr[l] = 0;

        result[i] = sstrn(ptr, l);
        pptr += l + d.length;
    }

    free(sv.ptr);

    return result;
}

int sstrcmp(sstr_t s1, sstr_t s2) {
    return strncmp(s1.ptr, s2.ptr, s1.length>s2.length ? s2.length: s1.length);
}

sstr_t sstrdup(sstr_t s) {
    sstr_t newstring;
    newstring.ptr = (char*) malloc(s.length + 1);
    newstring.length = 0;
    if (newstring.ptr) {
        newstring.length = s.length;
        newstring.ptr[newstring.length] = 0;

        memcpy(newstring.ptr, s.ptr, s.length);
    } else {
        newstring.length = 0;
    }

    return newstring;
}

sstr_t sstrtrim(sstr_t string) {
    sstr_t newstr = string;
    if (string.length == 0) {
        return newstr;
    }
    
    size_t i;
    for(i=0;i<string.length;i++) {
        char c = string.ptr[i];
        if(c > 32) {
            break;
        }
    }
    newstr.ptr = &string.ptr[i];
    newstr.length = string.length - i;
    
    for(i=newstr.length-1;i>=0;i--) {
        char c = newstr.ptr[i];
        if(c > 32) {
            break;
        }
    }
    newstr.length = i + 1;
    
    return newstr;
}