Tcl Source Code: Artifact [5e47182ad5]

Artifact 5e47182ad53620aa2f7d81a1e7aaaf162fa8c181:

Attachment "bang.c" to ticket [858493ffff] added by davygrvy 2003-12-12 03:03:32.

#include <tcl.h>

Tcl_ObjCmdProc BangCmd;

int
BangCmd (ClientData clientData, Tcl_Interp *interp,
	int objc, struct Tcl_Obj * const objv[])
{
    int *i = 0L;
    *i = 20;
    return TCL_OK;
}

#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLEXPORT

EXTERN int
Bang_Init (Tcl_Interp *interp)
{
#ifdef USE_TCL_STUBS
    if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
	return TCL_ERROR;
    }
#endif
    Tcl_CreateObjCommand(interp, "bang", BangCmd, NULL, NULL);
    return TCL_OK;
}