=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/parse/main.c,v retrieving revision 1.13 retrieving revision 1.35 diff -u -p -r1.13 -r1.35 --- OpenXM_contrib2/asir2000/parse/main.c 2001/12/25 02:39:06 1.13 +++ OpenXM_contrib2/asir2000/parse/main.c 2014/05/09 19:35:52 1.35 @@ -45,36 +45,87 @@ * 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.12 2001/12/20 08:18:27 noro Exp $ + * $OpenXM: OpenXM_contrib2/asir2000/parse/main.c,v 1.34 2013/12/19 05:48:24 saito Exp $ */ #include "ca.h" #include "parse.h" -#if PARI +#include +#if defined(VISUAL) +#include +#define R_OK 4 +#else +#include +#include +#endif + +#if defined(PARI) #include "genpari.h" -extern JMP_BUF environnement; +/* XXX : environment is defined in libpari.a */ +# if !(PARI_VERSION_CODE > 131588) +extern jmp_buf environnement; +# endif #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) + 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 @@ -85,23 +136,22 @@ main(int argc,char *argv[]) #endif { int tmp; - FILE *ifp; - char ifname[BUFSIZ]; + char *ifname; extern int GC_dont_gc; - extern int read_exec_file; extern int do_asirrc; extern int do_file; + extern char *do_filename; + extern int asir_setenv; extern FILE *in_fp; extern int *StackBottom; - char *getenv(); - char *homedir; - char *ptr; #if !defined(VISUAL) - char *slash,*binname; + char *slash,*bslash,*binname,*p; #endif + set_stacksize(); StackBottom = &tmp; -#if MPI + GC_init(); +#if defined(MPI) mpi_init(); if ( mpi_myid ) { int slave_argc; @@ -116,21 +166,26 @@ main(int argc,char *argv[]) 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]; - if ( !strcmp(binname,"ox_asir") ) { + 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 DO_PLOT - } else if ( !strcmp(binname,"ox_plot") ) { +#if defined(DO_PLOT) + } else if ( !strncmp(binname,"ox_plot",strlen("ox_plot")) ) { /* never return */ ox_plot_main(argc,argv); exit(0); #endif - } else if ( !strcmp(binname,"ox_launch") ) { + } else if ( !strncmp(binname,"ox_launch",strlen("ox_launch")) ) { /* never return */ launch_main(argc,argv); exit(0); @@ -143,12 +198,14 @@ main(int argc,char *argv[]) rtime_init(); env_init(); endian_init(); - GC_init(); + cppname_init(); process_args(--argc,++argv); -#if PARI +#if defined(PARI) risa_pari_init(); #endif - copyright(); + if (!do_quiet) { + copyright(); + } output_init(); arf_init(); nglob_init(); @@ -159,6 +216,8 @@ main(int argc,char *argv[]) pf_init(); sysf_init(); parif_init(); + order_init(); + /* XXX set the default ordering */ #if defined(VISUAL) init_socket(); #endif @@ -166,45 +225,40 @@ main(int argc,char *argv[]) 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]; - - get_rootdir(rootname,sizeof(rootname)); - homedir = rootname; - } - sprintf(ifname,"%s/." ASIRRCNAME,homedir); + if ( do_file ) { + asir_infile=NULL; + loadasirfile(do_filename); + } else { + /* the bottom of the input stack */ + input_init(stdin,"stdin"); } - 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_asirrc && (ifname = find_asirrc()) ) { + if ( !SETJMP(main_env) ) + execasirfile(ifname); } - if ( do_file ) - input_init(in_fp,"stdin"); - else - input_init(stdin,"stdin"); prompt(); while ( 1 ) { -#if PARI +#if defined(PARI) recover(0); - if ( SETJMP(environnement) ) { + /* XXX environement is defined in libpari.a */ +# if !(PARI_VERSION_CODE > 131588) + if ( setjmp(environnement) ) { avma = top; recover(1); resetenv(""); } +# endif #endif 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(); } } @@ -215,3 +269,17 @@ main(int argc,char *argv[]) void set_error(int code,char *reason,char *action) {} #endif + +void set_stacksize() +{ +#if !defined(VISUAL) + 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 +}