OpenXM_contrib2/asir2000/builtin/parif.c - diff

Return to parif.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

version 1.25, 2015/08/17 05:18:36

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

Line 1

/* $OpenXM: OpenXM_contrib2/asir2000/builtin/parif.c,v 1.24 2015/08/16 03:12:09 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 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 {