version 1.2, 1999/12/14 09:31:55 |
version 1.8, 2003/03/23 21:56:11 |
|
|
|
/* $OpenXM: OpenXM/src/ox_math/mlo.h,v 1.7 2003/02/12 08:28:41 ohara Exp $ */ |
#ifndef _MLO_H_ |
#ifndef _MLO_H_ |
|
|
#define _MLO_H_ |
#define _MLO_H_ |
|
|
#include "ox.h" |
#include <ox_toolkit.h> |
|
|
/* Mathematica でのみ使用される Local Object の定義 */ |
#define RESERVE_INTERRUPTION 1 |
|
#define INTERRUPTED 2 |
|
#define RESERVE_ABORTION 4 |
|
#define ABORTED 8 |
|
|
|
/* definitions of Mathlink Local Objects. */ |
typedef struct { |
typedef struct { |
int tag; |
int tag; |
int length; |
int length; |
|
|
|
|
typedef cmo mlo; |
typedef cmo mlo; |
typedef cmo_string mlo_string; |
typedef cmo_string mlo_string; |
|
#if defined(WITH_GMP) |
typedef cmo_zz mlo_zz; |
typedef cmo_zz mlo_zz; |
|
#endif |
|
|
mlo_function *new_mlo_function(char *function); |
mlo_function *new_mlo_function(char *function); |
|
|
Line 25 cmo *receive_mlo_function(); |
|
Line 33 cmo *receive_mlo_function(); |
|
cmo *convert_mlo_to_cmo(mlo *m); |
cmo *convert_mlo_to_cmo(mlo *m); |
cmo *receive_mlo_function_newer(); |
cmo *receive_mlo_function_newer(); |
cmo *receive_mlo_symbol(); |
cmo *receive_mlo_symbol(); |
|
mlo *receive_mlo_error(); |
|
mlo *receive_mlo_real(); |
|
|
int send_mlo(cmo *m); |
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_abort(); |
|
int ml_interrupt(); |
|
int ml_next_packet(); |
|
int ml_new_packet(); |
|
int ml_read_packet(); |
int ml_init(); |
int ml_init(); |
int ml_exit(); |
int ml_exit(); |
int ml_flush(); |
int ml_flush(); |
int ml_select(); |
int ml_select(); |
int ml_evaluateStringByLocalParser(char *str); |
int ml_evaluateStringByLocalParser(char *str); |
int ml_executeFunction(char *function, int argc, cmo *argv[]); |
int ml_executeFunction(char *function, int argc, cmo *argv[]); |
|
mlo *ml_return(); |
|
|
|
/* state management for the OpenXM robust interruption */ |
|
unsigned ml_state_set(unsigned fl); |
|
unsigned ml_state_clear(unsigned fl); |
|
unsigned ml_state(unsigned fl); |
|
void ml_state_clear_all(); |
#endif |
#endif |