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

version 1.25, 2014/05/12 16:54:41 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.24 2013/12/20 02:27:17 noro 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 232  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,fno;          int argc,id,fno;
         FUNC f;          FUNC f;
Line 252  static void asir_executeFunction(int serial){ 
Line 249  static void asir_executeFunction(int serial){ 
         id=-1;          id=-1;
         fno=modeNO(fn);          fno=modeNO(fn);
         switch (fno){          switch (fno){
         case 0://IFPLOTD          case 0://IFPLOT
                 id=plot(n,IFPLOT);                  id=plot(n,fno);
                 STOQ(id,ret);                  STOQ(id,ret);
                 asir_push_one((Obj)ret);                  asir_push_one((Obj)ret);
                 break;                  break;
         case 1://CONPLOT          case 1://CONPLOT
                 id=plot(n,CONPLOT);                  id=plot(n,fno);
                 STOQ(id,ret);                  STOQ(id,ret);
                 asir_push_one((Obj)ret);                  asir_push_one((Obj)ret);
                   break;
         case 2://PLOT          case 2://PLOT
                 id=plot(n,PLOT);                  id=plot(n,fno);
                 STOQ(id,ret);                  STOQ(id,ret);
                 asir_push_one((Obj)ret);                  asir_push_one((Obj)ret);
                 break;                  break;
         case 4://POLARPLOT          case 4://POLARPLOT
                 id=polarplotNG(n);                  id=plot(n,fno);
                 STOQ(id,ret);                  STOQ(id,ret);
                 asir_push_one((Obj)ret);                  asir_push_one((Obj)ret);
                 break;                  break;
Line 306  static void asir_executeFunction(int serial){ 
Line 304  static void asir_executeFunction(int serial){ 
         case 37://CLEAR_CANVAS          case 37://CLEAR_CANVAS
                 clear_canvas(n);                  clear_canvas(n);
                 break;                  break;
 #if defined(INTERVAL)  
 // ifplotNG  // ifplotNG
         case 36://OBJ_CP          case 36://OBJ_CP
                 id=objcp(n);                  id=objcp(n);
Line 322  static void asir_executeFunction(int serial){ 
Line 319  static void asir_executeFunction(int serial){ 
         case 21://CONPLOTD          case 21://CONPLOTD
         case 22://CONPLOTQ          case 22://CONPLOTQ
         case 23://CONPLOTB          case 23://CONPLOTB
   #if defined(INTERVAL)
         case 24://ITVIFPLOT          case 24://ITVIFPLOT
                 id=ifplotNG(n,modeNO(fn));  #endif
                   id=ifplotNG(n,fno);
                 STOQ(id,ret);                  STOQ(id,ret);
                 asir_push_one((Obj)ret);                  asir_push_one((Obj)ret);
                 break;                  break;
Line 339  static void asir_executeFunction(int serial){ 
Line 338  static void asir_executeFunction(int serial){ 
         case 25://PLOTOVERD          case 25://PLOTOVERD
         case 26://PLOTOVERQ          case 26://PLOTOVERQ
         case 27://PLOTOVERB          case 27://PLOTOVERB
                 id=ifplotOP(n,modeNO(fn));                  id=ifplotOP(n,fno);
                 STOQ(id,ret);                  STOQ(id,ret);
                 asir_push_one((Obj)ret);                  asir_push_one((Obj)ret);
                 break;                  break;
 #endif          case 38://POLARPLOTD
                   id=polarplotNG(n);
                   STOQ(id,ret);
                   asir_push_one((Obj)ret);
                   break;
         }          }
 }  }
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.30
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>