| version 1.31, 2015/08/20 08:42:07 |
version 1.32, 2015/08/21 06:00:29 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/builtin/parif.c,v 1.30 2015/08/19 05:53:13 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/builtin/parif.c,v 1.31 2015/08/20 08:42:07 noro Exp $ */ |
| #include "ca.h" |
#include "ca.h" |
| #include "parse.h" |
#include "parse.h" |
| #include "ox.h" |
#include "ox.h" |
| Line 110 pointer evalparif(FUNC f,NODE arg) |
|
| Line 110 pointer evalparif(FUNC f,NODE arg) |
|
| Obj ret,dmy; |
Obj ret,dmy; |
| mpfr_func mpfr_function; |
mpfr_func mpfr_function; |
| |
|
| if ( mpfr_function = mpfr_search(f->name) ) { |
if ( arg && ARG0(arg) && NID((Num)ARG0(arg)) != N_C |
| (*mpfr_function)(arg,&ret); |
&& (mpfr_function = mpfr_search(f->name)) ) { |
| return (pointer) ret; |
(*mpfr_function)(arg,&ret); |
| |
return (pointer) ret; |
| } |
} |
| |
|
| if ( !ox_pari_stream_initialized ) { |
if ( !ox_pari_stream_initialized ) { |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to parif.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / builtin