version 1.9.2.1, 2000/11/08 08:31:55 |
version 1.17, 2004/03/02 02:43:55 |
|
|
* 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.9 2000/11/07 09:31:36 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/ox_launch.c,v 1.16 2001/12/25 02:39:05 noro Exp $ |
*/ |
*/ |
#include <setjmp.h> |
#include <setjmp.h> |
#include <signal.h> |
#include <signal.h> |
Line 76 HANDLE hIntr,hReset,hKill; |
|
Line 76 HANDLE hIntr,hReset,hKill; |
|
static void put_log(char *); |
static void put_log(char *); |
static int which_command(char *,char *); |
static int which_command(char *,char *); |
static int search_command(char *); |
static int search_command(char *); |
static int ox_spawn(char *,int,char *); |
static int ox_spawn(char *,int,char *,int); |
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; |
|
|
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" |
*/ |
*/ |
|
|
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,nolog; |
char *control_port_str,*server_port_str; |
char *control_port_str,*server_port_str; |
char *rhost,*server,*dname; |
char *rhost,*server,*dname; |
|
|
|
|
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 ? 1 : 0; |
|
|
#if defined(VISUAL) |
#if defined(VISUAL) |
init_socket(); |
init_socket(); |
#endif |
#endif |
|
|
signal(SIGINT,SIG_IGN); |
signal(SIGINT,SIG_IGN); |
|
signal(SIGHUP,SIG_IGN); |
#if defined(SIGUSR1) |
#if defined(SIGUSR1) |
signal(SIGUSR1,SIG_IGN); |
signal(SIGUSR1,SIG_IGN); |
#endif |
#endif |
|
#if defined(SIGTERM) |
|
signal(SIGTERM,terminate_server); |
|
#endif |
|
|
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(cs); |
cs = try_accept(use_unix,cs); |
ss = try_accept(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); |
cpid = ox_spawn(server,ss,dname,nolog); |
|
|
while ( 1 ) { |
while ( 1 ) { |
ox_recv(sindex,&id,&obj); |
ox_recv(sindex,&id,&obj); |
Line 220 static void do_cmd(cmd) |
|
Line 230 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: |
|
|
} |
} |
#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; |
|
int 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; |
int newbs; |
|
|
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++ ) |
|
|
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,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,0); |
|
} else if ( strcmp(dname,"0") ) |
|
execl(prog,prog,"-display",dname,0); |
|
else { |
|
putenv("DISPLAY="); |
|
execl(prog,prog,0); |
|
} |
} else |
} else |
execl(prog,prog,"-display",dname,0); |
execl(prog,prog,"-display",dname,0); |
/* On failure */ |
/* On failure */ |
|
|
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 397 static Obj pop_one() { |
|
Line 412 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); |
} |
} |
|
|