[BACK]Return to test1.c CVS log [TXT][DIR] 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, 4 months ago) by ohara
Branch: MAIN
CVS Tags: R_1_3_1-2, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9 

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();
}