[BACK]Return to dmul102 CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / lib

Diff for /OpenXM_contrib2/asir2000/lib/dmul102 between version 1.1 and 1.2

version 1.1, 2003/12/12 07:57:20 version 1.2, 2003/12/12 09:17:31
Line 1 
Line 1 
 /* $OpenXM$ */  /* $OpenXM: OpenXM_contrib2/asir2000/lib/dmul102,v 1.1 2003/12/12 07:57:20 noro Exp $ */
 #define MAX(a,b) ((a)>(b)?(a):(b))  #define MAX(a,b) ((a)>(b)?(a):(b))
 #define MIN(a,b) ((a)>(b)?(b):(a))  #define MIN(a,b) ((a)>(b)?(b):(a))
   
Line 36  If debug is specified, the debug windows will appear."
Line 36  If debug is specified, the debug windows will appear."
                         P = generate_port();                          P = generate_port();
                         ox_tcp_accept_102(Procs[I],P,J);                          ox_tcp_accept_102(Procs[I],P,J);
                         ox_tcp_connect_102(Procs[J],Hosts[I],P,I);                          ox_tcp_connect_102(Procs[J],Hosts[I],P,I);
                   }
           return Procs;
   }
   
   def spawn102_local(N)
   "spawn102_local(nserver|debug=1)
   nserver : number of servers to be used in hostlist
   If debug is specified, the debug windows will appear."
   {
           Debug = getopt(debug);
           if ( type(Debug) == -1 )
                   Debug = 0;
           else if ( Debug )
                   Debug = 1;
           Procs = newvect(N);
           for ( I = 0; I < N; I++ ) {
                   if ( Debug )
                           Procs[I] = ox_launch();
                   else
                           Procs[I] = ox_launch_nox();
                   ox_set_rank_102(Procs[I],N,I);
                   sleep(1000);
           }
           for ( I = 0; I < N; I++ )
                   for ( J = I+1; J < N; J++ ) {
                           P = generate_port(1);
                           ox_tcp_accept_102(Procs[I],P,J);
                           ox_tcp_connect_102(Procs[J],0,P,I);
                 }                  }
         return Procs;          return Procs;
 }  }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>