Powered by ViewCVS 1.0-dev
| 1 : | anton | 1.1 | /* select replacement for DOS computers for ms only |
| 2 : | |||
| 3 : | anton | 1.3 | Copyright (C) 1995,1998 Free Software Foundation, Inc. |
| 4 : | anton | 1.1 | |
| 5 : | This file is part of Gforth. | ||
| 6 : | |||
| 7 : | Gforth is free software; you can redistribute it and/or | ||
| 8 : | modify it under the terms of the GNU General Public License | ||
| 9 : | as published by the Free Software Foundation; either version 2 | ||
| 10 : | of the License, or (at your option) any later version. | ||
| 11 : | |||
| 12 : | This program is distributed in the hope that it will be useful, | ||
| 13 : | but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 14 : | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 15 : | GNU General Public License for more details. | ||
| 16 : | |||
| 17 : | You should have received a copy of the GNU General Public License | ||
| 18 : | along with this program; if not, write to the Free Software | ||
| 19 : | anton | 1.5 | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
| 20 : | anton | 1.1 | */ |
| 21 : | |||
| 22 : | |||
| 23 : | #include <sys/time.h> | ||
| 24 : | |||
| 25 : | int select(int n, fd_set *a, fd_set *b, fd_set *c, struct timeval * timeout) | ||
| 26 : | { | ||
| 27 : | struct timeval time1; | ||
| 28 : | struct timeval time2; | ||
| 29 : | struct timezone zone1; | ||
| 30 : | |||
| 31 : | gettimeofday(&time1,&zone1); | ||
| 32 : | time1.tv_sec += timeout->tv_sec; | ||
| 33 : | time1.tv_usec += timeout->tv_usec; | ||
| 34 : | pazsan | 1.2 | if(time1.tv_usec >= 1000000) { |
| 35 : | time1.tv_sec += time1.tv_usec / 1000000; | ||
| 36 : | time1.tv_usec %= 1000000; | ||
| 37 : | } | ||
| 38 : | do { | ||
| 39 : | gettimeofday(&time2,&zone1); | ||
| 40 : | pazsan | 1.4 | } while((time2.tv_sec < time1.tv_sec) || |
| 41 : | ((time2.tv_usec < time1.tv_usec) && | ||
| 42 : | (time2.tv_sec == time1.tv_sec))); | ||
| 43 : | anton | 1.1 | } |
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |