version 1.1, 2018/09/19 05:45:08 |
version 1.3, 2019/07/25 05:57:56 |
|
|
* 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; |
} |
} |