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; |
} |
} |
} |
} |