remove the compile-time term size limit. do not clone before mpi_open/3 is invoked.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@392 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

library/mpi/examples/demo1.pl

@@ -19,8 +19,8 @@ calc( From, To, Acc, Res ) :- !,
 %% and collects the results.
 %%
 
-do(0, Num) :-
-	!,
+do(0, Num):-
+	integer(Num), !,
 	Half is Num // 2,
 	format( 'Proc 0: Calculating ~q..~q~n', [1, Half] ),
 	calc( 1, Half, 0, R1 ),
@@ -30,21 +30,30 @@ do(0, Num) :-
 	% mpi_receive( R2, 1, 1 ), % Be more particular
 	Res is R1 + R2,
 	format( 'Sum(1..~q) = ~q~n', [Num,Res] ).
-do(1, Num) :-
-	!,
+do(1, Num):-
+	integer(Num), !,
 	Half is Num // 2,
 	format( 'Proc 1: Calculating ~q..~q~n', [Half,Num] ),
 	calc( Half, Num, 0, Res ),
 	format( 'Proc 1: Done! (~q)~n', [Res] ),
 	mpi_send( Res, 0, 1 ).
 
+do(0, _):-
+	!,
+	mpi_receive(T, Source, Tag),
+	format( '0: Proc ~q said: ~q (Tag: ~q)~n', [Source,T,Tag] ).
+do(1, Term):-
+	!,
+	mpi_send(Term, 0, 1),
+	format( "1: I sent ~q (Tag: 1) to 0~n", [Term] ).
+
 
 %%
 %% This is the entry point
 %%
 
-start(Num) :-
+start(Job) :-
 	mpi_open( Rank, NumProc, ProcName ),
 	format( 'Rank: ~q NumProc: ~q, ProcName: ~q~n', [Rank,NumProc,ProcName] ),
-	do( Rank, Num ),
+	do( Rank, Job ),
 	format( 'Rank ~q finished!~n', [Rank] ).

library/mpi/examples/demo2.pl

@@ -26,22 +26,22 @@ do(0, Num) :-
 	mpe_create_event(Ev1),
 	mpe_create_event(Ev2),
 	format( "Ev1 == ~q, Ev2 == ~q~n", [Ev1,Ev2] ),
-	mpe_create_state(Ev1,Ev2),
+	mpe_create_state(Ev1,Ev2,state1,red),
 	format( "1 AA~n", [] ),
-	mpe_log(Ev1),
+	mpe_log(Ev1,0,event1),
 	format( "2 AA~n", [] ),
-	mpi_bcast( Num, 0 ),
+	mpi_bcast( Num, 0, 100 ),
 	format( 'Proc 0: broadcast ~q.~n', [Num] ),
-	mpe_log(Ev2).
+	mpe_log(Ev2,0,event2).
 do(Rank, _) :-
 	!,
 	mpe_create_event(Ev1),
 	mpe_create_event(Ev2),
 	format( "Ev1 == ~q, Ev2 == ~q~n", [Ev1,Ev2] ),
-	mpe_log(Ev1),
-	mpi_bcast( Num, 0 ),
+	mpe_log(Ev1,0,event1),
+	mpi_bcast( Num, 0, 100 ),
 	format( 'Proc ~q: had ~q broadcast from 0.~n', [Rank, Num] ),
-	mpe_log(Ev2).
+	mpe_log(Ev2,0,event2).
 
 
 %%
@@ -54,4 +54,4 @@ start(Msg) :-
 	mpe_open,
 	do(Rank, Msg),
 	format( 'Rank ~q finished!~n', [Rank] ),
-	mpe_close.
+	mpe_close( demo2 ).