1 /* seq - print sequence of numbers to standard output.
2 Copyright (C) 94, 1995 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. */
29 static double scan_double_arg __P ((const char *arg));
30 static int check_format __P ((const char *format_string));
31 static char *get_width_format __P ((void));
32 static int print_numbers __P ((const char *format_str));
34 /* If nonzero print all number with equal width. */
35 static int equal_width;
37 /* The printf(3) format used for output. */
38 static char *format_str;
40 /* The starting number. */
43 /* The name that this program was run with. */
46 /* The string used to separate two numbers. */
47 static char *separator;
49 /* The string output after all numbers have been output.
50 Usually "\n" or "\0". */
51 /* FIXME: make this an option. */
52 static char *terminator = "\n";
54 /* If nonzero, display usage information and exit. */
57 /* If nonzero, print the version on standard output and exit. */
58 static int show_version;
63 /* The last number. */
66 static struct option const long_options[] =
68 { "equal-width", no_argument, NULL, 'w'},
69 { "format", required_argument, NULL, 'f'},
70 { "help", no_argument, &show_help, 1},
71 { "separator", required_argument, NULL, 's'},
72 { "version", no_argument, &show_version, 1},
80 (void) fprintf (stderr, _("Try `%s --help' for more information.\n"),
85 Usage: %s [OPTION]... [FIRST [step]] LAST\n\
89 -f, --format FORMAT use printf(3) style FORMAT (default: %%g)\n\
90 --help display this help and exit\n\
91 -s, --separator STRING use STRING for separating numbers (default: \\n)\n\
92 --version output version information and exit\n\
93 -w, --equal-width equalize width by padding with leading zeroes\n\
95 FROM, STEP, TO are interpreted as floating point. STEP should be > 0 if\n\
96 FROM is smaller than TO and vice versa. When given, the FORMAT argument\n\
97 must contain exactly one of the float output formats %%e, %%f, or %%g.\n\
104 main (int argc, char **argv)
110 program_name = argv[0];
111 setlocale (LC_ALL, "");
112 bindtextdomain (PACKAGE, LOCALEDIR);
113 textdomain (PACKAGE);
121 /* We have to handle negative numbers in the command line but this
122 conflicts with the command line arguments. So the getopt mode is
123 REQUIRE_ORDER (the '+' in the format string) and it abort on the
124 first non-option or negative number. */
125 while ((optc = getopt_long (argc, argv, "+0123456789f:s:w", long_options,
128 if ('0' <= optc && optc <= '9')
130 /* means negative number */
159 (void) printf ("seq - %s\n", PACKAGE_VERSION);
171 error (0, 0, _("too few arguments"));
175 last = scan_double_arg (argv[optind++]);
180 last = scan_double_arg (argv[optind++]);
186 last = scan_double_arg (argv[optind++]);
196 if (format_str != NULL && equal_width)
199 format string may not be specified when printing equal width strings"));
205 step = first <= last ? 1.0 : -1.0;
208 if (format_str != NULL)
210 if (!check_format (format_str))
212 error (0, 0, _("invalid format string: `%s'"), format_str);
219 format_str = get_width_format ();
224 errs = print_numbers (format_str);
230 /* Read a double value from the command line.
231 Return if the string is correct else signal error. */
234 scan_double_arg (const char *arg)
238 if (xstrtod (arg, NULL, &ret_val))
240 error (0, 0, _("invalid floating point argument: %s"), arg);
248 /* Check whether the format string is valid for a single double
250 Return 0 if not, 1 if correct. */
253 check_format (const char *format_string)
255 while (*format_string != '\0')
257 if (*format_string == '%')
260 if (*format_string != '%')
266 if (*format_string == '\0')
269 format_string += strspn (format_string, "-+#0");
270 if (isdigit (*format_string))
272 format_string += strspn (format_string, "012345789");
274 if (*format_string == '.')
275 format_string += strspn (++format_string, "0123456789");
278 if (*format_string != 'e' && *format_string != 'f' &&
279 *format_string != 'g')
283 while (*format_string != '\0')
285 if (*format_string == '%')
288 if (*format_string != '%')
298 #if defined (HAVE_RINT) && defined (HAVE_MODF) && defined (HAVE_FLOOR)
300 /* Return a printf-style format string with which all selected numbers
301 will format to strings of the same width. */
306 static char buffer[256];
316 min_val = first - step * floor ((first - last) / step);
322 max_val = first + step * floor ((last - first) / step);
325 (void) sprintf (buffer, "%g", rint (max_val));
326 if (buffer[strspn (buffer, "0123456789")] != '\0')
328 width1 = strlen (buffer);
332 (void) sprintf (buffer, "%g", rint (min_val));
333 if (buffer[strspn (buffer, "-0123456789")] != '\0')
335 width2 = strlen (buffer);
337 width1 = width1 > width2 ? width1 : width2;
341 (void) sprintf (buffer, "%g", 1.0 + modf (min_val, &temp));
342 width1 = strlen (buffer);
347 if (buffer[0] != '1' || buffer[1] != '.' ||
348 buffer[2 + strspn (&buffer[2], "0123456789")] != '\0')
353 (void) sprintf (buffer, "%g", 1.0 + modf (step, &temp));
354 width2 = strlen (buffer);
359 if (buffer[0] != '1' || buffer[1] != '.' ||
360 buffer[2 + strspn (&buffer[2], "0123456789")] != '\0')
364 frac_width = width1 > width2 ? width1 : width2;
367 (void) sprintf (buffer, "%%0%d.%df", full_width + 1 + frac_width, frac_width);
369 (void) sprintf (buffer, "%%0%dg", full_width);
374 #else /* one of the math functions rint, modf, floor is missing. */
377 get_width_format (void)
379 /* We cannot compute the needed information to determine the correct
380 answer. So we simply return a value that works for all cases. */
386 /* Actually print the sequence of numbers in the specified range, with the
387 given or default stepping and format. */
389 print_numbers (const char *format_str)
397 error (0, 0, _("invalid increment: %g"), step);
402 printf (format_str, first);
403 for (i = 0; /* empty */; i++)
405 double x = first + i * step;
410 fputs (separator, stdout);
411 printf (format_str, x);
420 error (0, 0, _("invalid increment: %g"), step);
425 printf (format_str, first);
426 for (i = 1; /* empty */; i++)
428 double x = first + i * step;
433 fputs (separator, stdout);
434 printf (format_str, x);
437 fputs (terminator, stdout);