From Ulrich Drepper.

1 files changed, 421 insertions, 0 deletions

diff --git a/src/seq.c b/src/seq.c
new file mode 100644
index 000000000..25728ada7
--- /dev/null
+++ b/src/seq.c
@@ -0,0 +1,421 @@
+/* seq - print sequence of numbers to standard output.
+   Copyright (C) 1994 Free Software Foundation, Inc.
+
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2, or (at your option)
+   any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+/* Ulrich Drepper */
+
+#include <ctype.h>
+#include <getopt.h>
+#include <math.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "version.h"
+
+static void usage ();
+static double scan_double_arg ();
+static int check_format ();
+static char *get_width_format ();
+static int print_numbers ();
+
+/* If non-zero print all number with equal width. */
+static int equal_width;
+
+/* The printf(3) format used for output. */
+static char *format_str;
+
+/* The starting number. */
+static double from;
+
+/* The name that this program was run with. */
+char *program_name;
+
+/* The string used to seperate two number. */
+static char *seperator;
+
+/* If non-zero, display usage information and exit.  */
+static int show_help;
+
+/* If non-zero, print the version on standard output and exit.  */
+static int show_version;
+
+/* The increment. */
+static double step;
+
+/* The last number. */
+static double last;
+
+static struct option const long_options[] =
+{
+  {
+    "equal-width", no_argument, NULL, 'w'
+  },
+  {
+    "format", required_argument, NULL, 'f'
+  },
+  {
+    "help", no_argument, &show_help, 1
+  },
+  {
+    "seperator", required_argument, NULL, 's'
+  },
+  {
+    "version", no_argument, &show_version, 1
+  },
+  {
+    NULL, 0, NULL, 0
+  }
+};
+
+static void
+usage (status)
+     int status;
+{
+  if (status != 0)
+    (void) fprintf (stderr, "Try `%s --help' for more information.\n",
+		    program_name);
+  else
+    {
+      (void) printf ("\
+Usage: %s [OPTION]... [from [step]] to\n\
+", program_name);
+      (void) printf ("\
+\n\
+  -f, --format FORMAT      use printf(3) style FORMAT (default: %%g)\n\
+      --help               display this help and exit\n\
+  -s, --seperator STRING   use STRING for seperating numbers (default: \\n)\n\
+      --version            output version information and exit\n\
+  -w, --equal-width        equalize width by padding with leading zeroes\n\
+\n\
+  FROM, STEP, TO are interpreted as floating point.  STEP has to be > 0 if\n\
+  FROM is bigger than TO and vice versa.  When given the FORMAT argument\n\
+  of the -f option has to contain exactly one of the float output formats\n\
+  %%e, %%f, or %%g.\n\
+");
+    }
+  exit (status);
+}
+
+void
+main (argc, argv)
+     int argc;
+     char **argv;
+{
+  int errs;
+  int optc;
+  int step_is_set;
+
+  program_name = argv[0];
+  equal_width = 0;
+  format_str = NULL;
+  seperator = "\n";
+  from = 1.0;
+  step_is_set = 0;
+
+  /* We have to handle negative numbers in the command line but this 
+     conflicts with the command line arguments.  So the getopt mode is
+     REQUIRE_ORDER (the '+' in the format string) and it abort on the
+     first non-option or negative number.  */
+  while ((optc = getopt_long (argc, argv, "+0123456789f:s:w", long_options,
+			      (int *) 0)) != EOF)
+    {
+      if ('0' <= optc && optc <= '9')
+	{
+	  /* means negative number */
+	  break;
+	}
+
+      switch (optc)
+	{
+	case 0:
+	  break;
+
+	case 'f':
+	  format_str = optarg;
+	  break;
+
+	case 's':
+	  seperator = optarg;
+	  break;
+
+	case 'w':
+	  equal_width = 1;
+	  break;
+
+	default:
+	  usage (1);
+	  /* NOTREACHED */
+	}
+    }
+
+  if (show_version)
+    {
+      (void) printf ("seq - %s\n", version_string);
+    }
+
+  if (show_help)
+    {
+      usage (0);
+      /* NOTREACHED */
+    }
+
+  if (optind >= argc)
+    {
+      usage (2);
+      /* NOTREACHED */
+    }
+  last = scan_double_arg (argv[optind++]);
+
+  if (optind < argc)
+    {
+      from = last;
+      last = scan_double_arg (argv[optind++]);
+
+      if (optind < argc)
+	{
+	  step = last;
+	  step_is_set = 1;
+	  last = scan_double_arg (argv[optind++]);
+
+	  if (optind < argc)
+	    {
+	      usage (2);
+	      /* NOTREACHED */
+	    }
+	}
+    }
+
+  if (!step_is_set)
+    {
+      step = from < last ? 1.0 : -1.0;
+    }
+
+  if (format_str != NULL)
+    {
+      if (!check_format (format_str))
+	{
+	  fprintf (stderr, "illegal format string\n");
+	  usage (4);
+	}
+    }
+  else
+    {
+      if (equal_width)
+	format_str = get_width_format ();
+      else
+	format_str = "%g";
+    }
+
+  errs = print_numbers (format_str);
+
+  exit (errs);
+  /* NOTREACHED */
+}
+
+/* Read an double value from the command line.
+   Return if the string is correct else signal error.  */
+
+static double
+scan_double_arg (arg)
+     char *arg;
+{
+  char *end_ptr;
+  double ret_val;
+
+  ret_val = strtod (arg, &end_ptr);
+  if (end_ptr == arg || *end_ptr != '\0')
+    {
+      fprintf (stderr, "illegal float argument: %s\n", arg);
+      usage (2);
+      /* NOTREACHED */
+    }
+
+  return ret_val;
+}
+
+/* Check whether the format string is valid for a single double
+   argument.
+   Return 0 if not, 1 if correct.  */
+
+static int
+check_format (format_string)
+     char *format_string;
+{
+  while (*format_string != '\0')
+    {
+      if (*format_string == '%')
+	{
+	  format_string++;
+	  if (*format_string != '%')
+	    break;
+	}
+
+      format_string++;
+    }
+  if (*format_string == '\0')
+    return 0;
+
+  format_string += strspn (format_string, "-+#0");
+  if (isdigit (*format_string))
+    {
+      format_string += strspn (format_string, "012345789");
+
+      if (*format_string == '.')
+	format_string += strspn (++format_string, "0123456789");
+    }
+
+  if (*format_string != 'e' && *format_string != 'f' &&
+      *format_string != 'g')
+    return 0;
+
+  format_string++;
+  while (*format_string != '\0')
+    {
+      if (*format_string == '%')
+	{
+	  format_string++;
+	  if (*format_string != '%')
+	    return 0;
+	}
+
+      format_string++;
+    }
+
+  return 1;
+}
+
+/* Returns the format for that all printed numbers have the same width.  */
+static char *
+get_width_format ()
+{
+  static char buffer[256];
+  int full_width;
+  int frac_width;
+  int width1, width2;
+  double max_val;
+  double min_val;
+  double temp;
+
+  if (from > last)
+    {
+      min_val = from - step * floor ((from - last) / step);
+      max_val = from;
+    }
+  else
+    {
+      min_val = from;
+      max_val = from + step * floor ((last - from) / step);
+    }
+
+  (void) sprintf (buffer, "%g", rint (max_val));
+  if (buffer[strspn (buffer, "0123456789")] != '\0')
+    return "%g";
+  width1 = strlen (buffer);
+
+  if (min_val < 0.0)
+    {
+      (void) sprintf (buffer, "%g", rint (min_val));
+      if (buffer[strspn (buffer, "-0123456789")] != '\0')
+	return "%g";
+      width2 = strlen (buffer);
+
+      width1 = width1 > width2 ? width1 : width2;
+    }
+  full_width = width1;
+
+  (void) sprintf (buffer, "%g", 1.0 + modf (min_val, &temp));
+  width1 = strlen (buffer);
+  if (width1 == 1)
+    width1 = 0;
+  else
+    {
+      if (buffer[0] != '1' || buffer[1] != '.' ||
+	  buffer[2 + strspn (&buffer[2], "0123456789")] != '\0')
+	return "%g";
+      width1 -= 2;
+    }
+
+  (void) sprintf (buffer, "%g", 1.0 + modf (step, &temp));
+  width2 = strlen (buffer);
+  if (width2 == 1)
+    width2 = 0;
+  else
+    {
+      if (buffer[0] != '1' || buffer[1] != '.' ||
+	  buffer[2 + strspn (&buffer[2], "0123456789")] != '\0')
+	return "%g";
+      width2 -= 2;
+    }
+  frac_width = width1 > width2 ? width1 : width2;
+
+  if (frac_width)
+    (void) sprintf (buffer, "%%0%d.%df", full_width + 1 + frac_width, frac_width);
+  else
+    (void) sprintf (buffer, "%%0%dg", full_width);
+
+  return buffer;
+}
+
+/* Actually print the sequence of numbers in the specified range, with the
+   given or default stepping and format.  */
+static int
+print_numbers (format_str)
+     char *format_str;
+{
+  if (from > last)
+    {
+      if (step >= 0)
+	{
+	  (void) fprintf (stderr, "illegal increment: %g\n", step);
+	  usage (2);
+	  /* NOTREACHED */
+	}
+
+      while (1)
+	{
+	  (void) printf (format_str, from);
+
+	  from += step;
+	  if (from < last)
+	    break;
+
+	  (void) fputs (seperator, stdout);
+	}
+    }
+  else
+    {
+      if (step <= 0)
+	{
+	  (void) fprintf (stderr, "illegal increment: %g\n", step);
+	  usage (2);
+	  /* NOTREACHED */
+	}
+
+      while (1)
+	{
+	  (void) printf (format_str, from);
+
+	  from += step;
+	  if (from > last)
+	    break;
+
+	  (void) fputs (seperator, stdout);
+	}
+    }
+
+  return 0;
+}