xref: /dports/www/free-sa-devel/free-sa-2.0.0b6p7/src/work/w_system.c

#include "global.h"


int pval;


int ErrOut(const char Mode, const char *func, const char *fmt, ...) {
    FILE *errout;
    va_list args;

    if (icfg.Mode == 5) {
	errout = stdout;
	SAfputs("<!-- ", errout);
    } else errout = stderr;

    switch(Mode) {
	case 2: SAfputs("SAWARNING", errout); break;
	case 1: SAfputs("SADEBUG", errout); break;
	case 0: SAfputs("SAERROR", errout); break;
    }

    SAfprintf(errout, ": [%s] ", func);
    va_start(args, fmt);
    SAvfprintf(errout, fmt, args);
    va_end(args);

    if (icfg.Mode == 5) SAfputs(" -->\n", errout);
    else SAfputs("\n", stderr);
    fflush(errout);

    if (!Mode) exit(EXIT_FAILURE);

    return 0;
}


void SAshow(const char *fmt, ...) {
    va_list args;

    va_start(args, fmt);
    SAvfprintf(stdout, fmt, args);
    va_end(args);
}


void SAsystem(const char *program, ...) {
    pid_t tpid;
    int tmp = 0, status;
    va_list args;
    char *argsarray[ARGSCOUNT];

    tpid = fork();
    if (tpid == 0) {
	va_start(args, program);

	for (argsarray[0] = SAstrdup(program); (argsarray[tmp] = va_arg(args, char *)) != NULL; tmp++);

#if DEBUG >= 2
	SAdebug ("Executing '%s' with next arguments:", program);
	for (tmp = 0; argsarray[tmp] != NULL; tmp++) {
	    SAdebug ("%d. '%s'", tmp, argsarray[tmp]);
	}
#endif

	execv(program, argsarray);
	SAexit("Can't execute %s", program);
    }
    va_end(args);

    if (waitpid(tpid, &status, 0) < 0) SAexit("waitpid %s, %s", program, strerror(errno));
    if (WIFSIGNALED(status)) SAexit("%s got signal", program);
    if (WIFEXITED(status)) if (!WEXITSTATUS(status)) return;

    /* Some error during execution occured */
    SAexit("%s returned %d", program, WEXITSTATUS(status));
}


char SAinet_pton(const char *src, in_addr_t *dst) {
    struct in_addr tdst;

    if (inet_pton(AF_INET, src, &tdst) != 1) {
	SAwarning("Incorrect IP when converting from string: %s", src);
	return 0;
    }

    *dst = tdst.s_addr;
    return 1;
}


char *SAinet_ntop(in_addr_t *src) {
    static char retval[INET_ADDRSTRLEN];
    struct in_addr tsrc;

    tsrc.s_addr = *src;
    if (inet_ntop(AF_INET, &tsrc, retval, INET_ADDRSTRLEN) == NULL) SAexit("Error converting IP to string. %s", strerror(errno));

    return retval;
}


void *SAmalloc(size_t size) {
    void *retval;
    if ((retval = malloc(size)) == NULL) SAexit("No free memory available");
    return retval;
}


void *SArealloc(void *ptr, size_t size) {
    void *retval;
    if ((retval = realloc(ptr, size)) == NULL) SAexit("No free memory available");
    return retval;
}


char *SAstrdup(const char *src) {
    char *retval;
    if ((retval = strdup(src)) == NULL) SAexit("No free memory available");
    return retval;
}


char *SAstrldup(const char *src, size_t size) {
    char *retval;
    size_t tsize;

#if DEBUG >= 1
    if ((tsize = strlen(src) + 1L) > size) SAwarning("String [%s] was trunkated by %zd bytes", src, tsize - size);
#endif
    tsize = SAmin(strlen(src) + 1L, size);
    retval = SAmalloc(tsize);
    SAstrlcpy(retval, src, tsize);

    return retval;
}


int SApstrcmp(const char **el1, const char **el2) {
    return strcmp(*el1, *el2);
}


char *SAsetlocale(int category, const char *locale) {
    char *retval;
    if ((retval = setlocale(category, locale)) == NULL) SAexit("Can't initialize '%s' locale", locale);
    return retval;
}


time_t SAmktime(struct tm *tm) {
    time_t retval;
    if ((retval = mktime(tm)) == -1L) SAexit("Error converting date and time");
    return retval;
}


time_t SAtime(time_t *tloc) {
    time_t retval;
    if ((retval = time(tloc)) == -1L) SAexit("Can't get current date");
    return retval;
}


struct tm *SAlocaltime(const time_t *timep) {
    static struct tm retval;
    if ((localtime_r(timep, &retval)) == NULL) SAexit("Error converting date and time. %s", strerror(errno));
    return &retval;
}


#if HAVE_STRL < 1
size_t strlcpy(char *dst, const char *src, size_t size) {
    char *d = dst;
    const char *s = src;
    size_t sz = size;

    while(--sz != 0 && ((*d++ = *s++) != '\0'));
    *d = '\0';

#if DEBUG >= 1
    return strlen(src);
#else
    return 0L;
#endif
}

size_t strlcat(char *dst, const char *src, size_t size) {
    size_t dlen = strlen(dst);

#if DEBUG >= 1
    return strlcpy(&dst[dlen], src, size - dlen) + dlen;
#else
    return strlcpy(&dst[dlen], src, size - dlen);
#endif
}
#endif


#if DEBUG >= 1
size_t strlcpyd(char *dst, const char *src, size_t size) {
    size_t retval;
    if ((retval = strlcpy(dst, src, size)) >= size) SAwarning("String [%s] was truncated by %zd bytes", src, retval - size + 1L);
    return retval;
}

size_t strlcatd(char *dst, const char *src, size_t size) {
    size_t retval;
    if ((retval = strlcat(dst, src, size)) >= size) SAwarning("String [%s] was truncated by %zd bytes", src, retval - size + 1L);
    return retval;
}
#endif