da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/***********************************************************************
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* This software is part of the ast package *
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner* Copyright (c) 1992-2010 AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* and is licensed under the *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Common Public License, Version 1.0 *
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin* by AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* A copy of the License is available at *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* http://www.opensource.org/licenses/cpl1.0.txt *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Information and Software Systems Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* AT&T Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Florham Park NJ *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Glenn Fowler <gsf@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* David Korn <dgk@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * David Korn
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * AT&T Bell Laboratories
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * comm
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic const char usage[] =
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[-?\n@(#)$Id: comm (AT&T Research) 1999-04-28 $\n]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinUSAGE_LICENSE
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+NAME?comm - select or reject lines common to two files]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+DESCRIPTION?\bcomm\b reads two files \afile1\a and \afile2\a "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "which should be ordered in the collating sequence of the "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "current locale, and produces three text columns as output:]{"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "[+1?Lines only in \afile1\a.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "[+2?Lines only in \afile2\a.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "[+3?Lines in both files.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "}"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+?If lines in either file are not ordered according to the collating "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "sequence of the current locale, the results are not specified.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+?If either \afile1\a or \afile2\a is \b-\b, \bcomm\b "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "uses standard input starting at the current location.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[1?Suppress the output column of lines unique to \afile1\a.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[2?Suppress the output column of lines unique to \afile2\a.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[3?Suppress the output column of lines duplicate in \afile1\a and \afile2\a.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"\n"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"\nfile1 file2\n"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"\n"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+EXIT STATUS?]{"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "[+0?Both files processed successfully.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "[+>0?An error occurred.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"}"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+SEE ALSO?\bcmp\b(1), \bdiff\b(1)]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <cmd.h>
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define C_FILE1 1
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define C_FILE2 2
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define C_COMMON 4
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define C_ALL (C_FILE1|C_FILE2|C_COMMON)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int comm(Sfio_t *in1, Sfio_t *in2, register Sfio_t *out,register int mode)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *cp1, *cp2;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int n1, n2, n, comp;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(cp1 = sfgetr(in1,'\n',0))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n1 = sfvalue(in1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(cp2 = sfgetr(in2,'\n',0))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n2 = sfvalue(in2);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(cp1 && cp2)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n=(n1<n2?n1:n2);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((comp=memcmp(cp1,cp2,n-1))==0 && (comp=n1-n2)==0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode&C_COMMON)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode!=C_COMMON)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(out,'\t');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==C_ALL)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(out,'\t');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sfwrite(out,cp1,n) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(-1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(cp1 = sfgetr(in1,'\n',0))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n1 = sfvalue(in1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(cp2 = sfgetr(in2,'\n',0))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n2 = sfvalue(in2);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(comp > 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode&C_FILE2)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode&C_FILE1)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(out,'\t');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sfwrite(out,cp2,n2) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(-1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(cp2 = sfgetr(in2,'\n',0))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n2 = sfvalue(in2);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((mode&C_FILE1) && sfwrite(out,cp1,n1) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(-1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(cp1 = sfgetr(in1,'\n',0))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n1 = sfvalue(in1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(cp2)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp1 = cp2;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin in1 = in2;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n1 = n2;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode&C_FILE1)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode &= C_FILE2;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode &= C_FILE1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!mode || !cp1)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(cp1 && in1==sfstdin)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfseek(in1,(Sfoff_t)0,SEEK_END);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* process the remaining stream */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(1)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(out,'\t');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sfwrite(out,cp1,n1) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(-1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(cp1 = sfgetr(in1,'\n',0)))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n1 = sfvalue(in1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* NOT REACHED */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinb_comm(int argc, char *argv[], void* context)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int n;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int mode = C_FILE1|C_FILE2|C_COMMON;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *cp;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfio_t *f1, *f2;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cmdinit(argc, argv, context, ERROR_CATALOG, 0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (n = optget(argv, usage)) switch (n)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '1':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode &= ~C_FILE1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '2':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode &= ~C_FILE2;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '3':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode &= ~C_COMMON;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ':':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "%s",opt_info.arg);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '?':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_usage(2), "%s",opt_info.arg);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv += opt_info.index;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argc -= opt_info.index;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(error_info.errors || argc!=2)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_usage(2),"%s",optusage(NiL));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp = *argv++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(streq(cp,"-"))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f1 = sfstdin;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(!(f1 = sfopen(NiL, cp,"r")))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_system(1),"%s: cannot open",cp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp = *argv;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(streq(cp,"-"))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f2 = sfstdin;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(!(f2 = sfopen(NiL, cp,"r")))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_system(1),"%s: cannot open",cp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(comm(f1,f2,sfstdout,mode) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_system(1)," write error");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(f1==sfstdin || f2==sfstdin)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfseek(sfstdin,(Sfoff_t)0,SEEK_END);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(f1!=sfstdin)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfclose(f1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(f2!=sfstdin)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfclose(f2);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(error_info.errors);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin