Return to main.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

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

1.1     ! noro        1: /* $OpenXM: OpenXM/src/asir99/parse/main.c,v 1.2 1999/11/18 05:42:03 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:
        !            17: double get_current_time();
        !            18: extern int mpi_nprocs,mpi_myid;
        !            19:
        !            20: #if defined(VISUAL_LIB)
        !            21: void Main(argc,argv)
        !            22: #else
        !            23: void ExitAsir() {
        !            24:        exit(0);
        !            25: }
        !            26:
        !            27: #if defined(VISUAL)
        !            28: void
        !            29: #endif
        !            30: main(argc,argv)
        !            31: #endif
        !            32: int argc;
        !            33: char *argv[];
        !            34: {
        !            35:        int tmp;
        !            36:        FILE *ifp;
        !            37:        char ifname[BUFSIZ];
        !            38:        extern int GC_dont_gc;
        !            39:        extern int read_exec_file;
        !            40:        extern int do_asirrc;
        !            41:        extern int do_file;
        !            42:        extern FILE *in_fp;
        !            43:        char *getenv();
        !            44:        char *homedir;
        !            45:        char *slash,*binname;
        !            46:
        !            47:        StackBottom = &tmp + 1; /* XXX */
        !            48: #if MPI
        !            49:        mpi_init();
        !            50:        if ( mpi_myid ) {
        !            51:                int slave_argc;
        !            52:                char *slave_argv[2];
        !            53:
        !            54:                ox_mpi_slave_init();
        !            55:                slave_argc = 1;
        !            56:                slave_argv[0] = "ox_asir"; slave_argv[1]=0;
        !            57:                ox_main(argc,argv);
        !            58:                exit(0);
        !            59:        } else
        !            60:                ox_mpi_master_init();
        !            61: #elif !defined(VISUAL)
        !            62:        slash = (char *)rindex(argv[0],'/');
        !            63:        if ( slash )
        !            64:                binname = slash+1;
        !            65:        else
        !            66:                binname = argv[0];
        !            67:        if ( !strcmp(binname,"ox_asir") ) {
        !            68:                /* never return */
        !            69:                ox_main(argc,argv);
        !            70:                exit(0);
        !            71:        } else if ( !strcmp(binname,"ox_plot") ) {
        !            72:                /* never return */
        !            73:                ox_plot_main(argc,argv);
        !            74:                exit(0);
        !            75:        } else if ( !strcmp(binname,"ox_launch") ) {
        !            76:                /* never return */
        !            77:                launch_main(argc,argv);
        !            78:                exit(0);
        !            79:        }
        !            80: #endif
        !            81:
        !            82:        srandom((int)get_current_time());
        !            83: /*     mt_sgenrand((unsigned long)get_current_time()); */
        !            84:
        !            85: #if defined(THINK_C)
        !            86:        param_init();
        !            87: #endif
        !            88:        rtime_init();
        !            89:        env_init();
        !            90:        endian_init();
        !            91: #if !defined(VISUAL) && !defined(THINK_C)
        !            92:        check_key();
        !            93: #endif
        !            94:        GC_init();
        !            95:        process_args(--argc,++argv);
        !            96: #if PARI
        !            97:     risa_pari_init();
        !            98: #endif
        !            99:        copyright();
        !           100:        output_init();
        !           101:        arf_init();
        !           102:        nglob_init();
        !           103:        glob_init();
        !           104:        sig_init();
        !           105:        tty_init();
        !           106:        debug_init();
        !           107:        pf_init();
        !           108:        sysf_init();
        !           109:        parif_init();
        !           110: #if defined(VISUAL)
        !           111:        init_socket();
        !           112: #endif
        !           113: #if defined(UINIT)
        !           114:        reg_sysf();
        !           115: #endif
        !           116: #if defined(THINK_C)
        !           117:        sprintf(ifname,"asirrc");
        !           118: #else
        !           119:        homedir = getenv("HOME");
        !           120:        if ( !homedir ) {
        !           121:                char rootname[BUFSIZ];
        !           122:
        !           123:                get_rootdir(rootname,sizeof(rootname));
        !           124:                homedir = rootname;
        !           125:        }
        !           126:        sprintf(ifname,"%s/.asirrc",homedir);
        !           127: #endif
        !           128:        if ( do_asirrc && (ifp = fopen(ifname,"r")) ) {
        !           129:                input_init(ifp,ifname);
        !           130:                if ( !setjmp(env) ) {
        !           131:                        read_exec_file = 1;
        !           132:                        read_eval_loop();
        !           133:                        read_exec_file = 0;
        !           134:                }
        !           135:                fclose(ifp);
        !           136:        }
        !           137:        if ( do_file )
        !           138:                input_init(in_fp,"stdin");
        !           139:        else
        !           140:                input_init(stdin,"stdin");
        !           141:        prompt();
        !           142:        while ( 1 ) {
        !           143: #if PARI
        !           144:                recover(0);
        !           145:                if ( setjmp(environnement) ) {
        !           146:                        avma = top; recover(1);
        !           147:                        resetenv("");
        !           148:                }
        !           149: #endif
        !           150:                if ( setjmp(env) )
        !           151:                        prompt();
        !           152:                read_eval_loop();
        !           153:        }
        !           154: }
        !           155:
        !           156: #if !defined(VISUAL_LIB)
        !           157: /* a dummy function */
        !           158:
        !           159: void set_error(code,reasion,action)
        !           160: int code;
        !           161: char *reasion,*action;
        !           162: {}
        !           163: #endif