OpenXM_contrib2/asir2000/io/pexpr_body.c - diff

Return to pexpr_body.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / io

version 1.1, 2004/03/17 03:22:47

version 1.2, 2004/03/26 08:25:36

Line 1

/* $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("^"))

Line 983 QUOTE quote;

void PRINTTB(VL vl,TB p)

{

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++ ) {

PUTS(p->body[i]);

}

#endif

}

void PRINTUP2(p)