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

Diff for /OpenXM_contrib2/asir2018/builtin/itvnum.c between version 1.1 and 1.2

version 1.1, 2018/09/19 05:45:06 version 1.2, 2018/09/28 08:20:27
Line 1 
Line 1 
 /*  /*
  * $OpenXM$   * $OpenXM: OpenXM_contrib2/asir2018/builtin/itvnum.c,v 1.1 2018/09/19 05:45:06 noro Exp $
  */   */
   
 #include "ca.h"  #include "ca.h"
Line 93  Pifcheck(NODE arg, Obj *rp)
Line 93  Pifcheck(NODE arg, Obj *rp)
   int width, height, ix, iy;    int width, height, ix, iy;
   int id;    int id;
   
   STOQ(-2,m2); STOQ(2,p2);    STOZ(-2,m2); STOZ(2,p2);
   STOQ(1,one);    STOZ(1,one);
   MKNODE(n,p2,0); MKNODE(defrange,m2,n);    MKNODE(n,p2,0); MKNODE(defrange,m2,n);
   poly = 0; vl = 0; geom = 0; ri = 0;    poly = 0; vl = 0; geom = 0; ri = 0;
   v[0] = v[1] = 0;    v[0] = v[1] = 0;
Line 164  Pifcheck(NODE arg, Obj *rp)
Line 164  Pifcheck(NODE arg, Obj *rp)
     can->width = 300;      can->width = 300;
     can->height = 300;      can->height = 300;
   } else {    } else {
     can->width = QTOS((Q)BDY(BDY(geom)));      can->width = ZTOS((Q)BDY(BDY(geom)));
     can->height = QTOS((Q)BDY(NEXT(BDY(geom))));      can->height = ZTOS((Q)BDY(NEXT(BDY(geom))));
     width = can->width;      width = can->width;
     height = can->height;      height = can->height;
   }    }
Line 237  void ccalc(double **tab,struct canvas *can,int nox)
Line 237  void ccalc(double **tab,struct canvas *can,int nox)
 static void  static void
 Pitvversion(Q *rp)  Pitvversion(Q *rp)
 {  {
   STOQ(ASIR_VERSION, *rp);    STOZ(ASIR_VERSION, *rp);
 }  }
   
 extern int  bigfloat;  extern int  bigfloat;
Line 591  Obj *rp;
Line 591  Obj *rp;
   } else {    } else {
     s = ! compnum(0,(Num)ARG0(arg),(Num)ARG1(arg));      s = ! compnum(0,(Num)ARG0(arg),(Num)ARG1(arg));
   }    }
   STOQ(s,q);    STOZ(s,q);
   *rp = (Obj)q;    *rp = (Obj)q;
 }  }
   
Line 641  Pprintmode(NODE arg, Obj *rp)
Line 641  Pprintmode(NODE arg, Obj *rp)
   
   a = (Z)ARG0(arg);    a = (Z)ARG0(arg);
   if(!a||(NUM(a)&&INT(a))){    if(!a||(NUM(a)&&INT(a))){
     l=QTOS(a);      l=ZTOS(a);
     if ( l < 0 ) l = 0;      if ( l < 0 ) l = 0;
 #if defined(INTERVAL)  #if defined(INTERVAL)
     else if ( l > MID_PRINTF_E ) l = 0;      else if ( l > MID_PRINTF_E ) l = 0;
 #else  #else
     else if ( l > PRINTF_E ) l = 0;      else if ( l > PRINTF_E ) l = 0;
 #endif  #endif
     STOQ(printmode,r);      STOZ(printmode,r);
     *rp = (Obj)r;      *rp = (Obj)r;
     printmode = l;      printmode = l;
     pprintmode();      pprintmode();
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>