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/examples/msglog/SCRIPT
pmoura 6f6f67b07f Logtalk 2.22.3 files.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1220 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-12-30 00:35:38 +00:00

54 lines
790 B
Plaintext

=================================================================
Logtalk - Object oriented extension to Prolog
Release 2.22.3
Copyright (c) 1998-2004 Paulo Moura. All Rights Reserved.
=================================================================
% start by loading the example:
| ?- logtalk_load(msglog(loader)).
...
% assume that all library entities have been loaded...
% start recording user messages:
| ?- msglog::record.
yes
% send some messages:
| ?- list::member(X, [1, 2, 3]).
X = 1 ;
X = 2 ;
X = 3 ;
no
| ?- character::is_alpha(p).
yes
| ?- integer::between(1, 4, N).
N = 1 ;
N = 2 ;
N = 3 ;
N = 4 ;
no
% stop recording and print message log:
| ?- msglog::(stop, print).
list::member(X, [1, 2, 3]).
character::is_alpha(p).
integer::between(1, 4, N).
yes