version 1.16, 2003/12/25 02:40:24 |
version 1.18, 2004/03/03 09:25: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/cpexpr.c,v 1.15 2003/02/14 22:29:15 ohara Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/cpexpr.c,v 1.17 2004/02/09 08:23:30 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 81 extern int hex_output,fortran_output,double_output,rea |
|
Line 81 extern int hex_output,fortran_output,double_output,rea |
|
#define PRINTGFMMAT length_gfmmat |
#define PRINTGFMMAT length_gfmmat |
#define PRINTBYTEARRAY length_bytearray |
#define PRINTBYTEARRAY length_bytearray |
#define PRINTQUOTE length_QUOTE |
#define PRINTQUOTE length_QUOTE |
|
#define PRINTSYMBOL length_SYMBOL |
|
#define PRINTRANGE length_RANGE |
|
#define PRINTTB length_TB |
#define PRINTERR length_err |
#define PRINTERR length_err |
#define PRINTLF length_lf |
#define PRINTLF length_lf |
#define PRINTLOP length_lop |
#define PRINTLOP length_lop |
Line 108 void PRINTGF2MAT(); |
|
Line 111 void PRINTGF2MAT(); |
|
void PRINTGFMMAT(); |
void PRINTGFMMAT(); |
void PRINTBYTEARRAY(); |
void PRINTBYTEARRAY(); |
void PRINTQUOTE(); |
void PRINTQUOTE(); |
|
void PRINTSYMBOL(); |
|
void PRINTRANGE(); |
|
void PRINTTB(); |
void PRINTERR(); |
void PRINTERR(); |
void PRINTCPLX(); |
void PRINTCPLX(); |
void PRINTLM(); |
void PRINTLM(); |
Line 189 void PRINTEXPR(VL vl,pointer p) |
|
Line 195 void PRINTEXPR(VL vl,pointer p) |
|
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; |
|
case O_RANGE: |
|
PRINTRANGE(vl,(RANGE)p); break; |
|
case O_TB: |
|
PRINTTB(vl,(TB)p); break; |
default: |
default: |
break; |
break; |
} |
} |
Line 539 void PRINTQUOTE(VL vl,QUOTE quote) |
|
Line 551 void PRINTQUOTE(VL vl,QUOTE quote) |
|
{ |
{ |
/* <...quoted...> */ |
/* <...quoted...> */ |
total_length += 20; |
total_length += 20; |
|
} |
|
|
|
void PRINTSYMBOL(SYMBOL sym) |
|
{ |
|
total_length += strlen(sym->name); |
|
} |
|
|
|
void PRINTRANGE(VL vl,RANGE r) |
|
{ |
|
PUTS("range("); PRINTEXPR(vl,r->start); |
|
PUTS(","); PRINTEXPR(vl,r->end); PUTS(")"); |
|
} |
|
|
|
void PRINTTB(VL vl,TB p) |
|
{ |
|
int i; |
|
|
|
for ( i = 0; i < p->next; i++ ) { |
|
total_length += strlen(p->body[i]); |
|
} |
} |
} |
|
|
void PRINTERR(VL vl,ERR e) |
void PRINTERR(VL vl,ERR e) |