/*	$NetBSD: support.c,v 1.8 2016/04/04 15:52:56 christos Exp $	*/

/*-
 * Copyright (c) 2015 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by Christos Zoulas.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include <sys/cdefs.h>
__RCSID("$NetBSD: support.c,v 1.8 2016/04/04 15:52:56 christos Exp $");

#include <time.h>
#include <string.h>
#include <stdio.h>
#include <stdarg.h>
#include <errno.h>
#include <stdlib.h>
#include <inttypes.h>

#include "support.h"

static __attribute__((__format_arg__(3))) const char *
expandm(char *buf, size_t len, const char *fmt) 
{
	char *p;
	size_t r;

	if ((p = strstr(fmt, "%m")) == NULL)
		return fmt;

	r = (size_t)(p - fmt);
	if (r >= len)
		return fmt;

	strlcpy(buf, fmt, r + 1);
	strlcat(buf, strerror(errno), len);
	strlcat(buf, fmt + r + 2, len);

	return buf;
}

void
vdlog(int level __unused, const char *fmt, va_list ap)
{
	char buf[BUFSIZ];

//	fprintf(stderr, "%s: ", getprogname());
	vfprintf(stderr, expandm(buf, sizeof(buf), fmt), ap);
	fprintf(stderr, "\n");
}

void
dlog(int level, const char *fmt, ...)
{
	va_list ap;

	va_start(ap, fmt);
	vdlog(level, fmt, ap);
	va_end(ap);
}

const char *
fmttime(char *b, size_t l, time_t t)
{
	struct tm tm;
	if (localtime_r(&t, &tm) == NULL)
		snprintf(b, l, "*%jd*", (intmax_t)t);
	else
		strftime(b, l, "%Y/%m/%d %H:%M:%S", &tm);
	return b;
}

const char *
fmtydhms(char *b, size_t l, time_t t)
{
	time_t s, m, h, d, y;
	int z;
	size_t o;

	s = t % 60;
	t /= 60;
	m = t % 60;
	t /= 60;
	h = t % 60;
	t /= 24;
	d = t % 24;
	t /= 356;
	y = t;

	z = 0;
	o = 0;
#define APPEND(a) \
	if (a) { \
		z = snprintf(b + o, l - o, "%jd%s", (intmax_t)a, __STRING(a)); \
		if (z == -1) \
			return b; \
		o += (size_t)z; \
		if (o >= l) \
			return b; \
	}
	APPEND(y)
	APPEND(d)
	APPEND(h)
	APPEND(m)
	APPEND(s)
	return b;
}

ssize_t
blhexdump(char *buf, size_t len, const char *str, const void *b, size_t l)
{
	size_t z, cz;
	int r;
	const unsigned char *p = b;
	const unsigned char *e = p + l;

	r = snprintf(buf, len, "%s: ", str);
	if (r == -1)
		return -1;
	if ((cz = z = (size_t)r) >= len)
		cz = len;

	while (p < e) {
		r = snprintf(buf + cz, len - cz, "%.2x", *p++);
		if (r == -1)
			return -1;
		if ((cz = (z += (size_t)r)) >= len)
			cz = len;
	}
	return (ssize_t)z;
}