This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/Logtalk/library/time.lgt

28 lines
437 B
Plaintext
Raw Normal View History

:- 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.