[BACK]Return to tcpf.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / io

Diff for /OpenXM_contrib2/asir2000/io/tcpf.c between version 1.35 and 1.41

version 1.35, 2002/12/09 01:43:54 version 1.41, 2003/05/23 00:11:58
Line 44 
Line 44 
  * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY   * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  * $OpenXM: OpenXM_contrib2/asir2000/io/tcpf.c,v 1.34 2002/08/02 09:43:12 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/io/tcpf.c,v 1.40 2003/03/12 07:56:23 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 79  static struct m_c {
Line 79  static struct m_c {
 static int m_c_i,m_c_s;  static int m_c_i,m_c_s;
 int I_am_server;  int I_am_server;
   
 #if MPI  #if defined(MPI)
 extern int mpi_nprocs;  extern int mpi_nprocs;
 #define valid_mctab_index(ind)\  #define valid_mctab_index(ind)\
 if((ind)<0||(ind)>=mpi_nprocs){error("invalid server id");}  if((ind)<0||(ind)>=mpi_nprocs){error("invalid server id");}
Line 143  struct ftab tcp_tab[] = {
Line 143  struct ftab tcp_tab[] = {
         {"ox_cmo_rpc",Pox_cmo_rpc,-99999999},          {"ox_cmo_rpc",Pox_cmo_rpc,-99999999},
   
         {"ox_sync",Pox_sync,1},          {"ox_sync",Pox_sync,1},
 #if MPI  #if defined(MPI)
         {"ox_mpi_myid",Pox_mpi_myid,0},          {"ox_mpi_myid",Pox_mpi_myid,0},
         {"ox_mpi_nprocs",Pox_mpi_nprocs,0},          {"ox_mpi_nprocs",Pox_mpi_nprocs,0},
 #endif  #endif
 #if !MPI  #if !defined(MPI)
         {"ox_reset",Pox_reset,-2},          {"ox_reset",Pox_reset,-2},
         {"ox_intr",Pox_intr,1},          {"ox_intr",Pox_intr,1},
         {"ox_select",Pox_select,-2},          {"ox_select",Pox_select,-2},
Line 183  extern int ox_exchange_mathcap;
Line 183  extern int ox_exchange_mathcap;
   
 char *getenv();  char *getenv();
   
 #if MPI  #if defined(MPI)
 extern int mpi_myid, mpi_nprocs;  extern int mpi_myid, mpi_nprocs;
   
 void Pox_mpi_myid(Q *rp)  void Pox_mpi_myid(Q *rp)
Line 425  void ox_launch_generic(char *host,char *launcher,char 
Line 425  void ox_launch_generic(char *host,char *launcher,char 
                 generate_port(use_unix,server_port_str);                  generate_port(use_unix,server_port_str);
                 if ( !conn_to_serv ) {                  if ( !conn_to_serv ) {
                         cs = try_bind_listen(use_unix,control_port_str);                          cs = try_bind_listen(use_unix,control_port_str);
                           if ( cs < 0 ) continue;
                         ss = try_bind_listen(use_unix,server_port_str);                          ss = try_bind_listen(use_unix,server_port_str);
                           if ( ss < 0 ) continue;
                 }                  }
                 spawn_server(host,launcher,server,                  spawn_server(host,launcher,server,
                         use_unix,use_ssh,use_x,conn_to_serv,                          use_unix,use_ssh,use_x,conn_to_serv,
                                 control_port_str,server_port_str);                                  control_port_str,server_port_str);
                 if ( conn_to_serv ) {                  if ( conn_to_serv ) {
                         cs = try_connect(use_unix,host,control_port_str);                          cs = try_connect(use_unix,host,control_port_str);
                           if ( cs < 0 ) continue;
                         ss = try_connect(use_unix,host,server_port_str);                          ss = try_connect(use_unix,host,server_port_str);
                           if ( ss < 0 ) continue;
                 } else {                  } else {
                         cs = try_accept(use_unix,cs);                          cs = try_accept(use_unix,cs);
                           if ( cs < 0 ) continue;
                         ss = try_accept(use_unix,ss);                          ss = try_accept(use_unix,ss);
                           if ( ss < 0 ) continue;
                 }                  }
         } while ( cs < 0 || ss < 0 );          } while ( cs < 0 || ss < 0 );
   
Line 771  int register_server(int af_unix,int m,int c)
Line 777  int register_server(int af_unix,int m,int c)
                 }                  }
                 m_c_s = INIT_TAB_SIZ;                  m_c_s = INIT_TAB_SIZ;
         }          }
 #if !MPI  #if !defined(MPI)
         for ( i = 0; i < m_c_i; i++ )          for ( i = 0; i < m_c_i; i++ )
                 if ( (m_c_tab[i].m<0) && (m_c_tab[i].c<0) )                  if ( (m_c_tab[i].m<0) && (m_c_tab[i].c<0) )
                         break;                          break;
Line 884  void Pox_push_local(NODE arg,Obj *rp)
Line 890  void Pox_push_local(NODE arg,Obj *rp)
         int s;          int s;
         struct oLIST dummy;          struct oLIST dummy;
         VL vl;          VL vl;
         int index = QTOS((Q)ARG0(arg));          int index;
   
           if ( !arg )
                   error("ox_push_local : too few arguments.");
           index = QTOS((Q)ARG0(arg));
         valid_mctab_index(index);          valid_mctab_index(index);
         s = m_c_tab[index].c; arg = NEXT(arg);          s = m_c_tab[index].c; arg = NEXT(arg);
   
Line 901  void Pox_push_local(NODE arg,Obj *rp)
Line 910  void Pox_push_local(NODE arg,Obj *rp)
 void Pox_push_cmo(NODE arg,Obj *rp)  void Pox_push_cmo(NODE arg,Obj *rp)
 {  {
         int s;          int s;
         int index = QTOS((Q)ARG0(arg));          int index;
   
           if ( !arg )
                   error("ox_push_cmo : too few arguments.");
           index = QTOS((Q)ARG0(arg));
         valid_mctab_index(index);          valid_mctab_index(index);
         s = m_c_tab[index].c; arg = NEXT(arg);          s = m_c_tab[index].c; arg = NEXT(arg);
         for ( ; arg; arg = NEXT(arg) )          for ( ; arg; arg = NEXT(arg) )
Line 1193  void Pox_shutdown(NODE arg,Q *rp)
Line 1205  void Pox_shutdown(NODE arg,Q *rp)
         s = m_c_tab[index].m;          s = m_c_tab[index].m;
         ox_send_cmd(s,SM_shutdown);          ox_send_cmd(s,SM_shutdown);
         free_iofp(s);          free_iofp(s);
 #if !defined(VISUAL)  
         s = m_c_tab[index].c;          s = m_c_tab[index].c;
         free_iofp(s);          free_iofp(s);
 #endif  #if !defined(MPI) && !defined(VISUAL)
 #if !MPI && !defined(VISUAL)  
         if ( m_c_tab[index].af_unix )          if ( m_c_tab[index].af_unix )
                 wait(&status);                  wait(&status);
 #endif  #endif
Line 1235  void shutdown_all() {
Line 1245  void shutdown_all() {
         Sleep(1000);          Sleep(1000);
 #endif  #endif
                 free_iofp(s);                  free_iofp(s);
 #if !defined(VISUAL)  
                 s = m_c_tab[index].c;                  s = m_c_tab[index].c;
                 free_iofp(s);                  free_iofp(s);
 #endif  #if !defined(MPI) && !defined(VISUAL)
 #if !MPI && !defined(VISUAL)  
                 if ( m_c_tab[index].af_unix )                  if ( m_c_tab[index].af_unix )
                         wait(&status);                          wait(&status);
 #endif  #endif
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.41
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>