version 1.30, 2014/07/31 15:52:13 |
version 1.31, 2017/08/31 02:36:21 |
|
|
* 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"); |