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

Diff for /OpenXM_contrib2/asir2000/io/ox_launch.c between version 1.28 and 1.29

version 1.28, 2016/08/27 03:09:03 version 1.29, 2018/03/29 01:32:53
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/ox_launch.c,v 1.27 2016/08/24 05:33:58 ohara Exp $   * $OpenXM: OpenXM_contrib2/asir2000/io/ox_launch.c,v 1.28 2016/08/27 03:09:03 noro Exp $
 */  */
 #include <setjmp.h>  #include <setjmp.h>
 #include <signal.h>  #include <signal.h>
Line 94  static int cpid;
Line 94  static int cpid;
 static void put_log(str)  static void put_log(str)
 char *str;  char *str;
 {  {
         static FILE *logfile;    static FILE *logfile;
   
         if ( !logfile )    if ( !logfile )
                 logfile = fopen("/tmp/ox_log","w");      logfile = fopen("/tmp/ox_log","w");
         fprintf(logfile,"%s\n",str);    fprintf(logfile,"%s\n",str);
         fflush(logfile);    fflush(logfile);
 }  }
   
 /*  /*
         argv[1] : host to connect    argv[1] : host to connect
         argv[2] : if 1, call try_bind_listen and try_accept    argv[2] : if 1, call try_bind_listen and try_accept
                         if 0, call try_connect        if 0, call try_connect
         argv[3] : control_port    argv[3] : control_port
         argv[4] : server_port    argv[4] : server_port
         argv[5] : server    argv[5] : server
         argv[6] : display or "0"    argv[6] : display or "0"
         argv[7] : if exists, it should be "-nolog"    argv[7] : if exists, it should be "-nolog"
         XXX : argv[7] is used to pass the path of engine.exe in Windows.    XXX : argv[7] is used to pass the path of engine.exe in Windows.
 */  */
   
 void launch_main(argc,argv)  void launch_main(argc,argv)
Line 119  int argc;
Line 119  int argc;
 char **argv;  char **argv;
 {  {
 #if !defined(VISUAL) && !defined(__MINGW32__)  #if !defined(VISUAL) && !defined(__MINGW32__)
         Obj p;    Obj p;
         char *name;    char *name;
         char buf[BUFSIZ];    char buf[BUFSIZ];
 #endif  #endif
         int id;    int id;
         Obj obj;    Obj obj;
         int cs,ss;    int cs,ss;
         unsigned int cmd;    unsigned int cmd;
         int use_unix,accept_client;    int use_unix,accept_client;
         char *control_port_str,*server_port_str;    char *control_port_str,*server_port_str;
         char *rhost,*server,*dname,*nolog;    char *rhost,*server,*dname,*nolog;
         char *e,*s;    char *e,*s;
   
         GC_init(); nglob_init();    GC_init(); nglob_init();
         gethostname(hostname,BUFSIZ);    gethostname(hostname,BUFSIZ);
         rhost = argv[1];    rhost = argv[1];
         use_unix = !strcmp(rhost,".") ? 1 : 0;    use_unix = !strcmp(rhost,".") ? 1 : 0;
         accept_client = atoi(argv[2]) ? 1 : 0;    accept_client = atoi(argv[2]) ? 1 : 0;
         control_port_str = argv[3];    control_port_str = argv[3];
         server_port_str = argv[4];    server_port_str = argv[4];
         server = argv[5];    server = argv[5];
         dname = argv[6];    dname = argv[6];
         nolog = argc > 7 ? argv[7]: 0;    nolog = argc > 7 ? argv[7]: 0;
   
 #if defined(VISUAL) || defined(__MINGW32__)  #if defined(VISUAL) || defined(__MINGW32__)
                 init_socket();      init_socket();
 #endif  #endif
   
         set_signal(SIGINT,SIG_IGN);    set_signal(SIGINT,SIG_IGN);
 #if defined(SIGHUP)  #if defined(SIGHUP)
         set_signal(SIGHUP,SIG_IGN);    set_signal(SIGHUP,SIG_IGN);
 #endif  #endif
 #if defined(SIGUSR1)  #if defined(SIGUSR1)
         set_signal(SIGUSR1,SIG_IGN);    set_signal(SIGUSR1,SIG_IGN);
 #endif  #endif
 #if defined(SIGTERM)  #if defined(SIGTERM)
         set_signal(SIGTERM,terminate_server);    set_signal(SIGTERM,terminate_server);
 #endif  #endif
   
         /* XXX a dirty hack */    /* XXX a dirty hack */
         if ( !getenv("LD_LIBRARY_PATH") ) {    if ( !getenv("LD_LIBRARY_PATH") ) {
                 if ( e = getenv("OpenXM_HOME") ) {      if ( e = getenv("OpenXM_HOME") ) {
                         s = (char *)alloca(strlen(e)+100);        s = (char *)alloca(strlen(e)+100);
                         sprintf(s,"LD_LIBRARY_PATH=%s/lib",e);        sprintf(s,"LD_LIBRARY_PATH=%s/lib",e);
                         putenv(s);        putenv(s);
                 }      }
         }    }
   
         if ( accept_client ) {    if ( accept_client ) {
                 cs = try_bind_listen(use_unix,control_port_str);      cs = try_bind_listen(use_unix,control_port_str);
                 ss = try_bind_listen(use_unix,server_port_str);      ss = try_bind_listen(use_unix,server_port_str);
                 cs = try_accept(use_unix,cs);      cs = try_accept(use_unix,cs);
                 ss = try_accept(use_unix,ss);      ss = try_accept(use_unix,ss);
         } else {    } else {
                 cs = try_connect(use_unix,rhost,control_port_str);      cs = try_connect(use_unix,rhost,control_port_str);
                 ss = try_connect(use_unix,rhost,server_port_str);      ss = try_connect(use_unix,rhost,server_port_str);
         }    }
         ox_io_init(cs);    ox_io_init(cs);
         if ( cs < 0 || ss < 0 )    if ( cs < 0 || ss < 0 )
                 launch_error("cannot connect to the client");      launch_error("cannot connect to the client");
         cpid = ox_spawn(server,ss,dname,nolog);    cpid = ox_spawn(server,ss,dname,nolog);
   
         while ( 1 ) {    while ( 1 ) {
                 ox_recv(sindex,&id,&obj);      ox_recv(sindex,&id,&obj);
                 switch ( id ) {      switch ( id ) {
                         case OX_COMMAND:        case OX_COMMAND:
                                 cmd = ((USINT)obj)->body;          cmd = ((USINT)obj)->body;
                                 do_cmd(cmd);          do_cmd(cmd);
                                 break;          break;
                         case OX_DATA:        case OX_DATA:
                                 push_one(obj);          push_one(obj);
                                 break;          break;
                         case OX_SYNC_BALL:        case OX_SYNC_BALL:
                                 break;          break;
                         default:        default:
                                 break;          break;
                 }      }
         }    }
 }  }
   
 #if defined(VISUAL) || defined(__MINGW32__)  #if defined(VISUAL) || defined(__MINGW32__)
 static void do_cmd(cmd)  static void do_cmd(cmd)
 int cmd;  int cmd;
 {  {
         USINT t;    USINT t;
   
         switch ( cmd ) {    switch ( cmd ) {
                 case SM_shutdown:      case SM_shutdown:
                         SetEvent(hKill);        SetEvent(hKill);
                         ExitProcess(0);        ExitProcess(0);
                         break;        break;
                 case SM_control_intr:      case SM_control_intr:
                         SetEvent(hIntr);        SetEvent(hIntr);
                         break;        break;
                 case SM_control_kill:      case SM_control_kill:
                         SetEvent(hKill);        SetEvent(hKill);
                         break;        break;
                 case SM_control_reset_connection:      case SM_control_reset_connection:
 #if 0  #if 0
       /* XXX obsolete */        /* XXX obsolete */
                         MKUSINT(t,0);        MKUSINT(t,0);
                         ox_send_data(sindex,t);        ox_send_data(sindex,t);
 #endif  #endif
                         SetEvent(hReset);        SetEvent(hReset);
                         break;        break;
                 default:      default:
                         break;        break;
         }    }
 }  }
 #else  #else
 static void do_cmd(cmd)  static void do_cmd(cmd)
 int cmd;  int cmd;
 {  {
         USINT t;    USINT t;
         int id,cindex;    int id,cindex;
         int bport,sport;    int bport,sport;
         int bs,bs0;    int bs,bs0;
         int status;    int status;
         STRING prog,dname;    STRING prog,dname;
   
         switch ( cmd ) {    switch ( cmd ) {
                 case SM_shutdown:      case SM_shutdown:
                         kill(cpid,SIGKILL);        kill(cpid,SIGKILL);
                         exit(0); break;        exit(0); break;
                 case SM_control_intr:      case SM_control_intr:
                         kill(cpid,SIGINT);        kill(cpid,SIGINT);
                         break;        break;
                 case SM_control_kill:      case SM_control_kill:
                         kill(cpid,SIGKILL);        kill(cpid,SIGKILL);
                         break;        break;
                 case SM_control_reset_connection:      case SM_control_reset_connection:
 #if 0  #if 0
       /* XXX obsolete */        /* XXX obsolete */
                         MKUSINT(t,0);        MKUSINT(t,0);
                         ox_send_data(sindex,t);        ox_send_data(sindex,t);
 #endif  #endif
                         kill(cpid,SIGUSR1);        kill(cpid,SIGUSR1);
                         break;        break;
                 default:      default:
                         break;        break;
         }    }
 }  }
 #endif  #endif
   
Line 270  char *dname;
Line 270  char *dname;
 char *nolog;  char *nolog;
 {  {
 #if defined(VISUAL) || defined(__MINGW32__)  #if defined(VISUAL) || defined(__MINGW32__)
         char *av[BUFSIZ];    char *av[BUFSIZ];
         char sock_id[BUFSIZ],ox_intr[BUFSIZ],ox_reset[BUFSIZ],ox_kill[BUFSIZ];    char sock_id[BUFSIZ],ox_intr[BUFSIZ],ox_reset[BUFSIZ],ox_kill[BUFSIZ];
         char AsirExe[BUFSIZ];    char AsirExe[BUFSIZ];
         int hProc;    int hProc;
         STRING rootdir;    STRING rootdir;
         int mypid;    int mypid;
         int newbs;    int newbs;
   
         DuplicateHandle(GetCurrentProcess(),(HANDLE)bs,    DuplicateHandle(GetCurrentProcess(),(HANDLE)bs,
                                         GetCurrentProcess(),(HANDLE *)&newbs,            GetCurrentProcess(),(HANDLE *)&newbs,
                                         0,TRUE,DUPLICATE_SAME_ACCESS);            0,TRUE,DUPLICATE_SAME_ACCESS);
         closesocket(bs);    closesocket(bs);
         bs = newbs;    bs = newbs;
   
         mypid = GetCurrentProcessId();    mypid = GetCurrentProcessId();
         sprintf(ox_intr,"ox_intr_%d",mypid);    sprintf(ox_intr,"ox_intr_%d",mypid);
         sprintf(ox_reset,"ox_reset_%d",mypid);    sprintf(ox_reset,"ox_reset_%d",mypid);
         sprintf(ox_kill,"ox_kill_%d",mypid);    sprintf(ox_kill,"ox_kill_%d",mypid);
         hIntr = CreateEvent(NULL,TRUE,FALSE,ox_intr);    hIntr = CreateEvent(NULL,TRUE,FALSE,ox_intr);
         hReset = CreateEvent(NULL,TRUE,FALSE,ox_reset);    hReset = CreateEvent(NULL,TRUE,FALSE,ox_reset);
         hKill = CreateEvent(NULL,TRUE,FALSE,ox_kill);    hKill = CreateEvent(NULL,TRUE,FALSE,ox_kill);
         sprintf(sock_id,"%d",bs);    sprintf(sock_id,"%d",bs);
         av[0] = prog;    av[0] = prog;
         av[1] = sock_id;    av[1] = sock_id;
         av[2] = dname; /* if dname == "1" then a message window is opened */    av[2] = dname; /* if dname == "1" then a message window is opened */
         av[3] = ox_intr;    av[3] = ox_intr;
         av[4] = ox_reset;    av[4] = ox_reset;
         av[5] = ox_kill;    av[5] = ox_kill;
         av[6] = NULL;    av[6] = NULL;
         if ( nolog ) {    if ( nolog ) {
                 sprintf(AsirExe,"\"%s\"",nolog);      sprintf(AsirExe,"\"%s\"",nolog);
                 strcpy(AsirExe,nolog);      strcpy(AsirExe,nolog);
         } else {    } else {
                 Pget_rootdir(&rootdir);      Pget_rootdir(&rootdir);
                 sprintf(AsirExe,"%s\\bin\\engine.exe",BDY(rootdir));      sprintf(AsirExe,"%s\\bin\\engine.exe",BDY(rootdir));
         }    }
 #if _MSC_VER < 1400  #if _MSC_VER < 1400
         _fileinfo = 1;    _fileinfo = 1;
 #endif  #endif
         hProc = _spawnv(_P_NOWAIT,AsirExe,av);    hProc = _spawnv(_P_NOWAIT,AsirExe,av);
         return (int)hProc;    return (int)hProc;
 #else /* VISUAL */  #else /* VISUAL */
         int b,s,i;    int b,s,i;
         struct hostent *hp;    struct hostent *hp;
         int pid;    int pid;
         char wname[BUFSIZ];    char wname[BUFSIZ];
         char buf[BUFSIZ];    char buf[BUFSIZ];
         char errcode;    char errcode;
   
         pid = fork();    pid = fork();
         if ( pid ) {    if ( pid ) {
                 return pid;      return pid;
         } else {    } else {
                 setpgid(0,getpid());      setpgid(0,getpid());
                 if ( bs != 3 && dup2(bs,3) != 3 )      if ( bs != 3 && dup2(bs,3) != 3 )
                         exit(1);        exit(1);
                 if ( bs != 4 && dup2(bs,4) != 4 )      if ( bs != 4 && dup2(bs,4) != 4 )
                         exit(1);        exit(1);
                 {      {
 #if defined(linux) || defined(__NeXT__) || defined(ultrix) || defined(__CYGWIN__)  #if defined(linux) || defined(__NeXT__) || defined(ultrix) || defined(__CYGWIN__)
 #include <sys/param.h>  #include <sys/param.h>
                         close(0);        close(0);
                         for ( i = 5; i < NOFILE; i++ )        for ( i = 5; i < NOFILE; i++ )
                                 close(i);          close(i);
 #else  #else
 #include <sys/resource.h>  #include <sys/resource.h>
                         struct rlimit rl;        struct rlimit rl;
   
                         getrlimit(RLIMIT_NOFILE,&rl);        getrlimit(RLIMIT_NOFILE,&rl);
                         close(0);        close(0);
                         for ( i = 5; i < rl.rlim_cur; i++ )        for ( i = 5; i < rl.rlim_cur; i++ )
                                 close(i);          close(i);
 #endif  #endif
                 }      }
                 if ( !nolog && !strcmp(dname,"1" ) ) /* XXX: for ssh */      if ( !nolog && !strcmp(dname,"1" ) ) /* XXX: for ssh */
                         execl(prog,prog,(char *)0);        execl(prog,prog,(char *)0);
                 else if ( nolog || !strcmp(dname,"0") ) {      else if ( nolog || !strcmp(dname,"0") ) {
                         FILE *null;        FILE *null;
   
                         null = fopen("/dev/null","wb");        null = fopen("/dev/null","wb");
                         dup2(fileno(null),1);        dup2(fileno(null),1);
                         dup2(fileno(null),2);        dup2(fileno(null),2);
                         if ( !strcmp(dname,"1") ) {        if ( !strcmp(dname,"1") ) {
                                 /* XXX */          /* XXX */
                                 putenv("DISPLAY=");          putenv("DISPLAY=");
                                 execl(prog,prog,(char *)0);          execl(prog,prog,(char *)0);
                         } else if ( strcmp(dname,"0") )        } else if ( strcmp(dname,"0") )
                                 execl(prog,prog,"-display",dname,(char *)0);          execl(prog,prog,"-display",dname,(char *)0);
                         else {        else {
                                 putenv("DISPLAY=");          putenv("DISPLAY=");
                                 execl(prog,prog,(char *)0);          execl(prog,prog,(char *)0);
                         }        }
                 } else      } else
                         execl(prog,prog,"-display",dname,(char *)0);        execl(prog,prog,"-display",dname,(char *)0);
                 /* On failure */      /* On failure */
                 errcode = 2;      errcode = 2;
                 write(4,&errcode,1);      write(4,&errcode,1);
                 exit(1);      exit(1);
         }    }
 #endif  #endif
 }  }
   
 static void launch_error(s)  static void launch_error(s)
 char *s;  char *s;
 {  {
         exit(0);    exit(0);
 }  }
   
 static void ox_io_init(sock)  static void ox_io_init(sock)
 int sock;  int sock;
 {  {
         endian_init();    endian_init();
         /* server mode */    /* server mode */
         sindex = get_iofp(sock,0,1);    sindex = get_iofp(sock,0,1);
         asir_OperandStack = (Obj *)CALLOC(BUFSIZ,sizeof(Obj));    asir_OperandStack = (Obj *)CALLOC(BUFSIZ,sizeof(Obj));
         asir_OperandStackPtr = -1;    asir_OperandStackPtr = -1;
 }  }
   
 static void push_one(obj)  static void push_one(obj)
 Obj obj;  Obj obj;
 {  {
         if ( !obj || OID(obj) != O_VOID )    if ( !obj || OID(obj) != O_VOID )
                 asir_OperandStack[++asir_OperandStackPtr] = obj;      asir_OperandStack[++asir_OperandStackPtr] = obj;
 }  }
   
 static Obj pop_one() {  static Obj pop_one() {
         if ( asir_OperandStackPtr >= 0 ) {    if ( asir_OperandStackPtr >= 0 ) {
                 return asir_OperandStack[asir_OperandStackPtr--];      return asir_OperandStack[asir_OperandStackPtr--];
         }    }
 }  }
   
 static void terminate_server(int sig)  static void terminate_server(int sig)
 {  {
 #if defined(SIGKILL)  #if defined(SIGKILL)
         kill(cpid,SIGKILL);    kill(cpid,SIGKILL);
 #endif  #endif
         exit(0);    exit(0);
 }  }
   
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>