OpenXM_contrib2/asir2000/io/pexpr.c - diff

Return to pexpr.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / io

version 1.5, 2000/11/08 08:02:51

version 1.6, 2000/12/13 10:54:09

Line 44

* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY

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

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr.c,v 1.4 2000/08/22 05:04:18 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr.c,v 1.5 2000/11/08 08:02:51 noro Exp $

#include "ca.h"

#include "al.h"

Line 64 FILE *asir_out;

char DFORMAT[BUFSIZ];

int hex_output;

int fortran_output;

int double_output;

#define TAIL

#define PUTS(s) fputs(s,OUT)

Line 303 Num q;

Line 304 Num q;

}

break;

case N_R:

TAIL PRINTF(OUT,"%g",BDY((Real)q));

TAIL PRINTF(OUT,double_output?"%f":"%g",BDY((Real)q));

break;

case N_A:

PUTS("("); PRINTR(ALG,(R)BDY((Alg)q)); PUTS(")");