Mercurial > mxe-octave
view src/build-msvctools/compat/usleep.c @ 6161:8fcac4d6d983 release
of-queueing: Fix syntax error with Octave 7 (bug #62314).
* src/of-queueing-1-octave7.patch: Add new file.
* dist-files.mk: Include new patch.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Thu, 14 Apr 2022 19:27:13 +0200 |
parents | f8299bb6c872 |
children |
line wrap: on
line source
/* * usleep * Implementation according to: * The Open Group Base Specifications Issue 6 * IEEE Std 1003.1, 2004 Edition */ /* * THIS SOFTWARE IS NOT COPYRIGHTED * * This source code is offered for use in the public domain. You may * use, modify or distribute it freely. * * This code is distributed in the hope that it will be useful but * WITHOUT ANY WARRANTY. ALL WARRANTIES, EXPRESS OR IMPLIED ARE HEREBY * DISCLAIMED. This includes but is not limited to warranties of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. * * Contributed by: * Ramiro Polla <ramiro@lisha.ufsc.br> */ #include <sys/types.h> #include <errno.h> #define WIN32_LEAN_AND_MEAN #include <windows.h> int __cdecl usleep(useconds_t useconds) { if(useconds == 0) return 0; if(useconds >= 1000000) return EINVAL; Sleep((useconds + 999) / 1000); return 0; }