[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.3 and 1.4

version 1.3, 2000/02/24 12:33:47 version 1.4, 2000/03/09 12:04:52
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.2 2000/01/16 07:55:38 takayama Exp $ */  /* $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 176  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.3  
changed lines
  Added in v.1.4

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