Posted to tcl by miguel at Sat Jul 12 19:59:24 GMT 2008view raw
- void TclNR_AddCallback(
- Tcl_Interp *interp,
- TclNR_PostProc *postProcPtr,
- ClientData data0,
- ClientData data1,
- ClientData data2,
- ClientData data3)
- {
- TEOV_record *recordPtr;
- TEOV_callback *callbackPtr;
- if (!postProcPtr) {
- Tcl_Panic("Adding a callback without and objProc?!");
- }
- recordPtr = TOP_RECORD(interp);
- TclSmallAlloc(sizeof(TEOV_callback), callbackPtr);
- callbackPtr->procPtr = postProcPtr;
- callbackPtr->data0 = data0;
- callbackPtr->data1 = data1;
- callbackPtr->data2 = data2;
- callbackPtr->data3 = data3;
- callbackPtr->nextPtr = recordPtr->callbackPtr;
- recordPtr->callbackPtr = callbackPtr;
- }