Return to select.c CVS log

Up to [gforth] / gforth

Annotation of gforth/select.c, revision 1.1

1.1     ! anton       1: #include <sys/time.h>
        !             2: 
        !             3: /* select replacement for DOS computers for ms only */
        !             4: void select(int n, int a, int b, int c, struct timeval * timeout)
        !             5: {
        !             6:    struct timeval time1;
        !             7:    struct timeval time2;
        !             8:    struct timezone zone1;
        !             9: 
        !            10:    gettimeofday(&time1,&zone1);
        !            11:    time1.tv_sec += timeout->tv_sec;
        !            12:    time1.tv_usec += timeout->tv_usec;
        !            13:    if(time1.tv_usec >= 1000000)
        !            14:      {
        !            15:        time1.tv_sec += time1.tv_usec / 1000000;
        !            16:        time1.tv_usec %= 1000000;
        !            17:      }
        !            18:    do
        !            19:      {
        !            20:        gettimeofday(&time2,&zone1);
        !            21:      }
        !            22:    while(time2.tv_sec < time1.tv_sec);
        !            23: 
        !            24:    do
        !            25:      {
        !            26:        gettimeofday(&time2,&zone1);
        !            27:      }
        !            28:    while(time2.tv_usec < time1.tv_usec &&
        !            29:         time2.tv_sec == time1.tv_sec);
        !            30: 
        !            31: }
        !            32: 
        !            33: /* cheap ecvt replacement */
        !            34: