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

37
library/system/sys.c
View File

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