Sleep: Difference between revisions
Content added Content deleted
(new Emacs Lisp) |
(Add Logtalk implementation) |
||
| Line 692: | Line 692: | ||
print [Awake.] |
print [Awake.] |
||
end |
end |
||
</lang> |
|||
=={{header|Logtalk}}== |
|||
Works when using SWI-Prolog, XSB, or YAP as the backend compilers: |
|||
<lang logtalk> |
|||
:- object(sleep). |
|||
:- public(how_long/1). |
|||
how_long(Seconds) :- |
|||
write('Sleeping ...'), nl, |
|||
thread_sleep(Seconds), |
|||
write('... awake!'), nl. |
|||
:- end_object. |
|||
</lang> |
|||
Sample output: |
|||
<lang text> |
|||
| ?- sleep::how_long(5). |
|||
Sleeping ... |
|||
... awake! |
|||
yes |
|||
</lang> |
</lang> |
||