| version 1.5, 2004/12/02 13:48:43 |
version 1.6, 2004/12/17 03:09:08 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.4 2004/07/13 07:59:54 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.5 2004/12/02 13:48:43 noro Exp $ */ |
| |
|
| #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^")) |
#define PRINTHAT (fortran_output?PUTS("**"):PUTS("^")) |
| |
|
| Line 44 void PRINTEXPR(vl,p) |
|
| Line 44 void PRINTEXPR(vl,p) |
|
| VL vl; |
VL vl; |
| Obj p; |
Obj p; |
| { |
{ |
| #if defined(FPRINT) |
|
| if ( asir_texmacs && !user_print_function ) printf("\2verbatim:"); |
|
| #endif |
|
| if ( !p ) { |
if ( !p ) { |
| PRINTR(vl,(R)p); |
PRINTR(vl,(R)p); |
| } else |
} else |
|
|
| default: |
default: |
| break; |
break; |
| } |
} |
| #if defined(FPRINT) |
|
| if ( asir_texmacs && !user_print_function ) |
|
| { putchar('\5'); fflush(stdout); } |
|
| #endif |
|
| } |
} |
| |
|
| #if defined(FPRINT) |
#if defined(FPRINT) |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to pexpr_body.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / io