| version 1.10, 2015/08/20 08:42:07 |
version 1.11, 2015/08/25 18:41:03 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/builtin/bfaux.c,v 1.9 2015/08/17 05:18:36 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/builtin/bfaux.c,v 1.10 2015/08/20 08:42:07 noro Exp $ */ |
| #include "ca.h" |
#include "ca.h" |
| #include "parse.h" |
#include "parse.h" |
| |
|
| Line 97 void Psetprec(NODE arg,Obj *rp) |
|
| Line 97 void Psetprec(NODE arg,Obj *rp) |
|
| STOQ(dprec,q); *rp = (Obj)q; |
STOQ(dprec,q); *rp = (Obj)q; |
| if ( arg ) { |
if ( arg ) { |
| asir_assert(ARG0(arg),O_N,"setprec"); |
asir_assert(ARG0(arg),O_N,"setprec"); |
| prec = QTOS((Q)ARG0(arg))*3.32193; |
p = QTOS((Q)ARG0(arg))*3.32193; |
| if ( p > 0 ) |
if ( p > 0 ) |
| prec = p; |
prec = p; |
| } |
} |
| Line 118 void Psetbprec(NODE arg,Obj *rp) |
|
| Line 118 void Psetbprec(NODE arg,Obj *rp) |
|
| STOQ(prec,q); *rp = (Obj)q; |
STOQ(prec,q); *rp = (Obj)q; |
| if ( arg ) { |
if ( arg ) { |
| asir_assert(ARG0(arg),O_N,"setbprec"); |
asir_assert(ARG0(arg),O_N,"setbprec"); |
| prec = QTOS((Q)ARG0(arg)); |
p = QTOS((Q)ARG0(arg)); |
| if ( p > 0 ) |
if ( p > 0 ) |
| prec = p; |
prec = p; |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to bfaux.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / builtin