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