[apple/shell_cmds.git] / jot / jot.c

/*	$NetBSD: jot.c,v 1.4 1997/10/19 03:34:49 lukem Exp $	*/

/*-
 * Copyright (c) 1993
 *	The Regents of the University of California.  All rights reserved.
 *
 * 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.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *	This product includes software developed by the University of
 *	California, Berkeley and its contributors.
 * 4. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS 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 REGENTS 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.
 */

#include <sys/cdefs.h>
#ifndef lint
__COPYRIGHT("@(#) Copyright (c) 1993\n\
	The Regents of the University of California.  All rights reserved.\n");
#endif /* not lint */

#ifndef lint
#if 0
static char sccsid[] = "@(#)jot.c	8.1 (Berkeley) 6/6/93";
#endif
__RCSID("$NetBSD: jot.c,v 1.4 1997/10/19 03:34:49 lukem Exp $");
#endif /* not lint */

/*
 * jot - print sequential or random data
 *
 * Author:  John Kunze, Office of Comp. Affairs, UCB
 */

#include <ctype.h>
#include <err.h>
#include <limits.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

#define	REPS_DEF	100
#define	BEGIN_DEF	1
#define	ENDER_DEF	100
#define	STEP_DEF	1

#define	isdefault(s)	(strcmp((s), "-") == 0)

double	begin;
double	ender;
double	s;
long	reps;
int	randomize;
int	infinity;
int	boring;
int	prec;
int	dox;
int	chardata;
int	nofinalnl;
char	sepstring[BUFSIZ] = "\n";
char	format[BUFSIZ];

void	error __P((char *, char *));
void	getargs __P((int, char *[]));
void	getformat __P((void));
int	getprec __P((char *));
int	main __P((int, char **));
void	putdata __P((double, long));

int
main(argc, argv)
	int argc;
	char *argv[];
{
	double	xd, yd;
	long	id;
	double	*x = &xd;
	double	*y = &yd;
	long	*i = &id;

	getargs(argc, argv);
	if (randomize) {
		*x = (ender - begin) * (ender > begin ? 1 : -1);
		srandom((int) s);
		for (*i = 1; *i <= reps || infinity; (*i)++) {
			*y = (double) random() / INT_MAX;
			putdata(*y * *x + begin, reps - *i);
		}
	}
	else
		for (*i = 1, *x = begin; *i <= reps || infinity; (*i)++, *x += s)
			putdata(*x, reps - *i);
	if (!nofinalnl)
		putchar('\n');
	exit(0);
}

void
getargs(ac, av)
	int ac;
	char *av[];
{
	unsigned int	mask = 0;
	int		n = 0;

	while (--ac && **++av == '-' && !isdefault(*av))
		switch ((*av)[1]) {
		case 'r':
			randomize = 1;
			break;
		case 'c':
			chardata = 1;
			break;
		case 'n':
			nofinalnl = 1;
			break;
		case 'b':
			boring = 1;
		case 'w':
			if ((*av)[2])
				strcpy(format, *av + 2);
			else if (!--ac)
				error("Need context word after -w or -b", "");
			else
				strcpy(format, *++av);
			break;
		case 's':
			if ((*av)[2])
				strcpy(sepstring, *av + 2);
			else if (!--ac)
				error("Need string after -s", "");
			else
				strcpy(sepstring, *++av);
			break;
		case 'p':
			if ((*av)[2])
				prec = atoi(*av + 2);
			else if (!--ac)
				error("Need number after -p", "");
			else
				prec = atoi(*++av);
			if (prec <= 0)
				error("Bad precision value", "");
			break;
		default:
			error("Unknown option %s", *av);
		}

	switch (ac) {	/* examine args right to left, falling thru cases */
	case 4:
		if (!isdefault(av[3])) {
			if (!sscanf(av[3], "%lf", &s))
				error("Bad s value:  %s", av[3]);
			mask |= 01;
		}
	case 3:
		if (!isdefault(av[2])) {
			if (!sscanf(av[2], "%lf", &ender))
				ender = av[2][strlen(av[2])-1];
			mask |= 02;
			if (!prec)
				n = getprec(av[2]);
		}
	case 2:
		if (!isdefault(av[1])) {
			if (!sscanf(av[1], "%lf", &begin))
				begin = av[1][strlen(av[1])-1];
			mask |= 04;
			if (!prec)
				prec = getprec(av[1]);
			if (n > prec)		/* maximum precision */
				prec = n;
		}
	case 1:
		if (!isdefault(av[0])) {
			if (!sscanf(av[0], "%ld", &reps))
				error("Bad reps value:  %s", av[0]);
			mask |= 010;
		}
		break;
	case 0:
		error("jot - print sequential or random data", "");
	default:
		error("Too many arguments.  What do you mean by %s?", av[4]);
	}
	getformat();
	while (mask)	/* 4 bit mask has 1's where last 4 args were given */
		switch (mask) {	/* fill in the 0's by default or computation */
		case 001:
			reps = REPS_DEF;
			mask = 011;
			break;
		case 002:
			reps = REPS_DEF;
			mask = 012;
			break;
		case 003:
			reps = REPS_DEF;
			mask = 013;
			break;
		case 004:
			reps = REPS_DEF;
			mask = 014;
			break;
		case 005:
			reps = REPS_DEF;
			mask = 015;
			break;
		case 006:
			reps = REPS_DEF;
			mask = 016;
			break;
		case 007:
			if (randomize) {
				reps = REPS_DEF;
				mask = 0;
				break;
			}
			if (s == 0.0) {
				reps = 0;
				mask = 0;
				break;
			}
			reps = (ender - begin + s) / s;
			if (reps <= 0)
				error("Impossible stepsize", "");
			mask = 0;
			break;
		case 010:
			begin = BEGIN_DEF;
			mask = 014;
			break;
		case 011:
			begin = BEGIN_DEF;
			mask = 015;
			break;
		case 012:
			s = (randomize ? time(0) : STEP_DEF);
			mask = 013;
			break;
		case 013:
			if (randomize)
				begin = BEGIN_DEF;
			else if (reps == 0)
				error("Must specify begin if reps == 0", "");
			begin = ender - reps * s + s;
			mask = 0;
			break;
		case 014:
			s = (randomize ? time(0) : STEP_DEF);
			mask = 015;
			break;
		case 015:
			if (randomize)
				ender = ENDER_DEF;
			else
				ender = begin + reps * s - s;
			mask = 0;
			break;
		case 016:
			if (randomize)
				s = time(0);
			else if (reps == 0)
				error("Infinite sequences cannot be bounded",
				    "");
			else if (reps == 1)
				s = 0.0;
			else
				s = (ender - begin) / (reps - 1);
			mask = 0;
			break;
		case 017:		/* if reps given and implied, */
			if (!randomize && s != 0.0) {
				long t = (ender - begin + s) / s;
				if (t <= 0)
					error("Impossible stepsize", "");
				if (t < reps)		/* take lesser */
					reps = t;
			}
			mask = 0;
			break;
		default:
			error("Bad mask", "");
		}
	if (reps == 0)
		infinity = 1;
}

void
putdata(x, notlast)
	double x;
	long notlast;
{
	long	d = x;
	long	*dp = &d;

	if (boring)				/* repeated word */
		printf("%s", format);
	else if (dox)				/* scalar */
		printf(format, *dp);
	else					/* real */
		printf(format, x);
	if (notlast != 0)
		fputs(sepstring, stdout);
}

void
error(msg, s)
	char *msg, *s;
{
	warnx(msg, s);
	fprintf(stderr,
	    "\nusage:  jot [ options ] [ reps [ begin [ end [ s ] ] ] ]\n");
	if (strncmp("jot - ", msg, 6) == 0)
		fprintf(stderr, "Options:\n\t%s\t%s\t%s\t%s\t%s\t%s\t%s",
			"-r		random data\n",
			"-c		character data\n",
			"-n		no final newline\n",
			"-b word		repeated word\n",
			"-w word		context word\n",
			"-s string	data separator\n",
			"-p precision	number of characters\n");
	exit(1);
}

int
getprec(s)
	char *s;
{
	char	*p;
	char	*q;

	for (p = s; *p; p++)
		if (*p == '.')
			break;
	if (!*p)
		return (0);
	for (q = ++p; *p; p++)
		if (!isdigit(*p))
			break;
	return (p - q);
}

void
getformat()
{
	char	*p;

	if (boring)				/* no need to bother */
		return;
	for (p = format; *p; p++)		/* look for '%' */
		if (*p == '%' && *(p+1) != '%')	/* leave %% alone */
			break;
	if (!*p && !chardata)
		sprintf(p, "%%.%df", prec);
	else if (!*p && chardata) {
		strcpy(p, "%c");
		dox = 1;
	}
	else if (!*(p+1))
		strcat(format, "%");		/* cannot end in single '%' */
	else {
		while (!isalpha(*p))
			p++;
		switch (*p) {
		case 'f': case 'e': case 'g': case '%':
			break;
		case 's':
			error("Cannot convert numeric data to strings", "");
			break;
		/* case 'd': case 'o': case 'x': case 'D': case 'O': case 'X':
		case 'c': case 'u': */
		default:
			dox = 1;
			break;
		}
	}
}
Commit	Line	Data
44bd5ea7 A	1	/* $NetBSD: jot.c,v 1.4 1997/10/19 03:34:49 lukem Exp $ */
	2
	3	/*-
	4	* Copyright (c) 1993
	5	* The Regents of the University of California. All rights reserved.
	6	*
	7	* Redistribution and use in source and binary forms, with or without
	8	* modification, are permitted provided that the following conditions
	9	* are met:
	10	* 1. Redistributions of source code must retain the above copyright
	11	* notice, this list of conditions and the following disclaimer.
	12	* 2. Redistributions in binary form must reproduce the above copyright
	13	* notice, this list of conditions and the following disclaimer in the
	14	* documentation and/or other materials provided with the distribution.
	15	* 3. All advertising materials mentioning features or use of this software
	16	* must display the following acknowledgement:
	17	* This product includes software developed by the University of
	18	* California, Berkeley and its contributors.
	19	* 4. Neither the name of the University nor the names of its contributors
	20	* may be used to endorse or promote products derived from this software
	21	* without specific prior written permission.
	22	*
	23	* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
	24	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	25	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	26	* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
	27	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	28	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	29	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	30	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	31	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	32	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	33	* SUCH DAMAGE.
	34	*/
	35
	36	#include <sys/cdefs.h>
	37	#ifndef lint
	38	__COPYRIGHT("@(#) Copyright (c) 1993\n\
	39	The Regents of the University of California. All rights reserved.\n");
	40	#endif /* not lint */
	41
	42	#ifndef lint
	43	#if 0
	44	static char sccsid[] = "@(#)jot.c 8.1 (Berkeley) 6/6/93";
	45	#endif
	46	__RCSID("$NetBSD: jot.c,v 1.4 1997/10/19 03:34:49 lukem Exp $");
	47	#endif /* not lint */
	48
	49	/*
	50	* jot - print sequential or random data
	51	*
	52	* Author: John Kunze, Office of Comp. Affairs, UCB
	53	*/
	54
	55	#include <ctype.h>
	56	#include <err.h>
	57	#include <limits.h>
	58	#include <stdio.h>
	59	#include <stdlib.h>
	60	#include <string.h>
	61	#include <time.h>
	62
	63	#define REPS_DEF 100
	64	#define BEGIN_DEF 1
65	#define ENDER_DEF 100
66	#define STEP_DEF 1
67
68	#define isdefault(s) (strcmp((s), "-") == 0)
69
70	double begin;
71	double ender;
72	double s;
73	long reps;
74	int randomize;
75	int infinity;
76	int boring;
77	int prec;
78	int dox;
79	int chardata;
80	int nofinalnl;
81	char sepstring[BUFSIZ] = "\n";
82	char format[BUFSIZ];
83
84	void error __P((char , char ));
85	void getargs __P((int, char *[]));
86	void getformat __P((void));
87	int getprec __P((char *));
88	int main __P((int, char **));
89	void putdata __P((double, long));
90
91	int
92	main(argc, argv)
93	int argc;
94	char *argv[];
95	{
96	double xd, yd;
97	long id;
98	double *x = &xd;
99	double *y = &yd;
100	long *i = &id;
101
102	getargs(argc, argv);
103	if (randomize) {
104	x = (ender - begin) (ender > begin ? 1 : -1);
105	srandom((int) s);
106	for (i = 1; i <= reps \|\| infinity; (*i)++) {
107	*y = (double) random() / INT_MAX;
108	putdata(y x + begin, reps - i);
109	}
110	}
111	else
112	for (i = 1, x = begin; i <= reps \|\| infinity; (i)++, *x += s)
113	putdata(x, reps - i);
114	if (!nofinalnl)
115	putchar('\n');
116	exit(0);
117	}
118
119	void
120	getargs(ac, av)
121	int ac;
122	char *av[];
123	{
124	unsigned int mask = 0;
125	int n = 0;
126
127	while (--ac && *++av == '-' && !isdefault(av))
128	switch ((*av)[1]) {
129	case 'r':
130	randomize = 1;
131	break;
132	case 'c':
133	chardata = 1;
134	break;
135	case 'n':
136	nofinalnl = 1;
137	break;
138	case 'b':
139	boring = 1;
140	case 'w':
141	if ((*av)[2])
142	strcpy(format, *av + 2);
143	else if (!--ac)
144	error("Need context word after -w or -b", "");
145	else
146	strcpy(format, *++av);
147	break;
148	case 's':
149	if ((*av)[2])
150	strcpy(sepstring, *av + 2);
151	else if (!--ac)
152	error("Need string after -s", "");
153	else
154	strcpy(sepstring, *++av);
155	break;
156	case 'p':
157	if ((*av)[2])
158	prec = atoi(*av + 2);
159	else if (!--ac)
160	error("Need number after -p", "");
161	else
162	prec = atoi(*++av);
163	if (prec <= 0)
164	error("Bad precision value", "");
165	break;
166	default:
167	error("Unknown option %s", *av);
168	}
169
170	switch (ac) { /* examine args right to left, falling thru cases */
171	case 4:
172	if (!isdefault(av[3])) {
173	if (!sscanf(av[3], "%lf", &s))
174	error("Bad s value: %s", av[3]);
175	mask \|= 01;
176	}
177	case 3:
178	if (!isdefault(av[2])) {
179	if (!sscanf(av[2], "%lf", &ender))
180	ender = av[2][strlen(av[2])-1];
181	mask \|= 02;
182	if (!prec)
183	n = getprec(av[2]);
184	}
185	case 2:
186	if (!isdefault(av[1])) {
187	if (!sscanf(av[1], "%lf", &begin))
188	begin = av[1][strlen(av[1])-1];
189	mask \|= 04;
190	if (!prec)
191	prec = getprec(av[1]);
192	if (n > prec) /* maximum precision */
193	prec = n;
194	}
195	case 1:
196	if (!isdefault(av[0])) {
197	if (!sscanf(av[0], "%ld", &reps))
198	error("Bad reps value: %s", av[0]);
199	mask \|= 010;
200	}
201	break;
202	case 0:
203	error("jot - print sequential or random data", "");
204	default:
205	error("Too many arguments. What do you mean by %s?", av[4]);
206	}
207	getformat();
208	while (mask) /* 4 bit mask has 1's where last 4 args were given */
209	switch (mask) { /* fill in the 0's by default or computation */
210	case 001:
211	reps = REPS_DEF;
212	mask = 011;
213	break;
214	case 002:
215	reps = REPS_DEF;
216	mask = 012;
217	break;
218	case 003:
219	reps = REPS_DEF;
220	mask = 013;
221	break;
222	case 004:
223	reps = REPS_DEF;
224	mask = 014;
225	break;
226	case 005:
227	reps = REPS_DEF;
228	mask = 015;
229	break;
230	case 006:
231	reps = REPS_DEF;
232	mask = 016;
233	break;
234	case 007:
235	if (randomize) {
236	reps = REPS_DEF;
237	mask = 0;
238	break;
239	}
240	if (s == 0.0) {
241	reps = 0;
242	mask = 0;
243	break;
244	}
245	reps = (ender - begin + s) / s;
246	if (reps <= 0)
247	error("Impossible stepsize", "");
248	mask = 0;
249	break;
250	case 010:
251	begin = BEGIN_DEF;
252	mask = 014;
253	break;
254	case 011:
255	begin = BEGIN_DEF;
256	mask = 015;
257	break;
258	case 012:
259	s = (randomize ? time(0) : STEP_DEF);
260	mask = 013;
261	break;
262	case 013:
263	if (randomize)
264	begin = BEGIN_DEF;
265	else if (reps == 0)
266	error("Must specify begin if reps == 0", "");
267	begin = ender - reps * s + s;
268	mask = 0;
269	break;
270	case 014:
271	s = (randomize ? time(0) : STEP_DEF);
272	mask = 015;
273	break;
274	case 015:
275	if (randomize)
276	ender = ENDER_DEF;
277	else
278	ender = begin + reps * s - s;
279	mask = 0;
280	break;
281	case 016:
282	if (randomize)
283	s = time(0);
284	else if (reps == 0)
285	error("Infinite sequences cannot be bounded",
286	"");
287	else if (reps == 1)
288	s = 0.0;
289	else
290	s = (ender - begin) / (reps - 1);
291	mask = 0;
292	break;
293	case 017: /* if reps given and implied, */
294	if (!randomize && s != 0.0) {
295	long t = (ender - begin + s) / s;
296	if (t <= 0)
297	error("Impossible stepsize", "");
298	if (t < reps) /* take lesser */
299	reps = t;
300	}
301	mask = 0;
302	break;
303	default:
304	error("Bad mask", "");
305	}
306	if (reps == 0)
307	infinity = 1;
308	}
309
310	void
311	putdata(x, notlast)
312	double x;
313	long notlast;
314	{
315	long d = x;
316	long *dp = &d;
317
318	if (boring) /* repeated word */
319	printf("%s", format);
320	else if (dox) /* scalar */
321	printf(format, *dp);
322	else /* real */
323	printf(format, x);
324	if (notlast != 0)
325	fputs(sepstring, stdout);
326	}
327
328	void
329	error(msg, s)
330	char msg, s;
331	{
332	warnx(msg, s);
333	fprintf(stderr,
334	"\nusage: jot [ options ] [ reps [ begin [ end [ s ] ] ] ]\n");
335	if (strncmp("jot - ", msg, 6) == 0)
336	fprintf(stderr, "Options:\n\t%s\t%s\t%s\t%s\t%s\t%s\t%s",
337	"-r random data\n",
338	"-c character data\n",
339	"-n no final newline\n",
340	"-b word repeated word\n",
341	"-w word context word\n",
342	"-s string data separator\n",
343	"-p precision number of characters\n");
344	exit(1);
345	}
346
347	int
348	getprec(s)
349	char *s;
350	{
351	char *p;
352	char *q;
353
354	for (p = s; *p; p++)
355	if (*p == '.')
356	break;
357	if (!*p)
358	return (0);
359	for (q = ++p; *p; p++)
360	if (!isdigit(*p))
361	break;
362	return (p - q);
363	}
364
365	void
366	getformat()
367	{
368	char *p;
369
370	if (boring) /* no need to bother */
371	return;
372	for (p = format; p; p++) / look for '%' */
373	if (p == '%' && (p+1) != '%') /* leave %% alone */
374	break;
375	if (!*p && !chardata)
376	sprintf(p, "%%.%df", prec);
377	else if (!*p && chardata) {
378	strcpy(p, "%c");
379	dox = 1;
380	}
381	else if (!*(p+1))
382	strcat(format, "%"); /* cannot end in single '%' */
383	else {
384	while (!isalpha(*p))
385	p++;
386	switch (*p) {
387	case 'f': case 'e': case 'g': case '%':
388	break;
389	case 's':
390	error("Cannot convert numeric data to strings", "");
391	break;
392	/* case 'd': case 'o': case 'x': case 'D': case 'O': case 'X':
393	case 'c': case 'u': */
394	default:
395	dox = 1;
396	break;
397	}
398	}
399	}