1*0Sstevel@tonic-gate /*
2*0Sstevel@tonic-gate * CDDL HEADER START
3*0Sstevel@tonic-gate *
4*0Sstevel@tonic-gate * The contents of this file are subject to the terms of the
5*0Sstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only
6*0Sstevel@tonic-gate * (the "License"). You may not use this file except in compliance
7*0Sstevel@tonic-gate * with the License.
8*0Sstevel@tonic-gate *
9*0Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10*0Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing.
11*0Sstevel@tonic-gate * See the License for the specific language governing permissions
12*0Sstevel@tonic-gate * and limitations under the License.
13*0Sstevel@tonic-gate *
14*0Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each
15*0Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16*0Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the
17*0Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying
18*0Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner]
19*0Sstevel@tonic-gate *
20*0Sstevel@tonic-gate * CDDL HEADER END
21*0Sstevel@tonic-gate */
22*0Sstevel@tonic-gate /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
23*0Sstevel@tonic-gate /* All Rights Reserved */
24*0Sstevel@tonic-gate
25*0Sstevel@tonic-gate
26*0Sstevel@tonic-gate /*
27*0Sstevel@tonic-gate * Copyright (c) 1997,1998 by Sun Microsystems, Inc.
28*0Sstevel@tonic-gate * All rights reserved.
29*0Sstevel@tonic-gate */
30*0Sstevel@tonic-gate
31*0Sstevel@tonic-gate #pragma ident "%Z%%M% %I% %E% SMI"
32*0Sstevel@tonic-gate /*LINTLIBRARY*/
33*0Sstevel@tonic-gate
34*0Sstevel@tonic-gate #include <stdio.h>
35*0Sstevel@tonic-gate #include <string.h>
36*0Sstevel@tonic-gate #include <ctype.h>
37*0Sstevel@tonic-gate #include <limits.h>
38*0Sstevel@tonic-gate #include <sys/types.h>
39*0Sstevel@tonic-gate #include <stdlib.h>
40*0Sstevel@tonic-gate #include "libadm.h"
41*0Sstevel@tonic-gate
42*0Sstevel@tonic-gate static int fmtcheck(char *);
43*0Sstevel@tonic-gate
44*0Sstevel@tonic-gate #define PROMPT "Enter the time of day"
45*0Sstevel@tonic-gate #define ERRMSG "Please enter the time of day. Format is"
46*0Sstevel@tonic-gate #define DEFAULT "%H:%M"
47*0Sstevel@tonic-gate
48*0Sstevel@tonic-gate #define TLEN 3
49*0Sstevel@tonic-gate #define LH 00
50*0Sstevel@tonic-gate #define UH 23
51*0Sstevel@tonic-gate #define USH 12
52*0Sstevel@tonic-gate #define LM 00
53*0Sstevel@tonic-gate #define UM 59
54*0Sstevel@tonic-gate #define LS 00
55*0Sstevel@tonic-gate #define US 59
56*0Sstevel@tonic-gate #define DELIM1 ':'
57*0Sstevel@tonic-gate #define BLANK ' '
58*0Sstevel@tonic-gate #define TAB ' '
59*0Sstevel@tonic-gate
60*0Sstevel@tonic-gate static void
setmsg(char * msg,char * fmt)61*0Sstevel@tonic-gate setmsg(char *msg, char *fmt)
62*0Sstevel@tonic-gate {
63*0Sstevel@tonic-gate if (fmt == NULL)
64*0Sstevel@tonic-gate fmt = DEFAULT;
65*0Sstevel@tonic-gate (void) sprintf(msg, "%s <%s>.", ERRMSG, fmt);
66*0Sstevel@tonic-gate }
67*0Sstevel@tonic-gate
68*0Sstevel@tonic-gate static char *
p_ndig(char * string,int * value)69*0Sstevel@tonic-gate p_ndig(char *string, int *value)
70*0Sstevel@tonic-gate {
71*0Sstevel@tonic-gate char *ptr;
72*0Sstevel@tonic-gate int accum = 0;
73*0Sstevel@tonic-gate int n = 2;
74*0Sstevel@tonic-gate
75*0Sstevel@tonic-gate if (!string)
76*0Sstevel@tonic-gate return (0);
77*0Sstevel@tonic-gate for (ptr = string; *ptr && n > 0; n--, ptr++) {
78*0Sstevel@tonic-gate if (! isdigit((unsigned char)*ptr))
79*0Sstevel@tonic-gate return (NULL);
80*0Sstevel@tonic-gate accum = (10 * accum) + (*ptr - '0');
81*0Sstevel@tonic-gate }
82*0Sstevel@tonic-gate if (n)
83*0Sstevel@tonic-gate return (NULL);
84*0Sstevel@tonic-gate *value = accum;
85*0Sstevel@tonic-gate return (ptr);
86*0Sstevel@tonic-gate }
87*0Sstevel@tonic-gate
88*0Sstevel@tonic-gate static char *
p_time(char * string,int llim,int ulim)89*0Sstevel@tonic-gate p_time(char *string, int llim, int ulim)
90*0Sstevel@tonic-gate {
91*0Sstevel@tonic-gate char *ptr;
92*0Sstevel@tonic-gate int begin = -1;
93*0Sstevel@tonic-gate if (!(ptr = p_ndig(string, &begin)))
94*0Sstevel@tonic-gate return (NULL);
95*0Sstevel@tonic-gate if (begin >= llim && begin <= ulim)
96*0Sstevel@tonic-gate return (ptr);
97*0Sstevel@tonic-gate else return (NULL);
98*0Sstevel@tonic-gate }
99*0Sstevel@tonic-gate
100*0Sstevel@tonic-gate /* p_meridian will parse the string for the meridian - AM/PM or am/pm */
101*0Sstevel@tonic-gate
102*0Sstevel@tonic-gate static char *
p_meridian(char * string)103*0Sstevel@tonic-gate p_meridian(char *string)
104*0Sstevel@tonic-gate {
105*0Sstevel@tonic-gate static char *middle[] = { "AM", "PM", "am", "pm" };
106*0Sstevel@tonic-gate int legit, n;
107*0Sstevel@tonic-gate char mid[TLEN];
108*0Sstevel@tonic-gate
109*0Sstevel@tonic-gate legit = 0;
110*0Sstevel@tonic-gate n = 0;
111*0Sstevel@tonic-gate mid[2] = '\0';
112*0Sstevel@tonic-gate (void) sscanf(string, "%2s", mid);
113*0Sstevel@tonic-gate while (!(legit) && (n < 4)) {
114*0Sstevel@tonic-gate if ((strncmp(mid, middle[n], 2)) == 0)
115*0Sstevel@tonic-gate legit = 1; /* found legitimate string */
116*0Sstevel@tonic-gate n++;
117*0Sstevel@tonic-gate }
118*0Sstevel@tonic-gate if (legit)
119*0Sstevel@tonic-gate return (string+2);
120*0Sstevel@tonic-gate return (NULL);
121*0Sstevel@tonic-gate }
122*0Sstevel@tonic-gate
123*0Sstevel@tonic-gate static char *
p_delim(char * string,char dchoice)124*0Sstevel@tonic-gate p_delim(char *string, char dchoice)
125*0Sstevel@tonic-gate {
126*0Sstevel@tonic-gate char dlm;
127*0Sstevel@tonic-gate
128*0Sstevel@tonic-gate if (! string)
129*0Sstevel@tonic-gate return (NULL);
130*0Sstevel@tonic-gate (void) sscanf(string, "%1c", &dlm);
131*0Sstevel@tonic-gate return ((dlm == dchoice) ? string + 1 : NULL);
132*0Sstevel@tonic-gate }
133*0Sstevel@tonic-gate
134*0Sstevel@tonic-gate int
cktime_val(char * fmt,char * input)135*0Sstevel@tonic-gate cktime_val(char *fmt, char *input)
136*0Sstevel@tonic-gate {
137*0Sstevel@tonic-gate char ltrl, dfl;
138*0Sstevel@tonic-gate int valid = 1; /* time of day string is valid for format */
139*0Sstevel@tonic-gate
140*0Sstevel@tonic-gate if ((fmt != NULL) && (fmtcheck(fmt) == 1))
141*0Sstevel@tonic-gate return (4);
142*0Sstevel@tonic-gate
143*0Sstevel@tonic-gate if (fmt == NULL)
144*0Sstevel@tonic-gate fmt = DEFAULT;
145*0Sstevel@tonic-gate ltrl = '\0';
146*0Sstevel@tonic-gate while (*fmt && valid) {
147*0Sstevel@tonic-gate if ((*fmt) == '%') {
148*0Sstevel@tonic-gate switch (*++fmt) {
149*0Sstevel@tonic-gate case 'H':
150*0Sstevel@tonic-gate input = p_time(input, LH, UH);
151*0Sstevel@tonic-gate if (!input)
152*0Sstevel@tonic-gate valid = 0;
153*0Sstevel@tonic-gate break;
154*0Sstevel@tonic-gate
155*0Sstevel@tonic-gate case 'M':
156*0Sstevel@tonic-gate input = p_time(input, LM, UM);
157*0Sstevel@tonic-gate if (!input)
158*0Sstevel@tonic-gate valid = 0;
159*0Sstevel@tonic-gate break;
160*0Sstevel@tonic-gate
161*0Sstevel@tonic-gate case 'S':
162*0Sstevel@tonic-gate input = p_time(input, LS, US);
163*0Sstevel@tonic-gate if (!input)
164*0Sstevel@tonic-gate valid = 0;
165*0Sstevel@tonic-gate break;
166*0Sstevel@tonic-gate
167*0Sstevel@tonic-gate case 'T':
168*0Sstevel@tonic-gate input = p_time(input, LH, UH);
169*0Sstevel@tonic-gate if (!input) {
170*0Sstevel@tonic-gate valid = 0;
171*0Sstevel@tonic-gate break;
172*0Sstevel@tonic-gate }
173*0Sstevel@tonic-gate
174*0Sstevel@tonic-gate input = p_delim(input, DELIM1);
175*0Sstevel@tonic-gate if (!input) {
176*0Sstevel@tonic-gate valid = 0;
177*0Sstevel@tonic-gate break;
178*0Sstevel@tonic-gate }
179*0Sstevel@tonic-gate input = p_time(input, LM, UM);
180*0Sstevel@tonic-gate if (!input) {
181*0Sstevel@tonic-gate valid = 0;
182*0Sstevel@tonic-gate break;
183*0Sstevel@tonic-gate }
184*0Sstevel@tonic-gate input = p_delim(input, DELIM1);
185*0Sstevel@tonic-gate if (!input) {
186*0Sstevel@tonic-gate valid = 0;
187*0Sstevel@tonic-gate break;
188*0Sstevel@tonic-gate }
189*0Sstevel@tonic-gate input = p_time(input, LS, US);
190*0Sstevel@tonic-gate if (!input)
191*0Sstevel@tonic-gate valid = 0;
192*0Sstevel@tonic-gate break;
193*0Sstevel@tonic-gate
194*0Sstevel@tonic-gate case 'R':
195*0Sstevel@tonic-gate input = p_time(input, LH, UH);
196*0Sstevel@tonic-gate if (!input) {
197*0Sstevel@tonic-gate valid = 0;
198*0Sstevel@tonic-gate break;
199*0Sstevel@tonic-gate }
200*0Sstevel@tonic-gate input = p_delim(input, DELIM1);
201*0Sstevel@tonic-gate if (!input) {
202*0Sstevel@tonic-gate valid = 0;
203*0Sstevel@tonic-gate break;
204*0Sstevel@tonic-gate }
205*0Sstevel@tonic-gate input = p_time(input, LM, UM);
206*0Sstevel@tonic-gate if (!input) {
207*0Sstevel@tonic-gate valid = 0;
208*0Sstevel@tonic-gate break;
209*0Sstevel@tonic-gate }
210*0Sstevel@tonic-gate break;
211*0Sstevel@tonic-gate
212*0Sstevel@tonic-gate case 'r':
213*0Sstevel@tonic-gate input = p_time(input, LH, USH);
214*0Sstevel@tonic-gate if (!input) {
215*0Sstevel@tonic-gate valid = 0;
216*0Sstevel@tonic-gate break;
217*0Sstevel@tonic-gate }
218*0Sstevel@tonic-gate input = p_delim(input, DELIM1);
219*0Sstevel@tonic-gate if (!input) {
220*0Sstevel@tonic-gate valid = 0;
221*0Sstevel@tonic-gate break;
222*0Sstevel@tonic-gate }
223*0Sstevel@tonic-gate input = p_time(input, LM, UM);
224*0Sstevel@tonic-gate if (!input) {
225*0Sstevel@tonic-gate valid = 0;
226*0Sstevel@tonic-gate break;
227*0Sstevel@tonic-gate }
228*0Sstevel@tonic-gate input = p_delim(input, DELIM1);
229*0Sstevel@tonic-gate if (!input) {
230*0Sstevel@tonic-gate valid = 0;
231*0Sstevel@tonic-gate break;
232*0Sstevel@tonic-gate }
233*0Sstevel@tonic-gate input = p_time(input, LS, US);
234*0Sstevel@tonic-gate if (!input) {
235*0Sstevel@tonic-gate valid = 0;
236*0Sstevel@tonic-gate break;
237*0Sstevel@tonic-gate }
238*0Sstevel@tonic-gate input = p_delim(input, BLANK);
239*0Sstevel@tonic-gate if (!input) {
240*0Sstevel@tonic-gate valid = 0;
241*0Sstevel@tonic-gate break;
242*0Sstevel@tonic-gate }
243*0Sstevel@tonic-gate input = p_meridian(input);
244*0Sstevel@tonic-gate if (!input)
245*0Sstevel@tonic-gate valid = 0;
246*0Sstevel@tonic-gate break;
247*0Sstevel@tonic-gate
248*0Sstevel@tonic-gate case 'I':
249*0Sstevel@tonic-gate input = p_time(input, LH, USH);
250*0Sstevel@tonic-gate if (!input)
251*0Sstevel@tonic-gate valid = 0;
252*0Sstevel@tonic-gate break;
253*0Sstevel@tonic-gate
254*0Sstevel@tonic-gate case 'p':
255*0Sstevel@tonic-gate input = p_meridian(input);
256*0Sstevel@tonic-gate if (!input)
257*0Sstevel@tonic-gate valid = 0;
258*0Sstevel@tonic-gate break;
259*0Sstevel@tonic-gate
260*0Sstevel@tonic-gate default:
261*0Sstevel@tonic-gate (void) sscanf(input++, "%1c", <rl);
262*0Sstevel@tonic-gate }
263*0Sstevel@tonic-gate } else {
264*0Sstevel@tonic-gate dfl = '\0';
265*0Sstevel@tonic-gate (void) sscanf(input, "%1c", &dfl);
266*0Sstevel@tonic-gate input++;
267*0Sstevel@tonic-gate }
268*0Sstevel@tonic-gate fmt++;
269*0Sstevel@tonic-gate }
270*0Sstevel@tonic-gate
271*0Sstevel@tonic-gate if (!(*fmt) && (input) && (*input))
272*0Sstevel@tonic-gate valid = 0;
273*0Sstevel@tonic-gate
274*0Sstevel@tonic-gate return ((valid == 0));
275*0Sstevel@tonic-gate }
276*0Sstevel@tonic-gate
277*0Sstevel@tonic-gate int
cktime_err(char * fmt,char * error)278*0Sstevel@tonic-gate cktime_err(char *fmt, char *error)
279*0Sstevel@tonic-gate {
280*0Sstevel@tonic-gate char defmesg[128];
281*0Sstevel@tonic-gate
282*0Sstevel@tonic-gate if ((fmt != NULL) && (fmtcheck(fmt) == 1))
283*0Sstevel@tonic-gate return (4);
284*0Sstevel@tonic-gate setmsg(defmesg, fmt);
285*0Sstevel@tonic-gate puterror(stdout, defmesg, error);
286*0Sstevel@tonic-gate return (0);
287*0Sstevel@tonic-gate }
288*0Sstevel@tonic-gate
289*0Sstevel@tonic-gate int
cktime_hlp(char * fmt,char * help)290*0Sstevel@tonic-gate cktime_hlp(char *fmt, char *help)
291*0Sstevel@tonic-gate {
292*0Sstevel@tonic-gate char defmesg[128];
293*0Sstevel@tonic-gate
294*0Sstevel@tonic-gate if ((fmt != NULL) && (fmtcheck(fmt) == 1))
295*0Sstevel@tonic-gate return (4);
296*0Sstevel@tonic-gate setmsg(defmesg, fmt);
297*0Sstevel@tonic-gate puthelp(stdout, defmesg, help);
298*0Sstevel@tonic-gate return (0);
299*0Sstevel@tonic-gate }
300*0Sstevel@tonic-gate
301*0Sstevel@tonic-gate /*
302*0Sstevel@tonic-gate * A little state machine that checks out the format to
303*0Sstevel@tonic-gate * make sure it is acceptable.
304*0Sstevel@tonic-gate * return value 1: NG
305*0Sstevel@tonic-gate * return value 0: OK
306*0Sstevel@tonic-gate */
307*0Sstevel@tonic-gate int
fmtcheck(char * fmt)308*0Sstevel@tonic-gate fmtcheck(char *fmt)
309*0Sstevel@tonic-gate {
310*0Sstevel@tonic-gate int percent = 0;
311*0Sstevel@tonic-gate
312*0Sstevel@tonic-gate while (*fmt) {
313*0Sstevel@tonic-gate switch (*fmt++) {
314*0Sstevel@tonic-gate case '%': /* previous state must be start or letter */
315*0Sstevel@tonic-gate if (percent == 0)
316*0Sstevel@tonic-gate percent = 1;
317*0Sstevel@tonic-gate else
318*0Sstevel@tonic-gate return (1);
319*0Sstevel@tonic-gate break;
320*0Sstevel@tonic-gate case 'H': /* previous state must be "%" */
321*0Sstevel@tonic-gate case 'M':
322*0Sstevel@tonic-gate case 'S':
323*0Sstevel@tonic-gate case 'T':
324*0Sstevel@tonic-gate case 'R':
325*0Sstevel@tonic-gate case 'r':
326*0Sstevel@tonic-gate case 'I':
327*0Sstevel@tonic-gate case 'p':
328*0Sstevel@tonic-gate if (percent == 1)
329*0Sstevel@tonic-gate percent = 0;
330*0Sstevel@tonic-gate else
331*0Sstevel@tonic-gate return (1);
332*0Sstevel@tonic-gate break;
333*0Sstevel@tonic-gate case TAB: /* previous state must be start or letter */
334*0Sstevel@tonic-gate case BLANK:
335*0Sstevel@tonic-gate case DELIM1:
336*0Sstevel@tonic-gate if (percent == 1)
337*0Sstevel@tonic-gate return (1);
338*0Sstevel@tonic-gate break;
339*0Sstevel@tonic-gate default:
340*0Sstevel@tonic-gate return (1);
341*0Sstevel@tonic-gate }
342*0Sstevel@tonic-gate }
343*0Sstevel@tonic-gate return (percent);
344*0Sstevel@tonic-gate }
345*0Sstevel@tonic-gate
346*0Sstevel@tonic-gate int
cktime(char * tod,char * fmt,char * defstr,char * error,char * help,char * prompt)347*0Sstevel@tonic-gate cktime(char *tod, char *fmt, char *defstr, char *error, char *help,
348*0Sstevel@tonic-gate char *prompt)
349*0Sstevel@tonic-gate {
350*0Sstevel@tonic-gate char input[MAX_INPUT],
351*0Sstevel@tonic-gate defmesg[128];
352*0Sstevel@tonic-gate
353*0Sstevel@tonic-gate if ((fmt != NULL) && (fmtcheck(fmt) == 1))
354*0Sstevel@tonic-gate return (4);
355*0Sstevel@tonic-gate
356*0Sstevel@tonic-gate if (fmt == NULL)
357*0Sstevel@tonic-gate fmt = DEFAULT;
358*0Sstevel@tonic-gate setmsg(defmesg, fmt);
359*0Sstevel@tonic-gate if (!prompt)
360*0Sstevel@tonic-gate prompt = "Enter a time of day";
361*0Sstevel@tonic-gate
362*0Sstevel@tonic-gate start:
363*0Sstevel@tonic-gate putprmpt(stderr, prompt, NULL, defstr);
364*0Sstevel@tonic-gate if (getinput(input))
365*0Sstevel@tonic-gate return (1);
366*0Sstevel@tonic-gate
367*0Sstevel@tonic-gate if (!strlen(input)) {
368*0Sstevel@tonic-gate if (defstr) {
369*0Sstevel@tonic-gate (void) strcpy(tod, defstr);
370*0Sstevel@tonic-gate return (0);
371*0Sstevel@tonic-gate }
372*0Sstevel@tonic-gate puterror(stderr, defmesg, error);
373*0Sstevel@tonic-gate goto start;
374*0Sstevel@tonic-gate }
375*0Sstevel@tonic-gate if (strcmp(input, "?") == 0) {
376*0Sstevel@tonic-gate puthelp(stderr, defmesg, help);
377*0Sstevel@tonic-gate goto start;
378*0Sstevel@tonic-gate }
379*0Sstevel@tonic-gate if (ckquit && (strcmp(input, "q") == 0))
380*0Sstevel@tonic-gate return (3);
381*0Sstevel@tonic-gate
382*0Sstevel@tonic-gate if (cktime_val(fmt, input)) {
383*0Sstevel@tonic-gate puterror(stderr, defmesg, error);
384*0Sstevel@tonic-gate goto start;
385*0Sstevel@tonic-gate }
386*0Sstevel@tonic-gate (void) strcpy(tod, input);
387*0Sstevel@tonic-gate return (0);
388*0Sstevel@tonic-gate }
389