version 1.23, 2004/02/28 13:39:42 |
version 1.24, 2004/09/04 11:25:58 |
|
|
/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.22 2004/02/25 23:14:35 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.23 2004/02/28 13:39:42 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 372 struct object Kextension(struct object obj) |
|
Line 372 struct object Kextension(struct object obj) |
|
#else |
#else |
putoa(rob,0,KpoString("unix")); |
putoa(rob,0,KpoString("unix")); |
#endif |
#endif |
|
}else if (strcmp(key,"traceClearStack")==0) { |
|
traceClearStack(); |
|
rob = NullObject; |
|
}else if (strcmp(key,"traceShowStack")==0) { |
|
char *ssst; |
|
ssst = traceShowStack(); |
|
if (ssst != NULL) { |
|
rob = KpoString(ssst); |
|
}else{ |
|
rob = NullObject; |
|
} |
} |
} |
#include "plugin.hh" |
#include "plugin.hh" |
#include "Kclass/tree.hh" |
#include "Kclass/tree.hh" |