OpenXM_contrib2/asir2000/io/spexpr.c - diff

Return to spexpr.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/spexpr.c,v 1.4 2000/08/22 05:04:18 noro Exp $

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

#include "ca.h"

#include "al.h"

Line 103 static char *buf;

extern char DFORMAT[BUFSIZ];

extern int hex_output;

extern int fortran_output;

extern int double_output;

#define TAIL while ( *OUT ) OUT++;

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

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(")");