=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/parse/main.c,v retrieving revision 1.18 retrieving revision 1.39 diff -u -p -r1.18 -r1.39 --- OpenXM_contrib2/asir2000/parse/main.c 2003/02/14 22:29:18 1.18 +++ OpenXM_contrib2/asir2000/parse/main.c 2018/03/29 01:32:54 1.39 @@ -45,175 +45,200 @@ * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. * - * $OpenXM: OpenXM_contrib2/asir2000/parse/main.c,v 1.17 2001/12/28 06:44:48 noro Exp $ + * $OpenXM: OpenXM_contrib2/asir2000/parse/main.c,v 1.38 2015/08/14 13:51:56 fujimoto Exp $ */ #include "ca.h" #include "parse.h" -#if defined(PARI) -#include "genpari.h" - -/* XXX : environment is defined in libpari.a */ -extern jmp_buf environnement; +#include +#if defined(VISUAL) || defined(__MINGW32__) +#include +#define R_OK 4 +#else +#include +#include #endif extern JMP_BUF main_env; -#if defined(INTERVAL) #ifndef ASIRRCNAME -#define ASIRRCNAME "int_asirrc" -#endif -#else -#ifndef ASIRRCNAME #define ASIRRCNAME "asirrc" #endif -#endif double get_current_time(); void init_socket(); void recover(); +void set_stacksize(); extern int mpi_nprocs,mpi_myid; +char *find_asirrc() +{ + static char name[BUFSIZ]; + char dir[BUFSIZ]; + char *env,*env2; + +/* if ASIR_CONFIG is set, execute it; else execute .asirrc */ + env = getenv("ASIR_CONFIG"); + if( env && !access(env, R_OK) ) { + strcpy(name,env); + return name; + } + env = getenv("HOME"); + if ( env ) { + sprintf(name, "%s/.asirrc", env); + if (!access(name, R_OK)) { + return name; + } + } +#if defined(VISUAL) || defined(__MINGW32__) + env = getenv("HOMEDRIVE"); + env2 = getenv("HOMEPATH"); + if ( env && env2 ) { + sprintf(name, "%s%s/.asirrc", env, env2); + if (!access(name, R_OK)) { + return name; + } + } + env = getenv("APPDATA"); + if ( env ) { + sprintf(name, "%s/OpenXM/.asirrc", env); + if (!access(name, R_OK)) { + return name; + } + } + get_rootdir(dir, BUFSIZ); + sprintf(name, "%s/.asirrc", dir); + if (!access(name, R_OK)) { + return name; + } +#endif + return NULL; +} + #if defined(VISUAL_LIB) void Main(int argc,char *argv[]) #else -#if defined(VISUAL) +#if defined(VISUAL) || defined(__MINGW32__) void #endif main(int argc,char *argv[]) #endif { - int tmp; - FILE *ifp; - char ifname[BUFSIZ]; - extern int GC_dont_gc; - extern int read_exec_file; - extern int do_asirrc; - extern int do_file; - extern FILE *in_fp; - extern int *StackBottom; - char *getenv(); - char *homedir; - char *ptr; -#if !defined(VISUAL) - char *slash,*bslash,*binname,*p; + int tmp; + char *ifname; + extern int GC_dont_gc; + extern int do_asirrc; + extern int do_file; + extern char *do_filename; + extern int asir_setenv; + extern FILE *in_fp; + extern int *StackBottom; +#if !defined(VISUAL) && !defined(__MINGW32__) + char *slash,*bslash,*binname,*p; #endif - StackBottom = &tmp; + set_stacksize(); + StackBottom = &tmp; + GC_init(); #if defined(MPI) - mpi_init(); - if ( mpi_myid ) { - int slave_argc; - char *slave_argv[2]; + mpi_init(); + if ( mpi_myid ) { + int slave_argc; + char *slave_argv[2]; - ox_mpi_slave_init(); - slave_argc = 1; - slave_argv[0] = "ox_asir"; slave_argv[1]=0; - ox_main(argc,argv); - exit(0); - } else - ox_mpi_master_init(); -#elif !defined(VISUAL) - slash = (char *)rindex(argv[0],'/'); - bslash = (char *)rindex(argv[0],'\\'); - if ( slash ) - binname = slash+1; - else if ( bslash ) - binname = bslash+1; - else - binname = argv[0]; - for ( p = binname; *p; p++ ) - *p = tolower(*p); - if ( !strncmp(binname,"ox_asir",strlen("ox_asir")) ) { - /* never return */ - ox_main(argc,argv); - exit(0); + ox_mpi_slave_init(); + slave_argc = 1; + slave_argv[0] = "ox_asir"; slave_argv[1]=0; + ox_main(argc,argv); + exit(0); + } else + ox_mpi_master_init(); +#elif !defined(VISUAL) && !defined(__MINGW32__) + slash = (char *)rindex(argv[0],'/'); + bslash = (char *)rindex(argv[0],'\\'); + if ( slash ) + binname = slash+1; + else if ( bslash ) + binname = bslash+1; + else + binname = argv[0]; + for ( p = binname; *p; p++ ) + *p = tolower(*p); + if ( !strncmp(binname,"ox_asir",strlen("ox_asir")) ) { + /* never return */ + ox_main(argc,argv); + exit(0); #if defined(DO_PLOT) - } else if ( !strncmp(binname,"ox_plot",strlen("ox_plot")) ) { - /* never return */ - ox_plot_main(argc,argv); - exit(0); + } else if ( !strncmp(binname,"ox_plot",strlen("ox_plot")) ) { + /* never return */ + ox_plot_main(argc,argv); + exit(0); #endif - } else if ( !strncmp(binname,"ox_launch",strlen("ox_launch")) ) { - /* never return */ - launch_main(argc,argv); - exit(0); - } + } else if ( !strncmp(binname,"ox_launch",strlen("ox_launch")) ) { + /* never return */ + launch_main(argc,argv); + exit(0); + } #endif - srandom((int)get_current_time()); -/* mt_sgenrand((unsigned long)get_current_time()); */ + srandom((int)get_current_time()); +/* mt_sgenrand((unsigned long)get_current_time()); */ - rtime_init(); - env_init(); - endian_init(); - GC_init(); - process_args(--argc,++argv); -#if defined(PARI) - risa_pari_init(); -#endif - copyright(); - 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(); + rtime_init(); + env_init(); + endian_init(); + cppname_init(); + process_args(--argc,++argv); + if (!do_quiet) { + copyright(); + } + output_init(); + arf_init(); + nglob_init(); + glob_init(); + sig_init(); + tty_init(); + debug_init(); + pf_init(); + sysf_init(); + parif_init(); + order_init(); + /* XXX set the default ordering */ +#if defined(VISUAL) || defined(__MINGW32__) + init_socket(); #endif #if defined(UINIT) - reg_sysf(); + reg_sysf(); #endif -/* if ASIR_CONFIG is set, execute it; else execute .asirrc */ - if ( ptr = getenv("ASIR_CONFIG") ) - strcpy(ifname,ptr); - else { - homedir = getenv("HOME"); - if ( !homedir ) { - char rootname[BUFSIZ]; + if ( do_file ) { + asir_infile=NULL; + loadasirfile(do_filename); + } else { + /* the bottom of the input stack */ + input_init(stdin,"stdin"); + } - get_rootdir(rootname,sizeof(rootname)); - homedir = rootname; - } - sprintf(ifname,"%s/." ASIRRCNAME,homedir); - } + if ( do_asirrc && (ifname = find_asirrc()) ) { + if ( !SETJMP(main_env) ) + execasirfile(ifname); + } - if ( do_asirrc && (ifp = fopen(ifname,"r")) ) { - input_init(ifp,ifname); - if ( !SETJMP(main_env) ) { - read_exec_file = 1; - read_eval_loop(); - read_exec_file = 0; - } - fclose(ifp); - } - - if ( do_file ) - input_init(in_fp,"stdin"); - else - input_init(stdin,"stdin"); - prompt(); - while ( 1 ) { -#if defined(PARI) - recover(0); - /* XXX environement is defined in libpari.a */ - if ( setjmp(environnement) ) { - avma = top; recover(1); - resetenv(""); - } -#endif - if ( SETJMP(main_env) ) - prompt(); - read_eval_loop(); - } + prompt(); + while ( 1 ) { + if ( SETJMP(main_env) ) + prompt(); + if ( !do_file ) { + if ( SETJMP(asir_infile->jmpbuf) ) + prompt(); + else + asir_infile->ready_for_longjmp = 1; + } + restore_handler(); + read_eval_loop(); + } } #if !defined(VISUAL_LIB) @@ -222,3 +247,17 @@ main(int argc,char *argv[]) void set_error(int code,char *reason,char *action) {} #endif + +void set_stacksize() +{ +#if !defined(VISUAL) && !defined(__MINGW32__) + struct rlimit rlim; + int c,m; + + getrlimit(RLIMIT_STACK,&rlim); + if ( rlim.rlim_cur < (1<<26) ) { + rlim.rlim_cur = MIN(1<<26,rlim.rlim_max); + setrlimit(RLIMIT_STACK,&rlim); + } +#endif +}