1 /* $NetBSD: support.c,v 1.9 2018/09/18 22:12:19 christos Exp $ */
2
3 /*-
4 * Copyright (c) 2015 The NetBSD Foundation, Inc.
5 * All rights reserved.
6 *
7 * This code is derived from software contributed to The NetBSD Foundation
8 * by Christos Zoulas.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 * notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in the
17 * documentation and/or other materials provided with the distribution.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 * POSSIBILITY OF SUCH DAMAGE.
30 */
31 #ifdef HAVE_CONFIG_H
32 #include "config.h"
33 #endif
34
35 #include <sys/cdefs.h>
36 __RCSID("$NetBSD: support.c,v 1.9 2018/09/18 22:12:19 christos Exp $");
37
38 #include <time.h>
39 #include <string.h>
40 #include <stdio.h>
41 #include <stdarg.h>
42 #include <errno.h>
43 #include <stdlib.h>
44 #include <inttypes.h>
45
46 #include "support.h"
47
48 static __attribute__((__format_arg__(3))) const char *
expandm(char * buf,size_t len,const char * fmt)49 expandm(char *buf, size_t len, const char *fmt)
50 {
51 char *p;
52 size_t r;
53
54 if ((p = strstr(fmt, "%m")) == NULL)
55 return fmt;
56
57 r = (size_t)(p - fmt);
58 if (r >= len)
59 return fmt;
60
61 strlcpy(buf, fmt, r + 1);
62 strlcat(buf, strerror(errno), len);
63 strlcat(buf, fmt + r + 2, len);
64
65 return buf;
66 }
67
68 void
vdlog(int level __unused,const char * fmt,va_list ap)69 vdlog(int level __unused, const char *fmt, va_list ap)
70 {
71 char buf[BUFSIZ];
72
73 // fprintf(stderr, "%s: ", getprogname());
74 vfprintf(stderr, expandm(buf, sizeof(buf), fmt), ap);
75 fprintf(stderr, "\n");
76 }
77
78 void
dlog(int level,const char * fmt,...)79 dlog(int level, const char *fmt, ...)
80 {
81 va_list ap;
82
83 va_start(ap, fmt);
84 vdlog(level, fmt, ap);
85 va_end(ap);
86 }
87
88 const char *
fmttime(char * b,size_t l,time_t t)89 fmttime(char *b, size_t l, time_t t)
90 {
91 struct tm tm;
92 if (localtime_r(&t, &tm) == NULL)
93 snprintf(b, l, "*%jd*", (intmax_t)t);
94 else
95 strftime(b, l, "%Y/%m/%d %H:%M:%S", &tm);
96 return b;
97 }
98
99 const char *
fmtydhms(char * b,size_t l,time_t t)100 fmtydhms(char *b, size_t l, time_t t)
101 {
102 time_t s, m, h, d, y;
103 int z;
104 size_t o;
105
106 s = t % 60;
107 t /= 60;
108
109 m = t % 60;
110 t /= 60;
111
112 h = t % 24;
113 t /= 24;
114
115 d = t % 365;
116 t /= 365;
117
118 y = t;
119
120 z = 0;
121 o = 0;
122 #define APPEND(a) \
123 if (a) { \
124 z = snprintf(b + o, l - o, "%jd%s", (intmax_t)a, __STRING(a)); \
125 if (z == -1) \
126 return b; \
127 o += (size_t)z; \
128 if (o >= l) \
129 return b; \
130 }
131 APPEND(y)
132 APPEND(d)
133 APPEND(h)
134 APPEND(m)
135 APPEND(s)
136 return b;
137 }
138
139 ssize_t
blhexdump(char * buf,size_t len,const char * str,const void * b,size_t l)140 blhexdump(char *buf, size_t len, const char *str, const void *b, size_t l)
141 {
142 size_t z, cz;
143 int r;
144 const unsigned char *p = b;
145 const unsigned char *e = p + l;
146
147 r = snprintf(buf, len, "%s: ", str);
148 if (r == -1)
149 return -1;
150 if ((cz = z = (size_t)r) >= len)
151 cz = len;
152
153 while (p < e) {
154 r = snprintf(buf + cz, len - cz, "%.2x", *p++);
155 if (r == -1)
156 return -1;
157 if ((cz = (z += (size_t)r)) >= len)
158 cz = len;
159 }
160 return (ssize_t)z;
161 }
162