/*
- * Copyright (C) 2012
- * Dale Weiler
+ * Copyright (C) 2012
+ * Dale Weiler
*
* Permission is hereby granted, free of charge, to any person obtaining a copy of
* this software and associated documentation files (the "Software"), to deal in
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
* SOFTWARE.
*/
-#include <string.h>
-#include <stdint.h> /* replace if stdint.h doesn't exist! */
-#include <limits.h>
#include "gmqcc.h"
-
-/*
- * This implements a hashtable for typedef type keywords which end up
- * being translated to their full-expressed type. This uses a singly
- * linked list with a fast hash function.
- */
static typedef_node *typedef_table[1024];
void typedef_init() {
- int i;
- for(i = 0; i < sizeof(typedef_table)/sizeof(*typedef_table); i++)
- typedef_table[i] = NULL;
+ int i;
+ for(i = 0; i < sizeof(typedef_table)/sizeof(*typedef_table); i++)
+ typedef_table[i] = NULL;
}
-/*
- * Fast collisionless hashfunction based off of:
- * http://www.azillionmonkeys.com/qed/hash.html
- * By: Paul Hsieh
- *
- * The code is licensed under LGPL 2.1 or Paul
- * Hsieh's derivative license. Stated on his page
- * quote:
- *
- * The LGPL 2.1 is not necessarily a more liberal license than my
- * derivative license, but this additional licensing makes the code
- * available to more developers. Note that this does not give you
- * multi-licensing rights. You can only use the code under one of
- * the licenses at a time.
- *
- * Paul Hsieh derivative license
- *
- * The derivative content includes raw computer source code, ideas,
- * opinions, and excerpts whose original source is covered under
- * another license and transformations of such derivatives.
- * Note that mere excerpts by themselves (with the exception of raw
- * source code) are not considered derivative works under this license.
- * Use and redistribution is limited to the following conditions:
- *
- * One may not create a derivative work which, in any way, violates the
- * Paul Hsieh exposition license described above on the original content.
- *
- * One may not apply a license to a derivative work that precludes anyone
- * else from using and redistributing derivative content.
- *
- * One may not attribute any derivative content to authors not involved
- * in the creation of the content, though an attribution to the author
- * is not necessary.
- *
- * Paul Hsieh exposition license
- *
- * The content of all text, figures, tables and displayed layout is
- * copyrighted by its author and owner Paul Hsieh unless specifically
- * denoted otherwise. Redistribution is limited to the following conditions:
- *
- * The redistributor must fully attribute the content's authorship and
- * make a good faith effort to cite the original location of the original
- * content.
- *
- * The content may not be modified via excerpt or otherwise with the
- * exception of additional citations such as described above without prior
- * consent of Paul Hsieh.
- *
- * The content may not be subject to a change in license without prior
- * consent of Paul Hsieh.
- *
- * The content may be used for commercial purposes.
- */
-
-#if (defined(__GNUC__) && defined(__i386__)) || defined(_MSC_VER)
-/*
- * Unalligned loads are faster if we can do them, otherwise fall back
- * to safer version below.
- */
-# define load16(D) (*((const uint16_t*)(D)))
-#else
-# define load16(D) ((((uint32_t)(((const uint8_t*)(D))[1])) << 8) + \
- (uint32_t)(((const uint8_t*)(D))[0]))
-#endif
-unsigned int inline typedef_hash(const char *data) {
- uint32_t hash = strlen(data);
- uint32_t size = hash;
- uint32_t temp = 0;
-
- int last;
- if (size <= 0|| data == NULL)
- return -1;
-
- last = size & 3;
- size >>= 2;
-
- /* main loop */
- for (;size > 0; size--) {
- hash += (load16(data));
- temp = (load16(data+2) << 11) ^ hash;
- hash = (hash << 16) ^ temp;
- data += sizeof(uint16_t) << 1;
- hash += hash >> 11;
- }
-
- /* ends */
- switch (last) {
- case 3:
- hash += load16(data);
- hash ^= hash << 16;
- hash ^= ((signed char)data[sizeof(uint16_t)]) << 8;
- hash += hash >> 11;
- break;
- case 2:
- hash += load16(data);
- hash ^= hash << 11;
- hash += hash >> 17;
- break;
- case 1:
- hash += (signed char)*data;
- hash ^= hash << 10;
- hash += hash >> 1;
- break;
- }
-
- /* force avalanching of final 127 bits */
- hash ^= hash << 3;
- hash += hash >> 5;
- hash ^= hash << 4;
- hash += hash >> 17;
- hash ^= hash << 25;
- hash += hash >> 6;
-
- return hash % 1024;
+uint32_t typedef_hash(const char *s) {
+ return util_crc32(s, strlen(s), 1024);
}
typedef_node *typedef_find(const char *s) {
- unsigned int hash = typedef_hash(s);
- typedef_node *find = typedef_table[hash];
- return find;
+ unsigned int hash = typedef_hash(s);
+ typedef_node *find = typedef_table[hash];
+ return find;
}
-int typedef_add(const char *from, const char *to) {
- unsigned int hash = typedef_hash(to);
- typedef_node *find = typedef_table[hash];
- if (find)
- return error(ERROR_PARSE, "typedef for %s already exists\n", to);
-
- /* check if the type exists first */
- if (strncmp(from, "void", sizeof("void")) == 0 ||
- strncmp(from, "string", sizeof("string")) == 0 ||
- strncmp(from, "float", sizeof("float")) == 0 ||
- strncmp(from, "vector", sizeof("vector")) == 0 ||
- strncmp(from, "entity", sizeof("entity")) == 0) {
-
- typedef_table[hash] = mem_a(sizeof(typedef_node));
- typedef_table[hash]->name = strdup(from);
- return -100;
- } else {
- /* search the typedefs for it (typedef-a-typedef?) */
- typedef_node *find = typedef_table[typedef_hash(from)];
- if (find) {
- typedef_table[hash] = mem_a(sizeof(typedef_node));
- typedef_table[hash]->name = strdup(find->name);
- return -100;
- }
- }
- return error(ERROR_PARSE, "cannot typedef %s (not a type)\n", from);
+void typedef_clear() {
+ int i;
+ for(i = 1024; i > 0; i--) {
+ if(typedef_table[i]) {
+ mem_d(typedef_table[i]->name);
+ mem_d(typedef_table[i]);
+ }
+ }
+}
+
+int typedef_add(lex_file *file, const char *from, const char *to) {
+ unsigned int hash = typedef_hash(to);
+ typedef_node *find = typedef_table[hash];
+
+ if (find)
+ return error(file, ERROR_PARSE, "typedef for %s already exists or conflicts\n", to);
+
+ /* check if the type exists first */
+ if (strncmp(from, "float", sizeof("float")) == 0 ||
+ strncmp(from, "vector", sizeof("vector")) == 0 ||
+ strncmp(from, "string", sizeof("string")) == 0 ||
+ strncmp(from, "entity", sizeof("entity")) == 0 ||
+ strncmp(from, "void", sizeof("void")) == 0) {
+
+ typedef_table[hash] = mem_a(sizeof(typedef_node));
+ if (typedef_table[hash])
+ typedef_table[hash]->name = util_strdup(from);
+ else
+ return error(file, ERROR_PARSE, "ran out of resources for typedef %s\n", to);
+ return -100;
+ } else {
+ /* search the typedefs for it (typedef-a-typedef?) */
+ find = typedef_table[typedef_hash(from)];
+ if (find) {
+ typedef_table[hash] = mem_a(sizeof(typedef_node));
+ if (typedef_table[hash])
+ typedef_table[hash]->name = util_strdup(find->name);
+ else
+ return error(file, ERROR_PARSE, "ran out of resources for typedef %s\n", to);
+ return -100;
+ }
+ }
+ return error(file, ERROR_PARSE, "cannot typedef `%s` (not a type)\n", from);
}
-
-
-