Subversion Repositories or1k

/*

 * Copyright (c) 1996 by Internet Software Consortium.

 *

 * Permission to use, copy, modify, and distribute this software for any

 * purpose with or without fee is hereby granted, provided that the above

 * copyright notice and this permission notice appear in all copies.

 *

 * THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM DISCLAIMS

 * ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES

 * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE

 * CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL

 * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR

 * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS

 * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS

 * SOFTWARE.

 */

#if !defined(__rtems__)

#if !defined(LINT) && !defined(CODECENTER)

static char rcsid[] = "$Id: ns_ttl.c,v 1.2 2001-09-27 12:01:53 chris Exp $";

#endif /* not lint */

#endif /* not rtems */

/* Import. */

#include <arpa/nameser.h>

#include <ctype.h>

#include <errno.h>

#include <stdio.h>

#include <string.h>

#define SPRINTF(x) ((size_t)sprintf x)

/* Forward. */

static int      fmt1(int t, char s, char **buf, size_t *buflen);

/* Macros. */

#define T(x) if ((x) < 0) return (-1); else (void)NULL

/* Public. */

int

ns_format_ttl(u_long src, char *dst, size_t dstlen) {

        char *odst = dst;

        int secs, mins, hours, days, weeks, x;

        char *p;

        secs = src % 60;   src /= 60;

        mins = src % 60;   src /= 60;

        hours = src % 24;  src /= 24;

        days = src % 7;    src /= 7;

        weeks = src;       src = 0;

        x = 0;

        if (weeks) {

                T(fmt1(weeks, 'W', &dst, &dstlen));

                x++;

        }

        if (days) {

                T(fmt1(days, 'D', &dst, &dstlen));

                x++;

        }

        if (hours) {

                T(fmt1(hours, 'H', &dst, &dstlen));

                x++;

        }

        if (mins) {

                T(fmt1(mins, 'M', &dst, &dstlen));

                x++;

        }

        if (secs || !(weeks || days || hours || mins)) {

                T(fmt1(secs, 'S', &dst, &dstlen));

                x++;

        }

        if (x > 1) {

                int ch;

                for (p = odst; (ch = *p) != '\0'; p++)

                        if (isascii(ch) && isupper(ch))

                                *p = tolower(ch);

        }

        return (dst - odst);

}

int

ns_parse_ttl(const char *src, u_long *dst) {

        u_long ttl, tmp;

        int ch, digits, dirty;

        ttl = 0;

        tmp = 0;

        digits = 0;

        dirty = 0;

        while ((ch = *src++) != '\0') {

                if (!isascii(ch) || !isprint(ch))

                        goto einval;

                if (isdigit(ch)) {

                        tmp *= 10;

                        tmp += (ch - '0');

                        digits++;

                        continue;

                }

                if (digits == 0)

                        goto einval;

                if (islower(ch))

                        ch = toupper(ch);

                switch (ch) {

                case 'W':  tmp *= 7;

                case 'D':  tmp *= 24;

                case 'H':  tmp *= 60;

                case 'M':  tmp *= 60;

                case 'S':  break;

                default:   goto einval;

                }

                ttl += tmp;

                tmp = 0;

                digits = 0;

                dirty = 1;

        }

        if (digits > 0) {

                if (dirty)

                        goto einval;

                else

                        ttl += tmp;

        }

        *dst = ttl;

        return (0);

 einval:

        errno = EINVAL;

        return (-1);

}

/* Private. */

static int

fmt1(int t, char s, char **buf, size_t *buflen) {

        char tmp[50];

        size_t len;

        len = SPRINTF((tmp, "%d%c", t, s));

        if (len + 1 > *buflen)

                return (-1);

        strcpy(*buf, tmp);

        *buf += len;

        *buflen -= len;

        return (0);

}