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.5 and 1.6

-version 1.5, 2003/11/23 13:16:30
+version 1.6, 2004/12/16 08:42:14
 Line 1
 Line 1
 Line 1
- /* $OpenXM: OpenXM/src/kan96xx/plugin/file2.hh,v 1.4 2001/08/12 03:13:36 takayama Exp $ */
+ /* $OpenXM: OpenXM/src/kan96xx/plugin/file2.hh,v 1.5 2003/11/23 13:16:30 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 60  else if (strcmp(key,"fp2fputc") == 0) {
 Line 60  else if (strcmp(key,"fp2fputc") == 0) {
 Line 60  else if (strcmp(key,"fp2fputc") == 0) {
    }
    rob = KpoInteger(fp2fputc(obj1.lc.ival,(FILE2 *) obj2.rc.voidp));
  }
+ else if (strcmp(key,"fp2fputs") == 0) {
+   if (size != 3) errorKan1("%s\n","[(fp2fgets) str obj-fp2] extension c.");
+   obj1 = getoa(obj,1);
+   if (obj1.tag != Sdollar) {
+     errorKan1("%s\n","[(fp2fputs)  str obj-fp2] extension c.");
+   }
+   obj2= getoa(obj,2);
+   if (obj2.tag != Sfile) {
+     errorKan1("%s\n","[(fp2fputs)  str obj-file-fp2] extension c.");
+   }
+   if (strcmp(obj2.lc.str,MAGIC2) != 0) {
+     errorKan1("%s\n","[(fp2fputs)  str obj-fp2] extension c. obj-fp2 is not Sfile (FILE2).");
+   }
+   rob = KpoInteger(fp2fputs(KopString(obj1),(FILE2 *) obj2.rc.voidp));
+ }
  else if (strcmp(key,"fp2dumpBuffer") == 0) {
    if (size != 2) errorKan1("%s\n","[(fp2dumpBuffer) obj-fp2] extension c.");
    obj1= getoa(obj,1);
-Line 148  else if (strcmp(key,"fp2pushfile") == 0) {
+Line 163  else if (strcmp(key,"fp2pushfile") == 0) {
 Line 148  else if (strcmp(key,"fp2pushfile") == 0) {
 Line 163  else if (strcmp(key,"fp2pushfile") == 0) {
      fclose(fp);
    }
  }
+ else if (strcmp(key,"fp2select") == 0) {
+   if (size != 3) errorKan1("%s\n","[(fp2select) obj-fp2 t] extension status.");
+   obj1 = getoa(obj,2);
+   obj1 = Kto_int32(obj1);
+   if (obj1.tag != Sinteger) {
+     errorKan1("%s\n","[(fp2select) obj-fp2 t] extension status.");
+   }
+   obj2= getoa(obj,1);
+   if (obj2.tag != Sfile) {
+     errorKan1("%s\n","[(fp2select) obj-fp2 t] extension status.");
+   }
+   if (strcmp(obj2.lc.str,MAGIC2) != 0) {
+     errorKan1("%s\n","[(fp2select) obj-fp2 t] extension status. obj-fp2 is not Sfile (FILE2).");
+   }
+   rob = KpoInteger(fp2select((FILE2 *) obj2.rc.voidp,obj1.lc.ival));
+ }
+ else if (strcmp(key,"fp2fopen") == 0) {
+   if (size != 3) errorKan1("%s\n","[(fp2fopen) name mode] extension obj-fp2.");
+   if (SecureMode) errorKan1("%s\n","Security violation for fp2fopen.");
+   obj1= getoa(obj,1);
+   if (obj1.tag != Sdollar) {
+     errorKan1("%s\n","[(fp2fopen) name-string mode] extension obj-fp2.");
+   }
+   obj2= getoa(obj,2);
+   if (obj2.tag != Sdollar) {
+     errorKan1("%s\n","[(fp2fopen) name-string mode] extension obj-fp2.");
+   }
+   {
+         FILE *fff;
+         fff = fopen(KopString(obj1),KopString(obj2));
+         if (fff == NULL) {
+           rob = NullObject;
+         }else{
+           rob.tag = Sfile;
+           rob.lc.str = MAGIC2 ;
+           rob.rc.voidp = (void *) fp2open(fileno(fff));
+       fp2setfp((FILE2 *) rob.rc.voidp, fff, 0);
+         }
+   }
+ }
+ else if (strcmp(key,"fp2mkfifo") == 0) {
+   if (size != 2) errorKan1("%s\n","[(fp2mkfifo) name] extension obj-fp2.");
+   if (SecureMode) errorKan1("%s\n","Security violation for fp2mkfifo.");
+   obj1= getoa(obj,1);
+   if (obj1.tag != Sdollar) {
+     errorKan1("%s\n","[(fp2mkfifo) name-string] extension obj-fp2.");
+   }
+   {
+         char *fname;
+         fname = KopString(obj1);
+         if (mkfifo(fname,0600)) {
+           rob = KpoInteger(-1);
+           if (errno != EEXIST) {
+                 perror(fname);
+                 unlink(fname);
+           }
+         }else{
+           rob = KpoInteger(0);
+         }
+   }
+ }
+ else if (strcmp(key,"fp2popen") == 0) {
+   if (size != 3) errorKan1("%s\n","[(fp2popen) name mode] extension obj-fp2.");
+   if (SecureMode) errorKan1("%s\n","Security violation for fp2popen.");
+   obj1= getoa(obj,1);
+   if (obj1.tag != Sdollar) {
+     errorKan1("%s\n","[(fp2popen) name-string mode] extension obj-fp2.");
+   }
+   obj2= getoa(obj,2);
+   if (obj2.tag != Sdollar) {
+     errorKan1("%s\n","[(fp2popen) name-string mode] extension obj-fp2.");
+   }
+   {
+         FILE *fff;
+         fff = popen(KopString(obj1),KopString(obj2));
+         if (fff == NULL) {
+           perror(KopString(obj1));
+           rob = NullObject;
+         }else{
+           rob.tag = Sfile;
+           rob.lc.str = MAGIC2 ;
+           rob.rc.voidp = (void *) fp2open(fileno(fff));
+       fp2setfp((FILE2 *) rob.rc.voidp, fff,1);
+         }
+   }
+ }

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