OpenXM_contrib2/asir2000/io/pexpr_body.c - diff

Return to pexpr_body.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / io

version 1.4, 2004/07/13 07:59:54

version 1.5, 2004/12/02 13:48:43

Line 1

/* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.3 2004/05/14 06:02:54 noro Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.4 2004/07/13 07:59:54 noro Exp $ */

#define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))

Line 38 void PRINTTB();

void PRINTDPV();

void PRINTFNODE();

void PRINTBF();

void PRINTDAlg();

void PRINTEXPR(vl,p)

VL vl;

Line 600 void PRINTNUM(q)

Line 601 void PRINTNUM(q)

Num q;

{

char real_format[20];

DAlg d;

DP nm;

Q dn;

if ( !q ) {

PUTS("0");

Line 820 Num q;

Line 824 Num q;

break;

case N_GFSN:

PRINTUM(BDY((GFSN)q));

break;

case N_DA:

d = (DAlg)q;

nm = d->nm;

dn = d->dn;

if ( SGN((Q)dn) == -1 ) PUTS("-");

PUTS("(");

PRINTDP(CO,((DAlg)q)->nm);

PUTS(")");

if ( !UNIN(NM(dn)) ) {

PUTS("/");

PRINTN(NM(dn));

}

break;

}