[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.29 and 1.31

version 1.29, 2014/06/27 07:58:29 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.28 2014/05/16 08:49:53 ohara 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");
Line 820  void PpolarplotD(NODE arg,Obj *rp){
Line 828  void PpolarplotD(NODE arg,Obj *rp){
         }          }
         //formular check          //formular check
         if(!poly){          if(!poly){
                 sprintf(ebuf,"%s : invalid ploy argument",POLARPLOT);                  sprintf(ebuf,"%s : invalid plot argument",POLARPLOT);
                 error(ebuf);                  error(ebuf);
         }          }
         //vars check          //vars check
Line 828  void PpolarplotD(NODE arg,Obj *rp){
Line 836  void PpolarplotD(NODE arg,Obj *rp){
         for(vl0=vl,vNo=0;vl0;vNo++,vl0=NEXT(vl0)){          for(vl0=vl,vNo=0;vl0;vNo++,vl0=NEXT(vl0)){
                 if(vl0->v->attr==(pointer)V_IND){                  if(vl0->v->attr==(pointer)V_IND){
                         if(vNo>=2){                          if(vNo>=2){
                                 sprintf(ebuf,"%s : invalid ploy argument",POLARPLOT);                                  sprintf(ebuf,"%s : invalid plot argument",POLARPLOT);
                                 error(ebuf);                                  error(ebuf);
                         } else v[vNo]=vl0->v;                          } else v[vNo]=vl0->v;
                 }                  }
Line 900  void ifplot_mainNG(NODE arg,char *fn,Obj *rp){
Line 908  void ifplot_mainNG(NODE arg,char *fn,Obj *rp){
                                 poly=(P)BDY(arg);                                  poly=(P)BDY(arg);
                                 pfine=FALSE;                                  pfine=FALSE;
                         } else {                          } else {
                                 sprintf(ebuf,"%s : to many ploy arguments",fn);                                  sprintf(ebuf,"%s : to many plot arguments",fn);
                                 error(ebuf);                                  error(ebuf);
                         }                          }
                         break;                          break;
Line 937  void ifplot_mainNG(NODE arg,char *fn,Obj *rp){
Line 945  void ifplot_mainNG(NODE arg,char *fn,Obj *rp){
         }          }
         // formular check          // formular check
         if(!poly){          if(!poly){
                 sprintf(ebuf,"%s : invalid ploy argument",fn);                  sprintf(ebuf,"%s : invalid plot argument",fn);
                 error(ebuf);                  error(ebuf);
         }          }
         // vars check          // vars check
Line 945  void ifplot_mainNG(NODE arg,char *fn,Obj *rp){
Line 953  void ifplot_mainNG(NODE arg,char *fn,Obj *rp){
         for(vl0=vl,vNo=0;vl0;vl0=NEXT(vl0)){          for(vl0=vl,vNo=0;vl0;vl0=NEXT(vl0)){
                 if(vl0->v->attr==(pointer)V_IND){                  if(vl0->v->attr==(pointer)V_IND){
                         if(vNo>=2){                          if(vNo>=2){
                                 sprintf(ebuf,"%s : invalid ploy argument",fn);                                  sprintf(ebuf,"%s : invalid plot argument",fn);
                                 error(ebuf);                                  error(ebuf);
                         } else v[vNo++]=vl0->v;                          } else v[vNo++]=vl0->v;
                 }                  }
Line 1041  void plotover_mainNG(NODE arg,char *fn,Obj *rp){
Line 1049  void plotover_mainNG(NODE arg,char *fn,Obj *rp){
                                 poly=(P)BDY(arg);                                  poly=(P)BDY(arg);
                                 pfine=FALSE;                                  pfine=FALSE;
                         } else {                          } else {
                                 sprintf(ebuf,"%s : to many ploy arguments",fn);                                  sprintf(ebuf,"%s : to many plot arguments",fn);
                                 error(ebuf);                                  error(ebuf);
                         }                          }
                         break;                          break;

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.31

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>