diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Logtalk 2.29.5 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1858 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2007-03-28 22:44:31 +00:00
parent 9cdf70aa41
commit 4569fca292
313 changed files with 2072 additions and 2498 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Logtalk/examples/threads/buffer/NOTES.txt
View File

@@ -1,6 +1,6 @@
=================================================================
Logtalk - Object oriented extension to Prolog
Release 2.29.4
Release 2.29.5
Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
=================================================================

10
Logtalk/examples/threads/buffer/SCRIPT.txt
View File

@@ -1,18 +1,12 @@
=================================================================
Logtalk - Object oriented extension to Prolog
Release 2.29.4
Release 2.29.5
Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
=================================================================
% start by loading the necessary library support files:
| ?- logtalk_load(library(random_loader)).
...
% now you are ready for loading the example:
% start by loading the example and the required library files:
| ?- logtalk_load(buffer(loader)).
...

8
Logtalk/examples/threads/buffer/buffer.lgt
View File

@@ -38,8 +38,8 @@
run(N, N) :- !.
run(M, N) :-
M < N,
random::random(1, 5, Random), % simulate a variable time to
thread_sleep(Random), % produce a new item
random::random(1, 5, Random), % simulate a variable amount of
thread_sleep(Random), % time to produce a new item
buffer::put(M),
M2 is M + 1,
run(M2, N).
@@ -57,8 +57,8 @@
run(N, N) :- !.
run(M, N) :-
M < N,
random::random(1, 5, Random), % simulate a variable time
thread_sleep(Random), % to consume an item
random::random(1, 5, Random), % simulate a variable amount of
thread_sleep(Random), % time to consume an item
buffer::get(M),
M2 is M + 1,
run(M2, N).

15
Logtalk/examples/threads/buffer/loader.lgt
View File

@@ -1,13 +1,4 @@
:- initialization(
logtalk_load(
buffer)).
/*
If you intend to use the FOP XSL:FO processor for generating PDF documenting
files, comment the directive above and uncomment the directive below
:- initialization(
logtalk_load(
buffer, [xmlsref(standalone)])).
*/
:- initialization((
logtalk_load(library(random_loader), [reload(skip)]),
logtalk_load(buffer))).