version 1.27, 2003/12/25 02:40:24 |
version 1.28, 2004/02/04 07:42:07 |
|
|
* 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/pexpr.c,v 1.26 2003/12/24 08:00:38 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr.c,v 1.27 2003/12/25 02:40:24 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "al.h" |
#include "al.h" |
Line 107 int print_quote; |
|
Line 107 int print_quote; |
|
#define PRINTUP printup |
#define PRINTUP printup |
#define PRINTUM printum |
#define PRINTUM printum |
#define PRINTSF printsf |
#define PRINTSF printsf |
|
#define PRINTSYMBOL printsymbol |
#endif |
#endif |
|
|
#ifdef SPRINT |
#ifdef SPRINT |
Line 117 extern int hex_output; |
|
Line 118 extern int hex_output; |
|
extern int fortran_output; |
extern int fortran_output; |
extern int double_output; |
extern int double_output; |
extern int real_digit; |
extern int real_digit; |
|
extern int real_binary; |
extern int print_quote; |
extern int print_quote; |
|
|
|
|
Line 153 extern int print_quote; |
|
Line 155 extern int print_quote; |
|
#define PRINTUP sprintup |
#define PRINTUP sprintup |
#define PRINTUM sprintum |
#define PRINTUM sprintum |
#define PRINTSF sprintsf |
#define PRINTSF sprintsf |
|
#define PRINTSYMBOL sprintsymbol |
#endif |
#endif |
|
|
void PRINTEXPR(); |
void PRINTEXPR(); |
Line 184 void PRINTEOP(); |
|
Line 187 void PRINTEOP(); |
|
void PRINTLOP(); |
void PRINTLOP(); |
void PRINTQOP(); |
void PRINTQOP(); |
void PRINTSF(); |
void PRINTSF(); |
|
void PRINTSYMBOL(); |
|
|
#ifdef FPRINT |
#ifdef FPRINT |
void output_init() { |
void output_init() { |
|
|
PRINTBYTEARRAY(vl,(BYTEARRAY)p); break; |
PRINTBYTEARRAY(vl,(BYTEARRAY)p); break; |
case O_QUOTE: |
case O_QUOTE: |
PRINTQUOTE(vl,(QUOTE)p); break; |
PRINTQUOTE(vl,(QUOTE)p); break; |
|
case O_SYMBOL: |
|
PRINTSYMBOL((Symbol)p); break; |
default: |
default: |
break; |
break; |
} |
} |
Line 1169 unsigned int i; |
|
Line 1175 unsigned int i; |
|
} else { |
} else { |
TAIL PRINTF(OUT,"@_%d",IFTOF(i)); |
TAIL PRINTF(OUT,"@_%d",IFTOF(i)); |
} |
} |
|
} |
|
|
|
void PRINTSYMBOL(Symbol p) |
|
{ |
|
PUTS(p->name); |
} |
} |