version 1.1, 1999/12/09 22:49:43 |
version 1.7, 2003/02/12 08:28:41 |
|
|
|
/* $OpenXM: OpenXM/src/ox_math/mlo.h,v 1.6 2003/01/15 05:08:10 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; |
|
|
char *function; |
char *function; |
} mlo_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(); |
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(); |
|
mlo *receive_mlo_error(); |
|
mlo *receive_mlo_real(); |
|
|
|
int send_mlo(cmo *m); |
|
|
|
int ml_abort(); |
|
int ml_interrupt(); |
|
int ml_next_packet(); |
|
int ml_new_packet(); |
|
int ml_read_packet(); |
|
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[]); |
|
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 |