Return to tkevent.dif CVS log

Up to [Micropolis - Activity] / micropolis / src / tclx / tkucbsrc

Annotation of micropolis/src/tclx/tkucbsrc/tkevent.dif, revision 1.1.1.1

1.1       root        1: *** ../../tk2.3/tkEvent.c      Fri Aug 21 16:16:16 1992
                      2: --- tkEvent.c  Tue Oct  6 17:28:21 1992
                      3: ***************
                      4: *** 23,28
                      5:   #include "tkInt.h"
                      6:   #include <errno.h>
                      7:   #include <signal.h>
                      8:   
                      9:   /*
                     10:    * For each timer callback that's pending, there is one record
                     11: 
                     12: --- 23,29 -----
                     13:   #include "tkInt.h"
                     14:   #include <errno.h>
                     15:   #include <signal.h>
                     16: + extern Tcl_Interp *tk_mainInterp;
                     17:   
                     18:   /*
                     19:    * For each timer callback that's pending, there is one record
                     20: ***************
                     21: *** 1321,1326
                     22:            memcpy((VOID *) ready, (VOID *) masks, 3*MASK_SIZE*sizeof(int));
                     23:            timeout.tv_sec = timeout.tv_usec = 0;
                     24:            do {
                     25:                numFound = select(numFds, (SELECT_MASK *) readPtr,
                     26:                        (SELECT_MASK *) writePtr, (SELECT_MASK *) exceptPtr,
                     27:                    &timeout);
                     28: 
                     29: --- 1322,1330 -----
                     30:            memcpy((VOID *) ready, (VOID *) masks, 3*MASK_SIZE*sizeof(int));
                     31:            timeout.tv_sec = timeout.tv_usec = 0;
                     32:            do {
                     33: +      if (Tcl_CheckForSignal (tk_mainInterp, TCL_OK) == TCL_ERROR)
                     34: +          TkBindError(tk_mainInterp);
                     35: + 
                     36:                numFound = select(numFds, (SELECT_MASK *) readPtr,
                     37:                        (SELECT_MASK *) writePtr, (SELECT_MASK *) exceptPtr,
                     38:                    &timeout);
                     39: ***************
                     40: *** 1384,1389
                     41:       }
                     42:       memcpy((VOID *) ready, (VOID *) masks, 3*MASK_SIZE*sizeof(int));
                     43:       do {
                     44:        numFound = select(numFds, (SELECT_MASK *) readPtr,
                     45:                (SELECT_MASK *) writePtr, (SELECT_MASK *) exceptPtr,
                     46:                timeoutPtr);
                     47: 
                     48: --- 1388,1396 -----
                     49:       }
                     50:       memcpy((VOID *) ready, (VOID *) masks, 3*MASK_SIZE*sizeof(int));
                     51:       do {
                     52: +      if (Tcl_CheckForSignal (tk_mainInterp, TCL_OK) == TCL_ERROR)
                     53: +          TkBindError(tk_mainInterp);
                     54: + 
                     55:        numFound = select(numFds, (SELECT_MASK *) readPtr,
                     56:                (SELECT_MASK *) writePtr, (SELECT_MASK *) exceptPtr,
                     57:                timeoutPtr);

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.