diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
645b2c7d93
yap-6.3/C/yap-args.c

705 lines
27 KiB
C
Raw Normal View History

argument processing.
2012-06-22 10:01:32 +01:00
/*************************************************************************
boot
2017-12-05 15:14:57 +00:00
* *
* Yap Prolog *
* *
* Yap Prolog Was Developed At Nccup - Universidade Do Porto *
* *
* Copyright L.Damas, V.S.Costa And Universidade Do Porto 1985-1997 *
* *
**************************************************************************
* *
* File: Yap.C * Last
*Rev: * Mods:
** Comments: Yap's Main File: parse arguments *
* *
*************************************************************************/
argument processing.
2012-06-22 10:01:32 +01:00
/* static char SccsId[] = "X 4.3.3"; */
continue cleanup
2013-11-16 00:27:02 +00:00
#include "Yap.h"
fix compilation
2013-11-25 10:34:50 +00:00
#include "YapHeap.h"
small cleanups
2016-01-31 10:21:50 +00:00
#include "YapInterface.h"
boot from pl
2016-04-05 08:07:28 +01:00
#include "config.h"
boot
2017-12-05 15:14:57 +00:00
cmake & text support
2015-06-19 01:30:13 +01:00
#if HAVE_UNISTD_H
boot
2017-12-05 15:14:57 +00:00
cmake & text support
2015-06-19 01:30:13 +01:00
#include <unistd.h>
boot
2017-12-05 15:14:57 +00:00
cmake & text support
2015-06-19 01:30:13 +01:00
#endif
clang fixes
2013-11-15 10:38:00 +00:00
#if HAVE_STDINT_H
boot
2017-12-05 15:14:57 +00:00
clang fixes
2013-11-15 10:38:00 +00:00
#include <stdint.h>
boot
2017-12-05 15:14:57 +00:00
clang fixes
2013-11-15 10:38:00 +00:00
#endif
boot
2017-12-05 15:14:57 +00:00
clang fixes
2013-11-15 10:38:00 +00:00
#include <stddef.h>
boot from pl
2016-04-05 08:07:28 +01:00
#include <stdlib.h>
boot
2017-12-05 15:14:57 +00:00
argument processing.
2012-06-22 10:01:32 +01:00
#ifdef _MSC_VER /* Microsoft's Visual C++ Compiler */
small cleanups
2016-01-31 10:21:50 +00:00
#ifdef HAVE_UNISTD_H
#undef HAVE_UNISTD_H
argument processing.
2012-06-22 10:01:32 +01:00
#endif
#endif
#include <stdio.h>
boot
2017-12-05 15:14:57 +00:00
argument processing.
2012-06-22 10:01:32 +01:00
#if HAVE_STRING_H
boot
2017-12-05 15:14:57 +00:00
argument processing.
2012-06-22 10:01:32 +01:00
#include <string.h>
boot
2017-12-05 15:14:57 +00:00
argument processing.
2012-06-22 10:01:32 +01:00
#endif
cmake support: first cut from David Vaz work.i
2014-12-04 07:59:30 +00:00
#if HAVE_ERRNO_H
boot
2017-12-05 15:14:57 +00:00
cmake support: first cut from David Vaz work.i
2014-12-04 07:59:30 +00:00
#include <errno.h>
boot
2017-12-05 15:14:57 +00:00
cmake support: first cut from David Vaz work.i
2014-12-04 07:59:30 +00:00
#endif
#if HAVE_DIRECT_H
#include <direct.h>
#endif
argument processing.
2012-06-22 10:01:32 +01:00
saved states and anaconda
2017-11-15 12:18:19 +00:00
#ifndef YAP_ROOTDIR
#include <libgen.h>
#endif
boot
2017-12-05 15:14:57 +00:00
const char *Yap_BINDIR, *Yap_ROOTDIR, *Yap_SHAREDIR, *Yap_LIBDIR, *Yap_DLLDIR, *Yap_PLDIR;
const char *rootdirs[] = {
YAP_ROOTDIR,
"(EXECUTABLE)..",
"/usr/local",
"~",
NULL
};
const char *libdirs[] = {
"$YAPLIBDIR",
"[lib]",
#if __ANDROID__
"/assets/lib",
#endif
YAP_LIBDIR,
"(root)lib",
NULL
};
const char *sharedirs[] = {
"$YAPSHAREDIR",
"[share]",
#if __ANDROID__
"/assets/share",
#endif
YAP_SHAREDIR,
"(root)share",
NULL
};
const char *dlldirs[] = {
"(lib)Yap",
NULL
};
const char *pldirs[] = {
"(share)Yap",
NULL
};
/**
* @brief find default paths for main YAP variables
*
* This function is called once at boot time to set the main paths; it searches a list of paths to instantiate a number of variables.
* Paths must be directories.
*
* It treats the following variables as :
* ROOTDIR, SHAREDIR, LIBDIR, EXECUTABLE
*
* @return
*/
static const char *find_directory(const char *paths[]) {
int i = 0;
const char *inp;
char *out = malloc(YAP_FILENAME_MAX + 1);
out[0] = '\0';
while ((inp = paths[i++]) != NULL) {
if (inp[0] == '(') {
if (strstr(inp + 1, "root") == inp + 1) {
strcpy(out, Yap_ROOTDIR);
strcat(out, "/");
strcat(out, inp+(strlen("(root)")+1));
} else if (strstr(inp + 1, "lib") == inp + 1) {
strcpy(out, Yap_LIBDIR);
strcat(out, "/");
strcat(out, inp+(strlen("(lib)")+1));
} else if (strstr(inp + 1, "share") == inp + 1) {
strcpy(out, Yap_LIBDIR);
strcat(out, "/");
strcat(out, inp+(strlen("(share)")+1));
} else if (strstr(inp + 1, "executable") == inp + 1) {
strcpy(out, Yap_LIBDIR);
strcat(out, "/");
strcat(out, inp+(strlen("(executable)")+1));
}
} else if (inp[0] == '$') {
char *e;
if ((e = getenv(inp + 1)) != NULL) {
strcpy(out, e);
return out;
}
} else if (inp[0] == '[') {
if (Yap_ROOTDIR && Yap_ROOTDIR[0] && strstr(inp + 1, "root") == inp + 1) {
strcpy(out, Yap_ROOTDIR);
} else if (Yap_LIBDIR && Yap_LIBDIR[0] && strstr(inp + 1, "lib") == inp + 1) {
strcpy(out, Yap_LIBDIR);
} else if (Yap_SHAREDIR && Yap_SHAREDIR[0] && strstr(inp + 1, "share") == inp + 1) {
strcpy(out, Yap_SHAREDIR);
}
} else {
char *e;
if ((e = getenv(inp + 1)) != NULL) {
strcpy(out, e);
} else {
out[0] = '\0';
}
strcat(out, inp);
}
if (out[0]) {
return out;
}
}
return NULL;
}
android boot
2016-07-31 10:47:55 +01:00
static void print_usage(void) {
boot
2017-12-05 15:14:57 +00:00
fprintf(stderr, "\n[ Valid switches for command line arguments: ]\n");
fprintf(stderr, " -? Shows this screen\n");
fprintf(stderr, " -b Boot file \n");
fprintf(stderr, " -dump-runtime-variables\n");
fprintf(stderr, " -f initialization file or \"none\"\n");
fprintf(stderr, " -g Run Goal Before Top-Level \n");
fprintf(stderr, " -z Run Goal Before Top-Level \n");
fprintf(stderr, " -q start with informational messages off\n");
fprintf(stderr, " -l load Prolog file\n");
fprintf(stderr, " -L run Prolog file and exit\n");
fprintf(stderr, " -p extra path for file-search-path\n");
fprintf(stderr, " -hSize Heap area in Kbytes (default: %d, minimum: %d)\n",
DefHeapSpace, MinHeapSpace);
fprintf(stderr,
" -sSize Stack area in Kbytes (default: %d, minimum: %d)\n",
DefStackSpace, MinStackSpace);
fprintf(stderr,
" -tSize Trail area in Kbytes (default: %d, minimum: %d)\n",
DefTrailSpace, MinTrailSpace);
fprintf(stderr, " -GSize Max Area for Global Stack\n");
fprintf(stderr,
" -LSize Max Area for Local Stack (number must follow L)\n");
fprintf(stderr, " -TSize Max Area for Trail (number must follow T)\n");
fprintf(stderr, " -nosignals disable signal handling from Prolog\n");
fprintf(stderr, "\n[Execution Modes]\n");
fprintf(stderr, " -J0 Interpreted mode (default)\n");
fprintf(stderr, " -J1 Mixed mode only for user predicates\n");
fprintf(stderr, " -J2 Mixed mode for all predicates\n");
fprintf(stderr, " -J3 Compile all user predicates\n");
fprintf(stderr, " -J4 Compile all predicates\n");
argument processing.
2012-06-22 10:01:32 +01:00
#ifdef TABLING
boot
2017-12-05 15:14:57 +00:00
fprintf(stderr,
" -ts Maximum table space area in Mbytes (default: unlimited)\n");
argument processing.
2012-06-22 10:01:32 +01:00
#endif /* TABLING */
boot
2017-12-05 15:14:57 +00:00
#if defined(YAPOR_COPY) || defined(YAPOR_COW) || defined(YAPOR_SBA) || \
small cleanups
2016-01-31 10:21:50 +00:00
defined(YAPOR_THREADS)
boot
2017-12-05 15:14:57 +00:00
fprintf(stderr, " -w Number of workers (default: %d)\n",
DEFAULT_NUMBERWORKERS);
fprintf(stderr,
" -sl Loop scheduler executions before look for hiden "
"shared work (default: %d)\n",
DEFAULT_SCHEDULERLOOP);
fprintf(stderr, " -d Value of delayed release of load (default: %d)\n",
DEFAULT_DELAYEDRELEASELOAD);
argument processing.
2012-06-22 10:01:32 +01:00
#endif /* YAPOR_COPY || YAPOR_COW || YAPOR_SBA || YAPOR_THREADS */
boot
2017-12-05 15:14:57 +00:00
/* nf: Preprocessor */
/* fprintf(stderr," -DVar=Name Persistent definition\n"); */
fprintf(stderr, "\n");
argument processing.
2012-06-22 10:01:32 +01:00
}
small cleanups
2016-01-31 10:21:50 +00:00
static int myisblank(int c) {
boot
2017-12-05 15:14:57 +00:00
switch (c) {
case ' ':
case '\t':
case '\n':
case '\r':
return TRUE;
default:
return FALSE;
}
argument processing.
2012-06-22 10:01:32 +01:00
}
small cleanups
2016-01-31 10:21:50 +00:00
static char *add_end_dot(char arg[]) {
boot
2017-12-05 15:14:57 +00:00
int sz = strlen(arg), i;
i = sz;
while (i && myisblank(arg[--i]));
if (i && arg[i] != ',') {
char *p = (char *) malloc(sz + 2);
if (!p)
return NULL;
strncpy(p, arg, sz);
p[sz] = '.';
p[sz + 1] = '\0';
return p;
}
return arg;
argument processing.
2012-06-22 10:01:32 +01:00
}
small cleanups
2016-01-31 10:21:50 +00:00
static int dump_runtime_variables(void) {
boot
2017-12-05 15:14:57 +00:00
fprintf(stdout, "CC=\"%s\"\n", C_CC);
fprintf(stdout, "YAP_ROOTDIR=\"%s\"\n", YAP_ROOTDIR);
fprintf(stdout, "YAP_LIBS=\"%s\"\n", C_LIBS);
fprintf(stdout, "YAP_SHLIB_SUFFIX=\"%s\"\n", SO_EXT);
fprintf(stdout, "YAP_VERSION=%s\n", YAP_NUMERIC_VERSION);
exit(0);
return 1;
argument processing.
2012-06-22 10:01:32 +01:00
}
boot
2017-12-05 15:14:57 +00:00
X_API YAP_file_type_t Yap_InitDefaults(void *x, char *saved_state, int argc,
char *argv[]) {
YAP_init_args *iap = x;
iandroid
2017-11-29 13:47:57 +00:00
memset(iap, 0, sizeof(YAP_init_args));
android boot
2016-07-31 10:47:55 +01:00
#if __ANDROID__
boot
2017-12-05 15:14:57 +00:00
iap->boot_file_type = YAP_BOOT_PL;
iap->SavedState = NULL;
iap->assetManager = NULL;
android boot
2016-07-31 10:47:55 +01:00
#else
boot
2017-12-05 15:14:57 +00:00
iap->boot_file_type = YAP_QLY;
iap->SavedState = saved_state;
android boot
2016-07-31 10:47:55 +01:00
#endif
boot
2017-12-05 15:14:57 +00:00
iap->Argc = argc;
iap->Argv = argv;
Yap_ROOTDIR = find_directory(rootdirs);
Yap_LIBDIR = find_directory(libdirs);
Yap_SHAREDIR = find_directory(sharedirs);
Yap_DLLDIR = find_directory(dlldirs);
Yap_PLDIR = find_directory(pldirs);
return YAP_QLY;
android boot
2016-07-31 10:47:55 +01:00
}
argument processing.
2012-06-22 10:01:32 +01:00
boot
2017-12-05 15:14:57 +00:00
/**
* @short Paese command line
* @param argc number of arguments
* @param argv arguments
* @param iap options, see YAP_init_args
* @return boot from saved state or restore; error
*/
X_API YAP_file_type_t YAP_parse_yap_arguments(int argc, char *argv[],
YAP_init_args *iap) {
char *p;
size_t *ssize;
saved states and anaconda
2017-11-15 12:18:19 +00:00
#ifndef YAP_ROOTDIR
boot
2017-12-05 15:14:57 +00:00
{
char *b0 = Yap_FindExecutable(), *b1, *b2;
char b[YAP_FILENAME_MAX + 1];
strncpy(b, b0, YAP_FILENAME_MAX);
b1 = dirname(b);
YAP_BINDIR = malloc(strlen(b1) + 1);
strcpy(YAP_BINDIR, b1);
b2 = dirname(b1);
YAP_ROOTDIR = malloc(strlen(b2) + 1);
strcpy(YAP_ROOTDIR, b2);
strncpy(b, YAP_ROOTDIR, YAP_FILENAME_MAX);
strncat(b, "/share", YAP_FILENAME_MAX);
YAP_SHAREDIR = malloc(strlen(b) + 1);
strcpy(YAP_SHAREDIR, b);
strncpy(b, YAP_ROOTDIR, YAP_FILENAME_MAX);
strncat(b, "/lib", YAP_FILENAME_MAX);
YAP_LIBDIR = malloc(strlen(b) + 1);
strcpy(YAP_LIBDIR, b);
strncpy(b, YAP_ROOTDIR, YAP_FILENAME_MAX);
strncat(b, "/lib/Yap", YAP_FILENAME_MAX);
};
saved states and anaconda
2017-11-15 12:18:19 +00:00
#endif
boot
2017-12-05 15:14:57 +00:00
Yap_InitDefaults(iap, NULL, argc, argv);
while (--argc > 0) {
p = *++argv;
if (*p == '-')
switch (*++p) {
case 'b':
iap->boot_file_type = YAP_PL;
if (p[1])
iap->YapPrologBootFile = p + 1;
else if (argv[1] && *argv[1] != '-') {
iap->YapPrologBootFile = *++argv;
argc--;
} else {
iap->YapPrologBootFile = "boot.yap";
}
break;
case 'B':
iap->boot_file_type = YAP_BOOT_PL;
if (p[1])
iap->YapPrologBootFile = p + 1;
else if (argv[1] && *argv[1] != '-') {
iap->YapPrologBootFile = *++argv;
argc--;
} else {
iap->YapPrologBootFile = NULL;
}
iap->bootstrapping = true;
break;
case '?':
print_usage();
exit(EXIT_SUCCESS);
case 'q':
iap->QuietMode = TRUE;
break;
#if defined(YAPOR_COPY) || defined(YAPOR_COW) || defined(YAPOR_SBA) || \
small cleanups
2016-01-31 10:21:50 +00:00
defined(YAPOR_THREADS)
boot
2017-12-05 15:14:57 +00:00
case 'w':
ssize = &(iap->NumberWorkers);
goto GetSize;
case 'd':
if (!strcmp("dump-runtime-variables", p))
return dump_runtime_variables();
ssize = &(iap->DelayedReleaseLoad);
goto GetSize;
argument processing.
2012-06-22 10:01:32 +01:00
#else
boot
2017-12-05 15:14:57 +00:00
case 'd':
if (!strcmp("dump-runtime-variables", p))
return dump_runtime_variables();
argument processing.
2012-06-22 10:01:32 +01:00
#endif /* YAPOR_COPY || YAPOR_COW || YAPOR_SBA || YAPOR_THREADS */
boot
2017-12-05 15:14:57 +00:00
case 'F':
/* just ignore for now */
argc--;
argv++;
break;
case 'f':
iap->FastBoot = TRUE;
if (argc > 1 && argv[1][0] != '-') {
argc--;
argv++;
if (strcmp(*argv, "none")) {
iap->YapPrologRCFile = *argv;
}
break;
}
break;
// execution mode
case 'J':
switch (p[1]) {
case '0':
iap->ExecutionMode = YAPC_INTERPRETED;
break;
case '1':
iap->ExecutionMode = YAPC_MIXED_MODE_USER;
break;
case '2':
iap->ExecutionMode = YAPC_MIXED_MODE_ALL;
break;
case '3':
iap->ExecutionMode = YAPC_COMPILE_USER;
break;
case '4':
iap->ExecutionMode = YAPC_COMPILE_ALL;
break;
default:
fprintf(stderr, "[ YAP unrecoverable error: unknown switch -%c%c ]\n",
*p, p[1]);
exit(EXIT_FAILURE);
}
p++;
break;
case 'G':
ssize = &(iap->MaxGlobalSize);
goto GetSize;
break;
case 's':
case 'S':
ssize = &(iap->StackSize);
#if defined(YAPOR_COPY) || defined(YAPOR_COW) || defined(YAPOR_SBA) || \
small cleanups
2016-01-31 10:21:50 +00:00
defined(YAPOR_THREADS)
boot
2017-12-05 15:14:57 +00:00
if (p[1] == 'l') {
p++;
ssize = &(iap->SchedulerLoop);
}
argument processing.
2012-06-22 10:01:32 +01:00
#endif /* YAPOR_COPY || YAPOR_COW || YAPOR_SBA || YAPOR_THREADS */
boot
2017-12-05 15:14:57 +00:00
goto GetSize;
case 'a':
case 'A':
ssize = &(iap->AttsSize);
goto GetSize;
case 'T':
ssize = &(iap->MaxTrailSize);
goto get_trail_size;
case 't':
ssize = &(iap->TrailSize);
argument processing.
2012-06-22 10:01:32 +01:00
#ifdef TABLING
boot
2017-12-05 15:14:57 +00:00
if (p[1] == 's') {
p++;
ssize = &(iap->MaxTableSpaceSize);
}
argument processing.
2012-06-22 10:01:32 +01:00
#endif /* TABLING */
boot
2017-12-05 15:14:57 +00:00
get_trail_size:
if (*++p == '\0') {
if (argc > 1)
--argc, p = *++argv;
else {
fprintf(stderr,
"[ YAP unrecoverable error: missing size in flag %s ]",
argv[0]);
print_usage();
exit(EXIT_FAILURE);
}
}
{
unsigned long int i = 0, ch;
while ((ch = *p++) >= '0' && ch <= '9')
i = i * 10 + ch - '0';
switch (ch) {
case 'M':
case 'm':
i *= 1024;
ch = *p++;
break;
case 'g':
i *= 1024 * 1024;
ch = *p++;
break;
case 'k':
case 'K':
ch = *p++;
break;
}
if (ch) {
iap->YapPrologTopLevelGoal = add_end_dot(*argv);
} else {
*ssize = i;
}
}
break;
case 'h':
case 'H':
ssize = &(iap->HeapSize);
GetSize:
if (*++p == '\0') {
if (argc > 1)
--argc, p = *++argv;
else {
fprintf(stderr,
"[ YAP unrecoverable error: missing size in flag %s ]",
argv[0]);
print_usage();
exit(EXIT_FAILURE);
}
}
{
unsigned long int i = 0, ch;
while ((ch = *p++) >= '0' && ch <= '9')
i = i * 10 + ch - '0';
switch (ch) {
case 'M':
case 'm':
i *= 1024;
ch = *p++;
break;
case 'g':
case 'G':
i *= 1024 * 1024;
ch = *p++;
break;
case 'k':
case 'K':
ch = *p++;
break;
}
if (ch) {
fprintf(
stderr,
"[ YAP unrecoverable error: illegal size specification %s ]",
argv[-1]);
Yap_exit(1);
}
*ssize = i;
}
break;
argument processing.
2012-06-22 10:01:32 +01:00
#ifdef DEBUG
boot
2017-12-05 15:14:57 +00:00
case 'P':
if (p[1] != '\0') {
while (p[1] != '\0') {
int ch = p[1];
if (ch >= 'A' && ch <= 'Z')
ch += ('a' - 'A');
if (ch >= 'a' && ch <= 'z')
GLOBAL_Option[ch - 96] = 1;
p++;
}
} else {
YAP_SetOutputMessage();
}
break;
argument processing.
2012-06-22 10:01:32 +01:00
#endif
boot
2017-12-05 15:14:57 +00:00
case 'L':
if (p[1] && p[1] >= '0' &&
p[1] <= '9') /* hack to emulate SWI's L local option */
{
ssize = &(iap->MaxStackSize);
goto GetSize;
}
iap->QuietMode = TRUE;
iap->HaltAfterConsult = TRUE;
case 'l':
p++;
if (!*++argv) {
fprintf(stderr,
"%% YAP unrecoverable error: missing load file name\n");
exit(1);
} else if (!strcmp("--", *argv)) {
/* shell script, the next entry should be the file itself */
iap->YapPrologRCFile = argv[1];
argc = 1;
break;
} else {
iap->YapPrologRCFile = *argv;
argc--;
}
if (*p) {
/* we have something, usually, of the form:
-L --
FileName
ExtraArgs
*/
/* being called from a script */
while (*p && (*p == ' ' || *p == '\t'))
p++;
if (p[0] == '-' && p[1] == '-') {
/* ignore what is next */
argc = 1;
}
}
break;
/* run goal before top-level */
case 'g':
if ((*argv)[0] == '\0')
iap->YapPrologGoal = *argv;
else {
argc--;
if (argc == 0) {
fprintf(stderr, " [ YAP unrecoverable error: missing "
"initialization goal for option 'g' ]\n");
exit(EXIT_FAILURE);
}
argv++;
iap->YapPrologGoal = *argv;
}
break;
/* run goal as top-level */
case 'z':
if ((*argv)[0] == '\0')
iap->YapPrologTopLevelGoal = *argv;
else {
argc--;
if (argc == 0) {
fprintf(
stderr,
" [ YAP unrecoverable error: missing goal for option 'z' ]\n");
exit(EXIT_FAILURE);
}
argv++;
iap->YapPrologTopLevelGoal = add_end_dot(*argv);
}
break;
case 'n':
if (!strcmp("nosignals", p)) {
iap->PrologCannotHandleInterrupts = true;
break;
}
break;
case '-':
if (!strcmp("-nosignals", p)) {
iap->PrologCannotHandleInterrupts = true;
break;
} else if (!strncmp("-home=", p, strlen("-home="))) {
GLOBAL_Home = p + strlen("-home=");
} else if (!strncmp("-cwd=", p, strlen("-cwd="))) {
if (!Yap_ChDir(p + strlen("-cwd="))) {
fprintf(stderr, " [ YAP unrecoverable error in setting cwd: %s ]\n",
strerror(errno));
}
} else if (!strncmp("-stack=", p, strlen("-stack="))) {
ssize = &(iap->StackSize);
p += strlen("-stack=");
goto GetSize;
} else if (!strncmp("-trail=", p, strlen("-trail="))) {
ssize = &(iap->TrailSize);
p += strlen("-trail=");
goto GetSize;
} else if (!strncmp("-heap=", p, strlen("-heap="))) {
ssize = &(iap->HeapSize);
p += strlen("-heap=");
goto GetSize;
} else if (!strncmp("-goal=", p, strlen("-goal="))) {
iap->YapPrologGoal = p + strlen("-goal=");
} else if (!strncmp("-top-level=", p, strlen("-top-level="))) {
iap->YapPrologTopLevelGoal = p + strlen("-top-level=");
} else if (!strncmp("-table=", p, strlen("-table="))) {
ssize = &(iap->MaxTableSpaceSize);
p += strlen("-table=");
goto GetSize;
} else if (!strncmp("-", p, strlen("-="))) {
ssize = &(iap->MaxTableSpaceSize);
p += strlen("-table=");
/* skip remaining arguments */
argc = 1;
}
break;
case 'p':
if ((*argv)[0] == '\0')
iap->YapPrologAddPath = *argv;
else {
argc--;
if (argc == 0) {
fprintf(
stderr,
" [ YAP unrecoverable error: missing paths for option 'p' ]\n");
exit(EXIT_FAILURE);
}
argv++;
iap->YapPrologAddPath = *argv;
}
break;
/* nf: Begin preprocessor code */
case 'D': {
char *var, *value;
++p;
var = p;
if (var == NULL || *var == '\0')
break;
while (*p != '=' && *p != '\0')
++p;
if (*p == '\0')
break;
*p = '\0';
++p;
value = p;
if (*value == '\0')
break;
if (iap->def_c == YAP_MAX_YPP_DEFS)
break;
iap->def_var[iap->def_c] = var;
iap->def_value[iap->def_c] = value;
++(iap->def_c);
break;
}
/* End preprocessor code */
default: {
fprintf(stderr, "[ YAP unrecoverable error: unknown switch -%c ]\n",
*p);
print_usage();
exit(EXIT_FAILURE);
}
}
else {
iap->SavedState = p;
}
small cleanups
2016-01-31 10:21:50 +00:00
}
boot
2017-12-05 15:14:57 +00:00
return iap->boot_file_type;
argument processing.
2012-06-22 10:01:32 +01:00
}
Reference in New Issue Copy Permalink