Logtalk 2.15.1 release files.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@792 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
46
Logtalk/examples/msglog/SCRIPT
Normal file
46
Logtalk/examples/msglog/SCRIPT
Normal file
@@ -0,0 +1,46 @@
|
||||
=================================================================
|
||||
Logtalk - Object oriented extension to Prolog
|
||||
Release 2.15.1
|
||||
|
||||
Copyright (c) 1998-2003 Paulo Moura. All Rights Reserved.
|
||||
=================================================================
|
||||
|
||||
% 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
|
||||
|
Reference in New Issue
Block a user