| version 1.15, 2003/02/12 08:28:40 |
version 1.19, 2003/03/30 08:07:10 |
|
|
| /* -*- 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.18 2003/03/23 21:56:11 ohara Exp $ */ |
| |
|
| /* |
/* |
| Copyright (C) Katsuyoshi OHARA, 2000. |
Copyright (C) Katsuyoshi OHARA, 2000. |
| Line 519 mlo *ml_return() |
|
| Line 519 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