9fc2c47d53
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1908 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
39 lines
961 B
Plaintext
39 lines
961 B
Plaintext
================================================================
|
|
Logtalk - Open source object-oriented logic programming language
|
|
Release 2.30.2
|
|
|
|
Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
|
================================================================
|
|
|
|
|
|
% start by loading the example and the required library files:
|
|
|
|
| ?- logtalk_load(buffer(loader)).
|
|
...
|
|
|
|
|
|
% start the producer and the consumer, each one running in its own thread:
|
|
|
|
| ?- threaded_ignore(producer::run(10)), threaded_ignore(consumer::run(10)).
|
|
|
|
producer wrote item 0
|
|
consumer read item 0
|
|
producer wrote item 1
|
|
consumer read item 1
|
|
producer wrote item 2
|
|
consumer read item 2
|
|
producer wrote item 3
|
|
consumer read item 3
|
|
producer wrote item 4
|
|
consumer read item 4
|
|
producer wrote item 5
|
|
consumer read item 5
|
|
producer wrote item 6
|
|
consumer read item 6
|
|
producer wrote item 7
|
|
consumer read item 7
|
|
producer wrote item 8
|
|
consumer read item 8
|
|
producer wrote item 9
|
|
consumer read item 9
|