1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
|
#ifndef INCLUDE_BLASSIC_SYSVAR_H
#define INCLUDE_BLASSIC_SYSVAR_H
// sysvar.h
// Revision 6-feb-2005
#if defined __BORLANDC__
#pragma warn -8058
#endif
#include "blassic.h"
namespace blassic {
namespace sysvar {
void init ();
size_t address ();
void set (size_t var, BlChar value);
void set16 (size_t var, short value);
void set32 (size_t var, BlInteger value);
BlChar get (size_t var);
unsigned short get16 (size_t var);
unsigned long get32 (size_t var);
const size_t
GraphicsWidth= 0,
GraphicsHeight= 2,
NumArgs= 4,
VersionMajor= 6,
VersionMinor= 8,
VersionRelease= 10,
AutoInit= 12,
AutoInc= 16,
CharGen= 20,
ShellResult= 24,
TypeOfVal= 25, // 0: simple, 1: expression evluation,
// else unimplemented.
TypeOfNextCheck= 26, // 0: normal, else ZX-type
TypeOfDimCheck= 27, // 0: cannot dim already dimensioned
// 1: Silently redim
MaxHistory= 28, // Max size of history buffer.
Flags1= 30, // Bit 0: LOCATE style. 0 Microsoft, 1 Amstrad CPC.
// Bit 1: TAB style: 0 normal, 1 Spectrum.
// Bit 2: THEN omitted: 0 is not accepted, 1 accepted.
// Bit 3: space before number in PRINT, 0 No, 1 Yes.
// Bit 4: initial space in STR$, 0 No, 1 Yes.
// Bit 5: convert LF to CR in GET and INKEY$
// Bit 6: Show debug info on certain errors.
// Bit 7: Relaxed GOTO mode.
PrinterLine= 31, // Type of printer line feed.
// 0 LF only.
// 1 CR + LF
// 2 CR only.
MaxFnLevel= 32, // Max level of FN calls.
DebugLevel= 36, // Level for IF_DEBUG
Zone= 38, // Size of zone for the , separator of PRINT.
GraphRotate= 40, // Type of graphics rotation:
// 0 no rotation.
// 1 90 degrees.
// Other: undefined
Flags2= 41, // Bit 0: GO TO and GO SUB separated in listings.
// Bit 1: if set true is positive.
// Bit 2: if set logical ops are boolean.
// Bit 3: if set blank lines in .bas text files
// are converted to comments.
// Bits 4-7: reserved.
TronChannel= 42, // Last channel used for tron or tron line.
TronFlags= 44, // Tron flags.
// Bit 0: tron ot tron line is active.
// Bit 1: tron line is active.
// Bits 2-7: reserved.
// 45: reserved
EndSysVar= 46;
// Flags masks.
// Implemented as classes to improve type safety
// and avoid silly mistakes.
class Flags1Bit {
public:
explicit Flags1Bit (BlChar f) :
f (f)
{ }
BlChar get () const { return f; }
bool has (const Flags1Bit f1bit) const;
friend bool operator == (const Flags1Bit f1, const Flags1Bit f2);
friend bool operator != (const Flags1Bit f1, const Flags1Bit f2);
friend Flags1Bit operator | (const Flags1Bit f1, const Flags1Bit f2);
friend Flags1Bit operator & (const Flags1Bit f1, const Flags1Bit f2);
private:
BlChar f;
};
inline bool Flags1Bit::has (const Flags1Bit f1bit) const
{
return (f & f1bit.f);
}
inline bool operator == (const Flags1Bit f1, const Flags1Bit f2)
{
return f1.f == f2.f;
}
inline bool operator != (const Flags1Bit f1, const Flags1Bit f2)
{
return f1.f != f2.f;
}
inline Flags1Bit operator | (const Flags1Bit f1, const Flags1Bit f2)
{
return Flags1Bit (f1.f | f2.f);
}
inline Flags1Bit operator & (const Flags1Bit f1, const Flags1Bit f2)
{
return Flags1Bit (f1.f & f2.f);
}
class Flags2Bit {
public:
explicit Flags2Bit (BlChar f) :
f (f)
{ }
BlChar get () const { return f; }
bool has (const Flags2Bit f2bit) const;
friend bool operator == (const Flags2Bit f1, const Flags2Bit f2);
friend bool operator != (const Flags2Bit f1, const Flags2Bit f2);
friend Flags2Bit operator | (const Flags2Bit f1, const Flags2Bit f2);
friend Flags2Bit operator & (const Flags2Bit f1, const Flags2Bit f2);
private:
BlChar f;
};
inline bool Flags2Bit::has (const Flags2Bit f2bit) const
{
return (f & f2bit.f);
}
inline bool operator == (const Flags2Bit f1, const Flags2Bit f2)
{
return f1.f == f2.f;
}
inline bool operator != (const Flags2Bit f1, const Flags2Bit f2)
{
return f1.f != f2.f;
}
inline Flags2Bit operator | (const Flags2Bit f1, const Flags2Bit f2)
{
return Flags2Bit (f1.f | f2.f);
}
inline Flags2Bit operator & (const Flags2Bit f1, const Flags2Bit f2)
{
return Flags2Bit (f1.f & f2.f);
}
const Flags1Bit
Flags1Clean (0),
LocateStyle (1),
TabStyle (2),
ThenOmitted (4),
SpaceBefore (8),
SpaceStr_s (16),
ConvertLFCR (32),
ShowDebugInfo (64),
RelaxedGoto (128),
Flags1Full (255);
const Flags2Bit
Flags2Clean (0),
SeparatedGoto (1),
TruePositive (2),
BoolMode (4),
BlankComment (8),
Flags2Full (255);
Flags1Bit getFlags1 ();
Flags2Bit getFlags2 ();
bool hasFlags1 (Flags1Bit f);
bool hasFlags2 (Flags2Bit f);
void setFlags1 (Flags1Bit f);
void setFlags2 (Flags2Bit f);
} // namespace sysvar
} // namespace blassic
#endif
// Fin de sysvar.h
|