aboutsummaryrefslogtreecommitdiff
path: root/binutils/arsup.c
diff options
context:
space:
mode:
Diffstat (limited to 'binutils/arsup.c')
-rw-r--r--binutils/arsup.c382
1 files changed, 382 insertions, 0 deletions
diff --git a/binutils/arsup.c b/binutils/arsup.c
new file mode 100644
index 0000000..ee7e4e9
--- /dev/null
+++ b/binutils/arsup.c
@@ -0,0 +1,382 @@
+/* arsup.c - Archive support for MRI compatibility */
+
+/* Copyright (C) 1992 Free Software Foundation, Inc.
+
+This file is part of GNU Binutils.
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
+
+
+/* Contributed by Steve Chamberlain
+ sac@cygnus.com
+
+This file looks after requests from arparse.y, to provide the MRI
+style librarian command syntax + 1 word LIST
+
+*/
+
+#include "bfd.h"
+#include "arsup.h"
+#include <sysdep.h>
+#include "bucomm.h"
+extern bfd *inarch;
+extern int verbose;
+
+
+
+void
+DEFUN(map_over_list,(function, list),
+ void (*function) () AND
+ struct list *list)
+
+{
+ bfd *head;
+
+ if (list == 0) {
+ for (head = inarch->next; head; head = head->next){
+ function(head);
+ }
+ }
+ else {
+ /*
+ This may appear to be a baroque way of accomplishing what we want.
+ however we have to iterate over the filenames in order to notice where
+ a filename is requested but does not exist in the archive. Ditto
+ mapping over each file each time -- we want to hack multiple
+ references.
+ */
+ struct list *ptr = list;
+
+ for (ptr = list; ptr; ptr=ptr->next)
+ {
+ boolean found = false;
+ bfd *prev = inarch;
+ for (head = inarch->next; head; head = head->next)
+ {
+ if ((head->filename != NULL) &&
+ (!strcmp(ptr->name, head->filename)))
+ {
+ found = true;
+ function(head, prev);
+
+ }
+ prev = head;
+ }
+ if (!found)
+ fprintf(stderr, "No entry %s in archive.\n", ptr->name);
+ }
+ }
+}
+
+
+FILE *outfile;
+void
+DEFUN(ar_directory_doer,(abfd),
+ bfd *abfd)
+{
+ print_arelt_descr(outfile, abfd, verbose);
+}
+
+void
+DEFUN(ar_directory,(ar_name, list, output),
+ char *ar_name AND
+ struct list *list AND
+ char *output)
+{
+ open_inarch(ar_name);
+ if (output) {
+ outfile = fopen(output,"w");
+ if (outfile == 0) {
+ outfile =stdout;
+ fprintf(stderr,"Can't open file %s\n", output);
+ output = 0;
+ }
+ }
+ else
+ outfile = stdout;
+
+ map_over_list(ar_directory_doer, list);
+ bfd_close(inarch);
+ if (output)
+ fclose(outfile);
+}
+
+void
+DEFUN_VOID(prompt)
+{
+ extern int interactive;
+ if (interactive)
+ {
+ printf("AR >");
+ fflush(stdout);
+ }
+}
+
+void
+DEFUN_VOID(maybequit)
+{
+if (!interactive)
+ exit(9);
+}
+
+
+bfd *obfd;
+char *real_name ;
+void
+DEFUN(ar_open,(name, t),
+ char *name AND
+ int t)
+
+{
+ char *tname = malloc(strlen(name)+10);
+ real_name = name;
+ sprintf(tname, "%s-tmp", name);
+ obfd = bfd_openw(tname, NULL);
+
+ if (!obfd) {
+ fprintf(stderr,"%s: Can't open output archive %s\n", program_name,
+ tname);
+
+ maybequit();
+ }
+ else {
+ if (!t) {
+ bfd **ptr;
+ bfd *element;
+ bfd *ibfd;
+ ibfd = bfd_openr(name, NULL);
+ if (bfd_check_format(ibfd, bfd_archive) != true) {
+ fprintf(stderr,"%s: file %s is not an archive\n", program_name,
+ name);
+ maybequit();
+ return;
+ }
+ ptr = &(obfd->archive_head);
+ element = bfd_openr_next_archived_file(ibfd, NULL);
+
+ while (element) {
+ *ptr = element;
+ ptr = &element->next;
+ element = bfd_openr_next_archived_file(ibfd, element);
+ }
+ }
+
+ bfd_set_format(obfd, bfd_archive);
+
+ obfd->has_armap = 1;
+ }
+}
+
+
+void
+DEFUN(ar_addlib_doer, (abfd, prev),
+ bfd *abfd AND
+ bfd *prev)
+{
+ /* Add this module to the output bfd */
+
+ prev->next = abfd->next;
+ abfd->next = obfd->archive_head;
+ obfd->archive_head = abfd;
+}
+
+void
+DEFUN(ar_addlib, (name, list),
+ char *name AND
+ struct list *list)
+{
+ if (!obfd) {
+ fprintf(stderr, "%s: no output archive specified yet\n", program_name);
+ maybequit();
+ }
+ else {
+ if (open_inarch(name) ) {
+ map_over_list(ar_addlib_doer, list);
+ }
+ /* Don't close the bfd, since it will make the elements disasppear */
+ }
+}
+
+
+
+void
+DEFUN(ar_addmod, (list),
+ struct list *list)
+{
+ if (!obfd) {
+ fprintf(stderr, "%s: no open output archive\n", program_name);
+ maybequit();
+ }
+ else
+ {
+ while (list) {
+ bfd *abfd = bfd_openr(list->name, NULL);
+ if (!abfd) {
+ fprintf(stderr,"%s: can't open file %s\n", program_name,
+ list->name);
+ maybequit();
+ }
+ else {
+ abfd->next = obfd->archive_head;
+ obfd->archive_head = abfd;
+ }
+ list = list->next;
+ }
+ }
+}
+
+
+
+void
+DEFUN_VOID(ar_clear)
+{
+if (obfd)
+ obfd->archive_head = 0;
+}
+
+void
+DEFUN(ar_delete, (list),
+ struct list *list)
+{
+ if (!obfd) {
+ fprintf(stderr, "%s: no open output archive\n", program_name);
+ maybequit();
+ }
+ else
+ {
+ while (list) {
+ /* Find this name in the archive */
+ bfd *member = obfd->archive_head;
+ bfd **prev = &(obfd->archive_head);
+ int found = 0;
+ while (member) {
+ if (strcmp(member->filename, list->name) == 0) {
+ *prev = member->next;
+ found = 1;
+ }
+ else {
+ prev = &(member->next);
+ }
+ member = member->next;
+ }
+ if (!found) {
+ fprintf(stderr,"%s: can't find module file %s\n", program_name,
+ list->name);
+ maybequit();
+ }
+ list = list->next;
+ }
+ }
+}
+
+
+void
+DEFUN_VOID(ar_save)
+{
+
+ if (!obfd) {
+ fprintf(stderr, "%s: no open output archive\n", program_name);
+ maybequit();
+ }
+ else {
+ bfd_close(obfd);
+ unlink(real_name);
+ link(obfd->filename, real_name);
+ unlink(obfd->filename);
+ obfd = 0;
+ }
+}
+
+
+
+void
+DEFUN(ar_replace, (list),
+ struct list *list)
+{
+ if (!obfd) {
+ fprintf(stderr, "%s: no open output archive\n", program_name);
+ maybequit();
+ }
+ else
+ {
+ while (list) {
+ /* Find this name in the archive */
+ bfd *member = obfd->archive_head;
+ bfd **prev = &(obfd->archive_head);
+ int found = 0;
+ while (member)
+ {
+ if (strcmp(member->filename, list->name) == 0)
+ {
+ /* Found the one to replace */
+ bfd *abfd = bfd_openr(list->name, 0);
+ if (!abfd)
+ {
+ fprintf(stderr, "%s: can't open file %s\n", program_name, list->name);
+ maybequit();
+ }
+ else {
+ *prev = abfd;
+ abfd->next = member->next;
+ found = 1;
+ }
+ }
+ else {
+ prev = &(member->next);
+ }
+ member = member->next;
+ }
+ if (!found) {
+ bfd *abfd = bfd_openr(list->name, 0);
+ fprintf(stderr,"%s: can't find module file %s\n", program_name,
+ list->name);
+ if (!abfd)
+ {
+ fprintf(stderr, "%s: can't open file %s\n", program_name, list->name);
+ maybequit();
+ }
+ else
+ {
+ *prev = abfd;
+ }
+ }
+
+ list = list->next;
+ }
+ }
+}
+
+/* And I added this one */
+void
+DEFUN_VOID(ar_list)
+{
+ if (!obfd)
+ {
+ fprintf(stderr, "%s: no open output archive\n", program_name);
+ maybequit();
+ }
+ else {
+ bfd *abfd;
+ outfile = stdout;
+ verbose =1 ;
+ printf("Current open archive is %s\n", obfd->filename);
+ for (abfd = obfd->archive_head;
+ abfd != (bfd *)NULL;
+ abfd = abfd->next)
+ {
+ ar_directory_doer(abfd);
+ }
+ }
+}
generated by cgit v1.1 at 2024-12-15 01:09:27 +0000