| version 1.16, 2003/03/16 16:58:48 |
version 1.18, 2003/03/23 21:56:11 |
|
|
| /* -*- mode: C -*- */ |
/* -*- mode: C -*- */ |
| /* $OpenXM: OpenXM/src/ox_math/mlo.c,v 1.15 2003/02/12 08:28:40 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 524 mlo *ml_return() |
|
| Line 528 mlo *ml_return() |
|
| ml_clear_interruption(); |
ml_clear_interruption(); |
| }else { |
}else { |
| ml_clear_interruption(); |
ml_clear_interruption(); |
| ml_evaluateStringByLocalParser("0"); /* need for 4.x */ |
MLFlush(stdlink); /* need for 4.x */ |
| ob = ml_return0(); /* ReturnPacket[$Aborted] */ |
ob = ml_return0(); /* ReturnPacket[$Aborted] */ |
| ml_return0(); /* need for 4.x */ |
|
| } |
} |
| }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