=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/plot/ox_plot.c,v retrieving revision 1.1.1.1 retrieving revision 1.20 diff -u -p -r1.1.1.1 -r1.20 --- OpenXM_contrib2/asir2000/plot/ox_plot.c 1999/12/03 07:39:13 1.1.1.1 +++ OpenXM_contrib2/asir2000/plot/ox_plot.c 2004/02/13 05:48:36 1.20 @@ -1,76 +1,136 @@ -/* $OpenXM: OpenXM/src/asir99/plot/ox_plot.c,v 1.3 1999/11/19 05:51:24 noro Exp $ */ +/* + * Copyright (c) 1994-2000 FUJITSU LABORATORIES LIMITED + * All rights reserved. + * + * FUJITSU LABORATORIES LIMITED ("FLL") hereby grants you a limited, + * non-exclusive and royalty-free license to use, copy, modify and + * redistribute, solely for non-commercial and non-profit purposes, the + * computer program, "Risa/Asir" ("SOFTWARE"), subject to the terms and + * conditions of this Agreement. For the avoidance of doubt, you acquire + * only a limited right to use the SOFTWARE hereunder, and FLL or any + * third party developer retains all rights, including but not limited to + * copyrights, in and to the SOFTWARE. + * + * (1) FLL does not grant you a license in any way for commercial + * purposes. You may use the SOFTWARE only for non-commercial and + * non-profit purposes only, such as academic, research and internal + * business use. + * (2) The SOFTWARE is protected by the Copyright Law of Japan and + * international copyright treaties. If you make copies of the SOFTWARE, + * with or without modification, as permitted hereunder, you shall affix + * to all such copies of the SOFTWARE the above copyright notice. + * (3) An explicit reference to this SOFTWARE and its copyright owner + * shall be made on your publication or presentation in any form of the + * results obtained by use of the SOFTWARE. + * (4) In the event that you modify the SOFTWARE, you shall notify FLL by + * e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification + * for such modification or the source code of the modified part of the + * SOFTWARE. + * + * THE SOFTWARE IS PROVIDED AS IS WITHOUT ANY WARRANTY OF ANY KIND. FLL + * MAKES ABSOLUTELY NO WARRANTIES, EXPRESSED, IMPLIED OR STATUTORY, AND + * EXPRESSLY DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS + * FOR A PARTICULAR PURPOSE OR NONINFRINGEMENT OF THIRD PARTIES' + * RIGHTS. NO FLL DEALER, AGENT, EMPLOYEES IS AUTHORIZED TO MAKE ANY + * MODIFICATIONS, EXTENSIONS, OR ADDITIONS TO THIS WARRANTY. + * UNDER NO CIRCUMSTANCES AND UNDER NO LEGAL THEORY, TORT, CONTRACT, + * OR OTHERWISE, SHALL FLL BE LIABLE TO YOU OR ANY OTHER PERSON FOR ANY + * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, PUNITIVE OR CONSEQUENTIAL + * DAMAGES OF ANY CHARACTER, INCLUDING, WITHOUT LIMITATION, DAMAGES + * ARISING OUT OF OR RELATING TO THE SOFTWARE OR THIS AGREEMENT, DAMAGES + * FOR LOSS OF GOODWILL, WORK STOPPAGE, OR LOSS OF DATA, OR FOR ANY + * DAMAGES, EVEN IF FLL SHALL HAVE BEEN INFORMED OF THE POSSIBILITY OF + * SUCH DAMAGES, OR FOR ANY CLAIM BY ANY OTHER PARTY. EVEN IF A PART + * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY + * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, + * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. + * + * $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot.c,v 1.19 2003/02/14 22:29:19 ohara Exp $ +*/ #include "ca.h" #include "parse.h" #include "ox.h" #include "ifplot.h" #include "version.h" +#include +#if defined(PARI) +#include "genpari.h" +#endif void ox_usr1_handler(); +extern int asir_OperandStackSize; +extern Obj *asir_OperandStack; +extern int asir_OperandStackPtr; + +/* environement is defined in libpari.a */ +#if !(PARI_VERSION_CODE > 131588) extern jmp_buf environnement; +#endif extern int do_message; extern int ox_flushing; -extern jmp_buf ox_env; +extern JMP_BUF ox_env; extern MATHCAP my_mathcap; +extern char LastError[]; -static int plot_OperandStackSize; -static Obj *plot_OperandStack; -static int plot_OperandStackPtr = -1; +void create_error(ERR *,unsigned int ,char *); -static void create_error(ERR *,unsigned int ,char *); +void ox_io_init(); +void ox_asir_init(int,char **,char *); +Obj asir_pop_one(); +void asir_push_one(Obj); +void asir_end_flush(); +int asir_executeString(); +void asir_evalName(unsigned int); +void asir_setName(unsigned int); +void asir_pops(); +void asir_popString(); +void asir_popCMO(unsigned int); +void asir_popSerializedLocalObject(); +char *name_of_cmd(unsigned int); +char *name_of_id(int); +LIST asir_GetErrorList(); + +static void asir_do_cmd(unsigned int,unsigned int); static void process_ox(); -static void ox_io_init(); -static void ox_asir_init(int,char **); -static Obj asir_pop_one(); -static void asir_push_one(Obj); -static void asir_end_flush(); static void asir_executeFunction(); -static int asir_executeString(); -static void asir_evalName(unsigned int); -static void asir_setName(unsigned int); -static void asir_pops(); -static void asir_popString(); -static void asir_popCMO(unsigned int); -static void asir_popSerializedLocalObject(); -static char *name_of_cmd(unsigned int); -static char *name_of_id(int); -static void asir_do_cmd(unsigned int,unsigned int); -static void create_error(ERR *err,unsigned int serial,char *msg) +#if defined(VISUAL) +void ox_plot_main() +#else +void ox_plot_main(int argc,char **argv) +#endif { - USINT ui; - NODE n,n1; - LIST list; - STRING errmsg; - - MKUSINT(ui,serial); - MKSTR(errmsg,msg); - MKNODE(n1,errmsg,0); MKNODE(n,ui,n1); MKLIST(list,n); - MKERR(*err,list); -} - -void ox_plot_main(int argc,char **argv) { int ds; fd_set r; int n; + int use_x; - ox_asir_init(argc,argv); - init_plot_display(argc,argv); - ds = ConnectionNumber(display); +#if !defined(VISUAL) + ox_asir_init(argc,argv,"ox_plot"); + use_x = init_plot_display(argc,argv); + if ( use_x ) + ds = ConnectionNumber(display); + else + fprintf(stderr,"Entering no X mode\n"); +#endif 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(); reset_current_computation(); ox_send_sync(0); } while ( 1 ) { +#if defined(VISUAL) + process_ox(); +#else if ( ox_data_is_available(0) ) process_ox(); - else { + else if ( use_x ) { FD_ZERO(&r); FD_SET(3,&r); FD_SET(ds,&r); select(FD_SETSIZE,&r,NULL,NULL,NULL); @@ -80,6 +140,7 @@ void ox_plot_main(int argc,char **argv) { process_xevent(); } } +#endif } static void process_ox() @@ -90,7 +151,6 @@ static void process_ox() ERR err; unsigned int serial; int ret; - extern char LastError[]; serial = ox_recv(0,&id,&obj); if ( do_message ) @@ -102,7 +162,7 @@ static void process_ox() break; if ( do_message ) fprintf(stderr," %s\n",name_of_cmd(cmd)); - if ( ret = setjmp(env) ) { + if ( ret = SETJMP(main_env) ) { if ( ret == 1 ) { create_error(&err,serial,LastError); asir_push_one((Obj)err); @@ -132,8 +192,20 @@ static void process_ox() static void asir_do_cmd(unsigned int cmd,unsigned int serial) { MATHCAP client_mathcap; + LIST list; + int i; + Q q; switch ( cmd ) { + case SM_dupErrors: + list = asir_GetErrorList(); + asir_push_one((Obj)list); + break; + case SM_getsp: + i = asir_OperandStackPtr+1; + STOQ(i,q); + asir_push_one((Obj)q); + break; case SM_popSerializedLocalObject: asir_popSerializedLocalObject(); break; @@ -153,7 +225,7 @@ static void asir_do_cmd(unsigned int cmd,unsigned int asir_executeString(); break; case SM_executeFunction: - asir_executeFunction(); + asir_executeFunction(serial); break; case SM_shutdown: asir_terminate(2); @@ -168,218 +240,13 @@ static void asir_do_cmd(unsigned int cmd,unsigned int client_mathcap = (MATHCAP)asir_pop_one(); store_remote_mathcap(0,client_mathcap); break; + case SM_nop: default: break; } } -static char *name_of_id(int id) -{ - switch ( id ) { - case OX_COMMAND: - return "OX_COMMAND"; - break; - case OX_DATA: - return "OX_DATA"; - break; - case OX_LOCAL_OBJECT_ASIR: - return "OX_LOCAL_OBJECT_ASIR"; - break; - case OX_SYNC_BALL: - return "OX_SYNC_BALL"; - break; - default: - return "Unknown id"; - break; - } -} - -static char *name_of_cmd(unsigned cmd) -{ - switch ( cmd ) { - case SM_popSerializedLocalObject: - return "SM_popSerializedLocalObject"; - break; - case SM_popCMO: - return "SM_popCMO"; - break; - case SM_popString: - return "SM_popString"; - break; - case SM_pops: - return "SM_pops"; - break; - case SM_setName: - return "SM_setName"; - break; - case SM_evalName: - return "SM_evalName"; - break; - case SM_executeStringByLocalParser: - return "SM_executeString"; - break; - case SM_executeFunction: - return "SM_executeFunction"; - break; - case SM_shutdown: - return "SM_shutdown"; - break; - case SM_beginBlock: - return "SM_beginBlock"; - break; - case SM_endBlock: - return "SM_endBlock"; - break; - case SM_mathcap: - return "SM_mathcap"; - break; - case SM_setMathcap: - return "SM_setMathcap"; - break; - default: - return "Unknown cmd"; - break; - } -} - -static void asir_popSerializedLocalObject() -{ - Obj obj; - VL t,vl; - - obj = asir_pop_one(); - get_vars(obj,&vl); - for ( t = vl; t; t = NEXT(t) ) - if ( t->v->attr == (pointer)V_UC || t->v->attr == (pointer)V_PF ) - error("bsave : not implemented"); - ox_send_cmd(0,SM_beginBlock); - ox_send_local_ring(0,vl); - ox_send_local_data(0,obj); - ox_send_cmd(0,SM_endBlock); -} - -static void asir_popCMO(unsigned int serial) -{ - Obj obj; - ERR err; - - obj = asir_pop_one(); - if ( valid_as_cmo(obj) ) - ox_send_data(0,obj); - else { - create_error(&err,serial,"cannot convert to CMO object"); - ox_send_data(0,err); - asir_push_one(obj); - } -} - -static void asir_popString() -{ - Obj val; - char *buf,*obuf; - int l; - STRING str; - - val = asir_pop_one(); - if ( !val ) - obuf = 0; - else { - l = estimate_length(CO,val); - buf = (char *)ALLOCA(l+1); - soutput_init(buf); - sprintexpr(CO,val); - l = strlen(buf); - obuf = (char *)MALLOC(l+1); - strcpy(obuf,buf); - } - MKSTR(str,obuf); - ox_send_data(0,str); -} - -static void asir_pops() -{ - int n; - - n = (int)(((USINT)asir_pop_one())->body); - plot_OperandStackPtr = MAX(plot_OperandStackPtr-n,-1); -} - -static void asir_setName(unsigned int serial) -{ - char *name; - int l,n; - char *dummy = "=0;"; - SNODE snode; - ERR err; - - name = ((STRING)asir_pop_one())->body; - l = strlen(name); - n = l+strlen(dummy)+1; - parse_strp = (char *)ALLOCA(n); - sprintf(parse_strp,"%s%s",name,dummy); - if ( mainparse(&snode) ) { - create_error(&err,serial,"cannot set to variable"); - asir_push_one((Obj)err); - } else { - FA1((FNODE)FA0(snode)) = (pointer)mkfnode(1,I_FORMULA,asir_pop_one()); - evalstat(snode); - } -} - -static void asir_evalName(unsigned int serial) -{ - char *name; - int l,n; - SNODE snode; - ERR err; - pointer val; - - name = ((STRING)asir_pop_one())->body; - l = strlen(name); - n = l+2; - parse_strp = (char *)ALLOCA(n); - sprintf(parse_strp,"%s;",name); - if ( mainparse(&snode) ) { - create_error(&err,serial,"no such variable"); - val = (pointer)err; - } else - val = evalstat(snode); - asir_push_one(val); -} - -static int asir_executeString() -{ - SNODE snode; - pointer val; - char *cmd; -#if PARI - recover(0); - if ( setjmp(environnement) ) { - avma = top; recover(1); - resetenv(""); - } -#endif - cmd = ((STRING)asir_pop_one())->body; - parse_strp = cmd; - if ( mainparse(&snode) ) { - return -1; - } - val = evalstat(snode); - if ( NEXT(asir_infile) ) { - while ( NEXT(asir_infile) ) { - if ( mainparse(&snode) ) { - asir_push_one(val); - return -1; - } - nextbp = 0; - val = evalstat(snode); - } - } - asir_push_one(val); - return 0; -} - -static void asir_executeFunction() +static void asir_executeFunction(int serial) { char *func; int argc; @@ -387,7 +254,9 @@ static void asir_executeFunction() FUNC f; Q ret; VL vl; + ERR err; NODE n,n1; + LIST bytes; func = ((STRING)asir_pop_one())->body; argc = (int)(((USINT)asir_pop_one())->body); @@ -399,138 +268,32 @@ static void asir_executeFunction() if ( n ) NEXT(n1) = 0; id = -1; - if ( !strcmp(func,"plot") ) + if ( !strcmp(func,"plot") ) { id = plot(n); - else if ( !strcmp(func,"arrayplot") ) + 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") ) { id = arrayplot(n); - else if ( !strcmp(func,"plotover") ) - id = plotover(n); - else if ( !strcmp(func,"drawcircle") ) - id = drawcircle(n); - STOQ(id,ret); -#if 0 - asir_push_one((Obj)ret); -#endif -} - -static void asir_end_flush() -{ - ox_flushing = 0; -} - -static void asir_push_one(Obj obj) -{ - if ( !obj || OID(obj) != O_VOID ) { - plot_OperandStackPtr++; - if ( plot_OperandStackPtr >= plot_OperandStackSize ) { - plot_OperandStackSize += BUFSIZ; - plot_OperandStack - = (Obj *)REALLOC(plot_OperandStack, - plot_OperandStackSize*sizeof(Obj)); + STOQ(id,ret); asir_push_one((Obj)ret); + } else if ( !strcmp(func,"open_canvas") ) { + id = open_canvas(n); + STOQ(id,ret); asir_push_one((Obj)ret); + } else if ( !strcmp(func,"plotover") ) { + plotover(n); + } else if ( !strcmp(func,"drawcircle") ) { + drawcircle(n); + } else if ( !strcmp(func,"draw_obj") ) { + if ( draw_obj(n) < 0 ) { + create_error(&err,serial,LastError); + asir_push_one((Obj)err); + } + } else if ( !strcmp(func,"draw_string") ) { + if ( draw_string(n) < 0 ) { + create_error(&err,serial,LastError); + asir_push_one((Obj)err); } - plot_OperandStack[plot_OperandStackPtr] = obj; + } else if ( !strcmp(func,"clear_canvas") ) { + clear_canvas(n); } -} - -static Obj asir_pop_one() { - if ( plot_OperandStackPtr < 0 ) { - if ( do_message ) - fprintf(stderr,"OperandStack underflow"); - return 0; - } else { - if ( do_message ) - fprintf(stderr,"pop at %d\n",plot_OperandStackPtr); - return plot_OperandStack[plot_OperandStackPtr--]; - } -} - -static void ox_asir_init(int argc,char **argv) -{ - int tmp; - char ifname[BUFSIZ]; - extern int GC_dont_gc; - extern int read_exec_file; - extern int do_asirrc; - extern int do_server_in_X11; - char *getenv(); - static ox_asir_initialized = 0; - FILE *ifp; - - do_server_in_X11 = 1; /* XXX */ - asir_save_handler(); -#if PARI - risa_pari_init(); -#endif - srandom((int)get_current_time()); - -#if defined(THINK_C) - param_init(); -#endif - StackBottom = &tmp + 1; /* XXX */ - rtime_init(); - env_init(); - endian_init(); -#if !defined(VISUAL) && !defined(THINK_C) -/* check_key(); */ -#endif - GC_init(); - process_args(--argc,++argv); -#if 0 - copyright(); -#endif - output_init(); - arf_init(); - nglob_init(); - glob_init(); - sig_init(); - tty_init(); - debug_init(); - pf_init(); - sysf_init(); - parif_init(); -#if defined(VISUAL) - init_socket(); -#endif -#if defined(UINIT) - reg_sysf(); -#endif -#if defined(THINK_C) - sprintf(ifname,"asirrc"); -#else - sprintf(ifname,"%s/.asirrc",getenv("HOME")); -#endif - if ( do_asirrc && (ifp = fopen(ifname,"r")) ) { - input_init(ifp,ifname); - if ( !setjmp(env) ) { - read_exec_file = 1; - read_eval_loop(); - read_exec_file = 0; - } - fclose(ifp); - } - input_init(0,"string"); - ox_io_init(); - create_my_mathcap("ox_plot"); -} - -static void ox_io_init() { - unsigned char c,rc; - extern int little_endian; - - endian_init(); - iofp[0].in = fdopen(3,"r"); - iofp[0].out = fdopen(4,"w"); - setbuffer(iofp[0].in,(char *)malloc(LBUFSIZ),LBUFSIZ); - setbuffer(iofp[0].out,(char *)malloc(LBUFSIZ),LBUFSIZ); - plot_OperandStackSize = BUFSIZ; - plot_OperandStack = (Obj *)CALLOC(plot_OperandStackSize,sizeof(Obj)); - plot_OperandStackPtr = -1; - signal(SIGUSR1,ox_usr1_handler); - if ( little_endian ) - c = 1; - else - c = 0xff; - write_char(iofp[0].out,&c); ox_flush_stream(0); - read_char(iofp[0].in,&rc); - iofp[0].conv = c == rc ? 0 : 1; }