===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/shell.c,v
retrieving revision 1.6
retrieving revision 1.10
diff -u -p -r1.6 -r1.10
--- OpenXM/src/kan96xx/Kan/shell.c	2003/12/04 05:29:12	1.6
+++ OpenXM/src/kan96xx/Kan/shell.c	2004/02/05 10:35:04	1.10
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/shell.c,v 1.5 2003/12/04 05:27:19 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/shell.c,v 1.9 2003/12/13 13:29:44 takayama Exp $ */
 #include <stdio.h>
 #include <sys/types.h>
 #include <sys/stat.h>
@@ -41,7 +41,7 @@ static int AfterPt=0;
 static char *AfterDeleteFile[MAXFILES];
 static int AfterD=0;
 
-static int KeepTmpFiles = 1;
+static int KeepTmpFiles = 0;
 
 extern int OX_P_stdin;
 extern int OX_P_stdout;
@@ -53,7 +53,8 @@ struct object KoxShell(struct object ob) {
 
 /* A temporary help system */
 void KoxShellHelp(char *key,FILE *fp) {
-  char *keys[]={"command","export","which","redirect","@@@@gatekeeper"};
+  char *keys[]={"command","export","keep_tmp_files",
+                "killall","redirect","which","@@@@gatekeeper"};
   int i;
 #define HSIZE 20
   char *s[HSIZE];
@@ -89,6 +90,13 @@ void KoxShellHelp(char *key,FILE *fp) {
     s[2] = "Example 1: [(ls) (hoge) (2>) (stringOut://afo)] oxshell\n    afo ::";
     s[3] = "Example 2: [(cp) ] addStdoutStderr oxshell\n      [@@@stdout @@@stderr] ::";
     s[4] = NULL;
+  }else if (strcmp(key,"killall")==0) {
+    s[0] = "Kill all the processes envoked by oxshell";
+    s[1] = NULL;
+  }else if (strcmp(key,"keep_tmp_files")==0) {
+    s[0] = "keep_tmp_files value";
+    s[1] = "If value is zero, then temporary files are removed after execution.";
+    s[2] = NULL;
   }else{
   }
   i = 0;
@@ -126,6 +134,19 @@ static struct object KoxShell_test1(struct object ob) 
     return(rob);
   }else if (strcmp(cmd,"export")==0) {
     rob=oxsSetenv(ob);
+  }else if (strcmp(cmd,"keep_tmp_files")==0) {
+    if (n != 2) errorKan1("%s\n","shell: << keep_tmp_files value >>");
+    if (strcmp("0",KopString(getoa(ob,1))) == 0) {
+      KeepTmpFiles = 0;
+    }else{
+      KeepTmpFiles = 1;
+    }
+    rob = KpoInteger(KeepTmpFiles);
+  }else if (strcmp(cmd,"killall")==0) {
+	/* It is called from ctrl-C hook of oxrfc103.sm1 */
+	fprintf(stderr,"Killing all child processes (oxshell) ...");
+    rob = KpoInteger(oxKillAll());
+	fprintf(stderr,"\nDone.\n");
   }else{
     rob = oxsExecuteBlocked(ob);
   }
@@ -152,6 +173,28 @@ struct object KoxWhich(struct object cmdo,struct objec
   return(rob);
 }
 
+static int mysetenv(char *name, char *value, int overwrite);
+static int myunsetenv(char *name);
+static int mysetenv(char *name, char *value, int overwrite) {
+  char *s;
+  char *orig;
+  s = (char *)getenv(name);
+  if ((s == NULL) || overwrite) {
+	s = (char *) malloc(strlen(name)+strlen(value)+5);
+	if (s == 0) { fprintf(stderr,"No more memory.\n"); exit(10); }
+    strcpy(s,name);
+	strcat(s,"="); strcat(s,value);
+	return(putenv(s));
+  }
+  return (0);
+} 
+
+/* bug on Solaris. It does not unsetenv.
+   libc4, libc5, glibc. It does unsetenv. */
+static myunsetenv(char *name) {
+  return(putenv(name));
+}
+
 /* Example. [(export)  (PATH)  (=)  (/usr/new/bin:$PATH)] */
 static struct object oxsSetenv(struct object ob) {
   struct object rob;
@@ -176,9 +219,10 @@ static struct object oxsSetenv(struct object ob) {
     /* printf("%s\n",new); */
     new = oxEvalEnvVar(new);
     /* printf("%s\n",new); */
-    r = setenv(envp,new,1);
+    r = mysetenv(envp,new,1);
   }else{
-    unsetenv(envp); r = 0;
+    myunsetenv(envp); r = 0;
+    /* bug: On Solaris, unsetenv will not work. */
   }
   if (r != 0) errorKan1("%s\n","setenv failed.");
   new = (char *) getenv(envp);
@@ -399,12 +443,18 @@ int oxsFileToVar(char *v,char *fname) {
   int limit;
   int c,i;
 
-  if (v == NULL) errorKan1("%s\n","oxsFileToVar(), v is NULL.");
+  if (v == NULL) {
+	/* errorKan1("%s\n","oxsFileToVar(), v is NULL."); */
+	fprintf(stderr,"oxsFileToVar(), v is NULL.");
+	return(-1);
+  }
   limit = 1024;
   fp = fopen(fname,"r");
   if (fp == NULL) {
     fprintf(stderr,"Filename=%s\n",fname);
-    errorKan1("%s\n","oxsFileToVar(), the file cannot be opened.");
+    /* errorKan1("%s\n","oxsFileToVar(), the file cannot be opened."); */
+	fprintf(stderr,"oxsFileToVar(), the file cannot be opened.");
+	return(-1);
   }
   s = (char *)mymalloc(limit);
   if (s == NULL) errorKan1("%s\n","No more memory in oxsFileToVar().");
@@ -512,6 +562,7 @@ static struct object oxsExecuteBlocked(struct object o
 {
   int r,i,n;
   char **argv;
+  int errorf;
 
   argv = oxsBuildArgv(ob);  
   argv = oxsBuildArgvRedirect(argv);  
@@ -524,9 +575,12 @@ static struct object oxsExecuteBlocked(struct object o
     errorKan1("%s\n","ForkExecBlocked failed.");
   }
   */
+  errorf=0;
   if (AfterPt > 0) {
     for (i=0; i< AfterPt; i++) {
-      oxsFileToVar(AfterSetVar[i],AfterReadFile[i]);
+      if (oxsFileToVar(AfterSetVar[i],AfterReadFile[i]) != 0) {
+        errorf=1;
+      }
     }
   }
   AfterPt = 0;
@@ -539,6 +593,7 @@ static struct object oxsExecuteBlocked(struct object o
     }
   }
   AfterD = 0;
+  if (errorf) errorKan1("%s\n","Some errors in oxsFileToVar().");
 
   return(KpoInteger(r));
 }