OpenXM/src/ox_math/math2ox.c - diff

Return to math2ox.c CVS log

Up to [local] / OpenXM / src / ox_math

Diff for /OpenXM/src/ox_math/math2ox.c between version 1.6 and 1.10

version 1.6, 1999/11/07 12:12:55

version 1.10, 1999/12/22 11:27:59

Line 1

/* -*- mode: C; coding: euc-japan -*- */

/* $OpenXM: OpenXM/src/ox_math/math2ox.c,v 1.5 1999/11/06 21:39:36 ohara Exp $ */

/* $OpenXM: OpenXM/src/ox_math/math2ox.c,v 1.9 1999/12/14 09:31:55 ohara Exp $ */

#include <sys/types.h>

#include <sys/stat.h>

Line 10

#include <mathlink.h>

#include <unistd.h>

#include <signal.h>

#include <mathlink.h>

#include "ox.h"

#include "parse.h"

#include "serv2.h"

static char *host = "localhost";

static char *ctlserv = "ox";

static char *oxprog = "ox_sm1";

ox_file_t sv;

static ox_file_t *svs = NULL;

static int len_svs = 0;

static int max_process = 0;

/* Mathematica から直接呼び出される関数の定義. */

/* 呼び出しの方法は math2ox.tm で定義される. */

int OX_executeStringByLocalParser(const char *str)

void OX_get()

{

ox_executeStringByLocalParser(sv, str);

cmo *c = NULL;

receive_ox_tag(sv->stream);

c = receive_cmo(sv->stream);

#ifdef DEBUG

fprintf(stderr, "ox message is received in OxGet[].\n");

print_cmo(c);

fflush(stderr);

#endif

send_mlo(c);

ml_flush();

}

int OX_execute_string(const char *str)

{

ox_execute_string(sv, str);

return 0;

}

char *OX_popString()

{

return ox_popString(sv, sv->stream);

return ox_popString(sv);

}

void OX_popCMO()

{

cmo *c = ox_pop_cmo(sv);

send_mlo(c);

ml_flush();

}

int OX_close()

{

ox_close(sv);

Line 51 int OX_parse(char *s)

Line 78 int OX_parse(char *s)

cmo *m;

symbol *symp;

int len = strlen(s);

setmode_mygetc(s, len);

init_parser(s);

if(s != NULL && len > 0 && (m = parse()) != NULL) {

if (m->tag == OX_DATA) {

Line 71 int OX_start(char* s)

Line 98 int OX_start(char* s)

if (s != NULL && s[0] != '\0') {

oxprog = s;

}

sv = ox_start(host, ctlserv, oxprog);

if (++max_process < len_svs) {

fprintf(stderr, "open (%s)\n", "localhost");

sv = ox_start(host, ctlserv, oxprog);

return 0;

fprintf(stderr, "open (%s)\n", "localhost");

svs[max_process] = sv;

return max_process;

}

return -1;

}

int OX_start_insecure(char *host, int portCtl, int portDat)

Line 90 int OX_start_insecure(char *host, int portCtl, int por

Line 121 int OX_start_insecure(char *host, int portCtl, int por

sv = ox_start_insecure_nonreverse(host, portCtl, portDat);

fprintf(stderr, "math2ox :: connect to \"%s\" with (ctl, dat) = (%d, %d)\n", host, portCtl, portDat);

return 0;

}

Line 112 int main(int argc, char *argv[])

Line 144 int main(int argc, char *argv[])

{

/* 構文解析器の設定 */

setflag_parse(PFLAG_ADDREV);

setgetc(mygetc);

len_svs = 20;

svs = (ox_file_t *)malloc(sizeof(ox_file_t)*len_svs);

MLMain(argc, argv);

}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>