1 /* seq - print sequence of numbers to standard output.
2 Copyright (C) 94, 1995, 96 Free Software Foundation, Inc.
4 This program is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 2, or (at your option)
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software Foundation,
16 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
18 /* Written by Ulrich Drepper. */
24 #include <sys/types.h>
30 static double scan_double_arg __P ((const char *arg));
31 static int check_format __P ((const char *format_string));
32 static char *get_width_format __P ((void));
33 static int print_numbers __P ((const char *format_str));
35 /* If nonzero print all number with equal width. */
36 static int equal_width;
38 /* The printf(3) format used for output. */
39 static char *format_str;
41 /* The starting number. */
44 /* The name that this program was run with. */
47 /* The string used to separate two numbers. */
48 static char *separator;
50 /* The string output after all numbers have been output.
51 Usually "\n" or "\0". */
52 /* FIXME: make this an option. */
53 static char *terminator = "\n";
55 /* If nonzero, display usage information and exit. */
58 /* If nonzero, print the version on standard output and exit. */
59 static int show_version;
64 /* The last number. */
67 static struct option const long_options[] =
69 { "equal-width", no_argument, NULL, 'w'},
70 { "format", required_argument, NULL, 'f'},
71 { "help", no_argument, &show_help, 1},
72 { "separator", required_argument, NULL, 's'},
73 { "version", no_argument, &show_version, 1},
81 fprintf (stderr, _("Try `%s --help' for more information.\n"),
86 Usage: %s [OPTION]... LAST\n\
87 or: %s [OPTION]... FIRST LAST\n\
88 or: %s [OPTION]... FIRST INCREMENT LAST\n\
89 "), program_name, program_name, program_name);
91 Print numbers from FIRST (default 1) to LAST, moving by STEP (default 1).\n\
93 -f, --format FORMAT use printf(3) style FORMAT (default: %%g)\n\
94 -s, --separator STRING use STRING for separating numbers (default: \\n)\n\
95 -w, --equal-width equalize width by padding with leading zeroes\n\
96 --help display this help and exit\n\
97 --version output version information and exit\n\
99 FIRST, INCREMENT, and LAST are interpreted as floating point values.\n\
100 INCREMENT should be positive if FIRST is smaller than LAST, and negative\n\
101 otherwise. When given, the FORMAT argument must contain exactly one of\n\
102 the printf-style, floating point output formats %%e, %%f, or %%g.\n\
104 puts (_("\nReport bugs to sh-utils-bugs@gnu.ai.mit.edu"));
110 main (int argc, char **argv)
116 program_name = argv[0];
117 setlocale (LC_ALL, "");
118 bindtextdomain (PACKAGE, LOCALEDIR);
119 textdomain (PACKAGE);
127 /* We have to handle negative numbers in the command line but this
128 conflicts with the command line arguments. So the getopt mode is
129 REQUIRE_ORDER (the '+' in the format string) and it abort on the
130 first non-option or negative number. */
131 while ((optc = getopt_long (argc, argv, "+0123456789f:s:w", long_options,
134 if ('0' <= optc && optc <= '9')
136 /* means negative number */
165 printf ("seq (%s) %s\n", GNU_PACKAGE, VERSION);
177 error (0, 0, _("too few arguments"));
181 last = scan_double_arg (argv[optind++]);
186 last = scan_double_arg (argv[optind++]);
192 last = scan_double_arg (argv[optind++]);
202 if (format_str != NULL && equal_width)
205 format string may not be specified when printing equal width strings"));
211 step = first <= last ? 1.0 : -1.0;
214 if (format_str != NULL)
216 if (!check_format (format_str))
218 error (0, 0, _("invalid format string: `%s'"), format_str);
225 format_str = get_width_format ();
230 errs = print_numbers (format_str);
236 /* Read a double value from the command line.
237 Return if the string is correct else signal error. */
240 scan_double_arg (const char *arg)
244 if (xstrtod (arg, NULL, &ret_val))
246 error (0, 0, _("invalid floating point argument: %s"), arg);
254 /* Check whether the format string is valid for a single double
256 Return 0 if not, 1 if correct. */
259 check_format (const char *format_string)
261 while (*format_string != '\0')
263 if (*format_string == '%')
266 if (*format_string != '%')
272 if (*format_string == '\0')
275 format_string += strspn (format_string, "-+#0");
276 if (isdigit (*format_string))
278 format_string += strspn (format_string, "012345789");
280 if (*format_string == '.')
281 format_string += strspn (++format_string, "0123456789");
284 if (*format_string != 'e' && *format_string != 'f' &&
285 *format_string != 'g')
289 while (*format_string != '\0')
291 if (*format_string == '%')
294 if (*format_string != '%')
304 #if defined (HAVE_RINT) && defined (HAVE_MODF) && defined (HAVE_FLOOR)
306 /* Return a printf-style format string with which all selected numbers
307 will format to strings of the same width. */
312 static char buffer[256];
322 min_val = first - step * floor ((first - last) / step);
328 max_val = first + step * floor ((last - first) / step);
331 sprintf (buffer, "%g", rint (max_val));
332 if (buffer[strspn (buffer, "0123456789")] != '\0')
334 width1 = strlen (buffer);
338 sprintf (buffer, "%g", rint (min_val));
339 if (buffer[strspn (buffer, "-0123456789")] != '\0')
341 width2 = strlen (buffer);
343 width1 = width1 > width2 ? width1 : width2;
347 sprintf (buffer, "%g", 1.0 + modf (min_val, &temp));
348 width1 = strlen (buffer);
353 if (buffer[0] != '1' || buffer[1] != '.' ||
354 buffer[2 + strspn (&buffer[2], "0123456789")] != '\0')
359 sprintf (buffer, "%g", 1.0 + modf (step, &temp));
360 width2 = strlen (buffer);
365 if (buffer[0] != '1' || buffer[1] != '.' ||
366 buffer[2 + strspn (&buffer[2], "0123456789")] != '\0')
370 frac_width = width1 > width2 ? width1 : width2;
373 sprintf (buffer, "%%0%d.%df", full_width + 1 + frac_width, frac_width);
375 sprintf (buffer, "%%0%dg", full_width);
380 #else /* one of the math functions rint, modf, floor is missing. */
383 get_width_format (void)
385 /* We cannot compute the needed information to determine the correct
386 answer. So we simply return a value that works for all cases. */
392 /* Actually print the sequence of numbers in the specified range, with the
393 given or default stepping and format. */
395 print_numbers (const char *format_str)
404 _("when the starting value is larger than the limit,\n\
405 the increment must be negative"));
410 printf (format_str, first);
411 for (i = 1; /* empty */; i++)
413 double x = first + i * step;
418 fputs (separator, stdout);
419 printf (format_str, x);
429 _("when the starting value is smaller than the limit,\n\
430 the increment must be positive"));
435 printf (format_str, first);
436 for (i = 1; /* empty */; i++)
438 double x = first + i * step;
443 fputs (separator, stdout);
444 printf (format_str, x);
447 fputs (terminator, stdout);