version 1.38, 2018/03/29 01:32:50 |
version 1.40, 2020/10/04 03:14:07 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/builtin/parif.c,v 1.37 2017/08/30 09:40:30 ohara Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/builtin/parif.c,v 1.39 2018/04/09 04:07:27 noro Exp $ */ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
#include "ox.h" |
#include "ox.h" |
Line 18 void Pmpfr_y0(), Pmpfr_y1(); |
|
Line 18 void Pmpfr_y0(), Pmpfr_y1(); |
|
void Pmpfr_gamma(), Pmpfr_lngamma(), Pmpfr_digamma(); |
void Pmpfr_gamma(), Pmpfr_lngamma(), Pmpfr_digamma(); |
void Pmpfr_floor(), Pmpfr_round(), Pmpfr_ceil(); |
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); |
|
|
struct mpfr_tab_rec { |
struct mpfr_tab_rec { |
char *name; |
char *name; |
mpfr_func func; |
mpfr_func func; |
Line 91 Obj vect_to_mat(VECT v) |
|
Line 98 Obj vect_to_mat(VECT v) |
|
void reset_ox_pari() |
void reset_ox_pari() |
{ |
{ |
NODE nd; |
NODE nd; |
Obj r; |
Q r; |
|
|
if ( ox_get_pari_result ) { |
if ( ox_get_pari_result ) { |
nd = mknode(1,ox_pari_stream); |
nd = mknode(1,ox_pari_stream); |
Line 104 void reset_ox_pari() |
|
Line 111 void reset_ox_pari() |
|
pointer evalparif(FUNC f,NODE arg) |
pointer evalparif(FUNC f,NODE arg) |
{ |
{ |
int ac,intarg,opt,prec; |
int ac,intarg,opt,prec; |
Q q,r,narg,cmd; |
Q q,narg,cmd; |
Real sec; |
Real sec; |
NODE nd,oxarg,t,t1,n; |
NODE nd,oxarg,t,t1,n; |
STRING name; |
STRING name; |
USINT ui; |
USINT ui; |
LIST list; |
LIST list; |
Obj ret,dmy; |
Obj ret,dmy,r; |
mpfr_func mpfr_function; |
mpfr_func mpfr_function; |
V v; |
V v; |
|
|
Line 329 struct pariftab pariftab[] = { |
|
Line 336 struct pariftab pariftab[] = { |
|
|
|
{"allocatemem",0,0}, |
{"allocatemem",0,0}, |
|
|
|
{"factpol",0,2}, |
{"isprime",0,2}, |
{"isprime",0,2}, |
{"factorint",0,2}, |
{"factorint",0,2}, |
{0,0,0}, |
{0,0,0}, |