version 1.20, 2003/12/04 07:49:24 |
version 1.22, 2004/02/25 23:14:35 |
|
|
/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.19 2003/12/03 01:21:43 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.21 2003/12/06 02:49:22 takayama Exp $ */ |
#include <stdio.h> |
#include <stdio.h> |
#include <sys/types.h> |
#include <sys/types.h> |
#include <sys/stat.h> |
#include <sys/stat.h> |
|
|
#include "plugin.h" |
#include "plugin.h" |
#include "kclass.h" |
#include "kclass.h" |
#include <ctype.h> |
#include <ctype.h> |
|
#include <errno.h> |
#include "ox_pathfinder.h" |
#include "ox_pathfinder.h" |
|
|
extern char **environ; |
extern char **environ; |
Line 103 struct object Kextension(struct object obj) |
|
Line 104 struct object Kextension(struct object obj) |
|
#endif |
#endif |
extern void ctrlC(); |
extern void ctrlC(); |
extern int SigIgn; |
extern int SigIgn; |
extern errno; |
|
extern int DebugCMO; |
extern int DebugCMO; |
extern int OXprintMessage; |
extern int OXprintMessage; |
struct stat buf; |
struct stat buf; |
Line 358 struct object Kextension(struct object obj) |
|
Line 358 struct object Kextension(struct object obj) |
|
for (i=0; i<KopInteger(obj1); i++) { |
for (i=0; i<KopInteger(obj1); i++) { |
putoa(rob,i,newObjectArray(KopInteger(obj2))); |
putoa(rob,i,newObjectArray(KopInteger(obj2))); |
} |
} |
|
}else if (strcmp(key,"ooPower")==0) { |
|
if (size != 3) errorKan1("%s\n","[(ooPower) a b] extension."); |
|
obj1 = getoa(obj,1); |
|
obj2 = getoa(obj,2); |
|
rob = KooPower(obj1,obj2); |
}else if (strcmp(key,"ostype")==0) { |
}else if (strcmp(key,"ostype")==0) { |
rob = newObjectArray(1); |
rob = newObjectArray(1); |
/* Hard encode the OS type. */ |
/* Hard encode the OS type. */ |