[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.2 and 1.5

version 1.2, 2003/07/21 11:56:34 version 1.5, 2003/07/22 03:25:56
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/util/ox_pathfinder.c,v 1.1 2003/07/21 11:36:10 takayama Exp $ */  /* $OpenXM: OpenXM/src/util/ox_pathfinder.c,v 1.4 2003/07/21 13:36:43 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>
Line 9 
Line 10 
 #include <sys/wait.h>  #include <sys/wait.h>
 #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"
   
 extern char **environ;  extern char **environ;
Line 22  static char *get_ox_sm1_path();
Line 25  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 int getFileSize(char *fn);
   
   
   
 static int Verbose_get_home = 1;  static int Verbose_get_home = 0;
 static int NoX = 0;  static int NoX = 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)  malloc(a)  #define mymalloc(a)  sGC_malloc(a)
   
 int ox_pathfinderNoX(int f) {  int ox_pathfinderNoX(int f) {
   if (f < 0) return NoX;    if (f < 0) return NoX;
   NoX = f;    NoX = f;
   return f;    return f;
 }  }
   int ox_pathfinderVerbose(int f) {
     extern Verbose_get_home;
     if (f < 0) return Verbose_get_home;
     Verbose_get_home = f;
     return f;
   }
   
   /* 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 */  /* See kxx/ox100start.c for main */
   
 #define MYFORKCP_SIZE 100  #define MYFORKCP_SIZE 100
Line 71  int oxForkExec(char **argv) {
Line 123  int oxForkExec(char **argv) {
   }    }
   if ((pid = fork()) > 0) {    if ((pid = fork()) > 0) {
     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);
         }      }
         if (NoX) {      if (NoX) {
           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);
         }      }
     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: ");
       exit(3);
   }    }
 }  }
   
   int oxForkExecBlocked(char **argv) {
     int pid;
     char **eee;
     int m;
     int status;
     m = 0;
     if (argv == NULL) {
       fprintf(stderr,"Cannot fork and exec.\n"); return -1;
     }
     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;
       if (Myforkcp >= MYFORKCP_SIZE-1) {
         fprintf(stderr,"Child process table is full.\n");
         Myforkcp = 0;
       }
       waitpid(pid,&status,0);  /* block */
       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) {
         FILE *null;
         null = fopen("/dev/null","wb");
         dup2(fileno(null),1);
         dup2(fileno(null),2);
       }
       execve(argv[0],argv,environ);
       /* This place will never be reached unless execv fails. */
       fprintf(stderr,"oxForkExecBlock fails: ");
       exit(3);
     }
   }
   
 static int getOStypei() {  static int getOStypei() {
   /*    /*
      0  unix       0  unix
Line 465  char **getServerEnv(char *oxServer) {
Line 561  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 497  char **getServerEnv(char *oxServer) {
Line 593  char **getServerEnv(char *oxServer) {
   strcpy(oxServer,p);    strcpy(oxServer,p);
   
   if ((ostype == 0) || (ostype == 2)) {    if ((ostype == 0) || (ostype == 2)) {
         if (!NoX) {      if (!NoX) {
           xterm = "/usr/X11R6/bin/xterm";        xterm = "/usr/X11R6/bin/xterm";
           if (getFileSize(xterm) == -1) {        if (getFileSize(xterm) == -1) {
                 msg_get_home(2,"xterm is not found. NoX is automatically set.");          msg_get_home(2,"xterm is not found. NoX is automatically set.");
                 NoX = 1;          NoX = 1;
           }        }
         }      }
     oxlog = get_oxlog_path();      oxlog = get_oxlog_path();
     xterm = "/usr/X11R6/bin/xterm -icon -e ";      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] = "/usr/X11R6/bin/xterm"; i++; argv[i] = NULL;
           argv[i] = "-icon"; i++; argv[i] = NULL;        argv[i] = "-icon"; 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;
     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 (!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 ";          xterm = "/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 ";          xterm = "/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;
           }        }
         }      }
     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;
Line 642  char **catArgv(char **argv1,char **argv2)
Line 738  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 749  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;
     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=0; 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) 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 defined(__CYGWIN__)
   #define _POSIX_SOURCE
   #endif
   #ifndef _POSIX_SOURCE
               if ((m >= 0) && (buf.st_mtimespec.tv_sec+120 < time(NULL))) {
                 unlink(fname);
               }
   #else
               if ((m >= 0) && (buf.st_mtime+120 < time(NULL))) {
                 unlink(fname);
               }
   #endif
             }
           }
           num = 0; clean=1;
         }
       }
     }
     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;
   }    }
 }  }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>