| version 1.1, 2018/09/19 05:45:08 |
version 1.2, 2020/10/06 06:31:20 |
|
|
| * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
| * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
| * |
* |
| * $OpenXM$ |
* $OpenXM: OpenXM_contrib2/asir2018/parse/arith.c,v 1.1 2018/09/19 05:45:08 noro Exp $ |
| */ |
*/ |
| #include "ca.h" |
#include "ca.h" |
| #include "parse.h" |
#include "parse.h" |
| Line 220 void arf_div(VL vl,Obj a,Obj b,Obj *r) |
|
| Line 220 void arf_div(VL vl,Obj a,Obj b,Obj *r) |
|
| error("div : division by 0"); |
error("div : division by 0"); |
| if ( !a ) |
if ( !a ) |
| *r = 0; |
*r = 0; |
| else if ( (OID(a) == OID(b)) ) |
else if ( OID(a) == OID(b) ) |
| (*(afunc[OID(a)].div))(vl,a,b,r); |
(*(afunc[OID(a)].div))(vl,a,b,r); |
| else if ( (mid = MAX(OID(a),OID(b))) <= O_R || |
else if ( (mid = MAX(OID(a),OID(b))) <= O_R || |
| (mid == O_MAT) || (mid == O_VECT) || (mid == O_DP) || mid == O_QUOTE ) |
(mid == O_MAT) || (mid == O_VECT) || (mid == O_DP) || mid == O_QUOTE ) |
| Line 325 int complist(VL vl,LIST a,LIST b) |
|
| Line 325 int complist(VL vl,LIST a,LIST b) |
|
| else if ( !an && bn ) |
else if ( !an && bn ) |
| return -1; |
return -1; |
| for ( an = BDY(a), bn = BDY(b); an; an = NEXT(an), bn = NEXT(bn) ) |
for ( an = BDY(a), bn = BDY(b); an; an = NEXT(an), bn = NEXT(bn) ) |
| if ( t = arf_comp(vl,BDY(an),BDY(bn)) ) |
if ( ( t = arf_comp(vl,BDY(an),BDY(bn)) ) != 0 ) |
| return t; |
return t; |
| return 0; |
return 0; |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to arith.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2018 / parse