/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */

/*
 * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
/*	  All Rights Reserved  	*/

/*
 * Copyright 2006-2016 J. Schilling
 *
 * @(#)diffh.c	1.13 16/11/06 J. Schilling
 */
#if defined(sun)
#pragma ident "@(#)diffh.c 1.13 16/11/06 J. Schilling"
#endif

#if defined(sun)
#pragma ident	"@(#)diffh.c	1.20	05/07/22 SMI"
#endif

#ifdef	SCHILY_BUILD

#include <schily/mconfig.h>
#include <schily/stdio.h>
#include <schily/stdlib.h>
#include <schily/unistd.h>
#include <schily/ctype.h>
#include <schily/nlsdefs.h>
#include <schily/types.h>
#include <schily/stat.h>
#include <schily/utypes.h>	/* limits.h */
#include <schily/varargs.h>
#include <schily/schily.h>
#define	error	errorh
#include <schily/maxpath.h>

#ifndef	PATH_MAX
#ifdef	MAXPATHNAME
#define	PATH_MAX	MAXPATHNAME
#endif
#endif
#ifndef	PATH_MAX
#define	PATH_MAX	1024
#endif

#else	/* non-portable SunOS -only definitions BEGIN */

#define	_FILE_OFFSET_BITS	64
#define	_LARGEFILE_SOURCE
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <ctype.h>
#include <locale.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <limits.h>
#include <stdarg.h>

#define	HAVE_SETVBUF
#define	PROTOTYPES
#define	__PR(a)	a
#define	EXPORT
#define	LOCAL	static

#define	Uchar	unsigned char
#define	Llong	long long

#endif	/* non-portable SunOS -only definitions END */

#define	C		3
#define	RANGE		30
#define	INF		16384

char *text[2][RANGE];		/* Line pointers */
size_t ltext[2][RANGE];		/* Sizes for line pointers */
off_t lineno[2] = {1, 1};	/* no. of 1st stored line in each file */
int ntext[2];			/* number of stored lines in each */
off_t n0, n1;			/* scan pointer in each */
int bflag;
int debug = 0;
FILE *file[2];
static int diffFound = 0;

static char *getln __PR((int f, off_t n));
static void clrl __PR((int f, off_t n));
static void movstr __PR((char *s, char *t));
	int main __PR((int argc, char **argv));
static int easysynch __PR((void));
static int output __PR((int a, int b));
static void change __PR((off_t a, int b, off_t c, int d, char *s));
static void range __PR((off_t a, int b));
static int cmp __PR((char *s, char *t));
static FILE *dopen __PR((char *f1, char *f2));
static void progerr __PR((char *s));
static void error __PR((char *err, ...));
static int hardsynch __PR((void));

	/* return pointer to line n of file f */
static char *
getln(f, n)
	int	f;
	off_t	n;
{
	char *t;
	off_t delta, nt;
	ssize_t	s;

again:
	delta = n - lineno[f];
	nt = ntext[f];
	if (delta < 0)
		progerr("1");
	if (delta < nt)
		return (text[f][delta]);
	if (delta > nt)
		progerr("2");
	if (nt >= RANGE)
		progerr("3");
	if (feof(file[f]))
		return (NULL);

	s = getdelim(&text[f][nt], &ltext[f][nt], '\n', file[f]);
	t = text[f][nt];
	if (s == -1 && t == NULL) {
		if (hardsynch())
			goto again;
		else
			progerr("5");
	}

	if (s == -1)
		t = NULL;
	if (t != NULL)
		ntext[f]++;
	return (t);
}

	/* remove thru line n of file f from storage */
static void
clrl(f, n)
	int	f;
	off_t	n;
{
	int i, j;

	j = n-lineno[f]+1;
	for (i = 0; i+j < ntext[f]; i++) {
		if (ltext[f][i+j] < ltext[f][i]) {
			ltext[f][i+j] = ltext[f][i];
			text[f][i+j] = realloc(text[f][i+j], ltext[f][i+j]);
			if (text[f][i+j] == NULL)
				progerr("5");
		}
		movstr(text[f][i+j], text[f][i]);
	}
	lineno[f] = n+1;
	ntext[f] -= j;
}

static void
movstr(s, t)
	char	*s;
	char	*t;
{
	while ((*t++ = *s++) != '\0')
		continue;
}

int
main(argc, argv)
	int	argc;
	char	**argv;
{
	char *s0, *s1;

	if ((argc > 1) && (*argv[1] == '-')) {
		argc--;
		argv++;
		while (*++argv[0])
			if (*argv[0] == 'b')
				bflag++;
	}

	(void) setlocale(LC_ALL, "");
#if !defined(TEXT_DOMAIN)		/* Should be defined by cc -D */
#define	TEXT_DOMAIN	"SYS_TEST"	/* Use this only if it weren't */
#endif
	(void) textdomain(TEXT_DOMAIN);

	if (argc != 3)
		error(gettext("must have 2 file arguments"));
	file[0] = dopen(argv[1], argv[2]);
	file[1] = dopen(argv[2], argv[1]);
	for (;;) {
		s0 = getln(0, ++n0);
		s1 = getln(1, ++n1);
		if (s0 == NULL || s1 == NULL)
			break;
		if (cmp(s0, s1) != 0) {
			if (!easysynch() && !hardsynch())
				progerr("5");
		} else {
			clrl(0, n0);
			clrl(1, n1);
		}
	}
	/* diff is expected to return 1 if the files differ */
	if (s0 == NULL && s1 == NULL)
		return (diffFound);
	if (s0 == NULL) {
		(void) output(-1, INF);
		return (1);
	}
	if (s1 == NULL) {
		(void) output(INF, -1);
		return (1);
	}
	/* NOTREACHED */
	return (0);
}

	/* synch on C successive matches */
static int
easysynch()
{
	int i, j;
	int k, m;
	char *s0, *s1;

	for (i = j = 1; i < RANGE && j < RANGE; i++, j++) {
		s0 = getln(0, n0+i);
		if (s0 == NULL)
			return (output(INF, INF));
		for (k = C-1; k < j; k++) {
			for (m = 0; m < C; m++)
				if (cmp(getln(0, n0+i-m),
					getln(1, n1+k-m)) != 0)
					goto cont1;
			return (output(i-C, k-C));
cont1:
			;
		}
		s1 = getln(1, n1+j);
		if (s1 == NULL)
			return (output(INF, INF));
		for (k = C-1; k <= i; k++) {
			for (m = 0; m < C; m++)
				if (cmp(getln(0, n0+k-m),
					getln(1, n1+j-m)) != 0)
					goto cont2;
			return (output(k-C, j-C));
cont2:
			;
		}
	}
	return (0);
}

static int
output(a, b)
	int	a;
	int	b;
{
	int i;
	char *s;

	if (a < 0)
		change(n0-1, 0, n1, b, "a");
	else if (b < 0)
		change(n0, a, n1-1, 0, "d");
	else
		change(n0, a, n1, b, "c");
	for (i = 0; i <= a; i++) {
		s = getln(0, n0+i);
		if (s == NULL)
			break;
		(void) printf("< %s", s);
		clrl(0, n0+i);
	}
	n0 += i-1;
	if (a >= 0 && b >= 0)
		(void) printf("---\n");
	for (i = 0; i <= b; i++) {
		s = getln(1, n1+i);
		if (s == NULL)
			break;
		(void) printf("> %s", s);
		clrl(1, n1+i);
	}
	diffFound = 1;
	n1 += i-1;
	return (1);
}

static void
change(a, b, c, d, s)
	off_t	a;
	int	b;
	off_t	c;
	int	d;
	char	*s;
{
	range(a, b);
	(void) printf("%s", s);
	range(c, d);
	(void) printf("\n");
}

static void
range(a, b)
	off_t	a;
	int	b;
{
	if (b == INF)
		(void) printf("%lld,$", (Llong)a);
	else if (b == 0)
		(void) printf("%lld", (Llong)a);
	else
		(void) printf("%lld,%lld", (Llong)a, (Llong)a+b);
}

static int
cmp(s, t)
	char	*s;
	char	*t;
{
	if (debug)
		(void) printf("%s:%s\n", s, t);
	for (;;) {
		if (bflag && isspace((Uchar)*s) && isspace((Uchar)*t)) {
			while (isspace((Uchar)*++s))
				;
			while (isspace((Uchar)*++t))
				;
		}
		if (*s != *t || *s == 0)
			break;
		s++;
		t++;
	}
	return (*s-*t);
}

static FILE *
dopen(f1, f2)
	char	*f1;
	char	*f2;
{
	FILE *f;
	char b[PATH_MAX], *bptr, *eptr;
	struct stat statbuf;

	if (cmp(f1, "-") == 0) {
		if (cmp(f2, "-") == 0)
			error(gettext("can't do - -"));
		else {
			if (fstat(fileno(stdin), &statbuf) == -1)
				error(gettext("can't access stdin"));
			else
				return (stdin);
		}
	}
	if (stat(f1, &statbuf) == -1)
		error(gettext("can't access %s"), f1);
	if ((statbuf.st_mode & S_IFMT) == S_IFDIR) {
		for (bptr = b; (*bptr = *f1++) != '\0'; bptr++)
			;
		*bptr++ = '/';
		for (eptr = f2; *eptr; eptr++)
			if (*eptr == '/' && eptr[1] != 0 && eptr[1] != '/')
				f2 = eptr+1;
		while ((*bptr++ = *f2++) != '\0')
			;
		f1 = b;
	}
	f = fopen(f1, "r");
	if (f == NULL)
		error(gettext("can't open %s"), f1);
#ifdef	HAVE_SETVBUF
	setvbuf(f, NULL, _IOFBF, 8*1024);
#endif
	return (f);
}


static void
progerr(s)
	char	*s;
{
	error(gettext("program error %s"), s);
}

#ifdef	PROTOTYPES
static void
error(char *err, ...)
#else
static void
error(err, va_alist)
	char	*err;
	va_dcl
#endif

{
	va_list	ap;

#ifdef	PROTOTYPES
	va_start(ap, err);
#else
	va_start(ap);
#endif
#ifdef	SCHILY_PRINT
	(void) fprintf(stderr, "diffh: %r\n", err, ap);
#else
	(void) fprintf(stderr, "diffh: ");
	(void) vfprintf(stderr, err, ap);
	(void) fprintf(stderr, "\n");
#endif
	va_end(ap);
	exit(2);
}

	/* stub for resychronization beyond limits of text buf */
static int
hardsynch()
{
	change(n0, INF, n1, INF, "c");
	(void) printf(gettext("---change record omitted\n"));
	error(gettext("can't resynchronize"));
	return (0);
}
