| version 1.15, 2003/02/12 08:28:40 |
version 1.18, 2003/03/23 21:56:11 |
|
|
| /* -*- mode: C -*- */ |
/* -*- mode: C -*- */ |
| /* $OpenXM: OpenXM/src/ox_math/mlo.c,v 1.14 2003/01/17 11:31:10 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/ox_math/mlo.c,v 1.17 2003/03/18 05:20:06 ohara Exp $ */ |
| |
|
| /* |
/* |
| Copyright (C) Katsuyoshi OHARA, 2000. |
Copyright (C) Katsuyoshi OHARA, 2000. |
| Line 88 mlo *receive_mlo_zz() |
|
| Line 88 mlo *receive_mlo_zz() |
|
| |
|
| MLGetString(stdlink, &s); |
MLGetString(stdlink, &s); |
| ox_printf("%s", s); |
ox_printf("%s", s); |
| |
#if defined(WITH_GMP) |
| m = (mlo *)new_cmo_zz_set_string(s); |
m = (mlo *)new_cmo_zz_set_string(s); |
| |
#else |
| |
m = (mlo *)new_cmo_int32(atoi(s)); |
| |
#endif /* WITH_GMP */ |
| MLDisownString(stdlink, s); |
MLDisownString(stdlink, s); |
| return m; |
return m; |
| } |
} |
| Line 519 mlo *ml_return() |
|
| Line 523 mlo *ml_return() |
|
| mlo *ob; |
mlo *ob; |
| if (ml_state(INTERRUPTED)) { |
if (ml_state(INTERRUPTED)) { |
| if (ml_next_packet() == RETURNPKT) { |
if (ml_next_packet() == RETURNPKT) { |
| |
/* a computation has done before the interruption */ |
| ob = ml_return0(); |
ob = ml_return0(); |
| |
ml_clear_interruption(); |
| }else { |
}else { |
| ob = (mlo *)new_cmo_indeterminate((cmo *)new_cmo_string("$Aborted")); |
ml_clear_interruption(); |
| |
MLFlush(stdlink); /* need for 4.x */ |
| |
ob = ml_return0(); /* ReturnPacket[$Aborted] */ |
| } |
} |
| ml_clear_interruption(); |
|
| }else { |
}else { |
| ob = ml_return0(); |
ob = ml_return0(); |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to mlo.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / ox_math