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

add get_time.

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-03-11 20:36:40 +00:00
parent 921fb1c815
commit cb192cf26a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/PLStream/pl-file.c
View File

@ -4672,6 +4672,9 @@ EndPredDefs
#if __YAP_PROLOG__ #if __YAP_PROLOG__
pl_get_time(term_t t)
{ return PL_unify_float(t, WallTime());
}
static word static word
pl_sleep(term_t time) pl_sleep(term_t time)
@ -4701,6 +4704,7 @@ static const PL_extension foreigns[] = {
FRG("write_canonical", 2, pl_write_canonical2, ISO), FRG("write_canonical", 2, pl_write_canonical2, ISO),
FRG("format", 3, pl_format3, META), FRG("format", 3, pl_format3, META),
FRG("sleep", 1, pl_sleep, 0), FRG("sleep", 1, pl_sleep, 0),
FRG("get_time", 1, pl_get_time, 0),
// vsc // vsc
FRG("format_predicate", 2, pl_format_predicate, META), FRG("format_predicate", 2, pl_format_predicate, META),