diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add -nosignals option.

Browse Source
This commit is contained in:
Vitor Santos Costa 2012-09-26 14:50:06 +01:00
parent 7424a7376c
commit 01f8731f97
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C/yap-args.c
View File

@ -202,6 +202,7 @@ YAP_parse_yap_arguments(int argc, char *argv[], YAP_init_args *iap)
while (--argc > 0) while (--argc > 0)
{ {
fprintf(stderr,"looking at %s\n", argv[1]);
p = *++argv; p = *++argv;
if (*p == '-') if (*p == '-')
switch (*++p) switch (*++p)
@ -483,6 +484,12 @@ YAP_parse_yap_arguments(int argc, char *argv[], YAP_init_args *iap)
iap->YapPrologTopLevelGoal = add_end_dot(*argv); iap->YapPrologTopLevelGoal = add_end_dot(*argv);
} }
break; break;
case 'n':
if (!strcmp("nosignals", p)) {
iap->PrologShouldHandleInterrupts = FALSE;
break;
}
goto myddas_error_print;
case 'p': case 'p':
if ((*argv)[0] == '\0') if ((*argv)[0] == '\0')
iap->YapPrologAddPath = *argv; iap->YapPrologAddPath = *argv;
@ -524,9 +531,7 @@ YAP_parse_yap_arguments(int argc, char *argv[], YAP_init_args *iap)
break; break;
default: default:
{ {
#ifdef MYDDAS_MYSQL
myddas_error_print : myddas_error_print :
#endif
fprintf(stderr,"[ YAP unrecoverable error: unknown switch -%c ]\n", *p); fprintf(stderr,"[ YAP unrecoverable error: unknown switch -%c ]\n", *p);
#ifdef MYDDAS_MYSQL #ifdef MYDDAS_MYSQL
myddas_error : myddas_error :