/* $NetBSD: ns_ttl.c,v 1.8 2012/03/13 21:13:39 christos Exp $ */

/*
 * Copyright (c) 2004 by Internet Systems Consortium, Inc. ("ISC")
 * Copyright (c) 1996,1999 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 ISC DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS.  IN NO EVENT SHALL ISC 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.
 */

#include <sys/cdefs.h>
#ifndef lint
#ifdef notdef
static const char rcsid[] = "Id: ns_ttl.c,v 1.4 2005/07/28 06:51:49 marka Exp";
#else
__RCSID("$NetBSD: ns_ttl.c,v 1.8 2012/03/13 21:13:39 christos Exp $");
#endif
#endif

/* Import. */

#include <arpa/nameser.h>

#include <assert.h>
#include <ctype.h>
#include <errno.h>
#include <stdio.h>
#include <string.h>

/* Forward. */

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

/* Macros. */

#define T(x) do { if ((x) < 0) return (-1); } while(0)

/* 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 = (int)(src % 60);   src /= 60;
 mins = (int)(src % 60);   src /= 60;
 hours = (int)(src % 24);  src /= 24;
 days = (int)(src % 7);    src /= 7;
 weeks = (int)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);
 }

 _DIAGASSERT(__type_fit(int, dst - odst));
 return (int)(dst - odst);
}

/* Private. */

static int
fmt1(int t, char s, char **buf, size_t *buflen) {
 char tmp[50];
 size_t len;

 len = (size_t)snprintf(tmp, sizeof(tmp), "%d%c", t, s);
 if ((int)len < 0 || len + 1 > *buflen)
  return (-1);
 strcpy(*buf, tmp);
 *buf += len;
 *buflen -= len;
 return (0);
}