[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.39 and 1.41

version 1.39, 2003/03/07 06:39:57 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.38 2003/03/07 03:12:28 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 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 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) )
Legend:
Removed from v.1.39  
changed lines
  Added in v.1.41
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>