[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.23 and 1.30

version 1.23, 2013/12/19 05:48:24 version 1.30, 2017/08/30 09:40:30
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.22 2011/08/10 04:51:58 saito Exp $   * $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot.c,v 1.29 2015/08/14 13:51:56 fujimoto Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 57 
Line 57 
 #include "genpari.h"  #include "genpari.h"
 #endif  #endif
   
 void ox_usr1_handler();  
   
 extern int asir_OperandStackSize;  extern int asir_OperandStackSize;
 extern Obj *asir_OperandStack;  extern Obj *asir_OperandStack;
 extern int asir_OperandStackPtr;  extern int asir_OperandStackPtr;
Line 96  static void asir_do_cmd(unsigned int,unsigned int);
Line 94  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();
   
 #if defined(VISUAL)  #if defined(VISUAL) || defined(__MINGW32__)
 void ox_plot_main()  void ox_plot_main()
 #else  #else
 void ox_plot_main(int argc,char **argv)  void ox_plot_main(int argc,char **argv)
Line 107  void ox_plot_main(int argc,char **argv)
Line 105  void ox_plot_main(int argc,char **argv)
         int n;          int n;
         int use_x;          int use_x;
   
 #if !defined(VISUAL)  #if !defined(VISUAL) && !defined(__MINGW32__)
         ox_asir_init(argc,argv,"ox_plot");          ox_asir_init(argc,argv,"ox_plot");
         use_x=init_plot_display(argc,argv);          use_x=init_plot_display(argc,argv);
         if(use_x) ds=ConnectionNumber(display);          if(use_x) ds=ConnectionNumber(display);
         else fprintf(stderr,"Entering no X mode\n");          else fprintf(stderr,"Entering no X mode\n");
 #endif  #endif
         if(do_message)fprintf(stderr,"I'm an ox_plot, Version %d.\n",ASIR_VERSION);          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))closecurrentinput();                  while(NEXT(asir_infile))closecurrentinput();
                 reset_current_computation();                  reset_current_computation();
                 ox_send_sync(0);                  ox_send_sync(0);
         }          }
         while (1){          while (1){
 #if defined(VISUAL)  #if defined(VISUAL) || defined(__MINGW32__)
                 process_ox();                  process_ox();
 #else  #else
                 if(ox_data_is_available(0)) process_ox();                  if(ox_data_is_available(0)) process_ox();
Line 151  static void process_ox(){
Line 148  static void process_ox(){
                         cmd=((USINT)obj)->body;                          cmd=((USINT)obj)->body;
                         if(ox_flushing) break;                          if(ox_flushing) break;
                         if(do_message) fprintf(stderr," %s\n",name_of_cmd(cmd));                          if(do_message) fprintf(stderr," %s\n",name_of_cmd(cmd));
                         if(ret=SETJMP(main_env)){                          ret=SETJMP(main_env);
                           if(ret){
                                 if(ret==1){                                  if(ret==1){
                                         create_error(&err,serial,LastError,0);                                          create_error(&err,serial,LastError,0);
                                         asir_push_one((Obj)err);                                          asir_push_one((Obj)err);
Line 231  static void asir_do_cmd(unsigned int cmd,unsigned int 
Line 229  static void asir_do_cmd(unsigned int cmd,unsigned int 
         }          }
 }  }
   
 static void asir_executeFunction(int serial){  static void asir_executeFunction(int serial){
         char *fn;          char *fn;
         int argc,id;          int argc,id,fno;
         FUNC f;          FUNC f;
         Q ret;          Q ret;
         VL vl;          VL vl;
Line 249  static void asir_executeFunction(int serial){ 
Line 247  static void asir_executeFunction(int serial){ 
         }          }
         if(n)NEXT(n1)=0;          if(n)NEXT(n1)=0;
         id=-1;          id=-1;
         if(!strcmp(fn,"plot")){          fno=modeNO(fn);
                 id=plot(n,MODE_PLOT);          switch (fno){
           case 0://IFPLOT
                   id=plot(n,fno);
                 STOQ(id,ret);                  STOQ(id,ret);
                 asir_push_one((Obj)ret);                  asir_push_one((Obj)ret);
         } else if(!strcmp(fn,"ifplot")){                  break;
                 id=plot(n,MODE_IFPLOT);          case 1://CONPLOT
                   id=plot(n,fno);
                 STOQ(id,ret);                  STOQ(id,ret);
                 asir_push_one((Obj)ret);                  asir_push_one((Obj)ret);
         } else if(!strcmp(fn,"conplot")){                  break;
                 id=plot(n,MODE_CONPLOT);          case 2://PLOT
                   id=plot(n,fno);
                 STOQ(id,ret);                  STOQ(id,ret);
                 asir_push_one((Obj)ret);                  asir_push_one((Obj)ret);
         } else if(!strcmp(fn,"polarplot")){                  break;
                 id=plot(n,MODE_POLARPLOT);          case 4://POLARPLOT
                   id=plot(n,fno);
                 STOQ(id,ret);                  STOQ(id,ret);
                 asir_push_one((Obj)ret);                  asir_push_one((Obj)ret);
         } else if(!strcmp(fn,"memory_plot")){                  break;
           case 30://MEMORY_PLOT
                 memory_plot(n,&bytes);                  memory_plot(n,&bytes);
                 asir_push_one((Obj)bytes);                  asir_push_one((Obj)bytes);
         } else if(!strcmp(fn,"arrayplot")){                  break;
           case 31://ARRAYPLOT
                 id=arrayplot(n);                  id=arrayplot(n);
                 STOQ(id,ret);                  STOQ(id,ret);
                 asir_push_one((Obj)ret);                  asir_push_one((Obj)ret);
         } else if(!strcmp(fn,"open_canvas")){                  break;
           case 32://OPEN_CANVAS
                 id=open_canvas(n);                  id=open_canvas(n);
                 STOQ(id,ret);                  STOQ(id,ret);
                 asir_push_one((Obj)ret);                  asir_push_one((Obj)ret);
         } else if(!strcmp(fn,"plotover")){                  break;
           case 5://PLOTOVER
                 plotover(n);                  plotover(n);
         } else if(!strcmp(fn,"drawcircle")){                  break;
           case 33://DRAWCIRCLE
                 drawcircle(n);                  drawcircle(n);
         } else if(!strcmp(fn,"draw_obj")){                  break;
           case 34://DRAW_OBJ
                 if(draw_obj(n) < 0 ){                  if(draw_obj(n) < 0 ){
                         create_error(&err,serial,LastError,0);                          create_error(&err,serial,LastError,0);
                         asir_push_one((Obj)err);                          asir_push_one((Obj)err);
                 }                  }
         } else if(!strcmp(fn,"draw_string")){                  break;
                 if(draw_string(n) < 0 ){          case 35://DRAW_STRING
                   if(draw_string(n)<0){
                         create_error(&err,serial,LastError,0);                          create_error(&err,serial,LastError,0);
                         asir_push_one((Obj)err);                          asir_push_one((Obj)err);
                 }                  }
         } else if(!strcmp(fn,"clear_canvas")){                  break;
           case 37://CLEAR_CANVAS
                 clear_canvas(n);                  clear_canvas(n);
                   break;
 // ifplotNG  // ifplotNG
         } else if(!strcmp(fn,"objcp")){          case 36://OBJ_CP
                 id=objcp(n);                  id=objcp(n);
                 STOQ(id,ret);                  STOQ(id,ret);
                 asir_push_one((Obj)ret);                  asir_push_one((Obj)ret);
         } else if(!(                  break;
                 strcmp(fn,"ifplotD")&strcmp(fn,"ifplotQ")&strcmp(fn,"ifplotB")&          case 6://IFPLOTD
                 strcmp(fn,"ineqnD")&strcmp(fn,"ineqnQ")&strcmp(fn,"ineqnB")&          case 7://IFPLOTQ
                 strcmp(fn,"conplotD")&strcmp(fn,"conplotQ")&strcmp(fn,"conplotB"))){          case 8://IFPLOTB
                 id=ifplotNG(n,fn);          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
                   id=ifplotNG(n,fno);
                 STOQ(id,ret);                  STOQ(id,ret);
                 asir_push_one((Obj)ret);                  asir_push_one((Obj)ret);
         } else if(!(                  break;
                 strcmp(fn,"ineqnandD")&strcmp(fn,"ineqnandQ")&strcmp(fn,"ineqnandB")&          case 12://INEQNDAND
                 strcmp(fn,"ineqnorD")&strcmp(fn,"ineqnorQ")&strcmp(fn,"ineqnorB")&          case 13://INEQNQAND
                 strcmp(fn,"ineqnxorD")&strcmp(fn,"ineqnxorQ")&strcmp(fn,"ineqnxorB")&          case 14://INEQNBAND
                 strcmp(fn,"plotoverD")&strcmp(fn,"plotoverQ")&strcmp(fn,"plotoverB"))){          case 15://INEQNDOR
                 id=ifplotOP(n,fn);          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);                  STOQ(id,ret);
                 asir_push_one((Obj)ret);                  asir_push_one((Obj)ret);
 #if defined(INTERVAL)                  break;
         } else if(!strcmp(fn,"itvifplot")){          case 38://POLARPLOTD
                 id=ifplotNG(n,fn);                  id=polarplotNG(n);
                 STOQ(id,ret);                  STOQ(id,ret);
                 asir_push_one((Obj)ret);                  asir_push_one((Obj)ret);
 #endif                  break;
         }          }
 }  }
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.30
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>