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

Diff for /OpenXM_contrib2/asir2000/builtin/itvnum.c between version 1.6 and 1.8

version 1.6, 2011/08/10 04:51:57 version 1.8, 2015/08/08 14:19:41
Line 1 
Line 1 
 /*  /*
  * $OpenXM: OpenXM_contrib2/asir2000/builtin/itvnum.c,v 1.5 2005/07/14 22:46:03 kondoh Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/itvnum.c,v 1.7 2014/05/12 16:54:40 saito Exp $
  */   */
   
 #include "ca.h"  #include "ca.h"
Line 23  static void Pcap(NODE, Obj *);
Line 23  static void Pcap(NODE, Obj *);
 static void Pwidth(NODE, Obj *);  static void Pwidth(NODE, Obj *);
 static void Pdistance(NODE, Obj *);  static void Pdistance(NODE, Obj *);
 static void Pitvversion(Q *);  static void Pitvversion(Q *);
   void miditvp(Itv,Num *);
   void absitvp(Itv,Num *);
   int initvd(Num,IntervalDouble);
   int initvp(Num,Itv);
   int itvinitvp(Itv,Itv);
 #endif  #endif
 static void Pprintmode(NODE, Obj *);  static void Pprintmode(NODE, Obj *);
   
Line 96  Pifcheck(NODE arg, Obj *rp)
Line 101  Pifcheck(NODE arg, Obj *rp)
                 case O_P:                  case O_P:
                         poly = (P)BDY(arg);                          poly = (P)BDY(arg);
                         get_vars_recursive((Obj)poly,&vl);                          get_vars_recursive((Obj)poly,&vl);
                         for ( vl0 = vl, i = 0; vl0; vl0 = NEXT(vl0) )                          for(vl0=vl,i=0;vl0;vl0=NEXT(vl0)){
                                 if ( vl0->v->attr == (pointer)V_IND )                                  if(vl0->v->attr==(pointer)V_IND){
                                         if ( i >= 2 )                                          if(i>=2){
                                                 error("ifplot : invalid argument");                                                  error("ifplot : invalid argument");
                                         else                                          } else {
                                                 v[i++] = vl0->v;                                                  v[i++]=vl0->v;
                                           }
                                   }
                           }
                         break;                          break;
                 case O_LIST:                  case O_LIST:
                         list = (LIST)BDY(arg);                          list = (LIST)BDY(arg);
Line 621  static void pprintmode( void )
Line 629  static void pprintmode( void )
                         fprintf(stderr,"Printf's double printing mode is \"%%g\".\n");                          fprintf(stderr,"Printf's double printing mode is \"%%g\".\n");
                         break;                          break;
         }          }
   #if defined(__MINGW32__) || defined(__MINGW64__)
           fflush(stderr);
   #endif
 }  }
   
 static void  static void
Line 630  Pprintmode(NODE arg, Obj *rp)
Line 641  Pprintmode(NODE arg, Obj *rp)
         Q       a, r;          Q       a, r;
   
         a = (Q)ARG0(arg);          a = (Q)ARG0(arg);
         if ( !a || NUM(a) && INT(a) ) {          if(!a||(NUM(a)&&INT(a))){
                 l = QTOS(a);                  l=QTOS(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;
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.8
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>