Return to test1.c CVS log | Up to [local] / OpenXM / src / ox_math |
File: [local] / OpenXM / src / ox_math / test1.c (download)
Revision 1.1, Wed Jan 15 05:13:10 2003 UTC (21 years, 8 months ago) by ohara
testsuites for interruption on MathLink. |
/* -*- mode: C -*- */ /* $OpenXM: OpenXM/src/ox_math/test1.c,v 1.1 2003/01/15 05:13:10 ohara Exp $ */ #include <stdio.h> #include <unistd.h> #include <mathlink.h> #include <ox_toolkit.h> #include "mlo.h" #define CMD1 "If[True, Pause[200]; 20, -1]" /* #define CMD1 "If[True, 20, -1]" */ // #define CMD2 "If[True, Pause[1]; SessionTime[], -1]" #define CMD2 "Print[\"hoge\"] ; 4+5" int fase1(char *cmd) { ml_evaluateStringByLocalParser(cmd); sleep(1); ml_interrupt(); ml_return(); ox_printf("====\n"); } int fase2(char *cmd) { ml_evaluateStringByLocalParser(cmd); ml_return(); ox_printf("====\n"); } int main() { /* ox_stderr_init(fopen("ZZ.Linux", "w+")); */ ox_stderr_init(NULL); ml_init(); fase2(CMD2); fase1(CMD1); fase2(CMD2); ml_exit(); }