=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/plot/ox_plot.c,v retrieving revision 1.8 retrieving revision 1.24 diff -u -p -r1.8 -r1.24 --- OpenXM_contrib2/asir2000/plot/ox_plot.c 2000/10/06 06:05:24 1.8 +++ OpenXM_contrib2/asir2000/plot/ox_plot.c 2013/12/20 02:27:17 1.24 @@ -45,7 +45,7 @@ * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. * - * $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot.c,v 1.7 2000/09/12 06:05:31 noro Exp $ + * $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot.c,v 1.23 2013/12/19 05:48:24 saito Exp $ */ #include "ca.h" #include "parse.h" @@ -53,7 +53,7 @@ #include "ifplot.h" #include "version.h" #include -#if PARI +#if defined(PARI) #include "genpari.h" #endif @@ -63,17 +63,21 @@ extern int asir_OperandStackSize; extern Obj *asir_OperandStack; extern int asir_OperandStackPtr; +// environement is defined in libpari.a +#if !(PARI_VERSION_CODE > 131588) extern jmp_buf environnement; +#endif extern int do_message; extern int ox_flushing; -extern jmp_buf ox_env; +extern JMP_BUF ox_env; extern MATHCAP my_mathcap; +extern char LastError[]; -void create_error(ERR *,unsigned int ,char *); +void create_error(ERR *,unsigned int ,char *,LIST ); void ox_io_init(); -void ox_asir_init(int,char **); +void ox_asir_init(int,char **,char *); Obj asir_pop_one(); void asir_push_one(Obj); void asir_end_flush(); @@ -92,61 +96,64 @@ static void asir_do_cmd(unsigned int,unsigned int); static void process_ox(); static void asir_executeFunction(); -void ox_plot_main(int argc,char **argv) { +#if defined(VISUAL) +void ox_plot_main() +#else +void ox_plot_main(int argc,char **argv) +#endif +{ int ds; fd_set r; int n; + int use_x; - ox_asir_init(argc,argv); - init_plot_display(argc,argv); - ds = ConnectionNumber(display); - if ( do_message ) - fprintf(stderr,"I'm an ox_plot, Version %d.\n",ASIR_VERSION); +#if !defined(VISUAL) + ox_asir_init(argc,argv,"ox_plot"); + use_x=init_plot_display(argc,argv); + if(use_x) ds=ConnectionNumber(display); + else fprintf(stderr,"Entering no X mode\n"); +#endif + if(do_message)fprintf(stderr,"I'm an ox_plot, Version %d.\n",ASIR_VERSION); - if ( setjmp(ox_env) ) { - while ( NEXT(asir_infile) ) - closecurrentinput(); + if(SETJMP(ox_env)){ + while(NEXT(asir_infile))closecurrentinput(); reset_current_computation(); ox_send_sync(0); } - while ( 1 ) { - if ( ox_data_is_available(0) ) - process_ox(); - else { + while (1){ +#if defined(VISUAL) + process_ox(); +#else + if(ox_data_is_available(0)) process_ox(); + else if(use_x){ FD_ZERO(&r); FD_SET(3,&r); FD_SET(ds,&r); select(FD_SETSIZE,&r,NULL,NULL,NULL); - if ( FD_ISSET(3,&r) ) - process_ox(); - else if ( FD_ISSET(ds,&r) ) - process_xevent(); + if(FD_ISSET(3,&r)) process_ox(); + else if(FD_ISSET(ds,&r)) process_xevent(); } } +#endif } -static void process_ox() -{ +static void process_ox(){ int id; unsigned int cmd; Obj obj; ERR err; unsigned int serial; int ret; - extern char LastError[]; - serial = ox_recv(0,&id,&obj); - if ( do_message ) - fprintf(stderr,"#%d Got %s",serial,name_of_id(id)); - switch ( id ) { + serial=ox_recv(0,&id,&obj); + if(do_message) fprintf(stderr,"#%d Got %s",serial,name_of_id(id)); + switch (id){ case OX_COMMAND: - cmd = ((USINT)obj)->body; - if ( ox_flushing ) - break; - if ( do_message ) - fprintf(stderr," %s\n",name_of_cmd(cmd)); - if ( ret = setjmp(env) ) { - if ( ret == 1 ) { - create_error(&err,serial,LastError); + cmd=((USINT)obj)->body; + if(ox_flushing) break; + if(do_message) fprintf(stderr," %s\n",name_of_cmd(cmd)); + if(ret=SETJMP(main_env)){ + if(ret==1){ + create_error(&err,serial,LastError,0); asir_push_one((Obj)err); } break; @@ -155,36 +162,32 @@ static void process_ox() break; case OX_DATA: case OX_LOCAL_OBJECT_ASIR: - if ( ox_flushing ) - break; - if ( do_message ) - fprintf(stderr," -> data pushed"); + if(ox_flushing)break; + if(do_message)fprintf(stderr," -> data pushed"); asir_push_one(obj); break; case OX_SYNC_BALL: - asir_end_flush(); + asir_end_flush(); break; default: break; } - if ( do_message ) - fprintf(stderr,"\n"); + if(do_message)fprintf(stderr,"\n"); } -static void asir_do_cmd(unsigned int cmd,unsigned int serial) -{ +static void asir_do_cmd(unsigned int cmd,unsigned int serial){ MATHCAP client_mathcap; LIST list; int i; Q q; - switch ( cmd ) { + switch (cmd){ case SM_dupErrors: - list = asir_GetErrorList(); + list=asir_GetErrorList(); asir_push_one((Obj)list); break; case SM_getsp: - i = asir_OperandStackPtr+1; + i=asir_OperandStackPtr+1; STOQ(i,q); asir_push_one((Obj)q); break; @@ -207,7 +210,7 @@ static void asir_do_cmd(unsigned int cmd,unsigned int asir_executeString(); break; case SM_executeFunction: - asir_executeFunction(); + asir_executeFunction(serial); break; case SM_shutdown: asir_terminate(2); @@ -219,44 +222,101 @@ static void asir_do_cmd(unsigned int cmd,unsigned int asir_push_one((Obj)my_mathcap); break; case SM_setMathcap: - client_mathcap = (MATHCAP)asir_pop_one(); + client_mathcap=(MATHCAP)asir_pop_one(); store_remote_mathcap(0,client_mathcap); break; + case SM_nop: default: break; } } -static void asir_executeFunction() -{ - char *func; - int argc; - int id; +static void asir_executeFunction(int serial){ + char *fn; + int argc,id; FUNC f; Q ret; VL vl; + ERR err; NODE n,n1; + LIST bytes; - func = ((STRING)asir_pop_one())->body; - argc = (int)(((USINT)asir_pop_one())->body); - - for ( n = 0; argc; argc-- ) { + fn=((STRING)asir_pop_one())->body; + argc=(int)(((USINT)asir_pop_one())->body); + for(n=0;argc;argc--){ NEXTNODE(n,n1); - BDY(n1) = (pointer)asir_pop_one(); + BDY(n1)=(pointer)asir_pop_one(); } - if ( n ) - NEXT(n1) = 0; - id = -1; - if ( !strcmp(func,"plot") ) - id = plot(n); - else if ( !strcmp(func,"arrayplot") ) - id = arrayplot(n); - else if ( !strcmp(func,"plotover") ) - id = plotover(n); - else if ( !strcmp(func,"drawcircle") ) - id = drawcircle(n); - STOQ(id,ret); -#if 0 - asir_push_one((Obj)ret); + if(n)NEXT(n1)=0; + id=-1; + if(!strcmp(fn,"plot")){ + id=plot(n,MODE_PLOT); + STOQ(id,ret); + asir_push_one((Obj)ret); + } else if(!strcmp(fn,"ifplot")){ + id=plot(n,MODE_IFPLOT); + STOQ(id,ret); + asir_push_one((Obj)ret); + } else if(!strcmp(fn,"conplot")){ + id=plot(n,MODE_CONPLOT); + STOQ(id,ret); + asir_push_one((Obj)ret); + } else if(!strcmp(fn,"polarplot")){ + id=plot(n,MODE_POLARPLOT); + STOQ(id,ret); + asir_push_one((Obj)ret); + } else if(!strcmp(fn,"memory_plot")){ + memory_plot(n,&bytes); + asir_push_one((Obj)bytes); + } else if(!strcmp(fn,"arrayplot")){ + id=arrayplot(n); + STOQ(id,ret); + asir_push_one((Obj)ret); + } else if(!strcmp(fn,"open_canvas")){ + id=open_canvas(n); + STOQ(id,ret); + asir_push_one((Obj)ret); + } else if(!strcmp(fn,"plotover")){ + plotover(n); + } else if(!strcmp(fn,"drawcircle")){ + drawcircle(n); + } else if(!strcmp(fn,"draw_obj")){ + if(draw_obj(n) < 0 ){ + create_error(&err,serial,LastError,0); + asir_push_one((Obj)err); + } + } else if(!strcmp(fn,"draw_string")){ + if(draw_string(n) < 0 ){ + create_error(&err,serial,LastError,0); + asir_push_one((Obj)err); + } + } else if(!strcmp(fn,"clear_canvas")){ + clear_canvas(n); +#if defined(INTERVAL) +// ifplotNG + } else if(!strcmp(fn,"objcp")){ + id=objcp(n); + STOQ(id,ret); + asir_push_one((Obj)ret); + } else if(!( + strcmp(fn,"ifplotD")&strcmp(fn,"ifplotQ")&strcmp(fn,"ifplotB")& + strcmp(fn,"ineqnD")&strcmp(fn,"ineqnQ")&strcmp(fn,"ineqnB")& + strcmp(fn,"conplotD")&strcmp(fn,"conplotQ")&strcmp(fn,"conplotB"))){ + id=ifplotNG(n,fn); + STOQ(id,ret); + asir_push_one((Obj)ret); + } else if(!( + strcmp(fn,"ineqnandD")&strcmp(fn,"ineqnandQ")&strcmp(fn,"ineqnandB")& + strcmp(fn,"ineqnorD")&strcmp(fn,"ineqnorQ")&strcmp(fn,"ineqnorB")& + strcmp(fn,"ineqnxorD")&strcmp(fn,"ineqnxorQ")&strcmp(fn,"ineqnxorB")& + strcmp(fn,"plotoverD")&strcmp(fn,"plotoverQ")&strcmp(fn,"plotoverB"))){ + id=ifplotOP(n,fn); + STOQ(id,ret); + asir_push_one((Obj)ret); + } else if(!strcmp(fn,"itvifplot")){ + id=ifplotNG(n,fn); + STOQ(id,ret); + asir_push_one((Obj)ret); #endif + } }