[BACK]Return to ox_pathfinder.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / util

Diff for /OpenXM/src/util/ox_pathfinder.c between version 1.1 and 1.37

version 1.1, 2003/07/21 11:36:10 version 1.37, 2020/10/03 08:24:14
Line 1 
Line 1 
 /* $OpenXM$ */  /* $OpenXM: OpenXM/src/util/ox_pathfinder.c,v 1.36 2015/10/13 10:16:53 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 <sys/types.h>  #include <sys/types.h>
 #include <sys/stat.h>  #include <sys/stat.h>
 #include <fcntl.h>  #include <fcntl.h>
 #include <stdlib.h>  #include <stdlib.h>
 #include <unistd.h>  #include <unistd.h>
   #if  (!defined(__MINGW32__) &&  !defined(__MINGW64__))
 #include <sys/wait.h>  #include <sys/wait.h>
   #else
   #include <_mingw.h>
   #endif
 #include <signal.h>  #include <signal.h>
 #include <ctype.h>  #include <ctype.h>
   #include <time.h>
   #include <string.h>
 #include "ox_pathfinder.h"  #include "ox_pathfinder.h"
   
   void *sGC_malloc(int);
   
   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 22  static char *get_ox_sm1_path();
Line 35  static char *get_ox_sm1_path();
 static char *get_ox_path();  static char *get_ox_path();
 static char *get_oxc_path();  static char *get_oxc_path();
 static char *get_oxlog_path();  static char *get_oxlog_path();
 static char **setOXenv();  static int getFileSize(char *fn);
 static int forkExec(char **argv);  static void errorPathFinder(char *s);
 static void usage();  static void msgPathFinder(char *s);
   static char *cygname(char *s);
   
   static int Verbose_get_home = 0;
 static int Verbose_get_home = 1;  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,"(%p) no more memory.\n",(void *)a);exit(10);}
   #define mymalloc(a)  sGC_malloc(a)
   
   static char *cygname(char *s) {
     char *name;
   #if defined(__MSYS__)
     return(s);
   #else
     name = mymalloc(strlen(s)+16);
     strcpy(name,"/cygdrive");
     return(strcat(name,s));
   #endif
   }
   void pathFinderErrorVerbose(int k) {
     static int prev;
     if (k >= 0) {
           prev = ErrorVerbose;
           ErrorVerbose = k;
     }else{
           ErrorVerbose = prev;
     }
   }
   static void errorPathFinder(char *s) {
     /* Todo; we need to return the error message to the client if it is used
        in ox_shell */
     if (ErrorVerbose) fprintf(stderr,"Error: %s",s);
   }
   static void msgPathFinder(char *s) {
     /* Todo; we need to return the error message to the client if it is used
        in ox_shell */
     fprintf(stderr,"Log(ox_pathfinder): %s",s);
   }
   
   int ox_pathfinderNoX(int f) {
     if (f < 0) return NoX;
     NoX = f;
     return f;
   }
   int ox_pathfinderVerbose(int f) {
     extern int Verbose_get_home;
     if (f < 0) return Verbose_get_home;
     Verbose_get_home = f;
     return f;
   } /* cf. ox_pathfinder_quiet() */
   
   /* test main   */
   /*
   main() {
     char *outfile;
     char *cpp;
     char *argv[10];
     int n;
     char *sfile = "ox_pathfinder.c";
     if (getFileSize(sfile) < 0) {
       fprintf(stderr,"The source file is not found.\n"); return -1;
     }
     cpp = getCppPath();
     if (cpp == NULL) {
       fprintf(stderr,"cpp is not found.\n"); return -1;
     }
     printf("%s\n",cpp);
     outfile = generateTMPfileName("seed");
     if (outfile == NULL) {
       fprintf(stderr,"Failed to generate a temporary file name.\n"); return -1;
     }
     printf("%s\n",outfile);
     if ((char *)strstr(cpp,"/asir/bin/cpp.exe") == NULL) {
       argv[0] = cpp;
       argv[1] = "-P";
       argv[2] = "-lang-c++";
       argv[3] = sfile;
       argv[4] = outfile;
       argv[5] = NULL;
     }else{
       argv[0] = cpp;
       argv[1] = cygwinPathToWinPath(sfile);
       argv[2] = cygwinPathToWinPath(outfile);
       argv[3] = NULL;
     }
     n=oxForkExecBlocked(argv);
   }
   
   void *sGC_malloc(int s) { return (void *) malloc(s); }
   */
   
   /* -------- end of test main ----------- */
   
   /* See kxx/ox100start.c for main */
   
 #define MYFORKCP_SIZE 100  #define MYFORKCP_SIZE 100
 static int Myforkchildren[MYFORKCP_SIZE];  static int Myforkchildren[MYFORKCP_SIZE];
 static int Myforkcp=0;  static int Myforkcp=0;
   #if  (!defined(__MINGW32__)  && !defined(__MINGW64__))
 static void myforkwait() {  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 51  static void myforkwait() {
Line 160  static void myforkwait() {
   signal(SIGCHLD,myforkwait);    signal(SIGCHLD,myforkwait);
 }  }
   
 #define nomemory(a) {fprintf(stderr,"(%d) no more memory.\n",a);exit(10);}  int oxForkExec(char **argv) {
 #define mymalloc(a)  malloc(a)  
   
 /* See kxx/ox100start.c for main. */  
   
 static int forkExec(char **argv) {  
   int pid;    int pid;
   char **eee;    char **eee;
   int m;    int m;
Line 65  static int forkExec(char **argv) {
Line 169  static int forkExec(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{
           signal(SIGCHLD,myforkwait); /* to kill Zombie */        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;
         }      }
   }else{    }else{
     /* close the specified files */      /* close the specified files */
         if (m&1) {      if (m&1) {
        sigset_t sss;         sigset_t sss;
        sigemptyset(&sss);         sigemptyset(&sss);
        sigaddset(&sss,SIGINT);         sigaddset(&sss,SIGINT);
        sigprocmask(SIG_BLOCK,&sss,NULL);         sigprocmask(SIG_BLOCK,&sss,NULL);
         }      }
         eee = setOXenv();      if (NoX && (!EngineLogToStdout)) {
         if (NoX) {        FILE *null;
           FILE *null;        null = fopen("/dev/null","wb");
           null = fopen("/dev/null","wb");        if (OX_P_stdout >= 0) dup2(OX_P_stdout,1); else dup2(fileno(null),1);
           dup2(fileno(null),1);        if (OX_P_stderr >= 0) dup2(OX_P_stderr,2); else dup2(fileno(null),2);
           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,"forkExec fails: ");      fprintf(stderr,"oxForkExec fails: ");
       exit(3);
   }    }
 }  }
   
   int oxForkExecBlocked(char **argv) {
     int pid;
     char **eee;
     int m;
     int status;
     if (argv == NULL) {
       fprintf(stderr,"Cannot fork and exec.\n"); return -1;
     }
     if ((pid = fork()) > 0) {
       oxResetRedirect();
       Myforkchildren[Myforkcp++] = pid;
       if (Myforkcp >= MYFORKCP_SIZE-1) {
         fprintf(stderr,"Child process table is full.\n");
         Myforkcp = 0;
       }
       if (waitpid(pid,&status,0) < 0) {  /* blocked */
         perror("waitpid");
       }
       Myforkcp--;
       return status;
     }else{
       /* close the specified files */
       if (m&1) {
          sigset_t sss;
          sigemptyset(&sss);
          sigaddset(&sss,SIGINT);
          sigprocmask(SIG_BLOCK,&sss,NULL);
       }
       if (NoX && (!EngineLogToStdout)) {
         FILE *null;
         null = fopen("/dev/null","wb");
         if (OX_P_stdout >= 0) dup2(OX_P_stdout,1); else dup2(fileno(null),1);
         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);
       /* This place will never be reached unless execv fails. */
       fprintf(stderr,"oxForkExecBlock fails: ");
       exit(3);
     }
   }
   #else
   static void myforkwait() {
     fprintf(stderr,"ERROR: myforkwait is not implented in mingw\n");
     return;
   }
   int oxForkExec(char **argv) {
     /* cf. Kan/shell.c */
     fprintf(stderr,"ERROR: oxForkExec is not implented in mingw\n");
     return(-1);
   }
   int oxForkExecBlocked(char **argv) {
     fprintf(stderr,"ERROR: oxForkExecBlocked is not implented in mingw\n");
     return(-1);
   }
   #endif
   
 static int getOStypei() {  static int getOStypei() {
   /*    /*
      0  unix       0  unix
      1  windows-cygwin       1  windows-cygwin
      2  windows-cygwin-on-X       2  windows-cygwin-on-X
      3  windows-native       3  windows-native
        4  windows-msys
        5  windows-msys-on-x
   */    */
   int ostype;    int ostype;
   char *s,*s2,*s3;    char *s,*s2,*s3;
 #if defined(__CYGWIN__)  #if defined(__CYGWIN__) || defined(__MSYS__)
   ostype = 1;    ostype = 1;
 #else  #else
   ostype = 0;    ostype = 0;
 #endif  #endif
   if (ostype == 0) return ostype;    if (ostype == 0) return ostype;
   /* Heuristic method */    /* Heuristic method */
     s = getenv("MSYSTEM");
     if (s != NULL) {
       if (strcmp(s,"MSYS")==0) return(4);
       s = (char *)getenv("WINDOWID");
       if (s != NULL) {
         return 5;  // not tested.
       }
     }
   s = (char *)getenv("WINDOWID");    s = (char *)getenv("WINDOWID");
   if (s != NULL) {    if (s != NULL) {
     return 2;      return 2;
Line 135  char *getOStypes() {
Line 314  char *getOStypes() {
     return("Windows-cygwin-on-X");      return("Windows-cygwin-on-X");
   }else if (ostype == 3) {    }else if (ostype == 3) {
     return("Windows-native");      return("Windows-native");
     }else if (ostype == 4) {
       return("Windows-msys");
     }else if (ostype == 5) {
       return("Windows-msys-on-X");
   }else{    }else{
     return("unix");      return("unix");
   }    }
Line 181  static void msg_get_home(int t,char *s) {
Line 364  static void msg_get_home(int t,char *s) {
   }else if (t == 2) {    }else if (t == 2) {
     fprintf(stderr,"getServerEnv(): ");      fprintf(stderr,"getServerEnv(): ");
   }else if (t == 3) {    }else if (t == 3) {
     fprintf(stderr,"setOXenv(): ");      fprintf(stderr,"?? ");
   }else if (t == 4) {    }else if (t == 4) {
     fprintf(stderr,"cygwinPathToWinPath(): ");      fprintf(stderr,"cygwinPathToWinPath(): ");
   }else if (t == 5) {    }else if (t == 5) {
Line 238  char *getOpenXM_HOME() {
Line 421  char *getOpenXM_HOME() {
   if (getOStypei() != 3) {    if (getOStypei() != 3) {
     p = "/usr/local/OpenXM";      p = "/usr/local/OpenXM";
   }else{    }else{
     p = "/cygdrive/c/usr/local/OpenXM";      p = cygname("/c/usr/local/OpenXM");
   }    }
   if (getFileSize(p) != -1) return addSlash(p);    if (getFileSize(p) != -1) return addSlash(p);
   msg_get_home(1,"OpenXM is not found under /usr/local");    msg_get_home(1,"OpenXM is not found under /usr/local");
   
   if (getOStypei() != 0) {    if (getOStypei() != 0) {
     p = "/cygdrive/c/OpenXM";      p = cygname("/c/OpenXM");
     if (getFileSize(p) != -1) return addSlash(p);      if (getFileSize(p) != -1) return addSlash(p);
     msg_get_home(1,"OpenXM is not found under c:\\");      msg_get_home(1,"OpenXM is not found under c:\\");
   
     p = "/cygdrive/c/OpenXM-win";      p = cygname("/c/OpenXM-win");
     if (getFileSize(p) != -1) return addSlash(p);      if (getFileSize(p) != -1) return addSlash(p);
     msg_get_home(1,"OpenXM-win is not found under c:\\");      msg_get_home(1,"OpenXM-win is not found under c:\\");
   
     p = "/cygdrive/c/Program Files/OpenXM";      p = cygname("/c/Program Files/OpenXM");
     if (getFileSize(p) != -1) return addSlash(p);      if (getFileSize(p) != -1) return addSlash(p);
     msg_get_home(1,"OpenXM is not found under c:\\Program Files");      msg_get_home(1,"OpenXM is not found under c:\\Program Files");
   
     p = "/cygdrive/c/Program Files/OpenXM-win";      p = cygname("/c/Program Files/OpenXM-win");
     if (getFileSize(p) != -1) return addSlash(p);      if (getFileSize(p) != -1) return addSlash(p);
     msg_get_home(1,"OpenXM-win is not found under c:\\Program Files");      msg_get_home(1,"OpenXM-win is not found under c:\\Program Files");
   
Line 433  char *cygwinPathToWinPath(char *s) {
Line 616  char *cygwinPathToWinPath(char *s) {
   }else{    }else{
     strcpy(ans,s);      strcpy(ans,s);
   }    }
   #if defined(__MSYS__)
     pos = (char *)strstr(s,"/c/");
     if (pos == s) {
       strcpy(ans,&(s[1]));
       ans[0] = s[1]; ans[1] = ':'; ans[2] = '\\';
     }else{
       strcpy(ans,s);
     }
   #endif
   
   if (ans[0] == '/') {    if (ans[0] == '/') {
   #if defined(__MSYS__) && defined(__x86_64__)
       strcpy(ans,"C:\\msys64");
   #elif defined(__CYGWIN64__) || (defined(__CYGWIN__) && defined(__x86_64__))
       strcpy(ans,"C:\\cygwin64");
   #else
     strcpy(ans,"C:\\cygwin");      strcpy(ans,"C:\\cygwin");
   #endif
     strcat(ans,s);      strcat(ans,s);
   }    }
   
Line 450  char **getServerEnv(char *oxServer) {
Line 648  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 461  char **getServerEnv(char *oxServer) {
Line 661  char **getServerEnv(char *oxServer) {
   char **aaa;    char **aaa;
   
   if (Verbose_get_home) {    if (Verbose_get_home) {
         if (oxServer == NULL) {      if (oxServer == NULL) {
           fprintf(stderr,"Server name is NULL.\n");        fprintf(stderr,"Server name is NULL.\n");
         }else{      }else{
           fprintf(stderr,"Server name is %s\n",oxServer);        fprintf(stderr,"Server name is %s\n",oxServer);
         }      }
   }    }
   
   if (oxServer == NULL) return NULL;    if (oxServer == NULL) return NULL;
Line 493  char **getServerEnv(char *oxServer) {
Line 693  char **getServerEnv(char *oxServer) {
   strcpy(oxServer,p);    strcpy(oxServer,p);
   
   if ((ostype == 0) || (ostype == 2)) {    if ((ostype == 0) || (ostype == 2)) {
       oxlog = get_oxlog_path();
         if (!NoX) {          if (!NoX) {
           xterm = "/usr/X11R6/bin/xterm";            oxterm = oxTermWhich_unix(&oxtermType);
           if (getFileSize(xterm) == -1) {            if (oxterm == NULL) {
                 msg_get_home(2,"xterm is not found. NoX is automatically set.");          msg_get_home(2,"oxterm, rxvt, xterm is not found. NoX is automatically set.");
                 NoX = 1;          NoX = 1;
           }            }
             if (oxtermType == T_XTERM) oxtermOpt = "-icon";
             else  oxtermOpt = "-iconic";
         }          }
     oxlog = get_oxlog_path();  
     xterm = "/usr/X11R6/bin/xterm -icon -e ";  
     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) {
           argv[i] = "-e"; i++; argv[i] = 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] = get_ox_path(); i++; argv[i] = NULL;      argv[i] = get_ox_path(); i++; argv[i] = NULL;
     argv[i] = "-ox"; i++; argv[i] = NULL;      argv[i] = "-ox"; i++; argv[i] = NULL;
     argv[i] = oxServer; i++; argv[i] = NULL;      argv[i] = oxServer; i++; argv[i] = NULL;
   }else{    }else if ((ostype == 1) || (ostype == 3)) {  // cygwin or windows-native
         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.");
         NoX = 1;          NoX = 1;
           }        }
         }      }
       printf("oxterm=%s\n",oxterm); fflush(NULL);
     oxlog = " ";      oxlog = " ";
         if (!NoX) {      if (!NoX) {
           argv[i] = "/c"; i++; argv[i] = NULL;        argv[i] = "/c"; i++; argv[i] = NULL;
           argv[i] = "start"; i++; argv[i] = NULL;        argv[i] = "start"; i++; argv[i] = NULL;
           argv[i] = "/min"; i++; argv[i] = NULL;        argv[i] = "/min"; i++; argv[i] = NULL;
         }      }
     argv[i] = cygwinPathToWinPath(get_ox_path()); i++; argv[i] = NULL;      argv[i] = cygwinPathToWinPath(get_ox_path()); i++; argv[i] = NULL;
     argv[i] = "-ox"; i++; argv[i] = NULL;      argv[i] = "-ox"; i++; argv[i] = NULL;
     argv[i] = oxServer; i++; argv[i] = NULL;      argv[i] = oxServer; i++; argv[i] = NULL;
     }else {
       /* msys with mintty*/
       if (!NoX) {
         oxterm = "/usr/bin/mintty";
       }
       if (!NoX) {
         argv[i] = oxterm ; i++; argv[i] = NULL;
         argv[i] = "--exec"; i++; argv[i] = NULL;
       }
       argv[i] = get_ox_path(); i++; argv[i] = NULL;
       argv[i] = "-ox"; i++; argv[i] = NULL;
       argv[i] = oxServer; i++; argv[i] = NULL;
   }    }
   
   
   aaa = (char **) mymalloc(sizeof(char*)*(i+1));    aaa = (char **) mymalloc(sizeof(char*)*(i+1));
   if (aaa == NULL) nomemory(0);    if (aaa == NULL) nomemory(0);
   msg_get_home(2,"--------- Result --------------");    msg_get_home(2,"--------- Result --------------");
Line 546  char **getServerEnv(char *oxServer) {
Line 776  char **getServerEnv(char *oxServer) {
   return aaa;    return aaa;
 }  }
   
 char **setOXenv() {  
   /* Do nothing. */  
   return NULL;  
 }  
 char **setOXenv_old() {  char **setOXenv_old() {
   char *openXM_HOME;    char *openXM_HOME;
   char *load_sm1_path;    char *load_sm1_path;
Line 642  char **catArgv(char **argv1,char **argv2)
Line 868  char **catArgv(char **argv1,char **argv2)
   for (i=0; i<n2; i++) argv[n1+i] = argv2[i];    for (i=0; i<n2; i++) argv[n1+i] = argv2[i];
   argv[n1+n2]=NULL;    argv[n1+n2]=NULL;
   for (i=0; i<n1+n2; i++) {    for (i=0; i<n1+n2; i++) {
         msg_get_home(5,argv[i]);      msg_get_home(5,argv[i]);
   }    }
   return argv;    return argv;
 }  }
Line 653  char *getLOAD_SM1_PATH2() {
Line 879  char *getLOAD_SM1_PATH2() {
   if (p == NULL) {    if (p == NULL) {
     return("/usr/local/lib/sm1/");      return("/usr/local/lib/sm1/");
   }else{    }else{
         return p;      return p;
   }    }
 }  }
   
   char *getLOAD_K_PATH2(void) {
     char *p;
     p = get_k0_lib_path();
     if (p == NULL) {
       return("/usr/local/lib/kxx97/yacc/");
     }else{
       return p;
     }
   }
   
   char *winPathToCygwinPath(char *s) {
     char *new;
     int n,i;
     if (s == NULL) return s;
     new = (char *) mymalloc(strlen(s)+20);
     if (new == NULL) nomemory(new);
     if (strlen(s) >= 3) {
       /* case of c:\xxx ==> /cygdrive/c/xxx */
       if ((s[1] == ':') && (s[2] == '\\')) {
         sprintf(new,"/cygdrive/%c/%s",s[0],&(s[3]));
       }else{
         strcpy(new,s);
       }
     }else{
       strcpy(new,s);
     }
     n = strlen(s);
     for (i=0; i<n; i++) {
       if (new[i] == '\\') new[i] = '/';
     }
     return new;
   }
   
   char *generateTMPfileName(char *seed) {
     char *tmp;
     char *fname;
     char *tt;
     int num;
     static int prevnum=0;
      /* Bugs for k0.
         (1) unlink does not work so, load["t.k"];; load["t.k"];; fails (only cygwin.
         (2) In case of  error, TMP file is not removed. cf KCerror().
        In case of cygwin, we can only load 90 times.
      */
     int i;
     int clean = 0;
     tmp = getenv("TMP");
     if (tmp == NULL) {
       tmp = getenv("TEMP");
     }
     if ((tmp == NULL) && (strcmp(getOStypes(),"Windows-native") != 0)) {
       tmp = "/tmp";
     }
     tmp = winPathToCygwinPath(tmp);
     if (tmp != NULL) {
       fname = (char *)mymalloc(strlen(tmp)+strlen(seed)+40);
       if (fname == NULL) nomemory(fname);
     }else{
       fname = (char *)mymalloc(strlen(seed)+40);
       if (fname == NULL) nomemory(fname);
     }
     for (num=prevnum+1; num <100; num++) {
       if (tmp != NULL) {
         sprintf(fname,"%s/%s-tmp-%d.txt",tmp,seed,num);
       }else{
         sprintf(fname,"%s-tmp-%d.txt",seed,num);
       }
       if (getFileSize(fname) < 0) {
         prevnum = num;
         return fname;
       } else {
         if ((num > 90) && (!clean)) {
           /* Clean the old garbages. */
           for (i=0; i<100; i++) {
             if (tmp != NULL) {
               sprintf(fname,"%s/%s-tmp-%d.txt",tmp,seed,i);
             }else{
               sprintf(fname,"%s-tmp-%d.txt",seed,i);
             }
             {
               struct stat buf;
               int m;
               m = stat(fname,&buf);
               if ((m >= 0) && (buf.st_mtime+120 < time(NULL))) {
                 unlink(fname);
               }
             }
           }
           num = 0; clean=1; prevnum=0;
         }
       }
     }
     return NULL;
   }
   
   #define MAXTMP2  0xffffff
   char *generateTMPfileName2(char *seed,char *ext,int usetmp,int win){
     char *tmp;
     char *fname;
     char *tt;
     int num;
     static int prevnum=0;
     int i;
     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) {
       tmp = getenv("TMP");
       if (tmp == NULL) {
         tmp = getenv("TEMP");
       }
       if ((tmp == NULL) && (strcmp(getOStypes(),"Windows-native") != 0)) {
         tmp = "/tmp";
       }
       tmp = winPathToCygwinPath(tmp);
     }else{
       tmp = NULL;
     }
     if (tmp != NULL) {
       fname = (char *)mymalloc(strlen(tmp)+strlen(seed)+40);
       if (fname == NULL) nomemory(fname);
     }else{
       fname = (char *)mymalloc(strlen(seed)+40);
       if (fname == NULL) nomemory(fname);
     }
     for (num=prevnum+1; num <MAXTMP2; num++) {
       if (tmp != NULL) {
         sprintf(fname,"%s/%s-tmp-%d%s",tmp,seed,num,ext);
       }else{
         sprintf(fname,"%s-tmp-%d%s",seed,num,ext);
       }
       if (getFileSize(fname) < 0) {
         prevnum = num;
         if (win) fname= cygwinPathToWinPath(fname);
         return fname;
       } else {
         if ((num > MAXTMP2-10) && (!clean)) {
           /* Clean the old garbages. */
           for (i=0; i<MAXTMP2; i++) {
             if (tmp != NULL) {
               sprintf(fname,"%s/%s-tmp-%d%s",tmp,seed,i,ext);
             }else{
               sprintf(fname,"%s-tmp-%d%s",seed,i,ext);
             }
             {
               struct stat buf;
               int m;
               m = stat(fname,&buf);
               if ((m >= 0) && (buf.st_mtime+120 < time(NULL))) {
                 unlink(fname);
               }
             }
           }
           num = 0; clean=1; prevnum=0;
         }
       }
     }
     return NULL;
   }
   
   char *getCppPath(void) {
     static char *cpp = "/usr/local/bin/cpp";
     int ostype;
     char *oxhome;
     if ((cpp != NULL) && (getFileSize(cpp) >= 0)) return cpp;
     ostype = getOStypei();
     if (ostype < 3) {
       /* unix or cygwin env */
       cpp = "/lib/cpp";       /* on linux */
       if (getFileSize(cpp) >= 0) return cpp;
       cpp = "/usr/bin/cpp";   /* on freebsd, on cygwin */
       if (getFileSize(cpp) >= 0) return cpp;
       cpp = "/bin/cpp";
       if (getFileSize(cpp) >= 0) return cpp;
       cpp = NULL; return cpp;
     }else {
       /* On Windows */
       oxhome = getOpenXM_HOME();
       if (oxhome == NULL) {
         cpp = NULL; return cpp;
       }
       cpp = (char *) mymalloc(strlen(oxhome)+strlen("/asir/bin/cpp.exe")+5);
       if (cpp == NULL) nomemory(cpp);
       sprintf(cpp,"%s/asir/bin/cpp.exe",oxhome);
       if (getFileSize(cpp) >= 0) return cpp;
       else return NULL;
     }
   }
   
   char *getCommandPath(char *cmdname)
   {
     char *path;
     char *msg;
     char *path2;
     char *ss;
     int i,j;
     /* Use /cygdrive format always. */
     if (cmdname == NULL) return NULL;
     if (strlen(cmdname) < 1) {
       errorPathFinder("getCommandPath: cmdname is an empty string.\n");
       return NULL;
     }
     if (cmdname[0] == '/') {
       if (getFileSize(cmdname) >= 0) { /* Todo: isExecutableFile() */
       }else{
         msg = (char *)mymalloc(strlen(cmdname)+30);
         sprintf(msg,"getCommandPath: %s is not found.",cmdname);
         errorPathFinder(msg);
         return NULL;
       }
       return cmdname;
     }
   
     path = getOpenXM_HOME();  /* It will return /cygdrive for windows. */
     if (path != NULL) {
       path2 = (char *)mymalloc(strlen(path)+5);
       strcpy(path2,path);
       strcat(path2,"bin");
       ss = oxWhich(cmdname,path2);
       if (ss != NULL) return ss;
     }
   
     path = (char *)getenv("PATH");  /* Todo: it will not give /cygdrive format*/
     ss = oxWhich(cmdname,path);
     if (ss == NULL) {
       errorPathFinder("oxWhich_unix: could not find it in the path string.\n");
     }
     return ss;
   }
   
   char *oxWhich(char *cmdname,char *path) {
     return(oxWhich_unix(cmdname,path));
   }
   
   char *oxWhich_unix(char *cmdname,char *path) {
     char *path2;
     int i,j;
     if (path == NULL) {
       return NULL;
     }
   
     path2 = (char *)mymalloc(strlen(path)+strlen(cmdname)+2);
     for (i=0, j=0; i <= strlen(path); i++) {
       path2[j] = 0;
       if ((path[i] == ':') || (path[i] == 0)) {
         strcat(path2,"/"); strcat(path2,cmdname);
         if (getFileSize(path2) >= 0) { /* Todo: isExecutableFile() */
           return path2;
         }
         j = 0; path2[j] = 0;
       }else{
         path2[j] = path[i]; j++; path2[j] = 0;
       }
     }
     return NULL;
   }
   
   char *oxEvalEnvVar(char *s) {
     int n, i,j;
     char *es;
     char *news;
     int flag,flag2;
     flag=-1;
     n = strlen(s);
     es = (char *)mymalloc(n+1); es[0] = 0;
     if (es == NULL) nomemory(1);
     for (i=0; i<n; i++) {
       if ((s[i] == '$') && (s[i+1] == '{')) {
         for (j=0; ; j++) {
           if ((s[i+2+j] == 0) || (s[i+2+j] == '}')) {
             flag2 = i+2+j+1;
             break;
           }
           es[j] = s[i+2+j]; es[j+1]=0;
         }
         if (es[0] != 0) { flag=i; break; }
       }
     }
     if (flag >= 0) {
       es = (char *)getenv(es);
       if (es == NULL) es="";
       news = (char *) mymalloc(n+5+strlen(es));
       if (news == NULL) nomemory(1);
       j = 0;
       for (i=0; i<flag; i++) {
         news[j] = s[i]; j++;
       }
       for (i=0; i<strlen(es); i++) {
         news[j] = es[i]; j++;
       }
       for (i=flag2; i<strlen(s); i++) {
         news[j] = s[i]; j++;
       }
       news[j] = 0;
       return(oxEvalEnvVar(news));
     }else{
       return(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.
   */
   #if  (!defined(__MINGW32__) &&  !defined(__MINGW64__))
   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);
   }
   #else
   int oxKillAll(void) {
     fprintf(stderr,"ERROR: oxKillAll is not implented in mingw\n");
     return(-1);
   }
   #endif
   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;
   }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.37
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>