add -f option

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@329 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-01-27 20:40:10 +00:00
parent 81d38acbc9
commit 6e18479ee2
5 changed files with 18 additions and 5 deletions

View File

@@ -280,6 +280,9 @@ parse_yap_arguments(int argc, char *argv[], yap_init_args *init_args)
}
break;
#endif /* EMACS */
case 'f':
init_args->FastBoot = TRUE;
break;
#ifdef MPWSHELL
case 'm':
if (*++p == 'p' && *++p == 'w' && *++p == '\0')
@@ -388,6 +391,7 @@ init_standard_system(int argc, char *argv[])
init_args.YapLibDir = NULL;
init_args.YapPrologBootFile = NULL;
init_args.HaltAfterConsult = FALSE;
init_args.FastBoot = FALSE;
init_args.NumberWorkers = 1;
init_args.SchedulerLoop = 10;
init_args.DelayedReleaseLoad = 3;