开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编译器/解释器 > 查看源码
rdlib.c
资源名称：nasm-0.98.zip　[点击查看]
上传用户：yuppie_zhu
上传日期：2007-01-08
资源大小：535k
文件大小：2k
源码类别：

编译器/解释器

开发平台：

C/C++

rdlib.c：源码内容
  1. #include <stdio.h>
  2. #include <stdlib.h>
  4. #include "rdoff.h"
  5. #include "rdlib.h"
  7. int rdl_error = 0;
  9. char *rdl_errors[3] = {
  10.     "no error","could not open file", "invalid file structure",
  11. };
  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;
  21.     rdl_error = 0;
  22.     lib->referenced ++;
  24.     if (! lib->fp)
  25.     {
  26. lib->fp = fopen(lib->name,"rb");
  28. if (! lib->fp) {
  29.     rdl_error = 1;
  30.     return 0;
  31. }
  32.     }
  33.     else
  34. rewind(lib->fp);
  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] = ':';
  43. if (feof(lib->fp)) break;
  45. if ( rdfopenhere(f,lib->fp,&lib->referenced,buf) ) {
  46.     rdl_error = 2;
  47.     return 0;
  48. }
  50. hdr = malloc(f->header_len);
  51. rdfloadseg(f,RDOFF_HEADER,hdr);
  53. while ((r = rdfgetheaderrec(f)))
  54. {
  55.     if (r->type != 3) /* not an export */
  56. continue;
  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. }
  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.     }
  73.     lib->referenced --;
  74.     if (! lib->referenced)
  75.     {
  76. fclose(lib->fp);
  77. lib->fp = NULL;
  78.     }
  79.     return 0;
  80. }
  82. void rdl_perror(const char *apname, const char *filename)
  83. {
  84.     fprintf(stderr,"%s:%s:%sn",apname,filename,rdl_errors[rdl_error]);
  85. }