===================================================================
RCS file: /home/cvs/OpenXM/src/k097/d.c,v
retrieving revision 1.8
retrieving revision 1.10
diff -u -p -r1.8 -r1.10
--- OpenXM/src/k097/d.c	2002/02/24 10:27:21	1.8
+++ OpenXM/src/k097/d.c	2003/07/21 12:41:22	1.10
@@ -1,11 +1,14 @@
-/* $OpenXM: OpenXM/src/k097/d.c,v 1.7 2001/01/08 05:26:48 takayama Exp $ */
+/* $OpenXM: OpenXM/src/k097/d.c,v 1.9 2003/07/13 08:18:27 takayama Exp $ */
 /* simple.c,  1996, 1/1 --- 1/5 */
 #include <stdio.h>
 #include <ctype.h>
 #include <setjmp.h>
 #include <stdlib.h>
+#include <sys/types.h>
+#include <sys/stat.h>
 #include "d.h"
 #include "simple.tab.h"
+#include "ox_pathfinder.h"
 
 #if defined(__CYGWIN__)
 #define JMP_BUF sigjmp_buf
@@ -1111,20 +1114,8 @@ void showStringBuff(objectp op)
   fprintf(stderr,"\n");
 }
 
+
+
 char *getLOAD_K_PATH() {
-  char *p;
-  char *p2;
-  p = getenv("LOAD_K_PATH");
-  if (p == NULL) {
-    return("/usr/local/lib/kxx97/yacc/");
-  }else{
-    if (strlen(p) == 0) return(p);
-    if (p[strlen(p)-1] == '/') return(p);
-    /* Add / */
-    p2 = (char *) malloc(sizeof(char)*(strlen(p)+3));
-    if (p2 == NULL) { fprintf(stderr,"No more memory.\n"); exit(10); }
-    strcpy(p2,p); strcat(p2,"/");
-    return(p2);
-  }
+  return getLOAD_K_PATH2();
 }
-