gdb/stuff.c

   1 /* Program to stuff files into a specially prepared space in kdb.
   2    Copyright (C) 1986, 1989, 1991 Free Software Foundation, Inc.
   3
   4    This file is part of GDB.
   5
   6    This program is free software; you can redistribute it and/or modify
   7    it under the terms of the GNU General Public License as published by
   8    the Free Software Foundation; either version 2 of the License, or
   9    (at your option) any later version.
  10
  11    This program is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14    GNU General Public License for more details.
  15
  16    You should have received a copy of the GNU General Public License
  17    along with this program; if not, write to the Free Software
  18    Foundation, Inc., 59 Temple Place - Suite 330,
  19    Boston, MA 02111-1307, USA.  */
  20
  21 /* Written 13-Mar-86 by David Bridgham. */
  22
  23 #include <stdio.h>
  24 #include <a.out.h>
  25 #include <sys/types.h>
  26 #include "gdb_stat.h"
  27 #include <sys/file.h>
  28 #include <varargs.h>
  29
  30 main (argc, argv)
  31      int argc;
  32      char *argv[];
  33 {
  34   register char *cp;
  35   char *outfile;
  36   register int i;
  37   int offset;
  38   int out_fd, in_fd;
  39   struct stat stat_buf;
  40   int size, pad;
  41   char buf[1024];
  42   static char zeros[4] =
  43   {0};
  44
  45   if (argc < 4)
  46     err ("Not enough arguments\nUsage: %s -o kdb file1 file2 ...\n",
  47          argv[0]);
  48
  49   outfile = 0;
  50   for (i = 1; i < argc; i++)
  51     {
  52       if (STREQ (argv[i], "-o"))
  53         outfile = argv[++i];
  54     }
  55   if (outfile == 0)
  56     err ("Output file not specified\n");
  57
  58   offset = get_offset (outfile, "_heap");
  59
  60   out_fd = open (outfile, O_WRONLY);
  61   if (out_fd < 0)
  62     err ("Error opening %s for write: %s\n", outfile, strerror (errno));
  63   if (lseek (out_fd, offset, 0) < 0)
  64     err ("Error seeking to heap in %s: %s\n", outfile, strerror (errno));
  65
  66   /* For each file listed on the command line, write it into the
  67    * 'heap' of the output file.  Make sure to skip the arguments
  68    * that name the output file. */
  69   for (i = 1; i < argc; i++)
  70     {
  71       if (STREQ (argv[i], "-o"))
  72         continue;
  73       if ((in_fd = open (argv[i], O_RDONLY)) < 0)
  74         err ("Error opening %s for read: %s\n", argv[i],
  75              strerror (errno));
  76       if (fstat (in_fd, &stat_buf) < 0)
  77         err ("Error stat'ing %s: %s\n", argv[i], strerror (errno));
  78       size = strlen (argv[i]);
  79       pad = 4 - (size & 3);
  80       size += pad + stat_buf.st_size + sizeof (int);
  81       write (out_fd, &size, sizeof (int));
  82       write (out_fd, argv[i], strlen (argv[i]));
  83       write (out_fd, zeros, pad);
  84       while ((size = read (in_fd, buf, sizeof (buf))) > 0)
  85         write (out_fd, buf, size);
  86       close (in_fd);
  87     }
  88   size = 0;
  89   write (out_fd, &size, sizeof (int));
  90   close (out_fd);
  91   return (0);
  92 }
  93
  94 /* Read symbol table from file and returns the offset into the file
  95  * where symbol sym_name is located.  If error, print message and
  96  * exit. */
  97 get_offset (file, sym_name)
  98      char *file;
  99      char *sym_name;
 100 {
 101   int f;
 102   struct exec file_hdr;
 103   struct nlist *symbol_table;
 104   int size;
 105   char *strings;
 106
 107   f = open (file, O_RDONLY);
 108   if (f < 0)
 109     err ("Error opening %s: %s\n", file, strerror (errno));
 110   if (read (f, &file_hdr, sizeof (file_hdr)) < 0)
 111     err ("Error reading exec structure: %s\n", strerror (errno));
 112   if (N_BADMAG (file_hdr))
 113     err ("File %s not an a.out file\n", file);
 114
 115   /* read in symbol table */
 116   if ((symbol_table = (struct nlist *) malloc (file_hdr.a_syms)) == 0)
 117     err ("Couldn't allocate space for symbol table\n");
 118   if (lseek (f, N_SYMOFF (file_hdr), 0) == -1)
 119     err ("lseek error: %s\n", strerror (errno));
 120   if (read (f, symbol_table, file_hdr.a_syms) == -1)
 121     err ("Error reading symbol table from %s: %s\n", file,
 122          strerror (errno));
 123
 124   /* read in string table */
 125   if (read (f, &size, 4) == -1)
 126     err ("reading string table size: %s\n", strerror (errno));
 127   if ((strings = (char *) malloc (size)) == 0)
 128     err ("Couldn't allocate memory for string table\n");
 129   if (read (f, strings, size - 4) == -1)
 130     err ("reading string table: %s\n", strerror (errno));
 131
 132   /* Find the core address at which the first byte of kdb text segment
 133      should be loaded into core when kdb is run.  */
 134   origin = find_symbol ("_etext", symbol_table, file_hdr.a_syms, strings)
 135     - file_hdr.a_text;
 136   /* Find the core address at which the heap will appear.  */
 137   coreaddr = find_symbol (sym_name, symbol_table, file_hdr.a_syms, strings);
 138   /* Return address in file of the heap data space.  */
 139   return (N_TXTOFF (file_hdr) + core_addr - origin);
 140 }
 141
 142 find_symbol (sym_name, symbol_table, length, strings)
 143      char *sym_name;
 144      struct nlist *symbol_table;
 145      int length;
 146      char *strings;
 147 {
 148   register struct nlist *sym;
 149
 150   /* Find symbol in question */
 151   for (sym = symbol_table;
 152        sym != (struct nlist *) ((char *) symbol_table + length);
 153        sym++)
 154     {
 155       if ((sym->n_type & N_TYPE) != N_DATA)
 156         continue;
 157       if (sym->n_un.n_strx == 0)
 158         continue;
 159       if (STREQ (sym_name, strings + sym->n_un.n_strx - 4))
 160         return sym->n_value;
 161     }
 162   err ("Data symbol %s not found in %s\n", sym_name, file);
 163 }
 164
 165 /* VARARGS */
 166 void
 167 err (va_alist)
 168      va_dcl
 169 {
 170   va_list args;
 171   char *string;
 172
 173   va_start (args);
 174   string = va_arg (args, char *);
 175   vfprintf (gdb_stderr, string, args);
 176   va_end (args);
 177   exit (-1);
 178 }