===================================================================
RCS file: /home/cvs/OpenXM/src/k097/d.c,v
retrieving revision 1.7
retrieving revision 1.20
diff -u -p -r1.7 -r1.20
--- OpenXM/src/k097/d.c	2001/01/08 05:26:48	1.7
+++ OpenXM/src/k097/d.c	2018/11/02 01:33:26	1.20
@@ -1,14 +1,26 @@
-/* $OpenXM: OpenXM/src/k097/d.c,v 1.6 2000/12/10 02:21:45 takayama Exp $ */
+/* $OpenXM: OpenXM/src/k097/d.c,v 1.19 2016/04/02 08:20:09 ohara 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
+#define SETJMP(env)  sigsetjmp(env,1)
+#define LONGJMP(env,p)  siglongjmp(env,p)
+#else
+#define JMP_BUF jmp_buf
+#define SETJMP(env)  setjmp(env)
+#define LONGJMP(env,p)  longjmp(env,p)
+#endif
 
-jmp_buf KCenvOfParser;
+JMP_BUF KCenvOfParser;
 
 int DebugMode = 1;
 extern int K00_verbose;
@@ -169,7 +181,7 @@ objectp newObject_d() {
     fprintf(stderr,"Error: No more memory in newObject_d().\n");
     exit(10);
   }
-  obj->tag = Snull;
+  obj->tag = Snull;  obj->attr = NULL;
   return(obj);
 }
 
@@ -593,8 +605,8 @@ KCerror(char *s)   /* You need this function. Otherwis
 	ungetc(MARK_CHAR,stdin);
 	while (fsgetc(Inop) > MARK_CHAR) ;
   }
-  return ;
-  longjmp(KCenvOfParser,2);
+  return 0;
+  LONGJMP(KCenvOfParser,2);
   exit(1); 
 }
 
@@ -605,11 +617,11 @@ readcomment() {
     if (c == EOF) {
       fprintf(stderr,"%d: Unexpected end of file in a comment.\n",Linenumber);
       fsungetc(c,Inop); /* should change */
-      return;
+      return 0;
     }
     if (c == '*') {
       c = fsgetc(Inop);
-      if (c == '/') return;
+      if (c == '/') return 0;
     }
   }
 }
@@ -1046,6 +1058,11 @@ void loadFileWithCpp(objectp op)
   char tmpName[1024];
   int pid;
   objectp ob;
+  char *outfile;
+  char *cpp;
+  char *argv[10];
+  int n;
+  char *sfile = NULL;
   if (op->tag != Sstring) {
     fprintf(stderr,"File name must be given as an argment of load.\n");
     return;
@@ -1056,21 +1073,53 @@ void loadFileWithCpp(objectp op)
     fprintf(stderr,"Too long file name.\n");
     return;
   }
-  system("/bin/rm -f k00.cppload.tmp");
-  /* Use gcc -v to know what symbols are defined. */
-#if defined(linux) || defined(__linux__)
-  strcpy(fname,"/lib/cpp -P -lang-c++ <");
+  /* Use gcc -v to know what symbols are defined. 
+	 if  defined(linux) || defined(__linux__) 
+	 Removed old codes. */
+
+  sfile = op->lc.str;
+  cpp = getCppPath();
+  if (cpp == NULL) {
+	fprintf(stderr,"cpp is not found.\n"); return;
+  }
+  /* printf("%s\n",cpp); */
+  outfile = generateTMPfileName("k0-cpp");
+  if (outfile == NULL) {
+	fprintf(stderr,"Failed to generate a temporary file name.\n"); return;
+  }
+  /* printf("%s\n",outfile); */
+  if ((char *)strstr(cpp,"/asir/bin/cpp.exe") == NULL) {
+#if defined(__clang__) || defined(__FreeBSD__)
+/* cpp of the FreeBSD is the cpp of the clang, but gcc is selected by configure.
+   echo | gcc -dM -E -
+*/
+    sprintf(tmpName,"cpp -E -P %s | sed -e 's/^#.*//g' >%s",sfile,outfile);
 #else
-  strcpy(fname,"cpp -P -lang-c++ <");
+	argv[0] = cpp;
+	argv[1] = "-P";
+	argv[2] = "-lang-c++";
+	argv[3] = sfile;
+	argv[4] = outfile;
+	argv[5] = NULL;
 #endif
-  strcat(fname,op->lc.str);
-  strcat(fname,"  >k00.cppload.tmp");
-  system(fname);
+  }else{
+	argv[0] = cpp;
+	argv[1] = "-P";
+	argv[2] = cygwinPathToWinPath(sfile);
+	argv[3] = cygwinPathToWinPath(outfile);
+	argv[4] = NULL;
+  }
+#if defined(__clang__) || defined(__FreeBSD__)
+  system(tmpName);
+#else
+  n=oxForkExecBlocked(argv);
+#endif
+
   ob = newObject_d();
   ob->tag = Sstring;
-  ob->lc.str = "k00.cppload.tmp";
+  ob->lc.str = outfile;
   loadFile(ob);
-  system("/bin/rm -f k00.cppload.tmp");
+  unlink(outfile);
 }
 
 void showStringBuff(objectp op)
@@ -1102,20 +1151,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();
 }
-