/usr/share/tcltk/critcl-iassoc1.0.1/iassoc.h is in critcl 3.1.9-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 | /*
* For package "@package@".
* Implementation of Tcl Interpreter Association "@name@".
*/
#ifndef @stem@_IMPLEMENTATION
#define @stem@_IMPLEMENTATION (1)
/* # # ## ### ##### ######## ############# ##################### */
/*
* Association structure type, and pointers to it.
*/
typedef struct @type@__ {
@struct@
#line 17 "iassoc.h"
} @type@__;
typedef struct @type@__* @type@;
/*
* Support functions for structure creation and destruction.
*/
static void
@stem@_Release (@type@ data, Tcl_Interp* interp)
{
@destructor@
#line 29 "iassoc.h"
ckfree((char*) data);
}
static @type@
@stem@_Init (Tcl_Interp* interp@argdecls@)
{
@type@ data = (@type@) ckalloc (sizeof (@type@__));
@constructor@
#line 39 "iassoc.h"
return data;
error:
ckfree ((char*) data);
return NULL;
}
/*
* Structure accessor, automatically creating it if the interpreter does not
* have it already, setting it up for destruction on interpreter shutdown.
*/
static @type@
@name@ (Tcl_Interp* interp@argdecls@)
{
#define KEY "@label@"
Tcl_InterpDeleteProc* proc = (Tcl_InterpDeleteProc*) @stem@_Release;
@type@ data;
data = Tcl_GetAssocData (interp, KEY, &proc);
if (data) {
return data;
}
data = @stem@_Init (interp@argnames@);
if (data) {
Tcl_SetAssocData (interp, KEY, proc, (ClientData) data);
}
return data;
#undef KEY
}
/* # # ## ### ##### ######## ############# ##################### */
#endif /* @stem@_IMPLEMENTATION */
/*
* Local Variables:
* mode: c
* c-basic-offset: 4
* fill-column: 78
* End:
*/
|