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

Diff for /OpenXM_contrib2/asir2018/plot/ox_plot.c between version 1.1 and 1.3

version 1.1, 2018/09/19 05:45:08 version 1.3, 2019/07/25 05:57:56
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: OpenXM_contrib2/asir2018/plot/ox_plot.c,v 1.2 2018/09/28 08:20:29 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 95  static void asir_do_cmd(unsigned int,unsigned int);
Line 95  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();
   
   int Im_ox_plot;
   
 #if defined(VISUAL) || defined(__MINGW32__)  #if defined(VISUAL) || defined(__MINGW32__)
 void ox_plot_main()  void ox_plot_main()
 #else  #else
Line 113  void ox_plot_main(int argc,char **argv)
Line 115  void ox_plot_main(int argc,char **argv)
   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);
     Im_ox_plot = 1;
   #if 0
   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);
   }    }
   #endif
   while (1){    while (1){
 #if defined(VISUAL) || defined(__MINGW32__)  #if defined(VISUAL) || defined(__MINGW32__)
     process_ox();      process_ox();
Line 187  static void asir_do_cmd(unsigned int cmd,unsigned int 
Line 192  static void asir_do_cmd(unsigned int cmd,unsigned int 
       break;        break;
     case SM_getsp:      case SM_getsp:
       i=asir_OperandStackPtr+1;        i=asir_OperandStackPtr+1;
       STOQ(i,q);        STOZ(i,q);
       asir_push_one((Obj)q);        asir_push_one((Obj)q);
       break;        break;
     case SM_popSerializedLocalObject:      case SM_popSerializedLocalObject:
Line 252  static void asir_executeFunction(int serial){
Line 257  static void asir_executeFunction(int serial){
   switch (fno){    switch (fno){
   case 0://IFPLOT    case 0://IFPLOT
     id=plot(n,fno);      id=plot(n,fno);
     STOQ(id,ret);      STOZ(id,ret);
     asir_push_one((Obj)ret);      asir_push_one((Obj)ret);
     break;      break;
   case 1://CONPLOT    case 1://CONPLOT
     id=plot(n,fno);      id=plot(n,fno);
     STOQ(id,ret);      STOZ(id,ret);
     asir_push_one((Obj)ret);      asir_push_one((Obj)ret);
     break;      break;
   case 2://PLOT    case 2://PLOT
     id=plot(n,fno);      id=plot(n,fno);
     STOQ(id,ret);      STOZ(id,ret);
     asir_push_one((Obj)ret);      asir_push_one((Obj)ret);
     break;      break;
   case 4://POLARPLOT    case 4://POLARPLOT
     id=plot(n,fno);      id=plot(n,fno);
     STOQ(id,ret);      STOZ(id,ret);
     asir_push_one((Obj)ret);      asir_push_one((Obj)ret);
     break;      break;
   case 30://MEMORY_PLOT    case 30://MEMORY_PLOT
Line 276  static void asir_executeFunction(int serial){
Line 281  static void asir_executeFunction(int serial){
     break;      break;
   case 31://ARRAYPLOT    case 31://ARRAYPLOT
     id=arrayplot(n);      id=arrayplot(n);
     STOQ(id,ret);      STOZ(id,ret);
     asir_push_one((Obj)ret);      asir_push_one((Obj)ret);
     break;      break;
   case 32://OPEN_CANVAS    case 32://OPEN_CANVAS
     id=open_canvas(n);      id=open_canvas(n);
     STOQ(id,ret);      STOZ(id,ret);
     asir_push_one((Obj)ret);      asir_push_one((Obj)ret);
     break;      break;
   case 5://PLOTOVER    case 5://PLOTOVER
Line 308  static void asir_executeFunction(int serial){
Line 313  static void asir_executeFunction(int serial){
 // ifplotNG  // ifplotNG
   case 36://OBJ_CP    case 36://OBJ_CP
     id=objcp(n);      id=objcp(n);
     STOQ(id,ret);      STOZ(id,ret);
     asir_push_one((Obj)ret);      asir_push_one((Obj)ret);
     break;      break;
   case 6://IFPLOTD    case 6://IFPLOTD
Line 324  static void asir_executeFunction(int serial){
Line 329  static void asir_executeFunction(int serial){
   case 24://ITVIFPLOT    case 24://ITVIFPLOT
 #endif  #endif
     id=ifplotNG(n,fno);      id=ifplotNG(n,fno);
     STOQ(id,ret);      STOZ(id,ret);
     asir_push_one((Obj)ret);      asir_push_one((Obj)ret);
     break;      break;
   case 12://INEQNDAND    case 12://INEQNDAND
Line 340  static void asir_executeFunction(int serial){
Line 345  static void asir_executeFunction(int serial){
   case 26://PLOTOVERQ    case 26://PLOTOVERQ
   case 27://PLOTOVERB    case 27://PLOTOVERB
     id=ifplotOP(n,fno);      id=ifplotOP(n,fno);
     STOQ(id,ret);      STOZ(id,ret);
     asir_push_one((Obj)ret);      asir_push_one((Obj)ret);
     break;      break;
   case 38://POLARPLOTD    case 38://POLARPLOTD
     id=polarplotNG(n);      id=polarplotNG(n);
     STOQ(id,ret);      STOZ(id,ret);
     asir_push_one((Obj)ret);      asir_push_one((Obj)ret);
     break;      break;
   }    }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>