shotgun/lib/var_table.c

   1 #include <stdlib.h>
   2 #include <assert.h>
   3
   4 #include "shotgun/lib/shotgun.h"
   5 #include "shotgun/lib/var_table.h"
   6
   7 /* max number of vars, made up. */
   8 #define DATA_MAX 128
   9
  10 struct var_table_t {
  11   struct var_table_t *next;
  12   int size;
  13   quark data[DATA_MAX];
  14 };
  15
  16 var_table var_table_create() {
  17   var_table vt = ALLOC(struct var_table_t);
  18   vt->size = 0;
  19   vt->next = NULL;
  20   return vt;
  21 }
  22
  23 void var_table_destroy(var_table vt) {
  24   while (vt) {
  25     var_table cur = vt;
  26     vt = vt->next;
  27
  28     XFREE(cur);
  29   }
  30 }
  31
  32 var_table var_table_push(var_table cur) {
  33   var_table vt = var_table_create();
  34   vt->next = cur;
  35   return vt;
  36 }
  37
  38 var_table var_table_pop(var_table cur) {
  39   var_table nw;
  40
  41   nw = cur->next;
  42   XFREE(cur);
  43   return nw;
  44 }
  45
  46 int var_table_find(const var_table tbl, const quark needle) {
  47   int i;
  48   for(i = 0; i < tbl->size; i++) {
  49     if(tbl->data[i] == needle) return i;
  50   }
  51   return -1;
  52 }
  53
  54 int var_table_add(var_table tbl, const quark item) {
  55   int idx;
  56   idx = tbl->size;
  57   assert(idx < DATA_MAX);
  58   tbl->data[idx] = item;
  59   tbl->size++;
  60   return idx;
  61 }
  62
  63 int var_table_size(const var_table tbl)
  64 {
  65   return tbl->size;
  66 }
  67
  68 quark var_table_get(const var_table tbl, const int index)
  69 {
  70   assert(index < tbl->size);
  71   return tbl->data[index];
  72 }