version 1.19, 2015/08/06 09:12:29 |
version 1.23, 2015/08/07 08:00:30 |
|
|
|
/* $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 14 pointer evalparif(FUNC f,NODE arg) |
|
Line 15 pointer evalparif(FUNC f,NODE arg) |
|
USINT ui; |
USINT ui; |
Obj ret,dmy; |
Obj ret,dmy; |
|
|
|
if (strcmp(f->name,"gamma")==0) { |
|
Pmpfr_gamma(arg,&ret); |
|
return((pointer) ret); |
|
}else if (strcmp(f->name,"floor")==0) { |
|
Pmpfr_floor(arg,&ret); |
|
return((pointer) ret); |
|
}else if (strcmp(f->name,"round")==0) { |
|
Pmpfr_round(arg,&ret); |
|
return((pointer) ret); |
|
} |
if ( !ox_pari_stream_initialized ) { |
if ( !ox_pari_stream_initialized ) { |
MKSTR(name,"ox_pari"); |
MKSTR(name,"ox_pari"); |
nd = mknode(2,NULL,name); |
nd = mknode(2,NULL,name); |