blob: e9d4c1bf74dda826d9e6d992967349a19cf1798a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#include <tcl.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
/*
* Static data and function prototypes.
*/
struct hdc_value
{
void *addr;
int type;
};
static unsigned long hdc_count = 0L;
static Tcl_HashTable hdcs;
static Tcl_HashTable hdcprefixes;
static char hdc_name [32+12+1];
const char * hdc_create (Tcl_Interp *interp, void *ptr, int type);
int hdc_valid (Tcl_Interp *interp, const char *hdcname, int type);
int hdc_delete (Tcl_Interp *interp, const char *hdcname);
const char * hdc_prefixof (Tcl_Interp *interp, int type, const char *newprefix);
int hdc_typeof (Tcl_Interp *interp, const char *hdcname);
void * hdc_get (Tcl_Interp *interp, const char *hdcname);
static const char *hdc_build_name(int type);
|