Imported Upstream version 4.1.5

1 files changed, 305 insertions, 0 deletions

diff --git a/sed/sed.c b/sed/sed.c
new file mode 100644
index 0000000..8d38566
--- /dev/null
+++ b/sed/sed.c
@@ -0,0 +1,305 @@
+#define COPYRIGHT_NOTICE "Copyright (C) 2003 Free Software Foundation, Inc."
+#define BUG_ADDRESS "bonzini@gnu.org"
+
+/*  GNU SED, a batch stream editor.
+    Copyright (C) 1989,90,91,92,93,94,95,98,99,2002,2003
+    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, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
+
+
+#include "sed.h"
+
+
+#include <stdio.h>
+#ifdef HAVE_STRINGS_H
+# include <strings.h>
+#else
+# include <string.h>
+#endif /*HAVE_STRINGS_H*/
+#ifdef HAVE_MEMORY_H
+# include <memory.h>
+#endif
+
+#ifndef HAVE_STRCHR
+# define strchr index
+# define strrchr rindex
+#endif
+
+#ifdef HAVE_STDLIB_H
+# include <stdlib.h>
+#endif
+
+#ifdef HAVE_SYS_TYPES_H
+# include <sys/types.h>
+#endif
+#include "getopt.h"
+
+#ifndef BOOTSTRAP
+#ifndef HAVE_STDLIB_H
+ extern char *getenv P_((const char *));
+#endif
+#endif
+
+#ifndef HAVE_STRTOUL
+# define ATOI(x)	atoi(x)
+#else
+# define ATOI(x)	strtoul(x, NULL, 0)
+#endif
+
+int extended_regexp_flags = 0;
+
+/* If set, fflush(stdout) on every line output. */
+bool unbuffered_output = false;
+
+/* If set, don't write out the line unless explicitly told to */
+bool no_default_output = false;
+
+/* If set, reset line counts on every new file. */
+bool separate_files = false;
+
+/* How do we edit files in-place? (we don't if NULL) */
+char *in_place_extension = NULL;
+
+/* Do we need to be pedantically POSIX compliant? */
+enum posixicity_types posixicity;
+
+/* How long should the `l' command's output line be? */
+countT lcmd_out_line_len = 70;
+
+/* The complete compiled SED program that we are going to run: */
+static struct vector *the_program = NULL;
+
+static void usage P_((int));
+static void
+usage(status)
+  int status;
+{
+  FILE *out = status ? stderr : stdout;
+
+#ifdef REG_PERL
+#define PERL_HELP _("  -R, --regexp-perl\n                 use Perl 5's regular expressions syntax in the script.\n")
+#else
+#define PERL_HELP ""
+#endif
+
+  fprintf(out, _("\
+Usage: %s [OPTION]... {script-only-if-no-other-script} [input-file]...\n\
+\n"), myname);
+
+  fprintf(out, _("  -n, --quiet, --silent\n\
+                 suppress automatic printing of pattern space\n"));
+  fprintf(out, _("  -e script, --expression=script\n\
+                 add the script to the commands to be executed\n"));
+  fprintf(out, _("  -f script-file, --file=script-file\n\
+                 add the contents of script-file to the commands to be executed\n"));
+  fprintf(out, _("  -i[SUFFIX], --in-place[=SUFFIX]\n\
+                 edit files in place (makes backup if extension supplied)\n"));
+  fprintf(out, _("  -l N, --line-length=N\n\
+                 specify the desired line-wrap length for the `l' command\n"));
+  fprintf(out, _("  --posix\n\
+                 disable all GNU extensions.\n"));
+  fprintf(out, _("  -r, --regexp-extended\n\
+                 use extended regular expressions in the script.\n"));
+  fprintf(out, PERL_HELP);
+  fprintf(out, _("  -s, --separate\n\
+                 consider files as separate rather than as a single continuous\n\
+                 long stream.\n"));
+  fprintf(out, _("  -u, --unbuffered\n\
+                 load minimal amounts of data from the input files and flush\n\
+                 the output buffers more often\n"));
+  fprintf(out, _("      --help     display this help and exit\n"));
+  fprintf(out, _("      --version  output version information and exit\n"));
+  fprintf(out, _("\n\
+If no -e, --expression, -f, or --file option is given, then the first\n\
+non-option argument is taken as the sed script to interpret.  All\n\
+remaining arguments are names of input files; if no input files are\n\
+specified, then the standard input is read.\n\
+\n"));
+  fprintf(out, _("E-mail bug reports to: %s .\n\
+Be sure to include the word ``%s'' somewhere in the ``Subject:'' field.\n"),
+	  BUG_ADDRESS, PACKAGE);
+
+  ck_fclose (NULL);
+  exit (status);
+}
+
+int
+main(argc, argv)
+  int argc;
+  char **argv;
+{
+#ifdef REG_PERL
+#define SHORTOPTS "snrRue:f:l:i::V:"
+#else
+#define SHORTOPTS "snrue:f:l:i::V:"
+#endif
+
+  static struct option longopts[] = {
+    {"regexp-extended", 0, NULL, 'r'},
+#ifdef REG_PERL
+    {"regexp-perl", 0, NULL, 'R'},
+#endif
+    {"expression", 1, NULL, 'e'},
+    {"file", 1, NULL, 'f'},
+    {"in-place", 2, NULL, 'i'},
+    {"line-length", 1, NULL, 'l'},
+    {"quiet", 0, NULL, 'n'},
+    {"posix", 0, NULL, 'p'},
+    {"silent", 0, NULL, 'n'},
+    {"separate", 0, NULL, 's'},
+    {"unbuffered", 0, NULL, 'u'},
+    {"version", 0, NULL, 'v'},
+    {"help", 0, NULL, 'h'},
+    {NULL, 0, NULL, 0}
+  };
+
+  int opt;
+  int return_code;
+  const char *cols = getenv("COLS");
+
+  initialize_main (&argc, &argv);
+#if HAVE_SETLOCALE
+  /* Set locale according to user's wishes.  */
+  setlocale (LC_ALL, "");
+#endif
+  initialize_mbcs ();
+
+#if ENABLE_NLS
+
+  /* Tell program which translations to use and where to find.  */
+  bindtextdomain (PACKAGE, LOCALEDIR);
+  textdomain (PACKAGE);
+#endif
+
+  if (getenv("POSIXLY_CORRECT") != NULL)
+    posixicity = POSIXLY_CORRECT;
+  else
+    posixicity = POSIXLY_EXTENDED;
+
+  /* If environment variable `COLS' is set, use its value for
+     the baseline setting of `lcmd_out_line_len'.  The "-1"
+     is to avoid gratuitous auto-line-wrap on ttys.
+   */
+  if (cols)
+    {
+      countT t = ATOI(cols);
+      if (t > 1)
+	lcmd_out_line_len = t-1;
+    }
+
+  myname = *argv;
+  while ((opt = getopt_long(argc, argv, SHORTOPTS, longopts, NULL)) != EOF)
+    {
+      switch (opt)
+	{
+	case 'n':
+	  no_default_output = true;
+	  break;
+	case 'e':
+	  the_program = compile_string(the_program, optarg, strlen(optarg));
+	  break;
+	case 'f':
+	  the_program = compile_file(the_program, optarg);
+	  break;
+
+	case 'i':
+	  separate_files = true;
+	  if (optarg == NULL)
+	    /* use no backups */
+	    in_place_extension = ck_strdup ("*");
+
+	  else if (strchr(optarg, '*') != NULL)
+	    in_place_extension = ck_strdup(optarg);
+
+	  else
+	    {
+	      in_place_extension = MALLOC (strlen(optarg) + 2, char);
+	      in_place_extension[0] = '*';
+	      strcpy (in_place_extension + 1, optarg);
+	    }
+
+	  break;
+
+	case 'l':
+	  lcmd_out_line_len = ATOI(optarg);
+	  break;
+
+	case 'p':
+	  posixicity = POSIXLY_BASIC;
+	  break;
+
+	case 'r':
+	  if (extended_regexp_flags)
+	    usage(4);
+	  extended_regexp_flags = REG_EXTENDED;
+	  break;
+
+#ifdef REG_PERL
+	case 'R':
+	  if (extended_regexp_flags)
+	    usage(4);
+	  extended_regexp_flags = REG_PERL;
+	  break;
+#endif
+
+	case 's':
+	  separate_files = true;
+	  break;
+
+	case 'u':
+	  unbuffered_output = true;
+	  break;
+
+	case 'v':
+#ifdef REG_PERL
+	  fprintf(stdout, _("super-sed version %s\n"), VERSION);
+	  fprintf(stdout, _("based on GNU sed version %s\n\n"), SED_FEATURE_VERSION);
+#else
+	  fprintf(stdout, _("GNU sed version %s\n"), VERSION);
+#endif
+	  fprintf(stdout, _("%s\n\
+This is free software; see the source for copying conditions.  There is NO\n\
+warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE,\n\
+to the extent permitted by law.\n\
+"), COPYRIGHT_NOTICE);
+	  ck_fclose (NULL);
+	  exit (0);
+	case 'h':
+	  usage(0);
+	default:
+	  usage(4);
+	}
+    }
+
+  if (!the_program)
+    {
+      if (optind < argc)
+	{
+	  char *arg = argv[optind++];
+	  the_program = compile_string(the_program, arg, strlen(arg));
+	}
+      else
+	usage(4);
+    }
+  check_final_program(the_program);
+
+  return_code = process_files(the_program, argv+optind);
+
+  finish_program(the_program);
+  ck_fclose(NULL);
+
+  return return_code;
+}