sbase/uniq.c

/* See LICENSE file for copyright and license details. */
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "util.h"

static const char *countfmt = "";
static int dflag = 0;
static int uflag = 0;
static int fskip = 0;
static int sskip = 0;

static char *prevline = NULL;
static char *prevoffset = NULL;
static long prevlinecount = 0;
static size_t prevlinesiz = 0;

static const char *
uniqskip(const char *l)
{
	const char *lo = l;
	int f = fskip, s = sskip;

	for (; f; --f) {
		while (isblank(*lo))
			lo++;
		while (*lo && !isblank(*lo))
			lo++;
	}
	for (; s && *lo && *lo != '\n'; --s, ++lo);
	return lo;
}

static void
uniqline(FILE *ofp, const char *l, size_t len)
{
	const char *loffset = l ? uniqskip(l) : l;

	int linesequel = l && prevoffset &&
	                 !strcmp(loffset, prevoffset);

	if (linesequel) {
		++prevlinecount;
		return;
	}

	if (prevoffset) {
		if ((prevlinecount == 1 && !dflag) ||
		    (prevlinecount != 1 && !uflag)) {
			if (*countfmt)
				fprintf(ofp, countfmt, prevlinecount);
			fputs(prevline, ofp);
		}
		prevoffset = NULL;
	}

        if (l) {
                if (!prevline || len >= prevlinesiz) {
                        prevlinesiz = len + 1;
                        prevline = erealloc(prevline, prevlinesiz);
                }
                memcpy(prevline, l, len);
                prevline[len] = '\0';
                prevoffset = prevline + (loffset - l);
        }
	prevlinecount = 1;
}

static void
uniq(FILE *fp, FILE *ofp)
{
	char *buf = NULL;
	size_t size = 0;
	ssize_t len;

	while ((len = getline(&buf, &size, fp)) != -1)
		uniqline(ofp, buf, (size_t)len);
}

static void
uniqfinish(FILE *ofp)
{
	uniqline(ofp, NULL, 0);
}

static void
usage(void)
{
	eprintf("usage: %s [-c] [-d | -u] [-f fields] [-s chars]"
	        " [input [output]]\n", argv0);
}

int
main(int argc, char *argv[])
{
	FILE *fp = stdin, *ofp = stdout;

	ARGBEGIN {
	case 'c':
		countfmt = "%7ld ";
		break;
	case 'd':
		dflag = 1;
		break;
	case 'u':
		uflag = 1;
		break;
	case 'f':
		fskip = estrtonum(EARGF(usage()), 0, INT_MAX);
		break;
	case 's':
		sskip = estrtonum(EARGF(usage()), 0, INT_MAX);
		break;
	default:
		usage();
	} ARGEND;

	if (argc > 2)
		usage();

	if (argc == 0) {
		uniq(stdin, stdout);
	} else if (argc >= 1) {
		if (strcmp(argv[0], "-") && !(fp = fopen(argv[0], "r")))
			eprintf("fopen %s:", argv[0]);
		if (argc == 2) {
			if (strcmp(argv[1], "-") &&
			    !(ofp = fopen(argv[1], "w")))
				eprintf("fopen %s:", argv[1]);
		}
		uniq(fp, ofp);
		if (fp != stdin)
			fclose(fp);
	} else
		usage();
	uniqfinish(ofp);
	if (ofp != stdout)
		fclose(ofp);

	return 0;
}