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

Diff for /OpenXM_contrib2/asir2018/io/pexpr_body.c between version 1.1 and 1.2

version 1.1, 2018/09/19 05:45:08 version 1.2, 2019/11/12 10:53:23
Line 1 
Line 1 
 /* $OpenXM$ */  /* $OpenXM: OpenXM_contrib2/asir2018/io/pexpr_body.c,v 1.1 2018/09/19 05:45:08 noro Exp $ */
   
 #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))  #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))
   
Line 45  void PRINTSF(unsigned int i);
Line 45  void PRINTSF(unsigned int i);
 void PRINTSYMBOL(SYMBOL sym);  void PRINTSYMBOL(SYMBOL sym);
 void PRINTBF(BF a);  void PRINTBF(BF a);
 void PRINTMPZ(mpz_t z);  void PRINTMPZ(mpz_t z);
   #if defined(INTERVAL)
   void PRINTBF4ITV(BF);
   #endif
   
 void PRINTEXPR(VL vl,Obj p)  void PRINTEXPR(VL vl,Obj p)
 {  {
Line 742  void PRINTNUM(Num q)
Line 745  void PRINTNUM(Num q)
       PRINTBF((BF)q); break;        PRINTBF((BF)q); break;
 #if defined(INTERVAL)  #if defined(INTERVAL)
     case N_IP:      case N_IP:
         PUTS("[");
         PRINTNUM(INF((Itv)q));
         PUTS(",");
         PRINTNUM(SUP((Itv)q));
         PUTS("]");
         break;
     case N_IntervalBigFloat:      case N_IntervalBigFloat:
       switch ( outputstyle ) {        switch ( outputstyle ) {
         case 1:          case 1:
           PUTS("intval(");            PUTS("intval(");
           PRINTNUM(INF((Itv)q));            PRINTBF4ITV(INF((IntervalBigFloat)q));
           PUTS(",");            PUTS(",");
           PRINTNUM(SUP((Itv)q));            PRINTBF4ITV(SUP((IntervalBigFloat)q));
           PUTS(")");            PUTS(")");
           break;            break;
         case 0:          case 0:
         default:          default:
           PUTS("[");            PUTS("[");
           PRINTNUM(INF((Itv)q));            PRINTBF4ITV(INF((IntervalBigFloat)q));
           PUTS(",");            PUTS(",");
           PRINTNUM(SUP((Itv)q));            PRINTBF4ITV(SUP((IntervalBigFloat)q));
           PUTS("]");            PUTS("]");
           break;            break;
       }        }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>