xref: /titanic_41/usr/src/cmd/make/bin/ar.cc (revision 3625efb1376c3d31a0e742ed72b778e5b3add543)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 /*
22  * Copyright 2004 Sun Microsystems, Inc. All rights reserved.
23  * Use is subject to license terms.
24  */
25 
26 /*
27  *	ar.c
28  *
29  *	Deal with the lib.a(member.o) and lib.a((entry-point)) notations
30  *
31  * Look inside archives for notations a(b) and a((b))
32  *	a(b)	is file member   b  in archive a
33  *	a((b))	is entry point   b  in object archive a
34  *
35  * For 6.0, create a make which can understand all archive
36  * formats.  This is kind of tricky, and <ar.h> isnt any help.
37  */
38 
39 /*
40  * Included files
41  */
42 #include <alloca.h>		/* alloca() */
43 #include <ar.h>
44 #include <errno.h>		/* errno */
45 #include <fcntl.h>		/* open() */
46 #include <libintl.h>
47 #include <mk/defs.h>
48 #include <mksh/misc.h>		/* retmem_mb() */
49 
50 struct ranlib {
51 	union {
52 		off_t	ran_strx;	/* string table index of */
53 		char	*ran_name;	/* symbol defined by */
54 	}	ran_un;
55 	off_t	ran_off;		/* library member at this offset */
56 };
57 
58 #include <unistd.h>		/* close() */
59 
60 
61 /*
62  * Defined macros
63  */
64 #ifndef S5EMUL
65 #undef BITSPERBYTE
66 #define BITSPERBYTE	8
67 #endif
68 
69 /*
70  * Defines for all the different archive formats.  See next comment
71  * block for justification for not using <ar.h>s versions.
72  */
73 #define AR_5_MAGIC		"<ar>"		/* 5.0 format magic string */
74 #define AR_5_MAGIC_LENGTH	4		/* 5.0 format string length */
75 
76 #define AR_PORT_MAGIC		"!<arch>\n"	/* Port. (6.0) magic string */
77 #define AR_PORT_MAGIC_LENGTH	8		/* Port. (6.0) string length */
78 #define AR_PORT_END_MAGIC	"`\n"		/* Port. (6.0) end of header */
79 #define AR_PORT_WORD		4		/* Port. (6.0) 'word' length */
80 
81 /*
82  * typedefs & structs
83  */
84 /*
85  * These are the archive file headers for the formats.  Note
86  * that it really doesnt matter if these structures are defined
87  * here.  They are correct as of the respective archive format
88  * releases.  If the archive format is changed, then since backwards
89  * compatability is the desired behavior, a new structure is added
90  * to the list.
91  */
92 typedef struct {	/* 5.0 ar header format: vax family; 3b family */
93 	char			ar_magic[AR_5_MAGIC_LENGTH];	/* AR_5_MAGIC*/
94 	char			ar_name[16];	/* Space terminated */
95 	char			ar_date[AR_PORT_WORD];	/* sgetl() accessed */
96 	char			ar_syms[AR_PORT_WORD];	/* sgetl() accessed */
97 }			Arh_5;
98 
99 typedef struct {	/* 5.0 ar symbol format: vax family; 3b family */
100 	char			sym_name[8];	/* Space terminated */
101 	char			sym_ptr[AR_PORT_WORD];	/* sgetl() accessed */
102 }			Ars_5;
103 
104 typedef struct {	/* 5.0 ar member format: vax family; 3b family */
105 	char			arf_name[16];	/* Space terminated */
106 	char			arf_date[AR_PORT_WORD];	/* sgetl() accessed */
107 	char			arf_uid[AR_PORT_WORD];	/* sgetl() accessed */
108 	char			arf_gid[AR_PORT_WORD];	/* sgetl() accessed */
109 	char			arf_mode[AR_PORT_WORD];	/* sgetl() accessed */
110 	char			arf_size[AR_PORT_WORD];	/* sgetl() accessed */
111 }			Arf_5;
112 
113 typedef struct {	/* Portable (6.0) ar format: vax family; 3b family */
114 	char			ar_name[16];	/* Space terminated */
115 	/* left-adjusted fields; decimal ascii; blank filled */
116 	char			ar_date[12];
117 	char			ar_uid[6];
118 	char			ar_gid[6];
119 	char			ar_mode[8];	/* octal ascii */
120 	char			ar_size[10];
121 	/* special end-of-header string (AR_PORT_END_MAGIC) */
122 	char			ar_fmag[2];
123 }			Ar_port;
124 
125 enum ar_type {
126 		AR_5,
127 		AR_PORT
128 };
129 
130 typedef unsigned int ar_port_word; // must be 4-bytes long
131 
132 typedef struct {
133 	FILE			*fd;
134 	/* to distiguish ar format */
135 	enum ar_type		type;
136 	/* where first ar member header is at */
137 	long			first_ar_mem;
138 	/* where the symbol lookup starts */
139 	long			sym_begin;
140 	/* the number of symbols available */
141 	long			num_symbols;
142 	/* length of symbol directory file */
143 	long			sym_size;
144 	Arh_5			arh_5;
145 	Ars_5			ars_5;
146 	Arf_5			arf_5;
147 	Ar_port			ar_port;
148 }			Ar;
149 
150 /*
151  * Static variables
152  */
153 
154 /*
155  * File table of contents
156  */
157 extern	timestruc_t&	read_archive(register Name target);
158 static	Boolean		open_archive(char *filename, register Ar *arp);
159 static	void		close_archive(register Ar *arp);
160 static	Boolean		read_archive_dir(register Ar *arp, Name library, char **long_names_table);
161 static	void		translate_entry(register Ar *arp, Name target, register Property member, char **long_names_table);
162 static	long		sgetl(char *);
163 
164 /*
165  *	read_archive(target)
166  *
167  *	Read the contents of an ar file.
168  *
169  *	Return value:
170  *				The time the member was created
171  *
172  *	Parameters:
173  *		target		The member to find time for
174  *
175  *	Global variables used:
176  *		empty_name 	The Name ""
177  */
178 
179 int read_member_header (Ar_port *header, FILE *fd, char* filename);
180 int process_long_names_member (register Ar *arp, char **long_names_table, char *filename);
181 
182 timestruc_t&
read_archive(register Name target)183 read_archive(register Name target)
184 {
185 	register Property       member;
186 	wchar_t			*slash;
187 	String_rec		true_member_name;
188 	wchar_t			buffer[STRING_BUFFER_LENGTH];
189 	register Name		true_member = NULL;
190 	Ar                      ar;
191 	char			*long_names_table = NULL; /* Table of long
192 							     member names */
193 
194 	member = get_prop(target->prop, member_prop);
195 	/*
196 	 * Check if the member has directory component.
197 	 * If so, remove the dir and see if we know the date.
198 	 */
199 	if (member->body.member.member != NULL) {
200 		Wstring member_string(member->body.member.member);
201 		wchar_t * wcb = member_string.get_string();
202 		if((slash = (wchar_t *) wcsrchr(wcb, (int) slash_char)) != NULL) {
203 			INIT_STRING_FROM_STACK(true_member_name, buffer);
204 			append_string(member->body.member.library->string_mb,
205 				      &true_member_name,
206 				      FIND_LENGTH);
207 			append_char((int) parenleft_char, &true_member_name);
208 			append_string(slash + 1, &true_member_name, FIND_LENGTH);
209 			append_char((int) parenright_char, &true_member_name);
210 			true_member = GETNAME(true_member_name.buffer.start,
211 					      FIND_LENGTH);
212 			if (true_member->stat.time != file_no_time) {
213 				target->stat.time = true_member->stat.time;
214 				return target->stat.time;
215 			}
216 		}
217 	}
218 	if (open_archive(member->body.member.library->string_mb, &ar) == failed) {
219 		if (errno == ENOENT) {
220 			target->stat.stat_errno = ENOENT;
221 			close_archive(&ar);
222 			if (member->body.member.member == NULL) {
223 				member->body.member.member = empty_name;
224 			}
225 			return target->stat.time = file_doesnt_exist;
226 		} else {
227 			fatal(gettext("Can't access archive `%s': %s"),
228 			      member->body.member.library->string_mb,
229 			      errmsg(errno));
230 		}
231 	}
232 	if (target->stat.time == file_no_time) {
233 		if (read_archive_dir(&ar, member->body.member.library,
234 				     &long_names_table)
235 		    == failed){
236 			fatal(gettext("Can't access archive `%s': %s"),
237 			      member->body.member.library->string_mb,
238 			      errmsg(errno));
239 		}
240 	}
241 	if (member->body.member.entry != NULL) {
242 		translate_entry(&ar, target, member,&long_names_table);
243 	}
244 	close_archive(&ar);
245 	if (long_names_table) {
246 		retmem_mb(long_names_table);
247 	}
248 	if (true_member != NULL) {
249 		target->stat.time = true_member->stat.time;
250 	}
251 	if (target->stat.time == file_no_time) {
252 		target->stat.time = file_doesnt_exist;
253 	}
254 	return target->stat.time;
255 }
256 
257 /*
258  *	open_archive(filename, arp)
259  *
260  *	Return value:
261  *				Indicates if open failed or not
262  *
263  *	Parameters:
264  *		filename	The name of the archive we need to read
265  *		arp		Pointer to ar file description block
266  *
267  *	Global variables used:
268  */
269 static Boolean
open_archive(char * filename,register Ar * arp)270 open_archive(char *filename, register Ar *arp)
271 {
272 	int			fd;
273 	char			mag_5[AR_5_MAGIC_LENGTH];
274 	char			mag_port[AR_PORT_MAGIC_LENGTH];
275 	char			buffer[4];
276 
277 	arp->fd = NULL;
278 	fd = open_vroot(filename, O_RDONLY, 0, NULL, VROOT_DEFAULT);
279 	if ((fd < 0) || ((arp->fd = fdopen(fd, "r")) == NULL)) {
280 		return failed;
281 	}
282 	(void) fcntl(fileno(arp->fd), F_SETFD, 1);
283 
284 	if (fread(mag_port, AR_PORT_MAGIC_LENGTH, 1, arp->fd) != 1) {
285 		return failed;
286 	}
287 	if (IS_EQUALN(mag_port, AR_PORT_MAGIC, AR_PORT_MAGIC_LENGTH)) {
288 		arp->type = AR_PORT;
289 		/*
290 		 * Read in first member header to find out if there is
291 		 * a symbol definition table.
292 		 */
293 
294 		int ret = read_member_header(&arp->ar_port, arp->fd, filename);
295 		if (ret == failed) {
296 			return failed;
297 		} else if(ret == -1) {
298 			/* There is no member header - empty archive */
299 			arp->sym_size = arp->num_symbols = arp->sym_begin = 0L;
300 			arp->first_ar_mem = ftell(arp->fd);
301 			return succeeded;
302 		}
303 		/*
304 		 * The following values are the default if there is
305 		 * no symbol directory and long member names.
306 		 */
307 		arp->sym_size = arp->num_symbols = arp->sym_begin = 0L;
308 		arp->first_ar_mem = ftell(arp->fd) - (long) sizeof (Ar_port);
309 
310 		/*
311 		 * Do we have a symbol table? A symbol table is always
312 		 * the first member in an archive. In 4.1.x it has the
313 		 * name __.SYMDEF, in SVr4, it has the name "/        "
314 		 */
315 /*
316 		MBSTOWCS(wcs_buffer, "/               ");
317 		if (IS_WEQUALN(arp->ar_port.ar_name, wcs_buffer, 16)) {
318  */
319 		if (IS_EQUALN(arp->ar_port.ar_name,
320 			      "/               ",
321 			      16)) {
322 			if (sscanf(arp->ar_port.ar_size,
323 				   "%ld",
324 				   &arp->sym_size) != 1) {
325 				return failed;
326 			}
327 			arp->sym_size += (arp->sym_size & 1); /* round up */
328 			if (fread(buffer, sizeof buffer, 1, arp->fd) != 1) {
329 				return failed;
330 			}
331 			arp->num_symbols = sgetl(buffer);
332 			arp->sym_begin = ftell(arp->fd);
333 			arp->first_ar_mem = arp->sym_begin +
334 						arp->sym_size - sizeof buffer;
335 		}
336 		return succeeded;
337 	}
338 	fatal(gettext("`%s' is not an archive"), filename);
339 	/* NOTREACHED */
340 	return failed;
341 }
342 
343 
344 /*
345  *	close_archive(arp)
346  *
347  *	Parameters:
348  *		arp		Pointer to ar file description block
349  *
350  *	Global variables used:
351  */
352 static void
close_archive(register Ar * arp)353 close_archive(register Ar *arp)
354 {
355 	if (arp->fd != NULL) {
356 		(void) fclose(arp->fd);
357 	}
358 }
359 
360 /*
361  *	read_archive_dir(arp, library, long_names_table)
362  *
363  *	Reads the directory of an archive and enters all
364  *	the members into the make symboltable in lib(member) format
365  *	with their dates.
366  *
367  *	Parameters:
368  *		arp		Pointer to ar file description block
369  *		library		Name of lib to enter members for.
370  *				Used to form "lib(member)" string.
371  *		long_names_table table that contains list of members
372  * 				with names > 15 characters long
373  *
374  *	Global variables used:
375  */
376 static Boolean
read_archive_dir(register Ar * arp,Name library,char ** long_names_table)377 read_archive_dir(register Ar *arp, Name library, char **long_names_table)
378 {
379 	wchar_t			*name_string;
380 	wchar_t			*member_string;
381 	register long		len;
382 	register wchar_t	*p;
383 	register char		*q;
384 	register Name		name;
385 	Property		member;
386 	long			ptr;
387 	long			date;
388 
389 	int			offset;
390 
391 	/*
392 	 * If any of the members has a name > 15 chars,
393 	 * it will be found here.
394 	 */
395 	if (process_long_names_member(arp, long_names_table, library->string_mb) == failed) {
396 		return failed;
397 	}
398 	name_string = ALLOC_WC((int) (library->hash.length +
399 				      (int) ar_member_name_len * 2));
400 	(void) mbstowcs(name_string, library->string_mb, (int) library->hash.length);
401 	member_string = name_string + library->hash.length;
402 	*member_string++ = (int) parenleft_char;
403 
404 	if (fseek(arp->fd, arp->first_ar_mem, 0) != 0) {
405 		goto read_error;
406 	}
407 	/* Read the directory using the appropriate format */
408 	switch (arp->type) {
409 	case AR_5:
410 	    for (;;) {
411 		if (fread((char *) &arp->arf_5, sizeof arp->arf_5, 1, arp->fd)
412 		    != 1) {
413 			if (feof(arp->fd)) {
414 				return succeeded;
415 			}
416 			break;
417 		}
418 		len = sizeof arp->arf_5.arf_name;
419 		for (p = member_string, q = arp->arf_5.arf_name;
420 		     (len > 0) && (*q != (int) nul_char) && !isspace(*q);
421 		     ) {
422 			MBTOWC(p, q);
423 			p++;
424 			q++;
425 		}
426 		*p++ = (int) parenright_char;
427 		*p = (int) nul_char;
428 		name = GETNAME(name_string, FIND_LENGTH);
429 		/*
430 		 * [tolik] Fix for dmake bug 1234018.
431 		 * If name->stat.time is already set, then it should not
432 		 * be changed. (D)make propogates time stamp for one
433 		 * member, and when it calls exists() for another member,
434 		 * the first one may be changed.
435 		 */
436 		if(name->stat.time == file_no_time) {
437 			name->stat.time.tv_sec = sgetl(arp->arf_5.arf_date);
438 			name->stat.time.tv_nsec = LONG_MAX;
439 		}
440 		name->is_member = library->is_member;
441 		member = maybe_append_prop(name, member_prop);
442 		member->body.member.library = library;
443 		*--p = (int) nul_char;
444 		if (member->body.member.member == NULL) {
445 			member->body.member.member =
446 			  GETNAME(member_string, FIND_LENGTH);
447 		}
448 		ptr = sgetl(arp->arf_5.arf_size);
449 		ptr += (ptr & 1);
450 		if (fseek(arp->fd, ptr, 1) != 0) {
451 			goto read_error;
452 		}
453 	    }
454 	    break;
455 	case AR_PORT:
456 	    for (;;) {
457 		    if ((fread((char *) &arp->ar_port,
458 			       sizeof arp->ar_port,
459 			       1,
460 			       arp->fd) != 1) ||
461 			!IS_EQUALN(arp->ar_port.ar_fmag,
462 				   AR_PORT_END_MAGIC,
463 				   sizeof arp->ar_port.ar_fmag)) {
464 			    if (feof(arp->fd)) {
465 				    return succeeded;
466 			    }
467 			    fatal(
468 				gettext("Read error in archive `%s': invalid archive file member header at 0x%x"),
469 				library->string_mb,
470 				ftell(arp->fd)
471 			    );
472 		    }
473 		    /* If it's a long name, retrieve it from long name table */
474 		    if (arp->ar_port.ar_name[0] == '/') {
475 			    /*
476 			     * "len" is used for hashing the string.
477 			     * We're using "ar_member_name_len" instead of
478 			     * the actual name length since it's the longest
479 			     * string the "ar" command can handle at this
480 			     * point.
481 			     */
482 			    len = ar_member_name_len;
483 			    sscanf(arp->ar_port.ar_name + 1,
484 				   "%ld",
485 				   &offset);
486 			    q = *long_names_table + offset;
487 		    } else {
488 			    q = arp->ar_port.ar_name;
489 			    len = sizeof arp->ar_port.ar_name;
490 		    }
491 
492 		    for (p = member_string;
493 			 (len > 0) &&
494 			 (*q != (int) nul_char) &&
495 			 !isspace(*q) &&
496 			 (*q != (int) slash_char);
497 			 ) {
498 			    MBTOWC(p, q);
499 			    p++;
500 			    q++;
501 		    }
502 		    *p++ = (int) parenright_char;
503 		    *p = (int) nul_char;
504 		    name = GETNAME(name_string, FIND_LENGTH);
505 		    name->is_member = library->is_member;
506 		    member = maybe_append_prop(name, member_prop);
507 		    member->body.member.library = library;
508 		    *--p = (int) nul_char;
509 		    if (member->body.member.member == NULL) {
510 			    member->body.member.member =
511 			      GETNAME(member_string, FIND_LENGTH);
512 		    }
513 		    if (sscanf(arp->ar_port.ar_date, "%ld", &date) != 1) {
514 			    WCSTOMBS(mbs_buffer, name_string);
515 			    fatal(gettext("Bad date field for member `%s' in archive `%s'"),
516 				  mbs_buffer,
517 				  library->string_mb);
518 		    }
519 		    /*
520 		     * [tolik] Fix for dmake bug 1234018.
521 		     */
522 		    if(name->stat.time == file_no_time) {
523 		   	name->stat.time.tv_sec = date;
524 		   	name->stat.time.tv_nsec = LONG_MAX;
525 		    }
526 		    if (sscanf(arp->ar_port.ar_size, "%ld", &ptr) != 1) {
527 			    WCSTOMBS(mbs_buffer, name_string);
528 			    fatal(gettext("Bad size field for member `%s' in archive `%s'"),
529 				  mbs_buffer,
530 				  library->string_mb);
531 		    }
532 		    ptr += (ptr & 1);
533 		    if (fseek(arp->fd, ptr, 1) != 0) {
534 			    goto read_error;
535 		    }
536 	    }
537 	    break;
538 	}
539 
540 	/* Only here if fread() [or IS_EQUALN()] failed and not at EOF */
541 read_error:
542 	fatal(gettext("Read error in archive `%s': %s"),
543 	      library->string_mb,
544 	      errmsg(errno));
545 	    /* NOTREACHED */
546 }
547 
548 
549 /*
550  *	process_long_names_member(arp)
551  *
552  *	If the archive contains members with names longer
553  *	than 15 characters, then it has a special member
554  *	with the name "//        " that contains a table
555  *	of null-terminated long names. This member
556  *	is always the first member, after the symbol table
557  *	if it exists.
558  *
559  *	Parameters:
560  *		arp		Pointer to ar file description block
561  *
562  *	Global variables used:
563  */
564 int
process_long_names_member(register Ar * arp,char ** long_names_table,char * filename)565 process_long_names_member(register Ar *arp, char **long_names_table, char *filename)
566 {
567 	Ar_port			*ar_member_header;
568 	int			table_size;
569 
570 	if (fseek(arp->fd, arp->first_ar_mem, 0) != 0) {
571 		return failed;
572 	}
573 	if ((ar_member_header =
574 	     (Ar_port *) alloca((int) sizeof(Ar_port))) == NULL){
575 		perror(gettext("memory allocation failure"));
576 		return failed;
577 	}
578 	int ret = read_member_header(ar_member_header, arp->fd, filename);
579 	if (ret == failed) {
580 		return failed;
581 	} else if(ret == -1) {
582 		/* There is no member header - empty archive */
583 		return succeeded;
584 	}
585 	/* Do we have special member containing long names? */
586 	if (IS_EQUALN(ar_member_header->ar_name,
587 		      "//              ",
588 		      16)){
589 		if (sscanf(ar_member_header->ar_size,
590 			   "%ld",
591 			   &table_size) != 1) {
592 			return failed;
593 		}
594 		*long_names_table = (char *) malloc(table_size);
595 		/* Read the list of long member names into the table */
596 		if (fread(*long_names_table, table_size, 1, arp->fd) != 1) {
597 			return failed;
598 		}
599 		arp->first_ar_mem = ftell(arp->fd);
600 	}
601 	return succeeded;
602 }
603 
604 /*
605  *	translate_entry(arp, target, member)
606  *
607  *	Finds the member for one lib.a((entry))
608  *
609  *	Parameters:
610  *		arp		Pointer to ar file description block
611  *		target		Target to find member name for
612  *		member		Property to fill in with info
613  *
614  *	Global variables used:
615  */
616 static void
translate_entry(register Ar * arp,Name target,register Property member,char ** long_names_table)617 translate_entry(register Ar *arp, Name target, register Property member, char **long_names_table)
618 {
619 	register int		len;
620 	register int		i;
621 	wchar_t			*member_string;
622 	ar_port_word		*offs;
623 	int			strtablen;
624 	char			*syms;		 /* string table */
625 	char			*csym;		 /* string table */
626 	ar_port_word		*offend;	 /* end of offsets table */
627 	int			date;
628 	register wchar_t	*ap;
629 	register char		*hp;
630 	int			maxs;
631 	int			offset;
632 	char		buffer[4];
633 
634 	if (arp->sym_begin == 0L || arp->num_symbols == 0L) {
635 		fatal(gettext("Cannot find symbol `%s' in archive `%s'"),
636 		      member->body.member.entry->string_mb,
637 		      member->body.member.library->string_mb);
638 	}
639 
640 	if (fseek(arp->fd, arp->sym_begin, 0) != 0) {
641 		goto read_error;
642 	}
643 	member_string = ALLOC_WC((int) ((int) ar_member_name_len * 2));
644 
645 	switch (arp->type) {
646 	case AR_5:
647 		if ((len = member->body.member.entry->hash.length) > 8) {
648 			len = 8;
649 		}
650 		for (i = 0; i < arp->num_symbols; i++) {
651 			if (fread((char *) &arp->ars_5,
652 				  sizeof arp->ars_5,
653 				  1,
654 				  arp->fd) != 1) {
655 				goto read_error;
656 			}
657 			if (IS_EQUALN(arp->ars_5.sym_name,
658 				      member->body.member.entry->string_mb,
659 				      len)) {
660 				if ((fseek(arp->fd,
661 					   sgetl(arp->ars_5.sym_ptr),
662 					   0) != 0) ||
663 				    (fread((char *) &arp->arf_5,
664 					   sizeof arp->arf_5,
665 					   1,
666 					   arp->fd) != 1)) {
667 					goto read_error;
668 				}
669 				MBSTOWCS(wcs_buffer, arp->arf_5.arf_name);
670 				(void) wcsncpy(member_string,
671 					      wcs_buffer,
672 					      wcslen(wcs_buffer));
673 				member_string[sizeof(arp->arf_5.arf_name)] =
674 								(int) nul_char;
675 				member->body.member.member =
676 					GETNAME(member_string, FIND_LENGTH);
677 				target->stat.time.tv_sec = sgetl(arp->arf_5.arf_date);
678 				target->stat.time.tv_nsec = LONG_MAX;
679 				return;
680 			}
681 		}
682 		break;
683 	case AR_PORT:
684 		offs = (ar_port_word *) alloca((int) (arp->num_symbols * AR_PORT_WORD));
685 		if (fread((char *) offs,
686 			  AR_PORT_WORD,
687 			  (int) arp->num_symbols,
688 			  arp->fd) != arp->num_symbols) {
689 			goto read_error;
690 		}
691 
692 		for(i=0;i<arp->num_symbols;i++) {
693 			*((int*)buffer)=offs[i];
694 			offs[i]=(ar_port_word)sgetl(buffer);
695 		}
696 
697 		strtablen=arp->sym_size-4-(int) (arp->num_symbols * AR_PORT_WORD);
698 		syms = (char *) alloca(strtablen);
699 		if (fread(syms,
700 			  sizeof (char),
701 			  strtablen,
702 			  arp->fd) != strtablen) {
703 			goto read_error;
704 		}
705 		offend = &offs[arp->num_symbols];
706 		while (offs < offend) {
707 			maxs = strlen(member->body.member.entry->string_mb);
708 			if(strlen(syms) > maxs)
709 				maxs = strlen(syms);
710 			if (IS_EQUALN(syms,
711 				      member->body.member.entry->string_mb,
712 				      maxs)) {
713 				if (fseek(arp->fd,
714 					  (long) *offs,
715 					  0) != 0) {
716 					goto read_error;
717 				}
718 				if ((fread((char *) &arp->ar_port,
719 					   sizeof arp->ar_port,
720 					   1,
721 					   arp->fd) != 1) ||
722 				    !IS_EQUALN(arp->ar_port.ar_fmag,
723 					       AR_PORT_END_MAGIC,
724 					       sizeof arp->ar_port.ar_fmag)) {
725 					goto read_error;
726 				}
727 				if (sscanf(arp->ar_port.ar_date,
728 					   "%ld",
729 					   &date) != 1) {
730 					fatal(gettext("Bad date field for member `%s' in archive `%s'"),
731 					      arp->ar_port.ar_name,
732 					      target->string_mb);
733 				}
734 		    /* If it's a long name, retrieve it from long name table */
735 		    if (arp->ar_port.ar_name[0] == '/') {
736 			    sscanf(arp->ar_port.ar_name + 1,
737 				   "%ld",
738 				   &offset);
739 			    len = ar_member_name_len;
740 			    hp = *long_names_table + offset;
741 		    } else {
742 			    len = sizeof arp->ar_port.ar_name;
743 			    hp = arp->ar_port.ar_name;
744 		    }
745 				ap = member_string;
746 				while (*hp &&
747 				       (*hp != (int) slash_char) &&
748 				       (ap < &member_string[len])) {
749 					MBTOWC(ap, hp);
750 					ap++;
751 					hp++;
752 				}
753 				*ap = (int) nul_char;
754 				member->body.member.member =
755 					GETNAME(member_string, FIND_LENGTH);
756 				target->stat.time.tv_sec = date;
757 				target->stat.time.tv_nsec = LONG_MAX;
758 				return;
759 			}
760 			offs++;
761 			while(*syms!='\0') syms++;
762 			syms++;
763 		}
764 	}
765 	fatal(gettext("Cannot find symbol `%s' in archive `%s'"),
766 	      member->body.member.entry->string_mb,
767 	      member->body.member.library->string_mb);
768 	/*NOTREACHED*/
769 
770 read_error:
771 	if (ferror(arp->fd)) {
772 		fatal(gettext("Read error in archive `%s': %s"),
773 		      member->body.member.library->string_mb,
774 		      errmsg(errno));
775 	} else {
776 		fatal(gettext("Read error in archive `%s': Premature EOF"),
777 		      member->body.member.library->string_mb);
778 	}
779 }
780 
781 /*
782  *	sgetl(buffer)
783  *
784  *	The intent here is to provide a means to make the value of
785  *	bytes in an io-buffer correspond to the value of a long
786  *	in the memory while doing the io a long at a time.
787  *	Files written and read in this way are machine-independent.
788  *
789  *	Return value:
790  *				Long int read from buffer
791  *	Parameters:
792  *		buffer		buffer we need to read long int from
793  *
794  *	Global variables used:
795  */
796 static long
sgetl(register char * buffer)797 sgetl(register char *buffer)
798 {
799 	register long		w = 0;
800 	register int		i = BITSPERBYTE * AR_PORT_WORD;
801 
802 	while ((i -= BITSPERBYTE) >= 0) {
803 		w |= (long) ((unsigned char) *buffer++) << i;
804 	}
805 	return w;
806 }
807 
808 
809 /*
810  *	read_member_header(header, fd, filename)
811  *
812  *	reads the member header for the 4.1.x and SVr4 archives.
813  *
814  *	Return value:
815  *				fails if read error or member
816  * 				header is not the right format
817  *	Parameters:
818  *		header		There's one before each archive member
819  *		fd		file descriptor for the archive file.
820  *
821  *	Global variables used:
822  */
823 int
read_member_header(Ar_port * header,FILE * fd,char * filename)824 read_member_header(Ar_port *header, FILE *fd, char* filename)
825 {
826 	int num = fread((char *) header, sizeof (Ar_port), 1, fd);
827 	if (num != 1 && feof(fd)) {
828 		/* There is no member header - empty archive */
829 		return -1;
830 	}
831 	if ((num != 1) ||
832 	    !IS_EQUALN(
833 		AR_PORT_END_MAGIC,
834 		header->ar_fmag,
835 		sizeof (header->ar_fmag)
836 	    )
837 	) {
838 		fatal(
839 			gettext("Read error in archive `%s': invalid archive file member header at 0x%x"),
840 			filename,
841 			ftell(fd)
842 		);
843 	}
844 	return succeeded;
845 }
846 
847