===================================================================
RCS file: /home/cvs/OpenXM/src/util/ox_pathfinder.c,v
retrieving revision 1.9
retrieving revision 1.13
diff -u -p -r1.9 -r1.13
--- OpenXM/src/util/ox_pathfinder.c	2003/11/24 11:47:35	1.9
+++ OpenXM/src/util/ox_pathfinder.c	2003/12/03 13:38:39	1.13
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/util/ox_pathfinder.c,v 1.8 2003/11/16 07:14:11 takayama Exp $ */
+/* $OpenXM: OpenXM/src/util/ox_pathfinder.c,v 1.12 2003/12/03 08:58:35 takayama Exp $ */
 /* Moved from misc-2003/07/cygwin/test.c */
 
 #include <stdio.h>
@@ -111,9 +111,12 @@ static void myforkwait() {
   int status;
   int pid;
   int i,j;
-  signal(SIGCHLD,SIG_IGN);
+  /* signal(SIGCHLD,SIG_IGN);  It is not allowed in posix */
   pid = wait(&status);
   fprintf(stderr,"Child process %d is exiting.\n",pid);
+  if (pid < 0) {
+	perror("wait");
+  }
   for (i=0; i<Myforkcp; i++) {
     if (Myforkchildren[i]  == pid) {
       for (j=i; j<Myforkcp-1; j++) {
@@ -860,6 +863,77 @@ char *generateTMPfileName(char *seed) {
   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"; 
@@ -956,5 +1030,48 @@ char *oxWhich_unix(char *cmdname,char *path) {
 	}
   }
   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);
+  }
 }