| version 1.42, 2010/08/30 04:17:17 |
version 1.43, 2012/12/23 01:27:54 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.41 2005/09/27 06:10:43 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.42 2010/08/30 04:17:17 takayama Exp $ */ |
| #include <stdio.h> |
#include <stdio.h> |
| #include <string.h> |
#include <string.h> |
| #include <sys/types.h> |
#include <sys/types.h> |
| Line 460 struct object Kextension(struct object obj) |
|
| Line 460 struct object Kextension(struct object obj) |
|
| obj2 = getoa(obj,2); |
obj2 = getoa(obj,2); |
| rob = Kjoin(obj1,obj2); |
rob = Kjoin(obj1,obj2); |
| }else if (strcmp(key,"ostype")==0) { |
}else if (strcmp(key,"ostype")==0) { |
| rob = newObjectArray(1); |
/* Hard encode the OS type. cpp -dM /dev/null */ |
| /* Hard encode the OS type. */ |
|
| #if defined(__CYGWIN__) |
#if defined(__CYGWIN__) |
| |
rob = newObjectArray(1); |
| putoa(rob,0,KpoString("windows")); |
putoa(rob,0,KpoString("windows")); |
| #else |
#else |
| |
rob = newObjectArray(2); |
| putoa(rob,0,KpoString("unix")); |
putoa(rob,0,KpoString("unix")); |
| |
#if defined(__APPLE__) |
| |
putoa(rob,1,KpoString("mac")); |
| |
#else |
| |
putoa(rob,1,KpoString("generic")); |
| |
#endif |
| #endif |
#endif |
| }else if (strcmp(key,"stringToArgv")==0) { |
}else if (strcmp(key,"stringToArgv")==0) { |
| if (size != 2) errorKan1("%s\n","[(stringToArgv) a ] extension b"); |
if (size != 2) errorKan1("%s\n","[(stringToArgv) a ] extension b"); |
![[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