| 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."); |