| version 1.22, 2015/08/07 06:16:12 |
version 1.23, 2015/08/07 08:00:30 |
|
|
| /* $OpenXM$ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/builtin/parif.c,v 1.22 2015/08/07 06:16:12 takayama Exp $ */ |
| #include "ca.h" |
#include "ca.h" |
| #include "parse.h" |
#include "parse.h" |
| #include "ox.h" |
#include "ox.h" |
| Line 20 pointer evalparif(FUNC f,NODE arg) |
|
| Line 20 pointer evalparif(FUNC f,NODE arg) |
|
| return((pointer) ret); |
return((pointer) ret); |
| }else if (strcmp(f->name,"floor")==0) { |
}else if (strcmp(f->name,"floor")==0) { |
| Pmpfr_floor(arg,&ret); |
Pmpfr_floor(arg,&ret); |
| |
return((pointer) ret); |
| |
}else if (strcmp(f->name,"round")==0) { |
| |
Pmpfr_round(arg,&ret); |
| return((pointer) 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