[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.30

version 1.29, 2014/06/27 07:58:29 version 1.30, 2014/07/31 15:52:13
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.29 2014/06/27 07:58:29 saito Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 820  void PpolarplotD(NODE arg,Obj *rp){
Line 820  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 828  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 900  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 937  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 945  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 1041  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.30
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>