| version 1.11, 2005/12/10 14:14:15 |
version 1.14, 2013/12/20 02:02:24 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.10 2005/11/16 23:42:54 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 1087 void PRINTNBP(VL vl,NBP p) |
|
| Line 1093 void PRINTNBP(VL vl,NBP p) |
|
| else { |
else { |
| for ( t = BDY(p); t; t = NEXT(t) ) { |
for ( t = BDY(p); t; t = NEXT(t) ) { |
| m = (NBM)BDY(t); |
m = (NBM)BDY(t); |
| |
PUTS("("); |
| PRINTEXPR(vl,(Obj)m->c); |
PRINTEXPR(vl,(Obj)m->c); |
| |
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