| version 1.15, 2003/02/12 08:28:40 |
version 1.20, 2005/07/19 10:42:53 |
|
|
| /* -*- 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.19 2003/03/30 08:07:10 ohara Exp $ */ |
| |
|
| /* |
/* |
| Copyright (C) Katsuyoshi OHARA, 2000. |
Copyright (C) Katsuyoshi OHARA, 2000. |
| Line 381 int ml_read_packet() |
|
| Line 381 int ml_read_packet() |
|
| ox_printf("RESUMEPKT[]"); |
ox_printf("RESUMEPKT[]"); |
| break; |
break; |
| default: |
default: |
| |
; |
| } |
} |
| ox_printf("\n"); |
ox_printf("\n"); |
| return pkt; |
return pkt; |
| Line 519 mlo *ml_return() |
|
| Line 520 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