gas/obsolete/gdb-file.c

   1 /* gdb_file.c -o/s specific-
   2    Copyright (C) 1987 Free Software Foundation, Inc.
   3
   4 This file is part of GAS, the GNU Assembler.
   5
   6 GAS 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 1, or (at your option)
   9 any later version.
  10
  11 GAS 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 GAS; see the file COPYING.  If not, write to
  18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19
  20 #include <stdio.h>
  21 #include <sys/types.h>
  22 #include <sys/stat.h>
  23
  24 static long file_len;
  25 static FILE *file;
  26 extern long get_len();
  27
  28
  29 void
  30 gdb_file_begin ()
  31 {
  32 }
  33
  34 void
  35 gdb_file_end()
  36 {
  37 }
  38
  39 long int                        /* Open file, return size. 0: failed. */
  40 gdb_file_size (filename)
  41 char *filename;
  42 {
  43   struct stat stat_buf;
  44   void as_perror();
  45
  46   file= fopen (filename, "r");
  47   if (file == (FILE *)NULL)
  48     {
  49       as_perror ("Can't read GDB symbolic information file", filename);
  50       file_len=0;
  51     } else {
  52         (void)fstat (fileno(file), &stat_buf);
  53         file_len=stat_buf . st_size;
  54     }
  55   return ((long int)file_len );
  56 }
  57
  58 void                            /* Read the file, don't return if failed. */
  59 gdb_file_read (buffer, filename)
  60      char *     buffer;
  61      char *     filename;
  62 {
  63   register off_t        size_wanted;
  64   void as_perror();
  65
  66   size_wanted = file_len;
  67   if (fread (buffer, size_wanted, 1, file) != 1)
  68     {
  69       as_perror ("Can't read GDB symbolic info file", filename);
  70       as_fatal ("Failed to read %ld. chars of GDB symbolic information",
  71                 size_wanted);
  72     }
  73   if (fclose(file)==EOF)
  74     {
  75       as_perror ("Can't close GDB symbolic info file", filename);
  76       as_fatal ("I quit in disgust");
  77     }
  78 }
  79
  80 /* end: gdb_file.c */