da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic const char usage[] =

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "given input file and writes the resulting lines to standard "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "output. By default \bpaste\b replaces the newline character of "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "every line other than the last input file with the TAB character.]"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "on one or more input files, but not all input files, \bpaste\b "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "behaves as if empty lines were read from the file(s) on which "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "end-of-file was detected.]"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "the underlying operating system on how many \afile\a operands "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "can be specified.]"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "reads from standard input. The start of the file is defined as the "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "current offset.]"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "from each file. In this case if the \b-d\b option is "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "specified the delimiter will be reset to the first in the "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "list at the beginning of each file.]"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "delimiters are used circularly instead of TAB to replace "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "the newline character of the input lines. Unless the \b-s\b "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "option is specified, the delimiter will be reset to the first "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "element of \alist\a each time a line is processed from each file. "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "The delimiter characters corresponding to \alist\a will be found "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "by treating \alist\a as an ANSI-C string, except that the \b\\0\b "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "sequence will insert the empty string instead of the null character.]"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "[+0?All files processed successfully.]"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "[+>0?An error occurred.]"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <cmd.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulknertypedef struct Delim_s

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner{

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner const char* chr;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner size_t len;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner} Delim_t;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulknerstatic int paste(int nstream,Sfio_t* streams[],Sfio_t *out, register const char *delim, int dsiz, int dlen, Delim_t* mp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register const char *cp;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner register int d, n, i, z, more=1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Sfio_t *fp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin d = (dlen>0?0:-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(n=more-1,more=0; n < nstream;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fp=streams[n])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(cp = sfgetr(fp,'\n',0))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin more = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(!more) /* first stream with output */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if(dsiz == 1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfnputc(out, *delim, n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(dlen>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(d=n; d>dlen; d-=dlen)

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner sfwrite(out,delim,dsiz);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(d)

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner {

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if(mp)

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner for (i = z = 0; i < d; i++)

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner z += mp[i].len;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner else

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner z = d;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner sfwrite(out,delim,z);

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin more = n+1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sfwrite(out,cp,sfvalue(fp)-((n+1)<nstream)) < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin streams[n] = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(++n<nstream && more && d>=0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(d >= dlen)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin d = 0;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if(mp)

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner sfwrite(out,mp[d].chr,mp[d].len);

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner else if(c=delim[d])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(out,c);

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner d++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n==nstream && !streams[n-1] && more)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(out,'\n');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner } while(more);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulknerstatic int spaste(Sfio_t *in,register Sfio_t* out,register const char *delim,int dsiz,int dlen,Delim_t* mp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register const char *cp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int d=0;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if((cp = sfgetr(in,'\n',0)) && sfwrite(out,cp,sfvalue(in)-1) < 0)

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner return(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(cp=sfgetr(in, '\n',0))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(dlen)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(d >= dlen)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin d = 0;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if(mp)

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner sfwrite(out,mp[d].chr,mp[d].len);

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner else if(c=delim[d])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(out,c);

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner d++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sfwrite(out,cp,sfvalue(in)-1) < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(out,'\n');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinb_paste(int argc,register char *argv[], void* context)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int n, sflag=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Sfio_t *fp, **streams;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *cp, *delim;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner char *ep;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner Delim_t *mp;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner int dlen, dsiz;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char defdelim[2];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cmdinit(argc, argv, context, ERROR_CATALOG, 0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin delim = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (n = optget(argv, usage)) switch (n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'd':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin delim = opt_info.arg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 's':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sflag++;

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 if(error_info.errors)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_usage(2),"%s", optusage(NiL));

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if(!delim || !*delim)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner delim = defdelim;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner delim[0] = '\t';

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner delim[1] = 0;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner }

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner dlen = dsiz = stresc(delim);

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner mp = 0;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if (mbwide())

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner {

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner cp = delim;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner ep = delim + dlen;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner dlen = 0;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner while (cp < ep)

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner {

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner mbchar(cp);

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner dlen++;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner }

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if(dlen < dsiz)

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner {

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if (!(mp = newof(0, Delim_t, dlen, 0)))

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner error(ERROR_system(1), "out of space");

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner cp = delim;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner dlen = 0;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner while (cp < ep)

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner {

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner mp[dlen].chr = cp;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner mbchar(cp);

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner mp[dlen].len = cp - mp[dlen].chr;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner dlen++;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner }

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(cp = *argv)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = argc - opt_info.index;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!sflag)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(streams = (Sfio_t**)stakalloc(n*sizeof(Sfio_t*))))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_exit(1), "out of space");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!cp || streq(cp,"-"))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fp = sfstdin;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(!(fp = sfopen(NiL,cp,"r")))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_system(0),"%s: cannot open",cp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fp && sflag)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if(spaste(fp,sfstdout,delim,dsiz,dlen,mp) < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_system(0),"write failed");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fp!=sfstdin)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfclose(fp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(!sflag)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin streams[n++] = fp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin } while(cp= *argv++);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!sflag)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if(error_info.errors==0 && paste(n,streams,sfstdout,delim,dsiz,dlen,mp) < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_system(0),"write failed");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(--n>=0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((fp=streams[n]) && fp!=sfstdin)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfclose(fp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if (mp)

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner free(mp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(error_info.errors);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}