[BACK]Return to ox_plot.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / plot

Annotation of OpenXM_contrib2/asir2000/plot/ox_plot.c, Revision 1.11

1.5       noro        1: /*
                      2:  * Copyright (c) 1994-2000 FUJITSU LABORATORIES LIMITED
                      3:  * All rights reserved.
                      4:  *
                      5:  * FUJITSU LABORATORIES LIMITED ("FLL") hereby grants you a limited,
                      6:  * non-exclusive and royalty-free license to use, copy, modify and
                      7:  * redistribute, solely for non-commercial and non-profit purposes, the
                      8:  * computer program, "Risa/Asir" ("SOFTWARE"), subject to the terms and
                      9:  * conditions of this Agreement. For the avoidance of doubt, you acquire
                     10:  * only a limited right to use the SOFTWARE hereunder, and FLL or any
                     11:  * third party developer retains all rights, including but not limited to
                     12:  * copyrights, in and to the SOFTWARE.
                     13:  *
                     14:  * (1) FLL does not grant you a license in any way for commercial
                     15:  * purposes. You may use the SOFTWARE only for non-commercial and
                     16:  * non-profit purposes only, such as academic, research and internal
                     17:  * business use.
                     18:  * (2) The SOFTWARE is protected by the Copyright Law of Japan and
                     19:  * international copyright treaties. If you make copies of the SOFTWARE,
                     20:  * with or without modification, as permitted hereunder, you shall affix
                     21:  * to all such copies of the SOFTWARE the above copyright notice.
                     22:  * (3) An explicit reference to this SOFTWARE and its copyright owner
                     23:  * shall be made on your publication or presentation in any form of the
                     24:  * results obtained by use of the SOFTWARE.
                     25:  * (4) In the event that you modify the SOFTWARE, you shall notify FLL by
1.6       noro       26:  * e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification
1.5       noro       27:  * for such modification or the source code of the modified part of the
                     28:  * SOFTWARE.
                     29:  *
                     30:  * THE SOFTWARE IS PROVIDED AS IS WITHOUT ANY WARRANTY OF ANY KIND. FLL
                     31:  * MAKES ABSOLUTELY NO WARRANTIES, EXPRESSED, IMPLIED OR STATUTORY, AND
                     32:  * EXPRESSLY DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS
                     33:  * FOR A PARTICULAR PURPOSE OR NONINFRINGEMENT OF THIRD PARTIES'
                     34:  * RIGHTS. NO FLL DEALER, AGENT, EMPLOYEES IS AUTHORIZED TO MAKE ANY
                     35:  * MODIFICATIONS, EXTENSIONS, OR ADDITIONS TO THIS WARRANTY.
                     36:  * UNDER NO CIRCUMSTANCES AND UNDER NO LEGAL THEORY, TORT, CONTRACT,
                     37:  * OR OTHERWISE, SHALL FLL BE LIABLE TO YOU OR ANY OTHER PERSON FOR ANY
                     38:  * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, PUNITIVE OR CONSEQUENTIAL
                     39:  * DAMAGES OF ANY CHARACTER, INCLUDING, WITHOUT LIMITATION, DAMAGES
                     40:  * ARISING OUT OF OR RELATING TO THE SOFTWARE OR THIS AGREEMENT, DAMAGES
                     41:  * FOR LOSS OF GOODWILL, WORK STOPPAGE, OR LOSS OF DATA, OR FOR ANY
                     42:  * DAMAGES, EVEN IF FLL SHALL HAVE BEEN INFORMED OF THE POSSIBILITY OF
                     43:  * SUCH DAMAGES, OR FOR ANY CLAIM BY ANY OTHER PARTY. EVEN IF A PART
                     44:  * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY
                     45:  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
                     46:  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
                     47:  *
1.11    ! noro       48:  * $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot.c,v 1.10 2000/11/09 01:51:12 noro Exp $
1.5       noro       49: */
1.1       noro       50: #include "ca.h"
                     51: #include "parse.h"
                     52: #include "ox.h"
                     53: #include "ifplot.h"
                     54: #include "version.h"
1.3       noro       55: #include <signal.h>
1.2       noro       56: #if PARI
                     57: #include "genpari.h"
                     58: #endif
1.1       noro       59:
                     60: void ox_usr1_handler();
                     61:
1.8       noro       62: extern int asir_OperandStackSize;
                     63: extern Obj *asir_OperandStack;
                     64: extern int asir_OperandStackPtr;
                     65:
1.1       noro       66: extern jmp_buf environnement;
                     67:
                     68: extern int do_message;
                     69: extern int ox_flushing;
                     70: extern jmp_buf ox_env;
                     71: extern MATHCAP my_mathcap;
1.10      noro       72: extern char LastError[];
1.1       noro       73:
1.8       noro       74: void create_error(ERR *,unsigned int ,char *);
1.1       noro       75:
1.8       noro       76: void ox_io_init();
                     77: void ox_asir_init(int,char **);
                     78: Obj asir_pop_one();
                     79: void asir_push_one(Obj);
                     80: void asir_end_flush();
                     81: int asir_executeString();
                     82: void asir_evalName(unsigned int);
                     83: void asir_setName(unsigned int);
                     84: void asir_pops();
                     85: void asir_popString();
                     86: void asir_popCMO(unsigned int);
                     87: void asir_popSerializedLocalObject();
                     88: char *name_of_cmd(unsigned int);
                     89: char *name_of_id(int);
                     90: LIST asir_GetErrorList();
1.7       noro       91:
1.8       noro       92: static void asir_do_cmd(unsigned int,unsigned int);
1.1       noro       93: static void process_ox();
                     94: static void asir_executeFunction();
                     95:
1.9       noro       96: #if defined(VISUAL)
                     97: void ox_plot_main()
                     98: #else
                     99: void ox_plot_main(int argc,char **argv)
                    100: #endif
                    101: {
1.1       noro      102:        int ds;
                    103:        fd_set r;
                    104:        int n;
                    105:
1.9       noro      106: #if !defined(VISUAL)
1.1       noro      107:        ox_asir_init(argc,argv);
                    108:        init_plot_display(argc,argv);
                    109:        ds = ConnectionNumber(display);
1.9       noro      110: #endif
1.1       noro      111:        if ( do_message )
                    112:                fprintf(stderr,"I'm an ox_plot, Version %d.\n",ASIR_VERSION);
                    113:
                    114:        if ( setjmp(ox_env) ) {
                    115:                while ( NEXT(asir_infile) )
                    116:                        closecurrentinput();
                    117:                reset_current_computation();
                    118:                ox_send_sync(0);
                    119:        }
                    120:        while ( 1 ) {
1.9       noro      121: #if defined(VISUAL)
                    122:                process_ox();
                    123: #else
1.1       noro      124:                if ( ox_data_is_available(0) )
                    125:                        process_ox();
                    126:                else {
                    127:                        FD_ZERO(&r);
                    128:                        FD_SET(3,&r); FD_SET(ds,&r);
                    129:                        select(FD_SETSIZE,&r,NULL,NULL,NULL);
                    130:                        if ( FD_ISSET(3,&r) )
                    131:                                process_ox();
                    132:                        else if ( FD_ISSET(ds,&r) )
                    133:                                process_xevent();
                    134:                }
                    135:        }
1.9       noro      136: #endif
1.1       noro      137: }
                    138:
                    139: static void process_ox()
                    140: {
                    141:        int id;
                    142:        unsigned int cmd;
                    143:        Obj obj;
                    144:        ERR err;
                    145:        unsigned int serial;
                    146:        int ret;
                    147:
                    148:        serial = ox_recv(0,&id,&obj);
                    149:        if ( do_message )
                    150:                fprintf(stderr,"#%d Got %s",serial,name_of_id(id));
                    151:        switch ( id ) {
                    152:                case OX_COMMAND:
                    153:                        cmd = ((USINT)obj)->body;
                    154:                        if ( ox_flushing )
                    155:                                break;
                    156:                        if ( do_message )
                    157:                                fprintf(stderr," %s\n",name_of_cmd(cmd));
1.11    ! noro      158:                        if ( ret = setjmp(main_env) ) {
1.1       noro      159:                                if ( ret == 1 ) {
                    160:                                        create_error(&err,serial,LastError);
                    161:                                        asir_push_one((Obj)err);
                    162:                                }
                    163:                                break;
                    164:                        }
                    165:                        asir_do_cmd(cmd,serial);
                    166:                        break;
                    167:                case OX_DATA:
                    168:                case OX_LOCAL_OBJECT_ASIR:
                    169:                        if ( ox_flushing )
                    170:                                break;
                    171:                        if ( do_message )
                    172:                                fprintf(stderr," -> data pushed");
                    173:                        asir_push_one(obj);
                    174:                        break;
                    175:                case OX_SYNC_BALL:
                    176:                                asir_end_flush();
                    177:                        break;
                    178:                default:
                    179:                        break;
                    180:        }
                    181:        if ( do_message )
                    182:                fprintf(stderr,"\n");
                    183: }
                    184:
                    185: static void asir_do_cmd(unsigned int cmd,unsigned int serial)
                    186: {
                    187:        MATHCAP client_mathcap;
1.4       noro      188:        LIST list;
                    189:        int i;
                    190:        Q q;
1.1       noro      191:
                    192:        switch ( cmd ) {
1.4       noro      193:                case SM_dupErrors:
                    194:                        list = asir_GetErrorList();
                    195:                        asir_push_one((Obj)list);
                    196:                        break;
                    197:                case SM_getsp:
1.8       noro      198:                        i = asir_OperandStackPtr+1;
1.4       noro      199:                        STOQ(i,q);
                    200:                        asir_push_one((Obj)q);
                    201:                        break;
1.1       noro      202:                case SM_popSerializedLocalObject:
                    203:                        asir_popSerializedLocalObject();
                    204:                        break;
                    205:                case SM_popCMO:
                    206:                        asir_popCMO(serial);
                    207:                        break;
                    208:                case SM_popString:
                    209:                        asir_popString();
                    210:                        break;
                    211:                case SM_setName:
                    212:                        asir_setName(serial);
                    213:                        break;
                    214:                case SM_evalName:
                    215:                        asir_evalName(serial);
                    216:                        break;
                    217:                case SM_executeStringByLocalParser:
                    218:                        asir_executeString();
                    219:                        break;
                    220:                case SM_executeFunction:
1.10      noro      221:                        asir_executeFunction(serial);
1.1       noro      222:                        break;
                    223:                case SM_shutdown:
                    224:                        asir_terminate(2);
                    225:                        break;
                    226:                case SM_pops:
                    227:                        asir_pops();
                    228:                        break;
                    229:                case SM_mathcap:
                    230:                        asir_push_one((Obj)my_mathcap);
                    231:                        break;
                    232:                case SM_setMathcap:
                    233:                        client_mathcap = (MATHCAP)asir_pop_one();
                    234:                        store_remote_mathcap(0,client_mathcap);
                    235:                        break;
                    236:                default:
                    237:                        break;
                    238:        }
                    239: }
                    240:
1.10      noro      241: static void asir_executeFunction(serial)
                    242: int serial;
1.1       noro      243: {
                    244:        char *func;
                    245:        int argc;
                    246:        int id;
                    247:        FUNC f;
                    248:        Q ret;
                    249:        VL vl;
1.10      noro      250:        ERR err;
1.1       noro      251:        NODE n,n1;
                    252:
                    253:        func = ((STRING)asir_pop_one())->body;
                    254:        argc = (int)(((USINT)asir_pop_one())->body);
                    255:
                    256:        for ( n = 0; argc; argc-- ) {
                    257:                NEXTNODE(n,n1);
                    258:                BDY(n1) = (pointer)asir_pop_one();
                    259:        }
                    260:        if ( n )
                    261:                NEXT(n1) = 0;
                    262:        id = -1;
1.9       noro      263:        if ( !strcmp(func,"plot") ) {
1.1       noro      264:                id = plot(n);
1.9       noro      265:                STOQ(id,ret); asir_push_one((Obj)ret);
                    266:        } else if ( !strcmp(func,"arrayplot") ) {
1.1       noro      267:                id = arrayplot(n);
1.9       noro      268:                STOQ(id,ret); asir_push_one((Obj)ret);
                    269:        } else if ( !strcmp(func,"open_canvas") ) {
                    270:                id = open_canvas(n);
                    271:                STOQ(id,ret); asir_push_one((Obj)ret);
                    272:        } else if ( !strcmp(func,"plotover") ) {
                    273:                plotover(n);
                    274:        } else if ( !strcmp(func,"drawcircle") ) {
                    275:                drawcircle(n);
                    276:        } else if ( !strcmp(func,"draw_obj") ) {
1.10      noro      277:                if ( draw_obj(n) < 0 ) {
                    278:                        create_error(&err,serial,LastError);
                    279:                        asir_push_one((Obj)err);
                    280:                }
1.9       noro      281:        } else if ( !strcmp(func,"clear_canvas") ) {
                    282:                clear_canvas(n);
                    283:        }
1.1       noro      284: }

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>