sdcc/sdas/linksrc/lkrel.c

   1 /* lkrel.c - .rel object file handling
   2
   3    Copyright (C) 1989-1995 Alan R. Baldwin
   4    721 Berkeley St., Kent, Ohio 44240
   5    Copyright (C) 2008-2010 Borut Razem, borut dot razem at siol dot net
   6
   7 This program is free software; you can redistribute it and/or modify it
   8 under the terms of the GNU General Public License as published by the
   9 Free Software Foundation; either version 3, or (at your option) any
  10 later version.
  11
  12 This program is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with this program.  If not, see <http://www.gnu.org/licenses/>. */
  19
  20 /*
  21  * With contributions for the
  22  * object libraries from
  23  * Ken Hornstein
  24  * kenh@cmf.nrl.navy.mil
  25  *
  26  */
  27
  28 /*
  29  * Extensions: P. Felber
  30  */
  31
  32 #include <assert.h>
  33
  34 #include "lk_readnl.h"
  35 #include "aslink.h"
  36 #include "lkrel.h"
  37
  38 int
  39 is_rel (FILE * libfp)
  40 {
  41   int c;
  42   long pos = ftell (libfp);
  43   int ret = 0;
  44
  45   /* [XDQ][HL][234] */
  46   if (((c = getc (libfp)) == 'X' || c == 'D' || c == 'Q') && ((c = getc (libfp)) == 'H' || c == 'L'))
  47     {
  48       switch (getc (libfp))
  49         {
  50         case '2':
  51         case '3':
  52         case '4':
  53           switch (getc (libfp))
  54             {
  55             case '\r':
  56               if (getc (libfp) == '\n')
  57                 ret = 1;
  58               break;
  59
  60             case '\n':
  61               ret = 1;
  62             }
  63           break;
  64
  65         case '\r':
  66           if (getc (libfp) == '\n')
  67             ret = 1;
  68           break;
  69
  70         case '\n':
  71           ret = 1;
  72         }
  73     }
  74   else if (c == ';')
  75     {
  76       char buf[6];
  77
  78       if (fread (buf, 1, sizeof (buf), libfp) == sizeof (buf) && memcmp (buf, "!FILE ", 6) == 0)
  79         ret = 1;
  80     }
  81   fseek (libfp, pos, SEEK_SET);
  82   return ret;
  83 }
  84
  85 /* Load a standalone or embedded .rel */
  86 int
  87 load_rel (FILE * libfp, long size)
  88 {
  89   if (is_rel (libfp))
  90     {
  91       char str[NINPUT];
  92       long end;
  93
  94       end = (size >= 0) ? ftell (libfp) + size : -1;
  95
  96       while ((end < 0 || ftell (libfp) < end) && lk_readnl (str, sizeof (str), libfp) != NULL)
  97         {
  98           if (0 == strcmp (str, "</REL>"))
  99             return 1;
 100
 101           ip = str;
 102           link_main ();
 103         }
 104
 105       return 1;
 106     }
 107   else
 108     return 0;
 109 }
 110
 111 int
 112 enum_symbols (FILE * fp, long size, int (*func) (const char *symvoid, void *param), void *param)
 113 {
 114   char buf[NINPUT];
 115   long end = (size >= 0) ? ftell (fp) + size : -1;
 116
 117   assert (func != NULL);
 118
 119   /*
 120    * Read in the object file.  Look for lines that
 121    * begin with "S" and end with "D".  These are
 122    * symbol table definitions.  If we find one, see
 123    * if it is our symbol.  Make sure we only read in
 124    * our object file and don't go into the next one.
 125    */
 126
 127   while ((end < 0 || ftell (fp) < end) && lk_readnl (buf, sizeof (buf), fp) != NULL)
 128     {
 129       char symname[NINPUT];
 130       char c;
 131
 132       /*
 133        * When a 'T line' is found terminate file scan.
 134        * All 'S line's preceed 'T line's in .REL files.
 135        */
 136       if (buf[0] == 'T')
 137         break;
 138
 139       /*
 140        * Skip everything that's not a symbol record.
 141        */
 142       if (buf[0] != 'S')
 143         continue;
 144
 145       sscanf (buf, "S %s %c", symname, &c);
 146
 147       /* If it's an actual symbol, record it */
 148       if (c == 'D')
 149         {
 150           if ((*func) (symname, param))
 151             return 1;
 152         }
 153     }
 154
 155   return 0;
 156 }