Mercurial > hg > octave-nkf > gnulib-hg
annotate lib/sleep.c @ 10001:facc928673d7
Declare rpmatch.
| author | Bruno Haible <bruno@clisp.org> |
|---|---|
| date | Tue, 29 Apr 2008 02:55:59 +0200 |
| parents | bbbbbf4cd1c5 |
| children | 25e64e77bb53 |
| rev | line source |
|---|---|
| 8786 | 1 /* Pausing execution of the current thread. |
| 2 Copyright (C) 2007 Free Software Foundation, Inc. | |
| 3 Written by Bruno Haible <bruno@clisp.org>, 2007. | |
| 4 | |
|
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8786
diff
changeset
|
5 This program is free software: you can redistribute it and/or modify |
| 8786 | 6 it under the terms of the GNU General Public License as published by |
|
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8786
diff
changeset
|
7 the Free Software Foundation; either version 3 of the License, or |
|
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8786
diff
changeset
|
8 (at your option) any later version. |
| 8786 | 9 |
| 10 This program is distributed in the hope that it will be useful, | |
| 11 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 13 GNU General Public License for more details. | |
| 14 | |
| 15 You should have received a copy of the GNU General Public License | |
|
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8786
diff
changeset
|
16 along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
| 8786 | 17 |
| 18 #include <config.h> | |
| 19 | |
| 20 /* Specification. */ | |
| 21 #include <unistd.h> | |
| 22 | |
| 23 #if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__ | |
| 24 | |
| 25 # define WIN32_LEAN_AND_MEAN /* avoid including junk */ | |
| 26 # include <windows.h> | |
| 27 | |
| 28 unsigned int | |
| 29 sleep (unsigned int seconds) | |
| 30 { | |
| 31 unsigned int remaining; | |
| 32 | |
| 33 /* Sleep for 1 second many times, because | |
| 34 1. Sleep is not interruptiple by Ctrl-C, | |
| 35 2. we want to avoid arithmetic overflow while multiplying with 1000. */ | |
| 36 for (remaining = seconds; remaining > 0; remaining--) | |
| 37 Sleep (1000); | |
| 38 | |
| 39 return remaining; | |
| 40 } | |
| 41 | |
| 42 #else | |
| 43 | |
| 44 #error "Please port gnulib sleep.c to your platform, possibly using usleep() or select(), then report this to bug-gnulib." | |
| 45 | |
| 46 #endif |