66 static int arfd = -1;			/* archive file descriptor */  variable
98 	if (arfd != -1)  in ar_open()
99 		(void)close(arfd);  in ar_open()
100 	arfd = -1;  in ar_open()
112 			arfd = STDIN_FILENO;  in ar_open()
114 		} else if ((arfd = open(name, EXT_MODE, DMOD)) < 0)  in ar_open()
116 		if (arfd != -1 && gzip_program != NULL)  in ar_open()
117 			ar_start_gzip(arfd, gzip_program, 0);  in ar_open()
121 			arfd = STDOUT_FILENO;  in ar_open()
123 		} else if ((arfd = open(name, AR_MODE, DMOD)) < 0)  in ar_open()
127 		if (arfd != -1 && gzip_program != NULL)  in ar_open()
128 			ar_start_gzip(arfd, gzip_program, 1);  in ar_open()
132 			arfd = STDOUT_FILENO;  in ar_open()
134 		} else if ((arfd = open(name, APP_MODE, DMOD)) < 0)  in ar_open()
146 	if (arfd < 0)  in ar_open()
157 	if (fstat(arfd, &arsb) < 0) {  in ar_open()
159 		(void)close(arfd);  in ar_open()
160 		arfd = -1;  in ar_open()
167 		(void)close(arfd);  in ar_open()
168 		arfd = -1;  in ar_open()
174 		artyp = ioctl(arfd, MTIOCGET, &mb) ? ISCHR : ISTAPE;  in ar_open()
177 	else if ((lseek(arfd, (off_t)0L, SEEK_CUR) == -1) && (errno == ESPIPE))  in ar_open()
299 	if (arfd < 0) {  in ar_close()
323 	if (can_unlnk && (fstat(arfd, &arsb) == 0) && (S_ISREG(arsb.st_mode)) &&  in ar_close()
336 	(void)close(arfd);  in ar_close()
347 	arfd = -1;  in ar_close()
424 	while ((res = read(arfd, drbuf, sizeof(drbuf))) > 0)  in ar_drain()
460 	if (((cpos = lseek(arfd, (off_t)0L, SEEK_CUR)) < 0) ||  in ar_set_wr()
461 	    (ftruncate(arfd, cpos) < 0)) {  in ar_set_wr()
517 		if ((res = read(arfd, buf, cnt)) > 0) {  in ar_read()
555 		if ((res = read(arfd, buf, cnt)) > 0) {  in ar_read()
597 	if ((res = write(arfd, buf, bsz)) == bsz) {  in ar_write()
619 			if ((cpos = lseek(arfd, (off_t)0L, SEEK_CUR)) < 0)  in ar_write()
622 			if (ftruncate(arfd, cpos) < 0)  in ar_write()
742 		if (ioctl(arfd, MTIOCTOP, &mb) < 0)  in ar_rdsync()
755 		if ((cpos = lseek(arfd, (off_t)0L, SEEK_CUR)) < 0)  in ar_rdsync()
758 		if (lseek(arfd, mpos, SEEK_CUR) < 0)  in ar_rdsync()
816 	if ((cpos = lseek(arfd, (off_t)0L, SEEK_CUR)) >= 0) {  in ar_fow()
828 		if (lseek(arfd, mpos, SEEK_SET) >= 0)  in ar_fow()
884 		if ((cpos = lseek(arfd, (off_t)0L, SEEK_CUR)) < 0) {  in ar_rev()
909 		if (lseek(arfd, cpos, SEEK_SET) < 0) {  in ar_rev()
956 		if (ioctl(arfd, MTIOCTOP, &mb) < 0) {  in ar_rev()
997 		while ((res = read(arfd, scbuf, sizeof(scbuf))) > 0)  in get_phys()
1011 	if (ioctl(arfd, MTIOCTOP, &mb) < 0) {  in get_phys()
1022 	if (ioctl(arfd, MTIOCTOP, &mb) < 0) {  in get_phys()
1026 	if ((phyblk = read(arfd, scbuf, sizeof(scbuf))) <= 0) {  in get_phys()
1035 	while ((res = read(arfd, scbuf, sizeof(scbuf))) > 0)  in get_phys()
1043 	if (ioctl(arfd, MTIOCTOP, &mb) < 0) {  in get_phys()
1074 	if (ioctl(arfd, MTIOCTOP, &mb) < 0) {  in get_phys()