1 /* Library function for scanning an archive file.
2 Copyright (C) 1987,89,91,92,93,94,95,97 Free Software Foundation, Inc.
4 This program is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 2, or (at your option)
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software
16 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
36 #include <lbr$routines.h>
39 #define uppercasify(str) {char *str1; for (str1 = str; *str1; str1++) *str1 = _toupper(*str1);}
41 static void *VMS_lib_idx
;
43 static char *VMS_saved_memname
;
45 static time_t VMS_member_date
;
47 static long int (*VMS_function
) ();
50 VMS_get_member_info (module
, rfa
)
51 struct dsc$descriptor_s
*module
;
59 static struct dsc$descriptor_s bufdesc
=
60 { 0, DSC$K_DTYPE_T
, DSC$K_CLASS_S
, NULL
};
65 bufdesc
.dsc$a_pointer
= filename
;
66 bufdesc
.dsc$w_length
= sizeof (filename
);
68 status
= lbr$
set_module (&VMS_lib_idx
, rfa
, &bufdesc
,
69 &bufdesc
.dsc$w_length
, 0);
72 error ("lbr$set_module failed to extract module info, status = %d",
75 lbr$
close (&VMS_lib_idx
);
80 mhd
= (struct mhddef
*) filename
;
82 val
= decc$
fix_time (&mhd
->mhd$l_datim
);
84 for (i
= 0; i
< module
->dsc$w_length
; i
++)
85 filename
[i
] = _tolower (module
->dsc$a_pointer
[i
]);
89 VMS_member_date
= (time_t) -1;
92 (*VMS_function
) (-1, filename
, 0, 0, 0, 0, val
, 0, 0, 0,
97 VMS_member_date
= fnval
;
104 /* Takes three arguments ARCHIVE, FUNCTION and ARG.
106 Open the archive named ARCHIVE, find its members one by one,
107 and for each one call FUNCTION with the following arguments:
108 archive file descriptor for reading the data,
110 member name might be truncated flag,
111 member header position in file,
112 member data position in file,
117 member protection mode,
120 NOTE: on VMS systems, only name, date, and arg are meaningful!
122 The descriptor is poised to read the data of the member
123 when FUNCTION is called. It does not matter how much
126 If FUNCTION returns nonzero, we immediately return
127 what FUNCTION returned.
129 Returns -1 if archive does not exist,
130 Returns -2 if archive has invalid format.
131 Returns 0 if have scanned successfully. */
134 ar_scan (archive
, function
, arg
)
136 long int (*function
) ();
141 static struct dsc$descriptor_s libdesc
=
142 { 0, DSC$K_DTYPE_T
, DSC$K_CLASS_S
, NULL
};
144 unsigned long func
= LBR$C_READ
;
145 unsigned long type
= LBR$C_TYP_UNK
;
146 unsigned long index
= 1;
150 status
= lbr$
ini_control (&VMS_lib_idx
, &func
, &type
, 0);
154 error ("lbr$ini_control failed with status = %d",status
);
158 libdesc
.dsc$a_pointer
= archive
;
159 libdesc
.dsc$w_length
= strlen (archive
);
161 status
= lbr$
open (&VMS_lib_idx
, &libdesc
, 0, 0, 0, 0, 0);
165 error ("unable to open library `%s' to lookup member `%s'",
166 archive
, (char *)arg
);
170 VMS_saved_memname
= (char *)arg
;
172 /* For comparison, delete .obj from arg name. */
174 p
= rindex (VMS_saved_memname
, '.');
178 VMS_function
= function
;
180 lbr$
get_index (&VMS_lib_idx
, &index
, VMS_get_member_info
, 0);
182 /* Undo the damage. */
186 lbr$
close (&VMS_lib_idx
);
188 return VMS_member_date
> 0 ? VMS_member_date
: 0;
193 /* SCO Unix's compiler defines both of these. */
198 /* On the sun386i and in System V rel 3, ar.h defines two different archive
199 formats depending upon whether you have defined PORTAR (normal) or PORT5AR
200 (System V Release 1). There is no default, one or the other must be defined
201 to have a nonzero value. */
203 #if (!defined (PORTAR) || PORTAR == 0) && (!defined (PORT5AR) || PORT5AR == 0)
206 /* According to Jim Sievert <jas1@rsvl.unisys.com>, for SCO XENIX defining
207 PORTAR to 1 gets the wrong archive format, and defining it to 0 gets the
217 /* Cray's <ar.h> apparently defines this. */
219 #define AR_HDR_SIZE (sizeof (struct ar_hdr))
222 /* Takes three arguments ARCHIVE, FUNCTION and ARG.
224 Open the archive named ARCHIVE, find its members one by one,
225 and for each one call FUNCTION with the following arguments:
226 archive file descriptor for reading the data,
228 member name might be truncated flag,
229 member header position in file,
230 member data position in file,
235 member protection mode,
238 The descriptor is poised to read the data of the member
239 when FUNCTION is called. It does not matter how much
242 If FUNCTION returns nonzero, we immediately return
243 what FUNCTION returned.
245 Returns -1 if archive does not exist,
246 Returns -2 if archive has invalid format.
247 Returns 0 if have scanned successfully. */
250 ar_scan (archive
, function
, arg
)
252 long int (*function
) ();
261 register int desc
= open (archive
, O_RDONLY
, 0);
267 register int nread
= read (desc
, buf
, SARMAG
);
268 if (nread
!= SARMAG
|| bcmp (buf
, ARMAG
, SARMAG
))
277 register int nread
= read (desc
, (char *) &fl_header
, FL_HSZ
);
278 if (nread
!= FL_HSZ
|| bcmp (fl_header
.fl_magic
, AIAMAG
, SAIAMAG
))
289 unsigned short int buf
;
291 register int nread
= read(desc
, &buf
, sizeof (buf
));
292 if (nread
!= sizeof (buf
) || buf
!= ARMAG
)
301 /* Now find the members one by one. */
304 register long int member_offset
= SARMAG
;
307 long int member_offset
;
308 long int last_member_offset
;
310 sscanf (fl_header
.fl_fstmoff
, "%12ld", &member_offset
);
311 sscanf (fl_header
.fl_lstmoff
, "%12ld", &last_member_offset
);
313 if (member_offset
== 0)
321 register long int member_offset
= sizeof (int);
323 register long int member_offset
= sizeof (unsigned short int);
324 #endif /* Not Xenix. */
331 struct ar_hdr member_header
;
337 long int data_offset
;
339 char namebuf
[sizeof member_header
.ar_name
+ 1];
341 int is_namemap
; /* Nonzero if this entry maps long names. */
347 if (lseek (desc
, member_offset
, 0) < 0)
354 #define AR_MEMHDR (AR_HDR_SIZE - sizeof (member_header._ar_name))
355 nread
= read (desc
, (char *) &member_header
, AR_MEMHDR
);
357 if (nread
!= AR_MEMHDR
)
363 sscanf (member_header
.ar_namlen
, "%4d", &name_len
);
364 nread
= read (desc
, name
, name_len
);
366 if (nread
!= name_len
)
374 sscanf (member_header
.ar_date
, "%12ld", &dateval
);
375 sscanf (member_header
.ar_uid
, "%12d", &uidval
);
376 sscanf (member_header
.ar_gid
, "%12d", &gidval
);
377 sscanf (member_header
.ar_mode
, "%12o", &eltmode
);
378 sscanf (member_header
.ar_size
, "%12ld", &eltsize
);
380 if ((data_offset
= member_offset
+ AR_MEMHDR
+ name_len
+ 2) % 2)
384 (*function
) (desc
, name
, 0,
385 member_offset
, data_offset
, eltsize
,
386 dateval
, uidval
, gidval
,
389 #else /* Not AIAMAG. */
390 nread
= read (desc
, (char *) &member_header
, AR_HDR_SIZE
);
392 /* No data left means end of file; that is OK. */
395 if (nread
!= AR_HDR_SIZE
397 || bcmp (member_header
.ar_fmag
, ARFMAG
, 2)
406 bcopy (member_header
.ar_name
, name
, sizeof member_header
.ar_name
);
408 register char *p
= name
+ sizeof member_header
.ar_name
;
411 while (p
> name
&& *--p
== ' ');
414 /* If the member name is "//" or "ARFILENAMES/" this may be
415 a list of file name mappings. The maximum file name
416 length supported by the standard archive format is 14
417 characters. This member will actually always be the
418 first or second entry in the archive, but we don't check
420 is_namemap
= (!strcmp (name
, "//")
421 || !strcmp (name
, "ARFILENAMES/"));
422 #endif /* Not AIAMAG. */
423 /* On some systems, there is a slash after each member name. */
428 /* If the member name starts with a space or a slash, this
429 is an index into the file name mappings (used by GNU ar).
430 Otherwise if the member name looks like #1/NUMBER the
431 real member name appears in the element data (used by
434 && (name
[0] == ' ' || name
[0] == '/')
437 name
= namemap
+ atoi (name
+ 1);
440 else if (name
[0] == '#'
444 int namesize
= atoi (name
+ 3);
446 name
= (char *) alloca (namesize
+ 1);
447 nread
= read (desc
, name
, namesize
);
448 if (nread
!= namesize
)
453 name
[namesize
] = '\0';
457 #endif /* Not AIAMAG. */
461 sscanf (member_header
.ar_mode
, "%o", &eltmode
);
462 eltsize
= atol (member_header
.ar_size
);
464 eltmode
= (unsigned short int) member_header
.ar_mode
;
465 eltsize
= member_header
.ar_size
;
466 #endif /* Not Xenix. */
469 (*function
) (desc
, name
, ! long_name
, member_offset
,
470 member_offset
+ AR_HDR_SIZE
, eltsize
,
472 atol (member_header
.ar_date
),
473 atoi (member_header
.ar_uid
),
474 atoi (member_header
.ar_gid
),
476 member_header
.ar_date
,
477 member_header
.ar_uid
,
478 member_header
.ar_gid
,
479 #endif /* Not Xenix. */
491 if (member_offset
== last_member_offset
)
492 /* End of the chain. */
495 sscanf (member_header
.ar_nxtmem
, "%12ld", &member_offset
);
497 if (lseek (desc
, member_offset
, 0) != member_offset
)
504 /* If this member maps archive names, we must read it in. The
505 name map will always precede any members whose names must
512 namemap
= (char *) alloca (eltsize
);
513 nread
= read (desc
, namemap
, eltsize
);
514 if (nread
!= eltsize
)
520 /* The names are separated by newlines. Some formats have
521 a trailing slash. Null terminate the strings for
523 limit
= namemap
+ eltsize
;
524 for (clear
= namemap
; clear
< limit
; clear
++)
529 if (clear
[-1] == '/')
537 member_offset
+= AR_HDR_SIZE
+ eltsize
;
538 if (member_offset
% 2 != 0)
549 /* Return nonzero iff NAME matches MEM.
550 If TRUNCATED is nonzero, MEM may be truncated to
551 sizeof (struct ar_hdr.ar_name) - 1. */
554 ar_name_equal (name
, mem
, truncated
)
560 p
= rindex (name
, '/');
564 /* We no longer use this kludge, since we
565 now support long archive member names. */
567 #if 0 && !defined (AIAMAG) && !defined (APOLLO)
570 /* `reallylongname.o' matches `reallylongnam.o'.
571 If member names have a trailing slash, that's `reallylongna.o'. */
574 unsigned int max
= sizeof (h
.ar_name
);
575 unsigned int namelen
, memlen
;
577 if (strncmp (name
, mem
, max
- 3))
580 namelen
= strlen (name
);
581 memlen
= strlen (mem
);
583 if (namelen
> memlen
&& memlen
>= max
- 1
584 && name
[namelen
- 2] == '.' && name
[namelen
- 1] == 'o'
585 && mem
[memlen
- 2] == '.' && mem
[memlen
- 1] == 'o')
588 if (namelen
!= memlen
)
591 return (namelen
< max
- 3 || !strcmp (name
+ max
- 3, mem
+ max
- 3));
594 #else /* AIX or APOLLO. */
599 /* TRUNCATED should never be set on this system. */
603 return !strncmp (name
, mem
,
604 sizeof (hdr
.ar_name
) -
605 #if !defined (__hpux) && !defined (cray)
609 #endif /* !__hpux && !cray */
615 return !strcmp (name
, mem
);
623 ar_member_pos (desc
, mem
, truncated
,
624 hdrpos
, datapos
, size
, date
, uid
, gid
, mode
, name
)
628 long int hdrpos
, datapos
, size
, date
;
632 if (!ar_name_equal (name
, mem
, truncated
))
637 /* Set date of member MEMNAME in archive ARNAME to current time.
638 Returns 0 if successful,
639 -1 if file ARNAME does not exist,
640 -2 if not a valid archive,
641 -3 if other random system call error (including file read-only),
642 1 if valid but member MEMNAME does not exist. */
645 ar_member_touch (arname
, memname
)
646 char *arname
, *memname
;
648 register long int pos
= ar_scan (arname
, ar_member_pos
, (long int) memname
);
650 struct ar_hdr ar_hdr
;
659 fd
= open (arname
, O_RDWR
, 0666);
662 /* Read in this member's header */
663 if (lseek (fd
, pos
, 0) < 0)
665 if (AR_HDR_SIZE
!= read (fd
, (char *) &ar_hdr
, AR_HDR_SIZE
))
667 /* Write back the header, thus touching the archive file. */
668 if (lseek (fd
, pos
, 0) < 0)
670 if (AR_HDR_SIZE
!= write (fd
, (char *) &ar_hdr
, AR_HDR_SIZE
))
672 /* The file's mtime is the time we we want. */
674 while (fstat (fd
, &statbuf
) < 0 && errno
== EINTR
);
676 fstat (fd
, &statbuf
);
678 #if defined(ARFMAG) || defined(AIAMAG)
679 /* Advance member's time to that time */
680 for (i
= 0; i
< sizeof ar_hdr
.ar_date
; i
++)
681 ar_hdr
.ar_date
[i
] = ' ';
682 sprintf (ar_hdr
.ar_date
, "%ld", (long int) statbuf
.st_mtime
);
684 ar_hdr
.ar_date
[strlen(ar_hdr
.ar_date
)] = ' ';
687 ar_hdr
.ar_date
= statbuf
.st_mtime
;
689 /* Write back this member's header */
690 if (lseek (fd
, pos
, 0) < 0)
692 if (AR_HDR_SIZE
!= write (fd
, (char *) &ar_hdr
, AR_HDR_SIZE
))
708 describe_member (desc
, name
, truncated
,
709 hdrpos
, datapos
, size
, date
, uid
, gid
, mode
)
713 long int hdrpos
, datapos
, size
, date
;
716 extern char *ctime ();
718 printf ("Member `%s'%s: %ld bytes at %ld (%ld).\n",
719 name
, truncated
? " (name might be truncated)" : "",
720 size
, hdrpos
, datapos
);
721 printf (" Date %s", ctime (&date
));
722 printf (" uid = %d, gid = %d, mode = 0%o.\n", uid
, gid
, mode
);
731 ar_scan (argv
[1], describe_member
);
737 #endif /* NO_ARCHIVES. */