1/* 2 * Wrapper for Tcl hash tables. From Adrian Zimmer's book Tcl/Tk for Programmers. 3 */ 4 5#include "tcl.h" 6 7typedef void (Tfp_ArrayDeleteProc) (ClientData); 8 9typedef struct { 10 Tcl_HashTable *table; 11 Tfp_ArrayDeleteProc *cleanProc; 12} Tfp_ArrayType; 13 14Tfp_ArrayType *Tfp_ArrayInit( Tfp_ArrayDeleteProc *cleanProc ); 15void Tfp_ArrayDestroy( Tfp_ArrayType *arr ); 16int Tfp_ArrayGet( Tfp_ArrayType *arr, char *key, ClientData *returnValue ); 17void Tfp_ArraySet( Tfp_ArrayType *arr, char *key, ClientData value ); 18void Tfp_ArrayDelete( Tfp_ArrayType *arr, char *key ); 19 20 21