/* GNU SED, a batch stream editor.
Copyright (C) 1989,90,91,92,93,94,95,98,99,2002,2003,2006,2008,2009
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 3, 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
char *program_name;
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;
/* If set, follow symlinks when processing in place */
bool follow_symlinks = false;
/* How do we edit files in-place? (we don't if NULL) */
char *in_place_extension = NULL;
/* The mode to use to read files, either "rt" or "rb". */
char *read_mode = "rt";
/* 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
contact(errmsg)
int errmsg;
{
FILE *out = errmsg ? stderr : stdout;
#ifndef REG_PERL
fprintf(out, _("GNU sed home page: <http://www.gnu.org/software/sed/>.\n\
General help using GNU software: <http://www.gnu.org/gethelp/>.\n"));
#endif
/* Only print the bug report address for `sed --help', otherwise we'll
get reports for other people's bugs. */
if (!errmsg)
fprintf(out, _("E-mail bug reports to: <%s>.\n\
Be sure to include the word ``%s'' somewhere in the ``Subject:'' field.\n"),
PACKAGE_BUGREPORT, PACKAGE);
}
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"));
#ifdef ENABLE_FOLLOW_SYMLINKS
fprintf(out, _(" --follow-symlinks\n\
follow symlinks when processing in place\n"));
#endif
fprintf(out, _(" -i[SUFFIX], --in-place[=SUFFIX]\n\
edit files in place (makes backup if extension supplied)\n"));
#if defined(WIN32) || defined(_WIN32) || defined(__CYGWIN__) || defined(MSDOS) || defined(__EMX__)
fprintf(out, _(" -b, --binary\n\
open files in binary mode (CR+LFs are not processed specially)\n"));
#endif
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"));
#ifdef REG_PERL
fprintf(out, PERL_HELP);
#endif
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"));
contact (status);
ck_fclose (NULL);
exit (status);
}
int
main(argc, argv)
int argc;
char **argv;
{
#ifdef REG_PERL
#define SHORTOPTS "bsnrRuEe:f:l:i::V:"
#else
#define SHORTOPTS "bsnruEe:f:l:i::V:"
#endif
static struct option longopts[] = {
{"binary", 0, NULL, 'b'},
{"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'},
#ifdef ENABLE_FOLLOW_SYMLINKS
{"follow-symlinks", 0, NULL, 'F'},
#endif
{NULL, 0, NULL, 0}
};
int opt;
int return_code;
const char *cols = getenv("COLS");
program_name = argv[0];
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 'F':
follow_symlinks = true;
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 'b':
read_mode = "rb";
break;
/* Undocumented, for compatibility with BSD sed. */
case 'E':
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, _("Copyright (C) %d Free Software Foundation, Inc.\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_YEAR);
fputc('\n', stdout);
contact(false);
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;
}