![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to main.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / parse|
Return to main.c CVS log | Up to [local] / OpenXM_contrib2 / asir2000 / parse |
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