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

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

编译器/解释器

开发平台：

C/C++

symtab.c：源码内容
  1. /* symtab.c     Routines to maintain and manipulate a symbol table
  2.  *
  3.  *   These routines donated to the NASM effort by Graeme Defty.
  4.  *
  5.  * The Netwide Assembler is copyright (C) 1996 Simon Tatham and
  6.  * Julian Hall. All rights reserved. The software is
  7.  * redistributable under the licence given in the file "Licence"
  8.  * distributed in the NASM archive.
  9.  */
  10. #include <stdio.h>
  11. #include <stdlib.h>
  12. #include <malloc.h>
  14. #include "symtab.h"
  15. #include "hash.h"
  17. #define SYMTABSIZE 64
  18. #define slotnum(x) (hash((x)) % SYMTABSIZE)
  20. /* ------------------------------------- */
  21. /* Private data types */
  23. typedef struct tagSymtabNode {
  24.   struct tagSymtabNode  * next;
  25.   symtabEnt             ent;
  26. } symtabNode;
  28. typedef symtabNode *(symtabTab[SYMTABSIZE]); 
  30. typedef symtabTab *symtab;                   
  32. /* ------------------------------------- */
  33. void *
  34. symtabNew(void)
  35. {
  36.   symtab mytab;
  38.   mytab = (symtabTab *) calloc(SYMTABSIZE ,sizeof(symtabNode *));
  39.   if (mytab == NULL) {
  40.     fprintf(stderr,"symtab: out of memoryn");
  41.     exit(3);
  42.   }
  44.   return mytab;
  45. }
  47. /* ------------------------------------- */
  48. void
  49. symtabDone(void *stab)
  50. {
  51.    symtab mytab = (symtab)stab;
  52.    int i;
  53.    symtabNode *this, *next;
  55.    for (i=0; i < SYMTABSIZE; ++i) {
  57.       for (this = (*mytab)[i]; this; this=next)
  58.       { next = this->next;   free (this); }
  60.    }
  61.    free (*mytab);
  62. }
  64. /* ------------------------------------- */
  65. void
  66. symtabInsert(void *stab, symtabEnt *ent)
  67. {
  68.   symtab mytab = (symtab) stab;
  69.   symtabNode *node;
  70.   int slot;
  72.   node = malloc(sizeof(symtabNode));
  73.   if (node == NULL) {
  74.     fprintf(stderr,"symtab: out of memoryn");
  75.     exit(3);
  76.   }
  78.   slot = slotnum(ent->name);
  80.   node->ent = *ent;
  81.   node->next = (*mytab)[slot];
  82.   (*mytab)[slot] = node; 
  83. }
  85. /* ------------------------------------- */
  86. symtabEnt *
  87. symtabFind(void *stab, const char *name)
  88. {
  89.    symtab mytab = (symtab) stab;
  90.    int slot = slotnum(name);
  91.    symtabNode *node = (*mytab)[slot];
  93.    while (node) {
  94.       if (!strcmp(node->ent.name,name)) {
  95.  return &(node->ent);
  96.       }
  97.       node = node->next;
  98.    }  
  100.    return NULL;
  101. }
  103. /* ------------------------------------- */
  104. void
  105. symtabDump(void *stab, FILE* of)
  106. {
  107.    symtab mytab = (symtab)stab;
  108.    int i;
  110.    fprintf(of, "Symbol table is ...n");
  111.    for (i=0; i < SYMTABSIZE; ++i) {
  112.       symtabNode        *l = (symtabNode *)(*mytab)[i];
  114.       if (l) {
  115.  fprintf(of, " ... slot %d ...n", i);
  116.       }
  117.       while(l) {
  118.  fprintf(of, "%-32s %s:%08lx (%ld)n",l->ent.name,
  119.  l->ent.segment ? "data" : "code" ,
  120.  l->ent.offset, l->ent.flags);
  121.  l = l->next;
  122.       }
  123.    }
  124.    fprintf(of, "........... end of Symbol table.n");
  125. }