0000,0001,0002,0003,0004,0005,0006,0007,
0010,0011,0012,0013,0014,0015,0016,0017,
0020,0021,0022,0023,0024,0025,0026,0027,
0030,0031,0032,0033,0034,0035,0036,0037,
0040,0041,0042,0043,0044,0045,0046,0047,
0050,0051,0052,0053,0054,0055,0056,0057,
0060,0061,0062,0063,0064,0065,0066,0067,
0070,0071,0072,0073,0074,0075,0076,0077,
0100,0101,0102,0103,0104,0105,0106,0107,
0110,0111,0112,0113,0114,0115,0116,0117,
0120,0121,0122,0123,0124,0125,0126,0127,
0130,0131,0132,0133,0134,0134,0136,0137,
0140,0101,0102,0103,0104,0105,0106,0107,
0110,0111,0112,0113,0114,0115,0116,0117,
0120,0121,0122,0123,0124,0125,0126,0127,
0130,0131,0132,0173,0174,0175,0176,0177
1,1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1
if(**++argv
== '-') for(arg
= *argv
;;) {
} else if (**argv
== '+') {
for(a
=1; a
<=nfields
; a
++) {
for(i
=0; i
<5; i
++) /*sensitive to sizeof(proto)*/
brk(a
=- 512); /* for recursion */
nlines
= ((a
-L
)>>1) & 077777;
file
= "/usr/tmp/stmXaa";
for(*filep
= 'a';;(*filep
)++) {
if(stat(file
, lspace
) < 0) {
mess("Cannot locate temp\n");
if ((signal(2, 1) & 01) == 0)
for(a
= mflg
?0:eargc
; a
+N
< nfiles
; a
=+N
) {
while(lp
< lspace
+nlines
&& cp
< tspace
+ntext
) {
while((*cp
++ = c
= getc(ibuf
)) != '\n') {
if((f
= setfil(i
++)) == 0)
else if(fopen(f
, ibuf
) < 0)
qsort(lspace
, lp
-lspace
, 2, cmp
);
if(done
== 0 || nfiles
!= eargc
)
else if(fopen(f
, p
->b
) < 0)
if(i
== 1 || cmp(&ibuf
[i
-1], &ibuf
[i
-2]))
while (--cp
.ip
> ibuf
&& cmp(cp
.ip
, cp
.ip
-1) < 0) {
if(fcreat(setfil(nfiles
), obuf
) < 0) {
mess("Can't create temp\n");
if(eargv
[i
][0] == '-' && eargv
[i
][1] == '\0')
if(fcreat(outfil
, obuf
) < 0) {
mess("Can't create output\n");
for(i
=eargc
; i
<nfiles
; i
++) {
return(c
<= '9' && c
>= '0');
for(i
=0; i
<sizeof(proto
)/2; i
++)
register struct field
*p
;
register char *i
, *j
, *es
;
n
= ((n
/(2*es
))*es
) & 077777;
if((c
= (*qscmp
)(i
, lp
)) == 0) {
if((c
= (*qscmp
)(hp
, j
)) == 0) {
for(k
=lp
+2; k
<=hp
;) *(*k
++)='\0';
register char *ri
, *rj
, c
;
register char *ri
, *rj
, *rk
;