| version 1.12, 2006/04/16 00:51:14 |
version 1.14, 2013/12/20 02:02:24 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.11 2005/12/10 14:14:15 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.13 2006/08/27 22:17:28 noro Exp $ */ |
| |
|
| #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^")) |
#define PRINTHAT (fortran_output?PUTS("**"):PUTS("^")) |
| |
|
|
|
| PRINTN(NM(dn)); |
PRINTN(NM(dn)); |
| } |
} |
| break; |
break; |
| |
case N_GZ: |
| |
mpz_out_str(OUT,10,BDY((GZ)q)); |
| |
break; |
| |
case N_GQ: |
| |
mpq_out_str(OUT,10,BDY((GQ)q)); |
| |
break; |
| } |
} |
| } |
} |
| |
|
| Line 1092 void PRINTNBP(VL vl,NBP p) |
|
| Line 1098 void PRINTNBP(VL vl,NBP p) |
|
| PUTS(")*"); |
PUTS(")*"); |
| d = m->d; |
d = m->d; |
| b = m->b; |
b = m->b; |
| for ( i = 0; i < d; i++ ) { |
if ( d ) |
| if ( NBM_GET(b,i) ) PUTS("x"); |
for ( i = 0; i < d; i++ ) { |
| else PUTS("y"); |
if ( NBM_GET(b,i) ) PUTS("x"); |
| } |
else PUTS("y"); |
| |
} |
| |
else PUTS("1"); |
| if ( NEXT(t) ) PUTS("+"); |
if ( NEXT(t) ) PUTS("+"); |
| } |
} |
| } |
} |
![[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