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

fixes in modules

Browse Source 
system support for WIN32 (first try).
small fixes.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@45 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2001-05-28 19:54:53 +00:00
parent 27e367f0a5
commit 82438c1d6f
23 changed files with 715 additions and 177 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
console/yap.c
View File

@@ -327,8 +327,25 @@ parse_yap_arguments(int argc, char *argv[], yap_init_args *init_args)
output_msg = TRUE;
break;
#endif
case 'l':
case 'L':
p++;
while (*p != '\0' && (*p == ' ' || *p == '\t'))
p++;
/* skip zeroth argument */
argc--;
if (argc == 0) {
fprintf(stderr," [ YAP unrecoverable error: missing file name with option 'l' ]\n");
exit(1);
}
argv++;
if (p[0] == '-' && p[1] == '-'&& p[2] == '\0') {
/* we're done here */
argc = 1;
}
init_args->YapPrologBootFile = *argv;
init_args->HaltAfterConsult = TRUE;
break;
case 'l':
if ((*argv)[0] == '\0')
init_args->YapPrologBootFile = *argv;
else {
@@ -340,8 +357,6 @@ parse_yap_arguments(int argc, char *argv[], yap_init_args *init_args)
argv++;
init_args->YapPrologBootFile = *argv;
}
if (p[0] == 'L')
init_args->HaltAfterConsult = TRUE;
break;
case '-':
/* skip remaining arguments */