| version 1.11, 2000/01/20 15:32:21 |
version 1.12, 2000/01/22 06:29:17 |
|
|
| /* -*- mode: C; coding: euc-japan -*- */ |
/* -*- mode: C; coding: euc-japan -*- */ |
| /* $OpenXM: OpenXM/src/ox_math/math2ox.c,v 1.10 1999/12/22 11:27:59 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/ox_math/math2ox.c,v 1.11 2000/01/20 15:32:21 ohara Exp $ */ |
| |
|
| /* |
/* |
| Some commnets is written in Japanese by the EUC-JP coded |
Copyright (C) Katsuyoshi OHARA, 2000. |
| character set. |
Portions copyright 1999 Wolfram Research, Inc. |
| |
|
| |
You must see OpenXM/Copyright/Copyright.generic. |
| |
The MathLink Library is licensed from Wolfram Research Inc.. |
| |
See OpenXM/Copyright/Copyright.mathlink for detail. |
| */ |
*/ |
| |
|
| #include <sys/types.h> |
#include <sys/types.h> |
| Line 30 static ox_file_t *svs = NULL; |
|
| Line 34 static ox_file_t *svs = NULL; |
|
| static int len_svs = 0; |
static int len_svs = 0; |
| static int max_process = 0; |
static int max_process = 0; |
| |
|
| /* Mathematica から直接呼び出される関数の定義. */ |
/* The following functions are called from Mathematica. |
| /* 呼び出しの方法は math2ox.tm で定義される. */ |
See math2.tm for detail. */ |
| void OX_get() |
void OX_get() |
| { |
{ |
| cmo *c = NULL; |
cmo *c = NULL; |
|
|
| return 0; |
return 0; |
| } |
} |
| |
|
| /* 文字列 s を parse() にかけて生成された cmo を サーバに送る. */ |
/* Parsing s and sending its cmo to an OX server. */ |
| int OX_parse(char *s) |
int OX_parse(char *s) |
| { |
{ |
| cmo *m; |
cmo *m; |
| Line 95 int OX_parse(char *s) |
|
| Line 99 int OX_parse(char *s) |
|
| } |
} |
| return 0; |
return 0; |
| } |
} |
| return -1; /* 失敗した場合 */ |
return -1; /* if we failed. */ |
| } |
} |
| |
|
| int OX_start(char* s) |
int OX_start(char* s) |
| Line 164 int OX_setClientParam(char *h, char* c, char* p) |
|
| Line 168 int OX_setClientParam(char *h, char* c, char* p) |
|
| |
|
| int main(int argc, char *argv[]) |
int main(int argc, char *argv[]) |
| { |
{ |
| /* 構文解析器の設定 */ |
/* setting the OX parser */ |
| setflag_parse(PFLAG_ADDREV); |
setflag_parse(PFLAG_ADDREV); |
| len_svs = 20; |
len_svs = 20; |
| svs = (ox_file_t *)malloc(sizeof(ox_file_t)*len_svs); |
svs = (ox_file_t *)malloc(sizeof(ox_file_t)*len_svs); |
![[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