Imported Upstream version 93u+upstream

1 files changed, 383 insertions, 0 deletions

diff --git a/src/lib/libcmd/cmp.c b/src/lib/libcmd/cmp.c
new file mode 100644
index 0000000..7433020
--- /dev/null
+++ b/src/lib/libcmd/cmp.c
@@ -0,0 +1,383 @@
+/***********************************************************************
+*                                                                      *
+*               This software is part of the ast package               *
+*          Copyright (c) 1992-2012 AT&T Intellectual Property          *
+*                      and is licensed under the                       *
+*                 Eclipse Public License, Version 1.0                  *
+*                    by AT&T Intellectual Property                     *
+*                                                                      *
+*                A copy of the License is available at                 *
+*          http://www.eclipse.org/org/documents/epl-v10.html           *
+*         (with md5 checksum b35adb5213ca9657e911e9befb180842)         *
+*                                                                      *
+*              Information and Software Systems Research               *
+*                            AT&T Research                             *
+*                           Florham Park NJ                            *
+*                                                                      *
+*                 Glenn Fowler <gsf@research.att.com>                  *
+*                  David Korn <dgk@research.att.com>                   *
+*                                                                      *
+***********************************************************************/
+#pragma prototyped
+/*
+ * David Korn
+ * Glenn Fowler
+ * AT&T Bell Laboratories
+ *
+ * cmp
+ */
+
+static const char usage[] =
+"[-?\n@(#)$Id: cmp (AT&T Research) 2010-04-11 $\n]"
+USAGE_LICENSE
+"[+NAME?cmp - compare two files]"
+"[+DESCRIPTION?\bcmp\b compares two files \afile1\a and \afile2\a. "
+    "\bcmp\b writes no output if the files are the same. By default, if the "
+    "files differ, the byte and line number at which the first difference "
+    "occurred are written to standard output. Bytes and lines are numbered "
+    "beginning with 1.]"
+"[+?If \askip1\a or \askip2\a are specified, or the \b-i\b option is "
+    "specified, initial bytes of the corresponding file are skipped before "
+    "beginning the compare. The skip values are in bytes or can have a "
+    "suffix of \bk\b for kilobytes or \bm\b for megabytes.]"
+"[+?If either \afile1\a or \afiles2\a is \b-\b, \bcmp\b uses standard "
+    "input starting at the current location.]"
+"[b:print-bytes?Print differing bytes as 3 digit octal values.]"
+"[c:print-chars?Print differing bytes as follows: non-space printable "
+    "characters as themselves; space and control characters as \b^\b "
+    "followed by a letter of the alphabet; and characters with the high bit "
+    "set as the lower 7 bit character prefixed by \bM^\b for 7 bit space and "
+    "non-printable characters and \bM-\b for all other characters. If the 7 "
+    "bit character encoding is not ASCII then the characters are converted "
+    "to ASCII to determine \ahigh bit set\a, and if set it is cleared and "
+    "converted back to the native encoding. Multibyte characters in the "
+    "current locale are treated as printable characters.]"
+"[d:differences?Print at most \adifferences\a differences using "
+    "\b--verbose\b output format. \b--differences=0\b is equivalent to "
+    "\b--silent\b.]#[differences]"
+"[i:ignore-initial|skip?Skip the the first \askip1\a bytes in \afile1\a "
+    "and the first \askip2\a bytes in \afile2\a. If \askip2\a is omitted "
+    "then \askip1\a is used.]:[skip1[::skip2]]:=0::0]"
+"[l:verbose?Write the decimal byte number and the differing bytes (in "
+    "octal) for each difference.]"
+"[n:count|bytes?Compare at most \acount\a bytes.]#[count]"
+"[s:quiet|silent?Write nothing for differing files; return non-zero exit "
+    "status only.]"
+"\n"
+"\nfile1 file2 [skip1 [skip2]]\n"
+"\n"
+"[+EXIT STATUS?]"
+    "{"
+        "[+0?The files or portions compared are identical.]"
+        "[+1?The files are different.]"
+        "[+>1?An error occurred.]"
+    "}"
+"[+SEE ALSO?\bcomm\b(1), \bdiff\b(1), \bcat\b(1)]"
+;
+
+#include <cmd.h>
+#include <ls.h>
+#include <ctype.h>
+#include <ccode.h>
+
+#define CMP_VERBOSE	0x01
+#define CMP_SILENT	0x02
+#define CMP_CHARS	0x04
+#define CMP_BYTES	0x08
+
+static void
+pretty(Sfio_t *out, int o, int delim, int flags)
+{
+	int	c;
+	int	m;
+	char*	s;
+	char	buf[10];
+
+	s = buf;
+	if ((flags & CMP_BYTES) || !(flags & CMP_CHARS))
+	{
+		*s++ = ' ';
+		if ((flags & CMP_CHARS) && delim != -1)
+			*s++ = ' ';
+		*s++ = '0' + ((o >> 6) & 07);
+		*s++ = '0' + ((o >> 3) & 07);
+		*s++ = '0' + (o & 07);
+	}
+	if (flags & CMP_CHARS)
+	{
+		*s++ = ' ';
+		c = ccmapc(o, CC_NATIVE, CC_ASCII);
+		if (c & 0x80)
+		{
+			m = 1;
+			*s++ = 'M';
+			c &= 0x7f;
+			o = ccmapc(c, CC_ASCII, CC_NATIVE);
+		}
+		else
+			m = 0;
+		if (isspace(o) || !isprint(o))
+		{
+			if (!m)
+				*s++ = ' ';
+			*s++ = '^';
+			c ^= 0x40;
+			o = ccmapc(c, CC_ASCII, CC_NATIVE);
+		}
+		else if (m)
+			*s++ = '-';
+		else
+		{
+			*s++ = ' ';
+			*s++ = ' ';
+		}
+		*s++ = o;
+	}
+	*s = 0;
+	sfputr(out, buf, delim);
+}
+
+/*
+ * compare two files
+ */
+
+static int
+cmp(const char* file1, Sfio_t* f1, const char* file2, Sfio_t* f2, int flags, Sfoff_t count, Sfoff_t differences)
+{
+	register int		c1;
+	register int		c2;
+	register unsigned char*	p1 = 0;
+	register unsigned char*	p2 = 0;
+	register Sfoff_t	lines = 1;
+	register unsigned char*	e1 = 0;
+	register unsigned char*	e2 = 0;
+	Sfoff_t			pos = 0;
+	int			n1 = 0;
+	int			ret = 0;
+	unsigned char*		last;
+
+	for (;;)
+	{
+		if ((c1 = e1 - p1) <= 0)
+		{
+			if (count > 0 && !(count -= n1))
+				return ret;
+			if (!(p1 = (unsigned char*)sfreserve(f1, SF_UNBOUND, 0)) || (c1 = sfvalue(f1)) <= 0)
+			{
+				if ((e2 - p2) > 0 || sfreserve(f2, SF_UNBOUND, 0) && sfvalue(f2) > 0)
+				{
+					ret = 1;
+					if (!(flags & CMP_SILENT))
+						error(ERROR_exit(1), "EOF on %s", file1);
+				}
+				return ret;
+			}
+			if (count > 0 && c1 > count)
+				c1 = (int)count;
+			e1 = p1 + c1;
+			n1 = c1;
+		}
+		if ((c2 = e2 - p2) <= 0)
+		{
+			if (!(p2 = (unsigned char*)sfreserve(f2, SF_UNBOUND, 0)) || (c2 = sfvalue(f2)) <= 0)
+			{
+				if (!(flags & CMP_SILENT))
+					error(ERROR_exit(1), "EOF on %s", file2);
+				return 1;
+			}
+			e2 = p2 + c2;
+		}
+		if (c1 > c2)
+			c1 = c2;
+		pos += c1;
+		if (flags & CMP_SILENT)
+		{
+			if (memcmp(p1, p2, c1))
+				return 1;
+			p1 += c1;
+			p2 += c1;
+		}
+		else
+		{
+			last = p1 + c1;
+			while (p1 < last)
+			{
+				if ((c1 = *p1++) != *p2++)
+				{
+					if (differences >= 0)
+					{
+						if (!differences)
+							return 1;
+						differences--;
+					}
+#if 0
+					if (!flags)
+						sfprintf(sfstdout, "%s %s differ: char %I*d, line %I*u\n", file1, file2, sizeof(pos), pos - (last - p1), sizeof(lines), lines);
+					else
+					{
+						sfprintf(sfstdout, "%6I*d", sizeof(pos), pos - (last - p1));
+						pretty(sfstdout, c1, -1, flags);
+						pretty(sfstdout, *(p2-1), '\n', flags);
+					}
+#else
+					if (flags & CMP_VERBOSE)
+						sfprintf(sfstdout, "%6I*d", sizeof(pos), pos - (last - p1));
+					else
+						sfprintf(sfstdout, "%s %s differ: char %I*d, line %I*u", file1, file2, sizeof(pos), pos - (last - p1), sizeof(lines), lines);
+					if (flags & (CMP_BYTES|CMP_CHARS|CMP_VERBOSE))
+					{
+						sfputc(sfstdout, (flags & CMP_VERBOSE) ? ' ' : ',');
+						pretty(sfstdout, c1, -1, flags);
+						pretty(sfstdout, *(p2-1), '\n', flags);
+					}
+					else
+						sfputc(sfstdout, '\n');
+#endif
+					if (!differences || differences < 0 && !(flags & CMP_VERBOSE))
+						return 1;
+					ret = 1;
+				}
+				if (c1 == '\n')
+					lines++;
+			}
+		}
+	}
+}
+
+int
+b_cmp(int argc, register char** argv, Shbltin_t* context)
+{
+	char*		s;
+	char*		e;
+	char*		file1;
+	char*		file2;
+	int		n;
+	struct stat	s1;
+	struct stat	s2;
+
+	Sfio_t*		f1 = 0;
+	Sfio_t*		f2 = 0;
+	Sfoff_t		o1 = 0;
+	Sfoff_t		o2 = 0;
+	Sfoff_t		count = -1;
+	Sfoff_t		differences = -1;
+	int		flags = 0;
+
+	NoP(argc);
+	cmdinit(argc, argv, context, ERROR_CATALOG, 0);
+	for (;;)
+	{
+		switch (optget(argv, usage))
+		{
+		case 'b':
+			flags |= CMP_BYTES;
+			continue;
+		case 'c':
+			flags |= CMP_CHARS;
+			continue;
+		case 'd':
+			flags |= CMP_VERBOSE;
+			differences = opt_info.number;
+			continue;
+		case 'i':
+			o1 = strtoll(opt_info.arg, &e, 0);
+			if (*e == ':')
+				o2 = strtoll(e + 1, &e, 0);
+			else
+				o2 = o1;
+			if (*e)
+			{
+				error(2, "%s: skip1:skip2 expected", opt_info.arg);
+				break;
+			}
+			continue;
+		case 'l':
+			flags |= CMP_VERBOSE;
+			continue;
+		case 'n':
+			count = opt_info.number;
+			continue;
+		case 's':
+			flags |= CMP_SILENT;
+			continue;
+		case ':':
+			error(2, "%s", opt_info.arg);
+			break;
+		case '?':
+			error(ERROR_usage(2), "%s", opt_info.arg);
+			break;
+		}
+		break;
+	}
+	argv += opt_info.index;
+	if (error_info.errors || !(file1 = *argv++) || !(file2 = *argv++))
+		error(ERROR_usage(2), "%s", optusage(NiL));
+	n = 2;
+	if (streq(file1, "-"))
+		f1 = sfstdin;
+	else if (!(f1 = sfopen(NiL, file1, "r")))
+	{
+		if (!(flags & CMP_SILENT))
+			error(ERROR_system(0), "%s: cannot open", file1);
+		goto done;
+	}
+	if (streq(file2, "-"))
+		f2 = sfstdin;
+	else if (!(f2 = sfopen(NiL, file2, "r")))
+	{
+		if (!(flags & CMP_SILENT))
+			error(ERROR_system(0), "%s: cannot open", file2);
+		goto done;
+	}
+	if (s = *argv++)
+	{
+		o1 = strtoll(s, &e, 0);
+		if (*e)
+		{
+			error(ERROR_exit(0), "%s: %s: invalid skip", file1, s);
+			goto done;
+		}
+		if (s = *argv++)
+		{
+			o2 = strtoll(s, &e, 0);
+			if (*e)
+			{
+				error(ERROR_exit(0), "%s: %s: invalid skip", file2, s);
+				goto done;
+			}
+		}
+		if (*argv)
+		{
+			error(ERROR_usage(0), "%s", optusage(NiL));
+			goto done;
+		}
+	}
+	if (o1 && sfseek(f1, o1, SEEK_SET) != o1)
+	{
+		if (!(flags & CMP_SILENT))
+			error(ERROR_exit(0), "EOF on %s", file1);
+		n = 1;
+		goto done;
+	}
+	if (o2 && sfseek(f2, o2, SEEK_SET) != o2)
+	{
+		if (!(flags & CMP_SILENT))
+			error(ERROR_exit(0), "EOF on %s", file2);
+		n = 1;
+		goto done;
+	}
+	if (fstat(sffileno(f1), &s1))
+		error(ERROR_system(0), "%s: cannot stat", file1);
+	else if (fstat(sffileno(f2), &s2))
+		error(ERROR_system(0), "%s: cannot stat", file1);
+	else if (s1.st_ino == s2.st_ino && s1.st_dev == s2.st_dev && o1 == o2)
+		n = 0;
+	else
+		n = ((flags & CMP_SILENT) && S_ISREG(s1.st_mode) && S_ISREG(s2.st_mode) && (s1.st_size - o1) != (s2.st_size - o2)) ? 1 : cmp(file1, f1, file2, f2, flags, count, differences);
+ done:
+	if (f1 && f1 != sfstdin)
+		sfclose(f1);
+	if (f2 && f2 != sfstdin)
+		sfclose(f2);
+	return n;
+}