version 1.1, 2004/03/17 03:22:47 |
version 1.2, 2004/03/26 08:25:36 |
|
|
/* $OpenXM$ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.1 2004/03/17 03:22:47 noro Exp $ */ |
|
|
#define PRINTHAT (fortran_output?PUTS("**"):PUTS("^")) |
#define PRINTHAT (fortran_output?PUTS("**"):PUTS("^")) |
|
|
|
|
void PRINTTB(VL vl,TB p) |
void PRINTTB(VL vl,TB p) |
{ |
{ |
int i; |
int i; |
|
#if defined(SPRINT) |
|
char *ptr,*e; |
|
|
|
for ( i = 0, ptr = buf+strlen(OUT); i < p->next; i++ ) |
|
for ( e = p->body[i]; *e; *ptr++ = *e++ ); |
|
*ptr = 0; |
|
#else |
for ( i = 0; i < p->next; i++ ) { |
for ( i = 0; i < p->next; i++ ) { |
PUTS(p->body[i]); |
PUTS(p->body[i]); |
} |
} |
|
#endif |
} |
} |
|
|
void PRINTUP2(p) |
void PRINTUP2(p) |