| version 1.95, 2017/02/07 08:30:31 |
version 1.96, 2017/08/29 07:18:30 |
|
|
| * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
| * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
| * |
* |
| * $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.94 2016/08/26 04:51:34 ohara Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.95 2017/02/07 08:30:31 noro Exp $ |
| */ |
*/ |
| #include "ca.h" |
#include "ca.h" |
| #include "al.h" |
#include "al.h" |
| Line 190 void notdef(VL vl,Obj a,Obj b,Obj *c) |
|
| Line 190 void notdef(VL vl,Obj a,Obj b,Obj *c) |
|
| error("undefined arithmetic operation."); |
error("undefined arithmetic operation."); |
| } |
} |
| |
|
| |
int disable_debugger; |
| int do_asirrc; |
int do_asirrc; |
| int do_file; |
int do_file; |
| char *do_filename; |
char *do_filename; |
| Line 354 void process_args(int ac,char **av) |
|
| Line 355 void process_args(int ac,char **av) |
|
| #if !defined(MPI) |
#if !defined(MPI) |
| do_message = 1; |
do_message = 1; |
| #endif |
#endif |
| |
#if defined(VISUAL) && defined(VISUAL_CONSOLE) |
| |
disable_debugger=1; |
| |
#endif |
| do_quiet = 0; |
do_quiet = 0; |
| while ( ac > 0 ) { |
while ( ac > 0 ) { |
| if ( !strcmp(*av,"-heap") && (ac >= 2) ) { |
if ( !strcmp(*av,"-heap") && (ac >= 2) ) { |
| Line 374 void process_args(int ac,char **av) |
|
| Line 378 void process_args(int ac,char **av) |
|
| av += 2; ac -= 2; |
av += 2; ac -= 2; |
| } else if ( !strcmp(*av,"-cpp") && (ac >= 2) ) { |
} else if ( !strcmp(*av,"-cpp") && (ac >= 2) ) { |
| strcpy(cppname,*(av+1)); av += 2; ac -= 2; |
strcpy(cppname,*(av+1)); av += 2; ac -= 2; |
| |
} else if ( !strcmp(*av,"-d") && (ac >= 2) ) { |
| |
#if defined(VISUAL) && defined(VISUAL_CONSOLE) |
| |
disable_debugger=0; |
| |
#endif |
| |
av += 2; ac -= 2; |
| } else if ( !strcmp(*av,"-f") && (ac >= 2) ) { |
} else if ( !strcmp(*av,"-f") && (ac >= 2) ) { |
| do_quiet = 1; |
do_quiet = 1; |
| in_fp = fopen(*(av+1),"r"); |
in_fp = fopen(*(av+1),"r"); |
| Line 534 void int_handler(int sig) |
|
| Line 543 void int_handler(int sig) |
|
| NODE t; |
NODE t; |
| |
|
| |
|
| if ( do_file ) { |
if ( do_file || disable_debugger ) { |
| ExitAsir(); |
ExitAsir(); |
| } |
} |
| if ( !ox_get_pari_result && critical_when_signal ) { |
if ( !ox_get_pari_result && critical_when_signal ) { |