Posted to tcl by miguel at Sat Jul 12 19:59:24 GMT 2008view raw

  1. void TclNR_AddCallback(
  2. Tcl_Interp *interp,
  3. TclNR_PostProc *postProcPtr,
  4. ClientData data0,
  5. ClientData data1,
  6. ClientData data2,
  7. ClientData data3)
  8. {
  9. TEOV_record *recordPtr;
  10. TEOV_callback *callbackPtr;
  11.  
  12. if (!postProcPtr) {
  13. Tcl_Panic("Adding a callback without and objProc?!");
  14. }
  15.  
  16. recordPtr = TOP_RECORD(interp);
  17. TclSmallAlloc(sizeof(TEOV_callback), callbackPtr);
  18.  
  19. callbackPtr->procPtr = postProcPtr;
  20. callbackPtr->data0 = data0;
  21. callbackPtr->data1 = data1;
  22. callbackPtr->data2 = data2;
  23. callbackPtr->data3 = data3;
  24.  
  25. callbackPtr->nextPtr = recordPtr->callbackPtr;
  26. recordPtr->callbackPtr = callbackPtr;
  27. }