[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.25 and 1.26

version 1.25, 2001/06/06 02:21:40 version 1.26, 2001/10/09 01:36:22
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.24 2001/06/04 02:49:47 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/io/tcpf.c,v 1.25 2001/06/06 02:21:40 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 97  int get_mcindex(int);
Line 97  int get_mcindex(int);
   
 void Pox_send_raw_cmo(), Pox_recv_raw_cmo();  void Pox_send_raw_cmo(), Pox_recv_raw_cmo();
   
 void Pox_launch(),Pox_launch_nox(),Pox_launch_main();  void Pox_launch(),Pox_launch_nox();
 void Pox_launch_generic();  void Pox_launch_generic();
 void Pox_shutdown();  void Pox_shutdown();
   
Line 184  char *getenv();
Line 184  char *getenv();
 #if MPI  #if MPI
 extern int mpi_myid, mpi_nprocs;  extern int mpi_myid, mpi_nprocs;
   
 void Pox_mpi_myid(rp)  void Pox_mpi_myid(Q *rp)
 Q *rp;  
 {  {
         STOQ(mpi_myid,*rp);          STOQ(mpi_myid,*rp);
 }  }
   
 void Pox_mpi_nprocs(rp)  void Pox_mpi_nprocs(Q *rp)
 Q *rp;  
 {  {
         STOQ(mpi_nprocs,*rp);          STOQ(mpi_nprocs,*rp);
 }  }
 #endif  #endif
   
 void Pox_get_serverinfo(arg,rp)  void Pox_get_serverinfo(NODE arg,LIST *rp)
 NODE arg;  
 LIST *rp;  
 {  {
         int i,c;          int i,c;
         Q s_id;          Q s_id;
Line 235  LIST *rp;
Line 231  LIST *rp;
   else use UNIX socket and return a string which represents a path name    else use UNIX socket and return a string which represents a path name
 */  */
   
 void Pgenerate_port(arg,rp)  void Pgenerate_port(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         char port_str[BUFSIZ];          char port_str[BUFSIZ];
         int port;          int port;
Line 252  Obj *rp;
Line 246  Obj *rp;
                 *rp = (Obj)q;                  *rp = (Obj)q;
         } else {          } else {
                 generate_port(1,port_str);                  generate_port(1,port_str);
                 s = (char *)MALLOC(strlen(port_str)+1);                  s = (char *)MALLOC(strlen((char *)port_str)+1);
                 strcpy(s,port_str);                  strcpy(s,port_str);
                 MKSTR(str,s);                  MKSTR(str,s);
                 *rp = (Obj)str;                  *rp = (Obj)str;
Line 263  Obj *rp;
Line 257  Obj *rp;
  try_bind_listen(port)   try_bind_listen(port)
 */  */
   
 void Ptry_bind_listen(arg,rp)  void Ptry_bind_listen(NODE arg,Q *rp)
 NODE arg;  
 Q *rp;  
 {  {
         char port_str[BUFSIZ];          char port_str[BUFSIZ];
         int port,s,use_unix;          int port,s,use_unix;
Line 286  Q *rp;
Line 278  Q *rp;
  try_connect(host,port)   try_connect(host,port)
 */  */
   
 void Ptry_connect(arg,rp)  void Ptry_connect(NODE arg,Q *rp)
 NODE arg;  
 Q *rp;  
 {  {
         char port_str[BUFSIZ];          char port_str[BUFSIZ];
         char *host;          char *host;
Line 311  Q *rp;
Line 301  Q *rp;
  try_accept(sock,port)   try_accept(sock,port)
 */  */
   
 void Ptry_accept(arg,rp)  void Ptry_accept(NODE arg,Q *rp)
 NODE arg;  
 Q *rp;  
 {  {
         int use_unix,s;          int use_unix,s;
   
Line 329  Q *rp;
Line 317  Q *rp;
  register_server(cs,cport,ss,sport)   register_server(cs,cport,ss,sport)
 */  */
   
 void Pregister_server(arg,rp)  void Pregister_server(NODE arg,Q *rp)
 NODE arg;  
 Q *rp;  
 {  {
         int cs,ss,cn,sn,ind,use_unix,id;          int cs,ss,cn,sn,ind,use_unix,id;
         char cport_str[BUFSIZ],sport_str[BUFSIZ];          char cport_str[BUFSIZ],sport_str[BUFSIZ];
           Obj obj;
         MATHCAP server_mathcap;          MATHCAP server_mathcap;
   
         cs = QTOS((Q)ARG0(arg));          cs = QTOS((Q)ARG0(arg));
Line 375  Q *rp;
Line 362  Q *rp;
                 ox_send_cmd(sn,SM_mathcap);                  ox_send_cmd(sn,SM_mathcap);
                 ox_send_cmd(sn,SM_popCMO);                  ox_send_cmd(sn,SM_popCMO);
                 ox_flush_stream_force(sn);                  ox_flush_stream_force(sn);
                 ox_recv(sn,&id,&server_mathcap);                  ox_recv(sn,&id,&obj); server_mathcap = (MATHCAP)obj;
                 store_remote_mathcap(sn,server_mathcap);                  store_remote_mathcap(sn,server_mathcap);
   
                 /* send my mathcap */                  /* send my mathcap */
Line 400  Q *rp;
Line 387  Q *rp;
         conn_to_serv: connect to server if 1          conn_to_serv: connect to server if 1
 */  */
   
 void Pox_launch_generic(arg,rp)  void Pox_launch_generic(NODE arg,Q *rp)
 NODE arg;  
 Q *rp;  
 {  {
         int use_unix,use_ssh,use_x,conn_to_serv;          int use_unix,use_ssh,use_x,conn_to_serv;
         char *host,*launcher,*server;          char *host,*launcher,*server;
           Q ret;
   
         host = (arg&&ARG0(arg))?BDY((STRING)ARG0(arg)):0;          host = (arg&&ARG0(arg))?BDY((STRING)ARG0(arg)):0;
         launcher = BDY((STRING)ARG1(arg));          launcher = BDY((STRING)ARG1(arg));
Line 417  Q *rp;
Line 403  Q *rp;
         if ( !host )          if ( !host )
                 use_unix = 1;                  use_unix = 1;
         ox_launch_generic(host,launcher,server,          ox_launch_generic(host,launcher,server,
                 use_unix,use_ssh,use_x,conn_to_serv,rp);                  use_unix,use_ssh,use_x,conn_to_serv,&ret);
           *rp = ret;
 }  }
   
 void ox_launch_generic(host,launcher,server,  void ox_launch_generic(char *host,char *launcher,char *server,
                 use_unix,use_ssh,use_x,conn_to_serv,rp)                  int use_unix,int use_ssh,int use_x,int conn_to_serv,Q *rp)
 char *host,*launcher,*server;  
 int use_unix,use_ssh,use_x,conn_to_serv;  
 Q *rp;  
 {  {
         int cs,ss,cn,sn,ind,id;          int cs,ss,cn,sn,ind,id;
         char control_port_str[BUFSIZ];          char control_port_str[BUFSIZ];
         char server_port_str[BUFSIZ];          char server_port_str[BUFSIZ];
           Obj obj;
         MATHCAP server_mathcap;          MATHCAP server_mathcap;
   
         control_port_str[0] = 0;          control_port_str[0] = 0;
Line 471  Q *rp;
Line 456  Q *rp;
                 ox_send_cmd(sn,SM_mathcap);                  ox_send_cmd(sn,SM_mathcap);
                 ox_send_cmd(sn,SM_popCMO);                  ox_send_cmd(sn,SM_popCMO);
                 ox_flush_stream_force(sn);                  ox_flush_stream_force(sn);
                 ox_recv(sn,&id,&server_mathcap);                  ox_recv(sn,&id,&obj); server_mathcap = (MATHCAP)obj;
                 store_remote_mathcap(sn,server_mathcap);                  store_remote_mathcap(sn,server_mathcap);
   
                 /* send my mathcap */                  /* send my mathcap */
Line 483  Q *rp;
Line 468  Q *rp;
         STOQ(ind,*rp);          STOQ(ind,*rp);
 }  }
   
 int spawn_server(host,launcher,server,  void spawn_server(char *host,char *launcher,char *server,
         use_unix,use_ssh,use_x,conn_to_serv,          int use_unix,int use_ssh,int use_x,int conn_to_serv,
         control_port_str,server_port_str)          char *control_port_str,char *server_port_str)
 char *host,*launcher,*server;  
 int use_unix,use_ssh,use_x,conn_to_serv;  
 char *control_port_str,*server_port_str;  
 {  {
         char cmd[BUFSIZ];  
         char localhost[BUFSIZ];          char localhost[BUFSIZ];
         char *dname,*conn_str,*rsh,*dname0;          char *dname,*conn_str,*rsh,*dname0;
         char dname_str[BUFSIZ];  
         char AsirExe[BUFSIZ];          char AsirExe[BUFSIZ];
         STRING rootdir;          STRING rootdir;
         char prog[BUFSIZ];          char prog[BUFSIZ];
         char *av[BUFSIZ];          char *av[BUFSIZ];
   #if !defined(VISUAL)
           char cmd[BUFSIZ];
   #endif
           void Pget_rootdir();
   
         dname0 = (char *)getenv("DISPLAY");          dname0 = (char *)getenv("DISPLAY");
         if ( !dname0 )          if ( !dname0 )
Line 588  char *control_port_str,*server_port_str;
Line 572  char *control_port_str,*server_port_str;
 #endif /* VISUAL */  #endif /* VISUAL */
 }  }
   
 void Pox_launch(arg,rp)  void Pox_launch(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         Pox_launch_main(1,arg,rp);          ox_launch_main(1,arg,rp);
 }  }
   
 void Pox_launch_nox(arg,rp)  void Pox_launch_nox(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         Pox_launch_main(0,arg,rp);          ox_launch_main(0,arg,rp);
 }  }
   
 /*  /*
Line 608  Obj *rp;
Line 588  Obj *rp;
         ox_launch(remote,lib,ox_xxx) : invoke remote ox_xxx with lib/ox_launch          ox_launch(remote,lib,ox_xxx) : invoke remote ox_xxx with lib/ox_launch
 */  */
   
 void Pox_launch_main(with_x,arg,rp)  void ox_launch_main(int with_x,NODE arg,Obj *p)
 int with_x;  
 NODE arg;  
 Obj *rp;  
 {  {
         char *str;          char *str;
         char *hostname,*servername,*dname;          char *hostname,*servername;
         char *control;          char *control;
         int use_unix;          int use_unix;
           Q ret;
         extern char *asir_libdir;          extern char *asir_libdir;
   
         if ( arg && ARG0(arg) && argc(arg) != 3 )          if ( arg && ARG0(arg) && argc(arg) != 3 )
Line 655  Obj *rp;
Line 633  Obj *rp;
                 hostname = BDY((STRING)ARG0(arg));                  hostname = BDY((STRING)ARG0(arg));
         else          else
                 hostname = 0;                  hostname = 0;
         ox_launch_generic(hostname,control,servername,use_unix,0,with_x,0,rp);          ox_launch_generic(hostname,control,servername,use_unix,0,with_x,0,&ret);
           *p = (Obj)ret;
 }  }
   
 int register_server(af_unix,m,c)  int register_server(int af_unix,int m,int c)
 int af_unix,m,c;  
 {  {
         int s,i,ci;          int s,i;
         struct m_c *t;          struct m_c *t;
 #define INIT_TAB_SIZ 64  #define INIT_TAB_SIZ 64
   
Line 703  int af_unix,m,c;
Line 681  int af_unix,m,c;
   
 /* iofp index => m_c_tab index */  /* iofp index => m_c_tab index */
   
 int get_mcindex(i)  int get_mcindex(int i)
 int i;  
 {  {
         int j;          int j;
   
Line 716  int i;
Line 693  int i;
   
 /* arg = [ind0,ind1,...]; indk = index to m_c_tab */  /* arg = [ind0,ind1,...]; indk = index to m_c_tab */
   
 void Pox_select(arg,rp)  void Pox_select(NODE arg,LIST *rp)
 NODE arg;  
 LIST *rp;  
 {  {
         int fd,n,i,index,mcind;          int fd,n,i,index,mcind;
         fd_set r,w,e;          fd_set r,w,e;
Line 741  LIST *rp;
Line 716  LIST *rp;
         for ( t = list; t; t = NEXT(t) ) {          for ( t = list; t; t = NEXT(t) ) {
                 index = QTOS((Q)BDY(t));                  index = QTOS((Q)BDY(t));
                 valid_mctab_index(index);                  valid_mctab_index(index);
                 fd = get_fd(m_c_tab[index].c); FD_SET(fd,&r);                  fd = get_fd(m_c_tab[index].c); FD_SET((unsigned int)fd,&r);
         }          }
         n = select(FD_SETSIZE,&r,&w,&e,tvp);          n = select(FD_SETSIZE,&r,&w,&e,tvp);
         for ( i = 0, t = 0; n && i < FD_SETSIZE; i++ )          for ( i = 0, t = 0; n && i < FD_SETSIZE; i++ )
Line 755  LIST *rp;
Line 730  LIST *rp;
         MKLIST(*rp,t);          MKLIST(*rp,t);
 }  }
   
 void Pox_flush(arg,rp)  void Pox_flush(NODE arg,Q *rp)
 NODE arg;  
 Q *rp;  
 {  {
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
   
Line 766  Q *rp;
Line 739  Q *rp;
         *rp = ONE;          *rp = ONE;
 }  }
   
 void Pox_send_raw_cmo(arg,rp)  void Pox_send_raw_cmo(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         int s;          int s;
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
Line 781  Obj *rp;
Line 752  Obj *rp;
         *rp = 0;          *rp = 0;
 }  }
   
 void Pox_recv_raw_cmo(arg,rp)  void Pox_recv_raw_cmo(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         int s;          int s;
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
Line 793  Obj *rp;
Line 762  Obj *rp;
         ox_read_cmo(s,rp);          ox_read_cmo(s,rp);
 }  }
   
 void Pox_push_local(arg,rp)  void Pox_push_local(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         int s;          int s;
         struct oLIST dummy;          struct oLIST dummy;
Line 814  Obj *rp;
Line 781  Obj *rp;
         *rp = 0;          *rp = 0;
 }  }
   
 void Pox_push_cmo(arg,rp)  void Pox_push_cmo(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         int s;          int s;
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
Line 828  Obj *rp;
Line 793  Obj *rp;
         *rp = 0;          *rp = 0;
 }  }
   
 void Pox_push_vl(arg,rp)  void Pox_push_vl(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         int s;  
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
   
         valid_mctab_index(index);          valid_mctab_index(index);
Line 840  Obj *rp;
Line 802  Obj *rp;
         *rp = 0;          *rp = 0;
 }  }
   
 void Pox_pop_local(arg,rp)  void Pox_pop_local(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         int s;          int s;
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
Line 854  Obj *rp;
Line 814  Obj *rp;
         ox_get_result(s,rp);          ox_get_result(s,rp);
 }  }
   
 void Pox_pop_cmo(arg,rp)  void Pox_pop_cmo(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         int s;          int s;
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
Line 868  Obj *rp;
Line 826  Obj *rp;
         ox_get_result(s,rp);          ox_get_result(s,rp);
 }  }
   
 void Pox_pop0_local(arg,rp)  void Pox_pop0_local(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
   
Line 879  Obj *rp;
Line 835  Obj *rp;
         *rp = 0;          *rp = 0;
 }  }
   
 void Pox_pop0_cmo(arg,rp)  void Pox_pop0_cmo(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
   
Line 890  Obj *rp;
Line 844  Obj *rp;
         *rp = 0;          *rp = 0;
 }  }
   
 void Pox_pop0_string(arg,rp)  void Pox_pop0_string(NODE arg,STRING *rp)
 NODE arg;  
 STRING *rp;  
 {  {
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
   
Line 901  STRING *rp;
Line 853  STRING *rp;
         *rp = 0;          *rp = 0;
 }  }
   
 void Pox_pop_string(arg,rp)  void Pox_pop_string(NODE arg,Obj *rp)
 NODE arg;  
 STRING *rp;  
 {  {
         int s,id;          int s;
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
   
         valid_mctab_index(index);          valid_mctab_index(index);
Line 915  STRING *rp;
Line 865  STRING *rp;
         ox_get_result(s,rp);          ox_get_result(s,rp);
 }  }
   
 void Pox_get(arg,rp)  void Pox_get(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         int index;          int index;
         int s;          int s;
Line 935  Obj *rp;
Line 883  Obj *rp;
         }          }
 }  }
   
 void Pox_pops(arg,rp)  void Pox_pops(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         int s;          int s;
         USINT n;          USINT n;
Line 954  Obj *rp;
Line 900  Obj *rp;
         *rp = 0;          *rp = 0;
 }  }
   
 void Pox_execute_function(arg,rp)  void Pox_execute_function(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         int s;          int s;
         USINT ui;          USINT ui;
Line 971  Obj *rp;
Line 915  Obj *rp;
         *rp = 0;          *rp = 0;
 }  }
   
 void Pox_setname(arg,rp)  void Pox_setname(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         int s;          int s;
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
Line 985  Obj *rp;
Line 927  Obj *rp;
         *rp = 0;          *rp = 0;
 }  }
   
 void Pox_evalname(arg,rp)  void Pox_evalname(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         int s;          int s;
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
Line 999  Obj *rp;
Line 939  Obj *rp;
         *rp = 0;          *rp = 0;
 }  }
   
 void Pox_execute_string(arg,rp)  void Pox_execute_string(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         int s;          int s;
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
Line 1015  Obj *rp;
Line 953  Obj *rp;
   
 /* arg=[sid,fname,arg0,arg1,...,arg{n-1}] */  /* arg=[sid,fname,arg0,arg1,...,arg{n-1}] */
   
 void Pox_rpc(arg,rp)  void Pox_rpc(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         int s,i,n;          int s,i,n;
         STRING f;          STRING f;
Line 1043  Obj *rp;
Line 979  Obj *rp;
         *rp = 0;          *rp = 0;
 }  }
   
 void Pox_cmo_rpc(arg,rp)  void Pox_cmo_rpc(NODE arg,Obj *rp)
 NODE arg;  
 Obj *rp;  
 {  {
         int s,i,n;          int s,i,n;
         STRING f;          STRING f;
Line 1070  Obj *rp;
Line 1004  Obj *rp;
         *rp = 0;          *rp = 0;
 }  }
   
 void Pox_reset(arg,rp)  void Pox_reset(NODE arg,Q *rp)
 NODE arg;  
 Q *rp;  
 {  {
         USINT t;          USINT t;
         int s,id,c,m;          int id,c,m;
         Obj obj;          Obj obj;
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
   
Line 1086  Q *rp;
Line 1018  Q *rp;
                 if ( argc(arg) == 1 ) {                  if ( argc(arg) == 1 ) {
                         ox_send_cmd(m,SM_control_reset_connection);                          ox_send_cmd(m,SM_control_reset_connection);
                         ox_flush_stream_force(m);                          ox_flush_stream_force(m);
                         ox_recv(m,&id,&t);                          ox_recv(m,&id,&obj); t = (USINT)obj;
                 }                  }
                 *rp = ONE;                  *rp = ONE;
 #if defined(VISUAL)  #if defined(VISUAL)
Line 1104  Q *rp;
Line 1036  Q *rp;
                 *rp = 0;                  *rp = 0;
 }  }
   
 void Pox_intr(arg,rp)  void Pox_intr(NODE arg,Q *rp)
 NODE arg;  
 Q *rp;  
 {  {
         int m;          int m;
         Obj obj;  
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
   
         valid_mctab_index(index);          valid_mctab_index(index);
Line 1124  Q *rp;
Line 1053  Q *rp;
                 *rp = 0;                  *rp = 0;
 }  }
   
 void Pox_sync(arg,rp)  void Pox_sync(NODE arg,Q *rp)
 NODE arg;  
 Q *rp;  
 {  {
         int c;          int c;
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
Line 1137  Q *rp;
Line 1064  Q *rp;
         *rp = 0;          *rp = 0;
 }  }
   
 void Pox_shutdown(arg,rp)  void Pox_shutdown(NODE arg,Q *rp)
 NODE arg;  
 Q *rp;  
 {  {
         int s;          int s;
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
   #if !defined(VISUAL)
         int status;          int status;
   #endif
   
         valid_mctab_index(index);          valid_mctab_index(index);
         s = m_c_tab[index].m;          s = m_c_tab[index].m;
Line 1162  Q *rp;
Line 1089  Q *rp;
         *rp = 0;          *rp = 0;
 }  }
   
 void Pox_push_cmd(arg,rp)  void Pox_push_cmd(NODE arg,Q *rp)
 NODE arg;  
 Q *rp;  
 {  {
         int ui;          int ui;
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
Line 1178  Q *rp;
Line 1103  Q *rp;
 void shutdown_all() {  void shutdown_all() {
         int s;          int s;
         int i,index;          int i,index;
   #if !defined(VISUAL)
         int status;          int status;
   #endif
   
         for ( i = I_am_server?1:0; i < m_c_i; i++ ) {          for ( i = I_am_server?1:0; i < m_c_i; i++ ) {
                 index = i;                  index = i;
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>