| version 1.5, 2003/01/15 05:08:10 |
version 1.6, 2003/01/15 10:16:10 |
|
|
| /* -*- mode: C; coding: euc-japan -*- */ |
/* -*- mode: C; coding: euc-japan -*- */ |
| /* $OpenXM: OpenXM/src/ox_math/sm_ext.c,v 1.4 2003/01/13 12:04:53 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/ox_math/sm_ext.c,v 1.5 2003/01/15 05:08:10 ohara Exp $ */ |
| |
|
| /* |
/* |
| Copyright (C) Katsuyoshi OHARA, 2000. |
Copyright (C) Katsuyoshi OHARA, 2000. |
|
|
| #include <stdlib.h> |
#include <stdlib.h> |
| #include <unistd.h> |
#include <unistd.h> |
| #include <gmp.h> |
#include <gmp.h> |
| #include <mathlink.h> |
|
| #include <ox_toolkit.h> |
#include <ox_toolkit.h> |
| #include "sm.h" |
#include "sm.h" |
| |
|
| Line 97 void sm_executeStringByLocalParser() |
|
| Line 96 void sm_executeStringByLocalParser() |
|
| /* for mathematica */ |
/* for mathematica */ |
| /* Sending the string `s' to mathematica for its evaluation. */ |
/* Sending the string `s' to mathematica for its evaluation. */ |
| ml_evaluateStringByLocalParser(s); |
ml_evaluateStringByLocalParser(s); |
| push(ml_returnvalue()); |
push(ml_return()); |
| } |
} |
| }else { |
}else { |
| #ifdef DEBUG |
#ifdef DEBUG |
| Line 130 void sm_executeFunction() |
|
| Line 129 void sm_executeFunction() |
|
| argv[i] = pop(); |
argv[i] = pop(); |
| } |
} |
| ml_executeFunction(func, argc, argv); |
ml_executeFunction(func, argc, argv); |
| push(ml_returnvalue()); |
push(ml_return()); |
| } |
} |
| |
|
| void sm_mathcap() |
void sm_mathcap() |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to sm_ext.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / ox_math