| version 1.4, 1999/11/04 19:33:17 |
version 1.6, 1999/11/07 12:12:55 |
|
|
| /* -*- mode: C; coding: euc-japan -*- */ |
/* -*- mode: C; coding: euc-japan -*- */ |
| /* $OpenXM: OpenXM/src/ox_math/math2ox.c,v 1.3 1999/11/04 17:53:04 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/ox_math/math2ox.c,v 1.5 1999/11/06 21:39:36 ohara Exp $ */ |
| /* $Id$ */ |
|
| |
|
| #include <sys/types.h> |
#include <sys/types.h> |
| #include <sys/stat.h> |
#include <sys/stat.h> |
|
|
| } |
} |
| |
|
| /* 文字列 s を parse() にかけて生成された cmo を サーバに送る. */ |
/* 文字列 s を parse() にかけて生成された cmo を サーバに送る. */ |
| /* s は "...\n" の形でなければならない(??). */ |
|
| int OX_parse(char *s) |
int OX_parse(char *s) |
| { |
{ |
| cmo *m; |
cmo *m; |
| int len = strlen(s); |
symbol *symp; |
| |
int len = strlen(s); |
| setmode_mygetc(s, len); |
setmode_mygetc(s, len); |
| |
|
| if(s != NULL && len > 0 && (m = parse()) != NULL) { |
if(s != NULL && len > 0 && (m = parse()) != NULL) { |
| /* 本来 m->tag のチェックをして CMO であることを |
if (m->tag == OX_DATA) { |
| 確かめなければならない. */ |
send_ox_cmo(sv->stream, ((ox_data *)m)->cmo); |
| send_ox_cmo(sv->stream, m); |
}else if (m->tag == OX_COMMAND) { |
| return 0; |
send_ox_command(sv->stream, ((ox_command *)m)->command); |
| } |
}else { |
| return -1; /* 失敗した場合 */ |
send_ox_cmo(sv->stream, m); |
| |
} |
| |
return 0; |
| |
} |
| |
return -1; /* 失敗した場合 */ |
| } |
} |
| |
|
| int OX_start(char* s) |
int OX_start(char* s) |
| Line 78 int OX_start_insecure(char *host, int portCtl, int por |
|
| Line 81 int OX_start_insecure(char *host, int portCtl, int por |
|
| if (host != NULL || host[0] == '\0') { |
if (host != NULL || host[0] == '\0') { |
| host = "localhost"; |
host = "localhost"; |
| } |
} |
| if (portCtl == 0) { |
if (portCtl == 0) { |
| portCtl = 1200; |
portCtl = 1200; |
| } |
} |
| if (portDat == 0) { |
if (portDat == 0) { |
| portDat = 1300; |
portDat = 1300; |
| } |
} |
| |
|
| sv = ox_start_insecure_nonreverse(host, portCtl, portDat); |
sv = ox_start_insecure_nonreverse(host, portCtl, portDat); |
| fprintf(stderr, "math2ox :: connect to \"%s\" with (ctl, dat) = (%d, %d)\n", host, portCtl, portDat); |
fprintf(stderr, "math2ox :: connect to \"%s\" with (ctl, dat) = (%d, %d)\n", host, portCtl, portDat); |
| return 0; |
return 0; |
| } |
} |
| Line 107 int OX_setClientParam(char *h, char* c, char* p) |
|
| Line 110 int OX_setClientParam(char *h, char* c, char* p) |
|
| |
|
| int main(int argc, char *argv[]) |
int main(int argc, char *argv[]) |
| { |
{ |
| /* 構文解析器の設定 */ |
/* 構文解析器の設定 */ |
| setflag_parse(PFLAG_ADDREV); |
setflag_parse(PFLAG_ADDREV); |
| setgetc(mygetc); |
setgetc(mygetc); |
| |
|
| MLMain(argc, argv); |
MLMain(argc, argv); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to math2ox.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / ox_math