OpenXM_contrib2/asir2000/builtin/print.c - diff

Return to print.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

version 1.5, 2001/08/21 01:39:38

version 1.6, 2001/08/22 00:54:29

Line 45

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

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/builtin/print.c,v 1.4 2001/08/06 01:48:32 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/print.c,v 1.5 2001/08/21 01:39:38 noro Exp $

#include "ca.h"

#include "parse.h"

Line 188 Obj *rp;

MKLIST(arg,t0);

switch ( f->id ) {

case I_LIST:

*rp = (Obj)arg; break;

MKSTR(head,"()"); break;

case I_EV:

MKSTR(head,"exponent_vector");

MKSTR(head,"exponent_vector"); break;

n = mknode(2,head,arg);

MKLIST(r,n);

*rp = (Obj)r;

break;

}

n = mknode(2,head,arg);

MKLIST(r,n);

*rp = (Obj)r;

break;

case I_FUNC:

fnodetotree((FNODE)FA1(f),&arg);

Line 224 Obj *rp;

Line 223 Obj *rp;

n = mknode(2,head,arg);

MKLIST(r,n);

*rp = (Obj)r;

break;

case I_STR:

MKSTR(head,FA0(f));

*rp = (Obj)head;

break;

case I_FORMULA:

*rp = (Obj)FA0(f);