OpenXM/src/ox_math/mlo.c - diff

Return to mlo.c CVS log

Up to [local] / OpenXM / src / ox_math

version 1.13, 2003/01/15 10:46:09

version 1.14, 2003/01/17 11:31:10

Line 1

/* -*- mode: C -*- */

/* $OpenXM: OpenXM/src/ox_math/mlo.c,v 1.12 2003/01/15 05:08:10 ohara Exp $ */

/* $OpenXM: OpenXM/src/ox_math/mlo.c,v 1.13 2003/01/15 10:46:09 ohara Exp $ */

Line 41 static unsigned state = 0;

static int ml_current_packet = -1;

static double mathkernel_version;

/* If this flag sets then we identify MLTKSYM to CMO_INDETERMINATE. */

int flag_mlo_symbol = FLAG_MLTKSYM_IS_INDETERMINATE;

Line 51 mlo *receive_mlo_real()

Line 53 mlo *receive_mlo_real()

{

char *s;

cmo *ob;

#if 1

double d;

MLGetReal(stdlink, &d);

ox_printf("MLTKREAL(%lf)", d);

ob = new_cmo_double(d);

#else

/* Yet we have no implementation of CMO_DOUBLE... */

MLGetString(stdlink, &s);

ox_printf("MLTKREAL(%s)", s);

ob = (cmo *)new_cmo_string(s);

MLDisownString(stdlink, s);

#endif

return ob;

}

Line 186 int ml_init()

Line 196 int ml_init()

ox_printf("Mathematica Kernel not found.\n");

exit(1);

}

/* set the version of Mathematica kernel. */

ml_evaluateStringByLocalParser("$VersionNumber");

mathkernel_version = ((cmo_double *)ml_return())->d;

ox_printf("Kernel Version = %lf\n", mathkernel_version);

return 0;

}