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

make ctime accept integers, who knows?

Browse Source
This commit is contained in:
Vítor Santos Costa II 2010-04-22 12:13:57 +01:00
parent e4c2f420c8
commit e8be4296f3
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
library/yap2swi/yap2swi.c
View File

@ -2461,7 +2461,12 @@ SWI_ctime(void)
return FALSE; return FALSE;
} }
#if HAVE_CTIME #if HAVE_CTIME
tim = (time_t)YAP_FloatOfTerm(t1); if (YAP_IsIntTerm(t1))
tim = (time_t)YAP_IntOfTerm(t1);
else if (YAP_IsFloatTerm(t1))
tim = (time_t)YAP_FloatOfTerm(t1);
else
return FALSE;
return YAP_Unify(YAP_BufferToString(ctime(&tim)), YAP_ARG2); return YAP_Unify(YAP_BufferToString(ctime(&tim)), YAP_ARG2);
#else #else
YAP_Error(0,0L,"convert_time requires ctime"); YAP_Error(0,0L,"convert_time requires ctime");