version 1.11, 2003/12/03 03:21:16 |
version 1.14, 2003/12/04 03:17:33 |
|
|
/* $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.13 2003/12/03 13:38:39 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 111 static void myforkwait() { |
|
Line 115 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); |
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 155 int oxForkExec(char **argv) { |
|
Line 162 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 181 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) { |
|
/* 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"); |
|
} |
return status; |
return status; |
}else{ |
}else{ |
/* close the specified files */ |
/* close the specified files */ |
Line 198 int oxForkExecBlocked(char **argv) { |
|
Line 205 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 869 char *generateTMPfileName2(char *seed,char *ext,int us |
|
Line 880 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 910 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 982 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 1021 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 1083 char *oxEvalEnvVar(char *s) { |
|
} |
} |
} |
} |
|
|
|
void oxResetRedirect(void) { |
|
OX_P_stdin = OX_P_stdout = OX_P_stderr = -1; |
|
} |
|
|
|
int oxDeleteFile(char *fname) { |
|
if (getFileSize(fname) >= 0) { |
|
return(unlink(fname)); |
|
}else{ |
|
return(-1); |
|
} |
|
} |