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 ) { |