6b4bde14e1
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1903 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
23 lines
432 B
Plaintext
23 lines
432 B
Plaintext
|
|
:- object(time,
|
|
implements(timep)).
|
|
|
|
:- info([
|
|
version is 1.0,
|
|
author is 'Paulo Moura',
|
|
date is 2000/7/24,
|
|
comment is 'Time predicates.']).
|
|
|
|
now(Hours, Mins, Secs) :-
|
|
{'$lgt_current_time'(Hours, Mins, Secs)}.
|
|
|
|
cpu_time(Seconds) :-
|
|
{'$lgt_cpu_time'(Seconds)}.
|
|
|
|
valid(Hours, Mins, Secs) :-
|
|
integer(Hours), Hours >= 0,
|
|
integer(Mins), Mins >= 0, Mins =< 59,
|
|
integer(Secs), Secs >= 0, Secs =< 59.
|
|
|
|
:- end_object.
|