* Copyright (C) 1999 by Lineo, inc.
* Written by Erik Andersen <andersen@lineo.com>, <andersee@debian.org>
*
+ * Modifications for addresses and append command have been
+ * written by Marco Pantaleoni <panta@prosa.it>, <panta@elasticworld.org>
+ * and are:
+ * Copyright (C) 1999 Marco Pantaleoni.
+ *
* 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 of the License, or
#include <time.h>
#include <ctype.h>
-static const char sed_usage[] =
-"sed [-n] [-e script] [file...]\n"
-"Allowed scripts come in two forms:\n"
-"'/regexp/[gp]'\n"
-"\tattempt to match regexp against the pattern space\n"
-"'s/regexp/replacement/[gp]'\n"
-"\tattempt to match regexp against the pattern space\n"
-"\tand if successful replaces the matched portion with replacement."
-"Options:\n"
-"-e\tadd the script to the commands to be executed\n"
-"-n\tsuppress automatic printing of pattern space\n\n"
+static const char sed_usage[] =
+ "sed [-n] -e script [file...]\n\n"
+ "Allowed sed scripts come in the following form:\n"
+ "\t'ADDR [!] COMMAND'\n\n"
+ "\twhere address ADDR can be:\n"
+ "\t NUMBER Match specified line number\n"
+ "\t $ Match last line\n"
+ "\t /REGEXP/ Match specified regexp\n"
+ "\t (! inverts the meaning of the match)\n\n"
+ "\tand COMMAND can be:\n"
+ "\t s/regexp/replacement/[igp]\n"
+ "\t which attempt to match regexp against the pattern space\n"
+ "\t and if successful replaces the matched portion with replacement.\n\n"
+ "\t aTEXT\n"
+ "\t which appends TEXT after the pattern space\n"
+ "Options:\n"
+ "-e\tadd the script to the commands to be executed\n"
+ "-n\tsuppress automatic printing of pattern space\n\n"
#if defined BB_REGEXP
-"This version of sed matches full regexps.\n";
+ "This version of sed matches full regular expresions.\n";
#else
-"This version of sed matches strings (not full regexps).\n";
+ "This version of sed matches strings (not full regular expresions).\n";
#endif
+/* Flags & variables */
+
+typedef enum { f_none, f_replace, f_append } sed_function;
+
+#define NO_LINE -2
+#define LAST_LINE -1
+static int addr_line = NO_LINE;
+static char *addr_pattern = NULL;
+static int negated = 0;
+
+#define SKIPSPACES(p) do { while (isspace(*(p))) (p)++; } while (0)
-static int replaceFlag = FALSE;
-static int noprintFlag = FALSE;
+#define BUFSIZE 1024
+static inline int at_last(FILE * fp)
+{
+ int res = 0;
+
+ if (feof(fp))
+ return 1;
+ else {
+ char ch;
+ if ((ch = fgetc(fp)) == EOF)
+ res++;
+ ungetc(ch, fp);
+ }
+ return res;
+}
-extern int sed_main (int argc, char **argv)
+static void do_sed_repl(FILE * fp, char *needle, char *newNeedle,
+ int ignoreCase, int printFlag, int quietFlag)
+{
+ int foundOne = FALSE;
+ char haystack[BUFSIZE];
+ int line = 1, doit;
+
+ while (fgets(haystack, BUFSIZE - 1, fp)) {
+ doit = 0;
+ if (addr_pattern) {
+ doit = !find_match(haystack, addr_pattern, FALSE);
+ } else if (addr_line == NO_LINE)
+ doit = 1;
+ else if (addr_line == LAST_LINE) {
+ if (at_last(fp))
+ doit = 1;
+ } else {
+ if (line == addr_line)
+ doit = 1;
+ }
+ if (negated)
+ doit = 1 - doit;
+ if (doit) {
+ foundOne =
+ replace_match(haystack, needle, newNeedle, ignoreCase);
+
+ if (foundOne == TRUE && printFlag == TRUE) {
+ fprintf(stdout, haystack);
+ }
+ }
+
+ if (quietFlag == FALSE) {
+ fprintf(stdout, haystack);
+ }
+
+ line++;
+ }
+}
+
+static void do_sed_append(FILE * fp, char *appendline, int quietFlag)
+{
+ char buffer[BUFSIZE];
+ int line = 1, doit;
+
+ while (fgets(buffer, BUFSIZE - 1, fp)) {
+ doit = 0;
+ if (addr_pattern) {
+ doit = !find_match(buffer, addr_pattern, FALSE);
+ } else if (addr_line == NO_LINE)
+ doit = 1;
+ else if (addr_line == LAST_LINE) {
+ if (at_last(fp))
+ doit = 1;
+ } else {
+ if (line == addr_line)
+ doit = 1;
+ }
+ if (negated)
+ doit = 1 - doit;
+ if (quietFlag == FALSE) {
+ fprintf(stdout, buffer);
+ }
+ if (doit) {
+ fputs(appendline, stdout);
+ fputc('\n', stdout);
+ }
+
+ line++;
+ }
+}
+
+extern int sed_main(int argc, char **argv)
{
FILE *fp;
- const char *needle;
- const char *name;
- const char *cp;
- int tellName=TRUE;
- int ignoreCase=FALSE;
- int tellLine=FALSE;
- long line;
- char haystack[BUF_SIZE];
-
- ignoreCase = FALSE;
- tellLine = FALSE;
+ char *needle = NULL, *newNeedle = NULL;
+ char *name;
+ char *cp;
+ int ignoreCase = FALSE;
+ int printFlag = FALSE;
+ int quietFlag = FALSE;
+ int stopNow;
+ char *line_s = NULL, saved;
+ char *appendline = NULL;
+ char *pos;
+ sed_function sed_f = f_none;
argc--;
argv++;
if (argc < 1) {
- usage(grep_usage);
+ usage(sed_usage);
}
if (**argv == '-') {
argc--;
cp = *argv++;
+ stopNow = FALSE;
- while (*++cp)
+ while (*++cp && stopNow == FALSE) {
switch (*cp) {
case 'n':
- noprintFlag = TRUE;
+ quietFlag = TRUE;
break;
case 'e':
- if (*(*argv)+1 != '\'' && **argv != '\"') {
- if (--argc == 0)
- usage( mkdir_usage);
- ++argv;
- if (*(*argv)+1 != '\'' && **argv != '\"') {
- usage( mkdir_usage);
+ if (*(cp + 1) == 0 && --argc < 0) {
+ usage(sed_usage);
}
- /* Find the specified modes */
- mode = 0;
- if ( parse_mode(*(++argv), &mode) == FALSE ) {
- fprintf(stderr, "Unknown mode: %s\n", *argv);
- exit( FALSE);
+ if (*++cp != 's')
+ cp = *argv++;
+
+ /* Read address if present */
+ SKIPSPACES(cp);
+ if (*cp == '$') {
+ addr_line = LAST_LINE;
+ cp++;
+ } else {
+ if (isdigit(*cp)) { /* LINE ADDRESS */
+ line_s = cp;
+ while (isdigit(*cp))
+ cp++;
+ if (cp > line_s) {
+ /* numeric line */
+ saved = *cp;
+ *cp = '\0';
+ addr_line = atoi(line_s);
+ *cp = saved;
+ }
+ } else if (*cp == '/') { /* PATTERN ADDRESS */
+ pos = addr_pattern = cp + 1;
+ pos = strchr(pos, '/');
+ if (!pos)
+ usage(sed_usage);
+ *pos = '\0';
+ cp = pos + 1;
+ }
}
- break;
- default:
- usage(grep_usage);
- }
- }
+ SKIPSPACES(cp);
+ if (*cp == '!') {
+ negated++;
+ cp++;
+ }
- needle = *argv++;
- argc--;
+ /* Read command */
- while (argc-- > 0) {
- name = *argv++;
+ SKIPSPACES(cp);
+ switch (*cp) {
+ case 's': /* REPLACE */
+ if (strlen(cp) <= 3 || *(cp + 1) != '/')
+ break;
+ sed_f = f_replace;
- fp = fopen (name, "r");
- if (fp == NULL) {
- perror (name);
- continue;
- }
+ pos = needle = cp + 2;
- line = 0;
+ for (;;) {
+ pos = strchr(pos, '/');
+ if (pos == NULL) {
+ usage(sed_usage);
+ }
+ if (*(pos - 1) == '\\') {
+ pos++;
+ continue;
+ }
+ break;
+ }
+ *pos = 0;
+ newNeedle = ++pos;
+ for (;;) {
+ pos = strchr(pos, '/');
+ if (pos == NULL) {
+ usage(sed_usage);
+ }
+ if (*(pos - 1) == '\\') {
+ pos++;
+ continue;
+ }
+ break;
+ }
+ *pos = 0;
+ if (pos + 2 != 0) {
+ while (*++pos) {
+ switch (*pos) {
+ case 'i':
+ ignoreCase = TRUE;
+ break;
+ case 'p':
+ printFlag = TRUE;
+ break;
+ case 'g':
+ break;
+ default:
+ usage(sed_usage);
+ }
+ }
+ }
+ cp = pos;
+ /* fprintf(stderr, "replace '%s' with '%s'\n", needle, newNeedle); */
+ break;
- while (fgets (haystack, sizeof (haystack), fp)) {
- line++;
- cp = &haystack[strlen (haystack) - 1];
+ case 'a': /* APPEND */
+ if (strlen(cp) < 2)
+ break;
+ sed_f = f_append;
+ appendline = ++cp;
+ /* fprintf(stderr, "append '%s'\n", appendline); */
+ break;
+ }
+
+ stopNow = TRUE;
+ break;
- if (*cp != '\n')
- fprintf (stderr, "%s: Line too long\n", name);
+ default:
+ usage(sed_usage);
+ }
+ }
+ }
- if (find_match(haystack, needle, ignoreCase) == TRUE) {
- if (tellName==TRUE)
- printf ("%s: ", name);
+ if (argc == 0) {
+ switch (sed_f) {
+ case f_none:
+ break;
+ case f_replace:
+ do_sed_repl(stdin, needle, newNeedle, ignoreCase, printFlag,
+ quietFlag);
+ break;
+ case f_append:
+ do_sed_append(stdin, appendline, quietFlag);
+ break;
+ }
+ } else {
+ while (argc-- > 0) {
+ name = *argv++;
- if (tellLine==TRUE)
- printf ("%ld: ", line);
+ fp = fopen(name, "r");
+ if (fp == NULL) {
+ perror(name);
+ continue;
+ }
- fputs (haystack, stdout);
+ switch (sed_f) {
+ case f_none:
+ break;
+ case f_replace:
+ do_sed_repl(fp, needle, newNeedle, ignoreCase, printFlag,
+ quietFlag);
+ break;
+ case f_append:
+ do_sed_append(fp, appendline, quietFlag);
+ break;
}
- }
- if (ferror (fp))
- perror (name);
+ if (ferror(fp))
+ perror(name);
- fclose (fp);
+ fclose(fp);
+ }
}
- exit( TRUE);
+ exit(TRUE);
}
/* END CODE */
-
-
projects / oweals / busybox.git / blobdiff