version 1.26, 2014/06/27 07:58:29 |
version 1.30, 2017/08/30 09:40:30 |
|
|
* 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.25 2014/05/12 16:54:41 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" |
|
|
#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(); |