| version 1.17, 2003/11/24 02:13:40 |
version 1.21, 2003/12/06 02:49:22 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.16 2003/08/26 12:46:05 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.20 2003/12/04 07:49:24 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 25 static void mywait() { |
|
| Line 25 static void mywait() { |
|
| int status; |
int status; |
| int pid; |
int pid; |
| int i,j; |
int i,j; |
| signal(SIGCHLD,SIG_IGN); |
/* signal(SIGCHLD,SIG_IGN); */ |
| pid = wait(&status); |
pid = wait(&status); |
| fprintf(stderr,"Child process %d is exiting.\n",pid); |
fprintf(stderr,"Child process %d is exiting.\n",pid); |
| for (i=0; i<Mycp; i++) { |
for (i=0; i<Mycp; i++) { |
| 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. */ |
![[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