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

Diff for /OpenXM_contrib2/asir2000/plot/plotf.c between version 1.30 and 1.31

version 1.30, 2014/07/31 15:52:13 version 1.31, 2017/08/31 02:36:21
Line 45 
Line 45 
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *   *
  * $OpenXM: OpenXM_contrib2/asir2000/plot/plotf.c,v 1.29 2014/06/27 07:58:29 saito Exp $   * $OpenXM: OpenXM_contrib2/asir2000/plot/plotf.c,v 1.30 2014/07/31 15:52:13 saito Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 436  void plot_main(NODE arg,int is_memory,char *fn,Obj *rp
Line 436  void plot_main(NODE arg,int is_memory,char *fn,Obj *rp
         LIST xrange,range[1],list,geom;          LIST xrange,range[1],list,geom;
         VL vl,vl0;          VL vl,vl0;
         V v[1],av[1];          V v[1],av[1];
         int stream,ri,i;          int stream,ri,i,found_f;
         P poly;          P poly;
         P var;          P var;
         NODE n,n0;          NODE n,n0;
Line 447  void plot_main(NODE arg,int is_memory,char *fn,Obj *rp
Line 447  void plot_main(NODE arg,int is_memory,char *fn,Obj *rp
         MKNODE(n,p2,0);MKNODE(defrange,m2,n);          MKNODE(n,p2,0);MKNODE(defrange,m2,n);
         poly=0;vl=0;geom=0;wname=0;stream=-1;ri=0;          poly=0;vl=0;geom=0;wname=0;stream=-1;ri=0;
         v[0]=0;          v[0]=0;
     found_f = 0;
         for(;arg;arg=NEXT(arg) )          for(;arg;arg=NEXT(arg) )
                 if(!BDY(arg) )                  if(!BDY(arg) )
                         stream=0;                          stream=0;
Line 462  void plot_main(NODE arg,int is_memory,char *fn,Obj *rp
Line 463  void plot_main(NODE arg,int is_memory,char *fn,Obj *rp
                                         }                                          }
                                 }                                  }
                                 if(i != 1 ) error("ifplot : invalid argument");                                  if(i != 1 ) error("ifplot : invalid argument");
           found_f = 1;
                                 break;                                  break;
                         case O_LIST:                          case O_LIST:
                                 list=(LIST)BDY(arg);                                  list=(LIST)BDY(arg);
Line 471  void plot_main(NODE arg,int is_memory,char *fn,Obj *rp
Line 473  void plot_main(NODE arg,int is_memory,char *fn,Obj *rp
                                 } else geom=list;                                  } else geom=list;
                                 break;                                  break;
                         case O_N:                          case O_N:
                                 stream=QTOS((Q)BDY(arg));break;          if ( !found_f ) {
             poly = (P)BDY(arg);
             makevar("x",&var);
             v[0] = VR(var);
           } else
                                     stream=QTOS((Q)BDY(arg));
           break;
                         case O_STR:                          case O_STR:
                                 wname=(STRING)BDY(arg);break;                                  wname=(STRING)BDY(arg);break;
                         default:                          default:
Line 485  void plot_main(NODE arg,int is_memory,char *fn,Obj *rp
Line 493  void plot_main(NODE arg,int is_memory,char *fn,Obj *rp
                         break;                          break;
                 case 1:                  case 1:
                         av[0]=VR((P)BDY(BDY(range[0])));                          av[0]=VR((P)BDY(BDY(range[0])));
                         if(v[0]==av[0] )                          if(NUM(poly) || v[0]==av[0] )
                                 xrange=range[0];                                  xrange=range[0];
                         else                          else
                                 error("plot : invalid argument");                                  error("plot : invalid argument");
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>