[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.11 and 1.14

version 1.11, 2001/08/20 09:03:28 version 1.14, 2001/12/25 02:39:07
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.10 2000/11/09 01:51:12 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot.c,v 1.13 2001/10/09 01:36:27 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
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;
   
 extern jmp_buf environnement;  extern JMP_BUF environnement;
   
 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[];  extern char LastError[];
   
Line 102  void ox_plot_main(int argc,char **argv)
Line 102  void ox_plot_main(int argc,char **argv)
         int ds;          int ds;
         fd_set r;          fd_set r;
         int n;          int n;
           int use_x;
   
 #if !defined(VISUAL)  #if !defined(VISUAL)
         ox_asir_init(argc,argv);          ox_asir_init(argc,argv);
         init_plot_display(argc,argv);          use_x = init_plot_display(argc,argv);
         ds = ConnectionNumber(display);          if ( use_x )
                   ds = ConnectionNumber(display);
           else
                   fprintf(stderr,"Entering no X mode\n");
 #endif  #endif
         if ( do_message )          if ( do_message )
                 fprintf(stderr,"I'm an ox_plot, Version %d.\n",ASIR_VERSION);                  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();
Line 123  void ox_plot_main(int argc,char **argv)
Line 127  void ox_plot_main(int argc,char **argv)
 #else  #else
                 if ( ox_data_is_available(0) )                  if ( ox_data_is_available(0) )
                         process_ox();                          process_ox();
                 else {                  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);
Line 155  static void process_ox()
Line 159  static void process_ox()
                                 break;                                  break;
                         if ( do_message )                          if ( do_message )
                                 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);
                                         asir_push_one((Obj)err);                                          asir_push_one((Obj)err);
Line 238  static void asir_do_cmd(unsigned int cmd,unsigned int 
Line 242  static void asir_do_cmd(unsigned int cmd,unsigned int 
         }          }
 }  }
   
 static void asir_executeFunction(serial)  static void asir_executeFunction(int serial)
 int serial;  
 {  {
         char *func;          char *func;
         int argc;          int argc;
Line 249  int serial;
Line 252  int serial;
         VL vl;          VL vl;
         ERR err;          ERR err;
         NODE n,n1;          NODE n,n1;
           LIST bytes;
   
         func = ((STRING)asir_pop_one())->body;          func = ((STRING)asir_pop_one())->body;
         argc = (int)(((USINT)asir_pop_one())->body);          argc = (int)(((USINT)asir_pop_one())->body);
Line 263  int serial;
Line 267  int serial;
         if ( !strcmp(func,"plot") ) {          if ( !strcmp(func,"plot") ) {
                 id = plot(n);                  id = plot(n);
                 STOQ(id,ret); asir_push_one((Obj)ret);                  STOQ(id,ret); asir_push_one((Obj)ret);
           } else if ( !strcmp(func,"memory_plot") ) {
                   memory_plot(n,&bytes); asir_push_one((Obj)bytes);
         } 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);
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.14
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>