rdoff/rdlib.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3
   4 #include "rdoff.h"
   5 #include "rdlib.h"
   6
   7 int rdl_error = 0;
   8
   9 char *rdl_errors[3] = {
  10     "no error","could not open file", "invalid file structure",
  11 };
  12
  13 int rdl_searchlib (struct librarynode * lib,
  14                    const char * label, rdffile * f)
  15 {
  16     char                buf[257];
  17     int                 i;
  18     void *              hdr;
  19     rdfheaderrec        * r;
  20
  21     rdl_error = 0;
  22     lib->referenced ++;
  23
  24     if (! lib->fp)
  25     {
  26         lib->fp = fopen(lib->name,"rb");
  27
  28         if (! lib->fp) {
  29             rdl_error = 1;
  30             return 0;
  31         }
  32     }
  33     else
  34         rewind(lib->fp);
  35
  36     while (! feof(lib->fp) )
  37     {
  38         i = 1;
  39         while (fread(buf + i,1,1,lib->fp) == 1 && buf[i] && i < 257)
  40             i++;
  41         buf[0] = ':';
  42
  43         if (feof(lib->fp)) break;
  44
  45         if ( rdfopenhere(f,lib->fp,&lib->referenced,buf) ) {
  46             rdl_error = 2;
  47             return 0;
  48         }
  49
  50         hdr = malloc(f->header_len);
  51         rdfloadseg(f,RDOFF_HEADER,hdr);
  52
  53         while ((r = rdfgetheaderrec(f)))
  54         {
  55             if (r->type != 3)   /* not an export */
  56                 continue;
  57
  58             if (! strcmp(r->e.label, label) )   /* match! */
  59             {
  60                 free(hdr);                      /* reset to 'just open' */
  61                 f->header_loc = NULL;           /* state... */
  62                 f->header_fp = 0;
  63                 return 1;
  64             }
  65         }
  66
  67         /* find start of next module... */
  68         i = f->data_ofs + f->data_len;
  69         rdfclose(f);
  70         fseek(lib->fp,i,SEEK_SET);
  71     }
  72
  73     lib->referenced --;
  74     if (! lib->referenced)
  75     {
  76         fclose(lib->fp);
  77         lib->fp = NULL;
  78     }
  79     return 0;
  80 }
  81
  82 void rdl_perror(const char *apname, const char *filename)
  83 {
  84     fprintf(stderr,"%s:%s:%s\n",apname,filename,rdl_errors[rdl_error]);
  85 }
  86
  87
  88