version 1.11, 2003/12/03 03:21:16 |
version 1.30, 2006/01/26 08:36:50 |
|
|
/* $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.29 2006/01/10 11:52:56 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; |
|
static int ErrorVerbose = 1; |
|
static int EngineLogToStdout = 0; |
|
|
|
|
#define nomemory(a) {fprintf(stderr,"(%d) no more memory.\n",a);exit(10);} |
#define nomemory(a) {fprintf(stderr,"(%d) no more memory.\n",a);exit(10);} |
#define mymalloc(a) sGC_malloc(a) |
#define mymalloc(a) sGC_malloc(a) |
|
|
|
void pathFinderErrorVerbose(int k) { |
|
static int prev; |
|
if (k >= 0) { |
|
prev = ErrorVerbose; |
|
ErrorVerbose = k; |
|
}else{ |
|
ErrorVerbose = prev; |
|
} |
|
} |
static void errorPathFinder(char *s) { |
static void errorPathFinder(char *s) { |
/* Todo; we need to return the error message to the client if it is used |
/* Todo; we need to return the error message to the client if it is used |
in ox_shell */ |
in ox_shell */ |
fprintf(stderr,"Error: %s",s); |
if (ErrorVerbose) fprintf(stderr,"Error: %s",s); |
} |
} |
static void msgPathFinder(char *s) { |
static void msgPathFinder(char *s) { |
/* Todo; we need to return the error message to the client if it is used |
/* Todo; we need to return the error message to the client if it is used |
Line 58 int ox_pathfinderVerbose(int f) { |
|
Line 73 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 126 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 152 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 152 int oxForkExec(char **argv) { |
|
Line 171 int oxForkExec(char **argv) { |
|
sigaddset(&sss,SIGINT); |
sigaddset(&sss,SIGINT); |
sigprocmask(SIG_BLOCK,&sss,NULL); |
sigprocmask(SIG_BLOCK,&sss,NULL); |
} |
} |
if (NoX) { |
if (NoX && (!EngineLogToStdout)) { |
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 193 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 195 int oxForkExecBlocked(char **argv) { |
|
Line 216 int oxForkExecBlocked(char **argv) { |
|
sigaddset(&sss,SIGINT); |
sigaddset(&sss,SIGINT); |
sigprocmask(SIG_BLOCK,&sss,NULL); |
sigprocmask(SIG_BLOCK,&sss,NULL); |
} |
} |
if (NoX) { |
if (NoX && (!EngineLogToStdout)) { |
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 587 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 632 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 669 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 912 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 942 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 1014 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.",cmdname); |
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 1053 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 1115 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; |
|
} |
|
|
|
int oxpSendStringAsFile(char *user,char *hostname, char *filename, char *str) |
|
{ |
|
FILE *fp; |
|
int i; |
|
char *comm; |
|
char *argv[10]; |
|
mode_t oumask; |
|
oumask = umask((mode_t) (64-1)); |
|
/* 077=111 111 */ |
|
fp = fopen(filename,"w"); |
|
umask(oumask); |
|
if (fp == NULL) { |
|
return -1; |
|
} |
|
for (i=0; i <strlen(str); i++) { |
|
fputc(str[i],fp); |
|
} |
|
fclose(fp); |
|
if (strcmp(hostname,"localhost") == 0) return 0; |
|
comm = (char *)malloc(strlen(user)+strlen(hostname)+strlen(filename)*2+1024); |
|
if (comm == NULL) return -2; |
|
|
|
argv[0] = getCommandPath("scp"); |
|
if (argv[0] == NULL) return -3; |
|
argv[1] = filename; |
|
comm = (char *)malloc(strlen(user)+strlen(hostname)+strlen(filename)+256); |
|
sprintf(comm,"%s@%s:%s",user,hostname,filename); |
|
argv[2] = comm; |
|
argv[3] = NULL; |
|
return oxForkExec(argv); |
|
} |
|
|
|
char *oxpReadOneTimePasswordFromFile(char *filename) { |
|
} |
|
|
|
int ox_pathfinderEngineLogToStdout(int state) { |
|
EngineLogToStdout = state; |
|
} |