#include "kernel/mod2.h"
#include "omalloc/omalloc.h"
#include "resources/feResource.h"
#include "Singular/feOpt.h"
#include <unistd.h>
#include <stdarg.h>
Go to the source code of this file.
◆ DIR_SEP
◆ DIR_SEPP
◆ ESINGULAR
◆ feReportBug
◆ Print
◆ StringAppend
◆ UP_DIR
◆ Warn
◆ WarnS
◆ error()
◆ fePrintReportBug()
Definition at line 83 of file emacs.cc.
84{
85 error(
"YOU HAVE FOUND A BUG IN SINGULAR.\n"
86"Please, email the following output to singular@mathematik.uni-kl.de\n"
87"Bug occurred at %s:%d\n"
88"Message: %s\n"
91
92}
◆ feResourceDefault() [1/2]
Definition at line 155 of file feResource.cc.
156{
158}
static feResourceConfig feGetResourceConfig(const char id)
static char * feResourceDefault(feResourceConfig config)
◆ feResourceDefault() [2/2]
◆ main()
Definition at line 103 of file emacs.cc.
104{
107#ifndef TSINGULAR
111#endif
113
114
115
120
122
126 {
128 {
129 case 'h':
131
134 break;
135 case '?':
136 case ':':
137 case '\0':
140
142 {
144 {
145#ifdef TSINGULAR
148 break;
149#else
152 break;
153
156 break;
157
160 break;
161#endif
164 break;
165
168 break;
169
173 break;
174
175 default:
177 }
178
181 {
183 }
185 }
186 }
188 }
189
192 for (
i=1;
i<argc;
i++)
193 {
195 }
196
197#ifdef TSINGULAR
200 {
201 #ifdef __CYGWIN__
202 error(
"Error: Can't find rxvt program. \n Expected it at %s\n Specify alternative with --rxvt=PROGRAM option,\n or set RXVT environment variable to the name of the program to use as rxvt.\n",
203 #else
204 error(
"Error: Can't find xterm program. \n Expected it at %s\n Specify alternative with --xterm=PROGRAM option,\n or set XTERM environment variable to the name of the program to use as xterm.\n",
209 }
210
213 {
214 error(
"Error: Can't find singular executable.\n Expected it at %s\n Specify with --singular option,\n or set TSINGULAR_SINGULAR environment variable.\n",
218 }
219
220#ifdef __CYGWIN__
221#define EXTRA_XTERM_ARGS "+vb -sl 2000 -fb Courier-bold-12 -tn xterm -cr Red3"
222#else
223#define EXTRA_XTERM_ARGS ""
224#endif
225
229
230 for (
i=1;
i<argc;
i++)
231 {
233 {
236 }
237 }
238#else
239
243 {
244 error(
"Error: Can't find emacs or xemacs executable. \n Expected it at %s or %s\n Specify alternative with --emacs option,\n or set ESINGULAR_EMACS environment variable.\n",
248 }
249
252 {
253 error(
"Error: Can't find singular executable.\n Expected it at %s\n Specify with --singular option,\n or set ESINGULAR_SINGULAR environment variable.\n",
257 }
258
261 {
262 error(
"Error: Can't find emacs directory for Singular lisp files. \n Expected it at %s\n Specify with --emacs-dir option,\n or set ESINGULAR_EMACS_DIR environment variable.\n",
266 }
267
269 {
270
273 {
274
276#ifdef __CYGWIN__
279#endif
282 {
284 }
285 else
286 {
287
290 {
291 error(
"Error: Can't find emacs load file for Singular mode. \n Expected it at %s\n Specify with --emacs-load option,\n or set ESINGULAR_EMACS_LOAD environment variable,\n or put file '.emacs-singular' in your home directory.\n",
295 }
296 }
297 }
298 }
299
302 const char*
prefix =
"--";
306
308
309
310
311 snprintf(
syscall,len,
"%s %sno-init-file %seval '(progn (setq singular-emacs-home-directory \"%s\") (load-file \"%s\") (singular-other \"%s\" \"%s\" (list ",
314
315
316 for (
i=1;
i<argc;
i++)
317 {
319 {
323 }
324 }
326#endif
327
329 {
331 }
332 else
333 {
335 {
339 }
340 }
341}
char * feResourceDefault(const char id)
char name(const Variable &v)
#define LONG_OPTION_RETURN
const char SHORT_OPTS_STRING[]
void feOptDumpVersionTuple(void)
void feOptHelp(const char *name)
EXTERN_VAR struct fe_option feOptSpec[]
static char * feResource(feResourceConfig config, int warn)
void feInitResources(const char *argv0)
int fe_getopt_long(int argc, char *const *argv, const char *options, const struct fe_option *long_options, int *opt_index)
static BOOLEAN length(leftv result, leftv arg)
◆ mainUsage()
Definition at line 94 of file emacs.cc.
95{
96 error(
"Use `%s --help' for a complete list of options\n",
feArgv0);
97}