version 1.17, 2000/10/10 19:58:29 |
version 1.22, 2003/02/04 14:22:04 |
|
|
/* -*- mode: C; coding: euc-japan -*- */ |
/* -*- mode: C; coding: euc-japan -*- */ |
/* $OpenXM: OpenXM/src/ox_math/math2ox.c,v 1.16 2000/03/13 09:44:06 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/ox_math/math2ox.c,v 1.21 2003/01/13 12:04:53 ohara Exp $ */ |
|
|
/* |
/* |
Copyright (C) Katsuyoshi OHARA, 2000. |
Copyright (C) Katsuyoshi OHARA, 2000. |
|
|
#include <signal.h> |
#include <signal.h> |
#include <mathlink.h> |
#include <mathlink.h> |
#include <ox_toolkit.h> |
#include <ox_toolkit.h> |
#include "serv2.h" |
|
|
|
static char *host = "localhost"; |
static char *host = "localhost"; |
static char *ctlserv = "ox"; |
static char *ctlserv = "ox"; |
Line 39 void OX_get(int id) |
|
Line 38 void OX_get(int id) |
|
|
|
receive_ox_tag(ss[id]); |
receive_ox_tag(ss[id]); |
c = receive_cmo(ss[id]); |
c = receive_cmo(ss[id]); |
#ifdef DEBUG |
ox_printf("ox message is received in OxGet[].\n"); |
fprintf(stderr, "ox message is received in OxGet[].\n"); |
|
print_cmo(c); |
print_cmo(c); |
fflush(stderr); |
|
#endif |
|
send_mlo(c); |
send_mlo(c); |
ml_flush(); |
ml_flush(); |
} |
} |
Line 113 int OX_start(char* s) |
|
Line 109 int OX_start(char* s) |
|
} |
} |
if (++max_process < len_ss) { |
if (++max_process < len_ss) { |
ss[max_process] = ox_start(host, ctlserv, oxprog); |
ss[max_process] = ox_start(host, ctlserv, oxprog); |
fprintf(stderr, "open (%s)\n", "localhost"); |
ox_printf("open (%s)\n", "localhost"); |
return max_process; |
return max_process; |
} |
} |
return -1; |
return -1; |
Line 129 int OX_start_remote_ssh(char *s, char *host) |
|
Line 125 int OX_start_remote_ssh(char *s, char *host) |
|
} |
} |
if (++max_process < len_ss) { |
if (++max_process < len_ss) { |
ss[max_process] = ox_start_remote_with_ssh(oxprog, host); |
ss[max_process] = ox_start_remote_with_ssh(oxprog, host); |
fprintf(stderr, "open (%s)\n", host); |
ox_printf("open (%s)\n", host); |
return max_process; |
return max_process; |
} |
} |
return -1; |
return -1; |
Line 149 int OX_start_insecure(char *host, int portCtl, int por |
|
Line 145 int OX_start_insecure(char *host, int portCtl, int por |
|
|
|
if (++max_process < len_ss) { |
if (++max_process < len_ss) { |
ss[max_process] = ox_start_insecure(host, portCtl, portDat); |
ss[max_process] = ox_start_insecure(host, portCtl, portDat); |
fprintf(stderr, "math2ox :: connect to \"%s\" with (ctl, dat) = (%d, %d)\n", host, portCtl, portDat); |
ox_printf("math2ox :: connect to \"%s\" with (ctl, dat) = (%d, %d)\n", host, portCtl, portDat); |
return max_process; |
return max_process; |
} |
} |
|
|
Line 188 static int ss_id_stream(int id) |
|
Line 184 static int ss_id_stream(int id) |
|
return ss[id]; |
return ss[id]; |
} |
} |
|
|
|
#define VERSION 0x11121400 |
|
#define ID_STRING "2000/11/29" |
|
|
int main(int argc, char *argv[]) |
int main(int argc, char *argv[]) |
{ |
{ |
|
ox_stderr_init(NULL); |
|
|
/* setting the OX parser */ |
/* setting the OX parser */ |
setflag_parse(PFLAG_ADDREV); |
setflag_parse(PFLAG_ADDREV); |
ss = new_sstack(20); |
ss = new_sstack(20); |
|
mathcap_init(VERSION, ID_STRING, "math2ox", NULL, NULL); |
|
|
MLMain(argc, argv); |
MLMain(argc, argv); |
} |
} |