=================================================================== RCS file: /home/cvs/OpenXM/src/ox_math/mlo.h,v retrieving revision 1.1 retrieving revision 1.5 diff -u -p -r1.1 -r1.5 --- OpenXM/src/ox_math/mlo.h 1999/12/09 22:49:43 1.1 +++ OpenXM/src/ox_math/mlo.h 2000/03/10 12:38:47 1.5 @@ -1,10 +1,11 @@ +/* $OpenXM: OpenXM/src/ox_math/mlo.h,v 1.4 2000/01/22 06:30:23 ohara Exp $ */ #ifndef _MLO_H_ #define _MLO_H_ -#include "ox.h" +#include -/* Mathematica でのみ使用される Local Object の定義 */ +/* definitions of Mathlink Local Objects. */ typedef struct { int tag; int length; @@ -12,7 +13,31 @@ typedef struct { char *function; } mlo_function; +typedef cmo mlo; +typedef cmo_string mlo_string; +typedef cmo_zz mlo_zz; + +mlo_function *new_mlo_function(char *function); + cmo *receive_mlo(); +mlo *receive_mlo_zz(); +mlo *receive_mlo_string(); +cmo *receive_mlo_function(); +cmo *convert_mlo_to_cmo(mlo *m); +cmo *receive_mlo_function_newer(); +cmo *receive_mlo_symbol(); +int send_mlo(cmo *m); +int send_mlo_int32(cmo *m); +int send_mlo_string(cmo *m); +int send_mlo_zz(cmo *m); +int send_mlo_list(cmo *c); + +int ml_init(); +int ml_exit(); +int ml_flush(); +int ml_select(); +int ml_evaluateStringByLocalParser(char *str); +int ml_executeFunction(char *function, int argc, cmo *argv[]); #endif