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

Diff for /OpenXM_contrib2/asir2000/plot/ox_plot.c between version 1.8 and 1.27

version 1.8, 2000/10/06 06:05:24 version 1.27, 2015/08/06 10:01:53
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/ox_plot.c,v 1.7 2000/09/12 06:05:31 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot.c,v 1.26 2014/06/27 07:58:29 saito Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 53 
Line 53 
 #include "ifplot.h"  #include "ifplot.h"
 #include "version.h"  #include "version.h"
 #include <signal.h>  #include <signal.h>
 #if PARI  #if defined(PARI)
 #include "genpari.h"  #include "genpari.h"
 #endif  #endif
   
Line 63  extern int asir_OperandStackSize;
Line 63  extern int asir_OperandStackSize;
 extern Obj *asir_OperandStack;  extern Obj *asir_OperandStack;
 extern int asir_OperandStackPtr;  extern int asir_OperandStackPtr;
   
   // environement is defined in libpari.a
   #if !(PARI_VERSION_CODE > 131588)
 extern jmp_buf environnement;  extern jmp_buf environnement;
   #endif
   
 extern int do_message;  extern int do_message;
 extern int ox_flushing;  extern int ox_flushing;
 extern jmp_buf ox_env;  extern JMP_BUF ox_env;
 extern MATHCAP my_mathcap;  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_io_init();
 void ox_asir_init(int,char **);  void ox_asir_init(int,char **,char *);
 Obj asir_pop_one();  Obj asir_pop_one();
 void asir_push_one(Obj);  void asir_push_one(Obj);
 void asir_end_flush();  void asir_end_flush();
Line 92  static void asir_do_cmd(unsigned int,unsigned int);
Line 96  static void asir_do_cmd(unsigned int,unsigned int);
 static void process_ox();  static void process_ox();
 static void asir_executeFunction();  static void asir_executeFunction();
   
 void ox_plot_main(int argc,char **argv) {  #if defined(VISUAL) || defined(__MINGW32__) || defined(__MINGW64__)
   void ox_plot_main()
   #else
   void ox_plot_main(int argc,char **argv)
   #endif
   {
         int ds;          int ds;
         fd_set r;          fd_set r;
         int n;          int n;
           int use_x;
   
         ox_asir_init(argc,argv);  #if !defined(VISUAL) && !defined(__MINGW32__) && !defined(__MINGW64__)
         init_plot_display(argc,argv);          ox_asir_init(argc,argv,"ox_plot");
         ds = ConnectionNumber(display);          use_x=init_plot_display(argc,argv);
         if ( do_message )          if(use_x) ds=ConnectionNumber(display);
                 fprintf(stderr,"I'm an ox_plot, Version %d.\n",ASIR_VERSION);          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) ) {          if(SETJMP(ox_env)){
                 while ( NEXT(asir_infile) )                  while(NEXT(asir_infile))closecurrentinput();
                         closecurrentinput();  
                 reset_current_computation();                  reset_current_computation();
                 ox_send_sync(0);                  ox_send_sync(0);
         }          }
         while ( 1 ) {          while (1){
                 if ( ox_data_is_available(0) )  #if defined(VISUAL) || defined(__MINGW32__) || defined(__MINGW64__)
                         process_ox();                  process_ox();
                 else {  #else
                   if(ox_data_is_available(0)) process_ox();
                   else if(use_x){
                         FD_ZERO(&r);                          FD_ZERO(&r);
                         FD_SET(3,&r); FD_SET(ds,&r);                          FD_SET(3,&r); FD_SET(ds,&r);
                         select(FD_SETSIZE,&r,NULL,NULL,NULL);                          select(FD_SETSIZE,&r,NULL,NULL,NULL);
                         if ( FD_ISSET(3,&r) )                          if(FD_ISSET(3,&r)) process_ox();
                                 process_ox();                          else if(FD_ISSET(ds,&r)) process_xevent();
                         else if ( FD_ISSET(ds,&r) )  
                                 process_xevent();  
                 }                  }
         }          }
   #endif
 }  }
   
 static void process_ox()  static void process_ox(){
 {  
         int id;          int id;
         unsigned int cmd;          unsigned int cmd;
         Obj obj;          Obj obj;
         ERR err;          ERR err;
         unsigned int serial;          unsigned int serial;
         int ret;          int ret;
         extern char LastError[];  
   
         serial = ox_recv(0,&id,&obj);          serial=ox_recv(0,&id,&obj);
         if ( do_message )          if(do_message) fprintf(stderr,"#%d Got %s",serial,name_of_id(id));
                 fprintf(stderr,"#%d Got %s",serial,name_of_id(id));          switch (id){
         switch ( id ) {  
                 case OX_COMMAND:                  case OX_COMMAND:
                         cmd = ((USINT)obj)->body;                          cmd=((USINT)obj)->body;
                         if ( ox_flushing )                          if(ox_flushing) break;
                                 break;                          if(do_message) fprintf(stderr," %s\n",name_of_cmd(cmd));
                         if ( do_message )                          ret=SETJMP(main_env);
                                 fprintf(stderr," %s\n",name_of_cmd(cmd));                          if(ret){
                         if ( ret = setjmp(env) ) {                                  if(ret==1){
                                 if ( ret == 1 ) {                                          create_error(&err,serial,LastError,0);
                                         create_error(&err,serial,LastError);  
                                         asir_push_one((Obj)err);                                          asir_push_one((Obj)err);
                                 }                                  }
                                 break;                                  break;
Line 155  static void process_ox()
Line 163  static void process_ox()
                         break;                          break;
                 case OX_DATA:                  case OX_DATA:
                 case OX_LOCAL_OBJECT_ASIR:                  case OX_LOCAL_OBJECT_ASIR:
                         if ( ox_flushing )                          if(ox_flushing)break;
                                 break;                          if(do_message)fprintf(stderr," -> data pushed");
                         if ( do_message )  
                                 fprintf(stderr," -> data pushed");  
                         asir_push_one(obj);                          asir_push_one(obj);
                         break;                          break;
                 case OX_SYNC_BALL:                  case OX_SYNC_BALL:
                                 asir_end_flush();                          asir_end_flush();
                         break;                          break;
                 default:                  default:
                         break;                          break;
         }          }
         if ( do_message )          if(do_message)fprintf(stderr,"\n");
                 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;          MATHCAP client_mathcap;
         LIST list;          LIST list;
         int i;          int i;
         Q q;          Q q;
   
         switch ( cmd ) {          switch (cmd){
                 case SM_dupErrors:                  case SM_dupErrors:
                         list = asir_GetErrorList();                          list=asir_GetErrorList();
                         asir_push_one((Obj)list);                          asir_push_one((Obj)list);
                         break;                          break;
                 case SM_getsp:                  case SM_getsp:
                         i = asir_OperandStackPtr+1;                          i=asir_OperandStackPtr+1;
                         STOQ(i,q);                          STOQ(i,q);
                         asir_push_one((Obj)q);                          asir_push_one((Obj)q);
                         break;                          break;
Line 207  static void asir_do_cmd(unsigned int cmd,unsigned int 
Line 211  static void asir_do_cmd(unsigned int cmd,unsigned int 
                         asir_executeString();                          asir_executeString();
                         break;                          break;
                 case SM_executeFunction:                  case SM_executeFunction:
                         asir_executeFunction();                          asir_executeFunction(serial);
                         break;                          break;
                 case SM_shutdown:                  case SM_shutdown:
                         asir_terminate(2);                          asir_terminate(2);
Line 219  static void asir_do_cmd(unsigned int cmd,unsigned int 
Line 223  static void asir_do_cmd(unsigned int cmd,unsigned int 
                         asir_push_one((Obj)my_mathcap);                          asir_push_one((Obj)my_mathcap);
                         break;                          break;
                 case SM_setMathcap:                  case SM_setMathcap:
                         client_mathcap = (MATHCAP)asir_pop_one();                          client_mathcap=(MATHCAP)asir_pop_one();
                         store_remote_mathcap(0,client_mathcap);                          store_remote_mathcap(0,client_mathcap);
                         break;                          break;
                   case SM_nop:
                 default:                  default:
                         break;                          break;
         }          }
 }  }
   
 static void asir_executeFunction()  static void asir_executeFunction(int serial){
 {          char *fn;
         char *func;          int argc,id,fno;
         int argc;  
         int id;  
         FUNC f;          FUNC f;
         Q ret;          Q ret;
         VL vl;          VL vl;
           ERR err;
         NODE n,n1;          NODE n,n1;
           LIST bytes;
   
         func = ((STRING)asir_pop_one())->body;          fn=((STRING)asir_pop_one())->body;
         argc = (int)(((USINT)asir_pop_one())->body);          argc=(int)(((USINT)asir_pop_one())->body);
           for(n=0;argc;argc--){
         for ( n = 0; argc; argc-- ) {  
                 NEXTNODE(n,n1);                  NEXTNODE(n,n1);
                 BDY(n1) = (pointer)asir_pop_one();                  BDY(n1)=(pointer)asir_pop_one();
         }          }
         if ( n )          if(n)NEXT(n1)=0;
                 NEXT(n1) = 0;          id=-1;
         id = -1;          fno=modeNO(fn);
         if ( !strcmp(func,"plot") )          switch (fno){
                 id = plot(n);          case 0://IFPLOT
         else if ( !strcmp(func,"arrayplot") )                  id=plot(n,fno);
                 id = arrayplot(n);                  STOQ(id,ret);
         else if ( !strcmp(func,"plotover") )                  asir_push_one((Obj)ret);
                 id = plotover(n);                  break;
         else if ( !strcmp(func,"drawcircle") )          case 1://CONPLOT
                 id = drawcircle(n);                  id=plot(n,fno);
         STOQ(id,ret);                  STOQ(id,ret);
 #if 0                  asir_push_one((Obj)ret);
         asir_push_one((Obj)ret);                  break;
           case 2://PLOT
                   id=plot(n,fno);
                   STOQ(id,ret);
                   asir_push_one((Obj)ret);
                   break;
           case 4://POLARPLOT
                   id=plot(n,fno);
                   STOQ(id,ret);
                   asir_push_one((Obj)ret);
                   break;
           case 30://MEMORY_PLOT
                   memory_plot(n,&bytes);
                   asir_push_one((Obj)bytes);
                   break;
           case 31://ARRAYPLOT
                   id=arrayplot(n);
                   STOQ(id,ret);
                   asir_push_one((Obj)ret);
                   break;
           case 32://OPEN_CANVAS
                   id=open_canvas(n);
                   STOQ(id,ret);
                   asir_push_one((Obj)ret);
                   break;
           case 5://PLOTOVER
                   plotover(n);
                   break;
           case 33://DRAWCIRCLE
                   drawcircle(n);
                   break;
           case 34://DRAW_OBJ
                   if(draw_obj(n) < 0 ){
                           create_error(&err,serial,LastError,0);
                           asir_push_one((Obj)err);
                   }
                   break;
           case 35://DRAW_STRING
                   if(draw_string(n)<0){
                           create_error(&err,serial,LastError,0);
                           asir_push_one((Obj)err);
                   }
                   break;
           case 37://CLEAR_CANVAS
                   clear_canvas(n);
                   break;
   // ifplotNG
           case 36://OBJ_CP
                   id=objcp(n);
                   STOQ(id,ret);
                   asir_push_one((Obj)ret);
                   break;
           case 6://IFPLOTD
           case 7://IFPLOTQ
           case 8://IFPLOTB
           case 9://INEQND
           case 10://INEQNQ
           case 11://INEQNB
           case 21://CONPLOTD
           case 22://CONPLOTQ
           case 23://CONPLOTB
   #if defined(INTERVAL)
           case 24://ITVIFPLOT
 #endif  #endif
                   id=ifplotNG(n,fno);
                   STOQ(id,ret);
                   asir_push_one((Obj)ret);
                   break;
           case 12://INEQNDAND
           case 13://INEQNQAND
           case 14://INEQNBAND
           case 15://INEQNDOR
           case 16://INEQNQOR
           case 17://INEQNBOR
           case 18://INEQNDXOR
           case 19://INEQNQXOR
           case 20://INEQNBXOR
           case 25://PLOTOVERD
           case 26://PLOTOVERQ
           case 27://PLOTOVERB
                   id=ifplotOP(n,fno);
                   STOQ(id,ret);
                   asir_push_one((Obj)ret);
                   break;
           case 38://POLARPLOTD
                   id=polarplotNG(n);
                   STOQ(id,ret);
                   asir_push_one((Obj)ret);
                   break;
           }
 }  }
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.27
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>