join.c revision 3e14f97f673e8a630f076077de35afdd43dc1587
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* A copy of the License is available at *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Information and Software Systems Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* AT&T Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Florham Park NJ *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Glenn Fowler <gsf@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* David Korn <dgk@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * David Korn
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Glenn Fowler
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * AT&T Research
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic const char usage[] =
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner"[-?\n@(#)$Id: join (AT&T Research) 2009-12-10 $\n]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+NAME?join - relational database operator]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+DESCRIPTION?\bjoin\b performs an \aequality join\a on the files \afile1\a "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "and \afile2\a and writes the resulting joined files to standard "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "output. By default, a field is delimited by one or more spaces "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "and tabs with leading spaces and/or tabs ignored. The \b-t\b option "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "can be used to change the field delimiter.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+?The \ajoin field\a is a field in each file on which files are compared. "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "By default \bjoin\b writes one line in the output for each pair "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "of lines in \afiles1\a and \afiles2\a that have identical join "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "fields. The default output line consists of the join field, "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "then the remaining fields from \afile1\a, then the remaining "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "fields from \afile2\a, but this can be changed with the \b-o\b "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "option. The \b-a\b option can be used to add unmatched lines "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "to the output. The \b-v\b option can be used to output only "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "unmatched lines.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+?The files \afile1\a and \afile2\a must be ordered in the collating "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "sequence of \bsort -b\b on the fields on which they are to be "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "joined otherwise the results are unspecified.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+?If either \afile1\a or \afile2\a is \b-\b, \bjoin\b "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "uses standard input starting at the current location.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[e:empty]:[string?Replace empty output fields in the list selected with"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin" \b-o\b with \astring\a.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[o:output]:[list?Construct the output line to comprise the fields specified "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "in a blank or comma separated list \alist\a. Each element in "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "\alist\a consists of a file number (either 1 or 2), a period, "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "and a field number or \b0\b representing the join field. "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "As an obsolete feature multiple occurrences of \b-o\b can "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "be specified.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[t:separator|tabs]:[delim?Use \adelim\a as the field separator for both input"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin" and output.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[1:j1]#[field?Join on field \afield\a of \afile1\a. Fields start at 1.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[2:j2]#[field?Join on field \afield\a of \afile2\a. Fields start at 1.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[j:join]#[field?Equivalent to \b-1\b \afield\a \b-2\b \afield\a.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[a:unpairable]#[fileno?Write a line for each unpairable line in file"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin" \afileno\a, where \afileno\a is either 1 or 2, in addition to the"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin" normal output. If \b-a\b options appear for both 1 and 2, then "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "all unpairable lines will be output.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[v:suppress]#[fileno?Write a line for each unpairable line in file"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin" \afileno\a, where \afileno\a is either 1 or 2, instead of the normal "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "output. If \b-v\b options appear for both 1 and 2, then "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "all unpairable lines will be output.] ]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[i:ignorecase?Ignore case in field comparisons.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[B!:mmap?Enable memory mapped reads instead of buffered.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+?The following obsolete option forms are also recognized: \b-j\b \afield\a"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin" is equivalent to \b-1\b \afield\a \b-2\b \afield\a, \b-j1\b \afield\a"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin" is equivalent to \b-1\b \afield\a, and \b-j2\b \afield\a is"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin" equivalent to \b-2\b \afield\a.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"\nfile1 file2\n"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+EXIT STATUS?]{"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "[+0?Both files processed successfully.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "[+>0?An error occurred.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+SEE ALSO?\bcut\b(1), \bcomm\b(1), \bpaste\b(1), \bsort\b(1), \buniq\b(1)]"
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner#if _hdr_wchar && _hdr_wctype && _lib_iswctype
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner register int i;
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if (!(jp->file[0].fields = newof(0, Field_t, NFIELD + 1, 0)) ||
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner !(jp->file[1].fields = newof(0, Field_t, NFIELD + 1, 0)))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (c = *cp++)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*cp=='0' && ((c=cp[1])==0 || c==' ' || c=='\t' || c==','))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (cp[1]!='.' || (*cp!='1' && *cp!='2') || (c=strtol(cp+2,&str,10)) <=0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin jp->outlist = newof(jp->outlist, int, 2 * nfield + 1, 0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* need to accept obsolescent command syntax */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(cp= *argv) || cp[1]!='.' || (*cp!='1' && *cp!='2'))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*str || --c<0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin jp->outlist = newof(jp->outlist, int, 2 * nfield + 1, 0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * read in a record from file <index> and split into fields
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic unsigned char*
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner register Field_t* fieldmax = field + fp->maxfields;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* cp;
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner register int n;
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if (jp->delim == '\n') /* handle new-line delimiter specially */
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner do /* separate into fields */
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner fp->fields = newof(fp->fields, Field_t, n + 1, 0);
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner /*FALLTHROUGH*/
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner while (sp[*(unsigned char*)cp++]==S_SPACE);
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner } while (n != S_NL);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* eliminate leading spaces */
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner while (sp[*(unsigned char*)cp++]==S_SPACE);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (unsigned char*)cp;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (unsigned char*)"";
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulknerstatic unsigned char*
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner_trace_getrec(Join_t* jp, int index, int discard)
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner unsigned char* r;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define getrec(p,n,d) (u1 = getrec(p, n, d), sfprintf(sfstdout, "[G%d#%d@%I*d:%-.8s]", __LINE__, n, sizeof(Sfoff_t), sftell(p->file[n].iop), u1), u1)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * print field <n> from file <index>
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinoutfield(Join_t* jp, int index, register int n, int last)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* cp;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* cpmax;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int size;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*eliminate leading spaces */
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner while (sp[*(unsigned char*)cp++]==S_SPACE);
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if (jp->nullfield && sfputr(iop, jp->nullfield, -1) < 0)
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if (sfwrite(iop, jp->delimstr, jp->delimlen) < 0)
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner else if (sfputr(iop, jp->nullfield, n) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define outfield(p,i,n,f) (sfprintf(sfstdout, "[F%d#%d:%d,%d]", __LINE__, i1=i, i2=n, i3=f), outfield(p, i1, i2, i3))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int i;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int j;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int k;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int n;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while ((n = *out++) >= 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin i = n & 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (i=0; i<2; i++)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mode>0 && i==0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mode||i==0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* output join field first */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (j=0; j<n; j++)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin j = n + 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define outrec(p,n) (sfprintf(sfstdout, "[R#%d,%d,%lld,%lld:%-.*s{%d}:%-.*s{%d}]", __LINE__, i1=n, lo, hi, jp->file[0].fieldlen, cp1, jp->file[0].hit, jp->file[1].fieldlen, cp2, jp->file[1].hit), outrec(p, i1))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register unsigned char* cp1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register unsigned char* cp2;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int n1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int n2;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int n;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int cmp;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int same;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((cp1 = getrec(jp, 0, 0)) && (cp2 = getrec(jp, 1, 0)) || (cp2 = 0))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!n && !(cmp = n1 < n2 ? -1 : (n1 > n2)) || n && !(cmp = (int)*cp1 - (int)*cp2) && !(cmp = jp->ignorecase ? strncasecmp((char*)cp1, (char*)cp2, n) : memcmp(cp1, cp2, n)))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinsfprintf(sfstdout, "[C#%d:%d(%c-%c),%d,%lld,%lld%s]", __LINE__, cmp, *cp1, *cp2, same, lo, hi, (jp->outmode & C_COMMON) ? ",COMMON" : "");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!n && !(cmp = n1 < n2 ? -1 : (n1 > n2)) || n && !(cmp = (int)*cp1 - (int)*cp2) && !(cmp = jp->ignorecase ? strncasecmp((char*)cp1, (char*)cp2, n) : memcmp(cp1, cp2, n)) && !(cmp = n1 - n2))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sfseek(jp->file[0].iop, (Sfoff_t)-jp->file[0].reclen, SEEK_CUR) < 0 || !(cp1 = getrec(jp, 0, 0)))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_SYSTEM|2, "%s: seek error", jp->file[0].name);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((lo = sfseek(jp->file[1].iop, (Sfoff_t)0, SEEK_CUR)) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_SYSTEM|2, "%s: seek error", jp->file[1].name);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinsfprintf(sfstdout, "[2#%d:0,%lld,%lld]", __LINE__, lo, hi);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (cmp > 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(jp->same = newof(jp->same, char, jp->samesize, 0)))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (n2 == o2 && *cp2 == *jp->same && !memcmp(cp2, jp->same, n2))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_SYSTEM|2, "%s: seek error", jp->file[1].name);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinsfprintf(sfstdout, "[2#%d:0,%lld,%lld]", __LINE__, lo, hi);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((hi = sfseek(jp->file[1].iop, (Sfoff_t)0, SEEK_CUR)) < 0 ||
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_SYSTEM|2, "%s: seek error", jp->file[1].name);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (!cp2)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if ((jp->outmode & C_FILE1) && outrec(jp, -1) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinsfprintf(sfstdout, "[X#%d:?,%p,%p,%d%,%d,%d%s]", __LINE__, cp1, cp2, cmp, lo, hi, (jp->outmode & C_COMMON) ? ",COMMON" : "");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (hi >= 0 &&
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_SYSTEM|2, "%s: seek error", jp->file[1].name);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinsfprintf(sfstdout, "[O#%d:%02o:%02o]", __LINE__, jp->ooutmode, jp->outmode);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp1 = (!cp1 && cmp && hi < 0 && !jp->file[1].hit && ((jp->ooutmode ^ C_ALL) <= 1 || jp->outmode == 2)) ? cp2 : getrec(jp, 1, 0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinsfprintf(sfstdout, "[X#%d:%d,%p,%p,%d,%02o,%02o%s]", __LINE__, n, cp1, cp2, cmp, jp->ooutmode, jp->outmode, (jp->outmode & C_COMMON) ? ",COMMON" : "");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int n;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* cp;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cmdinit(argc, argv, context, ERROR_CATALOG, ERROR_NOTIFY);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * check for obsolete "-j1 field" and "-j2 field"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*FALLTHROUGH*/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*FALLTHROUGH*/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2,"%s: file number must be 1 or 2", opt_info.name);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* need to accept obsolescent command syntax */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfsetbuf(jp->file[0].iop, jp->file[0].iop, SF_UNBOUND);
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz sfsetbuf(jp->file[1].iop, jp->file[1].iop, SF_UNBOUND);