| version 1.9, 2000/12/14 01:35:58 |
version 1.10, 2003/05/07 04:00:30 |
|
|
| /* -*- mode: C; coding: euc-japan -*- */ |
/* -*- mode: C; coding: euc-japan -*- */ |
| /* $OpenXM: OpenXM/src/oxc/sm_ext.c,v 1.8 2000/12/03 14:32:40 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/oxc/sm_ext.c,v 1.9 2000/12/14 01:35:58 ohara Exp $ */ |
| |
|
| #include <stdio.h> |
#include <stdio.h> |
| #include <stdlib.h> |
#include <stdlib.h> |
| Line 98 static int getargs(cmo ***args) |
|
| Line 98 static int getargs(cmo ***args) |
|
| cmo_int32 *m = (cmo_int32 *)pop(); |
cmo_int32 *m = (cmo_int32 *)pop(); |
| |
|
| if (m->tag != CMO_INT32 || (argc = m->i) < 0) { |
if (m->tag != CMO_INT32 || (argc = m->i) < 0) { |
| fprintf(stderr, "oxc: invalid arguments\n"); |
ox_printf("oxc: invalid arguments\n"); |
| }else { |
}else { |
| argv = (cmo **)malloc(sizeof(cmo *)*argc); |
argv = (cmo **)malloc(sizeof(cmo *)*argc); |
| for(i=0; i<argc; i++) { |
for(i=0; i<argc; i++) { |
| Line 233 static int sm_control_spawn() |
|
| Line 233 static int sm_control_spawn() |
|
| if (pid > 0) { |
if (pid > 0) { |
| push(new_cmo_int32(pid)); |
push(new_cmo_int32(pid)); |
| pid_regist(pid); |
pid_regist(pid); |
| fprintf(stderr, "oxc: spawns %s\n", sname->s); |
ox_printf("oxc: spawns %s\n", sname->s); |
| return pid; |
return pid; |
| } |
} |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to sm_ext.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / oxc