OpenXM_contrib2/asir2000/builtin/parif.c - diff

Return to parif.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

version 1.19, 2015/08/06 09:12:29

version 1.22, 2015/08/07 06:16:12

Line 1

/* $OpenXM$ */

#include "ca.h"

#include "parse.h"

#include "ox.h"

Line 14 pointer evalparif(FUNC f,NODE arg)

Line 15 pointer evalparif(FUNC f,NODE arg)

USINT ui;

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);

}

if ( !ox_pari_stream_initialized ) {

MKSTR(name,"ox_pari");

nd = mknode(2,NULL,name);