[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.6 and 1.23

version 1.6, 2000/09/25 04:33:37 version 1.23, 2010/09/01 08:01:09
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.5 2000/09/23 00:57:43 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/io/ox_launch.c,v 1.22 2009/03/03 14:57:32 ohara Exp $
 */  */
 #include <setjmp.h>  #include <setjmp.h>
 #include <signal.h>  #include <signal.h>
Line 53 
Line 53 
 #include "com.h"  #include "com.h"
 #include "ox.h"  #include "ox.h"
 #if defined(VISUAL)  #if defined(VISUAL)
   #include <stdlib.h>
 #include <windows.h>  #include <windows.h>
 #include <io.h>  #include <io.h>
 #include <fcntl.h>  #include <fcntl.h>
Line 73  HANDLE hIntr,hReset,hKill;
Line 74  HANDLE hIntr,hReset,hKill;
 #endif  #endif
   
 static void put_log(char *);  static void put_log(char *);
 static int which_command(char *,char *);  static int ox_spawn(char *,int,char *,char *);
 static int search_command(char *);  
 static int ox_spawn(char *,int,char *);  
 static void launch_error(char *);  static void launch_error(char *);
 static int ox_io_init(int);  static void ox_io_init(int);
 static void push_one(Obj);  static void push_one(Obj);
 static Obj pop_one();  static Obj pop_one();
 static void do_cmd(int);  static void do_cmd(int);
   static void terminate_server();
   
 static Obj *asir_OperandStack;  static Obj *asir_OperandStack;
 static int asir_OperandStackPtr;  static int asir_OperandStackPtr;
Line 101  char *str;
Line 101  char *str;
         fflush(logfile);          fflush(logfile);
 }  }
   
 #if !defined(VISUAL)  
 static int which_command(com,file)  
 char *com,*file;  
 {  
         char *c,*s;  
         int len;  
         char dir[BUFSIZ],path[BUFSIZ];  
   
         for ( s = (char *)getenv("PATH"); s; ) {  
                 c = (char *)index(s,':');  
                 if ( c ) {  
                         len = c-s;  
                         strncpy(dir,s,len); s = c+1; dir[len] = 0;  
                 } else {  
                         strcpy(dir,s); s = 0;  
                 }  
                 sprintf(path,"%s/%s",dir,com);  
                 if ( search_command(path) ) {  
                         strcpy(file,path); return 1;  
                 }  
         }  
         file[0] = 0; return 0;  
 }  
   
 static int search_command(file)  
 char *file;  
 {  
         struct stat buf;  
   
         if ( stat(file,&buf) || (buf.st_mode & S_IFDIR) )  
                 return 0;  
         if ( access(file,X_OK) )  
                 return 0;  
         else  
                 return 1;  
 }  
 #endif  
   
 /*  /*
         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
Line 147  char *file;
Line 109  char *file;
         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"
           XXX : argv[7] is used to pass the path of engine.exe in Windows.
 */  */
   
 void launch_main(argc,argv)  void launch_main(argc,argv)
 int argc;  int argc;
 char **argv;  char **argv;
 {  {
         int id;  #if !defined(VISUAL)
         Obj p,obj;          Obj p;
         char *name;          char *name;
         char buf[BUFSIZ];          char buf[BUFSIZ];
   #endif
           int id;
           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;          char *rhost,*server,*dname,*nolog;
           char *e,*s;
   
         GC_init(); nglob_init();          GC_init(); nglob_init();
         gethostname(hostname,BUFSIZ);          gethostname(hostname,BUFSIZ);
Line 172  char **argv;
Line 140  char **argv;
         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;
   
 #if defined(VISUAL)  #if defined(VISUAL)
                 init_socket();                  init_socket();
 #endif  #endif
   
         signal(SIGINT,SIG_IGN);          signal(SIGINT,SIG_IGN);
   #if defined(SIGHUP)
           signal(SIGHUP,SIG_IGN);
   #endif
 #if defined(SIGUSR1)  #if defined(SIGUSR1)
         signal(SIGUSR1,SIG_IGN);          signal(SIGUSR1,SIG_IGN);
 #endif  #endif
   #if defined(SIGTERM)
           signal(SIGTERM,terminate_server);
   #endif
   
           /* XXX a dirty hack */
           if ( !getenv("LD_LIBRARY_PATH") ) {
                   if ( e = getenv("OpenXM_HOME") ) {
                           s = (char *)alloca(strlen(e)+100);
                           sprintf(s,"LD_LIBRARY_PATH=%s/lib",e);
                           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);
Line 194  char **argv;
Line 178  char **argv;
         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);          cpid = ox_spawn(server,ss,dname,nolog);
   
         while ( 1 ) {          while ( 1 ) {
                 ox_recv(sindex,&id,&obj);                  ox_recv(sindex,&id,&obj);
Line 219  static void do_cmd(cmd)
Line 203  static void do_cmd(cmd)
 int cmd;  int cmd;
 {  {
         USINT t;          USINT t;
         int id,cindex;  
         int bport,sport;  
         int bs,bs0;  
         STRING prog,dname;  
   
         switch ( cmd ) {          switch ( cmd ) {
                 case SM_shutdown:                  case SM_shutdown:
                         SetEvent(hKill);                          SetEvent(hKill);
                         exit(0); break;                          ExitProcess(0);
                           break;
                 case SM_control_intr:                  case SM_control_intr:
                         SetEvent(hIntr);                          SetEvent(hIntr);
                         break;                          break;
Line 275  int cmd;
Line 256  int cmd;
 }  }
 #endif  #endif
   
 static int ox_spawn(prog,bs,dname)  static int ox_spawn(prog,bs,dname,nolog)
 char *prog;  char *prog;
 int bs;  int bs;
 char *dname;  char *dname;
   char *nolog;
 {  {
 #if defined(VISUAL)  #if defined(VISUAL)
         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];
         HANDLE hProc;          int hProc;
         STRING rootdir;          STRING rootdir;
         int mypid;          int mypid;
           int newbs;
   
           DuplicateHandle(GetCurrentProcess(),(HANDLE)bs,
                                           GetCurrentProcess(),(HANDLE *)&newbs,
                                           0,TRUE,DUPLICATE_SAME_ACCESS);
           close(bs);
           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);
Line 298  char *dname;
Line 287  char *dname;
         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] = ox_intr;          av[2] = dname; /* if dname == "1" then a message window is opened */
         av[3] = ox_reset;          av[3] = ox_intr;
         av[4] = ox_kill;          av[4] = ox_reset;
         av[5] = NULL;          av[5] = ox_kill;
         Pget_rootdir(&rootdir);          av[6] = NULL;
         sprintf(AsirExe,"%s\\bin\\engine.exe",BDY(rootdir));          if ( nolog ) {
                   sprintf(AsirExe,"\"%s\"",nolog);
                   strcpy(AsirExe,nolog);
           } else {
                   Pget_rootdir(&rootdir);
                   sprintf(AsirExe,"%s\\bin\\engine.exe",BDY(rootdir));
           }
   #if _MSC_VER < 1400
           _fileinfo = 1;
   #endif
         hProc = _spawnv(_P_NOWAIT,AsirExe,av);          hProc = _spawnv(_P_NOWAIT,AsirExe,av);
         return (int)hProc;          return (int)hProc;
 #else /* VISUAL */  #else /* VISUAL */
Line 315  char *dname;
Line 313  char *dname;
         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 ( dup2(bs,3) != 3 )                  if ( bs != 3 && dup2(bs,3) != 3 )
                         exit(1);                          exit(1);
                 if ( dup2(bs,4) != 4 )                  if ( bs != 4 && dup2(bs,4) != 4 )
                         exit(1);                          exit(1);
                 {                  {
 #if defined(linux) || defined(__NeXT__) || defined(ultrix)  #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++ )
Line 339  char *dname;
Line 337  char *dname;
                                 close(i);                                  close(i);
 #endif  #endif
                 }                  }
                 if ( !strcmp(dname,"1" ) ) /* XXX: for ssh */                  if ( !nolog && !strcmp(dname,"1" ) ) /* XXX: for ssh */
                         execl(prog,prog,0);                          execl(prog,prog,(char *)0);
                 else if ( !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);
                         putenv("DISPLAY=");                          if ( !strcmp(dname,"1") ) {
                         execl(prog,prog,0);                                  /* XXX */
                                   putenv("DISPLAY=");
                                   execl(prog,prog,(char *)0);
                           } else if ( strcmp(dname,"0") )
                                   execl(prog,prog,"-display",dname,(char *)0);
                           else {
                                   putenv("DISPLAY=");
                                   execl(prog,prog,(char *)0);
                           }
                 } else                  } else
                         execl(prog,prog,"-display",dname,0);                          execl(prog,prog,"-display",dname,(char *)0);
                 /* On failure */                  /* On failure */
                 errcode = 2;                  errcode = 2;
                 write(4,&errcode,1);                  write(4,&errcode,1);
Line 365  char *s;
Line 371  char *s;
         exit(0);          exit(0);
 }  }
   
 static int ox_io_init(sock)  static void ox_io_init(sock)
 int sock;  int sock;
 {  {
         endian_init();          endian_init();
Line 386  static Obj pop_one() {
Line 392  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)
   {
   #if defined(SIGKILL)
           kill(cpid,SIGKILL);
   #endif
           exit(0);
 }  }
   
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.23
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>