[BACK]Return to ext.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Kan

Diff for /OpenXM/src/kan96xx/Kan/ext.c between version 1.2 and 1.4

version 1.2, 2000/01/16 07:55:38 version 1.4, 2000/03/09 12:04:52
Line 1 
Line 1 
 /* $OpenXM$ */  /* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.3 2000/02/24 12:33:47 takayama Exp $ */
 #include <stdio.h>  #include <stdio.h>
 #include <sys/types.h>  #include <sys/types.h>
 #include <sys/stat.h>  #include <sys/stat.h>
Line 95  struct object Kextension(struct object obj)
Line 95  struct object Kextension(struct object obj)
   struct stat buf;    struct stat buf;
   char **argv;    char **argv;
   FILE *fp;    FILE *fp;
   void (*oldsig)();    void (*oldsig)();
     extern SecureMode;
   
   if (obj.tag != Sarray) errorKan1("%s\n","Kextension(): The argument must be an array.");    if (obj.tag != Sarray) errorKan1("%s\n","Kextension(): The argument must be an array.");
   size = getoaSize(obj);    size = getoaSize(obj);
Line 175  struct object Kextension(struct object obj)
Line 176  struct object Kextension(struct object obj)
       }else{        }else{
         /* success */          /* success */
         putoa(rob,0,KpoInteger(0));          putoa(rob,0,KpoInteger(0));
         putoa(rob,1,newObjectArray(0)); /* We have not yet read buf */      obj3 = newObjectArray(1);
           putoa(obj3,0,KpoInteger((int) buf.st_size));
           putoa(rob,1,obj3); /* We have not yet read buf fully */
       }        }
     }else if (strcmp(key,"forkExec")==0) {      }else if (strcmp(key,"forkExec")==0) {
       if (size != 4) errorKan1("%s\n","[(forkExec) argList fdList sigblock] extension.");        if (size != 4) errorKan1("%s\n","[(forkExec) argList fdList sigblock] extension.");

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4

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