OpenXM_contrib2/asir2000/builtin/parif.c - diff

Return to parif.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/parif.c between version 1.38 and 1.40

version 1.38, 2018/03/29 01:32:50

version 1.40, 2020/10/04 03:14:07

Line 1

/* $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 "parse.h"

#include "ox.h"

Line 18 void Pmpfr_y0(), Pmpfr_y1();

void Pmpfr_gamma(), Pmpfr_lngamma(), Pmpfr_digamma();

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 {

char *name;

mpfr_func func;

Line 91 Obj vect_to_mat(VECT v)

Line 98 Obj vect_to_mat(VECT v)

void reset_ox_pari()

{

NODE nd;

Obj r;

Q r;

if ( ox_get_pari_result ) {

nd = mknode(1,ox_pari_stream);

Line 104 void reset_ox_pari()

Line 111 void reset_ox_pari()

pointer evalparif(FUNC f,NODE arg)

{

int ac,intarg,opt,prec;

Q q,r,narg,cmd;

Q q,narg,cmd;

Real sec;

NODE nd,oxarg,t,t1,n;

STRING name;

USINT ui;

LIST list;

Obj ret,dmy;

Obj ret,dmy,r;

mpfr_func mpfr_function;

V v;

Line 329 struct pariftab pariftab[] = {

Line 336 struct pariftab pariftab[] = {

{"allocatemem",0,0},

{"factpol",0,2},

{"isprime",0,2},

{"factorint",0,2},

{0,0,0},

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>