| version 1.1.1.1, 1999/10/08 02:12:02 |
version 1.4, 2000/03/09 12:04:52 |
|
|
| |
/* $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 94 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 174 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."); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ext.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Kan