version 1.28, 2004/02/04 07:42:07 |
version 1.29, 2004/02/09 08:23:30 |
|
|
* 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.27 2003/12/25 02:40:24 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr.c,v 1.28 2004/02/04 07:42:07 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "al.h" |
#include "al.h" |
Line 108 int print_quote; |
|
Line 108 int print_quote; |
|
#define PRINTUM printum |
#define PRINTUM printum |
#define PRINTSF printsf |
#define PRINTSF printsf |
#define PRINTSYMBOL printsymbol |
#define PRINTSYMBOL printsymbol |
|
#define PRINTRANGE printrange |
#endif |
#endif |
|
|
#ifdef SPRINT |
#ifdef SPRINT |
Line 156 extern int print_quote; |
|
Line 157 extern int print_quote; |
|
#define PRINTUM sprintum |
#define PRINTUM sprintum |
#define PRINTSF sprintsf |
#define PRINTSF sprintsf |
#define PRINTSYMBOL sprintsymbol |
#define PRINTSYMBOL sprintsymbol |
|
#define PRINTRANGE sprintrange |
#endif |
#endif |
|
|
void PRINTEXPR(); |
void PRINTEXPR(); |
Line 188 void PRINTLOP(); |
|
Line 190 void PRINTLOP(); |
|
void PRINTQOP(); |
void PRINTQOP(); |
void PRINTSF(); |
void PRINTSF(); |
void PRINTSYMBOL(); |
void PRINTSYMBOL(); |
|
void PRINTRANGE(); |
|
|
#ifdef FPRINT |
#ifdef FPRINT |
void output_init() { |
void output_init() { |
|
|
case O_QUOTE: |
case O_QUOTE: |
PRINTQUOTE(vl,(QUOTE)p); break; |
PRINTQUOTE(vl,(QUOTE)p); break; |
case O_SYMBOL: |
case O_SYMBOL: |
PRINTSYMBOL((Symbol)p); break; |
PRINTSYMBOL((SYMBOL)p); break; |
|
case O_RANGE: |
|
PRINTRANGE(vl,(RANGE)p); break; |
default: |
default: |
break; |
break; |
} |
} |
Line 1177 unsigned int i; |
|
Line 1182 unsigned int i; |
|
} |
} |
} |
} |
|
|
void PRINTSYMBOL(Symbol p) |
void PRINTSYMBOL(SYMBOL sym) |
{ |
{ |
PUTS(p->name); |
PUTS(sym->name); |
|
} |
|
|
|
void PRINTRANGE(VL vl,RANGE p) |
|
{ |
|
PUTS("range("); |
|
PRINTEXPR(vl,p->start); |
|
PUTS(","); |
|
PRINTEXPR(vl,p->end); |
|
PUTS(")"); |
} |
} |