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) 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
if (YAP_IsIntTerm(ts)) { {
secs = YAP_IntOfTerm(ts); unsigned long int secs = 0, usecs = 0, msecs, out;
} else if (YAP_IsFloatTerm(ts)) { if (YAP_IsIntTerm(ts)) {
double tfl = YAP_FloatOfTerm(ts); secs = YAP_IntOfTerm(ts);
} else if (YAP_IsFloatTerm(ts)) {
double tfl = YAP_FloatOfTerm(ts);
if (tfl > 1.0) if (tfl > 1.0)
secs = tfl; secs = tfl;
else else
usecs = tfl*1000000; 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 #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) { {
out = usleep(usecs); useconds_t usecs;
} else if (YAP_IsFloatTerm(ts)) {
#elif HAVE_SLEEP double tfl = YAP_FloatOfTerm(ts);
{
out = sleep(secs); 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 #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 */