===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/plugin/file2.hh,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- OpenXM/src/kan96xx/plugin/file2.hh	2000/02/24 12:33:48	1.3
+++ OpenXM/src/kan96xx/plugin/file2.hh	2001/08/12 03:13:36	1.4
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/plugin/file2.hh,v 1.2 2000/01/16 07:55:47 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/plugin/file2.hh,v 1.3 2000/02/24 12:33:48 takayama Exp $ */
 else if (strcmp(key,"fp2fdopen") == 0) {
   if (size != 2) errorKan1("%s\n","[(fp2fdopen)  obj] extension obj-fp2.");
   if (SecureMode) errorKan1("%s\n","Security violation for fp2fdopen.");
@@ -108,6 +108,31 @@ else if (strcmp(key,"fp2clearReadBuf") == 0) {
   }
   rob = KpoInteger(fp2dumpBuffer((FILE2 *) obj1.rc.voidp));
   rob = KpoInteger(fp2clearReadBuf((FILE2 *)obj1.rc.voidp));
+}
+else if (strcmp(key,"fp2pushfile") == 0) {
+  if (size != 2) errorKan1("%s\n","[(fp2pushfile) name] extension array-of-int.");
+  if (SecureMode) errorKan1("%s\n","Security violation for fp2pushfile.");
+  obj1= getoa(obj,1);
+  if (obj1.tag != Sdollar) {
+    errorKan1("%s\n","[(fp2pushfile)  name] extension array-of-int.");
+  }
+  {
+    FILE *fp;
+    int n,i,c;
+    fp = fopen(obj1.lc.str,"r");
+    if (fp == NULL) errorKan1("%s\n","fp2pushfile : file not found.");
+    n = 0;
+    while ((c = fgetc(fp)) != EOF) n++;
+    fclose(fp);
+    fp = fopen(obj1.lc.str,"r");
+    rob = newObjectArray(n);
+    i = 0;
+    while ((c = fgetc(fp)) != EOF) {
+      putoa(rob,i,KpoInteger(c));
+      i++;
+    }
+    fclose(fp);
+  }
 }