blob: dc762cdca54ee97ad3e831bd9ad1c154aecb89a2 (
plain)
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
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
|
// included by glib2.pas
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
PGTokenType = ^TGTokenType;
TGTokenType = gint;
PGScanner = ^TGScanner;
PGScannerConfig = ^TGScannerConfig;
PGTokenValue = ^TGTokenValue;
TGTokenValue = record
case longint of
0 : ( v_symbol : gpointer );
1 : ( v_identifier : Pgchar );
2 : ( v_binary : gulong );
3 : ( v_octal : gulong );
4 : ( v_int : gulong );
5 : ( v_float : gdouble );
6 : ( v_hex : gulong );
7 : ( v_string : Pgchar );
8 : ( v_comment : Pgchar );
9 : ( v_char : guchar );
10 : ( v_error : guint );
end;
TGScannerMsgFunc = procedure (scanner:PGScanner; message:Pgchar; error:gboolean);cdecl;
TGScanner = record
user_data : gpointer; { unused fields }
max_parse_errors : guint;
parse_errors : guint; { g_scanner_error() increments this field }
input_name : Pgchar; { name of input stream, featured by
the default message handler }
qdata : PGData; { quarked data }
config : PGScannerConfig; { link into the scanner configuration }
token : TGTokenType; { fields filled in after g_scanner_get_next_token() }
value : TGTokenValue;
line : guint;
position : guint;
next_token : TGTokenType; { fields filled in after g_scanner_peek_next_token() }
next_value : TGTokenValue;
next_line : guint;
next_position : guint;
symbol_table : PGHashTable; { to be considered private }
input_fd : gint;
text : Pgchar;
text_end : Pgchar;
buffer : Pgchar;
scope_id : guint;
msg_handler : TGScannerMsgFunc; { handler function for _warn and _error }
end;
TGScannerConfig = record
{ Character sets }
cset_skip_characters : Pgchar; { default: " \t\n" }
cset_identifier_first : Pgchar;
cset_identifier_nth : Pgchar;
cpair_comment_single : Pgchar; { default: "#\n" }
flag0 : longint; { Boolean values to be adjusted "on the fly"
to configure scanning behaviour. }
padding_dummy : guint;
end;
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
const
G_TOKEN_LEFT_PAREN = 40; // ASCII Code of '('
G_TOKEN_RIGHT_PAREN = 41; // ASCII Code of ')'
G_TOKEN_LEFT_CURLY = 123; // ASCII Code of '{'
G_TOKEN_RIGHT_CURLY = 125; // ASCII Code of '}'
G_TOKEN_LEFT_BRACE = 91; // ASCII Code of '['
G_TOKEN_RIGHT_BRACE = 93; // ASCII Code of ']'
G_TOKEN_EQUAL_SIGN = 61; // ASCII Code of '='
G_TOKEN_COMMA = 44; // ASCII Code of ','
G_TOKEN_NONE = 256;
G_TOKEN_ERROR = 257;
G_TOKEN_CHAR = 258;
G_TOKEN_OCTAL = 260;
G_TOKEN_INT = 261;
G_TOKEN_HEX = 262;
G_TOKEN_FLOAT = 263;
G_TOKEN_STRING = 264;
G_TOKEN_SYMBOL = 265;
G_TOKEN_IDENTIFIER = 266;
G_TOKEN_IDENTIFIER_NULL = 267;
G_TOKEN_COMMENT_SINGLE = 268;
G_TOKEN_COMMENT_MULTI = 269;
G_TOKEN_LAST = 270;
{ Character sets }
const
G_CSET_A_2_Z_UCASE = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'; // NOTE: renamed
G_CSET_a_2_z_lcase = 'abcdefghijklmnopqrstuvwxyz'; // dito
G_CSET_DIGITS = '0123456789';
{
How to express an escape sequenced string in pascal???
G_CSET_LATINC = #300 + #301 + #302 + #303 + #304 + #305 + #306 + #307 + #310 + #311 +
#312 + #313 + #314 + #315 + #316 + #317 + #320 + #321 + #322 + #323 +
#324 + #325 + #326 + #330 + #331 + #332 + #333 + #334 + #335 + #336;
G_CSET_LATINS = #337#340#341#342#343#344#345#346#347#350#351#352#353#354#355#356#357#360
#361#362#363#364#365#366#370#371#372#373#374#375#376#377;
This is the original version:
#define G_CSET_LATINC "\300\301\302\303\304\305\306"\
"\307\310\311\312\313\314\315\316\317\320"\
"\321\322\323\324\325\326"\
"\330\331\332\333\334\335\336"
#define G_CSET_LATINS "\337\340\341\342\343\344\345\346"\
"\347\350\351\352\353\354\355\356\357\360"\
"\361\362\363\364\365\366"\
"\370\371\372\373\374\375\376\377"
}
const
bm_TGScannerConfig_case_sensitive = $1;
bp_TGScannerConfig_case_sensitive = 0;
bm_TGScannerConfig_skip_comment_multi = $2;
bp_TGScannerConfig_skip_comment_multi = 1;
bm_TGScannerConfig_skip_comment_single = $4;
bp_TGScannerConfig_skip_comment_single = 2;
bm_TGScannerConfig_scan_comment_multi = $8;
bp_TGScannerConfig_scan_comment_multi = 3;
bm_TGScannerConfig_scan_identifier = $10;
bp_TGScannerConfig_scan_identifier = 4;
bm_TGScannerConfig_scan_identifier_1char = $20;
bp_TGScannerConfig_scan_identifier_1char = 5;
bm_TGScannerConfig_scan_identifier_NULL = $40;
bp_TGScannerConfig_scan_identifier_NULL = 6;
bm_TGScannerConfig_scan_symbols = $80;
bp_TGScannerConfig_scan_symbols = 7;
bm_TGScannerConfig_scan_binary = $100;
bp_TGScannerConfig_scan_binary = 8;
bm_TGScannerConfig_scan_octal = $200;
bp_TGScannerConfig_scan_octal = 9;
bm_TGScannerConfig_scan_float = $400;
bp_TGScannerConfig_scan_float = 10;
bm_TGScannerConfig_scan_hex = $800;
bp_TGScannerConfig_scan_hex = 11;
bm_TGScannerConfig_scan_hex_dollar = $1000;
bp_TGScannerConfig_scan_hex_dollar = 12;
bm_TGScannerConfig_scan_string_sq = $2000;
bp_TGScannerConfig_scan_string_sq = 13;
bm_TGScannerConfig_scan_string_dq = $4000;
bp_TGScannerConfig_scan_string_dq = 14;
bm_TGScannerConfig_numbers_2_int = $8000;
bp_TGScannerConfig_numbers_2_int = 15;
bm_TGScannerConfig_int_2_float = $10000;
bp_TGScannerConfig_int_2_float = 16;
bm_TGScannerConfig_identifier_2_string = $20000;
bp_TGScannerConfig_identifier_2_string = 17;
bm_TGScannerConfig_char_2_token = $40000;
bp_TGScannerConfig_char_2_token = 18;
bm_TGScannerConfig_symbol_2_token = $80000;
bp_TGScannerConfig_symbol_2_token = 19;
bm_TGScannerConfig_scope_0_fallback = $100000;
bp_TGScannerConfig_scope_0_fallback = 20;
{ Should symbol lookup work case sensitive? }
function TGScannerConfig_case_sensitive(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_case_sensitive(var a : TGScannerConfig; __case_sensitive : guint);
{ C-like comment }
function TGScannerConfig_skip_comment_multi(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_skip_comment_multi(var a : TGScannerConfig; __skip_comment_multi : guint);
{ single line comment }
function TGScannerConfig_skip_comment_single(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_skip_comment_single(var a : TGScannerConfig; __skip_comment_single : guint);
{ scan multi line comments? }
function TGScannerConfig_scan_comment_multi(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_scan_comment_multi(var a : TGScannerConfig; __scan_comment_multi : guint);
function TGScannerConfig_scan_identifier(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_scan_identifier(var a : TGScannerConfig; __scan_identifier : guint);
function TGScannerConfig_scan_identifier_1char(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_scan_identifier_1char(var a : TGScannerConfig; __scan_identifier_1char : guint);
function TGScannerConfig_scan_identifier_NULL(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_scan_identifier_NULL(var a : TGScannerConfig; __scan_identifier_NULL : guint);
function TGScannerConfig_scan_symbols(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_scan_symbols(var a : TGScannerConfig; __scan_symbols : guint);
function TGScannerConfig_scan_binary(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_scan_binary(var a : TGScannerConfig; __scan_binary : guint);
function TGScannerConfig_scan_octal(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_scan_octal(var a : TGScannerConfig; __scan_octal : guint);
function TGScannerConfig_scan_float(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_scan_float(var a : TGScannerConfig; __scan_float : guint);
{ `0x0ff0' }
function TGScannerConfig_scan_hex(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_scan_hex(var a : TGScannerConfig; __scan_hex : guint);
{ `$0ff0' }
function TGScannerConfig_scan_hex_dollar(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_scan_hex_dollar(var a : TGScannerConfig; __scan_hex_dollar : guint);
{ string: 'anything' }
function TGScannerConfig_scan_string_sq(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_scan_string_sq(var a : TGScannerConfig; __scan_string_sq : guint);
{ string: "\\-escapes!\n" }
function TGScannerConfig_scan_string_dq(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_scan_string_dq(var a : TGScannerConfig; __scan_string_dq : guint);
{ bin, octal, hex => int }
function TGScannerConfig_numbers_2_int(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_numbers_2_int(var a : TGScannerConfig; __numbers_2_int : guint);
{ int => G_TOKEN_FLOAT? }
function TGScannerConfig_int_2_float(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_int_2_float(var a : TGScannerConfig; __int_2_float : guint);
function TGScannerConfig_identifier_2_string(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_identifier_2_string(var a : TGScannerConfig; __identifier_2_string : guint);
{ return G_TOKEN_CHAR? }
function TGScannerConfig_char_2_token(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_char_2_token(var a : TGScannerConfig; __char_2_token : guint);
function TGScannerConfig_symbol_2_token(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_symbol_2_token(var a : TGScannerConfig; __symbol_2_token : guint);
{ try scope 0 on lookups? }
function TGScannerConfig_scope_0_fallback(var a : TGScannerConfig) : guint;
procedure TGScannerConfig_set_scope_0_fallback(var a : TGScannerConfig; __scope_0_fallback : guint);
function g_scanner_new(config_templ:PGScannerConfig):PGScanner;cdecl;external gliblib name 'g_scanner_new';
procedure g_scanner_destroy(scanner:PGScanner);cdecl;external gliblib name 'g_scanner_destroy';
procedure g_scanner_input_file(scanner:PGScanner; input_fd:gint);cdecl;external gliblib name 'g_scanner_input_file';
procedure g_scanner_sync_file_offset(scanner:PGScanner);cdecl;external gliblib name 'g_scanner_sync_file_offset';
procedure g_scanner_input_text(scanner:PGScanner; text:Pgchar; text_len:guint);cdecl;external gliblib name 'g_scanner_input_text';
function g_scanner_get_next_token(scanner:PGScanner):TGTokenType;cdecl;external gliblib name 'g_scanner_get_next_token';
function g_scanner_peek_next_token(scanner:PGScanner):TGTokenType;cdecl;external gliblib name 'g_scanner_peek_next_token';
function g_scanner_cur_token(scanner:PGScanner):TGTokenType;cdecl;external gliblib name 'g_scanner_cur_token';
function g_scanner_cur_value(scanner:PGScanner):TGTokenValue;cdecl;external gliblib name 'g_scanner_cur_value';
function g_scanner_cur_line(scanner:PGScanner):guint;cdecl;external gliblib name 'g_scanner_cur_line';
function g_scanner_cur_position(scanner:PGScanner):guint;cdecl;external gliblib name 'g_scanner_cur_position';
function g_scanner_eof(scanner:PGScanner):gboolean;cdecl;external gliblib name 'g_scanner_eof';
function g_scanner_set_scope(scanner:PGScanner; scope_id:guint):guint;cdecl;external gliblib name 'g_scanner_set_scope';
procedure g_scanner_scope_add_symbol(scanner:PGScanner; scope_id:guint; symbol:Pgchar; value:gpointer);cdecl;external gliblib name 'g_scanner_scope_add_symbol';
procedure g_scanner_scope_remove_symbol(scanner:PGScanner; scope_id:guint; symbol:Pgchar);cdecl;external gliblib name 'g_scanner_scope_remove_symbol';
function g_scanner_scope_lookup_symbol(scanner:PGScanner; scope_id:guint; symbol:Pgchar):gpointer;cdecl;external gliblib name 'g_scanner_scope_lookup_symbol';
procedure g_scanner_scope_foreach_symbol(scanner:PGScanner; scope_id:guint; func:TGHFunc; user_data:gpointer);cdecl;external gliblib name 'g_scanner_scope_foreach_symbol';
function g_scanner_lookup_symbol(scanner:PGScanner; symbol:Pgchar):gpointer;cdecl;external gliblib name 'g_scanner_lookup_symbol';
procedure g_scanner_unexp_token(scanner:PGScanner; expected_token:TGTokenType; identifier_spec:Pgchar; symbol_spec:Pgchar; symbol_name:Pgchar;
_message:Pgchar; is_error:gint);cdecl;external gliblib name 'g_scanner_unexp_token';
{$IFNDEF KYLIX}
procedure g_scanner_error(scanner:PGScanner; format:Pgchar; args:array of const);cdecl;overload;external gliblib name 'g_scanner_error';
procedure g_scanner_error(scanner:PGScanner; format:Pgchar);cdecl;overload;varargs;external gliblib name 'g_scanner_error';
procedure g_scanner_warn(scanner:PGScanner; format:Pgchar; args:array of const);cdecl;overload;external gliblib name 'g_scanner_warn';
procedure g_scanner_warn(scanner:PGScanner; format:Pgchar);cdecl;overload;varargs;external gliblib name 'g_scanner_warn';
{$ELSE}
procedure g_scanner_error(scanner:PGScanner; format:Pgchar);varargs;cdecl;external gliblib name 'g_scanner_error';
procedure g_scanner_warn(scanner:PGScanner; format:Pgchar);varargs;cdecl;external gliblib name 'g_scanner_warn';
{$ENDIF}
{$ifndef G_DISABLE_DEPRECATED}
procedure g_scanner_freeze_symbol_table(scanner : PGScanner);
procedure g_scanner_thaw_symbol_table(scanner : PGScanner);
{$endif} { G_DISABLE_DEPRECATED }
{$ENDIF read_interface_rest}
// included by glib2.pas
|
