#include <stdlib.h>
#include <strings.h>

#include "htable.h"

#include "atoms.h"

typedef struct predef PREDEF;
typedef struct atoment ATOMENT;

struct atoment {
  unsigned long int a;
  char *s;
  } ;

struct predef {
  const char *name;
  unsigned int value;
  } ;

static PREDEF predefs[]
 = { { "PRIMARY", 1 },
     { "SECONDARY", 2 },
     { "ARC", 3 },
     { "ATOM", 4 },
     { "BITMAP", 5 },
     { "CARDINAL", 6 },
     { "COLORMAP", 7 },
     { "CURSOR", 8 },
     { "CUT_BUFFER0", 9 },
     { "CUT_BUFFER1", 10 },
     { "CUT_BUFFER2", 11 },
     { "CUT_BUFFER3", 12 },
     { "CUT_BUFFER4", 13 },
     { "CUT_BUFFER5", 14 },
     { "CUT_BUFFER6", 15 },
     { "CUT_BUFFER7", 16 },
     { "DRAWABLE", 17 },
     { "FONT", 18 },
     { "INTEGER", 19 },
     { "PIXMAP", 20 },
     { "POINT", 21 },
     { "RECTANGLE", 22 },
     { "RESOURCE_MANGER", 23 },
     { "RGB_COLOR_MAP", 24 },
     { "RGB_BEST_MAP", 25 },
     { "RGB_BLUE_MAP", 26 },
     { "RGB_DEFAULT_MAP", 27 },
     { "RGB_GRAY_MAP", 28 },
     { "RGB_GREEN_MAP", 29 },
     { "RGB_RED_MAP", 30 },
     { "STRING", 31 },
     { "VISUALID", 32 },
     { "WINDOW", 33 },
     { "WM_COMMAND", 34 },
     { "WM_HINTS", 35 },
     { "WM_CLIENT_MACHINE", 36 },
     { "WM_ICON_NAME", 37 },
     { "WM_ICON_SIZE", 38 },
     { "WM_NAME", 39 },
     { "WM_NORMAL_HINTS", 40 },
     { "WM_SIZE_HINTS", 41 },
     { "WM_ZOOM_HINTS", 42 },
     { "MIN_SPACE", 43 },
     { "NORM_SPACE", 44 },
     { "MAX_SPACE", 45 },
     { "END_SPACE", 46 },
     { "SUPERSCRIPT_X", 47 },
     { "SUPERSCRIPT_Y", 48 },
     { "SUBSCRIPT_X", 49 },
     { "SUBSCRIPT_Y", 50 },
     { "UNDERLINE_POSITION", 51 },
     { "UNDERLINE_THICKNESS", 52 },
     { "STRIKEOUT_ASCENT", 53 },
     { "STRIKEOUT_DESCENT", 54 },
     { "ITALIC_ANGLE", 55 },
     { "X_HEIGHT", 56 },
     { "QUAD_WIDTH", 57 },
     { "WEIGHT", 58 },
     { "POINT_SIZE", 59 },
     { "RESOLUTION", 60 },
     { "COPYRIGHT", 61 },
     { "NOTICE", 62 },
     { "FONT_NAME", 63 },
     { "FAMILY_NAME", 64 },
     { "FULL_NAME", 65 },
     { "CAP_HEIGHT", 66 },
     { "WM_CLASS", 67 },
     { "WM_TRANSIENT_FOR", 68 } };
#define N_PREDEF (sizeof(predefs)/sizeof(predefs[0]))

static unsigned int atom_h(void *a, unsigned int sz)
{
 return(((const ATOMENT *)a)->a % sz);
}

static int atom_cmp(void *a, void *e)
{
 return(((const ATOMENT *)a)->a != ((const ATOMENT *)e)->a);
}

extern void *atoms_init(void)
{
 void *ht;
 int i;
 ATOMENT *e;

 ht = new_htable(&atom_h,&atom_cmp);
 for (i=N_PREDEF-1;i>=0;i--)
  { e = malloc(sizeof(ATOMENT));
    e->s = strdup(predefs[i].name);
    e->a = predefs[i].value;
    add_new_hentry(ht,(char *)e);
  }
 return(ht);
}

extern void atoms_done(void *ht)
{
 void free_atoment(void *e)
  { free(((ATOMENT *)e)->s);
    free(e);
  }

 map_htable(ht,free_atoment);
 free_htable(ht);
}

const char *atoms_lookup(void *ht, unsigned int a)
{
 ATOMENT ae;
 char *e;

 ae.a = a;
 e = find_hentry(ht,&ae);
 return(e?((ATOMENT *)e)->s:0);
}

void atoms_register(void *ht, const void *name, unsigned int namelen, unsigned int atom)
{
 ATOMENT ae;
 ATOMENT *e;

 ae.a = atom;
 e = find_hentry(ht,&ae);
 if (e)
  { if (e->a == atom) return;
    del_this_hentry(ht,e);
    free(e->s);
    free(e);
  }
 e = malloc(sizeof(ATOMENT));
 e->s = malloc(namelen+1);
 bcopy(name,e->s,namelen);
 e->s[namelen] = '\0';
 e->a = atom;
 add_new_hentry(ht,e);
}