OpenXM_contrib2/asir2018/builtin/parif.c - diff

Return to parif.c CVS log

Up to [local] / OpenXM_contrib2 / asir2018 / builtin

version 1.1, 2018/09/19 05:45:06

version 1.2, 2018/09/28 08:20:27

Line 1

/* $OpenXM$ */

/* $OpenXM: OpenXM_contrib2/asir2018/builtin/parif.c,v 1.1 2018/09/19 05:45:06 noro Exp $ */

#include "ca.h"

#include "parse.h"

#include "ox.h"

Line 159 pointer evalparif(FUNC f,NODE arg)

Pox_push_cmo(oxarg,&dmy);

}

MKSTR(name,f->name);

STOQ(ac,narg);

STOZ(ac,narg);

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

Pox_execute_function(oxarg,&dmy);

ox_get_pari_result = 1;

#if defined(VISUAL) || defined(__MINGW32__)

#define SM_popCMO 262

STOQ(SM_popCMO,cmd);

STOZ(SM_popCMO,cmd);

oxarg = mknode(2,ox_pari_stream,cmd);

Pox_push_cmd(oxarg,&dmy);

nd = mknode(1,ox_pari_stream);