| version 1.10, 2005/11/16 23:42:54 |
version 1.11, 2005/12/10 14:14:15 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.9 2005/09/28 08:08:34 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.10 2005/11/16 23:42:54 noro Exp $ */ |
| |
|
| #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^")) |
#define PRINTHAT (fortran_output?PUTS("**"):PUTS("^")) |
| |
|
| Line 616 void PRINTFNODE(FNODE f,int paren) |
|
| Line 616 void PRINTFNODE(FNODE f,int paren) |
|
| /* lists */ |
/* lists */ |
| case I_LIST: PUTS("["); PRINTFNODENODE((NODE)FA0(f)); PUTS("]"); break; |
case I_LIST: PUTS("["); PRINTFNODENODE((NODE)FA0(f)); PUTS("]"); break; |
| /* function */ |
/* function */ |
| case I_FUNC: |
case I_FUNC: case I_FUNC_QARG: |
| if ( !strcmp(((FUNC)FA0(f))->name,"@pi") ) PUTS("@pi"); |
if ( !strcmp(((FUNC)FA0(f))->name,"@pi") ) PUTS("@pi"); |
| else if ( !strcmp(((FUNC)FA0(f))->name,"@e") ) PUTS("@e"); |
else if ( !strcmp(((FUNC)FA0(f))->name,"@e") ) PUTS("@e"); |
| else { |
else { |
![[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