OpenXM/src/kan96xx/plugin/file2.hh - diff

Return to file2.hh CVS log

Up to [local] / OpenXM / src / kan96xx / plugin

Diff for /OpenXM/src/kan96xx/plugin/file2.hh between version 1.3 and 1.4

-version 1.3, 2000/02/24 12:33:48
+version 1.4, 2001/08/12 03:13:36
 Line 1
 Line 1
 Line 1
- /* $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.");
 Line 108  else if (strcmp(key,"fp2clearReadBuf") == 0) {
 Line 108  else if (strcmp(key,"fp2clearReadBuf") == 0) {
 Line 108  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);
+   }
  }

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>