/*      $NetBSD: sdiff.c,v 1.3 2021/08/27 17:38:57 rillig Exp $ */
/*      $OpenBSD: sdiff.c,v 1.20 2006/09/19 05:52:23 otto Exp $ */

/*
 * Written by Raymond Lai <ray@cyth.net>.
 * Public domain.
 */

#include <sys/param.h>
#include <sys/queue.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <sys/wait.h>

#include <ctype.h>
#include <err.h>
#include <errno.h>
#include <fcntl.h>
#include <getopt.h>
#include <limits.h>
#include <paths.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <util.h>

#include "common.h"
#include "extern.h"

#define WIDTH 130
/*
 * Each column must be at least one character wide, plus three
 * characters between the columns (space, [<|>], space).
 */
#define WIDTH_MIN 5

/* A single diff line. */
struct diffline {
        SIMPLEQ_ENTRY(diffline) diffentries;
        char    *left;
        char     div;
        char    *right;
};

static void astrcat(char **, const char *);
static void enqueue(char *, char, char *);
static char *mktmpcpy(const char *);
static void freediff(struct diffline *);
static void int_usage(void);
static int parsecmd(FILE *, FILE *, FILE *);
static void printa(FILE *, size_t);
static void printc(FILE *, size_t, FILE *, size_t);
static void printcol(const char *, size_t *, const size_t);
static void printd(FILE *, size_t);
static void println(const char *, const char, const char *);
static void processq(void);
static void prompt(const char *, const char *);
__dead static void usage(void);
static char *xfgets(FILE *);

SIMPLEQ_HEAD(, diffline) diffhead = SIMPLEQ_HEAD_INITIALIZER(diffhead);
size_t   line_width;    /* width of a line (two columns and divider) */
size_t   width;         /* width of each column */
size_t   file1ln, file2ln;      /* line number of file1 and file2 */
int      Iflag = 0;     /* ignore sets matching regexp */
int      lflag;         /* print only left column for identical lines */
int      sflag;         /* skip identical lines */
FILE    *outfile;       /* file to save changes to */
const char *tmpdir;     /* TMPDIR or /tmp */

static struct option longopts[] = {
        { "text",                       no_argument,            NULL,   'a' },
        { "ignore-blank-lines",         no_argument,            NULL,   'B' },
        { "ignore-space-change",        no_argument,            NULL,   'b' },
        { "minimal",                    no_argument,            NULL,   'd' },
        { "ignore-tab-expansion",       no_argument,            NULL,   'E' },
        { "diff-program",               required_argument,      NULL,   'F' },
        { "speed-large-files",          no_argument,            NULL,   'H' },
        { "ignore-matching-lines",      required_argument,      NULL,   'I' },
        { "left-column",                no_argument,            NULL,   'l' },
        { "output",                     required_argument,      NULL,   'o' },
        { "strip-trailing-cr",          no_argument,            NULL,   'S' },
        { "suppress-common-lines",      no_argument,            NULL,   's' },
        { "expand-tabs",                no_argument,            NULL,   't' },
        { "ignore-all-space",           no_argument,            NULL,   'W' },
        { "width",                      required_argument,      NULL,   'w' },
        { NULL,                         0,                      NULL,    0  }
};

/*
 * Create temporary file if source_file is not a regular file.
 * Returns temporary file name if one was malloced, NULL if unnecessary.
 */
static char *
mktmpcpy(const char *source_file)
{
        struct stat sb;
        ssize_t rcount;
        int ifd, ofd;
        u_char buf[BUFSIZ];
        char *target_file;

        /* Open input and output. */
        ifd = open(source_file, O_RDONLY, 0);
        /* File was opened successfully. */
        if (ifd != -1) {
                if (fstat(ifd, &sb) == -1)
                        err(2, "error getting file status from %s", source_file);

                /* Regular file. */
                if (S_ISREG(sb.st_mode))
                        return (NULL);
        } else {
                /* If ``-'' does not exist the user meant stdin. */
                if (errno == ENOENT && strcmp(source_file, "-") == 0)
                        ifd = STDIN_FILENO;
                else
                        err(2, "error opening %s", source_file);
        }

        /* Not a regular file, so copy input into temporary file. */
        if (asprintf(&target_file, "%s/sdiff.XXXXXXXXXX", tmpdir) == -1)
                err(2, "asprintf");
        if ((ofd = mkstemp(target_file)) == -1) {
                warn("error opening %s", target_file);
                goto FAIL;
        }
        while ((rcount = read(ifd, buf, sizeof(buf))) != -1 &&
            rcount != 0) {
                ssize_t wcount;

                wcount = write(ofd, buf, (size_t)rcount);
                if (-1 == wcount || rcount != wcount) {
                        warn("error writing to %s", target_file);
                        goto FAIL;
                }
        }
        if (rcount == -1) {
                warn("error reading from %s", source_file);
                goto FAIL;
        }

        close(ifd);
        close(ofd);

        return (target_file);

FAIL:
        unlink(target_file);
        exit(2);
}

int
main(int argc, char **argv)
{
        FILE *diffpipe, *file1, *file2;
        size_t diffargc = 0, wflag = WIDTH;
        int ch, fd[2], status;
        pid_t pid;
        char **diffargv, *diffprog = "diff", *filename1, *filename2,
            *tmp1, *tmp2, *s1, *s2;

        /*
         * Process diff flags.
         */
        /*
         * Allocate memory for diff arguments and NULL.
         * Each flag has at most one argument, so doubling argc gives an
         * upper limit of how many diff args can be passed.  argv[0],
         * file1, and file2 won't have arguments so doubling them will
         * waste some memory; however we need an extra space for the
         * NULL at the end, so it sort of works out.
         */
        if (!(diffargv = malloc(sizeof(char **) * argc * 2)))
                err(2, "main");

        /* Add first argument, the program name. */
        diffargv[diffargc++] = diffprog;

        while ((ch = getopt_long(argc, argv, "aBbdEHI:ilo:stWw:",
            longopts, NULL)) != -1) {
                const char *errstr;

                switch (ch) {
                case 'a':
                        diffargv[diffargc++] = "-a";
                        break;
                case 'B':
                        diffargv[diffargc++] = "-B";
                        break;
                case 'b':
                        diffargv[diffargc++] = "-b";
                        break;
                case 'd':
                        diffargv[diffargc++] = "-d";
                        break;
                case 'E':
                        diffargv[diffargc++] = "-E";
                        break;
                case 'F':
                        diffargv[0] = diffprog = optarg;
                        break;
                case 'H':
                        diffargv[diffargc++] = "-H";
                        break;
                case 'I':
                        Iflag = 1;
                        diffargv[diffargc++] = "-I";
                        diffargv[diffargc++] = optarg;
                        break;
                case 'i':
                        diffargv[diffargc++] = "-i";
                        break;
                case 'l':
                        lflag = 1;
                        break;
                case 'o':
                        if ((outfile = fopen(optarg, "w")) == NULL)
                                err(2, "could not open: %s", optarg);
                        break;
                case 'S':
                        diffargv[diffargc++] = "--strip-trailing-cr";
                        break;
                case 's':
                        sflag = 1;
                        break;
                case 't':
                        diffargv[diffargc++] = "-t";
                        break;
                case 'W':
                        diffargv[diffargc++] = "-w";
                        break;
                case 'w':
                        wflag = strtonum(optarg, WIDTH_MIN,
                            INT_MAX, &errstr);
                        if (errstr)
                                errx(2, "width is %s: %s", errstr, optarg);
                        break;
                default:
                        usage();
                }

        }
        argc -= optind;
        argv += optind;

        if (argc != 2)
                usage();

        if ((tmpdir = getenv("TMPDIR")) == NULL)                       
                tmpdir = _PATH_TMP;

        filename1 = argv[0];
        filename2 = argv[1];

        /*
         * Create temporary files for diff and sdiff to share if file1
         * or file2 are not regular files.  This allows sdiff and diff
         * to read the same inputs if one or both inputs are stdin.
         *
         * If any temporary files were created, their names would be
         * saved in tmp1 or tmp2.  tmp1 should never equal tmp2.
         */
        tmp1 = tmp2 = NULL;
        /* file1 and file2 are the same, so copy to same temp file. */
        if (strcmp(filename1, filename2) == 0) {
                if ((tmp1 = mktmpcpy(filename1)))
                        filename1 = filename2 = tmp1;
        /* Copy file1 and file2 into separate temp files. */
        } else {
                if ((tmp1 = mktmpcpy(filename1)))
                        filename1 = tmp1;
                if ((tmp2 = mktmpcpy(filename2)))
                        filename2 = tmp2;
        }

        diffargv[diffargc++] = filename1;
        diffargv[diffargc++] = filename2;
        /* Add NULL to end of array to indicate end of array. */
        diffargv[diffargc++] = NULL;

        /* Subtract column divider and divide by two. */
        width = (wflag - 3) / 2;
        /* Make sure line_width can fit in size_t. */
        if (width > (SIZE_T_MAX - 3) / 2)
                errx(2, "width is too large: %zu", width);
        line_width = width * 2 + 3;

        if (pipe(fd))
                err(2, "pipe");

        switch(pid = fork()) {
        case 0:
                /* child */
                /* We don't read from the pipe. */
                close(fd[0]);
                if (dup2(fd[1], STDOUT_FILENO) == -1)
                        err(2, "child could not duplicate descriptor");
                /* Free unused descriptor. */
                close(fd[1]);

                execvp(diffprog, diffargv);
                err(2, "could not execute diff: %s", diffprog);
        case -1:
                err(2, "could not fork");
        }

        /* parent */
        /* We don't write to the pipe. */
        close(fd[1]);

        /* Open pipe to diff command. */
        if ((diffpipe = fdopen(fd[0], "r")) == NULL)
                err(2, "could not open diff pipe");
        if ((file1 = fopen(filename1, "r")) == NULL)
                err(2, "could not open %s", filename1);
        if ((file2 = fopen(filename2, "r")) == NULL)
                err(2, "could not open %s", filename2);

        /* Line numbers start at one. */
        file1ln = file2ln = 1;

        /* Read and parse diff output. */
        while (parsecmd(diffpipe, file1, file2) != EOF)
                ;
        fclose(diffpipe);

        /* Wait for diff to exit. */
        if (waitpid(pid, &status, 0) == -1 || !WIFEXITED(status) ||
            WEXITSTATUS(status) >= 2)
                err(2, "diff exited abnormally");

        /* Delete and free unneeded temporary files. */
        if (tmp1)
                if (unlink(tmp1))
                        warn("error deleting %s", tmp1);
        if (tmp2)
                if (unlink(tmp2))
                        warn("error deleting %s", tmp2);
        free(tmp1);
        free(tmp2);
        filename1 = filename2 = tmp1 = tmp2 = NULL;

        /* No more diffs, so print common lines. */
        if (lflag)
                while ((s1 = xfgets(file1)))
                        enqueue(s1, ' ', NULL);
        else
                for (;;) {
                        s1 = xfgets(file1);
                        s2 = xfgets(file2);
                        if (s1 || s2)
                                enqueue(s1, ' ', s2);
                        else
                                break;
                }
        fclose(file1);
        fclose(file2);
        /* Process unmodified lines. */
        processq();

        /* Return diff exit status. */
        return (WEXITSTATUS(status));
}

/*
 * Prints an individual column (left or right), taking into account
 * that tabs are variable-width.  Takes a string, the current column
 * the cursor is on the screen, and the maximum value of the column.
 * The column value is updated as we go along.
 */
static void
printcol(const char *s, size_t *col, const size_t col_max)
{

        for (; *s && *col < col_max; ++s) {
                size_t new_col;

                switch (*s) {
                case '\t':
                        /*
                         * If rounding to next multiple of eight causes
                         * an integer overflow, just return.
                         */
                        if (*col > SIZE_T_MAX - 8)
                                return;

                        /* Round to next multiple of eight. */
                        new_col = (*col / 8 + 1) * 8;

                        /*
                         * If printing the tab goes past the column
                         * width, don't print it and just quit.
                         */
                        if (new_col > col_max)
                                return;
                        *col = new_col;
                        break;

                default:
                        ++(*col);
                }

                putchar(*s);
        }
}

/*
 * Prompts user to either choose between two strings or edit one, both,
 * or neither.
 */
static void
prompt(const char *s1, const char *s2)
{
        char *cmd;

        /* Print command prompt. */
        putchar('%');

        /* Get user input. */
        for (; (cmd = xfgets(stdin)); free(cmd)) {
                const char *p;

                /* Skip leading whitespace. */
                for (p = cmd; isspace((unsigned char)(*p)); ++p)
                        ;

                switch (*p) {
                case 'e':
                        /* Skip `e'. */
                        ++p;

                        if (eparse(p, s1, s2) == -1)
                                goto USAGE;
                        break;

                case 'l':
                        /* Choose left column as-is. */
                        if (s1 != NULL)
                                fprintf(outfile, "%s\n", s1);

                        /* End of command parsing. */
                        break;

                case 'q':
                        goto QUIT;

                case 'r':
                        /* Choose right column as-is. */
                        if (s2 != NULL)
                                fprintf(outfile, "%s\n", s2);

                        /* End of command parsing. */
                        break;

                case 's':
                        sflag = 1;
                        goto PROMPT;

                case 'v':
                        sflag = 0;
                        /* FALLTHROUGH */

                default:
                        /* Interactive usage help. */
USAGE:
                        int_usage();
PROMPT:
                        putchar('%');

                        /* Prompt user again. */
                        continue;
                }

                free(cmd);
                return;
        }

        /*
         * If there was no error, we received an EOF from stdin, so we
         * should quit.
         */
QUIT:
        fclose(outfile);
        exit(0);
}

/*
 * Takes two strings, separated by a column divider.  NULL strings are
 * treated as empty columns.  If the divider is the ` ' character, the
 * second column is not printed (-l flag).  In this case, the second
 * string must be NULL.  When the second column is NULL, the divider
 * does not print the trailing space following the divider character.
 *
 * Takes into account that tabs can take multiple columns.
 */
static void
println(const char *s1, const char divc, const char *s2)
{
        size_t col;

        /* Print first column.  Skips if s1 == NULL. */
        col = 0;
        if (s1) {
                /* Skip angle bracket and space. */
                printcol(s1, &col, width);

        }

        /* Only print left column. */
        if (divc == ' ' && !s2) {
                putchar('\n');
                return;
        }

        /* Otherwise, we pad this column up to width. */
        for (; col < width; ++col)
                putchar(' ');

        /*
         * Print column divider.  If there is no second column, we don't
         * need to add the space for padding.
         */
        if (!s2) {
                printf(" %c\n", divc);
                return;
        }
        printf(" %c ", divc);
        col += 3;

        /* Skip angle bracket and space. */
        printcol(s2, &col, line_width);

        putchar('\n');
}

/*
 * Reads a line from file and returns as a string.  If EOF is reached,
 * NULL is returned.  The returned string must be freed afterwards.
 */
static char *
xfgets(FILE *file)
{
        const char delim[3] = {'\0', '\0', '\0'};
        char *s;

        /* XXX - Is this necessary? */
        clearerr(file);

        if (!(s = fparseln(file, NULL, NULL, delim, 0)) &&
            ferror(file))
                err(2, "error reading file");

        if (!s) {
                return (NULL);
        }

        return (s);
}

/*
 * Parse ed commands from diffpipe and print lines from file1 (lines
 * to change or delete) or file2 (lines to add or change).
 * Returns EOF or 0.
 */
static int
parsecmd(FILE *diffpipe, FILE *file1, FILE *file2)
{
        size_t file1start, file1end, file2start, file2end, n;
        /* ed command line and pointer to characters in line */
        char *line, *p, *q;
        const char *errstr;
        char c, cmd;

        /* Read ed command. */
        if (!(line = xfgets(diffpipe)))
                return (EOF);

        p = line;
        /* Go to character after line number. */
        while (isdigit((unsigned char)(*p)))
                ++p;
        c = *p;
        *p++ = 0;
        file1start = strtonum(line, 0, INT_MAX, &errstr);
        if (errstr)
                errx(2, "file1 start is %s: %s", errstr, line);

        /* A range is specified for file1. */
        if (c == ',') {

                q = p;
                /* Go to character after file2end. */
                while (isdigit((unsigned char)(*p)))
                        ++p;
                c = *p;
                *p++ = 0;
                file1end = strtonum(q, 0, INT_MAX, &errstr);
                if (errstr)
                        errx(2, "file1 end is %s: %s", errstr, line);
                if (file1start > file1end)
                        errx(2, "invalid line range in file1: %s", line);

        } else
                file1end = file1start;

        cmd = c;
        /* Check that cmd is valid. */
        if (!(cmd == 'a' || cmd == 'c' || cmd == 'd'))
                errx(2, "ed command not recognized: %c: %s", cmd, line);

        q = p;
        /* Go to character after line number. */
        while (isdigit((unsigned char)(*p)))
                ++p;
        c = *p;
        *p++ = 0;
        file2start = strtonum(q, 0, INT_MAX, &errstr);
        if (errstr)
                errx(2, "file2 start is %s: %s", errstr, line);

        /*
         * There should either be a comma signifying a second line
         * number or the line should just end here.
         */
        if (c != ',' && c != '\0')
                errx(2, "invalid line range in file2: %c: %s", c, line);

        if (c == ',') {

                file2end = strtonum(p, 0, INT_MAX, &errstr);
                if (errstr)
                        errx(2, "file2 end is %s: %s", errstr, line);
                if (file2start >= file2end)
                        errx(2, "invalid line range in file2: %s", line);
        } else
                file2end = file2start;

        /* Appends happen _after_ stated line. */
        if (cmd == 'a') {
                if (file1start != file1end)
                        errx(2, "append cannot have a file1 range: %s",
                            line);
                if (file1start == SIZE_T_MAX)
                        errx(2, "file1 line range too high: %s", line);
                file1start = ++file1end;
        }
        /*
         * I'm not sure what the deal is with the line numbers for
         * deletes, though.
         */
        else if (cmd == 'd') {
                if (file2start != file2end)
                        errx(2, "delete cannot have a file2 range: %s",
                            line);
                if (file2start == SIZE_T_MAX)
                        errx(2, "file2 line range too high: %s", line);
                file2start = ++file2end;
        }

        /*
         * Continue reading file1 and file2 until we reach line numbers
         * specified by diff.  Should only happen with -I flag.
         */
        for (; file1ln < file1start && file2ln < file2start;
            ++file1ln, ++file2ln) {
                char *s1, *s2;

                if (!(s1 = xfgets(file1)))
                        errx(2, "file1 shorter than expected");
                if (!(s2 = xfgets(file2)))
                        errx(2, "file2 shorter than expected");

                /* If the -l flag was specified, print only left column. */
                if (lflag) {
                        free(s2);
                        /*
                         * XXX - If -l and -I are both specified, all
                         * unchanged or ignored lines are shown with a
                         * `(' divider.  This matches GNU sdiff, but I
                         * believe it is a bug.  Just check out:
                         * gsdiff -l -I '^$' samefile samefile.
                         */
                        if (Iflag)
                                enqueue(s1, '(', NULL);
                        else
                                enqueue(s1, ' ', NULL);
                } else
                        enqueue(s1, ' ', s2);
        }
        /* Ignore deleted lines. */
        for (; file1ln < file1start; ++file1ln) {
                char *s;

                if (!(s = xfgets(file1)))
                        errx(2, "file1 shorter than expected");

                enqueue(s, '(', NULL);
        }
        /* Ignore added lines. */
        for (; file2ln < file2start; ++file2ln) {
                char *s;

                if (!(s = xfgets(file2)))
                        errx(2, "file2 shorter than expected");

                /* If -l flag was given, don't print right column. */
                if (lflag)
                        free(s);
                else
                        enqueue(NULL, ')', s);
        }

        /* Process unmodified or skipped lines. */
        processq();

        switch (cmd) {
        case 'a':
                printa(file2, file2end);
                n = file2end - file2start + 1;
                break;

        case 'c':
                printc(file1, file1end, file2, file2end);
                n = file1end - file1start + 1 + 1 + file2end - file2start + 1;
                break;

        case 'd':
                printd(file1, file1end);
                n = file1end - file1start + 1;
                break;

        default:
                errx(2, "invalid diff command: %c: %s", cmd, line);
        }

        /* Skip to next ed line. */
        while (n--)
                if (!xfgets(diffpipe))
                        errx(2, "diff ended early");

        return (0);
}

/*
 * Queues up a diff line.
 */
static void
enqueue(char *left, char divc, char *right)
{
        struct diffline *diffp;

        if (!(diffp = malloc(sizeof(struct diffline))))
                err(2, "enqueue");
        diffp->left = left;
        diffp->div = divc;
        diffp->right = right;
        SIMPLEQ_INSERT_TAIL(&diffhead, diffp, diffentries);
}

/*
 * Free a diffline structure and its elements.
 */
static void
freediff(struct diffline *diffp)
{
        free(diffp->left);
        free(diffp->right);
        free(diffp);
}

/*
 * Append second string into first.  Repeated appends to the same string
 * are cached, making this an O(n) function, where n = strlen(append).
 */
static void
astrcat(char **s, const char *append)
{
        /* Length of string in previous run. */
        static size_t offset = 0;
        size_t newsiz;
        /*
         * String from previous run.  Compared to *s to see if we are
         * dealing with the same string.  If so, we can use offset.
         */
        static const char *oldstr = NULL;
        char *newstr;


        /*
         * First string is NULL, so just copy append.
         */
        if (!*s) {
                if (!(*s = strdup(append)))
                        err(2, "astrcat");

                /* Keep track of string. */
                offset = strlen(*s);
                oldstr = *s;

                return;
        }

        /*
         * *s is a string so concatenate.
         */

        /* Did we process the same string in the last run? */
        /*
         * If this is a different string from the one we just processed
         * cache new string.
         */
        if (oldstr != *s) {
                offset = strlen(*s);
                oldstr = *s;
        }

        /* Size = strlen(*s) + \n + strlen(append) + '\0'. */
        newsiz = offset + 1 + strlen(append) + 1;

        /* Resize *s to fit new string. */
        newstr = realloc(*s, newsiz);
        if (newstr == NULL)
                err(2, "astrcat");
        *s = newstr;

        /* *s + offset should be end of string. */
        /* Concatenate. */
        strlcpy(*s + offset, "\n", newsiz - offset);
        strlcat(*s + offset, append, newsiz - offset);

        /* New string length should be exactly newsiz - 1 characters. */
        /* Store generated string's values. */
        offset = newsiz - 1;
        oldstr = *s;
}

/*
 * Process diff set queue, printing, prompting, and saving each diff
 * line stored in queue.
 */
static void
processq(void)
{
        struct diffline *diffp;
        char divc, *left, *right;

        /* Don't process empty queue. */
        if (SIMPLEQ_EMPTY(&diffhead))
                return;

        /* Remember the divider. */
        divc = SIMPLEQ_FIRST(&diffhead)->div;

        left = NULL;
        right = NULL;
        /*
         * Go through set of diffs, concatenating each line in left or
         * right column into two long strings, `left' and `right'.
         */
        SIMPLEQ_FOREACH(diffp, &diffhead, diffentries) {
                /*
                 * Print changed lines if -s was given,
                 * print all lines if -s was not given.
                 */
                if (!sflag || diffp->div == '|' || diffp->div == '<' ||
                    diffp->div == '>')
                        println(diffp->left, diffp->div, diffp->right);

                /* Append new lines to diff set. */
                if (diffp->left)
                        astrcat(&left, diffp->left);
                if (diffp->right)
                        astrcat(&right, diffp->right);
        }

        /* Empty queue and free each diff line and its elements. */
        while (!SIMPLEQ_EMPTY(&diffhead)) {
                diffp = SIMPLEQ_FIRST(&diffhead);
                SIMPLEQ_REMOVE_HEAD(&diffhead, diffentries);
                freediff(diffp);
        }

        /* Write to outfile, prompting user if lines are different. */
        if (outfile)
                switch (divc) {
                case ' ': case '(': case ')':
                        fprintf(outfile, "%s\n", left);
                        break;
                case '|': case '<': case '>':
                        prompt(left, right);
                        break;
                default:
                        errx(2, "invalid divider: %c", divc);
                }

        /* Free left and right. */
        free(left);
        free(right);
}

/*
 * Print lines following an (a)ppend command.
 */
static void
printa(FILE *file, size_t line2)
{
        char *line;

        for (; file2ln <= line2; ++file2ln) {
                if (!(line = xfgets(file)))
                        errx(2, "append ended early");
                enqueue(NULL, '>', line);
        }

        processq();
}

/*
 * Print lines following a (c)hange command, from file1ln to file1end
 * and from file2ln to file2end.
 */
static void
printc(FILE *file1, size_t file1end, FILE *file2, size_t file2end)
{
        struct fileline {
                SIMPLEQ_ENTRY(fileline)  fileentries;
                char                    *line;
        };
        SIMPLEQ_HEAD(, fileline) delqhead = SIMPLEQ_HEAD_INITIALIZER(delqhead);

        /* Read lines to be deleted. */
        for (; file1ln <= file1end; ++file1ln) {
                struct fileline *linep;
                char *line1;

                /* Read lines from both. */
                if (!(line1 = xfgets(file1)))
                        errx(2, "error reading file1 in delete in change");

                /* Add to delete queue. */
                if (!(linep = malloc(sizeof(struct fileline))))
                        err(2, "printc");
                linep->line = line1;
                SIMPLEQ_INSERT_TAIL(&delqhead, linep, fileentries);
        }

        /* Process changed lines.. */
        for (; !SIMPLEQ_EMPTY(&delqhead) && file2ln <= file2end;
            ++file2ln) {
                struct fileline *del;
                char *add;

                /* Get add line. */
                if (!(add = xfgets(file2)))
                        errx(2, "error reading add in change");

                del = SIMPLEQ_FIRST(&delqhead);
                enqueue(del->line, '|', add);
                SIMPLEQ_REMOVE_HEAD(&delqhead, fileentries);
                /*
                 * Free fileline structure but not its elements since
                 * they are queued up.
                 */
                free(del);
        }
        processq();

        /* Process remaining lines to add. */
        for (; file2ln <= file2end; ++file2ln) {
                char *add;

                /* Get add line. */
                if (!(add = xfgets(file2)))
                        errx(2, "error reading add in change");

                enqueue(NULL, '>', add);
        }
        processq();

        /* Process remaining lines to delete. */
        while (!SIMPLEQ_EMPTY(&delqhead)) {
                struct fileline *filep;

                filep = SIMPLEQ_FIRST(&delqhead);
                enqueue(filep->line, '<', NULL);
                SIMPLEQ_REMOVE_HEAD(&delqhead, fileentries);
                free(filep);
        }
        processq();
}

/*
 * Print deleted lines from file, from file1ln to file1end.
 */
static void
printd(FILE *file1, size_t file1end)
{
        char *line1;

        /* Print out lines file1ln to line2. */
        for (; file1ln <= file1end; ++file1ln) {
                /* XXX - Why can't this handle stdin? */
                if (!(line1 = xfgets(file1)))
                        errx(2, "file1 ended early in delete");
                enqueue(line1, '<', NULL);
        }
        processq();
}

/*
 * Interactive mode usage.
 */
static void
int_usage(void)
{
        puts("e:\tedit blank diff\n"
            "eb:\tedit both diffs concatenated\n"
            "el:\tedit left diff\n"
            "er:\tedit right diff\n"
            "l:\tchoose left diff\n"
            "r:\tchoose right diff\n"
            "s:\tsilent mode--don't print identical lines\n"
            "v:\tverbose mode--print identical lines\n"
            "q:\tquit");
}

static void
usage(void)
{
        extern char *__progname;

        fprintf(stderr,
            "usage: %s [-abdilstW] [-I regexp] [-o outfile] [-w width] file1 file2\n",
            __progname);
        exit(2);
}