version 1.3, 2000/02/24 12:33:47 |
version 1.4, 2000/03/09 12:04:52 |
|
|
/* $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."); |