Return to asir_lib.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

Annotation of OpenXM_contrib2/asir2000/parse/asir_lib.c, Revision 1.1

1.1     ! noro        1: /* $OpenXM: OpenXM/src/asir99/parse/asir_lib.c,v 1.1.1.1 1999/11/10 08:12:34 noro Exp $ */
        !             2: #include "ca.h"
        !             3: #include "parse.h"
        !             4: #if defined(THINK_C)
        !             5: #include <console.h>
        !             6: #endif
        !             7:
        !             8: #if PARI
        !             9: #include "genpari.h"
        !            10:
        !            11: extern jmp_buf environnement;
        !            12: #endif
        !            13:
        !            14: extern jmp_buf env;
        !            15: extern int *StackBottom;
        !            16: extern char *parse_strp;
        !            17: extern int do_file;
        !            18:
        !            19: void Init_Asir(int,char **);
        !            20: int Call_Asir(char *,pointer *);
        !            21:
        !            22: void Init_Asir(int argc,char **argv)
        !            23: {
        !            24:        int tmp;
        !            25:        FILE *ifp;
        !            26:        char ifname[BUFSIZ];
        !            27:        extern int GC_dont_gc;
        !            28:        extern int read_exec_file;
        !            29:        extern int do_asirrc;
        !            30:        char *getenv();
        !            31:        static asirlib_initialized=0;
        !            32:
        !            33:        if ( asirlib_initialized )
        !            34:                return;
        !            35:        asirlib_initialized = 1;
        !            36:        do_file = 1;
        !            37: #if PARI
        !            38:     risa_pari_init();
        !            39: #endif
        !            40:        srandom((int)get_current_time());
        !            41: /*     mt_sgenrand((unsigned long)get_current_time()); */
        !            42:
        !            43: #if defined(THINK_C)
        !            44:        param_init();
        !            45: #endif
        !            46:        StackBottom = &tmp + 1; /* XXX */
        !            47:        rtime_init();
        !            48:        env_init();
        !            49:        endian_init();
        !            50: #if !defined(VISUAL) && !defined(THINK_C)
        !            51: /*     check_key(); */
        !            52: #endif
        !            53:        GC_init();
        !            54:        process_args(--argc,++argv);
        !            55:        copyright();
        !            56:        output_init();
        !            57:        arf_init();
        !            58:        nglob_init();
        !            59:        glob_init();
        !            60:        sig_init();
        !            61:        tty_init();
        !            62:        debug_init();
        !            63:        pf_init();
        !            64:        sysf_init();
        !            65:        parif_init();
        !            66: #if defined(UINIT)
        !            67:        reg_sysf();
        !            68: #endif
        !            69: #if defined(THINK_C)
        !            70:        sprintf(ifname,"asirrc");
        !            71: #else
        !            72:        sprintf(ifname,"%s/.asirrc",getenv("HOME"));
        !            73: #endif
        !            74:        if ( do_asirrc && (ifp = fopen(ifname,"r")) ) {
        !            75:                input_init(ifp,ifname);
        !            76:                if ( !setjmp(env) ) {
        !            77:                        read_exec_file = 1;
        !            78:                        read_eval_loop();
        !            79:                        read_exec_file = 0;
        !            80:                }
        !            81:                fclose(ifp);
        !            82:        } else
        !            83:                error(".asirrc not found");
        !            84:        input_init(0,"string");
        !            85: }
        !            86:
        !            87: int Call_Asir(char *cmd,pointer *result)
        !            88: {
        !            89:        SNODE snode;
        !            90:        pointer val;
        !            91: #if PARI
        !            92:        recover(0);
        !            93:        if ( setjmp(environnement) ) {
        !            94:                avma = top; recover(1);
        !            95:                error("PARI error");
        !            96:        }
        !            97: #endif
        !            98:        if ( setjmp(env) ) {
        !            99:                *result = 0;
        !           100:                return -1;
        !           101:        }
        !           102:        parse_strp = cmd;
        !           103:        if ( mainparse(&snode) ) {
        !           104:                *result = 0;
        !           105:                return -1;
        !           106:        }
        !           107:        val = evalstat(snode);
        !           108:        if ( NEXT(asir_infile) ) {
        !           109:                while ( NEXT(asir_infile) ) {
        !           110:                        if ( mainparse(&snode) ) {
        !           111:                                *result = val;
        !           112:                                return -1;
        !           113:                        }
        !           114:                        nextbp = 0;
        !           115:                        val = evalstat(snode);
        !           116:                }
        !           117:        }
        !           118:        *result = val;
        !           119:        return 0;
        !           120: }