spielwiese
Last change
on this file since a3f0fea was
a3f0fea,
checked in by Reimer Behrends <behrends@…>, 5 years ago
|
Modify variable declarions for pSingular.
|
-
Property mode set to
100644
|
File size:
1.5 KB
|
Line | |
---|
1 | /**************************************** |
---|
2 | * Computer Algebra System SINGULAR * |
---|
3 | ****************************************/ |
---|
4 | /* |
---|
5 | * ABSTRACT: i/o system |
---|
6 | */ |
---|
7 | #include "kernel/mod2.h" |
---|
8 | |
---|
9 | /* I need myfread in standalone_parser */ |
---|
10 | #ifndef STANDALONE_PARSER |
---|
11 | |
---|
12 | #include "omalloc/omalloc.h" |
---|
13 | #include "reporter/reporter.h" |
---|
14 | #include "misc/options.h" |
---|
15 | |
---|
16 | //#include "Singular/febase.h" |
---|
17 | |
---|
18 | #include "misc/mylimits.h" |
---|
19 | |
---|
20 | #ifdef HAVE_PWD_H |
---|
21 | #include <pwd.h> |
---|
22 | #endif |
---|
23 | |
---|
24 | #define fePutChar(c) fputc((unsigned char)(c),stdout) |
---|
25 | /*0 implementation */ |
---|
26 | |
---|
27 | // char fe_promptstr[] =" "; |
---|
28 | |
---|
29 | // output/print buffer: |
---|
30 | // line buffer for reading: |
---|
31 | // minimal value for MAX_FILE_BUFFER: 4*4096 - see Tst/Long/gcd0_l.tst |
---|
32 | // this is an upper limit for the size of monomials/numbers read via the interpreter |
---|
33 | #define MAX_FILE_BUFFER 4*4096 |
---|
34 | |
---|
35 | VAR int si_echo = 0; |
---|
36 | VAR int printlevel = 0; |
---|
37 | VAR int colmax = 80; |
---|
38 | VAR int pagelength = 24; |
---|
39 | VAR char prompt_char = '>'; /*1 either '>' or '.'*/ |
---|
40 | VAR int yylineno = 0; |
---|
41 | VAR int myynest = -1; |
---|
42 | VAR int traceit = 0; |
---|
43 | VAR char my_yylinebuf[80]; |
---|
44 | |
---|
45 | |
---|
46 | #if 0 |
---|
47 | void monitor(char* s, int mode) |
---|
48 | { |
---|
49 | if (feProt) |
---|
50 | { |
---|
51 | fclose(feProtFile); |
---|
52 | feProt = 0; |
---|
53 | } |
---|
54 | if ((s!=NULL) && (*s!='\0')) |
---|
55 | { |
---|
56 | feProtFile = myfopen(s,"w"); |
---|
57 | if (feProtFile==NULL) |
---|
58 | { |
---|
59 | Werror("cannot open %s",s); |
---|
60 | feProt=0; |
---|
61 | } |
---|
62 | else |
---|
63 | feProt = mode; |
---|
64 | } |
---|
65 | } |
---|
66 | #else |
---|
67 | void monitor(void *F, int mode) |
---|
68 | { |
---|
69 | if (feProt) |
---|
70 | { |
---|
71 | fclose(feProtFile); |
---|
72 | feProt = 0; |
---|
73 | } |
---|
74 | if (F!=NULL) |
---|
75 | { |
---|
76 | feProtFile = (FILE *)F; |
---|
77 | feProt = mode; |
---|
78 | } |
---|
79 | } |
---|
80 | #endif |
---|
81 | |
---|
82 | #endif |
---|
83 | |
---|
Note: See
TracBrowser
for help on using the repository browser.