[BACK]Return to pexpr_body.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / io

Diff for /OpenXM_contrib2/asir2000/io/pexpr_body.c between version 1.11 and 1.16

version 1.11, 2005/12/10 14:14:15 version 1.16, 2015/08/06 10:01:52
Line 1 
Line 1 
 /* $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.15 2015/08/04 06:20:45 noro Exp $ */
   
 #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))  #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))
   
Line 689  Num q;
Line 689  Num q;
                                                 int i,expo;                                                  int i,expo;
   
                                                 m = (unsigned int *)&BDY((Real)q);                                                  m = (unsigned int *)&BDY((Real)q);
 #if defined(__i386__) || defined(MIPSEL) || defined(VISUAL) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__x86_64)  #if defined(__i386__) || defined(MIPSEL) || defined(VISUAL) || defined(__MINGW32__) || defined(__MINGW64__) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__x86_64)
                                                 u = m[1]; l = m[0];                                                  u = m[1]; l = m[0];
 #else  #else
                                                 u = m[0]; l = m[1];                                                  u = m[0]; l = m[1];
Line 765  Num q;
Line 765  Num q;
                 case N_A:                  case N_A:
                         PUTS("("); PRINTR(ALG,(R)BDY((Alg)q)); PUTS(")");                          PUTS("("); PRINTR(ALG,(R)BDY((Alg)q)); PUTS(")");
                         break;                          break;
 #if defined(PARI)  
                 case N_B:                  case N_B:
                         PRINTBF((BF)q); break;                          PRINTBF((BF)q); break;
 #endif  
 #if defined(INTERVAL)  #if defined(INTERVAL)
                 case N_IP:                  case N_IP:
                 case N_IntervalBigFloat:                  case N_IntervalBigFloat:
Line 890  Num q;
Line 888  Num q;
                                 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 1091  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("+");
                 }                  }
         }          }
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.16
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>