[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.18 and 1.22

version 1.18, 2002/08/02 02:41:04 version 1.22, 2011/08/10 04:51:58
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.17 2002/08/02 02:28:29 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot.c,v 1.21 2006/02/08 02:11:20 noro 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 64  extern Obj *asir_OperandStack;
Line 64  extern Obj *asir_OperandStack;
 extern int asir_OperandStackPtr;  extern int asir_OperandStackPtr;
   
 /* environement is defined in libpari.a */  /* 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;
Line 72  extern JMP_BUF ox_env;
Line 74  extern JMP_BUF ox_env;
 extern MATHCAP my_mathcap;  extern MATHCAP my_mathcap;
 extern char LastError[];  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 **,char *);  void ox_asir_init(int,char **,char *);
Line 162  static void process_ox()
Line 164  static void process_ox()
                                 fprintf(stderr," %s\n",name_of_cmd(cmd));                                  fprintf(stderr," %s\n",name_of_cmd(cmd));
                         if ( ret = SETJMP(main_env) ) {                          if ( ret = SETJMP(main_env) ) {
                                 if ( ret == 1 ) {                                  if ( ret == 1 ) {
                                         create_error(&err,serial,LastError);                                          create_error(&err,serial,LastError,0);
                                         asir_push_one((Obj)err);                                          asir_push_one((Obj)err);
                                 }                                  }
                                 break;                                  break;
Line 271  static void asir_executeFunction(int serial)
Line 273  static void asir_executeFunction(int serial)
                 STOQ(id,ret); asir_push_one((Obj)ret);                  STOQ(id,ret); asir_push_one((Obj)ret);
         } else if ( !strcmp(func,"memory_plot") ) {          } else if ( !strcmp(func,"memory_plot") ) {
                 memory_plot(n,&bytes); asir_push_one((Obj)bytes);                  memory_plot(n,&bytes); asir_push_one((Obj)bytes);
   #if defined(INTERVAL)
           } else if ( !strcmp(func,"itvifplot") ) {
                   id = itvifplot(n);
                   STOQ(id,ret); asir_push_one((Obj)ret);
           } else if ( !strcmp(func,"itvplot1") ) {
                   id = itvplot1(n);
                   STOQ(id,ret); asir_push_one((Obj)ret);
           } else if ( !strcmp(func,"itvplot2") ) {
                   id = itvplot2(n);
                   STOQ(id,ret); asir_push_one((Obj)ret);
           } else if ( !strcmp(func,"itvplot3") ) {
                   id = itvplot3(n);
                   STOQ(id,ret); asir_push_one((Obj)ret);
           } else if ( !strcmp(func,"itvplot4") ) {
                   id = itvplot4(n);
                   STOQ(id,ret); asir_push_one((Obj)ret);
           } else if ( !strcmp(func,"ineqnover") ) {
                   id = ineqnover(n);
                   STOQ(id,ret); asir_push_one((Obj)ret);
           } else if ( !strcmp(func,"ineqn") ) {
                   id = ineqn(n);
                   STOQ(id,ret); asir_push_one((Obj)ret);
           } else if ( !strcmp(func,"objcp") ) {
                   id = objcp(n);
                   STOQ(id,ret); asir_push_one((Obj)ret);
   #endif
         } else if ( !strcmp(func,"arrayplot") ) {          } else if ( !strcmp(func,"arrayplot") ) {
                 id = arrayplot(n);                  id = arrayplot(n);
                 STOQ(id,ret); asir_push_one((Obj)ret);                  STOQ(id,ret); asir_push_one((Obj)ret);
Line 283  static void asir_executeFunction(int serial)
Line 311  static void asir_executeFunction(int serial)
                 drawcircle(n);                  drawcircle(n);
         } else if ( !strcmp(func,"draw_obj") ) {          } else if ( !strcmp(func,"draw_obj") ) {
                 if ( draw_obj(n) < 0 ) {                  if ( draw_obj(n) < 0 ) {
                         create_error(&err,serial,LastError);                          create_error(&err,serial,LastError,0);
                         asir_push_one((Obj)err);                          asir_push_one((Obj)err);
                 }                  }
         } else if ( !strcmp(func,"draw_string") ) {          } else if ( !strcmp(func,"draw_string") ) {
                 if ( draw_string(n) < 0 ) {                  if ( draw_string(n) < 0 ) {
                         create_error(&err,serial,LastError);                          create_error(&err,serial,LastError,0);
                         asir_push_one((Obj)err);                          asir_push_one((Obj)err);
                 }                  }
         } else if ( !strcmp(func,"clear_canvas") ) {          } else if ( !strcmp(func,"clear_canvas") ) {
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.22
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>