version 1.2, 2000/01/16 07:55:38 |
version 1.3, 2000/02/24 12:33:47 |
|
|
/* $OpenXM$ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.2 2000/01/16 07:55:38 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); |