[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.33

version 1.25, 2001/06/06 02:21:40 version 1.33, 2002/08/02 02:28:28
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.32 2002/07/29 05:02:45 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
 #include "com.h"  #include "com.h"
 #include <signal.h>  #include <signal.h>
   #include <string.h>
 #if !defined(VISUAL)  #if !defined(VISUAL)
   #include <unistd.h>
 #include <sys/types.h>  #include <sys/types.h>
 #include <pwd.h>  #include <pwd.h>
 #endif  #endif
Line 97  int get_mcindex(int);
Line 99  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 186  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 233  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 248  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 259  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;
   
         if ( !ARG0(arg) || NUM(ARG0(arg)) ) {          if ( IS_CYGWIN || !ARG0(arg) || NUM(ARG0(arg)) ) {
                 port = QTOS((Q)ARG0(arg));                  port = QTOS((Q)ARG0(arg));
                 sprintf(port_str,"%d",port);                  sprintf(port_str,"%d",port);
                 use_unix = 0;                  use_unix = 0;
Line 286  Q *rp;
Line 280  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;
         int port,s,use_unix;          int port,s,use_unix;
   
         if ( !ARG1(arg) || NUM(ARG1(arg)) ) {          if ( IS_CYGWIN || !ARG1(arg) || NUM(ARG1(arg)) ) {
                 port = QTOS((Q)ARG1(arg));                  port = QTOS((Q)ARG1(arg));
                 sprintf(port_str,"%d",port);                  sprintf(port_str,"%d",port);
                 use_unix = 0;                  use_unix = 0;
Line 311  Q *rp;
Line 303  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;
   
         if ( !ARG1(arg) || NUM(ARG1(arg)) )          if ( IS_CYGWIN || !ARG1(arg) || NUM(ARG1(arg)) )
                 use_unix = 0;                  use_unix = 0;
         else          else
                 use_unix = 1;                  use_unix = 1;
Line 329  Q *rp;
Line 319  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));
         ss = QTOS((Q)ARG2(arg));          ss = QTOS((Q)ARG2(arg));
         if ( !ARG1(arg) || NUM(ARG1(arg)) ) {          if ( IS_CYGWIN || !ARG1(arg) || NUM(ARG1(arg)) ) {
                 sprintf(cport_str,"%d",QTOS((Q)ARG1(arg)));                  sprintf(cport_str,"%d",QTOS((Q)ARG1(arg)));
                 use_unix = 0;                  use_unix = 0;
         } else {          } else {
Line 375  Q *rp;
Line 364  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 389  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));
         server = BDY((STRING)ARG2(arg));          server = BDY((STRING)ARG2(arg));
         use_unix = ARG3(arg) ? 1 : 0;          use_unix = !IS_CYGWIN && ARG3(arg) ? 1 : 0;
         use_ssh = ARG4(arg) ? 1 : 0;          use_ssh = ARG4(arg) ? 1 : 0;
         use_x = ARG5(arg) ? 1 : 0;          use_x = ARG5(arg) ? 1 : 0;
         conn_to_serv = QTOS((Q)ARG6(arg));          conn_to_serv = QTOS((Q)ARG6(arg));
         if ( !host )          if ( !IS_CYGWIN && !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 458  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 470  Q *rp;
         STOQ(ind,*rp);          STOQ(ind,*rp);
 }  }
   
 int spawn_server(host,launcher,server,  #if defined(__CYGWIN__)
         use_unix,use_ssh,use_x,conn_to_serv,  static void bslash2slash(char *buf)
         control_port_str,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 *p;
   
           for ( p = buf; *p; p++ )
                   if ( *p == '\\' )
                           *p = '/';
   }
   
   static int get_start_path(char *buf)
   {
           static char start_path[BUFSIZ];
           static int start_initialized = 0;
           char name[BUFSIZ];
   
           if ( start_initialized ) {
                   strcpy(buf,start_path);
                   return 1;
           }
   
           /* Windows98 */
           strcpy(buf,"c:\\windows\\command\\start.exe");
           cygwin_conv_to_full_posix_path(buf,name);
           if ( !access(name,X_OK) ) {
                   bslash2slash(buf);
                   strcpy(start_path,buf);
                   start_initialized  = 1;
                   return 1;
           }
   
           /* Windows2000 */
           strcpy(buf,"c:\\winnt\\system32\\start.exe");
           cygwin_conv_to_full_posix_path(buf,name);
           if ( !access(name,X_OK) ) {
                   bslash2slash(buf);
                   strcpy(start_path,buf);
                   start_initialized  = 1;
                   return 1;
           }
   
           strcpy(buf,"c:\\winnt\\system32\\cmd.exe");
           cygwin_conv_to_full_posix_path(buf,name);
           if ( !access(name,X_OK) ) {
                   bslash2slash(buf);
                   sprintf(start_path,"%s /c start",buf);
                   strcpy(buf,start_path);
                   start_initialized  = 1;
                   return 1;
           }
   
           strcpy(buf,"c:\\windows\\system32\\cmd.exe");
           cygwin_conv_to_full_posix_path(buf,name);
           if ( !access(name,X_OK) ) {
                   bslash2slash(buf);
                   sprintf(start_path,"%s /c start",buf);
                   strcpy(buf,start_path);
                   start_initialized  = 1;
                   return 1;
           }
   
           return 0;
   }
   
   static void get_launcher_path(char *buf)
   {
           static char rootname[BUFSIZ];
           static char launcher_path[BUFSIZ];
           static int launcher_initialized = 0;
           char name[BUFSIZ];
   
           if ( launcher_initialized ) {
                   strcpy(buf,launcher_path);
                   return;
           }
   
           get_rootdir(rootname,sizeof(rootname));
           sprintf(name,"%s/ox_launch.exe",rootname);
           cygwin_conv_to_full_win32_path(name,launcher_path);
           bslash2slash(launcher_path);
           launcher_initialized = 1;
           strcpy(buf,launcher_path);
   }
   #endif
   
   void spawn_server(char *host,char *launcher,char *server,
           int use_unix,int use_ssh,int use_x,int conn_to_serv,
           char *control_port_str,char *server_port_str)
   {
         char localhost[BUFSIZ];          char localhost[BUFSIZ];
         char *dname,*conn_str,*rsh,*dname0;          char *dname,*conn_str,*rsh,*dname0,*asirhost;
         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
   #if defined(__CYGWIN__)
           char win_start[BUFSIZ],win_launcher[BUFSIZ];
   #endif
           void Pget_rootdir();
   
         dname0 = (char *)getenv("DISPLAY");          dname0 = (char *)getenv("DISPLAY");
         if ( !dname0 )          if ( !dname0 )
Line 514  char *control_port_str,*server_port_str;
Line 588  char *control_port_str,*server_port_str;
                  */                   */
                 use_ssh = 1;                  use_ssh = 1;
         }          }
         gethostname(localhost,BUFSIZ);          asirhost = (char *)getenv("ASIRHOSTNAME");
           if ( asirhost )
                   strcpy(localhost,asirhost);
           else
                   gethostname(localhost,BUFSIZ);
 #if defined(VISUAL)  #if defined(VISUAL)
         if ( !use_unix )          if ( !use_unix )
                 error("spawn_server : not implemented on Windows");                  error("spawn_server : not implemented on Windows");
Line 535  char *control_port_str,*server_port_str;
Line 613  char *control_port_str,*server_port_str;
 //      _spawnv(_P_NOWAIT,"d:\\home\\noro\\engine2000\\debug\\engine.exe",av);  //      _spawnv(_P_NOWAIT,"d:\\home\\noro\\engine2000\\debug\\engine.exe",av);
 //      printf("ox_launch 127.0.0.1 %s %s %s %s 0\n",conn_str,control_port_str,server_port_str,server);  //      printf("ox_launch 127.0.0.1 %s %s %s %s 0\n",conn_str,control_port_str,server_port_str,server);
 #else  #else
         if ( use_unix ) {          if ( use_unix || !host ) {
   #if defined(__CYGWIN__)
                   get_launcher_path(win_launcher);
                   if ( dname && strchr(dname,':') ) {
                           if ( !fork() ) {
                                   setpgid(0,getpid());
                                   execlp("xterm","xterm","-name",OX_XTERM,"-T","ox_launch:local","-display",dname,
                                           "-geometry","60x10","-e",launcher,use_unix?".":"127.1",conn_str,
                                           control_port_str,server_port_str,server,dname,0);
                           }
                   } else if ( dname && get_start_path(win_start) ) {
                   sprintf(cmd,"%s %s %s %s %s %s %s 1",
                                   win_start,win_launcher,use_unix?".":"127.1",conn_str,
                                   control_port_str,server_port_str,server);
                           system(cmd);
                   } else {
                           if ( !fork() ) {
                                   setpgid(0,getpid());
                                   execlp(launcher,launcher,use_unix?".":"127.1",conn_str,
                                           control_port_str,server_port_str,server,dname0,"-nolog",0);
                           }
                   }
   #else
                 if ( !fork() ) {                  if ( !fork() ) {
                         setpgid(0,getpid());                          setpgid(0,getpid());
                         if ( dname )                          if ( dname )
                                 execlp("xterm","xterm","-name",OX_XTERM,"-T","ox_launch:local","-display",dname,                                  execlp("xterm","xterm","-name",OX_XTERM,"-T","ox_launch:local","-display",dname,
                                         "-geometry","60x10","-e",launcher,".",conn_str,                                          "-geometry","60x10","-e",launcher,use_unix?".":"127.1",conn_str,
                                         control_port_str,server_port_str,server,dname,0);                                          control_port_str,server_port_str,server,dname,0);
                         else                          else
                                 execlp(launcher,launcher,".",conn_str,                                  execlp(launcher,launcher,use_unix?".":"127.1",conn_str,
                                         control_port_str,server_port_str,server,dname0,"-nolog",0);                                          control_port_str,server_port_str,server,dname0,"-nolog",0);
                 }                  }
   #endif
         } else if ( conn_to_serv == 2 ) {          } else if ( conn_to_serv == 2 ) {
                 /* special support for java */                  /* special support for java */
                 if ( dname )                  if ( dname )
Line 588  char *control_port_str,*server_port_str;
Line 689  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 705  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 624  Obj *rp;
Line 719  Obj *rp;
         control = (char *)MALLOC(BUFSIZ);          control = (char *)MALLOC(BUFSIZ);
         if ( !arg || ( !ARG0(arg) && argc(arg) == 1 ) ) {          if ( !arg || ( !ARG0(arg) && argc(arg) == 1 ) ) {
                 sprintf(control,"%s/ox_launch",asir_libdir);                  sprintf(control,"%s/ox_launch",asir_libdir);
                 use_unix = 1;                  use_unix = IS_CYGWIN ? 0 : 1;
                 servername = (char *)MALLOC(BUFSIZ);                  servername = (char *)MALLOC(BUFSIZ);
                 sprintf(servername,"%s/ox_asir",asir_libdir);                  sprintf(servername,"%s/ox_asir",asir_libdir);
         } else if ( !ARG0(arg) && argc(arg) == 2 ) {          } else if ( !ARG0(arg) && argc(arg) == 2 ) {
                 sprintf(control,"%s/ox_launch",asir_libdir);                  sprintf(control,"%s/ox_launch",asir_libdir);
                 use_unix = 1;                  use_unix = IS_CYGWIN ? 0 : 1;
                 str = BDY((STRING)ARG1(arg));                  str = BDY((STRING)ARG1(arg));
                 if ( str[0] == '/' )                  if ( str[0] == '/' )
                         servername = str;                          servername = str;
Line 640  Obj *rp;
Line 735  Obj *rp;
         } else {          } else {
                 sprintf(control,"%s/ox_launch",BDY((STRING)ARG1(arg)));                  sprintf(control,"%s/ox_launch",BDY((STRING)ARG1(arg)));
                 if ( !ARG0(arg) )                  if ( !ARG0(arg) )
                         use_unix = 1;                          use_unix = IS_CYGWIN ? 0 : 1;
                 else                  else
                         use_unix = 0;                          use_unix = 0;
                 str = BDY((STRING)ARG2(arg));                  str = BDY((STRING)ARG2(arg));
Line 655  Obj *rp;
Line 750  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 688  int af_unix,m,c;
Line 783  int af_unix,m,c;
 #endif  #endif
         if ( m_c_i == m_c_s ) {          if ( m_c_i == m_c_s ) {
                 s = (m_c_s+INIT_TAB_SIZ)*sizeof(struct m_c);                  s = (m_c_s+INIT_TAB_SIZ)*sizeof(struct m_c);
                 t = (struct m_c *)MALLOC_ATOMIC(s); bzero(m_c_tab,s);                  t = (struct m_c *)MALLOC_ATOMIC(s); bzero((void *)m_c_tab,s);
                 bcopy(m_c_tab,t,m_c_s*sizeof(struct m_c));                  bcopy((void *)m_c_tab,(void *)t,m_c_s*sizeof(struct m_c));
                 for ( i = 0; i < INIT_TAB_SIZ; i++ ) {                  for ( i = 0; i < INIT_TAB_SIZ; i++ ) {
                         m_c_tab[m_c_s+i].af_unix = 0;                          m_c_tab[m_c_s+i].af_unix = 0;
                         m_c_tab[m_c_s+i].m = m_c_tab[m_c_s+i].c = -1;                          m_c_tab[m_c_s+i].m = m_c_tab[m_c_s+i].c = -1;
Line 703  int af_unix,m,c;
Line 798  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 810  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 833  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 847  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 856  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 869  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 879  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 898  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 910  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 919  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 931  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 943  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 952  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 961  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 970  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 982  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 1000  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 1017  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 1032  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 1044  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 1056  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 1070  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 1096  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 1121  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 1135  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 1153  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 1170  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 1181  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 1206  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 1220  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;
Line 1202  void shutdown_all() {
Line 1246  void shutdown_all() {
                 m_c_tab[index].m = 0; m_c_tab[index].c = 0;                  m_c_tab[index].m = 0; m_c_tab[index].c = 0;
                 m_c_tab[index].af_unix = 0;                  m_c_tab[index].af_unix = 0;
         }          }
   }
   
   char *ox_get_servername(int);
   
   int is_ox_plot(int index)
   {
           char *name;
   
           check_valid_mctab_index(index);
           if ( index < 0 )
                   return 0;
           /* m : client, c : server ??? */
           name = ox_get_servername(m_c_tab[index].c);
           return strcmp(name,"ox_plot") ? 0 : 1;
   }
   
   int validate_ox_plot_stream(int index)
   {
           int i;
           NODE arg;
           STRING name;
           Obj r;
   
           if ( is_ox_plot(index) )
                   return index;
           for ( i = 0; i < m_c_i; i++ )
                   if ( is_ox_plot(i) )
                           return i;
   
           /* create an ox_plot server */
           MKSTR(name,"ox_plot");
           arg = mknode(2,0,name);
           Pox_launch_nox(arg,&r);
           return QTOS((Q)r);
 }  }
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.33
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>