xref: /illumos-gate/usr/src/cmd/sgs/ar/common/cmd.c (revision fb25420b)
17c478bd9Sstevel@tonic-gate /*
27c478bd9Sstevel@tonic-gate  * CDDL HEADER START
37c478bd9Sstevel@tonic-gate  *
47c478bd9Sstevel@tonic-gate  * The contents of this file are subject to the terms of the
5ba7866cdSAli Bahrami  * Common Development and Distribution License (the "License").
6ba7866cdSAli Bahrami  * You may not use this file except in compliance with the License.
77c478bd9Sstevel@tonic-gate  *
87c478bd9Sstevel@tonic-gate  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
97c478bd9Sstevel@tonic-gate  * or http://www.opensolaris.org/os/licensing.
107c478bd9Sstevel@tonic-gate  * See the License for the specific language governing permissions
117c478bd9Sstevel@tonic-gate  * and limitations under the License.
127c478bd9Sstevel@tonic-gate  *
137c478bd9Sstevel@tonic-gate  * When distributing Covered Code, include this CDDL HEADER in each
147c478bd9Sstevel@tonic-gate  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
157c478bd9Sstevel@tonic-gate  * If applicable, add the following below this CDDL HEADER, with the
167c478bd9Sstevel@tonic-gate  * fields enclosed by brackets "[]" replaced with your own identifying
177c478bd9Sstevel@tonic-gate  * information: Portions Copyright [yyyy] [name of copyright owner]
187c478bd9Sstevel@tonic-gate  *
197c478bd9Sstevel@tonic-gate  * CDDL HEADER END
207c478bd9Sstevel@tonic-gate  */
217c478bd9Sstevel@tonic-gate /*
22ba7866cdSAli Bahrami  * Copyright (c) 1995, 2010, Oracle and/or its affiliates. All rights reserved.
23*fb25420bSRobert Mustacchi  * Copyright 2021 Oxide Computer Company
247c478bd9Sstevel@tonic-gate  */
257c478bd9Sstevel@tonic-gate 
267c478bd9Sstevel@tonic-gate /*
277c478bd9Sstevel@tonic-gate  *	Copyright (c) 1988 AT&T
287c478bd9Sstevel@tonic-gate  *	  All Rights Reserved
297c478bd9Sstevel@tonic-gate  *
307c478bd9Sstevel@tonic-gate  */
317c478bd9Sstevel@tonic-gate 
327c478bd9Sstevel@tonic-gate /*
337c478bd9Sstevel@tonic-gate  * Incompatible Archive Header
347c478bd9Sstevel@tonic-gate  *
357c478bd9Sstevel@tonic-gate  * The archive file member header used in SunOS 4.1 archive files and
367c478bd9Sstevel@tonic-gate  * Solaris archive files are incompatible. The header file is:
37*fb25420bSRobert Mustacchi  *	/usr/include/ar.h, struct ar_hdr.
387c478bd9Sstevel@tonic-gate  * The member ar_name[] in Solaris comforms with Standard and the
397c478bd9Sstevel@tonic-gate  * member name terminates with '/'. The SunOS's member does not terminate
407c478bd9Sstevel@tonic-gate  * with '/' character. A bug 4046054 was filed:
41*fb25420bSRobert Mustacchi  *	The ar command in Solaris 2.5.1 is incompatible with archives
42*fb25420bSRobert Mustacchi  *	created on 4.x.
437c478bd9Sstevel@tonic-gate  *
447c478bd9Sstevel@tonic-gate  * To handle archive files created in SunOS 4.1 system on Solaris, the
457c478bd9Sstevel@tonic-gate  * following changes were made:
467c478bd9Sstevel@tonic-gate  *
47*fb25420bSRobert Mustacchi  *	1. file.c/writefile()
48*fb25420bSRobert Mustacchi  *		Before writing each member files into the output
49*fb25420bSRobert Mustacchi  *		archive file, ar_name[] is checked. If it is NULL,
50*fb25420bSRobert Mustacchi  *		it means that the original archive header for this
51*fb25420bSRobert Mustacchi  *		member was incompatible with Solaris format.
527c478bd9Sstevel@tonic-gate  *
53*fb25420bSRobert Mustacchi  *		The original Solaris ar command ended up having
54*fb25420bSRobert Mustacchi  *		NULL name for the header. The change here uses the
55*fb25420bSRobert Mustacchi  *		ar_rawname, which is much closer to the original
56*fb25420bSRobert Mustacchi  *		name.
577c478bd9Sstevel@tonic-gate  *
58*fb25420bSRobert Mustacchi  *	2. cmd.c
59*fb25420bSRobert Mustacchi  *		For the p command, the code used to use only ar_longname
60*fb25420bSRobert Mustacchi  *		to seach the matching name. The member is set to NULL
61*fb25420bSRobert Mustacchi  *		if the archive member header was incompatible.
62*fb25420bSRobert Mustacchi  *		The ar_rawname is also used to find the matching member name.
637c478bd9Sstevel@tonic-gate  *
64*fb25420bSRobert Mustacchi  *		For commands to update the archive file, we do not
65*fb25420bSRobert Mustacchi  *		use ar_rawname, and just use the ar_longname. The commands are
66*fb25420bSRobert Mustacchi  *		r (replace), m (modify the position) and d (delete).
677c478bd9Sstevel@tonic-gate  */
687c478bd9Sstevel@tonic-gate 
697c478bd9Sstevel@tonic-gate #include "inc.h"
707c478bd9Sstevel@tonic-gate 
717c478bd9Sstevel@tonic-gate /*
72ba7866cdSAli Bahrami  * Forward Declarations
737c478bd9Sstevel@tonic-gate  */
74ba7866cdSAli Bahrami static void	ar_select(int *, unsigned long);
75ba7866cdSAli Bahrami static void	cleanup(Cmd_info *);
76ba7866cdSAli Bahrami static int	create_extract(ARFILE *, int, int, Cmd_info *);
77ba7866cdSAli Bahrami static char	*match(char *, Cmd_info *);
78ba7866cdSAli Bahrami static void	mesg(int, char *, Cmd_info *);
79ba7866cdSAli Bahrami static void	movefil(ARFILE *, struct stat *);
80ba7866cdSAli Bahrami static FILE	*stats(char *, struct stat *);
817c478bd9Sstevel@tonic-gate 
827c478bd9Sstevel@tonic-gate /*
837c478bd9Sstevel@tonic-gate  * Commands
847c478bd9Sstevel@tonic-gate  */
85ba7866cdSAli Bahrami void
rcmd(Cmd_info * cmd_info)867c478bd9Sstevel@tonic-gate rcmd(Cmd_info *cmd_info)
877c478bd9Sstevel@tonic-gate {
88ba7866cdSAli Bahrami 	FILE		*f;
89ba7866cdSAli Bahrami 	ARFILE		*fileptr;
90ba7866cdSAli Bahrami 	ARFILE		*abifile = NULL;
91ba7866cdSAli Bahrami 	ARFILE		*backptr = NULL;
92ba7866cdSAli Bahrami 	ARFILE		*endptr;
93ba7866cdSAli Bahrami 	ARFILE		*moved_files;
94*fb25420bSRobert Mustacchi 	ARFILE		*prev_entry, *new_listhead, *new_listend;
95ba7866cdSAli Bahrami 	int		deleted;
96ba7866cdSAli Bahrami 	struct stat	stbuf;
97ba7866cdSAli Bahrami 	char		*gfile;
987c478bd9Sstevel@tonic-gate 
997c478bd9Sstevel@tonic-gate 	new_listhead  = NULL;
1007c478bd9Sstevel@tonic-gate 	new_listend   = NULL;
1017c478bd9Sstevel@tonic-gate 	prev_entry    = NULL;
1027c478bd9Sstevel@tonic-gate 
1037c478bd9Sstevel@tonic-gate 	for (fileptr = getfile(cmd_info);
1047c478bd9Sstevel@tonic-gate 	    fileptr; fileptr = getfile(cmd_info)) {
1057c478bd9Sstevel@tonic-gate 		deleted = 0;
106ba7866cdSAli Bahrami 		if (!abifile && cmd_info->ponam &&
1077c478bd9Sstevel@tonic-gate 		    strcmp(fileptr->ar_longname, cmd_info->ponam) == 0)
1087c478bd9Sstevel@tonic-gate 			abifile = fileptr;
1097c478bd9Sstevel@tonic-gate 		else if (!abifile)
1107c478bd9Sstevel@tonic-gate 			backptr = fileptr;
1117c478bd9Sstevel@tonic-gate 
1127c478bd9Sstevel@tonic-gate 		if (cmd_info->namc == 0 ||
1137c478bd9Sstevel@tonic-gate 		    (gfile = match(fileptr->ar_longname, cmd_info)) != NULL) {
1147c478bd9Sstevel@tonic-gate 			/*
1157c478bd9Sstevel@tonic-gate 			 * NOTE:
1167c478bd9Sstevel@tonic-gate 			 *	Refer to "Incompatible Archive Header"
1177c478bd9Sstevel@tonic-gate 			 *	blocked comment at the beginning of this file.
1187c478bd9Sstevel@tonic-gate 			 */
1197c478bd9Sstevel@tonic-gate 			f = stats(gfile, &stbuf); /* gfile is set by match */
1207c478bd9Sstevel@tonic-gate 			if (f == NULL) {
121ba7866cdSAli Bahrami 				if (cmd_info->namc) {
122ba7866cdSAli Bahrami 					int err = errno;
123ba7866cdSAli Bahrami 					(void) fprintf(stderr,
124ba7866cdSAli Bahrami 					    MSG_INTL(MSG_SYS_OPEN),
125ba7866cdSAli Bahrami 					    gfile, strerror(err));
126ba7866cdSAli Bahrami 				}
1277c478bd9Sstevel@tonic-gate 				/*
1287c478bd9Sstevel@tonic-gate 				 * Created
1297c478bd9Sstevel@tonic-gate 				 */
1307c478bd9Sstevel@tonic-gate 				mesg('c', gfile, cmd_info);
1317c478bd9Sstevel@tonic-gate 			} else {
132ba7866cdSAli Bahrami 				if ((cmd_info->opt_flgs & u_FLAG) &&
1337c478bd9Sstevel@tonic-gate 				    stbuf.st_mtime <= fileptr->ar_date) {
1347c478bd9Sstevel@tonic-gate 					(void) fclose(f);
1357c478bd9Sstevel@tonic-gate 					continue;
1367c478bd9Sstevel@tonic-gate 				}
1377c478bd9Sstevel@tonic-gate 				/*
1387c478bd9Sstevel@tonic-gate 				 * Replaced
1397c478bd9Sstevel@tonic-gate 				 */
1407c478bd9Sstevel@tonic-gate 				mesg('r', fileptr->ar_longname, cmd_info);
1417c478bd9Sstevel@tonic-gate 				movefil(fileptr, &stbuf);
1427c478bd9Sstevel@tonic-gate 				/*
1437c478bd9Sstevel@tonic-gate 				 * Clear the previous contents.
1447c478bd9Sstevel@tonic-gate 				 */
145ba7866cdSAli Bahrami 				if (fileptr->ar_flag & F_ELFRAW) {
1467c478bd9Sstevel@tonic-gate 					/*
1477c478bd9Sstevel@tonic-gate 					 * clear ar_elf
1487c478bd9Sstevel@tonic-gate 					 */
1497c478bd9Sstevel@tonic-gate 					(void) elf_end(fileptr->ar_elf);
1507c478bd9Sstevel@tonic-gate 					fileptr->ar_elf = 0;
1517c478bd9Sstevel@tonic-gate 				}
1527c478bd9Sstevel@tonic-gate 				/* clear 'ar_flag' */
153ba7866cdSAli Bahrami 				fileptr->ar_flag &= ~F_ELFRAW;
154ba7866cdSAli Bahrami 
155ba7866cdSAli Bahrami 				/*
156ba7866cdSAli Bahrami 				 * Defer reading contents until needed, and
157ba7866cdSAli Bahrami 				 * then use an in-kernel file-to-file transfer
158ba7866cdSAli Bahrami 				 * to avoid excessive in-process memory use.
159ba7866cdSAli Bahrami 				 */
160ba7866cdSAli Bahrami 				fileptr->ar_contents = NULL;
161ba7866cdSAli Bahrami 
1627c478bd9Sstevel@tonic-gate 				if (fileptr->ar_pathname != NULL)
1637c478bd9Sstevel@tonic-gate 					free(fileptr->ar_pathname);
1647c478bd9Sstevel@tonic-gate 				if ((fileptr->ar_pathname =
1657c478bd9Sstevel@tonic-gate 				    malloc(strlen(gfile) + 1)) == NULL) {
166ba7866cdSAli Bahrami 					int err = errno;
167ba7866cdSAli Bahrami 					(void) fprintf(stderr,
168ba7866cdSAli Bahrami 					    MSG_INTL(MSG_MALLOC),
169ba7866cdSAli Bahrami 					    strerror(err));
1707c478bd9Sstevel@tonic-gate 					exit(1);
1717c478bd9Sstevel@tonic-gate 				}
1727c478bd9Sstevel@tonic-gate 
1737c478bd9Sstevel@tonic-gate 				(void) strcpy(fileptr->ar_pathname, gfile);
1747c478bd9Sstevel@tonic-gate 				(void) fclose(f);
1757c478bd9Sstevel@tonic-gate 
1767c478bd9Sstevel@tonic-gate 				if (cmd_info->ponam && (abifile != fileptr)) {
1777c478bd9Sstevel@tonic-gate 					deleted = 1;
1787c478bd9Sstevel@tonic-gate 					/* remove from archive list */
1797c478bd9Sstevel@tonic-gate 					if (prev_entry != NULL)
1807c478bd9Sstevel@tonic-gate 						prev_entry->ar_next = NULL;
1817c478bd9Sstevel@tonic-gate 					else
1827c478bd9Sstevel@tonic-gate 						listhead = NULL;
1837c478bd9Sstevel@tonic-gate 					listend = prev_entry;
1847c478bd9Sstevel@tonic-gate 
1857c478bd9Sstevel@tonic-gate 					/* add to moved list */
1867c478bd9Sstevel@tonic-gate 					if (new_listhead == NULL)
1877c478bd9Sstevel@tonic-gate 						new_listhead = fileptr;
1887c478bd9Sstevel@tonic-gate 					else
1897c478bd9Sstevel@tonic-gate 						new_listend->ar_next = fileptr;
1907c478bd9Sstevel@tonic-gate 					new_listend = fileptr;
1917c478bd9Sstevel@tonic-gate 				}
1927c478bd9Sstevel@tonic-gate 				cmd_info->modified++;
1937c478bd9Sstevel@tonic-gate 			}
1947c478bd9Sstevel@tonic-gate 		}
1957c478bd9Sstevel@tonic-gate 		else
1967c478bd9Sstevel@tonic-gate 			/*
1977c478bd9Sstevel@tonic-gate 			 * Unchaged
1987c478bd9Sstevel@tonic-gate 			 */
1997c478bd9Sstevel@tonic-gate 			mesg('u', fileptr->ar_longname, cmd_info);
2007c478bd9Sstevel@tonic-gate 
2017c478bd9Sstevel@tonic-gate 		if (deleted)
2027c478bd9Sstevel@tonic-gate 			deleted = 0;
2037c478bd9Sstevel@tonic-gate 		else
2047c478bd9Sstevel@tonic-gate 			prev_entry = fileptr;
2057c478bd9Sstevel@tonic-gate 	}
2067c478bd9Sstevel@tonic-gate 
2077c478bd9Sstevel@tonic-gate 	endptr = listend;
2087c478bd9Sstevel@tonic-gate 	cleanup(cmd_info);
2097c478bd9Sstevel@tonic-gate 	if (cmd_info->ponam && endptr &&
2107c478bd9Sstevel@tonic-gate 	    (((moved_files = endptr->ar_next) != NULL) || new_listhead)) {
2117c478bd9Sstevel@tonic-gate 		if (!abifile) {
212ba7866cdSAli Bahrami 			(void) fprintf(stderr, MSG_INTL(MSG_NOT_FOUND_POSNAM),
213ba7866cdSAli Bahrami 			    cmd_info->ponam);
2147c478bd9Sstevel@tonic-gate 			exit(2);
2157c478bd9Sstevel@tonic-gate 		}
2167c478bd9Sstevel@tonic-gate 		endptr->ar_next = NULL;
2177c478bd9Sstevel@tonic-gate 
2187c478bd9Sstevel@tonic-gate 		/*
2197c478bd9Sstevel@tonic-gate 		 * link new/moved files into archive entry list...
2207c478bd9Sstevel@tonic-gate 		 * 1: prepend newlist to moved/appended list
2217c478bd9Sstevel@tonic-gate 		 */
2227c478bd9Sstevel@tonic-gate 		if (new_listhead) {
2237c478bd9Sstevel@tonic-gate 			if (!moved_files)
2247c478bd9Sstevel@tonic-gate 				listend = new_listend;
2257c478bd9Sstevel@tonic-gate 			new_listend->ar_next = moved_files;
2267c478bd9Sstevel@tonic-gate 			moved_files = new_listhead;
2277c478bd9Sstevel@tonic-gate 		}
2287c478bd9Sstevel@tonic-gate 		/* 2: insert at appropriate position... */
229ba7866cdSAli Bahrami 		if (cmd_info->opt_flgs & b_FLAG)
2307c478bd9Sstevel@tonic-gate 			abifile = backptr;
2317c478bd9Sstevel@tonic-gate 		if (abifile) {
2327c478bd9Sstevel@tonic-gate 			listend->ar_next = abifile->ar_next;
2337c478bd9Sstevel@tonic-gate 			abifile->ar_next = moved_files;
2347c478bd9Sstevel@tonic-gate 		} else {
2357c478bd9Sstevel@tonic-gate 			listend->ar_next = listhead;
2367c478bd9Sstevel@tonic-gate 			listhead = moved_files;
2377c478bd9Sstevel@tonic-gate 		}
2387c478bd9Sstevel@tonic-gate 		listend = endptr;
2397c478bd9Sstevel@tonic-gate 	} else if (cmd_info->ponam && !abifile)
240ba7866cdSAli Bahrami 		(void) fprintf(stderr, MSG_INTL(MSG_NOT_FOUND_POSNAM),
241ba7866cdSAli Bahrami 		    cmd_info->ponam);
2427c478bd9Sstevel@tonic-gate }
2437c478bd9Sstevel@tonic-gate 
244ba7866cdSAli Bahrami void
dcmd(Cmd_info * cmd_info)2457c478bd9Sstevel@tonic-gate dcmd(Cmd_info *cmd_info)
2467c478bd9Sstevel@tonic-gate {
247d6555420Smike_s 	ARFILE	*fptr;
248d6555420Smike_s 	ARFILE *backptr = NULL;
2497c478bd9Sstevel@tonic-gate 
2507c478bd9Sstevel@tonic-gate 	for (fptr = getfile(cmd_info); fptr; fptr = getfile(cmd_info)) {
2517c478bd9Sstevel@tonic-gate 		if (match(fptr->ar_longname, cmd_info) != NULL) {
2527c478bd9Sstevel@tonic-gate 			/*
2537c478bd9Sstevel@tonic-gate 			 * NOTE:
2547c478bd9Sstevel@tonic-gate 			 *	Refer to "Incompatible Archive Header"
2557c478bd9Sstevel@tonic-gate 			 *	blocked comment at the beginning of this file.
2567c478bd9Sstevel@tonic-gate 			 */
2577c478bd9Sstevel@tonic-gate 
2587c478bd9Sstevel@tonic-gate 			/*
2597c478bd9Sstevel@tonic-gate 			 * Deleted
2607c478bd9Sstevel@tonic-gate 			 */
2617c478bd9Sstevel@tonic-gate 			mesg('d', fptr->ar_longname, cmd_info);
2627c478bd9Sstevel@tonic-gate 			if (backptr == NULL) {
2637c478bd9Sstevel@tonic-gate 				listhead = NULL;
2647c478bd9Sstevel@tonic-gate 				listend = NULL;
2657c478bd9Sstevel@tonic-gate 			} else {
2667c478bd9Sstevel@tonic-gate 				backptr->ar_next = NULL;
2677c478bd9Sstevel@tonic-gate 				listend = backptr;
2687c478bd9Sstevel@tonic-gate 			}
2697c478bd9Sstevel@tonic-gate 			cmd_info->modified = 1;
2707c478bd9Sstevel@tonic-gate 		} else {
2717c478bd9Sstevel@tonic-gate 			/*
2727c478bd9Sstevel@tonic-gate 			 * Unchaged
2737c478bd9Sstevel@tonic-gate 			 */
2747c478bd9Sstevel@tonic-gate 			mesg('u', fptr->ar_longname, cmd_info);
2757c478bd9Sstevel@tonic-gate 			backptr = fptr;
2767c478bd9Sstevel@tonic-gate 		}
2777c478bd9Sstevel@tonic-gate 	}
2787c478bd9Sstevel@tonic-gate }
2797c478bd9Sstevel@tonic-gate 
280ba7866cdSAli Bahrami void
xcmd(Cmd_info * cmd_info)2817c478bd9Sstevel@tonic-gate xcmd(Cmd_info *cmd_info)
2827c478bd9Sstevel@tonic-gate {
283ba7866cdSAli Bahrami 	int	f;
284ba7866cdSAli Bahrami 	ARFILE	*next;
285ba7866cdSAli Bahrami 	int	rawname = 0;
286ba7866cdSAli Bahrami 	long	f_len = 0;
2877c478bd9Sstevel@tonic-gate 
2887c478bd9Sstevel@tonic-gate 	/*
2897c478bd9Sstevel@tonic-gate 	 * If -T is specified, get the maximum file name length.
2907c478bd9Sstevel@tonic-gate 	 */
291ba7866cdSAli Bahrami 	if (cmd_info->opt_flgs & T_FLAG) {
292ba7866cdSAli Bahrami 		f_len = pathconf(MSG_ORIG(MSG_STR_PERIOD), _PC_NAME_MAX);
2937c478bd9Sstevel@tonic-gate 		if (f_len == -1) {
294ba7866cdSAli Bahrami 			int err = errno;
295ba7866cdSAli Bahrami 			(void) fprintf(stderr, MSG_INTL(MSG_PATHCONF),
296ba7866cdSAli Bahrami 			    strerror(err));
2977c478bd9Sstevel@tonic-gate 			exit(1);
2987c478bd9Sstevel@tonic-gate 		}
2997c478bd9Sstevel@tonic-gate 	}
3007c478bd9Sstevel@tonic-gate 	for (next = getfile(cmd_info); next; next = getfile(cmd_info)) {
3017c478bd9Sstevel@tonic-gate 		if ((next->ar_longname[0] == 0) && (next->ar_rawname[0] != 0))
3027c478bd9Sstevel@tonic-gate 			rawname = 1;
3037c478bd9Sstevel@tonic-gate 		if (cmd_info->namc == 0 ||
3047c478bd9Sstevel@tonic-gate 		    match(next->ar_longname, cmd_info) != NULL ||
3057c478bd9Sstevel@tonic-gate 		    match(next->ar_rawname, cmd_info) != NULL) {
3067c478bd9Sstevel@tonic-gate 			/*
3077c478bd9Sstevel@tonic-gate 			 * NOTE:
3087c478bd9Sstevel@tonic-gate 			 *	Refer to "Incompatible Archive Header"
3097c478bd9Sstevel@tonic-gate 			 *	blocked comment at the beginning of this file.
3107c478bd9Sstevel@tonic-gate 			 */
3117c478bd9Sstevel@tonic-gate 			f = create_extract(next, rawname, f_len, cmd_info);
3127c478bd9Sstevel@tonic-gate 			if (f >= 0) {
3137c478bd9Sstevel@tonic-gate 				if (rawname) {
3147c478bd9Sstevel@tonic-gate 					/*
3157c478bd9Sstevel@tonic-gate 					 * eXtracted
3167c478bd9Sstevel@tonic-gate 					 */
3177c478bd9Sstevel@tonic-gate 					mesg('x', next->ar_rawname, cmd_info);
3187c478bd9Sstevel@tonic-gate 					if (write(f, next->ar_contents,
3197c478bd9Sstevel@tonic-gate 					    (unsigned)next->ar_size) !=
3207c478bd9Sstevel@tonic-gate 					    next->ar_size) {
321ba7866cdSAli Bahrami 						int err = errno;
322ba7866cdSAli Bahrami 						(void) fprintf(stderr,
323ba7866cdSAli Bahrami 						    MSG_INTL(MSG_SYS_WRITE),
324ba7866cdSAli Bahrami 						    next->ar_rawname,
325ba7866cdSAli Bahrami 						    strerror(err));
3267c478bd9Sstevel@tonic-gate 						exit(1);
3277c478bd9Sstevel@tonic-gate 					}
3287c478bd9Sstevel@tonic-gate 				} else {
3297c478bd9Sstevel@tonic-gate 					/*
3307c478bd9Sstevel@tonic-gate 					 * eXtracted
3317c478bd9Sstevel@tonic-gate 					 */
3327c478bd9Sstevel@tonic-gate 					mesg('x', next->ar_longname, cmd_info);
3337c478bd9Sstevel@tonic-gate 					if (write(f, next->ar_contents,
3347c478bd9Sstevel@tonic-gate 					    (unsigned)next->ar_size) !=
3357c478bd9Sstevel@tonic-gate 					    next->ar_size) {
336ba7866cdSAli Bahrami 						int err = errno;
337ba7866cdSAli Bahrami 						(void) fprintf(stderr,
338ba7866cdSAli Bahrami 						    MSG_INTL(MSG_SYS_WRITE),
339ba7866cdSAli Bahrami 						    next->ar_longname,
340ba7866cdSAli Bahrami 						    strerror(err));
3417c478bd9Sstevel@tonic-gate 						exit(1);
3427c478bd9Sstevel@tonic-gate 					}
3437c478bd9Sstevel@tonic-gate 				}
3447c478bd9Sstevel@tonic-gate 				(void) close(f);
3457c478bd9Sstevel@tonic-gate 			} else
3467c478bd9Sstevel@tonic-gate 				exit(1);
3477c478bd9Sstevel@tonic-gate 		}
3487c478bd9Sstevel@tonic-gate 		rawname = 0;
3497c478bd9Sstevel@tonic-gate 	} /* for */
3507c478bd9Sstevel@tonic-gate }
3517c478bd9Sstevel@tonic-gate 
352ba7866cdSAli Bahrami void
pcmd(Cmd_info * cmd_info)3537c478bd9Sstevel@tonic-gate pcmd(Cmd_info *cmd_info)
3547c478bd9Sstevel@tonic-gate {
355d6555420Smike_s 	ARFILE	*next;
3567c478bd9Sstevel@tonic-gate 
3577c478bd9Sstevel@tonic-gate 	for (next = getfile(cmd_info); next; next = getfile(cmd_info)) {
3587c478bd9Sstevel@tonic-gate 		if (cmd_info->namc == 0 ||
3597c478bd9Sstevel@tonic-gate 		    match(next->ar_longname, cmd_info) != NULL ||
3607c478bd9Sstevel@tonic-gate 		    match(next->ar_rawname, cmd_info) != NULL) {
3617c478bd9Sstevel@tonic-gate 			/*
3627c478bd9Sstevel@tonic-gate 			 * NOTE:
3637c478bd9Sstevel@tonic-gate 			 *	Refer to "Incompatible Archive Header"
3647c478bd9Sstevel@tonic-gate 			 *	blocked comment at the beginning of this file.
3657c478bd9Sstevel@tonic-gate 			 */
366ba7866cdSAli Bahrami 			if (cmd_info->opt_flgs & v_FLAG) {
3677c478bd9Sstevel@tonic-gate 				(void) fprintf(stdout,
368ba7866cdSAli Bahrami 				    MSG_ORIG(MSG_FMT_P_TITLE),
369ba7866cdSAli Bahrami 				    next->ar_longname);
3707c478bd9Sstevel@tonic-gate 				(void) fflush(stdout);
3717c478bd9Sstevel@tonic-gate 			}
3727c478bd9Sstevel@tonic-gate 			(void) fwrite(next->ar_contents, sizeof (char),
3737c478bd9Sstevel@tonic-gate 			    next->ar_size, stdout);
3747c478bd9Sstevel@tonic-gate 		}
3757c478bd9Sstevel@tonic-gate 	}
3767c478bd9Sstevel@tonic-gate }
3777c478bd9Sstevel@tonic-gate 
378ba7866cdSAli Bahrami void
mcmd(Cmd_info * cmd_info)3797c478bd9Sstevel@tonic-gate mcmd(Cmd_info *cmd_info)
3807c478bd9Sstevel@tonic-gate {
381d6555420Smike_s 	ARFILE	*fileptr;
382d6555420Smike_s 	ARFILE	*abifile = NULL;
383d6555420Smike_s 	ARFILE	*tmphead = NULL;
384d6555420Smike_s 	ARFILE	*tmpend = NULL;
3857c478bd9Sstevel@tonic-gate 	ARFILE	*backptr1 = NULL;
3867c478bd9Sstevel@tonic-gate 	ARFILE	*backptr2 = NULL;
3877c478bd9Sstevel@tonic-gate 
3887c478bd9Sstevel@tonic-gate 	for (fileptr = getfile(cmd_info);
3897c478bd9Sstevel@tonic-gate 	    fileptr; fileptr = getfile(cmd_info)) {
3907c478bd9Sstevel@tonic-gate 		if (match(fileptr->ar_longname, cmd_info) != NULL) {
3917c478bd9Sstevel@tonic-gate 			/*
3927c478bd9Sstevel@tonic-gate 			 * position Modified
3937c478bd9Sstevel@tonic-gate 			 */
3947c478bd9Sstevel@tonic-gate 			mesg('m', fileptr->ar_longname, cmd_info);
3957c478bd9Sstevel@tonic-gate 			if (tmphead)
3967c478bd9Sstevel@tonic-gate 				tmpend->ar_next = fileptr;
3977c478bd9Sstevel@tonic-gate 			else
3987c478bd9Sstevel@tonic-gate 				tmphead = fileptr;
3997c478bd9Sstevel@tonic-gate 			tmpend = fileptr;
4007c478bd9Sstevel@tonic-gate 			if (backptr1) {
4017c478bd9Sstevel@tonic-gate 				listend = backptr1;
4027c478bd9Sstevel@tonic-gate 				listend->ar_next = NULL;
4037c478bd9Sstevel@tonic-gate 			}
4047c478bd9Sstevel@tonic-gate 			else
4057c478bd9Sstevel@tonic-gate 				listhead = NULL;
4067c478bd9Sstevel@tonic-gate 			continue;
4077c478bd9Sstevel@tonic-gate 		}
4087c478bd9Sstevel@tonic-gate 		/*
4097c478bd9Sstevel@tonic-gate 		 * position Unchaged
4107c478bd9Sstevel@tonic-gate 		 */
4117c478bd9Sstevel@tonic-gate 		mesg('u', fileptr->ar_longname, cmd_info);
4127c478bd9Sstevel@tonic-gate 		backptr1 = fileptr;
4137c478bd9Sstevel@tonic-gate 		if (cmd_info->ponam && !abifile) {
4147c478bd9Sstevel@tonic-gate 			if (strcmp(fileptr->ar_longname, cmd_info->ponam) == 0)
4157c478bd9Sstevel@tonic-gate 				abifile = fileptr;
4167c478bd9Sstevel@tonic-gate 			else
4177c478bd9Sstevel@tonic-gate 				backptr2 = fileptr;
4187c478bd9Sstevel@tonic-gate 		}
4197c478bd9Sstevel@tonic-gate 	}
4207c478bd9Sstevel@tonic-gate 
4217c478bd9Sstevel@tonic-gate 	if (!tmphead)
422ba7866cdSAli Bahrami 		return;
4237c478bd9Sstevel@tonic-gate 
4247c478bd9Sstevel@tonic-gate 	if (!cmd_info->ponam)
4257c478bd9Sstevel@tonic-gate 		listend->ar_next = tmphead;
4267c478bd9Sstevel@tonic-gate 	else {
4277c478bd9Sstevel@tonic-gate 		if (!abifile) {
428ba7866cdSAli Bahrami 			(void) fprintf(stderr, MSG_INTL(MSG_NOT_FOUND_POSNAM),
429ba7866cdSAli Bahrami 			    cmd_info->ponam);
4307c478bd9Sstevel@tonic-gate 			exit(2);
4317c478bd9Sstevel@tonic-gate 		}
432ba7866cdSAli Bahrami 		if (cmd_info->opt_flgs & b_FLAG)
4337c478bd9Sstevel@tonic-gate 			abifile = backptr2;
4347c478bd9Sstevel@tonic-gate 		if (abifile) {
4357c478bd9Sstevel@tonic-gate 			tmpend->ar_next = abifile->ar_next;
4367c478bd9Sstevel@tonic-gate 			abifile->ar_next = tmphead;
4377c478bd9Sstevel@tonic-gate 		} else {
4387c478bd9Sstevel@tonic-gate 			tmphead->ar_next = listhead;
4397c478bd9Sstevel@tonic-gate 			listhead = tmphead;
4407c478bd9Sstevel@tonic-gate 		}
4417c478bd9Sstevel@tonic-gate 	}
4427c478bd9Sstevel@tonic-gate 	(cmd_info->modified)++;
4437c478bd9Sstevel@tonic-gate }
4447c478bd9Sstevel@tonic-gate 
445ba7866cdSAli Bahrami void
tcmd(Cmd_info * cmd_info)4467c478bd9Sstevel@tonic-gate tcmd(Cmd_info *cmd_info)
4477c478bd9Sstevel@tonic-gate {
448d6555420Smike_s 	ARFILE	*next;
449d6555420Smike_s 	int	**mp;
4507c478bd9Sstevel@tonic-gate 	char   buf[DATESIZE];
451ba7866cdSAli Bahrami 	int m1[] = {1, S_IRUSR, 'r', '-'};
452ba7866cdSAli Bahrami 	int m2[] = {1, S_IWUSR, 'w', '-'};
453ba7866cdSAli Bahrami 	int m3[] = {2, S_ISUID, 's', S_IXUSR, 'x', '-'};
454ba7866cdSAli Bahrami 	int m4[] = {1, S_IRGRP, 'r', '-'};
455ba7866cdSAli Bahrami 	int m5[] = {1, S_IWGRP, 'w', '-'};
456ba7866cdSAli Bahrami 	int m6[] = {2, S_ISGID, 's', S_IXGRP, 'x', '-'};
457ba7866cdSAli Bahrami 	int m7[] = {1, S_IROTH, 'r', '-'};
458ba7866cdSAli Bahrami 	int m8[] = {1, S_IWOTH, 'w', '-'};
459ba7866cdSAli Bahrami 	int m9[] = {2, S_ISVTX, 't', S_IXOTH, 'x', '-'};
4607c478bd9Sstevel@tonic-gate 	int *m[10];
4617c478bd9Sstevel@tonic-gate 
4627c478bd9Sstevel@tonic-gate 	m[0] = m1;
4637c478bd9Sstevel@tonic-gate 	m[1] = m2;
4647c478bd9Sstevel@tonic-gate 	m[2] = m3;
4657c478bd9Sstevel@tonic-gate 	m[3] = m4;
4667c478bd9Sstevel@tonic-gate 	m[4] = m5;
4677c478bd9Sstevel@tonic-gate 	m[5] = m6;
4687c478bd9Sstevel@tonic-gate 	m[6] = m7;
4697c478bd9Sstevel@tonic-gate 	m[7] = m8;
4707c478bd9Sstevel@tonic-gate 	m[8] = m9;
4717c478bd9Sstevel@tonic-gate 	m[9] = 0;
4727c478bd9Sstevel@tonic-gate 
4737c478bd9Sstevel@tonic-gate 	for (next = getfile(cmd_info); next; next = getfile(cmd_info)) {
4747c478bd9Sstevel@tonic-gate 		if (cmd_info->namc == 0 ||
4757c478bd9Sstevel@tonic-gate 		    match(next->ar_longname, cmd_info) != NULL ||
4767c478bd9Sstevel@tonic-gate 		    match(next->ar_rawname, cmd_info) != NULL) {
4777c478bd9Sstevel@tonic-gate 			/*
4787c478bd9Sstevel@tonic-gate 			 * NOTE:
4797c478bd9Sstevel@tonic-gate 			 *	Refer to "Incompatible Archive Header"
4807c478bd9Sstevel@tonic-gate 			 *	blocked comment at the beginning of this file.
4817c478bd9Sstevel@tonic-gate 			 */
482*fb25420bSRobert Mustacchi 			if ((cmd_info->opt_flgs & (t_FLAG | v_FLAG)) ==
483*fb25420bSRobert Mustacchi 			    (t_FLAG | v_FLAG)) {
4847c478bd9Sstevel@tonic-gate 				for (mp = &m[0]; mp < &m[9]; )
4857c478bd9Sstevel@tonic-gate 					ar_select(*mp++, next->ar_mode);
4867c478bd9Sstevel@tonic-gate 
487ba7866cdSAli Bahrami 				(void) fprintf(stdout, MSG_ORIG(MSG_FMT_T_IDSZ),
488ba7866cdSAli Bahrami 				    next->ar_uid, next->ar_gid,
489ba7866cdSAli Bahrami 				    EC_XWORD(next->ar_size));
4907c478bd9Sstevel@tonic-gate 				if ((strftime(buf,
491ba7866cdSAli Bahrami 				    DATESIZE, MSG_ORIG(MSG_FMT_T_DATE),
4927c478bd9Sstevel@tonic-gate 				    localtime(&(next->ar_date)))) == 0) {
493ba7866cdSAli Bahrami 					(void) fprintf(stderr,
494ba7866cdSAli Bahrami 					    MSG_INTL(MSG_LOCALTIME));
4957c478bd9Sstevel@tonic-gate 					exit(1);
4967c478bd9Sstevel@tonic-gate 				}
497ba7866cdSAli Bahrami 				(void) fprintf(stdout,
498ba7866cdSAli Bahrami 				    MSG_ORIG(MSG_FMT_SPSTRSP), buf);
4997c478bd9Sstevel@tonic-gate 			}
500*fb25420bSRobert Mustacchi 			if (cmd_info->opt_flgs & t_FLAG) {
501*fb25420bSRobert Mustacchi 				if ((next->ar_longname[0] == 0) &&
502*fb25420bSRobert Mustacchi 				    (next->ar_rawname[0] != 0)) {
503*fb25420bSRobert Mustacchi 					(void) fprintf(stdout,
504*fb25420bSRobert Mustacchi 					    MSG_ORIG(MSG_FMT_STRNL),
505*fb25420bSRobert Mustacchi 					    trim(next->ar_rawname));
506*fb25420bSRobert Mustacchi 				} else {
507*fb25420bSRobert Mustacchi 					(void) fprintf(stdout,
508*fb25420bSRobert Mustacchi 					    MSG_ORIG(MSG_FMT_STRNL),
509*fb25420bSRobert Mustacchi 					    trim(next->ar_longname));
510*fb25420bSRobert Mustacchi 				}
511*fb25420bSRobert Mustacchi 			}
5127c478bd9Sstevel@tonic-gate 		}
513*fb25420bSRobert Mustacchi 	}
5147c478bd9Sstevel@tonic-gate }
5157c478bd9Sstevel@tonic-gate 
516ba7866cdSAli Bahrami void
qcmd(Cmd_info * cmd_info)5177c478bd9Sstevel@tonic-gate qcmd(Cmd_info *cmd_info)
5187c478bd9Sstevel@tonic-gate {
519d6555420Smike_s 	ARFILE *fptr;
5207c478bd9Sstevel@tonic-gate 
521ba7866cdSAli Bahrami 	if (cmd_info->opt_flgs & (a_FLAG | b_FLAG)) {
522*fb25420bSRobert Mustacchi 		(void) fprintf(stderr, MSG_INTL(MSG_USAGE_Q_BAD_ARG));
5237c478bd9Sstevel@tonic-gate 		exit(1);
5247c478bd9Sstevel@tonic-gate 	}
5257c478bd9Sstevel@tonic-gate 	for (fptr = getfile(cmd_info); fptr; fptr = getfile(cmd_info))
5267c478bd9Sstevel@tonic-gate 		;
5277c478bd9Sstevel@tonic-gate 	cleanup(cmd_info);
5287c478bd9Sstevel@tonic-gate }
5297c478bd9Sstevel@tonic-gate 
5307c478bd9Sstevel@tonic-gate /*
5317c478bd9Sstevel@tonic-gate  * Supplementary functions
5327c478bd9Sstevel@tonic-gate  */
5337c478bd9Sstevel@tonic-gate static char *
match(char * file,Cmd_info * cmd_info)5347c478bd9Sstevel@tonic-gate match(char *file, Cmd_info *cmd_info)
5357c478bd9Sstevel@tonic-gate {
536d6555420Smike_s 	int i;
5377c478bd9Sstevel@tonic-gate 
5387c478bd9Sstevel@tonic-gate 	for (i = 0; i < cmd_info->namc; i++) {
5397c478bd9Sstevel@tonic-gate 		if (cmd_info->namv[i] == 0)
5407c478bd9Sstevel@tonic-gate 			continue;
5417c478bd9Sstevel@tonic-gate 		if (strcmp(trim(cmd_info->namv[i]), file) == 0) {
5427c478bd9Sstevel@tonic-gate 			file = cmd_info->namv[i];
5437c478bd9Sstevel@tonic-gate 			cmd_info->namv[i] = 0;
5447c478bd9Sstevel@tonic-gate 			return (file);
5457c478bd9Sstevel@tonic-gate 		}
5467c478bd9Sstevel@tonic-gate 	}
5477c478bd9Sstevel@tonic-gate 	return (NULL);
5487c478bd9Sstevel@tonic-gate }
5497c478bd9Sstevel@tonic-gate 
5507c478bd9Sstevel@tonic-gate /*
5517c478bd9Sstevel@tonic-gate  * puts the file which was in the list in the linked list
5527c478bd9Sstevel@tonic-gate  */
5537c478bd9Sstevel@tonic-gate static void
cleanup(Cmd_info * cmd_info)5547c478bd9Sstevel@tonic-gate cleanup(Cmd_info *cmd_info)
5557c478bd9Sstevel@tonic-gate {
556d6555420Smike_s 	int i;
557d6555420Smike_s 	FILE	*f;
558d6555420Smike_s 	ARFILE	*fileptr;
5597c478bd9Sstevel@tonic-gate 	struct stat stbuf;
5607c478bd9Sstevel@tonic-gate 
5617c478bd9Sstevel@tonic-gate 	for (i = 0; i < cmd_info->namc; i++) {
5627c478bd9Sstevel@tonic-gate 		if (cmd_info->namv[i] == 0)
5637c478bd9Sstevel@tonic-gate 			continue;
5647c478bd9Sstevel@tonic-gate 		/*
5657c478bd9Sstevel@tonic-gate 		 * Appended
5667c478bd9Sstevel@tonic-gate 		 */
5677c478bd9Sstevel@tonic-gate 		mesg('a', cmd_info->namv[i], cmd_info);
5687c478bd9Sstevel@tonic-gate 		f = stats(cmd_info->namv[i], &stbuf);
569ba7866cdSAli Bahrami 		if (f == NULL) {
570ba7866cdSAli Bahrami 			int err = errno;
571ba7866cdSAli Bahrami 			(void) fprintf(stderr, MSG_INTL(MSG_SYS_OPEN),
572ba7866cdSAli Bahrami 			    cmd_info->namv[i], strerror(err));
573ba7866cdSAli Bahrami 		} else {
5747c478bd9Sstevel@tonic-gate 			fileptr = newfile();
5757c478bd9Sstevel@tonic-gate 			/* if short name */
5767c478bd9Sstevel@tonic-gate 			(void) strncpy(fileptr->ar_name,
5777c478bd9Sstevel@tonic-gate 			    trim(cmd_info->namv[i]), SNAME);
5787c478bd9Sstevel@tonic-gate 
5797c478bd9Sstevel@tonic-gate 			if ((fileptr->ar_longname =
5807c478bd9Sstevel@tonic-gate 			    malloc(strlen(trim(cmd_info->namv[i])) + 1)) ==
5817c478bd9Sstevel@tonic-gate 			    NULL) {
582ba7866cdSAli Bahrami 				int err = errno;
583ba7866cdSAli Bahrami 				(void) fprintf(stderr, MSG_INTL(MSG_MALLOC),
584ba7866cdSAli Bahrami 				    strerror(err));
5857c478bd9Sstevel@tonic-gate 				exit(1);
5867c478bd9Sstevel@tonic-gate 			}
5877c478bd9Sstevel@tonic-gate 
5887c478bd9Sstevel@tonic-gate 			(void) strcpy(fileptr->ar_longname,
5897c478bd9Sstevel@tonic-gate 			    trim(cmd_info->namv[i]));
5907c478bd9Sstevel@tonic-gate 
5917c478bd9Sstevel@tonic-gate 			if ((fileptr->ar_pathname =
5927c478bd9Sstevel@tonic-gate 			    malloc(strlen(cmd_info->namv[i]) + 1)) == NULL) {
593ba7866cdSAli Bahrami 				int err = errno;
594ba7866cdSAli Bahrami 				(void) fprintf(stderr, MSG_INTL(MSG_MALLOC),
595ba7866cdSAli Bahrami 				    strerror(err));
5967c478bd9Sstevel@tonic-gate 				exit(1);
5977c478bd9Sstevel@tonic-gate 			}
5987c478bd9Sstevel@tonic-gate 
5997c478bd9Sstevel@tonic-gate 			(void) strcpy(fileptr->ar_pathname, cmd_info->namv[i]);
6007c478bd9Sstevel@tonic-gate 
6017c478bd9Sstevel@tonic-gate 			movefil(fileptr, &stbuf);
6027c478bd9Sstevel@tonic-gate 
6037c478bd9Sstevel@tonic-gate 			/* clear 'ar_flag' */
604ba7866cdSAli Bahrami 			fileptr->ar_flag &= ~F_ELFRAW;
605ba7866cdSAli Bahrami 
606ba7866cdSAli Bahrami 			/*
607ba7866cdSAli Bahrami 			 * Defer reading contents until needed, and then use
608ba7866cdSAli Bahrami 			 * an in-kernel file-to-file transfer to avoid
609ba7866cdSAli Bahrami 			 * excessive in-process memory use.
610ba7866cdSAli Bahrami 			 */
611ba7866cdSAli Bahrami 			fileptr->ar_contents = NULL;
612ba7866cdSAli Bahrami 
6137c478bd9Sstevel@tonic-gate 			(void) fclose(f);
6147c478bd9Sstevel@tonic-gate 			(cmd_info->modified)++;
6157c478bd9Sstevel@tonic-gate 			cmd_info->namv[i] = 0;
6167c478bd9Sstevel@tonic-gate 		}
6177c478bd9Sstevel@tonic-gate 	}
6187c478bd9Sstevel@tonic-gate }
6197c478bd9Sstevel@tonic-gate 
6207c478bd9Sstevel@tonic-gate /*
6217c478bd9Sstevel@tonic-gate  * insert the file 'file' into the temporary file
6227c478bd9Sstevel@tonic-gate  */
6237c478bd9Sstevel@tonic-gate static void
movefil(ARFILE * fileptr,struct stat * stbuf)6247c478bd9Sstevel@tonic-gate movefil(ARFILE *fileptr, struct stat *stbuf)
6257c478bd9Sstevel@tonic-gate {
6267c478bd9Sstevel@tonic-gate 	fileptr->ar_size = stbuf->st_size;
6277c478bd9Sstevel@tonic-gate 	fileptr->ar_date = stbuf->st_mtime;
6287c478bd9Sstevel@tonic-gate 	fileptr->ar_mode = stbuf->st_mode;
6297c478bd9Sstevel@tonic-gate 
6307c478bd9Sstevel@tonic-gate 	/*
6317c478bd9Sstevel@tonic-gate 	 * The format of an 'ar' file includes a 6 character
6327c478bd9Sstevel@tonic-gate 	 * decimal string to contain the uid.
6337c478bd9Sstevel@tonic-gate 	 *
6347c478bd9Sstevel@tonic-gate 	 * If the uid or gid is too big to fit, then set it to
6357c478bd9Sstevel@tonic-gate 	 * nobody (for want of a better value).  Clear the
6367c478bd9Sstevel@tonic-gate 	 * setuid/setgid bits in the mode to avoid setuid nobody
6377c478bd9Sstevel@tonic-gate 	 * or setgid nobody files unexpectedly coming into existence.
6387c478bd9Sstevel@tonic-gate 	 */
6397c478bd9Sstevel@tonic-gate 	if ((fileptr->ar_uid = stbuf->st_uid) > 999999) {
6407c478bd9Sstevel@tonic-gate 		fileptr->ar_uid = UID_NOBODY;
6417c478bd9Sstevel@tonic-gate 		if (S_ISREG(fileptr->ar_mode))
6427c478bd9Sstevel@tonic-gate 			fileptr->ar_mode &= ~S_ISUID;
6437c478bd9Sstevel@tonic-gate 	}
6447c478bd9Sstevel@tonic-gate 	if ((fileptr->ar_gid = stbuf->st_gid) > 999999) {
6457c478bd9Sstevel@tonic-gate 		fileptr->ar_gid = GID_NOBODY;
6467c478bd9Sstevel@tonic-gate 		if (S_ISREG(fileptr->ar_mode))
6477c478bd9Sstevel@tonic-gate 			fileptr->ar_mode &= ~S_ISGID;
6487c478bd9Sstevel@tonic-gate 	}
6497c478bd9Sstevel@tonic-gate }
6507c478bd9Sstevel@tonic-gate 
6517c478bd9Sstevel@tonic-gate static FILE *
stats(char * file,struct stat * stbuf)6527c478bd9Sstevel@tonic-gate stats(char *file, struct stat *stbuf)
6537c478bd9Sstevel@tonic-gate {
654d6555420Smike_s 	FILE *f;
6557c478bd9Sstevel@tonic-gate 
656ba7866cdSAli Bahrami 	f = fopen(file, MSG_ORIG(MSG_STR_LCR));
6577c478bd9Sstevel@tonic-gate 	if (f == NULL)
6587c478bd9Sstevel@tonic-gate 		return (f);
6597c478bd9Sstevel@tonic-gate 	if (stat(file, stbuf) < 0) {
6607c478bd9Sstevel@tonic-gate 		(void) fclose(f);
6617c478bd9Sstevel@tonic-gate 		return (NULL);
6627c478bd9Sstevel@tonic-gate 	}
6637c478bd9Sstevel@tonic-gate 	return (f);
6647c478bd9Sstevel@tonic-gate }
6657c478bd9Sstevel@tonic-gate 
6667c478bd9Sstevel@tonic-gate /*
6677c478bd9Sstevel@tonic-gate  * Used by xcmd()
6687c478bd9Sstevel@tonic-gate  */
6697c478bd9Sstevel@tonic-gate int
create_extract(ARFILE * a,int rawname,int f_len,Cmd_info * cmd_info)6707c478bd9Sstevel@tonic-gate create_extract(ARFILE *a, int rawname, int f_len, Cmd_info *cmd_info)
6717c478bd9Sstevel@tonic-gate {
6727c478bd9Sstevel@tonic-gate 
6737c478bd9Sstevel@tonic-gate 	int f;
6747c478bd9Sstevel@tonic-gate 	char *f_name;
6757c478bd9Sstevel@tonic-gate 	char *dup = NULL;
6767c478bd9Sstevel@tonic-gate 	if (rawname)
6777c478bd9Sstevel@tonic-gate 		f_name = a->ar_rawname;
6787c478bd9Sstevel@tonic-gate 	else
6797c478bd9Sstevel@tonic-gate 		f_name = a->ar_longname;
6807c478bd9Sstevel@tonic-gate 
6817c478bd9Sstevel@tonic-gate 	/*
6827c478bd9Sstevel@tonic-gate 	 * If -T is specified, check the file length.
6837c478bd9Sstevel@tonic-gate 	 */
684ba7866cdSAli Bahrami 	if (cmd_info->opt_flgs & T_FLAG) {
6857c478bd9Sstevel@tonic-gate 		int len;
6867c478bd9Sstevel@tonic-gate 		len = strlen(f_name);
6877c478bd9Sstevel@tonic-gate 		if (f_len <= len) {
6887c478bd9Sstevel@tonic-gate 			dup = malloc(f_len+1);
6897c478bd9Sstevel@tonic-gate 			if (dup == NULL) {
690ba7866cdSAli Bahrami 				int err = errno;
691ba7866cdSAli Bahrami 				(void) fprintf(stderr, MSG_INTL(MSG_MALLOC),
692ba7866cdSAli Bahrami 				    strerror(err));
6937c478bd9Sstevel@tonic-gate 				exit(1);
6947c478bd9Sstevel@tonic-gate 			}
6957c478bd9Sstevel@tonic-gate 			(void) strncpy(dup, f_name, f_len);
6967c478bd9Sstevel@tonic-gate 		}
6977c478bd9Sstevel@tonic-gate 		f_name = dup;
6987c478bd9Sstevel@tonic-gate 	}
6997c478bd9Sstevel@tonic-gate 
7007c478bd9Sstevel@tonic-gate 	/*
7017c478bd9Sstevel@tonic-gate 	 * Bug 4052067 - If a file to be extracted has the same
7027c478bd9Sstevel@tonic-gate 	 * filename as the archive, the archive gets overwritten
7037c478bd9Sstevel@tonic-gate 	 * which can lead to a corrupted archive or worse, a ufs
7047c478bd9Sstevel@tonic-gate 	 * deadlock because libelf has mmap'ed the archive!  We
7057c478bd9Sstevel@tonic-gate 	 * can't rely on strcmp() to test for this case because
7067c478bd9Sstevel@tonic-gate 	 * the archive could be prefixed with a partial or full
7077c478bd9Sstevel@tonic-gate 	 * path (and we could be using the rawname from the archive)
7087c478bd9Sstevel@tonic-gate 	 * This means we have to do the same thing we did for mv,
7097c478bd9Sstevel@tonic-gate 	 * which is to explicitly check if the file we would extract
7107c478bd9Sstevel@tonic-gate 	 * to is identical to the archive.  Because part of this
7117c478bd9Sstevel@tonic-gate 	 * test is essentially what the -C flag does, I've merged
7127c478bd9Sstevel@tonic-gate 	 * the code together.
7137c478bd9Sstevel@tonic-gate 	 */
7147c478bd9Sstevel@tonic-gate 	if (access(f_name, F_OK) != -1) {
7157c478bd9Sstevel@tonic-gate 		struct stat s1, s2;
7167c478bd9Sstevel@tonic-gate 
7177c478bd9Sstevel@tonic-gate 		/*
7187c478bd9Sstevel@tonic-gate 		 * If -C is specified, this is an error anyway
7197c478bd9Sstevel@tonic-gate 		 */
720ba7866cdSAli Bahrami 		if (cmd_info->opt_flgs & C_FLAG) {
721ba7866cdSAli Bahrami 			(void) fprintf(stderr, MSG_INTL(MSG_OVERRIDE_WARN),
722ba7866cdSAli Bahrami 			    f_name);
7237c478bd9Sstevel@tonic-gate 			if (dup != NULL)
7247c478bd9Sstevel@tonic-gate 				free(dup);
7257c478bd9Sstevel@tonic-gate 			return (-1);
7267c478bd9Sstevel@tonic-gate 		}
7277c478bd9Sstevel@tonic-gate 
7287c478bd9Sstevel@tonic-gate 		/*
7297c478bd9Sstevel@tonic-gate 		 * Okay, -C wasn't specified.  However, now we do
7307c478bd9Sstevel@tonic-gate 		 * the check to see if the archive would be overwritten
7317c478bd9Sstevel@tonic-gate 		 * by extracting this file.  stat() both objects and
7327c478bd9Sstevel@tonic-gate 		 * test to see if their identical.
7337c478bd9Sstevel@tonic-gate 		 */
7347c478bd9Sstevel@tonic-gate 		if ((stat(f_name, &s1) == 0) &&
7357c478bd9Sstevel@tonic-gate 		    (stat(cmd_info->arnam, &s2) == 0)) {
7367c478bd9Sstevel@tonic-gate 
7377c478bd9Sstevel@tonic-gate 			if ((s1.st_dev == s2.st_dev) &&
7387c478bd9Sstevel@tonic-gate 			    (s1.st_ino == s2.st_ino)) {
7397c478bd9Sstevel@tonic-gate 
740ba7866cdSAli Bahrami 				(void) fprintf(stderr,
741ba7866cdSAli Bahrami 				    MSG_INTL(MSG_OVERRIDE_WARN), f_name);
7427c478bd9Sstevel@tonic-gate 				if (dup != NULL)
7437c478bd9Sstevel@tonic-gate 					free(dup);
7447c478bd9Sstevel@tonic-gate 				return (-1);
7457c478bd9Sstevel@tonic-gate 			}
7467c478bd9Sstevel@tonic-gate 		}
7477c478bd9Sstevel@tonic-gate 	}
7487c478bd9Sstevel@tonic-gate 
7497c478bd9Sstevel@tonic-gate 	/*
7507c478bd9Sstevel@tonic-gate 	 * Okay to create extraction file...
7517c478bd9Sstevel@tonic-gate 	 */
7527c478bd9Sstevel@tonic-gate 	f = creat(f_name, (mode_t)a->ar_mode & 0777);
7537c478bd9Sstevel@tonic-gate 	if (f < 0) {
754ba7866cdSAli Bahrami 		int err = errno;
755ba7866cdSAli Bahrami 		(void) fprintf(stderr, MSG_INTL(MSG_SYS_OPEN), f_name,
756ba7866cdSAli Bahrami 		    strerror(err));
7577c478bd9Sstevel@tonic-gate 		/*
7587c478bd9Sstevel@tonic-gate 		 * Created
7597c478bd9Sstevel@tonic-gate 		 */
7607c478bd9Sstevel@tonic-gate 		mesg('c', f_name, cmd_info);
7617c478bd9Sstevel@tonic-gate 	}
7627c478bd9Sstevel@tonic-gate 	if (dup)
7637c478bd9Sstevel@tonic-gate 		free(dup);
7647c478bd9Sstevel@tonic-gate 	return (f);
7657c478bd9Sstevel@tonic-gate }
7667c478bd9Sstevel@tonic-gate 
7677c478bd9Sstevel@tonic-gate static void
mesg(int c,char * file,Cmd_info * cmd_info)7687c478bd9Sstevel@tonic-gate mesg(int c, char *file, Cmd_info *cmd_info)
7697c478bd9Sstevel@tonic-gate {
7707c478bd9Sstevel@tonic-gate #ifdef XPG4
7717c478bd9Sstevel@tonic-gate 	/*
7727c478bd9Sstevel@tonic-gate 	 * XPG4 does not have any message defined for
7737c478bd9Sstevel@tonic-gate 	 * 'c' operation.
7747c478bd9Sstevel@tonic-gate 	 * In fact, XPG only defines messages for
7757c478bd9Sstevel@tonic-gate 	 *	d, r, a and x at the present. (03/05/'96)
7767c478bd9Sstevel@tonic-gate 	 */
7777c478bd9Sstevel@tonic-gate 	if (c == 'c' || c == 'u' || c == 'm')
7787c478bd9Sstevel@tonic-gate 		return;
7797c478bd9Sstevel@tonic-gate #endif
7807c478bd9Sstevel@tonic-gate 	/*
7817c478bd9Sstevel@tonic-gate 	 * If 'u' is passed, convert it to 'c'.
7827c478bd9Sstevel@tonic-gate 	 * 'u' makes more sense since the operation did not
7837c478bd9Sstevel@tonic-gate 	 * do anything, Unchanged, but 'c' has been used so
7847c478bd9Sstevel@tonic-gate 	 * I do no want to break the compatibility at this moment.
7857c478bd9Sstevel@tonic-gate 	 * (03/05/'96).
7867c478bd9Sstevel@tonic-gate 	 */
7877c478bd9Sstevel@tonic-gate 	if (c == 'u')
7887c478bd9Sstevel@tonic-gate 		c = 'c';
789ba7866cdSAli Bahrami 	if (cmd_info->opt_flgs & v_FLAG)
7907c478bd9Sstevel@tonic-gate 		if (c != 'c')
791ba7866cdSAli Bahrami 			(void) fprintf(stdout, MSG_ORIG(MSG_FMT_FILE), c, file);
7927c478bd9Sstevel@tonic-gate }
7937c478bd9Sstevel@tonic-gate 
7947c478bd9Sstevel@tonic-gate static void
ar_select(int * pairp,unsigned long mode)7957c478bd9Sstevel@tonic-gate ar_select(int *pairp, unsigned long mode)
7967c478bd9Sstevel@tonic-gate {
797d6555420Smike_s 	int n, *ap;
7987c478bd9Sstevel@tonic-gate 
7997c478bd9Sstevel@tonic-gate 	ap = pairp;
8007c478bd9Sstevel@tonic-gate 	n = *ap++;
8017c478bd9Sstevel@tonic-gate 	while (--n >= 0 && (mode & *ap++) == 0)
8027c478bd9Sstevel@tonic-gate 		ap++;
8037c478bd9Sstevel@tonic-gate 	(void) putchar(*ap);
8047c478bd9Sstevel@tonic-gate }
805