16 #include <factory/factory.h> 18 #define FE_OPT_STRUCTURE 21 #if !defined(GENERATE_OPTION_INDEX) && !defined(ESINGULAR) && !defined(TSINGULAR) 35 #ifdef GENERATE_OPTION_INDEX 44 fd = fopen(
"feOptES.xx",
"w");
45 #elif defined(TSINGULAR) 46 fd = fopen(
"feOptTS.xx",
"w");
48 fd = fopen(
"feOpt.xx",
"w");
51 if (fd ==
NULL) exit(1);
55 fputs(
"typedef enum\n{\n", fd);
67 else if (*name >= 97 && *name <= 122)
85 fprintf(fd,
"FE_OPT_UNDEF\n} feOptIndex;\n");
88 rename(
"feOptES.xx",
"feOptES.inc");
89 #elif defined(TSINGULAR) 90 rename(
"feOptTS.xx",
"feOptTS.inc");
92 rename(
"feOpt.xx",
"feOpt.inc");
97 #else // ! GENERATE_OPTION_INDEX 110 if (strcmp(
feOptSpec[opt].name, name) == 0)
139 #if !defined(ESINGULAR) && !defined(TSINGULAR) 165 if (errno)
return "invalid integer argument";
194 return "option value needs to be an integer";
227 #if defined(HAVE_FEREAD) || defined(HAVE_READLINE) 252 if (si_echo < 0 || si_echo > 9)
253 return "argument of option is not in valid range 0..9";
289 case FE_OPT_MIN_TIME:
292 if (mintime <= 0)
return "invalid float argument";
300 case FE_OPT_TICKS_PER_SEC:
302 int ticks = (int) ((
long)(
feOptSpec[FE_OPT_TICKS_PER_SEC].
value));
304 return "integer argument must be larger than 0";
309 case FE_OPT_DUMP_VERSIONTUPLE:
353 #endif // ! ESingular 360 #if defined(ESINGULAR) 361 printf(
"ESingular starts up Singular within emacs;\n");
362 #elif defined(TSINGULAR) 363 printf(
"TSingular starts up Singular within a terminal window;\n");
365 printf(
"Singular is a Computer Algebra System (CAS) for Polynomial Computations.\n");
366 printf(
"Usage: %s [options] [file1 [file2 ...]]\n", name);
367 printf(
"Options:\n");
384 printf(
" %c%c --%-20s %s\n",
392 printf(
" %c%c --%-20s %s\n",
402 printf(
"\nFor more information, type `help;' from within Singular or visit\n");
403 printf(
"http://www.singular.uni-kl.de or consult the\n");
404 printf(
"Singular manual (available as on-line info or html manual).\n");
412 #endif // GENERATE_OPTION_INDEX
const char * feHelpBrowser(char *which, int warn)
const CanonicalForm int s
char *(* fe_fgets_stdin)(const char *pr, char *s, int size)
void factoryseed(int s)
random seed initializer
int main(int argc, char *argv[])
static char * feResource(feResourceConfig config, int warn)
char * fe_fgets(const char *pr, char *s, int size)
char * fe_fgets_dummy(const char *, char *, int)
const char * feSetOptValue(feOptIndex opt, char *optarg)
static const char * feOptAction(feOptIndex opt)
void feOptDumpVersionTuple(void)
void SetTimerResolution(int res)
struct fe_option feOptSpec[]
void SetMinDisplayTime(double mtime)
char name(const Variable &v)
#define LONG_OPTION_RETURN
void feOptHelp(const char *name)
feOptIndex feGetOptIndex(const char *name)
const char SHORT_OPTS_STRING[]