/*
*/
-/*
- * dgram-socket create <local> => <sockid>
- * dgram-socket close <sockid>
- * dgram-socket transmit <sockid> <data> <remote>
- * dgram-socket on-receive <sockid> [<script>]
- * calls, effectively, eval <script> [list <data> <remote-addr> <socket>]
- * if script not supplied, cancel
- */
#include "tables.h"
#include "hbytes.h"
return TCL_OK;
}
+void tabledataid_disposing(void *val, IdDataTable *tab) {
+ int ix;
+
+ ix= *(int*)val;
+ if (ix==-1) return;
+ assert(tab->a[ix] == val);
+ tab->a[ix]= 0;
+ *(int*)val= -1;
+}
+
int pat_iddata(Tcl_Interp *ip, Tcl_Obj *o, void **rv, IdDataTable *tab) {
int rc, ix;
void *r;