(_nss_dns_getnetbyname_r, _nss_dns_getnetbyaddr_r): Use alloca or
[kopensolaris-gnu/glibc.git] / resolv / ns_ttl.c
1 /*
2  * Copyright (c) 1996,1999 by Internet Software Consortium.
3  *
4  * Permission to use, copy, modify, and distribute this software for any
5  * purpose with or without fee is hereby granted, provided that the above
6  * copyright notice and this permission notice appear in all copies.
7  *
8  * THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM DISCLAIMS
9  * ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
10  * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE
11  * CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
12  * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
13  * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
14  * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
15  * SOFTWARE.
16  */
17
18 #if !defined(_LIBC) && !defined(lint)
19 static const char rcsid[] = "$BINDId: ns_ttl.c,v 8.8 1999/10/13 16:39:36 vixie Exp $";
20 #endif
21
22 /* Import. */
23
24 #include <arpa/nameser.h>
25
26 #include <ctype.h>
27 #include <errno.h>
28 #include <stdio.h>
29 #include <string.h>
30
31 #ifdef SPRINTF_CHAR
32 # define SPRINTF(x) strlen(sprintf/**/x)
33 #else
34 # define SPRINTF(x) ((size_t)sprintf x)
35 #endif
36
37 /* Forward. */
38
39 static int      fmt1(int t, char s, char **buf, size_t *buflen);
40
41 /* Macros. */
42
43 #define T(x) if ((x) < 0) return (-1); else (void)NULL
44
45 /* Public. */
46
47 int
48 ns_format_ttl(u_long src, char *dst, size_t dstlen) {
49         char *odst = dst;
50         int secs, mins, hours, days, weeks, x;
51         char *p;
52
53         secs = src % 60;   src /= 60;
54         mins = src % 60;   src /= 60;
55         hours = src % 24;  src /= 24;
56         days = src % 7;    src /= 7;
57         weeks = src;       src = 0;
58
59         x = 0;
60         if (weeks) {
61                 T(fmt1(weeks, 'W', &dst, &dstlen));
62                 x++;
63         }
64         if (days) {
65                 T(fmt1(days, 'D', &dst, &dstlen));
66                 x++;
67         }
68         if (hours) {
69                 T(fmt1(hours, 'H', &dst, &dstlen));
70                 x++;
71         }
72         if (mins) {
73                 T(fmt1(mins, 'M', &dst, &dstlen));
74                 x++;
75         }
76         if (secs || !(weeks || days || hours || mins)) {
77                 T(fmt1(secs, 'S', &dst, &dstlen));
78                 x++;
79         }
80
81         if (x > 1) {
82                 int ch;
83
84                 for (p = odst; (ch = *p) != '\0'; p++)
85                         if (isascii(ch) && isupper(ch))
86                                 *p = tolower(ch);
87         }
88
89         return (dst - odst);
90 }
91
92 int
93 ns_parse_ttl(const char *src, u_long *dst) {
94         u_long ttl, tmp;
95         int ch, digits, dirty;
96
97         ttl = 0;
98         tmp = 0;
99         digits = 0;
100         dirty = 0;
101         while ((ch = *src++) != '\0') {
102                 if (!isascii(ch) || !isprint(ch))
103                         goto einval;
104                 if (isdigit(ch)) {
105                         tmp *= 10;
106                         tmp += (ch - '0');
107                         digits++;
108                         continue;
109                 }
110                 if (digits == 0)
111                         goto einval;
112                 if (islower(ch))
113                         ch = toupper(ch);
114                 switch (ch) {
115                 case 'W':  tmp *= 7;
116                 case 'D':  tmp *= 24;
117                 case 'H':  tmp *= 60;
118                 case 'M':  tmp *= 60;
119                 case 'S':  break;
120                 default:   goto einval;
121                 }
122                 ttl += tmp;
123                 tmp = 0;
124                 digits = 0;
125                 dirty = 1;
126         }
127         if (digits > 0) {
128                 if (dirty)
129                         goto einval;
130                 else
131                         ttl += tmp;
132         }
133         *dst = ttl;
134         return (0);
135
136  einval:
137         __set_errno (EINVAL);
138         return (-1);
139 }
140
141 /* Private. */
142
143 static int
144 fmt1(int t, char s, char **buf, size_t *buflen) {
145         char tmp[50];
146         size_t len;
147
148         len = SPRINTF((tmp, "%d%c", t, s));
149         if (len + 1 > *buflen)
150                 return (-1);
151         strcpy(*buf, tmp);
152         *buf += len;
153         *buflen -= len;
154         return (0);
155 }