===================================================================
RCS file: /home/cvs/OpenXM/rc/repl.c,v
retrieving revision 1.6
retrieving revision 1.18
diff -u -p -r1.6 -r1.18
--- OpenXM/rc/repl.c	2002/04/05 01:49:09	1.6
+++ OpenXM/rc/repl.c	2019/03/29 02:49:48	1.18
@@ -1,30 +1,70 @@
-/* $OpenXM: OpenXM/rc/repl.c,v 1.5 2001/09/18 08:29:26 takayama Exp $ */
+/* $OpenXM: OpenXM/rc/repl.c,v 1.17 2004/06/20 04:55:32 takayama Exp $ */
+
 #include <stdio.h>
-#include <unistd.h>
+#include <stdlib.h>
+
+#include <errno.h>
+#include <fcntl.h>
 #include <string.h>
+#include <unistd.h>
 
 #define BUFSIZE 10000
+#define SSIZE  1024   
+
+/* If you make the following two strings longer, increase the number SSIZE */
+#define	REPL_IMGFILE	"repl_test.img"
+#define	REPL_PSFILE	    "repl_test.ps"
+
+int
 main(int argc,char *argv[]) {
   char s[BUFSIZE];
   char cwd[BUFSIZE];
   char *slash;
   char type = 'b';
   FILE *fp;
+  int fd,i;
+  char sss_png[SSIZE];
+  char sss_gif[SSIZE];
 
-  if (argc >= 2) {
-	if (strcmp(argv[1],"csh")==0) {
-	  type = 'c';
-	}
+  if (getcwd(cwd, sizeof(cwd)) == NULL) {
+	fprintf(stderr, "getcwd: %s\n", strerror(errno));
+	exit(EXIT_FAILURE);
   }
-
-  getcwd(cwd,BUFSIZE);
-  slash = strrchr(cwd,'/');
+  if ((slash = strrchr(cwd, '/')) == cwd) {
+	fprintf(stderr, "The current working directory is /.\n");
+	exit(EXIT_FAILURE);
+  }
   *slash = 0;
+
+  for (i=1; i<argc; i++) {
+    if (strcmp(argv[i],"csh")==0) {
+      type = 'c';
+    }else if (strcmp(argv[i],"bash")==0) {
+      type = 'b';
+    }else if (strcmp(argv[i],"--prefix")==0) {
+      i++;
+      strcpy(cwd,argv[i]);
+	  strcat(cwd,"/OpenXM");
+      if (cwd[0] != '/') {
+        fprintf(stderr,"Warning: prefix must start with /\n");
+        fprintf(stderr,"Your prefix is %d\n",cwd);
+      }
+    }else{
+      fprintf(stderr,"Warning: Unknown option.\n");
+    }
+  }
+
   while (fgets(s,BUFSIZE,stdin) != NULL) {
 	if (strcmp(s,"OpenXM_HOME=$HOME/OpenXM\n") == 0) {
 	  printf("OpenXM_HOME=%s\n",cwd);
 	}else if (strcmp(s,"setenv OpenXM_HOME $HOME/OpenXM\n") == 0) {
 	  printf("setenv OpenXM_HOME %s\n",cwd);
+	}else if (strcmp(s,"OpenXM_HOME=$(HOME)/OpenXM\n") == 0) {
+	  printf("OpenXM_HOME=%s\n",cwd);
+	}else if (strcmp(s,"setenv OpenXM_HOME \"$(HOME)\"/OpenXM\n") == 0) {
+	  printf("setenv OpenXM_HOME %s\n",cwd);
+	}else if (strcmp(s,"OpenXM_HOME=\"${HOME}\"/OpenXM\n") == 0) {
+	  printf("OpenXM_HOME=%s\n",cwd);
 	}else{
 	  printf("%s",s);
 	}
@@ -32,22 +72,29 @@ main(int argc,char *argv[]) {
 
   /* Configuring environmental variables. */
   /* Check if pstoimg (src/asir-contrib) supports png format. */
-  fp = fopen("/tmp/repl_test.ps","w");
-  if (fp == NULL) {
-	fprintf(stderr,"Open error of /tmp/repl_test.ps\n");
-	exit(10);
+  if ((fp = fopen(REPL_PSFILE,"w")) == NULL) {
+	fprintf(stderr, "fopen: %s", strerror(errno));
+	exit(EXIT_FAILURE);
   }
   fprintf(fp,"/Times-Roman findfont 10 scalefont setfont\n");
   fprintf(fp," 390 290 moveto  (F) show \n");
   fprintf(fp,"showpage \n");
-  fclose(fp);
-  if (!system("pstoimg -type png /tmp/repl_test.ps -out /tmp/repl_test.png >/dev/null")) {
+  while (fclose(fp) != 0) {
+	if (errno == EINTR)
+		continue;
+	break;
+  }
+
+  sprintf(sss_png,"pstoimg -type png %s -out %s >/dev/null",REPL_PSFILE,REPL_IMGFILE);
+  sprintf(sss_gif,"pstoimg -type gif %s -out %s >/dev/null",REPL_PSFILE,REPL_IMGFILE);
+  
+  if (!system(sss_png)) {
 	if (type == 'b') {
 	  printf("export OpenXM_PSTOIMG_TYPE=png\n");
 	}else{
 	  printf("setenv OpenXM_PSTOIMG_TYPE png\n");
 	}
-  }else if (!system("pstoimg -type gif /tmp/repl_test.ps -out /tmp/repl_test.gif >/dev/null")) {
+  }else if (!system(sss_gif)) {
 	if (type == 'b') {
 	  printf("OpenXM_PSTOIMG_TYPE=gif\n");
       printf("export OpenXM_PSTOIMG_TYPE\n");
@@ -55,14 +102,24 @@ main(int argc,char *argv[]) {
 	  printf("setenv OpenXM_PSTOIMG_TYPE=gif\n");
 	}
   }else {
-	printf("OpenXM_PSTOIMG_TYPE=no\n");
-	printf("export OpenXM_PSTOIMG_TYPE\n");
+    if (type == 'b') {
+      printf("OpenXM_PSTOIMG_TYPE=no\n");
+      printf("export OpenXM_PSTOIMG_TYPE\n");
+    }else{
+      printf("setenv OpenXM_PSTOIMG_TYPE no\n");
+    }
   }
-  system("rm -f /tmp/repl_test.*");
 
-  
-  exit(0);
-}
+  while (unlink(REPL_IMGFILE) != 0) {
+	if (errno == EINTR)
+		continue;
+	break;
+  }
+  while (unlink(REPL_PSFILE) != 0) {
+	if (errno == EINTR)
+		continue;
+	break;
+  }
 
-	  
-  
+  exit(EXIT_SUCCESS);
+}