OpenXM_contrib2/asir2018/builtin/print.c - diff

Return to print.c CVS log

Up to [local] / OpenXM_contrib2 / asir2018 / builtin

version 1.4, 2020/10/06 06:31:19

version 1.5, 2021/03/11 03:41:13

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2018/builtin/print.c,v 1.3 2020/02/22 06:23:35 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2018/builtin/print.c,v 1.4 2020/10/06 06:31:19 noro Exp $

#include "ca.h"

#include "parse.h"

Line 164 void Peval_variables_in_quote(NODE arg,QUOTE *rp)

void fnodetotree(FNODE f,VS vs,LIST *rp)

{

LIST a1,a2,a3;

NODE n,t,t0;

NODE n,t,t0,t1;

STRING head,op,str;

char *opname;

Line 326 void fnodetotree(FNODE f,VS vs,LIST *rp)

t0 = NEXT(BDY(a1)); /* XXX : skip the headers */

MKNODE(t,op,t0);

MKNODE(n,head,t);

MKLIST(*rp,n);

break;

/* partial derivative of function */

case I_PFDERIV:

MKSTR(head,"derivative");

MKSTR(op,((FUNC)FA0(f))->fullname);

fnodetotree((FNODE)FA1(f),vs,&a1);

fnodetotree((FNODE)FA2(f),vs,&a2);

n = mknode(4,head,op,a1,a2);

MKLIST(*rp,n);

break;