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.26 and 1.28

version 1.26, 2015/08/18 02:26:05

version 1.28, 2015/08/18 05:35:17

Line 1

/* $OpenXM: OpenXM_contrib2/asir2000/builtin/parif.c,v 1.25 2015/08/17 05:18:36 noro Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2000/builtin/parif.c,v 1.27 2015/08/18 02:31:32 noro Exp $ */

#include "ca.h"

#include "parse.h"

#include "ox.h"

Line 48 mpfr_func mpfr_search(char *name)

return 0;

}

Obj list_to_vect(Obj a)

{

int len,i;

VECT v;

NODE nd;

if ( !a || OID(a) != O_LIST ) return a;

len = length(BDY((LIST)a));

MKVECT(v,len);

for ( i = 0, nd = BDY((LIST)a); nd; nd = NEXT(nd), i++ )

v->body[i] = (pointer)list_to_vect((Obj)BDY(nd));

return (Obj)v;

}

pointer evalparif(FUNC f,NODE arg)

{

int ac,intarg,opt,prec;

Line 66 pointer evalparif(FUNC f,NODE arg)

Line 80 pointer evalparif(FUNC f,NODE arg)

if ( !ox_pari_stream_initialized ) {

MKSTR(name,"ox_pari");

nd = mknode(2,NULL,name);

Pox_launch(nd,&r);

Pox_launch_nox(nd,&r);

ox_pari_stream = r;

ox_pari_stream_initialized = 1;

}

Line 86 pointer evalparif(FUNC f,NODE arg)

Line 100 pointer evalparif(FUNC f,NODE arg)

oxarg = mknode(3,ox_pari_stream,name,narg);

Pox_execute_function(oxarg,&dmy);

oxarg = mknode(1,ox_pari_stream);

Pox_pop_cmo(oxarg,&r);

Pox_pop_cmo(oxarg,&ret);

return r;

if ( ret && OID(ret) == O_LIST )

ret = list_to_vect(ret);

return ret;

}

struct pariftab {

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