1 bc7cb1a1 2003-11-23 devnull #include <u.h>
 2 bc7cb1a1 2003-11-23 devnull #include <libc.h>
 3 bc7cb1a1 2003-11-23 devnull 
 4 bc7cb1a1 2003-11-23 devnull double	min = 1.0;
 5 bc7cb1a1 2003-11-23 devnull double	max = 0.0;
 6 bc7cb1a1 2003-11-23 devnull double	incr = 1.0;
 7 bc7cb1a1 2003-11-23 devnull int	constant = 0;
 8 bc7cb1a1 2003-11-23 devnull int	nsteps;
 9 bc7cb1a1 2003-11-23 devnull char	*format;
10 bc7cb1a1 2003-11-23 devnull 
11 bc7cb1a1 2003-11-23 devnull void
12 bc7cb1a1 2003-11-23 devnull usage(void)
13 bc7cb1a1 2003-11-23 devnull {
14 bc7cb1a1 2003-11-23 devnull 	fprint(2, "usage: seq [-fformat] [-w] [first [incr]] last\n");
15 bc7cb1a1 2003-11-23 devnull 	exits("usage");
16 bc7cb1a1 2003-11-23 devnull }
17 bc7cb1a1 2003-11-23 devnull 
18 bc7cb1a1 2003-11-23 devnull void
19 bc7cb1a1 2003-11-23 devnull buildfmt(void)
20 bc7cb1a1 2003-11-23 devnull {
21 bc7cb1a1 2003-11-23 devnull 	int i;
22 bc7cb1a1 2003-11-23 devnull 	char *dp;
23 bc7cb1a1 2003-11-23 devnull 	int w, p, maxw, maxp;
24 bc7cb1a1 2003-11-23 devnull 	static char fmt[16];
25 bc7cb1a1 2003-11-23 devnull 	char buf[32];
26 bc7cb1a1 2003-11-23 devnull 
27 bc7cb1a1 2003-11-23 devnull 	format = "%g\n";
28 bc7cb1a1 2003-11-23 devnull 	if(!constant)
29 bc7cb1a1 2003-11-23 devnull 		return;
30 bc7cb1a1 2003-11-23 devnull 	maxw = 0;
31 bc7cb1a1 2003-11-23 devnull 	maxp = 0;
32 bc7cb1a1 2003-11-23 devnull 	for(i=0; i<=nsteps; i++){
33 bc7cb1a1 2003-11-23 devnull 		sprint(buf, "%g", min+i*incr);
34 bc7cb1a1 2003-11-23 devnull 		if(strchr(buf, 'e')!=0)
35 bc7cb1a1 2003-11-23 devnull 			return;
36 bc7cb1a1 2003-11-23 devnull 		dp = strchr(buf,'.');
37 bc7cb1a1 2003-11-23 devnull 		w = dp==0? strlen(buf): dp-buf;
38 bc7cb1a1 2003-11-23 devnull 		p = dp==0? 0: strlen(strchr(buf,'.')+1);
39 bc7cb1a1 2003-11-23 devnull 		if(w>maxw)
40 bc7cb1a1 2003-11-23 devnull 			maxw = w;
41 bc7cb1a1 2003-11-23 devnull 		if(p>maxp)
42 bc7cb1a1 2003-11-23 devnull 			maxp = p;
43 bc7cb1a1 2003-11-23 devnull 	}
44 bc7cb1a1 2003-11-23 devnull 	if(maxp > 0)
45 bc7cb1a1 2003-11-23 devnull 		maxw += maxp+1;
46 bc7cb1a1 2003-11-23 devnull 	sprint(fmt,"%%%d.%df\n", maxw, maxp);
47 bc7cb1a1 2003-11-23 devnull 	format = fmt;
48 bc7cb1a1 2003-11-23 devnull }
49 bc7cb1a1 2003-11-23 devnull 
50 bc7cb1a1 2003-11-23 devnull void
51 bc7cb1a1 2003-11-23 devnull main(int argc, char *argv[]){
52 bc7cb1a1 2003-11-23 devnull 	int i, j, n;
53 bc7cb1a1 2003-11-23 devnull 	char buf[256], ffmt[4096];
54 bc7cb1a1 2003-11-23 devnull 
55 bc7cb1a1 2003-11-23 devnull 	ARGBEGIN{
56 bc7cb1a1 2003-11-23 devnull 	case 'w':
57 bc7cb1a1 2003-11-23 devnull 		constant++;
58 bc7cb1a1 2003-11-23 devnull 		break;
59 bc7cb1a1 2003-11-23 devnull 	case 'f':
60 bc7cb1a1 2003-11-23 devnull 		format = ARGF();
61 bc7cb1a1 2003-11-23 devnull 		if(format[strlen(format)-1] != '\n'){
62 bc7cb1a1 2003-11-23 devnull 			sprint(ffmt, "%s\n", format);
63 bc7cb1a1 2003-11-23 devnull 			format = ffmt;
64 bc7cb1a1 2003-11-23 devnull 		}
65 bc7cb1a1 2003-11-23 devnull 		break;
66 bc7cb1a1 2003-11-23 devnull 	default:
67 bc7cb1a1 2003-11-23 devnull 		goto out;
68 bc7cb1a1 2003-11-23 devnull 	}ARGEND
69 bc7cb1a1 2003-11-23 devnull     out:
70 bc7cb1a1 2003-11-23 devnull 	if(argc<1 || argc>3)
71 bc7cb1a1 2003-11-23 devnull 		usage();
72 bc7cb1a1 2003-11-23 devnull 	max = atof(argv[argc-1]);
73 bc7cb1a1 2003-11-23 devnull 	if(argc > 1)
74 bc7cb1a1 2003-11-23 devnull 		min = atof(argv[0]);
75 bc7cb1a1 2003-11-23 devnull 	if(argc > 2)
76 bc7cb1a1 2003-11-23 devnull 		incr = atof(argv[1]);
77 bc7cb1a1 2003-11-23 devnull 	if(incr == 0){
78 bc7cb1a1 2003-11-23 devnull 		fprint(2, "seq: zero increment\n");
79 bc7cb1a1 2003-11-23 devnull 		exits("zero increment");
80 bc7cb1a1 2003-11-23 devnull 	}
81 bc7cb1a1 2003-11-23 devnull 	nsteps = (max-min)/incr+.5;
82 bc7cb1a1 2003-11-23 devnull 	if(!format)
83 bc7cb1a1 2003-11-23 devnull 		buildfmt();
84 bc7cb1a1 2003-11-23 devnull 	for(i=0; i<=nsteps; i++){
85 bc7cb1a1 2003-11-23 devnull 		n = sprint(buf, format, min+i*incr);
86 bc7cb1a1 2003-11-23 devnull 		if(constant)
87 bc7cb1a1 2003-11-23 devnull 			for(j=0; buf[j]==' '; j++)
88 bc7cb1a1 2003-11-23 devnull 				buf[j] ='0';
89 bc7cb1a1 2003-11-23 devnull 		write(1, buf, n);
90 bc7cb1a1 2003-11-23 devnull 	}
91 bc7cb1a1 2003-11-23 devnull 	exits(0);
92 bc7cb1a1 2003-11-23 devnull }