===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/shell.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM/src/kan96xx/Kan/shell.c	2003/11/24 12:38:17	1.1
+++ OpenXM/src/kan96xx/Kan/shell.c	2003/12/03 01:21:43	1.2
@@ -1,4 +1,4 @@
-/* $OpenXM$ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/shell.c,v 1.1 2003/11/24 12:38:17 takayama Exp $ */
 #include <stdio.h>
 #include <sys/types.h>
 #include <sys/stat.h>
@@ -16,6 +16,41 @@
 #include <ctype.h>
 #include "ox_pathfinder.h"
 
+static struct object KoxShell_test1(struct object ob);
+
+struct object KoxShell(struct object ob) {
+  return KoxShell_test1(ob);
+}
+
+static struct object KoxShell_test1(struct object ob) {
+  /* A simple shell. It does not implement a parser. */
+  struct object rob;
+  char *cmd;
+  char *arg1,*arg2;
+  int i,n;
+  rob = NullObject; cmd = NULL; arg1=NULL; arg2=NULL;
+  if (ob.tag != Sarray) errorKan1("%s\n","KoxShell requires an array as an argument.");
+  n = getoaSize(ob);
+  for (i=0; i<n; i++) {
+	if (getoa(ob,i).tag != Sdollar) errorKan1("%s\n","KoxShell requires an array of string as an argument.");
+  }
+
+  if (n == 0) return(rob);
+  cmd = KopString(getoa(ob,0));
+  if (strcmp(cmd,"which")==0) {
+	if (n == 2) {
+	  rob = KoxWhich(getoa(ob,1),KpoInteger(0));
+	}else if (n==3) {
+	  rob = KoxWhich(getoa(ob,1),getoa(ob,2));
+	}else{
+	  errorKan1("%s\n","shell: << which command-name >> or << which command-name path >>");
+	}
+	return(rob);
+  }else if (strcmp(cmd,"export")==0) {
+  }else{
+  }
+  return(rob);
+}
 
 /* Functions for ox_shell */
 struct object KoxWhich(struct object cmdo,struct object patho) {