| version 1.24, 2004/09/04 11:25:58 |
version 1.25, 2004/09/09 03:14:46 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.23 2004/02/28 13:39:42 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.24 2004/09/04 11:25:58 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 364 struct object Kextension(struct object obj) |
|
| Line 364 struct object Kextension(struct object obj) |
|
| obj1 = getoa(obj,1); |
obj1 = getoa(obj,1); |
| obj2 = getoa(obj,2); |
obj2 = getoa(obj,2); |
| rob = KooPower(obj1,obj2); |
rob = KooPower(obj1,obj2); |
| |
}else if (strcmp(key,"Krest")==0) { |
| |
if (size != 2) errorKan1("%s\n","[(Krest) a] extension b"); |
| |
obj1 = getoa(obj,1); |
| |
rob = Krest(obj1); |
| |
}else if (strcmp(key,"Kjoin")==0) { |
| |
if (size != 3) errorKan1("%s\n","[(Kjoin) a b] extension c"); |
| |
obj1 = getoa(obj,1); |
| |
obj2 = getoa(obj,2); |
| |
rob = Kjoin(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. */ |
![[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