diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix syntax error in using time.

Browse Source
This commit is contained in:
Vitor Santos Costa 2014-06-16 17:00:09 +01:00
parent e1e095d033
commit e8f2c37000
1 changed files with 39 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
library/system/sys.c
View File

@ -911,24 +911,29 @@ static int
p_sleep(void)
{
YAP_Term ts = YAP_ARG1;
unsigned long int secs = 0, usecs = 0, out;
if (YAP_IsIntTerm(ts)) {
secs = YAP_IntOfTerm(ts);
} else if (YAP_IsFloatTerm(ts)) {
double tfl = YAP_FloatOfTerm(ts);
#if defined(__MINGW32__) || _MSC_VER
{
unsigned long int secs = 0, usecs = 0, msecs, out;
if (YAP_IsIntTerm(ts)) {
secs = YAP_IntOfTerm(ts);
} else if (YAP_IsFloatTerm(ts)) {
double tfl = YAP_FloatOfTerm(ts);
if (tfl > 1.0)
secs = tfl;
else
usecs = tfl*1000000;
}
msecs = secs*1000 + usecs/1000;
Sleep(msecs);
/* no errors possible */
out = 0;
return(YAP_Unify(YAP_ARG2, YAP_MkIntTerm(out)));
}
#if defined(__MINGW32__) || _MSC_VER
if (secs) usecs = secs*1000 + usecs/1000;
Sleep(usecs);
/* no errors possible */
out = 0;
#elif HAVE_NANOSLEEP
{
struct timespec req;
int out;
if (YAP_IsFloatTerm(ts)) {
double tfl = YAP_FloatOfTerm(ts);
@ -936,23 +941,39 @@ p_sleep(void)
req.tv_sec = rint(tfl);
} else {
req.tv_nsec = 0;
req.tv_sec = secs;
req.tv_sec = YAP_IntOfTerm(ts);
}
out = nanosleep(&req, NULL);
return(YAP_Unify(YAP_ARG2, YAP_MkIntTerm(out)));
}
#elif HAVE_USLEEP
if (usecs > 0) {
out = usleep(usecs);
} else
#elif HAVE_SLEEP
{
out = sleep(secs);
{
useconds_t usecs;
if (YAP_IsFloatTerm(ts)) {
double tfl = YAP_FloatOfTerm(ts);
usecs = rint(tfl*1000000);
} else {
usecs = YAP_IntOfTerm(ts)*1000000;
}
out = usleep(usecs);
return(YAP_Unify(YAP_ARG2, YAP_MkIntTerm(out)));
}
#elif HAVE_SLEEP
{
unsigned int secs, out;
if (YAP_IsFloatTerm(ts)) {
secs = rint(YAP_FloatOfTerm(ts));
} else {
secs = YAP_IntOfTerm(ts);
}
out = sleep(secs);
return(YAP_Unify(YAP_ARG2, YAP_MkIntTerm(out)));
}
#else
YAP_Error(0,0L,"sleep not available in this configuration");
return FALSE:
#endif
return(YAP_Unify(YAP_ARG2, YAP_MkIntTerm(out)));
}
/* host info */