version 1.14, 2001/08/06 01:48:33 |
version 1.15, 2001/08/28 05:46:26 |
|
|
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* $OpenXM: OpenXM_contrib2/asir2000/io/spexpr.c,v 1.13 2001/04/20 02:34:23 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/spexpr.c,v 1.14 2001/08/06 01:48:33 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "al.h" |
#include "al.h" |
|
|
} |
} |
} |
} |
|
|
extern int printmode; |
#if defined(FPRINT) |
|
#if defined(ITVDEBUG) |
|
void printbin(double z) |
|
{ |
|
int i, j, mask; |
|
union { |
|
double x; |
|
char c[8]; |
|
} a; |
|
|
|
a.x = z; |
|
for(i=7;i>=0;i--) { |
|
mask = 0x80; |
|
for(j=0;j<8;j++) { |
|
if (a.c[i] & mask) fprintf(stderr,"1"); |
|
else fprintf(stderr,"0"); |
|
mask >>= 1; |
|
} |
|
} |
|
fprintf(stderr,"\n"); |
|
} |
|
#endif |
|
#endif |
|
|
|
#if defined(FPRINT) |
|
#if 0 |
|
int printmode = PRINTF_E; |
|
#else |
|
int printmode = PRINTF_G; |
|
#endif |
|
#else |
|
extern int printmode; |
|
#endif |
|
|
void PRINTNUM(q) |
void PRINTNUM(q) |
Num q; |
Num q; |
{ |
{ |
Line 734 void PRINTQUOTE(vl,quote) |
|
Line 766 void PRINTQUOTE(vl,quote) |
|
VL vl; |
VL vl; |
QUOTE quote; |
QUOTE quote; |
{ |
{ |
PUTS("<...quoted...>"); |
LIST list; |
|
|
|
if ( print_quote ) { |
|
fnodetotree(BDY(quote),&list); |
|
PRINTEXPR(vl,(Obj)list); |
|
} else { |
|
PUTS("<...quoted...>"); |
|
} |
} |
} |
|
|
void PRINTERR(vl,e) |
void PRINTERR(vl,e) |