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 	char *dp;
 22 bc7cb1a1 2003-11-23 devnull 	int w, p, maxw, maxp;
 23 bc7cb1a1 2003-11-23 devnull 	static char fmt[16];
 24 bc7cb1a1 2003-11-23 devnull 	char buf[32];
 25 470dce9d 2006-10-12 devnull 	double val;
 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 470dce9d 2006-10-12 devnull 	for(val = min; val <= max; val += incr){
 33 470dce9d 2006-10-12 devnull 		sprint(buf, "%g", val);
 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 470dce9d 2006-10-12 devnull 	int j, n;
 53 bc7cb1a1 2003-11-23 devnull 	char buf[256], ffmt[4096];
 54 470dce9d 2006-10-12 devnull 	double val;
 55 bc7cb1a1 2003-11-23 devnull 
 56 bc7cb1a1 2003-11-23 devnull 	ARGBEGIN{
 57 bc7cb1a1 2003-11-23 devnull 	case 'w':
 58 bc7cb1a1 2003-11-23 devnull 		constant++;
 59 bc7cb1a1 2003-11-23 devnull 		break;
 60 bc7cb1a1 2003-11-23 devnull 	case 'f':
 61 bc7cb1a1 2003-11-23 devnull 		format = ARGF();
 62 bc7cb1a1 2003-11-23 devnull 		if(format[strlen(format)-1] != '\n'){
 63 bc7cb1a1 2003-11-23 devnull 			sprint(ffmt, "%s\n", format);
 64 bc7cb1a1 2003-11-23 devnull 			format = ffmt;
 65 bc7cb1a1 2003-11-23 devnull 		}
 66 bc7cb1a1 2003-11-23 devnull 		break;
 67 bc7cb1a1 2003-11-23 devnull 	default:
 68 bc7cb1a1 2003-11-23 devnull 		goto out;
 69 bc7cb1a1 2003-11-23 devnull 	}ARGEND
 70 bc7cb1a1 2003-11-23 devnull     out:
 71 bc7cb1a1 2003-11-23 devnull 	if(argc<1 || argc>3)
 72 bc7cb1a1 2003-11-23 devnull 		usage();
 73 bc7cb1a1 2003-11-23 devnull 	max = atof(argv[argc-1]);
 74 bc7cb1a1 2003-11-23 devnull 	if(argc > 1)
 75 bc7cb1a1 2003-11-23 devnull 		min = atof(argv[0]);
 76 bc7cb1a1 2003-11-23 devnull 	if(argc > 2)
 77 bc7cb1a1 2003-11-23 devnull 		incr = atof(argv[1]);
 78 bc7cb1a1 2003-11-23 devnull 	if(incr == 0){
 79 bc7cb1a1 2003-11-23 devnull 		fprint(2, "seq: zero increment\n");
 80 bc7cb1a1 2003-11-23 devnull 		exits("zero increment");
 81 bc7cb1a1 2003-11-23 devnull 	}
 82 bc7cb1a1 2003-11-23 devnull 	if(!format)
 83 bc7cb1a1 2003-11-23 devnull 		buildfmt();
 84 470dce9d 2006-10-12 devnull 	if(incr > 0){
 85 470dce9d 2006-10-12 devnull 		for(val = min; val <= max; val += incr){
 86 470dce9d 2006-10-12 devnull 			n = sprint(buf, format, val);
 87 470dce9d 2006-10-12 devnull 			if(constant)
 88 470dce9d 2006-10-12 devnull 				for(j=0; buf[j]==' '; j++)
 89 470dce9d 2006-10-12 devnull 					buf[j] ='0';
 90 470dce9d 2006-10-12 devnull 			write(1, buf, n);
 91 470dce9d 2006-10-12 devnull 		}
 92 470dce9d 2006-10-12 devnull 	}else{
 93 470dce9d 2006-10-12 devnull 		for(val = min; val >= max; val += incr){
 94 470dce9d 2006-10-12 devnull 			n = sprint(buf, format, val);
 95 470dce9d 2006-10-12 devnull 			if(constant)
 96 470dce9d 2006-10-12 devnull 				for(j=0; buf[j]==' '; j++)
 97 470dce9d 2006-10-12 devnull 					buf[j] ='0';
 98 470dce9d 2006-10-12 devnull 			write(1, buf, n);
 99 470dce9d 2006-10-12 devnull 		}
100 bc7cb1a1 2003-11-23 devnull 	}
101 bc7cb1a1 2003-11-23 devnull 	exits(0);
102 bc7cb1a1 2003-11-23 devnull }