arscan.c

Last change on this file was 2580, checked in by bird, 12 years ago
Importing the make-3-82 CVS tag with --auto-props but no keywords.
Property svn:eol-style set to `native`
File size: 21.4 KB

Line
1	/* Library function for scanning an archive file.
2	Copyright (C) 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997,
3	1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
4	2010 Free Software Foundation, Inc.
5	This file is part of GNU Make.
6
7	GNU Make is free software; you can redistribute it and/or modify it under the
8	terms of the GNU General Public License as published by the Free Software
9	Foundation; either version 3 of the License, or (at your option) any later
10	version.
11
12	GNU Make is distributed in the hope that it will be useful, but WITHOUT ANY
13	WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14	A PARTICULAR PURPOSE. See the GNU General Public License for more details.
15
16	You should have received a copy of the GNU General Public License along with
17	this program. If not, see <http://www.gnu.org/licenses/>. */
18
19	#include "make.h"
20
21	#ifdef HAVE_FCNTL_H
22	#include <fcntl.h>
23	#else
24	#include <sys/file.h>
25	#endif
26
27	#ifndef NO_ARCHIVES
28
29	#ifdef VMS
30	#include <lbrdef.h>
31	#include <mhddef.h>
32	#include <credef.h>
33	#include <descrip.h>
34	#include <ctype.h>
35	#if __DECC
36	#include <unixlib.h>
37	#include <lbr$routines.h>
38	#endif
39
40	static void *VMS_lib_idx;
41
42	static char *VMS_saved_memname;
43
44	static time_t VMS_member_date;
45
46	static long int (*VMS_function) ();
47
48	static int
49	VMS_get_member_info (struct dsc$descriptor_s module, unsigned long rfa)
50	{
51	int status, i;
52	long int fnval;
53
54	time_t val;
55
56	static struct dsc$descriptor_s bufdesc =
57	{ 0, DSC$K_DTYPE_T, DSC$K_CLASS_S, NULL };
58
59	struct mhddef *mhd;
60	char filename[128];
61
62	bufdesc.dsc$a_pointer = filename;
63	bufdesc.dsc$w_length = sizeof (filename);
64
65	status = lbr$set_module (&VMS_lib_idx, rfa, &bufdesc,
66	&bufdesc.dsc$w_length, 0);
67	if (! (status & 1))
68	{
69	error (NILF, _("lbr$set_module() failed to extract module info, status = %d"),
70	status);
71
72	lbr$close (&VMS_lib_idx);
73
74	return 0;
75	}
76
77	mhd = (struct mhddef *) filename;
78
79	#ifdef __DECC
80	/* John Fowler <jfowler@nyx.net> writes this is needed in his environment,
81	* but that decc$fix_time() isn't documented to work this way. Let me
82	* know if this causes problems in other VMS environments.
83	*/
84	{
85	/* Modified by M. Gehre at 11-JAN-2008 because old formula is wrong:
86	* val = decc$fix_time (&mhd->mhd$l_datim) + timezone - daylight*3600;
87	* a) daylight specifies, if the timezone has daylight saving enabled, not
88	* if it is active
89	* b) what we need is the information, if daylight saving was active, if
90	* the library module was replaced. This information we get using the
91	* localtime function
92	*/
93
94	struct tm *tmp;
95
96	/* Conversion from VMS time to C time */
97	val = decc$fix_time (&mhd->mhd$l_datim);
98
99	/*
100	* Conversion from local time (stored in library) to GMT (needed for gmake)
101	* Note: The tm_gmtoff element is a VMS extension to the ANSI standard.
102	*/
103	tmp = localtime (&val);
104	val -= tmp->tm_gmtoff;
105	}
106	#endif
107
108	for (i = 0; i < module->dsc$w_length; i++)
109	filename[i] = _tolower ((unsigned char)module->dsc$a_pointer[i]);
110
111	filename[i] = '\0';
112
113	VMS_member_date = (time_t) -1;
114
115	fnval =
116	(*VMS_function) (-1, filename, 0, 0, 0, 0, val, 0, 0, 0,
117	VMS_saved_memname);
118
119	if (fnval)
120	{
121	VMS_member_date = fnval;
122	return 0;
123	}
124	else
125	return 1;
126	}
127
128	/* Takes three arguments ARCHIVE, FUNCTION and ARG.
129
130	Open the archive named ARCHIVE, find its members one by one,
131	and for each one call FUNCTION with the following arguments:
132	archive file descriptor for reading the data,
133	member name,
134	member name might be truncated flag,
135	member header position in file,
136	member data position in file,
137	member data size,
138	member date,
139	member uid,
140	member gid,
141	member protection mode,
142	ARG.
143
144	NOTE: on VMS systems, only name, date, and arg are meaningful!
145
146	The descriptor is poised to read the data of the member
147	when FUNCTION is called. It does not matter how much
148	data FUNCTION reads.
149
150	If FUNCTION returns nonzero, we immediately return
151	what FUNCTION returned.
152
153	Returns -1 if archive does not exist,
154	Returns -2 if archive has invalid format.
155	Returns 0 if have scanned successfully. */
156
157	long int
158	ar_scan (const char archive, ar_member_func_t function, const void arg)
159	{
160	char *p;
161
162	static struct dsc$descriptor_s libdesc =
163	{ 0, DSC$K_DTYPE_T, DSC$K_CLASS_S, NULL };
164
165	unsigned long func = LBR$C_READ;
166	unsigned long type = LBR$C_TYP_UNK;
167	unsigned long index = 1;
168
169	int status;
170
171	status = lbr$ini_control (&VMS_lib_idx, &func, &type, 0);
172
173	if (! (status & 1))
174	{
175	error (NILF, _("lbr$ini_control() failed with status = %d"), status);
176	return -2;
177	}
178
179	/* there is no such descriptor with "const char dsc$a_pointer" /
180	libdesc.dsc$a_pointer = (char *)archive;
181	libdesc.dsc$w_length = strlen (archive);
182
183	status = lbr$open (&VMS_lib_idx, &libdesc, 0, 0, 0, 0, 0);
184
185	if (! (status & 1))
186	{
187	error (NILF, _("unable to open library `%s' to lookup member `%s'"),
188	archive, (char *)arg);
189	return -1;
190	}
191
192	VMS_saved_memname = (char *)arg;
193
194	/* For comparison, delete .obj from arg name. */
195
196	p = strrchr (VMS_saved_memname, '.');
197	if (p)
198	*p = '\0';
199
200	VMS_function = function;
201
202	VMS_member_date = (time_t) -1;
203	lbr$get_index (&VMS_lib_idx, &index, VMS_get_member_info, 0);
204
205	/* Undo the damage. */
206	if (p)
207	*p = '.';
208
209	lbr$close (&VMS_lib_idx);
210
211	return VMS_member_date > 0 ? VMS_member_date : 0;
212	}
213
214	#else /* !VMS */
215
216	/* SCO Unix's compiler defines both of these. */
217	#ifdef M_UNIX
218	#undef M_XENIX
219	#endif
220
221	/* On the sun386i and in System V rel 3, ar.h defines two different archive
222	formats depending upon whether you have defined PORTAR (normal) or PORT5AR
223	(System V Release 1). There is no default, one or the other must be defined
224	to have a nonzero value. */
225
226	#if (!defined (PORTAR) \|\| PORTAR == 0) && (!defined (PORT5AR) \|\| PORT5AR == 0)
227	#undef PORTAR
228	#ifdef M_XENIX
229	/* According to Jim Sievert <jas1@rsvl.unisys.com>, for SCO XENIX defining
230	PORTAR to 1 gets the wrong archive format, and defining it to 0 gets the
231	right one. */
232	#define PORTAR 0
233	#else
234	#define PORTAR 1
235	#endif
236	#endif
237
238	/* On AIX, define these symbols to be sure to get both archive formats.
239	AIX 4.3 introduced the "big" archive format to support 64-bit object
240	files, so on AIX 4.3 systems we need to support both the "normal" and
241	"big" archive formats. An archive's format is indicated in the
242	"fl_magic" field of the "FL_HDR" structure. For a normal archive,
243	this field will be the string defined by the AIAMAG symbol. For a
244	"big" archive, it will be the string defined by the AIAMAGBIG symbol
245	(at least on AIX it works this way).
246
247	Note: we'll define these symbols regardless of which AIX version
248	we're compiling on, but this is okay since we'll use the new symbols
249	only if they're present. */
250	#ifdef _AIX
251	# define __AR_SMALL__
252	# define __AR_BIG__
253	#endif
254
255	#ifndef WINDOWS32
256	# ifndef __BEOS__
257	# include <ar.h>
258	# else
259	/* BeOS 5 doesn't have <ar.h> but has archives in the same format
260	* as many other Unices. This was taken from GNU binutils for BeOS.
261	*/
262	# define ARMAG "!<arch>\n" /* String that begins an archive file. */
263	# define SARMAG 8 /* Size of that string. */
264	# define ARFMAG "`\n" /* String in ar_fmag at end of each header. */
265	struct ar_hdr
266	{
267	char ar_name[16]; /* Member file name, sometimes / terminated. */
268	char ar_date[12]; /* File date, decimal seconds since Epoch. */
269	char ar_uid[6], ar_gid[6]; /* User and group IDs, in ASCII decimal. */
270	char ar_mode[8]; /* File mode, in ASCII octal. */
271	char ar_size[10]; /* File size, in ASCII decimal. */
272	char ar_fmag[2]; /* Always contains ARFMAG. */
273	};
274	# endif
275	# define TOCHAR(_m) (_m)
276	#else
277	/* These should allow us to read Windows (VC++) libraries (according to Frank
278	* Libbrecht <frankl@abzx.belgium.hp.com>)
279	*/
280	# include <windows.h>
281	# include <windef.h>
282	# include <io.h>
283	# define ARMAG IMAGE_ARCHIVE_START
284	# define SARMAG IMAGE_ARCHIVE_START_SIZE
285	# define ar_hdr _IMAGE_ARCHIVE_MEMBER_HEADER
286	# define ar_name Name
287	# define ar_mode Mode
288	# define ar_size Size
289	# define ar_date Date
290	# define ar_uid UserID
291	# define ar_gid GroupID
292	/* In Windows the member names have type BYTE so we must cast them. */
293	# define TOCHAR(_m) ((char *)(_m))
294	#endif
295
296	/* Cray's <ar.h> apparently defines this. */
297	#ifndef AR_HDR_SIZE
298	# define AR_HDR_SIZE (sizeof (struct ar_hdr))
299	#endif
300
301
302	/* Takes three arguments ARCHIVE, FUNCTION and ARG.
303
304	Open the archive named ARCHIVE, find its members one by one,
305	and for each one call FUNCTION with the following arguments:
306	archive file descriptor for reading the data,
307	member name,
308	member name might be truncated flag,
309	member header position in file,
310	member data position in file,
311	member data size,
312	member date,
313	member uid,
314	member gid,
315	member protection mode,
316	ARG.
317
318	The descriptor is poised to read the data of the member
319	when FUNCTION is called. It does not matter how much
320	data FUNCTION reads.
321
322	If FUNCTION returns nonzero, we immediately return
323	what FUNCTION returned.
324
325	Returns -1 if archive does not exist,
326	Returns -2 if archive has invalid format.
327	Returns 0 if have scanned successfully. */
328
329	long int
330	ar_scan (const char archive, ar_member_func_t function, const void arg)
331	{
332	#ifdef AIAMAG
333	FL_HDR fl_header;
334	#ifdef AIAMAGBIG
335	int big_archive = 0;
336	FL_HDR_BIG fl_header_big;
337	#endif
338	#else
339	int long_name = 0;
340	#endif
341	char *namemap = 0;
342	int desc = open (archive, O_RDONLY, 0);
343	if (desc < 0)
344	return -1;
345	#ifdef SARMAG
346	{
347	char buf[SARMAG];
348	register int nread = read (desc, buf, SARMAG);
349	if (nread != SARMAG \|\| memcmp (buf, ARMAG, SARMAG))
350	{
351	(void) close (desc);
352	return -2;
353	}
354	}
355	#else
356	#ifdef AIAMAG
357	{
358	register int nread = read (desc, &fl_header, FL_HSZ);
359
360	if (nread != FL_HSZ)
361	{
362	(void) close (desc);
363	return -2;
364	}
365	#ifdef AIAMAGBIG
366	/* If this is a "big" archive, then set the flag and
367	re-read the header into the "big" structure. */
368	if (!memcmp (fl_header.fl_magic, AIAMAGBIG, SAIAMAG))
369	{
370	big_archive = 1;
371
372	/* seek back to beginning of archive */
373	if (lseek (desc, 0, 0) < 0)
374	{
375	(void) close (desc);
376	return -2;
377	}
378
379	/* re-read the header into the "big" structure */
380	nread = read (desc, &fl_header_big, FL_HSZ_BIG);
381	if (nread != FL_HSZ_BIG)
382	{
383	(void) close (desc);
384	return -2;
385	}
386	}
387	else
388	#endif
389	/* Check to make sure this is a "normal" archive. */
390	if (memcmp (fl_header.fl_magic, AIAMAG, SAIAMAG))
391	{
392	(void) close (desc);
393	return -2;
394	}
395	}
396	#else
397	{
398	#ifndef M_XENIX
399	int buf;
400	#else
401	unsigned short int buf;
402	#endif
403	register int nread = read(desc, &buf, sizeof (buf));
404	if (nread != sizeof (buf) \|\| buf != ARMAG)
405	{
406	(void) close (desc);
407	return -2;
408	}
409	}
410	#endif
411	#endif
412
413	/* Now find the members one by one. */
414	{
415	#ifdef SARMAG
416	register long int member_offset = SARMAG;
417	#else
418	#ifdef AIAMAG
419	long int member_offset;
420	long int last_member_offset;
421
422	#ifdef AIAMAGBIG
423	if ( big_archive )
424	{
425	sscanf (fl_header_big.fl_fstmoff, "%20ld", &member_offset);
426	sscanf (fl_header_big.fl_lstmoff, "%20ld", &last_member_offset);
427	}
428	else
429	#endif
430	{
431	sscanf (fl_header.fl_fstmoff, "%12ld", &member_offset);
432	sscanf (fl_header.fl_lstmoff, "%12ld", &last_member_offset);
433	}
434
435	if (member_offset == 0)
436	{
437	/* Empty archive. */
438	close (desc);
439	return 0;
440	}
441	#else
442	#ifndef M_XENIX
443	register long int member_offset = sizeof (int);
444	#else /* Xenix. */
445	register long int member_offset = sizeof (unsigned short int);
446	#endif /* Not Xenix. */
447	#endif
448	#endif
449
450	while (1)
451	{
452	register int nread;
453	struct ar_hdr member_header;
454	#ifdef AIAMAGBIG
455	struct ar_hdr_big member_header_big;
456	#endif
457	#ifdef AIAMAG
458	char name[256];
459	int name_len;
460	long int dateval;
461	int uidval, gidval;
462	long int data_offset;
463	#else
464	char namebuf[sizeof member_header.ar_name + 1];
465	char *name;
466	int is_namemap; /* Nonzero if this entry maps long names. */
467	#endif
468	long int eltsize;
469	int eltmode;
470	long int fnval;
471
472	if (lseek (desc, member_offset, 0) < 0)
473	{
474	(void) close (desc);
475	return -2;
476	}
477
478	#ifdef AIAMAG
479	#define AR_MEMHDR_SZ(x) (sizeof(x) - sizeof (x._ar_name))
480
481	#ifdef AIAMAGBIG
482	if (big_archive)
483	{
484	nread = read (desc, &member_header_big,
485	AR_MEMHDR_SZ(member_header_big) );
486
487	if (nread != AR_MEMHDR_SZ(member_header_big))
488	{
489	(void) close (desc);
490	return -2;
491	}
492
493	sscanf (member_header_big.ar_namlen, "%4d", &name_len);
494	nread = read (desc, name, name_len);
495
496	if (nread != name_len)
497	{
498	(void) close (desc);
499	return -2;
500	}
501
502	name[name_len] = 0;
503
504	sscanf (member_header_big.ar_date, "%12ld", &dateval);
505	sscanf (member_header_big.ar_uid, "%12d", &uidval);
506	sscanf (member_header_big.ar_gid, "%12d", &gidval);
507	sscanf (member_header_big.ar_mode, "%12o", &eltmode);
508	sscanf (member_header_big.ar_size, "%20ld", &eltsize);
509
510	data_offset = (member_offset + AR_MEMHDR_SZ(member_header_big)
511	+ name_len + 2);
512	}
513	else
514	#endif
515	{
516	nread = read (desc, &member_header,
517	AR_MEMHDR_SZ(member_header) );
518
519	if (nread != AR_MEMHDR_SZ(member_header))
520	{
521	(void) close (desc);
522	return -2;
523	}
524
525	sscanf (member_header.ar_namlen, "%4d", &name_len);
526	nread = read (desc, name, name_len);
527
528	if (nread != name_len)
529	{
530	(void) close (desc);
531	return -2;
532	}
533
534	name[name_len] = 0;
535
536	sscanf (member_header.ar_date, "%12ld", &dateval);
537	sscanf (member_header.ar_uid, "%12d", &uidval);
538	sscanf (member_header.ar_gid, "%12d", &gidval);
539	sscanf (member_header.ar_mode, "%12o", &eltmode);
540	sscanf (member_header.ar_size, "%12ld", &eltsize);
541
542	data_offset = (member_offset + AR_MEMHDR_SZ(member_header)
543	+ name_len + 2);
544	}
545	data_offset += data_offset % 2;
546
547	fnval =
548	(*function) (desc, name, 0,
549	member_offset, data_offset, eltsize,
550	dateval, uidval, gidval,
551	eltmode, arg);
552
553	#else /* Not AIAMAG. */
554	nread = read (desc, &member_header, AR_HDR_SIZE);
555	if (nread == 0)
556	/* No data left means end of file; that is OK. */
557	break;
558
559	if (nread != AR_HDR_SIZE
560	#if defined(ARFMAG) \|\| defined(ARFZMAG)
561	\|\| (
562	# ifdef ARFMAG
563	memcmp (member_header.ar_fmag, ARFMAG, 2)
564	# else
565	1
566	# endif
567	&&
568	# ifdef ARFZMAG
569	memcmp (member_header.ar_fmag, ARFZMAG, 2)
570	# else
571	1
572	# endif
573	)
574	#endif
575	)
576	{
577	(void) close (desc);
578	return -2;
579	}
580
581	name = namebuf;
582	memcpy (name, member_header.ar_name, sizeof member_header.ar_name);
583	{
584	register char *p = name + sizeof member_header.ar_name;
585	do
586	*p = '\0';
587	while (p > name && *--p == ' ');
588
589	#ifndef AIAMAG
590	/* If the member name is "//" or "ARFILENAMES/" this may be
591	a list of file name mappings. The maximum file name
592	length supported by the standard archive format is 14
593	characters. This member will actually always be the
594	first or second entry in the archive, but we don't check
595	that. */
596	is_namemap = (!strcmp (name, "//")
597	\|\| !strcmp (name, "ARFILENAMES/"));
598	#endif /* Not AIAMAG. */
599	/* On some systems, there is a slash after each member name. */
600	if (*p == '/')
601	*p = '\0';
602
603	#ifndef AIAMAG
604	/* If the member name starts with a space or a slash, this
605	is an index into the file name mappings (used by GNU ar).
606	Otherwise if the member name looks like #1/NUMBER the
607	real member name appears in the element data (used by
608	4.4BSD). */
609	if (! is_namemap
610	&& (name[0] == ' ' \|\| name[0] == '/')
611	&& namemap != 0)
612	{
613	name = namemap + atoi (name + 1);
614	long_name = 1;
615	}
616	else if (name[0] == '#'
617	&& name[1] == '1'
618	&& name[2] == '/')
619	{
620	int namesize = atoi (name + 3);
621
622	name = alloca (namesize + 1);
623	nread = read (desc, name, namesize);
624	if (nread != namesize)
625	{
626	close (desc);
627	return -2;
628	}
629	name[namesize] = '\0';
630
631	long_name = 1;
632	}
633	#endif /* Not AIAMAG. */
634	}
635
636	#ifndef M_XENIX
637	sscanf (TOCHAR (member_header.ar_mode), "%o", &eltmode);
638	eltsize = atol (TOCHAR (member_header.ar_size));
639	#else /* Xenix. */
640	eltmode = (unsigned short int) member_header.ar_mode;
641	eltsize = member_header.ar_size;
642	#endif /* Not Xenix. */
643
644	fnval =
645	(*function) (desc, name, ! long_name, member_offset,
646	member_offset + AR_HDR_SIZE, eltsize,
647	#ifndef M_XENIX
648	atol (TOCHAR (member_header.ar_date)),
649	atoi (TOCHAR (member_header.ar_uid)),
650	atoi (TOCHAR (member_header.ar_gid)),
651	#else /* Xenix. */
652	member_header.ar_date,
653	member_header.ar_uid,
654	member_header.ar_gid,
655	#endif /* Not Xenix. */
656	eltmode, arg);
657
658	#endif /* AIAMAG. */
659
660	if (fnval)
661	{
662	(void) close (desc);
663	return fnval;
664	}
665
666	#ifdef AIAMAG
667	if (member_offset == last_member_offset)
668	/* End of the chain. */
669	break;
670
671	#ifdef AIAMAGBIG
672	if (big_archive)
673	sscanf (member_header_big.ar_nxtmem, "%20ld", &member_offset);
674	else
675	#endif
676	sscanf (member_header.ar_nxtmem, "%12ld", &member_offset);
677
678	if (lseek (desc, member_offset, 0) != member_offset)
679	{
680	(void) close (desc);
681	return -2;
682	}
683	#else
684
685	/* If this member maps archive names, we must read it in. The
686	name map will always precede any members whose names must
687	be mapped. */
688	if (is_namemap)
689	{
690	char *clear;
691	char *limit;
692
693	namemap = alloca (eltsize);
694	nread = read (desc, namemap, eltsize);
695	if (nread != eltsize)
696	{
697	(void) close (desc);
698	return -2;
699	}
700
701	/* The names are separated by newlines. Some formats have
702	a trailing slash. Null terminate the strings for
703	convenience. */
704	limit = namemap + eltsize;
705	for (clear = namemap; clear < limit; clear++)
706	{
707	if (*clear == '\n')
708	{
709	*clear = '\0';
710	if (clear[-1] == '/')
711	clear[-1] = '\0';
712	}
713	}
714
715	is_namemap = 0;
716	}
717
718	member_offset += AR_HDR_SIZE + eltsize;
719	if (member_offset % 2 != 0)
720	member_offset++;
721	#endif
722	}
723	}
724
725	close (desc);
726	return 0;
727	}
728	#endif /* !VMS */
729
730
731	/* Return nonzero iff NAME matches MEM.
732	If TRUNCATED is nonzero, MEM may be truncated to
733	sizeof (struct ar_hdr.ar_name) - 1. */
734
735	int
736	ar_name_equal (const char name, const char mem, int truncated)
737	{
738	const char *p;
739
740	p = strrchr (name, '/');
741	if (p != 0)
742	name = p + 1;
743
744	#ifndef VMS
745	if (truncated)
746	{
747	#ifdef AIAMAG
748	/* TRUNCATED should never be set on this system. */
749	abort ();
750	#else
751	struct ar_hdr hdr;
752	#if !defined (__hpux) && !defined (cray)
753	return strneq (name, mem, sizeof(hdr.ar_name) - 1);
754	#else
755	return strneq (name, mem, sizeof(hdr.ar_name) - 2);
756	#endif /* !__hpux && !cray */
757	#endif /* !AIAMAG */
758	}
759	#endif /* !VMS */
760
761	return !strcmp (name, mem);
762	}
763
764
765	#ifndef VMS
766	/* ARGSUSED */
767	static long int
768	ar_member_pos (int desc UNUSED, const char *mem, int truncated,
769	long int hdrpos, long int datapos UNUSED, long int size UNUSED,
770	long int date UNUSED, int uid UNUSED, int gid UNUSED,
771	int mode UNUSED, const void *name)
772	{
773	if (!ar_name_equal (name, mem, truncated))
774	return 0;
775	return hdrpos;
776	}
777
778	/* Set date of member MEMNAME in archive ARNAME to current time.
779	Returns 0 if successful,
780	-1 if file ARNAME does not exist,
781	-2 if not a valid archive,
782	-3 if other random system call error (including file read-only),
783	1 if valid but member MEMNAME does not exist. */
784
785	int
786	ar_member_touch (const char arname, const char memname)
787	{
788	long int pos = ar_scan (arname, ar_member_pos, memname);
789	int fd;
790	struct ar_hdr ar_hdr;
791	int i;
792	unsigned int ui;
793	struct stat statbuf;
794
795	if (pos < 0)
796	return (int) pos;
797	if (!pos)
798	return 1;
799
800	fd = open (arname, O_RDWR, 0666);
801	if (fd < 0)
802	return -3;
803	/* Read in this member's header */
804	if (lseek (fd, pos, 0) < 0)
805	goto lose;
806	if (AR_HDR_SIZE != read (fd, &ar_hdr, AR_HDR_SIZE))
807	goto lose;
808	/* Write back the header, thus touching the archive file. */
809	if (lseek (fd, pos, 0) < 0)
810	goto lose;
811	if (AR_HDR_SIZE != write (fd, &ar_hdr, AR_HDR_SIZE))
812	goto lose;
813	/* The file's mtime is the time we we want. */
814	EINTRLOOP (i, fstat (fd, &statbuf));
815	if (i < 0)
816	goto lose;
817	#if defined(ARFMAG) \|\| defined(ARFZMAG) \|\| defined(AIAMAG) \|\| defined(WINDOWS32)
818	/* Advance member's time to that time */
819	for (ui = 0; ui < sizeof ar_hdr.ar_date; ui++)
820	ar_hdr.ar_date[ui] = ' ';
821	sprintf (TOCHAR (ar_hdr.ar_date), "%ld", (long int) statbuf.st_mtime);
822	#ifdef AIAMAG
823	ar_hdr.ar_date[strlen(ar_hdr.ar_date)] = ' ';
824	#endif
825	#else
826	ar_hdr.ar_date = statbuf.st_mtime;
827	#endif
828	/* Write back this member's header */
829	if (lseek (fd, pos, 0) < 0)
830	goto lose;
831	if (AR_HDR_SIZE != write (fd, &ar_hdr, AR_HDR_SIZE))
832	goto lose;
833	close (fd);
834	return 0;
835
836	lose:
837	i = errno;
838	close (fd);
839	errno = i;
840	return -3;
841	}
842	#endif
843
844
845	#ifdef TEST
846
847	long int
848	describe_member (int desc, const char *name, int truncated,
849	long int hdrpos, long int datapos, long int size,
850	long int date, int uid, int gid, int mode, const void *arg)
851	{
852	extern char *ctime ();
853
854	printf (_("Member `%s'%s: %ld bytes at %ld (%ld).\n"),
855	name, truncated ? _(" (name might be truncated)") : "",
856	size, hdrpos, datapos);
857	printf (_(" Date %s"), ctime (&date));
858	printf (_(" uid = %d, gid = %d, mode = 0%o.\n"), uid, gid, mode);
859
860	return 0;
861	}
862
863	int
864	main (int argc, char **argv)
865	{
866	ar_scan (argv[1], describe_member, NULL);
867	return 0;
868	}
869
870	#endif /* TEST. */
871	#endif /* NO_ARCHIVES. */

Note: See TracBrowser for help on using the repository browser.

source: kBuild/vendor/gnumake/3.82-cvs/arscan.c

Download in other formats: