version 1.11, 2003/12/03 03:21:16 |
version 1.26, 2004/03/05 06:26:52 |
|
|
/* $OpenXM: OpenXM/src/util/ox_pathfinder.c,v 1.10 2003/12/01 03:15:37 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/util/ox_pathfinder.c,v 1.25 2004/03/04 12:22:47 takayama Exp $ */ |
/* Moved from misc-2003/07/cygwin/test.c */ |
/* Moved from misc-2003/07/cygwin/test.c */ |
|
|
#include <stdio.h> |
#include <stdio.h> |
|
|
#include <string.h> |
#include <string.h> |
#include "ox_pathfinder.h" |
#include "ox_pathfinder.h" |
|
|
|
int OX_P_stdin = -1; |
|
int OX_P_stdout = -1; |
|
int OX_P_stderr = -1; |
|
|
extern char **environ; |
extern char **environ; |
|
|
static int getOStypei(); |
static int getOStypei(); |
Line 31 static void msgPathFinder(char *s); |
|
Line 35 static void msgPathFinder(char *s); |
|
|
|
|
|
static int Verbose_get_home = 0; |
static int Verbose_get_home = 0; |
|
static int Verbose = 1; |
static int NoX = 0; |
static int NoX = 0; |
|
|
|
|
Line 58 int ox_pathfinderVerbose(int f) { |
|
Line 63 int ox_pathfinderVerbose(int f) { |
|
if (f < 0) return Verbose_get_home; |
if (f < 0) return Verbose_get_home; |
Verbose_get_home = f; |
Verbose_get_home = f; |
return f; |
return f; |
} |
} /* cf. ox_pathfinder_quiet() */ |
|
|
/* test main */ |
/* test main */ |
/* |
/* |
Line 111 static void myforkwait() { |
|
Line 116 static void myforkwait() { |
|
int status; |
int status; |
int pid; |
int pid; |
int i,j; |
int i,j; |
signal(SIGCHLD,SIG_IGN); |
/* signal(SIGCHLD,SIG_IGN); It is not allowed in posix */ |
pid = wait(&status); |
pid = wait(&status); |
fprintf(stderr,"Child process %d is exiting.\n",pid); |
if (Verbose) fprintf(stderr,"Child process %d is exiting.\n",pid); |
|
if (pid < 0) { |
|
perror("wait"); |
|
} |
for (i=0; i<Myforkcp; i++) { |
for (i=0; i<Myforkcp; i++) { |
if (Myforkchildren[i] == pid) { |
if (Myforkchildren[i] == pid) { |
for (j=i; j<Myforkcp-1; j++) { |
for (j=i; j<Myforkcp-1; j++) { |
Line 134 int oxForkExec(char **argv) { |
|
Line 142 int oxForkExec(char **argv) { |
|
fprintf(stderr,"Cannot fork and exec.\n"); return -1; |
fprintf(stderr,"Cannot fork and exec.\n"); return -1; |
} |
} |
if ((pid = fork()) > 0) { |
if ((pid = fork()) > 0) { |
|
oxResetRedirect(); |
if (m&2) { |
if (m&2) { |
/* Do not call singal to turn around a trouble on cygwin. BUG. */ |
/* Do not call singal to turn around a trouble on cygwin. BUG. */ |
}else{ |
}else{ |
Line 155 int oxForkExec(char **argv) { |
|
Line 164 int oxForkExec(char **argv) { |
|
if (NoX) { |
if (NoX) { |
FILE *null; |
FILE *null; |
null = fopen("/dev/null","wb"); |
null = fopen("/dev/null","wb"); |
dup2(fileno(null),1); |
if (OX_P_stdout >= 0) dup2(OX_P_stdout,1); else dup2(fileno(null),1); |
dup2(fileno(null),2); |
if (OX_P_stderr >= 0) dup2(OX_P_stderr,2); else dup2(fileno(null),2); |
|
}else{ |
|
if (OX_P_stdout >= 0) dup2(OX_P_stdout,1); |
|
if (OX_P_stderr >= 0) dup2(OX_P_stderr,2); |
} |
} |
|
if (OX_P_stdin >= 0) dup2(OX_P_stdin,0); |
execve(argv[0],argv,environ); |
execve(argv[0],argv,environ); |
/* This place will never be reached unless execv fails. */ |
/* This place will never be reached unless execv fails. */ |
fprintf(stderr,"oxForkExec fails: "); |
fprintf(stderr,"oxForkExec fails: "); |
Line 170 int oxForkExecBlocked(char **argv) { |
|
Line 183 int oxForkExecBlocked(char **argv) { |
|
char **eee; |
char **eee; |
int m; |
int m; |
int status; |
int status; |
m = 0; |
|
if (argv == NULL) { |
if (argv == NULL) { |
fprintf(stderr,"Cannot fork and exec.\n"); return -1; |
fprintf(stderr,"Cannot fork and exec.\n"); return -1; |
} |
} |
if ((pid = fork()) > 0) { |
if ((pid = fork()) > 0) { |
if (m&2) { |
oxResetRedirect(); |
/* Do not call singal to turn around a trouble on cygwin. BUG. */ |
|
}else{ |
|
signal(SIGCHLD,myforkwait); /* to kill Zombie */ |
|
} |
|
Myforkchildren[Myforkcp++] = pid; |
Myforkchildren[Myforkcp++] = pid; |
if (Myforkcp >= MYFORKCP_SIZE-1) { |
if (Myforkcp >= MYFORKCP_SIZE-1) { |
fprintf(stderr,"Child process table is full.\n"); |
fprintf(stderr,"Child process table is full.\n"); |
Myforkcp = 0; |
Myforkcp = 0; |
} |
} |
waitpid(pid,&status,0); /* block */ |
if (waitpid(pid,&status,0) < 0) { /* blocked */ |
|
perror("waitpid"); |
|
} |
|
Myforkcp--; |
return status; |
return status; |
}else{ |
}else{ |
/* close the specified files */ |
/* close the specified files */ |
Line 198 int oxForkExecBlocked(char **argv) { |
|
Line 209 int oxForkExecBlocked(char **argv) { |
|
if (NoX) { |
if (NoX) { |
FILE *null; |
FILE *null; |
null = fopen("/dev/null","wb"); |
null = fopen("/dev/null","wb"); |
dup2(fileno(null),1); |
if (OX_P_stdout >= 0) dup2(OX_P_stdout,1); else dup2(fileno(null),1); |
dup2(fileno(null),2); |
if (OX_P_stderr >= 0) dup2(OX_P_stderr,2); else dup2(fileno(null),2); |
|
}else{ |
|
if (OX_P_stdout >= 0) dup2(OX_P_stdout,1); |
|
if (OX_P_stderr >= 0) dup2(OX_P_stderr,2); |
} |
} |
|
if (OX_P_stdin >= 0) dup2(OX_P_stdin,0); |
execve(argv[0],argv,environ); |
execve(argv[0],argv,environ); |
/* This place will never be reached unless execv fails. */ |
/* This place will never be reached unless execv fails. */ |
fprintf(stderr,"oxForkExecBlock fails: "); |
fprintf(stderr,"oxForkExecBlock fails: "); |
Line 562 char **getServerEnv(char *oxServer) { |
|
Line 577 char **getServerEnv(char *oxServer) { |
|
int ostype; |
int ostype; |
char *p; |
char *p; |
char *oxhome; |
char *oxhome; |
char *xterm; |
char *oxterm; |
|
int oxtermType=0; |
|
char *oxtermOpt; |
char *oxlog; |
char *oxlog; |
char *load_sm1_path; |
char *load_sm1_path; |
char *load_k0_path; |
char *load_k0_path; |
Line 605 char **getServerEnv(char *oxServer) { |
|
Line 622 char **getServerEnv(char *oxServer) { |
|
strcpy(oxServer,p); |
strcpy(oxServer,p); |
|
|
if ((ostype == 0) || (ostype == 2)) { |
if ((ostype == 0) || (ostype == 2)) { |
if (!NoX) { |
|
xterm = "/usr/X11R6/bin/xterm"; |
|
if (getFileSize(xterm) == -1) { |
|
msg_get_home(2,"xterm is not found. NoX is automatically set."); |
|
NoX = 1; |
|
} |
|
} |
|
oxlog = get_oxlog_path(); |
oxlog = get_oxlog_path(); |
xterm = "/usr/X11R6/bin/xterm -icon -e "; |
if (!NoX) { |
|
oxterm = oxTermWhich_unix(&oxtermType); |
|
if (oxterm == NULL) { |
|
msg_get_home(2,"oxterm, rxvt, xterm is not found. NoX is automatically set."); |
|
NoX = 1; |
|
} |
|
if (oxtermType == T_XTERM) oxtermOpt = "-icon"; |
|
else oxtermOpt = "-iconic"; |
|
} |
argv[i] = oxlog; i++; argv[i] = NULL; |
argv[i] = oxlog; i++; argv[i] = NULL; |
if (!NoX) { |
if (!NoX) { |
argv[i] = "/usr/X11R6/bin/xterm"; i++; argv[i] = NULL; |
argv[i] = oxterm ; i++; argv[i] = NULL; |
argv[i] = "-icon"; i++; argv[i] = NULL; |
if (((char *)getenv("OX_XTERM_GEOMETRY")) != NULL) { |
|
/* ex. OX_XTERM_GEOMETRY=80x20+0+0 */ |
|
argv[i] = "-geometry"; i++; argv[i] = NULL; |
|
argv[i] = (char *) getenv("OX_XTERM_GEOMETRY"); i++; argv[i] = NULL; |
|
}else{ |
|
argv[i] = oxtermOpt; i++; argv[i] = NULL; |
|
} |
|
/* dirty hack for buggy international xterm cf. OpenXM FAQ */ |
|
argv[i] = "-xrm"; i++; argv[i] = NULL; |
|
argv[i] = "XTerm*locale:false"; i++; argv[i] = NULL; |
|
|
|
if (((char *)getenv("OX_XTERM_SCROLL")) != NULL) { |
|
argv[i] = "-sb"; i++; argv[i] = NULL; |
|
argv[i] = "-sl"; i++; argv[i] = NULL; |
|
argv[i] = (char *) getenv("OX_XTERM_SCROLL"); i++; argv[i] = NULL; |
|
} |
argv[i] = "-e"; i++; argv[i] = NULL; |
argv[i] = "-e"; i++; argv[i] = NULL; |
} |
} |
argv[i] = get_ox_path(); i++; argv[i] = NULL; |
argv[i] = get_ox_path(); i++; argv[i] = NULL; |
Line 626 char **getServerEnv(char *oxServer) { |
|
Line 659 char **getServerEnv(char *oxServer) { |
|
}else{ |
}else{ |
if (!NoX) { |
if (!NoX) { |
if (getFileSize("/cygdrive/c/winnt/system32/cmd.exe") >= 0) { |
if (getFileSize("/cygdrive/c/winnt/system32/cmd.exe") >= 0) { |
xterm = "/cygdrive/c/winnt/system32/cmd.exe /c start /min "; |
oxterm = "/cygdrive/c/winnt/system32/cmd.exe /c start /min "; |
argv[i] = "/cygdrive/c/winnt/system32/cmd.exe"; i++; argv[i] = NULL; |
argv[i] = "/cygdrive/c/winnt/system32/cmd.exe"; i++; argv[i] = NULL; |
}else if (getFileSize("/cygdrive/c/windows/system32/cmd.exe") >= 0) { |
}else if (getFileSize("/cygdrive/c/windows/system32/cmd.exe") >= 0) { |
xterm = "/cygdrive/c/windows/system32/cmd.exe /c start /min "; |
oxterm = "/cygdrive/c/windows/system32/cmd.exe /c start /min "; |
argv[i] = "/cygdrive/c/windows/system32/cmd.exe"; i++; argv[i] = NULL; |
argv[i] = "/cygdrive/c/windows/system32/cmd.exe"; i++; argv[i] = NULL; |
}else{ |
}else{ |
msg_get_home(2,"cmd.exe is not found. NoX is automatically set."); |
msg_get_home(2,"cmd.exe is not found. NoX is automatically set."); |
Line 869 char *generateTMPfileName2(char *seed,char *ext,int us |
|
Line 902 char *generateTMPfileName2(char *seed,char *ext,int us |
|
static int prevnum=0; |
static int prevnum=0; |
int i; |
int i; |
int clean = 0; |
int clean = 0; |
|
char *extold; |
|
if (ext == NULL) ext=""; |
|
else { |
|
extold = ext; |
|
ext = (char *) mymalloc(strlen(ext)+3); |
|
if (ext == NULL) {fprintf(stderr,"No more memory.\n"); return NULL;} |
|
strcpy(ext,"."); |
|
strcat(ext,extold); |
|
} |
if (usetmp) { |
if (usetmp) { |
tmp = getenv("TMP"); |
tmp = getenv("TMP"); |
if (tmp == NULL) { |
if (tmp == NULL) { |
tmp = getenv("TEMP"); |
tmp = getenv("TEMP"); |
} |
} |
if ((tmp == NULL) && (strcmp(getOStypes(),"Windows-native") != 0)) { |
if ((tmp == NULL) && (strcmp(getOStypes(),"Windows-native") != 0)) { |
tmp = "/tmp"; |
tmp = "/tmp"; |
} |
} |
tmp = winPathToCygwinPath(tmp); |
tmp = winPathToCygwinPath(tmp); |
}else{ |
}else{ |
tmp = NULL; |
tmp = NULL; |
} |
} |
if (tmp != NULL) { |
if (tmp != NULL) { |
fname = (char *)mymalloc(strlen(tmp)+strlen(seed)+40); |
fname = (char *)mymalloc(strlen(tmp)+strlen(seed)+40); |
Line 890 char *generateTMPfileName2(char *seed,char *ext,int us |
|
Line 932 char *generateTMPfileName2(char *seed,char *ext,int us |
|
} |
} |
for (num=prevnum+1; num <MAXTMP2; num++) { |
for (num=prevnum+1; num <MAXTMP2; num++) { |
if (tmp != NULL) { |
if (tmp != NULL) { |
sprintf(fname,"%s/%s-tmp-%d.%s",tmp,seed,num,ext); |
sprintf(fname,"%s/%s-tmp-%d%s",tmp,seed,num,ext); |
}else{ |
}else{ |
sprintf(fname,"%s-tmp-%d.%s",seed,num,ext); |
sprintf(fname,"%s-tmp-%d%s",seed,num,ext); |
} |
} |
if (getFileSize(fname) < 0) { |
if (getFileSize(fname) < 0) { |
prevnum = num; |
prevnum = num; |
if (win) fname= cygwinPathToWinPath(fname); |
if (win) fname= cygwinPathToWinPath(fname); |
return fname; |
return fname; |
} else { |
} else { |
if ((num > MAXTMP2-10) && (!clean)) { |
if ((num > MAXTMP2-10) && (!clean)) { |
/* Clean the old garbages. */ |
/* Clean the old garbages. */ |
for (i=0; i<MAXTMP2; i++) { |
for (i=0; i<MAXTMP2; i++) { |
if (tmp != NULL) { |
if (tmp != NULL) { |
sprintf(fname,"%s/%s-tmp-%d.%s",tmp,seed,i,ext); |
sprintf(fname,"%s/%s-tmp-%d%s",tmp,seed,i,ext); |
}else{ |
}else{ |
sprintf(fname,"%s-tmp-%d.%s",seed,i,ext); |
sprintf(fname,"%s-tmp-%d%s",seed,i,ext); |
} |
} |
{ |
{ |
struct stat buf; |
struct stat buf; |
Line 962 char *getCommandPath(char *cmdname) |
|
Line 1004 char *getCommandPath(char *cmdname) |
|
/* Use /cygdrive format always. */ |
/* Use /cygdrive format always. */ |
if (cmdname == NULL) return NULL; |
if (cmdname == NULL) return NULL; |
if (strlen(cmdname) < 1) { |
if (strlen(cmdname) < 1) { |
errorPathFinder("getCommandPath: cmdname is an empty string.\n"); |
errorPathFinder("getCommandPath: cmdname is an empty string.\n"); |
return NULL; |
return NULL; |
} |
} |
if (cmdname[0] == '/') { |
if (cmdname[0] == '/') { |
if (getFileSize(cmdname) >= 0) { /* Todo: isExecutableFile() */ |
if (getFileSize(cmdname) >= 0) { /* Todo: isExecutableFile() */ |
}else{ |
}else{ |
msg = (char *)mymalloc(strlen(cmdname)+30); |
msg = (char *)mymalloc(strlen(cmdname)+30); |
sprintf(msg,"getCommandPath: %s is not found."); |
sprintf(msg,"getCommandPath: %s is not found."); |
errorPathFinder(msg); |
errorPathFinder(msg); |
return NULL; |
return NULL; |
} |
} |
return cmdname; |
return cmdname; |
} |
} |
|
|
path = getOpenXM_HOME(); /* It will return /cygdrive for windows. */ |
path = getOpenXM_HOME(); /* It will return /cygdrive for windows. */ |
if (path != NULL) { |
if (path != NULL) { |
path2 = (char *)mymalloc(strlen(path)+5); |
path2 = (char *)mymalloc(strlen(path)+5); |
strcpy(path2,path); |
strcpy(path2,path); |
strcat(path2,"bin"); |
strcat(path2,"bin"); |
ss = oxWhich(cmdname,path2); |
ss = oxWhich(cmdname,path2); |
if (ss != NULL) return ss; |
if (ss != NULL) return ss; |
} |
} |
|
|
path = (char *)getenv("PATH"); /* Todo: it will not give /cygdrive format*/ |
path = (char *)getenv("PATH"); /* Todo: it will not give /cygdrive format*/ |
ss = oxWhich(cmdname,path); |
ss = oxWhich(cmdname,path); |
if (ss == NULL) { |
if (ss == NULL) { |
errorPathFinder("oxWhich_unix: could not find it in the path string.\n"); |
errorPathFinder("oxWhich_unix: could not find it in the path string.\n"); |
} |
} |
return ss; |
return ss; |
} |
} |
Line 1001 char *oxWhich_unix(char *cmdname,char *path) { |
|
Line 1043 char *oxWhich_unix(char *cmdname,char *path) { |
|
char *path2; |
char *path2; |
int i,j; |
int i,j; |
if (path == NULL) { |
if (path == NULL) { |
return NULL; |
return NULL; |
} |
} |
|
|
path2 = (char *)mymalloc(strlen(path)+strlen(cmdname)+2); |
path2 = (char *)mymalloc(strlen(path)+strlen(cmdname)+2); |
for (i=0, j=0; i <= strlen(path); i++) { |
for (i=0, j=0; i <= strlen(path); i++) { |
path2[j] = 0; |
path2[j] = 0; |
if ((path[i] == ':') || (path[i] == 0)) { |
if ((path[i] == ':') || (path[i] == 0)) { |
strcat(path2,"/"); strcat(path2,cmdname); |
strcat(path2,"/"); strcat(path2,cmdname); |
if (getFileSize(path2) >= 0) { /* Todo: isExecutableFile() */ |
if (getFileSize(path2) >= 0) { /* Todo: isExecutableFile() */ |
return path2; |
return path2; |
} |
} |
j = 0; path2[j] = 0; |
j = 0; path2[j] = 0; |
}else{ |
}else{ |
path2[j] = path[i]; j++; path2[j] = 0; |
path2[j] = path[i]; j++; path2[j] = 0; |
} |
} |
} |
} |
return NULL; |
return NULL; |
} |
} |
Line 1063 char *oxEvalEnvVar(char *s) { |
|
Line 1105 char *oxEvalEnvVar(char *s) { |
|
} |
} |
} |
} |
|
|
|
void oxResetRedirect(void) { |
|
if (OX_P_stdin >= 0) close(OX_P_stdin); |
|
if (OX_P_stdout >= 0) close(OX_P_stdout); |
|
if (OX_P_stderr >= 0) close(OX_P_stderr); |
|
OX_P_stdin = OX_P_stdout = OX_P_stderr = -1; |
|
} |
|
|
|
int oxDeleteFile(char *fname) { |
|
if (getFileSize(fname) >= 0) { |
|
return(unlink(fname)); |
|
}else{ |
|
return(-1); |
|
} |
|
} |
|
|
|
/* This function just kills processes, so if there is a process which |
|
uses ox protocol, it is not relevant to use this functions. |
|
*/ |
|
int oxKillAll(void) { |
|
int i; |
|
int pid; |
|
int status; |
|
for (i=0; i<Myforkcp; i++) { |
|
pid = Myforkchildren[i]; |
|
if (Verbose) fprintf(stderr,"Sending signal to %d ... ",pid); |
|
kill(pid,SIGKILL); |
|
waitpid(pid,&status,0); |
|
if (Verbose) fprintf(stderr,"Gone.\n"); |
|
} |
|
Myforkcp = 0; |
|
return(0); |
|
} |
|
|
|
void ox_pathfinder_quiet(void) { |
|
Verbose_get_home = 0; |
|
Verbose = 0; |
|
} |
|
|
|
char *oxTermWhich_unix(int *typep) { |
|
char *s; |
|
char *p; |
|
p = (char *) getenv("PATH"); |
|
s = oxWhich("oxterm",p); *typep = T_OXTERM; |
|
if (s != NULL) return s; |
|
|
|
/* skip the search of rxvt (temporary) |
|
s = oxWhich("rxvt",p); *typep = T_RXVT; |
|
if (s != NULL) return s; |
|
*/ |
|
|
|
s = oxWhich("xterm",p); *typep = T_XTERM; |
|
if (s != NULL) return s; |
|
|
|
return NULL; |
|
} |