[brlcad-commits] SF.net SVN: brlcad:[65576] brlcad/trunk/src/librt/tree.c

[<sta...@us...>]

Revision: 65576
          http://sourceforge.net/p/brlcad/code/65576
Author:   starseeker
Date:     2015-07-11 21:23:32 +0000 (Sat, 11 Jul 2015)
Log Message:
-----------
Replace Tcl_HashTable with bu_hash_tbl (needs testing)

Modified Paths:
--------------
    brlcad/trunk/src/librt/tree.c

Modified: brlcad/trunk/src/librt/tree.c
===================================================================
--- brlcad/trunk/src/librt/tree.c	2015-07-11 20:58:06 UTC (rev 65575)
+++ brlcad/trunk/src/librt/tree.c	2015-07-11 21:23:32 UTC (rev 65576)
@@ -140,8 +140,8 @@
     struct directory *dp = NULL;
     size_t shader_len=0;
     struct rt_i *rtip;
-    Tcl_HashTable *tbl = (Tcl_HashTable *)client_data;
-    Tcl_HashEntry *entry;
+    struct bu_hash_tbl *tbl = (struct bu_hash_tbl *)client_data;
+    struct bu_hash_entry *entry;
     matp_t inv_mat;
     struct bu_attribute_value_set avs;
     struct bu_attribute_value_pair *avpp;
@@ -233,8 +233,8 @@
 	/* enter critical section */
 	bu_semaphore_acquire(RT_SEM_RESULTS);
 
-	entry = Tcl_CreateHashEntry(tbl, key, &newentry);
-	Tcl_SetHashValue(entry, (ClientData)inv_mat);
+	entry = bu_hash_tbl_add(tbl, (const unsigned char *)key, strlen(key), &newentry);
+	bu_set_hash_value(entry, (unsigned char *)inv_mat);
 
 	/* leave critical section */
 	bu_semaphore_release(RT_SEM_RESULTS);
@@ -703,7 +703,8 @@
 {
     struct soltab *stp;
     struct region *regp;
-    Tcl_HashTable *tbl;
+    struct bu_hash_tbl *tbl;
+
     size_t prev_sol_count;
     int i;
     int num_attrs=0;
@@ -719,8 +720,7 @@
 
     if (argc <= 0) return -1;	/* FAIL */
 
-    BU_ALLOC(tbl, Tcl_HashTable);
-    Tcl_InitHashTable(tbl, TCL_ONE_WORD_KEYS);
+    tbl = bu_hash_tbl_create(1);
     rtip->Orca_hash_tbl = (void *)tbl;
 
     prev_sol_count = rtip->nsolids;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.