OpenXM_contrib2/asir2018/builtin/parif.c - diff

Return to parif.c CVS log

Up to [local] / OpenXM_contrib2 / asir2018 / builtin

version 1.3, 2019/05/07 02:09:50

version 1.4, 2020/08/26 06:40:36

Line 1

/* $OpenXM: OpenXM_contrib2/asir2018/builtin/parif.c,v 1.2 2018/09/28 08:20:27 noro Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2018/builtin/parif.c,v 1.3 2019/05/07 02:09:50 noro Exp $ */

#include "ca.h"

#include "parse.h"

#include "ox.h"

Line 20 void Pmpfr_floor(), Pmpfr_round(), Pmpfr_ceil();

void Pox_shutdown(NODE arg,Q *rp);

void Pox_launch_nox(NODE arg,Obj *rp);

void Pox_launch(NODE arg,Obj *rp);

void Pox_push_cmo(NODE arg,Obj *rp);

void Pox_pop_cmo(NODE arg,Obj *rp);

void Pox_execute_function(NODE arg,Obj *rp);

int debug_pari;

struct mpfr_tab_rec {

char *name;

mpfr_func func;

Line 139 pointer evalparif(FUNC f,NODE arg)

Line 142 pointer evalparif(FUNC f,NODE arg)

#if !defined(VISUAL)

MKSTR(name,"ox_pari");

nd = mknode(2,NULL,name);

Pox_launch_nox(nd,(Obj *)&r);

if ( debug_pari )

Pox_launch(nd,(Obj *)&r);

else

Pox_launch_nox(nd,(Obj *)&r);

#else

error("Please load names.rr from latest asir-contrib library before using pari functions.");

#endif